|
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: 1848 (0x738)
Notes: pts_type(SC)
Names: »WUCVN.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WUCVN.SC«
IDENT WUCVN REL=2.3,841001,870155940230 ************************************** * WORK STATION MANAGEMENT * * UTILITY PROGRAMS * * 7 CHANGE VOLUME-NAME * * * ************************************** DDUM WUDIV PDIV ENTRY WUCVN * EXPROC DECLRA CRE= SCREEN ROUTINE EXPROC DERR CRE= ERROR ROUTINE EXPROC DISERR EXPROC DSKERR,PBIN EXPROC HALT * EXT CHVOL ASS= CHANGE VOLUME NAME EXT CHANFC ASS= CHANGE FILE-CODE EJECT WUCVN PROC ************************* * 7 CHANGE VOLUME-NAME * ************************* CVN000 ATTFMT FCHANGE SET DEPROMPT CVN100 PERF DECLRA CVN150 IB DEBINW2,CVN100,RETUR,CVN300 PERF DSKERR,W0 'BELL' B CVN150 CVN300 CALL CHANFC,DISK,FCOD CALL CHVOL,DISK,SYSBUF,COPNAM,RETCOD BOK RETUR PERF DISERR B CVN150 RETUR RET PEND EJECT * FCHANGE FRMT FSL FATTR .HIGH FATTR .INV FCOPY =C'CHANGE VOLUME-NAME' FNL FATTR .HIGH FCOPY =C'UNIT:' FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 FCOPY INUNIT FATTR .HIGH FTAB 20 FCOPY =C'VOLUME-NAME:' FINP 33 FCOPY VOLNAM FNL FATTR .HIGH FCOPY =C'NEW' FTAB 5 FCOPY =C'VOLUME-NAME:' FKI 19,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=6 FCOPY COPNAM FLINK FHEX FMEND FHEX FRMT FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND * END