|
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: 20692 (0x50d4)
Notes: pts_type(SC)
Names: »DEDDIV.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DEDDIV.SC«
IDENT DEDDIV REL 10.0 80-04-11,81-08-27,EV 81-07-10,EV. NJ-AMT 80-03-24 ************************************************************************ * * * ********************************************************* * * ITEM-NAME NOMENKLATUR WORKITEMS * * NAME: * * TYPE LENGTH/ IDENTIFIER * * NUMBER * * * * BOOL >0 - * * BIN >0 - * * BCD >0 A,B,C,............ * * STR >0 A,B,C,............ * * * ********************************************************* * ************************************************************************ EJECT DDIV TERM T1 UWB CB1 CWB CB2 CWB CB3 CWB CB4 CWB CB5 TWB TB2 TWB TB3 TWB TB4 TWB TB5 TWB TB1 DWB DB1(TB1) DWB DB2(TB1) DWB DB3(TB1) TWB TB6 CWB CB6 SHB WORK ITEM EJECT * * DATA-SETS * * * DISK DSET FC=D0,DEV=DU DEDSDYKB DSET FC=20 DEDSSCRN DSET FC=50 DEDSPRT DSET FC=36 DSDCFD DSET FC=61,DEV=DC SHB DSFD DSET FC=F8,DEV=FD SHB FMTCTL INDS=DEDSDYKB,OUTDS=DEDSSCRN EJECT * * STARTPOINT * * * START PTSDE STACK 400 EJECT * * TERMINAL-BLOCK: 1 * * USAGE: DATA RECORD STORING * TB1 BLK RBUF STRG 256 RECORD AREA OVERFLOW STRG 10 OVERFLOWAREA FOR RBUF EJECT * * TERMINAL-BLOCK: 2R * THIS DATA-BLOCK MUST NOT EXCCED 256 BYTES * USAGE: FORMAT-DEFINITION * DB1 DBLK FDVBCD BCDI (8),5 1=PAGE SIZE 2=LINE NUMBER 3=PAGE NUMBER 4=FIELDNR 5=FIELDSTART 6=FIELDLENGTH 7=MINIMUMLENGTH 8=USED RECORD SPACE LDES STRG 80 LINE DESIGN LDISP STRG 80 LINE DISPLAY DUPL STRG 6 DUPLICATION-REF. FDVSTR STRGI (5),1 1=KEYED INPUT FIELD 2=MUST ENTER FIELD 3=AUTO TABULATION FIELD 4=VERIFICATION FIELD 5=INITIAL CLEAR VALUE = Y(ES) OR N(O) SPEC BCD 6 SPECIAL HANDLING FMTWK BINI (24) WORKITEMS FORMAT GENERATION PINDCB BIN POINTERINDEX CURR BUFFER PINDDB BIN POINTERINEX 1ST DESC. BUFFER PINDND BIN NUMB OF DESC BUFFERS FBIN1 BIN WORKITEM FORMAT GENERATION FBIN2 BIN WORKITEM FORMAT GENERATION EJECT * * THIS DATA-BLOCK MUST NOT EXCCED 188 BYTES = POOL-SIZE * DB2 DBLK STATUS BIN STATUS SIZSYM BIN SIZE OF SYMBOLICS SYMREC BINI (12) RECORDNR FORTAB STRGI (21),6 FORMAT 1 - 21 JOBSPC STRG 1 EJECT * * TERMINAL-BLOCK: 3R * THIS DATA-BLOCK MUST NOT EXCCED 188-BYTES = POOL-SIZE * USAGE: BATCHDATA * DB3 DBLK BDABAL BOOL BALANCED BATCH BDAFRO BOOL FROSEN BATCH BDATRA BOOL TRANSFERRED BATCH BDAFOR BOOL FORCED BATCH BDATES BOOL TESTBATCH BDAVER BOOL VERIFIED BATCH BDAACT BOOL BATCH DURING ENTERING BDAMVR BOOL RECORDS TO VERIFY IN BATCH BDSTAT STRG 2 STATUS OF BATCHDATA BDPOIN BINI (6) 1 = LAST ENTERED REC 2 = NUMBER OF REC 3 = NUMBER OF TRANSMITTED 4 = NUMBER OF FORCED 5 = NUMBERS TO VERIFY 6 = LAST ENTERED SUBTOTAL ACK BCDI (10),12 ACCUMULATORS 10,NJ-AMT USERV STRGI (9),12 USER-VARIABLES 9,NJ-AMT EJECT * * COMMON-BLOCK: 1 * * USAGE: BUFFERPOOL-HANDLING + OTHER TABLES * CB1 BLK POOL1 BOOL CONSEC. REQ. BOOLA1 BOOL USED IN OPENSY BOOLA2 BOOL USED IN OPENUS UORG BOOL F W32 BIN W'32' CONSTANT W64 BIN W'64' CONSTANT W128 BIN W'128' CONSTANT W188 BIN W'188' CONSTANT W200 BIN W'200' CONSTANT F95PROC BINI (11) 5 % OF FILESPACE SYSV STRGI (10),17 SYSTEMVARIABLES RPOOL STRGI (1),2 BUFFER-REFERENCES 1-1 USAGE-TYPE STRG 2-7 NAME 8-8 NUMBER OF USERS 9-9 LINK TO NEXT BUFFER BPOOL STRGI (1),2 BUFFERPOOL INSERT STRG '00' FORMCTRL CHRS FOR LISTFUNCTION EJECT * * COMMON-BLOCK: 2 * * USAGE: CONSTANTS * CB2 BLK 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 W27 BIN W'27' CONSTANT W28 BIN W'28' CONSTANT W29 BIN W'29' CONSTANT SYSLEN BIN W'198' RECLEN SYST FNOOFREC BINI (11) NO OF FREE RECORD IN FILE EJECT * * COMMON-BLOCK: 4 * * USAGE: DISC-HANDLING CB4 BLK RECOV BOOL RECOVERY RUNNUNG AUTENT BOOL T AUTOMATIC ENTER WHEN WHEN LAST FIELD REACHED RECFIL BIN FILE IN RECOVERY FILECODE BINI (11),X'D0' FILECODE FCOUNTER BINI (11) COUNTER (USER/FILE) FINDEXPO BINI (11) POOLIND TO FREESP-REC FRINF BINI (11) FILESTATUS FFSNR BINI (11) REC.NUMBER FREESPACE RBUFLN BIN RECORDBUFFERLENGTH PRKEYS STRG X' KEYMASKS C 0444400000 THE ITEM CONTAIN 5 BYTES C 0444400000 (OR 10 HALFBYTES) C 0440000000 FOR EACH MODE STARTING C 0888880000 WITH SUPERVISORY MODE. C 0888000000 (PROGRAMNUMBERS 10 - 19). C 0000000000 THE FIRST HALFBYTE IS USED C 0800000000 BY PROGRAMNUMBER 10,THE C 0000000000 NEXT BY 11 AND SO ON UP TO C 0000000000 PROGRAMNUMBER 19. C ' THE NEXT 5 BYTES IS FOR FORMAT DEFINITION MODE. (PROGRAMNUMBERS 20 - 29). EACH HALBYTE REPRESENTS A KEYMASK AND CONSISTS OF FOUR BITS CORRESPONDING TO THE FOUR KEY-SWITCHES ON THE KEYBOARD.FOR INSTANCE IF THE BYTE IS X'60',THE FIRST HALF- BYTE IS 6, THEN THE BITS 0110 MEANS THAT THE THE KEYS 2 AND 3 HAVE TO BE SWITCHED ON WHEN WORKING WITH THE SPECIFIED PROGRAM. PROGNR STRG X' EXISTING PROGRAMNUMBERS C 803F 00 - 15 C 0F83 16 - 31 C 80FC 32 - 47 C 3C0F 48 - 63 C 8300 64 - 79 C 0000 80 - 95 C 0000 96 - 115 C ' EJECT * DEVTYP POS 1- POS 3 = DEVICE UNIT NUMBER POS 4 = FILE-CODE POS 5 = DEVICE-CLASS CLASS = 1 DATA-COMM. OUT = 2 DATA-COMM.IN = 3 CASSETTE = 4 PRINTER LP/GP = 5 DISK-FILE = 6 FLOPPY-DISC FILE = 7 DELETE USERFILE DEVTYP STRG X' C 4443006101 DC[]<FC=61><CL=1> C 0000000002 DC[]<FC=00><CL=2> C 0000001203 TK[]<FC=12><CL=3> C 4C50003004 LP[]<FC=00><CL=4> C 4750003604 GP[]<FC=36><CL=4> C 000000D005 DU[]<FC=D0><CL=5> C 464400F806 FD[]<FC=F8><CL=6> C 444C550007 DLU <FC=00><CL=7> C 46524F0008 FRO <FC=00><CL=8> C 47504C3609 GPL <FC=36><CL=9> C 4C504C3009 LPL <FC=30><CL=9> C ' * DISC UNIT NUMBERS DUNIT STRG X' C F4 C F0 FIX DISC1 6875/6876 C F1 CARTRIDGE 1 6875/6876 C F2 FIXDISC 2 6875/6876 C F3 CARTRIDGE 2 6875/6876 C F8 FLEX 1 6879 C F9 FLEX 2 6879 C FA FLEX 3 6879 C FB FLEX 4 6879 C FC 80-MB 6877 C ' EJECT * * COMMON-BLOCK: 5 * * USAGE: STATUS LINE/ * CB5 BLK D1 BCD 2D'1' CONSTANT FDIR STRG X' FORMAT DIRECTIV C E9 0 = DUMMY C C0 1 = FCOPY C C2 2 = FMELI C C3 3 = FTEXT C C4 4 = FTAB C C5 5 = FVAL C C6 6 = FGEN C C7 7 = FACC C CC 8 = FDUPL C DE 9 = FLINK C E0 10= FSL C E1 11= FNL C E9 12= FEXIT C F0 13= FKI C F2 14= FKI APPLE<255 C F3 15= FKI APPLE>255 C F8 16= FKI DUPL C FA 17= FKI APPLE<255 DUPL C FB 18= FKI APPLE>255 DUPL C ' EJECT SYSBUF STRG 256C DISC BUFFER DATE BCD 8X'0F000000' YYMMDD TIME BCD 8 HHMMSS HEX00 STRG 1X'00' PAUSE ITEM FVOLNAME STRGI (8),6C'SYSVOL' VOLUMENAMES MODTAB STRGI (8),1 MODE TABLE C C'P',C'F',C'J',C'E' C C'S',C'V',C'C',C'H' EJECT VALSTR STRG X' VALIDATION STRING C 4D 0. M=MESSAGE C 2F 1. /=NOT C 3D 2. ==EQUAL C 3E 3. >=GREATER C 3C 4. <=LESS C 44 5. D=DUPLICATE STRING C * 4C 6. L=LENGTH C 21 7. !=ABSOLUTE VALUE C 41 8. A=ACCUMULATOR C 53 9. S=SYSTEM VARIABLE C 55 10. U=USER VARIABLE C 46 11. F=FORMAT FIELD C 54 12. T=VALUE SET C 43 13. C=CODED VALIDATION ROUTINE C 45 14. E=EMPTY FIELD C * 2B 15. +=ADD C 2D 16. -=SUBTRACT C 2A 17. *=MULTIPLY C 3A 18. :=DIVIDE C * 3B 19. ;=EXPRESION SEPARATOR C 26 20. &=LOGICAL AND C 56 21. V=LOGICAL OR C * 3F 22. ?=INSIGNIFICANCE C 27 23. '=LITERAL SEPARATOR C 5A 24. Z=ZEROISE ACCUMULATOR C 47 25. G=GO TO FIELDNR C 52 26. R=NEXT FORMAT CHANGE C 4E 27. N=IMMIDIATE RECORD CHANGE C 58 28. X=INDEX OF VALUE-SET C 28 29. (=LINK PARENTHESIS C 29 30. )=RIGHT PARENTHESIS C ' EJECT STATIU STRG X' STATIU C 4D 0. M=MUST VERIFY C 45 1. E=ENTERING C 56 2. V=VERIFIED C 54 3. T=TEST ENTERED C 46 4. F=FORCED C 43 5. C=CONVERTED C 41 6. A=ACCEPTED(FROSEN) C 42 7. B=BALANCED C 2F 8. /=NOT STATUS C 2C 9. ,=SEPARATOR C ' PICSTR STRG X' PICTURECHARCTERS C 4C 0. L=LEFTADJUSTED ALPHANUM C 52 1. R=RIGHTADJUSTED ALPHANUM C 41 2. A=LEFTADJUST TO LEAD. DIG. C 50 3. P=SKIP THIS POSITION C 54 4. T=LEFTADJ. TO LEAD. N. ZER C 58 5. X=PRINT ALPHANUMERIC C 5A 6. Z=LEAD. ZEROES REPL. SPACE C 59 7. Y=ALPHANUM/=EMPTY ELSE SPACE C 2B 8. +=PRINT + OR - SIGN C 53 9. S=SIGN, -SIGN IF NEGATIV C 2C 10. ,=INSERT COMMA C 2E 11. .=ROOMLESS POINT C 3E 12. >=END OF PICTURE STRING C 3C 13. <=BEGIN OF PICTURE STRING C 30 14. 0=LEFT ZERO FILL C ' EJECT PICCON STRG X' PICTURECONVERTION C 2D 0. -=S(SIGN -SIGN IF NEGATIV C 56 1. V=.(ROOMLESS POINT C 45 2. E=INSERT NEXT CHARCTER C 58 3. X=0 LEFT ZERO FILL C ' LRUQUE STRG 48 LEAST RECENT USED QUEUE EJECT * * TERMINAL-BLOCK: 2 * * USAGE: TERMINAL-DEPENDENT VARIASBELS * TB2 BLK KEY4 BOOL POSITION INDICATORS KEY3 BOOL ...FOR KEY-LOCKS 1-4. KEY2 BOOL ...F=OFF, KEY1 BOOL ...T=ON. 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 DECHANGE BOOL VARIABLES CHANGED DEPROMPT BOOL DISPLAY PROMTS DENOCHAN BOOL NO CHANGES PERMITTED EJECT DEBIN1 BIN WORKITEM DEBIN2 BIN WORKITEM DEBIN3 BIN WORKITEM DEBIN4 BIN WORKITEM DEBIN5 BIN WORKITEM USELEN BIN LENGTH OF MAX RECORDAREA KEYMSK BIN MASK AUTHORITY NUMBER BCD 7 CURRENT RECORDNUMBER PRNUM BCD 4 CURRENT PROGRAMNUMBER USERFILE BCD 2 CURRENT USER-FILE MODE STRG 1 CURRENT MODE JOBNAME STRG 6 CURRENT JOBNAME BATCH STRG 6 CURRENT BATCHNAME FORMAT STRG 6 CURRENT FORMAT-NAME SYMBOL STRG 6 CURRENT SYMBOLIC STATSH STRG 133 SEARCH STATUS EJECT * * TERMINAL-BLOCK: 3 * * USAGE: DATA ENTERING * TB3 BLK SWIT01 BOOL USED IN DEDISC SWIT02 BOOL -"- SWIT03 BOOL -"- SWIT04 BOOL -"- SWIT05 BOOL -"- SWIT06 BOOL -"- SWIT07 BOOL SWIT08 BOOL USED IN DEDISC SW95PR BOOL 95% FILESPACE USED SOOL1 BOOL USED FOR STATUSLINE SOOL2 BOOL -"- DOOLA BOOL DOOLB BOOL DOOLC BOOL VERIFM BOOL VERIFM MODE KEYVER BOOL KEY-VERIFICATION EJECT FLIND BINI (32) FORMATLINKINDEX RNRFMCH BIN CURRENT RECNO FMT-CHAIN MAXOCC BIN RESERVED FOR DISCHANDLING PTRFMCH BIN POINTER IN RNRFMCH CURSEC BIN CURRENT SECTORNO USERFILE FILINDUS BIN INDEX FOR USERFILE PRECPR BIN PREVIOUS DATA-RECORD IN RBUF PRECCUR BIN CURRENT - " - RECLNTH BIN CURRENT RECORDLENGTH PJOBCUR BIN LINK TO JOB-DEFINITION PINDFR BIN POOLINDEX TO CURR FMT PINACC BIN POOLINDEX TO ACCUMULATORS PWBDB4 STRG 16 SAVEAREA FOR WORKBLOCKS AND DESCRIPTORS STR64A STRG 64 STRINGWORKITEM STSAVE STRGI (5),6 THIS VARIABEL IS USED TO SAVE C X'000000000000',X'000000000000' 1 = JOBNAME 2 = BATCH 3 = CONDITIONAL FORMAT CHANGE 4 = COND. FORMAT CHANGE (R) 5 = FILE NAME SHB FD EJECT * * TERMINAL-BLOCK: 4 * * USAGE: BOOLEAN AND BINARY WORKITEMS * TB4 BLK DBOBAL BOOL BALANCED RECORD DBOFRO BOOL FROSEN RECORD DBOTRA BOOL TRANSFERRED RECORD DBOFOR BOOL FORCED RECORD DBOTES BOOL TESTENTERED RECORD DBOVER BOOL VERIFIED RECORD DBOACC BOOL MUST BE ACCUMULATED DBOMVR BOOL MUST BE VERIFIED DOOL1 BOOL USED IN ENTRY MODE DOOL2 BOOL -"- DOOL3 BOOL -"- DOOL4 BOOL -"- DOOL5 BOOL -"- DOOL6 BOOL -"- DOOL7 BOOL T=TEST MODE DOOL8 BOOL IF SET OPEN NEW BATCH IF NOT OPEN OLD BATCH EJECT 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 * * TERMINAL-BLOCK: 5 * * USAGE: BCD-/ STRG-WORKITEMS AND DENTERPACKAGE VARIABLES * BOOLEANS: BITS OF CTLWORD IN FKI * TB5 BLK SCHK1 BOOL SPECIAL CHECK 1 MINUS SCHK2 BOOL SPECIAL CHECK 2 SCHK4 BOOL SPECIAL CHECK 4 ACKUM BOOL ACCUMULATOR BIT VERIFY BOOL VERIFY-BIT CTAB BOOL COND.-TAB.-BIT NCLR BOOL T NO CLEAR-BIT REWRT BOOL REWRITE-BIT NEOI BOOL NOT-END-OF-ITEM-BIT ALPHA BOOL ALPHANUMERIC BIT ME BOOL MUST ENTER BIT EJECT DEBINW1 BIN DENTERVARIABLE DEBINW2 BIN DENTERVARIABLE DEBINW3 BIN DENTERVARIABLE DEBINW4 BIN DENTERVARIABLE FRMTPNTR BIN POINTER TO FMT ON DISC DEINPUT STRG 81 DENTERVARIABLE BCD2A BCD 2 WORKITEM BCD3A BCD 3 WORKITEM BCD13A BCD 13 WORKITEM STR1A STRG 1 WORKITEM STR2A STRG 2 WORKITEM STR6A STRG 6 WORKITEM STR6B STRG 6 STRG10A STRG 10 WORKITEM STR15A STRG 15 WORKITEM BCDI21 BCDI (5),21 WORKITEM(4-5)DK 4-DECONV,SEQUENCE NO,DK 5-DECONV,RECORD NO,DK EJECT * * * TERMINAL-BLOCK: 6 * TB6 BLK NEWVOL BOOL F 'NEW VOLUME LOADED' SWITFS BOOL F FREESPACE TAKEN SWITWT BOOL F SYSBUF ATTACHED Y/N SWITSY BOOL F SYSTEMFILE ASSIGNED Y/N SWITUS BOOL F USERFILE ASSIGNED Y/N ASDFLAG BOOL T AUTOMATIC SKIP/DUP SEARCH BOOL SEARCH MODE CHKACC1 BOOL F CHECK ACCUMULATION SHB CHKACC2 BOOL F CHECK ACCUMULATION SHB CHKBAL BOOL F CHECK BALANCE SHB FSUPR BOOL F T=SUPPRESS ZERO,FIELD,DK BSUPR BOOL F T=SUPPRESS ZERO,ALL,DK CORR BOOL F CORRECTION,DK BCONT BOOL F T=CONTINUATION CHAR,DK FIRSTFL BOOL F T=FIRST RECORD HEADER,DK SPLITFL BOOL T T=NORMAL SPLIT, DK EJECT ELMNO BIN ELEMENT-NO, VALUE-SETS PINDTB BIN POOLINDEX TO VALUE-SETS DKBIN1 BIN WORKITEM, DISC-ROUTINES DKBIN2 BIN WORKITEM, DISC-ROUTINES DKBIN3 BIN WORKITEM, DISC-ROUT SECLEN BIN W'256' SECTORLENTH USERFILE TABLE STRG 6 TABLE-NAME (VALUE-SETS) EOLINE BIN END-OF-LINE VSEIND BIN VALUE-SET ELEMENT INDEX WORK BINI (19) FREE WORK ITEMS WORKITEM 11,12 USED BYE SEARCH MODE WORKITEM 13 USED BY DECONV WORKITEM 14 USED BY DECONV 15,DECONV,LENGTH HEADER,DK 16,DECONV,POS.REC.NO,DK 17,DECONV,LENGTH REC.NO,DK 18,DECONV,POS.SEQ.NO,DK 19,DECONV,LENGTH SEQ.NO,DK BTYPE BIN TYPE IN DKCONV,DK STR8A STRG 8 WORK ITEM DK STR8B STRG 8 WORK ITEM DK RECLGD BCD 4 RECORD LGD, DK EJECT * * COMMON WORKITEM FOR SHB * CB6 BLK DCSTAT BOOL F CARRIER OFF, TIME OUT DCBAB BOOL F T=ABORT DC CONVERSION FDBAB BOOL F T=ABORT FD CONVERSION FDEOF BOOL F T=END OF FILE ON FD LSBAB BOOL F T=ABORT LIST CONVERSION TCUADR BIN X'6040' TCU LINE ADDRESS REQLEN BIN REQUESTED LENGTH DC DCWRK BIN DC TASK WORK TSKADR BIN X'0040' TASK ADDRESS REQDC BIN REQUESTED LENGTH DCWRITE REQFD BIN REQUESTED LENGTH FDWRITE/READ CWFD BIN CONTROL WORD FD FDCNT BCD 4 FD NUMBER DCBUF STRG 20 DC BUFFER PDIV END