Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dakdat.mac
There are no other files named dakdat.mac in the archive.
;MAINDEC-10-DAKDA
DECVER==002
MCNVER==000
XLIST
DEFINE NAME (MCNVER,DECVER),<
TITLE DAKDA KA10 ARITHMETIC RELIABILITY DIAGNOSTIC, VER MCNVER,DECVER >
LIST
LALL
NAME \MCNVER,\DECVER
XALL
;A COMPREHENSIVE RELIABILITY TEST OF THE PDP-10
;KA10 FIXED, FLOATING AND BYTE INSTRUCTIONS.
;COPYRIGHT 1977
;DIGITAL EQUIPMENT CORPORATION
;MARLBORO, MASS. 01752
;JOHN R. KIRCHOFF
LOC 137
MCNVER,,DECVER
NOSYM
SUBTTL DIAGNOSTIC PARAMETERS
;OPERATOR DEFINITIONS
OPDEF SMT [15B8]
LUUO15=SIMMT
OPDEF SINST [20B8]
LUUO20=SIMNST
;SUBROUTINE ASSEMBLY DEFINITIONS
EXCASB==1
USRASB==1
KA10==1
KLOLD==1
PGMEND==1
DEBUG=100
SADR1==SFSRT1
SADR2==RESRT1
SADR3==RENTR1
SADR5==BEGIN
SADR6==DDTSRT
SADR7==HALT BEGIN
SADR8==SADR7
SADR9==SADR7
SADR10==SADR7
SADR11==SADR7
PAREA1==123457,,654321
PAREA2==0
PAREA3==SIXBIT/DAKDA/
PAREA4==SIXBIT/TMP/
PAREA5==0
PAREA6==0
ITERAT==2
OFFSET=0
VMHALT=DDTSRT
SEXIT1=VMHALT
DDTEX5=DDTSRT
;ACCUMULATOR ASSIGNMENTS
AC=1 ;TEST AC'S
RA=5 ;RANDOM NUMBER AC'S
FLAGS=11 ;FLAGS (OV,DCK,ETC)
ACSP=12 ;POINTER FOR SIMULATED AC'S
CNTL=13 ;CONTROL REGISTER
CNTR=14 ;COUNTER FOR GROUP
IT=15 ;TEST INSTRUCTION POINTER
LOP=16 ;GROUP ITERATION COUNTER
;CONTROL WORDS
BYT=200000 ;BYTE FLAG
FP=100000 ;FLOAT FLAG
ER=40000 ;ERROR FLAG
;TEST CONTROL SWITCHES
;RIGHT HALF
ENTDDT=400000 ;ENTER DDT UPON STARTING
RANBAS=200000 ;SPECIFY RANDOM NUMBER BASE
INHCLK=200 ;INHIBIT CLOCK INTERRUPTS
INHMT=100 ;INHIBIT PRINT MACHINE TIMES
INHFP=40 ;INHIBIT FLOATING POINT TEST
INHBYT=20 ;INHIBIT BYTE TEST
INHFXD=10 ;INHIBIT FIXED POINT TEST
INHSCT=4 ;INHIBIT SIMULATION SCT PRINT
SLOW=2 ;RUN JUST SIMULATION COMPARISION
FAST=1 ;RUN JUST INSTRUCTION COMPARISION
;MACRO'S
DEFINE SAVEM (A,B)<
MOVEM A,B(ACSP) ;MOVE TO MEMORY
MOVEM A+1,B+1(ACSP)
MOVEM A+2,B+2(ACSP)
MOVEM A+3,B+3(ACSP)
>
DEFINE NORM (A,B)<
TLNE A,400000 ;NORMALIZE A NUMBER
TLZA A,400
TLO A,400
TDNN A,[377777777777]
AOS A,B
MOVEM A,B
>