|
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
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT ERASUP 80.11.04 NJ «, t00=0x0000, t01=0x0004}
0x0022…0036 Head {h00=0x0010, h01=0x0050, text=» DDUM NJDDIV«, t00=0x0000, t01=0x0026}
0x0036…0044 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x003a}
0x0044…005a Head {h00=0x0012, h01=0x0050, text=» ENTRY ERASUP «, t00=0x0000, t01=0x0048}
0x005a…0070 Head {h00=0x0012, h01=0x0050, text=» ENTRY LOLITE «, t00=0x0000, t01=0x005e}
0x0070…008a Head {h00=0x0016, h01=0x0050, text=» EXPROC PUSH,PBIN «, t00=0x0000, t01=0x0074}
0x008a…00a4 Head {h00=0x0016, h01=0x0050, text=» EXPROC PULL,PBIN «, t00=0x0000, t01=0x008e}
0x00a4…00c6 Head {h00=0x001e, h01=0x0050, text=» EXPROC FINDLN,PSTRG,PBIN «, t00=0x0000, t01=0x00a8}
0x00c6…00e8 Head {h00=0x001e, h01=0x0050, text=» EXPROC ATTPCK,PSTRG,PBIN «, t00=0x0000, t01=0x00ca}
0x00e8…010a Head {h00=0x001e, h01=0x0050, text=» EXPROC ATTUNP,PSTRG,PBIN «, t00=0x0000, t01=0x00ec}
0x010a…0120 Head {h00=0x0012, h01=0x0050, text=» EXPROC CRHOME«, t00=0x0000, t01=0x010e}
0x0120…012a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0124}
0x012a…0134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012e}
0x0134…014c Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0000, t01=0x0138}
0x014c…0156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0150}
0x0156…0164 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x015a}
0x0164…0178 Head {h00=0x0010, h01=0x0050, text=»ERASUP PROC «, t00=0x0000, t01=0x0168}
0x0178…0182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017c}
0x0182…01b2 Head {h00=0x002c, h01=0x0050, text=»* THIS PROCEDURE ERASES ALL UNPROTECTED «, t00=0x0000, t01=0x0186}
0x01b2…01d0 Head {h00=0x001a, h01=0x0050, text=»* FIELDS ON THE SCREEN«, t00=0x0001, t01=0x0026}
0x01d0…01da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0044}
0x01da…0204 Head {h00=0x0026, h01=0x0050, text=»* THIS IS ACCOMPLISHED AS FOLLOWS:«, t00=0x0001, t01=0x004e}
0x0204…0232 Head {h00=0x002a, h01=0x0050, text=»* 1. THE FIELDSTART ADDRESS IS FOUND «, t00=0x0001, t01=0x0078}
0x0232…0254 Head {h00=0x001e, h01=0x0050, text=»* 2. THE CURSOR IS MOVED «, t00=0x0001, t01=0x00a6}
0x0254…027c Head {h00=0x0024, h01=0x0050, text=»* 3. THE FIELD LENGTH IS FOUND «, t00=0x0001, t01=0x00c8}
0x027c…029e Head {h00=0x001e, h01=0x0050, text=»* 4. THE SCREEN IS ERASED«, t00=0x0001, t01=0x00f0}
0x029e…02c6 Head {h00=0x0024, h01=0x0050, text=»* 5. THE MODIFIED BIT IS RESET «, t00=0x0001, t01=0x0112}
0x02c6…02ee Head {h00=0x0024, h01=0x0050, text=»* 6. THE CURSOR IS MOVED HOME «, t00=0x0001, t01=0x013a}
0x02ee…02f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0162}
0x02f8…0310 Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN5«, t00=0x0001, t01=0x016c}
0x0310…032a Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,CBIN0 «, t00=0x0001, t01=0x0184}
0x032a…0342 Head {h00=0x0014, h01=0x0050, text=» MOVE TSTR2,ESC «, t00=0x0002, t01=0x000e}
0x0342…036e Head {h00=0x0028, h01=0x0050, text=» XCOPY TBIN5,CBIN0,CBIN2,TSTR2,CBIN0«, t00=0x0002, t01=0x0026}
0x036e…037e Head {h00=0x000c, h01=0x0050, text=»ERAS010 «, t00=0x0002, t01=0x0052}
0x037e…03ac Head {h00=0x002a, h01=0x0050, text=» XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TBIN3«, t00=0x0002, t01=0x0062}
0x03ac…03c4 Head {h00=0x0014, h01=0x0050, text=» ADD TBIN3,CBIN1«, t00=0x0002, t01=0x0090}
0x03c4…0408 Head {h00=0x0040, h01=0x0050, text=» XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN3 MOVE CURSORADDRESS «, t00=0x0002, t01=0x00a8}
0x0408…0434 Head {h00=0x0028, h01=0x0050, text=» CBE TCURPOS,TBIN5,ERAS090 FINISHED?«, t00=0x0002, t01=0x00ec}
0x0434…044c Head {h00=0x0014, h01=0x0050, text=» ADD TBIN3,CBIN2«, t00=0x0002, t01=0x0118}
0x044c…0476 Head {h00=0x0026, h01=0x0050, text=» MOVE TBIN4,TBIN3 SAVE ATT.POINTER«, t00=0x0002, t01=0x0130}
0x0476…049c Head {h00=0x0022, h01=0x0050, text=» ADD TBIN3,CBIN1 POINT AT DATA«, t00=0x0002, t01=0x015a}
0x049c…04b4 Head {h00=0x0014, h01=0x0050, text=» MOVE TP1,CBIN0 «, t00=0x0002, t01=0x0180}
0x04b4…04cc Head {h00=0x0014, h01=0x0050, text=» MOVE TP2,=W'50'«, t00=0x0003, t01=0x0008}
0x04cc…04f2 Head {h00=0x0022, h01=0x0050, text=» PERF FINDLN,TSCRBUF,TBIN3,TP2«, t00=0x0003, t01=0x0020}
0x04f2…0514 Head {h00=0x001e, h01=0x0050, text=» PERF ATTUNP,TSCRBUF,TBIN4«, t00=0x0003, t01=0x0046}
0x0514…053e Head {h00=0x0026, h01=0x0050, text=» TBF TAPROTEC,ERAS015 UNPROTECTED?«, t00=0x0003, t01=0x0068}
0x053e…056c Head {h00=0x002a, h01=0x0050, text=» TBT TAMODIF,ERAS020 PROT + MODIFIED? «, t00=0x0003, t01=0x0092}
0x056c…057c Head {h00=0x000c, h01=0x0050, text=»ERAS015 «, t00=0x0003, t01=0x00c0}
0x057c…05aa Head {h00=0x002a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS POSITION CURSOR«, t00=0x0003, t01=0x00d0}
0x05aa…05c6 Head {h00=0x0018, h01=0x0050, text=» DSC1 DSDY,ERASE,TP1«, t00=0x0003, t01=0x00fe}
0x05c6…05dc Head {h00=0x0012, h01=0x0050, text=» CLEAR TAMODIF«, t00=0x0003, t01=0x011a}
0x05dc…0610 Head {h00=0x0030, h01=0x0050, text=» PERF ATTPCK,TSCRBUF,TBIN4 RESTORE ATTRIBUTE«, t00=0x0003, t01=0x0130}
0x0610…0620 Head {h00=0x000c, h01=0x0050, text=»ERAS020 «, t00=0x0003, t01=0x0164}
0x0620…0636 Head {h00=0x0012, h01=0x0050, text=» ADD TBIN3,TP1«, t00=0x0003, t01=0x0174}
0x0636…0658 Head {h00=0x001e, h01=0x0050, text=» B ERAS010 TRY NEXT FIELD «, t00=0x0003, t01=0x018a}
0x0658…0668 Head {h00=0x000c, h01=0x0050, text=»ERAS090 «, t00=0x0004, t01=0x001c}
0x0668…067c Head {h00=0x0010, h01=0x0050, text=» PERF CRHOME«, t00=0x0004, t01=0x002c}
0x067c…0694 Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN5«, t00=0x0004, t01=0x0040}
0x0694…06a0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0058}
0x06a0…06ae Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0064}
0x06ae…06bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0072}
0x06bc…06d0 Head {h00=0x0010, h01=0x0050, text=»LOLITE PROC «, t00=0x0004, t01=0x0080}
0x06d0…0704 Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE SCANS THE SCREEN BUFFER FOR «, t00=0x0004, t01=0x0094}
0x0704…0736 Head {h00=0x002e, h01=0x0050, text=»* HIGHLIGHTED FIELDS. IF ONE IS FOUND, THE«, t00=0x0004, t01=0x00c8}
0x0736…0756 Head {h00=0x001c, h01=0x0050, text=»* FOLLOWING WILL OCCUR. «, t00=0x0004, t01=0x00fa}
0x0756…0782 Head {h00=0x0028, h01=0x0050, text=»* 1. REWRITE DATA WITH LOW INTENSITY«, t00=0x0004, t01=0x011a}
0x0782…07b0 Head {h00=0x002a, h01=0x0050, text=»* 2. RESET HIGHLIGHT-BIT IN ATTRIBUTE «, t00=0x0004, t01=0x0146}
0x07b0…07d8 Head {h00=0x0024, h01=0x0050, text=»* 3. CLEAR THE FIELD ON LINE 23 «, t00=0x0004, t01=0x0174}
0x07d8…0808 Head {h00=0x002c, h01=0x0050, text=»* 4. SET NON-DISPLAY-BIT FOR THIS FIELD «, t00=0x0005, t01=0x000c}
0x0808…0812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x003c}
0x0812…082a Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN4«, t00=0x0005, t01=0x0046}
0x082a…0844 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,CBIN0 «, t00=0x0005, t01=0x005e}
0x0844…085c Head {h00=0x0014, h01=0x0050, text=» MOVE TSTR2,ESC «, t00=0x0005, t01=0x0078}
0x085c…0888 Head {h00=0x0028, h01=0x0050, text=» XCOPY TBIN4,CBIN0,CBIN2,TSTR2,CBIN0«, t00=0x0005, t01=0x0090}
0x0888…0898 Head {h00=0x000c, h01=0x0050, text=»LOLI010 «, t00=0x0005, t01=0x00bc}
0x0898…08c6 Head {h00=0x002a, h01=0x0050, text=» XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TBIN3«, t00=0x0005, t01=0x00cc}
0x08c6…08de Head {h00=0x0014, h01=0x0050, text=» ADD TBIN3,CBIN1«, t00=0x0005, t01=0x00fa}
0x08de…0922 Head {h00=0x0040, h01=0x0050, text=» XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN3 MOVE CURSORADDRESS «, t00=0x0005, t01=0x0112}
0x0922…094e Head {h00=0x0028, h01=0x0050, text=» CBE TCURPOS,TBIN4,LOLI030 FINISHED?«, t00=0x0005, t01=0x0156}
0x094e…0966 Head {h00=0x0014, h01=0x0050, text=» ADD TBIN3,CBIN2«, t00=0x0005, t01=0x0182}
0x0966…0980 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN1,TBIN3 «, t00=0x0006, t01=0x000a}
0x0980…09b8 Head {h00=0x0034, h01=0x0050, text=» PERF ATTUNP,TSCRBUF,TBIN1 SET UP ATTR.BOOLEANS «, t00=0x0006, t01=0x0024}
0x09b8…09de Head {h00=0x0022, h01=0x0050, text=» ADD TBIN3,CBIN1 POINT AT DATA«, t00=0x0006, t01=0x005c}
0x09de…09f6 Head {h00=0x0014, h01=0x0050, text=» MOVE TP1,CBIN0 «, t00=0x0006, t01=0x0082}
0x09f6…0a10 Head {h00=0x0016, h01=0x0050, text=» MOVE TP2,=W'500' «, t00=0x0006, t01=0x009a}
0x0a10…0a36 Head {h00=0x0022, h01=0x0050, text=» PERF FINDLN,TSCRBUF,TBIN3,TP2«, t00=0x0006, t01=0x00b4}
0x0a36…0a6c Head {h00=0x0032, h01=0x0050, text=» TBF TAHILITE,LOLI020 BRANCH IF LOW INTENSITY «, t00=0x0006, t01=0x00da}
0x0a6c…0a9a Head {h00=0x002a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS POSITION CURSOR«, t00=0x0006, t01=0x0110}
0x0a9a…0ac8 Head {h00=0x002a, h01=0x0050, text=» MOVE TSCBUF,=X'2B2B1E20' CLEAR BUFFER«, t00=0x0006, t01=0x013e}
0x0ac8…0af6 Head {h00=0x002a, h01=0x0050, text=» XCOPY TSCBUF,CBIN3,TP1,TSCRBUF,TBIN3 «, t00=0x0006, t01=0x016c}
0x0af6…0b1e Head {h00=0x0024, h01=0x0050, text=» MOVE DATA FROM SCREEN BUFFER «, t00=0x0007, t01=0x000a}
0x0b1e…0b46 Head {h00=0x0024, h01=0x0050, text=» MOVE TBIN2,TP1 SAVE FIELDLENGTH«, t00=0x0007, t01=0x0032}
0x0b46…0b72 Head {h00=0x0028, h01=0x0050, text=» ADD TP1,CBIN3 ADJUST FOR CTRL CHARS«, t00=0x0007, t01=0x005a}
0x0b72…0ba0 Head {h00=0x002a, h01=0x0050, text=» WRITE DSDY,TSCBUF,TP1 WRITE ON SCREEN«, t00=0x0007, t01=0x0086}
0x0ba0…0bca Head {h00=0x0026, h01=0x0050, text=» CLEAR TAHILITE RESET HIGHLIGHTBIT«, t00=0x0007, t01=0x00b4}
0x0bca…0bec Head {h00=0x001e, h01=0x0050, text=» PERF ATTPCK,TSCRBUF,TBIN1«, t00=0x0007, t01=0x00de}
0x0bec…0c0a Head {h00=0x001a, h01=0x0050, text=» RESTORE ATTRIBUTE «, t00=0x0007, t01=0x0100}
0x0c0a…0c1a Head {h00=0x000c, h01=0x0050, text=»LOLI020 «, t00=0x0007, t01=0x011e}
0x0c1a…0c46 Head {h00=0x0028, h01=0x0050, text=» ADD TBIN3,TBIN2 POINT AT NEXT <ESC>«, t00=0x0007, t01=0x012e}
0x0c46…0c68 Head {h00=0x001e, h01=0x0050, text=» B LOLI010 TRY NEXT FIELD «, t00=0x0007, t01=0x015a}
0x0c68…0c78 Head {h00=0x000c, h01=0x0050, text=»LOLI030 «, t00=0x0007, t01=0x017c}
0x0c78…0ca4 Head {h00=0x0028, h01=0x0050, text=» MOVE TSTR2,=X'1B17' <ESC>!<LINE 23>«, t00=0x0007, t01=0x018c}
0x0ca4…0cbe Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN1,CBIN0 «, t00=0x0008, t01=0x0028}
0x0cbe…0cda Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN2,=W'500' «, t00=0x0008, t01=0x0042}
0x0cda…0d0e Head {h00=0x0030, h01=0x0050, text=» MATCH TSCRBUF,TBIN1,TBIN2,TSTR2,CBIN0,CBIN2«, t00=0x0008, t01=0x005e}
0x0d0e…0d36 Head {h00=0x0024, h01=0x0050, text=» BNOK LOLI090 NO DATA ON LINE 23«, t00=0x0008, t01=0x0092}
0x0d36…0d4e Head {h00=0x0014, h01=0x0050, text=» ADD TBIN1,CBIN1«, t00=0x0008, t01=0x00ba}
0x0d4e…0d7e Head {h00=0x002c, h01=0x0050, text=» XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TBIN1«, t00=0x0008, t01=0x00d2}
0x0d7e…0d9c Head {h00=0x001a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS«, t00=0x0008, t01=0x0102}
0x0d9c…0dc8 Head {h00=0x0028, h01=0x0050, text=» ADD TBIN1,CBIN2 POINT AT ATTRIBUTE «, t00=0x0008, t01=0x0120}
0x0dc8…0dea Head {h00=0x001e, h01=0x0050, text=» PERF ATTUNP,TSCRBUF,TBIN1«, t00=0x0008, t01=0x014c}
0x0dea…0e00 Head {h00=0x0012, h01=0x0050, text=» SET TANODISP «, t00=0x0008, t01=0x016e}
0x0e00…0e22 Head {h00=0x001e, h01=0x0050, text=» PERF ATTPCK,TSCRBUF,TBIN1«, t00=0x0008, t01=0x0184}
0x0e22…0e3a Head {h00=0x0014, h01=0x0050, text=» ADD TBIN1,CBIN1«, t00=0x0009, t01=0x0016}
0x0e3a…0e52 Head {h00=0x0014, h01=0x0050, text=» MOVE TP1,CBIN0 «, t00=0x0009, t01=0x002e}
0x0e52…0e6c Head {h00=0x0016, h01=0x0050, text=» MOVE TP2,=W'500' «, t00=0x0009, t01=0x0046}
0x0e6c…0ea0 Head {h00=0x0030, h01=0x0050, text=» PERF FINDLN,TSCRBUF,TBIN1,TP2 FIELD LENGTH?«, t00=0x0009, t01=0x0060}
0x0ea0…0ed4 Head {h00=0x0030, h01=0x0050, text=» DSC1 DSDY,ERASE,TP1 ERASE A PART OF LINE 23«, t00=0x0009, t01=0x0094}
0x0ed4…0ee4 Head {h00=0x000c, h01=0x0050, text=»LOLI090 «, t00=0x0009, t01=0x00c8}
0x0ee4…0ef8 Head {h00=0x0010, h01=0x0050, text=» PERF CRHOME«, t00=0x0009, t01=0x00d8}
0x0ef8…0f10 Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN4«, t00=0x0009, t01=0x00ec}
0x0f10…0f1c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0104}
0x0f1c…0f2a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0110}
0x0f2a…0f36 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0009, t01=0x011e}
0x0f36…0f3a Head {h00=0x4004, h01=0x0000}
0x0f3a…0f3e 00 09 01 2a ┆ *┆
0x0f3e…0f46 (10, 1, 8) 20 04 00 00 00 0a 00 04 ┆ ┆
0x0f46…0f96 (11, 0, 400) 2a 2a 2a 2a 00 0a 01 68 00 22 00 50 2a 20 52 45 41 44 20 31 2e 20 49 4e 50 55 54 46 49 45 4c 44 20 28 42 52 41 4e 43 48 29 20 00 0b 00 0c 00 2c 00 50 2a 20 54 41 4b 45 20 41 50 50 52 4f 50 52 49 41 54 45 20 41 43 54 49 4f 4e 2c 20 44 45 50 ┆**** h " P* READ 1. INPUTFIELD (BRANCH) , P* TAKE APPROPRIATE ACTION, DEP┆
0x0f96…0fe6 45 4e 44 49 4e 47 20 4f 4e 20 00 0b 00 32 00 24 00 50 2a 20 54 48 45 20 45 4e 44 2d 4f 46 2d 49 54 45 4d 20 4b 45 59 20 44 45 50 52 45 53 53 45 44 20 00 0b 00 62 00 1e 00 50 20 50 45 52 46 20 50 4f 53 43 55 52 2c 3d 57 27 32 32 27 2c 3d 57 ┆ENDING ON 2 $ P* THE END-OF-ITEM KEY DEPRESSED b P PERF POSCUR,=W'22',=W┆
0x0fe6…1036 27 31 30 27 00 0b 00 8a 00 16 00 50 20 4d 4f 56 45 20 54 42 49 4e 31 2c 43 42 49 4e 33 20 00 0b 00 ac 00 32 00 50 20 50 45 52 46 20 4b 42 52 45 41 44 2c 54 4b 42 42 55 46 2c 54 42 49 4e 31 2c 4b 54 41 42 45 4e 51 2c 54 42 49 4e 34 2c 43 42 ┆'10' P MOVE TBIN1,CBIN3 2 P PERF KBREAD,TKBBUF,TBIN1,KTABENQ,TBIN4,CB┆
0x1036…1086 49 4e 31 20 00 0b 00 c6 00 10 00 50 20 42 45 52 52 20 45 4e 51 30 31 30 00 0b 00 fc 00 1c 00 50 20 49 42 20 54 42 49 4e 34 2c 45 4e 51 30 31 31 2c 5c 46 44 45 5c 43 20 00 0b 01 10 00 14 00 50 5c 5c 45 4e 51 30 31 31 2c 5c 42 44 45 5c 43 20 ┆IN1 P BERR ENQ010 P IB TBIN4,ENQ011, FDE C P ENQ011, BDE C ┆
0x1086…10d6 00 0b 01 30 00 14 00 50 5c 5c 45 4e 51 30 31 31 2c 5c 45 4e 51 5c 43 20 00 0b 01 48 00 12 00 50 5c 5c 45 4e 51 30 39 30 2c 5c 46 52 5c 43 00 0b 01 60 00 12 00 50 5c 5c 45 4e 51 30 31 31 2c 5c 54 4c 5c 43 00 0b 01 76 00 14 00 50 5c 5c 45 4e ┆ 0 P ENQ011, ENQ C H P ENQ090, FR C ` P ENQ011, TL C v P EN┆
0x10d6…1126 (12, 0, 400) 51 30 31 31 2c 5c 50 54 52 5c 43 20 00 0b 01 8c 00 16 00 50 5c 5c 45 4e 51 30 31 32 2c 5c 45 4e 54 45 52 5c 43 20 00 0c 00 14 00 12 00 50 5c 5c 45 4e 51 30 31 31 2c 5c 43 55 5c 43 00 0c 00 2e 00 14 00 50 5c 5c 45 4e 51 30 31 32 2c 5c 54 41 ┆Q011, PTR C P ENQ012, ENTER C P ENQ011, CU C . P ENQ012, TA┆
0x1126…1176 42 5c 43 20 00 0c 00 44 00 12 00 50 5c 5c 45 4e 51 30 31 30 5c 43 4c 45 41 52 00 0c 00 5c 00 0a 00 50 45 4e 51 30 31 32 00 0c 00 72 00 16 00 50 20 4d 4f 56 45 20 54 42 49 4e 34 2c 43 42 49 4e 30 20 00 0c 00 80 00 26 00 50 20 50 45 52 46 20 ┆B C D P ENQ010 CLEAR PENQ012 r P MOVE TBIN4,CBIN0 & P PERF ┆
0x1176…11c6 4c 45 41 44 20 43 52 45 41 54 45 20 45 53 43 21 52 4f 57 21 43 4f 4c 21 41 54 54 20 00 0c 00 9a 00 2a 00 50 20 58 43 4f 50 59 20 54 53 43 52 42 55 46 2c 54 42 49 4e 34 2c 43 42 49 4e 34 2c 54 53 54 52 34 2c 43 42 49 4e 30 00 0c 00 c4 00 2e ┆LEAD CREATE ESC!ROW!COL!ATT * P XCOPY TSCRBUF,TBIN4,CBIN4,TSTR4,CBIN0 .┆
0x11c6…1216 00 50 20 41 44 44 20 54 42 49 4e 34 2c 43 42 49 4e 34 20 49 4e 43 52 45 4d 45 4e 54 20 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52 20 00 0c 00 f2 00 2c 00 50 20 58 43 4f 50 59 20 54 53 43 52 42 55 46 2c 54 42 49 4e 34 2c 43 42 49 4e 33 2c 54 ┆ P ADD TBIN4,CBIN4 INCREMENT BUFFER POINTER , P XCOPY TSCRBUF,TBIN4,CBIN3,T┆
0x1216…1266 4b 42 42 55 46 2c 43 42 49 4e 30 20 00 0c 01 24 00 1a 00 50 5c 5c 5c 4d 4f 56 45 20 4b 45 59 45 44 2d 49 4e 20 44 41 54 41 20 00 0c 01 54 00 30 00 50 20 4d 4f 56 45 20 54 53 54 52 33 2c 54 4b 42 42 55 46 20 53 41 56 45 20 46 4f 52 20 50 41 ┆KBBUF,CBIN0 $ P MOVE KEYED-IN DATA T 0 P MOVE TSTR3,TKBBUF SAVE FOR PA┆