|
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: 17508 (0x4464)
Notes: pts_type(SC)
Names: »DDIVDE.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DDIVDE.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DDIVDE.SC«
IDENT DEDDIV REL 1.0 80-18-22 ************************************************************************ * * * ********************************************************* * * 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 EJECT * * DATA-SETS * * * DISK DSET FC=D0,DEV=DU DEDSDYKB DSET FC=20 DEDSSCRN DSET FC=50 DEDSPRT DSET FC=36 FMTCTL INDS=DEDSDYKB,OUTDS=DEDSSCRN EJECT * * STARTPOINT * * * START PTSDE STACK 400 EJECT * * TERMINAL-BLOCK: 1 * * USAGE: DATA RECORD STORING * TB1 BLK RBUF STRG 800 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 (5),18 ACCUMULATORS 01 - 5 USEV STRGI (8),16 USER-VARIABLES 1 - 3 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 DUMIT1 STRGI (1),1 DUMIT3 STRG 3 FNOOFREC BINI (9) NO OF FREE REC IN FILE F95PROC BINI (9) 5 % OF FILESPACE SYSV STRGI (10),17 SYSTEMVARIABLES RPOOL STRGI (1),1 BUFFER-REFERENCES 1-1 USAGE-TYPE STRG 2-7 NAME 8-8 NUMBER OF USERS 9-9 LINK TO NEXT BUFFER BPOOL STRGI (1),1 BUFFERPOOL 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 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 SYSLEN BIN W'198' RECLEN SYST LRUQUE STRG 18 LAST RECENT USED 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 (9),X'D0' FILECODE FCOUNTER BINI (9) COUNTER (USER/FILE) FINDEXPO BINI (9) POOLIND TO FREESP-REC FRINF BINI (9) FILESTATUS FFSNR BINI (9) RECORD-NR FREESP RBUFLN BIN RECORDBUFFERLENGTH PRKEYS STRG X' KEYMASKS C 0000000000 THE ITEM CONTAIN 5 BYTES C 0000000000 (OR 10 HALFBYTES) C 0000000000 FOR EACH MODE STARTING C 0000000000 WITH SUPERVISORY MODE. C 0000000000 (PROGRAMNUMBERS 10 - 19). C 0000000000 THE FIRST HALFBYTE IS USED C 0000000000 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 83C0 64 - 79 C C000 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=00><CL=1> C 4443000002 DC[]<FC=00><CL=2> C 544B001203 TK[]<FC=12><CL=3> C 4C50003604 LP[]<FC=36><CL=4> C 4750003604 GP[]<FC=36><CL=4> C 445500D005 DU[]<FC=D0><CL=5> C 464400D806 FD[]<FC=D8><CL=6> C 444C550007 DLU <FC=00><CL=7> 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 DATE BCD 8X'0F000000' YYMMDD TIME BCD 8 HHMMSS HEX00 STRG 1X'00' PAUSE ITEM SYSBUF STRG 400C DISC BUFFER 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 ' 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 (4),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) EJECT * * TERMINAL-BLOCK: 4 * * USAGE: BOOLEAN AND BINARY WORKITEMS * TB4 BLK DBOFRE BOOL NOT USED 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 (3),21 WORKITEM 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 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 SECTORLENTH USERFILE TABLE STRG 6 TABLE-NAME (VALUE-SETS) EOLINE BIN END-OF-LINE VSEIND BIN VALUE-SET ELEMENT INDEX WORK BINI (12) FREE WORK ITEMS WORKITEM 11,12 USED BYE SEARCH MODE PDIV END