|
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: 16755 (0x4173)
Notes: pts_type(SC)
Names: »WUDIV.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WUDIV.SC«
IDENT WUDIV REL=2.3,850901,870155940230 ************************************************************************ * * * W S M * * WORK STATION MANAGEMENT UTILITY PROGRAMS DATADIVISION * * DDIV FOR WU:INT * WU:FIL * * ************************************************************************ ** HISTORY: ** 85-09-10/CJ SUPPORT OF NEW WCH-DISC PTS 6793 AND PTS 6794 ** 85-01-25/CJ SUPPORT OF WCH-DISC PTS 6794 FOR 6923 ** 84-12-11/CJ IDENTLINE UPDATED TO 841211 ** 84-12-04/CJ VD82CW DEFINED - USED BY STABLK&STPBLK ** 84-12-01/CJ WSM REL 2.2 WITH INTERTASK TO TOSSUT ** 84-07-12/MAER ADAPTIONS FOR 35 MB WD PTS-6963 ON PTS-6910. ** " " INTERTASK COMMUNICATION IMPLEMENTED. ** " " ITEM 'NOOFPO' ADDED (SEE CB1 BELOW!). ** 84-06-01/MAER ADAPTIONS FOR 5 1/4" FLOPPY DISC, TOSS REL 12.2. ** 83-12-24/MAER NO OF POOL UNITS EXTENDED FROM 23 TO 30 (PROD). ** 83-10-06/MAER NEW RELDAT 83 10 15 ** 83-09-27/MAER DTYPES ADDED FOR TRANSLATION OF INPUT TYPE (CRV,A13). ** 83-09-13/MAER NEW CREATE VOLUME MENU. ** 83-08-31/MAER NEW RELDAT 83 09 01, LOAD MODULE LINKED WITH LATEST ** RELEASED TOSS UTILITY MODULES. WD-DISCS CAN NOW BE USED. ** 83-08-02/MAER W48 DELETED, W66 ADDED. ** 83-08-01/MAER UNITS CM1, PM1, WD1 - WD4 ADDED. ** 83-04-05/CABE ILL PHYS.SCREEN DEFENITION - NOW OK. ** 83-03-18/MAER ADAPTED FOR VD82 SECOND VERSION. ** 82-10-19/MAER RELEASE DATE ADDED. ** VD82/83-ADAPTIONS. ** "PACKED" ADDED FOR REL 12 TOSS UTILITIES INTERFACE. ** 82-07-08/DALI VOLEX1 & VOLEX2 ADDED. ** (MULTIPLE VOLUME NAMES PROBLEM) ** 82-11-04/MAER BCD4A ADDED ** (USED BY WUPRF FOR SECTION SIZE) DDIV TERM U1 CWB CB1 CWB CB2 CWB CB3 CWB CB4 CWB CB5 CWB CB6 CWB CB7 CWB CB8 CWB CB9 CWB CBA * DWB DB1(CBA) CWB CBB CWB CBC EJECT * * DATA-SETS * DISK DSET FC=X'C0',DEV=DU DEDSDYKB DSET FC=X'20' DEDSPRT DSET FC=X'36',BUFL=100 DEDSSCRN DSET FC=X'50',BUFDS=DEDSPRT DEDSSYSL DSET FC=X'58',DSCB=DEDSSCRN ITCIN DSET FC=X'D0' ITCOUT DSET FC=X'D1',DSCB=ITCIN FMTCTL INDS=DEDSDYKB,OUTDS=DEDSSCRN EJECT * * STARTPOINT * START WUINT STACK 300 EJECT TERM FU FILE-HANDLER-TASK CWB CB1 CWB CB2 CWB CB3 CWB CB4 CWB CB5 CWB CB6 CWB CB7 CWB CB8 CWB CB9 CWB CBA DWB DB1(CBA) CWB CBB CWB CBC EJECT * * STARTPOINT * START FUTASK STACK 60 EJECT * * CB1 BLK * RETCOD BIN RETURN-CODE *************************************************************** * NUMBER OF BUFFER POOL UNITS. EACH UNIT IS 256 CHARACTERS: * * RECOMMENDATION: * * - 40 UNITS WITHIN A PRODUCTION LOAD MODULE * * - 20 UNITS WITHIN A TEST LOAD MODULE * *************************************************************** BPOOL STRGI (40),256 BUFFERPOOL INUNIT STRG 3 UNIT INPUT UTUNIT STRG 3 UNIT OUTPUT EJECT *************************************************************** * R E L E A S E I N F O O N I N I T I A L M E N U * *************************************************************** RELNUM STRG C'2.3' RELEASE NUMBER RELDAT STRG C'85 09 01' RELEASE DATE * PREVIOUS RELEASE DATES: * 85-09-01 WSM 2.3 TO ACTION-CENTRE * 85-03-01 UPDATED 2.2 VERSION * 84-12-11 UPDATED 2.2 VERSION * 84-12-01 UPDATED 2.2 VERSION * 84-10-01 WSM REL 2.2 * 84 06 01 (PRE-REL 12.2 TO BELGIUM) * 84 02 03 * 84 01 20 * 83 12 24 * 83 10 15 * 83 10 01 * 83 09 15 * 83 09 01 (NEW TOSS UTILITIES) * 83 08 09 (REL 2.0 TO ALPHA-TEST) * 83 06 01 (REL 2.0) * 83 05 11 * 83 04 05 * 83-03-21 * 83-02-28 * 82-12-01 * 82-10-19 EJECT *************************************************************** * MAX SECTION SIZE, DISPLAYED WHEN COPY VOLUME/FILE IS USED. * *************************************************************** NOOFPO BCD 4 NO OF POOL UNITS (SEE BPOOL ABOVE!) EJECT * * COMMON-BLOCK: 2 * * USAGE: CONSTANTS * CB2 BLK POOL1 BOOL SWITWT BOOL F SYSBUF ATTACHED Y/N SWITSY BOOL F SYSTEMFILE ASSIGNED Y/N SWITUS BOOL F USERFILE -"- W0 BIN W'0' CONSTANT W1 BIN W'1' CONSTANT W2 BIN W'2' CONSTANT W3 BIN W'3' CONSTANT W4 BIN W'4' CONSTANT W5 BIN W'5' CONSTANT W6 BIN W'6' CONSTANT W7 BIN W'7' CONSTANT W8 BIN W'8' CONSTANT W9 BIN W'9' CONSTANT W10 BIN W'10' CONSTANT W11 BIN W'11' CONSTANT W12 BIN W'12' CONSTANT W13 BIN W'13' CONSTANT W14 BIN W'14' CONSTANT W15 BIN W'15' CONSTANT EJECT * * COMMON-BLOCK:3 * * USAGE: CONSTANTS * CB3 BLK W16 BIN W'16' CONSTANT W17 BIN W'17' CONSTANT W18 BIN W'18' CONSTANT W19 BIN W'19' CONSTANT W20 BIN W'20' CONSTANT W21 BIN W'21' CONSTANT W22 BIN W'22' CONSTANT W23 BIN W'23' CONSTANT W24 BIN W'24' CONSTANT W25 BIN W'25' CONSTANT W26 BIN W'26' CONSTANT W66 BIN W'66' LENGTH OF 'DUNIT' W64 BIN W'64' CONSTANT W188 BIN W'188' CONSTANT SECLEN BIN W'256' SECTORLENGTH BUFLEN BIN W'255' BUFFERLENGTH EJECT * * COMMON-BLOCK: 4 * * USAGE: DISC-HANDLING * CB4 BLK * DTYP BIN DISC TYPE INDICATOR DVER BIN DISC VERSION INDICATOR PBLOCK STRG 80 PARAMETERBLOCK SYSBUF STRG 256 DISC-BUFFER DTEST STRG 1 DISC TEST IN CRVOL COPY STRG 1 Y=WHOLE FILE, N=PART OF FILE ANSW STRG 1 Y/N DTYPB BCD 4 DISC TYPE INPUT PACKED BCD 2 DISC VERSION INPUT * VOLNAM STRG 6 VOLUME-NAME COPNAM STRG 6 VOL-NAME FOR DELETE AND REORG. OUTPUT * FILNAM STRG 8 FILE-NAME COPFIL STRG 8 FILE-NAME IN COPY PWBDB4 STRG 16 SAVEAREA FOR WORKBLOCKS AND DESCRIPTORS EJECT *************************************************************** * * DISC CODE: * CM1 = EE = CMOS PM1 = EF = PRIMARY MEM. * DU2 = F0 = FIX.1 DU1 = F1 = CART.1 * DU4 = F2 = FIX.2 DU3 = F3 = CART.2 * FD1 = F8 = FLOPPY.1 FD2 = F9 = FLOPPY 2 * FD3 = FA = FLOPPY 3 FD4 = FB = FLOPPY 4 * MD1 = F4 = MINI FIX 1 MD2 = F5 = MINI FIX 2 MD1 - MD4 EXCLUDED FROM * MD3 = F6 = MINI FIX 3 MD4 = F7 = MINI FIX 4 RELEASE 13 * CD1 = FC = 80 MGB 1 CD2 = FD = 80 MGB 2 * CD3 = FE = 80 MGB 3 CD4 = FF = 80 MGB 4 * CD5 = F4 = 80 MGB 5 CD6 = F5 = 80 MGB 6 * CD7 = F6 = 80 MGB 7 CD8 = F7 = 80 MGB 8 * WD1 = FC = WINCH. - 1 WD2 = FD = WINCH. - 2 * WD3 = FE = WINCH. - 3 WD4 = FF = WINCH. - 4 * WD5 = F4 = WINCH. - 5 WD6 = F5 = WINCH. - 6 * WD7 = F6 = WINCH. - 7 WD8 = F7 = WINCH. - 8 * *************************************************************** DUNIT STRG C'CM1PM1DU2DU1DU4DU3 C FD1FD2FD3FD4 C CD1CD2CD3CD4CD5CD6CD7CD8 C WD1WD2WD3WD4WD5WD6WD7WD8' DFCODS STRG X'EEEFF0F1F2F3F8F9FAFB CORRESP. TO INPUT UNIT NO C FCFDFEFFF4F5F6F7FCFDFEFFF4F5F6F7' EJECT * * COMMON-BLOCK: 5 * * USAGE: CREATE FILES * CB5 BLK * FCOD BIN DISK FILE-CODE FCOD1 BIN FILE-CODE INPUT FCOD2 BIN FILE-CODE OUTPUT ELMNO BIN ELEMENT-NO, VALUE-SET * DATE BCD 8 YYMMDD RSIZE BCD 6 RECORD LENGTH BLFACT BCD 4 BLOCKING FACTOR NOREC BCD 8 NO. OF RECORDS-ENTERED NORECO BCD 8 OLD NO.OF RECS RECNUM BCD 8 RECORD NO. PRNUM BCD 2 PROGRAM NO. HEX00 STRG 1X'00' PAUSE ITEM HEXTAB STRGI (7), C X'80',X'C0',X'E0',X'F0', C X'F8',X'FC',X'FE' VOLEX1 STRG 6X'111111111111' TEMPORARY VOLUME NAME 1 VOLEX2 STRG 6X'222222222222' TEMPORARY VOLUME NAME 2 EJECT * CB6 BLK * SWIT01 BOOL USED IN DEDISC SWIT02 BOOL SWIT03 BOOL SWIT04 BOOL SWIT05 BOOL SWIT06 BOOL SWIT07 BOOL SWIT08 BOOL SWITFS BOOL SW95PR BOOL * NEWVOL BOOL F * FILECODE BINI (3),X'D0',X'D0',X'D1' FILECODE * IPLFC BIN FILE-CODE FOR IPL-DEVICE TIDBIN BIN RECEIVING TASK ID * VD82CW BIN X'0000' CONTROLWORD VD82 EJECT * CB7 BLK * FFSNR BINI (3) RECORD NO. FREE-SP. * CB8 BLK * DOOL1 BOOL DOOL2 BOOL DOOL3 BOOL DOOL4 BOOL DOOL5 BOOL DOOL6 BOOL DOOL7 BOOL DOOLA BOOL DOOLB BOOL DBOFOR BOOL FORCED RECORD VD82 BOOL SCREEN TYPE INDICATOR IC BOOL INTERTASK COMMUNICATION ICEXIT BOOL INTERTASK COMMUNICATION DEBIN1 BIN WORKITEM DEBIN2 BIN DEBIN3 BIN DEBIN4 BIN DEBIN5 BIN SCRNFC BIN X'50' DEFAULT SCREEN F.C. SYSLFC BIN X'58' DEFAULT SYSTEM LINE F.C. W80 BIN W'80' STR1A STRG 1 WORKITEM STR2A STRG 2 WORKITEM STR6A STRG 6 WORKITEM STR6B STRG 6 STRG10A STRG 10 WORKITEM STR15A STRG 15 WORKITEM EJECT ************************************************************************ ** PHYSICAL SCREEN DEFINITION: LINE 1, COL 1, 24*80 ** ** SYSTEM LINE: LINE 25, COL 1, 1*80 ** ************************************************************************ PHYSCR STRG C'8 C 01;01;24;80;1?; C 25;01;01;80;0=' EJECT * CB9 BLK * KEYMSK BIN MASK AUTHORITY DMAX BIN W'14' HIGHEST DISC TYPE NO USED IN CRV BCDI21 BCDI (6),22 WORKITEM * STATSH STRG 120 SEARCH STATUS STR64A STRG 64 DTYPES STRG '0807090205131924181120230415' DISC TYPES CREATE VOLUME KB ENTERED NUMBER IS CONVERTED TO CORRESPONDING NO IN THIS VECTOR. (SEE TOSS UTIL PARBLOCK LAYOUT (CRV)) ICLEN BIN ITC REQUEST BUF LENGTH ICTASK BIN ITC TASK ID ICPOOL STRUC ICEBL BIN EFF. BUFFER LENGTH ICBUF STRG 21 ITC BUFFER: VOLNAME+FILENAME+ELEM.TYPE+NAME STRUCE ICPOOL EJECT * * * USAGE: DATA RECORD STORING * CBA BLK RBUF STRG 256 RECORD AREA EJECT * * TERMINAL-BLOCK: 2R * * USAGE: DATA RECORD STORING * DB1 DBLK FS STRG 2 LNEXT1 BIN LINK NEXT1 LNEXT2 BIN LINK NEXT2 NOFREC BIN NO. OF RECORDS NOFREE BIN NO.OF FREE RECORDS E FRSTN1 BIN 1:ST FREE RECORD N1 FRSTN2 BIN 1:ST FREE RECORD N2 RELREC STRG 1 RELATIV FR.NO FF STRGI (240),1 FREE REC. INDICATORS EJECT * * * USAGE: BOOLEAN AND BINARY WORKITEMS * CBB BLK * BOOL1 BOOL WORKITEM BOOL2 BOOL WORKITEM BOOL3 BOOL DUPL OF OUTUNIT/WUDEN BOOL4 BOOL CHVNAM PERFORMED/WUEXT BOOL5 BOOL FILE EXISTENCE IN WUCOP BOOL6 BOOL WORKITEM BOOL7 BOOL WORKITEM BOOL8 BOOL WORKITEM BOOL9 BOOL WORKITEM * BOOLA1 BOOL BOOLA2 BOOL * BIN1 BIN WORKITEM BIN2 BIN WORKITEM BIN3 BIN WORKITEM BIN4 BIN WORKITEM BIN5 BIN WORKITEM BIN6 BIN WORKITEM BIN7 BIN WORKITEM BIN8 BIN WORKITEM BIN9 BIN WORKITEM BIN10 BIN WORKITEM BIN11 BIN WORKITEM BIN12 BIN WORKITEM BIN13 BIN WORKITEM BIN14 BIN WORKITEM BIN15 BIN WORKITEM BIN16 BIN WORKITEM *************************************************** ** PROGRAM BIN'S ** ** ** ** ** ** WUINT - ** ** WUFIL - ** ** WUUTI BIN1, BIN2, BIN13-BIN15 ** ** WUDEN BIN13 ** ** WUCRV BIN1 ** ** WUCRF BIN1-BIN8, BIN10-BIN11 ** ** WUDLF - ** ** WUCOP BIN1-BIN7, BIN10-BIN12 ** ** WUEXT BIN1-BIN8, BIN10-BIN12 ** ** WUPRF BIN1-BIN12, BIN14-BIN16 ** ** WUCVN - ** ** WUPRV - ** ** ** *************************************************** EJECT * * * USAGE: BCD-/ STRG-WORKITEMS AND DENTERPACKAGE VARIABLES * CBC BLK * DEPROMPT BOOL DENTERVARIABLE DECHANGE BOOL DENTERVARIABLES DENOCHAN BOOL DEBINW1 BIN DENTERVARIABLE DEBINW2 BIN DENTERVARIABLE DEBINW3 BIN DENTERVARIABLE DEBINW4 BIN DENTERVARIABLE * DKBIN1 BIN WORKITEM-DEDISC DKBIN2 BIN DKBIN3 BIN * DEINPUT STRG 62 DENTERVARIABLE BCD2A BCD 2 WORKITEM BCD3A BCD 4 WORKITEM BCD5A BCD 6 WORKITEM BCD13A BCD 14 WORKITEM BCD4A BCD 4 WORKITEM PDIV END