Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/qsrdsp.c06
There are no other files named qsrdsp.c06 in the archive.
REP 19/42 ;06C1
$ASCII (< File: >) ;INSERT A HEADING
WIT
;**;[1215]AT DEPRET:+12L WITHIN TOPS-20 CONDITIONAL REPLACE 1 LINE WITH 6 LINES
LOAD S1,.QEOID(AP) ;[1215] GET REQUEST ID USER NUMBER
CAMN S1,G$SID## ;[1215] MATCH THE GLOBAL SENDER
JRST DEP.1 ;[1215] YES, OK TO SHOW FILES
PUSHJ P,A$WHEEL## ;[1215] DOES USER HAVE PRIVILEGES
JUMPF .RETT ;[1215] NO, THEN NO FILES
DEP.1: $ASCII (< File: >) ;[1215] INSERT A HEADING
SUM 144976