Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/dskebt.mac
There are no other files named dskebt.mac in the archive.
;PS:<PRENTICE.DSKEB>DSKEBT.MAC.38, 17-Oct-78 14:31:18, Edit by PRENTICE
MCNVER==0 ;PATCH LEVEL
DECVER==1 ;PGM VERSION
XLIST
;UPDATE THIS DECIMAL EDIT NUMBER EACH TIME THE FILE IS EDITED.
TEDITNO==^D38
DEFINE DSKEBT (MCN,DEC),<LALL
LIST
COMMENT %
TITLE DSKEB - KS10 CACHE DIAGNOSTIC VERSION MCN,DEC .
%
XALL>
DEFINE DSKEBM (MCN,DEC),< TITLE DSKEB - KS10 CACHE DIAGNOSTIC VERSION MCN,DEC .
T==[SIXBIT\DSKEB - KS10 CACHE DIAGNOSTIC VERSION MCN,DEC_\]
>
DSKEBT \MCNVER,\DECVER
NOSYM
;*ASSEMBLE AS: @R MACRO
;*DSKEB,DSKEB/C=DSKEBT,PARAM.KSM,FIXED.KSM,DSKEBM,STOR.KSM
SEARCH MONSYM,MACSYM
LOC 137 ;VERSION LOCATION
MCNVER,,DECVER ;STORE VERSION INFO
SUBTTL DIAGNOSTIC PARAMETERS
$PAPER==1 ;SHOW DEFINITIONS FOR KS10
EXCASB==1 ;EXEC MODE ONLY
PGMEND==1 ;SUPPLY END STATEMENT
KS10==1 ;PGM TO RUN ON KS10 ONLY
DEBUG==200 ;ENUF ROOM TO DEBUG WITH
ITERAT==1000 ;RUN A FEW TIMES
SADR1==BEGIN
SADR2==BEGIN
SADR3==BEGIN
SADR4==BEGIN
SADR5==$BEND2 ;CTRL-C XFER BACK TO DIAG MONITOR
SADR6==BEGIN
SADR7==JRST BEGIN
SADR8==JRST BEGIN
SADR9==JRST BEGIN
SADR10==JRST BEGIN
SADR11==JRST BEGIN
PAREA1==137526,,402651 ;RANDOM SEED
PAREA2==0
PAREA3==SIXBIT\DSKEB\
PAREA4==SIXBIT\PNT\ ;PGM NAME
PAREA5==0
PAREA6==0
;*AC DEFINITIONS
A=1
B=2
C=3
D=4
E=5
F=6
TN=16
;*OPDEFS
OPDEF RDTIME [702200,,0] ;READS TIME BASE TO E,E+1 (4MHZ)
OPDEF UMOVE [704000,,0] ;UMOVE A,B => PXCT 4,[MOVE A,B]
OPDEF UMOVEM [705000,,0] ;UMOVEM A,B=> PXCT 4,[MOVEM A,B]
;*MACROS
DEFINE .PGE (ARG),< LOC <.!777>+1
ARG:
ARG'PN==<ARG_-^D9>
>
DEFINE DS (ARG),<IRP ARG,<ARG==.
LOC ARG+1>>
DEFINE DB (ARGN,ARGS),<ARGN==.
LOC ARGN+ARGS>
DEFINE FATALE (ARG),< JSP 0,[ JRST FATALP
ASCIZ\ARG\]>
TSTCNT==0
DEFINE BEGTST,<TSTCNT==TSTCNT+1
HRRZ TN,SAVETN
CAIE TN,TSTCNT-1
JSP 0,BEGERR
SETZM ERFLG
MOVEI 0,.+2
MOVEM 0,TESTPC>
DEFINE ENDTST,< HRRZ TN,SAVETN
CAIE TN,TSTCNT-1
JSP 0,ENDERR
RTN>
;*MISC DEFINITIONS
XWRUBR==1B0!1B2!0B8!UPTPN ;VALUE TO INIT UBR
THLD==10000 ;TIMING THRESHOLD (ABOUT 2 USEC/JFCL)
PON==LTRPEN!EPTPN ;VALUE TO TURN ON PAGING AND SET EBR
POFF==EPTPN ;VALUE TO TURN OFF PAGING AND SET EBR