Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dfkect.mac
There are no other files named dfkect.mac in the archive.
;DFKEC
MCNVER==0
DECVER==2
XLIST
DEFINE NAME (MCNVER,DECVER),<
TITLE DFKEC DECSYSTEM KL10 PXCT DIAGNOSTIC, VER MCNVER,DECVER>
LIST
LALL
NAME \MCNVER,\DECVER
XALL
;*COPYRIGHT (C) 1981
;*DIGITAL EQUIPMENT CORP.
;*MARLBORO, MASS. 01754
;*AUTHOR: JOHN R. KIRCHOFF
;* EDWARD G. PRENTICE
;*MAINTAINER: LARGE SYSTEMS DIAGNOSTIC GROUP
;*ASSEMBLE AS:
;*DFKEC,DFKEC/C=DFKECT,PARAM.KLM,FIXED.KLM,DFKECM,STOR.KLM
LOC 137
MCNVER,,DECVER
NOSYM
IF2,<PRINTX [STARTING PASS 2]>
SUBTTL DIAGNOSTIC PARAMETERS
; **********************************************************************
;*SUBROUTINE ASSEMBLY PARAMETERS
; **********************************************************************
EXCASB==1 ;EXEC MODE ASSEMBLY (ONLY)
PGMEND==1 ;SUPPLY END STATEMENT
KL10==1 ;PGM TO RUN ONLY ON KL10
PL10P0==1
DEBUG=100 ;SUPPLY 100 WDS OF DEBUG SPACE
ITERAT==10 ;NUMBER OF ITERATIONS
SADR1=BEGIN
SADR2=BEGIN
SADR3=DDTSRT
SADR5=DDTSRT
SADR6=DDTSRT
SADR7=0
SADR8=0
SADR9=0
SADR10=0
SADR11=0
PAREA1==137526,,402651 ;RANDOM SEED
PAREA2=0
PAREA3==SIXBIT/DFKEC/
PAREA4=0
PAREA5=0
PAREA6=0
; **********************************************************************
;*AC DEFINITIONS
; **********************************************************************
A=1 ;GENERAL USE, PASSING ARGS
B=A+1
C=B+1
D=C+1
E=D+1
F=E+1
T0=F+1
T1=T0+1
T2=T1+1
T3=T2+1
T4=T3+1
TN=16 ;CURRENT TEST NUMBER
; **********************************************************************
;*APRID FLAG DEFINITIONS
; **********************************************************************
KLXTST= 1B0 ;ON=HDW+SW BOTH ALLOW EXT ADDR, OFF=NOT BOTH
KLPGNG= 1B1 ;ON=KL-PAGING, OFF=KI-PAGING
UCODX= 1B2 ;ON=EXTENDED UCODE, OFF=UNEXTENDED UCODE
UCODSP= 1B3 ;ON=SPECIAL FLAVOR OF UCODE...
KL10X= 1B4 ;ON=EXTENDED KL (HDW), OFF=UNEXTENDED
KLAKLB= 1B5 ;ON=KLA OR KLB UCODE
KLXCON= KLPGNG!UCODX!KL10X ;CONDITIONS NECESSARY TO RUN PXCT TST
; **********************************************************************
;*FLAG FOR EA CALCULATION PARAMETER IN AC C
; **********************************************************************
LOCREF= 1B0 ;LOCAL/GLOBAL REFERENCE FLAG
; **********************************************************************
;*MISCELLANOUS DEFINITIONS
; **********************************************************************
EPT==0 ;EPT AT ZERO WHERE SUBRTN EXPECTS IT
PCSECT==20 ;SECTION NUMBER FOR PC OF PXCT INSTR
PCSHW= 220500 ;PREVIOUS CONTEXT SECTION BYTE PTR
PACB= 300300 ;PREVIOUS AC BLOCK BYTE PTR
CACB= 330300 ;CURRENT AC BLOCK BYTE PTR
MYACS= 2 ;MY AC BLOCK #
USRACS= 3 ;USER AC BLOCK #
REVBLK= 6 ;RESERVED AC BLOCK #
CSTMSK= 0 ;HOLDS CST MASK
CSTDAT= 1 ;HOLDS CST DATA
CBR= 2 ;CST BASE REG
SPTBR= 3 ;HOLDS SPT BASE REG
MAXSEC= 37 ;MAXIMUM ALLOWABLE SECTION NUMBER
NPAGES= 7 ;NUMBER OF RESERVED PAGES
INDMAX= 2 ;MAX INDIRECT CHAIN LENGTH
NOSTAC= 400000 ;DON'T STORE ACCTG INFO
TRAPF= 1B22 ;FLAG FOR TRAPPING
KLPAGF= 1B21 ;FLAG TO TURN ON KL PAGING
RACCES= 1B2!1B6 ;IMMEDIATE+CACHEABLE
ACCESS= RACCES!1B4 ;READ ACCESS + WRITE ACCESS
NWACC= ACCESS!1B17 ;B17 TO DISALLOW ACCESS, BUT SETUP MAP
USRBIT= 1B5 ;USER MODE
UIOBIT= 1B6 ;USER I/O BIT
PCUBIT= 1B6 ;PREVIOUS CONTEXT USER
; **********************************************************************
;*EPT/UPT DEFINITIONS
; **********************************************************************
ULPTR= UPT+420 ;POINTER TO USER LUUO BLOCK
UUONPC= UPT+430 ;8 LOCS FOR NEW MUUO PC'S
UUOPTR= EPT+420 ;POINTER TO 4WD EXEC LUUO BLOCK
; **********************************************************************
;*MACROS
; **********************************************************************
DEFINE FATALE (ARG),<
001B8 [ASCIZ\ARG\]
>
LUUO1= FATALP
DEFINE .PGE (ARG),<
LOC <.!777>+1
ARG: ARG'PN= <ARG_-^D9>
>
; **********************************************************************
;*INDIRECT WORD DEFINITIONS
;* L IS THE MNEMONIC USED TO GENERATE A LOCAL INDIRECT WORD
;* G IS USED FOR GLOBAL INDIRECTING.
; **********************************************************************
OPDEF L [1B0]
DEFINE G (ARG1,ARG2),<
IFB <ARG2>,<INSUFFICIENT ARGS>
IFNB <ARG2>,<
IFB <ARG1>,<INSUFFICIENT ARGS>
IFNB <ARG1>,<....%S==ARG1>
....%E==<Z ARG2>
>
....%X==<<....%E&17B17>_-^D18>
....%Y==<....%E&777777>
....%I==<<....%E&1B13>_-^D22>
BYTE (1)0,....%I (4)....%X (12)....%S (18)....%Y
>
; **********************************************************************
;*OPDEFS
; **********************************************************************
OPDEF CLRPT [701100,,0] ;CLR HDW PG TBL
OPDEF SWPIA [DATAI CCA,]
OPDEF APRID [BLKI APR,]
OPDEF XMOVEI [SETMI]
OPDEF XJRSTF [JRST 5,]
OPDEF XJEN [JRST 6,]
OPDEF XPCW [JRST 7,]
OPDEF SFM [JRST 14,]
OPDEF EXTEND [123B8]
OPDEF EDIT [4B8]
OPDEF CVTBO [10B8]
OPDEF MOVSLJ [16B8]
OPDEF XBLT [20B8]
OPDEF PXCT [XCT]
OPDEF RTNSKP [JRST CPOPJ1]
OPDEF GOEXEC [76B8]
LALL