|
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: 27003 (0x697b)
Notes: pts_type(SC)
Names: »WUPRV.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WUPRV.SC«
IDENT WUPRV REL=2.3,841001,870155940230 ************************************** * WORK STATION MANAGEMENT * * UTILITY PROGRAMS * * 8 PRINT VTOC * * * ************************************** ** HISTORY: ** 83-05-11/MAER CHANGED DECORATIONS. ** 82-11-04/MAER CLEARING FC1 IN PARAMETER BLOCK ** WHEN NOT DISPLAY. DDUM WUDIV PDIV ENTRY WUPRV * EXPROC DECLRA CRE= SCREEN ROUTINE EXPROC DERR CRE= ERROR ROUTINE EXPROC DISERR EXPROC DSKERR,PBIN EXPROC HALT * EXT SURVEY ASS= PRINT VTOC * ENT EQU X'80' ENTER PRT EQU X'98' PRINT * KTABEN KTAB ENT EJECT WUPRV PROC ******************* * 8 PRINT VTOC * ******************* PRV000 ATTFMT FSURVEY SET DEPROMPT PRV100 PERF DECLRA PRV150 IB DEBINW2,PRV100,RETUR,PRV200 PERF DSKERR,W0 'BELL' B PRV150 PRV200 CBE FCOD2,SCRNFC,PRV300 DEVICE = SCREEN? XCOPY PBLOCK,W4,W1,W0,W0 NO, ERASE INPUT F.C. (=> NO PAGING IN TOSS UTIL.) PRV300 XCOPY PBLOCK,W6,W1,FCOD2,W1 PRINT-DEVICE XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE-CODE XCOPY PBLOCK,W8,W2,W0,W0 CALL SURVEY,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD CBE RETCOD,W0,PRV500 PERF DISERR B PRV150 PRV500 PERF HALT RETUR RET PEND EJECT * FSURVEY FRMT FSL FNL FATTR .HIGH FATTR .INV FCOPY =C'PRINT VTOC (VOLUME TABLE OF CONTENTS)' 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 FTEXT 'PRINT OUTPUT DEVICE:' FKI 21,MINL=2,MAXL=2,ME,ALPHA,NEOI,APPL=11 FCOPY STR2A FMEND END