|
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: 10928 (0x2ab0)
Notes: pts_type(SC)
Names: »DE31ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE31ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE31ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE31ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE31ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE31ST.SC«
IDENT DE31ST REL 10.0 80-04-11 79-10-19/DALI *************************** * 31 CREATE JOB DEFINITION * 32 GET JOB DEFINITION *************************** ************************** * FORTAB 1 - 21 * * 1-9 FORMAT NAMES * * 10 JOBNAME * * 11-19 SYMBOLIC NAMES * * 20 BATCHHEAD * * 21 BALANCE * * SYMREC 1 - 12 * * 1-9 REC.NR FORMAT 1-9 * * 10 REC.NR BATCHHEAD * * 11 REC.NR BALANCE * * 12 MAXL. SYMB.NAMES * ************************** ************************************************* * BOOL1 : T=GET JOB , F=CREATE JOB * * BOOL2 : T=2 LINES , F=ENTIRE FORMAT * ************************************************* DDUM DEDDIV PDIV ENTRY DE31ST ENTRY DEAP3A EXT DECLRA EXT DECLRN EXT DERROR EXT DERR EXT DEDISC EXT ATTWB EXT EMPTYT EXT DEAOK0 EXT DEANOK EXT TESTB EXT DEPOOL INCLUDE DELITT EJECT DE31ST PROC ATTFMT F31 SET BOOL1 CBE PRNUM,=D'32',A10 CLEAR BOOL1 A10 SET DEPROMPT CLEAR DECHANGE SET BOOL2 2 LINES ON DISPLAY PERF DECLRA A20 IB DEBINW2,CANC,CANC,ENTER,FORW,BACKW A30 B ERR0 A40 MOVE DEBINW2,W2 RET-KEY CANC PERF DEPOOL,W6,PJOBCUR,BIN7,STRG10A RELEASE BUFFER A50 IB DEBINW2,A10,RETUR,A10 RETUR RET PEND EJECT FORW MOVE BIN1,=W'29' GET NEXT,REL.PREV.BUFF B B20 BACKW MOVE BIN1,=W'30' GET PREV. REL.PREV.BUFF B20 TBF BOOL1,A30 IF CREATE JOB PERF DEDISC,BIN1 BOK B50 B30 SET DENOCHAN TBF BOOL2,B35 IF COMPLETE PICTURE CLEAR DENOCHAN B35 PERF DERR B B70 B50 CALL ATTWB,BPOOL(PJOBCUR),W0,W12 SET DEPROMPT B60 SET DENOCHAN NO CHANGES POSSIBLE CLEAR BOOL2 ENTIRE FORMAT PERF DECLRN B70 IB DEBINW2,CANC,CANC,B80,FORW,BACKW,CORR,CORR B80 MOVE DEBINW4,W0 B B30 EJECT CORR DEL PERF DEPOOL,W8,PJOBCUR,BIN7,STRG10A LOCK BUFFER BNOK DEL200 CMP DEBINW2,W6 BE C70 IF CORRECTION * * DELETION * DEL100 MOVE DEBINW4,W17 'PRESS ENT FOR DELETION' PERF DERROR,DEKTAB7 IB DEBINW2, C B60, 1 CLR-KEY C B60, 2 CAN C A40 3 RET C DEL100 4 CFW C DEL150 5 ENT C DEL100 6 EOI * ENTER-KEY DEL150 MOVE DEBINW2,W3 PERF DEDISC,W5 DELETE JOB BOK CANC DEL200 SET DENOCHAN NO CHANGES POSSIBLE PERF DERR B B70 EJECT ************** * CREATE JOB ************** C20 MOVE PJOBCUR,W1 1 BUFFER MOVE BIN7,W0 NO CONSECUTIVE BUFFERS MOVE STRG10A,MODTAB(W3) ='J' COPY STRG10A,W1,W6,DEINPUT,W0 JOBNAME PERF DEPOOL,W2,PJOBCUR,BIN7,STRG10A GET BUFFER WITH LOCK BNOK ERR99 PERF DEPOOL,W4,PJOBCUR,BIN7,STRG10A SET BUFFER MOVE BPOOL(PJOBCUR),HEX00 CALL ATTWB,BPOOL(PJOBCUR),W0,W12 CLEAR BOOL2 ENTIRE FORMAT ERASE 3,W2,W0 CLEAR DATA-ITEMS MOVE FORTAB(W10),JOBNAME DISPLAY 4,W2,W0 C70 ************** * CORR. JOB ************** PERF DECLRN B A20 EJECT ENTER TBF BOOL2,ENTER2 IF ENTIRE FORMAT MOVE DEINPUT,JOBNAME CALL EMPTYT,JOBNAME BNZ ERR5 JOBNAME EMPTY TBT BOOL1,D10 MODUL 32 ************************** * MODUL 31 - CREATE JOB ************************** PERF DEDISC,W4 SEARCH JOB BOK ERR8 'ALREADY EXISTS' CBE DEBINW4,W9,C20 NOT FOUND B ERR99 ************************** * MODUL 32 - GET JOB ************************** D10 PERF DEDISC,W2 GET JOBDEF. BNOK D20 MOVE JOBNAME,DEINPUT B B50 D20 MOVE JOBNAME,=X'00' B ERR99 EJECT *************************** * CHECK FORMAT-SYMBOLIC: *************************** ENTER2 MOVE BIN2,W0 EA CLEAR BOOL3 ADD BIN2,W1 CBG BIN2,W9,EB CALL EMPTYT,FORTAB(BIN2) FORMAT BNZ E005 EMPTY SET BOOL3 B EA E005 MOVE BIN3,BIN2 ADD BIN3,W10 CALL EMPTYT,FORTAB(BIN3) SYMBOLIC NAME BNZ EA EMPTY CLEAR BOOL3 BNZ EA JOB NOT EMPTY * GET INPUT FIELD NO. MOVE BIN3,BIN2 MUL BIN3,W2 ADD BIN3,W1 EERR GETFLD 0,BIN3,BIN4 B ERR5 **************** * PACK TABLES **************** EB MOVE BIN2,W0 E1 ADD BIN2,W1 CBG BIN2,W8,E3 CALL EMPTYT,FORTAB(BIN2) BZ E1 NOT EMPTY MOVE BIN3,BIN2 E11 ADD BIN3,W1 CBG BIN3,W9,E3 READY CALL EMPTYT,FORTAB(BIN3) BNZ E11 EMPTY MOVE FORTAB(BIN2),FORTAB(BIN3) MOVE BIN4,BIN2 ADD BIN4,W10 MOVE BIN5,BIN3 ADD BIN5,W10 MOVE FORTAB(BIN4),FORTAB(BIN5) MOVE FORTAB(BIN3),=X'00' MOVE FORTAB(BIN5),=X'00' B E1 E3 CALL EMPTYT,FORTAB(W1) ********************************* * FIRST FORMAT MUST BE PRESENT ********************************* BZ E4 NOT EMPTY MOVE BIN3,W3 FIRST FORMAT FIELD B EERR EJECT * MAX.LENGTH OF SYMBOLIC NAMES IN SYMREC(W12) E4 MOVE BIN2,W10 MOVE SYMREC(W12),W0 MAXL.OF SYMBOLIC NAMES E41 ADD BIN2,W1 CBG BIN2,W19,E5 READY MOVE BIN3,W0 MATCH FORTAB(BIN2),BIN3,W6,HEX00,W0,W1 BNZ E42 NO MATCH = 6 CHAR. CBNG BIN3,SYMREC(W12),E41 MOVE SYMREC(W12),BIN3 B E41 E42 MOVE SYMREC(W12),W6 MAXL.=6 CHAR. E5 PERF DEDISC,W1 ENTER JOB BOK CANC B ERR99 EJECT * * APPL VALUE HANDLING ROUTINE * DEAP3A IB DEBINW3,APP101,APP102,APP102 APP101 MOVE DEBINW2,W17 IND.ENTER B DEAOK0 APP102 MOVE BIN3,W0 MOVE STR1A,=C'*' MATCH DEINPUT,BIN3,W1,STR1A,W0,W1 BOK APP1020 CALL TESTB,DEBINW3,W15 BZ DEAOK0 BATCHEAD B DAER32 BALANCE APP1020 CALL TESTB,DEBINW3,W15 BNZ DEAOK0 BALANCE DAER32 MOVE DEBINW4,W32 B DEANOK * * ERR0 MOVE DEBINW4,W0 'BELL' B ERR99 ERR5 MOVE DEBINW4,W5 'COMP.FIELD NOT FILLED' B ERR99 ERR8 MOVE DEBINW4,W8 'ALREADY DEFINED' ERR99 MOVE DEBINW1,W0 PERF DERR B A20 EJECT F31 FRMT FSL FMEL '99',PRNUM FBT BOOL1,F32 FCOPY =C' CREATE' FB F31A F32 FCOPY =C' GET' F31A FCOPY =C' JOB-DEFINITION' FNL FCOPY =C'JOBNAME:' FBT BOOL2,F31B FINP 11 ENTIRE FORMAT FCOPY JOBNAME FB F31C F31B 2 LINES FKI 11,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=101 FCOPY JOBNAME FB F31UT F31C FLINK F311 F31UT FMEND * F311 FRMT FNL FCOPY =C'BATCHHEAD:' FKI 12,MINL=1,MAXL=6,ALPHA,NEOI,ME,APPL=102 FCOPY FORTAB(W20) BATCHHEAD FTAB 29 FCOPY =C'BALANCE:' FKI 38,MINL=1,MAXL=6,ALPHA,NEOI,ME,APPL=103 FCOPY FORTAB(W21) BALANCE FNL FCOPY =C'FORMAT' FILLR ' ',1 FCOPY =C'1:' FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 FCOPY FORTAB(W1) FTAB 28 FCOPY =C'SYMBOLIC:' FKI 38,MINL=1,MAXL=6,NEOI,ALPHA FCOPY FORTAB(W11) FNL FCOPY =C'FORMAT' FILLR ' ',1 FCOPY =C'2:' FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 FCOPY FORTAB(W2) FTAB 28 FCOPY =C'SYMBOLIC:' FKI 38,MINL=1,MAXL=6,NEOI,ALPHA FCOPY FORTAB(W12) FNL FCOPY =C'FORMAT' FILLR ' ',1 FCOPY =C'3:' FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 FCOPY FORTAB(W3) FTAB 28 FCOPY =C'SYMBOLIC:' FKI 38,MINL=1,MAXL=6,NEOI,ALPHA FCOPY FORTAB(W13) FNL FCOPY =C'FORMAT' FILLR ' ',1 FCOPY =C'4:' FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 FCOPY FORTAB(W4) FTAB 28 FCOPY =C'SYMBOLIC:' FKI 38,MINL=1,MAXL=6,NEOI,ALPHA FCOPY FORTAB(W14) FNL FCOPY =C'FORMAT' FILLR ' ',1 FCOPY =C'5:' FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 FCOPY FORTAB(W5) FTAB 28 FCOPY =C'SYMBOLIC:' FKI 38,MINL=1,MAXL=6,NEOI,ALPHA FCOPY FORTAB(W15) FNL FCOPY =C'FORMAT' FILLR ' ',1 FCOPY =C'6:' FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 FCOPY FORTAB(W6) FTAB 28 FCOPY =C'SYMBOLIC:' FKI 38,MINL=1,MAXL=6,NEOI,ALPHA FCOPY FORTAB(W16) FNL FCOPY =C'FORMAT' FILLR ' ',1 FCOPY =C'7:' FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 FCOPY FORTAB(W7) FTAB 28 FCOPY =C'SYMBOLIC:' FKI 38,MINL=1,MAXL=6,NEOI,ALPHA FCOPY FORTAB(W17) FNL FCOPY =C'FORMAT' FILLR ' ',1 FCOPY =C'8:' FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 FCOPY FORTAB(W8) FTAB 28 FCOPY =C'SYMBOLIC:' FKI 38,MINL=1,MAXL=6,NEOI,ALPHA FCOPY FORTAB(W18) FNL FCOPY =C'FORMAT' FILLR ' ',1 FCOPY =C'9:' FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 FCOPY FORTAB(W9) FTAB 28 FCOPY =C'SYMBOLIC:' FKI 38,MINL=1,MAXL=6,NEOI,ALPHA FCOPY FORTAB(W19) FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND END