Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50212/dir1.cmd
There are no other files named dir1.cmd in the archive.
DIR1.CMD
,DIR2.CMD
,FFM.OPR
,EXMPLE.FFM
,ADDR.F4
;CALL ADDR(IR,R,N,LIST)
,ANSWER.F4
;FILE=ANSWER('FILE NAME?')
,APPNDF.F4
;CALL APPNDF(MASTER,TEMP,IR)
,CLEAR.F4
;CALL CLEAR(IR)
,CLEARF.F4
;CALL CLEARF(FILE)
,COPYFL.F4
,COPYFR.F4
,COPYR.F4
;CALL COPYR(IR,IB,10*NSPR)
,CPYPAK
,CREATF
,DELETF.F4
;CALL DELETF
,DELETR.F4
;CALL DELETR(IDR)
,DFINEF.F4
;CALL DFINEF(FILE,NSPR1,MAXR1,NCPR1)
,DFINER.F4
;CALL DFINER
,DFNF.F4
;CALL DFNF(FILE,NSPR1,MAXR1,NCPR1,NPACK)
,DIO.MAC
;CALL DIO(1,1,IPAR,1)
,DLT2ND
,DMPFMT
,DMPLIN
,DMPPAR.F4
;CALL DMPPAR
,DMPPTF
,DPACK.MAC
,DUMP.F4
;CALL DUMP(IR)
,DUMPF
,DUMPR.F4
;CALL DUMPR(IR,R)
,DUMPT.F4
;CALL DUMPT(IR)
,EDITF
,EXCHGF.F4
;CALL EXCHGF(1,2,ISAVE)
,EXPNDF.F4
;CALL EXPNDF(FILE,NREC)
,FIXFL
,GTF.F4
;CALL GTF(2,ISAVE)
,IDELET.MAC
;IF(IDELET('FILE.','EXT').EQ.2)DELET='YES'
,IFIND.F4
;IF(IFIND(IDR,1,0).EQ.1)FOUND='YES'
,IFIND2.F4
,IGETR.F4
;IF(IGETR(IR,N,INDEX,IVALUE,IF,LOGIC).EQ.1)CALL DUMP(IR)
,INCODE.F4
;ALPHA=INCODE(INTEGR)
,INLRGE
,INSRTR.F4
;CALL INSRTR(IR,1)
,INTRUP.MAC
;IF(INTRUP)PAUSE
,ISHIFT.MAC
;ILE=ISHIFT('FILE',7)
,ISUB.F4
;K=ISUB(I,J)
,IUNPAK.F4
;MILLON=IUNPAK(3,6,123456789)
,JUNPAK.MAC
;NOCTAL=JUNPAK(0,0,ASCII)
,LEFT.F4
;CALL LEFT(10)
,LFTZRO.F4
;ICENTS=LFTZRO(3,IUNPAK(8,2,MONEY))
,LISTF
,LOADF.F4
;CALL LOADF(IR,R,N,LIST)
,LODFMT
,LODPTF
,LOOKUP.MAC
;IF(LOOKUP('FILE.','EXT'))FOUND='YES'
,LUNPAK.MAC
;IL=LUNPAK(1,2,'FILE')
,@DIR2.CMD