|
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: 17002 (0x426a)
Notes: pts_type(SC)
Names: »DANT01.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DANT01.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DANT01.SC«
IDENT DANT01 PRR 79-11-12/DALI DDUM DEDDIV PDIV ENTRY DANT01 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 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 DANT01 PROC ***************************************** * * HANDLE ENTERED DATA * ***************************************** DATAIN TBT DOOL8,DAT04 JUMP IF OPEN NEW TBF VERIFM,DAT0X TBF DBOMVR,DAT05 TBF DBOVER,DAT05 CLEAR VERIFM B DAT0X * * * DAT0 THOME DAT01 CLEAR DECHANGE TBT VERIFM,DAT05 TBF DEPROMPT,DAT07 DAT04 CLEAR BOOL3 F=NO/UNVALID IMMID.FORM CH MOVE STSAVE(W4),HEX00 FORMAT NAME:=000000 PERF DECLRA B DAT03 DAT02 TBT VERIFM,DAT05 DAT07 PERF DECLRS B DAT03 DAT05 TBT KEYVER,DAT06 DAT0X SET DENOCHAN DAT06 PERF DECLRD DAT03 IB DEBINW2,CANCDA,RETUDA,DATENT,RFWDDA,RBWDDA C CORDAT,DLTEDA,TOTDA,PROGDA,INSRDA DATERR MOVE DEBINW4,W0 DATER2 TBF VERIFM,DATER3 TBT KEYVER,DATER3 SET DENOCHAN DATER3 CBE PINDFR,W0,DATER4 NO ENTRY FORMAT PERF DERR ATTACHED. 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 MOVE DEBINW3,NUMBER CBG DEBINW3,BDPOIN(W2),DAT0 ENTRY NEW REC TBT DOOL2,DAT0 INSERT B DAT0X DATER6 CBE NUMBER,=D'0',DATER8 B RBWDDA DATER8 MOVE DEBINW4,W15 B DATER4 EJECT ***************** * CANCEL PRESSED. ***************** CANCDA TBT SOOL2,CANC03 TBF DOOL8,CANC03 OPEN NEW THOME B DAT04 CANC03 CANC05 TBF DOOL2,CANC10 JUMP IF NOT INSERT CLEAR DOOL2 B RBWD10 CANC10 TBT DECHANGE,CANC20 PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,CANC15 MOVE DEBINW3,NUMBER CBG DEBINW3,BDPOIN(W2),CANC15 SET VERIFM VERIFY MODE CANC13 ERASE 1,W1,W0 ERASE ALL ON SCREEN B DAT06 CANC15 PERF DECLRN B DAT03 CANC20 ERASE 1,W1,W0 ERASE ALL ON SCREEN PERF DERECS,W5 GET CURRENT BERR DATER2 CLEAR DECHANGE CLEAR DEPROMPT BNZ DAT04 ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP B DAT06 ***************** * RETURN PRESSED. ***************** RETUDA TBT VERIFM,RETU05 PERF DERECS,W3 ENTER LAST BNERR SERIOUS PERF DERROR,DEKTAB6 RETU05 B SERIOUS RETU10 MOVE DEBINW2,W1 RET ERRB40 MOVE DEBINW2,W2 RET EJECT **************** * ENTER PRESSED. **************** DATENT TBF VERIFM,DAEN00 VERIFY SET DBOVER BNZ RFWD10 PERF DERECS,W2 ENTER OLD BNOK DATER2 TBF DBOMVR,RFWD10 SUB BDPOIN(W5),W1 MOVE DEBINW2,W4 SIM RFWD PRESSED B RFWD10 DAEN00 TBF DECHANGE,DAEN10 NO ACCUMULATE WHEN NO INPUT PERF DEACC,W0 INCREASE ACCUMULATORS DAEN10 CLEAR DOOL2 BZ DAEN50 CLEAR BOOL7 CLEAR/SET CR BZ DAEN14 SET DOOL2 B DAEN59 DAEN14 PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 CBNE DEBINW4,W6,DAEN15 SET VERIFM VERIFY MODE TBT KEYVER,DAEN18 DAEN15 SET DENOCHAN DAEN18 PERF DERECS,W12 ENTER INSERTED RECORD BOK DAEN30 DAEN20 PERF DEACC,W1 DECREASE ACCUMULATORS B DATER2 DAEN30 MOVE BCD13A,NUMBER INSERR TBF VERIFM,DAEN31 PERF DELAST,W6,DEKTABV B DAEN33 DAEN31 PERF DELAST,W6,DEKTAB5 DAEN33 IB DEBINW2,INSERR,RETUDA CLEAR DECHANGE TBF VERIFM,DAEN40 DAEN35 TBF KEYVER,DAEN40 ERASE 1,W1,W0 ERASE ALL FROM 1 AND UP DISPLAY 23,W1,W0 B DAT03 DAEN40 SET DENOCHAN B DAT03 DAEN50 TBF DOOL8,DAEN60 CALL CLEARB,BIN1,W0 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 PERF DERECS,W14 BOK DAEN64 TBF SOOL2,ERRB40 JUMP IF FIRST REC 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 SUB NUMBER,=D'1' SET VERIFM VERIFY MODE B RFWD02 DAEN85 B DAT0 EJECT ****************** * RECORD FORWARD. ****************** RFWDDA TBT DECHANGE,RFWD07 TBF VERIFM,RFWD03 TBT DBOVER,RFWD10 RFWD02 PERF DELAST,W9,DEKTAB8 B CANC13 RFWD03 TBT DOOL8,RFWD07 TBF DOOL2,RFWD05 JUMP IF NOT INSERT SUB NUMBER,=D'1' ADJUST CURRENT REC.NR CLEAR DOOL2 B RFWD10 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 SET DOOLC BNZ RFWD20 ERASE 1,W1,W0 ERASE ALL ON SCREEN RFWD20 PERF DERECS,W4 RFWD30 BNERR RFWD40 CLEAR DOOLC CBNE PINDFR,W0,RFWD33 CURR FORMAT 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 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 TBT DBOVER,RFWD10 SET VERIFM CLEAR DENOCHAN 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 CLEAR DOOL2 JUMP IF INSERT BNZ RBWD10 CBE NUMBER,=D'0',RFWD12 BATCHHEAD MOVE DEBINW3,W24 ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE ERASE 1,W1,W0 ERASE ALL FROM 1 AND UP CLEAR VERIFM BNZ RBWD10 TBT DENOCHAN,RBWD15 PERF DERECS,W3 ENTER LAST SECTOR BERR DATER2 SET DENOCHAN B RFWD50 RBWD10 SET DENOCHAN RBWD15 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 PERF DELAST,W8,DEKTAB7 CLEAR VERIFM BZ CORD20 TBF KEYVER,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,INSR05 TBF DBOMVR,INSR05 TBT DBOVER,INSR05 SET VERIFM PERF DELAST,W9,DEKTAB8 B RFWD02 INSR05 SET DENOCHAN 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 MOVE DEBINW3,NUMBER CBNE DEBINW3,BDPOIN(W2),INSR10 LAST RECORD CLEAR DENOCHAN B CANBL1 INSR10 PERF DELAST,W4,DEKTAB7 IB DEBINW2,PROCAN,PROCAN,RETUDA,INSR10 PERF DERECS,W9 INSERT RECORD BERR DATER2 CLEAR DENOCHAN SET DOOL2 RECORD INSERT CLEAR VERIFM B DAEN65 EJECT ******************** * TOT-KEY PRESSED. * ******************** TOTDA TEST DOOL8 BNZ DATERR TBF SOOL2,TOTBAL CLEAR DOOL2 INSERT TEST DECHANGE BNZ DATERR TBT DENOCHAN,TOTBAL TBT VERIFM,TOTBAL PERF DERECS,W3 ENTER LAST BNERR TOTBAL B DATER2 EJECT ***************************************** * * HANDLE BALANCE FORMAT * ***************************************** TOTBAL CLEAR DENOCHAN CLEAR SOOL2 MOVE DEINPUT,FORTAB(W21) GET BALANCE NAME MOVE FRMTPNTR,SYMREC(W11) CLEAR DECHANGE SET DOOLA TOTB10 PERF DEDISC,W10 GET FORMAT BNERR TOTB20 CBNE DEBINW4,W13,TOTB12 NO WORKSPACE CBE PINDFR,W0,TOTB12 NO CURR. FORMAT PERF DEPOOL,W6,PINDFR,BIN14,STRG10A ATTFMT FFETCH ATTACH DUMMYFORMAT DISPLAY 0,W1,W0 THOME 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 BNOK DATER2 CLEAR VERIFM CBE NUMBER,=D'1',CANBL2 JUMP IF FIRST CLEAR DECHANGE B DAT02 CANBL2 B DAT01 SERIOUS CLEAR BDABAL OUT OF BALANCE B TOTB70 PEND 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