|
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: 20722 (0x50f2)
Notes: pts_type(SC)
Names: »DLNT01.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DLNT01.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DLNT01.SC«
IDENT DLNT01 PRR 80-02-21/DALI DDUM DEDDIV PDIV ENTRY DENT01 EXT DERECS EXT DEACC EXT DECLRN EXT DECLRD EXT DECLRA EXT DECLRS EXT DERROR EXT DELAST EXT CLEARB EXT RESTOR EXT UPDBIN EXT UPDBOL EXT DERR EXT TESTB TEST FOR A BIT IN A BIN EXT SETB SET A BIT IN A BIN EXT GETDUP LOOK FOR DUPLICATION- STRING FOR CURRENT FIELD EXT DEDISC DISC HANDLING ROUTINE EXT DEPOOL POOL HANDLING ROUTINE EXT MASK EXT EMPTYT EXT DELOCK EXT DEPRUT INCLUDE DELITT EJECT DENT01 PROC ***************************************** * * HANDLE ENTERED DATA * ***************************************** DATAIN TBT DOOL8,DAT04 JUMP IF OPEN NEW * TBF VERIFM,DAT0X VERIFY MODE ? TBF DBOMVR,DAT05 RECORD TO VERIFY ? TBF DBOVER,DAT05 VERIFIED RECORD ? CLEAR VERIFM PERF DEVERC CLEAR VERIFY B DAT0X * * DAT0 THOME DAT01 CLEAR DECHANGE CHANGED INPUTFIELD TBT VERIFM,DAT05 VERIFY MODE ? TBF DEPROMPT,DAT07 ENTIRE DISPLAY DAT04 CLEAR BOOL3 F=NO/UNVALID IMMID.FORM CH MOVE STSAVE(W4),HEX00 FORMAT NAME:=000000 PERF DECLRA CLEAR ALL INPUTFIELDS B DAT03 DAT02 TBT VERIFM,DAT05 VERIFY MODE ? DAT07 PERF DECLRS CLEAR SOME INPUTFIELDS(NCLR) B DAT03 DAT05 TBT KEYVER,DAT06 KEY VERIFICATION ? DAT0X SET DENOCHAN NO CHANGES PERMITTED DAT06 PERF DECLRD DISPLAY VARIABEL FIELDS DAT03 IB DEBINW2,CANCDA,RETUDA,DATENT,RFWDDA,RBWDDA C CORDAT,DLTEDA,TOTDA,PROGDA,INSRDA EJECT * * HANDLE ERROR AND/OR ILLEGAL KEYS * DATERR MOVE DEBINW4,W0 DATER2 TBF VERIFM,DATER3 VERIFY MODE ? TBT KEYVER,DATER3 KEY VERIFICATION ? SET DENOCHAN NO CHANGES PERMITTED * DATER3 CBE PINDFR,W0,DATER4 NO ENTRY FORMAT ATTACHED. PERF DERR B DAT03 * DATER4 PERF DERROR,DEKTABN TBF DOOLA,DATER7 NOT BALANCE IB DEBINW2,TOTBAL,CANCBL,SERIOUS B DATER4 DATER7 IB DEBINW2,DATER5,DATER5 CLR,CAN C RETUDA,RFWDDA,DATER6,TOTDA,PROGDA DATER5 COPY DEINPUT,W0,W6,STR6A,W0 RESTOR FORMATNAME PERF DERECS,W14 GET FORMAT BNOK DATER4 TBT VERIFM,DAT05 VERIFY MODE ? MOVE DEBINW3,NUMBER CURRENT REC.NR CBG DEBINW3,BDPOIN(W2),DAT0 ENTRY NEW REC TBT DOOL2,DAT0 INSERT B DAT0X DATER6 CBE NUMBER,=D'0',DATER8 BATCHEAD=0 B RBWDDA DATER8 MOVE DEBINW4,W15 B DATER4 EJECT ***************** * CANCEL PRESSED. ***************** CANCDA TBT SOOL2,CANC03 DATARECORD HANDLING ? TBF DOOL8,CANC03 OPEN NEW/BATCHHEAD? THOME B DAT04 * CANC03 TBF DOOL2,CANC10 JUMP IF NOT INSERT MOVE DEBINW2,W5 SIMULATE RBWD PRESSED B RBWD10 CANC10 TBT DECHANGE,CANC20 CHANGED INPUTFIELD? TBT VERIFM,CANC13 VERIFY MODE ? PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,CANC15 MOVE DEBINW3,NUMBER CBG DEBINW3,BDPOIN(W2),CANC15 TBF DBOMVR,CANC15 RECORD TO VERIFY ? TBT DBOVER,CANC15 VERIFIED RECORD ? PERF DEVERS SET VERIFY MODE CANC13 CLEAR DENOCHAN CHANGES PERMITTED ERASE 1,W1,W0 ERASE ALL ON SCREEN B DAT05 CANC15 PERF DECLRN B DAT03 CANC20 ERASE 1,W1,W0 ERASE ALL ON SCREEN PERF DERECS,W5 GET CURRENT RECORD BERR DATER2 CLEAR DECHANGE CHANGED INPUTFILED ? CLEAR DEPROMPT ENTIRE DISPLAY BNZ DAT04 ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP B DAT06 EJECT ***************** * RETURN PRESSED. ***************** RETUDA TBT DENOCHAN,RETU05 CLEAR DOOL2 INSERT OF RECORD BNZ RETU05 TBT VERIFM,RETU05 VERIFY MODE ? PERF DERECS,W3 ENTER LAST RECORD BNERR SERIOUS RETU03 PERF DERROR,DEKTAB6 RETU05 B SERIOUS **************** * ENTER PRESSED. **************** DATENT TBF VERIFM,DAEN00 VERIFY MODE ? VERIFY SET DBOVER VERIFIED RECORD ? BNZ RFWD10 PERF DERECS,W2 ENTER OLD RECORD BNOK DATER2 TBF DBOMVR,RFWD10 RECORD TO VERIFY ? SUB BDPOIN(W5),W1 NUMBER OF RECORDS TO VERIFY B RFWD10 EJECT DAEN00 TBF DECHANGE,DAEN10 NO ACCUMULATE WHEN NO INPUT PERF DEACC,W0 INCREASE ACCUMULATORS DAEN10 CLEAR DOOL2 RECORD INSERT ? BZ DAEN50 * HANDLE INSERTED RECORD * CLEAR BOOL7 CLEAR/SET CR BZ DAEN15 SET DOOL2 INSERT WITH FORMATCHANGE B DAEN59 DAEN15 SET DENOCHAN NO CHANGES PERMITTED PERF DERECS,W12 ENTER INSERTED RECORD BOK DAEN30 DAEN20 PERF DEACC,W1 DECREASE ACCUMULATORS B DATER2 DAEN30 MOVE BCD13A,NUMBER INSERR PERF DELAST,W6,DEKTAB5 IB DEBINW2,INSERR,RETUDA CLEAR DECHANGE SET DENOCHAN NO CHANGES PERMITTED B DAT03 EJECT * HANDLE NORMAL INPUT * DAEN50 TBF DOOL8,DAEN60 OPEN NEW/BATCHHEAD ? CALL CLEARB,BIN1,W0 CLEAR DOOL8 IN REC.STATUS DAEN60 TBF DECHANGE,DAEN61 PERF DERECS,W1 ENTER NEW BNOK DAEN20 DAEN61 CLEAR BOOL5 CLEAR/SET CR CLEAR BOOL7 CLEAR/SET CR BOK DAEN62 NO FORMAT CHANGE FOUND DAEN59 MOVE DEBINW4,W3 FORMATNAME=IMMIDIATE (N) B DAEN63 DAEN62 CLEAR BOOL3 CLEAR/SET CR BOK DAEN65 NO FORMAT CHANGE FOUND MOVE DEBINW4,W4 FORMATNAME=NEXT AFTER (R)EG DAEN63 CALL EMPTYT,STSAVE(DEBINW4) CHECK IF FORMAT CHANGE BNOK DAEN65 MOVE DEINPUT,STSAVE(DEBINW4) LOAD NEXT FORMAT NAME DAEN66 CLEAR DOOL8 OPEN NEW BATCH PERF DERECS,W14 CHANGE FORMAT BOK DAEN64 CBNE NUMBER,=D'0',DAEN69 SET DENOCHAN DAEN69 B DATER2 DAEN64 SET SOOL2 DAEN65 SET SOOL2 BNZ DAEN70 CLEAR DECHANGE SET DOOL8 PERF DERECS,W10 BOK DAEN68 CLEAR DOOL8 B DATER4 DAEN68 CLEAR DOOL8 DAEN70 CLEAR DECHANGE BZ DAT0 CLEAR SW95PR BZ DAEN80 MOVE DEBINW4,=W'-1' PERF DERROR,DEKTABS IB DEBINW2,DAEN80,DAEN80,RETUDA DAEN80 PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,DAEN85 TBF DBOMVR,DAEN85 PERF DERECS,W3 ENTER LAST SECTOR BERR DATER2 PERF DEVERS SET VERIFY MODE B RFWD02 DAEN85 B DAT0 EJECT ****************** * RECORD FORWARD. ****************** RFWDDA TBT DECHANGE,RFWD07 TBT VERIFM,RFWD04 VERIFY MODE ? TBT DOOL2,RFWD06 INSERT OF RECORD PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,RFWD03 VERIFY MODE ? TBF DBOMVR,RFWD03 RECORD TO VERIFY PERF DEVERS SET VERIFY MODE TBT DBOVER,RFWD10 RFWD02 PERF DELAST,W9,DEKTAB8 B CANC13 RFWD04 TBT DBOVER,RFWD10 VERIFIED RECORD ? PERF DELAST,W9,DEKTAB8 B CANC15 RFWD03 TBT DOOL8,RFWD07 TBF DOOL2,RFWD05 JUMP IF NOT INSERT RFWD06 B RBWD10 GET PREVIOUS RECORD RFWD05 TBT DENOCHAN,RFWD10 RFWD07 B DATERR RFWD10 MOVE DEBINW3,NUMBER CBNE DEBINW3,BDPOIN(W2),RFWD15 TEST VERIFM BNZ TOTBAL JUMP VERIFY TO BALANCE RFWD13 CBNE NUMBER,=D'0',RFWD14 RFWD12 CLEAR SOOL2 RFWD14 MOVE DEBINW4,W9 NO MORE RECORDS B DATER2 RFWD15 TBT VERIFM,RFWD23 VERIFY MODE? PERF DELAST,W15,DEKTABR IB DEBINW2,PROCAN,PROCAN,RETUDA C RFWD18,RBWDDA MOVE DEBINW2,W4 RFWD22 MOVE BCDI21(W3),DEINPUT CBG BCDI21(W3),NUMBER,RFWD17 RFWD16 ILLEGAL NUMBER ENTERED MOVE BCDI21(W3),NUMBER RESTORE MOVE DEBINW4,W6 B DATER2 RFWD17 MOVE DEBINW3,BCDI21(W3) CBNG DEBINW3,BDPOIN(W2),RFWD19 WITHIN BATCH MOVE BCDI21(W3),NUMBER RESTORE B RFWD14 NOT FOUND RFWD18 SUB DEBINW1,W1 BNZ RFWD22 RFWD23 MOVE BCDI21(W3),NUMBER ADD BCDI21(W3),=D'1' B RFWD17 RFWD19 ERASE 1,W1,W0 ERASE ALL ON SCREEN RFWD20 PERF DERECS,W4 GET NEXT RECORD RFWD30 BOK RFWD40 BOFL RETU03 CLEAR DOOLC CBNE PINDFR,W0,RFWD33 CURR FORMAT CBE DEBINW2,W5,RFWD31 RBWD PRESSED ? TBF VERIFM,RFWD31 VERIFY MODE ? CBE DEBINW4,W13,RFWD20 NO WORKSPACE ? RFWD31 CBE NUMBER,=D'0',RFWD32 BATCHHEAD SET SOOL2 B DATER4 RFWD32 CLEAR SOOL2 B DATER4 RFWD33 TBF VERIFM,RFWD38 TBT KEYVER,RFWD35 DISPLAY 30,W1,W0 B RFWD39 RFWD35 DISPLAY 20,W1,W0 B RFWD39 RFWD38 CMP DEBINW4,W15 BZ TOTBAL JUMP TO BAL IF SEARCH DISPLAY 0,W1,W0 RFWD39 THOME B DATER2 RFWD40 SET SOOL2 NOT BATCHHEAD CBE DEBINW2,W5,RFWD50 RBWD PRESSED PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,RFWD50 NOT VERIFY TBF DBOMVR,RFWD10 PERF DEVERS SET VERIFY MODE TBT DBOVER,RFWD10 CLEAR DENOCHAN CHANGES PERMITTED B DAT05 RFWD50 CLEAR DECHANGE RFWD60 CBE NUMBER,=D'0',RFWD70 TEST VERIFM BZ DAT06 B DAT05 RFWD70 CLEAR SOOL2 TEST VERIFM BZ DAT0X B DAT05 EJECT ***************** * RECORD BACKWARD ***************** * RBWERR B DATERR * RBWDDA TBT DECHANGE,RBWERR TBF SOOL2,RBWERR TBT DOOL2,RBWD10 INSERT OF RECORD CBE NUMBER,=D'0',RFWD12 BATCHHEAD PERF DEVERC CLEAR IF VERIFY MODE BNZ RBWD10 TBT DENOCHAN,RBWD15 SET DENOCHAN NO CHANGES PERMITTED PERF DERECS,W3 ENTER LAST SECTOR BERR DATER2 B RFWD50 RBWD10 SET DENOCHAN NO CHANGES PERMITTED CLEAR DOOL2 INSERT OF RECORD? BNZ RBWD28 YES! RBWD15 PERF DELAST,W15,DEKTABR IB DEBINW2,PROCAN,PROCAN,RETUDA C RFWDDA,RBWD25 MOVE DEBINW2,W5 RBWD20 MOVE BCDI21(W3),DEINPUT CBNL BCDI21(W3),NUMBER,RFWD16 B RBWD30 RBWD25 SUB DEBINW1,W1 BNZ RBWD20 RBWD28 MOVE BCDI21(W3),NUMBER SUB BCDI21(W3),=D'1' RBWD30 ERASE 1,W1,W0 ERASE ALL FROM 1 AND UP PERF DERECS,W6 GET PREVIOUS RECORD B RFWD30 EJECT ******************* * RECORD CORRECTION ******************* CORDAT TBT VERIFM,CORD10 TBF DENOCHAN,RBWERR CORD10 TBT DOOL2,RBWERR INSERT MOVE WORK(W10),BIN1 SAVE CURR REC.STATUS CLEAR DBOVER CLEAR DBOFOR PERF DEACC,W1 DECREASE ACCUMULATORS THOME CLEAR DENOCHAN CHANGES PERMITTED PERF DELAST,W8,DEKTAB7 PERF DEVERC CLEAR IF VERIFY MODE BZ CORD20 PERF DECLRD B CORD30 CORD20 PERF DECLRN CORD30 IB DEBINW2,CORCAN,CORC10,CORENT MOVE DEBINW4,W0 CORD40 PERF DERR B CORD30 CORCAN TBF DECHANGE,CORE15 NO CHANGES MADE ERASE 1,W1,W0 ERASE ALL ON SCREEN CORC10 SET DOOL4 PERF DERECS,W5 GET CURRENT RECORD BNERR CORRET CLEAR DOOL4 B CORD40 CORRET CLEAR DOOL4 CORE15 PERF DEACC,W2 INCREASE ACCUMULATORS CLEAR DECHANGE THOME MOVE BIN1,WORK(W10) CORR30 IB DEBINW2,CORE10,SERIOUS,CORE20 CORENT PERF DERECS,W2 ENTER OLD BNOK CORD40 CORE10 MOVE DEBINW3,W24 ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE CBNE DEBINW2,W1,CORE15 NOT CANCE CALL UPDBOL,BIN1 ORIGINATE REC.STATUS B CORE45 CORE20 GETFLD 0,W1,DEBINW1 CLEAR DECHANGE CALL TESTB,BIN1,W12 FORCED BZ CORE40 CALL CLEARB,BIN1,W12 SUB BDPOIN(W4),W1 NUMBER FORCED BNZ CORE40 CLEAR BDAFOR CORE40 CALL TESTB,BIN1,W10 VERIFIED BZ CORE45 TBF DBOMVR,CORE45 CALL CLEARB,BIN1,W10 ADD BDPOIN(W5),W1 NUMBERS TO VERIFY CORE45 PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,CORE60 TBF DBOMVR,CORE60 TBT DBOVER,CORE60 PERF DEVERS SET VEIFY MODE B RFWD02 CORE60 SET DENOCHAN NO CHANGES PERMITTED CBNE DEBINW2,W1,CORE90 JUMP IF NOT CANCEL B DAT06 CORE90 PERF DECLRN B DAT03 EJECT ***************** * RECORD DELETE. ***************** DLTEDA TEST DENOCHAN BZ DATERR TEST DOOL2 INSERT BNZ DATERR TEST SOOL2 BZ DATERR JUMP IF BATCHHEAD DLTE10 PERF DELAST,W2,DEKTAB7 IB DEBINW2,PROCAN,PROCAN,RETUDA,DLTE10 ERASE 1,W1,W0 ERASE ALL ON SCREEN PERF DEACC,W1 DECREASE ACCUMULATORS THOME DLTE30 PERF DERECS,W8 BNERR DLTE40 PERF DERROR,DEKTAB6 B SERIOUS DLTE40 MOVE BCD13A,NUMBER ADD BCD13A,=D'1' DLTE50 PERF DELAST,W3,DEKTAB5 DLTE60 IB DEBINW2,DELERR,RETUDA,DELERR,RFWD20,RFWD50,DELERR, C DELERR,TOTDA DELERR EDWRT DEDSSCRN,BELL ACOUSTIC ALARM B DLTE50 EJECT ******************* * CHANGE PROGRAM. * ******************* PROGDA TEST DENOCHAN BNZ DATERR TEST DECHANGE BNZ DATERR TEST SOOL2 BZ DATERR GETABX BIN4 PROGD0 PERF DELAST,W1,DEKTAB7 IB DEBINW2,PROCAN,PROCAN,RETUDA,PROGD0 PROENT SUB DEBINW1,W1 BZ PROGD0 JUMP IF NO INPUT COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY PERF DERECS,W10 CHANGE PROGRAM BOK DAT0 GETFLD 0,BIN4,DEBINW2 B DATER2 * PROCAN PERF DECLRN B DAT03 * EJECT ****************** * RECORD INSERT. * ****************** INSRDA TEST DOOL2 BNZ DATERR PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,INSR05 TBF DBOMVR,INSR05 TBT DBOVER,INSR05 PERF DEVERS SET VERIFY MODE B RFWD02 INSR05 MOVE DEBINW3,NUMBER CBNE DEBINW3,BDPOIN(W2),INSR10 LAST RECORD CLEAR DENOCHAN CHANGES PERMITTED B CANBL1 INSR10 PERF DELAST,W4,DEKTAB7 IB DEBINW2,PROCAN,PROCAN,RETUDA,INSR10 PERF DERECS,W9 INSERT RECORD BERR DATER2 CLEAR DENOCHAN CHANGES PERMITTED SET DOOL2 RECORD INSERT PERF DEVERC CLEAR IF VERIFY MODE B DAEN65 EJECT ******************** * TOT-KEY PRESSED. * ******************** TOTDA TEST DOOL8 BNZ DATERR TBF SOOL2,TOTBAL CLEAR DOOL2 INSERT BNZ TOTBAL TEST DECHANGE BNZ DATERR TBT DENOCHAN,TOTBAL TBT VERIFM,TOTBAL PERF DERECS,W3 ENTER LAST BNERR TOTBAL CBE DEBINW4,W13,TOTBAL NO WORKSPACE ? B DATER2 EJECT ***************************************** * * HANDLE BALANCE FORMAT * ***************************************** TOTBAL CLEAR DENOCHAN CHANGES PERMITTED CLEAR SOOL2 MOVE DEINPUT,HEX00 COPY DEINPUT,W0,W6,FORTAB(W21),W0 BALANCEFORMAT MOVE FRMTPNTR,SYMREC(W11) CLEAR DECHANGE SET DOOLA TOTB10 PERF DEDISC,W10 GET FORMAT BNERR TOTB20 CBNE DEBINW4,W13,TOTB12 NO WORKSPACE ATTFMT FFETCH ATTACH DUMMYFORMAT DISPLAY 0,W1,W0 THOME CBE PINDFR,W0,TOTB12 NO CURR. FORMAT PERF DEPOOL,W6,PINDFR,BIN14,STRG10A MOVE FORMAT,HEX00 B TOTB10 TOTB12 B DATER2 TOTB20 MOVE FORMAT,FORTAB(W21) BLANCE NAME MOVE SYMREC(W11),FRMTPNTR MOVE BIN14,FLIND(W1) ATTFMT BPOOL(BIN14) SET DEPROMPT PERF DEDISC,W1 ENTER JOB DEFINITION TOTB35 PERF DECLRN TOTB40 IB DEBINW2,CANCBL,SERIOUS,ENTBL CBNE DEBINW2,W8,TOTB50 JUMP IF NOT TOT CBE BDPOIN(W5),W0,TOTB42 ALL VERIFIED PERF DELAST,W9,DEKTAB6 B TOTB35 TOTB42 PERF DELAST,W11,DEKTAB7 CONFIRM FREEZE IB DEBINW2,TOTB44,TOTB44,ENTBL,TOTB42 SET BDAFRO ENTER PRESSED MOVE DEBINW2,W3 B ENTBL TOTB44 MOVE DEBINW4,W24 ERASE 0,DEBINW4,DEBINW4 B TOTB35 TOTB50 MOVE DEBINW4,W0 TOTB60 PERF DERR B TOTB40 ENTBL SET BDABAL IN BALANCE TOTB70 CLEAR DOOLA CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 CBE BDPOIN(W4),W0,TOTB76 SET BDAFOR B TOTB77 TOTB76 CLEAR BDAFOR TOTB77 CBNE DEBINW2,W3,TOTB78 JUMP IF NOT ENT CBE BDPOIN(W5),W0,TOTB79 TOTB78 SET BDAMVR CLEAR BDAVER B TOTB81 TOTB79 SET BDAVER TOTB81 MOVE DEBINW2,W1 RET * CANCBL CANBL1 CLEAR DOOLA SET SOOL2 PERF DERECS,W7 GET LAST RECORD BOK CANBL3 BOFL RETU03 CBE DEBINW4,W13,TOTB12 SET DOOLA B TOTB60 CANBL3 PERF DEVERC CLEAR IF VERIFY MODE CBE NUMBER,=D'1',CANBL2 JUMP IF FIRST CLEAR DECHANGE B DAT02 CANBL2 B DAT01 SERIOUS CLEAR BDABAL OUT OF BALANCE B TOTB70 PEND EJECT DEVERS PROC CALL SETB,WORK(W11),W0 CALL SETB,WORK(W12),W0 SET VERIFM RET PEND DEVERC PROC CLEAR VERIFM BZ DEVERE MOVE WORK(W11),W0 MOVE WORK(W12),W0 DEVERE RET PEND EJECT BELL FRMT FSL FILLR X'07',1 FMEND FFETCH FRMT FSL FTEXT 'FETCHING FORMAT:' FCOPY DEINPUT FTEXT ' FROM DISC.' FNL FKI 1,ALPHA FCOPY HEX00 FMEND * END