Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dbkdbt.mac
There are no other files named dbkdbt.mac in the archive.
;*MAINDEC-10-DBKDB
DECVER==003
MCNVER==000
XLIST
DEFINE NAME (MCNVER,DECVER),<
TITLE DBKDB DECSYSTEM10 KI10 RANDOM NUMBER INSTRUCTION TEST, VER MCNVER,DECVER>
LIST
LALL
NAME \MCNVER,\DECVER
XALL
;*COPYRIGHT 1972,1973,1974,1976
;*DIGITAL EQUIPMENT CORPORATION
;*MARLBORO, MASS. 01752
;*JOHN R. KIRCHOFF
LOC 137
MCNVER,,DECVER
NOSYM
;*PROGRAM DESIGNED TO EXECUTE RANDOM INSTRUCTIONS (NON-PC CHANGE)
;* IN CORE, IN THE FAST AC'S, AND THRU SOFTWARE SIMULATION.
;*THE RESULTS OF THE THREE GROUPS OF INST ARE COMPARED FOR EQUALITY.
;*UPON A DISCREPENCY THE PROGRAM PRINTS ALL PERTINENT INFORMATION
;* AND GOES INTO A REPETITIVE FAILURE LOOP.
;*THE PROGRAM OPERATES AS FOLLOWS:
;* 1. GENERATES EIGHT RANDOM NUMBERS AND STORES
;* THEM IN AC 0-7.
;* 2. RESTORES THEM IN RAND-RAND+7
;* 3. TEST AC'S FOR VALID INST.
;* A. OP CODES 0-17 CHANGED TO DFAD
;* B. OP CODES 20-37 CHANGED TO DFSB
;* C. OP CODES 40-57 CHANGED TO DFMP
;* D. OP CODES 60-77 CHANGED TO DFDV
;* E. OP CODES 100-107 CHANGED TO ROTC
;* F. OP CODES 114-117,123 CHANGED TO DFDV
;* G. OP CODES 133-137 CHANGED TO ASHC
;* H. OP CODES 243+247 CHANGED TO IMUL
;* I. OP CODES 260-267 CHANGED TO IMUL
;* J. OP CODES 251-257 CHANGED TO IMUL
;* K. OP CODES 300-377 CHANGED TO FSBR
;* L. OP CODES 600-677 CHANGED TO FDVR IF
;* IT IS THE LAST INST IN THE INST GROUP
;* M. OP CODES OF 700-777 CHANGED TO FMPR
;* N. THEN ALL VALID INST. ARE MASKED FOR
;* INDEX REG, INDIRECT, AC'S ABOVE 7, AND
;* ONLY AN "E" FIELD OF 0-7.
;* 4. STORES VALID INST IN INSBLK
;* 5. SETS UP SLOW CORE LOOP WITH SIMULATION TRANSFER
;* BETWEEN EACH VALID INST.
;* 6. EXECUTES & SIMULATES SLOW LOOP.
;* 7. COMPARES RESULTS AFTER EACH INST/SIMULATION.
;* 8. STORES ANS. (AC'S 0-7) IN ANSBLK.
;* 9. LOADS FAST LOOP AND AC'S
;* 10. EXECUTES FAST LOOP.
;* 11. COMPARES FAST LOOP AND SLOW LOOP ANS.
;* 12. RE-EXECUTES FAST LOOP 7 TIMES WITH ANS CHECKING.
;* 13. UPON AN ERROR THE PROGRAM WILL OUTPUT ON LPT OR TTY,
;* THE OPERANDS, INSTRUCTIONS, SLOW/FAST LOOP
;* ANSWERS, AND THE SIM/SLOW LOOP ANSWERS.
;* 14. THE PROGRAM WILL THEN SIMULATE AND PRINT THE
;* APPROPRIATE FAILING INSTRUCTION(S).
;* 15. IT THEN WILL GO INTO AN ERROR LOOP.
;*
;* NOTE:- BEWARE CORE LOOP AND/OR SIMULATION LOOP MAY
;* HAVE FAILED AND NOT FAST LOOP.
SUBTTL DIAGNOSTIC PARAMETERS
;*SUBROUTINE ASSEMBLY DEFINITIONS
EXCASB==1
USRASB==1
PGMEND==1
DEBUG==40
KI10==1
ONEPRT==1 ;ASSEMBLE PROGRAM AS ONE PART
SIMASB==1
;*TEST CONTROL DATA SWITCHES, RIGHT HALF
ENTDDT== 400000 ;ENTER DDT UPON STARTING
RANBAS== 200000 ;SPECIFY RANDOM NUMBER BASE
MGNTST== 100000 ;MARGIN FAST & SLOW ONLY
SEQPNT== 2000 ;PRINT SIM SEQUENCE NUMBERS
INHSCT== 400 ;INHIBIT SIMULATION SCT2 PRINT
INHCLK== 200 ;INHIBIT CLOCK INTERRUPTS
INHMS== 100 ;INHIBIT PRINT SIMULATION MACHINE STATES
SNGFL== 4 ;RUN SINGLE FAST LOOP
INHSIM== 2 ;INHIBIT SIMULATION COMPARISION
INHNEW== 1 ;INHIBIT NEW KI10 INSTRUCTIONS
;*MISCELLANEOUS
INHIF== 0 ;INHIBIT INITIAL/FINAL (NOT USED)
;*STATEMENT OPERATORS PASSED FROM/TO MAIN SIMULATOR PROGRAM
VM==SENTRY
OFFSET=0 ;SIMULATED INSTRUCTIONS IN LOW SEGMENT
;*ACCUMULATOR ASSIGNMENTS, SIMULATOR
F==0
T==1
T1==2
T2==3
T3==4
S==5
AR==6
MQ==7
BR==10
AD==11
MB==12
PC==13
MA==14
SC==15
IR==16
;*BEGIN ASSEMBLY PARAMETERS
SADR1== SFSRT1
SADR2== RESRT1
SADR3== RENTR1
SADR5== BEGIN
SADR6== SRTDDT
SADR7== JRST CONTNU
SADR8== JRST FAST
SADR9== HALT BEGIN
SADR10==HALT BEGIN
SADR11==HALT BEGIN
PAREA1==123457,,654321
PAREA2==0,,0
PAREA3==SIXBIT/DBKDB/
PAREA4==SIXBIT/TMP/
PAREA5==0
PAREA6==0
ITERAT==2