|
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: 24100 (0x5e24)
Notes: pts_type(SC)
Names: »VALPRC.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:CREA/VALPRC.SC«
IDENT VALPRC REL=2.3,850531,870155940230 ****************************************************** * * LATEST UPDATE 850531 MADE BY JE * * HISTORY= * 850531/JE DIRECT MOVE VAL.OBJ. NOT OK WHEN DELETE FULL LINE * 850403/JE ERROR STOBUF LBIN3 NOT OK TROUBLE WHEN VALPAGE FULL * 850313/JE PERFORMANCE. DIRECT MOVE VAL.OBJ. WHEN UNCHANGED * 850220/JE SIMULATE INPUT OF LINE NUMBER WHEN DISASTER ERROR * FROM OBJVAL * 841120/CJ MUL&DIV NOW FROM ASS.ROUTINE * 841017/CJ ERROR AFTER INS LINE IN BASIC + TFD LOC=402 * 830524/CJ ROW NO LOST WHEN VALBUF EXEEDED LOC=VAL800 * 830520/CJ TAB FWD (BLAEDDRING) ERROR * WHEN VALBUF EXACT FULL LOC:=81 - NOW SOLVED * 830520/CJ ERROR IN BUFSEA WHEN VALBUF OVERFLOW - SOLVED * 830519/CJ ERROR WHEN VALBUF-MAX REACHED LOC:=03B9 * ****************************************************** DDUM WSMDDV PDIV ENTRY VALPRC ENTRY VLPAGE ***VALIDATION PAGE EXPROC ZERFLL,PSTRG,PBIN,PBIN ***ZERO REFILL /00:S EXPROC READIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD EXPROC WSMERR,PKTAB,PLIT ***ERR-MESSAGE ROUTINE EXT ICLEAR ---CLEAR ITEM EXT EMPTYT ---CHECK IF EMPTY EXT GETIND ---GET ITEM LENGTH EXT WXMUL ---MULTIPLICATION EXT WXDIV ---DIVISION EJECT INCLUDE WSMKEY,LIST INCLUDE KEYT21,LIST INCLUDE KEYT22,LIST INCLUDE KEYT23,LIST EJECT INCLUDE KEYT5,LIST EJECT * * VALIDATION PROCEDURE * THIS ROUTINE HANDLES I/O OF BASIC VALIDATION LINES * BETWEEN KEYBOARD/DISPLAY AND VALIDATION BUFFER * * USED ITEMS: VBIN1 = INDEX TO NUMB-OF-CHARS-TABLE * VBIN2 = INDEX TO VALIDATION LINE OF PAGE * VBIN3 = BUFFERPOINTER OF VALIDATION SOURCE BUFFER * VBIN4 = END BPOINTER OF VALBUF * VBIN5 = FIRST FREE LINE NUMBER * VBIN6 = TEMPORARY STORAGE OF LAST LINES NUMBER OF R * VBIN7 = LENGTH OF KEYED IN LINE NUMBER * * OUTPUT CR = 0 OK * = 1 GREATER OVERFLOW * ************************************************************************ VALPRC PROC MOVE VBIN5,W0 1ST FREE LINENUMBER:=0 MOVE VBIN8,W0 VALIDATIONBUFFERPOINTER:=0 VAL020 MOVE LBIN1,W0 BASIC LINE LENGTH:=0 XCOPY LBIN1,W1,W1,VALBUF,VBIN8 GET LINE LENGTH CBE LBIN1,W0,VAL050 JMP IF END OF BUFFER REACHED ADD VBIN8,W1 ADJUST BUFFERPOINTER XCOPY VBIN5,W0,W2,VALBUF,VBIN8 GET LINE-NUMBER SUB LBIN1,W1 ADJUST LENGTH ADD VBIN8,LBIN1 ADJUST POINTER CMP VBIN8,VBBIN CHECK BUFFER LENGTH BL VAL020 GO ON IF LESS EJECT VAL050 CALL WXDIV,VBIN5,W10,VBIN5 CALC 1ST FREE LINENO CALL WXMUL,VBIN5,W10,VBIN5 ...BY GETTING EVEV 10-MULTIPEL ADD VBIN5,W10 ...AND ADD 10 CBNG VBIN5,=X'07FF',VAL060 LINE NUMBER < = 2047 B VAL600 VAL060 MOVE LINNO(VBIN2),VBIN5 STORE 1ST FREE LINENUMBER VAL065 MOVE LBIN4,VBIN2 LOAD CURR LINENO-INDEX ADD LBIN4,W10 CALC PROPER FIELD NO GETFLD 1,LBIN4,LBIN3 FINP FIELD DISPLAY 2,LBIN4,LBIN4 DISPLAY ROW NUMBER ADD LBIN4,W8 CALC PROPER FKI-SEQ,NO GETFLD 0,LBIN4,LBIN3 FKI-FIELD SETCUR CLEAR OBBOOL CLEAR DISASTER ERROR IF ANY BT VAL101 JMP IF DISASTER ERROR VAL090 CLEAR VBOOL3 FALSE= NOT E-O-P PERF READIN,KEYT1,KEYT22,KEYT3,=W'0' ***READIN ONE FIELD IB LBIN2,VAL100,VAL200, C VAL300,VAL400 EJECT VAL100 BNL VAL102 JMP IF NOT E-O-P VAL101 SET VBOOL3 TRUE=E-O-P VAL102 TBT LBOOL1,VAL110 JMP IF BACKTAB CALL EMPTYT,BASLIN(VBIN2) ---CHECK IF EMPTY BOK VAL130 JMP IF NOT EMPTY CBNE LBIN2,W1,VAL105 JMP IF NOT ENT + EMPTY TBT VBOOL3,VAL105 JMP IF E-O-P B VAL500 JMP IF ENT + EMPTY * * TAB FORWARD * VAL105 MOVE LBIN1,LINNO(VBIN2) LOAD CURRENT LINE NUMBER CBNE LBIN1,VBIN5,VAL120 JMP IF NOT 1ST FREE LINE MOVE LBIN1,W0 WORKITEM:=0 CBNL VBIN4,VBBIN,VAL107 JMP WHEN VALBUF-MAX REACHED XCOPY LBIN1,W1,W1,VALBUF,VBIN4 GET NEXT-PAGE 1ST LENGTH VAL107 CBE LBIN1,W0,VAL065 JMP IF NO PAGING NEEDED MOVE VBIN3,VBIN4 LOAD CURRENT E-O-P POINTER B VAL116 EJECT VAL110 MOVE LBIN1,LINNO(VBIN2) LOAD CURRENT LINE NUMBER CBNE LBIN1,VBIN5,VAL065 JMP IF NOT 1ST FREE LINE * * TAB BACKWARD ====> SEARCH 7 PREVIOUS LINES * CBNE VBIN3,W0,VAL111 JMP IF NOT 1ST PAGE ON SCREEN B VAL700 JMP IF 1ST PAGE AND BACKTAB VAL111 MOVE LBIN1,W0 BUFFER POINTER:=0 MOVE VBIN8,W0 BASIC LINE LENGTH:=0 CALL ICLEAR,LSTR16 ---CLEAR ITEM VAL112 XCOPY VSTR2,W0,W2,LBIN1,W0 LOAD LINE POINTER INSRT LSTR16,W0,W2,VSTR2,W0 INSRT LINE POINTER XCOPY VBIN8,W1,W1,VALBUF,LBIN1 GET BASIC LINE LENGTH CBE VBIN8,W0,VAL114 JMP IF E-O-B FOUND ADD LBIN1,VBIN8 ADJUST POINTER CBE LBIN1,VBBIN,VAL114 JMP IF END LIMIT REACHED CBNE LBIN1,VBIN3,VAL112 JMP IF B-O-P NOT FOUND VAL114 XCOPY VBIN3,W0,W2,LSTR16,W8 LOAD STARTPOINT OF PREV PAGE VAL116 MOVE LBIN1,=W'29' FIELD SEQ NO ERASE 2,LBIN1,W0 ERASE REST OF PAGE MOVE VBIN1,W9 NUMB-OF-CHARS-TABLE-INDEX:=9 MOVE VBIN2,W1 LINE INDEX:=1 MOVE VBIN8,VBIN3 LOAD B-O-P POINTER MOVE LBIN4,=W'29' FIELD SEQ NO B VAL125 EJECT * * DELETION EMPTY BASIC LINE + NOT 1ST FREE LINE * VAL120 MOVE LINNO(W9),LBIN1 LOAD WANTED LINE NUMBER MOVE VBIN8,VBIN3 LOAD B-O-P- POINTER PERF BUFSEA,VBOOL2,LBIN1,LBIN3,VBIN8,LBIN4 ***BUFFER SEARCH TBF VBOOL2,VAL122 JMP IF NOT FOUND NO DELETE DLETE VALBUF,VBIN8,LBIN4 DELET EMPTIED LINE SET CHABOL T=VALIDATION ROUTINE CHANGED MOVE LBIN1,VBBIN STORE LENGTH OF VALBUF PERF ZERFLL,VALBUF,LBIN1,LBIN4 ***ZERO REFILL /00:S VAL122 MOVE LBIN4,VBIN2 LOAD CURRENT LINE NUMBER INDEX ADD LBIN4,LBIN4 CALC PROPER FKI FINP ADD LBIN4,=W'27' ...SEQ.NO ERASE 2,LBIN4,W0 ERASE REST OF PAGE VAL125 CBNE LBIN2,W1,VAL128 JMP IF NOT ENTER TBT VBOOL3,VAL128 JMP IF E-O-P B VAL500 JMP IF ENTER VAL128 PERF VLPAGE,VBIN8 ***VALIDATION PAGE LOAD MOVE LINNO(VBIN2),VBIN5 LOAD 1ST FREE LINE NUMBER DISPLAY 3,LBIN4,W0 DISPLAY REST OF PAGE B VAL065 EJECT VAL130 * * TYPE OF INPUT : 1.ONLY LINE NUMBER * 2.LINE NUMBER + BASIC STATMENT * 3.ONLY BASIC STATMENT * CALL ICLEAR,LSTR4A ---CLEAR ITEM MOVE VBIN7,W0 ACTUAL LINE NUMBER LENGTH:=0 MOVE LBIN1,W4 LOAD MAXLENGTH OF LINE NUMBER CBG GBINIA(VBIN1),W4,VAL134 JMP IF GREATER MAXLENGTH MOVE LBIN1,GBINIA(VBIN1) LOAD ACTUAL LENGTH < 4 VAL134 XCOPY LSTR1,W0,W1,BASLIN(VBIN2),VBIN7 GET ONE CHARACTER CBL LSTR1,=X'30',VAL136 JMP IF NOT A DIGIT CBG LSTR1,=X'39',VAL136 JMP IF NOT A DIGIT XCOPY LSTR4A,VBIN7,W1,LSTR1,W0 STORE DIGIT ADD VBIN7,W1 ADJUST LINE NUMBER LENGTH CBNE VBIN7,LBIN1,VAL134 JMP IF NOT MAXLENGTH VAL136 MOVE LINNO(W9),LSTR4A CONVERT TO BCD CBNE LINNO(W9),=D'00',VAL141 JMP IF NOT ONLY BASIC STATM B VAL190 JMP WHEN ONLY BASIC STATEMENT VAL141 CLEAR VBOOL4 FALSE = NO DELETE MOVE LBIN1,LINNO(VBIN2) LOAD LINE NUMBER BINARY CBE LBIN1,VBIN5,VAL142 JMP IF 1ST FREE LINE PERF LINSEA,VBOOL1,VBIN8 ***LINE NUMBER WHITIN SCREEN TBF VBOOL1,VAL142 JMP IFLINE NUMBER NOT ON SCREEN EJECT * * BASIC LINE OVERWRITTEN WITH AT LEAST LINE NUMBER * DELETE THE OVERWRITTEN LINE * MOVE LINNO(W9),LINNO(VBIN2) LOAD CURRENT LINE NUMBER MOVE VBIN8,W0 STARTPOINT AT SEARCH PERF BUFSEA,VBOOL2,LBIN1,LBIN3,VBIN8,LBIN4 ***BUFFER SEARCH TBF VBOOL2,VAL142 JMP IF NOT FOUND IN BUFFER DLETE VALBUF,VBIN8,LBIN4 DELET FOUND LINE SET CHABOL T=VALIDATION ROUTINE CHANGED MOVE LBIN1,VBBIN STORE LENGTH OF VALBUF PERF ZERFLL,VALBUF,LBIN1,LBIN4 ***ZERO REFILL /00:S MOVE LINNO(W9),LSTR4A CONVERT TO BCD SET VBOOL4 TRUE = DELETION MADE EJECT * * LINE NUMBER FOUND * VAL142 CBNG GBINIA(VBIN1),VBIN7,VAL143 JMP IF JUST LINE NUMBER ADD VBIN7,W1 ADJUST FOR SPACE BETWEEN VAL143 DLETE BASLIN(VBIN2),W0,VBIN7 DLETE LINENUMBER SUB GBINIA(VBIN1),VBIN7 ADJUST LENGTH PERF LINSEA,VBOOL1,VBIN8 ***LINE NUMBER WHITIN SCREEN TBT VBOOL4,VAL144 JMP IF DELETION WAS MADE TBT VBOOL1,VAL180 JMP IF LINE FOUND IN SCREEN VAL144 MOVE VBIN6,GBINIA(VBIN1) SAVE NUMB OF CHARS CALL ICLEAR,LSTR81 ---CLEAR ITEM XCOPY LSTR81,W0,VBIN6,BASLIN(VBIN2),W0 MOVE VBIN2,W1 LINE-NUMBERINDEX:=1 MOVE VBIN1,W9 NUMB-OF-CHARS-TABL-INDEX:=9 MOVE LBIN1,=W'29' FIELD SEQ NO ERASE 2,LBIN1,W0 TBT VBOOL1,VAL148 JMP IF LINE FOUND IN SCREEN MOVE VBIN8,W0 STARTPOINT AT SEARCH PERF BUFSEA,VBOOL2,LBIN1,LBIN3,VBIN8,LBIN4 ***BUFFER SEARCH MOVE VBIN3,VBIN8 UPDATE BUFFER POINTER TBT VBOOL2,VAL170 JMP IF LINE FOUND MOVE LINNO(VBIN2),LINNO(W9) ADD VBIN2,W1 LINENUMBERINDEX:=2 ADD VBIN1,W1 NUMB-OF-CHARS-TABLE-INDEX:=10 CBG LBIN4,W0,VAL170 JMP IF INSERTION EJECT * * LINE NUMBER OUT OF BUFFER NEW LINE * MOVE VBIN5,LINNO(W9) NEW 1ST FREE LINE NUMBER MOVE VBIN2,W1 LINE-INDEX:=1 MOVE VBIN1,W9 NUMB-OF-CHARS-TABLE-INDEX:=9 MOVE GBINIA(VBIN1),VBIN6 RESTORE NUMB OF CHARS CBNE GBINIA(VBIN1),W0,VAL145 JMP IF MORE THAN LINE NUMBER CBE LBIN2,W1,VAL500 JMP IF ENTER B VAL060 JMP IF ONLY LINE NUMBER * * LINE NUMBER OUT OF BUFFER NEW LINE + BASIC STATMENT * VAL145 XCOPY BASLIN(VBIN2),W0,VBIN6,LSTR81,W0 RESTORE BASIC STATMENT MOVE LBIN1,=W'29' FIELD SEQ NO DISPLAY 3,LBIN1,W0 DISPLAY B VAL190 STORE BASIC STATEMNET * * REORGANIZE & DISPLAY VALIDATION PAGE IF BASIC LINE WAS OVERWRITTEN * VAL148 MOVE VBIN8,VBIN3 LOAD B-O-P POINTER EJECT * * LINE NUMBER FOUND /NOT FOUND WITHIN BUFFER * VAL170 PERF VLPAGE,VBIN8 ***VALIDATION PAGE LOAD MOVE LINNO(VBIN2),VBIN5 STORE 1ST FREE LINENUMBER MOVE LBIN1,=W'29' FIELD SEQ NO DISPLAY 3,LBIN1,W0 DISPLAY NEW PAGE XCOPY BASLIN(VBIN2),W0,VBIN6,LSTR81,W0 RESTORE BASIC STATEMNET MOVE GBINIA(VBIN1),VBIN6 RESTORE NUMB OF CHARS PERF LINSEA,VBOOL1,VBIN8 ***LINE NUMBER WHITHIN SCREEN EJECT * * LINE NUMBER FOUND WITHIN SCREEN * VAL180 CBE GBINIA(VBIN1),W0,VAL185 JMP IF NO BASIC STATMENT * * ...... AND FOLLOWED BY A BASIC STATEMENT * MOVE LBIN3,VBIN8 LOAD LINE INDEX ADD LBIN3,W18 CALC PROPER FIELD NO ERASE 10,LBIN3,LBIN3 ERASE OLD VALUE XCOPY BASLIN(VBIN8),W0,GBINIA(VBIN1),BASLIN(VBIN2),W0 DISPLAY 1,LBIN3,LBIN3 DISPLAY NEW VALUE * * .......BUT NOT FOLLOWED BY A BASIC STATEMENT * VAL185 MOVE LBIN3,VBIN2 LOAD CURR LINE INDEX ADD LBIN3,W18 CALC PROPER FIELD SEQ NO ERASE 10,LBIN3,LBIN3 ERASE ROW NUMBER ENTERED MOVE VBIN2,VBIN8 MAKE NEW LINE CURRENT ADD VBIN8,W8 CALC NUMB-OF-CHARS-TABLE-INDEX CBE GBINIA(VBIN1),W0,VAL192 JMP IF JUST LINE NUMBER MOVE GBINIA(VBIN8),GBINIA(VBIN1) RESTORE NUMB OF CHARS MOVE GBINIA(VBIN1),W0 CLEAR NUMB OF CHARS MOVE VBIN1,VBIN8 MAKE NEW INDEX CURRENT EJECT * * BASIC LINE IN VALIDATION BUFFER * VAL190 PERF STOBUF ***STORE BASIC LINE IN BUFFER BG VAL800 JMP IF MEMORY OVERFLOW SET CHABOL T=VALIDATION ROUTINE CHANGED MOVE VBIN8,LINNO(VBIN2) CONVERT TO BIN CBE VBIN8,VBIN5,VAL195 JUMP IF 1ST FREE LINE MOVE LINNO(W9),VBIN5 LOAD 1ST FREE LINE NUMBER PERF LINSEA,VBOOL1,VBIN8 ***LINE NUMBER WITHIN SCREEN MOVE VBIN2,VBIN8 LOAD FOUND INDEX ADD VBIN8,W8 CALC NUMB-OF-CHARS-TABLE-INDEX VAL192 MOVE VBIN1,VBIN8 LOAD NUMB-OF-CHARS-TABLE-INDEX TBT VBOOL3,VAL193 JMP IF E-O-P CBE LBIN2,W1,VAL500 JMP IF ENTER-KEY VAL193 B VAL065 GO ON VAL195 ADD VBIN1,W1 NEXT LINE INDEX ADD VBIN2,W1 NEXT LINE INDEX CBL VBIN2,W9,VAL199 E-O-P MOVE VBIN3,LBIN3 LOAD NEW B-O-P POINTER MOVE VBIN1,W9 NUMB-OF-CHARS-TABLE-INDEX:=9 MOVE VBIN2,W1 LINE INDEX:=1 MOVE LBIN1,=W'29' FIELD SEQ NO ERASE 2,LBIN1,W0 ERASE VAL PAGE EJECT VAL199 TBT VBOOL3,VAL19A JMP IF E-O-P CBE LBIN2,W1,VAL500 JMP IF ENTER-KEY VAL19A B VAL050 GO ON * * CANCEL KEY * VAL200 CMP W1,W1 CR:=0 MOVE LBIN2,W2 B VAL999 * * RETUR-KEY * VAL300 CMP W1,W1 CR:=0 MOVE LBIN2,W3 B VAL999 * * POWER OFF * VAL400 DISPLAY 0,W1,W0 B VAL065 EJECT * * ENTER-KEY * VAL500 MOVE LBIN2,W1 OK B VAL999 * * LINE NUMBER OUT OF RANGE * VAL600 MOVE LBIN2,W4 B VAL999 * * BACKTAB FROM 1ST PAGE OF VALIDATION * VAL700 MOVE LBIN2,W5 MOVE LBIN4,W18 FKI-FIELD NUMBER TO BE CURRENT B VAL999 * * WORKING AREA VALBUF EXEEDED * VAL800 MOVE VBIN8,LBIN5 SAVE CURRENT ROW NO. MOVE LBIN5,W5 VALBUF-OVERFLOW MOVE LBIN1,W0 NO CLEAR MOVE LBIN4,W2 ERR-MESSAGE NO:2 PERF WSMERR,KEYT5,=W'0' ***ERR-MESSAGE ROUTINE MOVE LBIN5,VBIN8 RESTORE ROWNO IB LBIN2,VAL065,VAL200, CLR,CAN C VAL300,VAL500 RET,ENT EJECT * * EXIT * VAL999 RET PEND EJECT * * LINE NUMBER WITHIN BUFFER * THIS ROUTINE SEARCH'S AND COMPARE * WHEATHER KEYED IN LINE NUMBER * EXISTS IN VALIDATION OR NOT * * INPUT: LINNO(W9) = KEYED IN LINENUMBER * BPOINT = BUFFER POINTER * * * OUTPUT: WITHIN = FALSE = NOT FOUND * TRUE = FOUND * BPOINT =FOUND ENTRY POINT OF VALBUF * LENGTH = 0 = E-O-B FOUND * > 0 = INSERTTION OF LINE * ************************************************************************ BUFSEA PROC WITHIN,INLIN,BULIN,BPOINT,LENGTH PBOOL WITHIN PBIN INLIN INPUT LINE NUMBER PBIN BULIN FOUND LINE NUMBER IN BUFFER PBIN BPOINT BUFFERPOINTER PBIN LENGTH BASIC LINE LENGTH MOVE INLIN,LINNO(W9) CONVERT TO BINARY CLEAR WITHIN FALSE = NOT FOND EJECT BUF010 MOVE LENGTH,W0 MOVE BULIN,W0 BUFFER LINE NUMBER:=0 CBNL BPOINT,VBBIN,BUF020 JMP IF VALBUF MAX REACHED XCOPY LENGTH,W1,W1,VALBUF,BPOINT GET LENGTH BUF020 CBE LENGTH,W0,BUF980 JMP IF E-O-B FOUND ADD BPOINT,W1 ADJUST BUFFER POINTER XCOPY BULIN,W0,W2,VALBUF,BPOINT GET LINE NUMBER CMP INLIN,BULIN COMPARE INLINE<=>BUFLINE BE BUF100 JMP IF EXISTING LINE BL BUF200 JMP IF INSERT LINE SUB LENGTH,W1 ADD BPOINT,LENGTH ADJUST BUFFER POINTER B BUF010 GO ON * * LINE NUMBER FOUND * BUF100 SET WITHIN TRUE = FOUND * * LINE NUMBER NOT FOUND * BUF200 SUB BPOINT,W1 ADJUST POINTER WHEN FOUND BUF980 RET PEND EJECT * * VALIDATION PAGE LOAD * * THIS ROUTINE UNPACK AND LOAD A VALIDATION PAGE * CONSISITING OF 7 LINES * * INPUT: VALBUF = VALIDATION BUFFER * VBIN1 = INDEX TO NUMB-OF-CHARS-TABLE * VBIN2 = LINE NUMBER INDEX * STPNT = START POINTER IN VALBUF * * OUTPUT: VBIN4 = END-OF-PAGE BUFFER POINTER (BACK-PAGING) * VBIN2 = UPDATED * VBIN1 = UPDATED * BASLIN = BASIC LINE SOURCE * GBINIA = NUMBER CHARS OF BASIC LINE * ************************************************************************ VLPAGE PROC STPNT PBIN STPNT START POINTER EJECT VLP020 MOVE LBIN1,W0 WORKITEM:=0 XCOPY LBIN1,W1,W1,VALBUF,STPNT GET BASIC LINE LENGTH CBE LBIN1,W0,VLP900 JMP IF END-OF-BUFFER ADD STPNT,W1 ADJUST BUFFERPOINTER XCOPY LBIN3,W0,W2,VALBUF,STPNT LOAD LINE NUMBER ADD STPNT,W2 ADJUST BUFFERPOINTER MOVE LINNO(VBIN2),LBIN3 LOAD LINE NUMBER SUB LBIN1,W3 ADJUST LEN FOR LEN+LINENO MOVE GBINIA(VBIN1),LBIN1 STORE NUMB OF CHARS XCOPY BASLIN(VBIN2),W0,LBIN1,VALBUF,STPNT STORE BASIC LINE ADD STPNT,LBIN1 ADJUST BUFFERPOINTER ADD VBIN2,W1 INCREMENT LINENUMBER-INDEX ADD VBIN1,W1 INCREMENT TABLE-INDEX CBE STPNT,VBBIN,VLP900 JMP IF END LIMIT REACHED CBNE VBIN2,W8,VLP020 JMP IF PAGE FULL VLP900 MOVE VBIN4,STPNT STORE END-OF-PAGE BUF POINTER MOVE STPNT,VBIN1 SAVE INDEX VLP910 MOVE GBINIA(STPNT),W0 ZEROISE ADD STPNT,W1 NEXT INDEX CBL STPNT,W17,VLP910 JMP IF NOT ALL ZEROISED RET PEND EJECT * * LINE NUMBER WITHIN SCREEN * * THIS ROUTINE SEARCH7S AND COMPARE IF KEYED IN * LINE NUMBER EXISTS ON SCREEN * * INPUT: LINNO(W9) = KEYED IN LINE NUMBER * * OUTPUT:FOUND = FALSE = NOT FOUND * = TRUE = FOUND * LININX = LINE INDEX * ************************************************************************ LINSEA PROC FOUND,LININX PBOOL FOUND PBIN LININX MOVE LININX,W1 CLEAR FOUND FALSE = NOT FOUND LIN010 CBE LINNO(W9),LINNO(LININX),LIN050 JMP IF EQUAL CBE LININX,W8,LIN999 NOT FOUND ADD LININX,W1 INCREMENT LINE NUMBER INDEX B LIN010 GO ON LIN050 SET FOUND TRUE = FOUND LIN999 RET PEND EJECT * * STORE VALIDATION BASIC LINE IN VALIDATION BUFFER * * INPUT: BASLIN = BASIC STATEMENT LINE * VBIN2 = INDEX TO BASLIN * GBINIA = NUMB-OF-CHARS-TABLE * VBIN1 = INDEX TO GBINIA * LINNO = LINE NUMBER * VBIN3 = STARTPOINT OF VALIDATION PAGE * VALBUF = VALIDATION BUFFER * * USED: LBIN1 = WORK/OLD BASIC LINE LENGTH * VBIN8 = NEW BASIC LINE LENGTH * LBIN3 = POINTER VALBUF * LSTR4A = INTERMEDIATE BUFFER LENGTH+LINENUMBER * * OUTPUT: VALBUF = VALIDATION BUFFER UPDATED * CR = 0 OK * = 1 MEMORY OVERFLOW * ************************************************************************ STOBUF PROC MOVE LINNO(W9),LINNO(VBIN2) LOAD CURRENT LINE NUMBER MOVE LBIN3,VBIN3 LOAD STARTPOINT IN BUFFER PERF BUFSEA,VBOOL2,LBIN1,VBIN8,LBIN3,LBIN4 ***BUFFER SEARCH MOVE VBIN8,GBINIA(VBIN1) STORE LENGTH MOVE LBIN4,VBIN8 LOAD LENGTH ADD LBIN4,LBIN3 CALC END POS FOR THIS LINE *TBT VBOOL2,STB050 JMP IF LINE ALREADY EXIST ADD LBIN4,W3 ADJUST FOR LEN + LINENR *STB050 CMP LBIN4,VBBIN CHECK SIZE OF BUFFER BG STB999 JMP IF OVERFLOW EJECT ADD VBIN8,W3 ADJUST LEN FOR LEN+LINENO MOVE LBIN1,LINNO(VBIN2) CONVERT LINENUMBER TO BIN XCOPY LSTR4A,W0,W1,VBIN8,W1 STORE INTERMEDIATE LEN XCOPY LSTR4A,W1,W2,LBIN1,W0 STORE INTERMEDIATE LINENO SUB VBIN8,W3 ADJUST NEW LENGTH TBT VBOOL2,STB100 JMP IF LINE EXIST * * INSERTION OF NEW LINE * INSRT VALBUF,LBIN3,W3,LSTR4A,W0 INSERT LEN+LINE NO BOFL STB980 JMP IF OVERFLOW ADD LBIN3,W3 ADJUST BUFFER-POINTER INSRT VALBUF,LBIN3,VBIN8,BASLIN(VBIN2),W0 INSERT BASIC LINE BOFL STB980 JMP IF OVERFLOW ADD LBIN3,VBIN8 ADJUST TO GET B-O-P POINTER ADD VBIN8,W3 ADJUST LEN FOR LEN+LINENO ADD VBIN4,VBIN8 ADJUST E-O-P BUFFER POINTER B STB350 EXIT * * LINE EXIST'S IN VALIDATION BUFFER * STB100 MOVE LBIN1,W0 OLD BASIC LINE LENGTH:=0 XCOPY LBIN1,W1,W1,VALBUF,LBIN3 GET OLD BASICLINE LENGTH SUB LBIN1,W3 ADJUST OLD LENGTH CMP LBIN1,VBIN8 COMPARE OLD<=>NEW LENGTHS BE STB300 JMP IF EQUAL LENGTH BL STB200 JMP IF OLD < NEW LENGTH EJECT * * OLD LENGTH > NEW LENGTH * XCOPY VALBUF,LBIN3,W3,LSTR4A,W0 STORE NEW LENGTH ADD LBIN3,W3 ADJUST BUFFERPOINTER XCOPY VALBUF,LBIN3,VBIN8,BASLIN(VBIN2),W0 LOAD UPD BASIC LINE ADD LBIN3,VBIN8 ADJUST BUFFER POINTER SUB LBIN1,VBIN8 CALC NUMB OF OVERFLOW CHARS CBE VBIN4,W0,STB150 JMP IF STILL 1ST PAGE SUB VBIN4,LBIN1 ADJUST E-O-P POINTER STB150 DLETE VALBUF,LBIN3,LBIN1 DELETE OVERFLOW CHARACTERS MOVE LBIN3,VBBIN LOAD LENGTH OF VALBUF PERF ZERFLL,VALBUF,LBIN3,LBIN1 ***ZERO REFILL X /00:S B STB350 EJECT * * OLD LENGTH < NEW LENGTH * STB200 XCOPY VALBUF,LBIN3,W3,LSTR4A,W0 STORE NEW LENGTH ADD LBIN3,W3 ADJUST BUFFER POINTER XCOPY VALBUF,LBIN3,LBIN1,BASLIN(VBIN2),W0 LOAD 1ST PART ADD LBIN3,LBIN1 ADJUST BUFFERPOINTER SUB VBIN8,LBIN1 CALC REST OF CHARS CBE VBIN4,W0,STB250 JMP IF STILL 1ST PAGE ADD VBIN4,VBIN8 ADJUST E-O-P POINTER STB250 INSRT VALBUF,LBIN3,VBIN8,BASLIN(VBIN2),LBIN1 INSERT 2ND PART BOFL STB980 JMP IF MEMORY OVERFLOW B STB999 * * OLD LENGTH = NEW LENGTH * STB300 ADD LBIN3,W3 ADJUST POINTER XCOPY VALBUF,LBIN3,VBIN8,BASLIN(VBIN2),W0 UPDATE BASIC LINE STB350 CMP W1,W1 CR:=0 B STB999 EXIT * * MEMORY OVERFLOW * STB980 CMP W1,W0 CR:=1 STB999 RET PEND END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT VALPRC REL=2.3,850531,870155940230 «, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…0078 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0000, t01=0x003e}
0x0078…0082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007c}
0x0082…00ae Head {h00=0x0028, h01=0x0050, text=»* LATEST UPDATE 850531 MADE BY JE«, t00=0x0000, t01=0x0086}
0x00ae…00b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b2}
0x00b8…00ce Head {h00=0x0012, h01=0x0050, text=»* HISTORY= «, t00=0x0000, t01=0x00bc}
0x00ce…0120 Head {h00=0x004e, h01=0x0050, text=»* 850531/JE DIRECT MOVE VAL.OBJ. NOT OK WHEN DELETE FULL LINE «, t00=0x0000, t01=0x00d2}
0x0120…0174 Head {h00=0x0050, h01=0x0050, text=»* 850403/JE ERROR STOBUF LBIN3 NOT OK TROUBLE WHEN VALPAGE FULL «, t00=0x0000, t01=0x0124}
0x0174…01c4 Head {h00=0x004c, h01=0x0050, text=»* 850313/JE PERFORMANCE. DIRECT MOVE VAL.OBJ. WHEN UNCHANGED«, t00=0x0000, t01=0x0178}
0x01c4…0216 Head {h00=0x004e, h01=0x0050, text=»* 850220/JE SIMULATE INPUT OF LINE NUMBER WHEN DISASTER ERROR «, t00=0x0001, t01=0x0038}
0x0216…0242 Head {h00=0x0028, h01=0x0050, text=»* FROM OBJVAL «, t00=0x0001, t01=0x008a}
0x0242…027e Head {h00=0x0038, h01=0x0050, text=»* 841120/CJ MUL&DIV NOW FROM ASS.ROUTINE«, t00=0x0001, t01=0x00b6}
0x027e…02ca Head {h00=0x0048, h01=0x0050, text=»* 841017/CJ ERROR AFTER INS LINE IN BASIC + TFD LOC=402«, t00=0x0001, t01=0x00f2}
0x02ca…0316 Head {h00=0x0048, h01=0x0050, text=»* 830524/CJ ROW NO LOST WHEN VALBUF EXEEDED LOC=VAL800 «, t00=0x0001, t01=0x013e}
0x0316…0350 Head {h00=0x0036, h01=0x0050, text=»* 830520/CJ TAB FWD (BLAEDDRING) ERROR«, t00=0x0001, t01=0x018a}
0x0350…039c Head {h00=0x0048, h01=0x0050, text=»* WHEN VALBUF EXACT FULL LOC:=81 - NOW SOLVED «, t00=0x0002, t01=0x0034}
0x039c…03ea Head {h00=0x004a, h01=0x0050, text=»* 830520/CJ ERROR IN BUFSEA WHEN VALBUF OVERFLOW - SOLVED «, t00=0x0002, t01=0x0080}
0x03ea…0432 Head {h00=0x0044, h01=0x0050, text=»* 830519/CJ ERROR WHEN VALBUF-MAX REACHED LOC:=03B9 «, t00=0x0002, t01=0x00ce}
0x0432…043c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0116}
0x043c…047a Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0002, t01=0x0120}
0x047a…0482 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x015e}
0x0482…048a Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0166}
0x048a…049e Head {h00=0x0010, h01=0x0050, text=» DDUM WSMDDV«, t00=0x0002, t01=0x016e}
0x049e…04ac Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0002, t01=0x0182}
0x04ac…04c2 Head {h00=0x0012, h01=0x0050, text=» ENTRY VALPRC «, t00=0x0002, t01=0x0190}
0x04c2…04ea Head {h00=0x0024, h01=0x0050, text=» ENTRY VLPAGE ***VALIDATION PAGE«, t00=0x0003, t01=0x0016}
0x04ea…0526 Head {h00=0x0038, h01=0x0050, text=» EXPROC ZERFLL,PSTRG,PBIN,PBIN ***ZERO REFILL /00:S «, t00=0x0003, t01=0x003e}
0x0526…0568 Head {h00=0x003e, h01=0x0050, text=» EXPROC READIN,PKTAB,PKTAB,PKTAB,PLIT ***READ IN ONE FIELD«, t00=0x0003, t01=0x007a}
0x0568…05a0 Head {h00=0x0034, h01=0x0050, text=» EXPROC WSMERR,PKTAB,PLIT ***ERR-MESSAGE ROUTINE«, t00=0x0003, t01=0x00bc}
0x05a0…05c2 Head {h00=0x001e, h01=0x0050, text=» EXT ICLEAR ---CLEAR ITEM «, t00=0x0003, t01=0x00f4}
0x05c2…05e8 Head {h00=0x0022, h01=0x0050, text=» EXT EMPTYT ---CHECK IF EMPTY «, t00=0x0003, t01=0x0116}
0x05e8…060e Head {h00=0x0022, h01=0x0050, text=» EXT GETIND ---GET ITEM LENGTH«, t00=0x0003, t01=0x013c}
0x060e…0632 Head {h00=0x0020, h01=0x0050, text=» EXT WXMUL ---MULTIPLICATION«, t00=0x0003, t01=0x0162}
0x0632…0650 Head {h00=0x001a, h01=0x0050, text=» EXT WXDIV ---DIVISION«, t00=0x0003, t01=0x0186}
0x0650…065e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0014}
0x065e…067a Head {h00=0x0018, h01=0x0050, text=» INCLUDE WSMKEY,LIST«, t00=0x0004, t01=0x0022}
0x067a…0696 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT21,LIST«, t00=0x0004, t01=0x003e}
0x0696…06b2 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT22,LIST«, t00=0x0004, t01=0x005a}
0x06b2…06ce Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT23,LIST«, t00=0x0004, t01=0x0076}
0x06ce…06dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0092}
0x06dc…06f8 Head {h00=0x0018, h01=0x0050, text=» INCLUDE KEYT5,LIST «, t00=0x0004, t01=0x00a0}
0x06f8…0706 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00bc}
0x0706…0710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ca}
0x0710…0732 Head {h00=0x001e, h01=0x0050, text=»* VALIDATION PROCEDURE «, t00=0x0004, t01=0x00d4}
0x0732…0774 Head {h00=0x003e, h01=0x0050, text=»* THIS ROUTINE HANDLES I/O OF BASIC VALIDATION LINES«, t00=0x0004, t01=0x00f6}
0x0774…07b2 Head {h00=0x003a, h01=0x0050, text=»* BETWEEN KEYBOARD/DISPLAY AND VALIDATION BUFFER«, t00=0x0004, t01=0x0138}
0x07b2…07bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0176}
0x07bc…07fe Head {h00=0x003e, h01=0x0050, text=»* USED ITEMS: VBIN1 = INDEX TO NUMB-OF-CHARS-TABLE«, t00=0x0004, t01=0x0180}
0x07fe…0844 Head {h00=0x0042, h01=0x0050, text=»* VBIN2 = INDEX TO VALIDATION LINE OF PAGE«, t00=0x0005, t01=0x0032}
0x0844…0894 Head {h00=0x004c, h01=0x0050, text=»* VBIN3 = BUFFERPOINTER OF VALIDATION SOURCE BUFFER «, t00=0x0005, t01=0x0078}
0x0894…08d0 Head {h00=0x0038, h01=0x0050, text=»* VBIN4 = END BPOINTER OF VALBUF«, t00=0x0005, t01=0x00c8}
0x08d0…090c Head {h00=0x0038, h01=0x0050, text=»* VBIN5 = FIRST FREE LINE NUMBER«, t00=0x0005, t01=0x0104}
0x090c…095c Head {h00=0x004c, h01=0x0050, text=»* VBIN6 = TEMPORARY STORAGE OF LAST LINES NUMBER OF «, t00=0x0005, t01=0x0140}
0x095c…0966 Head {h00=0x0006, h01=0x0050, text=»R «, t00=0x0005, t01=0x0190}
0x0966…09aa Head {h00=0x0040, h01=0x0050, text=»* VBIN7 = LENGTH OF KEYED IN LINE NUMBER«, t00=0x0006, t01=0x000a}
0x09aa…09b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004e}
0x09b4…09de Head {h00=0x0026, h01=0x0050, text=»* OUTPUT CR = 0 OK«, t00=0x0006, t01=0x0058}
0x09de…0a16 Head {h00=0x0034, h01=0x0050, text=»* = 1 GREATER OVERFLOW«, t00=0x0006, t01=0x0082}
0x0a16…0a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ba}
0x0a20…0a70 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0006, t01=0x00c4}
0x0a70…0a84 Head {h00=0x0010, h01=0x0050, text=»VALPRC PROC «, t00=0x0006, t01=0x0114}
0x0a84…0ab2 Head {h00=0x002a, h01=0x0050, text=» MOVE VBIN5,W0 1ST FREE LINENUMBER:=0 «, t00=0x0006, t01=0x0128}
0x0ab2…0ae4 Head {h00=0x002e, h01=0x0050, text=» MOVE VBIN8,W0 VALIDATIONBUFFERPOINTER:=0 «, t00=0x0006, t01=0x0156}
0x0ae4…0af2 Head {h00=0x000a, h01=0x0050, text=»VAL020«, t00=0x0006, t01=0x0188}
0x0af2…0b1e Head {h00=0x0028, h01=0x0050, text=» MOVE LBIN1,W0 BASIC LINE LENGTH:=0 «, t00=0x0007, t01=0x0008}
0x0b1e…0b56 Head {h00=0x0034, h01=0x0050, text=» XCOPY LBIN1,W1,W1,VALBUF,VBIN8 GET LINE LENGTH «, t00=0x0007, t01=0x0034}
0x0b56…0b90 Head {h00=0x0036, h01=0x0050, text=» CBE LBIN1,W0,VAL050 JMP IF END OF BUFFER REACHED «, t00=0x0007, t01=0x006c}
0x0b90…0bba Head {h00=0x0026, h01=0x0050, text=» ADD VBIN8,W1 ADJUST BUFFERPOINTER«, t00=0x0007, t01=0x00a6}
0x0bba…0bf2 Head {h00=0x0034, h01=0x0050, text=» XCOPY VBIN5,W0,W2,VALBUF,VBIN8 GET LINE-NUMBER «, t00=0x0007, t01=0x00d0}
0x0bf2…0c16 Head {h00=0x0020, h01=0x0050, text=» SUB LBIN1,W1 ADJUST LENGTH «, t00=0x0007, t01=0x0108}
0x0c16…0c3e Head {h00=0x0024, h01=0x0050, text=» ADD VBIN8,LBIN1 ADJUST POINTER «, t00=0x0007, t01=0x012c}
0x0c3e…0c6a Head {h00=0x0028, h01=0x0050, text=» CMP VBIN8,VBBIN CHECK BUFFER LENGTH«, t00=0x0007, t01=0x0154}
0x0c6a…0c8a Head {h00=0x001c, h01=0x0050, text=» BL VAL020 GO ON IF LESS«, t00=0x0007, t01=0x0180}
0x0c8a…0c98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0010}
0x0c98…0ca6 Head {h00=0x000a, h01=0x0050, text=»VAL050«, t00=0x0008, t01=0x001e}
0x0ca6…0cde Head {h00=0x0034, h01=0x0050, text=» CALL WXDIV,VBIN5,W10,VBIN5 CALC 1ST FREE LINENO«, t00=0x0008, t01=0x002c}
0x0cde…0d20 Head {h00=0x003e, h01=0x0050, text=» CALL WXMUL,VBIN5,W10,VBIN5 ...BY GETTING EVEV 10-MULTIPEL«, t00=0x0008, t01=0x0064}
0x0d20…0d44 Head {h00=0x0020, h01=0x0050, text=» ADD VBIN5,W10 ...AND ADD 10«, t00=0x0008, t01=0x00a6}
0x0d44…0d7c Head {h00=0x0034, h01=0x0050, text=» CBNG VBIN5,=X'07FF',VAL060 LINE NUMBER < = 2047«, t00=0x0008, t01=0x00ca}
0x0d7c…0d8e Head {h00=0x000e, h01=0x0050, text=» B VAL600 «, t00=0x0008, t01=0x0102}
0x0d8e…0d9c Head {h00=0x000a, h01=0x0050, text=»VAL060«, t00=0x0008, t01=0x0114}
0x0d9c…0dd6 Head {h00=0x0036, h01=0x0050, text=» MOVE LINNO(VBIN2),VBIN5 STORE 1ST FREE LINENUMBER«, t00=0x0008, t01=0x0122}
0x0dd6…0de4 Head {h00=0x000a, h01=0x0050, text=»VAL065«, t00=0x0008, t01=0x015c}
0x0de4…0e14 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN4,VBIN2 LOAD CURR LINENO-INDEX«, t00=0x0008, t01=0x016a}
0x0e14…0e40 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W10 CALC PROPER FIELD NO «, t00=0x0009, t01=0x000a}
0x0e40…0e68 Head {h00=0x0024, h01=0x0050, text=» GETFLD 1,LBIN4,LBIN3 FINP FIELD«, t00=0x0009, t01=0x0036}
0x0e68…0e9a Head {h00=0x002e, h01=0x0050, text=» DISPLAY 2,LBIN4,LBIN4 DISPLAY ROW NUMBER «, t00=0x0009, t01=0x005e}
0x0e9a…0ec6 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W8 CALC PROPER FKI-SEQ,NO«, t00=0x0009, t01=0x0090}
0x0ec6…0eee Head {h00=0x0024, h01=0x0050, text=» GETFLD 0,LBIN4,LBIN3 FKI-FIELD «, t00=0x0009, t01=0x00bc}
0x0eee…0efe Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0009, t01=0x00e4}
0x0efe…0f30 Head {h00=0x002e, h01=0x0050, text=» CLEAR OBBOOL CLEAR DISASTER ERROR IF ANY «, t00=0x0009, t01=0x00f4}
0x0f30…0f58 Head {h00=0x0024, h01=0x0050, text=» BT VAL101 JMP IF DISASTER ERROR«, t00=0x0009, t01=0x0126}
0x0f58…0f66 Head {h00=0x000a, h01=0x0050, text=»VAL090«, t00=0x0009, t01=0x014e}
0x0f66…0f8c Head {h00=0x0022, h01=0x0050, text=» CLEAR VBOOL3 FALSE= NOT E-O-P«, t00=0x0009, t01=0x015c}
0x0f8c…0fce Head {h00=0x003e, h01=0x0050, text=» PERF READIN,KEYT1,KEYT22,KEYT3,=W'0' ***READIN ONE FIELD «, t00=0x0009, t01=0x0182}
0x0fce…0ff2 Head {h00=0x0020, h01=0x0050, text=» IB LBIN2,VAL100,VAL200, C «, t00=0x000a, t01=0x0034}
0x0ff2…100a Head {h00=0x0014, h01=0x0050, text=» VAL300,VAL400 «, t00=0x000a, t01=0x0058}
0x100a…1018 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0070}
0x1018…1026 Head {h00=0x000a, h01=0x0050, text=»VAL100«, t00=0x000a, t01=0x007e}
0x1026…104a Head {h00=0x0020, h01=0x0050, text=» BNL VAL102 JMP IF NOT E-O-P«, t00=0x000a, t01=0x008c}
0x104a…1058 Head {h00=0x000a, h01=0x0050, text=»VAL101«, t00=0x000a, t01=0x00b0}
0x1058…1076 Head {h00=0x001a, h01=0x0050, text=» SET VBOOL3 TRUE=E-O-P«, t00=0x000a, t01=0x00be}
0x1076…1084 Head {h00=0x000a, h01=0x0050, text=»VAL102«, t00=0x000a, t01=0x00dc}
0x1084…10ae Head {h00=0x0026, h01=0x0050, text=» TBT LBOOL1,VAL110 JMP IF BACKTAB «, t00=0x000a, t01=0x00ea}
0x10ae…10e2 Head {h00=0x0030, h01=0x0050, text=» CALL EMPTYT,BASLIN(VBIN2) ---CHECK IF EMPTY«, t00=0x000a, t01=0x0114}
0x10e2…1106 Head {h00=0x0020, h01=0x0050, text=» BOK VAL130 JMP IF NOT EMPTY«, t00=0x000a, t01=0x0148}
0x1106…113a Head {h00=0x0030, h01=0x0050, text=» CBNE LBIN2,W1,VAL105 JMP IF NOT ENT + EMPTY«, t00=0x000a, t01=0x016c}
0x113a…1162 Head {h00=0x0024, h01=0x0050, text=» TBT VBOOL3,VAL105 JMP IF E-O-P «, t00=0x000b, t01=0x0010}
0x1162…1186 Head {h00=0x0020, h01=0x0050, text=» B VAL500 JMP IF ENT + EMPTY«, t00=0x000b, t01=0x0038}
0x1186…1190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x005c}
0x1190…11a8 Head {h00=0x0014, h01=0x0050, text=»* TAB FORWARD«, t00=0x000b, t01=0x0066}
0x11a8…11b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x007e}
0x11b2…11c0 Head {h00=0x000a, h01=0x0050, text=»VAL105«, t00=0x000b, t01=0x0088}
0x11c0…11fa Head {h00=0x0036, h01=0x0050, text=» MOVE LBIN1,LINNO(VBIN2) LOAD CURRENT LINE NUMBER «, t00=0x000b, t01=0x0096}
0x11fa…1234 Head {h00=0x0036, h01=0x0050, text=» CBNE LBIN1,VBIN5,VAL120 JMP IF NOT 1ST FREE LINE «, t00=0x000b, t01=0x00d0}
0x1234…1256 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN1,W0 WORKITEM:=0«, t00=0x000b, t01=0x010a}
0x1256…1292 Head {h00=0x0038, h01=0x0050, text=» CBNL VBIN4,VBBIN,VAL107 JMP WHEN VALBUF-MAX REACHED«, t00=0x000b, t01=0x012c}
0x1292…12d2 Head {h00=0x003c, h01=0x0050, text=» XCOPY LBIN1,W1,W1,VALBUF,VBIN4 GET NEXT-PAGE 1ST LENGTH«, t00=0x000b, t01=0x0168}
0x12d2…12e0 Head {h00=0x000a, h01=0x0050, text=»VAL107«, t00=0x000c, t01=0x0018}
0x12e0…1314 Head {h00=0x0030, h01=0x0050, text=» CBE LBIN1,W0,VAL065 JMP IF NO PAGING NEEDED«, t00=0x000c, t01=0x0026}
0x1314…1348 Head {h00=0x0030, h01=0x0050, text=» MOVE VBIN3,VBIN4 LOAD CURRENT E-O-P POINTER«, t00=0x000c, t01=0x005a}
0x1348…135a Head {h00=0x000e, h01=0x0050, text=» B VAL116 «, t00=0x000c, t01=0x008e}
0x135a…1368 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00a0}
0x1368…1376 Head {h00=0x000a, h01=0x0050, text=»VAL110«, t00=0x000c, t01=0x00ae}
0x1376…13b0 Head {h00=0x0036, h01=0x0050, text=» MOVE LBIN1,LINNO(VBIN2) LOAD CURRENT LINE NUMBER «, t00=0x000c, t01=0x00bc}
0x13b0…13ea Head {h00=0x0036, h01=0x0050, text=» CBNE LBIN1,VBIN5,VAL065 JMP IF NOT 1ST FREE LINE «, t00=0x000c, t01=0x00f6}
0x13ea…13f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0130}
0x13f4…142c Head {h00=0x0034, h01=0x0050, text=»* TAB BACKWARD ====> SEARCH 7 PREVIOUS LINES «, t00=0x000c, t01=0x013a}
0x142c…1436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0172}
0x1436…1472 Head {h00=0x0038, h01=0x0050, text=» CBNE VBIN3,W0,VAL111 JMP IF NOT 1ST PAGE ON SCREEN «, t00=0x000c, t01=0x017c}
0x1472…14a0 Head {h00=0x002a, h01=0x0050, text=» B VAL700 JMP IF 1ST PAGE AND BACKTAB «, t00=0x000d, t01=0x0028}
0x14a0…14ae Head {h00=0x000a, h01=0x0050, text=»VAL111«, t00=0x000d, t01=0x0056}
0x14ae…14d6 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,W0 BUFFER POINTER:=0«, t00=0x000d, t01=0x0064}
0x14d6…1502 Head {h00=0x0028, h01=0x0050, text=» MOVE VBIN8,W0 BASIC LINE LENGTH:=0 «, t00=0x000d, t01=0x008c}
0x1502…152c Head {h00=0x0026, h01=0x0050, text=» CALL ICLEAR,LSTR16 ---CLEAR ITEM «, t00=0x000d, t01=0x00b8}
0x152c…153a Head {h00=0x000a, h01=0x0050, text=»VAL112«, t00=0x000d, t01=0x00e2}
0x153a…1570 Head {h00=0x0032, h01=0x0050, text=» XCOPY VSTR2,W0,W2,LBIN1,W0 LOAD LINE POINTER «, t00=0x000d, t01=0x00f0}
0x1570…15a8 Head {h00=0x0034, h01=0x0050, text=» INSRT LSTR16,W0,W2,VSTR2,W0 INSRT LINE POINTER «, t00=0x000d, t01=0x0126}
0x15a8…15e6 Head {h00=0x003a, h01=0x0050, text=» XCOPY VBIN8,W1,W1,VALBUF,LBIN1 GET BASIC LINE LENGTH «, t00=0x000d, t01=0x015e}
0x15e6…1616 Head {h00=0x002c, h01=0x0050, text=» CBE VBIN8,W0,VAL114 JMP IF E-O-B FOUND «, t00=0x000e, t01=0x000c}
0x1616…163e Head {h00=0x0024, h01=0x0050, text=» ADD LBIN1,VBIN8 ADJUST POINTER «, t00=0x000e, t01=0x003c}
0x163e…1676 Head {h00=0x0034, h01=0x0050, text=» CBE LBIN1,VBBIN,VAL114 JMP IF END LIMIT REACHED«, t00=0x000e, t01=0x0064}
0x1676…16ae Head {h00=0x0034, h01=0x0050, text=» CBNE LBIN1,VBIN3,VAL112 JMP IF B-O-P NOT FOUND «, t00=0x000e, t01=0x009c}
0x16ae…16bc Head {h00=0x000a, h01=0x0050, text=»VAL114«, t00=0x000e, t01=0x00d4}
0x16bc…16fe Head {h00=0x003e, h01=0x0050, text=» XCOPY VBIN3,W0,W2,LSTR16,W8 LOAD STARTPOINT OF PREV PAGE «, t00=0x000e, t01=0x00e2}
0x16fe…170c Head {h00=0x000a, h01=0x0050, text=»VAL116«, t00=0x000e, t01=0x0124}
0x170c…1734 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,=W'29' FIELD SEQ NO «, t00=0x000e, t01=0x0132}
0x1734…1760 Head {h00=0x0028, h01=0x0050, text=» ERASE 2,LBIN1,W0 ERASE REST OF PAGE«, t00=0x000e, t01=0x015a}
0x1760…1794 Head {h00=0x0030, h01=0x0050, text=» MOVE VBIN1,W9 NUMB-OF-CHARS-TABLE-INDEX:=9 «, t00=0x000e, t01=0x0186}
0x1794…17b8 Head {h00=0x0020, h01=0x0050, text=» MOVE VBIN2,W1 LINE INDEX:=1«, t00=0x000f, t01=0x002a}
0x17b8…17e4 Head {h00=0x0028, h01=0x0050, text=» MOVE VBIN8,VBIN3 LOAD B-O-P POINTER«, t00=0x000f, t01=0x004e}
0x17e4…180c Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN4,=W'29' FIELD SEQ NO «, t00=0x000f, t01=0x007a}
0x180c…181e Head {h00=0x000e, h01=0x0050, text=» B VAL125 «, t00=0x000f, t01=0x00a2}
0x181e…182c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00b4}
0x182c…1836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c2}
0x1836…1872 Head {h00=0x0038, h01=0x0050, text=»* DELETION EMPTY BASIC LINE + NOT 1ST FREE LINE«, t00=0x000f, t01=0x00cc}
0x1872…187c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0108}
0x187c…188a Head {h00=0x000a, h01=0x0050, text=»VAL120«, t00=0x000f, t01=0x0112}
0x188a…18c0 Head {h00=0x0032, h01=0x0050, text=» MOVE LINNO(W9),LBIN1 LOAD WANTED LINE NUMBER «, t00=0x000f, t01=0x0120}
0x18c0…18ee Head {h00=0x002a, h01=0x0050, text=» MOVE VBIN8,VBIN3 LOAD B-O-P- POINTER «, t00=0x000f, t01=0x0156}
0x18ee…1932 Head {h00=0x0040, h01=0x0050, text=» PERF BUFSEA,VBOOL2,LBIN1,LBIN3,VBIN8,LBIN4 ***BUFFER SEARCH«, t00=0x000f, t01=0x0184}
0x1932…1968 Head {h00=0x0032, h01=0x0050, text=» TBF VBOOL2,VAL122 JMP IF NOT FOUND NO DELETE «, t00=0x0010, t01=0x0038}
0x1968…199c Head {h00=0x0030, h01=0x0050, text=» DLETE VALBUF,VBIN8,LBIN4 DELET EMPTIED LINE«, t00=0x0010, t01=0x006e}
0x199c…19cc Head {h00=0x002c, h01=0x0050, text=» SET CHABOL T=VALIDATION ROUTINE CHANGED«, t00=0x0010, t01=0x00a2}
0x19cc…19fc Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN1,VBBIN STORE LENGTH OF VALBUF«, t00=0x0010, t01=0x00d2}
0x19fc…1a38 Head {h00=0x0038, h01=0x0050, text=» PERF ZERFLL,VALBUF,LBIN1,LBIN4 ***ZERO REFILL /00:S«, t00=0x0010, t01=0x0102}
0x1a38…1a46 Head {h00=0x000a, h01=0x0050, text=»VAL122«, t00=0x0010, t01=0x013e}
0x1a46…1a7e Head {h00=0x0034, h01=0x0050, text=» MOVE LBIN4,VBIN2 LOAD CURRENT LINE NUMBER INDEX«, t00=0x0010, t01=0x014c}
0x1a7e…1aac Head {h00=0x002a, h01=0x0050, text=» ADD LBIN4,LBIN4 CALC PROPER FKI FINP «, t00=0x0010, t01=0x0184}
0x1aac…1ad0 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN4,=W'27' ...SEQ.NO «, t00=0x0011, t01=0x0022}
0x1ad0…1afc Head {h00=0x0028, h01=0x0050, text=» ERASE 2,LBIN4,W0 ERASE REST OF PAGE«, t00=0x0011, t01=0x0046}
0x1afc…1b0a Head {h00=0x000a, h01=0x0050, text=»VAL125«, t00=0x0011, t01=0x0072}
0x1b0a…1b38 Head {h00=0x002a, h01=0x0050, text=» CBNE LBIN2,W1,VAL128 JMP IF NOT ENTER«, t00=0x0011, t01=0x0080}
0x1b38…1b60 Head {h00=0x0024, h01=0x0050, text=» TBT VBOOL3,VAL128 JMP IF E-O-P «, t00=0x0011, t01=0x00ae}
0x1b60…1b7e Head {h00=0x001a, h01=0x0050, text=» B VAL500 JMP IF ENTER«, t00=0x0011, t01=0x00d6}
0x1b7e…1b8c Head {h00=0x000a, h01=0x0050, text=»VAL128«, t00=0x0011, t01=0x00f4}
0x1b8c…1bbe Head {h00=0x002e, h01=0x0050, text=» PERF VLPAGE,VBIN8 ***VALIDATION PAGE LOAD«, t00=0x0011, t01=0x0102}
0x1bbe…1bf8 Head {h00=0x0036, h01=0x0050, text=» MOVE LINNO(VBIN2),VBIN5 LOAD 1ST FREE LINE NUMBER«, t00=0x0011, t01=0x0134}
0x1bf8…1c28 Head {h00=0x002c, h01=0x0050, text=» DISPLAY 3,LBIN4,W0 DISPLAY REST OF PAGE«, t00=0x0011, t01=0x016e}
0x1c28…1c3a Head {h00=0x000e, h01=0x0050, text=» B VAL065 «, t00=0x0012, t01=0x000e}
0x1c3a…1c48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0020}
0x1c48…1c56 Head {h00=0x000a, h01=0x0050, text=»VAL130«, t00=0x0012, t01=0x002e}
0x1c56…1c60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x003c}
0x1c60…1c90 Head {h00=0x002c, h01=0x0050, text=»* TYPE OF INPUT : 1.ONLY LINE NUMBER «, t00=0x0012, t01=0x0046}
0x1c90…1ccc Head {h00=0x0038, h01=0x0050, text=»* 2.LINE NUMBER + BASIC STATMENT «, t00=0x0012, t01=0x0076}
0x1ccc…1cfe Head {h00=0x002e, h01=0x0050, text=»* 3.ONLY BASIC STATMENT«, t00=0x0012, t01=0x00b2}
0x1cfe…1d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e4}
0x1d08…1d32 Head {h00=0x0026, h01=0x0050, text=» CALL ICLEAR,LSTR4A ---CLEAR ITEM «, t00=0x0012, t01=0x00ee}
0x1d32…1d66 Head {h00=0x0030, h01=0x0050, text=» MOVE VBIN7,W0 ACTUAL LINE NUMBER LENGTH:=0 «, t00=0x0012, t01=0x0118}
0x1d66…1d9a Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN1,W4 LOAD MAXLENGTH OF LINE NUMBER«, t00=0x0012, t01=0x014c}
0x1d9a…1dd8 Head {h00=0x003a, h01=0x0050, text=» CBG GBINIA(VBIN1),W4,VAL134 JMP IF GREATER MAXLENGTH «, t00=0x0012, t01=0x0180}
0x1dd8…1e10 Head {h00=0x0034, h01=0x0050, text=» MOVE LBIN1,GBINIA(VBIN1) LOAD ACTUAL LENGTH < 4«, t00=0x0013, t01=0x002e}
0x1e10…1e1e Head {h00=0x000a, h01=0x0050, text=»VAL134«, t00=0x0013, t01=0x0066}
0x1e1e…1e5e Head {h00=0x003c, h01=0x0050, text=» XCOPY LSTR1,W0,W1,BASLIN(VBIN2),VBIN7 GET ONE CHARACTER«, t00=0x0013, t01=0x0074}
0x1e5e…1e92 Head {h00=0x0030, h01=0x0050, text=» CBL LSTR1,=X'30',VAL136 JMP IF NOT A DIGIT «, t00=0x0013, t01=0x00b4}
0x1e92…1ec6 Head {h00=0x0030, h01=0x0050, text=» CBG LSTR1,=X'39',VAL136 JMP IF NOT A DIGIT «, t00=0x0013, t01=0x00e8}
0x1ec6…1efa Head {h00=0x0030, h01=0x0050, text=» XCOPY LSTR4A,VBIN7,W1,LSTR1,W0 STORE DIGIT «, t00=0x0013, t01=0x011c}
0x1efa…1f2a Head {h00=0x002c, h01=0x0050, text=» ADD VBIN7,W1 ADJUST LINE NUMBER LENGTH «, t00=0x0013, t01=0x0150}
0x1f2a…1f60 Head {h00=0x0032, h01=0x0050, text=» CBNE VBIN7,LBIN1,VAL134 JMP IF NOT MAXLENGTH «, t00=0x0013, t01=0x0180}
0x1f60…1f6e Head {h00=0x000a, h01=0x0050, text=»VAL136«, t00=0x0014, t01=0x0026}
0x1f6e…1f9c Head {h00=0x002a, h01=0x0050, text=» MOVE LINNO(W9),LSTR4A CONVERT TO BCD «, t00=0x0014, t01=0x0034}
0x1f9c…1fde Head {h00=0x003e, h01=0x0050, text=» CBNE LINNO(W9),=D'00',VAL141 JMP IF NOT ONLY BASIC STATM «, t00=0x0014, t01=0x0062}
0x1fde…200e Head {h00=0x002c, h01=0x0050, text=» B VAL190 JMP WHEN ONLY BASIC STATEMENT «, t00=0x0014, t01=0x00a4}
0x200e…201c Head {h00=0x000a, h01=0x0050, text=»VAL141«, t00=0x0014, t01=0x00d4}
0x201c…2044 Head {h00=0x0024, h01=0x0050, text=» CLEAR VBOOL4 FALSE = NO DELETE «, t00=0x0014, t01=0x00e2}
0x2044…207e Head {h00=0x0036, h01=0x0050, text=» MOVE LBIN1,LINNO(VBIN2) LOAD LINE NUMBER BINARY «, t00=0x0014, t01=0x010a}
0x207e…20b2 Head {h00=0x0030, h01=0x0050, text=» CBE LBIN1,VBIN5,VAL142 JMP IF 1ST FREE LINE«, t00=0x0014, t01=0x0144}
0x20b2…20f0 Head {h00=0x003a, h01=0x0050, text=» PERF LINSEA,VBOOL1,VBIN8 ***LINE NUMBER WHITIN SCREEN«, t00=0x0014, t01=0x0178}
0x20f0…212a Head {h00=0x0036, h01=0x0050, text=» TBF VBOOL1,VAL142 JMP IFLINE NUMBER NOT ON SCREEN«, t00=0x0015, t01=0x0026}
0x212a…2138 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0060}
0x2138…2142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006e}
0x2142…2180 Head {h00=0x003a, h01=0x0050, text=»* BASIC LINE OVERWRITTEN WITH AT LEAST LINE NUMBER «, t00=0x0015, t01=0x0078}
0x2180…21ac Head {h00=0x0028, h01=0x0050, text=»* DELETE THE OVERWRITTEN LINE«, t00=0x0015, t01=0x00b6}
0x21ac…21b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e2}
0x21b6…21f4 Head {h00=0x003a, h01=0x0050, text=» MOVE LINNO(W9),LINNO(VBIN2) LOAD CURRENT LINE NUMBER «, t00=0x0015, t01=0x00ec}
0x21f4…2220 Head {h00=0x0028, h01=0x0050, text=» MOVE VBIN8,W0 STARTPOINT AT SEARCH «, t00=0x0015, t01=0x012a}
0x2220…2264 Head {h00=0x0040, h01=0x0050, text=» PERF BUFSEA,VBOOL2,LBIN1,LBIN3,VBIN8,LBIN4 ***BUFFER SEARCH«, t00=0x0015, t01=0x0156}
0x2264…229a Head {h00=0x0032, h01=0x0050, text=» TBF VBOOL2,VAL142 JMP IF NOT FOUND IN BUFFER «, t00=0x0016, t01=0x000a}
0x229a…22cc Head {h00=0x002e, h01=0x0050, text=» DLETE VALBUF,VBIN8,LBIN4 DELET FOUND LINE«, t00=0x0016, t01=0x0040}
0x22cc…22fc Head {h00=0x002c, h01=0x0050, text=» SET CHABOL T=VALIDATION ROUTINE CHANGED«, t00=0x0016, t01=0x0072}
0x22fc…232c Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN1,VBBIN STORE LENGTH OF VALBUF«, t00=0x0016, t01=0x00a2}
0x232c…2368 Head {h00=0x0038, h01=0x0050, text=» PERF ZERFLL,VALBUF,LBIN1,LBIN4 ***ZERO REFILL /00:S«, t00=0x0016, t01=0x00d2}
0x2368…2396 Head {h00=0x002a, h01=0x0050, text=» MOVE LINNO(W9),LSTR4A CONVERT TO BCD «, t00=0x0016, t01=0x010e}
0x2396…23be Head {h00=0x0024, h01=0x0050, text=» SET VBOOL4 TRUE = DELETION MADE«, t00=0x0016, t01=0x013c}
0x23be…23cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0164}
0x23cc…23d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0172}
0x23d6…23f4 Head {h00=0x001a, h01=0x0050, text=»* LINE NUMBER FOUND«, t00=0x0016, t01=0x017c}
0x23f4…23fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x000a}
0x23fe…240c Head {h00=0x000a, h01=0x0050, text=»VAL142«, t00=0x0017, t01=0x0014}
0x240c…244c Head {h00=0x003c, h01=0x0050, text=» CBNG GBINIA(VBIN1),VBIN7,VAL143 JMP IF JUST LINE NUMBER«, t00=0x0017, t01=0x0022}
0x244c…247a Head {h00=0x002a, h01=0x0050, text=» ADD VBIN7,W1 ADJUST FOR SPACE BETWEEN«, t00=0x0017, t01=0x0062}
0x247a…2488 Head {h00=0x000a, h01=0x0050, text=»VAL143«, t00=0x0017, t01=0x0090}
0x2488…24be Head {h00=0x0032, h01=0x0050, text=» DLETE BASLIN(VBIN2),W0,VBIN7 DLETE LINENUMBER«, t00=0x0017, t01=0x009e}
0x24be…24ec Head {h00=0x002a, h01=0x0050, text=» SUB GBINIA(VBIN1),VBIN7 ADJUST LENGTH«, t00=0x0017, t01=0x00d4}
0x24ec…252a Head {h00=0x003a, h01=0x0050, text=» PERF LINSEA,VBOOL1,VBIN8 ***LINE NUMBER WHITIN SCREEN«, t00=0x0017, t01=0x0102}
0x252a…255e Head {h00=0x0030, h01=0x0050, text=» TBT VBOOL4,VAL144 JMP IF DELETION WAS MADE «, t00=0x0017, t01=0x0140}
0x255e…2594 Head {h00=0x0032, h01=0x0050, text=» TBT VBOOL1,VAL180 JMP IF LINE FOUND IN SCREEN«, t00=0x0017, t01=0x0174}
0x2594…25a2 Head {h00=0x000a, h01=0x0050, text=»VAL144«, t00=0x0018, t01=0x001a}
0x25a2…25d6 Head {h00=0x0030, h01=0x0050, text=» MOVE VBIN6,GBINIA(VBIN1) SAVE NUMB OF CHARS«, t00=0x0018, t01=0x0028}
0x25d6…2600 Head {h00=0x0026, h01=0x0050, text=» CALL ICLEAR,LSTR81 ---CLEAR ITEM «, t00=0x0018, t01=0x005c}
0x2600…2630 Head {h00=0x002c, h01=0x0050, text=» XCOPY LSTR81,W0,VBIN6,BASLIN(VBIN2),W0 «, t00=0x0018, t01=0x0086}
0x2630…265a Head {h00=0x0026, h01=0x0050, text=» MOVE VBIN2,W1 LINE-NUMBERINDEX:=1«, t00=0x0018, t01=0x00b6}
0x265a…268c Head {h00=0x002e, h01=0x0050, text=» MOVE VBIN1,W9 NUMB-OF-CHARS-TABL-INDEX:=9«, t00=0x0018, t01=0x00e0}
0x268c…26b4 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,=W'29' FIELD SEQ NO «, t00=0x0018, t01=0x0112}
0x26b4…26ce Head {h00=0x0016, h01=0x0050, text=» ERASE 2,LBIN1,W0 «, t00=0x0018, t01=0x013a}
0x26ce…2704 Head {h00=0x0032, h01=0x0050, text=» TBT VBOOL1,VAL148 JMP IF LINE FOUND IN SCREEN«, t00=0x0018, t01=0x0154}
0x2704…2730 Head {h00=0x0028, h01=0x0050, text=» MOVE VBIN8,W0 STARTPOINT AT SEARCH «, t00=0x0018, t01=0x018a}
0x2730…2774 Head {h00=0x0040, h01=0x0050, text=» PERF BUFSEA,VBOOL2,LBIN1,LBIN3,VBIN8,LBIN4 ***BUFFER SEARCH«, t00=0x0019, t01=0x0026}
0x2774…27a4 Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN3,VBIN8 UPDATE BUFFER POINTER «, t00=0x0019, t01=0x006a}
0x27a4…27d0 Head {h00=0x0028, h01=0x0050, text=» TBT VBOOL2,VAL170 JMP IF LINE FOUND«, t00=0x0019, t01=0x009a}
0x27d0…27f4 Head {h00=0x0020, h01=0x0050, text=» MOVE LINNO(VBIN2),LINNO(W9)«, t00=0x0019, t01=0x00c6}
0x27f4…281c Head {h00=0x0024, h01=0x0050, text=» ADD VBIN2,W1 LINENUMBERINDEX:=2«, t00=0x0019, t01=0x00ea}
0x281c…2850 Head {h00=0x0030, h01=0x0050, text=» ADD VBIN1,W1 NUMB-OF-CHARS-TABLE-INDEX:=10 «, t00=0x0019, t01=0x0112}
0x2850…287e Head {h00=0x002a, h01=0x0050, text=» CBG LBIN4,W0,VAL170 JMP IF INSERTION «, t00=0x0019, t01=0x0146}
0x287e…288c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0174}
0x288c…2896 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0182}
0x2896…28c6 Head {h00=0x002c, h01=0x0050, text=»* LINE NUMBER OUT OF BUFFER NEW LINE «, t00=0x0019, t01=0x018c}
0x28c6…28d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x002c}
0x28d0…2906 Head {h00=0x0032, h01=0x0050, text=» MOVE VBIN5,LINNO(W9) NEW 1ST FREE LINE NUMBER«, t00=0x001a, t01=0x0036}
0x2906…292a Head {h00=0x0020, h01=0x0050, text=» MOVE VBIN2,W1 LINE-INDEX:=1«, t00=0x001a, t01=0x006c}
0x292a…295e Head {h00=0x0030, h01=0x0050, text=» MOVE VBIN1,W9 NUMB-OF-CHARS-TABLE-INDEX:=9 «, t00=0x001a, t01=0x0090}
0x295e…2996 Head {h00=0x0034, h01=0x0050, text=» MOVE GBINIA(VBIN1),VBIN6 RESTORE NUMB OF CHARS «, t00=0x001a, t01=0x00c4}
0x2996…29d8 Head {h00=0x003e, h01=0x0050, text=» CBNE GBINIA(VBIN1),W0,VAL145 JMP IF MORE THAN LINE NUMBER«, t00=0x001a, t01=0x00fc}
0x29d8…2a02 Head {h00=0x0026, h01=0x0050, text=» CBE LBIN2,W1,VAL500 JMP IF ENTER «, t00=0x001a, t01=0x013e}
0x2a02…2a2c Head {h00=0x0026, h01=0x0050, text=» B VAL060 JMP IF ONLY LINE NUMBER «, t00=0x001a, t01=0x0168}
0x2a2c…2a36 (27, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0004}
0x2a36…2a76 Head {h00=0x003c, h01=0x0050, text=»* LINE NUMBER OUT OF BUFFER NEW LINE + BASIC STATMENT«, t00=0x001b, t01=0x000e}
0x2a76…2a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x004e}
0x2a80…2a8e Head {h00=0x000a, h01=0x0050, text=»VAL145«, t00=0x001b, t01=0x0058}
0x2a8e…2ad4 Head {h00=0x0042, h01=0x0050, text=» XCOPY BASLIN(VBIN2),W0,VBIN6,LSTR81,W0 RESTORE BASIC STATMENT«, t00=0x001b, t01=0x0066}
0x2ad4…2afc Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,=W'29' FIELD SEQ NO «, t00=0x001b, t01=0x00ac}
0x2afc…2b20 Head {h00=0x0020, h01=0x0050, text=» DISPLAY 3,LBIN1,W0 DISPLAY «, t00=0x001b, t01=0x00d4}
0x2b20…2b48 Head {h00=0x0024, h01=0x0050, text=» B VAL190 STORE BASIC STATEMNET «, t00=0x001b, t01=0x00f8}
0x2b48…2b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0120}
0x2b52…2ba2 Head {h00=0x004c, h01=0x0050, text=»* REORGANIZE & DISPLAY VALIDATION PAGE IF BASIC LINE WAS OVERWRITTEN «, t00=0x001b, t01=0x012a}
0x2ba2…2bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x017a}
0x2bac…2bba Head {h00=0x000a, h01=0x0050, text=»VAL148«, t00=0x001b, t01=0x0184}
0x2bba…2be6 (28, 0, 400) Head {h00=0x0028, h01=0x0050, text=» MOVE VBIN8,VBIN3 LOAD B-O-P POINTER«, t00=0x001c, t01=0x0004}
0x2be6…2bf4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0030}
0x2bf4…2bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x003e}
0x2bfe…2c36 Head {h00=0x0034, h01=0x0050, text=»* LINE NUMBER FOUND /NOT FOUND WITHIN BUFFER «, t00=0x001c, t01=0x0048}
0x2c36…2c40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0080}
0x2c40…2c4e Head {h00=0x000a, h01=0x0050, text=»VAL170«, t00=0x001c, t01=0x008a}
0x2c4e…2c80 Head {h00=0x002e, h01=0x0050, text=» PERF VLPAGE,VBIN8 ***VALIDATION PAGE LOAD«, t00=0x001c, t01=0x0098}
0x2c80…2cba Head {h00=0x0036, h01=0x0050, text=» MOVE LINNO(VBIN2),VBIN5 STORE 1ST FREE LINENUMBER«, t00=0x001c, t01=0x00ca}
0x2cba…2ce2 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,=W'29' FIELD SEQ NO «, t00=0x001c, t01=0x0104}
0x2ce2…2d0e Head {h00=0x0028, h01=0x0050, text=» DISPLAY 3,LBIN1,W0 DISPLAY NEW PAGE«, t00=0x001c, t01=0x012c}
0x2d0e…2d56 Head {h00=0x0044, h01=0x0050, text=» XCOPY BASLIN(VBIN2),W0,VBIN6,LSTR81,W0 RESTORE BASIC STATEMNET «, t00=0x001c, t01=0x0158}
0x2d56…2d8e Head {h00=0x0034, h01=0x0050, text=» MOVE GBINIA(VBIN1),VBIN6 RESTORE NUMB OF CHARS «, t00=0x001d, t01=0x0010}
0x2d8e…2dce Head {h00=0x003c, h01=0x0050, text=» PERF LINSEA,VBOOL1,VBIN8 ***LINE NUMBER WHITHIN SCREEN «, t00=0x001d, t01=0x0048}
0x2dce…2ddc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0088}
0x2ddc…2de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0096}
0x2de6…2e14 Head {h00=0x002a, h01=0x0050, text=»* LINE NUMBER FOUND WITHIN SCREEN «, t00=0x001d, t01=0x00a0}
0x2e14…2e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00ce}
0x2e1e…2e2c Head {h00=0x000a, h01=0x0050, text=»VAL180«, t00=0x001d, t01=0x00d8}
0x2e2c…2e6a Head {h00=0x003a, h01=0x0050, text=» CBE GBINIA(VBIN1),W0,VAL185 JMP IF NO BASIC STATMENT «, t00=0x001d, t01=0x00e6}
0x2e6a…2e74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0124}
0x2e74…2eac Head {h00=0x0034, h01=0x0050, text=»* ...... AND FOLLOWED BY A BASIC STATEMENT «, t00=0x001d, t01=0x012e}
0x2eac…2eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0166}
0x2eb6…2ee0 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN3,VBIN8 LOAD LINE INDEX «, t00=0x001d, t01=0x0170}
0x2ee0…2f0c Head {h00=0x0028, h01=0x0050, text=» ADD LBIN3,W18 CALC PROPER FIELD NO «, t00=0x001e, t01=0x000a}
0x2f0c…2f3a Head {h00=0x002a, h01=0x0050, text=» ERASE 10,LBIN3,LBIN3 ERASE OLD VALUE «, t00=0x001e, t01=0x0036}
0x2f3a…2f78 Head {h00=0x003a, h01=0x0050, text=» XCOPY BASLIN(VBIN8),W0,GBINIA(VBIN1),BASLIN(VBIN2),W0«, t00=0x001e, t01=0x0064}
0x2f78…2fa8 Head {h00=0x002c, h01=0x0050, text=» DISPLAY 1,LBIN3,LBIN3 DISPLAY NEW VALUE«, t00=0x001e, t01=0x00a2}
0x2fa8…2fb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00d2}
0x2fb2…2fee Head {h00=0x0038, h01=0x0050, text=»* .......BUT NOT FOLLOWED BY A BASIC STATEMENT «, t00=0x001e, t01=0x00dc}
0x2fee…2ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0118}
0x2ff8…3006 Head {h00=0x000a, h01=0x0050, text=»VAL185«, t00=0x001e, t01=0x0122}
0x3006…3034 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN3,VBIN2 LOAD CURR LINE INDEX«, t00=0x001e, t01=0x0130}
0x3034…3064 Head {h00=0x002c, h01=0x0050, text=» ADD LBIN3,W18 CALC PROPER FIELD SEQ NO «, t00=0x001e, t01=0x015e}
0x3064…309a Head {h00=0x0032, h01=0x0050, text=» ERASE 10,LBIN3,LBIN3 ERASE ROW NUMBER ENTERED«, t00=0x001e, t01=0x018e}
0x309a…30ca Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN2,VBIN8 MAKE NEW LINE CURRENT «, t00=0x001f, t01=0x0034}
0x30ca…30fe Head {h00=0x0030, h01=0x0050, text=» ADD VBIN8,W8 CALC NUMB-OF-CHARS-TABLE-INDEX«, t00=0x001f, t01=0x0064}
0x30fe…313a Head {h00=0x0038, h01=0x0050, text=» CBE GBINIA(VBIN1),W0,VAL192 JMP IF JUST LINE NUMBER«, t00=0x001f, t01=0x0098}
0x313a…317a Head {h00=0x003c, h01=0x0050, text=» MOVE GBINIA(VBIN8),GBINIA(VBIN1) RESTORE NUMB OF CHARS «, t00=0x001f, t01=0x00d4}
0x317a…31ac Head {h00=0x002e, h01=0x0050, text=» MOVE GBINIA(VBIN1),W0 CLEAR NUMB OF CHARS«, t00=0x001f, t01=0x0114}
0x31ac…31dc Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN1,VBIN8 MAKE NEW INDEX CURRENT«, t00=0x001f, t01=0x0146}
0x31dc…31ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0176}
0x31ea…31f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0184}
0x31f4…3220 Head {h00=0x0028, h01=0x0050, text=»* BASIC LINE IN VALIDATION BUFFER«, t00=0x001f, t01=0x018e}
0x3220…322a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x002a}
0x322a…3238 Head {h00=0x000a, h01=0x0050, text=»VAL190«, t00=0x0020, t01=0x0034}
0x3238…326a Head {h00=0x002e, h01=0x0050, text=» PERF STOBUF ***STORE BASIC LINE IN BUFFER«, t00=0x0020, t01=0x0042}
0x326a…3294 Head {h00=0x0026, h01=0x0050, text=» BG VAL800 JMP IF MEMORY OVERFLOW «, t00=0x0020, t01=0x0074}
0x3294…32c4 Head {h00=0x002c, h01=0x0050, text=» SET CHABOL T=VALIDATION ROUTINE CHANGED«, t00=0x0020, t01=0x009e}
0x32c4…32f4 Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN8,LINNO(VBIN2) CONVERT TO BIN «, t00=0x0020, t01=0x00ce}
0x32f4…332a Head {h00=0x0032, h01=0x0050, text=» CBE VBIN8,VBIN5,VAL195 JUMP IF 1ST FREE LINE «, t00=0x0020, t01=0x00fe}
0x332a…3362 Head {h00=0x0034, h01=0x0050, text=» MOVE LINNO(W9),VBIN5 LOAD 1ST FREE LINE NUMBER «, t00=0x0020, t01=0x0134}
0x3362…33a0 Head {h00=0x003a, h01=0x0050, text=» PERF LINSEA,VBOOL1,VBIN8 ***LINE NUMBER WITHIN SCREEN«, t00=0x0020, t01=0x016c}
0x33a0…33ca Head {h00=0x0026, h01=0x0050, text=» MOVE VBIN2,VBIN8 LOAD FOUND INDEX«, t00=0x0021, t01=0x001a}
0x33ca…33fe Head {h00=0x0030, h01=0x0050, text=» ADD VBIN8,W8 CALC NUMB-OF-CHARS-TABLE-INDEX«, t00=0x0021, t01=0x0044}
0x33fe…340c Head {h00=0x000a, h01=0x0050, text=»VAL192«, t00=0x0021, t01=0x0078}
0x340c…3444 Head {h00=0x0034, h01=0x0050, text=» MOVE VBIN1,VBIN8 LOAD NUMB-OF-CHARS-TABLE-INDEX«, t00=0x0021, t01=0x0086}
0x3444…346c Head {h00=0x0024, h01=0x0050, text=» TBT VBOOL3,VAL193 JMP IF E-O-P «, t00=0x0021, t01=0x00be}
0x346c…349a Head {h00=0x002a, h01=0x0050, text=» CBE LBIN2,W1,VAL500 JMP IF ENTER-KEY «, t00=0x0021, t01=0x00e6}
0x349a…34a8 Head {h00=0x000a, h01=0x0050, text=»VAL193«, t00=0x0021, t01=0x0114}
0x34a8…34c0 Head {h00=0x0014, h01=0x0050, text=» B VAL065 GO ON «, t00=0x0021, t01=0x0122}
0x34c0…34ce Head {h00=0x000a, h01=0x0050, text=»VAL195«, t00=0x0021, t01=0x013a}
0x34ce…34f4 Head {h00=0x0022, h01=0x0050, text=» ADD VBIN1,W1 NEXT LINE INDEX «, t00=0x0021, t01=0x0148}
0x34f4…351a Head {h00=0x0022, h01=0x0050, text=» ADD VBIN2,W1 NEXT LINE INDEX «, t00=0x0021, t01=0x016e}
0x351a…353c (34, 0, 398) Head {h00=0x001e, h01=0x0050, text=» CBL VBIN2,W9,VAL199 E-O-P«, t00=0x0022, t01=0x0004}
0x353c…356c Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN3,LBIN3 LOAD NEW B-O-P POINTER«, t00=0x0022, t01=0x0026}
0x356c…35a0 Head {h00=0x0030, h01=0x0050, text=» MOVE VBIN1,W9 NUMB-OF-CHARS-TABLE-INDEX:=9 «, t00=0x0022, t01=0x0056}
0x35a0…35c4 Head {h00=0x0020, h01=0x0050, text=» MOVE VBIN2,W1 LINE INDEX:=1«, t00=0x0022, t01=0x008a}
0x35c4…35ec Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,=W'29' FIELD SEQ NO «, t00=0x0022, t01=0x00ae}
0x35ec…3614 Head {h00=0x0024, h01=0x0050, text=» ERASE 2,LBIN1,W0 ERASE VAL PAGE«, t00=0x0022, t01=0x00d6}
0x3614…3622 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x00fe}
0x3622…3630 Head {h00=0x000a, h01=0x0050, text=»VAL199«, t00=0x0022, t01=0x010c}
0x3630…3658 Head {h00=0x0024, h01=0x0050, text=» TBT VBOOL3,VAL19A JMP IF E-O-P «, t00=0x0022, t01=0x011a}
0x3658…3686 Head {h00=0x002a, h01=0x0050, text=» CBE LBIN2,W1,VAL500 JMP IF ENTER-KEY «, t00=0x0022, t01=0x0142}
0x3686…3694 Head {h00=0x000a, h01=0x0050, text=»VAL19A«, t00=0x0022, t01=0x0170}
0x3694…36ac Head {h00=0x0014, h01=0x0050, text=» B VAL050 GO ON «, t00=0x0022, t01=0x017e}
0x36ac…36b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0008}
0x36b6…36ce Head {h00=0x0014, h01=0x0050, text=»* CANCEL KEY«, t00=0x0023, t01=0x0012}
0x36ce…36d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x002a}
0x36d8…36e6 Head {h00=0x000a, h01=0x0050, text=»VAL200«, t00=0x0023, t01=0x0034}
0x36e6…36fe Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x0023, t01=0x0042}
0x36fe…3714 Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN2,W2«, t00=0x0023, t01=0x005a}
0x3714…3726 Head {h00=0x000e, h01=0x0050, text=» B VAL999 «, t00=0x0023, t01=0x0070}
0x3726…3730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0082}
0x3730…3748 Head {h00=0x0014, h01=0x0050, text=»* RETUR-KEY «, t00=0x0023, t01=0x008c}
0x3748…3752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a4}
0x3752…3760 Head {h00=0x000a, h01=0x0050, text=»VAL300«, t00=0x0023, t01=0x00ae}
0x3760…3778 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x0023, t01=0x00bc}
0x3778…378e Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN2,W3«, t00=0x0023, t01=0x00d4}
0x378e…37a0 Head {h00=0x000e, h01=0x0050, text=» B VAL999 «, t00=0x0023, t01=0x00ea}
0x37a0…37aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00fc}
0x37aa…37c0 Head {h00=0x0012, h01=0x0050, text=»* POWER OFF«, t00=0x0023, t01=0x0106}
0x37c0…37ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x011c}
0x37ca…37d8 Head {h00=0x000a, h01=0x0050, text=»VAL400«, t00=0x0023, t01=0x0126}
0x37d8…37f0 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0023, t01=0x0134}
0x37f0…3802 Head {h00=0x000e, h01=0x0050, text=» B VAL065 «, t00=0x0023, t01=0x014c}
0x3802…3810 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x015e}
0x3810…381a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x016c}
0x381a…3832 Head {h00=0x0014, h01=0x0050, text=»* ENTER-KEY «, t00=0x0023, t01=0x0176}
0x3832…383c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x018e}
0x383c…384a Head {h00=0x000a, h01=0x0050, text=»VAL500«, t00=0x0024, t01=0x0008}
0x384a…3864 Head {h00=0x0016, h01=0x0050, text=» MOVE LBIN2,W1 OK «, t00=0x0024, t01=0x0016}
0x3864…3876 Head {h00=0x000e, h01=0x0050, text=» B VAL999 «, t00=0x0024, t01=0x0030}
0x3876…3880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0042}
0x3880…38a6 Head {h00=0x0022, h01=0x0050, text=»* LINE NUMBER OUT OF RANGE «, t00=0x0024, t01=0x004c}
0x38a6…38b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0072}
0x38b0…38be Head {h00=0x000a, h01=0x0050, text=»VAL600«, t00=0x0024, t01=0x007c}
0x38be…38d4 Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN2,W4«, t00=0x0024, t01=0x008a}
0x38d4…38e6 Head {h00=0x000e, h01=0x0050, text=» B VAL999 «, t00=0x0024, t01=0x00a0}
0x38e6…38f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b2}
0x38f0…3920 Head {h00=0x002c, h01=0x0050, text=»* BACKTAB FROM 1ST PAGE OF VALIDATION«, t00=0x0024, t01=0x00bc}
0x3920…392a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ec}
0x392a…3938 Head {h00=0x000a, h01=0x0050, text=»VAL700«, t00=0x0024, t01=0x00f6}
0x3938…394e Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN2,W5«, t00=0x0024, t01=0x0104}
0x394e…3984 Head {h00=0x0032, h01=0x0050, text=» MOVE LBIN4,W18 FKI-FIELD NUMBER TO BE CURRENT«, t00=0x0024, t01=0x011a}
0x3984…3996 Head {h00=0x000e, h01=0x0050, text=» B VAL999 «, t00=0x0024, t01=0x0150}
0x3996…39a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0162}
0x39a0…39c6 Head {h00=0x0022, h01=0x0050, text=»* WORKING AREA VALBUF EXEEDED«, t00=0x0024, t01=0x016c}
0x39c6…39d0 (37, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0004}
0x39d0…39de Head {h00=0x000a, h01=0x0050, text=»VAL800«, t00=0x0025, t01=0x000e}
0x39de…3a0c Head {h00=0x002a, h01=0x0050, text=» MOVE VBIN8,LBIN5 SAVE CURRENT ROW NO.«, t00=0x0025, t01=0x001c}
0x3a0c…3a32 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN5,W5 VALBUF-OVERFLOW«, t00=0x0025, t01=0x004a}
0x3a32…3a52 Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN1,W0 NO CLEAR «, t00=0x0025, t01=0x0070}
0x3a52…3a7a Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN4,W2 ERR-MESSAGE NO:2 «, t00=0x0025, t01=0x0090}
0x3a7a…3ab2 Head {h00=0x0034, h01=0x0050, text=» PERF WSMERR,KEYT5,=W'0' ***ERR-MESSAGE ROUTINE «, t00=0x0025, t01=0x00b8}
0x3ab2…3ada Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN5,VBIN8 RESTORE ROWNO «, t00=0x0025, t01=0x00f0}
0x3ada…3b04 Head {h00=0x0026, h01=0x0050, text=» IB LBIN2,VAL065,VAL200, CLR,CAN C«, t00=0x0025, t01=0x0118}
0x3b04…3b24 Head {h00=0x001c, h01=0x0050, text=» VAL300,VAL500 RET,ENT «, t00=0x0025, t01=0x0142}
0x3b24…3b32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0162}
0x3b32…3b3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0170}
0x3b3c…3b4e Head {h00=0x000e, h01=0x0050, text=»* EXIT «, t00=0x0025, t01=0x017a}
0x3b4e…3b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x018c}
0x3b58…3b66 Head {h00=0x000a, h01=0x0050, text=»VAL999«, t00=0x0026, t01=0x0008}
0x3b66…3b72 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0016}
0x3b72…3b80 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x0022}
0x3b80…3b8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0030}
0x3b8e…3b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x003e}
0x3b98…3bc0 Head {h00=0x0024, h01=0x0050, text=»* LINE NUMBER WITHIN BUFFER «, t00=0x0026, t01=0x0048}
0x3bc0…3bf2 Head {h00=0x002e, h01=0x0050, text=»* THIS ROUTINE SEARCH'S AND COMPARE«, t00=0x0026, t01=0x0070}
0x3bf2…3c22 Head {h00=0x002c, h01=0x0050, text=»* WHEATHER KEYED IN LINE NUMBER «, t00=0x0026, t01=0x00a2}
0x3c22…3c50 Head {h00=0x002a, h01=0x0050, text=»* EXISTS IN VALIDATION OR NOT «, t00=0x0026, t01=0x00d2}
0x3c50…3c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0100}
0x3c5a…3c92 Head {h00=0x0034, h01=0x0050, text=»* INPUT: LINNO(W9) = KEYED IN LINENUMBER«, t00=0x0026, t01=0x010a}
0x3c92…3cc6 Head {h00=0x0030, h01=0x0050, text=»* BPOINT = BUFFER POINTER «, t00=0x0026, t01=0x0142}
0x3cc6…3cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0176}
0x3cd0…3cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0180}
0x3cda…3d10 Head {h00=0x0032, h01=0x0050, text=»* OUTPUT: WITHIN = FALSE = NOT FOUND«, t00=0x0026, t01=0x018a}
0x3d10…3d42 Head {h00=0x002e, h01=0x0050, text=»* TRUE = FOUND«, t00=0x0027, t01=0x0030}
0x3d42…3d82 Head {h00=0x003c, h01=0x0050, text=»* BPOINT =FOUND ENTRY POINT OF VALBUF «, t00=0x0027, t01=0x0062}
0x3d82…3db6 Head {h00=0x0030, h01=0x0050, text=»* LENGTH = 0 = E-O-B FOUND«, t00=0x0027, t01=0x00a2}
0x3db6…3df2 Head {h00=0x0038, h01=0x0050, text=»* > 0 = INSERTTION OF LINE «, t00=0x0027, t01=0x00d6}
0x3df2…3dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0112}
0x3dfc…3e4c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x011c}
0x3e4c…3e80 Head {h00=0x0030, h01=0x0050, text=»BUFSEA PROC WITHIN,INLIN,BULIN,BPOINT,LENGTH«, t00=0x0027, t01=0x016c}
0x3e80…3e96 Head {h00=0x0012, h01=0x0050, text=» PBOOL WITHIN «, t00=0x0028, t01=0x0010}
0x3e96…3ebc Head {h00=0x0022, h01=0x0050, text=» PBIN INLIN INPUT LINE NUMBER «, t00=0x0028, t01=0x0026}
0x3ebc…3eec Head {h00=0x002c, h01=0x0050, text=» PBIN BULIN FOUND LINE NUMBER IN BUFFER «, t00=0x0028, t01=0x004c}
0x3eec…3f0e Head {h00=0x001e, h01=0x0050, text=» PBIN BPOINT BUFFERPOINTER«, t00=0x0028, t01=0x007c}
0x3f0e…3f34 Head {h00=0x0022, h01=0x0050, text=» PBIN LENGTH BASIC LINE LENGTH«, t00=0x0028, t01=0x009e}
0x3f34…3f64 Head {h00=0x002c, h01=0x0050, text=» MOVE INLIN,LINNO(W9) CONVERT TO BINARY «, t00=0x0028, t01=0x00c4}
0x3f64…3f8a Head {h00=0x0022, h01=0x0050, text=» CLEAR WITHIN FALSE = NOT FOND«, t00=0x0028, t01=0x00f4}
0x3f8a…3f98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x011a}
0x3f98…3fa6 Head {h00=0x000a, h01=0x0050, text=»BUF010«, t00=0x0028, t01=0x0128}
0x3fa6…3fbe Head {h00=0x0014, h01=0x0050, text=» MOVE LENGTH,W0 «, t00=0x0028, t01=0x0136}
0x3fbe…3fea Head {h00=0x0028, h01=0x0050, text=» MOVE BULIN,W0 BUFFER LINE NUMBER:=0«, t00=0x0028, t01=0x014e}
0x3fea…4026 Head {h00=0x0038, h01=0x0050, text=» CBNL BPOINT,VBBIN,BUF020 JMP IF VALBUF MAX REACHED «, t00=0x0028, t01=0x017a}
0x4026…405a Head {h00=0x0030, h01=0x0050, text=» XCOPY LENGTH,W1,W1,VALBUF,BPOINT GET LENGTH«, t00=0x0029, t01=0x0026}
0x405a…4068 Head {h00=0x000a, h01=0x0050, text=»BUF020«, t00=0x0029, t01=0x005a}
0x4068…4098 Head {h00=0x002c, h01=0x0050, text=» CBE LENGTH,W0,BUF980 JMP IF E-O-B FOUND«, t00=0x0029, t01=0x0068}
0x4098…40c4 Head {h00=0x0028, h01=0x0050, text=» ADD BPOINT,W1 ADJUST BUFFER POINTER«, t00=0x0029, t01=0x0098}
0x40c4…40fc Head {h00=0x0034, h01=0x0050, text=» XCOPY BULIN,W0,W2,VALBUF,BPOINT GET LINE NUMBER«, t00=0x0029, t01=0x00c4}
0x40fc…412e Head {h00=0x002e, h01=0x0050, text=» CMP INLIN,BULIN COMPARE INLINE<=>BUFLINE «, t00=0x0029, t01=0x00fc}
0x412e…4156 Head {h00=0x0024, h01=0x0050, text=» BE BUF100 JMP IF EXISTING LINE «, t00=0x0029, t01=0x012e}
0x4156…417c Head {h00=0x0022, h01=0x0050, text=» BL BUF200 JMP IF INSERT LINE «, t00=0x0029, t01=0x0156}
0x417c…4192 Head {h00=0x0012, h01=0x0050, text=» SUB LENGTH,W1«, t00=0x0029, t01=0x017c}
0x4192…41c2 (42, 0, 400) Head {h00=0x002c, h01=0x0050, text=» ADD BPOINT,LENGTH ADJUST BUFFER POINTER«, t00=0x002a, t01=0x0004}
0x41c2…41da Head {h00=0x0014, h01=0x0050, text=» B BUF010 GO ON «, t00=0x002a, t01=0x0034}
0x41da…41e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x004c}
0x41e4…4202 Head {h00=0x001a, h01=0x0050, text=»* LINE NUMBER FOUND «, t00=0x002a, t01=0x0056}
0x4202…420c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0074}
0x420c…421a Head {h00=0x000a, h01=0x0050, text=»BUF100«, t00=0x002a, t01=0x007e}
0x421a…423a Head {h00=0x001c, h01=0x0050, text=» SET WITHIN TRUE = FOUND«, t00=0x002a, t01=0x008c}
0x423a…4244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ac}
0x4244…4266 Head {h00=0x001e, h01=0x0050, text=»* LINE NUMBER NOT FOUND «, t00=0x002a, t01=0x00b6}
0x4266…4270 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00d8}
0x4270…427e Head {h00=0x000a, h01=0x0050, text=»BUF200«, t00=0x002a, t01=0x00e2}
0x427e…42ae Head {h00=0x002c, h01=0x0050, text=» SUB BPOINT,W1 ADJUST POINTER WHEN FOUND«, t00=0x002a, t01=0x00f0}
0x42ae…42bc Head {h00=0x000a, h01=0x0050, text=»BUF980«, t00=0x002a, t01=0x0120}
0x42bc…42c8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x012e}
0x42c8…42d6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x013a}
0x42d6…42e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0148}
0x42e4…42ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0156}
0x42ee…4310 Head {h00=0x001e, h01=0x0050, text=»* VALIDATION PAGE LOAD «, t00=0x002a, t01=0x0160}
0x4310…431a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0182}
0x431a…4356 Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE UNPACK AND LOAD A VALIDATION PAGE«, t00=0x002a, t01=0x018c}
0x4356…437a Head {h00=0x0020, h01=0x0050, text=»* CONSISITING OF 7 LINES«, t00=0x002b, t01=0x0038}
0x437a…4384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x005c}
0x4384…43b4 Head {h00=0x002c, h01=0x0050, text=»* INPUT: VALBUF = VALIDATION BUFFER«, t00=0x002b, t01=0x0066}
0x43b4…43f0 Head {h00=0x0038, h01=0x0050, text=»* VBIN1 = INDEX TO NUMB-OF-CHARS-TABLE «, t00=0x002b, t01=0x0096}
0x43f0…4420 Head {h00=0x002c, h01=0x0050, text=»* VBIN2 = LINE NUMBER INDEX«, t00=0x002b, t01=0x00d2}
0x4420…4456 Head {h00=0x0032, h01=0x0050, text=»* STPNT = START POINTER IN VALBUF«, t00=0x002b, t01=0x0102}
0x4456…4460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0138}
0x4460…44a8 Head {h00=0x0044, h01=0x0050, text=»* OUTPUT: VBIN4 = END-OF-PAGE BUFFER POINTER (BACK-PAGING) «, t00=0x002b, t01=0x0142}
0x44a8…44ce Head {h00=0x0022, h01=0x0050, text=»* VBIN2 = UPDATED«, t00=0x002b, t01=0x018a}
0x44ce…44f4 Head {h00=0x0022, h01=0x0050, text=»* VBIN1 = UPDATED«, t00=0x002c, t01=0x0020}
0x44f4…4524 Head {h00=0x002c, h01=0x0050, text=»* BASLIN = BASIC LINE SOURCE«, t00=0x002c, t01=0x0046}
0x4524…455e Head {h00=0x0036, h01=0x0050, text=»* GBINIA = NUMBER CHARS OF BASIC LINE «, t00=0x002c, t01=0x0076}
0x455e…4568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b0}
0x4568…45b8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002c, t01=0x00ba}
0x45b8…45d2 Head {h00=0x0016, h01=0x0050, text=»VLPAGE PROC STPNT «, t00=0x002c, t01=0x010a}
0x45d2…45f4 Head {h00=0x001e, h01=0x0050, text=» PBIN STPNT START POINTER «, t00=0x002c, t01=0x0124}
0x45f4…4602 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0146}
0x4602…4610 Head {h00=0x000a, h01=0x0050, text=»VLP020«, t00=0x002c, t01=0x0154}
0x4610…4632 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN1,W0 WORKITEM:=0«, t00=0x002c, t01=0x0162}
0x4632…4670 Head {h00=0x003a, h01=0x0050, text=» XCOPY LBIN1,W1,W1,VALBUF,STPNT GET BASIC LINE LENGTH «, t00=0x002c, t01=0x0184}
0x4670…46a2 Head {h00=0x002e, h01=0x0050, text=» CBE LBIN1,W0,VLP900 JMP IF END-OF-BUFFER «, t00=0x002d, t01=0x0032}
0x46a2…46cc Head {h00=0x0026, h01=0x0050, text=» ADD STPNT,W1 ADJUST BUFFERPOINTER«, t00=0x002d, t01=0x0064}
0x46cc…4704 Head {h00=0x0034, h01=0x0050, text=» XCOPY LBIN3,W0,W2,VALBUF,STPNT LOAD LINE NUMBER«, t00=0x002d, t01=0x008e}
0x4704…472e Head {h00=0x0026, h01=0x0050, text=» ADD STPNT,W2 ADJUST BUFFERPOINTER«, t00=0x002d, t01=0x00c6}
0x472e…4760 Head {h00=0x002e, h01=0x0050, text=» MOVE LINNO(VBIN2),LBIN3 LOAD LINE NUMBER «, t00=0x002d, t01=0x00f0}
0x4760…4790 Head {h00=0x002c, h01=0x0050, text=» SUB LBIN1,W3 ADJUST LEN FOR LEN+LINENO «, t00=0x002d, t01=0x0122}
0x4790…47c6 Head {h00=0x0032, h01=0x0050, text=» MOVE GBINIA(VBIN1),LBIN1 STORE NUMB OF CHARS «, t00=0x002d, t01=0x0152}
0x47c6…480a Head {h00=0x0040, h01=0x0050, text=» XCOPY BASLIN(VBIN2),W0,LBIN1,VALBUF,STPNT STORE BASIC LINE «, t00=0x002d, t01=0x0188}
0x480a…4838 Head {h00=0x002a, h01=0x0050, text=» ADD STPNT,LBIN1 ADJUST BUFFERPOINTER «, t00=0x002e, t01=0x003c}
0x4838…4868 Head {h00=0x002c, h01=0x0050, text=» ADD VBIN2,W1 INCREMENT LINENUMBER-INDEX«, t00=0x002e, t01=0x006a}
0x4868…4894 Head {h00=0x0028, h01=0x0050, text=» ADD VBIN1,W1 INCREMENT TABLE-INDEX «, t00=0x002e, t01=0x009a}
0x4894…48cc Head {h00=0x0034, h01=0x0050, text=» CBE STPNT,VBBIN,VLP900 JMP IF END LIMIT REACHED«, t00=0x002e, t01=0x00c6}
0x48cc…48fa Head {h00=0x002a, h01=0x0050, text=» CBNE VBIN2,W8,VLP020 JMP IF PAGE FULL«, t00=0x002e, t01=0x00fe}
0x48fa…4908 Head {h00=0x000a, h01=0x0050, text=»VLP900«, t00=0x002e, t01=0x012c}
0x4908…4940 Head {h00=0x0034, h01=0x0050, text=» MOVE VBIN4,STPNT STORE END-OF-PAGE BUF POINTER «, t00=0x002e, t01=0x013a}
0x4940…4964 Head {h00=0x0020, h01=0x0050, text=» MOVE STPNT,VBIN1 SAVE INDEX«, t00=0x002e, t01=0x0172}
0x4964…4972 Head {h00=0x000a, h01=0x0050, text=»VLP910«, t00=0x002f, t01=0x0008}
0x4972…4998 Head {h00=0x0022, h01=0x0050, text=» MOVE GBINIA(STPNT),W0 ZEROISE«, t00=0x002f, t01=0x0016}
0x4998…49ba Head {h00=0x001e, h01=0x0050, text=» ADD STPNT,W1 NEXT INDEX «, t00=0x002f, t01=0x003c}
0x49ba…49f0 Head {h00=0x0032, h01=0x0050, text=» CBL STPNT,W17,VLP910 JMP IF NOT ALL ZEROISED «, t00=0x002f, t01=0x005e}
0x49f0…49fc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x0094}
0x49fc…4a0a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x00a0}
0x4a0a…4a18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00ae}
0x4a18…4a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00bc}
0x4a22…4a48 Head {h00=0x0022, h01=0x0050, text=»* LINE NUMBER WITHIN SCREEN«, t00=0x002f, t01=0x00c6}
0x4a48…4a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00ec}
0x4a52…4a8e Head {h00=0x0038, h01=0x0050, text=»* THIS ROUTINE SEARCH7S AND COMPARE IF KEYED IN «, t00=0x002f, t01=0x00f6}
0x4a8e…4ab8 Head {h00=0x0026, h01=0x0050, text=»* LINE NUMBER EXISTS ON SCREEN«, t00=0x002f, t01=0x0132}
0x4ab8…4ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x015c}
0x4ac2…4af8 Head {h00=0x0032, h01=0x0050, text=»* INPUT: LINNO(W9) = KEYED IN LINE NUMBER «, t00=0x002f, t01=0x0166}
0x4af8…4b00 Head {h00=0x0004, h01=0x0050, t00=0x0030, t01=0x000c}
0x4b00…4b0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0014}
0x4b0a…4b3c Head {h00=0x002e, h01=0x0050, text=»* OUTPUT:FOUND = FALSE = NOT FOUND«, t00=0x0030, t01=0x001e}
0x4b3c…4b6a Head {h00=0x002a, h01=0x0050, text=»* = TRUE = FOUND«, t00=0x0030, t01=0x0050}
0x4b6a…4b96 Head {h00=0x0028, h01=0x0050, text=»* LININX = LINE INDEX «, t00=0x0030, t01=0x007e}
0x4b96…4ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00aa}
0x4ba0…4bf0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0030, t01=0x00b4}
0x4bf0…4c10 Head {h00=0x001c, h01=0x0050, text=»LINSEA PROC FOUND,LININX«, t00=0x0030, t01=0x0104}
0x4c10…4c24 Head {h00=0x0010, h01=0x0050, text=» PBOOL FOUND«, t00=0x0030, t01=0x0124}
0x4c24…4c38 Head {h00=0x0010, h01=0x0050, text=» PBIN LININX«, t00=0x0030, t01=0x0138}
0x4c38…4c50 Head {h00=0x0014, h01=0x0050, text=» MOVE LININX,W1 «, t00=0x0030, t01=0x014c}
0x4c50…4c76 Head {h00=0x0022, h01=0x0050, text=» CLEAR FOUND FALSE = NOT FOUND«, t00=0x0030, t01=0x0164}
0x4c76…4c84 Head {h00=0x000a, h01=0x0050, text=»LIN010«, t00=0x0030, t01=0x018a}
0x4c84…4cbc Head {h00=0x0034, h01=0x0050, text=» CBE LINNO(W9),LINNO(LININX),LIN050 JMP IF EQUAL«, t00=0x0031, t01=0x0008}
0x4cbc…4ce4 Head {h00=0x0024, h01=0x0050, text=» CBE LININX,W8,LIN999 NOT FOUND «, t00=0x0031, t01=0x0040}
0x4ce4…4d16 Head {h00=0x002e, h01=0x0050, text=» ADD LININX,W1 INCREMENT LINE NUMBER INDEX«, t00=0x0031, t01=0x0068}
0x4d16…4d2e Head {h00=0x0014, h01=0x0050, text=» B LIN010 GO ON «, t00=0x0031, t01=0x009a}
0x4d2e…4d3c Head {h00=0x000a, h01=0x0050, text=»LIN050«, t00=0x0031, t01=0x00b2}
0x4d3c…4d5c Head {h00=0x001c, h01=0x0050, text=» SET FOUND TRUE = FOUND «, t00=0x0031, t01=0x00c0}
0x4d5c…4d6a Head {h00=0x000a, h01=0x0050, text=»LIN999«, t00=0x0031, t01=0x00e0}
0x4d6a…4d76 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0031, t01=0x00ee}
0x4d76…4d84 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0031, t01=0x00fa}
0x4d84…4d92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0108}
0x4d92…4d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0116}
0x4d9c…4dda Head {h00=0x003a, h01=0x0050, text=»* STORE VALIDATION BASIC LINE IN VALIDATION BUFFER«, t00=0x0031, t01=0x0120}
0x4dda…4de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x015e}
0x4de4…4e1a Head {h00=0x0032, h01=0x0050, text=»* INPUT: BASLIN = BASIC STATEMENT LINE«, t00=0x0031, t01=0x0168}
0x4e1a…4e4c Head {h00=0x002e, h01=0x0050, text=»* VBIN2 = INDEX TO BASLIN «, t00=0x0032, t01=0x000e}
0x4e4c…4e82 Head {h00=0x0032, h01=0x0050, text=»* GBINIA = NUMB-OF-CHARS-TABLE «, t00=0x0032, t01=0x0040}
0x4e82…4eb4 Head {h00=0x002e, h01=0x0050, text=»* VBIN1 = INDEX TO GBINIA «, t00=0x0032, t01=0x0076}
0x4eb4…4ee2 Head {h00=0x002a, h01=0x0050, text=»* LINNO = LINE NUMBER «, t00=0x0032, t01=0x00a8}
0x4ee2…4f22 Head {h00=0x003c, h01=0x0050, text=»* VBIN3 = STARTPOINT OF VALIDATION PAGE «, t00=0x0032, t01=0x00d6}
0x4f22…4f56 Head {h00=0x0030, h01=0x0050, text=»* VALBUF = VALIDATION BUFFER «, t00=0x0032, t01=0x0116}
0x4f56…4f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x014a}
0x4f60…4f9c Head {h00=0x0038, h01=0x0050, text=»* USED: LBIN1 = WORK/OLD BASIC LINE LENGTH«, t00=0x0032, t01=0x0154}
0x4f9c…4fd4 Head {h00=0x0034, h01=0x0050, text=»* VBIN8 = NEW BASIC LINE LENGTH «, t00=0x0032, t01=0x0190}
0x4fd4…5004 Head {h00=0x002c, h01=0x0050, text=»* LBIN3 = POINTER VALBUF«, t00=0x0033, t01=0x0038}
0x5004…504c Head {h00=0x0044, h01=0x0050, text=»* LSTR4A = INTERMEDIATE BUFFER LENGTH+LINENUMBER «, t00=0x0033, t01=0x0068}
0x504c…5056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b0}
0x5056…5092 Head {h00=0x0038, h01=0x0050, text=»* OUTPUT: VALBUF = VALIDATION BUFFER UPDATED «, t00=0x0033, t01=0x00ba}
0x5092…50b8 Head {h00=0x0022, h01=0x0050, text=»* CR = 0 OK«, t00=0x0033, t01=0x00f6}
0x50b8…50ec Head {h00=0x0030, h01=0x0050, text=»* = 1 MEMORY OVERFLOW «, t00=0x0033, t01=0x011c}
0x50ec…50f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0150}
0x50f6…5146 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0033, t01=0x015a}
0x5146…515a Head {h00=0x0010, h01=0x0050, text=»STOBUF PROC «, t00=0x0034, t01=0x001a}
0x515a…5198 Head {h00=0x003a, h01=0x0050, text=» MOVE LINNO(W9),LINNO(VBIN2) LOAD CURRENT LINE NUMBER «, t00=0x0034, t01=0x002e}
0x5198…51cc Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN3,VBIN3 LOAD STARTPOINT IN BUFFER «, t00=0x0034, t01=0x006c}
0x51cc…5210 Head {h00=0x0040, h01=0x0050, text=» PERF BUFSEA,VBOOL2,LBIN1,VBIN8,LBIN3,LBIN4 ***BUFFER SEARCH«, t00=0x0034, t01=0x00a0}
0x5210…523e Head {h00=0x002a, h01=0x0050, text=» MOVE VBIN8,GBINIA(VBIN1) STORE LENGTH«, t00=0x0034, t01=0x00e4}
0x523e…5264 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,VBIN8 LOAD LENGTH «, t00=0x0034, t01=0x0112}
0x5264…5298 Head {h00=0x0030, h01=0x0050, text=» ADD LBIN4,LBIN3 CALC END POS FOR THIS LINE «, t00=0x0034, t01=0x0138}
0x5298…52cc Head {h00=0x0030, h01=0x0050, text=»*TBT VBOOL2,STB050 JMP IF LINE ALREADY EXIST«, t00=0x0034, t01=0x016c}
0x52cc…52fa Head {h00=0x002a, h01=0x0050, text=» ADD LBIN4,W3 ADJUST FOR LEN + LINENR «, t00=0x0035, t01=0x0010}
0x52fa…530a Head {h00=0x000c, h01=0x0050, text=»*STB050 «, t00=0x0035, t01=0x003e}
0x530a…5338 Head {h00=0x002a, h01=0x0050, text=» CMP LBIN4,VBBIN CHECK SIZE OF BUFFER «, t00=0x0035, t01=0x004e}
0x5338…535a Head {h00=0x001e, h01=0x0050, text=» BG STB999 JMP IF OVERFLOW«, t00=0x0035, t01=0x007c}
0x535a…5368 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x009e}
0x5368…5398 Head {h00=0x002c, h01=0x0050, text=» ADD VBIN8,W3 ADJUST LEN FOR LEN+LINENO «, t00=0x0035, t01=0x00ac}
0x5398…53d2 Head {h00=0x0036, h01=0x0050, text=» MOVE LBIN1,LINNO(VBIN2) CONVERT LINENUMBER TO BIN«, t00=0x0035, t01=0x00dc}
0x53d2…540e Head {h00=0x0038, h01=0x0050, text=» XCOPY LSTR4A,W0,W1,VBIN8,W1 STORE INTERMEDIATE LEN «, t00=0x0035, t01=0x0116}
0x540e…544c Head {h00=0x003a, h01=0x0050, text=» XCOPY LSTR4A,W1,W2,LBIN1,W0 STORE INTERMEDIATE LINENO«, t00=0x0035, t01=0x0152}
0x544c…5474 Head {h00=0x0024, h01=0x0050, text=» SUB VBIN8,W3 ADJUST NEW LENGTH «, t00=0x0035, t01=0x0190}
0x5474…54a0 Head {h00=0x0028, h01=0x0050, text=» TBT VBOOL2,STB100 JMP IF LINE EXIST«, t00=0x0036, t01=0x0028}
0x54a0…54aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0054}
0x54aa…54cc Head {h00=0x001e, h01=0x0050, text=»* INSERTION OF NEW LINE«, t00=0x0036, t01=0x005e}
0x54cc…54d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0080}
0x54d6…5512 Head {h00=0x0038, h01=0x0050, text=» INSRT VALBUF,LBIN3,W3,LSTR4A,W0 INSERT LEN+LINE NO «, t00=0x0036, t01=0x008a}
0x5512…5536 Head {h00=0x0020, h01=0x0050, text=» BOFL STB980 JMP IF OVERFLOW«, t00=0x0036, t01=0x00c6}
0x5536…5562 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN3,W3 ADJUST BUFFER-POINTER «, t00=0x0036, t01=0x00ea}
0x5562…55a8 Head {h00=0x0042, h01=0x0050, text=» INSRT VALBUF,LBIN3,VBIN8,BASLIN(VBIN2),W0 INSERT BASIC LINE «, t00=0x0036, t01=0x0116}
0x55a8…55cc Head {h00=0x0020, h01=0x0050, text=» BOFL STB980 JMP IF OVERFLOW«, t00=0x0036, t01=0x015c}
0x55cc…5600 Head {h00=0x0030, h01=0x0050, text=» ADD LBIN3,VBIN8 ADJUST TO GET B-O-P POINTER«, t00=0x0036, t01=0x0180}
0x5600…5630 Head {h00=0x002c, h01=0x0050, text=» ADD VBIN8,W3 ADJUST LEN FOR LEN+LINENO «, t00=0x0037, t01=0x0024}
0x5630…5664 Head {h00=0x0030, h01=0x0050, text=» ADD VBIN4,VBIN8 ADJUST E-O-P BUFFER POINTER«, t00=0x0037, t01=0x0054}
0x5664…567a Head {h00=0x0012, h01=0x0050, text=» B STB350 EXIT«, t00=0x0037, t01=0x0088}
0x567a…5684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x009e}
0x5684…56b2 Head {h00=0x002a, h01=0x0050, text=»* LINE EXIST'S IN VALIDATION BUFFER«, t00=0x0037, t01=0x00a8}
0x56b2…56bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d6}
0x56bc…56ca Head {h00=0x000a, h01=0x0050, text=»STB100«, t00=0x0037, t01=0x00e0}
0x56ca…56fa Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN1,W0 OLD BASIC LINE LENGTH:=0 «, t00=0x0037, t01=0x00ee}
0x56fa…573a Head {h00=0x003c, h01=0x0050, text=» XCOPY LBIN1,W1,W1,VALBUF,LBIN3 GET OLD BASICLINE LENGTH«, t00=0x0037, t01=0x011e}
0x573a…5762 Head {h00=0x0024, h01=0x0050, text=» SUB LBIN1,W3 ADJUST OLD LENGTH «, t00=0x0037, t01=0x015e}
0x5762…5794 Head {h00=0x002e, h01=0x0050, text=» CMP LBIN1,VBIN8 COMPARE OLD<=>NEW LENGTHS«, t00=0x0037, t01=0x0186}
0x5794…57ba Head {h00=0x0022, h01=0x0050, text=» BE STB300 JMP IF EQUAL LENGTH«, t00=0x0038, t01=0x0028}
0x57ba…57e4 Head {h00=0x0026, h01=0x0050, text=» BL STB200 JMP IF OLD < NEW LENGTH«, t00=0x0038, t01=0x004e}
0x57e4…57f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0078}
0x57f2…57fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0086}
0x57fc…5820 Head {h00=0x0020, h01=0x0050, text=»* OLD LENGTH > NEW LENGTH«, t00=0x0038, t01=0x0090}
0x5820…582a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b4}
0x582a…5864 Head {h00=0x0036, h01=0x0050, text=» XCOPY VALBUF,LBIN3,W3,LSTR4A,W0 STORE NEW LENGTH «, t00=0x0038, t01=0x00be}
0x5864…588e Head {h00=0x0026, h01=0x0050, text=» ADD LBIN3,W3 ADJUST BUFFERPOINTER«, t00=0x0038, t01=0x00f8}
0x588e…58d4 Head {h00=0x0042, h01=0x0050, text=» XCOPY VALBUF,LBIN3,VBIN8,BASLIN(VBIN2),W0 LOAD UPD BASIC LINE«, t00=0x0038, t01=0x0122}
0x58d4…5902 Head {h00=0x002a, h01=0x0050, text=» ADD LBIN3,VBIN8 ADJUST BUFFER POINTER«, t00=0x0038, t01=0x0168}
0x5902…5936 Head {h00=0x0030, h01=0x0050, text=» SUB LBIN1,VBIN8 CALC NUMB OF OVERFLOW CHARS«, t00=0x0039, t01=0x0008}
0x5936…5968 Head {h00=0x002e, h01=0x0050, text=» CBE VBIN4,W0,STB150 JMP IF STILL 1ST PAGE«, t00=0x0039, t01=0x003c}
0x5968…5996 Head {h00=0x002a, h01=0x0050, text=» SUB VBIN4,LBIN1 ADJUST E-O-P POINTER «, t00=0x0039, t01=0x006e}
0x5996…59a4 Head {h00=0x000a, h01=0x0050, text=»STB150«, t00=0x0039, t01=0x009c}
0x59a4…59e0 Head {h00=0x0038, h01=0x0050, text=» DLETE VALBUF,LBIN3,LBIN1 DELETE OVERFLOW CHARACTERS«, t00=0x0039, t01=0x00aa}
0x59e0…5a10 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN3,VBBIN LOAD LENGTH OF VALBUF «, t00=0x0039, t01=0x00e6}
0x5a10…5a4e Head {h00=0x003a, h01=0x0050, text=» PERF ZERFLL,VALBUF,LBIN3,LBIN1 ***ZERO REFILL X /00:S«, t00=0x0039, t01=0x0116}
0x5a4e…5a60 Head {h00=0x000e, h01=0x0050, text=» B STB350 «, t00=0x0039, t01=0x0154}
0x5a60…5a6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x0166}
0x5a6e…5a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0174}
0x5a78…5a9c Head {h00=0x0020, h01=0x0050, text=»* OLD LENGTH < NEW LENGTH«, t00=0x0039, t01=0x017e}
0x5a9c…5aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0012}
0x5aa6…5ab4 Head {h00=0x000a, h01=0x0050, text=»STB200«, t00=0x003a, t01=0x001c}
0x5ab4…5aee Head {h00=0x0036, h01=0x0050, text=» XCOPY VALBUF,LBIN3,W3,LSTR4A,W0 STORE NEW LENGTH «, t00=0x003a, t01=0x002a}
0x5aee…5b1a Head {h00=0x0028, h01=0x0050, text=» ADD LBIN3,W3 ADJUST BUFFER POINTER «, t00=0x003a, t01=0x0064}
0x5b1a…5b5a Head {h00=0x003c, h01=0x0050, text=» XCOPY VALBUF,LBIN3,LBIN1,BASLIN(VBIN2),W0 LOAD 1ST PART«, t00=0x003a, t01=0x0090}
0x5b5a…5b88 Head {h00=0x002a, h01=0x0050, text=» ADD LBIN3,LBIN1 ADJUST BUFFERPOINTER «, t00=0x003a, t01=0x00d0}
0x5b88…5bb4 Head {h00=0x0028, h01=0x0050, text=» SUB VBIN8,LBIN1 CALC REST OF CHARS «, t00=0x003a, t01=0x00fe}
0x5bb4…5be6 Head {h00=0x002e, h01=0x0050, text=» CBE VBIN4,W0,STB250 JMP IF STILL 1ST PAGE«, t00=0x003a, t01=0x012a}
0x5be6…5c14 Head {h00=0x002a, h01=0x0050, text=» ADD VBIN4,VBIN8 ADJUST E-O-P POINTER «, t00=0x003a, t01=0x015c}
0x5c14…5c22 Head {h00=0x000a, h01=0x0050, text=»STB250«, t00=0x003a, t01=0x018a}
0x5c22…5c68 Head {h00=0x0042, h01=0x0050, text=» INSRT VALBUF,LBIN3,VBIN8,BASLIN(VBIN2),LBIN1 INSERT 2ND PART «, t00=0x003b, t01=0x0008}
0x5c68…5c94 Head {h00=0x0028, h01=0x0050, text=» BOFL STB980 JMP IF MEMORY OVERFLOW «, t00=0x003b, t01=0x004e}
0x5c94…5ca6 Head {h00=0x000e, h01=0x0050, text=» B STB999 «, t00=0x003b, t01=0x007a}
0x5ca6…5cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x008c}
0x5cb0…5cd4 Head {h00=0x0020, h01=0x0050, text=»* OLD LENGTH = NEW LENGTH«, t00=0x003b, t01=0x0096}
0x5cd4…5cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00ba}
0x5cde…5cec Head {h00=0x000a, h01=0x0050, text=»STB300«, t00=0x003b, t01=0x00c4}
0x5cec…5d10 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN3,W3 ADJUST POINTER«, t00=0x003b, t01=0x00d2}
0x5d10…5d54 Head {h00=0x0040, h01=0x0050, text=» XCOPY VALBUF,LBIN3,VBIN8,BASLIN(VBIN2),W0 UPDATE BASIC LINE«, t00=0x003b, t01=0x00f6}
0x5d54…5d62 Head {h00=0x000a, h01=0x0050, text=»STB350«, t00=0x003b, t01=0x013a}
0x5d62…5d7a Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x003b, t01=0x0148}
0x5d7a…5d90 Head {h00=0x0012, h01=0x0050, text=» B STB999 EXIT«, t00=0x003b, t01=0x0160}
0x5d90…5d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0176}
0x5d9a…5db8 Head {h00=0x001a, h01=0x0050, text=»* MEMORY OVERFLOW «, t00=0x003b, t01=0x0180}
0x5db8…5dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x000e}
0x5dc2…5dd0 Head {h00=0x000a, h01=0x0050, text=»STB980«, t00=0x003c, t01=0x0018}
0x5dd0…5de8 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x003c, t01=0x0026}
0x5de8…5df6 Head {h00=0x000a, h01=0x0050, text=»STB999«, t00=0x003c, t01=0x003e}
0x5df6…5e02 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003c, t01=0x004c}
0x5e02…5e10 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003c, t01=0x0058}
0x5e10…5e1c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003c, t01=0x0066}
0x5e1c…5e24 40 04 00 00 00 3c 00 72 ┆@ < r┆