Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskfat.mac
There are no other files named dskfat.mac in the archive.
;*MAINDEC-10-DSKFA
MCNVER=0
DECVER=1
XLIST
DEFINE NAME (MCNVER,DECVER),<
TITLE DSKFA DECSYSTEM 2020 INSTRUCTION TIMING TEST, VER MCNVER,DECVER >
LIST
LALL
NAME \MCNVER,\DECVER
XALL
;*COPYRIGHT 1978
;*DIGITAL EQUIPMENT CORPORATION
;*MARLBORO, MASS. 01752
;*JOHN R. KIRCHOFF
LOC 137
MCNVER,,DECVER
NOSYM
;*THIS PROGRAM IS CONTROLLED BY A TABLE HAVING THE FOLLOWING
;*FORMAT. TABLE STARTS AT LOCATION TABLE. 8 WORDS PER ENTRY.
;* INSTR ADR ;1,2, OR 3 INSTRUCTIONS TO BE TIMED. IF
;* INSTR ADR ;INSTR ADR=0 IT IS IGNORED. IF ADR=1
;* INSTR ADR ;IT IS CHANGED TO .+1
;*
;* XWD RESULT,MESSAGE ;RESULT RECEIVES THE TIME IN NS.
;* ;FOR THE ABOVE 3 INSTRUCTIONS.
;* ;MESSAGE IS THE FIRST ADDRESS
;* ;OF AN ID MESSAGE TO BE PRINTED.
;*
;* XWD 0,ADR ;UP TO 3 TIMING CALCULATION COMMANDS.
;* XWD -1,ADR ;LEFT HALF + MEANS ADD. LEFT
;* XWD 0,0 ;HALF - MEANS SUBTRACT. BOTH
;* ;HALVES 0 MEANS IGNORE. DATA
;* ;IS FOUND IN LEFT HALF OF
;* ;C(ADR)
;*
;* XWD LEFT,NEXT ;ADDRESS OF NEXT TABLE ENTRY.
;* ;NEXT=0 MEANS END OF TABLE.
;* ;LEFT HALF
;* ;**N/A**NEG. MEANS USER MODE
;* ;BITS 9-17 GIVE DIVISOR FACTOR
SUBTTL DIAGNOSTIC PARAMETERS
LALL
;*AC ASSIGNMENTS
AC=0 ;AN AC!
TB=2 ;CURRENT TABLE ADDRESS
T=4 ;TEMPORARY
TT=T+1 ;TEMPORARY
T1=TT+1 ;TEMPORARY
C=7 ;ITERATIONS PER LOOP
CC=C+1 ;LOOPS
;*SUBROUTINE ASSEMBLY DEFINITIONS
EXCASB==1
DEBUG==100
PGMEND==1
;*NEW OP CODE DEFINITIONS
OPDEF DFAD [110B8]
OPDEF DFSB [111B8]
OPDEF DFMP [112B8]
OPDEF DFDV [113B8]
OPDEF DMOVE [120B8]
OPDEF DMOVN [121B8]
OPDEF FIX [122B8]
OPDEF DMOVEM [124B8]
OPDEF DMOVNM [125B8]
OPDEF FIXR [126B8]
OPDEF FLTR [127B8]
;*BEGIN ASSEMBLY PARAMETERS
SADR1= BEGIN ;NO SPECIAL FEATURE START
SADR2= RESRT1 ;POWER FAIL RESTART
SADR3= BEGIN ;NO REENTER START
SADR4= srtddt ;DDT
SADR5= $bend2 ;^C - START OVER
SADR6= BEGIN ;NO ALTMODE
SADR7= HALT BEGIN
SADR8= HALT BEGIN
SADR9= HALT BEGIN
SADR10= HALT BEGIN
SADR11= HALT BEGIN
PAREA1= 0 ;NO RANDOM
PAREA2= 0 ;NO SYS EXR
PAREA3= SIXBIT/DSKFA/
PAREA4= 0
PAREA5= 0
PAREA6= 0
ITERAT= 0