SEARCH  SYS
SEARCH  SYSSYM

IMP=A5

OFINI
OFDEF   MODULE,6
OFSIZ   IMPSIZ

START:  PHDR    -1,0,PH$REE!PH$REU
       GETIMP  IMP,IMPSIZ
       BYP
       LIN
       BNE     10$
       TYPESP  _module name:
       KBD     EXIT
       BYP
10$:    FILNAM  MODULE(IMP),LIT
       SRCH    MODULE(IMP),A0
       BEQ     20$
       TYPECR  ?module not found
       JMP     EXIT
20$:    CMPB    (A2)+,#',
       BEQ     30$
       TYPESP  _new module name:
       KBD     EXIT
30$:    FILNAM  -6(A0),LIT

EXIT:   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.