RSX-1IM/S - RSX-lIM-PLUS Software Dispatch, January 1981

RSX-1lIM V3.2 Seg 5.1.17.13 M

UTILITIES
BRU 2 of 5

IDENT /01.1/
| ,MCALL DIRS,WTSE$S

»PSECT
»BLK,a, |

1 OUTPUT CORRECT MSG IF TAPE DRIVER NOT LOADED

»2,BLK,136
BCS 158 3 HANDLER NOT RESIDENT

NOP
».Z,BLK,156
1583

9 WAIT FOR DETACHES TO COMPLETE
3 MAKE TAPEIO SERIALLY REUSABLE

».%Z,BLK,13570
ČALL PATI 3 CALL PATCH
DIR$ % S OUDPB 3 DETACH THE OUTPUT DISK
BCS 30$ 3 DON'T WAIT IF DETACH FAILS
WTSE$S  4EFN2 3 WAIT FOR OUTPUT DETACH
30$3 RETURN 9 DONE HERE

) CORRECT "MOUNT TAPE,,," MESSAGE

CF,MES z 1000
»Z,BLK,41170 >
JP PAT2 4 JUMP TO PATCH
»REPT O 6
NOP
.ENDR
»Z,BLK,t1210
RWDI3:
»8,8LK,41232
R4D233
»zZ,BLK,41500
.REPTO 3
NOP iž:
.ENOR sa