|
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: 4710 (0x1266)
Notes: pts_type(SC)
Names: »ERASUP.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »BARCLAY/ERASUP.SC«
└─⟦this⟧ »BARCLAY/ERASUP.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »BARCLAY/ERASUP.SC«
IDENT ERASUP 80.11.04 NJ DDUM NJDDIV PDIV ENTRY ERASUP ENTRY LOLITE EXPROC PUSH,PBIN EXPROC PULL,PBIN EXPROC FINDLN,PSTRG,PBIN EXPROC ATTPCK,PSTRG,PBIN EXPROC ATTUNP,PSTRG,PBIN EXPROC CRHOME * * INCLUDE EQUATE * EJECT ERASUP PROC * * THIS PROCEDURE ERASES ALL UNPROTECTED * FIELDS ON THE SCREEN * * THIS IS ACCOMPLISHED AS FOLLOWS: * 1. THE FIELDSTART ADDRESS IS FOUND * 2. THE CURSOR IS MOVED * 3. THE FIELD LENGTH IS FOUND * 4. THE SCREEN IS ERASED * 5. THE MODIFIED BIT IS RESET * 6. THE CURSOR IS MOVED HOME * PERF PUSH,CBIN5 MOVE TBIN3,CBIN0 MOVE TSTR2,ESC XCOPY TBIN5,CBIN0,CBIN2,TSTR2,CBIN0 ERAS010 XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TBIN3 ADD TBIN3,CBIN1 XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN3 MOVE CURSORADDRESS CBE TCURPOS,TBIN5,ERAS090 FINISHED? ADD TBIN3,CBIN2 MOVE TBIN4,TBIN3 SAVE ATT.POINTER ADD TBIN3,CBIN1 POINT AT DATA MOVE TP1,CBIN0 MOVE TP2,=W'50' PERF FINDLN,TSCRBUF,TBIN3,TP2 PERF ATTUNP,TSCRBUF,TBIN4 TBF TAPROTEC,ERAS015 UNPROTECTED? TBT TAMODIF,ERAS020 PROT + MODIFIED? ERAS015 DSC1 DSDY,POS,TCURPOS POSITION CURSOR DSC1 DSDY,ERASE,TP1 CLEAR TAMODIF PERF ATTPCK,TSCRBUF,TBIN4 RESTORE ATTRIBUTE ERAS020 ADD TBIN3,TP1 B ERAS010 TRY NEXT FIELD ERAS090 PERF CRHOME PERF PULL,CBIN5 RET PEND EJECT LOLITE PROC * THE PROCEDURE SCANS THE SCREEN BUFFER FOR * HIGHLIGHTED FIELDS. IF ONE IS FOUND, THE * FOLLOWING WILL OCCUR. * 1. REWRITE DATA WITH LOW INTENSITY * 2. RESET HIGHLIGHT-BIT IN ATTRIBUTE * 3. CLEAR THE FIELD ON LINE 23 * 4. SET NON-DISPLAY-BIT FOR THIS FIELD * PERF PUSH,CBIN4 MOVE TBIN3,CBIN0 MOVE TSTR2,ESC XCOPY TBIN4,CBIN0,CBIN2,TSTR2,CBIN0 LOLI010 XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TBIN3 ADD TBIN3,CBIN1 XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN3 MOVE CURSORADDRESS CBE TCURPOS,TBIN4,LOLI030 FINISHED? ADD TBIN3,CBIN2 MOVE TBIN1,TBIN3 PERF ATTUNP,TSCRBUF,TBIN1 SET UP ATTR.BOOLEANS ADD TBIN3,CBIN1 POINT AT DATA MOVE TP1,CBIN0 MOVE TP2,=W'500' PERF FINDLN,TSCRBUF,TBIN3,TP2 TBF TAHILITE,LOLI020 BRANCH IF LOW INTENSITY DSC1 DSDY,POS,TCURPOS POSITION CURSOR MOVE TSCBUF,=X'2B2B1E20' CLEAR BUFFER XCOPY TSCBUF,CBIN3,TP1,TSCRBUF,TBIN3 MOVE DATA FROM SCREEN BUFFER MOVE TBIN2,TP1 SAVE FIELDLENGTH ADD TP1,CBIN3 ADJUST FOR CTRL CHARS WRITE DSDY,TSCBUF,TP1 WRITE ON SCREEN CLEAR TAHILITE RESET HIGHLIGHTBIT PERF ATTPCK,TSCRBUF,TBIN1 RESTORE ATTRIBUTE LOLI020 ADD TBIN3,TBIN2 POINT AT NEXT <ESC> B LOLI010 TRY NEXT FIELD LOLI030 MOVE TSTR2,=X'1B17' <ESC>!<LINE 23> MOVE TBIN1,CBIN0 MOVE TBIN2,=W'500' MATCH TSCRBUF,TBIN1,TBIN2,TSTR2,CBIN0,CBIN2 BNOK LOLI090 NO DATA ON LINE 23 ADD TBIN1,CBIN1 XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN1 DSC1 DSDY,POS,TCURPOS ADD TBIN1,CBIN2 POINT AT ATTRIBUTE PERF ATTUNP,TSCRBUF,TBIN1 SET TANODISP PERF ATTPCK,TSCRBUF,TBIN1 ADD TBIN1,CBIN1 MOVE TP1,CBIN0 MOVE TP2,=W'500' PERF FINDLN,TSCRBUF,TBIN1,TP2 FIELD LENGTH? DSC1 DSDY,ERASE,TP1 ERASE A PART OF LINE 23 LOLI090 PERF CRHOME PERF PULL,CBIN4 RET PEND END