|
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: 4590 (0x11ee)
Notes: pts_type(SC)
Names: »DE12ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE12ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE12ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE12ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE12ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE12ST.SC«
IDENT DE12ST REL 10.0 80-04-11 79-12-14/LABJ **************** * * * VALUE SETS * * * **************** ********************************************* * BOOL1 : T=GET V-S F=CREATE V-S * * BOOL2 : T=LINE 1-2 F=LINE 1-3 * * BOOL3 : T=LINE 1-5 F=LINE 1-3 * ********************************************* * BIN1 WORKITEM * * BIN2 NO. OF ELEM.IN THIS RECORD * * BIN3 SIZE OF ELEMENT * * BIN4 FIRST EL.NO. IN RECORD * * BIN5 LAST - " - * * BIN6 ELMNO - BIN4 + W1 * * BIN7 = 0 * * BIN8 FC-DEDISC * * BIN10 X'8000' / X'B000' ,A/N * ************************************* DDUM DEDDIV PDIV ENTRY DE12ST ENTRY WRIT12 ENTRY CANC11 ENTRY CANC12 ENTRY A20 * EXT ENT12 EXT DECLRA EXT DERR EXT DEDISC EXT RESTOR EXT FMOVE EXT TESTB EXT DEPOOL EJECT DE12ST PROC MOVE TABLE,=X'5400' ATTFMT VSET SET BOOL1 GET CBE BIN2,W3,A10 JUMP IF PRNUM=13 CLEAR BOOL1 ENTER A10 MOVE PINDTB,W0 SET DEPROMPT CLEAR DECHANGE SET BOOL2 2 LINES ON DISPLAY CLEAR BOOL3 A15 MOVE ELMNO,W0 ELEMENTNUMBER:=0 PERF DECLRA A20 CBE DEBINW2,W0,CANC11 CLR-KEY ON ERROR IB DEBINW2,CANC12,CANC12,ENT12 MOVE DEBINW4,W0 'BELL' PERF DERR B A20 CANC11 MOVE DEBINW2,W1 CANC12 CALL RESTOR,W3,W4,PWBDB4 RESTORE ORIG. DESCR.-POINTERS PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER A30 IB DEBINW2,A10,RETUR,A10 B A15 RETUR RET PEND EJECT WRIT12 PROC XCOPY RPOOL(PINDTB),W17,W1,BIN4,W1 1:ST EL.NO. IN REC. MOVE BIN5,ELMNO SUB BIN5,W1 XCOPY RPOOL(PINDTB),W18,W1,BIN5,W1 LAST - " - MOVE BIN8,=W'26' PERF DEDISC,BIN8 ENTER VALUE-SETS BERR WR10 MOVE BIN4,ELMNO 1:ST EL.NO. IN NEXT REC. MOVE BIN5,BIN4 ADD BIN5,BIN2 SUB BIN5,W1 LAST - " - CMP W0,W0 WR10 RET PEND EJECT ************************************** * APPL-ROUTINES IN MODULE : DE10ST * ************************************** ******************************* * TABLE = VALUE-SET NO. * * TIME = SIZE OF ELEMENTS * * ACK(W1) = ELEMENT NO. * ******************************* VSET FRMT FSL FMEL '99',PRNUM FBT BOOL1,F13 FCOPY =C' CREATE' FB F12A F13 FCOPY =C' GET' F12A FCOPY =C' VALUE-SETS' FNL FCOPY =C'NAME: T' FBT BOOL2,F12B FINP 7 FCOPY TABLE FB F12C F12B 2 LINES FKI 8,NUM,MINL=2,MAXL=2,ME,NCLR,NEOI,APPL=101 FCOPY STR6A FB F12UT F12C FLINK F121 F12UT FMEND * F121 FRMT FNL FCOPY =C'TYPE:' FBT BOOL3,F121A FBF BOOL1,F124 IF CREATE F121A FINP 7 FCOPY STR2A FB F125 F124 FKI 7,MINL=1,MAXL=1,ALPHA,NEOI,ME,NCLR,APPL=102 A/N FCOPY STR2A F125 FTAB 10 FCOPY =C'SIZE OF ' FCOPY =C'ELEMENT' FCOPY =C'S:' FBT BOOL3,F125A FBF BOOL1,F127 IF CREATE F125A FINP 28 FMEL 'XX',TIME FB F128 F127 FKI 28,MINL=1,MAXL=2,NEOI,ME,NCLR,REWRT,APPL=103 <61 FMEL 'XX',TIME F128 FNL FCOPY =C'ELEMENT' FCOPY =C' NO.:' FBF BOOL3,FEND IF LINE 1-3 FINP 13 ENTER FMEL 'XX',ACK(W1) FNL * FLINK STR64A FCTL X'DE',STR64A FEND FMEND END