|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4492 (0x118c)
Notes: pts_type(SC)
Names: »WUDLF.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WUDLF.SC«
IDENT WUDLF REL=2.3,841001,870155940230 ************************************** * WORK STATION MANAGEMENT * * UTILITY PROGRAMS * * 3 DELETE FILE * * * ************************************** ** HISTORY: ** 84-07-12 /MAER RETURN TO MAIN MENU ONLY BY USING "RETURN"-KEY. ** 83-05-11 /MAER CHANGED DECORATIONS. ** 82-10-19 /MAER WAIT-FORMAT DISPLAYED ** 82-07-26 /DALI VOLUME-NAME IS CHANGED BEFORE DELETE ** 82-02-04 /DALI NEW ERROR MESSAGE "FILENAME UNKNOWN" ADDED ** 81-11-11 /DALI CREATION DDUM WUDIV PDIV ENTRY WUDLF * EXPROC DECLRA CRE= SCREEN ROUTINE EXPROC DISERR CRE= ERROR ROUTINE EXPROC DSKERR,PBIN CRE= ERROR ROUTINE EXPROC CHVNAM,PSTRG,PBIN CRE= CHANGE VOLUMENAME PARAM: NEW NAME, F.C. EXPROC HALT EXPROC CONT CRE= DISPLAY WAIT-TEXT * EXT DELFIL ASS= DELETE FILE EXT OPENF ASS= OPEN FILE EXT CLOSEF ASS= CLOSE FILE EJECT WUDLF PROC ******************* * 3 DELETE FILE * ******************* DLF000 ATTFMT FDEL SET DEPROMPT DLF200 PERF DECLRA DLF250 IB DEBINW2,DLF200,RETUR,DLF300 PERF DSKERR,W0 'BELL' B DLF250 DLF300 PERF CHVNAM,VOLEX1,FCOD CHANGE NAME TO TEMP. (111...1) BNOK DLF345 CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD BOK DLF350 CBNE RETCOD,W1,DLF330 DLF320 PERF DSKERR,W18 DISC NOT OPERABLE B DLF340 DLF330 PERF DSKERR,W12 FILENAME UNKNOWN DLF340 PERF CHVNAM,VOLNAM,FCOD CHANGE NAME BOK DLF250 DLF345 PERF DISERR I/O-ERROR XXXX B DLF250 DLF350 PERF CLOFIL,W1 MOVE STR1A,=C'X' XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG='S' XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME XCOPY PBLOCK,W16,W6,VOLEX1,W0 VOL-NAME 1 ERASE 0,W1,W6 PERF CONT DISPLAY WAIT-TEXT... CALL DELFIL,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD CBE RETCOD,W0,DLF400 CBE RETCOD,W5,DLF320 DISC NOT OPERABLE PERF DISERR I/O-ERROR XXXX B DLF340 DLF400 PERF CHVNAM,VOLNAM,FCOD CHANGE NAME TO ORIGIN BNOK DLF345 * PERF HALT B DLF000 RETUR RET PEND **************** * CLOSE FILE * **************** CLOFIL PROC FC PBIN FC CLO100 CALL CLOSEF,DISK,FILECODE(FC),SYSBUF,W0,DEBINW4 BOK CLO100 RET PEND EJECT * FDEL FRMT FSL FATTR .HIGH FATTR .INV FCOPY =C'DELETE' FTAB 8 FATTR .HIGH FATTR .INV FCOPY =C'FILE ' FLINK FFILE FMEND * FFILE FRMT FNL FATTR .HIGH FCOPY =C'UNIT:' FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 FCOPY INUNIT FATTR .HIGH FTAB 12 FCOPY =C'VOLUME-NAME:' FINP 25 FCOPY VOLNAM FNL FATTR .HIGH FCOPY =C'FILENAME:' FKI 10,MINL=1,MAXL=8,ME,REWRT,APPL=6,ALPHA,NEOI FCOPY FILNAM FATTR .HIGH FTAB 30 FLINK FHEX FMEND FHEX FRMT FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND * END