PDP-10 Archive: klad.sources/dfkeat.mac from klad

Trailing-Edge - PDP-10 Archives - klad_sources - klad.sources/dfkeat.mac

There are no other files named dfkeat.mac in the archive.

;*MAINDEC-10-DFKEA

MCNVER=000
DECVER=005

	XLIST
DEFINE	NAME (MCNVER,DECVER),<

TITLE	DFKEA	DECSYSTEM KL10 PAGING HARDWARE DIAGNOSTIC - VERSION MCNVER,DECVER>
	LIST
	LALL

	NAME	\MCNVER,\DECVER

LOC	137
MCNVER,,DECVER

;*COPYRIGHT 1975,1981
;*DIGITAL EQUIPMENT CORPORATION
;*MARLBORO, MASS. 01752

;*JOHN R. KIRCHOFF

	NOSYM

SUBTTL	DIAGNOSTIC PARAMETERS

;*SUBROUTINE ASSEMBLY PARAMETERS

EXCASB=	1				;ASSEMBLE FOR EXEC MODE
PGMEND=	1				;    "    PROGRAM END STATEMENT
DEBUG=	100				;    "    ROOM FOR DEBUGGING
KL10=	1				;    "    FOR KL10 CP
KL10P0=	1				;    "    FOR KL10 P0
MODDVL=	BEGIN
MODDVU=	BEGIN

;*ACCUMULATOR DEFINITIONS

CNTR=6					;COUNTER AC
AC=7					;COMMON AC 1
AC1=10					;COMMON AC 2
AC2=11					;COMMON AC 3
AC3=12					;COMMON AC 4
ACT=13					;ACTUAL RESULTS AC
COR=14					;CORRECT RESULTS AC
INDX=5					;INDEXING AC

;*MISCELLANEOUS

OPDEF	MAP	[257B8]			;MAP INSTRUCTION
OPDEF	APRID	[7B2]			;USED TO SEE IF MODEL A OR B

PGRDTB=END+1				;440(8) WORD PAGED READ DATA BLOCK
PGWRTB=END+1				;440(8) WORD PAGED WRITE DATA BLOCK
END1=END+440				;NEW END OF PROGRAM

TN0==400				;TRAP NUMBER 0
TN1==200				;TRAP NUMBER 1

MTR=24					;METER DEVICE CODES
TIM=20

COMMENT	%
MAP INSTRUCTION READOUT ASSIGNMENTS

BIT 0 - USER ADDRESS
    1 - PAGE FAIL
    2 - ACCESS
    3 - WRITABLE
    4 - SOFTWARE
    6 - PUBLIC
    7 - CACHE
    8 - PAGED REF
    9-13 - 0
    14
    ^ - CORE ADDRESS BITS 14-35
    35

PAGE FAIL ERROR FORMAT
IF BIT 1 = 1

	21 = PROPRIETARY VIOLATION
	22 = REFILL ERROR (HARDWARE FAILURE
	23 = ADDRESS COMPARE
	24 = SEC ACCESS FAILURE

PAGE TABLE ENTRY WORD FORMAT

BIT 0 - ACCESS
    1 - PUBLIC
    2 - WRITABLE
    3 - SOFTWARE
    4 - CACHE
    5
    ^ - PHYSICAL PAGE ADDRESS BITS 14-26
   17

;LEFT HALF = EVEN VIRTUAL PAGE
;RIGHT HALF = ODD VIRTUAL PAGE
%

;*DATA SWITCHES

;OPRSEL = ALLOW MAXIMUM TESTING

INHMXQ=2				;INHIBIT RECONFIGURATION QUESTION
INHMAX=1				;INHIBIT MAX RELOCATION TESTING

;*BEGIN PARAMETERS

SADR1=	SFSRT1				;SPECIAL FEATURE START
SADR2=	RESRT1				;POWER FAIL RESTART
SADR3=	BEGIN				;NO REENTER START
SADR4=	BEGIN				;NO DDT
SADR5=	BEGIN				;^C - START OVER
SADR6=	BEGIN				;ALTMODE - START OVER
SADR7=	HALT BEGIN
SADR8=	HALT BEGIN
SADR9=	HALT BEGIN
SADR10=	HALT BEGIN
SADR11=	HALT BEGIN

PAREA1=	0				;NO RANDOM
PAREA2=	0				;NO SYS EXR
PAREA3=	SIXBIT/DFKEA/			;PROGRAM NAME
PAREA4=	0				;NO EXTENTION
PAREA5=	0
PAREA6=	0

ITERAT=	0

;MACROS

DEFINE	SUBTST<
	MOVEI	.
	MOVEM	TESTPC			;SETUP SUBTEST PC >

OPDEF	REPTLP	[SOJG	REPT,]		;REPEAT LOOP