|
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: 17284 (0x4384)
Notes: pts_type(SC)
Names: »WSMDDV.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:CREA/WSMDDV.SC«
IDENT WSMDDV REL=2.3,850901,870155940230 ***************************************************************** * * W S M * * WORK STATION MANAGEMENT CREATOR TOOLS DATADIVISION * * LATEST UPDATE 850313 MADE BY JE * * HISTORY= * 850313/JE DIRECT VALIDATION-OBJECT MOVE IMPLEMENTED * 841001/ME INTERTASK COMMUNICATION IMPLEMENTED * 840821/CJ VBOOL9 DEFINED FOR UDFVAL CONC ERR * 831214/CJ SLBIN1-9 WORK-VARIABLES DEFINED * 831207/CJ OFBOOL,CMBOOL,OBBOOL DEFINED * 831205/CJ OBJSTR; TRANSFERSTRG OBJCT -> BPOOL * 830919/CJ EXTANSION OF FIDTAB FROM 100 TO MAX 127 * 830919/CJ VBBOOL T IF VALBUF OVERFLOW OCCUR * 830919/CJ VD82CW DEFINED CONTROLWORD FOR VD82 * 830802/CJ SCBIN,WRBIN,CUBIN,OVBOOL DEFINED * 830727/CJ NSTR4A DEFINED, USED BY NEW <OVE> * 830721/CJ EXTANSION OF GST80I TO LENGTH 82 * 830606/CJ UPDATE VD82 FORMAT ON VD46/81 VDU * 830526/CJ RELEASE NUMBER IN TRANSFER STRG "RELNUM" * ***************************************************************** DDIV TERM C1 CWB CB1 CWB CB2 CWB CB3 TWB TB1 TWB TB2 TWB TB3 TWB TB4 TWB TB5 TWB TB6 TWB TB7 TWB TB8 TWB TB9 =ITC EJECT DISC DSET FC=X'C0',DEV=DL KEYB DSET FC=X'20' PRNT DSET FC=X'30',BUFL=130 SCRN DSET FC=X'50',BUFL=100 SYSL DSET FC=X'58',DSCB=SCRN ITCIN DSET FC=X'D0' =ITC INTERTASK INPUT ITCOUT DSET FC=X'D1',DSCB=ITCIN =ITC INTERTASK OUTPUT FMTCTL INDS=KEYB,OUTDS=SCRN EJECT STACK 256 START WSMCRT EJECT TERM FC CWB CB1 CWB CB2 CWB CB3 EJECT STACK 60 START FCTASK EJECT * * COMMONWORKBLOCK * CB1 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 WORKBLOCK * CB2 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 W80 BIN W'80' CONSTANT LPBIN BIN LENGTH OF POOL-UNIT DPBIN BIN DIMENSION OF POOL-UNITS LABIN BIN LENGTH OF ATTRIBUTE-TABLE LFBIN BIN LENGTH OF FID-TABLE PLBIN BIN LENGTH OF PICTURE STRING DUNIT STRG X'F0F0F1F2F3F8F9FAFBF4F5F6F7FCFDFEFF' DISC-UNIT CODES * 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 * 1 1 1 1 1 1 1 * DISC CODE : F0 = FIX 1 F1 = CART.1 * F2 = FIX 2 F3 = CART.2 * F8 = FLOPPY1 F9 = FLOPPY 2 * FA = FLOPPY3 FB = FLOPPY 4 * F4 = MINFIX1 F5 = MINFIX 2 * F6 = MINFIX3 F7 = MINFIX 4 * FC = 80M/WCH 1 FD = 80M/WCH 2 * FE = 80M/WCH 3 FF = 80M/WCH 4 EJECT * * COMMON WORKBLOCK * CB3 BLK BPOOL STRGI (60),256 BUFFERPOOLS 1 SECTION = 60:2=30 6 BYTES ADM-DATA 248 BYTES OBJECT CODE 2 BYTES ADM DATA * * STATEMENT TEXT STRING * STMTS STRG 71'LETLET 01,03 C GO TOGOTO 04,05 C IFTHEN 06 C IFTHEN 08 C ONGO TO 0A C ONGOTO 0B C CALL 0C C SECT 0E C ATTR 10 C STOP 12 C EXIT 14 C ERR 16 C WARN 18 C REM 1A C ;' 1C EJECT * * STATEMENT VALUE STRING * STVAL STRG X'01FFFF03FFFF 01=LET,03=LET C 04FFFFFFFF05FFFFFF 04=GO TO,05=GOTO C 06FF06FFFFFF 06=IF THEN LINE NR C 08FF08FFFFFF 08=IF THEN STMT C 0AFF0AFFFFFFFF 0A=ON GO TO C 0BFF0BFFFFFF 0B=ON GOTO C 0CFFFFFF 0C=CALL C 0EFFFFFF 0E=SECT C 10FFFFFF 10=ATTR C 12FFFFFF 12=STOP C 14FFFFFF 14=EXIT C 16FFFF 16=ERR C 18FFFFFF 18=WARN C 1AFFFF 1A=REM C 1C' 1C=;=EMPTY STMT EJECT * * OPERATORS * OPRTS STRG 63'=><>=<=<>=><>=<=<>&: C STR+-+-/*ABSINTSGNTIM C DAYSYSLENNUMDATCDVPOS)' * * OPERATOR VALUES * OPRVAL STRG X'02040603FF05FF07FF080A0C09FF0BFF0DFF0E0F C 10FFFF11121314151617FFFF18FFFF19FFFF1AFFFF C 1BFFFF1CFFFF1DFFFF1EFFFF1FFFFF20FFFF21FFFF22' * * DECORATION * * DECOR STRG 26'BLRIULHIBZSANBNINLLICAPRUP' * * DECORATION VALUES * DECVAL STRG X'01FF02FF04FF08FF40FF10FF21FF22FF24FF28FF30FF80FFA0FF' EJECT * * STRING CONSTANTS * YES STRG C'Y' YES NO STRG C'N' NO LEFT STRG C'L' LEFT RIGHT STRG C'R' RIGHT DUPL STRG C'D' DUPLICATE BYPASS STRG C'B' BYPASS SKIP STRG C'S' SKIP * * PHYSICAL SCREEN VD82 * PHYSCR STRG C'8 C 01;01;24;80;1?; C 25;01;01;80;0=' EJECT * * GLOBAL WORKITEMS * TB1 BLK GBIN1 BIN FUNCTIONNUMBER GBIN2 BIN RETUR-CODE GBIN3 BIN BUFFERPOOLINDEX 1ST GBIN4 BIN BUFFERPOOLINDEX CURRENT GBIN5 BIN BUFFERPOINTER CURRENT GBIN6 BIN SAVED STARTBUFFERINDEX LEAVE GBIN7 BIN SAVED STARTPOINTER IN BUFF L GBIN8 BIN SAVED STARTBUFFERINDEX RETUR GBIN9 BIN SAVED STARTPOINTER IN BUFF R GBIN10 BIN BACKGROUND DEFAULT GBIN11 BIN STATIC FIELD DEFAULT GBIN12 BIN DYNAMIC FIELD DEFAULT GBIN13 BIN GBIN14 BIN GBIN15 BIN GSTR80 STRG 80 DEFAULT VALUE ALPHA NUMERIC EJECT * * GLOBAL WORKITEMS * TB2 BLK GBINIA BINI (20) 1=NUMB OF CHARS DEF.GUID.MESS. 2=NUMB OF CHARS DEFAULT VALUE 3=NUMB OF CHARS GUID MESSAGE 4=NUMB OF CHARS APPL MESSAGE 5=NUMB OF CHARS VALIDATION 6=NUMB OF CHARS ACCUMULATION 7=MAX PRINTOUT POSITIONS RRCC 8=OBJ VERSION NUMBER 9=NUMB OF CHARS BASIC LINE 1 10=NUMB OF CHARS BASIC LINE 2 11=NUMB OF CHARS BASIC LINE 3 12=NUMB OF CHARS BASIC LINE 4 13=NUMB OF CHARS BASIC LINE 5 14=NUMB OF CHARS BASIC LINE 6 15=NUMB OF CHARS BASIC LINE 7 16=NUMB OF CHARS BASIC LINE 8 17-20=NOT USED GSTR4A STRG 4 CURRENT FIELD-ID GSTR6A STRG 6 FORMAT SECTION NAME GSTR6B STRG 6 DUPLICATION GSTR6C STRG 6 VOLUME NAME GSTR6D STRG 6 FORMAT DEFINITION NAME GSTR6I STRGI (10),6 1=INITIAL FORMAT 2-10=SECTION 1-9 GSTR8A STRG 8 FILENAME EJECT GST80I STRGI (7),82 1=DEFAULT GUIDING MESSAGE 2=PREVIOUS LINE 3=CURRENT LINE 4=POINTER LINE 5=GUIDING MESSAGE 6=APPLICATION MESSAGE GBCD3I BCDI (16),4 1=FUNCTIONNUMBER 2=SECTION TYPE 3=FORMAT SECTION SIZE ROWS 4=FORMAT SECTION SIZE COLS 5=VERSION NO 6=LINE NUMBER 7=ORIGIN MEDIA TYPE 8=PR.OUT POS ROW 9=PR.OUT POS COL 10=NUMBER OF HEADLINES 11=COLUMN NUMBER 12=PAGE NO 13=PRINTOUT LINE 14=PRINTOUT COL 15=FORMAT SECTION EFF LINESIZE 16=FORMAT SECTION EFF COLSIZE EJECT GSTR1I STRGI (24),1 1=AUTO ENTERING 2=SCREEN BACKGR. 1 3=SCREEN BACKGR. 2 4=STATIC FIELD DECOR 1 5=STATIC FIELD DECOR 2 6=STATIC FIELD DECOR 3 7=STATIC FIELD DECOR 4 8=DYNAMIC FIELD DECOR 1 9=DYNAMIC FIELD DECOR 2 10=DYNAMIC FIELD DECOR 3 11=DYNAMIC FIELD DECOR 4 12=MUST ENTER 13=MUST FILL 14=AUTO E-O-I 15=VERIFY 16=AUTO SKIP/DUP 17=L/R ADJUST 18=FIX DECIMAL 19=CHANGE PROTECT 20=DATA TO APPLICATION 21=MANDATORY VALIDATION 22=VALIDATION 23=DECIMAL CHARACTER 24=DUPLICATE Y/N EJECT * * LOCAL WORKITEMS * TB3 BLK LBOOL1 BOOL LBOOL2 BOOL LBOOL3 BOOL LBOOL4 BOOL LBOOL5 BOOL LBOOL6 BOOL LBOOL7 BOOL LBOOL8 BOOL LBOOL9 BOOL LBOOLA BOOL LBOOLB BOOL LBOOLC BOOL LBOOLD BOOL ONLY FOR WSMERR-MODULE LBOOLE BOOL USED IN WSMPRT-MODULE LBIN1 BIN LBIN2 BIN LBIN3 BIN LBIN4 BIN LBIN5 BIN LBIN6 BIN LBIN7 BIN LBIN8 BIN LBIN9 BIN LBIN10 BIN LBCD3A BCD 4 LSTR1 STRG 1 LSTR4A STRG 4 LSTR6A STRG 6 LSTR9A STRG 9 LSTR81 STRG 81 EJECT * * LOCAL WORKITEMS * TB4 BLK VD82 BOOL T=VD82 DISPLAY TKBOOL BOOL TKBOOL:=T IF <OVE> PRESSED PRBOOL BOOL PRBOOL:=T IF CONFIRM BY PRINT UPBOOL BOOL UPBOOL=T IF UPDATE 82 SEC. BY 81 OVBOOL BOOL T=IF OVERRIDE TO END OF SECTION VBBOOL BOOL T=IF VALBUF OVERFLOW CMBOOL BOOL T=IF DYN F-ID/TYPE MOD./DEL. OFBOOL BOOL T=IF NEW BPOOL EXEEDED OBBOOL BOOL T=IF SYNTAXERROR IN OBJVAL CHABOL BOOL T=IF VALIDATION BUFFER MODIFIED LBIN11 BIN LBIN12 BIN LBIN13 BIN LBIN14 BIN LBIN15 BIN LBIN16 BIN LBIN17 BIN LBIN18 BIN LBIN19 BIN LBIN20 BIN ATTAB STRG 1024 ATTRIBUTE-TABLE 1 ELEMENT = 4 BYTES 1 POS = ROWNO 2 POS = COLUMNNR 3 POS = 00 NEW DYN.F. > 00 OLD DYN.F. = FF STATIC F. 4 POS = ATTRIBUTE 1024/4=256 ELEMENTS FIDTAB STRG 635 =127 DYN F. MAX 127 5 BYTES = 1 FIELD ID (4 BYTES) + OLD SEQ.NO (1 BYTE) 5*50=250 PICTUR STRG 128 PICTURE STRING AREA LSTR16 STRG 16 LSTR89 STRG 89 GBCD80 BCD 80 DEFAULT VALUE NUMERIC EJECT TB5 BLK GVDUA STRUC * * SCREENAREA POSITION LEVEL * GVDU STRGI (24,80),1 STRUCE GVDUA GVDUL DSTRUC GVDUA * * SCREEN AREA ROW LEVEL * GVDUR STRGI (24),80 STRUCE GVDUL EJECT TB6 BLK ROWS BIN SCREEN SIZE NUMB OF ROWS COLS BIN SCREEN SIZE NUMB OF COLUMNS SCRNFC BIN X'50' SCRN FILE CODE SYSLFC BIN X'58' SYSL FILE CODE PRNTFC BIN PRNTDEV FILECODE USED IN WSMPRT LSTR2 STRG 2 ********************************************************* * RELEASEDATE ON INITIAL MENU ********************************************************* RELDAT STRG C'85 09 01' RELEASE DATE PASDAT STRG C'850901' REL.DATE TRANSFERED BY PASSWORD * PREVIOUS RELEASE DATES: * 85 09 01 RELEASE 2.3 -> ACTION-CENTRE * 84 03 01 UPDATED VERSION REL 2.2 * 84 12 20 UPDATED VERSION REL 2.2 * 84 12 10 UPDATED VERSION REL 2.2 * 84 12 01 RELEASE 2.2 * 84 04 02 * 84 01 20 * 83 12 01 * 83 10 01 * 83 09 01 * 83 06 01 * 83 04 25 * 83 03 25 * 83 03 11 ********************************************************* * RELEASENUMBER FOR CREATOR ********************************************************* RELNUM STRG C'2.3' RELEASE NUMBER NSTR4A STRG 4 MSTR4A STRG 4 EJECT TB7 BLK TB7BIN1 BIN SCBIN BIN SCREEN DEFINING BIN WRBIN BIN WRITE ON SCREEN DEF. BIN CUBIN BIN CURSOR DEFINING BIN VD82CW BIN X'0000' CONTROL WORD VD82 SLBIN1 BIN COMMON WORK BIN SLBIN2 BIN COMMON WORK BIN SLBIN3 BIN COMMON WORK BIN SLBIN4 BIN COMMON WORK BIN SLBIN5 BIN COMMON WORK BIN SLBIN6 BIN COMMON WORK BIN SLBIN7 BIN COMMON WORK BIN SLBIN8 BIN COMMON WORK BIN SLBIN9 BIN COMMON WORK BIN VALPTR BIN VALIDATION BUFFER-POINTER (OBJMOV) OBJSTR STRG 200 TRANSFERSTRG -> BPOOL EJECT * * VALIDATION DEPENDENT VARIABLES * TB8 BLK VBOOL1 BOOL VBOOL2 BOOL VBOOL3 BOOL VBOOL4 BOOL VBOOL5 BOOL VBOOL6 BOOL VBOOL7 BOOL VBOOL8 BOOL VBOOL9 BOOL IC BOOL =ITC INTERTASK INDICATOR VBBIN BIN LENGTH OF VALBUF VBIN1 BIN VBIN2 BIN VBIN3 BIN VBIN4 BIN VBIN5 BIN VBIN6 BIN VBIN7 BIN VBIN8 BIN LSTACK BINI (32) OPERAROR/POSITION STACK LINNO BCDI (9),6 LINE NUMBER VSTR2 STRG 2 WORK AREA VALBUF STRG 4095 VALIDATION SOURCE BASLIN STRGI (8),75 VALBASIC LINE BUFFER MAX. 4095 BYTES EJECT TB9 BLK =ITC INTERTASK BLOCK ICLEN BIN W'21' =ITC REQ. LENGTH ICTASK BIN =ITC TASK ID OF SENDING TASK ICPOOL STRUC =ITC ICEBL BIN =ITC EFF BUFFER LENGTH ICBUF STRG 21 =ITC BUFFER: VOLNAME+ =ITC +FILENAME+ELEM.TYPE+ELEM.NAME STRUCE ICPOOL =ITC PDIV END