|
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: 11174 (0x2ba6)
Notes: pts_type(SC)
Names: »DDINIT.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DDINIT.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DDINIT.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DDINIT.SC«
IDENT DDINIT ************************************************************************ * PTS DATA-ENTRY UTILITIES * DDIV FOR DEINIT * USER = S:DU * ************************************************************************ EJECT DDIV TERM T1 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=D0,DEV=DU DEDSDYKB DSET FC=20 DEDSSCRN DSET FC=50,BUFL=100 DEDSPRT DSET FC=36,BUFL=100 FMTCTL INDS=DEDSDYKB,OUTDS=DEDSSCRN EJECT * * STARTPOINT * START START STACK 300 EJECT * * CB1 BLK * LRUQUE STRG 38 LAST RECENT USED BPOOL STRGI (38),188 BUFFERPOOL RPOOL STRGI (38),19 BUFFER REFERENCES 1-1 USAGE-TYPE STRG 2-7 NAME 8-8 NO. OF USERS 9-9 LINK TO NEXT BUFFER FILINDUS BIN INDEX FOR USERFILE RETCOD BIN RETURN-CODE RECLNTH BIN CURRENT RECORDLENGTH PJOBCUR BIN POOLINDEX JOBNAME STRG 6 CURRENT JOBNAME FORMAT STRG 6 CURRENT FORMAT-NAME 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 W64 BIN W'64' CONSTANT W99 BIN W'99' CONSTANT W128 BIN W'128' W188 BIN W'188' CONSTANT SYSLEN BIN W'199' RECLEN SYST USELEN BIN W'255' RECLEN USER SECLEN BIN W'256' SECTORLENGTH EJECT * * COMMON-BLOCK: 4 * * USAGE: DISC-HANDLING * CB4 BLK * BATCH STRG 6 CURRENT BATCHNAME TABLE STRG 6 TABLE-NAME (VALUE-SET) PBLOCK STRG 58 PARAMETERBLOCK SYSBUF STRG 256 DISC-BUFFER * FTYPE BCD 1 1=SYSTEM,2=USER,3=UD-FILE UNIT STRG 1 COPY STRG 1 Y=WHOLE FILE, N=PART OF FILE ANSW STRG 1 Y/N * VOLNAM STRG 6 VOLUME-NAME SYSVOL STRG 6C'SYSVOL' COPNAM STRG 6 VOL-NAME FOR DELETE AND REORG. OUTPUT * FILNAM STRG 8 FILE-NAME USEFIL STRG 8C'PTS-DE ' SYSFIL STRG 8C'SYSFIL ' PWBDB4 STRG 16 SAVEAREA FOR WORKBLOCKS AND DESCRIPTORS DUNIT STRG X'F0F0F1F2F3F8F9FAFBF0' CORRESPOND TO INPUT UNIT NO * Y Y Y Y Y Y Y Y Y Y * I I I I I I I I I I * UNIT NO. 0 1 2 3 4 5 6 7 8 9 * DISC CODE: * FO = FIX.1 F1 = CART.1 * F2 = FIX.2 F3 = CART.2 * F8 = FLOPPY.1 F9 = FLOPPY 2 * FA = FLOPPY 3 FB = FLOPPY 4 EJECT * * COMMON-BLOCK: 5 * * USAGE: CREATE FILES * CB5 BLK * FCOD BIN DISK FILE-CODE FCOD1 BIN FILE-CODE INPUT FCOD2 BIN FILE-CODE OUTPUT RECNUM BIN RECORD NO. FRESEC BIN NO OF FREE SECTORS ELMNO BIN ELEMENT-NO, VALUE-SET * DATE BCD 8 YYMMDD RSIZE BCD 5 RECORD LENGTH BLFACT BCD 3 BLOCKING FACTOR NOREC BCD 5 NO. OF RECORDS-ENTERED PRNUM BCD 1 PROGRAM NO. * HEX00 STRG 1X'00' PAUSE ITEM HEXTAB STRGI (7),1 C X'80',X'C0',X'E0',X'F0' C X'F8',X'FC',X'FE' ACK BCDI (10),18 ACKUMULATORS 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 * FNOOFREC BINI (9) NO OF REC IN FILE F95PROC BINI (9) 5% OF FILESPACE FCOUNTER BINI (9) COUNTER (USER-FILE) FILECODE BINI (3),X'D0',X'D0',X'D1' FILECODE FINDEXPO BINI (9) POOLIND. TO FREESP-REC. FVOLNAME STRGI (3),6C'SYSVOL' VOLUMENANES C 6C'SYSVOL' C 6C'OUTPUT' EJECT * CB7 BLK * MAXOCC BIN RESERVED FOR DISCHANDLING PINDFR BIN POOLINDEX TO CURR FMT PINDTB BIN POOLINDEX TO VALUE-SET PINACC BIN POOLINDEX TO ACCUMULATORS FRMTPNTR BIN POINTER TO FMT ON DISC CURSEC BIN CURRENT SECTORNO USERFILE RNRFMCH BIN CURRENT RECNO FMT-CHAIN PTRFMCH BIN POINTER IN RNRFMCH FFSNR BINI (3) RECORD NO. FREE-SP. FRINF BINI (9) FILESTATUS * SYSV STRGI (16),18 SYSTEM-VARIABLES EJECT * CB8 BLK * DOOL1 BOOL DOOL2 BOOL DOOL3 BOOL DOOL4 BOOL DOOL5 BOOL DOOL6 BOOL DOOL7 BOOL DOOLA BOOL DOOLB BOOL DBOFOR BOOL FORCED RECORD DEBIN1 BIN WORKITEM DEBIN2 BIN DEBIN3 BIN DEBIN4 BIN DEBIN5 BIN FLIND1 BIN FORMATLINKINDEX FLIND2 BIN FLIND3 BIN FLIND4 BIN FLIND5 BIN STR1A STRG 1 WORKITEM STR2A STRG 2 WORKITEM STR6A STRG 6 WORKITEM STR6B STRG 6 STRG10A STRG 10 WORKITEM STR15A STRG 15 WORKITEM EJECT * CB9 BLK * KEYMSK BIN MASK AUTHORITY FLIND BINI (24) FORMATLINKINDEX * FDVBCD BCDI (8),3 BCDI21 BCDI (2),21 WORKITEM * STATSH STRG 120 SEARCH STATUS USEV STRGI (3),25 USER-VARIABLES 1-3 STR64A STRG 64 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 LPREV BIN LINK PREVIOUS LNEXT BIN LINK NEXT NOOCCB BIN NO. OF OCCUPIED BYTES FRSTNO BIN 1:ST RECORD NO NOFREE BIN NO.OF FREE RECORDS FF STRGI (187),1 FREE REC. INDICATION EJECT * * * USAGE: BOOLEAN AND BINARY WORKITEMS * CBB BLK * BOOL1 BOOL WORKITEM BOOL2 BOOL WORKITEM BOOL3 BOOL WORKITEM BOOL4 BOOL WORKITEM BOOL5 BOOL WORKITEM 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 EJECT * * * USAGE: BCD-/ STRG-WORKITEMS AND DENTERPACKAGE VARIABLES * CBC BLK * DEPROMPT BOOL DENTERVARIABLE DECHANGE BOOL DENTERVARIABLES DENOCHAN BOOL * DKBIN1 BIN WORKITEM-DEDISC DKBIN2 BIN DKBIN3 BIN * DEBINW1 BIN DENTERVARIABLE DEBINW2 BIN DENTERVARIABLE DEBINW3 BIN DENTERVARIABLE DEBINW4 BIN DENTERVARIABLE DEINPUT STRG 62 DENTERVARIABLE BCD2A BCD 2 WORKITEM BCD3A BCD 3 WORKITEM BCD13A BCD 13 WORKITEM WORK BINI (10) PDIV END