|
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: 14188 (0x376c)
Notes: pts_type(SC)
Names: »DE50ST.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DE50ST.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DE50ST.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DE50ST.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DE50ST.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DE50ST.SC«
IDENT DE50ST REL 10.0 80-04-11 UPD 80-04-24/DALI 80-04-14/DALI DDUM DEDDIV PDIV ENTRY DE50ST ENTRY DEAP5A * * EXTERNAL REFERENCES TO SCREEN * EXT DECLRA EXT DERR EXT DECLRN EXT DECLRD EXT DECLRS EXT DEPOOL EXT DEOPBC EXT DENT01 EXT DERECS EXT DEDISC EXT SETB EXT TESTB EXT CLEARB EXT MSKOUT EXT DERROR EXT OPCL EXT DESTAU BUILD STATUS EXT DEPRUT EXT ATTWB EXT ATTDB EXT EMPTYT EXT RESTOR * * EXTERNAL REFERENCES TO APPLICATION ROUTINE * EXT DEAOK0 EXT DEANOK INCLUDE DELITT EJECT ********************************************* * START OF SEARCH/CORR. HANDLE PRORAMSCREEN- * LAYOUTS 50,51,52,53 SEARCH MODE. * THESE ROUTINES USE THE DENTER-SCREEN. ********************************************* DE50ST PROC CLEAR BOOL2 MOVE JOBNAME,HEX00 MOVE BATCH,HEX00 CBNE BIN2,W0,DE50EN DEST00 SET BOOL1 PART OF FORMAT DISPLAY DEST10 TBT BOOL2,DE50EN ATTFMT F50ST SET DEPROMPT PROMPT-TEXTS DISPLAY DEST50 CLEAR DECHANGE PERF DECLRS DEST60 IB DEBINW2,DE50CA,DE50RE,DE50EN MOVE DEBINW4,W0 MOVE BIN3,DEBINW4 CLEAR DOOL3 BZ DE50E2 PERF OPCL,W4 CLOSE USERFILE MOVE DEBINW4,BIN3 DE50E2 DE50ER PERF DERR B DEST60 EJECT * * CANCEL-KEY PRESSED * DE50CA CLEAR DEPROMPT B DEST50 * * ENTER-KEY PRESSED * DE50EN DEEN10 CBNE BIN1,W5,DERE30 IB BIN2,DE51ST,DE51ST,DE53ST B DEST00 * DE50RE CLEAR DOOL3 BZ DERE20 PERF OPCL,W4 CLOSE USERFILE BNERR DERE20 MOVE DEBINW1,W0 PERF DERROR,DEKTAB6 DERE20 TBT BOOL2,DERE50 MOVE BIN2,W1 MOVE BIN1,W0 DERE30 RET DERE50 CLEAR BOOL2 CLEAR BOOL1 CLEAR DOOL7 CLEAR DOOL4 B DEST10 EJECT DE51ST CLEAR BOOL1 PART OF FORMAT DISPLAY SET BOOL2 LEVEL 2 IN SEARCH MOVE EOLINE,W2 NUMBER OF BUFFERS MOVE BIN4,W2 NUMBER OF CONSEC. PERF DEPOOL,W2,EOLINE,BIN4,STRG10A GET LOCK BNOK DE50ER MOVE DEBINW2,W0 DE5203 MOVE BIN4,EOLINE FIRST BUFFER ADD BIN4,W1 SECOND BUFFER MOVE BPOOL(EOLINE),HEX00 MOVE BPOOL(BIN4),HEX00 XCOPY BPOOL(EOLINE),W0,W1,W128,W1 XCOPY BPOOL(EOLINE),W1,W1,W15,W1 XCOPY BPOOL(EOLINE),W5,W1,W24,W1 CALL ATTWB,BPOOL(EOLINE),W8,W11 CALL ATTDB,BPOOL(EOLINE),W0,W11 CBNE DEBINW2,W0,DE52EN CBE BIN2,W2,DE5205 JUMP IF BATCH ATTFMT F51ST B DE5207 DE5205 ATTFMT F52ST DE5207 SET DEPROMPT CLEAR DECHANGE PERF DECLRS DE5210 PERF DEPRUT,PRNUM,BIN1,BIN2 IB DEBINW2,DE52CA,DE52RE,DE52EN MOVE DEBINW4,W0 DE5220 PERF DERR B DE5210 DE52CA PERF DECLRA B DE5210 DE52ER MOVE DEBINW3,W0 CALL ATTWB,BPOOL(EOLINE),W8,W11 CALL ATTDB,BPOOL(EOLINE),W0,W11 GETFLD 0,DEBINW3,DEBINW2 B DE5220 DE52EN MOVE DEBINW2,W0 MOVE STSAVE(W2),BATCH MOVE BATCH,HEX00 PERF DEOPBC,DEBINW2 MOVE BIN7,W0 PERF DEPRUT,PRNUM,BIN1,BIN2 CBE BIN2,W2,EN5202 JUMP IF BATCH ATTFMT F51ST B EN5203 EN5202 ATTFMT F52ST EN5203 MOVE BATCH,STSAVE(W2) IB DEBINW2,EN5205,EN5205,DE52RE,DE52ER EN5205 CBE BIN2,W1,EN5210 JUMP IF JOB MOVE BIN5,=W'34' GET NEXT BATCHNAME B EN5220 EN5210 MOVE BIN5,W21 GET NEXT JOBNAME EN5220 PERF DEDISC,BIN5 BNOK EN5270 CBE BIN2,W1,EN5250 JUMP IF JOB PERF DERECS,W11 OPEN BATCH BNOK EN5270 CBE PINACC,W0,EN5240 XCOPY BIN10,W0,W2,BDSTAT,W0 * CALL MSKOUT,BIN10,BIN7 * CBNE BIN6,BIN10,DE52EN STATUS NOT MATCH PERF DESTAU,BDSTAT,STRG10A PERF DEPOOL,W6,PINACC,BIN8,STRG10A B EN5250 EN5240 MOVE STRG10A,=C'IN USE ' EN5250 ADD BIN7,W1 CBG BIN7,W1,EN5253 ERASE 0,W5,W12 EN5253 CBE BIN2,W1,EN5255 CON X.COPY,FDVBCD(BIN7),W0,W6,BATCH,W0 COPY CON X.COPY,FDVBCD(BIN7),W6,W1,VALSTR,W18 : CON X.COPY,FDVBCD(BIN7),W7,W8,STRG10A,W0 COPY MOVE STSAVE(W2),BATCH B EN5257 EN5255 CON X.COPY,FDVBCD(BIN7),W0,W6,JOBNAME,W0 MOVE STSAVE(W1),JOBNAME EN5257 ADD BIN7,W3 ADD BIN7,BIN2 DISPLAY 3,BIN7,BIN7 SUB BIN7,W3 SUB BIN7,BIN2 CBNE BIN7,W24,EN5205 EN5258 CLEAR DOOL3 BZ EN5259 PERF OPCL,W4 CLOSE USERFILE EN5259 DISPLAY 3,W3,W4 CLEAR DECHANGE DSC0 DEDSDYKB,02 PERF DECLRN EN5260 IB DEBINW2,DE52CA,DE52RE,DE5203,DE52BW,DE52BW EN5265 MOVE DEBINW4,W0 B EN5281 EN5270 CBNE DEBINW4,W9,EN5280 JUMP IF NOT 'NOT FOUND' CBNE BIN7,W0,EN5258 PERF DEPRUT,PRNUM,BIN1,BIN2 EN5280 CLEAR DOOL3 BZ EN5281 IF NOT OPEN MOVE BIN3,DEBINW4 PERF OPCL,W4 CLOSE USER FILE MOVE DEBINW4,BIN3 EN5281 PERF DERR B EN5260 DE52BW PERF DEPRUT,PRNUM,BIN1,BIN2 CBE BIN2,W2,BW5200 JUMP IF BATCH CBE DEBINW2,W4,DE52CL FWD PRESSED MOVE JOBNAME,HEX00 B DE5203 BW5200 CBE DEBINW2,W5,BW5210 BWD PREESED CALL EMPTYT,JOBNAME BNZ EN5265 EMPTY! B DE5203 BW5210 MOVE BATCH,HEX00 DE52CL B DE5203 DE52RE CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO WORKBLOCKS AND DESCRIPTORS PERF DEPOOL,W6,EOLINE,BIN8,STRG10A SET BOOL2 B DE50RE EJECT ****************************************** * THIS IS THE MAINLOOP IN SEARCH RECORD. * THE PROCEDURES FOR BATCHHANDLING USED * ARE THE SAME AS FOR ENTRY AND VERIFY. ****************************************** DE53ST ATTFMT F53ST MOVE EOLINE,W0 USED AS POOLINDEX IN 51,52 NOT USED WITHIN PROGRAM 53 DE5305 SET DEPROMPT CLEAR DECHANGE DE5310 MOVE WORK(W11),W0 COMP-WORD MOVE WORK(W12),W0 MSKOUT-WORD PERF DECLRS CLEAR SOME VARIABELS DE5315 IB DEBINW2,DE53CA,DE52RE,DE53EN MOVE DEBINW4,W0 ILLEGAL KEY DE5320 PERF DERR B DE5315 DE53CA PERF DECLRA B DE5315 DE53EN MOVE DEBINW2,W0 CALL EMPTYT,STR64A BZ EN5300 IF NOT EMPTY MOVE WORK(W11),W0 COMP-WORD MOVE WORK(W12),W0 MSKOUT-WORD EN5300 PERF DEOPBC,DEBINW2 OPEN BATCH-ROUTINE CLEAR SOOL2 IB DEBINW2,EN5310,EN5310,DE53RE,EN5320 EN5310 OPEN BATCH SUCCESSFULL SET SOOL2 PERF DENT01 DATARECORDHANDLING-ROUTINE B EN5300 TAKE CARE OF RETURCODE DE53RE CLEAR DOOL3 CLEAR SOOL2 PERF OPCL,W4 CLOSE USERFILE BOK DE53ST SUCCESSFULLY EN5320 OPEN BATCH FAILED CLEAR DOOL3 MOVE STR64A,HEX00 MOVE DEBINW2,W0 MOVE DEBINW3,W0 DES100 CALL TESTB,WORK(W12),DEBINW3 MSKOUT-WORD BZ DES200 CBE DEBINW2,W0,DES120 COPY STR64A,DEBINW2,W1,STATIU,W9 ',' ADD DEBINW2,W1 DES120 CALL TESTB,WORK(W11),DEBINW3 COMP-WORD BNZ DES140 COPY STR64A,DEBINW2,W1,STATIU,W8 '/' ADD DEBINW2,W1 DES140 COPY STR64A,DEBINW2,W1,STATIU,DEBINW3 ADD DEBINW2,W1 DES200 ADD DEBINW3,W1 CBNE DEBINW3,W8,DES100 ATTFMT F53ST DISPLAY 3,W5,W5 DISPLAY 3,W6,W6 GETFLD 0,W4,DEBINW3 B DE5320 DISPLAY ERRORMESSAGE EJECT * * APPL VALUE HANDLING ROUTINE * DEAP5A IB DEBINW4,DEAP51,DEAP52,DEAP53 DEAP50 DEAP51 B DEAOK0 DEAP52 B DEAOK0 DEAP53 MOVE WORK(W11),W0 COMP-WORD MOVE WORK(W12),W0 MSKOUT-WORD MOVE BIN9,W0 APP003 CBE BIN9,DEBINW1,APP340 MOVE BIN8,W0 APP005 MATCH STATIU,BIN8,W10,DEINPUT,BIN9,W1 BNOK APP395 ILLEGAL LETTER IB BIN8, C APP395 - C APP310 = C APP310 = C APP310 = C APP310 = C APP395 = C APP395 = C APP335 = C APP330 = APP310 CALL TESTB,WORK(W12),BIN8 LOOK IF STATUS BNZ APP395 MASK ALREADY SET CALL SETB,WORK(W12),BIN8 MSKOUT-WORD CLEAR DOOL6 NOT-FLAG SAT? BNZ APP330 APP320 CALL SETB,WORK(W11),BIN8 COMP-WORD APP330 ADD BIN9,W1 ADJUST INPUTBUFFER B APP003 GET NEXT INPUT APP335 SET DOOL6 BZ APP330 APP340 CLEAR DOOL6 NOT-FLAG BNZ APP395 LAST LETTER = '/' APP350 B DEAOK0 APP395 DEAER6 MOVE DEBINW4,W6 B DEANOK PEND EJECT * * FORMATS * F50ST FRMT FSL FTEXT '50 ' FCOPY =C'SEARCH' FILLR ' ',1 FCOPY =C'MODE' FNL FCOPY =C'PROGRAM:' FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 FMEL 'XX',PRNUM FBF BOOL1,F50OUT FNL FLINK F51ST2 FNL FLINK F52ST2 FNL FLINK F53ST2 F50OUT FMEND F51ST FRMT FSL FLINK F51ST2 FNL FLINK F50UV FNL FLINK F50JOB FLINK F50END FNL FLINK F50STA FMEND F52ST FRMT FSL FLINK F52ST2 FNL FLINK F50UV FNL FLINK F52JOB FTAB 20 FLINK F50BAT FLINK F50END FNL FLINK F50STA FMEND F53ST FRMT FSL FLINK F53ST2 FNL FLINK F50UV FNL FLINK F52JOB FTAB 20 FLINK F53BAT FNL FCOPY =C'RECORD' FILLR '-',1 FCOPY =C'NUMBER' FILLR ':',1 FKI 15,MAXL=7,NEOI FMEL 'XXXX',BCDI21(W3) FTAB 30 FCOPY =C'RECORD' FILLR '-',1 FCOPY =C'STATUS' FILLR ':',1 FKI 45,MAXL=20,NEOI,ALPHA,APPL=101 FCOPY STR64A FLINK F50END FMEND F51ST2 FRMT FTEXT '51 ' FCOPY =C'SEARCH' FILLR ' ',1 FCOPY =C'MODE' FILLR ' ',1 FCOPY =C'JOB' FILLR ' ',1 FCOPY =C'LEVEL' FMEND F52ST2 FRMT FTEXT '52 ' FCOPY =C'SEARCH' FILLR ' ',1 FCOPY =C'MODE' FILLR ' ',1 FCOPY =C'BATCH' FILLR ' ',1 FCOPY =C'LEVEL' FMEND F53ST2 FRMT FTEXT '53 ' FCOPY =C'SEARCH' FILLR ' ',1 FCOPY =C'MODE' FILLR ' ',1 FCOPY =C'RECORD' FILLR ' ',1 FCOPY =C'LEVEL' FMEND F50UV FRMT FCOPY =C'UNIT' FTEXT ':U' FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 FMEL 'X',USERFILE FTAB 20 FCOPY =C'VOLUME' FILLR ':',1 FINP 27 FCOPY TABLE FMEND F50JOB FRMT FCOPY =C'JOB' FCOPY =C'NAME' FILLR ':',1 FKI 9,ALPHA,MINL=1,MAXL=6,NEOI,APPL=3,DUPL=STSAVE(W1) FCOPY JOBNAME FMEND F52JOB FRMT FCOPY =C'JOB' FCOPY =C'NAME' FILLR ':',1 FKI 9,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=3,DUPL=STSAVE(W1) FCOPY JOBNAME FMEND F50BAT FRMT FCOPY =C'BATCH' FCOPY =C'NAME' FILLR ':',1 FKI 30,ALPHA,MINL=1,MAXL=6,NEOI,APPL=4,DUPL=STSAVE(W2) FCOPY BATCH FMEND F53BAT FRMT FCOPY =C'BATCH' FCOPY =C'NAME' FILLR ':',1 FKI 30,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=4,DUPL=STSAVE(W2) FCOPY BATCH FMEND F50STA FRMT FINP 1 FCTL X'C0',FDVBCD(W1) FINP 21 FCTL X'C0',FDVBCD(W2) FINP 41 FCTL X'C0',FDVBCD(W3) FNL FINP 1 FCTL X'C0',FDVBCD(W4) FINP 21 FCTL X'C0',FDVBCD(W5) FINP 41 FCTL X'C0',FDVBCD(W6) FNL FINP 1 FCTL X'C0',FDVBCD(W7) FINP 21 FCTL X'C0',FDVBCD(W8) FINP 41 FCTL X'C0',FDVBCD(W9) FNL FINP 1 FCTL X'C0',FDVBCD(W10) FINP 21 FCTL X'C0',FDVBCD(W11) FINP 41 FCTL X'C0',FDVBCD(W12) FNL FINP 1 FCTL X'C0',FDVBCD(W13) FINP 21 FCTL X'C0',FDVBCD(W14) FINP 41 FCTL X'C0',FDVBCD(W15) FNL FINP 1 FCTL X'C0',FDVBCD(W16) FINP 21 FCTL X'C0',FDVBCD(W17) FINP 41 FCTL X'C0',FDVBCD(W18) FNL FINP 1 FCTL X'C0',FDVBCD(W19) FINP 21 FCTL X'C0',FDVBCD(W20) FINP 41 FCTL X'C0',FDVBCD(W21) FNL FINP 1 FCTL X'C0',FDVBCD(W22) FINP 21 FCTL X'C0',FDVBCD(W23) FINP 41 FCTL X'C0',FDVBCD(W24) FMEND F50END FRMT FNL FKI 1 FCOPY HEX00 FMEND END