Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dbkaft.mac
There are no other files named dbkaft.mac in the archive.
;DBKAF
XLIST
MCNVER==0
DECVER==2
LOC 137
MCNVER,,DECVER
DEFINE NAME (A,B)<
TITLE DBKAF PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (6) MCNVER,DECVER
>
LIST
NAME \MCNVER,\DECVER
;COPYRIGHT 1972
;DIGITAL EQUIPMENT CORPORATION
;MAYNARD, MASS. 01754
;DICK MALISKA
;ASSEBLE AS: DBKAFT,BEGIN,DBKAFM
SUBTTL DIAGNOSTIC PARAMETERS
;PARAMETER DEFINITIONS
EXCASB==1
USRASB==1
PGMEND==1
DEBUG==100
;FLAG DEFINITIONS
USERF=10000 ;USER MODE FLAG
;MACROS
;SPECIAL FEATURE PARAMETERS
SADR1=START
SADR2=START
SADR3=START
SADR4=START
SADR5=JRST START
SADR6=JRST START
SADR7=JRST START
SADR8=JRST START
SADR9=JRST START
SADR10=JRST START
SADR11=JRST START
PAREA0=0
PAREA1=0
PAREA2=0
PAREA3=SIXBIT/DBKAF/
PAREA4=SIXBIT/PNT/
PAREA5=0
PAREA6=0
ITERAT==1000
PGMEND==1
NOSYM
SUBTTL DIAGNOSTIC PARAMETERS
;ACCUMULATOR ASSIGNMENTS
;CONTROL WORDS
AROV=400000 ;ARITHMETIC OVERFLOW
CRY0=200000 ;CARRY 0
CRY1=100000 ;CARRY 1
FOV=40000 ;FLOATING OVERFLOW
BIS=20000 ;BYTE INTERRUPT
USERF=10000 ;USER MODE FLAG
EXIOT=4000 ;USER PRIV I/O FLAG
FXU=100 ;FLOATING UNDERFLOW
DCK=40 ;DIVIDE CHECK
;MACROS
; STOP - USED FOR SCOPE LOOP, IF INSTRUCTION FAILS, CHANGE (JUMPA .+1)
; TO A (JUMPA X) TO CYCLE ON FAILING INSTRUCTION
DEFINE STOP (A)<
HALT .+1 ;TEST FAILED IF PROGRAM HALTS HERE
JUMPA .+1 ;IF TEST FAILS, CHANGE THIS INSTRUCTION (JUMPA .+1)
;TO JUMPA X(X IS THE ADDRESS OF THE FIRST
;INSTRUCTION IN THE SUBTEST) TO LOOP ON ERROR
;AND CHANGE HALT INSTRUCTION TO JUMPA .+1>
; SFLAG - USED TO CLEAR ALL FLAGS THEN TO SET REQUESTED FLAG
DEFINE SFLAG (A)<
MOVSI 1,A
JFCL 17,.+1 ;RESET ALL FLAGS
JRST 2,.+1(1) ;SET A FLAG>