|
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: 3880 (0xf28)
Notes: pts_type(SC)
Names: »BDEINP.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »BARCLAY/BDEINP.SC«
└─⟦this⟧ »BARCLAY/BDEINP.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »BARCLAY/BDEINP.SC«
IDENT BDEINP 80.11.06 NJ DDUM NJDDIV PDIV ENTRY BDEINP EXPROC CRHOME EXPROC FINDLN,PSTRG,PBIN,PBIN EXPROC KBREAD,PBIN,PKTAB,PBIN,PBIN EXPROC CRFTAB EXPROC ERASUP EXPROC ATTUNP,PSTRG,PBIN EXPROC ATTPCK,PSTRG,PBIN EXPROC PUSH,PBIN EXPROC PULL,PBIN * * INCLUDE EQUATE * * INCLUDE KTABBE EJECT BDEINP PROC * THE PROCEDURE TAKES CARE OF THE INPUTFUNCTION IN BDE * THIS MEANS: * 1. SCANNING THE BUFFER FOR A MODIFYABLE FIELD * 2. POSITION THE CURSOR ACCORDINGLY * 3. PERFORM A KEYBOARDINPUT OPERATION * 4. SAVE THE KEYED-IN DATA IN THE BUFFER * PERF PUSH,CBIN5 BDEI000 PERF ERASUP ERASE UNPROTECTED FIELDS PERF CRHOME PUT CURSOR ON FIRST INPUTFIELD BERR BDEI095 NO INPUTFIELDS AT ALL MOVE TBIN4,CBIN0 BDEI010 MOVE TBIN2,TPOINTER PERF ATTUNP,TSCRBUF,TPOINTER SET ALL ATTRIBUTE BOOLEANS MOVE TBIN4,TPOINTER SAVE POINTER TO ATTRIBUTE ADD TPOINTER,CBIN1 POINT AT DATA (IF ANY) TBT TARITJUS,BDEI020 BRANCH IF NUMERIC FIELD MOVE TP3,CBIN2 NON-NUMERIC INPUT B BDEI030 BDEI020 MOVE TP3,CBIN1 NUMERIC INPUT BDEI030 MOVE TP1,CBIN0 FIND FIELD LENGTH PERF FINDLN,TSCRBUF,TPOINTER,CBIN80 LENGTH RETURNED IN TBIN2 PERF KBREAD,TP1,KTABBE,TP2,TP3 BNERR BDEI035 DSC1 DSDY,POS,TCURPOS REPOSITION CURSOR B BDEI030 AND REREAD BDEI035 IB TP2, C BDEI040, ENT C BDEI000, CU C BDEI040, TAB C BDEI030, FDE C BDEI030, BDE C BDEI030, ENQ C BDEI090, FR C BDEI030, TL C BDEI030 PTR BDEI040 XCOPY TSCRBUF,TPOINTER,TBIN5,TKBBUF,CBIN0 PERF ATTUNP,TSCRBUF,TBIN4 SET MODIFIED BIT SET TAMODIF IN BUFFER PERF ATTPCK,TSCRBUF,TBIN4 - BDEI042 PERF CRFTAB FIND NEXT FIELD BNOK BDEI090 NOTHING LEFT, INPUT FINISHED B BDEI010 ONE MORE TIME BDEI090 PERF PULL,CBIN5 CMP CBIN0,CBIN0 B BDEI099 BDEI095 PERF PULL,CBIN5 CMP CBIN0,CBIN1 BDEI099 RET PEND END