Trailing-Edge
-
PDP-10 Archives
-
tops10_tools_bb-fp64a-sb
-
10,7/dbusy/dbusy.mac
There are 4 other files named dbusy.mac in the archive. Click here to see a list.
TITLE DBUSY -- Count number of disk UNITS BUSY
;COPYRIGHT (C) 1979,1980 BY DIGITAL EQUIPMENT CORPORATION,
;MAYNARD, MASS.
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERRED.
;
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
;Assembly instructions: .LOAD DBUSY
SEARCH MACTEN,UUOSYM,SNUP
.REQUIRE SNUP
SALL
DEFINE COMAND<
XX "A",<PUSHJ P,SETALL>
XX "C",<PUSHJ P,COM.C>
XX "H",<PUSHJ P,HELP>
XX "N",<PUSHJ P,SET.RN>
XX "P",<PUSHJ P,SET.RP>
XX "R",<PUSHJ P,REFRESH>
XX "V",<PUSHJ P,SETHPQ>
XX " ",<PUSHJ P,DATDMP>
XX "<",<PUSHJ P,SLOWER>
XX ">",<PUSHJ P,FASTER>
XX 4,<PUSHJ P,TODDT>
XX 32,<JRST CONTRZ>
>
DEFINE COUNT(HISTO)<
CAIL %T1,HSTLEN-1 ;IN RANGE?
MOVEI %T1,HSTLEN-1 ;NO, USE DEFAULT CASE
ADD %T1,%R ;RELOCATE OFFSET
AOS HISTO(%T1) ;HISTOGRAM IT
>
ESC==33
DEFINE HOME<
OUTCHR [ESC]
OUTCHR ["H"]
>
DEFINE CLEAR<
OUTCHR [ESC]
OUTCHR ["J"]
>
DEFINE MOVETO(XP,YP)<
OUTCHR [ESC]
OUTCHR ["Y"]
PUSH P,SECRET
MOVE SECRET,YP
ADDI SECRET," "
OUTCHR SECRET
MOVE SECRET,XP
ADDI SECRET," "
OUTCHR SECRET
POP P,SECRET
>
DEFINE OBYTE(LIST)<IRP LIST,<
MOVEI T0,LIST
IDPB T0,T4>
>
DEFINE ODEC(WID)<
SETZB T0,T2
MOVE T3,[SETZ WID]
EXTEND T0,[CVTBDO "0"
" "]
HALT
>
HSTLEN==20
NL==10
D==1 ; Disk output channel
IDDNUM==^D<5*6> ; .2 * seconds between screen updates (initial value)
T0=0
T1=T0+1
T2=T1+1
T3=T2+1
T4=T3+1
P1=T4+1
P2=6
P3=7
C=10
HACK=12
SECRET=HACK+1
MONREF <CHN0CB,.CHSYS,CHNQUL,UNISTS,UNISYS,UNIQUL>
MONREF <UNYKTP,PCOD,TCOD,TWCOD,TYPRP,TYPRN>
BRKPNT APRSU1,COLECT
DBUSY: JFCL
RESET
MOVE P,[-20,,PDL]
PUSHJ P,ZAPTOT
SETOM U.TYPE
SETZM HI.PRI
MOVEI T1,IDDNUM
MOVEM T1,DDNUM
MOVE T1,[%LDUNI]
GETTAB T1,
FATL <GETTAB failure for %LDUNI>
HLRZM T1,UNIT.P
PUSHJ P,GETINF##
REBREAK:PUSHJ P,SCREEN
PUSHJ P,XWRSNP##
SETZM COUNTR
FOO: SOSGE COUNTR
FOOBAR: PUSHJ P,DATDMP
SOSL T1,HI.PRI
JRST CHKV
FOO3A: SKPINC
JRST [MOVEI T1,^D200
HRLI T1,(HB.RTC) ; OR CHARACTER
HIBER T1,
JFCL
SKIPGE HI.PRI
JRST FOO
JRST FOOBAR]
INCHRW T1
CAIL T1,"a"
SUBI T1,40
MOVSI T2,-COMLEN
CLOOP: CAMN T1,COMTAB(T2)
XCT COMINS(T2)
AOBJN T2,CLOOP
HOME
MOVETO ([1],[^D22])
OUTSTR [BYTE (7)ESC,"K",0,0,0]
JRST FOO ;END OF COMMAND
CHKV: JUMPN T1,FOO3A
HOME
CLEAR
PUSHJ P,DATDMP
CHKV3: HPQ T1, ; TO HPQ 0
JFCL
JRST FOO
CONTRZ: HOME
CLEAR
REMBRK ;REMOVE BREAKPOINTS
RESET
EXIT 1,
HALT .
JRST REBREAK
SETALL: SETOM T1
JRST SETANY
SET.RN: SKIPA T1,TYPRN
SET.RP: MOVE T1,TYPRP
SETANY: MOVEM T1,U.TYPE
PUSHJ P,ZAPTOT
PUSHJ P,SCREEN
MOVEI T1,1
SLEEP T1, ; Get some data
PJRST DATDMP
TODDT: HRRZ T1,.JBDDT##
JUMPN T1,(T1)
OUTSTR [ASCIZ /? No DDT
/]
MOVEI T1,^D200
HIBER T1,
JFCL
POPJ P,
REFRESH:PUSHJ P,SCREEN
PJRST DATDMP
FASTER: MOVE T1,DDNUM
LSH T1,1
TRO T1,1
IDIVI T1,3
MOVEM T1,DDNUM
MOVEM T1,COUNTR
POPJ P,
SLOWER: MOVE T1,DDNUM
IMULI T1,3
ADDI T1,1
LSH T1,-1
MOVEM T1,DDNUM
POPJ P,
SETHPQ: SKIPLE HI.PRI
JRST [SETZB T1,HI.PRI
JRST CHKV3]
MOVEI T1,1
HPQ T1,
JFCL
MOVEI T1,^D100
MOVEM T1,HI.PRI
POPJ P,
COM.C: PUSHJ P,ZAPTOT
PJRST DATDMP
HELP: MOVSI T2,-COMLEN
OUTSTR [ASCIZ /
One of: /]
HLOOP: MOVE T1,COMTAB(T2)
CAIGE T1,40
OUTCHR ["^"]
CAIGE T1,40
ADDI T1,"A"-1
OUTCHR T1
OUTCHR [","]
AOBJN T2,HLOOP
OUTSTR [ASCIZ / no carriage return needed./]
HOME
OUTSTR [BYTE(7)15,12,0,0,0]
POPJ P,
DATDMP: HOME
MOVETO ([^D4],[^D00])
OUTSTR [ASCIZ /Position count/]
PUSHJ P,TYPTYP
MOVE P1,[-NL,,PHISTO]
PUSHJ P,DUMPIT
MOVETO ([^D4],[^D11])
OUTSTR [ASCIZ /Transfer count/]
PUSHJ P,TYPTYP
MOVE P1,[-NL,,THISTO]
PUSHJ P,DUMPIT
OUTSTR [BYTE(7)15,12,12,"!",33,"K",0]
MOVE T1,DDNUM
MOVEM T1,COUNTR
POPJ P,
TYPTYP: OUTSTR [ASCIZ / (/]
MOVE T1,[ASCIZ /???)/]
SKIPGE T2,U.TYPE
MOVE T1,[ASCIZ /All)/]
CAMN T2,TYPRP
MOVE T1,[ASCIZ /RPx)/]
CAMN T2,TYPRN
MOVE T1,[ASCIZ /RNx)/]
OUTSTR T1
OUTSTR [BYTE(7)15,12,0,0,0]
POPJ P,
DUMPIT: SETZB P2,P3 ; ZERO TOTAL
PUSH P,P1
DTOTAL: ADD P3,(P1)
AOBJN P1,DTOTAL
POP P,P1
DLOOP: MOVE T3,[LINE,,LINE+1]
SETZM LINE
BLT T3,LINEND
MOVE T4,[POINT 7,LINE]
OBYTE <15,12>
MOVE T1,P2
ODEC 2
OBYTE <" "," ">
MOVE T1,(P1)
ODEC 7
OBYTE <" "," ">
MOVE T1,(P1)
IMULI T1,^D100
IDIV T1,P3 ; P3/ TOTAL
PUSH P,T1
ODEC 3
OBYTE <"%"," ">
POP P,T1
JUMPE T1,ELINE
CAILE T1,^D60
MOVEI T1,^D60
STARS: OBYTE <"*">
SOJG T1,STARS
ELINE: OBYTE <ESC,"K",0>
OUTSTR LINE
AOS P2
AOBJN P1,DLOOP
POPJ P,
ZAPTOT: MOVE T1,[PHISTO,,PHISTO+1]
SETZM PHISTO
BLT T1,PHISTO+HSTLEN
MOVE T1,[THISTO,,THISTO+1]
SETZM THISTO
BLT T1,THISTO+HSTLEN
POPJ P,
SCREEN: HOME
CLEAR
POPJ P,
;HERE IN EXEC MODE ON A CLOCK TICK (CH7)
COLECT: PUSH %P,%T1
PUSH %P,%T2
PUSH %P,%T3
PUSH %P,%T4
PUSH %P,%U
MOVE %U,UNIT.P(%R) ; ADDRESS OF 1ST UNIT
SETZB %T1,%T4
DO.PQ1: LDB %T2,@UNYKTP(%R) ; GET UNIT TYPE
SKIPL U.TYPE(%R) ; ALL OK?
CAMN %T2,U.TYPE(%R) ; OR RIGHT UNIT?
CAIA ; YES
JRST DO.NXT(%R)
MOVE %T3,%U ; T3/ UDB BASE ADDRESS
ADD %T3,UNISTS(%R) ; T3/ XXXXCB+UNISTS
MOVE %T3,(%T3) ; GET STATUS FOR THIS UDB
CAMN %T3,PCOD(%R) ;UNIT POSITIONING?
AOS %T1 ;EWE-BETCHA
; CAME %T3,TWCOD(%R) ;TRANSFER WAIT?
CAMN %T3,TCOD(%R) ;OR ACTIVE?
AOS %T4 ;YES, COUNT IT
MOVE %T3,UNIQUL(%R)
ADD %T3,%U
; ADD %T1,(%T3) ;PLUS LENGTH OF POSITION QUEUE
DO.NXT: ADD %U,UNISYS(%R)
HLRZ %U,(%U)
JUMPN %U,DO.PQ1(%R)
COUNT (PHISTO) ;SO MUCH FOR P'S
MOVE %T1,%T4
JRST DO.CH9(%R)
DO.CHN: MOVE %T2,CHN0CB(%R)
SETZM %T1
DO.CH1: SKIPL (%T2) ; WORD 0 = -1 ?
AOS %T1 ; NO--FILE IN T STATE
MOVE %T3,CHNQUL(%R)
ADD %T3,%T2 ; T3/ CHNQUL(THIS CHN DB)
ADD %T1,(%T3) ; T1/ TWQ ACTIVITY
MOVE %T3,.CHSYS(%R)
ADD %T2,%T3
HLRZ %T2,(%T2) ; T2/ NEXT CHN DB
JUMPN %T2,DO.CH1(%R)
DO.CH9: COUNT (THISTO)
POP %P,%U
POP %P,%T4
POP %P,%T3 ;DONE, RESTORE ACS
POP %P,%T2
POP %P,%T1
POPJ %P,
PDL: BLOCK 20 ;PDL
BLOCK 10 ;ABJECT PARANOIA
PHISTO: BLOCK HSTLEN+1 ;FIRST WORD TO GO TO OUTPUT FILE
BLOCK 10 ;DITTO
THISTO: BLOCK HSTLEN+1
BLOCK 10 ;DATTO
U.TYPE: EXP -1
HI.PRI: EXP 0
UNIT.P: EXP 444444
COUNTR: BLOCK 1
LINE: BLOCK ^D30
LINEND: BLOCK 1
DDNUM: EXP 0
DEFINE XX(AA,BB)<
EXP AA
>
COMTAB: COMAND
COMLEN=.-COMTAB
DEFINE XX(AA,BB)<
BB
>
COMINS: COMAND
END DBUSY