|
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: 3294 (0xcde)
Notes: pts_type(SC)
Names: »BDE.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »BARCLAY/BDE.SC«
└─⟦this⟧ »BARCLAY/BDE.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »BARCLAY/BDE.SC«
IDENT BDE 80.10.09 NJ DDUM NJDDIV * THE MODULE TAKES CARE OF THE * BASIC DATA ENTRY * FUNCTION OF BARCLAYS TERMINAL SYSTEM PDIV ENTRY BDE EXPROC DCSEND,PSTRG EXPROC BDEINP EXPROC UNPCK * * INCLUDE EQUATE * * EJECT BDE PROC * * PROCEDURE FOR PROCESSING BASIC DATA ENTRY * * THIS PROCEDURE IS CALLED UPON VALID * DEPRESSION OF THE <BDE> KEY. * * FIRST STEP TO BE TAKEN: TRANSMIT A SESSION HEADER * MOVE TSTR20,='00020 ' XCOPY TSTR20,CBIN5,CBIN3,TBRANCH,CBIN0 DEST.BRANCH XCOPY TSTR20,CBIN10,CBIN2,TTYPE,CBIN0 SCREEN NUMBER XCOPY TSTR20,CBIN12,CBIN5,TTERMID,CBIN0 TERMINAL ID MOVE TSCRBUF,ETX CLEAR BUFFER WITH ETX XCOPY TSCRBUF,CBIN0,CBIN15,TSTR20,CBIN0 PERF DCSEND,TSCRBUF SEND SESSION HEADER BERR BDE099 ERROR, GET BACK * * NOW THE MENU (OR OTHER DATA) HAS BEEN RECEIVED AND * IS TO BE UNPACKED * BDE010 PERF UNPCK * * NOW WE ARE READY FOR INPUT * PERF BDEINP INPUTROUTINE FOR BDE BERR BDE099 CBE TBIN1,CBIN4,BDE090 FR-KEY DEPRESSED ? MOVE TSTR20,='00020 ' NETWORKHEADER XCOPY TSTR20,CBIN5,CBIN3,TBRANCH,CBIN0 DEST.BRANCH XCOPY TSTR20,CBIN10,CBIN2,TTYPE,CBIN0 TYPE = SCREEN NUMBER XCOPY TSTR20,CBIN12,CBIN5,TTERMID,CBIN0 TERMINAL ID INSRT TSCRBUF,CBIN0,CBIN17,TSTR20,CBIN0 PUT IN FRONT OF DATA PERF DCSEND,TSCRBUF BERR BDE099 B BDE010 NEW ROUND BDE090 CLEAR VAR. FLAGS CMP CBIN0,CBIN0 BDE099 RET PEND END