1087 lines
38 KiB
Text
1087 lines
38 KiB
Text
SUBTTL *PARAM* CONSOLE DATA SWITCH ASSIGNMENTS, SEPT 18,1979
|
|
|
|
DEFINE S,<; *********************************************************************>
|
|
|
|
; **********************************************************************
|
|
;*DATA SWITCHES (READ FROM CONSOLE IN EXEC MODE OR TYPED IN IN USER MODE)
|
|
;*LEFT HALF SWITCHES ARE PRE-ASSIGNED FOR SUBROUTINE PACKAGE USE
|
|
;*AND CONTROL LOOPING, PRINTING (TTY OR OTHER DEVICE) AND MISC. FUNCTIONS
|
|
; **********************************************************************
|
|
|
|
ABORT== 400000 ;ABORT PROGRAM ON PASS COMPLETION
|
|
RSTART==200000 ;RESTART TEST, PRINT TOTALS
|
|
TOTALS==100000 ;PRINT TOTALS, CONTINUE
|
|
|
|
NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
|
|
PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
|
|
DING== 010000 ;RING BELL ON ERROR
|
|
|
|
LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
|
|
ERSTOP==002000 ;HALT ON TEST ERROR
|
|
PALERS==001000 ;PRINT ALL ERRORS
|
|
|
|
RELIAB==000400 ;RELIABILITY MODE
|
|
TXTINH==000200 ;INHIBIT ERROR TEXT
|
|
INHPAG==000100 ;INHIBIT PAGING
|
|
|
|
MODDVC==000040 ;MODIFY DEVICE CODE
|
|
INHCSH==000020 ;INHIBIT CACHE
|
|
OPRSEL==000010 ;OPERATOR SELECTION
|
|
|
|
CHAIN== 000004 ;CHAIN CONTROL SWITCH
|
|
|
|
KAHZ50==000002 ;KA10 50 HERTZ POWER
|
|
|
|
;SWITCH 17 RESERVED !!!
|
|
SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, SEPT 18,1979
|
|
|
|
; **********************************************************************
|
|
;*SPECIAL SUBPROGRAM LINKAGES
|
|
; **********************************************************************
|
|
|
|
FSELNK= 27772 ;FILE SELECT LINK
|
|
FRDLNK= 27773 ;FILE READ LINK
|
|
LDLNK= 27774 ;LOAD LINKAGE ADDRESS
|
|
DDTLNK= 27775 ;DDT LINKAGE ADDRESS
|
|
MODLNK= 27776 ;OPERATIONAL MODE CHECK LINKAGE ADDRESS
|
|
SUBLNK= 27777 ;SUBROUTINE LINKAGE ADDRESS
|
|
|
|
; **********************************************************************
|
|
;*SPECIAL SUBROUTINE FATAL HALTS
|
|
;*USED TO REPORT ERRORS THAT CAUSE THE SUBROUTINES TO BE UNUSABLE
|
|
; **********************************************************************
|
|
|
|
;ADDRESS TAG REASON
|
|
;---------------------
|
|
|
|
; 1010 NOEXEC ;PROGRAM NOT CODED FOR EXEC MODE OPERATION
|
|
; 1011 PLERR ;FATAL PUSH LIST POINTER ERROR
|
|
; 1012 PLERR1 ;INITIAL PUSH LIST POINTER ERROR
|
|
; 1013 MUOERR ;MUUO WITH LUUO HANDLER WIPED OUT
|
|
; 1014 DTEBER ;DTE20 INTERRUPT WITHOUT DOORBELL
|
|
; 1015 DTECER ;DTE20 CLOCK INTERRUPT WITHOUT FLAG SET
|
|
; 1016 CPIERR ;CPU INITIALIZATION ERROR
|
|
; 1017 EOPERR ;END OF PROGRAM ERROR
|
|
; 1020 LUOERR ;INTERRUPT WITH LUUO HANDLER WIPED OUT
|
|
|
|
; **********************************************************************
|
|
; **********************************************************************
|
|
;OPERATOR DEFINITIONS (NON-UUO'S)
|
|
; **********************************************************************
|
|
|
|
OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
|
|
OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
|
|
OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
|
|
OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST
|
|
OPDEF PJRST [JRST ] ;JRST TO ROUTINE THAT RTN'S
|
|
OPDEF HALT [JRST 4,] ;DEFINITION FOR DDT
|
|
OPDEF JRSTF [JRST 2,] ;DEFINITION FOR DDT
|
|
OPDEF JEN [JRST 12,] ;DEFINITION FOR DDT
|
|
|
|
; **********************************************************************
|
|
;SUBROUTINE INITIALIZATION CALL
|
|
; **********************************************************************
|
|
|
|
OPDEF PGMINT [JSP 0,SBINIT] ;SUBROUTINE INITIALIZATION
|
|
|
|
; **********************************************************************
|
|
;HALTING UUO'S (A MORE GRACEFUL HALT THAN SIMPLY USING THE HALT INSTRUCTION).
|
|
; **********************************************************************
|
|
|
|
OPDEF FATAL [37B8!15B12!4] ;FATAL PROGRAMMING HALT
|
|
OPDEF ERRHLT [37B8!14B12!4] ;PROGRAM ERROR HALT
|
|
|
|
; **********************************************************************
|
|
;TERMINAL INPUT UUO'S
|
|
;ALWAYS COME FROM THE CONSOLE TERMINAL IN EXEC MODE OR THE
|
|
;CONTROLLING TERMINAL (REAL TERMINAL OR PTY) IN USER MODE.
|
|
; **********************************************************************
|
|
|
|
OPDEF TTICHR [37B8!0B12!3] ;TTY, INPUT ANY CHARACTER
|
|
OPDEF TTIYES [37B8!1B12!3] ;TTY, NORMAL RETURN Y
|
|
OPDEF TTINO [37B8!2B12!3] ;TTY, NORMAL RETURN N
|
|
OPDEF TTIOCT [37B8!3B12!3] ;TTY, INPUT OCTAL WORD
|
|
OPDEF TTIDEC [37B8!4B12!3] ;TTY, INPUT DECIMAL WORD
|
|
OPDEF TTICNV [37B8!5B12!3] ;TTY, INPUT CONVERTABLE WORD
|
|
OPDEF TTLOOK [37B8!6B12!3] ;TTY, KEYBOARD CHECK
|
|
OPDEF TTALTM [37B8!7B12!3] ;TTY, ALT-MODE CHECK
|
|
OPDEF TTSIXB [37B8!10B12!3] ;TTY, INPUT SIXBIT WORD
|
|
OPDEF TTYINP [37B8!11B12!3] ;TTY, IMAGE MODE INPUT
|
|
OPDEF TTICLR [37B8!12B12!3] ;TTY, CLEAR INPUT
|
|
;TERMINAL OUTPUT UUO'S.
|
|
|
|
OPDEF PNTA [37B8!0B12!0] ;PRINT ASCII WORD
|
|
OPDEF PNTAF [37B8!0B12!1] ;PRINT ASCII WORD FORCED
|
|
OPDEF PNTAL [37B8!17B12!0] ;PRINT ASCIZ LINE
|
|
OPDEF PNTALF [37B8!17B12!1] ;PRINT ASCIZ LINE FORCED
|
|
OPDEF PSIXL [37B8!14B12!3] ;PRINT SIXBIT'Z LINE
|
|
OPDEF PSIXLF [37B8!15B12!3] ;PRINT SIXBIT'Z LINE FORCED
|
|
OPDEF PNTMSG [37B8!0B12!0] ;PRINT MESSAGE IMMEDIATE
|
|
OPDEF PNTMSF [37B8!1B12!0] ;PRINT MESSAGE IMMEDIATE FORCED
|
|
OPDEF PSIXM [37B8!2B12!0] ;PRINT SIXBIT'Z MSG IMMEDIATE
|
|
OPDEF PSIXMF [37B8!4B12!0] ;PRINT SIXBIT'Z MSG IMM FORCED
|
|
OPDEF PNTCI [37B8!0B12!0] ;PRINT CHARACTER IMMEDIATE
|
|
OPDEF PNTCIF [37B8!1B12!0] ;PRINT CHARACTER IMMEDIATE FORCED
|
|
OPDEF PNTCHR [37B8!12B12!0] ;PRINT CHARACTER
|
|
OPDEF PNTCHF [37B8!12B12!1] ;PRINT CHARACTER FORCED
|
|
OPDEF PNT1 [37B8!1B12!0] ;PRINT ONE OCTAL DIGIT
|
|
OPDEF PNT1F [37B8!1B12!1] ;PRINT 1 OCTAL DIGIT FORCED
|
|
OPDEF PNT2 [37B8!2B12!0] ;PRINT TWO OCTAL DIGITS
|
|
OPDEF PNT2F [37B8!2B12!1] ;PRINT 2 OCTAL DIGITS FORCED
|
|
OPDEF PNT3 [37B8!3B12!0] ;PRINT THREE OCTAL DIGITS
|
|
OPDEF PNT3F [37B8!3B12!1] ;PRINT THREE OCTAL DIGITS FORCED
|
|
OPDEF PNT4 [37B8!4B12!0] ;PRINT FOUR OCTAL DIGITS
|
|
OPDEF PNT4F [37B8!4B12!1] ;PRINT FOUR OCTAL DIGITS FORCED
|
|
OPDEF PNT5 [37B8!5B12!0] ;PRINT FIVE OCTAL DIGITS
|
|
OPDEF PNT5F [37B8!5B12!1] ;PRINT FIVE OCTAL DIGITS FORCED
|
|
OPDEF PNT6 [37B8!6B12!0] ;PRINT SIX OCTAL DIGITS
|
|
OPDEF PNT6F [37B8!6B12!1] ;PRINT SIX OCTAL DIGITS FORCED
|
|
OPDEF PNT7 [37B8!7B12!0] ;PRINT 7 OCTAL DIGITS
|
|
OPDEF PNT7F [37B8!7B12!1] ;PRINT 7 OCTAL DIGITS FORCED
|
|
OPDEF PNT11 [37B8!11B12!0] ;PRINT 11 OCTAL DIGITS
|
|
OPDEF PNT11F [37B8!11B12!1] ;PRINT 11 OCTAL DIGITS FORCED.
|
|
OPDEF PNTADR [37B8!10B12!0] ;PRINT PHYSICAL ADDRESS
|
|
OPDEF PNTADF [37B8!10B12!1] ;PRINT PHYSICAL ADDRESS FORCED
|
|
OPDEF PNTOCT [37B8!14B12!0] ;PRINT FULL WORD OCTAL
|
|
OPDEF PNTOTF [37B8!14B12!1] ;PRINT FULL WORD OCTAL FORCED
|
|
OPDEF PNTHW [37B8!13B12!0] ;PRINT OCTAL HALF WORDS, 6 SP 6
|
|
OPDEF PNTHWF [37B8!13B12!1] ;PRINT OCTAL HALF WORDS, 6 SP 6 FORCED
|
|
OPDEF PNTOCS [37B8!16B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S
|
|
OPDEF PNTOCF [37B8!17B12!3] ;PRINT OCTAL, SUPPRESS LEADING 0'S FORCED
|
|
OPDEF PNTDEC [37B8!15B12!0] ;PRINT DECIMAL, SUPRESS LEADING 0'S
|
|
OPDEF PNTDCF [37B8!15B12!1] ;PRINT DECIMAL, SUPRESS LEADING 0'S FORCED
|
|
OPDEF PNTDS [37B8!16B12!0] ;PRINT DECIMAL, SPACES FOR LD 0'S
|
|
OPDEF PNTDSF [37B8!16B12!1] ;PRINT DECIMAL, SPACES FOR LD 0'S FORCED
|
|
OPDEF PNTNM [37B8!4B12!2] ;PRINT PROGRAM NAME
|
|
OPDEF PNTSIX [37B8!0B12!2] ;PRINT SIXBIT WORD
|
|
OPDEF PNTSXF [37B8!1B12!2] ;PRINT SIXBIT WORD FORCED
|
|
OPDEF DROPDV [37B8!5B12!2] ;CLOSE LOGICAL FILE, USER MODE
|
|
OPDEF PNTCW [37B8!2B12!2] ;PRINT DF10 CONTROL WORD
|
|
OPDEF PNTCWF [37B8!3B12!2] ;PRINT DF10 CONTROL WORD FORCED
|
|
OPDEF PCRL [37B8!0B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED
|
|
OPDEF PCRLF [37B8!1B12!CRLF] ;PRINT CARRIAGE RETURN/LINE FEED FORCED
|
|
OPDEF PSP [37B8!0B12!40] ;PRINT SPACE
|
|
OPDEF PSPF [37B8!1B12!40] ;PRINT SPACE FORCED
|
|
OPDEF PCRL2 [37B8!0B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE)
|
|
OPDEF PCRL2F [37B8!1B12!CRLF2] ;PRINT CARRIAGE RETURN/LINE FEED (TWICE) FORCED
|
|
OPDEF PBELL [37B8!1B12!7] ;PRINT TTY BELL
|
|
|
|
OPDEF PFORCE [37B8!1B12!26] ;PRINT FORCE, CONTROL O OVERRIDE
|
|
|
|
DEFINE PMSG (ARG),<
|
|
PSIXM [SIXBIT\ARG'_\]>
|
|
|
|
DEFINE PMSGF (ARG),<
|
|
PSIXMF [SIXBIT\ARG'_\]>
|
|
|
|
;SIXBTZ -- MACRO TO GENERATE SIXBIT DATA FOR PRINTING
|
|
; CONSERVES CORE OVER ASCIZ
|
|
|
|
DEFINE SIXBTZ (ARG),< [SIXBIT\ARG'_\]>
|
|
|
|
;CONSOLE SWITCH INPUT UUO.
|
|
;READS CONSOLE SWITCHES IF IN EXEC MODE OR ASKS FOR THEM IF
|
|
; USER MODE.
|
|
|
|
OPDEF SWITCH [37B8!10B12!2] ;INPUT CONSOLE SWITCHES
|
|
|
|
;CLOCK INITIALIZATION UUO - TO SET DESIRED CLOCK OPERATION
|
|
;EITHER IGNORE CLOCK, ONLY LET IT TICK OR CAUSE INTERRUPT TO OCCUR.
|
|
|
|
OPDEF CLOKOP [37B8!13B12!4] ;CLOCK OPERATION UUO - PDP-11 CLOCK
|
|
OPDEF MTROP [37B8!4B12!4] ;CLOCK OPERATION UUO - DK20 METER
|
|
|
|
;KL10 ONLY CACHE OPERATION UUO'S
|
|
|
|
OPDEF CINVAL [37B8!1B12!4] ;CACHE INVALIDATE
|
|
OPDEF CFLUSH [37B8!2B12!4] ;CACHE FLUSH
|
|
OPDEF CWRTBI [37B8!3B12!4] ;CACHE WRITE-BACK & INVALIDATE
|
|
;END OF PASS/PROGRAM UUOS
|
|
|
|
;PERFORMS THE END OF PASS FUNCTIONS. INCREMENT PASS COUNT,
|
|
;DECREMENT ITERATION COUNT, CHECK IF FINISHED WITH THIS PROGRAM ETC.
|
|
|
|
OPDEF ENDUUO [37B8!12B12!4] ;UUO TO DISPLAY LIGHTS
|
|
OPDEF EOPUUO [37B8!16B12!4] ;END OF PROGRAM UUO
|
|
|
|
;MEMORY MANAGEMENT UUO'S
|
|
;UUO'S TO PERFORM VARIOUS MEMORY FUNCTIONS. MAPPING, ZEROING, PAGING,
|
|
;ADDRESS CONVERSION, ETC...
|
|
|
|
OPDEF MAPMEM [37B8!0B12!4] ;MAP MEMORY
|
|
OPDEF MEMZRO [37B8!12B12!2] ;ZERO MEMORY
|
|
OPDEF MEMSEG [37B8!11B12!2] ;SETUP MEMORY SEGMENT
|
|
OPDEF MAPADR [37B8!13B12!2] ;VIRTUAL TO PHYSICAL ADR CONVERT
|
|
OPDEF MAPCNK [37B8!15B12!2] ;MAP MEMORY CHUNK
|
|
OPDEF MAPSET [37B8!14B12!2] ;SET KI10 EXEC PAGE MAP
|
|
OPDEF MAPPNT [37B8!17B12!2] ;PRINT MEMORY MAP
|
|
|
|
;DEVICE CODE MODIFICATION UUO
|
|
;ALLOWS THE MODIFICATION OF IOT'S TO ONE DEVICE TO BE CHANGED TO
|
|
;IOT'S TO A DIFFERENT DEVICE CODE.
|
|
|
|
OPDEF MODPCU [37B8!7B12!2] ;MODIFY PERHIPERAL CODE, USER
|
|
OPDEF MODPCP [37B8!6B12!2] ;MODIFY PERHIPERAL CODE, PROGRAM
|
|
|
|
IFNDEF MODDVL,<MODDVL==BEGIN>
|
|
IFNDEF MODDVU,<MODDVU==BEGIN>
|
|
|
|
;"DIAMON" FILE SELECTION AND READ UUOS
|
|
|
|
OPDEF FSELECT [37B8!5B12!4] ;FILE SELECTION
|
|
OPDEF FREAD [37B8!6B12!4] ;FILE READ - ASCII DATA
|
|
OPDEF FRD36 [37B8!7B12!4] ;FILE READ - 36 BIT DATA
|
|
OPDEF FRD8 [37B8!10B12!4] ;FILE READ - 8 BIT DATA
|
|
|
|
;KI10 ONLY UUO FOR PRINTING MARGIN VALUES
|
|
|
|
OPDEF PNTMGN [37B8!16B12!2] ;PRINT MARGIN VALUE
|
|
|
|
XLIST
|
|
IFNDEF KLOLD,<LIST
|
|
SUBTTL ERROR HANDLING UUO DEFINITIONS, SEPT 18,1979
|
|
|
|
; **********************************************************************
|
|
;ERROR HANDLER PARAMETERS
|
|
; **********************************************************************
|
|
|
|
OPDEF ERUUO [36B8] ;ERROR CALL UUO
|
|
OPDEF ERLOOP [35B8] ;ERROR LOOP, CHECKS PC,REPT,REPT1,ERROR
|
|
OPDEF ERLP1 [35B8!1B12] ;ERROR LOOP IF PC'S MATCH
|
|
OPDEF ERLP2 [35B8!2B12] ;ERROR LOOP IF ANY ERROR
|
|
OPDEF REPTUO [34B8] ;REPEAT LOOP UUO
|
|
|
|
;THE ERROR HANDLER MACROS
|
|
|
|
;A MACRO TO REPORT AN ERROR AND LOOP
|
|
|
|
DEFINE ERROR (ADR,FORMAT,CORECT,ACTUAL,F,D,ERR)<
|
|
SALL
|
|
ERUUO FORMAT,[T,,[SIXBIT\F'_\]
|
|
CORECT,,ACTUAL
|
|
[SIXBIT\D'_\],,ERR]
|
|
XALL
|
|
ERLOOP ADR ;IF ERROR, LOOP TO ADR
|
|
>
|
|
|
|
;A MACRO TO REPORT AN ERROR AND NOT LOOP
|
|
|
|
DEFINE ERROR1 (FORMAT,CORECT,ACTUAL,F,D,ERR)<
|
|
SALL
|
|
ERUUO FORMAT,[T,,[SIXBIT\F'_\]
|
|
CORECT,,ACTUAL
|
|
[SIXBIT\D'_\],,ERR]
|
|
XALL>
|
|
|
|
>;END OF KLOLD CONDITIONAL
|
|
|
|
XLIST
|
|
IFDEF $PAPER,<LIST>
|
|
SUBTTL STANDARD PROGRAM ASSIGNMENTS
|
|
|
|
; **********************************************************************
|
|
;ACCUMULATORS
|
|
; **********************************************************************
|
|
|
|
P= 17 ;PUSHDOWN POINTER AC (IF PUSH LIST USED)
|
|
REPT== 15 ;ERROR HANDLER REPEAT AC
|
|
REPT1== 16 ; "
|
|
|
|
; **********************************************************************
|
|
;PDP-10 STANDARD PC CONTROL FLAGS (SAVED ON PUSHJ, JSR, ETC..)
|
|
; **********************************************************************
|
|
|
|
AROV== 400000 ;ARITHMETIC OVERFLOW
|
|
CRY0== 200000 ;CARRY 0
|
|
CRY1== 100000 ;CARRY 1
|
|
FOV== 40000 ;FLOATING POINT OVERFLOW
|
|
BIS== 20000 ;BYTE INTERRUPT
|
|
USERF== 10000 ;USER MODE
|
|
EXIOT== 4000 ;USER PRIV I/O
|
|
FXU== 100 ;FLOATING POINT UNDERFLOW
|
|
DCK== 40 ;DIVIDE CHECK
|
|
|
|
; **********************************************************************
|
|
;PDP-10 STANDARD ADDRESS ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
LUUO== 40 ;UUO STORAGE, UUO 1-37
|
|
LUUOI== 41 ;UUO SERVICE INSTRUCTION
|
|
|
|
; **********************************************************************
|
|
;JOB DATA AREA EXTERNALS (OLD DEFINITIONS)
|
|
; **********************************************************************
|
|
|
|
JOBUUO==40
|
|
JOB41== 41
|
|
JOBREL==44
|
|
JOBDDT==74
|
|
JOBSYM==116
|
|
JOBUSY==117
|
|
JOBSA== 120
|
|
JOBFF== 121
|
|
JOBREN==124
|
|
JOBAPR==125
|
|
JOBCNI==126
|
|
JOBTPC==127
|
|
JOBOPC==130
|
|
JOBVER==137
|
|
; **********************************************************************
|
|
;JOB DATA AREA EXTERNALS (NEW DEFINITIONS)
|
|
; **********************************************************************
|
|
|
|
.JBUUO==40
|
|
.JB41== 41
|
|
.JBREL==44
|
|
.JBDDT==74
|
|
.JBSYM==116
|
|
.JBUSY==117
|
|
.JBSA== 120
|
|
.JBFF== 121
|
|
.JBREN==124
|
|
.JBAPR==125
|
|
.JBCNI==126
|
|
.JBTPC==127
|
|
.JBOPC==130
|
|
.JBVER==137
|
|
|
|
; **********************************************************************
|
|
;USER MODE APR ASSIGNMENTS (FOR "APRENB" CALL)
|
|
; **********************************************************************
|
|
|
|
PDLOVU==200000 ;PUSHDOWN LIST OVERFLOW
|
|
MPVU== 20000 ;MEMORY PROTECTION VIOLATION
|
|
NXMU== 10000 ;NON-X-MEMORY
|
|
PARU== 4000 ;PARITY ERROR
|
|
CLKU== 1000 ;CLOCK
|
|
FOVU== 100 ;FLOATING OVERFLOW
|
|
AROVU== 10 ;ARITHMETIC OVERFLOW
|
|
|
|
; **********************************************************************
|
|
;USER MODE PRINT OUTPUT CHANNEL ASSIGNMENTS (FOR SUBROUTINE PACKAGE)
|
|
;THE USER SHOULD BE CAUTIONED NOT TO USE THESE CHANNELS WHEN
|
|
;USING THE SUBROUTINE PACKAGE AND CODING USER MODE PROGRAMS.
|
|
; **********************************************************************
|
|
|
|
$DEVCH==17 ;LOGICAL DEVICE CHANNEL
|
|
$DVCH1==16 ;LOGICAL DEV UPDATE INPUT CHANNEL
|
|
|
|
; **********************************************************************
|
|
;PDP-10 SPECIAL COMPATABILITY ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
PAG== 010 ;PAGING I/O DEVICE CODE, KI/KL
|
|
|
|
CCA== 014 ;CACHE I/O DEVICE CODE, KL10
|
|
; **********************************************************************
|
|
;PDP-10 STANDARD APR CONO ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
IOCLR== 200000 ;CLEAR ALL I/O DEVICES
|
|
CLKDIS==4000 ;DISABLE CLOCK INTERRUPTS
|
|
CLKENB==2000 ;ENABLE CLOCK INTERRUPTS
|
|
CLKCLR==1000 ;CLEAR CLOCK FLAG
|
|
|
|
; **********************************************************************
|
|
;PDP-10 STANDARD APR CONI ASSIGNMENTS, RIGHT HALF
|
|
; **********************************************************************
|
|
|
|
CLKENB==2000 ;CLOCK INTERRUPT ENABLED
|
|
CLK== 1000 ;CLOCK FLAG
|
|
ANXM== 10000 ;KA10, NON-X-MEMORY
|
|
INXM== 100 ;KI10
|
|
|
|
; **********************************************************************
|
|
;PDP-10 STANDARD PI CONO ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
PWFCLR==400000 ;CLEAR POWER FAIL FLAG
|
|
PARCLR==200000 ;CLEAR PARITY ERROR FLAG
|
|
PARDIS==100000 ;DISABLE PARITY INTERRUPTS
|
|
PARENB==40000 ;ENABLE PARITY INTERRUPTS
|
|
PICLR== 10000 ;CLEAR PI SYSTEM
|
|
REQSET==4000 ;SET PROGRAM PI REQUEST
|
|
CHNON== 2000 ;TURN ON CHANNEL
|
|
CHNOFF==1000 ;TURN OFF CHANNEL
|
|
PIOFF== 400 ;TURN OFF PI SYSTEM
|
|
PION== 200 ;TURN ON PI SYSTEM
|
|
|
|
; **********************************************************************
|
|
;PDP-10 STANDARD PI CONI ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
PION== 200 ;PI SYSTEM ON
|
|
|
|
; **********************************************************************
|
|
;PDP-10 STANDARD PI CHANNEL ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
PICHN1==100 ;PI CHANNEL 1
|
|
PICHN2==40 ;PI CHANNEL 2
|
|
PICHN3==20 ;PI CHANNEL 3
|
|
PICHN4==10 ;PI CHANNEL 4
|
|
PICHN5==4 ;PI CHANNEL 5
|
|
PICHN6==2 ;PI CHANNEL 6
|
|
PICHN7==1 ;PI CHANNEL 7
|
|
PICHNA==177 ;ALL PI CHANNELS, 1 THRU 7
|
|
XLIST
|
|
IFDEF KA10,<
|
|
IFDEF $PAPER,<LIST>
|
|
; **********************************************************************
|
|
;KA10 APR CHANNEL ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
AAPRC1==1 ;APR INTERRUPT CHANNEL
|
|
|
|
; **********************************************************************
|
|
;KA10 APR CONO ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
APDCLR==400000 ;CLEAR PUSHDOWN OVERFLOW
|
|
AABCLR==40000 ;CLEAR ADDRESS BREAK
|
|
AMPCLR==20000 ;CLEAR MEMORY PROTECTION
|
|
ANXCLR==10000 ;CLEAR NON-X-MEMORY
|
|
AFODIS==400 ;DISABLE FLOATING POINT OVERFLOW
|
|
AFOENB==200 ;ENABLE FLOATING POINT OVERFLOW
|
|
AFOCLR==100 ;CLEAR FLOATING POINT OVERFLOW
|
|
AOVDIS==40 ;DISABLE OVERFLOW
|
|
AOVENB==20 ;ENABLE OVERFLOW
|
|
AOVCLR==10 ;CLEAR OVERFLOW
|
|
|
|
; **********************************************************************
|
|
;KA10 APR CONI ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
APDLOV==200000 ;PUSHDOWN OVERFLOW
|
|
AUSRIO==100000 ;USER I/O
|
|
AADRBK==40000 ;ADDRESS BREAK
|
|
AMPV== 20000 ;MEMORY PROTECTION VIOLATION
|
|
ANXM== 10000 ;NON-EXISTENT MEMORY
|
|
AFOENB==200 ;FLT PT INTERRUPT ENABLED
|
|
AFOV== 100 ;FLOATING POINT OVERFLOW
|
|
ATRPOS==40 ;TRAPS OFFSET
|
|
AOVENB==20 ;OVERFLOW INTERRUPT ENABLED
|
|
AOVFLO==10 ;ARITHMETIC OVERFLOW
|
|
|
|
; **********************************************************************
|
|
;KA10 PI CONI ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
APWRFL==400000 ;POWER FAILURE
|
|
APARER==200000 ;PARITY ERROR
|
|
APAREN==100000 ;PARITY INTERRUPT ENABLED
|
|
|
|
> ;END CONDITIONAL ON KA10
|
|
XLIST
|
|
IFDEF KI10,<
|
|
IFDEF $PAPER,<LIST>
|
|
; **********************************************************************
|
|
;KI10 PC CONTROL FLAGS
|
|
; **********************************************************************
|
|
|
|
LIP== 2000 ;LAST INSTRUCTION PUBLIC
|
|
TN0== 400 ;TN=00, NO TRAP ;TN=01, ARITH TRAP
|
|
TN1== 200 ;TN=10, PDL OV ;TN=11, TRAP 3
|
|
|
|
; **********************************************************************
|
|
;KI10 SPECIAL EXEC MODE FLAGS
|
|
; **********************************************************************
|
|
|
|
UOLIP== 400000 ;UUO OLD L.I.P.
|
|
UOUSR== 4000 ;UUO OLD USER
|
|
|
|
; **********************************************************************
|
|
;KI10 APR CHANNEL ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
IAPRC1==1 ;APR CLOCK CHANNEL
|
|
IAPRE1==10 ;APR ERROR CHANNEL
|
|
|
|
; **********************************************************************
|
|
;KI10 APR CONO ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
ITMSET==400000 ;SET TIME OUT TIMER
|
|
ITMDIS==100000 ;DISABLE TIME OUT
|
|
ITMENB==40000 ;ENABLE TIME OUT
|
|
IASRTC==20000 ;CLEAR AUTO RESTART
|
|
IASRTS==10000 ;SET AUTO RESTART
|
|
IIOPFC==200 ;CLEAR I/O PAGE FAIL
|
|
INXCLR==100 ;CLEAR NON-X-MEM
|
|
|
|
; **********************************************************************
|
|
;KI10 APR CONI ASSIGNMENTS, RIGHT HALF
|
|
; **********************************************************************
|
|
|
|
ITMOUT==400000 ;TIMER TIMED OUT
|
|
IPARER==200000 ;PARITY ERROR
|
|
IPAREN==100000 ;PARITY ENABLED
|
|
ITMOEN==40000 ;TIME OUT ENABLED
|
|
IPWRFL==20000 ;POWER FAIL
|
|
IASRTE==10000 ;AUTO RESTART ENABLED
|
|
IIOPFL==200 ;I/O PAGE FAIL
|
|
INXM== 100 ;NON-X-MEMORY
|
|
; **********************************************************************
|
|
;KI10 APR CONI ASSIGMENTS, LEFT HALF
|
|
; **********************************************************************
|
|
|
|
IMLAPD==200000 ;MEMORY OVERLAP DISABLED
|
|
IFMMAN==100000 ;FAST MEMORY MANUAL
|
|
IMIPGD==40000 ;MI PROGRAM DISABLE
|
|
ICNSLR==20000 ;CONSOLE READ ONLY
|
|
ICNSLL==10000 ;CONSOLE LOCKED
|
|
IP50HZ==4000 ;50 HZ POWER
|
|
IMGINM==2000 ;MANUAL MARGINS
|
|
IMAINT==1000 ;MAINTENANCE MODE
|
|
IPWRLO==400 ;POWER LOW
|
|
IMGNLO==200 ;MARGIN COMPARATOR LOW
|
|
SENSE1==40 ;SENSE SWITCHES 1
|
|
SENSE2==20 ; 2
|
|
SENSE3==10 ; 3
|
|
SENSE4==4 ; 4
|
|
SENSE5==2 ; 5
|
|
SENSE6==1 ; 6
|
|
|
|
; **********************************************************************
|
|
;KI10 APR DATAO ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
IEVNPR==20000 ;WRITE EVEN PARITY
|
|
ISPDOF==10000 ;SPEED MARGINS OFF
|
|
ISPDON==4000 ;SPEED MARGINS ON
|
|
IMGNOF==2000 ;MARGINS OFF - LH
|
|
IMGNON==1000 ;MARGINS ON - LH
|
|
|
|
; **********************************************************************
|
|
;KI10 PI CONO ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
IRQCLR==20000 ;CLEAR PROGRAM PI REQUEST
|
|
; **********************************************************************
|
|
;KI10 PI CONI ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
IINSTF==400000 ;ADDRESS CONDITIONS, INST FETCH
|
|
IDATAF==200000 ; DATA FETCH
|
|
IWRITE==100000 ; WRITE
|
|
IADSTP==40000 ;ADDRESS STOP
|
|
IADBRK==20000 ;ADDRESS BREAK
|
|
IADEXC==10000 ;ADDRESS SWITCHES EXEC
|
|
IADUSR==4000 ; " " USER
|
|
IPRSTP==2000 ;PARITY STOP
|
|
INXSTP==1000 ;NON-X-MEM STOP
|
|
|
|
; **********************************************************************
|
|
;KI10 PAG CONI ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
EXCMEM==400 ;EXEC MEMORY SPACE
|
|
AMCLRB==40 ;ASSOCIATIVE MEMORY CLEAR BIT
|
|
|
|
; **********************************************************************
|
|
;KI10 PAG DATAO ASSIGNMENTS, LEFT HALF
|
|
; **********************************************************************
|
|
|
|
LDUSRB==400000 ;LOAD USER BASE REGISTER
|
|
SMLUSR==40000 ;SMALL USER, 32K OR UNDER
|
|
USRCMP==20000 ;USER ADR COMPARE ENABLE
|
|
|
|
; **********************************************************************
|
|
;KI10 PAG DATAO ASSIGNMENTS, RIGHT HALF
|
|
; **********************************************************************
|
|
|
|
LDEXCB==400000 ;LOAD EXEC BASE REGISTER
|
|
TRPENB==20000 ;ENABLE TRAPS
|
|
|
|
; **********************************************************************
|
|
;KI10 PAG DATAI ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
SMLUSR==40000 ;SMALL USER
|
|
USRCMP==20000 ;USER ADR COMPARE ENABLED
|
|
TRPENB==20000 ;RH, TRAPS ENABLED
|
|
|
|
; **********************************************************************
|
|
;KI10 PTR DATAO ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
;ADDRESS CONDITIONS, ADDRESS BREAK ;AS ABOVE, PI CONI
|
|
;ADDRESS SWITCHES, 14-35
|
|
; **********************************************************************
|
|
;KI10 EXEC PAGE MAP PAGE ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
PGFTRP==420 ;PAGE FAULT TRAP
|
|
AROVTP==421 ;ARITHMETIC TRAP
|
|
PDOVTP==422 ;PUSHDOWN OVERFLOW TRAP
|
|
TRP3TP==423 ;TRAP 3 TRAP
|
|
|
|
; **********************************************************************
|
|
;KI10 USER PAGE MAP PAGE ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
PGFTRP==420 ;PAGE FAULT TRAP
|
|
AROVTP==421 ;ARITHMETIC TRAP
|
|
PDOVTP==422 ;PUSHDOWN OVERFLOW TRAP
|
|
TRP3TP==423 ;TRAP 3 TRAP
|
|
|
|
MUUO== 424 ;MUUO STORAGE
|
|
MUUOPC==425 ;C(PC) OF MUUO STORAGE
|
|
|
|
EXCPFW==426 ;EXEC PAGE FAIL WORD
|
|
USRPFW==427 ;USER PAGE FAIL WORD
|
|
|
|
KNTRP== 430 ;KERNAL NO TRAP - NEW PC'S-
|
|
KTRP== 431 ;" TRAP
|
|
SNTRP== 432 ;SUPERVISOR NO TRAP
|
|
STRP== 433 ;" TRAP
|
|
CNTRP== 434 ;CONCEAL NO TRAP
|
|
CTRP== 435 ;" TRAP
|
|
PNTRP== 436 ;PUBLIC NO TRAP
|
|
PTRP== 437 ;" TRAP
|
|
|
|
> ;END CONDITIONAL ON KI10
|
|
XLIST
|
|
IFDEF KL10,<
|
|
IFNDEF KL10P0,<
|
|
IFDEF $PAPER,<LIST>
|
|
;KL10 CONO APR 000 ASSIGMENTS
|
|
; **********************************************************************
|
|
|
|
LIOCLR==200000 ;CLEAR ALL I/O DEVICES
|
|
LFLGEN==100000 ;ENABLE SELECTED FLAG
|
|
LFLGDS==40000 ;DISABLE SELECTED FLAG
|
|
LFLGCL==20000 ;CLEAR SELECTED FLAG
|
|
LFLGST==10000 ;SET SELECTED FLAG
|
|
LSBUSE==4000 ;SBUS ERROR FLAG
|
|
LNXMER==2000 ;NON-EXISTENT MEMORY FLAG
|
|
LPARER==1000 ;PARITY ERROR FLAG
|
|
LIOPFE==400 ;I/O PAGE FAIL FLAG
|
|
LPWRFL==100 ;POWER FAIL FLAG
|
|
LCASWD==20 ;CACHE SWEEP DONE FLAG
|
|
LAPRP7==7 ;APR PI CHANNEL 7
|
|
LAPRP6==6 ;APR PI CHANNEL 6
|
|
LAPRP5==5 ;APR PI CHANNEL 5
|
|
LAPRP4==4 ;APR PI CHANNEL 4
|
|
LAPRP3==3 ;APR PI CHANNEL 3
|
|
LAPRP2==2 ;APR PI CHANNEL 2
|
|
LAPRP1==1 ;APR PI CHANNEL 1
|
|
LESBER==104000 ;ENABLE SBUS ERRORS
|
|
LDSBER==044000 ;DISABLE SBUS ERRORS
|
|
LCSBER==024000 ;CLR SBUS ERRORS
|
|
LSSBER==014000 ;SET SBUS ERROR
|
|
LENXER==102000 ;ENABLE NON-EXISTENT MEMORY
|
|
LDNXER==042000 ;DISABLE NON-EXISTENT MEORY
|
|
LCNXER==022000 ;CLR NON-EXISTENT MEMORY
|
|
LSNXER==012000 ;SET NON-EXISTENT MEMORY
|
|
LEPAER==101000 ;ENABLE PARITY ERRORS
|
|
LDPAER==041000 ;DISABLE PARITY ERRORS
|
|
LCPAER==021000 ;CLR PARITY ERROR
|
|
LSPAER==011000 ;SET PARITY ERROR
|
|
LEIOPF==100400 ;ENABLE I/O PAGE FAILS
|
|
LDIOPF==040400 ;DISABLE I/O PAGE FAILS
|
|
LCIOPF==020400 ;CLR I/O PAGE FAIL
|
|
LSIOPF==010400 ;SET I/O PAGE FAIL
|
|
LEPWRF==100100 ;ENABLE POWER FAIL
|
|
LDPWRF==040100 ;DISABLE POWER FAIL
|
|
LCPWRF==020100 ;CLR POWER FAIL
|
|
LSPWRF==010100 ;SET POWER FAIL
|
|
LECASD==100020 ;ENABLE CACHE SWEEP DONE
|
|
LDCASD==040020 ;DISABLE CACHE SWEEP DONE
|
|
LCCASD==020020 ;CLR CACHE SWEEP DONE
|
|
LSCASD==010020 ;SET CACHE SWEEP DONE
|
|
LAPRAL==127520 ;CLR ALL ERROR FLAGS & ENABLE
|
|
; **********************************************************************
|
|
;KL10 CONI APR 000 ASSIGMENTS (LEFT HALF)
|
|
; **********************************************************************
|
|
|
|
LSBSEN==4000 ;SBUS ERRORS ENABLED
|
|
LNXMEN==2000 ;NON-EXISTENT MEMORY ERRORS ENABLED
|
|
LPAREN==1000 ;PARITY ERRORS ENABLED
|
|
LIOPFE=400 ;I/O PAFE FAILURES ENABLED
|
|
LPWRFE==100 ;POWER FAILURES ENABLED
|
|
LCASDE==20 ;CACHE SWEEP DONE ENABLED
|
|
|
|
; **********************************************************************
|
|
;KL10 CONI APR 000 ASSIGMENTS (RIGHT HALF)
|
|
; **********************************************************************
|
|
|
|
LCASWB==200000 ;CACHE SWEEP BUSY
|
|
LSBUSE==4000 ;SBUS ERROR FLAG
|
|
LNXMER==2000 ;NON-EXISTENT MEMORY FLAG
|
|
LPARER==1000 ;PARITY ERROR FLAG
|
|
LIOPFE==400 ;I/O PAGE FAIL FLAG
|
|
LPWRFL==100 ;POWER FAIL FLAG
|
|
LCASWD==20 ;CACHE SWEEP DONE FLAG
|
|
LAPRP7==7 ;APR PI CHANNEL 7
|
|
LAPRP6==6 ;APR PI CHANNEL 6
|
|
LAPRP5==5 ;APR PI CHANNEL 5
|
|
LAPRP4==4 ;APR PI CHANNEL 4
|
|
LAPRP3==3 ;APR PI CHANNEL 3
|
|
LAPRP2==2 ;APR PI CHANNEL 2
|
|
LAPRP1==1 ;APR PI CHANNEL 1
|
|
LINT==10 ;APR INTERRUPT
|
|
|
|
; **********************************************************************
|
|
;KL10 DATAO APR 000 ASSIGMENTS (LEFT HALF)
|
|
; **********************************************************************
|
|
|
|
LINSTF==400 ;ADDRESS BREAK REQUEST FOR INST. FETCH
|
|
LDATAF==200 ;ADDRESS BREAK REQUEST FOR DATA FETCH
|
|
LWRITE==100 ;ADDRESS BREAK REQUEST FOR DATA WRITE
|
|
LUSCMP==40 ;USER ADDRESS COMPARE
|
|
LEXCMP==0 ;EXEC ADDRESS COMPARE
|
|
|
|
; **********************************************************************
|
|
;KL10 DATAO APR 000 ASSIGMENTS (RIGHT HALF)
|
|
; **********************************************************************
|
|
|
|
;DATAO APR,ADDRESS SWITCHES=13-35
|
|
>
|
|
XLIST
|
|
IFDEF KL10P0,<
|
|
IFDEF $PAPER,<LIST>
|
|
;KL10 CONO APR 000 ASSIGMENTS
|
|
; **********************************************************************
|
|
LIOCLR==200000 ;CLEAR ALL I/O DEVICES
|
|
LFLGEN==100000 ;ENABLE SELECTED FLAG
|
|
LFLGDS==40000 ;DISABLE SELECTED FLAG
|
|
LFLGCL==20000 ;CLEAR SELECTED FLAG
|
|
LFLGST==10000 ;SET SELECTED FLAG
|
|
LSBUSE==4000 ;SBUS ERROR FLAG
|
|
LNXMER==2000 ;NON-EXISTENT MEMORY FLAG
|
|
LIOPFE==1000 ;I/O PAGE FAIL FLAG
|
|
LPARER==400 ;MB PARITY ERROR FLAG
|
|
LCADRP==200 ;CACHE ADDRESS PARITY ERROR FLAG
|
|
LSADRP==100 ;S-BUS ADDRESS PARITY ERROR FLAG
|
|
LPWRFL==40 ;POWER FAIL FLAG
|
|
LCASWD==20 ;CACHE SWEEP DONE FLAG
|
|
LAPRP7==7 ;APR PI CHANNEL 7
|
|
LAPRP6==6 ;APR PI CHANNEL 6
|
|
LAPRP5==5 ;APR PI CHANNEL 5
|
|
LAPRP4==4 ;APR PI CHANNEL 4
|
|
LAPRP3==3 ;APR PI CHANNEL 3
|
|
LAPRP2==2 ;APR PI CHANNEL 2
|
|
LAPRP1==1 ;APR PI CHANNEL 1
|
|
LESBER==104000 ;ENABLE SBUS ERRORS
|
|
LDSBER==044000 ;DISABLE SBUS ERRORS
|
|
LCSBER==024000 ;CLR SBUS ERRORS
|
|
LSSBER==014000 ;SET SBUS ERROR
|
|
LENXER==102000 ;ENABLE NON-EXISTENT MEMORY
|
|
LDNXER==042000 ;DISABLE NON-EXISTENT MEORY
|
|
LCNXER==022000 ;CLR NON-EXISTENT MEMORY
|
|
LSNXER==012000 ;SET NON-EXISTENT MEMORY
|
|
LEIOPF==101000 ;ENABLE I/O PAGE FAILS
|
|
LDIOPF==041000 ;DISABLE I/O PAGE FAILS
|
|
LCIOPF==021000 ;CLR I/O PAGE FAIL
|
|
LSIOPF==011000 ;SET I/O PAGE FAIL
|
|
LEPAER==100400 ;ENABLE PARITY ERRORS
|
|
LDPAER==040400 ;DISABLE PARITY ERRORS
|
|
LCPAER==020400 ;CLR PARITY ERROR
|
|
LSPAER==010400 ;SET PARITY ERROR
|
|
LECAER==100200 ;ENABLE CACHE ADR PARITY ERRORS
|
|
LDCAER==040200 ; " DISABLE
|
|
LCCAER==020200 ; " CLR
|
|
LSCAER==010200 ; " SET
|
|
LESAER==100100 ;ENABLE S-BUS ADR PARITY ERRORS
|
|
LDSAER==040100 ; " DISABLE
|
|
LCSAER==020100 ; " CLR
|
|
LSSAER==010100 ; " SET
|
|
LEPWRF==100040 ;ENABLE POWER FAIL
|
|
LDPWRF==040400 ;DISABLE POWER FAIL
|
|
LCPWRF==020040 ;CLR POWER FAIL
|
|
LSPWRF==010040 ;SET POWER FAIL
|
|
LECASD==100020 ;ENABLE CACHE SWEEP DONE
|
|
LDCASD==040020 ;DISABLE CACHE SWEEP DONE
|
|
LCCASD==020020 ;CLR CACHE SWEEP DONE
|
|
LSCASD==010020 ;SET CACHE SWEEP DONE
|
|
LAPRAL==127760 ;CLR ALL ERROR FLAGS & ENABLE
|
|
; **********************************************************************
|
|
;KL10 CONI APR 000 ASSIGMENTS (LEFT HALF)
|
|
; **********************************************************************
|
|
|
|
LSBSEN==4000 ;SBUS ERRORS ENABLED
|
|
LNXMEN==2000 ;NON-EXISTENT MEMORY ERRORS ENABLED
|
|
LIOPFE==1000 ;I/O PAGE FAILURES ENABLED
|
|
LPAREN==400 ;PARITY ERRORS ENABLED
|
|
LCADEN==200 ;CACHE ADR PARITY ERRORS ENABLED
|
|
LSADEN==100 ;S-BUS ADR PARITY ERRORS ENABLED
|
|
LPWRFE==40 ;POWER FAILURES ENABLED
|
|
LCASDE==20 ;CACHE SWEEP DONE ENABLED
|
|
|
|
; **********************************************************************
|
|
;KL10 CONI APR 000 ASSIGMENTS (RIGHT HALF)
|
|
; **********************************************************************
|
|
|
|
LCASWB==200000 ;CACHE SWEEP BUSY
|
|
LSBUSE==4000 ;SBUS ERROR FLAG
|
|
LNXMER==2000 ;NON-EXISTENT MEMORY FLAG
|
|
LIOPFE==1000 ;I/O PAGE FAIL FLAG
|
|
LPARER==400 ;PARITY ERROR FLAG
|
|
LCADRP==200 ;CACHE ADR PARITY ERROR FLAG
|
|
LSADRP==100 ;S-BUS ADR PARITY ERROR FLAG
|
|
LPWRFL==40 ;POWER FAIL FLAG
|
|
LCASWD==20 ;CACHE SWEEP DONE FLAG
|
|
LAPRP7==7 ;APR PI CHANNEL 7
|
|
LAPRP6==6 ;APR PI CHANNEL 6
|
|
LAPRP5==5 ;APR PI CHANNEL 5
|
|
LAPRP4==4 ;APR PI CHANNEL 4
|
|
LAPRP3==3 ;APR PI CHANNEL 3
|
|
LAPRP2==2 ;APR PI CHANNEL 2
|
|
LAPRP1==1 ;APR PI CHANNEL 1
|
|
LINT==10 ;APR INTERRUPT
|
|
|
|
; **********************************************************************
|
|
;KL10 DATAO APR 000 ASSIGMENTS (LEFT HALF)
|
|
; **********************************************************************
|
|
|
|
LINSTF==400 ;ADDRESS BREAK REQUEST FOR INST. FETCH
|
|
LDATAF==200 ;ADDRESS BREAK REQUEST FOR DATA FETCH
|
|
LWRITE==100 ;ADDRESS BREAK REQUEST FOR DATA WRITE
|
|
LUSCMP==40 ;USER ADDRESS COMPARE
|
|
LEXCMP==0 ;EXEC ADDRESS COMPARE
|
|
|
|
; **********************************************************************
|
|
;KL10 DATAO APR 000 ASSIGMENTS (RIGHT HALF)
|
|
; **********************************************************************
|
|
|
|
;DATAO APR,ADDRESS SWITCHES=13-35
|
|
>
|
|
XLIST
|
|
IFDEF $PAPER,<LIST>
|
|
; **********************************************************************
|
|
;KL10 DATAI APR 000 ASSIGMENTS (LEFT HALF)
|
|
; **********************************************************************
|
|
|
|
LINSTF==400 ;ADDRESS BREAK REQUEST FOR INST. FETCH
|
|
LDATAF==200 ;ADDRESS BREAK REQUEST FOR DATA FETCH
|
|
LWRITE==100 ;ADDRESS BREAK REQUEST FOR DATA WRITE
|
|
LUSCMP==40 ;USER ADDRESS COMPARE
|
|
LEXCMP==0 ;EXEC ADDRESS COMPARE
|
|
|
|
; **********************************************************************
|
|
;KL10 DATAI APR 000 ASSIGMENTS (RIGHT HALF)
|
|
; **********************************************************************
|
|
|
|
;DATAI APR,ADDRESS SWITCHES=13-35
|
|
|
|
; **********************************************************************
|
|
;KL10 BLKO APR 000 ASSIGMENTS (IMMEDIATE MODE)
|
|
; **********************************************************************
|
|
|
|
;REFILL ALGORITHM BITS 18-20
|
|
;REFILL ALGORITHM ADDRESS 27-33
|
|
|
|
; **********************************************************************
|
|
;KL10 BLKI APR 000 ASSIGMENTS
|
|
; **********************************************************************
|
|
|
|
;MICRO-CODE OPTIONS = 0-8
|
|
;MICRO-CODE VERSION NUMBER = 9-17
|
|
;HARDWARE OPTIONS =18-23
|
|
;PROCESSOR SERIAL NUMBER = 24-35
|
|
; **********************************************************************
|
|
;KL10 CONO PI 004 ASSIGMENTS
|
|
; **********************************************************************
|
|
|
|
LEVNPA==400000 ;WRITE EVEN PARITY ADDRESS
|
|
LEVNPD==200000 ;WRITE EVEN PARITY DATA
|
|
LEVNCD==100000 ;WRITE EVEN CACHE DIRECTORY PARITY *P0
|
|
LRQCLR==20000 ;DROP INTERRUPT ON SELECTED CHANNEL
|
|
LPICLR==10000 ;CLEAR PI SYSTEM
|
|
LREQSE==4000 ;REQUEST INTERRUPT ON SELECTED CHANNEL
|
|
LCHNON=2000 ;TURN ON SELECTED CHANNEL
|
|
LCHNOF==1000 ;TURN OFF SELECTED CHANNEL
|
|
LPIOFF==400 ;TURN PI SYSTEM OFF
|
|
LPION==200 ;TURN PI SYSTEM ON
|
|
LPICH1==100 ;PI CHANNEL 1
|
|
LPICH2==40 ;PI CHANNEL 2
|
|
LPICH3==20 ;PI CHANNEL 3
|
|
LPICH4==10 ;PI CHANNEL 4
|
|
LPICH5==4 ;PI CHANNEL 5
|
|
LPICH6==2 ;PI CHANNEL 6
|
|
LPICH7==1 ;PI CHANNEL 7
|
|
LPICHA==177 ;ALL PI CHANNELS
|
|
|
|
; **********************************************************************
|
|
;KL10 CONI PI 004 ASSIGMENTS (LEFT HALF)
|
|
; **********************************************************************
|
|
|
|
LPRCH1==100 ;PROGRAM REQUEST ON CHANNEL 1
|
|
LPRCH2==40 ;PROGRAM REQUEST ON CHANNEL 2
|
|
LPRCH3==20 ;PROGRAM REQUEST ON CHANNEL 3
|
|
LPRCH4==10 ;PROGRAM REQUEST ON CHANNEL 4
|
|
LPRCH5==4 ;PROGRAM REQUEST ON CHANNEL 5
|
|
LPRCH6==2 ;PROGRAM REQUEST ON CHANNEL 6
|
|
LPRCH7==1 ;PROGRAM REQUEST ON CHANNEL 7
|
|
; **********************************************************************
|
|
;KL10 CONI PI 004 ASSIGMENTS (RIGHT HALF)
|
|
; **********************************************************************
|
|
|
|
LEVNPA==400000 ;WRITE EVEN PARITY ADDRESS
|
|
LEVNPD==200000 ;WRITE EVEN PARITY DATA
|
|
LEVNCD==100000 ;WRITE EVEN CACHE DIRECTORY PARITY *P0
|
|
LPIIP1==40000 ;PI IN PROGRESS ON CHANNEL 1
|
|
LPIIP2==20000 ;PI IN PROGRESS ON CHANNEL 2
|
|
LPIIP3==10000 ;PI IN PROGRESS ON CHANNEL 3
|
|
LPIIP4==4000 ;PI IN PROGRESS ON CHANNEL 4
|
|
LPIIP5==2000 ;PI IN PROGRESS ON CHANNEL 5
|
|
LPIIP6==1000 ;PI IN PROGRESS ON CHANNEL 6
|
|
LPIIP7==400 ;PI IN PROGRESS ON CHANNEL 7
|
|
LPION==200 ;PI SYSTEM ON
|
|
LPICH1==100 ;PI CHANNEL 1 ON
|
|
LPICH2==40 ;PI CHANNEL 2 ON
|
|
LPICH3==20 ;PI CHANNEL 3 ON
|
|
LPICH4==10 ;PI CHANNEL 4 ON
|
|
LPICH5==4 ;PI CHANNEL 5 ON
|
|
LPICH6==2 ;PI CHANNEL 6 ON
|
|
LPICH7==1 ;PI CHANNEL 7 ON
|
|
; **********************************************************************
|
|
;KL10 DATAO PAG 010 ASSIGMENTS (LEFT HALF)
|
|
; **********************************************************************
|
|
|
|
LLACBL==400000 ;LOAD AC BLOCKS
|
|
LLPRCN==200000 ;LOAD PREVIOUS CONTEXT SECTION
|
|
LLDUSB==100000 ;LOAD USER BASE REGISTER
|
|
LCWSX==40 ;
|
|
|
|
;CURRENT AC BLOCKS BITS 6 - 8
|
|
;PREVIOUS AC BLOCKS BITS 9 - 11
|
|
;PREVIOUS CONTEXT SECTION BITS 13 - 17
|
|
|
|
; **********************************************************************
|
|
;KL10 DATAO PAG 010 ASSIGMENTS (RIGHT HALF)
|
|
; **********************************************************************
|
|
|
|
;USER BASE REGISTER BITS 23 - 35
|
|
|
|
; **********************************************************************
|
|
;KL10 DATAI PAG 010 ASSIGMENTS (LEFT HALF)
|
|
; **********************************************************************
|
|
|
|
LLACBL==400000 ;LOAD AC BLOCKS
|
|
LLPRCN==200000 ;LOAD PREVIOUS CONTEXT SECTION
|
|
LLDUSB==100000 ;LOAD USER BASE REGISTER
|
|
LCWSX==40 ;
|
|
|
|
;CURRENT AC BLOCKS BITS 6 - 8
|
|
;PREVIOUS AC BLOCKS BITS 9 - 11
|
|
;PREVIOUS CONTEXT SECTION BITS 13 - 17
|
|
|
|
; **********************************************************************
|
|
;KL10 DATAI PAG 010 ASSIGMENTS (RIGHT HALF)
|
|
; **********************************************************************
|
|
|
|
;USER BASE REGISTER BITS 23 - 35
|
|
; **********************************************************************
|
|
;KL10 CONO PAG 010 ASSIGMENTS
|
|
; **********************************************************************
|
|
|
|
LCASLO==400000 ;CACHE STRATEGY LOOK
|
|
LCASLD==200000 ;CACHE STRATEGY LOAD
|
|
LSMODE==40000 ;SECTION MODE
|
|
LTRPEN==20000 ;TRAP AND PAGE ENABLE
|
|
|
|
;EXEC BASE REGISTER = 23-35
|
|
|
|
; **********************************************************************
|
|
;KL10 CONI PAG 010 ASSIGMENTS
|
|
; **********************************************************************
|
|
|
|
|
|
LCSLOO==400000 ;CACHE STRATEGY LOOK
|
|
LCSLOA==200000 ;CACHE STRATEGY LOAD
|
|
LSECMO==40000 ;SECTION MODE
|
|
LTRPAE==20000 ;TRAP AND PAGE ENABLE
|
|
|
|
;EXEC BASE REGISTER = 23-35
|
|
|
|
; **********************************************************************
|
|
;KL10 BLKO PAG 010 ASSIGMENTS (IMMEDIATE MODE)
|
|
; **********************************************************************
|
|
|
|
XLIST
|
|
IFNDEF KL10P0,<
|
|
IFDEF $PAPER,<LIST>
|
|
; **********************************************************************
|
|
;KL10 EXEC PAGE MAP PAGE ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
LAROVT==421 ;ARITHMETIC TRAP
|
|
LPDOVT==422 ;PUSHDOWN OVERFLOW TRAP
|
|
LTRP3T==423 ;TRAP 3 TRAP
|
|
|
|
; **********************************************************************
|
|
;KL10 USER PAGE MAP PAGE ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
LEUPFW==420 ;EXEC & USER PAGE FAIL WORD
|
|
LAROVT==421 ;ARITHMETIC TRAP
|
|
LPDOVT==422 ;PUSHDOWN OVERFLOW TRAP
|
|
LTRP3T==423 ;TRAP 3 TRAP
|
|
|
|
LMUUO== 424 ;MUUO STORAGE
|
|
LMUUOP==425 ;C(PC) OF MUUO STORAGE
|
|
|
|
LPFWPC==426 ;C(PC) OF PAGE FAIL WORD
|
|
LPGFTR==427 ;PAGE FAIL NEW PC TRAP
|
|
|
|
LKNTRP==430 ;KERNAL NO TRAP - NEW PC'S-
|
|
LKTRP== 431 ;" TRAP
|
|
LSNTRP==432 ;SUPERVISOR NO TRAP
|
|
LSTRP== 433 ;" TRAP
|
|
LCNTRP==434 ;CONCEAL NO TRAP
|
|
LCTRP== 435 ;" TRAP
|
|
LPNTRP==436 ;PUBLIC NO TRAP
|
|
LPTRP== 437 ;" TRAP
|
|
|
|
>
|
|
XLIST
|
|
IFDEF KL10P0,<
|
|
IFDEF $PAPER,<LIST>
|
|
; **********************************************************************
|
|
;KL10 EXEC PAGE MAP PAGE ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
LAROVT==421 ;ARITHMETIC TRAP
|
|
LPDOVT==422 ;PUSHDOWN OVERFLOW TRAP
|
|
LTRP3T==423 ;TRAP 3 TRAP
|
|
|
|
LTBASH==510 ;TIME-BASE, HI
|
|
LTBASL==511 ;TIME-BASE, LO
|
|
LPRFMH==512 ;PERFORMANCE ANAYLYSIS, HI
|
|
LPRFML==513 ;PERFORMANCE ANAYLYSIS, LO
|
|
|
|
; **********************************************************************
|
|
;KL10 USER PAGE MAP PAGE ASSIGNMENTS
|
|
; **********************************************************************
|
|
|
|
LAROVT==421 ;ARITHMETIC TRAP
|
|
LPDOVT==422 ;PUSHDOWN OVERFLOW TRAP
|
|
LTRP3T==423 ;TRAP 3 TRAP
|
|
|
|
LMUUO== 424 ;MUUO STORAGE
|
|
LMUUOP==425 ;C(PC) OF MUUO STORAGE
|
|
LCNTXT==426 ;PROCESS CONTEXT WORD
|
|
|
|
LKNTRP==430 ;KERNAL NO TRAP - NEW PC'S-
|
|
LKTRP== 431 ;" TRAP
|
|
LSNTRP==432 ;SUPERVISOR NO TRAP
|
|
LSTRP== 433 ;" TRAP
|
|
LCNTRP==434 ;CONCEAL NO TRAP
|
|
LCTRP== 435 ;" TRAP
|
|
LPNTRP==436 ;PUBLIC NO TRAP
|
|
LPTRP== 437 ;" TRAP
|
|
|
|
LEUPFW==500 ;EXEC & USER PAGE FAIL WORD
|
|
LPFWPC==501 ;C(PC) OF PAGE FAIL WORD
|
|
LPGFTR==502 ;PAGE FAIL NEW PC
|
|
|
|
LEBXMH==504 ;E-BOX CLOCK TICK METER, HI
|
|
LEBXML==505 ;E-BOX CLOCK TICK METER, LO
|
|
LMBXMH==506 ;M-BOX CYCLE METER, HI
|
|
LMBXML==507 ;M-BOX CYCLE METER, LO
|
|
|
|
>> ;END CONDITIONAL ON KL10
|
|
LIST
|
|
|