TOPS-10 Monitor Calls Manual Volume 2 AA-K039D ... - Trailing-Edge

DVPHY. [CALLI 164]
EXAMPLE
The following example shows how to obtain the physical names
line printers on the system:
of all
TAG1:
TAG2:
NLPT:
LPTNAM:
ADDR:
CONTIN:
SETZB
MOVE
DVPHY.
JRST
SKIPN
JRST
MOVEM
AOJA
MOVEM
JRST
BLOCK
BLOCK
EXP
EXP
T1,ADDR+1 ;Initialize counter and device name
T2, [XWD 2,ADDR] ;Set ,up call
T2, ;Get name
ERROR ;Error
T3,ADDR+1 ;Get name, skip if not at end
TAG2 ;0 means we're done
T3,LPTNAM(T1) ;Save in next block-slot
T1,TAG1 ;Increment count and loop
T1,NLPT
CONTIN
1
10
.TYLPT
o
;Save count
;Type is LPT
;Start with first device
RELATED CALLS
o
o
SYSPHY
SYSSTR
COMMON PROGRAMMING ERRORS
Using a SIXBIT name for device type.
22-106