Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dfkadt.mac
There are no other files named dfkadt.mac in the archive.
;DFKAD
MCNVER==0
DECVER==2
XLIST
DEFINE NAME (MCNVER,DECVER)<
TITLE DFKAD PDP10 Kl10 BASIC INSTRUCTION DIAGNOSTIC (4) MCNVER,DECVER
>
LIST
LALL
NAME \MCNVER,\DECVER
;BYTE, BLOCK TRANSFER, JFFO AND OTHER BASIC MISCELLANEOUS INSTRUCTIONS
;COPYRIGHT 1984
;DIGITAL EQUIPMENT CORPORATION
;MARLBORO, MASS. 01752
;J. Kirchoff
LOC 137
MCNVER,,DECVER
NOSYM
SUBTTL DIAGNOSTIC PARAMETERS
;Parameter definitions
DEBUG=40
EXCASB==1
USRASB==1
KI10=1
KL10=1
KL10PO=1
PGMEND==1
ERDIAG=1
MEMMAP==0
;SPECIAL FEATURE DEFINATIONS
SADR1=BEGIN
SADR2=BEGIN
SADR3=BEGIN
SADR4=BEGIN
SADR5=JRST BEGIN
SADR6=JRST BEGIN
SADR7=JRST BEGIN
SADR8=JRST BEGIN
SADR9=JRST BEGIN
SADR10=JRST BEGIN
SADR11=JRST BEGIN
;SPECIAL FEATURE PARAMETERS
PAREA0=0
PAREA1=0
PAREA2=0
PAREA3=SIXBIT/DFKAD/
PAREA4=SIXBIT/LPT/
PAREA5=0
PAREA6=0
ITERAT==1000
;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 ;To loop change this instruction>
; Sflag - used to clear all flags then to set selected flag
DEFINE SFLAG (A)<
MOVSI 1,A
JFCL 17,.+1 ;Reset all flags
JRST 2,.+1(1) ;Set a flag>