Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dbkabt.mac
There are no other files named dbkabt.mac in the archive.
;DBKAB
XLIST
MCNVER==0
DECVER==2
LOC 137
MCNVER,,DECVER
DEFINE NAME (A,B)<
TITLE DBKAB PDP-10 KI10 BASIC INSTRUCTION DIAGNOSTIC (2) MCNVER,DECVER
>
LIST
NAME \MCNVER,\DECVER
;COPYRIGHT 1972
;DIGITAL EQUIPMENT CORPORATION
;MAYNARD, MASS. 01754
;DICK MALISKA
;ASSEMBLE AS DBKABT,BEGIN,DBKABM
SUBTTL DIAGNOSTIC PARAMETERS
;PARAMETER DEFINITIONS
EXCASB==1
USRASB==1
;FLAG DEFINITIONS
USERF=10000 ;USER MODE FLAG
;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>
;SPECIAL FEATURE PARAMETERS
SADR1=B00
SADR2=B00
SADR3=B00
SADR4=B00
SADR5=JRST B00
SADR6=JRST B00
SADR7=JRST B00
SADR8=JRST B00
SADR9=JRST B00
SADR10=JRST B00
SADR11=JRST B00
PAREA0=0
PAREA1=0
PAREA2=0
PAREA3=SIXBIT/DBKAB/
PAREA4=SIXBIT/PNT/
PAREA5=0
PAREA6=0
ITERAT==1000
PGMEND==1
NOSYM