RSX-11M/S - RSX-1lM-PLUS Software Dispatch, January 1981

RSX-11M V3.2 Seg 5.1.17.13 M
UTILITIES
BRU sa 4 of 5
o REPT 4
NOoP
Z, ENDR

| CC, IDENT /01,2/

5, BLK, $ 2442

CALL PAT4

» REPT 8.

NOP

»ENDR
»5,BLK, 1 2606
POPAS%

»8,BLK, 4 3300

READTP2
»PSECT  $$PAT
$$PAT2,
PATI: MOV $EFNi,SINDP890,I0EF 3; SETUP EVENT FLAG
MOV 8IO,DET,$INDP8$0,IOFN 7; AND DETACH FUNCTION
DIR$ %SINDPB 3 DETACH THE INPUT DISK
BCS 20% 3 DON'T WAIT IF DETACH FAILS
-  WTSE$S (4EFNI 3 MAIT FOR DETACH
208: MOV 4%I0,DET,SOUDPB40,IOFN z; SETUP OUTPUT DETACH
RETURN
PAT2: CMPB VOLNUM,%1 3 ONE TAPE ONLY? ž hi
, BNE 105 3 NO
. CLR VOLNUM 3 YES e RESET VOLUME NUMBER vrstah
o MOV 410,RWD,0.I0FN(R5) 3 REWIND BUT NOT OFFLINE THE TAPE
—: JUMP R4D2 3 1i5,S,
1083 CLR VOLNUM 7 ONE TAPE - RESET VOLUME NUMBER
JMP RuDi H
PAT33 MOV .  RO,R5 7 SET UP R5 WITH DPB ADDR
JUMP RuD1 1 REWIND THIS TAPE, 4AIT FOR ANOTHER ONE
PAT4: BIT %KY,LAB,$OVAL3 3 CHECK FOR TAPELABEL SWITCH
BEO 20$ 3) DON'T CHECK THE LABEL
CuP $BUF244, SLAB 3 CMP LABEL nis j |
, NE BNE 150s 04.3 ARONG LABEL LaR08 SGAT ZZIHACI 4.ae]
xop CMP $BUF246,S$LAB42 3, CHECK SECOND WORD il
Eur BNE 150s 3 "RONG LABEL ASJEt,XJA,a, Z

14