Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/npag2.mic
There are no other files named npag2.mic in the archive.
;SPECIAL MICRO-CODE FOR IMPLIMENTING DIAGNOSTIC INSTRUCTIONS FOR
;USE BY THE PAGING DIAGNOSTIC.. INSTRUCTIONS IMPLIMENTED:
;PTWRDT AC,E(OPCODE 00) ;WRITE DATA TO PAGE TABLE
; ;AC CONTAINS DATA TO WRITE(BITS0-35)
; ;E IS PAGE TABLE ADDRESS(BITS 18-26)
;PTREAD AC,E(OPCODE 01) ;READ THE PAGE TABLE DATA VIA EBUS REGISTER
; ;AC RECEIVES RESULTS
; ;E CONTAINS PAGE TABLE ADDRESS TO READ(BITS18-26)
;PTDWRT AC,E(OPCODE 10) ;WRITE DATA TO PAGE TABLE DIRECTORY
; ;AC CONTAINS DATA TO WRITE
; ;E CONTAINS DIRECTORY ADDRESS TO WRITE
;PTDVER AC,E(OPCODE 100);PAGE TABLE DIRECTORY VERIFY
; ;AC CONTAINS DATA TO BE VERIFIED
; ;E CONTAINS DIRECTORY ADDRESS TO BE VERIFIED
; ;IF MATCH VERIFIES,RH OF AC SET TO ZEROES
; ;IF NO MATCH, RH OF AC SET TO ONES
;DISPATCHER TO DESIRED DIAGNOSE INSTRUCTION
SCAD/A,SCADA/#,#/32.,SC/SCAD,J/EXECTR, ;SHIFT GETS BITS 32-35 TO 0-3
SPEC/SP MEM CYCLE ;AND SET "EBOX MAY BE PAGED"
EXECTR: J/XCTGO,DISP/SH0-3,SH/SHIFT AR!ARX, ;DISPATCH TO EXECUTE CODE
SC/SCAD,SCADA EN/0S,SCAD/A ;CLEAR SC BEFORE EXECUTE
;PTWRDT INSTRUCTION CONTINUED
CLRUSE: SPEC/SP MEM CYCLE,MEM/REG FUNC, ;CAUSE"MCL LOAD VMA CONTEXT"
MREG FNC/NO MEM ACCESS,J/0000 ;AND CAUSE "MCL VMA USER" TO CLR
OP00B: COND/MBOX CTL,MBOX CTL/PT DIR WR, ;ALSO WRITE DIRECTORY
ADA/PC,AD/A+1,AR/AD,VMA/AD, ;AND UPDATED PC TO AR
J/CLRUSE
;PTREAD INSTRUCTION CONTINUED
OP01: MEM/REG FUNC,MREG FNC/READ PT ;START MEM CYCLE TO FORCE PT INTO EBUS REG
MEM/MB WAIT,COND/DIAG FUNC, ;WAIT FOR CYCLE TO COMPLETE
DIAG FUNC/RD EBUS REG,AR/EBUS,J/NORMEND ;& EBUS REG INTO "AR"
;THIS IS ONE OF A PAIR OF MICRO-INSTR WHICH MAY BE DISPATCHED
;TO ON A PAGE FAIL, DEPENDING ON THE STATE OF "PF EBOX HANDLE"
=100111
ABORT: MEM/REG FUNC,MREG FNC/NO MEM ACCESS, ;ABORT MEM CYCLES
VMA/AD,AD/A+1,ADA/PC,J/0 ;SET VMA FOR RETURN, AND GO
NORMEND: FMADR/AC0, COND/FM WRITE,AR/AD,AD/A+1,
ADA/PC,VMA/AD,J/0000 ;AND ON TO NEXT INSTR
SETSIG: COND/MBOX CTL,MBOX CTL/SET PAGE FAIL, ;SET PAGE FAIL
J/0000 ; IN ORDER TO SET UP "PF HANDLE"
;THIS IS THE SECOND OF A PAIR OF MICRO-INSTR WHICH MAY BE DISPATCHED
;TO ON A PAGE FAIL, DEPENDING ON THE STATE OF "PF EBOX HANDLE"
=101111
MEM/REG FUNC,MREG FNC/NO MEM ACCESS, ;ABORT MEM CYCLES
VMA/AD,AD/A+1,ADA/PC,J/0000 ;SET VMA FOR RETURN & GO
=0000
XCTGO:
MPTWRDT: ADB/FM,AD/B,AR/AD,FMADR/AC0,J/OP00, ;OPCODE "00"IS PTWRDT
SPEC/FLAG CTL ;GUARANTEE SCAD FLAGS CLR
MPTREAD: SPEC/SP MEM CYCLE,
SP MEM/PT RD NO PG FAIL,J/OP01 ;OPCODE "01" IS PTREAD
PAGFLG: AR/AR,ADB/FM,J/OP10 ;OPCODE FOR SPECIAL SCD FLAGS
;PAGCTL INSTRUCTION
;SPECIAL MICRO-CODED INSTRUCTION FOR SETTING UP THE PAG BOARD
;FOR A CONTROL LOGIC TEST. CODE DOES A "MEM AD FUNC" TO SET
;STATUS ON THE MCL BOARD, SETS APPROPRIATE PAGE TABLE BITS,
;SUCH AS "ACCESS","WRITABLE","SOFTWARE",& "PUBLIC", AND
;FINISHES UP BY FORCING A PAGE FAIL IN A MANNER SUCH THAT
;"PAGE REFILL","PF HANDLE","PAGE FAIL", AND THE "PF HOLD" SIGNALS
;CAN ALL BE READ...INSTRUCTION IS RUN THRU AT SINGLE STEP SPEED
;UNLESS YOU ARE IN A SCOPE LOOP, WHEN THE INSTRUCTION EXECUTES
;AT FULL SPEED, ABORTS CLEANLY AFTER THE CONTROL LOGIC
;HAS BEEN EXERCISED, AND THEN RETURNS TO THE NORMAL INSTRUCTION STREAM
;WHEN YOU ENTER HERE, "AC0" HAS VMA DATA(IE. SELECTED ADDRESS)
;AND THE INDEX REGISTER(XR=ARX14-17) HAS AD FUNC DATA
PAGCTL:
AD/B,ARX/ADX,ADB/BR,J/OP11P1 ;COPY INSTR TO ARX
;DISPATCH CODE FOR OPCODE 4... "CONO PAG" OPCODE
CONPAG:
AR/AD,AD/B,ADB/FM,FMADR/AC0,J/OP4 ;GET BITS TO SET FROM INDEX REG
;BEGIN EXECUTE PORTION OF OPCODE "3"
OP11P1: ADB/FM,FMADR/AC0,AR/AD, ;WHLE AR GETS "VMA'S" DATA
AD/B
SH/AR,ARX/SH,ADB/FM,AD/B,FMADR/XR, ;VMA DATA TO ARX
AR/AD,MQ/MQM SEL,COND/REG CTL, ;MEM FUNC DATA TO AR & MQ
MQ CTL/AD,J/OP11 ;AND CONTINUE INSTR FLOW
OP11: SKIP/AD0,MEM/REG FUNC,VMA/AD, ;LOAD VMA 13-35
AD/A,ADA/ARX,MREG FNC/NO MEM ACCESS BTYPE ;SKP ON "UEBR REF" IF NECC.
=110
;IF HERE NO "MCL UEBR REF# IS REQUIRED
MEM/AD FUNC,AD/A,ADA/AR,J/MBOXTM, ;LOAD SPECIAL MCL BOARD FUNCS
SPEC/SP MEM CYCLE ;AND CAUSE "MCL LOAD VMA CONTEXT
=111
;IF HERE, YES NEED "MCL UEBR REF"
MEM/AD FUNC,AD/A,ADA/AR, ;LOAD SPECIAL MCL BOARD FUNCS
SPEC/SP MEM CYCLE, ;AND A SPECIAL FUNC TO SET
SP MEM/PT RD NO PG FAIL, ; "MCL UEBR REF"
J/MBOXTM
2346:
MBOXTM: J/MBOXT1 ;NOOP TO LET MBOX START AN EBOX "TX" CYC.
2370:
MBOXT1: J/SETSIG,TIME/3T ;WAIT HERE WHILE MBOX ENTERS "EBOX T3"
;EXECUTE CODE FOR THE CONO PAG SPECIAL INSTR....
2371:
OP4: COND/DIAG FUNC,DIAG FUNC/CONO PAG,ADA/AR,AD/A ;SET "KL PAGING MODE"
2372: AD/A+1,ADA/PC,VMA/AD,J/0000, ;AND FIX VMA BEFORE RETURN
MEM/REG FUNC,MREG FNC/NO MEM ACCESS, ;STOP MEM FROM CYCLING
AR/AD ;AND CLEAR AR FOR INSTR STREAM
2373:
OP00: AD/B,ADB/FM,SPEC/SP MEM CYCLE, ;SET "MCL VMA USER"
J/OP00A,FMADR/XR,SKIP/AD0 ;AND CLR USER IF NECC
2374:
OP00A: COND/MBOX CTL,MBOX CTL/PT WR,J/OP00B ;WRITE DATA TO PAGE TABLE
2375:
SPEC/SP MEM CYCLE,SP MEM/USER,J/OP00A ;JUST SET USER, HERE IF IT MUST BE CLR
.TOC "PAGE TABLE PUBLIC BITS TO SCD FLAGS"
;THIS MICRO-CODE CHECKS THREE GATES ON THE SCD BOARD AS THEY
;AFFECT THE TWO SCAD FLAGS "SCD PUBLIC" AND "SCD PRIVATE INSTR".
;THE GATES THAT ARE CHECKED ARE GATES WHICH INCLUDE
;"SCD PRIVATE INSTR" OR "SCD PUBLIC PAGE" AS INPUTS.
;FIRST AN "AD FUNC" IS EXECUTED TO INITIALIZE "PUBLIC"
;AND/OR "PRIVATE INSTR" FLAGS AS DESIRED. THIRD, THE VMA IS LOADED
;WITH AN ADDRESS WHICH WILL SELECT A PAGE TABLE LOCATION
;CONTAINING "PT PUBLIC" TRUE(ODD PAGE TABLE LOCATION) OR
;"PT PUBLIC" FALSE(EVEN PAGE TABLE LOCATION). FINALLY, A MICRO-
;CODE SKIP IS EXECUTED IN ORDER TO CAUSE EITHER A "SPEC/PORTAL"
;(IF AR BIT3=0) OR "CLK MB XFER"(IF AR BIT3=1). THE MICRO-CODE
;THEN LOOPS BACK TO THE BIGINNING. THE PDP11 THEN TAKES OVER
;TO CHECK THAT THE CORRECT FLAGS HAVE SET OR CLEARED.
2352:
OP10: SPEC/FLAG CTL,FLAG CTL/LD PUB W PRVT, ;SET PRIV INSTR OR PUB
AD/A,ADA/AR ; DEPENDING ON AR BITS 8 & 7
2353:
VMA/AD,AD/A,ADA/AR ;LOAD VMA TO SELECT PT ADDRESS
2356:
MEM/AD FUNC,AD/A,ADA/AR, ;SET INSTR FETCH IF AR BIT9=1(& MEM CYCLE)
SH/AR,DISP/SH0-3 ;DO EITHER "PORTAL" OR "MB XFER"
2354:
SPEC/FLAG CTL,FLAG CTL/PORTAL, ;"SPEC/PORTAL"
J/PAGFLG
2355:
MEM/MB WAIT,J/PAGFLG ;WITH "RESP SIM" CAUSES "CLK MB XFER"
;SPECIAL MICRO WORD TO CAPTURE PAGE FAILS
1777: J/ABORT,DISP/PG FAIL,TIME/5T