SEARCH  SYS
       SEARCH  SYSSYM

START:  PHDR    -2,0,PH$REE!PH$REU
       MOV     JOBCUR,A0
       CMMW    JOBUSR(A0),#402
       BNE     ERROR
       CMMW    JOBDEV(A0),#[DSK]
       BNE     ERROR
       TSTW    JOBDRV(A0)
       BNE     ERROR
       EXIT

ERROR:  TYPECR  <? this command can only be run from DSK0:[1,2]>
       CLRW    JOBCMS(A0)
       CLRW    JOBCMZ(A0)
       CRLF
       EXIT

       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.