Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dfkeb.crf
There are no other files named dfkeb.crf in the archive.
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1
DFKEBT MAC 13-Jan-89 13:45 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977
BC ;*MAINDEC-10-DFKEB
BC
BC
BMCNVERC 000000 MCNVER==000
BDECVERC 000003 DECVER==003
BC
BXLISTC XLIST
BDEFINENAMELISTC LIST
BLALLC LALL
BC
BNAMEMCNVERDECVERC NAME \MCNVER,\DECVER^
BC
BTITLEC TITLE DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3^
BC
BLOCC 000137 LOC 137
BMCNVERMCNVERDECVERC 000137 000000 000003 MCNVER,,DECVER
BC
BC ;*COPYRIGHT 1975,1984
BC ;*DIGITAL EQUIPMENT CORP.
BC ;*MARLBORO, MASS. 01752
BC
BC ;*JOHN R. KIRCHOFF
BC
BNOSYMC NOSYM
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 2
DFKEBT MAC 13-Jan-89 13:45 PROGRAM PARAMETERS
BSUBTTLC SUBTTL PROGRAM PARAMETERS
BC
BC ;*DEFINE SUBROUTINE PARAMETERS
BC
BKL10C 000001 KL10==1
BKL10P0C 000001 KL10P0==1
BEXCASBC 000001 EXCASB==1
BPGMENDC 000001 PGMEND==1
BITERATC 000001 ITERAT==1
BBEGINMODDVUC 030000 MODDVU==BEGIN
BBEGINMODDVLC 030000 MODDVL==BEGIN
BDEBUGC 000100 DEBUG==100
BC
BC ;*SPECIAL SUBROUTINE PARAMETERS
BC
BBEGINSADR1C 030000 SADR1=BEGIN
BBEGINSADR2C 030000 SADR2=BEGIN
BBEGINSADR3C 030000 SADR3=BEGIN
BBEGINSADR4C 030000 SADR4=BEGIN
BJRSTBEGINSADR5C 254000 030000 SADR5=JRST BEGIN
BJRSTBEGINSADR6C 254000 030000 SADR6=JRST BEGIN
BJRSTBEGINSADR7C 254000 030000 SADR7=JRST BEGIN
BJRSTBEGINSADR8C 254000 030000 SADR8=JRST BEGIN
BJRSTBEGINSADR9C 254000 030000 SADR9=JRST BEGIN
BJRSTBEGINSADR10C 254000 030000 SADR10=JRST BEGIN
BJRSTBEGINSADR11C 254000 030000 SADR11=JRST BEGIN
BC
BPAREA0C 000000 PAREA0=0
BPAREA1C 000000 PAREA1=0
BPAREA2C 000000 PAREA2=0
BSIXBITPAREA3C 444653 454200 PAREA3=SIXBIT/DFKEB/
BSIXBITPAREA4C 645560 000000 PAREA4=SIXBIT/TMP/
BPAREA5C 000000 PAREA5=0
BPAREA6C 000000 PAREA6=0
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 3
DFKEBT MAC 13-Jan-89 13:45 PROGRAM MACRO'S
BSUBTTLC SUBTTL PROGRAM MACRO'S
BC
BDEFINEFLGTSTC DEFINE FLGTST (FLAG,MSG0,%FLAG0,%FLAG3,%FLAG2),<
BC LALL
BC ;*TRY TO SET FLAG VIA MONITOR UUO TRAP
BC ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
BC
BC A=1 ;ACTUAL FLAGS AND PC STORED
BC C=[FLAG,,%FLAG3] ;CORRECT FLAGS AND PC
BC
BC %FLAG0: CONO PAG,LTRPEN
BC DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BC TNSET
BC JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
BC SKIPN [MODE] ;DONT PAGE IF MODE = 0
BC JRST .+3
BC PAGEPN
BC MOVSI 1B21 ;UUO TO DO
BC MOVEM %FLAG2 ;STORE UUO TO DO
BC MOVE [FLAG,,%FLAG3] ;PC AND FLAGS TO RESTORE
BC MOVEM UPMP+LCNTRP
BC MOVEM UPMP+LCTRP
BC MOVEM UPMP+LPNTRP
BC MOVEM UPMP+LPTRP
BC MOVEM UPMP+LSNTRP
BC MOVEM UPMP+LSTRP
BC MOVEM LKNTRP
BC MOVEM LKTRP
BC SETZM UPMP+LMUUO
BC SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
BC %FLAG2: 0 ;HERE IS THE UUO
BC ERROR %FLAG0,13,C,A,MUUO DID NOT CAUSE TRAP
BC LALL
BC %FLAG3: JSP 1,.+1 ;GET FLAGS
BC TLNN 1,FLAG ;ARE FLAG(S) SET?
BC ERROR %FLAG0,13,C,A,MSG0
BC >
BDEFINESUPEXC DEFINE SUPEX<
BC LALL
BC ;THIS SECTION PUTS THE PROCESSOR INTO SUPERVISOR MODE.
BC ;PAGE TABLE SETUP
BC MOVSI 740000!<UPMP_-^D9>
BC MOVEM 200 ;STORE PAGE WORD
BC CONO PAG,LTRPEN
BC DATAO PAG,[LLDUSB,,400000]
BC >
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 4
DFKEBT MAC 13-Jan-89 13:45 PROGRAM MACROS AND OPDEFS
BSUBTTLC SUBTTL PROGRAM MACROS AND OPDEFS
BC
BOPDEFJSRTRAPSTTRPSETC 264000 032760 OPDEF TRPSET [JSR TRAPST]
BC
BOPDEFCONOAPRRESETC 700200 200000 OPDEF RESET [CONO APR,200000]
BC
BOPDEFBLKIAPRAPRIDC 700000 000000 OPDEF APRID [BLKI APR]
BC
BDEFINEMOVMEMC DEFINE MOVMEM(A,B)<
BC PUT [A]
BC GET B
BC >
BC
BDEFINEPAGECNC DEFINE PAGECN<
BC SETOM CNSFLG ;INFORM PAGE ROUTINE
BC GO PAGSET ;THAT I WANT CONCEALED MODE
BC >
BDEFINEPAGEPNC DEFINE PAGEPN<
BC SETZM CNSFLG ;INFORM PAGE ROUTINE
BC GO PAGSET ;THAT I WANT PUBLIC MODE
BC >
BC
BDEFINETNSETC DEFINE TNSET<
BC MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BC MOVEM TESTPC ;INTO TEST
BC >
BC
BIFNDEFUPMPENDUPMPC 036000 IFNDEF UPMP,<UPMP=<END+1000>&777000> ;INSURE THAT THE USER PAGE MAP PAGE
BC ;STARTS AT AN EVEN ADDRESS WICH IS
BC ;A MULTIPLE OF 1K
BC
BC ;*SPECIAL PAGE TABLE DEFINITIONS
BC
BAROVTPC 000421 AROVTP= 421 ;ARITHMETIC TRAP
BPDOVTPC 000422 PDOVTP= 422 ;PUSHDOWN OVERFLOW TRAP
BTRP3TPC 000423 TRP3TP= 423 ;TRAP 3 TRAP
BMUUOC 000424 MUUO= 424 ;MUUO STORAGE
BMUUOPCC 000425 MUUOPC= 425 ;MUUO NEW PC
BKNTRPC 000430 KNTRP= 430 ;KERNAL
BKTRPC 000431 KTRP= 431
BSNTRPC 000432 SNTRP= 432 ;SUPERVISOR
BSTRPC 000433 STRP= 433
BCNTRPC 000434 CNTRP= 434 ;CONCEALED
BCTRPC 000435 CTRP= 435
BPNTRPC 000436 PNTRP= 436 ;PUBLIC
BPTRPC 000437 PTRP= 437
BC
BLIPC 002000 LIP= 2000 ;PC FLAG, LAST INST PUBLIC
BTN0C 000400 TN0= 400 ;PC FLAG, TN 0 BIT
BTN1C 000200 TN1= 200 ;PC FLAG, TN 1 BIT
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1
PARAM KLM 12-Jan-89 22:59 *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977
BSUBTTLC SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, AUG 1,1977
BC
BDEFINESC DEFINE S,<;*********************************************************************>
BC
BSC S^;*********************************************************************^
BC ;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
BC ;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
BC ;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
BSC S^;*********************************************************************^
BC
BABORTC 400000 ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
BRSTARTC 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
BTOTALSC 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
BC
BNOPNTC 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
BPNTLPTC 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
BDINGC 010000 DING== 010000 ;RING BELL ON ERROR
BC
BLOOPERC 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
BERSTOPC 002000 ERSTOP==002000 ;HALT ON TEST ERROR
BPALERSC 001000 PALERS==001000 ;PRINT ALL ERRORS
BC
BRELIABC 000400 RELIAB==000400 ;RELIABILITY MODE
BTXTINHC 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
BINHPAGC 000100 INHPAG==000100 ;INHIBIT PAGING
BC
BMODDVCC 000040 MODDVC==000040 ;MODIFY DEVICE CODE
BINHCSHC 000020 INHCSH==000020 ;INHIBIT CACHE
BOPRSELC 000010 OPRSEL==000010 ;OPERATOR SELECTION
BC
BCHAINC 000004 CHAIN== 000004 ;CHAIN CONTROL SWITCH
BC
BKAHZ50C 000002 KAHZ50==000002 ;KA10 50 HERTZ POWER
BC
BC ;SWITCH 17 RESERVED !!!
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 2
PARAM KLM 12-Jan-89 22:59 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
BSUBTTLC SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
BC
BSC S^;*********************************************************************^
BC ;*SPECIAL SUBPROGRAM LINKAGES
BSC S^;*********************************************************************^
BC
BFSELNKC 027772 FSELNK= 27772 ;FILE SELECT LINK
BFRDLNKC 027773 FRDLNK= 27773 ;FILE READ LINK
BLDLNKC 027774 LDLNK= 27774 ;LOAD LINKAGE ADDRESS
BDDTLNKC 027775 DDTLNK= 27775 ;DDT LINKAGE ADDRESS
BMODLNKC 027776 MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
BSUBLNKC 027777 SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
BC
BSC S^;*********************************************************************^
BC ;*SPECIAL SUBROUTINE FATAL HALTS
BC ;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
BSC S^;*********************************************************************^
BC
BC ;ADDRESS TAG REASON
BC ;---------------------
BC
BC ; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
BC ; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
BC ; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
BC ; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
BC ; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
BC ; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
BC ; 1016 CPIERR ;CPU INITIALIZATION ERROR
BC ; 1017 EOPERR ;END OF PROGRAM ERROR
BC ; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
BC
BSC S^;*********************************************************************^
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 3
PARAM KLM 12-Jan-89 22:59 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
BSC S^;*********************************************************************^
BC ;OPERATOR DEFINITIONS (NON-UUO'S)
BSC S^;*********************************************************************^
BC
BOPDEFPUSHJPGOC 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
BOPDEFPOPJPRTNC 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
BOPDEFPUSHPPUTC 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
BOPDEFPOPPGETC 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
BOPDEFJRSTPJRSTC 254000 000000 OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
BOPDEFJRSTHALTC 254200 000000 OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
BOPDEFJRSTJRSTFC 254100 000000 OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
BOPDEFJRSTJENC 254500 000000 OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
BC
BSC S^;*********************************************************************^
BC ;*SUBROUTINE INITIALIZATION CALL
BSC S^;*********************************************************************^
BC
BOPDEFJSPSBINITPGMINTC 265000 030011 OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
BC
BSC S^;*********************************************************************^
BC ;*HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
BSC S^;*********************************************************************^
BC
BOPDEFFATALC 037640 000004 OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
BOPDEFERRHLTC 037600 000004 OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
BC
BSC S^;*********************************************************************^
BC ;*TERMINAL INPUT UUO'S
BC ;*ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
BC ;*CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
BSC S^;*********************************************************************^
BC
BOPDEFTTICHRC 037000 000003 OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
BOPDEFTTIYESC 037040 000003 OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
BOPDEFTTINOC 037100 000003 OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
BOPDEFTTIOCTC 037140 000003 OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
BOPDEFTTIDECC 037200 000003 OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
BOPDEFTTICNVC 037240 000003 OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
BOPDEFTTLOOKC 037300 000003 OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
BOPDEFTTALTMC 037340 000003 OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
BOPDEFTTSIXBC 037400 000003 OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
BOPDEFTTYINPC 037440 000003 OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
BOPDEFTTICLRC 037500 000003 OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 4
PARAM KLM 12-Jan-89 22:59 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
BC ;*TERMINAL OUTPUT UUO'S.
BC
BOPDEFPNTAC 037000 000000 OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
BOPDEFPNTAFC 037000 000001 OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
BOPDEFPNTALC 037740 000000 OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
BOPDEFPNTALFC 037740 000001 OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
BOPDEFPSIXLC 037600 000003 OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
BOPDEFPSIXLFC 037640 000003 OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
BOPDEFPNTMSGC 037000 000000 OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
BOPDEFPNTMSFC 037040 000000 OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
BOPDEFPSIXMC 037100 000000 OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
BOPDEFPSIXMFC 037200 000000 OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
BOPDEFPNTCIC 037000 000000 OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
BOPDEFPNTCIFC 037040 000000 OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
BOPDEFPNTCHRC 037500 000000 OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
BOPDEFPNTCHFC 037500 000001 OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
BOPDEFPNT1C 037040 000000 OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
BOPDEFPNT1FC 037040 000001 OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
BOPDEFPNT2C 037100 000000 OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
BOPDEFPNT2FC 037100 000001 OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
BOPDEFPNT3C 037140 000000 OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
BOPDEFPNT3FC 037140 000001 OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
BOPDEFPNT4C 037200 000000 OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
BOPDEFPNT4FC 037200 000001 OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
BOPDEFPNT5C 037240 000000 OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
BOPDEFPNT5FC 037240 000001 OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
BOPDEFPNT6C 037300 000000 OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
BOPDEFPNT6FC 037300 000001 OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
BOPDEFPNT7C 037340 000000 OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
BOPDEFPNT7FC 037340 000001 OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
BOPDEFPNT11C 037440 000000 OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
BOPDEFPNT11FC 037440 000001 OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
BOPDEFPNTADRC 037400 000000 OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
BOPDEFPNTADFC 037400 000001 OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
BOPDEFPNTOCTC 037600 000000 OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
BOPDEFPNTOTFC 037600 000001 OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
BOPDEFPNTHWC 037540 000000 OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
BOPDEFPNTHWFC 037540 000001 OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
BOPDEFPNTOCSC 037700 000003 OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
BOPDEFPNTOCFC 037740 000003 OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
BOPDEFPNTDECC 037640 000000 OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
BOPDEFPNTDCFC 037640 000001 OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
BOPDEFPNTDSC 037700 000000 OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
BOPDEFPNTDSFC 037700 000001 OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 5
PARAM KLM 12-Jan-89 22:59 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
BOPDEFPNTNMC 037200 000002 OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
BOPDEFPNTSIXC 037000 000002 OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
BOPDEFPNTSXFC 037040 000002 OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
BOPDEFDROPDVC 037240 000002 OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
BOPDEFPNTCWC 037100 000002 OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
BOPDEFPNTCWFC 037140 000002 OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
BOPDEFCRLFPCRLC 037000 030242 OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
BOPDEFCRLFPCRLFC 037040 030242 OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
BOPDEFPSPC 037000 000040 OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
BOPDEFPSPFC 037040 000040 OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
BOPDEFCRLF2PCRL2C 037000 030243 OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
BOPDEFCRLF2PCRL2FC 037040 030243 OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
BOPDEFPBELLC 037040 000007 OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
BC
BOPDEFPFORCEC 037040 000026 OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
BC
BDEFINEPMSGC DEFINE PMSG (ARG),<
BC PSIXM [SIXBIT\ARG'_\]>
BC
BDEFINEPMSGFC DEFINE PMSGF (ARG),<
BC PSIXMF [SIXBIT\ARG'_\]>
BC
BC ;*SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
BC ;* CONSERVES CORE OVER ASCIZ
BC
BDEFINESIXBTZC DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
BC
BC ;*CONSOLE SWITCH INPUT UUO.
BC ;*READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
BC ;* USER MODE.
BC
BOPDEFSWITCHC 037400 000002 OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
BC
BC ;*CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
BC ;*EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
BC
BOPDEFCLOKOPC 037540 000004 OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
BOPDEFMTROPC 037200 000004 OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
BC
BC ;*KL10 ONLY CACHE OPERATION UUO'S
BC
BOPDEFCINVALC 037040 000004 OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
BOPDEFCFLUSHC 037100 000004 OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
BOPDEFCWRTBIC 037140 000004 OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 6
PARAM KLM 12-Jan-89 22:59 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, FEB 26,1976
BC ;*END OF PASS/PROGRAM UUOS
BC
BC ;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
BC ;*DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
BC
BOPDEFENDUUOC 037500 000004 OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
BOPDEFEOPUUOC 037700 000004 OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
BC
BC ;*MEMORY MANAGEMENT UUO'S
BC ;*UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
BC ;*ADDRESS CONVERSION, ETC...
BC
BOPDEFMAPMEMC 037000 000004 OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
BOPDEFMEMZROC 037500 000002 OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
BOPDEFMEMSEGC 037440 000002 OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
BOPDEFMAPADRC 037540 000002 OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
BOPDEFMAPCNKC 037640 000002 OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
BOPDEFMAPSETC 037600 000002 OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
BOPDEFMAPPNTC 037740 000002 OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
BC
BC ;*DEVICE CODE MODIFICATION UUO
BC ;*ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
BC ;*IOT'S TO A DIFFERENT DEVICE CODE.
BC
BOPDEFMODPCUC 037340 000002 OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
BOPDEFMODPCPC 037300 000002 OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
BC
BIFNDEFMODDVLC IFNDEF MODDVL,<MODDVL==BEGIN>
BIFNDEFMODDVUC IFNDEF MODDVU,<MODDVU==BEGIN>
BC
BC ;*"DIAMON" FILE SELECTION AND READ UUOS
BC
BOPDEFFSELECC 037240 000004 OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
BOPDEFFREADC 037300 000004 OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
BOPDEFFRD36C 037340 000004 OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
BOPDEFFRD8C 037400 000004 OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
BC
BC ;*KI10 ONLY UUO FOR PRINTING MARGIN VALUES
BC
BOPDEFPNTMGNC 037700 000002 OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
BC
BXLISTC XLIST
BIFNDEFKLOLDLISTC IFNDEF KLOLD,<LIST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 7
PARAM KLM 12-Jan-89 22:59 ERROR HANDLING UUO DEFINITIONS, JAN 5,1976
BSUBTTLC SUBTTL ERROR HANDLING UUO DEFINITIONS, JAN 5,1976
BC
BSC S^;*********************************************************************^
BC ;*ERROR HANDLER PARAMETERS
BSC S^;*********************************************************************^
BC
BOPDEFERUUOC 036000 000000 OPDEF ERUUO [36B8] ;ERROR CALL UUO
BOPDEFERLOOPC 035000 000000 OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
BOPDEFERLP1C 035040 000000 OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
BOPDEFERLP2C 035100 000000 OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
BOPDEFREPTUOC 034000 000000 OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
BC
BC ;*THE ERROR HANDLER MACROS
BC
BC ;*A MACRO TO REPORT AN ERROR AND LOOP
BC
BDEFINEERRORC DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
BC SALL
BC ERUUO FORMAT,[T,,[SIXBIT\F'_\]
BC CORECT,,ACTUAL
BC [SIXBIT\D'_\],,ERR]
BC XALL
BC ERLOOP ADR ;IF ERROR, LOOP TO ADR
BC >
BC
BC ;*A MACRO TO REPORT AN ERROR AND NOT LOOP
BC
BDEFINEERROR1C DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
BC SALL
BC ERUUO FORMAT,[T,,[SIXBIT\F'_\]
BC CORECT,,ACTUAL
BC [SIXBIT\D'_\],,ERR]
BC XALL>
BC
BC >;END OF KLOLD CONDITIONAL
BC
BXLISTC XLIST
BIFDEF$PAPERSUBTTLSSPREPTREPT1SSAROVCRY0CRY1FOVBISUSERFEXIOTFXUDCKSSLUUOLUUOISSJOBUUOJOB41JOBRELJOBDDTJOBSYMJOBUSYJOBSAJOBFFJOBRENJOBAPRJOBCNIJOBTPCJOBOPCJOBVERSS.JBUUO.JB41.JBREL.JBDDT.JBSYM.JBUSY.JBSA.JBFF.JBREN.JBAPR.JBCNI.JBTPC.JBOPC.JBVERSSPDLOVUMPVUNXMUPARUCLKUFOVUAROVUSS$DEVCH$DVCH1SSPAGCCASSIOCLRCLKDISCLKENBCLKCLRSSCLKENBCLKANXMINXMSSPWFCLRPARCLRPARDISPARENBPICLRREQSETCHNONCHNOFFPIOFFPIONSSPIONSSPICHN1PICHN2PICHN3PICHN4PICHN5PICHN6PICHN7PICHNAXLISTIFDEFKA10XLISTIFDEFKI10XLISTIFDEFKL10IFNDEFKL10P0XLISTIFDEFKL10P0IFDEF$PAPERSLIOCLRLFLGENLFLGDSLFLGCLLFLGSTLSBUSELNXMERLIOPFELPARERLCADRPLSADRPLPWRFLLCASWDLAPRP7LAPRP6LAPRP5LAPRP4LAPRP3LAPRP2LAPRP1LESBERLDSBERLCSBERLSSBERLENXERLDNXERLCNXERLSNXERLEIOPFLDIOPFLCIOPFLSIOPFLEPAERLDPAERLCPAERLSPAERLECAERLDCAERLCCAERLSCAERLESAERLDSAERLCSAERLSSAERLEPWRFLDPWRFLCPWRFLSPWRFLECASDLDCASDLCCASDLSCASDLAPRALSSLSBSENLNXMENLIOPFELPARENLCADENLSADENLPWRFELCASDESSLCASWBLSBUSELNXMERLIOPFELPARERLCADRPLSADRPLPWRFLLCASWDLAPRP7LAPRP6LAPRP5LAPRP4LAPRP3LAPRP2LAPRP1LINTSSLINSTFLDATAFLWRITELUSCMPLEXCMPSSXLISTIFDEF$PAPERSSLINSTFLDATAFLWRITELUSCMPLEXCMPSSSSSSSSLEVNPALEVNPDLEVNCDLRQCLRLPICLRLREQSELCHNONLCHNOFLPIOFFLPIONLPICH1LPICH2LPICH3LPICH4LPICH5LPICH6LPICH7LPICHASSLPRCH1LPRCH2LPRCH3LPRCH4LPRCH5LPRCH6LPRCH7SSLEVNPALEVNPDLEVNCDLPIIP1LPIIP2LPIIP3LPIIP4LPIIP5LPIIP6LPIIP7LPIONLPICH1LPICH2LPICH3LPICH4LPICH5LPICH6LPICH7SSLLACBLLLPRCNLLDUSBLCWSXSSSSLLACBLLLPRCNLLDUSBLCWSXSSSSLCASLOLCASLDLSMODELTRPENSSLCSLOOLCSLOALSECMOLTRPAESSXLISTIFNDEFKL10P0XLISTIFDEFKL10P0IFDEF$PAPERSSLAROVTLPDOVTLTRP3TLTBASHLTBASLLPRFMHLPRFMLSSLAROVTLPDOVTLTRP3TLMUUOLMUUOPLCNTXTLKNTRPLKTRPLSNTRPLSTRPLCNTRPLCTRPLPNTRPLPTRPLEUPFWLPFWPCLPGFTRLEBXMHLEBXMLLMBXMHLMBXMLLISTC LIST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1
FIXED KLM 12-Jan-89 22:59 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
BSUBTTLC SUBTTL *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
BC
BLOCC 030000 LOC 30000
BC
BSC S^;*********************************************************************^
BC ;*PROGRAM STARTING ADDRESSES
BC ;*THESE ADDRESSES CALL VARIOUS SPECIAL START ROUTINES AND OR OPTIONS
BC ;*NORMAL START ADDRESS IS 30000 ALL OTHERS ARE SPECIAL. INVOKED BECAUSE
BC ;*OF END OF PASS, POWER FAILURE, DDT START, RE-ENTERING(TYPICALLY USER
BC ;*MODE), OR ANY NUMBER OF SPECIAL FEATURE TESTS.
BSC S^;*********************************************************************^
BC
BBEGINJRSTMODLNKC 030000 254 00 04 00 027776 BEGIN: JRST @MODLNK ;STAND-ALONE START
B$STARTJRSTSTARTC 030001 254 00 0 00 030614 $START: JRST START ;MODE CHECK STARTING ADDRESS
BC
BDIAGMNJRSTLDLNKC 030002 254 00 1 00 027774 DIAGMN: JRST @LDLNK ;DIAGNOSTIC MONITOR START
BC
BSYSEXRJRSTLDLNKC 030003 254 00 1 00 027774 SYSEXR: JRST @LDLNK ;SYSTEM EXERCISER START
BC
BSFSTRTJRSTSADR1C 030004 254 00 0 00 030000 SFSTRT: JRST SADR1 ;SPECIAL FEATURE START
BC
BPFSTRTJRSTSADR2C 030005 254 00 0 00 030000 PFSTRT: JRST SADR2 ;POWER FAIL RESTART
BC
BREENTRJRSTSADR3C 030006 254 00 0 00 030000 REENTR: JRST SADR3 ;REENTER START(USUALLY USER MODE ONLY)
BC
BSRTDDTC 030007 SRTDDT: ;COMMONLY MISTAKEN NAME FOR "DDTSRT"
BDDTSRTJRSTDDTLNKC 030007 254 00 1 00 027775 DDTSRT: JRST @DDTLNK ;DDT START
BC
BBEGIN1JRSTSTARTAC 030010 254 00 0 00 030615 BEGIN1: JRST STARTA ;LOOP START(END OF PASS COMES HERE)
BSBINITJRSTSUBLNKC 030011 254 00 1 00 027777 SBINIT: JRST @SUBLNK ;PMGINT LINKAGE
BRETURNC 030012 000000 000000 RETURN: 0 ;RETURN ADDRESS STORAGE
BC
BSTART1SADR7SADR7C 030013 254000 030000 START1: SADR7 ;OPTIONAL STARTING ADR/INSTRUCTIONS
BSTART2SADR8SADR8C 030014 254000 030000 START2: SADR8 ; "
BSTART3SADR9SADR9C 030015 254000 030000 START3: SADR9 ; "
BSTART4SADR10SADR10C 030016 254000 030000 START4: SADR10 ; "
BSTART5SADR11SADR11C 030017 254000 030000 START5: SADR11 ; "
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 2
FIXED KLM 12-Jan-89 22:59 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
BSC S^;*********************************************************************^
BC ;*PROGRAM FIXED PARAMETER AREA
BSC S^;*********************************************************************^
BC
BPNTNAMPAREA3PAREA3C 030020 444653 454200 PNTNAM: PAREA3 ;SIXBIT PROGRAM NAME
BPNTEXTPAREA4PAREA4C 030021 645560 000000 PNTEXT: PAREA4 ;SIXBIT PROGRAM EXTENSION
BRANDBSPAREA1PAREA1C 030022 000000 000000 RANDBS: PAREA1 ;RANDOM BASE NUMBER
BSWTEXRPAREA2PAREA2C 030023 000000 000000 SWTEXR: PAREA2 ;SYSTEM EXERCISER SWITCHES
BITRCNTITERATITERATC 030024 000000 000001 ITRCNT: ITERAT ;PROGRAM ITERATIONS
B$PNAMEPGMNAMPGMNAMC 030025 000000 030600 $PNAME: PGMNAM ;POINTER TO PROGRAMS NAME
B$PVERMCNVERMCNVERDECVERC 030026 000000 000003 $PVER: MCNVER,,DECVER ;MCN & DEC VERSION LEVEL
B$MODVLMODDVLMODDVLC 030027 000000 030000 $MODVL: MODDVL ;DEVICE CODE CHANGE LOWER LIMIT
B$MODVUMODDVUMODDVUC 030030 000000 030000 $MODVU: MODDVU ;DEVICE CODE CHANGE UPPER LIMIT
B$EMODEIFNDEFEXCASBIFDEFEXCASBC 030031 777777 777777 $EMODE: IFNDEF EXCASB,<0> IFDEF EXCASB,<-1> ;EXEC ALLOWED
B$UMODEIFNDEFUSRASBIFDEFUSRASBC 030032 000000 000000 $UMODE: IFNDEF USRASB,<0> IFDEF USRASB,<-1> ;USER ALLOWED
B$DSKUPIFNDEFDSKUPDIFDEFDSKUPDC 030033 000000 000000 $DSKUP: IFNDEF DSKUPD,<0> IFDEF DSKUPD,<-1> ;DISK UPDATE MODE
B$MMAPIFNDEFMEMMAPIFDEFMEMMAPC 030034 000000 000000 $MMAP: IFNDEF MEMMAP,<0> IFDEF MEMMAP,<-1> ;ALLOW MEMORY RTNS
BPAREA7PAREA5PAREA5C 030035 000000 000000 PAREA7: PAREA5 ;OPTIONAL PARAMETER
BPAREA8PAREA6PAREA6C 030036 000000 000000 PAREA8: PAREA6 ;OPTIONAL PARAMETER
BC
BSC S^;*********************************************************************^
BC ;*PROGRAM VARIABLE PARAMETER AREA
BSC S^;*********************************************************************^
BC
BUSERC 030037 000000 000000 USER: 0 ; 0 = EXEC, -1 = USER MODE FLAG
BKAIFLGC 030040 000000 000000 KAIFLG: 0 ;PROCESSOR TYPE, 0 = KA10, -1 = KI10
BKLFLGC 030041 000000 000000 KLFLG: 0 ;PROCESSOR TYPE, 0 = KA/KI, -1 = KL10
BMONFLGC 030042 777777 777777 MONFLG: -1 ;DIAG MONITOR SPECIAL USER FLAG
BMONCTLC 030043 000000 000000 MONCTL: 0 ;DIAG MON/SYS EXR FLAG
BMONTENC 030044 000000 000000 MONTEN: 0 ;-1= LOADED BY 10
BCLOCKFC 030045 000000 000000 CLOCKF: 0 ;CLOCK TICKED FLAG
BCONSWC 030046 000000 000000 CONSW: 0 ;CONSOLE SWITCH SETTINGS
BPASCNTC 030047 000000 000000 PASCNT: 0 ;PROGRAM PASS COUNT
BRUNFLGC 030050 000000 000000 RUNFLG: 0 ;PROGRAM RUN FLAG
BTESTPCC 030051 000000 000000 TESTPC: 0 ;SUBTEST PC
BERRPCC 030052 000000 000000 ERRPC: 0 ;ERROR PC
BERRTLSC 030053 000000 000000 ERRTLS: 0 ;ERROR TOTALS
BTICKSC 030054 000000 000000 TICKS: 0 ;PROGRAM RUNNING TIME
BMARGINC 030055 000000 000000 MARGIN: 0 ;KI10 MARGIN WORD VALUE
B$ONETMC 030056 000000 000000 $ONETM: 0 ;SUBROUTINE INITIALIZATION FLAG
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 3
FIXED KLM 12-Jan-89 22:59 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
BSC S^;*********************************************************************^
BC ;*SPECIAL PROGRAM DISPATCH ADDRESSES
BSC S^;*********************************************************************^
BC
BBEGENDENDUUOC 030057 037 12 0 00 000004 BEGEND: ENDUUO ;END OF PASS
B$BEND1JRSTBEGIN1C 030060 254 00 0 00 030010 $BEND1: JRST BEGIN1 ;KEEP RUNNING PROGRAM
B$BEND2EOPUUOC 030061 037 16 0 00 000004 $BEND2: EOPUUO ;END OF PROGRAM - NO RETURN
BCNTLCSADR5SADR5C 030062 254000 030000 CNTLC: SADR5 ;CONTROL C XFER ADDRESS
BALTMGOSADR6SADR6C 030063 254000 030000 ALTMGO: SADR6 ;ALTMODE XFER ADDRESS
BCPOPJ1C 030064 CPOPJ1: ;SKIP RETURN
BUUOSKPAOSPC 030064 350 00 0 17 000000 UUOSKP: AOS (P) ;SKIP RETURN FROM UUO
BCPOPJC 030065 CPOPJ: ;NON-SKIP REGULAR RETURN
BUUOEXTRTNC 030065 263 17 0 00 000000 UUOEXT: RTN ;UUO RETURN
BUUORTNJFCLC 030066 255 00 0 00 000000 UUORTN: JFCL ;ADDITIONAL USERS UUO ROUTINE
B$UORTXJFCLC 030067 255 00 0 00 000000 $UORTX: JFCL ;ADDITIONAL UUO LINKAGE
B$UUOERJFCLC 030070 255 00 0 00 000000 $UUOER: JFCL ;INITED AS (JRST $UOERX)
B$ITRHLJFCLC 030071 255 00 0 00 000000 $ITRHL: JFCL ;ADDITIONAL INTERRUPT LINKAGE
B$ITRX1JFCLC 030072 255 00 0 00 000000 $ITRX1: JFCL ; "
B$USRHLJFCLC 030073 255 00 0 00 000000 $USRHL: JFCL ; "
B$RSRTXJFCLC 030074 255 00 0 00 000000 $RSRTX: JFCL ;ADDITIONAL POWER FAIL LINKAGE
B$RSRTYJFCLC 030075 255 00 0 00 000000 $RSRTY: JFCL ; "
BRESRT1JFCLC 030076 255 00 0 00 000000 RESRT1: JFCL ; INITED AS (JRST RESRTX)
BRESRT2JFCLC 030077 255 00 0 00 000000 RESRT2: JFCL ; "
B$PARERJFCLC 030100 255 00 0 00 000000 $PARER: JFCL ;ADDITIONAL PARITY ERROR LINKAGE
BERMOREJFCLC 030101 255 00 0 00 000000 ERMORE: JFCL ;ADDITIONAL ERROR HANDLER LINKAGE
BHALTC 030102 254 04 0 00 030102 HALT . ;IMPROPER TRANSFER HALT
BC
B$PSHERC 030103 000000 000000 $PSHER: 0 ;INITED AS (JRST PSHERR)
BITRCH1C 030104 000000 000000 ITRCH1: 0 ;PC & FLAGS OF CURRENT INTERRUPT
BC 030105 000000 000000 0 ;INITED AS (JRST $ITRC1)
BC
BSC S^;*********************************************************************^
BC ;*PROCESSOR CONTROL STORAGE
BSC S^;*********************************************************************^
BC
B$ACC0C 030106 000000 000000 $ACC0: 0 ;INTERRUPT SAVED AC0
B$SVPIC 030107 000000 000000 $SVPI: 0 ;INTERRUPT SAVED PI
B$SVAPRC 030110 000000 000000 $SVAPR: 0 ;INTERRUPT SAVED APR
B$SVPAGC 030111 000000 000000 $SVPAG: 0 ;INTERRUPT SAVED PAG (DATAI)
B$SPAG1C 030112 000000 000000 $SPAG1: 0 ;INTERRUPT SAVED PAG (CONI)
BC
B$SVUUOC 030113 000000 000000 $SVUUO: 0 ;CURRENT USERS UUO
B$SVUPCC 030114 000000 000000 $SVUPC: 0 ;PC OF CURRENT USERS UUO
BC
BREPTUC 030115 000000 000000 REPTU: 0 ;REPEAT UUO ITERATIONS
BSCOPEC 030116 000000 000000 SCOPE: 0 ;ERROR HANDLER SCOPE LOOP FLAG
B%CORFLC 030117 000000 000000 %CORFLG:0 ; " CORRECT FLAG
B%CORECC 030120 000000 000000 %COREC: 0 ; " CORRECT DATA
B%ACTFLC 030121 000000 000000 %ACTFL: 0 ; " ACTUAL FLAG
B%ACTULC 030122 000000 000000 %ACTUL: 0 ; " ACTUAL DATA
B%DISCRC 030123 000000 000000 %DISCR: 0 ; " DISCREPENCY DATA
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 4
FIXED KLM 12-Jan-89 22:59 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
BSC S^;*********************************************************************^
BC ;*UUO DISPATCH TABLE
BSC S^;*********************************************************************^
BXLISTC XLIST
BIFNDEFLUUO1IFNDEFLUUO2IFNDEFLUUO3IFNDEFLUUO4IFNDEFLUUO5IFNDEFLUUO6IFNDEFLUUO7IFNDEFLUUO10IFNDEFLUUO11IFNDEFLUUO12IFNDEFLUUO13IFNDEFLUUO14IFNDEFLUUO15IFNDEFLUUO16IFNDEFLUUO17IFNDEFLUUO20IFNDEFLUUO21IFNDEFLUUO22IFNDEFLUUO23IFNDEFLUUO24IFNDEFLUUO25IFNDEFLUUO26IFNDEFLUUO27IFNDEFLUUO30IFNDEFLUUO31IFNDEFLUUO32IFNDEFLUUO33LISTC LIST
BUUODISLUUO1LUUO1$UUOERC 030124 030070 030070 UUODIS: LUUO1,,$UUOER
BLUUO3LUUO3LUUO2C 030125 030070 030070 LUUO3,,LUUO2
BLUUO5LUUO5LUUO4C 030126 030070 030070 LUUO5,,LUUO4
BLUUO7LUUO7LUUO6C 030127 030070 030070 LUUO7,,LUUO6
BLUUO11LUUO11LUUO10C 030130 030070 030070 LUUO11,,LUUO10
BLUUO13LUUO13LUUO12C 030131 030070 030070 LUUO13,,LUUO12
BLUUO15LUUO15LUUO14C 030132 030070 030070 LUUO15,,LUUO14
BLUUO17LUUO17LUUO16C 030133 030070 030070 LUUO17,,LUUO16
BLUUO21LUUO21LUUO20C 030134 030070 030070 LUUO21,,LUUO20
BLUUO23LUUO23LUUO22C 030135 030070 030070 LUUO23,,LUUO22
BLUUO25LUUO25LUUO24C 030136 030070 030070 LUUO25,,LUUO24
BLUUO27LUUO27LUUO26C 030137 030070 030070 LUUO27,,LUUO26
BLUUO31LUUO31LUUO30C 030140 030070 030070 LUUO31,,LUUO30
BLUUO33LUUO33LUUO32C 030141 030070 030070 LUUO33,,LUUO32
BC
BSC S^;*********************************************************************^
BC ;*MEMORY MANAGMENT STORAGE
BSC S^;*********************************************************************^
BC
BDF22FC 030142 000000 000000 DF22F: 0 ;DF10 CONTROL FLAG, 0 = 18, -1 = 22 BIT
BMAPNEWC 030143 000000 000000 MAPNEW: 0 ;MEMORY MAPPING CONTROL FLAG, -1 = 4096K MAPPING
BMEMTOTC 030144 000000 000000 MEMTOT: 0 ;TOTAL MEMORY SIZE IN K (1024.)
BMEMLOWC 030145 000000 000000 MEMLOW: 0 ;LOWEST USABLE MEMORY
BMEMSIZBLOCKC 030146 MEMSIZ: BLOCK ^D41 ;MEMORY SEGMENT POINTER TABLE
BC
BSC S^;*********************************************************************^
BC ;*PRINT CONTROL STORAGE
BSC S^;*********************************************************************^
BC
BPNTFLGC 030217 000000 000000 PNTFLG: 0 ;PRINT FLAG, -1 WHILE IN PRINT ROUTINE
BPNTENBC 030220 000000 000000 PNTENB: 0 ;PRINT ENABLE
BPDISFC 030221 000000 000000 PDISF: 0 ;PRINT DISABLED FLAG
BPNTINHC 030222 000000 000000 PNTINH: 0 ;INHIBIT PRINT INPUT CHECKS
BPNTSPCC 030223 000000 000000 PNTSPC: 0 ;PRINT SPACE CONTROL
BOPTIMEC 030224 000000 000000 OPTIME: 0 ;TYPE-IN WAIT TIME
B$TWCNTC 030225 000000 000000 $TWCNT: 0 ;TIME WAITED
B$DVOFFC 030226 000000 000000 $DVOFF: 0 ;LOGICAL DEVICE INITED FLAG
BTTYFILC 030227 000000 000000 TTYFIL: 0 ;TTY EXEC FILLERS FLAG
BTTYSPDC 030230 000000 000000 TTYSPD: 0 ;TTY EXEC BAUD RATE
B$TTCHRC 030231 000000 000000 $TTCHR: 0 ;ACTUAL TYPED IN CHAR
B$CHRINC 030232 000000 000000 $CHRIN: 0 ;UPPER CASED & PARITY STRIPPED CHAR
B$TYPNBC 030233 000000 000000 $TYPNB: 0 ;TYPED IN NUMBER
B$CRLFC 030234 000000 000000 $CRLF: 0 ;FREE CR/LF FLAG
B$TABFC 030235 000000 000000 $TABF: 0 ;TAB CONVERSION FLAG
B$FFFC 030236 000000 000000 $FFF: 0 ;FORM FEED CONVERSION FLAG
B$VTFC 030237 000000 000000 $VTF: 0 ;VERTICAL TAB CONVERSION FLAG
BUSRLFFC 030240 000000 000000 USRLFF: 0 ;USER LF FILLERS
BUSRCRFC 030241 000000 000000 USRCRF: 0 ;USER CR FILLERS
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 5
FIXED KLM 12-Jan-89 22:59 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
BSC S^;*********************************************************************^
BC ;*THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
BC ;*TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
BC ;* MOVEI NAME
BC ;* PNTA ;OR PNTAF
BSC S^;*********************************************************************^
BC
BCRLFASCIIC 030242 CRLF: ASCII/
BC 030242 015 012 000 000 000 /
BCRLF2ASCIIC 030243 CRLF2: ASCII/
BC
BC 030243 015 012 015 012 000 /
BCOMMAASCIIC 030244 054 000 000 000 000 COMMA: ASCII/,/
BPERIODASCIIC 030245 056 000 000 000 000 PERIOD: ASCII/./
BSPACEASCIIC 030246 040 000 000 000 000 SPACE: ASCII/ /
BTABASCIIC 030247 011 000 000 000 000 TAB: ASCII/ /
BMINUSC 030250 MINUS:
BHYPENASCIIC 030250 055 000 000 000 000 HYPEN: ASCII/-/
BPLUSASCIIC 030251 053 000 000 000 000 PLUS: ASCII/+/
BASTASCIIC 030252 052 000 000 000 000 AST: ASCII/*/
BATSINASCIIC 030253 100 000 000 000 000 ATSIN: ASCII/@/
BLFPASCIIC 030254 050 000 000 000 000 LFP: ASCII/(/
BRTPASCIIC 030255 051 000 000 000 000 RTP: ASCII/)/
BBELLBYTEC 030256 007 0000000000 BELL: BYTE (7) 007
BQUESTASCIIC 030257 077 000 000 000 000 QUEST: ASCII/?/
BSLASHASCIIC 030260 057 000 000 000 000 SLASH: ASCII!/!
BDOLLARASCIIC 030261 044 000 000 000 000 DOLLAR: ASCII/$/
BRADIXC 030262 000000 000012 RADIX: ^D10 ;DECIMAL PRINT RADIX
BRADLSPC 030263 000000 000040 RADLSP: 40 ;DECIMAL PRINT LEADING CHAR
BRADLSCC 030264 000000 000012 RADLSC: ^D10 ;DECIMAL PRINT LEADING CHAR COUNT
BC
BSC S^;*********************************************************************^
BC ;*USER MODE OUTPUT FILE INFORMATION
BSC S^;*********************************************************************^
BC
B$OBUFBLOCKC 030265 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
B$OUTNMSIXBITC 030270 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
B$OUTEXSIXBITC 030271 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
BBLOCKC 030272 BLOCK 2
BC
BSC S^;*********************************************************************^
BC ;*DISK UPDATE MODE FILE INFORMATION
BSC S^;*********************************************************************^
BC
B$IBUFBLOCKC 030274 $IBUF: BLOCK 3
B$INNMSIXBITC 030277 60 62 51 56 64 00 $INNM: SIXBIT /PRINT/
B$INEXTSIXBITC 030300 60 56 64 00 00 00 $INEXT: SIXBIT /PNT/
BBLOCKC 030301 BLOCK 2
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 6
FIXED KLM 12-Jan-89 22:59 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
BSC S^;*********************************************************************^
BC ;*PUSHDOWN LIST CONTROL INFORMATION
BSC S^;*********************************************************************^
BC
BPLISTPLISTPLISTPLISTEPLISTC 030303 777577 030303 PLIST: PLIST-PLISTE,,PLIST
BPLISTSBLOCKC 030304 PLISTS: BLOCK 200
BPLISTEC 030504 000000 000000 PLISTE: 0 ;END OF PUSHDOWN LIST
BC
BSC S^;*********************************************************************^
BC ;*POWER LINE CLOCK FREQUENCY FLAG
BSC S^;*********************************************************************^
BC
BCYCL60C 030505 000000 000000 CYCL60: 0 ;0 = 60, -1 = 50 CYCLE
BC
BSC S^;*********************************************************************^
BC ;*KL10 CACHE CONTROL FLAGS
BSC S^;*********************************************************************^
BC
BCSHFLGC 030506 000000 000000 CSHFLG: 0 ;ALLOW CACHE IF 0
BCSHMEMC 030507 000000 000000 CSHMEM: 0 ;CACHE MEMORY SEGMENTS IF 0
BC
BSC S^;*********************************************************************^
BC ;*NUMBER INPUT DIGIT FLAG
BSC S^;*********************************************************************^
BC
BTTNBRFC 030510 000000 000000 TTNBRF: 0 ;-1 IF ANY DIGIT TYPED
BC
BSC S^;*********************************************************************^
BC ;*KL10 & KI10 "INHPAG" SWITCH PAGING PREVENTION
BSC S^;*********************************************************************^
BC
BPVPAGIC 030511 000000 000000 PVPAGI: 0 ;IF NON-ZERO, OVERRIDE "INHPAG" SWITCH ACTION
BC
BSC S^;*********************************************************************^
BC ;*ERROR REPORTING ROUTINE ADDITIONAL USERS CONTROL INSTRUCTIONS
BSC S^;*********************************************************************^
BC
B%ERHI1C 030512 000000 000000 %ERHI1: 0 ;IF NON-ZERO, XCT'D AT START OF %ERUUO
B%ERHI2C 030513 000000 000000 %ERHI2: 0 ;IF NON-ZERO, XCT'D AT END OF %ERUUO
B%ERHI3C 030514 000000 000000 %ERHI3: 0 ;IF NON-ZERO, XCT'D AFTER "PC" OF %ERUUO
BC
BSC S^;*********************************************************************^
BC ;*SPECIAL USERS UUO INTERCEPT INSTRUCTION
BSC S^;*********************************************************************^
BC
B$$UUOC 030515 000000 000000 $$UUO: 0 ;IF NON-ZERO, XCT'D AT START OF $UORTN
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 7
FIXED KLM 12-Jan-89 22:59 *FIXED* FIXED CONTROL AND DISPATCH STORAGE, JULY 19,1977
BSC S^;*********************************************************************^
BC ;*USER MODE MONITOR TYPE FLAG
BSC S^;*********************************************************************^
BC
BMONTYPC 030516 000000 000000 MONTYP: 0 ;0 = TOPS10, -1 = TOPS20
BC
BSC S^;*********************************************************************^
BC ;*SPECIAL USERS MUUO INTERCEPT INSTRUCTION
BSC S^;*********************************************************************^
BC
B$$MUUOC 030517 000000 000000 $$MUUO: 0 ;IF NON-ZERO, XCT'D AT START OF MUUOER
BC
BSC S^;*********************************************************************^
BC ;*SPECIAL USERS USER MODE OUTPUT ERROR INTERCEPT INSTUCTION
BSC S^;*********************************************************************^
BC
B$$OUTEC 030520 000000 000000 $$OUTER:0 ;IF NON-ZERO, XCT'D AT END OF USER MODE ERROR
BC
BSC S^;*********************************************************************^
BC ;*"SWITCH" CALL USAGE CONTROL
BSC S^;*********************************************************************^
BC
B$$TOGGC 030521 000000 000000 $$TOGGLE:0 ;IF NON-ZERO, USE C(CONSW) FOR SWITCHES
BC
BSC S^;*********************************************************************^
BC ;*SPECIAL USERS ALTMODE SWITCH CALL INTERCEPT INSTRUCTIONS
BSC S^;*********************************************************************^
BC
B$$TAX1C 030522 000000 000000 $$TAX1: 0 ;IF NON-ZERO, XCT'D AT START OF ALTMODE SWITCH CALL
B$$TAX2C 030523 000000 000000 $$TAX2: 0 ;IF NON-ZERO, XCT'D AT END OF ALTMODE SWITCH CALL
BC
BSC S^;*********************************************************************^
BC ;*SM10 (KS-10) PROCESSOR TYPE FLAG
BSC S^;*********************************************************************^
BC
BSM10C 030524 000000 000000 SM10: 0 ;IF -1 THIS IS A KS-10
BC
BSC S^;*********************************************************************^
BC ;*RIGHT HALF SWITCHES PROMPT TABLE ADDRESS
BSC S^;*********************************************************************^
BC
BSWPTABC 030525 000000 000000 SWPTAB: 0 ;0 = NO PROMPT, ADR = ADR OF SIXBIT PROMPT TABLE
BC
BSC S^;*********************************************************************^
BC ;*SPECIAL FUTURE EXPANSION ROOM
BSC S^;*********************************************************************^
BC
BSC S^;*********************************************************************^
BC ;*END OF FIXED STORAGE
BSC S^;*********************************************************************^
BC
BLOCC 030577 LOC 30577
BENDFIXC 030577 000000 000000 ENDFIX: 0 ;END OF FIXED STORAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1
DFKEBM MAC 13-Jan-89 13:45 MONITOR UUO TRAP TESTING
BSUBTTLC SUBTTL MONITOR UUO TRAP TESTING
BC
BPGMNAMASCIZC 030600 PGMNAM: ASCIZ/
BC 030600 015 012 104 105 103 DECSYSTEM KL10 MONITOR UUO AND MODE DIAGNOSTIC (DFKEB)
BC 030601 123 131 123 124 105
BC 030602 115 040 113 114 061
BC 030603 060 040 115 117 116
BC 030604 111 124 117 122 040
BC 030605 125 125 117 040 101
BC 030606 116 104 040 115 117
BC 030607 104 105 040 104 111
BC 030610 101 107 116 117 123
BC 030611 124 111 103 040 050
BC 030612 104 106 113 105 102
BC 030613 051 015 012 000 000 /
BSTARTPGMINTC 030614 265 00 0 00 030011 START: PGMINT
BC
BC
BC ;*TEST MUUO TRAPPING TO 424(KERNAL NO TRAP)
BC
BSALLC SALL
BSIXBTZSIXBITTC 033015 T=SIXBTZ MONITOR UUO TEST - TRAPPING IN KERNAL MODE
BLALLC LALL
BMUUOAC 000424 A=MUUO ;DATA STORED
BAXMUUOCC 030632 C=AXMUUO ;CORRECT DATA
BC
BSTARTAC 030615 STARTA=.
BSETZMSCOPESCOPEC 030615 402 00 0 00 030116 SETZM SCOPE# ;CLEAR SCOPE
BCONOPAGLTRPENC 030616 7 010 20 0 00 020000 CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 030617 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BAXMBEGMOVEIC 030620 201 00 0 00 000040 AXMBEG: MOVEI 40 ;SET UP TEST
BMOVEMCOUNTCOUNTC 030621 202 00 0 00 035006 MOVEM COUNT# ;COUNTER
BTNSETC TNSET^
BMOVEIC 030622 201 00 0 00 030622 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 030623 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVSIC 030624 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMAXMUUOC 030625 202 00 0 00 030632 MOVEM AXMUUO ;FOR EXECUTION
BAXMSTMOVEIAXMUPCC 030626 201 00 0 00 030635 AXMST: MOVEI AXMUPC ;SET UP UUO TRAP PC
BMOVEMKNTRPC 030627 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
BSETZMMUUOC 030630 402 00 0 00 000424 SETZM MUUO ;CLEAR UUO TRAP
BSETZMMUUOC 030631 402 00 0 00 000425 SETZM MUUO+1 ;LOCATIONS
BAXMUUOC 030632 000000 000000 AXMUUO: 0 ;THIS IS THE UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MONITOR UUO^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 030633 036 13 0 00 033040
BXALLERLP2AXMSTC 030634 035 02 0 00 030626 ERLP2 AXMST
BAXMUPCSKIPNCOUNTC 030635 336 00 0 00 035006 AXMUPC: SKIPN COUNT ;DONE 40 UUOS
BJRSTAYMBEGC 030636 254 00 0 00 030711 JRST AYMBEG ;YES DO NEXT SET
BMOVSIC 030637 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
BADDMAXMUUOC 030640 272 00 0 00 030632 ADDM AXMUUO ;ADD IN FOR NEXT UUO
BSOSCOUNTC 030641 370 00 0 00 035006 SOS COUNT ;FIX UP COUNTER
BJRSTAXMSTC 030642 254 00 0 00 030626 JRST AXMST ;LOOP
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 2
DFKEBM MAC 13-Jan-89 13:45 MONITOR UUO TRAP TESTING
BMUUOXACC 030655 C=MUUOXA ;CORRECT DATA
BMUU100MOVEIC 030643 201 00 0 00 000010 MUU100: MOVEI 10 ;TEST COUNT
BMOVEMCOUNTC 030644 202 00 0 00 035006 MOVEM COUNT
BTNSETC TNSET^
BMOVEIC 030645 201 00 0 00 030645 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 030646 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BMOVSIC 030647 205 00 0 00 100000 MOVSI 1B20 ;FIRST MUUO (100)
BMOVEMMUUOXAC 030650 202 00 0 00 030655 MOVEM MUUOXA ;STORE UUO TO EXECUTE
BMUUSTAMOVEIMUXPCAC 030651 201 00 0 00 030660 MUUSTA: MOVEI MUXPCA ;SET UP UUO TRAP PC
BMOVEMKNTRPC 030652 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
BSETZMMUUOC 030653 402 00 0 00 000424 SETZM MUUO ;CLEAR UUO
BSETZMMUUOC 030654 402 00 0 00 000425 SETZM MUUO+1 ;AND NEXT
BMUUOXAC 030655 000000 000000 MUUOXA: 0 ;THIS LOC HAS MUUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MUUO ^
BSALLERUUOTTSIXBITCCASIXBITC 030656 036 13 0 00 033046
BXALLERLP2MUUSTAC 030657 035 02 0 00 030651 ERLP2 MUUSTA
BMUXPCASKIPNCOUNTC 030660 336 00 0 00 035006 MUXPCA: SKIPN COUNT ;FINISHED
BJRSTMUU114C 030661 254 00 0 00 030666 JRST MUU114 ;DO NEXT TEST SET
BMOVSIC 030662 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
BADDMMUUOXAC 030663 272 00 0 00 030655 ADDM MUUOXA ;AND ADD IN TO OLD UUO
BSOSCOUNTC 030664 370 00 0 00 035006 SOS COUNT ;FIX UP COUNT
BJRSTMUUSTAC 030665 254 00 0 00 030651 JRST MUUSTA ;AND LOOP TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 3
DFKEBM MAC 13-Jan-89 13:45 MONITOR UUO TRAP TESTING
BMUUOXBCC 030700 C=MUUOXB ;CORRECT DATA
BMUU114MOVEIC 030666 201 00 0 00 000004 MUU114: MOVEI 4 ;TEST COUNT
BMOVEMCOUNTC 030667 202 00 0 00 035006 MOVEM COUNT
BTNSETC TNSET^
BMOVEIC 030670 201 00 0 00 030670 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 030671 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BMOVSIC 030672 205 00 0 00 114000 MOVSI 114000 ;FIRST MUUO (114)
BMOVEMMUUOXBC 030673 202 00 0 00 030700 MOVEM MUUOXB ;STORE UUO TO EXECUTE
BMUUSTBMOVEIMUXPCBC 030674 201 00 0 00 030703 MUUSTB: MOVEI MUXPCB ;SET UP UUO TRAP PC
BMOVEMKNTRPC 030675 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
BSETZMMUUOC 030676 402 00 0 00 000424 SETZM MUUO ;CLEAR UUO
BSETZMMUUOC 030677 402 00 0 00 000425 SETZM MUUO+1 ;AND NEXT
BMUUOXBC 030700 000000 000000 MUUOXB: 0 ;THIS LOC HAS MUUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN KERNAL MODE,C(CORRECT)=MUUO ^
BSALLERUUOTTSIXBITCCASIXBITC 030701 036 13 0 00 033051
BXALLERLP2MUUSTBC 030702 035 02 0 00 030674 ERLP2 MUUSTB
BMUXPCBSKIPNCOUNTC 030703 336 00 0 00 035006 MUXPCB: SKIPN COUNT ;FINISHED
BJRSTMUU114C 030704 254 00 0 00 030666 JRST MUU114 ;DO NEXT TEST SET
BMOVSIC 030705 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
BADDMMUUOXAC 030706 272 00 0 00 030655 ADDM MUUOXA ;AND ADD IN TO OLD UUO
BSOSCOUNTC 030707 370 00 0 00 035006 SOS COUNT ;FIX UP COUNT
BJRSTMUUSTBC 030710 254 00 0 00 030674 JRST MUUSTB ;AND LOOP TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 4
DFKEBM MAC 13-Jan-89 13:45 MONITOR UUO TRAP TESTING
BC ;*MONITOR UUO TEST - UUO STORE INTO 424
BC
BSALLC SALL
BSIXBTZSIXBITTC 033054 T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424
BLALLC LALL
BMUUOAC 000424 A=MUUO ;ACTUAL DATA STORED
BAYMUUOCC 030723 C=AYMUUO ;CORRECT DATA LOCATION
BC
BAYMBEGMOVEIC 030711 201 00 0 00 000040 AYMBEG: MOVEI 40 ;SET UP TEST COUNTER
BMOVEMCOUNTC 030712 202 00 0 00 035006 MOVEM COUNT
BTNSETC TNSET^
BMOVEIC 030713 201 00 0 00 030713 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 030714 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVSIC 030715 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMAYMUUOC 030716 202 00 0 00 030723 MOVEM AYMUUO ;FOR EXECUTION
BAYMSTMOVEIAYMUPCC 030717 201 00 0 00 030725 AYMST: MOVEI AYMUPC ;SET UP UUO TRAP
BMOVEMKNTRPC 030720 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
BSETZMMUUOC 030721 402 00 0 00 000424 SETZM MUUO ;CLEAR MUUO TRAP
BSETZMMUUOC 030722 402 00 0 00 000425 SETZM MUUO+1 ;LOCATIONS
BAYMUUOC 030723 000000 000000 AYMUUO: 0 ;EXECUTE THIS UUO
BHALTC 030724 254 04 0 00 030724 HALT . ;UUO DID NOT TRAP
BAYMUPCMOVEMUUOC 030725 200 00 0 00 000424 AYMUPC: MOVE MUUO ;GET WRITTEN UUO
BCAMEAYMUUOC 030726 312 00 0 00 030723 CAME AYMUUO ;STORED CORRECTLY?
BERROR1C ERROR1 13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 030727 036 13 0 00 033073
BXALLERLP2AYMSTC 030730 035 02 0 00 030717 ERLP2 AYMST
BSKIPNCOUNTC 030731 336 00 0 00 035006 SKIPN COUNT ;DONE 40 UUO'S
BJRSTAZMBEGC 030732 254 00 0 00 030737 JRST AZMBEG ;DO NEXT SET
BMOVSIC 030733 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
BADDMAYMUUOC 030734 272 00 0 00 030723 ADDM AYMUUO ;ADD IN FOR NEXT UUO
BSOSCOUNTC 030735 370 00 0 00 035006 SOS COUNT ;FIX UUO COUNTER
BJRSTAYMSTC 030736 254 00 0 00 030717 JRST AYMST ;LOOP
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 5
DFKEBM MAC 13-Jan-89 13:45 MONITOR UUO TRAP TESTING
BC ;*MONITOR UUO - STORE CORRECT PC
BC
BSALLC SALL
BSIXBTZSIXBITTC 033076 T=SIXBTZ MONITOR UUO - STORE CORRECT PC
BLALLC LALL
BAZMUUOAZMUUOCC 033104 C=[AZMUUO+1] ;CORRECT DATA
BAC 000001 A=1 ;ACTUAL DATA
BC
BAZMBEGSETZMMUUOC 030737 402 00 0 00 000424 AZMBEG: SETZM MUUO ;CLEAR MONITOR UUO
BSETZMMUUOC 030740 402 00 0 00 000425 SETZM MUUO+1 ;TRAP LOCATIONS
BTNSETC TNSET^
BMOVEIC 030741 201 00 0 00 030741 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 030742 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVSIC 030743 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMAZMUUOC 030744 202 00 0 00 030747 MOVEM AZMUUO ;TO BE EXECUTED
BAZMSTMOVEIAZMUPCC 030745 201 00 0 00 030751 AZMST: MOVEI AZMUPC ;SET UP TRAP INSTRUCTION
BMOVEMKNTRPC 030746 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
BAZMUUOC 030747 000000 000000 AZMUUO: 0 ;EXECUTABLE UUO
BHALTC 030750 254 04 0 00 030750 HALT . ;SHOULDN'T UUO DID NOT TRAP
BAZMUPCHRRZMUUOC 030751 550 01 0 00 000425 AZMUPC: HRRZ 1,MUUO+1 ;GET THE PC OF THE UUO
BCAIEAZMUUOC 030752 302 01 0 00 030750 CAIE 1,AZMUUO+1 ;PC+1 OF THE UUO SHOULD BE STORED
BERROR1C ERROR1 13,C,A,MUUO DID NOT STORE THE CORRECT PC,C(425) HAS PC STORED^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 030753 036 13 0 00 033117
BXALLERLP2AZMSTC 030754 035 02 0 00 030745 ERLP2 AZMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 6
DFKEBM MAC 13-Jan-89 13:45 MONITOR UUO TRAP TESTING
BC ;*TEST STORING ALL POSSIBLE VALUES OF THE E FIELD WHEN EXECUTING
BC ;*A MONITOR UUO
BC
BSALLC SALL
BSIXBTZSIXBITTC 033122 T=SIXBTZ MONITOR UUO - STORE E CORRECTLY
BLALLC LALL
BAC 000001 A=1 ;ACTUAL DATA
BCC 000007 C=7 ;CORRECT DATA
BC
BAWMBEGMOVEIC 030755 201 07 0 00 001000 AWMBEG: MOVEI 7,1000 ;FIRST E FIELD TO TEST
BAWMSTMOVEIAWMUPCC 030756 201 00 0 00 030771 AWMST: MOVEI AWMUPC ;SET UP MUUO TRAP INSTUCTION
BMOVEMKNTRPC 030757 202 00 0 00 000430 MOVEM KNTRP ;INTO KERNAL NO TRAP
BTNSETC TNSET^
BMOVEIC 030760 201 00 0 00 030760 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 030761 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BSETZMMUUOC 030762 402 00 0 00 000424 SETZM MUUO ;CLEAR MUUO TRAP LOCATIONS
BSETZMMUUOC 030763 402 00 0 00 000425 SETZM MUUO+1
BMOVSIC 030764 205 00 0 00 040000 MOVSI 1B21 ;SET UP UUO TO EXECUTE
BMOVEMAWMUUOC 030765 202 00 0 00 030767 MOVEM AWMUUO ;AND STORE IT
BHRRMAWMUUOC 030766 542 07 0 00 030767 HRRM 7,AWMUUO ;AN A NEW PC
BAWMUUOC 030767 000000 000000 AWMUUO: 0 ;THIS IS THE UUO
BHALTC 030770 254 04 0 00 030770 HALT . ;SHOULD NOT HALT
BAWMUPCHRRZMUUOC 030771 550 00 0 00 000424 AWMUPC: HRRZ MUUO
BCAMEC 030772 312 00 0 00 000007 CAME 7 ;CORRECT E STORED
BERROR1C ERROR1 13,C,A,MUUO DID NOT STORE E CORRECTLY,C(424) HAS E VALUE STORED^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 030773 036 13 0 00 033143
BXALLERLP2AWMSTC 030774 035 02 0 00 030756 ERLP2 AWMST
BADDIC 030775 271 07 0 00 001000 ADDI 7,1000 ;NEXT E FIELD
BTLNEC 030776 603 07 0 00 000001 TLNE 7,1 ;DONE 2^18TH TESTS?
BJRSTBXMBEGC 030777 254 00 0 00 031001 JRST BXMBEG ;NEXT SET OF TESTS
BJRSTAWMSTC 031000 254 00 0 00 030756 JRST AWMST ;LOOP TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 7
DFKEBM MAC 13-Jan-89 13:45 TEST MUUO'S IN CONCEALED MODE
BSUBTTLC SUBTTL TEST MUUO'S IN CONCEALED MODE
BC
BC ;*MONITOR UUO TEST - TRAPPING IN CONCEALED MODE
BC
BSALLC SALL
BSIXBTZSIXBITTC 033146 T=SIXBTZ MONITOR UUO TEST - TRAPPING IN CONCEALED MODE
BLALLC LALL
BUPMPMUUOAC 036424 A=UPMP+MUUO ;DATA STORED
BBXMUUOCC 031022 C=BXMUUO ;CORRECT DATA
BC
BBXMBEGTNSETC 031001 BXMBEG: TNSET^
BMOVEIC 031001 201 00 0 00 031001 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031002 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BPAGECNC PAGECN^
BSETOMCNSFLGC 031003 476 00 0 00 035005 SETOM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031004 260 17 0 00 032771 GO PAGSET ;THAT I WANT CONCEALED MODE
BC ^
BMOVEIC 031005 201 00 0 00 000040 MOVEI 40 ;SET UP TEST
BMOVEMCOUNTCOUNTC 031006 202 00 0 00 035006 MOVEM COUNT# ;COUNTER
BMOVSIC 031007 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMBXMUUOC 031010 202 00 0 00 031022 MOVEM BXMUUO ;FOR EXECUTION
BBXMSTGOPAGE1C 031011 260 17 0 00 033000 BXMST: GO PAGE1
BMOVEIBXMUPCC 031012 201 00 0 00 031025 MOVEI BXMUPC ;SET UP UUO TRAP PC
BMOVEMUPMPCNTRPC 031013 202 00 0 00 036434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP
BMOVEIBXERRC 031014 201 00 0 00 031033 MOVEI BXERR ;SET WRONG TRAP ERROR
BMOVEMUPMPKNTRPC 031015 202 00 0 00 036430 MOVEM UPMP+KNTRP
BMOVEMUPMPPNTRPC 031016 202 00 0 00 036436 MOVEM UPMP+PNTRP
BMOVEMUPMPSNTRPC 031017 202 00 0 00 036432 MOVEM UPMP+SNTRP
BSETZMUPMPMUUOC 031020 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR UUO TRAP
BSETZMUPMPMUUOC 031021 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
BBXMUUOC 031022 000000 000000 BXMUUO: 0 ;THIS IS THE UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN CONCEALED MODE,C(CORRECT)=MONITOR UUO^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031023 036 13 0 00 033164
BXALLERLP2BXMSTC 031024 035 02 0 00 031011 ERLP2 BXMST
BBXMUPCSKIPNCOUNTC 031025 336 00 0 00 035006 BXMUPC: SKIPN COUNT ;DONE 40 UUOS
BJRSTBYMBEGC 031026 254 00 0 00 031035 JRST BYMBEG ;YES DO NEXT SET
BMOVSIC 031027 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
BADDMBXMUUOC 031030 272 00 0 00 031022 ADDM BXMUUO ;ADD IN FOR NEXT UUO
BSOSCOUNTC 031031 370 00 0 00 035006 SOS COUNT ;FIX UP COUNTER
BJRSTBXMSTC 031032 254 00 0 00 031011 JRST BXMST ;LOOP
BBXERRERROR1C 031033 BXERR: ERROR1 13,C,A,MUUO TRAPPED TO INCORRECT TRAP LOCATION,^
BSALLERUUOTTSIXBITCCASIXBITC 031033 036 13 0 00 033176
BXALLERLP2BXMSTC 031034 035 02 0 00 031011 ERLP2 BXMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 8
DFKEBM MAC 13-Jan-89 13:45 TEST MUUO'S IN CONCEALED MODE
BC ;*MONITOR UUO TEST - UUO STORE INTO 424
BC
BSALLC SALL
BSIXBTZSIXBITTC 033054 T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424
BLALLC LALL
BUPMPMUUOAC 036424 A=UPMP+MUUO ;ACTUAL DATA STORED
BBYMUUOCC 031056 C=BYMUUO ;CORRECT DATA LOCATION
BC
BBYMBEGPAGECNC 031035 BYMBEG: PAGECN^
BSETOMCNSFLGC 031035 476 00 0 00 035005 SETOM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031036 260 17 0 00 032771 GO PAGSET ;THAT I WANT CONCEALED MODE
BC ^
BMOVEIC 031037 201 00 0 00 000040 MOVEI 40 ;SET UP TEST COUNTER
BMOVEMCOUNTC 031040 202 00 0 00 035006 MOVEM COUNT
BTNSETC TNSET^
BMOVEIC 031041 201 00 0 00 031041 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031042 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVSIC 031043 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMBYMUUOC 031044 202 00 0 00 031056 MOVEM BYMUUO ;FOR EXECUTION
BBYMSTGOPAGE1C 031045 260 17 0 00 033000 BYMST: GO PAGE1
BMOVEIBYMUPCC 031046 201 00 0 00 031061 MOVEI BYMUPC ;SET UP UUO TRAP
BMOVEMUPMPCNTRPC 031047 202 00 0 00 036434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP
BMOVEIBYERRC 031050 201 00 0 00 031073 MOVEI BYERR ;IN CASE WE GO TO THE WRONG TRAP
BMOVEMUPMPKNTRPC 031051 202 00 0 00 036430 MOVEM UPMP+KNTRP
BMOVEMUPMPSNTRPC 031052 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPPNTRPC 031053 202 00 0 00 036436 MOVEM UPMP+PNTRP ;SET UP THE OTHER TRAP LOCATIONS
BSETZMUPMPMUUOC 031054 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP
BSETZMUPMPMUUOC 031055 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
BBYMUUOC 031056 000000 000000 BYMUUO: 0 ;EXECUTE THIS UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031057 036 13 0 00 033204
BXALLERLP2BYMSTC 031060 035 02 0 00 031045 ERLP2 BYMST
BBYMUPCMOVEUPMPMUUOC 031061 200 00 0 00 036424 BYMUPC: MOVE UPMP+MUUO ;GET WRITTEN UUO
BCAMEBYMUUOC 031062 312 00 0 00 031056 CAME BYMUUO ;STORED CORRECTLY?
BERROR1C ERROR1 13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^
BSALLERUUOTTSIXBITCCASIXBITC 031063 036 13 0 00 033207
BXALLERLP2BYMSTC 031064 035 02 0 00 031045 ERLP2 BYMST
BSKIPNCOUNTC 031065 336 00 0 00 035006 SKIPN COUNT ;DONE 40 UUO'S
BJRSTBZMBEGC 031066 254 00 0 00 031075 JRST BZMBEG ;DO NEXT SET
BMOVSIC 031067 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
BADDMBYMUUOC 031070 272 00 0 00 031056 ADDM BYMUUO ;ADD IN FOR NEXT UUO
BSOSCOUNTC 031071 370 00 0 00 035006 SOS COUNT ;FIX UUO COUNTER
BJRSTBYMSTC 031072 254 00 0 00 031045 JRST BYMST ;LOOP
BBYERRERROR1C 031073 BYERR: ERROR1 13,C,A,MUUO TRAPED TO INCORRECT TRAP LOCATION,^
BSALLERUUOTTSIXBITCCASIXBITC 031073 036 13 0 00 033221
BXALLERLP2BYMSTC 031074 035 02 0 00 031045 ERLP2 BYMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 9
DFKEBM MAC 13-Jan-89 13:45 TEST MUUO'S IN CONCEALED MODE
BC ;*MONITOR UUO - STORING THE CORRECT PC
BC
BSALLC SALL
BSIXBTZSIXBITTC 033224 T=SIXBTZ MONITOR UUO - STORING THE CORRECT PC
BLALLC LALL
BBZMUUOBZMUUOCC 033233 C=[BZMUUO+1] ;CORRECT DATA
BAC 000001 A=1 ;ACTUAL DATA
BC
BBZMBEGTNSETC 031075 BZMBEG: TNSET^
BMOVEIC 031075 201 00 0 00 031075 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031076 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BPAGECNC PAGECN^
BSETOMCNSFLGC 031077 476 00 0 00 035005 SETOM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031100 260 17 0 00 032771 GO PAGSET ;THAT I WANT CONCEALED MODE
BC ^
BSETZMUPMPMUUOC 031101 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MONITOR UUO
BSETZMUPMPMUUOC 031102 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;TRAP LOCATIONS
BMOVSIC 031103 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMBZMUUOC 031104 202 00 0 00 031114 MOVEM BZMUUO ;TO BE EXECUTED
BBZMSTGOPAGE1C 031105 260 17 0 00 033000 BZMST: GO PAGE1
BMOVEIBZMUPCC 031106 201 00 0 00 031116 MOVEI BZMUPC ;SET UP TRAP INSTRUCTION
BMOVEMUPMPCNTRPC 031107 202 00 0 00 036434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP
BMOVEIBZERRC 031110 201 00 0 00 031123 MOVEI BZERR ;SET UP TRAP FOR INCORRECT TRAP
BMOVEMUPMPKNTRPC 031111 202 00 0 00 036430 MOVEM UPMP+KNTRP ;INTO KERNAL NO TRAP
BMOVEMUPMPSNTRPC 031112 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPPNTRPC 031113 202 00 0 00 036436 MOVEM UPMP+PNTRP
BBZMUUOC 031114 000000 000000 BZMUUO: 0 ;EXECUTABLE UUO
BHALTC 031115 254 04 0 00 031115 HALT . ;SHOULDN'T UUO DID NOT TRAP
BBZMUPCHRRZUPMPMUUOC 031116 550 01 0 00 036425 BZMUPC: HRRZ 1,UPMP+MUUO+1 ;GET THE PC OF THE UUO
BCAIEBZMUUOC 031117 302 01 0 00 031115 CAIE 1,BZMUUO+1 ;PC+1 OF THE UUO SHOULD BE STORED
BERROR1C ERROR1 13,C,A,MUUO DID NOT STORE THE CORRECT PC,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031120 036 13 0 00 033234
BXALLERLP2BZMSTC 031121 035 02 0 00 031105 ERLP2 BZMST
BJRSTBWMBEGC 031122 254 00 0 00 031125 JRST BWMBEG ;GO TO NEXT SET
BBZERRERROR1C 031123 BZERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP,^
BSALLERUUOTTSIXBITCCASIXBITC 031123 036 13 0 00 033245
BXALLERLP2BZMSTC 031124 035 02 0 00 031105 ERLP2 BZMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 10
DFKEBM MAC 13-Jan-89 13:45 TEST MUUO'S IN CONCEALED MODE
BC ;*MUUO STORING THE CORRECT E FIELD
BC
BSALLC SALL
BSIXBTZSIXBITTC 033250 T=SIXBTZ MUUO STORING THE CORRECT E FIELD
BLALLC LALL
BAC 000001 A=1 ;ACTUAL DATA
BCC 000007 C=7 ;CORRECT DATA
BC
BBWMBEGPAGECNC 031125 BWMBEG: PAGECN^
BSETOMCNSFLGC 031125 476 00 0 00 035005 SETOM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031126 260 17 0 00 032771 GO PAGSET ;THAT I WANT CONCEALED MODE
BC ^
BTNSETC TNSET^
BMOVEIC 031127 201 00 0 00 031127 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031130 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVEIC 031131 201 07 0 00 001000 MOVEI 7,1000 ;FIRST E FEILD TO TEST
BBWMSTGOPAGE1C 031132 260 17 0 00 033000 BWMST: GO PAGE1
BMOVEIBWMUPCC 031133 201 00 0 00 031151 MOVEI BWMUPC ;SET UP MUUO TRAP INSTUCTION
BMOVEMUPMPCNTRPC 031134 202 00 0 00 036434 MOVEM UPMP+CNTRP ;INTO CONCEALED NO TRAP
BMOVEIBWERRC 031135 201 00 0 00 031162 MOVEI BWERR ;SET UP FOR INCORRECT TRAP
BMOVEMUPMPPNTRPC 031136 202 00 0 00 036436 MOVEM UPMP+PNTRP
BMOVEMUPMPSNTRPC 031137 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPKNTRPC 031140 202 00 0 00 036430 MOVEM UPMP+KNTRP
BSETZMUPMPMUUOC 031141 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP LOCATIONS
BSETZMUPMPMUUOC 031142 402 00 0 00 036425 SETZM UPMP+MUUO+1
BMOVSIC 031143 205 00 0 00 040000 MOVSI 1B21 ;SET UP UUO TO EXECUTE
BMOVEMBWMUUOC 031144 202 00 0 00 031146 MOVEM BWMUUO ;AND STORE IT
BHRRMBWMUUOC 031145 542 07 0 00 031146 HRRM 7,BWMUUO ;AN A NEW PC
BBWMUUOC 031146 000000 000000 BWMUUO: 0 ;THIS IS THE UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN CONCEALED,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031147 036 13 0 00 033264
BXALLERLP2BWMSTC 031150 035 02 0 00 031132 ERLP2 BWMST
BBWMUPCHRRZUPMPMUUOC 031151 550 00 0 00 036424 BWMUPC: HRRZ UPMP+MUUO
BCAMEC 031152 312 00 0 00 000007 CAME 7 ;CORRECT E STORED
BERROR1C ERROR1 13,C,A,MUUO DID NOT STORE E CORRECTLY,^
BSALLERUUOTTSIXBITCCASIXBITC 031153 036 13 0 00 033267
BXALLERLP2BWMSTC 031154 035 02 0 00 031132 ERLP2 BWMST
BADDIC 031155 271 07 0 00 001000 ADDI 7,1000 ;NEXT E FIELD
BTLNEC 031156 603 07 0 00 000001 TLNE 7,1 ;DONE 2^18TH TESTS?
BJRSTCXMBEGC 031157 254 00 0 00 031164 JRST CXMBEG ;NEXT SET
BJRSTBWMSTC 031160 254 00 0 00 031132 JRST BWMST ;LOOP TEST
BJRSTCXMBEGC 031161 254 00 0 00 031164 JRST CXMBEG ;GO TO NEXT SET
BBWERRERROR1C 031162 BWERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP,^
BSALLERUUOTTSIXBITCCASIXBITC 031162 036 13 0 00 033272
BXALLERLP2BWMSTC 031163 035 02 0 00 031132 ERLP2 BWMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 11
DFKEBM MAC 13-Jan-89 13:45 PUBLIC TESTING
BSUBTTLC SUBTTL PUBLIC TESTING
BC
BC ;*MONITOR UUO TEST - TRAPPING IN PUBLIC MODE
BC
BSALLC SALL
BSIXBTZSIXBITTC 033275 T=SIXBTZ MONITOR UUO TEST - TRAPPING IN PUBLIC MODE
BLALLC LALL
BUPMPMUUOAC 036424 A=UPMP+MUUO ;DATA STORED
BCXMUUOCC 031205 C=CXMUUO ;CORRECT DATA
BC
BCXMBEGPAGEPNC 031164 CXMBEG: PAGEPN^
BSETZMCNSFLGC 031164 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031165 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVEIC 031166 201 00 0 00 000040 MOVEI 40 ;SET UP TEST
BMOVEMCOUNTCOUNTC 031167 202 00 0 00 035006 MOVEM COUNT# ;COUNTER
BTNSETC TNSET^
BMOVEIC 031170 201 00 0 00 031170 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031171 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVSIC 031172 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMCXMUUOC 031173 202 00 0 00 031205 MOVEM CXMUUO ;FOR EXECUTION
BCXMSTGOPAGE1C 031174 260 17 0 00 033000 CXMST: GO PAGE1
BMOVEICXMUPCC 031175 201 00 0 00 031210 MOVEI CXMUPC ;SET UP UUO TRAP PC
BMOVEMUPMPPNTRPC 031176 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
BMOVEICXERRC 031177 201 00 0 00 031216 MOVEI CXERR ;SET UP FOR INCORRECT TRAP
BMOVEMUPMPKNTRPC 031200 202 00 0 00 036430 MOVEM UPMP+KNTRP
BMOVEMUPMPSNTRPC 031201 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPCNTRPC 031202 202 00 0 00 036434 MOVEM UPMP+CNTRP
BSETZMUPMPMUUOC 031203 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR UUO TRAP
BSETZMUPMPMUUOC 031204 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
BCXMUUOC 031205 000000 000000 CXMUUO: 0 ;THIS IS THE UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC,C(CORRECT)=MONITOR UUO^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031206 036 13 0 00 033312
BXALLERLP2CXMSTC 031207 035 02 0 00 031174 ERLP2 CXMST
BCXMUPCSKIPNCOUNTC 031210 336 00 0 00 035006 CXMUPC: SKIPN COUNT ;DONE 40 UUOS
BJRSTCYMBEGC 031211 254 00 0 00 031220 JRST CYMBEG ;YES DO NEXT SET
BMOVSIC 031212 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
BADDMCXMUUOC 031213 272 00 0 00 031205 ADDM CXMUUO ;ADD IN FOR NEXT UUO
BSOSCOUNTC 031214 370 00 0 00 035006 SOS COUNT ;FIX UP COUNTER
BJRSTCXMSTC 031215 254 00 0 00 031174 JRST CXMST ;LOOP
BCXERRERROR1C 031216 CXERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO PUBLIC NO TRAP,^
BSALLERUUOTTSIXBITCCASIXBITC 031216 036 13 0 00 033323
BXALLERLP2CXMSTC 031217 035 02 0 00 031174 ERLP2 CXMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 12
DFKEBM MAC 13-Jan-89 13:45 PUBLIC TESTING
BC ;*MONITOR UUO TEST - UUO STORE INTO 424
BC
BSALLC SALL
BSIXBTZSIXBITTC 033054 T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424
BLALLC LALL
BUPMPMUUOAC 036424 A=UPMP+MUUO ;ACTUAL DATA STORED
BCYMUUOCC 031241 C=CYMUUO ;CORRECT DATA LOCATION
BC
BCYMBEGPAGEPNC 031220 CYMBEG: PAGEPN^
BSETZMCNSFLGC 031220 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031221 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVEIC 031222 201 00 0 00 000040 MOVEI 40 ;SET UP TEST COUNTER
BMOVEMCOUNTC 031223 202 00 0 00 035006 MOVEM COUNT
BTNSETC TNSET^
BMOVEIC 031224 201 00 0 00 031224 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031225 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVSIC 031226 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMCYMUUOC 031227 202 00 0 00 031241 MOVEM CYMUUO ;FOR EXECUTION
BCYMSTGOPAGE1C 031230 260 17 0 00 033000 CYMST: GO PAGE1
BMOVEICYMUPCC 031231 201 00 0 00 031244 MOVEI CYMUPC ;SET UP UUO TRAP
BMOVEMUPMPPNTRPC 031232 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
BMOVEICYERRC 031233 201 00 0 00 031256 MOVEI CYERR ;SET UP FOR INCORECT TRAP
BMOVEMUPMPKNTRPC 031234 202 00 0 00 036430 MOVEM UPMP+KNTRP
BMOVEMUPMPSNTRPC 031235 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPCNTRPC 031236 202 00 0 00 036434 MOVEM UPMP+CNTRP
BSETZMUPMPMUUOC 031237 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP
BSETZMUPMPMUUOC 031240 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
BCYMUUOC 031241 000000 000000 CYMUUO: 0 ;EXECUTE THIS UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC MODE,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031242 036 13 0 00 033334
BXALLERLP2CYMSTC 031243 035 02 0 00 031230 ERLP2 CYMST
BCYMUPCMOVEUPMPMUUOC 031244 200 00 0 00 036424 CYMUPC: MOVE UPMP+MUUO ;GET WRITTEN UUO
BCAMECYMUUOC 031245 312 00 0 00 031241 CAME CYMUUO ;STORED CORRECTLY?
BERROR1C ERROR1 13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^
BSALLERUUOTTSIXBITCCASIXBITC 031246 036 13 0 00 033337
BXALLERLP2CYMSTC 031247 035 02 0 00 031230 ERLP2 CYMST
BSKIPNCOUNTC 031250 336 00 0 00 035006 SKIPN COUNT ;DONE 40 UUO'S
BJRSTCZMBEGC 031251 254 00 0 00 031260 JRST CZMBEG ;DO NEXT SET
BMOVSIC 031252 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
BADDMCYMUUOC 031253 272 00 0 00 031241 ADDM CYMUUO ;ADD IN FOR NEXT UUO
BSOSCOUNTC 031254 370 00 0 00 035006 SOS COUNT ;FIX UUO COUNTER
BJRSTCYMSTC 031255 254 00 0 00 031230 JRST CYMST ;LOOP
BCYERRERROR1C 031256 CYERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO PUBLIC TRAP,^
BSALLERUUOTTSIXBITCCASIXBITC 031256 036 13 0 00 033350
BXALLERLP2CYMBEGC 031257 035 02 0 00 031220 ERLP2 CYMBEG
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 13
DFKEBM MAC 13-Jan-89 13:45 PUBLIC TESTING
BC ;*MONITOR UUO TEST - STORING E CORRECTLY
BC
BSALLC SALL
BSIXBTZSIXBITTC 033353 T=SIXBTZ MONITOR UUO - STORING E CORRECTLY
BLALLC LALL
BCZMUUOCZMUUOCC 033361 C=[CZMUUO+1] ;CORRECT DATA
BAC 000000 A=0 ;ACTUAL DATA
BC
BCZMBEGPAGEPNC 031260 CZMBEG: PAGEPN^
BSETZMCNSFLGC 031260 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031261 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BSETZMUPMPMUUOC 031262 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MONITOR UUO
BSETZMUPMPMUUOC 031263 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;TRAP LOCATIONS
BTNSETC TNSET^
BMOVEIC 031264 201 00 0 00 031264 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031265 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVSIC 031266 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMCZMUUOC 031267 202 00 0 00 031301 MOVEM CZMUUO ;TO BE EXECUTED
BCZMSTGOPAGE1C 031270 260 17 0 00 033000 CZMST: GO PAGE1
BMOVEICZMUPCC 031271 201 00 0 00 031304 MOVEI CZMUPC ;SET UP TRAP INSTRUCTION
BMOVEMUPMPPNTRPC 031272 202 00 0 00 036436 MOVEM UPMP+PNTRP
BMOVEICZERRC 031273 201 00 0 00 031311 MOVEI CZERR ;SET UP FOR INCORRECT TRAP
BMOVEMUPMPCNTRPC 031274 202 00 0 00 036434 MOVEM UPMP+CNTRP
BMOVEMUPMPSNTRPC 031275 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPKNTRPC 031276 202 00 0 00 036430 MOVEM UPMP+KNTRP
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 031277 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031300 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BCZMUUOC 031301 000000 000000 CZMUUO: 0 ;EXECUTABLE UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031302 036 13 0 00 033362
BXALLERLP2CZMSTC 031303 035 02 0 00 031270 ERLP2 CZMST
BCZMUPCHRRZUPMPMUUOC 031304 550 00 0 00 036425 CZMUPC: HRRZ 0,UPMP+MUUO+1 ;GET THE PC OF THE UUO
BCAIECZMUUOC 031305 302 00 0 00 031302 CAIE CZMUUO+1 ;PC+1 OF THE UUO SHOULD BE STORED
BERROR1C ERROR1 13,C,A,MUUO DID NOT STORE THE CORRECT PC,^
BSALLERUUOTTSIXBITCCASIXBITC 031306 036 13 0 00 033365
BXALLERLP2CZMSTC 031307 035 02 0 00 031270 ERLP2 CZMST
BJRSTCWMBEGC 031310 254 00 0 00 031313 JRST CWMBEG ;GO TO NEXT SET
BCZERRERROR1C 031311 CZERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO PUBLIC,^
BSALLERUUOTTSIXBITCCASIXBITC 031311 036 13 0 00 033375
BXALLERLP2CZMBEGC 031312 035 02 0 00 031260 ERLP2 CZMBEG
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 14
DFKEBM MAC 13-Jan-89 13:45 PUBLIC TESTING
BC ;*MONITOR UUO - STORING E CORRECTLY
BC
BSALLC SALL
BSIXBTZSIXBITTC 033250 T=SIXBTZ MUUO STORING THE CORRECT E FIELD
BLALLC LALL
BAC 000001 A=1 ;ACTUAL DATA
BCC 000007 C=7 ;CORRECT DATA
BC
BCWMBEGPAGEPNC 031313 CWMBEG: PAGEPN^
BSETZMCNSFLGC 031313 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031314 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BTNSETC TNSET^
BMOVEIC 031315 201 00 0 00 031315 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031316 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVEIC 031317 201 07 0 00 001000 MOVEI 7,1000 ;FIRST E FEILD TO TEST
BCWMSTGOPAGE1C 031320 260 17 0 00 033000 CWMST: GO PAGE1
BMOVEICWMUPCC 031321 201 00 0 00 031341 MOVEI CWMUPC ;SET UP MUUO TRAP INSTUCTION
BMOVEMUPMPPNTRPC 031322 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
BMOVEICWERRC 031323 201 00 0 00 031352 MOVEI CWERR ;SET UP FOR INCORRECT TRAP
BMOVEMUPMPSNTRPC 031324 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPCNTRPC 031325 202 00 0 00 036434 MOVEM UPMP+CNTRP
BMOVEMUPMPKNTRPC 031326 202 00 0 00 036430 MOVEM UPMP+KNTRP
BSETZMUPMPMUUOC 031327 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP LOCATIONS
BSETZMUPMPMUUOC 031330 402 00 0 00 036425 SETZM UPMP+MUUO+1
BMOVSIC 031331 205 00 0 00 040000 MOVSI 1B21 ;SET UP UUO TO EXECUTE
BMOVEMCWMUUOC 031332 202 00 0 00 031336 MOVEM CWMUUO ;AND STORE IT
BHRRMCWMUUOC 031333 542 07 0 00 031336 HRRM 7,CWMUUO ;AN A NEW PC
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 031334 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031335 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BCWMUUOC 031336 000000 000000 CWMUUO: 0 ;THIS IS THE UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031337 036 13 0 00 033400
BXALLERLP2CWMSTC 031340 035 02 0 00 031320 ERLP2 CWMST
BCWMUPCHRRZUPMPMUUOC 031341 550 00 0 00 036424 CWMUPC: HRRZ UPMP+MUUO
BCAMEC 031342 312 00 0 00 000007 CAME 7 ;CORRECT E STORED
BERROR1C ERROR1 13,C,A,MUUO DID NOT STORE E CORRECTLY,^
BSALLERUUOTTSIXBITCCASIXBITC 031343 036 13 0 00 033267
BXALLERLP2CWMSTC 031344 035 02 0 00 031320 ERLP2 CWMST
BADDIC 031345 271 07 0 00 001000 ADDI 7,1000 ;NEXT E FIELD
BTLNEC 031346 603 07 0 00 000001 TLNE 7,1 ;DONE 2^18TH TESTS?
BJRSTDXMBEGC 031347 254 00 0 00 031354 JRST DXMBEG ;DO NEXT TEST
BJRSTCWMSTC 031350 254 00 0 00 031320 JRST CWMST ;LOOP TEST
BJRSTDXMBEGC 031351 254 00 0 00 031354 JRST DXMBEG ;GO TO NEXT TEST
BCWERRERROR1C 031352 CWERR: ERROR1 13,C,A,MUUO DID NOT TRAP TO PUBLIC,^
BSALLERUUOTTSIXBITCCASIXBITC 031352 036 13 0 00 033403
BXALLERLP2CWMSTC 031353 035 02 0 00 031320 ERLP2 CWMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 15
DFKEBM MAC 13-Jan-89 13:45 PUBLIC TESTING
BC ;*MONITOR UUO TEST - TRAPPING
BC
BSALLC SALL
BSIXBTZSIXBITTC 033406 T=SIXBTZ MONITOR UUO TEST - TRAPPING
BLALLC LALL
BUPMPMUUOAC 036424 A=UPMP+MUUO ;DATA STORED
BDXMUUOCC 031375 C=DXMUUO ;CORRECT DATA
BC
BDXMBEGPAGEPNC 031354 DXMBEG: PAGEPN^
BSETZMCNSFLGC 031354 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031355 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVEIC 031356 201 00 0 00 000040 MOVEI 40 ;SET UP TEST
BMOVEMCOUNTCOUNTC 031357 202 00 0 00 035006 MOVEM COUNT# ;COUNTER
BTNSETC TNSET^
BMOVEIC 031360 201 00 0 00 031360 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031361 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVSIC 031362 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMDXMUUOC 031363 202 00 0 00 031375 MOVEM DXMUUO ;FOR EXECUTION
BDXMSTGOPAGE1C 031364 260 17 0 00 033000 DXMST: GO PAGE1
BMOVEIDXMUPCC 031365 201 00 0 00 031403 MOVEI DXMUPC ;SET UP UUO TRAP PC
BMOVEMUPMPPNTRPC 031366 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
BSETZMUPMPMUUOC 031367 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR UUO TRAP
BSETZMUPMPMUUOC 031370 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
BMOVEIDXMUERC 031371 201 00 0 00 031400 MOVEI DXMUER ;ERROR TRAP ADRESS
BMOVEMUPMPCNTRPC 031372 202 00 0 00 036434 MOVEM UPMP+CNTRP
BMOVEMUPMPSNTRPC 031373 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPKNTRPC 031374 202 00 0 00 036430 MOVEM UPMP+KNTRP
BDXMUUOC 031375 000000 000000 DXMUUO: 0 ;THIS IS THE UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP,C(CORRECT)=MONITOR UUO^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031376 036 13 0 00 033413
BXALLERLP2DXMSTC 031377 035 02 0 00 031364 ERLP2 DXMST
BDXMUERERROR1C 031400 DXMUER: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP IN PUBLIC,^
BSALLERUUOTTSIXBITCCASIXBITC 031400 036 13 0 00 033426
BXALLERLP2DXMSTC 031401 035 02 0 00 031364 ERLP2 DXMST
BJRSTDYMBEGC 031402 254 00 0 00 031411 JRST DYMBEG ;GO TO NEXT TEST
BDXMUPCSKIPNCOUNTC 031403 336 00 0 00 035006 DXMUPC: SKIPN COUNT ;DONE 40 UUOS
BJRSTDYMBEGC 031404 254 00 0 00 031411 JRST DYMBEG ;YES DO NEXT SET
BMOVSIC 031405 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
BADDMDXMUUOC 031406 272 00 0 00 031375 ADDM DXMUUO ;ADD IN FOR NEXT UUO
BSOSCOUNTC 031407 370 00 0 00 035006 SOS COUNT ;FIX UP COUNTER
BJRSTDXMSTC 031410 254 00 0 00 031364 JRST DXMST ;LOOP
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 16
DFKEBM MAC 13-Jan-89 13:45 PUBLIC TESTING
BC ;*MONITOR UUO TEST - UUO STORE INTO 424
BC
BSALLC SALL
BSIXBTZSIXBITTC 033054 T=SIXBTZ MONITOR UUO TEST - UUO STORE INTO 424
BLALLC LALL
BUPMPMUUOAC 036424 A=UPMP+MUUO ;ACTUAL DATA STORED
BDYMUUOCC 031432 C=DYMUUO ;CORRECT DATA LOCATION
BDYMBEGPAGEPNC 031411 DYMBEG: PAGEPN^
BSETZMCNSFLGC 031411 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031412 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVEIC 031413 201 00 0 00 000040 MOVEI 40 ;SET UP TEST COUNTER
BMOVEMCOUNTC 031414 202 00 0 00 035006 MOVEM COUNT
BTNSETC TNSET^
BMOVEIC 031415 201 00 0 00 031415 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031416 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVSIC 031417 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMDYMUUOC 031420 202 00 0 00 031432 MOVEM DYMUUO ;FOR EXECUTION
BDYMSTGOPAGE1C 031421 260 17 0 00 033000 DYMST: GO PAGE1
BMOVEIDYMUPCC 031422 201 00 0 00 031435 MOVEI DYMUPC ;SET UP UUO TRAP
BMOVEMUPMPPNTRPC 031423 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
BSETZMUPMPMUUOC 031424 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP
BSETZMUPMPMUUOC 031425 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;LOCATIONS
BMOVEIDYMUERC 031426 201 00 0 00 031447 MOVEI DYMUER ;ERROR TRAP ADRESS
BMOVEMUPMPKNTRPC 031427 202 00 0 00 036430 MOVEM UPMP+KNTRP
BMOVEMUPMPSNTRPC 031430 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPCNTRPC 031431 202 00 0 00 036434 MOVEM UPMP+CNTRP
BDYMUUOC 031432 000000 000000 DYMUUO: 0 ;EXECUTE THIS UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031433 036 13 0 00 033431
BXALLERLP2DYMSTC 031434 035 02 0 00 031421 ERLP2 DYMST
BDYMUPCMOVEUPMPMUUOC 031435 200 00 0 00 036424 DYMUPC: MOVE UPMP+MUUO ;GET WRITTEN UUO
BCAMEDYMUUOC 031436 312 00 0 00 031432 CAME DYMUUO ;STORED CORRECTLY?
BERROR1C ERROR1 13,C,A,CONTENTS OF 424 IS NOT EQUAL TO EXECUTED UUO,^
BSALLERUUOTTSIXBITCCASIXBITC 031437 036 13 0 00 033434
BXALLERLP2DYMSTC 031440 035 02 0 00 031421 ERLP2 DYMST
BSKIPNCOUNTC 031441 336 00 0 00 035006 SKIPN COUNT ;DONE 40 UUO'S
BJRSTDZMBEGC 031442 254 00 0 00 031451 JRST DZMBEG ;DO NEXT SET
BMOVSIC 031443 205 00 0 00 001000 MOVSI 1B26 ;SET UP FOR NEXT UUO
BADDMDYMUUOC 031444 272 00 0 00 031432 ADDM DYMUUO ;ADD IN FOR NEXT UUO
BSOSCOUNTC 031445 370 00 0 00 035006 SOS COUNT ;FIX UUO COUNTER
BJRSTDYMSTC 031446 254 00 0 00 031421 JRST DYMST ;LOOP
BDYMUERERROR1C 031447 DYMUER: ERROR1 13,C,A,MUUO TRAPPED TO WRONG TRAP IN PUBLIC,^
BSALLERUUOTTSIXBITCCASIXBITC 031447 036 13 0 00 033446
BXALLERLP2DYMSTC 031450 035 02 0 00 031421 ERLP2 DYMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 17
DFKEBM MAC 13-Jan-89 13:45 PUBLIC TESTING
BDZMUUOCC 031470 C=DZMUUO
BC
BDZMBEGPAGEPNC 031451 DZMBEG: PAGEPN^
BSETZMCNSFLGC 031451 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031452 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BSETZMUPMPMUUOC 031453 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MONITOR UUO
BSETZMUPMPMUUOC 031454 402 00 0 00 036425 SETZM UPMP+MUUO+1 ;TRAP LOCATIONS
BTNSETC TNSET^
BMOVEIC 031455 201 00 0 00 031455 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031456 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BMOVSIC 031457 205 00 0 00 040000 MOVSI 1B21 ;SET UP FIRST UUO
BMOVEMDZMUUOC 031460 202 00 0 00 031470 MOVEM DZMUUO ;TO BE EXECUTED
BDZMSTGOPAGE1C 031461 260 17 0 00 033000 DZMST: GO PAGE1
BMOVEIDZMUPCC 031462 201 00 0 00 031473 MOVEI DZMUPC ;SET UP TRAP INSTRUCTION
BMOVEMUPMPPNTRPC 031463 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
BMOVEIDZMUERC 031464 201 00 0 00 031500 MOVEI DZMUER ;ERROR TRAP ADRESS
BMOVEMUPMPKNTRPC 031465 202 00 0 00 036430 MOVEM UPMP+KNTRP
BMOVEMUPMPSNTRPC 031466 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPCNTRPC 031467 202 00 0 00 036434 MOVEM UPMP+CNTRP
BDZMUUOC 031470 000000 000000 DZMUUO: 0 ;EXECUTABLE UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC,^
BSALLERUUOTTSIXBITCCASIXBITC 031471 036 13 0 00 033451
BXALLERLP2DZMSTC 031472 035 02 0 00 031461 ERLP2 DZMST
BDZMUPCHRRZUPMPMUUOC 031473 550 00 0 00 036425 DZMUPC: HRRZ 0,UPMP+MUUO+1 ;GET THE PC OF THE UUO
BCAIEDZMUUOC 031474 302 00 0 00 031471 CAIE DZMUUO+1 ;PC+1 OF THE UUO SHOULD BE STORED
BERROR1C ERROR1 13,C,A,MUUO DID NOT STORE THE CORRECT PC,^
BSALLERUUOTTSIXBITCCASIXBITC 031475 036 13 0 00 033454
BXALLERLP2DZMSTC 031476 035 02 0 00 031461 ERLP2 DZMST
BJRSTDWMBEGC 031477 254 00 0 00 031502 JRST DWMBEG ;GO TO NEXT TEST
BDZMUERERROR1C 031500 DZMUER: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP IN PUBLIC,^
BSALLERUUOTTSIXBITCCASIXBITC 031500 036 13 0 00 033457
BXALLERLP2DZMSTC 031501 035 02 0 00 031461 ERLP2 DZMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 18
DFKEBM MAC 13-Jan-89 13:45 PUBLIC TESTING
BUPMPMUUOAC 036424 A=UPMP+MUUO
BDWMUUOCC 031523 C=DWMUUO
BC
BDWMBEGPAGEPNC 031502 DWMBEG: PAGEPN^
BSETZMCNSFLGC 031502 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031503 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BTNSETC TNSET^
BMOVEIC 031504 201 00 0 00 031504 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031505 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BMOVEIC 031506 201 07 0 00 001000 MOVEI 7,1000 ;FIRST E FEILD TO TEST
BDWMSTGOPAGE1C 031507 260 17 0 00 033000 DWMST: GO PAGE1
BMOVEIDWMUPCC 031510 201 00 0 00 031526 MOVEI DWMUPC ;SET UP MUUO TRAP INSTUCTION
BMOVEMUPMPPNTRPC 031511 202 00 0 00 036436 MOVEM UPMP+PNTRP ;INTO PUBLIC NO TRAP
BSETZMUPMPMUUOC 031512 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO TRAP LOCATIONS
BSETZMUPMPMUUOC 031513 402 00 0 00 036425 SETZM UPMP+MUUO+1
BMOVEIDWMUERC 031514 201 00 0 00 031536 MOVEI DWMUER ;UUO ERROR TRAP
BMOVEMUPMPKNTRPC 031515 202 00 0 00 036430 MOVEM UPMP+KNTRP
BMOVEMUPMPSNTRPC 031516 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPCNTRPC 031517 202 00 0 00 036434 MOVEM UPMP+CNTRP
BMOVSIC 031520 205 00 0 00 040000 MOVSI 1B21 ;SET UP UUO TO EXECUTE
BMOVEMDWMUUOC 031521 202 00 0 00 031523 MOVEM DWMUUO ;AND STORE IT
BHRRMC 031522 542 07 0 00 031523 HRRM 7,.+1
BDWMUUOC 031523 000000 000000 DWMUUO: 0 ;THIS IS THE UUO
BERROR1C ERROR1 13,C,A,MUUO DID NOT TRAP IN PUBLIC MODE,^
BSALLERUUOTTSIXBITCCASIXBITC 031524 036 13 0 00 033462
BXALLERLP2DWMSTC 031525 035 02 0 00 031507 ERLP2 DWMST
BDWMUPCHRRZUPMPMUUOC 031526 550 00 0 00 036424 DWMUPC: HRRZ UPMP+MUUO
BCAMEC 031527 312 00 0 00 000007 CAME 7 ;CORRECT E STORED
BERROR1C ERROR1 13,C,A,MUUO DID NOT STORE E CORRECTLY,^
BSALLERUUOTTSIXBITCCASIXBITC 031530 036 13 0 00 033465
BXALLERLP2DWMSTC 031531 035 02 0 00 031507 ERLP2 DWMST
BADDIC 031532 271 07 0 00 001000 ADDI 7,1000 ;NEXT E FIELD
BTLNEC 031533 603 07 0 00 000001 TLNE 7,1 ;DONE 2^18TH TESTS?
BJRSTSUPERXC 031534 254 00 0 00 031540 JRST SUPERX ;CHECK SUPERVISOR MODE!
BJRSTDWMSTC 031535 254 00 0 00 031507 JRST DWMST ;LOOP TEST
BDWMUERERROR1C 031536 DWMUER: ERROR1 13,C,A,MUUO DID NOT TRAP TO CORRECT TRAP IN PUBLIC,^
BSALLERUUOTTSIXBITCCASIXBITC 031536 036 13 0 00 033470
BXALLERLP2DWMSTC 031537 035 02 0 00 031507 ERLP2 DWMST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 19
DFKEBM MAC 13-Jan-89 13:45 SUPERVISOR TESTING
BSUBTTLC SUBTTL SUPERVISOR TESTING
BC
BC ;*SET UP PHYSICAL ADRESSES TO LOOK LIKE ITS RUNNING IN 400000 AND BEYOND
BC ;*EXECUTE A MUUO IN SUPERVISOR AND EXPECT TO TRAP.
BC ;*IF WE DON'T TRAP THEN WE EXIT SUPERVISOR WITH A 'JRST 1," TO THE
BC ;*ERROR ROUTINE
BC
BAC 000000 A=0
BCC 000000 C=0
BSALLC SALL
BSIXBTZSIXBITTC 033473 T=SIXBTZ SUPERVISOR MODE TEST
BLALLC LALL
BC
BSUPERXMOVEIC 031540 201 16 0 00 000002 SUPERX: MOVEI 16,2
BSUP00TNSETC 031541 SUP00: TNSET^
BMOVEIC 031541 201 00 0 00 031541 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031542 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVEISUPRTNC 031543 201 00 0 00 031574 MOVEI SUPRTN ;CORRECT RETURN
BMOVEMSNTRPC 031544 202 00 0 00 000432 MOVEM SNTRP ;INTO SUPERVISOR NO-TRAP
BMOVEISUPER1C 031545 201 00 0 00 031572 MOVEI SUPER1 ;SUPERVISOR TRAP ERROR
BMOVEMKNTRPC 031546 202 00 0 00 000430 MOVEM KNTRP
BMOVEMKTRPC 031547 202 00 0 00 000431 MOVEM KTRP
BMOVEMPNTRPC 031550 202 00 0 00 000436 MOVEM PNTRP
BMOVEMPTRPC 031551 202 00 0 00 000437 MOVEM PTRP
BMOVEMCNTRPC 031552 202 00 0 00 000434 MOVEM CNTRP
BMOVEMCTRPC 031553 202 00 0 00 000435 MOVEM CTRP
BSUPEXC SUPEX^
BLALLC LALL
BC ;THIS SECTION PUTS THE PROCESSOR INTO SUPERVISOR MODE.
BC ;PAGE TABLE SETUP
BMOVSIUPMPC 031554 205 00 0 00 740036 MOVSI 740000!<UPMP_-^D9>
BMOVEMC 031555 202 00 0 00 000200 MOVEM 200 ;STORE PAGE WORD
BCONOPAGLTRPENC 031556 7 010 20 0 00 020000 CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 031557 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000]
BC ^
BMOVEAOBJNC 031560 200 00 0 00 033477 MOVE [AOBJN 0,400001]
BMOVEMC 031561 202 00 0 00 400000 MOVEM 400000
BSETZBC 031562 403 00 0 00 400001 SETZB 0,400001 ;AND MUUO 0 INTO NEXT LOCATION
BMOVEJRSTSUPER2C 031563 200 00 0 00 033500 MOVE [JRST 1,SUPER2] ;SET UP TRAP INSTRUCTION
BMOVEMC 031564 202 00 0 00 400002 MOVEM 400002 ;IN CASE MUUO DOES NOT TRAP.
BJRSTC 031565 254 01 0 00 400000 JRST 1,400000 ;ENTER SUPERVISOR
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 20
DFKEBM MAC 13-Jan-89 13:45 SUPERVISOR TESTING
BSUPER2JFCLC 031566 255 00 0 00 000000 SUPER2: JFCL
BERROR1C ERROR1 13,C,A,MUUO DID NOT CAUSE TRAP TO KERNAL FROM SUPERVISOR,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031567 036 13 0 00 033512
BXALLERLP2SUP00C 031570 035 02 0 00 031541 ERLP2 SUP00
BJRSTSPNXTC 031571 254 00 0 00 031575 JRST SPNXT
BC
BSUPER1ERROR1C 031572 SUPER1: ERROR1 13,C,A,MUUO DID NOT TRAP TO SUPERVISOR TRAP,^
BSALLERUUOTTSIXBITCCASIXBITC 031572 036 13 0 00 033524
BXALLERLP2SUP00C 031573 035 02 0 00 031541 ERLP2 SUP00
BC
BSUPRTNSOJGESUP00C 031574 365 16 0 00 031541 SUPRTN: SOJGE 16,SUP00
BSPNXTTNSETC 031575 SPNXT: TNSET^
BMOVEIC 031575 201 00 0 00 031575 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031576 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 21
DFKEBM MAC 13-Jan-89 13:45 TRAP TESTING
BSUBTTLC SUBTTL TRAP TESTING
BC
BC ;*CAUSE TRAPS VIA JRSTF INSTRUCTION
BC ;*TRAP WILL CAUSE A MOVEI TO BE EXECUTED PUTING THE TRAP ADDRESS INTO
BC ;*AC0 WHICH IS THEN CHECKED FOR BEING THE CORRECT TRAP
BC ;*TRAP RETURN WILL CHECK FOR CORRECT PC STORED IN IN 0
BC
BSALLC SALL
BSIXBTZSIXBITTC 033527 T=SIXBTZ AROV TRAP TEST
BLALLC LALL
BAROVTPAROVTPCC 033532 C=[AROVTP] ;CORRECT DATA
BAC 000000 A=0 ;ACTUAL DATA
BTRAP0SETZC 031577 400 00 0 00 000000 TRAP0: SETZ ;CLEAR AC0
BTNSETC TNSET^
BMOVEIC 031600 201 00 0 00 031600 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031601 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BRESETC 031602 700 04 0 00 200000 RESET
BTRPSETC 031603 264 00 0 00 032760 TRPSET
BTRAP0ACONOPAGLTRPENC 031604 7 010 20 0 00 020000 TRAP0A: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 031605 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;SET UP FOR ALLOWING TRAPS
BMOVEXWDTN1C 031606 200 00 0 00 033533 MOVE [XWD TN1,.+2] ;TRAP PC WORD FOR JRSTF
BJRSTFC 031607 254 02 1 00 000000 JRSTF @ ;CAUSE TRAP VIA JRSTF
BCAIEAROVTPC 031610 302 00 0 00 000421 CAIE 0,AROVTP ;TRAP DID NOT OCCUR
BERROR1C ERROR1 13,C,A,AROV DID NOT TRAP TO 421,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031611 036 13 0 00 033541
BXALLERLP2TRAP0AC 031612 035 02 0 00 031604 ERLP2 TRAP0A
BC
BC ;*TEST PUSHDOWN LIST OVERFLOW TRAP TO 422
BSALLC SALL
BSIXBTZSIXBITTC 033544 T=SIXBTZ PDLOV TRAP TEST
BLALLC LALL
BPDOVTPPDOVTPCC 033547 C=[PDOVTP] ;CORRECT DATA
BAC 000000 A=0 ;ACTUAL DATA
BC
BTRAP1SETZC 031613 400 00 0 00 000000 TRAP1: SETZ ;CLEAR AC0
BTNSETC TNSET^
BMOVEIC 031614 201 00 0 00 031614 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031615 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BRESETC 031616 700 04 0 00 200000 RESET
BTRPSETC 031617 264 00 0 00 032760 TRPSET
BTRAP1ACONOPAGLTRPENC 031620 7 010 20 0 00 020000 TRAP1A: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 031621 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;SET UP FOR ALLOWING TRAPS
BMOVEXWDTN0C 031622 200 00 0 00 033550 MOVE [XWD TN0,.+2] ;TRAP PC WORD FOR JRSTF
BJRSTFC 031623 254 02 1 00 000000 JRSTF @ ;CAUSE TRAP VIA JRSTF
BCAIEPDOVTPC 031624 302 00 0 00 000422 CAIE 0,PDOVTP ;TRAP DID NOT OCCUR
BERROR1C ERROR1 13,C,A,PDOVTP DID NOT TRAP TO 422,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031625 036 13 0 00 033556
BXALLERLP2TRAP1AC 031626 035 02 0 00 031620 ERLP2 TRAP1A
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 22
DFKEBM MAC 13-Jan-89 13:45 TRAP TESTING
BC ;*TRAP3 TRAP TEST TRAPPING TO 423
BC
BSALLC SALL
BSIXBTZSIXBITTC 033561 T=SIXBTZ TRAP3 TRAP TEST
BLALLC LALL
BTRP3TPTRP3TPCC 033564 C=[TRP3TP] ;CORRECT DATA
BAC 000000 A=0 ;ACTUAL DATA
BTRP02SETZC 031627 400 00 0 00 000000 TRP02: SETZ ;CLEAR AC0
BTNSETC TNSET^
BMOVEIC 031630 201 00 0 00 031630 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031631 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BRESETC 031632 700 04 0 00 200000 RESET
BTRPSETC 031633 264 00 0 00 032760 TRPSET
BCONOPAGLTRPENC 031634 7 010 20 0 00 020000 CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 031635 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;SET UP FOR ALLOWING TRAPS
BTRAP2AMOVEXWDTN0TN1C 031636 200 00 0 00 033565 TRAP2A: MOVE [XWD TN0!TN1,.+2] ;PC FOR JRSTF
BJRSTFC 031637 254 02 1 00 000000 JRSTF @ ;CAUSE TRAP VIA JRSTF
BCAIETRP3TPC 031640 302 00 0 00 000423 CAIE 0,TRP3TP ;TRAP DID NOT OCCUR
BERROR1C ERROR1 13,C,A,TRAP3 TRAP DID NOT TRAP TO 423,^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031641 036 13 0 00 033574
BXALLERLP2TRAP2AC 031642 035 02 0 00 031636 ERLP2 TRAP2A
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 23
DFKEBM MAC 13-Jan-89 13:45 FLAG SETTING
BSUBTTLC SUBTTL FLAG SETTING
BMODEC 000001 MODE=1
BC
BFLGTSTC FLGTST USERF,<MUUO DID NOT RE-ENTER USER-MODE>^
BLALLC ;*TRY TO SET USERF VIA MONITOR UUO TRAP
BC ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
BC
BAC 000001 A=1 ;ACTUAL FLAGS AND PC STORED
BUSERFUSERF..0001CC 033577 C=[USERF,,..0001] ;CORRECT FLAGS AND PC
BC
B..0002CONOPAGLTRPENC 031643 7 010 20 0 00 020000 ..0002: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 031644 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BTNSETC TNSET^
BMOVEIC 031645 201 00 0 00 031645 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031646 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BJFCLC 031647 255 17 0 00 031650 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
BSKIPNMODEMODEC 031650 336 00 0 00 033600 SKIPN [MODE] ;DONT PAGE IF MODE = 0
BJRSTC 031651 254 00 0 00 031654 JRST .+3
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 031652 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031653 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVSIC 031654 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
BMOVEM..0003C 031655 202 00 0 00 031671 MOVEM ..0003 ;STORE UUO TO DO
BMOVEUSERFUSERF..0001C 031656 200 00 0 00 033577 MOVE [USERF,,..0001] ;PC AND FLAGS TO RESTORE
BMOVEMUPMPLCNTRPC 031657 202 00 0 00 036434 MOVEM UPMP+LCNTRP
BMOVEMUPMPLCTRPC 031660 202 00 0 00 036435 MOVEM UPMP+LCTRP
BMOVEMUPMPLPNTRPC 031661 202 00 0 00 036436 MOVEM UPMP+LPNTRP
BMOVEMUPMPLPTRPC 031662 202 00 0 00 036437 MOVEM UPMP+LPTRP
BMOVEMUPMPLSNTRPC 031663 202 00 0 00 036432 MOVEM UPMP+LSNTRP
BMOVEMUPMPLSTRPC 031664 202 00 0 00 036433 MOVEM UPMP+LSTRP
BMOVEMLKNTRPC 031665 202 00 0 00 000430 MOVEM LKNTRP
BMOVEMLKTRPC 031666 202 00 0 00 000431 MOVEM LKTRP
BSETZMUPMPLMUUOC 031667 402 00 0 00 036424 SETZM UPMP+LMUUO
BSETZMUPMPLMUUOPC 031670 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
B..0003C 031671 000000 000000 ..0003: 0 ;HERE IS THE UUO
BERRORC ERROR ..0002,13,C,A,MUUO DID NOT CAUSE TRAP^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031672 036 13 0 00 033605
BXALLERLOOP..0002C 031673 035 00 0 00 031643 ERLOOP ..0002 ;IF ERROR, LOOP TO ..0002
BLALL..0001JSPC 031674 265 01 0 00 031675 ..0001: JSP 1,.+1 ;GET FLAGS
BTLNNUSERFC 031675 607 01 0 00 010000 TLNN 1,USERF ;ARE USERF(S) SET?
BERRORC ERROR ..0002,13,C,A,MUUO DID NOT RE-ENTER USER-MODE^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031676 036 13 0 00 033616
BXALLERLOOP..0002C 031677 035 00 0 00 031643 ERLOOP ..0002 ;IF ERROR, LOOP TO ..0002
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 24
DFKEBM MAC 13-Jan-89 13:45 FLAG SETTING
BC ;*THIS ROUTINE TO BRING US BACK TO KERNAL MODE FROM USER
BC ;*MODE RESTORE VIA MUUO
BC
BUSRRTNMOVEUEXTUEXTC 031700 200 00 0 00 033621 USRRTN: MOVE [UEXT] ;PC FOR RETURN
BMOVEMUPMPKNTRPC 031701 202 00 0 00 036430 MOVEM UPMP+KNTRP
BMOVEMUPMPPNTRPC 031702 202 00 0 00 036436 MOVEM UPMP+PNTRP
BMOVEMUPMPSNTRPC 031703 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPCNTRPC 031704 202 00 0 00 036434 MOVEM UPMP+CNTRP
BMOVEMUPMPSTRPC 031705 202 00 0 00 036433 MOVEM UPMP+STRP
BMOVEMUPMPKTRPC 031706 202 00 0 00 036431 MOVEM UPMP+KTRP
BMOVEMUPMPCTRPC 031707 202 00 0 00 036435 MOVEM UPMP+CTRP
BMOVEMUPMPPTRPC 031710 202 00 0 00 036437 MOVEM UPMP+PTRP
BMOVSIC 031711 205 00 0 00 040000 MOVSI 1B21
BMOVEMC 031712 202 00 0 00 031713 MOVEM .+1 ;UUO TO GET US OUT
BUSREXTC 031713 000000 000000 USREXT: 0 ;DO THIS UUO TO EXIT TO KERNAL
BHALTC 031714 254 04 0 00 031714 HALT . ;FATAL ERROR (DID NOT ENTER KERNAL
BUEXTJSPC 031715 265 00 0 00 031716 UEXT: JSP .+1 ;GET FLAGS
BTLNEUSERFC 031716 603 00 0 00 010000 TLNE USERF ;STILL IN USER MODE
BHALTC 031717 254 04 0 00 031720 HALT .+1 ;FATAL - TRAPPED FROM UUO BUT STILL
BJRSTC 031720 254 00 0 00 031721 JRST .+1 ;IN USER MODE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 25
DFKEBM MAC 13-Jan-89 13:45 FLAG SETTING
BMODEC 000001 MODE=1
BFLGTSTC FLGTST EXIOT,<MMUO DID NOT SET EXIOT FLAG>^
BLALLC ;*TRY TO SET EXIOT VIA MONITOR UUO TRAP
BC ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
BC
BAC 000001 A=1 ;ACTUAL FLAGS AND PC STORED
BEXIOTEXIOT..0004CC 033622 C=[EXIOT,,..0004] ;CORRECT FLAGS AND PC
BC
B..0005CONOPAGLTRPENC 031721 7 010 20 0 00 020000 ..0005: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 031722 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BTNSETC TNSET^
BMOVEIC 031723 201 00 0 00 031723 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031724 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BJFCLC 031725 255 17 0 00 031726 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
BSKIPNMODEMODEC 031726 336 00 0 00 033600 SKIPN [MODE] ;DONT PAGE IF MODE = 0
BJRSTC 031727 254 00 0 00 031732 JRST .+3
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 031730 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031731 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVSIC 031732 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
BMOVEM..0006C 031733 202 00 0 00 031747 MOVEM ..0006 ;STORE UUO TO DO
BMOVEEXIOTEXIOT..0004C 031734 200 00 0 00 033622 MOVE [EXIOT,,..0004] ;PC AND FLAGS TO RESTORE
BMOVEMUPMPLCNTRPC 031735 202 00 0 00 036434 MOVEM UPMP+LCNTRP
BMOVEMUPMPLCTRPC 031736 202 00 0 00 036435 MOVEM UPMP+LCTRP
BMOVEMUPMPLPNTRPC 031737 202 00 0 00 036436 MOVEM UPMP+LPNTRP
BMOVEMUPMPLPTRPC 031740 202 00 0 00 036437 MOVEM UPMP+LPTRP
BMOVEMUPMPLSNTRPC 031741 202 00 0 00 036432 MOVEM UPMP+LSNTRP
BMOVEMUPMPLSTRPC 031742 202 00 0 00 036433 MOVEM UPMP+LSTRP
BMOVEMLKNTRPC 031743 202 00 0 00 000430 MOVEM LKNTRP
BMOVEMLKTRPC 031744 202 00 0 00 000431 MOVEM LKTRP
BSETZMUPMPLMUUOC 031745 402 00 0 00 036424 SETZM UPMP+LMUUO
BSETZMUPMPLMUUOPC 031746 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
B..0006C 031747 000000 000000 ..0006: 0 ;HERE IS THE UUO
BERRORC ERROR ..0005,13,C,A,MUUO DID NOT CAUSE TRAP^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031750 036 13 0 00 033623
BXALLERLOOP..0005C 031751 035 00 0 00 031721 ERLOOP ..0005 ;IF ERROR, LOOP TO ..0005
BLALL..0004JSPC 031752 265 01 0 00 031753 ..0004: JSP 1,.+1 ;GET FLAGS
BTLNNEXIOTC 031753 607 01 0 00 004000 TLNN 1,EXIOT ;ARE EXIOT(S) SET?
BERRORC ERROR ..0005,13,C,A,MMUO DID NOT SET EXIOT FLAG^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 031754 036 13 0 00 033633
BXALLERLOOP..0005C 031755 035 00 0 00 031721 ERLOOP ..0005 ;IF ERROR, LOOP TO ..0005
BPAGEC PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 25-1
DFKEBM MAC 13-Jan-89 13:45 FLAG SETTING
BMODEC 000000 MODE=0
BFLGTSTC FLGTST AROV,<MUUO DID NOT SET ARITHMETIC OVERFLOW FLAG>^
BLALLC ;*TRY TO SET AROV VIA MONITOR UUO TRAP
BC ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
BC
BAC 000001 A=1 ;ACTUAL FLAGS AND PC STORED
BAROVAROV..0007CC 033636 C=[AROV,,..0007] ;CORRECT FLAGS AND PC
BC
B..0010CONOPAGLTRPENC 031756 7 010 20 0 00 020000 ..0010: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 031757 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BTNSETC TNSET^
BMOVEIC 031760 201 00 0 00 031760 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 031761 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BJFCLC 031762 255 17 0 00 031763 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
BSKIPNMODEMODEC 031763 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
BJRSTC 031764 254 00 0 00 031767 JRST .+3
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 031765 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 031766 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVSIC 031767 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
BMOVEM..0011C 031770 202 00 0 00 032004 MOVEM ..0011 ;STORE UUO TO DO
BMOVEAROVAROV..0007C 031771 200 00 0 00 033636 MOVE [AROV,,..0007] ;PC AND FLAGS TO RESTORE
BMOVEMUPMPLCNTRPC 031772 202 00 0 00 036434 MOVEM UPMP+LCNTRP
BMOVEMUPMPLCTRPC 031773 202 00 0 00 036435 MOVEM UPMP+LCTRP
BMOVEMUPMPLPNTRPC 031774 202 00 0 00 036436 MOVEM UPMP+LPNTRP
BMOVEMUPMPLPTRPC 031775 202 00 0 00 036437 MOVEM UPMP+LPTRP
BMOVEMUPMPLSNTRPC 031776 202 00 0 00 036432 MOVEM UPMP+LSNTRP
BMOVEMUPMPLSTRPC 031777 202 00 0 00 036433 MOVEM UPMP+LSTRP
BMOVEMLKNTRPC 032000 202 00 0 00 000430 MOVEM LKNTRP
BMOVEMLKTRPC 032001 202 00 0 00 000431 MOVEM LKTRP
BSETZMUPMPLMUUOC 032002 402 00 0 00 036424 SETZM UPMP+LMUUO
BSETZMUPMPLMUUOPC 032003 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
B..0011C 032004 000000 000000 ..0011: 0 ;HERE IS THE UUO
BERRORC ERROR ..0010,13,C,A,MUUO DID NOT CAUSE TRAP^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032005 036 13 0 00 033637
BXALLERLOOP..0010C 032006 035 00 0 00 031756 ERLOOP ..0010 ;IF ERROR, LOOP TO ..0010
BLALL..0007JSPC 032007 265 01 0 00 032010 ..0007: JSP 1,.+1 ;GET FLAGS
BTLNNAROVC 032010 607 01 0 00 400000 TLNN 1,AROV ;ARE AROV(S) SET?
BERRORC ERROR ..0010,13,C,A,MUUO DID NOT SET ARITHMETIC OVERFLOW FLAG^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032011 036 13 0 00 033651
BXALLERLOOP..0010C 032012 035 00 0 00 031756 ERLOOP ..0010 ;IF ERROR, LOOP TO ..0010
BPAGEC PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 25-2
DFKEBM MAC 13-Jan-89 13:45 FLAG SETTING
BFLGTSTC FLGTST CRY0,<MUUO DID NOT SET CRY0 FLAG>^
BLALLC ;*TRY TO SET CRY0 VIA MONITOR UUO TRAP
BC ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
BC
BAC 000001 A=1 ;ACTUAL FLAGS AND PC STORED
BCRY0CRY0..0012CC 033654 C=[CRY0,,..0012] ;CORRECT FLAGS AND PC
BC
B..0013CONOPAGLTRPENC 032013 7 010 20 0 00 020000 ..0013: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 032014 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BTNSETC TNSET^
BMOVEIC 032015 201 00 0 00 032015 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032016 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BJFCLC 032017 255 17 0 00 032020 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
BSKIPNMODEMODEC 032020 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
BJRSTC 032021 254 00 0 00 032024 JRST .+3
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 032022 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 032023 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVSIC 032024 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
BMOVEM..0014C 032025 202 00 0 00 032041 MOVEM ..0014 ;STORE UUO TO DO
BMOVECRY0CRY0..0012C 032026 200 00 0 00 033654 MOVE [CRY0,,..0012] ;PC AND FLAGS TO RESTORE
BMOVEMUPMPLCNTRPC 032027 202 00 0 00 036434 MOVEM UPMP+LCNTRP
BMOVEMUPMPLCTRPC 032030 202 00 0 00 036435 MOVEM UPMP+LCTRP
BMOVEMUPMPLPNTRPC 032031 202 00 0 00 036436 MOVEM UPMP+LPNTRP
BMOVEMUPMPLPTRPC 032032 202 00 0 00 036437 MOVEM UPMP+LPTRP
BMOVEMUPMPLSNTRPC 032033 202 00 0 00 036432 MOVEM UPMP+LSNTRP
BMOVEMUPMPLSTRPC 032034 202 00 0 00 036433 MOVEM UPMP+LSTRP
BMOVEMLKNTRPC 032035 202 00 0 00 000430 MOVEM LKNTRP
BMOVEMLKTRPC 032036 202 00 0 00 000431 MOVEM LKTRP
BSETZMUPMPLMUUOC 032037 402 00 0 00 036424 SETZM UPMP+LMUUO
BSETZMUPMPLMUUOPC 032040 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
B..0014C 032041 000000 000000 ..0014: 0 ;HERE IS THE UUO
BERRORC ERROR ..0013,13,C,A,MUUO DID NOT CAUSE TRAP^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032042 036 13 0 00 033655
BXALLERLOOP..0013C 032043 035 00 0 00 032013 ERLOOP ..0013 ;IF ERROR, LOOP TO ..0013
BLALL..0012JSPC 032044 265 01 0 00 032045 ..0012: JSP 1,.+1 ;GET FLAGS
BTLNNCRY0C 032045 607 01 0 00 200000 TLNN 1,CRY0 ;ARE CRY0(S) SET?
BERRORC ERROR ..0013,13,C,A,MUUO DID NOT SET CRY0 FLAG^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032046 036 13 0 00 033665
BXALLERLOOP..0013C 032047 035 00 0 00 032013 ERLOOP ..0013 ;IF ERROR, LOOP TO ..0013
BPAGEC PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 25-3
DFKEBM MAC 13-Jan-89 13:45 FLAG SETTING
BFLGTSTC FLGTST CRY1,<MUUO DID NOT SET CRY1 FLAG>^
BLALLC ;*TRY TO SET CRY1 VIA MONITOR UUO TRAP
BC ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
BC
BAC 000001 A=1 ;ACTUAL FLAGS AND PC STORED
BCRY1CRY1..0015CC 033670 C=[CRY1,,..0015] ;CORRECT FLAGS AND PC
BC
B..0016CONOPAGLTRPENC 032050 7 010 20 0 00 020000 ..0016: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 032051 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BTNSETC TNSET^
BMOVEIC 032052 201 00 0 00 032052 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032053 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BJFCLC 032054 255 17 0 00 032055 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
BSKIPNMODEMODEC 032055 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
BJRSTC 032056 254 00 0 00 032061 JRST .+3
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 032057 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 032060 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVSIC 032061 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
BMOVEM..0017C 032062 202 00 0 00 032076 MOVEM ..0017 ;STORE UUO TO DO
BMOVECRY1CRY1..0015C 032063 200 00 0 00 033670 MOVE [CRY1,,..0015] ;PC AND FLAGS TO RESTORE
BMOVEMUPMPLCNTRPC 032064 202 00 0 00 036434 MOVEM UPMP+LCNTRP
BMOVEMUPMPLCTRPC 032065 202 00 0 00 036435 MOVEM UPMP+LCTRP
BMOVEMUPMPLPNTRPC 032066 202 00 0 00 036436 MOVEM UPMP+LPNTRP
BMOVEMUPMPLPTRPC 032067 202 00 0 00 036437 MOVEM UPMP+LPTRP
BMOVEMUPMPLSNTRPC 032070 202 00 0 00 036432 MOVEM UPMP+LSNTRP
BMOVEMUPMPLSTRPC 032071 202 00 0 00 036433 MOVEM UPMP+LSTRP
BMOVEMLKNTRPC 032072 202 00 0 00 000430 MOVEM LKNTRP
BMOVEMLKTRPC 032073 202 00 0 00 000431 MOVEM LKTRP
BSETZMUPMPLMUUOC 032074 402 00 0 00 036424 SETZM UPMP+LMUUO
BSETZMUPMPLMUUOPC 032075 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
B..0017C 032076 000000 000000 ..0017: 0 ;HERE IS THE UUO
BERRORC ERROR ..0016,13,C,A,MUUO DID NOT CAUSE TRAP^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032077 036 13 0 00 033671
BXALLERLOOP..0016C 032100 035 00 0 00 032050 ERLOOP ..0016 ;IF ERROR, LOOP TO ..0016
BLALL..0015JSPC 032101 265 01 0 00 032102 ..0015: JSP 1,.+1 ;GET FLAGS
BTLNNCRY1C 032102 607 01 0 00 100000 TLNN 1,CRY1 ;ARE CRY1(S) SET?
BERRORC ERROR ..0016,13,C,A,MUUO DID NOT SET CRY1 FLAG^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032103 036 13 0 00 033701
BXALLERLOOP..0016C 032104 035 00 0 00 032050 ERLOOP ..0016 ;IF ERROR, LOOP TO ..0016
BPAGEC PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 25-4
DFKEBM MAC 13-Jan-89 13:45 FLAG SETTING
BFLGTSTC FLGTST FOV,<MUUO DID NOT SET FOV FLAG>^
BLALLC ;*TRY TO SET FOV VIA MONITOR UUO TRAP
BC ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
BC
BAC 000001 A=1 ;ACTUAL FLAGS AND PC STORED
BFOVFOV..0020CC 033704 C=[FOV,,..0020] ;CORRECT FLAGS AND PC
BC
B..0021CONOPAGLTRPENC 032105 7 010 20 0 00 020000 ..0021: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 032106 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BTNSETC TNSET^
BMOVEIC 032107 201 00 0 00 032107 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032110 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BJFCLC 032111 255 17 0 00 032112 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
BSKIPNMODEMODEC 032112 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
BJRSTC 032113 254 00 0 00 032116 JRST .+3
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 032114 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 032115 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVSIC 032116 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
BMOVEM..0022C 032117 202 00 0 00 032133 MOVEM ..0022 ;STORE UUO TO DO
BMOVEFOVFOV..0020C 032120 200 00 0 00 033704 MOVE [FOV,,..0020] ;PC AND FLAGS TO RESTORE
BMOVEMUPMPLCNTRPC 032121 202 00 0 00 036434 MOVEM UPMP+LCNTRP
BMOVEMUPMPLCTRPC 032122 202 00 0 00 036435 MOVEM UPMP+LCTRP
BMOVEMUPMPLPNTRPC 032123 202 00 0 00 036436 MOVEM UPMP+LPNTRP
BMOVEMUPMPLPTRPC 032124 202 00 0 00 036437 MOVEM UPMP+LPTRP
BMOVEMUPMPLSNTRPC 032125 202 00 0 00 036432 MOVEM UPMP+LSNTRP
BMOVEMUPMPLSTRPC 032126 202 00 0 00 036433 MOVEM UPMP+LSTRP
BMOVEMLKNTRPC 032127 202 00 0 00 000430 MOVEM LKNTRP
BMOVEMLKTRPC 032130 202 00 0 00 000431 MOVEM LKTRP
BSETZMUPMPLMUUOC 032131 402 00 0 00 036424 SETZM UPMP+LMUUO
BSETZMUPMPLMUUOPC 032132 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
B..0022C 032133 000000 000000 ..0022: 0 ;HERE IS THE UUO
BERRORC ERROR ..0021,13,C,A,MUUO DID NOT CAUSE TRAP^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032134 036 13 0 00 033705
BXALLERLOOP..0021C 032135 035 00 0 00 032105 ERLOOP ..0021 ;IF ERROR, LOOP TO ..0021
BLALL..0020JSPC 032136 265 01 0 00 032137 ..0020: JSP 1,.+1 ;GET FLAGS
BTLNNFOVC 032137 607 01 0 00 040000 TLNN 1,FOV ;ARE FOV(S) SET?
BERRORC ERROR ..0021,13,C,A,MUUO DID NOT SET FOV FLAG^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032140 036 13 0 00 033715
BXALLERLOOP..0021C 032141 035 00 0 00 032105 ERLOOP ..0021 ;IF ERROR, LOOP TO ..0021
BPAGEC PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 25-5
DFKEBM MAC 13-Jan-89 13:45 FLAG SETTING
BFLGTSTC FLGTST BIS,<MUUO DID NOT SET BIS FLAG>^
BLALLC ;*TRY TO SET BIS VIA MONITOR UUO TRAP
BC ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
BC
BAC 000001 A=1 ;ACTUAL FLAGS AND PC STORED
BBISBIS..0023CC 033720 C=[BIS,,..0023] ;CORRECT FLAGS AND PC
BC
B..0024CONOPAGLTRPENC 032142 7 010 20 0 00 020000 ..0024: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 032143 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BTNSETC TNSET^
BMOVEIC 032144 201 00 0 00 032144 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032145 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BJFCLC 032146 255 17 0 00 032147 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
BSKIPNMODEMODEC 032147 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
BJRSTC 032150 254 00 0 00 032153 JRST .+3
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 032151 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 032152 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVSIC 032153 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
BMOVEM..0025C 032154 202 00 0 00 032170 MOVEM ..0025 ;STORE UUO TO DO
BMOVEBISBIS..0023C 032155 200 00 0 00 033720 MOVE [BIS,,..0023] ;PC AND FLAGS TO RESTORE
BMOVEMUPMPLCNTRPC 032156 202 00 0 00 036434 MOVEM UPMP+LCNTRP
BMOVEMUPMPLCTRPC 032157 202 00 0 00 036435 MOVEM UPMP+LCTRP
BMOVEMUPMPLPNTRPC 032160 202 00 0 00 036436 MOVEM UPMP+LPNTRP
BMOVEMUPMPLPTRPC 032161 202 00 0 00 036437 MOVEM UPMP+LPTRP
BMOVEMUPMPLSNTRPC 032162 202 00 0 00 036432 MOVEM UPMP+LSNTRP
BMOVEMUPMPLSTRPC 032163 202 00 0 00 036433 MOVEM UPMP+LSTRP
BMOVEMLKNTRPC 032164 202 00 0 00 000430 MOVEM LKNTRP
BMOVEMLKTRPC 032165 202 00 0 00 000431 MOVEM LKTRP
BSETZMUPMPLMUUOC 032166 402 00 0 00 036424 SETZM UPMP+LMUUO
BSETZMUPMPLMUUOPC 032167 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
B..0025C 032170 000000 000000 ..0025: 0 ;HERE IS THE UUO
BERRORC ERROR ..0024,13,C,A,MUUO DID NOT CAUSE TRAP^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032171 036 13 0 00 033721
BXALLERLOOP..0024C 032172 035 00 0 00 032142 ERLOOP ..0024 ;IF ERROR, LOOP TO ..0024
BLALL..0023JSPC 032173 265 01 0 00 032174 ..0023: JSP 1,.+1 ;GET FLAGS
BTLNNBISC 032174 607 01 0 00 020000 TLNN 1,BIS ;ARE BIS(S) SET?
BERRORC ERROR ..0024,13,C,A,MUUO DID NOT SET BIS FLAG^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032175 036 13 0 00 033731
BXALLERLOOP..0024C 032176 035 00 0 00 032142 ERLOOP ..0024 ;IF ERROR, LOOP TO ..0024
BPAGEC PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 25-6
DFKEBM MAC 13-Jan-89 13:45 FLAG SETTING
BFLGTSTC FLGTST FXU,<MUUO DID NOT SET FXU FLAG>^
BLALLC ;*TRY TO SET FXU VIA MONITOR UUO TRAP
BC ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
BC
BAC 000001 A=1 ;ACTUAL FLAGS AND PC STORED
BFXUFXU..0026CC 033734 C=[FXU,,..0026] ;CORRECT FLAGS AND PC
BC
B..0027CONOPAGLTRPENC 032177 7 010 20 0 00 020000 ..0027: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 032200 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BTNSETC TNSET^
BMOVEIC 032201 201 00 0 00 032201 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032202 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BJFCLC 032203 255 17 0 00 032204 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
BSKIPNMODEMODEC 032204 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
BJRSTC 032205 254 00 0 00 032210 JRST .+3
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 032206 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 032207 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVSIC 032210 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
BMOVEM..0030C 032211 202 00 0 00 032225 MOVEM ..0030 ;STORE UUO TO DO
BMOVEFXUFXU..0026C 032212 200 00 0 00 033734 MOVE [FXU,,..0026] ;PC AND FLAGS TO RESTORE
BMOVEMUPMPLCNTRPC 032213 202 00 0 00 036434 MOVEM UPMP+LCNTRP
BMOVEMUPMPLCTRPC 032214 202 00 0 00 036435 MOVEM UPMP+LCTRP
BMOVEMUPMPLPNTRPC 032215 202 00 0 00 036436 MOVEM UPMP+LPNTRP
BMOVEMUPMPLPTRPC 032216 202 00 0 00 036437 MOVEM UPMP+LPTRP
BMOVEMUPMPLSNTRPC 032217 202 00 0 00 036432 MOVEM UPMP+LSNTRP
BMOVEMUPMPLSTRPC 032220 202 00 0 00 036433 MOVEM UPMP+LSTRP
BMOVEMLKNTRPC 032221 202 00 0 00 000430 MOVEM LKNTRP
BMOVEMLKTRPC 032222 202 00 0 00 000431 MOVEM LKTRP
BSETZMUPMPLMUUOC 032223 402 00 0 00 036424 SETZM UPMP+LMUUO
BSETZMUPMPLMUUOPC 032224 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
B..0030C 032225 000000 000000 ..0030: 0 ;HERE IS THE UUO
BERRORC ERROR ..0027,13,C,A,MUUO DID NOT CAUSE TRAP^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032226 036 13 0 00 033735
BXALLERLOOP..0027C 032227 035 00 0 00 032177 ERLOOP ..0027 ;IF ERROR, LOOP TO ..0027
BLALL..0026JSPC 032230 265 01 0 00 032231 ..0026: JSP 1,.+1 ;GET FLAGS
BTLNNFXUC 032231 607 01 0 00 000100 TLNN 1,FXU ;ARE FXU(S) SET?
BERRORC ERROR ..0027,13,C,A,MUUO DID NOT SET FXU FLAG^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032232 036 13 0 00 033745
BXALLERLOOP..0027C 032233 035 00 0 00 032177 ERLOOP ..0027 ;IF ERROR, LOOP TO ..0027
BPAGEC PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 25-7
DFKEBM MAC 13-Jan-89 13:45 FLAG SETTING
BFLGTSTC FLGTST DCK,<MUUO DID NOT SET DCK FLAG>^
BLALLC ;*TRY TO SET DCK VIA MONITOR UUO TRAP
BC ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
BC
BAC 000001 A=1 ;ACTUAL FLAGS AND PC STORED
BDCKDCK..0031CC 033750 C=[DCK,,..0031] ;CORRECT FLAGS AND PC
BC
B..0032CONOPAGLTRPENC 032234 7 010 20 0 00 020000 ..0032: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 032235 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BTNSETC TNSET^
BMOVEIC 032236 201 00 0 00 032236 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032237 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BJFCLC 032240 255 17 0 00 032241 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
BSKIPNMODEMODEC 032241 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
BJRSTC 032242 254 00 0 00 032245 JRST .+3
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 032243 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 032244 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVSIC 032245 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
BMOVEM..0033C 032246 202 00 0 00 032262 MOVEM ..0033 ;STORE UUO TO DO
BMOVEDCKDCK..0031C 032247 200 00 0 00 033750 MOVE [DCK,,..0031] ;PC AND FLAGS TO RESTORE
BMOVEMUPMPLCNTRPC 032250 202 00 0 00 036434 MOVEM UPMP+LCNTRP
BMOVEMUPMPLCTRPC 032251 202 00 0 00 036435 MOVEM UPMP+LCTRP
BMOVEMUPMPLPNTRPC 032252 202 00 0 00 036436 MOVEM UPMP+LPNTRP
BMOVEMUPMPLPTRPC 032253 202 00 0 00 036437 MOVEM UPMP+LPTRP
BMOVEMUPMPLSNTRPC 032254 202 00 0 00 036432 MOVEM UPMP+LSNTRP
BMOVEMUPMPLSTRPC 032255 202 00 0 00 036433 MOVEM UPMP+LSTRP
BMOVEMLKNTRPC 032256 202 00 0 00 000430 MOVEM LKNTRP
BMOVEMLKTRPC 032257 202 00 0 00 000431 MOVEM LKTRP
BSETZMUPMPLMUUOC 032260 402 00 0 00 036424 SETZM UPMP+LMUUO
BSETZMUPMPLMUUOPC 032261 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
B..0033C 032262 000000 000000 ..0033: 0 ;HERE IS THE UUO
BERRORC ERROR ..0032,13,C,A,MUUO DID NOT CAUSE TRAP^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032263 036 13 0 00 033751
BXALLERLOOP..0032C 032264 035 00 0 00 032234 ERLOOP ..0032 ;IF ERROR, LOOP TO ..0032
BLALL..0031JSPC 032265 265 01 0 00 032266 ..0031: JSP 1,.+1 ;GET FLAGS
BTLNNDCKC 032266 607 01 0 00 000040 TLNN 1,DCK ;ARE DCK(S) SET?
BERRORC ERROR ..0032,13,C,A,MUUO DID NOT SET DCK FLAG^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032267 036 13 0 00 033761
BXALLERLOOP..0032C 032270 035 00 0 00 032234 ERLOOP ..0032 ;IF ERROR, LOOP TO ..0032
BPAGEC PAGE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 25-8
DFKEBM MAC 13-Jan-89 13:45 FLAG SETTING
BFLGTSTC FLGTST CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,<MUUO DID NOT SET CRY0+CRY1+AROV+FOV+FXU+DCK+
BC BIS FLAGS>^
BLALLC ;*TRY TO SET CRY0+CRY1+AROV+FOV+FXU+DCK+BIS VIA MONITOR UUO TRAP
BC ;*TRAPS TO ANY MODE IS OK FOR THIS TEST
BC
BAC 000001 A=1 ;ACTUAL FLAGS AND PC STORED
BCRY0CRY0CRY1AROVFOVFXUDCKBIS..0034CC 033764 C=[CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,,..0034] ;CORRECT FLAGS AND PC
BC
B..0035CONOPAGLTRPENC 032271 7 010 20 0 00 020000 ..0035: CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 032272 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000] ;CLEAR BASE REGISTER
BTNSETC TNSET^
BMOVEIC 032273 201 00 0 00 032273 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032274 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BJFCLC 032275 255 17 0 00 032276 JFCL 17,.+1 ;CLEAR ANY AND ALL FLAGS
BSKIPNMODEMODEC 032276 336 00 0 00 033513 SKIPN [MODE] ;DONT PAGE IF MODE = 0
BJRSTC 032277 254 00 0 00 032302 JRST .+3
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 032300 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 032301 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BMOVSIC 032302 205 00 0 00 040000 MOVSI 1B21 ;UUO TO DO
BMOVEM..0036C 032303 202 00 0 00 032317 MOVEM ..0036 ;STORE UUO TO DO
BMOVECRY0CRY0CRY1AROVFOVFXUDCKBIS..0034C 032304 200 00 0 00 033764 MOVE [CRY0+CRY1+AROV+FOV+FXU+DCK+BIS,,..0034] ;PC AND FLAGS TO RESTORE
BMOVEMUPMPLCNTRPC 032305 202 00 0 00 036434 MOVEM UPMP+LCNTRP
BMOVEMUPMPLCTRPC 032306 202 00 0 00 036435 MOVEM UPMP+LCTRP
BMOVEMUPMPLPNTRPC 032307 202 00 0 00 036436 MOVEM UPMP+LPNTRP
BMOVEMUPMPLPTRPC 032310 202 00 0 00 036437 MOVEM UPMP+LPTRP
BMOVEMUPMPLSNTRPC 032311 202 00 0 00 036432 MOVEM UPMP+LSNTRP
BMOVEMUPMPLSTRPC 032312 202 00 0 00 036433 MOVEM UPMP+LSTRP
BMOVEMLKNTRPC 032313 202 00 0 00 000430 MOVEM LKNTRP
BMOVEMLKTRPC 032314 202 00 0 00 000431 MOVEM LKTRP
BSETZMUPMPLMUUOC 032315 402 00 0 00 036424 SETZM UPMP+LMUUO
BSETZMUPMPLMUUOPC 032316 402 00 0 00 036425 SETZM UPMP+LMUUOPC ;CLEAR WORK AREAS
B..0036C 032317 000000 000000 ..0036: 0 ;HERE IS THE UUO
BERRORC ERROR ..0035,13,C,A,MUUO DID NOT CAUSE TRAP^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032320 036 13 0 00 033765
BXALLERLOOP..0035C 032321 035 00 0 00 032271 ERLOOP ..0035 ;IF ERROR, LOOP TO ..0035
BLALL..0034JSPC 032322 265 01 0 00 032323 ..0034: JSP 1,.+1 ;GET FLAGS
BTLNNCRY0CRY1AROVFOVFXUDCKBISC TLNN 1,CRY0+CRY1+AROV+FOV+FXU+DCK+BIS ;ARE CRY0+CRY1+AROV+FOV+FXU+
BC 032323 607 01 0 00 760140 DCK+BIS(S) SET?
BERRORC ERROR ..0035,13,C,A,MUUO DID NOT SET CRY0+CRY1+AROV+FOV+FXU+DCK+BIS FLAGS^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032324 036 13 0 00 034001
BXALLERLOOP..0035C 032325 035 00 0 00 032271 ERLOOP ..0035 ;IF ERROR, LOOP TO ..0035
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 26
DFKEBM MAC 13-Jan-89 13:45 TEST IOT'S IN CONCEALED MODE
BSUBTTLC SUBTTL TEST IOT'S IN CONCEALED MODE
BC
BSALLC SALL
BSIXBTZSIXBITTC 034004 T=SIXBTZ IOT MUUO^CONCEALED MODE
BLALLC LALL
BUPMPMUUOAC 036424 A=UPMP+MUUO
BIOTCM1CC 032352 C=IOTCM1
BC
BIOTCMTNSETC 032326 IOTCM: TNSET^
BMOVEIC 032326 201 00 0 00 032326 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032327 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BPAGECNC PAGECN^
BSETOMCNSFLGC 032330 476 00 0 00 035005 SETOM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 032331 260 17 0 00 032771 GO PAGSET ;THAT I WANT CONCEALED MODE
BC ^
BC
BSETZMC 032332 402 00 0 00 000010 SETZM 10 ;INIT COUNTER
BC
BIOTCM0MOVEIOTTABC 032333 200 00 0 10 032514 IOTCM0: MOVE IOTTAB(10) ;SETUP IOT FOR EXECUTION
BMOVEMIOTCM1C 032334 202 00 0 00 032352 MOVEM IOTCM1
BC
BGOPAGE1C 032335 260 17 0 00 033000 GO PAGE1
BMOVEIIOTCM3C 032336 201 00 0 00 032360 MOVEI IOTCM3 ;SETUP MUUO TRAP PC
BMOVEMUPMPCNTRPC 032337 202 00 0 00 036434 MOVEM UPMP+CNTRP
BMOVEIIOTCM2C 032340 201 00 0 00 032356 MOVEI IOTCM2 ;SETUP FOR INCORRECT TRAP
BMOVEMUPMPKNTRPC 032341 202 00 0 00 036430 MOVEM UPMP+KNTRP
BMOVEMUPMPPNTRPC 032342 202 00 0 00 036436 MOVEM UPMP+PNTRP
BMOVEMUPMPSNTRPC 032343 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPKTRPC 032344 202 00 0 00 036431 MOVEM UPMP+KTRP
BMOVEMUPMPPTRPC 032345 202 00 0 00 036437 MOVEM UPMP+PTRP
BMOVEMUPMPCTRPC 032346 202 00 0 00 036435 MOVEM UPMP+CTRP
BMOVEMUPMPSTRPC 032347 202 00 0 00 036433 MOVEM UPMP+STRP
BC
BSETZMUPMPMUUOC 032350 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO LOCATIONS
BSETZBUPMPMUUOC 032351 403 00 0 00 036425 SETZB 0,UPMP+MUUO+1
BC
BIOTCM1C 032352 000000 000000 IOTCM1: 0 ;DO "IOT"
BC
BERROR1C ERROR1 13,C,A,IOT DID NOT TRAP,C=IOT^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032353 036 13 0 00 034014
BXALLERLP2IOTCM0C 032354 035 02 0 00 032333 ERLP2 IOTCM0
BJRSTIOTCM3C 032355 254 00 0 00 032360 JRST IOTCM3
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 27
DFKEBM MAC 13-Jan-89 13:45 TEST IOT'S IN CONCEALED MODE
BIOTCM2ERROR1C 032356 IOTCM2: ERROR1 13,C,A,IOT DID NOT TRAP TO PROPER TRAP^
BSALLERUUOTTSIXBITCCASIXBITC 032356 036 13 0 00 034025
BXALLERLP2IOTCM0C 032357 035 02 0 00 032333 ERLP2 IOTCM0
BC
BIOTCM3MOVEUPMPMUUOC 032360 200 00 0 00 036424 IOTCM3: MOVE UPMP+MUUO ;GET SAVED MUUO
BCAMEIOTCM1C 032361 312 00 0 00 032352 CAME IOTCM1
BERROR1C ERROR1 13,C,A,CONTENTS OF 424 NOT EXECUTED IOT^
BSALLERUUOTTSIXBITCCASIXBITC 032362 036 13 0 00 034036
BXALLERLP2IOTCM0C 032363 035 02 0 00 032333 ERLP2 IOTCM0
BC
BIOTCM1IOTCM1CC 034041 C=[IOTCM1+1]
BAC 000001 A=1
BC
BHRRZUPMPMUUOC 032364 550 01 0 00 036425 HRRZ 1,UPMP+MUUO+1 ;GET SAVED PC
BCAIEIOTCM1C 032365 302 01 0 00 032353 CAIE 1,IOTCM1+1
BERROR1C ERROR1 13,C,A,IOT MUUO DID NOT STORE CORRECT PC^
BSALLERUUOTTSIXBITCCASIXBITC 032366 036 13 0 00 034050
BXALLERLP2IOTCM0C 032367 035 02 0 00 032333 ERLP2 IOTCM0
BC
BAOSC 032370 350 00 0 00 000010 AOS 10
BCAIEC 032371 302 10 0 00 000013 CAIE 10,^D11 ;DONE ALL ILLEGAL IOT'S ?
BJRSTIOTCM0C 032372 254 00 0 00 032333 JRST IOTCM0 ;NOT YET
BJRSTIOTPMC 032373 254 00 0 00 032374 JRST IOTPM ;YES, TO NEXT TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 28
DFKEBM MAC 13-Jan-89 13:45 TEST IOT'S IN PUBLIC MODE
BSUBTTLC SUBTTL TEST IOT'S IN PUBLIC MODE
BC
BSALLC SALL
BSIXBTZSIXBITTC 034053 T=SIXBTZ IOT MUUO^PUBLIC MODE
BLALLC LALL
BUPMPMUUOAC 036424 A=UPMP+MUUO
BIOTPM1CC 032420 C=IOTPM1
BC
BIOTPMTNSETC 032374 IOTPM: TNSET^
BMOVEIC 032374 201 00 0 00 032374 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032375 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BPAGEPNC PAGEPN^
BSETZMCNSFLGC 032376 402 00 0 00 035005 SETZM CNSFLG ;INFORM PAGE ROUTINE
BGOPAGSETC 032377 260 17 0 00 032771 GO PAGSET ;THAT I WANT PUBLIC MODE
BC ^
BC
BSETZMC 032400 402 00 0 00 000010 SETZM 10 ;INIT COUNTER
BC
BIOTPM0MOVEIOTTABC 032401 200 00 0 10 032514 IOTPM0: MOVE IOTTAB(10) ;SETUP IOT FOR EXECUTION
BMOVEMIOTPM1C 032402 202 00 0 00 032420 MOVEM IOTPM1
BC
BGOPAGE1C 032403 260 17 0 00 033000 GO PAGE1
BMOVEIIOTPM3C 032404 201 00 0 00 032426 MOVEI IOTPM3 ;SETUP MUUO TRAP PC
BMOVEMUPMPPNTRPC 032405 202 00 0 00 036436 MOVEM UPMP+PNTRP
BMOVEIIOTPM2C 032406 201 00 0 00 032424 MOVEI IOTPM2 ;SETUP FOR INCORRECT TRAP
BMOVEMUPMPKNTRPC 032407 202 00 0 00 036430 MOVEM UPMP+KNTRP
BMOVEMUPMPCNTRPC 032410 202 00 0 00 036434 MOVEM UPMP+CNTRP
BMOVEMUPMPSNTRPC 032411 202 00 0 00 036432 MOVEM UPMP+SNTRP
BMOVEMUPMPKTRPC 032412 202 00 0 00 036431 MOVEM UPMP+KTRP
BMOVEMUPMPSTRPC 032413 202 00 0 00 036433 MOVEM UPMP+STRP
BMOVEMUPMPCTRPC 032414 202 00 0 00 036435 MOVEM UPMP+CTRP
BMOVEMUPMPPTRPC 032415 202 00 0 00 036437 MOVEM UPMP+PTRP
BC
BSETZMUPMPMUUOC 032416 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO LOCATIONS
BSETZBUPMPMUUOC 032417 403 00 0 00 036425 SETZB 0,UPMP+MUUO+1
BC
BIOTPM1C 032420 000000 000000 IOTPM1: 0 ;DO "IOT"
BC
BERROR1C ERROR1 13,C,A,IOT DID NOT TRAP,C=IOT^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032421 036 13 0 00 034057
BXALLERLP2IOTPM0C 032422 035 02 0 00 032401 ERLP2 IOTPM0
BJRSTIOTPM3C 032423 254 00 0 00 032426 JRST IOTPM3
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 29
DFKEBM MAC 13-Jan-89 13:45 TEST IOT'S IN PUBLIC MODE
BIOTPM2ERROR1C 032424 IOTPM2: ERROR1 13,C,A,IOT DID NOT TRAP TO PROPER TRAP^
BSALLERUUOTTSIXBITCCASIXBITC 032424 036 13 0 00 034062
BXALLERLP2IOTPM0C 032425 035 02 0 00 032401 ERLP2 IOTPM0
BC
BIOTPM3MOVEUPMPMUUOC 032426 200 00 0 00 036424 IOTPM3: MOVE UPMP+MUUO ;GET SAVED MUUO
BCAMEIOTPM1C 032427 312 00 0 00 032420 CAME IOTPM1
BERROR1C ERROR1 13,C,A,CONTENTS OF 424 NOT EXECUTED IOT^
BSALLERUUOTTSIXBITCCASIXBITC 032430 036 13 0 00 034065
BXALLERLP2IOTPM0C 032431 035 02 0 00 032401 ERLP2 IOTPM0
BC
BIOTPM1IOTPM1CC 034070 C=[IOTPM1+1]
BAC 000001 A=1
BC
BHRRZUPMPMUUOC 032432 550 01 0 00 036425 HRRZ 1,UPMP+MUUO+1 ;GET SAVED PC
BCAIEIOTPM1C 032433 302 01 0 00 032421 CAIE 1,IOTPM1+1
BERROR1C ERROR1 13,C,A,IOT MUUO DID NOT STORE CORRECT PC^
BSALLERUUOTTSIXBITCCASIXBITC 032434 036 13 0 00 034071
BXALLERLP2IOTPM0C 032435 035 02 0 00 032401 ERLP2 IOTPM0
BC
BAOSC 032436 350 00 0 00 000010 AOS 10
BCAIEC 032437 302 10 0 00 000013 CAIE 10,^D11 ;DONE ALL ILLEGAL IOT'S ?
BJRSTIOTPM0C 032440 254 00 0 00 032401 JRST IOTPM0 ;NOT YET
BJRSTIOTSMC 032441 254 00 0 00 032442 JRST IOTSM ;YES, TO NEXT TEST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 30
DFKEBM MAC 13-Jan-89 13:45 TEST IOT'S IN SUPERVISOR MODE
BSUBTTLC SUBTTL TEST IOT'S IN SUPERVISOR MODE
BC
BSALLC SALL
BSIXBTZSIXBITTC 034074 T=SIXBTZ IOT MUUO^SUPERVISOR MODE
BLALLC LALL
BMUUOAC 000424 A=MUUO
BCC 400001 C=400001
BC
BIOTSMTNSETC 032442 IOTSM: TNSET^
BMOVEIC 032442 201 00 0 00 032442 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032443 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVEIIOTSM3C 032444 201 00 0 00 032500 MOVEI IOTSM3 ;SETUP SUPERVISOR TRAP
BMOVEMSNTRPC 032445 202 00 0 00 000432 MOVEM SNTRP
BMOVEIIOTSM2C 032446 201 00 0 00 032476 MOVEI IOTSM2 ;SETUP INCORRECT TRAPS
BMOVEMSTRPC 032447 202 00 0 00 000433 MOVEM STRP
BMOVEMKNTRPC 032450 202 00 0 00 000430 MOVEM KNTRP
BMOVEMKTRPC 032451 202 00 0 00 000431 MOVEM KTRP
BMOVEMPNTRPC 032452 202 00 0 00 000436 MOVEM PNTRP
BMOVEMPTRPC 032453 202 00 0 00 000437 MOVEM PTRP
BMOVEMCNTRPC 032454 202 00 0 00 000434 MOVEM CNTRP
BMOVEMCTRPC 032455 202 00 0 00 000435 MOVEM CTRP
BC
BSETZMC 032456 402 00 0 00 000010 SETZM 10 ;INIT COUNTER
BC
BIOTSM0SUPEXC 032457 IOTSM0: SUPEX^
BLALLC LALL
BC ;THIS SECTION PUTS THE PROCESSOR INTO SUPERVISOR MODE.
BC ;PAGE TABLE SETUP
BMOVSIUPMPC 032457 205 00 0 00 740036 MOVSI 740000!<UPMP_-^D9>
BMOVEMC 032460 202 00 0 00 000200 MOVEM 200 ;STORE PAGE WORD
BCONOPAGLTRPENC 032461 7 010 20 0 00 020000 CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 032462 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000]
BC ^
BC
BMOVEJFCLC 032463 200 00 0 00 034101 MOVE [JFCL 17,400001]
BMOVEMC 032464 202 00 0 00 400000 MOVEM 400000 ;SETUP CLEAR FLAGS
BC
BMOVEJRSTIOTSM1C 032465 200 00 0 00 034102 MOVE [JRST 1,IOTSM1]
BMOVEMC 032466 202 00 0 00 400002 MOVEM 400002 ;SETUP "DID NOT TRAP" CATCHER
BC
BMOVEIOTTABC 032467 200 00 0 10 032514 MOVE IOTTAB(10) ;SETUP TEST IOT
BMOVEMC 032470 202 00 0 00 400001 MOVEM 400001
BC
BSETZMC 032471 402 00 0 00 000000 SETZM 0
BJRSTC 032472 254 01 0 00 400000 JRST 1,400000 ;ENTER SUPERVISOR MODE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 31
DFKEBM MAC 13-Jan-89 13:45 TEST IOT'S IN SUPERVISOR MODE
BIOTSM1ERROR1C 032473 IOTSM1: ERROR1 13,C,A,IOT DID NOT TRAP,C=IOT^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032473 036 13 0 00 034103
BXALLERLP2IOTSM0C 032474 035 02 0 00 032457 ERLP2 IOTSM0
BJRSTIOTSM3C 032475 254 00 0 00 032500 JRST IOTSM3
BC
BIOTSM2ERROR1C 032476 IOTSM2: ERROR1 13,C,A,IOT DID NOT TRAP TO SUPERVISOR TRAP^
BSALLERUUOTTSIXBITCCASIXBITC 032476 036 13 0 00 034114
BXALLERLP2IOTSM0C 032477 035 02 0 00 032457 ERLP2 IOTSM0
BC
BIOTSM3MOVEMUUOC 032500 200 00 0 00 000424 IOTSM3: MOVE MUUO
BCAMEC 032501 312 00 0 00 400001 CAME 400001 ;IOT GET SAVED CORRECTLY ?
BERROR1C ERROR1 13,C,A,CONTENTS OF 424 NOT EXECUTED IOT^
BSALLERUUOTTSIXBITCCASIXBITC 032502 036 13 0 00 034117
BXALLERLP2IOTSM0C 032503 035 02 0 00 032457 ERLP2 IOTSM0
BC
BCC 034122 C=[400002]
BAC 000001 A=1
BC
BHRRZMUUOC 032504 550 01 0 00 000425 HRRZ 1,MUUO+1 ;CORRECT PC GET SAVED ?
BCAIEC 032505 302 01 0 00 400002 CAIE 1,400002
BERROR1C ERROR1 13,C,A,IOT MUUO DID NOT STORE CORRECT PC^
BSALLERUUOTTSIXBITCCASIXBITC 032506 036 13 0 00 034123
BXALLERLP2IOTSM0C 032507 035 02 0 00 032457 ERLP2 IOTSM0
BC
BAOSC 032510 350 00 0 00 000010 AOS 10 ;COMPLETED ALL IOT'S ?
BCAIEC 032511 302 10 0 00 000013 CAIE 10,^D11
BJRSTIOTSM0C 032512 254 00 0 00 032457 JRST IOTSM0 ;NOT YET
BC
BJRSTPVTSTC 032513 254 00 0 00 032530 JRST PVTST
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 32
DFKEBM MAC 13-Jan-89 13:45 TEST IOT'S IN SUPERVISOR MODE
BC ;*ILLEGAL USER MODE IOT TABLE
BC
BIOTTABCONOC 032514 7 000 20 0 00 000000 IOTTAB: CONO
BCONIC 032515 7 000 24 0 00 000000 CONI
BDATAOC 032516 7 000 14 0 00 000000 DATAO
BDATAIC 032517 7 000 04 0 00 000000 DATAI
BCONSZC 032520 7 000 30 0 00 000000 CONSZ
BCONSOC 032521 7 000 34 0 00 000000 CONSO
BBLKOC 032522 7 000 10 0 00 000000 BLKO
BBLKIC 032523 7 000 00 0 00 000000 BLKI
BHALTC 032524 254 04 0 00 000000 HALT
BJENC 032525 254 12 0 00 000000 JEN
BJRSTC 032526 254 10 0 00 000000 JRST 10,
BHALTC 032527 254 04 0 00 000000 HALT
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 33
DFKEBM MAC 13-Jan-89 13:45 TEST PROPRIETARY VIOLATION
BSUBTTLC SUBTTL TEST PROPRIETARY VIOLATION
BC
BSALLC SALL
BSIXBTZSIXBITTC 034126 T=SIXBTZ PROPRIETARY TRANSFER^SUPERVISOR MODE
BLALLC LALL
BCC 000000 C=0
BAC 000000 A=0
BC
BPVTSTTNSETC 032530 PVTST: TNSET^
BMOVEIC 032530 201 00 0 00 032530 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032531 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BMOVELPGFTRC 032532 200 00 0 00 000502 MOVE LPGFTRP
BMOVEMPGFTSVPGFTSVC 032533 202 00 0 00 035007 MOVEM PGFTSV# ;SAVE PAGE FAIL INST
BAPRIDC 032534 700 00 0 00 000000 APRID ;GET APRID
BTRNEC 032535 602 00 0 00 200000 TRNE 1B19 ;TEST FOR CACHE
BSETOMCACHECACHEC 032536 476 00 0 00 035004 SETOM CACHE# ;YES WE HAVE CACHE
BC
BPVTST0MOVEIPVTST3C 032537 201 00 0 00 032563 PVTST0: MOVEI PVTST3
BMOVEMLPGFTRC 032540 202 00 0 00 000502 MOVEM LPGFTRP ;SETUP FOR PAGE FAIL
BC
BSUPEXC SUPEX^
BLALLC LALL
BC ;THIS SECTION PUTS THE PROCESSOR INTO SUPERVISOR MODE.
BC ;PAGE TABLE SETUP
BMOVSIUPMPC 032541 205 00 0 00 740036 MOVSI 740000!<UPMP_-^D9>
BMOVEMC 032542 202 00 0 00 000200 MOVEM 200 ;STORE PAGE WORD
BCONOPAGLTRPENC 032543 7 010 20 0 00 020000 CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 032544 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000]
BC ^
BC
BMOVEJFCLC 032545 200 00 0 00 034101 MOVE [JFCL 17,400001]
BMOVEMC 032546 202 00 0 00 400000 MOVEM 400000 ;CLEAR ALL FLAGS
BMOVEJRSTPVTST2C 032547 200 00 0 00 034135 MOVE [JRST PVTST2]
BMOVEMC 032550 202 00 0 00 400001 MOVEM 400001 ;ILLEGAL TRANSFER TO KERNAL
BMOVEJRSTPVTST1C 032551 200 00 0 00 034136 MOVE [JRST 1,PVTST1]
BMOVEMC 032552 202 00 0 00 400002 MOVEM 400002 ;NO TRAP, NO JRST - WHO KNOWS
BC
BJRSTC 032553 254 01 0 00 400000 JRST 1,400000 ;ENTER SUPERVISOR MODE
BC
BPVTST1ERROR1C 032554 PVTST1: ERROR1 13,C,A,JRST TO KERNAL,NOTHING HAPPENED^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032554 036 13 0 00 034145
BXALLERLP2PVTST0C 032555 035 02 0 00 032537 ERLP2 PVTST0
BJRSTPVTST4C 032556 254 00 0 00 032571 JRST PVTST4
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 34
DFKEBM MAC 13-Jan-89 13:45 TEST PROPRIETARY VIOLATION
BPVTST2JFCLC 032557 255 00 0 00 000000 PVTST2: JFCL
BERROR1C ERROR1 13,C,A,JRST WENT TO KERNAL,NO TRAP^
BSALLERUUOTTSIXBITCCASIXBITC 032560 036 13 0 00 034156
BXALLERLP2PVTST0C 032561 035 02 0 00 032537 ERLP2 PVTST0
BJRSTPVTST4C 032562 254 00 0 00 032571 JRST PVTST4
BC
BCC 000013 C=13
BAC 000014 A=14
BC
BPVTST3JRSTC 032563 254 01 0 00 032564 PVTST3: JRST 1,.+1 ;CORRECT TRAP, CHECK RESULTS
BMOVECLIPLIPPVTST2C 032564 200 13 0 00 034161 MOVE C,[LIP,,PVTST2+1]
BMOVEALPFWPCC 032565 200 14 0 00 000501 MOVE A,LPFWPC
BCAMECAC 032566 312 13 0 00 000014 CAME C,A
BERROR1C ERROR1 13,C,A,PAGE FAIL SAVED PC WRONG^
BSALLERUUOTTSIXBITCCASIXBITC 032567 036 13 0 00 034167
BXALLERLP2PVTST0C 032570 035 02 0 00 032537 ERLP2 PVTST0
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 35
DFKEBM MAC 13-Jan-89 13:45 TEST PROPRIETARY VIOLATION
BSALLC SALL
BSIXBTZSIXBITTC 034172 T=SIXBTZ PROPRIETARTY WRITE^SUPERVISOR MODE
BLALLC LALL
BCC 000000 C=0
BAC 000000 A=0
BC
BPVTST4MOVEIPVTST6C 032571 201 00 0 00 032612 PVTST4: MOVEI PVTST6
BMOVEMLPGFTRC 032572 202 00 0 00 000502 MOVEM LPGFTRP ;SETUP FOR PAGE FAIL
BC
BSUPEXC SUPEX^
BLALLC LALL
BC ;THIS SECTION PUTS THE PROCESSOR INTO SUPERVISOR MODE.
BC ;PAGE TABLE SETUP
BMOVSIUPMPC 032573 205 00 0 00 740036 MOVSI 740000!<UPMP_-^D9>
BMOVEMC 032574 202 00 0 00 000200 MOVEM 200 ;STORE PAGE WORD
BCONOPAGLTRPENC 032575 7 010 20 0 00 020000 CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBC 032576 7 010 14 0 00 033025 DATAO PAG,[LLDUSB,,400000]
BC ^
BC
BMOVEJFCLC 032577 200 00 0 00 034101 MOVE [JFCL 17,400001]
BMOVEMC 032600 202 00 0 00 400000 MOVEM 400000 ;CLEAR ALL FLAGS
BMOVESETOMPVTSTXPVTSTXC 032601 200 00 0 00 034200 MOVE [SETOM PVTSTX#]
BMOVEMC 032602 202 00 0 00 400001 MOVEM 400001 ;ILLEGAL WRITE INTO KERNAL
BMOVEJRSTPVTST5C 032603 200 00 0 00 034201 MOVE [JRST 1,PVTST5]
BMOVEMC 032604 202 00 0 00 400002 MOVEM 400002 ;NO TRAP
BC
BSETZMPVTSTXC 032605 402 00 0 00 035010 SETZM PVTSTX ;CLEAR WRITE ATTEMPT LOCATION
BJRSTC 032606 254 01 0 00 400000 JRST 1,400000 ;ENTER SUPERVISOR MODE
BC
BPVTST5ERROR1C 032607 PVTST5: ERROR1 13,C,A,JRST TO KERNAL,NO TRAP^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032607 036 13 0 00 034202
BXALLERLP2PVTST4C 032610 035 02 0 00 032571 ERLP2 PVTST4
BJRSTPVTST7C 032611 254 00 0 00 032634 JRST PVTST7
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 36
DFKEBM MAC 13-Jan-89 13:45 TEST PROPRIETARY VIOLATION
BCC 000013 C=13
BAC 000014 A=14
BC
BPVTST6JRSTC 032612 254 01 0 00 032613 PVTST6: JRST 1,.+1 ;CORRECT TRAP, CHECK RESULTS
BMOVECPVTSTXC 032613 200 13 0 00 034205 MOVE C,[213000,,PVTSTX]
BSKIPNCACHEC 032614 336 00 0 00 035004 SKIPN CACHE ;SKIP IF CPU HAS CACHE
BMOVECPVTSTXC 032615 200 13 0 00 034206 MOVE C,[211000,,PVTSTX]
BMOVEALEUPFWC 032616 200 14 0 00 000500 MOVE A,LEUPFW
BCAMECAC 032617 312 13 0 00 000014 CAME C,A
BERROR1C ERROR1 13,C,A,PAGE FAIL WORD WRONG^
BSALLERUUOTTSIXBITCCASIXBITC 032620 036 13 0 00 034213
BXALLERLP2PVTST4C 032621 035 02 0 00 032571 ERLP2 PVTST4
BC
BMOVECLIPLIPC 032622 200 13 0 00 034216 MOVE C,[LIP,,400001]
BMOVEALPFWPCC 032623 200 14 0 00 000501 MOVE A,LPFWPC
BCAMECAC 032624 312 13 0 00 000014 CAME C,A
BERROR1C ERROR1 13,C,A,PAGE FAIL SAVED PC WRONG^
BSALLERUUOTTSIXBITCCASIXBITC 032625 036 13 0 00 034217
BXALLERLP2PVTST4C 032626 035 02 0 00 032571 ERLP2 PVTST4
BC
BSETZMCC 032627 402 00 0 00 000013 SETZM C
BMOVEAPVTSTXC 032630 200 14 0 00 035010 MOVE A,PVTSTX
BCAMECAC 032631 312 13 0 00 000014 CAME C,A
BERROR1C ERROR1 13,C,A,WROTE INTO KERNAL LOC^
BSALLERUUOTTSIXBITCCASIXBITC 032632 036 13 0 00 034226
BXALLERLP2PVTST4C 032633 035 02 0 00 032571 ERLP2 PVTST4
BC
BPVTST7MOVEPGFTSVC 032634 200 00 0 00 035007 PVTST7: MOVE PGFTSV
BMOVEMLPGFTRC 032635 202 00 0 00 000502 MOVEM LPGFTRP ;RESTORE PAGE FAIL
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 37
DFKEBM MAC 13-Jan-89 13:45 TEST USER MODE ADDRESSING
BSUBTTLC SUBTTL TEST USER MODE ADDRESSING
BC
BC ;*USER MODE PUBLIC - MAXIMUM BLOCK TRANSFER
BC
BSALLC SALL
BSIXBTZSIXBITTC 034231 T=SIXBTZ USER MODE PUBLIC^MAXIMUM BLOCK TRANSFER
BLALLC LALL
BC
BUPMPMUUOAC 036424 A=UPMP+MUUO
BHALTCC 034240 C=[HALT 13]
BC
BUBLTTNSETC 032636 UBLT: TNSET^
BMOVEIC 032636 201 00 0 00 032636 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032637 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BUBLT0MOVEIUPMPC 032640 201 00 0 00 740037 UBLT0: MOVEI <<UPMP+1000>_-^D9>!740000
BHRLC 032641 504 00 0 00 000000 HRL ;SETUP PAGE TABLE ENTRY
BMOVSIC 032642 205 01 0 00 777400 MOVSI 1,-1000/2 ;SO ALL PAGES POINT TO SAME 512 WORDS
BMOVEMUPMPC 032643 202 00 0 01 036000 MOVEM UPMP(1)
BAOBJNC 032644 253 01 0 00 032643 AOBJN 1,.-1
BC
BMOVEJRSTC 032645 200 10 0 00 034241 MOVE 10,[JRST 1,11] ;PORTAL
BMOVESETZMC 032646 200 11 0 00 034242 MOVE 11,[SETZM 20] ;CLEAR FIRST LOC
BMOVEBLTC 032647 200 12 0 00 034243 MOVE 12,[BLT 7,777777] ;MAX BLT
BMOVEHALTC 032650 200 13 0 00 034240 MOVE 13,[HALT 13] ;MUUO TO GET BACK TO EXEC
BMOVEC 032651 200 07 0 00 034244 MOVE 7,[20,,21] ;BLT START ADDRESSES
BC
BMOVEIUBLT1C 032652 201 00 0 00 032671 MOVEI UBLT1 ;SETUP FOR TERMINATION MUUO
BMOVEMUPMPPNTRPC 032653 202 00 0 00 036436 MOVEM UPMP+PNTRP
BMOVEMUPMPCNTRPC 032654 202 00 0 00 036434 MOVEM UPMP+CNTRP
BMOVEIUBLT2C 032655 201 00 0 00 032702 MOVEI UBLT2 ;SETUP FOR ERROR TERMINATION
BMOVEMUPMPPTRPC 032656 202 00 0 00 036437 MOVEM UPMP+PTRP
BMOVEMUPMPCTRPC 032657 202 00 0 00 036435 MOVEM UPMP+CTRP
BC
BSETZMUPMPMUUOC 032660 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO LOCATIONS
BSETZMUPMPMUUOC 032661 402 00 0 00 036425 SETZM UPMP+MUUO+1
BC
BMOVEUPMPLPGFTRC 032662 200 00 0 00 034245 MOVE [0,,UPMP+LPGFTRP] ;SETUP FOR PAGE FAIL
BMOVEMUPMPLPGFTRC 032663 202 00 0 00 036502 MOVEM UPMP+LPGFTRP ;HANDLE VIA MUUO
BC
BCONOPAGLTRPENC 032664 7 010 20 0 00 020000 CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBUPMPC 032665 7 010 14 0 00 034246 DATAO PAG,[LLDUSB,,400000!<UPMP_-^D9>]
BC
BJRSTFC 032666 254 02 1 00 032667 JRSTF @.+1 ;GO TO USER MODE
BUSERFUSERFC 032667 010000 000010 USERF,,10 ;IN THE AC'S
BHALTC 032670 254 04 0 00 032670 HALT .
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 38
DFKEBM MAC 13-Jan-89 13:45 TEST USER MODE ADDRESSING
BUBLT1MOVEUPMPMUUOC 032671 200 00 0 00 036424 UBLT1: MOVE UPMP+MUUO ;COMPLETED, CHECK RESULTS
BCAMEHALTC 032672 312 00 0 00 034240 CAME [HALT 13]
BERROR1C ERROR1 13,C,A,INCORRECT TERMINATION MUUO^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032673 036 13 0 00 034254
BXALLERLP2UBLT0C 032674 035 02 0 00 032640 ERLP2 UBLT0
BC
BUPMPMUUOAC 036425 A=UPMP+MUUO+1
BUSERFUSERFCC 034257 C=[USERF,,14]
BC
BMOVEUPMPMUUOC 032675 200 00 0 00 036425 MOVE UPMP+MUUO+1
BCAMEUSERFUSERFC 032676 312 00 0 00 034257 CAME [USERF,,14]
BERROR1C ERROR1 13,C,A,INCORRECT TERMINATION PC^
BSALLERUUOTTSIXBITCCASIXBITC 032677 036 13 0 00 034265
BXALLERLP2UBLT0C 032700 035 02 0 00 032640 ERLP2 UBLT0
BJRSTUBLT3C 032701 254 00 0 00 032706 JRST UBLT3
BC
BCC 000005 C=5
BAC 000006 A=6
BC
BUBLT2MOVEUPMPLEUPFWC 032702 200 05 0 00 036500 UBLT2: MOVE 5,UPMP+LEUPFW
BMOVEUPMPMUUOC 032703 200 06 0 00 036425 MOVE 6,UPMP+MUUO+1
BERROR1C ERROR1 13,C,A,PAGE FAILURE,<CORRECT=PF WORD, ACTUAL=PF PC>^
BSALLERUUOTTSIXBITCCASIXBITC 032704 036 13 0 00 034300
BXALLERLP2UBLT0C 032705 035 02 0 00 032640 ERLP2 UBLT0
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 39
DFKEBM MAC 13-Jan-89 13:45 TEST USER MODE ADDRESSING
BC ;*USER MODE CONCEALED - MAXIMUM BLOCK TRANSFER
BC
BSALLC SALL
BSIXBTZSIXBITTC 034303 T=SIXBTZ USER MODE CONCEALED^MAXIMUM BLOCK TRANSFER
BLALLC LALL
BC
BUPMPMUUOAC 036424 A=UPMP+MUUO
BHALTCC 034240 C=[HALT 13]
BC
BUBLT3TNSETC 032706 UBLT3: TNSET^
BMOVEIC 032706 201 00 0 00 032706 MOVEI . ;STORE THIS PC IN CASE WE GET LOST
BMOVEMTESTPCC 032707 202 00 0 00 030051 MOVEM TESTPC ;INTO TEST
BC ^
BUBLT4MOVEIUPMPC 032710 201 00 0 00 540037 UBLT4: MOVEI <<UPMP+1000>_-^D9>!540000
BHRLC 032711 504 00 0 00 000000 HRL ;SETUP PAGE TABLE ENTRY
BMOVSIC 032712 205 01 0 00 777400 MOVSI 1,-1000/2 ;SO ALL PAGES POINT TO SAME 512 WORDS
BMOVEMUPMPC 032713 202 00 0 01 036000 MOVEM UPMP(1)
BAOBJNC 032714 253 01 0 00 032713 AOBJN 1,.-1
BC
BMOVEJRSTC 032715 200 10 0 00 034241 MOVE 10,[JRST 1,11] ;PORTAL
BMOVESETOMC 032716 200 11 0 00 034313 MOVE 11,[SETOM 20] ;SET FIRST LOC
BMOVEBLTC 032717 200 12 0 00 034243 MOVE 12,[BLT 7,777777] ;MAX BLT
BMOVEHALTC 032720 200 13 0 00 034240 MOVE 13,[HALT 13] ;MUUO TO GET BACK TO EXEC
BMOVEC 032721 200 07 0 00 034244 MOVE 7,[20,,21] ;BLT START ADDRESSES
BC
BMOVEIUBLT5C 032722 201 00 0 00 032741 MOVEI UBLT5 ;SETUP FOR TERMINATION MUUO
BMOVEMUPMPCNTRPC 032723 202 00 0 00 036434 MOVEM UPMP+CNTRP
BMOVEIUBLT6C 032724 201 00 0 00 032752 MOVEI UBLT6 ;SETUP FOR ERROR TERMINATION MUUO
BMOVEMUPMPCTRPC 032725 202 00 0 00 036435 MOVEM UPMP+CTRP
BMOVEMUPMPPNTRPC 032726 202 00 0 00 036436 MOVEM UPMP+PNTRP
BMOVEMUPMPPTRPC 032727 202 00 0 00 036437 MOVEM UPMP+PTRP
BC
BSETZMUPMPMUUOC 032730 402 00 0 00 036424 SETZM UPMP+MUUO ;CLEAR MUUO LOCATIONS
BSETZMUPMPMUUOC 032731 402 00 0 00 036425 SETZM UPMP+MUUO+1
BC
BMOVEUPMPLPGFTRC 032732 200 00 0 00 034245 MOVE [0,,UPMP+LPGFTRP] ;SETUP FOR PAGE FAIL
BMOVEMUPMPLPGFTRC 032733 202 00 0 00 036502 MOVEM UPMP+LPGFTRP ;HANDLE VIA MUUO
BC
BCONOPAGLTRPENC 032734 7 010 20 0 00 020000 CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBUPMPC 032735 7 010 14 0 00 034246 DATAO PAG,[LLDUSB,,400000!<UPMP_-^D9>]
BC
BJRSTFC 032736 254 02 1 00 032737 JRSTF @.+1 ;GO TO USER MODE
BUSERFUSERFC 032737 010000 000010 USERF,,10 ;IN THE AC'S
BHALTC 032740 254 04 0 00 032740 HALT .
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 40
DFKEBM MAC 13-Jan-89 13:45 TEST USER MODE ADDRESSING
BUBLT5MOVEUPMPMUUOC 032741 200 00 0 00 036424 UBLT5: MOVE UPMP+MUUO ;COMPLETED, CHECK RESULTS
BCAMEHALTC 032742 312 00 0 00 034240 CAME [HALT 13]
BERROR1C ERROR1 13,C,A,INCORRECT TERMINATION MUUO^
BSALLC SALL
BERUUOTTSIXBITCCASIXBITC 032743 036 13 0 00 034314
BXALLERLP2UBLT4C 032744 035 02 0 00 032710 ERLP2 UBLT4
BC
BUPMPMUUOAC 036425 A=UPMP+MUUO+1
BUSERFUSERFCC 034257 C=[USERF,,14]
BC
BMOVEUPMPMUUOC 032745 200 00 0 00 036425 MOVE UPMP+MUUO+1
BCAMEUSERFUSERFC 032746 312 00 0 00 034257 CAME [USERF,,14]
BERROR1C ERROR1 13,C,A,INCORRECT TERMINATION PC^
BSALLERUUOTTSIXBITCCASIXBITC 032747 036 13 0 00 034317
BXALLERLP2UBLT4C 032750 035 02 0 00 032710 ERLP2 UBLT4
BJRSTUBLT7C 032751 254 00 0 00 032756 JRST UBLT7
BC
BCC 000005 C=5
BAC 000006 A=6
BC
BUBLT6MOVEUPMPLEUPFWC 032752 200 05 0 00 036500 UBLT6: MOVE 5,UPMP+LEUPFW
BMOVEUPMPMUUOC 032753 200 06 0 00 036425 MOVE 6,UPMP+MUUO+1
BERROR1C ERROR1 13,C,A,PAGE FAILURE,<CORRECT=PF WORD, ACTUAL=PF PC>^
BSALLERUUOTTSIXBITCCASIXBITC 032754 036 13 0 00 034322
BXALLERLP2UBLT4C 032755 035 02 0 00 032710 ERLP2 UBLT4
BC
BUBLT7JRSTLASTC 032756 254 00 0 00 032757 UBLT7: JRST LAST
BC
BLASTJRSTBEGENDC 032757 254 00 0 00 030057 LAST: JRST BEGEND
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 41
DFKEBM MAC 13-Jan-89 13:45 SPECIAL PROGRAM SUBROUTINES
BSUBTTLC SUBTTL SPECIAL PROGRAM SUBROUTINES
BC
BIFNDEFPAGSIZC IFNDEF PAGSIZ,<PAGSIZ=21>
BC
BTRAPSTC 032760 000000 000000 TRAPST: 0 ;FOR JSR
BMOVEMXAC0XAC0C 032761 202 00 0 00 035011 MOVEM XAC0# ;SAVE AC0
BMOVETPLSTTPLSTC 032762 200 00 0 00 034325 MOVE [TPLST,,421] ;BLT POINTER
BBLTC 032763 251 00 0 00 000423 BLT 423 ;FILL LOCATIONS
BMOVEXAC0C 032764 200 00 0 00 035011 MOVE XAC0 ;RESTORE AC0
BJRSTTRAPSTC 032765 254 00 1 00 032760 JRST @TRAPST ;RETURN
BC
BTPLSTMOVEIC 032766 201 00 0 00 000421 TPLST: MOVEI 421
BMOVEIC 032767 201 00 0 00 000422 MOVEI 422
BMOVEIC 032770 201 00 0 00 000423 MOVEI 423
BC
BC ;*PAGE TABLE SETUP
BC
BPAGSETMOVSIPAGSIZC 032771 205 01 0 00 777757 PAGSET: MOVSI 1,-PAGSIZ ;SET UP PAGE COUNT
BMOVEC 032772 200 00 0 00 034326 MOVE [737776,,737777] ;ADDRESS
BSKIPECNSFLGCNSFLGC 032773 332 00 0 00 035005 SKIPE CNSFLG# ;IF CONCEALED DONT SET PUBLIC
BMOVEC 032774 200 00 0 00 034327 MOVE [537776,,537777]
BADDC 032775 270 00 0 00 034330 ADD [2,,2] ;NEW ADRESS
BMOVEMUPMPC 032776 202 00 0 01 036000 MOVEM UPMP(1) ;STORE PAGE MAP
BAOBJNC 032777 253 01 0 00 032775 AOBJN 1,.-2 ;LOOP TILL DONE
BPAGE1JSPC 033000 265 01 0 00 033001 PAGE1: JSP 1,.+1
BTLNEUSERFC 033001 603 01 0 00 010000 TLNE 1,USERF ;IF IN USER MODE FORGET PAGE RESET
BPOPJPC 033002 263 17 0 00 000000 POPJ P, ;EXIT DIRECTLY
BCONOPAGLTRPENC 033003 7 010 20 0 00 020000 CONO PAG,LTRPEN
BDATAOPAGLLDUSBLLDUSBUPMPC 033004 7 010 14 0 00 034246 DATAO PAG,[LLDUSB,,400000!<UPMP_-^D9>]
BJRSTFC 033005 254 02 1 00 033006 JRSTF @.+1 ;ENTER USER MODE
BUSERFUSERFC 033006 010000 033007 USERF,,.+1 ;ENTRY FLAG
BJRSTC 033007 254 01 0 00 033010 JRST 1,.+1 ;ENTRY
BJSPC 033010 265 00 0 00 033011 JSP .+1 ;GET FLAGS
BTLNNUSERFC 033011 607 00 0 00 010000 TLNN USERF ;DID WE GET INTO USER MODE?
BERROR1C ERROR1 13,C,A,ENTRY TO USER MODE UNSUCESSFUL,JRSTF FAILED^
BSALLERUUOTTSIXBITCCASIXBITC 033012 036 13 0 00 034342
BXALLERLP2PAGSETC 033013 035 02 0 00 032771 ERLP2 PAGSET
BPOPJPC 033014 263 17 0 00 000000 POPJ P, ;RETURN TO CALLING SEQUENCE
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BSUBTTLC SUBTTL *STOR* RESERVED STORAGE, JULY 19,1977
BC
BC ;PROGRAM LITERALS
BC
BXLISTC XLIST
BIFNDEF$LPAPELISTC IFNDEF $LPAPER,<LIST>
BLITC 033015 LIT
BC 033015 55 57 56 51 64 57
BC 033016 62 00 65 65 57 00
BC 033017 64 45 63 64 00 15
BC 033020 00 64 62 41 60 60
BC 033021 51 56 47 00 51 56
BC 033022 00 53 45 62 56 41
BC 033023 54 00 55 57 44 45
BC 033024 77 00 00 00 00 00
BC 033025 100000 400000
BC 033026 55 65 65 57 00 44
BC 033027 51 44 00 56 57 64
BC 033030 00 64 62 41 60 00
BC 033031 51 56 00 53 45 62
BC 033032 56 41 54 00 55 57
BC 033033 44 45 77 00 00 00
BC 033034 43 10 43 57 62 62
BC 033035 45 43 64 11 35 55
BC 033036 57 56 51 64 57 62
BC 033037 00 65 65 57 77 00
BC 033040 033015 033026
BC 033041 030632 000424
BC 033042 033034 000000
BC 033043 43 10 43 57 62 62
BC 033044 45 43 64 11 35 55
BC 033045 65 65 57 77 00 00
BC 033046 033015 033026
BC 033047 030655 000424
BC 033050 033043 000000
BC 033051 033015 033026
BC 033052 030700 000424
BC 033053 033043 000000
BC 033054 55 57 56 51 64 57
BC 033055 62 00 65 65 57 00
BC 033056 64 45 63 64 00 15
BC 033057 00 65 65 57 00 63
BC 033060 64 57 62 45 00 51
BC 033061 56 64 57 00 24 22
BC 033062 24 77 00 00 00 00
BC 033063 43 57 56 64 45 56
BC 033064 64 63 00 57 46 00
BC 033065 24 22 24 00 51 63
BC 033066 00 56 57 64 00 45
BC 033067 61 65 41 54 00 64
BC 033070 57 00 45 70 45 43
BC 033071 65 64 45 44 00 65
BC 033072 65 57 77 00 00 00
BC 033073 033054 033063
BC 033074 030723 000424
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-1
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 033075 033024 000000
BC 033076 55 57 56 51 64 57
BC 033077 62 00 65 65 57 00
BC 033100 15 00 63 64 57 62
BC 033101 45 00 43 57 62 62
BC 033102 45 43 64 00 60 43
BC 033103 77 00 00 00 00 00
BC 033104 000000 030750
BC 033105 55 65 65 57 00 44
BC 033106 51 44 00 56 57 64
BC 033107 00 63 64 57 62 45
BC 033110 00 64 50 45 00 43
BC 033111 57 62 62 45 43 64
BC 033112 00 60 43 77 00 00
BC 033113 43 10 24 22 25 11
BC 033114 00 50 41 63 00 60
BC 033115 43 00 63 64 57 62
BC 033116 45 44 77 00 00 00
BC 033117 033076 033105
BC 033120 033104 000001
BC 033121 033113 000000
BC 033122 55 57 56 51 64 57
BC 033123 62 00 65 65 57 00
BC 033124 15 00 63 64 57 62
BC 033125 45 00 45 00 43 57
BC 033126 62 62 45 43 64 54
BC 033127 71 77 00 00 00 00
BC 033130 55 65 65 57 00 44
BC 033131 51 44 00 56 57 64
BC 033132 00 63 64 57 62 45
BC 033133 00 45 00 43 57 62
BC 033134 62 45 43 64 54 71
BC 033135 77 00 00 00 00 00
BC 033136 43 10 24 22 24 11
BC 033137 00 50 41 63 00 45
BC 033140 00 66 41 54 65 45
BC 033141 00 63 64 57 62 45
BC 033142 44 77 00 00 00 00
BC 033143 033122 033130
BC 033144 000007 000001
BC 033145 033136 000000
BC 033146 55 57 56 51 64 57
BC 033147 62 00 65 65 57 00
BC 033150 64 45 63 64 00 15
BC 033151 00 64 62 41 60 60
BC 033152 51 56 47 00 51 56
BC 033153 00 43 57 56 43 45
BC 033154 41 54 45 44 00 55
BC 033155 57 44 45 77 00 00
BC 033156 55 65 65 57 00 44
BC 033157 51 44 00 56 57 64
BC 033160 00 64 62 41 60 00
BC 033161 51 56 00 43 57 56
BC 033162 43 45 41 54 45 44
BC 033163 00 55 57 44 45 77
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-2
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 033164 033146 033156
BC 033165 031022 036424
BC 033166 033034 000000
BC 033167 55 65 65 57 00 64
BC 033170 62 41 60 60 45 44
BC 033171 00 64 57 00 51 56
BC 033172 43 57 62 62 45 43
BC 033173 64 00 64 62 41 60
BC 033174 00 54 57 43 41 64
BC 033175 51 57 56 77 00 00
BC 033176 033146 033167
BC 033177 031022 036424
BC 033200 033024 000000
BC 033201 55 65 65 57 00 44
BC 033202 51 44 00 56 57 64
BC 033203 00 64 62 41 60 77
BC 033204 033054 033201
BC 033205 031056 036424
BC 033206 033024 000000
BC 033207 033054 033063
BC 033210 031056 036424
BC 033211 033024 000000
BC 033212 55 65 65 57 00 64
BC 033213 62 41 60 45 44 00
BC 033214 64 57 00 51 56 43
BC 033215 57 62 62 45 43 64
BC 033216 00 64 62 41 60 00
BC 033217 54 57 43 41 64 51
BC 033220 57 56 77 00 00 00
BC 033221 033054 033212
BC 033222 031056 036424
BC 033223 033024 000000
BC 033224 55 57 56 51 64 57
BC 033225 62 00 65 65 57 00
BC 033226 15 00 63 64 57 62
BC 033227 51 56 47 00 64 50
BC 033230 45 00 43 57 62 62
BC 033231 45 43 64 00 60 43
BC 033232 77 00 00 00 00 00
BC 033233 000000 031115
BC 033234 033224 033105
BC 033235 033233 000001
BC 033236 033024 000000
BC 033237 55 65 65 57 00 44
BC 033240 51 44 00 56 57 64
BC 033241 00 64 62 41 60 00
BC 033242 64 57 00 43 57 62
BC 033243 62 45 43 64 00 64
BC 033244 62 41 60 77 00 00
BC 033245 033224 033237
BC 033246 033233 000001
BC 033247 033024 000000
BC 033250 55 65 65 57 00 63
BC 033251 64 57 62 51 56 47
BC 033252 00 64 50 45 00 43
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-3
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 033253 57 62 62 45 43 64
BC 033254 00 45 00 46 51 45
BC 033255 54 44 77 00 00 00
BC 033256 55 65 65 57 00 44
BC 033257 51 44 00 56 57 64
BC 033260 00 64 62 41 60 00
BC 033261 51 56 00 43 57 56
BC 033262 43 45 41 54 45 44
BC 033263 77 00 00 00 00 00
BC 033264 033250 033256
BC 033265 000007 000001
BC 033266 033024 000000
BC 033267 033250 033130
BC 033270 000007 000001
BC 033271 033024 000000
BC 033272 033250 033237
BC 033273 000007 000001
BC 033274 033024 000000
BC 033275 55 57 56 51 64 57
BC 033276 62 00 65 65 57 00
BC 033277 64 45 63 64 00 15
BC 033300 00 64 62 41 60 60
BC 033301 51 56 47 00 51 56
BC 033302 00 60 65 42 54 51
BC 033303 43 00 55 57 44 45
BC 033304 77 00 00 00 00 00
BC 033305 55 65 65 57 00 44
BC 033306 51 44 00 56 57 64
BC 033307 00 64 62 41 60 00
BC 033310 51 56 00 60 65 42
BC 033311 54 51 43 77 00 00
BC 033312 033275 033305
BC 033313 031205 036424
BC 033314 033034 000000
BC 033315 55 65 65 57 00 44
BC 033316 51 44 00 56 57 64
BC 033317 00 64 62 41 60 00
BC 033320 64 57 00 60 65 42
BC 033321 54 51 43 00 56 57
BC 033322 00 64 62 41 60 77
BC 033323 033275 033315
BC 033324 031205 036424
BC 033325 033024 000000
BC 033326 55 65 65 57 00 44
BC 033327 51 44 00 56 57 64
BC 033330 00 64 62 41 60 00
BC 033331 51 56 00 60 65 42
BC 033332 54 51 43 00 55 57
BC 033333 44 45 77 00 00 00
BC 033334 033054 033326
BC 033335 031241 036424
BC 033336 033024 000000
BC 033337 033054 033063
BC 033340 031241 036424
BC 033341 033024 000000
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-4
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 033342 55 65 65 57 00 44
BC 033343 51 44 00 56 57 64
BC 033344 00 64 62 41 60 00
BC 033345 64 57 00 60 65 42
BC 033346 54 51 43 00 64 62
BC 033347 41 60 77 00 00 00
BC 033350 033054 033342
BC 033351 031241 036424
BC 033352 033024 000000
BC 033353 55 57 56 51 64 57
BC 033354 62 00 65 65 57 00
BC 033355 15 00 63 64 57 62
BC 033356 51 56 47 00 45 00
BC 033357 43 57 62 62 45 43
BC 033360 64 54 71 77 00 00
BC 033361 000000 031302
BC 033362 033353 033305
BC 033363 033361 000000
BC 033364 033024 000000
BC 033365 033353 033105
BC 033366 033361 000000
BC 033367 033024 000000
BC 033370 55 65 65 57 00 44
BC 033371 51 44 00 56 57 64
BC 033372 00 64 62 41 60 00
BC 033373 64 57 00 60 65 42
BC 033374 54 51 43 77 00 00
BC 033375 033353 033370
BC 033376 033361 000000
BC 033377 033024 000000
BC 033400 033250 033305
BC 033401 000007 000001
BC 033402 033024 000000
BC 033403 033250 033370
BC 033404 000007 000001
BC 033405 033024 000000
BC 033406 55 57 56 51 64 57
BC 033407 62 00 65 65 57 00
BC 033410 64 45 63 64 00 15
BC 033411 00 64 62 41 60 60
BC 033412 51 56 47 77 00 00
BC 033413 033406 033201
BC 033414 031375 036424
BC 033415 033034 000000
BC 033416 55 65 65 57 00 44
BC 033417 51 44 00 56 57 64
BC 033420 00 64 62 41 60 00
BC 033421 64 57 00 43 57 62
BC 033422 62 45 43 64 00 64
BC 033423 62 41 60 00 51 56
BC 033424 00 60 65 42 54 51
BC 033425 43 77 00 00 00 00
BC 033426 033406 033416
BC 033427 031375 036424
BC 033430 033024 000000
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-5
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 033431 033054 033305
BC 033432 031432 036424
BC 033433 033024 000000
BC 033434 033054 033063
BC 033435 031432 036424
BC 033436 033024 000000
BC 033437 55 65 65 57 00 64
BC 033440 62 41 60 60 45 44
BC 033441 00 64 57 00 67 62
BC 033442 57 56 47 00 64 62
BC 033443 41 60 00 51 56 00
BC 033444 60 65 42 54 51 43
BC 033445 77 00 00 00 00 00
BC 033446 033054 033437
BC 033447 031432 036424
BC 033450 033024 000000
BC 033451 033054 033305
BC 033452 031470 036424
BC 033453 033024 000000
BC 033454 033054 033105
BC 033455 031470 036424
BC 033456 033024 000000
BC 033457 033054 033416
BC 033460 031470 036424
BC 033461 033024 000000
BC 033462 033054 033326
BC 033463 031523 036424
BC 033464 033024 000000
BC 033465 033054 033130
BC 033466 031523 036424
BC 033467 033024 000000
BC 033470 033054 033416
BC 033471 031523 036424
BC 033472 033024 000000
BC 033473 63 65 60 45 62 66
BC 033474 51 63 57 62 00 55
BC 033475 57 44 45 00 64 45
BC 033476 63 64 77 00 00 00
BC 033477 253 00 0 00 400001
BC 033500 254 01 0 00 031566
BC 033501 55 65 65 57 00 44
BC 033502 51 44 00 56 57 64
BC 033503 00 43 41 65 63 45
BC 033504 00 64 62 41 60 00
BC 033505 64 57 00 53 45 62
BC 033506 56 41 54 00 46 62
BC 033507 57 55 00 63 65 60
BC 033510 45 62 66 51 63 57
BC 033511 62 77 00 00 00 00
BC 033512 033473 033501
BC 033513 000000 000000
BC 033514 033024 000000
BC 033515 55 65 65 57 00 44
BC 033516 51 44 00 56 57 64
BC 033517 00 64 62 41 60 00
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-6
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 033520 64 57 00 63 65 60
BC 033521 45 62 66 51 63 57
BC 033522 62 00 64 62 41 60
BC 033523 77 00 00 00 00 00
BC 033524 033473 033515
BC 033525 000000 000000
BC 033526 033024 000000
BC 033527 41 62 57 66 00 64
BC 033530 62 41 60 00 64 45
BC 033531 63 64 77 00 00 00
BC 033532 000000 000421
BC 033533 000200 031610
BC 033534 41 62 57 66 00 44
BC 033535 51 44 00 56 57 64
BC 033536 00 64 62 41 60 00
BC 033537 64 57 00 24 22 21
BC 033540 77 00 00 00 00 00
BC 033541 033527 033534
BC 033542 033532 000000
BC 033543 033024 000000
BC 033544 60 44 54 57 66 00
BC 033545 64 62 41 60 00 64
BC 033546 45 63 64 77 00 00
BC 033547 000000 000422
BC 033550 000400 031624
BC 033551 60 44 57 66 64 60
BC 033552 00 44 51 44 00 56
BC 033553 57 64 00 64 62 41
BC 033554 60 00 64 57 00 24
BC 033555 22 22 77 00 00 00
BC 033556 033544 033551
BC 033557 033547 000000
BC 033560 033024 000000
BC 033561 64 62 41 60 23 00
BC 033562 64 62 41 60 00 64
BC 033563 45 63 64 77 00 00
BC 033564 000000 000423
BC 033565 000600 031640
BC 033566 64 62 41 60 23 00
BC 033567 64 62 41 60 00 44
BC 033570 51 44 00 56 57 64
BC 033571 00 64 62 41 60 00
BC 033572 64 57 00 24 22 23
BC 033573 77 00 00 00 00 00
BC 033574 033561 033566
BC 033575 033564 000000
BC 033576 033024 000000
BC 033577 010000 031674
BC 033600 000000 000001
BC 033601 55 65 65 57 00 44
BC 033602 51 44 00 56 57 64
BC 033603 00 43 41 65 63 45
BC 033604 00 64 62 41 60 77
BC 033605 033561 033601
BC 033606 033577 000001
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-7
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 033607 033024 000000
BC 033610 55 65 65 57 00 44
BC 033611 51 44 00 56 57 64
BC 033612 00 62 45 15 45 56
BC 033613 64 45 62 00 65 63
BC 033614 45 62 15 55 57 44
BC 033615 45 77 00 00 00 00
BC 033616 033561 033610
BC 033617 033577 000001
BC 033620 033024 000000
BC 033621 000000 031715
BC 033622 004000 031752
BC 033623 033561 033601
BC 033624 033622 000001
BC 033625 033024 000000
BC 033626 55 55 65 57 00 44
BC 033627 51 44 00 56 57 64
BC 033630 00 63 45 64 00 45
BC 033631 70 51 57 64 00 46
BC 033632 54 41 47 77 00 00
BC 033633 033561 033626
BC 033634 033622 000001
BC 033635 033024 000000
BC 033636 400000 032007
BC 033637 033561 033601
BC 033640 033636 000001
BC 033641 033024 000000
BC 033642 55 65 65 57 00 44
BC 033643 51 44 00 56 57 64
BC 033644 00 63 45 64 00 41
BC 033645 62 51 64 50 55 45
BC 033646 64 51 43 00 57 66
BC 033647 45 62 46 54 57 67
BC 033650 00 46 54 41 47 77
BC 033651 033561 033642
BC 033652 033636 000001
BC 033653 033024 000000
BC 033654 200000 032044
BC 033655 033561 033601
BC 033656 033654 000001
BC 033657 033024 000000
BC 033660 55 65 65 57 00 44
BC 033661 51 44 00 56 57 64
BC 033662 00 63 45 64 00 43
BC 033663 62 71 20 00 46 54
BC 033664 41 47 77 00 00 00
BC 033665 033561 033660
BC 033666 033654 000001
BC 033667 033024 000000
BC 033670 100000 032101
BC 033671 033561 033601
BC 033672 033670 000001
BC 033673 033024 000000
BC 033674 55 65 65 57 00 44
BC 033675 51 44 00 56 57 64
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-8
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 033676 00 63 45 64 00 43
BC 033677 62 71 21 00 46 54
BC 033700 41 47 77 00 00 00
BC 033701 033561 033674
BC 033702 033670 000001
BC 033703 033024 000000
BC 033704 040000 032136
BC 033705 033561 033601
BC 033706 033704 000001
BC 033707 033024 000000
BC 033710 55 65 65 57 00 44
BC 033711 51 44 00 56 57 64
BC 033712 00 63 45 64 00 46
BC 033713 57 66 00 46 54 41
BC 033714 47 77 00 00 00 00
BC 033715 033561 033710
BC 033716 033704 000001
BC 033717 033024 000000
BC 033720 020000 032173
BC 033721 033561 033601
BC 033722 033720 000001
BC 033723 033024 000000
BC 033724 55 65 65 57 00 44
BC 033725 51 44 00 56 57 64
BC 033726 00 63 45 64 00 42
BC 033727 51 63 00 46 54 41
BC 033730 47 77 00 00 00 00
BC 033731 033561 033724
BC 033732 033720 000001
BC 033733 033024 000000
BC 033734 000100 032230
BC 033735 033561 033601
BC 033736 033734 000001
BC 033737 033024 000000
BC 033740 55 65 65 57 00 44
BC 033741 51 44 00 56 57 64
BC 033742 00 63 45 64 00 46
BC 033743 70 65 00 46 54 41
BC 033744 47 77 00 00 00 00
BC 033745 033561 033740
BC 033746 033734 000001
BC 033747 033024 000000
BC 033750 000040 032265
BC 033751 033561 033601
BC 033752 033750 000001
BC 033753 033024 000000
BC 033754 55 65 65 57 00 44
BC 033755 51 44 00 56 57 64
BC 033756 00 63 45 64 00 44
BC 033757 43 53 00 46 54 41
BC 033760 47 77 00 00 00 00
BC 033761 033561 033754
BC 033762 033750 000001
BC 033763 033024 000000
BC 033764 760140 032322
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-9
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 033765 033561 033601
BC 033766 033764 000001
BC 033767 033024 000000
BC 033770 55 65 65 57 00 44
BC 033771 51 44 00 56 57 64
BC 033772 00 63 45 64 00 43
BC 033773 62 71 20 13 43 62
BC 033774 71 21 13 41 62 57
BC 033775 66 13 46 57 66 13
BC 033776 46 70 65 13 44 43
BC 033777 53 13 42 51 63 00
BC 034000 46 54 41 47 63 77
BC 034001 033561 033770
BC 034002 033764 000001
BC 034003 033024 000000
BC 034004 51 57 64 00 55 65
BC 034005 65 57 76 43 57 56
BC 034006 43 45 41 54 45 44
BC 034007 00 55 57 44 45 77
BC 034010 51 57 64 00 44 51
BC 034011 44 00 56 57 64 00
BC 034012 64 62 41 60 77 00
BC 034013 43 35 51 57 64 77
BC 034014 034004 034010
BC 034015 032352 036424
BC 034016 034013 000000
BC 034017 51 57 64 00 44 51
BC 034020 44 00 56 57 64 00
BC 034021 64 62 41 60 00 64
BC 034022 57 00 60 62 57 60
BC 034023 45 62 00 64 62 41
BC 034024 60 77 00 00 00 00
BC 034025 034004 034017
BC 034026 032352 036424
BC 034027 033024 000000
BC 034030 43 57 56 64 45 56
BC 034031 64 63 00 57 46 00
BC 034032 24 22 24 00 56 57
BC 034033 64 00 45 70 45 43
BC 034034 65 64 45 44 00 51
BC 034035 57 64 77 00 00 00
BC 034036 034004 034030
BC 034037 032352 036424
BC 034040 033024 000000
BC 034041 000000 032353
BC 034042 51 57 64 00 55 65
BC 034043 65 57 00 44 51 44
BC 034044 00 56 57 64 00 63
BC 034045 64 57 62 45 00 43
BC 034046 57 62 62 45 43 64
BC 034047 00 60 43 77 00 00
BC 034050 034004 034042
BC 034051 034041 000001
BC 034052 033024 000000
BC 034053 51 57 64 00 55 65
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-10
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 034054 65 57 76 60 65 42
BC 034055 54 51 43 00 55 57
BC 034056 44 45 77 00 00 00
BC 034057 034053 034010
BC 034060 032420 036424
BC 034061 034013 000000
BC 034062 034053 034017
BC 034063 032420 036424
BC 034064 033024 000000
BC 034065 034053 034030
BC 034066 032420 036424
BC 034067 033024 000000
BC 034070 000000 032421
BC 034071 034053 034042
BC 034072 034070 000001
BC 034073 033024 000000
BC 034074 51 57 64 00 55 65
BC 034075 65 57 76 63 65 60
BC 034076 45 62 66 51 63 57
BC 034077 62 00 55 57 44 45
BC 034100 77 00 00 00 00 00
BC 034101 255 17 0 00 400001
BC 034102 254 01 0 00 032473
BC 034103 034074 034010
BC 034104 400001 000424
BC 034105 034013 000000
BC 034106 51 57 64 00 44 51
BC 034107 44 00 56 57 64 00
BC 034110 64 62 41 60 00 64
BC 034111 57 00 63 65 60 45
BC 034112 62 66 51 63 57 62
BC 034113 00 64 62 41 60 77
BC 034114 034074 034106
BC 034115 400001 000424
BC 034116 033024 000000
BC 034117 034074 034030
BC 034120 400001 000424
BC 034121 033024 000000
BC 034122 000000 400002
BC 034123 034074 034042
BC 034124 034122 000001
BC 034125 033024 000000
BC 034126 60 62 57 60 62 51
BC 034127 45 64 41 62 71 00
BC 034130 64 62 41 56 63 46
BC 034131 45 62 76 63 65 60
BC 034132 45 62 66 51 63 57
BC 034133 62 00 55 57 44 45
BC 034134 77 00 00 00 00 00
BC 034135 254 00 0 00 032557
BC 034136 254 01 0 00 032554
BC 034137 52 62 63 64 00 64
BC 034140 57 00 53 45 62 56
BC 034141 41 54 77 00 00 00
BC 034142 56 57 64 50 51 56
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-11
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 034143 47 00 50 41 60 60
BC 034144 45 56 45 44 77 00
BC 034145 034126 034137
BC 034146 000000 000000
BC 034147 034142 000000
BC 034150 52 62 63 64 00 67
BC 034151 45 56 64 00 64 57
BC 034152 00 53 45 62 56 41
BC 034153 54 77 00 00 00 00
BC 034154 56 57 00 64 62 41
BC 034155 60 77 00 00 00 00
BC 034156 034126 034150
BC 034157 000000 000000
BC 034160 034154 000000
BC 034161 002000 032560
BC 034162 60 41 47 45 00 46
BC 034163 41 51 54 00 63 41
BC 034164 66 45 44 00 60 43
BC 034165 00 67 62 57 56 47
BC 034166 77 00 00 00 00 00
BC 034167 034126 034162
BC 034170 000013 000014
BC 034171 033024 000000
BC 034172 60 62 57 60 62 51
BC 034173 45 64 41 62 64 71
BC 034174 00 67 62 51 64 45
BC 034175 76 63 65 60 45 62
BC 034176 66 51 63 57 62 00
BC 034177 55 57 44 45 77 00
BC 034200 476 00 0 00 035010
BC 034201 254 01 0 00 032607
BC 034202 034172 034137
BC 034203 000000 000000
BC 034204 034154 000000
BC 034205 213000 035010
BC 034206 211000 035010
BC 034207 60 41 47 45 00 46
BC 034210 41 51 54 00 67 57
BC 034211 62 44 00 67 62 57
BC 034212 56 47 77 00 00 00
BC 034213 034172 034207
BC 034214 000013 000014
BC 034215 033024 000000
BC 034216 002000 400001
BC 034217 034172 034162
BC 034220 000013 000014
BC 034221 033024 000000
BC 034222 67 62 57 64 45 00
BC 034223 51 56 64 57 00 53
BC 034224 45 62 56 41 54 00
BC 034225 54 57 43 77 00 00
BC 034226 034172 034222
BC 034227 000013 000014
BC 034230 033024 000000
BC 034231 65 63 45 62 00 55
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-12
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 034232 57 44 45 00 60 65
BC 034233 42 54 51 43 76 55
BC 034234 41 70 51 55 65 55
BC 034235 00 42 54 57 43 53
BC 034236 00 64 62 41 56 63
BC 034237 46 45 62 77 00 00
BC 034240 254 04 0 00 000013
BC 034241 254 01 0 00 000011
BC 034242 402 00 0 00 000020
BC 034243 251 07 0 00 777777
BC 034244 000020 000021
BC 034245 000000 036502
BC 034246 100000 400036
BC 034247 51 56 43 57 62 62
BC 034250 45 43 64 00 64 45
BC 034251 62 55 51 56 41 64
BC 034252 51 57 56 00 55 65
BC 034253 65 57 77 00 00 00
BC 034254 034231 034247
BC 034255 034240 036424
BC 034256 033024 000000
BC 034257 010000 000014
BC 034260 51 56 43 57 62 62
BC 034261 45 43 64 00 64 45
BC 034262 62 55 51 56 41 64
BC 034263 51 57 56 00 60 43
BC 034264 77 00 00 00 00 00
BC 034265 034231 034260
BC 034266 034257 036425
BC 034267 033024 000000
BC 034270 60 41 47 45 00 46
BC 034271 41 51 54 65 62 45
BC 034272 77 00 00 00 00 00
BC 034273 43 57 62 62 45 43
BC 034274 64 35 60 46 00 67
BC 034275 57 62 44 14 00 41
BC 034276 43 64 65 41 54 35
BC 034277 60 46 00 60 43 77
BC 034300 034231 034270
BC 034301 000005 000006
BC 034302 034273 000000
BC 034303 65 63 45 62 00 55
BC 034304 57 44 45 00 43 57
BC 034305 56 43 45 41 54 45
BC 034306 44 76 55 41 70 51
BC 034307 55 65 55 00 42 54
BC 034310 57 43 53 00 64 62
BC 034311 41 56 63 46 45 62
BC 034312 77 00 00 00 00 00
BC 034313 476 00 0 00 000020
BC 034314 034303 034247
BC 034315 034240 036424
BC 034316 033024 000000
BC 034317 034303 034260
BC 034320 034257 036425
DFKEB DECSYSTEM KL10 MUUO AND MODE DIAGNOSTIC, VER 0,3 MACRO %53B(1252) 14:28 18-Nov-93 Page 1-13
STOR KLM 12-Jan-89 22:59 *STOR* RESERVED STORAGE, JULY 19,1977
BC 034321 033024 000000
BC 034322 034303 034270
BC 034323 000005 000006
BC 034324 034273 000000
BC 034325 032766 000421
BC 034326 737776 737777
BC 034327 537776 537777
BC 034330 000002 000002
BC 034331 45 56 64 62 71 00
BC 034332 64 57 00 65 63 45
BC 034333 62 00 55 57 44 45
BC 034334 00 65 56 63 65 43
BC 034335 45 63 63 46 65 54
BC 034336 77 00 00 00 00 00
BC 034337 52 62 63 64 46 00
BC 034340 46 41 51 54 45 44
BC 034341 77 00 00 00 00 00
BC 034342 034303 034331
BC 034343 000005 000006
BC 034344 034337 000000
BLISTC LIST
BENDSLDC 034703 000000 000000 ENDSLD: 0
BC
BIFDEFDEBUGC IFDEF DEBUG,<
BPATCHBLOCKDEBUGC 034704 PATCH: BLOCK DEBUG ;PATCHING AREA
BC >
BC
BC ;PROGRAM VARIABLES
BVARC 035004 VAR
BC
BIFDEFPGMENDC IFDEF PGMEND,<
BENDC 035012 000000 000000 END: 0
BENDBEGINC 030000 END BEGIN >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 035013
CPU TIME USED 00:11.016
19P CORE USED