|
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: 14186 (0x376a)
Notes: pts_type(SC)
Names: »CURSOR.SC«
└─⟦35fda6e03⟧ Bits:30009701 Philips computer tape "BARCLAY"
└─⟦this⟧ »BARCLAY/CURSOR.SC«
└─⟦this⟧ »BARCLAY/CURSOR.SC«
└─⟦e276fd206⟧ Bits:30009696 Philips computer tape "600413"
└─⟦this⟧ »BARCLAY/CURSOR.SC«
IDENT CURSOR 80.10.29 NJ DDUM NJDDIV * THIS MODULE CONTAINS ALL CURSOR CONTROL ROUTINES: * BACKWARD TABULATION * FORWARD TABULATION * UP * DOWN * HOME * NEWLINE * * PLUS VARIOUS OTHER CURSOR ROUTINES: * CRNEAR - TO FIND THE NEAREST FIELDSTART * POSCUR - TO POSITION THE CURSOR ACCORDING TO ROW AND COLUMN * THROUGHOUT THE MODULE THE PHRASES "R/C" AND * "RRCC" ARE USED. * THEY MEAN "ROW/COLUMN", WHICH IS THE ADRESSING * LOGARITHM FOR THE CURSOR PDIV ENTRY CRUP ENTRY CRDOWN ENTRY CRHOME ENTRY CRBTAB ENTRY CRFTAB ENTRY CRNEAR ENTRY CRNL ENTRY POSCUR EXPROC PUSH,PBIN EXPROC PULL,PBIN INCLUDE EQUATE EJECT POSCUR PROC ROW,COL PBIN ROW,COL * * POSITION THE CURSOR ANYWHERE ON THE SCREEN * AS DEFINED BY ROW AND COLUMN * * CALLING EXAMPLE: * PERF POSCUR,TP1,TP2 * PERF PUSH,CBIN1 MOVE TCURPOS,CBIN0 MOVE TBIN1,ROW XCOPY TCURPOS,CBIN0,CBIN1,TBIN1,CBIN1 FORMAT NOW: RR00 ADD TCURPOS,COL RRCC DSC1 DSDY,POS,TCURPOS PERF PULL,CBIN1 RET PEND EJECT CRHOME PROC * * THE PROCEDURE MOVES THE CURSOR TO * THE FIRST UNPROTECTED FIELD * * PREREQUISITS * TPOINTER - POINTING SOMEWHERE IN BUFFER * * FIELD CONTENTS ON NORMAL EXIT * TPOINTER - POINTS TO FIRST ATTRIBUTECHAR * TCURPOS - POINTS TO FIRST UNPROTECTED FIELD ON SCREEN * * FIELD CONTENTS ON ERROR EXIT * TPOINTER - NOT CHANGED * TCURPOS - NOT CHANGED * PERF PUSH,CBIN2 MOVE TBIN1,TPOINTER SAVE OLD POINTER MOVE TPOINTER,CBIN0 RESET POINTER MOVE TBIN2,=W'84' MATCH TSCRBUF,TPOINTER,TBIN2,ESC,CBIN0,CBIN1 FIND FIRST FIELDDEFINITION BNOK CRH095 ADD TPOINTER,CBIN1 POINT TO FIRST R/C XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE R/C DSC1 DSDY,POS,TCURPOS ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE B CRH099 CRH095 MOVE TPOINTER,TBIN1 RESTORE OLD POINTER CRH099 PERF PULL,CBIN2 RET PEND EJECT CRNL PROC * * THE PROCEDURE MOVES THE CURSOR TO THE * FIRST UNPROTECTED FIELD ON THE FOLLOWING LINE * IF THERE ARE NO UNPROTECTED FIELDS ON THE * NEXT LINE, THE NEXT LINE WILL BE TAKEN ETC * * PREREQUISITS * TPOINTER - POINTS SOMEWHERE IN TSCRBUF * * FIEL CONTENTS ON NORMAL EXIT * TPOINTER - POINTS TO AN ATTRIBUTECHAR * TCURPOS - POINTS TO AN UNPROTECTED FIELD * * PERF PUSH,CBIN6 MOVE TBIN3,TPOINTER SAVE OLD POINTER MOVE TBIN6,CBIN0 XCOPY TBIN6,CBIN1,CBIN1,TCURPOS,CBIN0 COPY CURRENT ROW MOVE TBIN5,CBIN0 CRN020 MOVE TBIN4,=W'84' MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 BNOK CRN095 CURRENT FIELD IS LAST ADD TPOINTER,CBIN1 XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TPOINTER CBE TSTR1,ESC,CRN095 WAS IT LAST FIELD XCOPY TBIN5,CBIN1,CBIN1,TSCRBUF,TPOINTER MOVE ROW CBNG TBIN5,TBIN6,CRN020 DID WE FIND A HIGHER ROW? XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TPOINTER IF SO, MOVE NEW R/C ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE DSC1 DSDY,POS,TCURPOS POSITION CURSOR B CRN099 CRN095 MOVE TPOINTER,TBIN3 RESTORE OLD POINTER CRN099 PERF PULL,CBIN6 RET PEND EJECT CRDOWN PROC * * THE PROCEDURE MOVES THE CURSOR ONE LINE DOWN, * PREFERABLY IN THE SAME POSITION. IF NO UNPROTECTED * FIELDS ARE FOUND IN THIS LINE, THE NEXT LINE WILL BE * TRIED, ETC.. * IF THE CURRENT LINE IS THE LAST ONE, NOTHING WILL HAPPEN * * R/C(L) IS THE STARTINGPOINT FOR LEFT FIELD * R/C(R) IS THE STARTINGPOINT FOR THE RIGHT FIELD * R/C(T) IS THE TARGET, THE IDEAL POSITION * * PREREQUISITS * TPOINTER - POINTING SOMEWHERE IN TSCRBUF * * FIELD CONTENTS ON EXIT * TCURPOS - AS USUAL * * FIELD CONTENTS ON ERROR EXIT * TCURPOS - NOT CHANGED * TPOINTER - NOT CHANGED * * PERF PUSH,CBIN6 MOVE TBIN3,TPOINTER SAVE OLD POINTER MOVE TBIN2,TCURPOS SAVE OLD CURSORPOSITION ADD TBIN2,=X'0100' IDEAL POSITION (= +1 LINE) CRD020 MOVE TBIN1,TBIN2 MOVE TBIN4,=W'84' MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 BNOK CRD095 NOTHING BELOW, NO MOVE ADD TPOINTER,CBIN1 XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TPOINTER CBE TSTR1,ESC,CRD095 WAS IT LAST FIELD XCOPY TBIN5,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE ROW CBL TBIN5,TBIN2,CRD020 STILL ON SAME LINE ? B CRD035 CRD030 MOVE TBIN4,=W'84' MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 NEXT FIELD BNOK CRD095 ADD TPOINTER,CBIN1 POINT AT R CRD035 XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TPOINTER CBE TSTR1,ESC,CRD095 WAS IT LAST FIELD XCOPY TBIN6,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE R/C CBNG TBIN1,TBIN6,CRD040 FOUND R/C(R) MOVE TBIN5,TBIN6 PREPARE FOR NEXT TEST B CRD030 CRD040 CBE TBIN5,TBIN1,CRD050 TAKE R/C(L) CBE TBIN6,TBIN1,CRD060 TAKE R/C(R) PERF CRNEAR,CBIN2 FIND NEAREST FIELD START B CRD070 CRD050 MOVE TCURPOS,TBIN5 LEFT WAS PERFECT B CRD070 CRD060 MOVE TCURPOS,TBIN6 RIGHT WAS PERFECT CRD070 ADD TBIN3,CBIN2 POINT AT ATTRIBUTE DSC1 DSDY,POS,TCURPOS B CRD099 CRD095 MOVE TPOINTER,TBIN3 RESTORE OLD POINTER CRD099 PERF PULL,CBIN6 RET PEND EJECT CRFTAB PROC * * THE PROCEDURE MOVES THE CURSOR TO THE FIELD * JUST AFTER THE CURRENT FIELD. IF THE CURRENT * FIELD IS THE LAST ONE, NOTHING WILL HAPPEN * * PREREQUISITS * TPOINTER - POINTING SOMEWHERE IN TSCRBUF * * FIELD CONTENTS ON EXIT * TCURPOS - AS USUAL * * FIELD CONTENTS ON ERROR EXIT * TCURPOS - NOT CHANGED * TPOINTER - NOT CHANGED * PERF PUSH,CBIN2 MOVE TBIN1,TPOINTER SAVE OLD POINTER MOVE TBIN2,=W'84' SET LENGTH FOR MATCH MATCH TSCRBUF,TPOINTER,TBIN2,ESC,CBIN0,CBIN1 FIND NEXT FIELD BNOK CRFT090 CURRENT FIELD WAS LAST ONE ADD TPOINTER,CBIN1 XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TPOINTER CBE TSTR1,ESC,CRFT090 WAS IT LAST FIELD XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE R/C DSC1 DSDY,POS,TCURPOS ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE B CRFT095 FINISHED CRFT090 MOVE TPOINTER,TBIN1 REESTABLISH PREV POINTER CRFT095 PERF PULL,CBIN2 RET PEND EJECT CRBTAB PROC * * THE PROCEDURE MOVES THE CURSOR TO THE FIELD * JUST BEFORE THE CURRENT FIELD. IF THE CURRENT * FIELD IS THE FIRST ONE, NOTHING WILL HAPPEN. * * PREREQUISITS * TPOINTER - POINTING SOMEWHERE IN TSCRBUF * * FIELD CONTENTS ON EXIT * TCURPOS - AS USUAL * * FIELD CONTENTS ON ERROR EXIT * TCURPOS - NOT CHANGED * TPOINTER - NOT CHANGED * PERF PUSH,CBIN6 MOVE TBIN3,TPOINTER SAVE OLD POINTER MOVE TBIN5,TCURPOS MOVE TPOINTER,CBIN0 STARTING ADDRESS CRBT010 MOVE TBIN4,=W'84' MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 BNOK CRBT020 ADD TPOINTER,CBIN1 MOVE TBIN6,TBIN5 SAVE THE PREVIOUS R/C XCOPY TBIN5,CBIN0,CBIN2,TSCRBUF,TPOINTER SAVE NEW R/C CBNE TBIN5,TCURPOS,CRBT010 NOT YET FOUND CURRENT POS MOVE TCURPOS,TBIN6 REPOSITION ON PREVIOUS R/C DSC1 DSDY,POS,TCURPOS MOVE TPOINTER,TBIN2 ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE B CRBT095 CRBT020 MOVE TPOINTER,TBIN3 RESTORE OLD POINTER CRBT095 PERF PULL,CBIN6 RET PEND EJECT CRUP PROC * * THE PROCEDURE MOVES THE CURSOR UP ONE LINE * IF THERE ARE NO UNPROTECTED FIELDS ON THE * LINE, THE MOVEMENT WILL CONTINUE. * ONCE IT HAS FOUND A LINE WITH UNPROTECTED * FIELDS, THE CURSOR WILL BE POSITIONED AT THE * NEAREST FIELD START * * PREREQUISITS * TPOINTER - POINTING SOMEWHERE IN TSCRBUF * * FIELD CONTENTS ON EXIT * TCURPOS - AS USUAL * * FIELD CONTENTS ON ERROR EXIT * TCURPOS - NOT CHANGED * TPOINTER - NOT CHANGED * * OTHER FIELDS USED * TSTR1 * PERF PUSH,CBIN8 MOVE TBIN1,TCURPOS MOVE TBIN3,TPOINTER SAVE OLD POINTER SUB TBIN1,=X'0100' IDEAL POSITION MOVE TBIN2,TBIN1 MOVE TSTR1,=X'51' DUMMY POS 81 XCOPY TBIN2,CBIN1,CBIN1,TSTR1,CBIN0 TBIN2 IS NOW THE LIMIT MOVE TPOINTER,CBIN0 MOVE TBIN4,=W'84' MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 BNOK CRU095 ADD TPOINTER,CBIN1 XCOPY TBIN5,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE 1. R/C MOVE TBIN7,TPOINTER CRU010 MOVE TBIN4,=W'84' MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 BNOK CRU020 ONLY ONE FIELD, TAKE IT ADD TPOINTER,CBIN1 MOVE TBIN7,TPOINTER XCOPY TBIN6,CBIN0,CBIN2,TSCRBUF,TBIN3 SAVE 2. R/C CBL TBIN2,TBIN6,CRU020 LIMIT REACHED, TAKE (L) CBE TBIN1,TBIN6,CRU030 FITS SNUGLY ON R/C (R) CBG TBIN1,TBIN5,CRU040 FOUND A R/C ON EACH SIDE MOVE TBIN6,TBIN5 NO PLACE FOUND YET MOVE TBIN5,=W'2048' B CRU010 CRU020 TAKE LEFT R/C MOVE TCURPOS,TBIN5 B CRU090 CRU030 TAKE RIGHT R/C MOVE TCURPOS,TBIN6 B CRU090 CRU040 PERF CRNEAR,CBIN1 FIND NEAREST R/C CRU090 MOVE TPOINTER,TBIN7 ADD TPOINTER,CBIN2 B CRU100 CRU095 MOVE TPOINTER,TBIN3 CRU100 DSC1 DSDY,POS,TCURPOS PERF PULL,CBIN8 RET PEND EJECT CRNEAR PROC P PBIN P * * THIS PROCEDURE FINDS THE NEAREST UNPROTECTED FIELD * AS DEFINED BY R/C(L) AND R/C(R), WHERE R/C(L) IS * THE LEFTMOST, AND R/C(R) THE RIGHTMOST. * * IF 'CRUP', P MUST BE 1 * * REL. POS := (RR*80) + CC * * R/C(L) IN TBIN5 * R/C(R) IN TBIN6 * R/C(T) IN TBIN1 * PERF PUSH,CBIN8 MOVE TBIN3,CBIN0 MOVE TBIN7,CBIN0 XCOPY TBIN3,CBIN1,CBIN1,TBIN5,CBIN0 EXTRACT RR(L) XCOPY TBIN7,CBIN1,CBIN1,TBIN6,CBIN0 EXTRACT RR(R) CBE TBIN3,TBIN7,NEA010 IF DIFFERENT ROWS CBE P,CBIN1,NEA080 AND 'CRUP' TAKE R/C(R) B NEA070 ELSE R/C(L) NEA010 * * THIS PROCEDURE FINDS THE NEAREST UNPROTECTED FIELD * AS DEFINED BY R/C(L) AND R/C(R), WHERE R/C(L) IS * THE LEFTMOST, AND R/C(R) THE RIGHTMOST. * * REL. POS := (RR*80) + CC * * R/C(L) IN TBIN5 * R/C(R) IN TBIN6 * R/C(T) IN TBIN1 * MOVE TBIN4,CBIN0 XCOPY TBIN4,CBIN1,CBIN1,TBIN5,CBIN1 MUL TBIN3,CBIN80 ADD TBIN3,TBIN4 REL. POS FOR R/C(L) MOVE TBIN8,CBIN0 XCOPY TBIN8,CBIN1,CBIN1,TBIN6,CBIN1 MUL TBIN7,CBIN80 ADD TBIN7,TBIN8 REL. POS FOR R/C(R) XCOPY TBIN4,CBIN1,CBIN1,TBIN1,CBIN0 SAME FOR R/C(T) XCOPY TBIN8,CBIN1,CBIN1,TBIN1,CBIN1 MUL TBIN4,CBIN80 ADD TBIN4,TBIN8 REL. POS FOR R/C(T) * TBIN1 - R/C(T) * TBIN3 - REL (L) * TBIN4 - REL (T) * TBIN5 - R/C(L) * TBIN6 - R/C(R) * TBIN7 - REL(R) MOVE TBIN2,TBIN3 FIND THE POSITION ADD TBIN2,TBIN7 BETWEEN R/C (L) DIV TBIN2,CBIN2 AND R/C(R) CBL TBIN2,TBIN4,NEA080 WHICH ONE TO TAKE ? NEA070 MOVE TCURPOS,TBIN5 USE (L) B NEA090 NEA080 MOVE TCURPOS,TBIN6 USE (R) NEA090 PERF PULL,CBIN8 RET PEND END
0x0000…0022 (0, 0, 400) Head {h00=0x001e, h01=0x0050, text=» IDENT CURSOR 80.10.29 NJ «, t00=0x0000, t01=0x0004}
0x0022…0036 Head {h00=0x0010, h01=0x0050, text=» DDUM NJDDIV«, t00=0x0000, t01=0x0026}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0046 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0042}
0x0046…004e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x004a}
0x004e…0056 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0052}
0x0056…005e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x005a}
0x005e…009a Head {h00=0x0038, h01=0x0050, text=»* THIS MODULE CONTAINS ALL CURSOR CONTROL ROUTINES: «, t00=0x0000, t01=0x0062}
0x009a…00b8 Head {h00=0x001a, h01=0x0050, text=»* BACKWARD TABULATION «, t00=0x0000, t01=0x009e}
0x00b8…00d4 Head {h00=0x0018, h01=0x0050, text=»* FORWARD TABULATION«, t00=0x0000, t01=0x00bc}
0x00d4…00e0 Head {h00=0x0008, h01=0x0050, text=»* UP«, t00=0x0000, t01=0x00d8}
0x00e0…00ee Head {h00=0x000a, h01=0x0050, text=»* DOWN«, t00=0x0000, t01=0x00e4}
0x00ee…00fc Head {h00=0x000a, h01=0x0050, text=»* HOME«, t00=0x0000, t01=0x00f2}
0x00fc…010e Head {h00=0x000e, h01=0x0050, text=»* NEWLINE «, t00=0x0000, t01=0x0100}
0x010e…0118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0112}
0x0118…0146 Head {h00=0x002a, h01=0x0050, text=»* PLUS VARIOUS OTHER CURSOR ROUTINES: «, t00=0x0000, t01=0x011c}
0x0146…0178 Head {h00=0x002e, h01=0x0050, text=»* CRNEAR - TO FIND THE NEAREST FIELDSTART «, t00=0x0000, t01=0x014a}
0x0178…01be Head {h00=0x0042, h01=0x0050, text=»* POSCUR - TO POSITION THE CURSOR ACCORDING TO ROW AND COLUMN «, t00=0x0000, t01=0x017c}
0x01be…01c6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0032}
0x01c6…01ce Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x003a}
0x01ce…01d6 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0042}
0x01d6…020c Head {h00=0x0032, h01=0x0050, text=»* THROUGHOUT THE MODULE THE PHRASES "R/C" AND «, t00=0x0001, t01=0x004a}
0x020c…0226 Head {h00=0x0016, h01=0x0050, text=»* "RRCC" ARE USED.«, t00=0x0001, t01=0x0080}
0x0226…025e Head {h00=0x0034, h01=0x0050, text=»* THEY MEAN "ROW/COLUMN", WHICH IS THE ADRESSING«, t00=0x0001, t01=0x009a}
0x025e…0280 Head {h00=0x001e, h01=0x0050, text=»* LOGARITHM FOR THE CURSOR«, t00=0x0001, t01=0x00d2}
0x0280…028e Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x00f4}
0x028e…02a2 Head {h00=0x0010, h01=0x0050, text=» ENTRY CRUP «, t00=0x0001, t01=0x0102}
0x02a2…02b8 Head {h00=0x0012, h01=0x0050, text=» ENTRY CRDOWN «, t00=0x0001, t01=0x0116}
0x02b8…02ce Head {h00=0x0012, h01=0x0050, text=» ENTRY CRHOME «, t00=0x0001, t01=0x012c}
0x02ce…02e4 Head {h00=0x0012, h01=0x0050, text=» ENTRY CRBTAB «, t00=0x0001, t01=0x0142}
0x02e4…02fa Head {h00=0x0012, h01=0x0050, text=» ENTRY CRFTAB «, t00=0x0001, t01=0x0158}
0x02fa…0310 Head {h00=0x0012, h01=0x0050, text=» ENTRY CRNEAR «, t00=0x0001, t01=0x016e}
0x0310…0324 Head {h00=0x0010, h01=0x0050, text=» ENTRY CRNL «, t00=0x0001, t01=0x0184}
0x0324…033a Head {h00=0x0012, h01=0x0050, text=» ENTRY POSCUR «, t00=0x0002, t01=0x0008}
0x033a…0354 Head {h00=0x0016, h01=0x0050, text=» EXPROC PUSH,PBIN «, t00=0x0002, t01=0x001e}
0x0354…036e Head {h00=0x0016, h01=0x0050, text=» EXPROC PULL,PBIN «, t00=0x0002, t01=0x0038}
0x036e…0376 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0052}
0x0376…037e Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x005a}
0x037e…0386 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0062}
0x0386…039e Head {h00=0x0014, h01=0x0050, text=» INCLUDE EQUATE «, t00=0x0002, t01=0x006a}
0x039e…03ae Head {h00=0x000c, h01=0x0050, text=» EJECT «, t00=0x0002, t01=0x0082}
0x03ae…03ca Head {h00=0x0018, h01=0x0050, text=»POSCUR PROC ROW,COL «, t00=0x0002, t01=0x0092}
0x03ca…03e0 Head {h00=0x0012, h01=0x0050, text=» PBIN ROW,COL «, t00=0x0002, t01=0x00ae}
0x03e0…03ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c4}
0x03ea…041e Head {h00=0x0030, h01=0x0050, text=»* POSITION THE CURSOR ANYWHERE ON THE SCREEN«, t00=0x0002, t01=0x00ce}
0x041e…0444 Head {h00=0x0022, h01=0x0050, text=»* AS DEFINED BY ROW AND COLUMN«, t00=0x0002, t01=0x0102}
0x0444…044e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0128}
0x044e…0468 Head {h00=0x0016, h01=0x0050, text=»* CALLING EXAMPLE:«, t00=0x0002, t01=0x0132}
0x0468…048a Head {h00=0x001e, h01=0x0050, text=»* PERF POSCUR,TP1,TP2 «, t00=0x0002, t01=0x014c}
0x048a…0494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016e}
0x0494…04ac Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN1«, t00=0x0002, t01=0x0178}
0x04ac…04c8 Head {h00=0x0018, h01=0x0050, text=» MOVE TCURPOS,CBIN0 «, t00=0x0002, t01=0x0190}
0x04c8…04e0 Head {h00=0x0014, h01=0x0050, text=» MOVE TBIN1,ROW «, t00=0x0003, t01=0x001c}
0x04e0…0520 Head {h00=0x003c, h01=0x0050, text=» XCOPY TCURPOS,CBIN0,CBIN1,TBIN1,CBIN1 FORMAT NOW: RR00 «, t00=0x0003, t01=0x0034}
0x0520…054a Head {h00=0x0026, h01=0x0050, text=» ADD TCURPOS,COL RRCC «, t00=0x0003, t01=0x0074}
0x054a…0568 Head {h00=0x001a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS«, t00=0x0003, t01=0x009e}
0x0568…0580 Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN1«, t00=0x0003, t01=0x00bc}
0x0580…058c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x00d4}
0x058c…059a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0003, t01=0x00e0}
0x059a…05a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00ee}
0x05a8…05bc Head {h00=0x0010, h01=0x0050, text=»CRHOME PROC «, t00=0x0003, t01=0x00fc}
0x05bc…05c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0110}
0x05c6…05f2 Head {h00=0x0028, h01=0x0050, text=»* THE PROCEDURE MOVES THE CURSOR TO «, t00=0x0003, t01=0x011a}
0x05f2…0618 Head {h00=0x0022, h01=0x0050, text=»* THE FIRST UNPROTECTED FIELD «, t00=0x0003, t01=0x0146}
0x0618…0622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016c}
0x0622…0638 Head {h00=0x0012, h01=0x0050, text=»* PREREQUISITS«, t00=0x0003, t01=0x0176}
0x0638…066e Head {h00=0x0032, h01=0x0050, text=»* TPOINTER - POINTING SOMEWHERE IN BUFFER «, t00=0x0003, t01=0x018c}
0x066e…0678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0032}
0x0678…06a0 Head {h00=0x0024, h01=0x0050, text=»* FIELD CONTENTS ON NORMAL EXIT «, t00=0x0004, t01=0x003c}
0x06a0…06d6 Head {h00=0x0032, h01=0x0050, text=»* TPOINTER - POINTS TO FIRST ATTRIBUTECHAR«, t00=0x0004, t01=0x0064}
0x06d6…071a Head {h00=0x0040, h01=0x0050, text=»* TCURPOS - POINTS TO FIRST UNPROTECTED FIELD ON SCREEN «, t00=0x0004, t01=0x009a}
0x071a…0724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00de}
0x0724…074a Head {h00=0x0022, h01=0x0050, text=»* FIELD CONTENTS ON ERROR EXIT«, t00=0x0004, t01=0x00e8}
0x074a…076e Head {h00=0x0020, h01=0x0050, text=»* TPOINTER - NOT CHANGED«, t00=0x0004, t01=0x010e}
0x076e…0792 Head {h00=0x0020, h01=0x0050, text=»* TCURPOS - NOT CHANGED «, t00=0x0004, t01=0x0132}
0x0792…079c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0156}
0x079c…07b4 Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN2«, t00=0x0004, t01=0x0160}
0x07b4…07e2 Head {h00=0x002a, h01=0x0050, text=» MOVE TBIN1,TPOINTER SAVE OLD POINTER «, t00=0x0004, t01=0x0178}
0x07e2…080c Head {h00=0x0026, h01=0x0050, text=» MOVE TPOINTER,CBIN0 RESET POINTER«, t00=0x0005, t01=0x0016}
0x080c…0826 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN2,=W'84'«, t00=0x0005, t01=0x0040}
0x0826…085c Head {h00=0x0032, h01=0x0050, text=» MATCH TSCRBUF,TPOINTER,TBIN2,ESC,CBIN0,CBIN1 «, t00=0x0005, t01=0x005a}
0x085c…0882 Head {h00=0x0022, h01=0x0050, text=» FIND FIRST FIELDDEFINITION «, t00=0x0005, t01=0x0090}
0x0882…0896 Head {h00=0x0010, h01=0x0050, text=» BNOK CRH095«, t00=0x0005, t01=0x00b6}
0x0896…08c4 Head {h00=0x002a, h01=0x0050, text=» ADD TPOINTER,CBIN1 POINT TO FIRST R/C«, t00=0x0005, t01=0x00ca}
0x08c4…08f8 Head {h00=0x0030, h01=0x0050, text=» XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TPOINTER «, t00=0x0005, t01=0x00f8}
0x08f8…090c Head {h00=0x0010, h01=0x0050, text=» MOVE R/C «, t00=0x0005, t01=0x012c}
0x090c…092a Head {h00=0x001a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS«, t00=0x0005, t01=0x0140}
0x092a…0958 Head {h00=0x002a, h01=0x0050, text=» ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE«, t00=0x0005, t01=0x015e}
0x0958…096a Head {h00=0x000e, h01=0x0050, text=» B CRH099 «, t00=0x0005, t01=0x018c}
0x096a…0978 Head {h00=0x000a, h01=0x0050, text=»CRH095«, t00=0x0006, t01=0x000e}
0x0978…09a8 Head {h00=0x002c, h01=0x0050, text=» MOVE TPOINTER,TBIN1 RESTORE OLD POINTER«, t00=0x0006, t01=0x001c}
0x09a8…09b6 Head {h00=0x000a, h01=0x0050, text=»CRH099«, t00=0x0006, t01=0x004c}
0x09b6…09ce Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN2«, t00=0x0006, t01=0x005a}
0x09ce…09da Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0072}
0x09da…09e8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x007e}
0x09e8…09f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x008c}
0x09f6…0a08 Head {h00=0x000e, h01=0x0050, text=»CRNL PROC «, t00=0x0006, t01=0x009a}
0x0a08…0a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ac}
0x0a12…0a42 Head {h00=0x002c, h01=0x0050, text=»* THE PROCEDURE MOVES THE CURSOR TO THE «, t00=0x0006, t01=0x00b6}
0x0a42…0a7a Head {h00=0x0034, h01=0x0050, text=»* FIRST UNPROTECTED FIELD ON THE FOLLOWING LINE «, t00=0x0006, t01=0x00e6}
0x0a7a…0aae Head {h00=0x0030, h01=0x0050, text=»* IF THERE ARE NO UNPROTECTED FIELDS ON THE «, t00=0x0006, t01=0x011e}
0x0aae…0ae2 Head {h00=0x0030, h01=0x0050, text=»* NEXT LINE, THE NEXT LINE WILL BE TAKEN ETC«, t00=0x0006, t01=0x0152}
0x0ae2…0aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0186}
0x0aec…0b02 Head {h00=0x0012, h01=0x0050, text=»* PREREQUISITS«, t00=0x0006, t01=0x0190}
0x0b02…0b36 Head {h00=0x0030, h01=0x0050, text=»* TPOINTER - POINTS SOMEWHERE IN TSCRBUF«, t00=0x0007, t01=0x0016}
0x0b36…0b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x004a}
0x0b40…0b66 Head {h00=0x0022, h01=0x0050, text=»* FIEL CONTENTS ON NORMAL EXIT«, t00=0x0007, t01=0x0054}
0x0b66…0b9a Head {h00=0x0030, h01=0x0050, text=»* TPOINTER - POINTS TO AN ATTRIBUTECHAR «, t00=0x0007, t01=0x007a}
0x0b9a…0bd0 Head {h00=0x0032, h01=0x0050, text=»* TCURPOS - POINTS TO AN UNPROTECTED FIELD«, t00=0x0007, t01=0x00ae}
0x0bd0…0bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00e4}
0x0bda…0be4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ee}
0x0be4…0bfc Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN6«, t00=0x0007, t01=0x00f8}
0x0bfc…0c2a Head {h00=0x002a, h01=0x0050, text=» MOVE TBIN3,TPOINTER SAVE OLD POINTER «, t00=0x0007, t01=0x0110}
0x0c2a…0c44 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN6,CBIN0 «, t00=0x0007, t01=0x013e}
0x0c44…0c72 Head {h00=0x002a, h01=0x0050, text=» XCOPY TBIN6,CBIN1,CBIN1,TCURPOS,CBIN0«, t00=0x0007, t01=0x0158}
0x0c72…0c8e Head {h00=0x0018, h01=0x0050, text=» COPY CURRENT ROW «, t00=0x0007, t01=0x0186}
0x0c8e…0ca8 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN5,CBIN0 «, t00=0x0008, t01=0x0012}
0x0ca8…0cb6 Head {h00=0x000a, h01=0x0050, text=»CRN020«, t00=0x0008, t01=0x002c}
0x0cb6…0cd0 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN4,=W'84'«, t00=0x0008, t01=0x003a}
0x0cd0…0d06 Head {h00=0x0032, h01=0x0050, text=» MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 «, t00=0x0008, t01=0x0054}
0x0d06…0d30 Head {h00=0x0026, h01=0x0050, text=» BNOK CRN095 CURRENT FIELD IS LAST«, t00=0x0008, t01=0x008a}
0x0d30…0d4c Head {h00=0x0018, h01=0x0050, text=» ADD TPOINTER,CBIN1 «, t00=0x0008, t01=0x00b4}
0x0d4c…0d7e Head {h00=0x002e, h01=0x0050, text=» XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TPOINTER «, t00=0x0008, t01=0x00d0}
0x0d7e…0dae Head {h00=0x002c, h01=0x0050, text=» CBE TSTR1,ESC,CRN095 WAS IT LAST FIELD «, t00=0x0008, t01=0x0102}
0x0dae…0de0 Head {h00=0x002e, h01=0x0050, text=» XCOPY TBIN5,CBIN1,CBIN1,TSCRBUF,TPOINTER «, t00=0x0008, t01=0x0132}
0x0de0…0df4 Head {h00=0x0010, h01=0x0050, text=» MOVE ROW «, t00=0x0008, t01=0x0164}
0x0df4…0e2e Head {h00=0x0036, h01=0x0050, text=» CBNG TBIN5,TBIN6,CRN020 DID WE FIND A HIGHER ROW?«, t00=0x0008, t01=0x0178}
0x0e2e…0e62 Head {h00=0x0030, h01=0x0050, text=» XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TPOINTER «, t00=0x0009, t01=0x0022}
0x0e62…0e80 Head {h00=0x001a, h01=0x0050, text=» IF SO, MOVE NEW R/C«, t00=0x0009, t01=0x0056}
0x0e80…0eae Head {h00=0x002a, h01=0x0050, text=» ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE«, t00=0x0009, t01=0x0074}
0x0eae…0edc Head {h00=0x002a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS POSITION CURSOR«, t00=0x0009, t01=0x00a2}
0x0edc…0eee Head {h00=0x000e, h01=0x0050, text=» B CRN099 «, t00=0x0009, t01=0x00d0}
0x0eee…0efc Head {h00=0x000a, h01=0x0050, text=»CRN095«, t00=0x0009, t01=0x00e2}
0x0efc…0f2c Head {h00=0x002c, h01=0x0050, text=» MOVE TPOINTER,TBIN3 RESTORE OLD POINTER«, t00=0x0009, t01=0x00f0}
0x0f2c…0f3a Head {h00=0x000a, h01=0x0050, text=»CRN099«, t00=0x0009, t01=0x0120}
0x0f3a…0f52 Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN6«, t00=0x0009, t01=0x012e}
0x0f52…0f5e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0146}
0x0f5e…0f6c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0009, t01=0x0152}
0x0f6c…0f7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0160}
0x0f7a…0f8e Head {h00=0x0010, h01=0x0050, text=»CRDOWN PROC «, t00=0x0009, t01=0x016e}
0x0f8e…0f98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0182}
0x0f98…0fd0 Head {h00=0x0034, h01=0x0050, text=»* THE PROCEDURE MOVES THE CURSOR ONE LINE DOWN, «, t00=0x0009, t01=0x018c}
0x0fd0…100c Head {h00=0x0038, h01=0x0050, text=»* PREFERABLY IN THE SAME POSITION. IF NO UNPROTECTED«, t00=0x000a, t01=0x0034}
0x100c…104a Head {h00=0x003a, h01=0x0050, text=»* FIELDS ARE FOUND IN THIS LINE, THE NEXT LINE WILL BE«, t00=0x000a, t01=0x0070}
0x104a…1060 Head {h00=0x0012, h01=0x0050, text=»* TRIED, ETC..«, t00=0x000a, t01=0x00ae}
0x1060…10a2 Head {h00=0x003e, h01=0x0050, text=»* IF THE CURRENT LINE IS THE LAST ONE, NOTHING WILL HAPPEN«, t00=0x000a, t01=0x00c4}
0x10a2…10ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0106}
0x10ac…10e0 Head {h00=0x0030, h01=0x0050, text=»* R/C(L) IS THE STARTINGPOINT FOR LEFT FIELD«, t00=0x000a, t01=0x0110}
0x10e0…111a Head {h00=0x0036, h01=0x0050, text=»* R/C(R) IS THE STARTINGPOINT FOR THE RIGHT FIELD «, t00=0x000a, t01=0x0144}
0x111a…114c Head {h00=0x002e, h01=0x0050, text=»* R/C(T) IS THE TARGET, THE IDEAL POSITION«, t00=0x000a, t01=0x017e}
0x114c…1156 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0020}
0x1156…116c Head {h00=0x0012, h01=0x0050, text=»* PREREQUISITS«, t00=0x000b, t01=0x002a}
0x116c…11a2 Head {h00=0x0032, h01=0x0050, text=»* TPOINTER - POINTING SOMEWHERE IN TSCRBUF«, t00=0x000b, t01=0x0040}
0x11a2…11ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0076}
0x11ac…11cc Head {h00=0x001c, h01=0x0050, text=»* FIELD CONTENTS ON EXIT«, t00=0x000b, t01=0x0080}
0x11cc…11ec Head {h00=0x001c, h01=0x0050, text=»* TCURPOS - AS USUAL«, t00=0x000b, t01=0x00a0}
0x11ec…11f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c0}
0x11f6…121c Head {h00=0x0022, h01=0x0050, text=»* FIELD CONTENTS ON ERROR EXIT«, t00=0x000b, t01=0x00ca}
0x121c…1240 Head {h00=0x0020, h01=0x0050, text=»* TCURPOS - NOT CHANGED «, t00=0x000b, t01=0x00f0}
0x1240…1264 Head {h00=0x0020, h01=0x0050, text=»* TPOINTER - NOT CHANGED«, t00=0x000b, t01=0x0114}
0x1264…126e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0138}
0x126e…1278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0142}
0x1278…1290 Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN6«, t00=0x000b, t01=0x014c}
0x1290…12be Head {h00=0x002a, h01=0x0050, text=» MOVE TBIN3,TPOINTER SAVE OLD POINTER«, t00=0x000b, t01=0x0164}
0x12be…12f2 (12, 0, 400) Head {h00=0x0030, h01=0x0050, text=» MOVE TBIN2,TCURPOS SAVE OLD CURSORPOSITION «, t00=0x000c, t01=0x0004}
0x12f2…1328 Head {h00=0x0032, h01=0x0050, text=» ADD TBIN2,=X'0100' IDEAL POSITION (= +1 LINE)«, t00=0x000c, t01=0x0038}
0x1328…1336 Head {h00=0x000a, h01=0x0050, text=»CRD020«, t00=0x000c, t01=0x006e}
0x1336…1350 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN1,TBIN2 «, t00=0x000c, t01=0x007c}
0x1350…136a Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN4,=W'84'«, t00=0x000c, t01=0x0096}
0x136a…13a0 Head {h00=0x0032, h01=0x0050, text=» MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 «, t00=0x000c, t01=0x00b0}
0x13a0…13cc Head {h00=0x0028, h01=0x0050, text=» BNOK CRD095 NOTHING BELOW, NO MOVE «, t00=0x000c, t01=0x00e6}
0x13cc…13e8 Head {h00=0x0018, h01=0x0050, text=» ADD TPOINTER,CBIN1 «, t00=0x000c, t01=0x0112}
0x13e8…141a Head {h00=0x002e, h01=0x0050, text=» XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TPOINTER «, t00=0x000c, t01=0x012e}
0x141a…144a Head {h00=0x002c, h01=0x0050, text=» CBE TSTR1,ESC,CRD095 WAS IT LAST FIELD «, t00=0x000c, t01=0x0160}
0x144a…1486 Head {h00=0x0038, h01=0x0050, text=» XCOPY TBIN5,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE ROW«, t00=0x000c, t01=0x0190}
0x1486…14ba Head {h00=0x0030, h01=0x0050, text=» CBL TBIN5,TBIN2,CRD020 STILL ON SAME LINE ?«, t00=0x000d, t01=0x003c}
0x14ba…14cc Head {h00=0x000e, h01=0x0050, text=» B CRD035 «, t00=0x000d, t01=0x0070}
0x14cc…14da Head {h00=0x000a, h01=0x0050, text=»CRD030«, t00=0x000d, t01=0x0082}
0x14da…14f4 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN4,=W'84'«, t00=0x000d, t01=0x0090}
0x14f4…1536 Head {h00=0x003e, h01=0x0050, text=» MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 NEXT FIELD«, t00=0x000d, t01=0x00aa}
0x1536…154a Head {h00=0x0010, h01=0x0050, text=» BNOK CRD095«, t00=0x000d, t01=0x00ec}
0x154a…1570 Head {h00=0x0022, h01=0x0050, text=» ADD TPOINTER,CBIN1 POINT AT R«, t00=0x000d, t01=0x0100}
0x1570…157e Head {h00=0x000a, h01=0x0050, text=»CRD035«, t00=0x000d, t01=0x0126}
0x157e…15b0 Head {h00=0x002e, h01=0x0050, text=» XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TPOINTER «, t00=0x000d, t01=0x0134}
0x15b0…15e0 Head {h00=0x002c, h01=0x0050, text=» CBE TSTR1,ESC,CRD095 WAS IT LAST FIELD «, t00=0x000d, t01=0x0166}
0x15e0…161c Head {h00=0x0038, h01=0x0050, text=» XCOPY TBIN6,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE R/C«, t00=0x000e, t01=0x0008}
0x161c…164a Head {h00=0x002a, h01=0x0050, text=» CBNG TBIN1,TBIN6,CRD040 FOUND R/C(R) «, t00=0x000e, t01=0x0044}
0x164a…167a Head {h00=0x002c, h01=0x0050, text=» MOVE TBIN5,TBIN6 PREPARE FOR NEXT TEST «, t00=0x000e, t01=0x0072}
0x167a…168c Head {h00=0x000e, h01=0x0050, text=» B CRD030 «, t00=0x000e, t01=0x00a2}
0x168c…169a Head {h00=0x000a, h01=0x0050, text=»CRD040«, t00=0x000e, t01=0x00b4}
0x169a…16c6 Head {h00=0x0028, h01=0x0050, text=» CBE TBIN5,TBIN1,CRD050 TAKE R/C(L) «, t00=0x000e, t01=0x00c2}
0x16c6…16f2 Head {h00=0x0028, h01=0x0050, text=» CBE TBIN6,TBIN1,CRD060 TAKE R/C(R) «, t00=0x000e, t01=0x00ee}
0x16f2…1726 Head {h00=0x0030, h01=0x0050, text=» PERF CRNEAR,CBIN2 FIND NEAREST FIELD START «, t00=0x000e, t01=0x011a}
0x1726…1738 Head {h00=0x000e, h01=0x0050, text=» B CRD070 «, t00=0x000e, t01=0x014e}
0x1738…1746 Head {h00=0x000a, h01=0x0050, text=»CRD050«, t00=0x000e, t01=0x0160}
0x1746…1772 Head {h00=0x0028, h01=0x0050, text=» MOVE TCURPOS,TBIN5 LEFT WAS PERFECT«, t00=0x000e, t01=0x016e}
0x1772…1784 Head {h00=0x000e, h01=0x0050, text=» B CRD070 «, t00=0x000f, t01=0x000a}
0x1784…1792 Head {h00=0x000a, h01=0x0050, text=»CRD060«, t00=0x000f, t01=0x001c}
0x1792…17c0 Head {h00=0x002a, h01=0x0050, text=» MOVE TCURPOS,TBIN6 RIGHT WAS PERFECT «, t00=0x000f, t01=0x002a}
0x17c0…17ce Head {h00=0x000a, h01=0x0050, text=»CRD070«, t00=0x000f, t01=0x0058}
0x17ce…17fa Head {h00=0x0028, h01=0x0050, text=» ADD TBIN3,CBIN2 POINT AT ATTRIBUTE «, t00=0x000f, t01=0x0066}
0x17fa…1818 Head {h00=0x001a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS«, t00=0x000f, t01=0x0092}
0x1818…182a Head {h00=0x000e, h01=0x0050, text=» B CRD099 «, t00=0x000f, t01=0x00b0}
0x182a…1838 Head {h00=0x000a, h01=0x0050, text=»CRD095«, t00=0x000f, t01=0x00c2}
0x1838…1868 Head {h00=0x002c, h01=0x0050, text=» MOVE TPOINTER,TBIN3 RESTORE OLD POINTER«, t00=0x000f, t01=0x00d0}
0x1868…1876 Head {h00=0x000a, h01=0x0050, text=»CRD099«, t00=0x000f, t01=0x0100}
0x1876…188e Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN6«, t00=0x000f, t01=0x010e}
0x188e…189a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x0126}
0x189a…18a8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x0132}
0x18a8…18b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0140}
0x18b6…18ca Head {h00=0x0010, h01=0x0050, text=»CRFTAB PROC «, t00=0x000f, t01=0x014e}
0x18ca…18d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0162}
0x18d4…190a Head {h00=0x0032, h01=0x0050, text=»* THE PROCEDURE MOVES THE CURSOR TO THE FIELD «, t00=0x000f, t01=0x016c}
0x190a…1940 Head {h00=0x0032, h01=0x0050, text=»* JUST AFTER THE CURRENT FIELD. IF THE CURRENT«, t00=0x0010, t01=0x0012}
0x1940…1974 Head {h00=0x0030, h01=0x0050, text=»* FIELD IS THE LAST ONE, NOTHING WILL HAPPEN«, t00=0x0010, t01=0x0048}
0x1974…197e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007c}
0x197e…1994 Head {h00=0x0012, h01=0x0050, text=»* PREREQUISITS«, t00=0x0010, t01=0x0086}
0x1994…19ca Head {h00=0x0032, h01=0x0050, text=»* TPOINTER - POINTING SOMEWHERE IN TSCRBUF«, t00=0x0010, t01=0x009c}
0x19ca…19d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d2}
0x19d4…19f4 Head {h00=0x001c, h01=0x0050, text=»* FIELD CONTENTS ON EXIT«, t00=0x0010, t01=0x00dc}
0x19f4…1a14 Head {h00=0x001c, h01=0x0050, text=»* TCURPOS - AS USUAL«, t00=0x0010, t01=0x00fc}
0x1a14…1a1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x011c}
0x1a1e…1a44 Head {h00=0x0022, h01=0x0050, text=»* FIELD CONTENTS ON ERROR EXIT«, t00=0x0010, t01=0x0126}
0x1a44…1a68 Head {h00=0x0020, h01=0x0050, text=»* TCURPOS - NOT CHANGED «, t00=0x0010, t01=0x014c}
0x1a68…1a8c Head {h00=0x0020, h01=0x0050, text=»* TPOINTER - NOT CHANGED«, t00=0x0010, t01=0x0170}
0x1a8c…1a96 (17, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0004}
0x1a96…1aae Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN2«, t00=0x0011, t01=0x000e}
0x1aae…1adc Head {h00=0x002a, h01=0x0050, text=» MOVE TBIN1,TPOINTER SAVE OLD POINTER «, t00=0x0011, t01=0x0026}
0x1adc…1b0c Head {h00=0x002c, h01=0x0050, text=» MOVE TBIN2,=W'84' SET LENGTH FOR MATCH «, t00=0x0011, t01=0x0054}
0x1b0c…1b42 Head {h00=0x0032, h01=0x0050, text=» MATCH TSCRBUF,TPOINTER,TBIN2,ESC,CBIN0,CBIN1 «, t00=0x0011, t01=0x0084}
0x1b42…1b5c Head {h00=0x0016, h01=0x0050, text=» FIND NEXT FIELD«, t00=0x0011, t01=0x00ba}
0x1b5c…1b8c Head {h00=0x002c, h01=0x0050, text=» BNOK CRFT090 CURRENT FIELD WAS LAST ONE«, t00=0x0011, t01=0x00d4}
0x1b8c…1ba8 Head {h00=0x0018, h01=0x0050, text=» ADD TPOINTER,CBIN1 «, t00=0x0011, t01=0x0104}
0x1ba8…1bda Head {h00=0x002e, h01=0x0050, text=» XCOPY TSTR1,CBIN0,CBIN1,TSCRBUF,TPOINTER «, t00=0x0011, t01=0x0120}
0x1bda…1c0a Head {h00=0x002c, h01=0x0050, text=» CBE TSTR1,ESC,CRFT090 WAS IT LAST FIELD«, t00=0x0011, t01=0x0152}
0x1c0a…1c3e Head {h00=0x0030, h01=0x0050, text=» XCOPY TCURPOS,CBIN0,CBIN2,TSCRBUF,TPOINTER «, t00=0x0011, t01=0x0182}
0x1c3e…1c52 Head {h00=0x0010, h01=0x0050, text=» MOVE R/C «, t00=0x0012, t01=0x0026}
0x1c52…1c70 Head {h00=0x001a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS«, t00=0x0012, t01=0x003a}
0x1c70…1c9e Head {h00=0x002a, h01=0x0050, text=» ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE«, t00=0x0012, t01=0x0058}
0x1c9e…1cba Head {h00=0x0018, h01=0x0050, text=» B CRFT095 FINISHED «, t00=0x0012, t01=0x0086}
0x1cba…1cca Head {h00=0x000c, h01=0x0050, text=»CRFT090 «, t00=0x0012, t01=0x00a2}
0x1cca…1d00 Head {h00=0x0032, h01=0x0050, text=» MOVE TPOINTER,TBIN1 REESTABLISH PREV POINTER «, t00=0x0012, t01=0x00b2}
0x1d00…1d10 Head {h00=0x000c, h01=0x0050, text=»CRFT095 «, t00=0x0012, t01=0x00e8}
0x1d10…1d28 Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN2«, t00=0x0012, t01=0x00f8}
0x1d28…1d34 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0012, t01=0x0110}
0x1d34…1d42 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x011c}
0x1d42…1d50 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x012a}
0x1d50…1d64 Head {h00=0x0010, h01=0x0050, text=»CRBTAB PROC «, t00=0x0012, t01=0x0138}
0x1d64…1d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014c}
0x1d6e…1da4 Head {h00=0x0032, h01=0x0050, text=»* THE PROCEDURE MOVES THE CURSOR TO THE FIELD «, t00=0x0012, t01=0x0156}
0x1da4…1ddc Head {h00=0x0034, h01=0x0050, text=»* JUST BEFORE THE CURRENT FIELD. IF THE CURRENT «, t00=0x0012, t01=0x018c}
0x1ddc…1e12 Head {h00=0x0032, h01=0x0050, text=»* FIELD IS THE FIRST ONE, NOTHING WILL HAPPEN.«, t00=0x0013, t01=0x0034}
0x1e12…1e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x006a}
0x1e1c…1e32 Head {h00=0x0012, h01=0x0050, text=»* PREREQUISITS«, t00=0x0013, t01=0x0074}
0x1e32…1e68 Head {h00=0x0032, h01=0x0050, text=»* TPOINTER - POINTING SOMEWHERE IN TSCRBUF«, t00=0x0013, t01=0x008a}
0x1e68…1e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c0}
0x1e72…1e92 Head {h00=0x001c, h01=0x0050, text=»* FIELD CONTENTS ON EXIT«, t00=0x0013, t01=0x00ca}
0x1e92…1eb2 Head {h00=0x001c, h01=0x0050, text=»* TCURPOS - AS USUAL«, t00=0x0013, t01=0x00ea}
0x1eb2…1ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x010a}
0x1ebc…1ee2 Head {h00=0x0022, h01=0x0050, text=»* FIELD CONTENTS ON ERROR EXIT«, t00=0x0013, t01=0x0114}
0x1ee2…1f06 Head {h00=0x0020, h01=0x0050, text=»* TCURPOS - NOT CHANGED «, t00=0x0013, t01=0x013a}
0x1f06…1f2a Head {h00=0x0020, h01=0x0050, text=»* TPOINTER - NOT CHANGED«, t00=0x0013, t01=0x015e}
0x1f2a…1f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0182}
0x1f34…1f4c Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN6«, t00=0x0013, t01=0x018c}
0x1f4c…1f54 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x0014}
0x1f54…1f82 Head {h00=0x002a, h01=0x0050, text=» MOVE TBIN3,TPOINTER SAVE OLD POINTER «, t00=0x0014, t01=0x001c}
0x1f82…1f9e Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN5,TCURPOS «, t00=0x0014, t01=0x004a}
0x1f9e…1fcc Head {h00=0x002a, h01=0x0050, text=» MOVE TPOINTER,CBIN0 STARTING ADDRESS «, t00=0x0014, t01=0x0066}
0x1fcc…1fdc Head {h00=0x000c, h01=0x0050, text=»CRBT010 «, t00=0x0014, t01=0x0094}
0x1fdc…1ff6 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN4,=W'84'«, t00=0x0014, t01=0x00a4}
0x1ff6…202c Head {h00=0x0032, h01=0x0050, text=» MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 «, t00=0x0014, t01=0x00be}
0x202c…2042 Head {h00=0x0012, h01=0x0050, text=» BNOK CRBT020 «, t00=0x0014, t01=0x00f4}
0x2042…205e Head {h00=0x0018, h01=0x0050, text=» ADD TPOINTER,CBIN1 «, t00=0x0014, t01=0x010a}
0x205e…208e Head {h00=0x002c, h01=0x0050, text=» MOVE TBIN6,TBIN5 SAVE THE PREVIOUS R/C «, t00=0x0014, t01=0x0126}
0x208e…20c0 Head {h00=0x002e, h01=0x0050, text=» XCOPY TBIN5,CBIN0,CBIN2,TSCRBUF,TPOINTER «, t00=0x0014, t01=0x0156}
0x20c0…20d8 Head {h00=0x0014, h01=0x0050, text=» SAVE NEW R/C «, t00=0x0014, t01=0x0188}
0x20d8…2116 Head {h00=0x003a, h01=0x0050, text=» CBNE TBIN5,TCURPOS,CRBT010 NOT YET FOUND CURRENT POS «, t00=0x0015, t01=0x0010}
0x2116…214c Head {h00=0x0032, h01=0x0050, text=» MOVE TCURPOS,TBIN6 REPOSITION ON PREVIOUS R/C«, t00=0x0015, t01=0x004e}
0x214c…216a Head {h00=0x001a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS«, t00=0x0015, t01=0x0084}
0x216a…2186 Head {h00=0x0018, h01=0x0050, text=» MOVE TPOINTER,TBIN2«, t00=0x0015, t01=0x00a2}
0x2186…21b4 Head {h00=0x002a, h01=0x0050, text=» ADD TPOINTER,CBIN2 POINT TO ATTRIBUTE«, t00=0x0015, t01=0x00be}
0x21b4…21c6 Head {h00=0x000e, h01=0x0050, text=» B CRBT095«, t00=0x0015, t01=0x00ec}
0x21c6…21d6 Head {h00=0x000c, h01=0x0050, text=»CRBT020 «, t00=0x0015, t01=0x00fe}
0x21d6…2206 Head {h00=0x002c, h01=0x0050, text=» MOVE TPOINTER,TBIN3 RESTORE OLD POINTER«, t00=0x0015, t01=0x010e}
0x2206…2216 Head {h00=0x000c, h01=0x0050, text=»CRBT095 «, t00=0x0015, t01=0x013e}
0x2216…222e Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN6«, t00=0x0015, t01=0x014e}
0x222e…223a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x0166}
0x223a…2248 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x0172}
0x2248…2256 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0180}
0x2256…2268 Head {h00=0x000e, h01=0x0050, text=»CRUP PROC «, t00=0x0015, t01=0x018e}
0x2268…2272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0010}
0x2272…22a6 Head {h00=0x0030, h01=0x0050, text=»* THE PROCEDURE MOVES THE CURSOR UP ONE LINE«, t00=0x0016, t01=0x001a}
0x22a6…22da Head {h00=0x0030, h01=0x0050, text=»* IF THERE ARE NO UNPROTECTED FIELDS ON THE «, t00=0x0016, t01=0x004e}
0x22da…2306 Head {h00=0x0028, h01=0x0050, text=»* LINE, THE MOVEMENT WILL CONTINUE. «, t00=0x0016, t01=0x0082}
0x2306…233a Head {h00=0x0030, h01=0x0050, text=»* ONCE IT HAS FOUND A LINE WITH UNPROTECTED «, t00=0x0016, t01=0x00ae}
0x233a…2370 Head {h00=0x0032, h01=0x0050, text=»* FIELDS, THE CURSOR WILL BE POSITIONED AT THE«, t00=0x0016, t01=0x00e2}
0x2370…238e Head {h00=0x001a, h01=0x0050, text=»* NEAREST FIELD START «, t00=0x0016, t01=0x0118}
0x238e…2398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0136}
0x2398…23ae Head {h00=0x0012, h01=0x0050, text=»* PREREQUISITS«, t00=0x0016, t01=0x0140}
0x23ae…23e4 Head {h00=0x0032, h01=0x0050, text=»* TPOINTER - POINTING SOMEWHERE IN TSCRBUF«, t00=0x0016, t01=0x0156}
0x23e4…23ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018c}
0x23ee…240e Head {h00=0x001c, h01=0x0050, text=»* FIELD CONTENTS ON EXIT«, t00=0x0017, t01=0x0008}
0x240e…242e Head {h00=0x001c, h01=0x0050, text=»* TCURPOS - AS USUAL«, t00=0x0017, t01=0x0028}
0x242e…2438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0048}
0x2438…245e Head {h00=0x0022, h01=0x0050, text=»* FIELD CONTENTS ON ERROR EXIT«, t00=0x0017, t01=0x0052}
0x245e…2482 Head {h00=0x0020, h01=0x0050, text=»* TCURPOS - NOT CHANGED «, t00=0x0017, t01=0x0078}
0x2482…24a6 Head {h00=0x0020, h01=0x0050, text=»* TPOINTER - NOT CHANGED«, t00=0x0017, t01=0x009c}
0x24a6…24b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c0}
0x24b0…24cc Head {h00=0x0018, h01=0x0050, text=»* OTHER FIELDS USED «, t00=0x0017, t01=0x00ca}
0x24cc…24e0 Head {h00=0x0010, h01=0x0050, text=»* TSTR1 «, t00=0x0017, t01=0x00e6}
0x24e0…24ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00fa}
0x24ea…2502 Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN8«, t00=0x0017, t01=0x0104}
0x2502…251e Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN1,TCURPOS «, t00=0x0017, t01=0x011c}
0x251e…254c Head {h00=0x002a, h01=0x0050, text=» MOVE TBIN3,TPOINTER SAVE OLD POINTER «, t00=0x0017, t01=0x0138}
0x254c…2576 Head {h00=0x0026, h01=0x0050, text=» SUB TBIN1,=X'0100' IDEAL POSITION«, t00=0x0017, t01=0x0166}
0x2576…2590 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN2,TBIN1 «, t00=0x0017, t01=0x0190}
0x2590…25b8 Head {h00=0x0024, h01=0x0050, text=» MOVE TSTR1,=X'51' DUMMY POS 81 «, t00=0x0018, t01=0x001a}
0x25b8…25fe Head {h00=0x0042, h01=0x0050, text=» XCOPY TBIN2,CBIN1,CBIN1,TSTR1,CBIN0 TBIN2 IS NOW THE LIMIT«, t00=0x0018, t01=0x0042}
0x25fe…261a Head {h00=0x0018, h01=0x0050, text=» MOVE TPOINTER,CBIN0«, t00=0x0018, t01=0x0088}
0x261a…2634 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN4,=W'84'«, t00=0x0018, t01=0x00a4}
0x2634…266a Head {h00=0x0032, h01=0x0050, text=» MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 «, t00=0x0018, t01=0x00be}
0x266a…267e Head {h00=0x0010, h01=0x0050, text=» BNOK CRU095«, t00=0x0018, t01=0x00f4}
0x267e…269a Head {h00=0x0018, h01=0x0050, text=» ADD TPOINTER,CBIN1 «, t00=0x0018, t01=0x0108}
0x269a…26da Head {h00=0x003c, h01=0x0050, text=» XCOPY TBIN5,CBIN0,CBIN2,TSCRBUF,TPOINTER MOVE 1. R/C«, t00=0x0018, t01=0x0124}
0x26da…26f6 Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN7,TPOINTER«, t00=0x0018, t01=0x0164}
0x26f6…2704 Head {h00=0x000a, h01=0x0050, text=»CRU010«, t00=0x0018, t01=0x0180}
0x2704…271e Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN4,=W'84'«, t00=0x0018, t01=0x018e}
0x271e…2754 Head {h00=0x0032, h01=0x0050, text=» MATCH TSCRBUF,TPOINTER,TBIN4,ESC,CBIN0,CBIN1 «, t00=0x0019, t01=0x0018}
0x2754…2780 Head {h00=0x0028, h01=0x0050, text=» BNOK CRU020 ONLY ONE FIELD, TAKE IT«, t00=0x0019, t01=0x004e}
0x2780…279c Head {h00=0x0018, h01=0x0050, text=» ADD TPOINTER,CBIN1 «, t00=0x0019, t01=0x007a}
0x279c…27b8 Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN7,TPOINTER«, t00=0x0019, t01=0x0096}
0x27b8…27f6 Head {h00=0x003a, h01=0x0050, text=» XCOPY TBIN6,CBIN0,CBIN2,TSCRBUF,TBIN3 SAVE 2. R/C «, t00=0x0019, t01=0x00b2}
0x27f6…282e Head {h00=0x0034, h01=0x0050, text=» CBL TBIN2,TBIN6,CRU020 LIMIT REACHED, TAKE (L) «, t00=0x0019, t01=0x00f0}
0x282e…2864 Head {h00=0x0032, h01=0x0050, text=» CBE TBIN1,TBIN6,CRU030 FITS SNUGLY ON R/C (R)«, t00=0x0019, t01=0x0128}
0x2864…289c Head {h00=0x0034, h01=0x0050, text=» CBG TBIN1,TBIN5,CRU040 FOUND A R/C ON EACH SIDE«, t00=0x0019, t01=0x015e}
0x289c…28c8 Head {h00=0x0028, h01=0x0050, text=» MOVE TBIN6,TBIN5 NO PLACE FOUND YET«, t00=0x001a, t01=0x0008}
0x28c8…28e4 Head {h00=0x0018, h01=0x0050, text=» MOVE TBIN5,=W'2048'«, t00=0x001a, t01=0x0034}
0x28e4…28f6 Head {h00=0x000e, h01=0x0050, text=» B CRU010 «, t00=0x001a, t01=0x0050}
0x28f6…2914 Head {h00=0x001a, h01=0x0050, text=»CRU020 TAKE LEFT R/C«, t00=0x001a, t01=0x0062}
0x2914…2930 Head {h00=0x0018, h01=0x0050, text=» MOVE TCURPOS,TBIN5 «, t00=0x001a, t01=0x0080}
0x2930…2942 Head {h00=0x000e, h01=0x0050, text=» B CRU090 «, t00=0x001a, t01=0x009c}
0x2942…2962 Head {h00=0x001c, h01=0x0050, text=»CRU030 TAKE RIGHT R/C «, t00=0x001a, t01=0x00ae}
0x2962…297e Head {h00=0x0018, h01=0x0050, text=» MOVE TCURPOS,TBIN6 «, t00=0x001a, t01=0x00ce}
0x297e…2990 Head {h00=0x000e, h01=0x0050, text=» B CRU090 «, t00=0x001a, t01=0x00ea}
0x2990…299e Head {h00=0x000a, h01=0x0050, text=»CRU040«, t00=0x001a, t01=0x00fc}
0x299e…29ca Head {h00=0x0028, h01=0x0050, text=» PERF CRNEAR,CBIN1 FIND NEAREST R/C «, t00=0x001a, t01=0x010a}
0x29ca…29d8 Head {h00=0x000a, h01=0x0050, text=»CRU090«, t00=0x001a, t01=0x0136}
0x29d8…29f4 Head {h00=0x0018, h01=0x0050, text=» MOVE TPOINTER,TBIN7«, t00=0x001a, t01=0x0144}
0x29f4…2a10 Head {h00=0x0018, h01=0x0050, text=» ADD TPOINTER,CBIN2 «, t00=0x001a, t01=0x0160}
0x2a10…2a22 Head {h00=0x000e, h01=0x0050, text=» B CRU100 «, t00=0x001a, t01=0x017c}
0x2a22…2a30 Head {h00=0x000a, h01=0x0050, text=»CRU095«, t00=0x001a, t01=0x018e}
0x2a30…2a4c Head {h00=0x0018, h01=0x0050, text=» MOVE TPOINTER,TBIN3«, t00=0x001b, t01=0x000c}
0x2a4c…2a5a Head {h00=0x000a, h01=0x0050, text=»CRU100«, t00=0x001b, t01=0x0028}
0x2a5a…2a78 Head {h00=0x001a, h01=0x0050, text=» DSC1 DSDY,POS,TCURPOS«, t00=0x001b, t01=0x0036}
0x2a78…2a90 Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN8«, t00=0x001b, t01=0x0054}
0x2a90…2a9c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x006c}
0x2a9c…2aaa Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x0078}
0x2aaa…2ab8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0086}
0x2ab8…2ace Head {h00=0x0012, h01=0x0050, text=»CRNEAR PROC P «, t00=0x001b, t01=0x0094}
0x2ace…2ade Head {h00=0x000c, h01=0x0050, text=» PBIN P «, t00=0x001b, t01=0x00aa}
0x2ade…2ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ba}
0x2ae8…2b24 Head {h00=0x0038, h01=0x0050, text=»* THIS PROCEDURE FINDS THE NEAREST UNPROTECTED FIELD«, t00=0x001b, t01=0x00c4}
0x2b24…2b5e Head {h00=0x0036, h01=0x0050, text=»* AS DEFINED BY R/C(L) AND R/C(R), WHERE R/C(L) IS«, t00=0x001b, t01=0x0100}
0x2b5e…2b90 Head {h00=0x002e, h01=0x0050, text=»* THE LEFTMOST, AND R/C(R) THE RIGHTMOST. «, t00=0x001b, t01=0x013a}
0x2b90…2b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x016c}
0x2b9a…2bba Head {h00=0x001c, h01=0x0050, text=»* IF 'CRUP', P MUST BE 1«, t00=0x001b, t01=0x0176}
0x2bba…2bc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0008}
0x2bc4…2be6 Head {h00=0x001e, h01=0x0050, text=»* REL. POS := (RR*80) + CC«, t00=0x001c, t01=0x0012}
0x2be6…2bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0034}
0x2bf0…2c0a Head {h00=0x0016, h01=0x0050, text=»* R/C(L) IN TBIN5 «, t00=0x001c, t01=0x003e}
0x2c0a…2c24 Head {h00=0x0016, h01=0x0050, text=»* R/C(R) IN TBIN6 «, t00=0x001c, t01=0x0058}
0x2c24…2c3e Head {h00=0x0016, h01=0x0050, text=»* R/C(T) IN TBIN1 «, t00=0x001c, t01=0x0072}
0x2c3e…2c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x008c}
0x2c48…2c60 Head {h00=0x0014, h01=0x0050, text=» PERF PUSH,CBIN8«, t00=0x001c, t01=0x0096}
0x2c60…2c7a Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN3,CBIN0 «, t00=0x001c, t01=0x00ae}
0x2c7a…2c94 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN7,CBIN0 «, t00=0x001c, t01=0x00c8}
0x2c94…2cce Head {h00=0x0036, h01=0x0050, text=» XCOPY TBIN3,CBIN1,CBIN1,TBIN5,CBIN0 EXTRACT RR(L)«, t00=0x001c, t01=0x00e2}
0x2cce…2d08 Head {h00=0x0036, h01=0x0050, text=» XCOPY TBIN7,CBIN1,CBIN1,TBIN6,CBIN0 EXTRACT RR(R)«, t00=0x001c, t01=0x011c}
0x2d08…2d3a Head {h00=0x002e, h01=0x0050, text=» CBE TBIN3,TBIN7,NEA010 IF DIFFERENT ROWS «, t00=0x001c, t01=0x0156}
0x2d3a…2d6c Head {h00=0x002e, h01=0x0050, text=» CBE P,CBIN1,NEA080 AND 'CRUP' TAKE R/C(R)«, t00=0x001c, t01=0x0188}
0x2d6c…2d8a Head {h00=0x001a, h01=0x0050, text=» B NEA070 ELSE R/C(L) «, t00=0x001d, t01=0x002a}
0x2d8a…2d98 Head {h00=0x000a, h01=0x0050, text=»NEA010«, t00=0x001d, t01=0x0048}
0x2d98…2da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0056}
0x2da2…2dde Head {h00=0x0038, h01=0x0050, text=»* THIS PROCEDURE FINDS THE NEAREST UNPROTECTED FIELD«, t00=0x001d, t01=0x0060}
0x2dde…2e18 Head {h00=0x0036, h01=0x0050, text=»* AS DEFINED BY R/C(L) AND R/C(R), WHERE R/C(L) IS«, t00=0x001d, t01=0x009c}
0x2e18…2e4a Head {h00=0x002e, h01=0x0050, text=»* THE LEFTMOST, AND R/C(R) THE RIGHTMOST. «, t00=0x001d, t01=0x00d6}
0x2e4a…2e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0108}
0x2e54…2e76 Head {h00=0x001e, h01=0x0050, text=»* REL. POS := (RR*80) + CC«, t00=0x001d, t01=0x0112}
0x2e76…2e80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0134}
0x2e80…2e9a Head {h00=0x0016, h01=0x0050, text=»* R/C(L) IN TBIN5 «, t00=0x001d, t01=0x013e}
0x2e9a…2eb4 Head {h00=0x0016, h01=0x0050, text=»* R/C(R) IN TBIN6 «, t00=0x001d, t01=0x0158}
0x2eb4…2ece Head {h00=0x0016, h01=0x0050, text=»* R/C(T) IN TBIN1 «, t00=0x001d, t01=0x0172}
0x2ece…2ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x018c}
0x2ed8…2ef2 Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN4,CBIN0 «, t00=0x001e, t01=0x0008}
0x2ef2…2f1e Head {h00=0x0028, h01=0x0050, text=» XCOPY TBIN4,CBIN1,CBIN1,TBIN5,CBIN1«, t00=0x001e, t01=0x0022}
0x2f1e…2f38 Head {h00=0x0016, h01=0x0050, text=» MUL TBIN3,CBIN80 «, t00=0x001e, t01=0x004e}
0x2f38…2f64 Head {h00=0x0028, h01=0x0050, text=» ADD TBIN3,TBIN4 REL. POS FOR R/C(L)«, t00=0x001e, t01=0x0068}
0x2f64…2f7e Head {h00=0x0016, h01=0x0050, text=» MOVE TBIN8,CBIN0 «, t00=0x001e, t01=0x0094}
0x2f7e…2faa Head {h00=0x0028, h01=0x0050, text=» XCOPY TBIN8,CBIN1,CBIN1,TBIN6,CBIN1«, t00=0x001e, t01=0x00ae}
0x2faa…2fc4 Head {h00=0x0016, h01=0x0050, text=» MUL TBIN7,CBIN80 «, t00=0x001e, t01=0x00da}
0x2fc4…2ff0 Head {h00=0x0028, h01=0x0050, text=» ADD TBIN7,TBIN8 REL. POS FOR R/C(R)«, t00=0x001e, t01=0x00f4}
0x2ff0…301c Head {h00=0x0028, h01=0x0050, text=» XCOPY TBIN4,CBIN1,CBIN1,TBIN1,CBIN0«, t00=0x001e, t01=0x0120}
0x301c…3036 Head {h00=0x0016, h01=0x0050, text=» SAME FOR R/C(T)«, t00=0x001e, t01=0x014c}
0x3036…3062 Head {h00=0x0028, h01=0x0050, text=» XCOPY TBIN8,CBIN1,CBIN1,TBIN1,CBIN1«, t00=0x001e, t01=0x0166}
0x3062…307c (31, 0, 400) Head {h00=0x0016, h01=0x0050, text=» MUL TBIN4,CBIN80 «, t00=0x001f, t01=0x0004}
0x307c…30a8 Head {h00=0x0028, h01=0x0050, text=» ADD TBIN4,TBIN8 REL. POS FOR R/C(T)«, t00=0x001f, t01=0x001e}
0x30a8…30c0 Head {h00=0x0014, h01=0x0050, text=»* TBIN1 - R/C(T)«, t00=0x001f, t01=0x004a}
0x30c0…30da Head {h00=0x0016, h01=0x0050, text=»* TBIN3 - REL (L) «, t00=0x001f, t01=0x0062}
0x30da…30f4 Head {h00=0x0016, h01=0x0050, text=»* TBIN4 - REL (T) «, t00=0x001f, t01=0x007c}
0x30f4…310c Head {h00=0x0014, h01=0x0050, text=»* TBIN5 - R/C(L)«, t00=0x001f, t01=0x0096}
0x310c…3124 Head {h00=0x0014, h01=0x0050, text=»* TBIN6 - R/C(R)«, t00=0x001f, t01=0x00ae}
0x3124…313c Head {h00=0x0014, h01=0x0050, text=»* TBIN7 - REL(R)«, t00=0x001f, t01=0x00c6}
0x313c…3168 Head {h00=0x0028, h01=0x0050, text=» MOVE TBIN2,TBIN3 FIND THE POSITION «, t00=0x001f, t01=0x00de}
0x3168…3190 Head {h00=0x0024, h01=0x0050, text=» ADD TBIN2,TBIN7 BETWEEN R/C (L)«, t00=0x001f, t01=0x010a}
0x3190…31b4 Head {h00=0x0020, h01=0x0050, text=» DIV TBIN2,CBIN2 AND R/C(R) «, t00=0x001f, t01=0x0132}
0x31b4…31e8 Head {h00=0x0030, h01=0x0050, text=» CBL TBIN2,TBIN4,NEA080 WHICH ONE TO TAKE ? «, t00=0x001f, t01=0x0156}
0x31e8…31f6 Head {h00=0x000a, h01=0x0050, text=»NEA070«, t00=0x001f, t01=0x018a}
0x31f6…321a Head {h00=0x0020, h01=0x0050, text=» MOVE TCURPOS,TBIN5 USE (L) «, t00=0x0020, t01=0x0008}
0x321a…322c Head {h00=0x000e, h01=0x0050, text=» B NEA090 «, t00=0x0020, t01=0x002c}
0x322c…323a Head {h00=0x000a, h01=0x0050, text=»NEA080«, t00=0x0020, t01=0x003e}
0x323a…325e Head {h00=0x0020, h01=0x0050, text=» MOVE TCURPOS,TBIN6 USE (R) «, t00=0x0020, t01=0x004c}
0x325e…326c Head {h00=0x000a, h01=0x0050, text=»NEA090«, t00=0x0020, t01=0x0070}
0x326c…3284 Head {h00=0x0014, h01=0x0050, text=» PERF PULL,CBIN8«, t00=0x0020, t01=0x007e}
0x3284…3290 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0020, t01=0x0096}
0x3290…329e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0020, t01=0x00a2}
0x329e…32aa Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0020, t01=0x00b0}
0x32aa…32ae Head {h00=0x4004, h01=0x0000}
0x32ae…32b2 00 20 00 bc ┆ ┆
0x32b2…32ba (33, 1, 8) 20 04 00 00 00 21 00 04 ┆ ! ┆
0x32ba…330a (34, 0, 400) 10 3c 11 5f e5 34 00 80 02 11 00 39 10 00 31 00 6a 39 10 11 31 11 02 39 01 30 03 90 06 39 80 03 11 34 02 80 02 12 00 31 3a 00 3a 10 01 32 13 68 4c 3a 32 21 10 11 54 13 02 3a 11 6a 39 10 12 4c 3a 30 03 90 06 39 02 3a 12 57 03 00 3a 31 80 03 ┆ < _ 4 9 1 j9 1 9 0 9 4 1: : 2 hL:2! T : j9 L:0 9 : W :1 ┆
0x330a…335a 12 34 00 80 02 16 00 33 3a 00 36 10 6a 36 11 11 39 10 00 35 10 01 34 13 68 4c 3a 34 21 10 11 54 27 02 3a 11 6a 44 10 11 4c 3a 20 44 21 1a 6a 35 11 11 4c 3a 1a 35 36 23 6a 39 10 12 4c 3a 02 3a 12 30 03 90 06 39 57 03 00 3a 33 80 03 16 34 00 ┆ 4 3: 6 j6 9 5 4 hL:4! T' : jD L: D! j5 L: 56#j9 L: : 0 9W :3 4 ┆
0x335a…33aa 80 02 16 00 33 3a 00 32 39 03 32 15 6a 32 11 11 10 11 00 31 32 01 34 13 68 4c 3a 34 21 10 11 54 60 02 3a 11 6a 44 10 11 4c 3a 20 44 21 53 6a 35 10 12 4c 3a 14 35 32 26 01 34 13 68 4c 3a 34 21 10 11 54 3d 02 3a 11 6a 44 10 11 4c 3a 20 44 21 ┆ 3: 29 2 j2 12 4 hL:4! T` : jD L: D!Sj5 L: 52& 4 hL:4! T= : jD L: D!┆
0x33aa…33fa 30 6a 36 10 12 4c 3a 2a 31 36 05 00 35 36 5f 28 20 35 31 09 20 36 31 0a 80 13 12 57 0a 00 39 35 57 05 00 39 36 57 00 02 33 12 30 03 90 06 39 57 03 00 3a 33 80 03 16 34 00 80 02 12 00 31 3a 01 32 13 68 4c 3a 32 21 10 11 54 1d 02 3a 11 6a 44 ┆0j6 L:*16 56_( 51 61 W 95W 96W 3 0 9W :3 4 1: 2 hL:2! T : jD┆
0x33fa…344a 10 11 4c 3a 20 44 21 10 6a 39 10 12 4c 3a 30 03 90 06 39 02 3a 12 57 03 00 3a 31 80 03 12 34 00 80 02 16 00 33 3a 00 35 39 00 3a 10 01 34 13 68 4c 3a 34 21 10 11 54 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ L: D! j9 L:0 9 : W :1 4 3: 59 : 4 hL:4! T ┆
0x344a…349a (35, 0, 400) 02 3a 11 00 36 35 6a 35 10 12 4c 3a 18 35 39 1c 00 39 36 30 03 90 06 39 00 3a 36 02 3a 12 57 03 00 3a 33 80 03 16 34 00 80 02 16 00 31 39 00 33 3a 05 31 15 00 32 31 01 44 25 6a 32 11 11 44 10 00 33 10 01 34 13 68 4c 3a 34 21 10 11 02 33 11 ┆ : 65j5 L: 59 960 9 :6 : W :3 4 19 3: 1 21 D%j2 D 3 4 hL:4! 3 ┆
0x349a…34ea 6a 35 10 12 4c 33 01 34 13 68 4c 33 34 21 10 11 54 1d 02 33 11 6a 36 10 12 4c 33 24 32 36 10 20 31 36 11 22 31 35 12 00 36 35 01 35 18 5f 29 00 39 35 57 08 00 39 36 57 03 80 13 11 02 33 12 30 03 90 06 39 80 03 16 34 00 80 02 17 00 33 10 00 ┆j5 L3 4 hL34! T 3 j6 L3$26 16 "15 65 5 _) 95W 96W 3 0 9 4 3 ┆
0x34ea…353a 37 10 6a 33 11 11 35 10 6a 37 11 11 36 10 20 33 37 06 20 00 11 44 57 3d 00 34 10 6a 34 11 11 35 11 08 33 1f 02 33 34 00 38 10 6a 38 11 11 36 11 08 37 1f 02 37 38 6a 34 11 11 31 10 6a 38 11 11 31 11 08 34 1f 02 34 38 00 32 33 02 32 37 0a 32 ┆7 j3 5 j7 6 37 DW= 4 j4 5 3 34 8 j8 6 7 78j4 1 j8 1 4 48 23 27 2┆
0x353a…358a 12 24 32 34 05 00 39 35 57 03 00 39 36 80 03 17 34 01 80 02 14 00 31 10 00 32 10 00 33 01 00 44 25 68 00 32 33 44 10 11 54 31 6a 46 10 13 00 32 01 49 21 6a 00 32 13 49 10 6a 45 10 12 46 11 00 40 45 00 34 40 04 34 13 55 06 64 00 32 34 49 10 ┆ $24 95W 96 4 1 2 3 D%h 23D T1jF 2 I!j 2 I jE F @E 4@ 4 U d 24I ┆
0x358a…35da 02 32 34 00 33 01 04 33 32 5f 3a 80 03 14 34 02 80 02 12 00 32 02 00 31 01 6a 44 10 11 00 31 20 44 22 0f 20 44 21 0b 02 3c 11 02 31 11 04 32 11 59 19 80 03 12 34 03 80 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 09 ┆ 24 3 32_: 4 2 1 jD 1 D" D! < 1 2 Y 4 ┆
0x35da…362a (36, 0, 400) 02 17 00 34 00 00 32 00 01 49 20 01 4e 20 00 33 10 00 38 10 40 36 30 02 d1 4e 01 32 02 50 15 20 02 10 04 20 34 32 08 80 03 17 06 10 11 57 f4 00 02 13 57 bb 10 02 10 11 00 35 02 04 02 15 51 af 41 36 36 35 05 02 2a 4f 71 94 57 a3 14 31 13 4e ┆ 4 2 I N 3 8 @60 N 2 P 42 W W 5 Q A665 *Oq W 1 N┆
0x362a…367a 04 31 11 50 17 6a 49 33 31 4e 10 02 38 31 02 33 31 04 33 11 04 32 31 02 32 11 5f 56 04 33 11 02 32 11 5f 5e 1c 33 38 62 04 31 11 50 14 6a 49 33 31 4e 10 02 33 31 02 33 11 04 32 31 04 32 11 5f 7b 02 33 11 04 32 11 5f 83 64 49 33 11 44 10 01 ┆ 1 P jI31N 81 31 3 21 2 _V 3 2 _^ 38b 1 P jI31N 31 3 21 2 _{ 3 2 _ dI3 D ┆
0x367a…36ca 4a 2c 00 37 38 04 37 33 6a 4a 13 37 49 33 02 37 13 30 04 90 4a 37 04 32 11 5f a5 66 49 33 11 01 4a 2c 00 37 38 04 37 33 6a 4a 13 37 49 33 02 37 13 30 04 90 4a 37 02 32 11 04 33 11 5f c8 30 03 90 06 39 30 03 90 02 34 30 03 90 06 39 5f ed 48 ┆J, 78 73jJ 7I3 7 0 J7 2 _ fI3 J, 78 73jJ 7I3 7 0 J7 2 3 _ 0 90 40 9_ H┆
0x36ca…371a 36 0f 6a 49 33 31 4e 10 00 4e 49 02 33 31 00 00 33 20 12 03 18 00 32 31 04 32 00 01 49 24 64 4e 10 32 49 10 30 03 90 06 39 80 0a 4e 32 80 03 17 06 10 10 34 04 00 47 21 6a 47 11 12 39 10 20 00 12 08 6a 47 13 11 27 10 57 06 6a 47 13 11 28 10 ┆6 jI31N NI 31 3 21 2 I$dN 2I 0 9 N2 4 G!jG 9 jG ' W jG ( ┆
0x371a…376a 34 01 80 02 11 00 31 01 2a 31 1f 03 00 31 1f 80 09 02 03 80 0a 00 31 80 03 11 34 04 80 02 11 01 45 28 00 4d 00 64 4d 10 12 45 10 00 31 01 02 31 12 30 04 90 4d 31 80 03 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆4 1 *1 1 1 4 E( M dM E 1 1 0 M1 ┆