|
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: 49416 (0xc108)
Notes: pts_type(SC)
Names: »SYNVAL.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:CREA/SYNVAL.SC«
IDENT SYNVAL REL=2.3,850606,870155940230
*************************************************************
*
* LATEST UPDATE 850606 MADE BY:JE
*
* HISTORY=
* 850606/JE CHECK OF OVFL-ENTRIES 'ATTAB' ROUTINE 'VARDET'
* 850509/JE ORDER OF CONTROL CHNGED 'VARDET' BEFORE FUNCTIONS
* 850221/JE FASTER PROCESSING OF EVALUATION OF FID:S
* 850211/CJ IDENTION ERROR FOR FID<LEN4 ,"ON FID GOTO ..."
* 841120/CJ MUL&DIV NOW FROM ASSROUTINE
* 840921/CJ BASIC ERROR WHEN USE OF FID=AB,NU - SOLVED
* 830422/CJ EXTANSION OF ATTRIBUTES "ATTR" SA,CA
*
*************************************************************
DDUM WSMDDV
PDIV
ENTRY SYNVAL ***SYNTAX OF VALIDATION
ENTRY BSVSEA ***BASIC VERB SEARCH
EXPROC ZERFLL,PSTRG,PBIN,PBIN ***ZERO REFILL /00:S
EXT ICLEAR ---CLEAR ITEM
EXT EMPTYT ---CHECK IF EMPTY
EXT GETIND ---GET ITEM LENGTH
EXT WXMUL ---MULTIPLICATION
EXT WXDIV ---DIVISION
EJECT
*
* SYNTAX OF VALIDATION
* 1 - CHECK IF A LINE NUMBER WAS ENTERED
* RANGE IT 0000 < LINE NUMBER < 2047
* 2 - INDENTIONS LEADING BLANKS
* 3 - BASIC VERB
* 4 - X - BASIC VERB DEPENDENT
*
* INPUT : LSTR81 = BASIC LINE
* LBIN1 = NUMBER OF INPUT CHARACTERS
*
* USED : LBIN3
* LBIN4 = BASIC LINE POINTER
* VBIN6
* VBIN7
* VBIN8
* LBIN12
* LBIN17
* LBIN20
*
* OUTPUT: LBIN1 = ERRONEUS POSITION (IF ERROR)
* LBIN4 = SYNTAX ERROR (NUMBER)
* CR = 0 OK
* = 1 NOT OK
*
************************************************************************
SYNVAL PROC
MOVE LBIN4,W0 INPUT BUFFER POINTER:=0
CALL ICLEAR,LSTR4A ---CLEAR ITEM
EJECT
*
* CHECK IF LINE NUMBER WAS ENTERED
*
CLEAR VBOOL1 FALSE=NO LINE NUMBER FOUND
MOVE LBIN3,W4 LOAD MAXLENGTH OF LINE NUMBER
CBG LBIN1,W4,SYN040 JMP IF GREATER MAXLENGTH
MOVE LBIN3,LBIN1 LOAD ACTUAL LENGTH < 4
SYN040
XCOPY LSTR1,W0,W1,LSTR81,LBIN4 GET ONE CHARACTER
CBL LSTR1,=X'30',SYN050 JMP IF NOT A DIGIT
CBG LSTR1,=X'39',SYN050 JMP IF NOT A DIGIT
XCOPY LSTR4A,LBIN4,W1,LSTR1,W0 STORE DIGIT
ADD LBIN4,W1 ADJUST LINE NUMBER LENGTH
CBNE LBIN4,LBIN3,SYN040 JMP IF NOT MAXLENGTH
SYN050
CALL EMPTYT,LSTR4A ---CHECK IF EMPTY
BNOK SYN100 JMP IF NO LINE NUMBER
MOVE LINNO(W9),LSTR4A CONVERT TO BCD
MOVE LBIN3,LINNO(W9) CONVERT TO BINARY
CBL LBIN3,W1,SYN060 JMP IF OUT OF RANGE
CBG LBIN3,=X'07FF',SYN060 JMP IF OUT OF RANGE
SET VBOOL1 TRUE=LINE NUMBER FOUND
B SYN100
*
* SYNTAX ERROR 01 LINE NUMBER OUT OF RANGE 1-2047
*
SYN060
MOVE LBIN1,W0 SAVE ERRONEUS POSITION
MOVE LBIN4,W1 SYNTAX ERROR:=1
B SYN980
EJECT
*
* CHECK IF INDENTION(LEADING SPACES
*
SYN100
CMP LBIN1,W1 CHECK IF LENGTH=1
BE SYN800 BASIC STATEMENT SEPARATOR
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN990 E-O-B FOUND
PERF INDCNT ***INDENTION COUNTING
BT SYN108 E-O-B JUST SPACES
MOVE LBIN3,W0 LOAD LOW LIMIT
TBF VBOOL1,SYN102 NO SPACE NEEDED IF NO LINE NO
ADD LBIN3,W1 ADJUST LOW LIMIT IF LINE NUMB
SYN102
CBL VBIN7,LBIN3,SYN105 JMP IF NUMB < 1 NOT OK
CBG VBIN7,=W'31',SYN103 JMP IF NUMBE > 31 NOT OK
B SYN110 OK
EJECT
*
* SYNTAX ERROR 03 INDENTION ERROR
*
SYN103
MOVE LBIN1,=W'31' LOAD ERRONEUS POSITION
B SYN106
SYN105
MOVE LBIN1,LBIN4 SAVE ERONEUS POSITION
SUB LBIN1,VBIN7 ADJUST POSITION
SYN106
MOVE LBIN4,W3 SYNTAX ERROR:=3
B SYN980 JMP ON ERROR
SYN108
SUB LBIN1,VBIN7 ADJUST LENGTH
DLETE LSTR81,LBIN1,VBIN7 DELETE TRAILING BLANKS
MOVE LBIN4,W80
ADD LBIN4,W1 CALC LENGTH OF INPUT BUFFER
SUB LBIN4,VBIN7 CALC START POINT
MOVE VBIN7,W80
ADD VBIN7,W1 CALC END LIMIT
MOVE LSTR1,=X'00' CLEAR
SYN109
XCOPY LSTR81,LBIN4,W1,LSTR1,W0 CLEAR POSITION
ADD LBIN4,W1 NEXT POSITION
CMP LBIN4,VBIN7 CHECK END LIMIT
BE SYN990 JMP IF END LIMIT REACHED
B SYN109
EJECT
*
* CHECK BASIC VERB
*
SYN110
CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH
PERF BSVSEA,W2,VBIN6 ***BASIC VERB SEARCH LENGTH=2
BOK SYN120 BASIC VERB FOUND
PERF BSVSEA,W3,VBIN6 ***BASIC VERB SEARCH LENGTH=3
BOK SYN120 BASIC VERB FOUND
PERF BSVSEA,W4,VBIN6 ***BASIC VERB SEARCH LENGTH=4
BOK SYN118 BASIC VERB FOUND
PERF BSVSEA,W5,VBIN6 ***BASIC VERB SEARCH LENGTH=5
BOK SYN120 BASIC VERB FOUND
PERF VARDET ***VARIABLE/!INP/!FID
BNOK SYN112 NOT OK
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
TBT VBOOL2,SYN111 ALPHANUM.VARIABLE
MOVE VBIN6,W2 NUMERIC LET WITHOUT LET
B SYN155 CONTINUE IN LET STMT
SYN111 MOVE VBIN6,W0 ALPHANUM.LET WITHOUT L
B SYN155
SYN112
CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH
SUB VBIN8,W1 ADJUST POINTER
MATCH STMTS,VBIN8,W1,LSTR81,LBIN4,W1
BNOK SYN115
ADD LBIN4,W1 ADJUST BUFFER POINTER
B SYN800 BASIC STATEMENT SEPARATOR
*
* SYNTAX ERROR 02 BASIC VERB EXPECTED
*
SYN115
MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION
MOVE LBIN4,W2 SYNTAX ERROR :=2
B SYN980
*
* CHECK IF 'THEN' WAS FOUND
*
SYN118
CBNE VBIN6,W6,SYN120 JMP IF NOT 'THEN'
SUB LBIN4,W4 ADJUSTBUFFER POINTER
B SYN115 JMP WHEN T'THEN'
EJECT
*
* BASIC VERB FOUND OK
*
SYN120
IB VBIN6,SYN150, 1=ASSIGNMENT LET C
SYN150, 2=ASSIGNMNET C
SYN150, 3=ASSIGNMNET LET C
SYN200, 4=GO TO C
SYN200, 5=GOTO C
SYN250, 6=IF ..THEN ..<LINE> C
SYN115, 7=NOT VALID C
SYN250, 8=IF ..THEN ..<STMT> C
SYN115, 9=NOT VALID C
SYN350, 10=ON .. GO TO.. C
SYN350, 11=ON .. GOTO.. C
SYN400, 12=CALL C
SYN115, 13=NOT VALID C
SYN450, 14=SECT C
SYN115, 15=NOT VALID C
SYN500, 16=ATTR C
SYN115, 17=NOT VALID C
SYN550, 18=STOP C
SYN115, 19=NOT VALID C
SYN600, 20=EXIT C
SYN115, 21=NOT VALID C
SYN650, 22=ERR C
SYN115, 23=NOT VALID C
SYN650, 24=WARN C
SYN115, 25=NOT VALID C
SYN750, 26=REM C
SYN115, 27=NOT VALID C
SYN800 28=;
EJECT
*
* 1 LET <VARIABLE> = <ARITHMETIC EXPRESSION>/<STRING EXPRESSION>
*
SYN150
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
CBL VBIN7,W1,SYN105 JMP IF NO INDENTION
*
* TARGET VARIABLE
*
PERF VARDET ***VARIABLE DETERMINATION
BNOK SYN905 JMP NOT OK
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN904 E-O-B JUST SPACES
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
*
* ASSIGNMENT OPERATOR '='
*
SYN155
MOVE LBIN3,W0 POINTER:=0
MATCH OPRTS,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '='
BNOK SYN906 NO ASSIGNMENT OPERATOR
ADD LBIN4,W1 ADJUST INPUT BUFFER POINTER
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN904 E-O-B JUST SPACES
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
EJECT
PERF CLRLST ***CLEAR STACK
TBF VBOOL2,SYN160 JMP IF ARITHMETIC EXPR.
*
* STRING EXPRESSION EXPECTED
*
PERF STREXP ***STRING EXPR EVALUATION
BNOK SYN906 EXPR ERROR
B SYN800
*
* ARITHMETIC EXPRESSION EXPECTED
*
SYN160
PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION
BNOK SYN906 EXPR ERROR
B SYN800 BASIC STATEMENT SEPARATOR ; ?
EJECT
*
* 4,5 GO TO/GOTO <LINE-NUMBER>
*
SYN200
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
CMP VBIN7,W1 JMP IF NO INDENTION
BL SYN105 JMP IF LESS
*
* LABEL LINE NUMBER EXPECTED
*
PERF LABLIN,W4 ***LABEL LINE NUMBER
BNOK SYN907 LABEL LINE NUMBER ERROR
B SYN800 BASIC STATEMENT SEPARATOR ; ?
EJECT
*
* 6 IF <RELATIONAL EXPRESSION> THEN <LINE>/<STATEMENT>
*
SYN250
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
CMP VBIN7,W1 JMP IF NO INDENTION
BL SYN105 JMP IF LESS
*
* STRING EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF STREXP ***STRING EXPR EVALUATION
BOK SYN260 JMP OK
*
* ...OR ARITHMETIC EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION
BNOK SYN906 EXPR ERROR
EJECT
*
* RELATIONAL OPERATOR
*
SYN260
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B NOT OK
MOVE LBIN3,W0 POINTER:=0
MATCH OPRTS,LBIN3,W3,LSTR81,LBIN4,W1
BNOK SYN904
MOVE LBIN3,W3 POINTER:=3
MATCH OPRTS,LBIN3,W6,LSTR81,LBIN4,W2 MATCH FOLLOWING OPERAND
BNOK SYN280 NO FOLLOWING OPERAND
ADD LBIN4,W1 ADJUST BUFFER POINTER
SYN280
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT SYN904 INCOMPLETE STATEMENT
EJECT
*
* STRING EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
TBF VBOOL2,SYN290 JMP IF ARITHMETIC
PERF STREXP ***STRING EXPR EVALUATION
BNOK SYN906
B SYN300
*
* ARITHMETIC EXPRESSION EXPECTED
*
SYN290
PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION
BNOK SYN906 EXPR ERROR
SYN300
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN904 E-O-B OK
PERF INDCNT ***INDENTION COUNTING
BT SYN904 INCOMPLETE STATEMENT
CMP VBIN7,W1 CHECK NUMB OF SPACES
BL SYN105 JMP IF LESS
EJECT
*
* MATCH FOR THEN/
*
CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH
MOVE LBIN12,=X'00FF' LOAD FILLER CHARACTER
PERF BSVSEA,W4,LBIN17 ***BASIC VERB SEARCH LENGTH=4
BNOK SYN904 INCOMPLETE STATEMENT
CMP LBIN17,W6 CHECK IF OP-CODE = 6
BE SYN305 JUMP IF 'THEN'
SUB LBIN4,W4 ADJUST BUFFER POINTER
B SYN904 INCOMPLETE STATEMENT/P
SYN305
PERF INDCNT ***INDENTION COUNTING
BT SYN904 INCOMPLETE STATEMNET
CMP VBIN7,W1 CHECK NUMB OF SPACES
BL SYN105 JMP IF LESS
*
* LABEL LINE NUMBER EXPECTED
*
PERF LABLIN,W4 ***LABEL LINE NUMBER
BNOK SYN110 NO LINE NUMBER STATEMENT
B SYN800 BASIC STATEMENT SEPARATOR ; ?
EJECT
*
* 10 ON <ARITHMETIC EXPRESSION> GO TO/GOTO <LINE-NUMBER-LIST>
*
SYN350
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
CMP VBIN7,W1 JMP IF NO INDENTION
BL SYN105 JMP IF LESS
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK SYN906 EXPR ERROR
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B NOT OK
CMP VBIN7,W1 CHECK NUMB OF SPACES
BL SYN105 JMP IF LESS
EJECT
*
* MATCH FOR GO TO/GOTO
*
CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH
MOVE LBIN12,=X'00FF' LOAD FILLER CHARACTER
PERF BSVSEA,W4,LBIN17 ***BASIC VERB SEARCH LENGTH=4
BOK SYN356 BASIC VERB FOUND
PERF BSVSEA,W5,LBIN17 ***BASIC VERB SEARCH LENGTH=5
BOK SYN355 BASIC VERB FOUND
B SYN904 INCOMPLET STATEMNET
SYN355
CBE LBIN17,W4,SYN358 JMP IF GO TO
SUB LBIN4,W5
B SYN904
SYN356
CBE LBIN17,W5,SYN358 JMP IF GOTO
SUB LBIN4,W4 ADJUST BUFFER POINTER
B SYN904 INCOMPLETE STATEMENT
SYN358
PERF INDCNT ***INDENTION COUNTING
BT SYN904
CMP VBIN7,W1 CHECK NUMB OF SPACES
BL SYN105 JMP IF LESS
EJECT
*
* LABEL LINE NUMBER EXPECTED
*
SYN360
PERF LABLIN,W4 ***LABEL LINE NUMBER
BNOK SYN907 LABEL LINE NUMBER ERROR
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN990 E-O-B OK
PERF INDCNT ***INDENTION COUNTING
BT SYN108 E-O-B JUST SPACES
*
* MATCH FOR LABEL LIST SEPARATOR
*
MOVE LSTR1,=C',' SEPARATOR=,
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ','
BNOK SYN810 BASIC STATEMENT SEPARATOR ; ?
ADD LBIN4,W1 ADJUST BUFFER POINTER
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN904 INCOMPLETE STATEMENT
PERF INDCNT ***INDENTION COUNTING
BT SYN904 INCOMPLETE STATEMNET
B SYN360 NEXT LABEL LINE NUMBER
EJECT
*
* 12 CALL UF<DIGIT> !<PARAMETERLIST>!
*
SYN400
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
CMP VBIN7,W1 JMP IF NO INDENTION
BL SYN105 JMP IF LESS
*
* USER FUNCTION IDENT 'UF'
*
MOVE VSTR2,=C'UF' USER FUNCTION IDENT ='UF'
MOVE LBIN3,W0 POINTER:=0
MATCH VSTR2,LBIN3,W2,LSTR81,LBIN4,W2 MATCH 'UF'
BNOK SYN904 INCOMPLETE STATEMENT
ADD LBIN4,W2 ADJUST BUFFER POINTER
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN904 INCOMPLETE STATEMENT
*
* FUNCTION NUMBER
*
PERF LABLIN,W2 ***LABEL LINE NUMBER
BNOK SYN904 INCOMPLETE STATEMENT
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN990
PERF INDCNT ***INDENTION COUNTING
BT SYN108 JUST SPACES AT E-O-B
EJECT
*
* BEGIN OF PARAMETER LIST '('
*
MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '('
BNOK SYN810 BASIC STATEMENT SEPARATOR ; ?
SYN410
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT SYN904 INCOMPLETE STATEMNET
*
* STRING EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF STREXP ***STRING EXPR EVALUATION
BOK SYN420 EXPR OK
*
* ... OR ARITHMETIC EXPRESSION
*
PERF CLRLST ***CLEAR STACK
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK SYN906 EXPR ERROR
SYN420
PERF INDCNT ***INDENTION COUNTING
BT SYN904 INCOMPLTTE STATEMENT
EJECT
*
* PARAMETER EXPRESSION SEPARATOR ','
*
MOVE LSTR1,=C',' LOAD PAR-SEPARATOR
MOVE LBIN3,W0 POINT0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ','
BOK SYN410 JMP IF OK
*
* END OF PARAMETER LIST
*
MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')'
BNOK SYN904 INCOMPLETE STATEMENT
ADD LBIN4,W1 ADJUST BUFFER POINTER
B SYN800 BASIC STATEMENT SEPARATOR ; ?
EJECT
*
* 14 SECT <STRING EXPRESSION>
*
SYN450
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
CMP VBIN7,W1 JMP IF NO INDENTION
BL SYN105 JMP IF LESS
*
* STRING EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF STREXP ***STRING EXPR EVALUATION
BNOK SYN906 EXPR ERROR
B SYN800 BASIC STATEMENT SEPARATOR ; ?
EJECT
*
* 16 ATTR <ATTRIBUTE> <DYNAMIC FIELD>
*
SYN500
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
CMP VBIN7,W1 JMP IF NO INDENTION
BL SYN105 JMP IF LESS
*
* ATTRIBUTE => DECORATION OR PROTECTION
*
MOVE LBIN12,=W'26'
PERF DECSEA,LBIN12 ***DECORATION SEARCH
BNOK SYN904 JMP IF NOT OK
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN904 INCOMPLETE STATEMENT
PERF INDCNT ***INDENTION COUNTING
BT SYN904 INCOMPLETE STATEMENT
*
* MATCH FOR SEPARATOR
*
MOVE LSTR1,=C',' SEPARATOR=,
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ','
BNOK SYN904 INCOMPLETE STATEMENT
ADD LBIN4,W1 ADJUST BUFFER POINTER
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN904 INCOMPLETE STATEMENT
PERF INDCNT ***INDENTION COUNTING
BT SYN904 INCOMPLETE STATEMNET
*
* DYNAMIC FIELD
*
PERF VARDET ****VARIABLE DETERMINATION
BNOK SYN905 JMP IF NOT OK
TBF VBOOL3,SYN905 JMP IF NOT DYNAMIC FIELD
B SYN800 BASIC STATEMENT SEPARATOR ; ?
EJECT
*
* 18 STOP !<DYNAMIC FIELD>!
*
SYN550
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN990 E-O-B SIMPLE STOP OK
PERF INDCNT ***INDENTION COUNTING
BT SYN108 E-O-B JUST SPACES
CMP VBIN7,W1 JMP IF NO INDENTION
BL SYN105 JMP IF LESS
*
* STOP WITH TARGET DYNAMIC FIELD
*
PERF VARDET ****VARIABLE DETERMINATION
BNOK SYN810 BASIC STATEMENT SEPARATOR ; ?
TBF VBOOL3,SYN905 JMP IF NOT DYNAMIC FIELD
B SYN800 BASIC STATEMENT SEPARATOR ; ?
EJECT
*
* 20 EXIT <ARITHMETIC EXPRESSION>
*
SYN600
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
CMP VBIN7,W1 JMP IF NO INDENTION
BL SYN105 JMP IF LESS
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK SYN906 EXPR ERROR
B SYN800 BASIC STATEMENT SEPARATOR ; ?
EJECT
*
* 22 ERR <DECORATION LIST> <STRING-EXPRESSION>
* 24 WARN <DECORATION LIST> <STRING-EXPRESSION>
*
SYN650
PERF INDCNT ***INDENTION COUNTING
BT SYN904 E-O-B JUST SPACES
CMP VBIN7,W1 JMP IF NO INDENTION
MOVE LBIN12,W0 NUMB OF FOUND DECORATIONS
CLEAR VBOOL5 FALSE DECORATIONS NOT READY
*
* DECORATION LIST
*
SYN660
CMP LBIN12,W5 CHECK IF ALREADY 5 DECORS
BE SYN675 INCOMPLETE STATEMENT
PERF DECSEA,W10 ***DECORATION SEARCH
BNOK SYN675 JMP IF NOT OK
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN904 INCOMPLETE STATEMENT
PERF INDCNT ***INDENTION COUNTING
BT SYN904 INCOMPLETE STATEMENT
ADD LBIN12,W1 INCREMENT NUMB OF DECORATIONS
EJECT
*
* MATCH FOR DECORATION LIST SEPARATOR
*
SYN670
MOVE LSTR1,=C',' SEPARATOR=,
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ','
BNOK SYN906 BASIC STATEMENT SEPARATOR ; ?
ADD LBIN4,W1 ADJUST BUFFER POINTER
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN904 INCOMPLETE STATEMENT
PERF INDCNT ***INDENTION COUNTING
BT SYN904 INCOMPLETE STATEMNET
B SYN660 NEXT DECORATION
*
* STRING EXPRESSION EXPECTED
*
SYN675
PERF CLRLST ***CLEAR STACK
PERF STREXP ***STRING EXPR EVALUATION
BNOK SYN906 EXPR ERROR
B SYN800 BASIC STATEMENT SEPARATOR ; ?
EJECT
*
* 26 REM !<ALPHNUMERIC CHARACTERS>!
*
SYN750
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN990 E-O-B SIMPLE STOP OK
PERF INDCNT ***INDENTION COUNTING
BT SYN108 E-O-B JUST SPACES
CMP VBIN7,W1
BL SYN105 JMP IF NO INDENTION
B SYN990
EJECT
*
* 28 ; (BASIC STATEMENT SEPARATOR)
*
SYN800
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN990 E-O-B
PERF INDCNT ***INDENTION COUNTING
BT SYN108 E-O-B JUST SPACES
*
* MATCH FOR BASIC STATEMENT SEPARATOR ;
*
SYN810
MOVE LSTR1,=C';' SEPARATOR=;
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ';'
BNOK SYN815 INCOMPLETE STATEMENT
ADD LBIN4,W1 ADJUST BUFFER POINTER
CMP LBIN4,LBIN1 CHECK E-O-B
BE SYN990 COMPLETE STATEMENT
SYN815
PERF INDCNT ***INDENTION COUNTING
BT SYN108 JUST SPACES
B SYN110 NEXT BASIC STATEMENT
EJECT
*
* SYNTAX ERROR 04 BASIC STATEMENT INCOMPLETE
*
SYN904
MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION
MOVE LBIN4,W4 SYNTAX ERROR:=4
B SYN980
*
* SYNTAX ERROR 05 ILLEGAL OPERAND
*
SYN905
MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION
MOVE LBIN4,W5 SYNTAX ERROR:=5
B SYN980
*
* SYNTAX ERROR 06 ILLEGAL EXPRESSION
*
SYN906
MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION
MOVE LBIN4,W6 SYNTAX ERROR:=6
B SYN980
*
* SYNTAX ERROR 07 NOT VALID LINE NUMBER
*
SYN907
MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION
MOVE LBIN4,W7 SYNTAX ERROR:=7
B SYN980
EJECT
*
* SYNTAX ERROR
*
SYN980
ADD LBIN1,W1 ADJUST POINTER POSITION
CMP W1,W0 CR:=1
B SYN999
*
* EXIT OK
*
SYN990
CMP W1,W1 CR:=0
SYN999
RET
PEND
EJECT
*
* BASIC VERB SEARCH
*
* INPUT : STLEN =(FORMAL) BASIC VERB LENGTH
*
* USED : VBIN7 = WORKITEM
*
* OUTPUT: LBIN4 = INPUT BUFFER POINTER ADJUSTED
* OPCODE = CORRESPONDING OBJECT-CODE (BASIC VERB)
* CR = 0 = OK
* = 1 = NOT OK
*
************************************************************************
BSVSEA PROC STLEN,OPCODE
PBIN STLEN
PBIN OPCODE
MOVE OPCODE,W0 BASIC-VERB OBJECT:=0
MOVE LBIN3,W0 POINTER:=0
MOVE LSTR1,=X'FF' LOAD FILLER
MATCH STMTS,LBIN3,VBIN8,LSTR81,LBIN4,STLEN BASICVERBMATCH
BNOK BSV999 JMP IF NOT FOUND
XCOPY OPCODE,W1,W1,STVAL,LBIN3 LOAD OBJECT CODE
CBE OPCODE,=X'00FF',BSV980 JMP IF FILLER
EJECT
*
* CHECK IF PROPER LENGTH
*
MOVE VBIN7,LBIN3 STORE POINTER VALUE
ADD VBIN7,STLEN ADD POINTER STATMENT LENGTH
MATCH STVAL,VBIN7,W1,LSTR1,W0,W1 MATCH IF FILLER
BOK BSV980 JMP IF FILLER /FF FOUND NOT OK
BSV100
ADD LBIN4,STLEN ADJUST POINTER WITH LENGTH
CMP W1,W1 CR:=0
B BSV999
BSV980
CMP W1,W0 CR:=1
BSV999
RET
PEND
EJECT
*
* INDENTION COUNTING
*
* INPUT : LSTR81 = INPUT BUFFER
* LBIN4 = INPUT BUFFER POINTER
* LBIN1 = LENGTH OF INPUT BUFFER
*
* OUTPUT: LBIN4 = ADJUSTED
* VBIN7 = NUMBER OF INDENTIONS
* CR = 0 = FALSE NOT E-O-BUFFER REACHED
* = 1 = TRUE E-O-BUFFER REACHED
*
************************************************************************
INDCNT PROC
MOVE LSTR1,=X'20' LOAD SPACE CHARACTER
MOVE VBIN7,W0 NUMB OF LEADING SPACES:=0
IND100
MOVE LBIN3,W0 MATCH-POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH FOR SPACE
BNOK IND985 JMP IF NO MORE SPACES
ADD VBIN7,W1 INCREMENT NO OF SPACES
ADD LBIN4,W1 ADJUST BUFFER-POINTER
CMP LBIN4,LBIN1 CHECK E-O-B
BE IND980 E-O-B JUST SPACES
B IND100 GO ON
EJECT
IND980
CMP W1,W0 CR:=1
B IND999
IND985
CMP LBIN4,LBIN1 CHECK E-O-B
BE IND980 JMP IF E-O-B
IND990
CMP W1,W1 CR:=0
IND999
RET
PEND
EJECT
*
* VARIABLE DETERMINATION
*
* INPUT : LSTR81 = BASIC LINE
* LBIN4 = BASIC LINE POINTER
* FIDTAB = FIELD ID TABLE
* ATTAB = ATTRIBUTE TABLE
* GVDUR = SCREEN ROW BUFFER
*
* USED : LBIN3
* VBIN7
* VBIN8
* LBIN12
* LBIN17
*
* OUTPUT : VBOOL2 = FALSE NUMERIC => ARITHMETIC VARIABLE
* = TRUE ALPHANUM => STRING VARIABLE
* VBOOL3 = FALSE WSM-WORK-ITEM VARIABLE
* = TRUE DYNAMIC FIELD VARIABLE
* CR = 0 OK
* = 1 SYNTAX ERROR
*
************************************************************************
VARDET PROC
CLEAR VBOOL2 FALSE = ARITHMETIC VARIABLE
CLEAR VBOOL3 FALSE = WSM WORK ITEM VARIABLE
MOVE LBIN17,W4 VARIABLE LENGTH:=4
EJECT
*
* CURRENT FIELD '!FID' OR CURRENT INPUT '!INP'
*
MOVE LSTR9A,=C'!FID!INP!' LOAD IDENTIFIERS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR9A,LBIN3,W8,LSTR81,LBIN4,W4 MATCH '!FID' OR '!INP'
BNOK VAR100 JMP IF NOT FOUND
CBE LBIN3,W0,VAR010 JMP IF OK
CBE LBIN3,W4,VAR010 JMP IF OK
B VAR100 NOT OK
VAR010
TBF LBOOL5,VAR050 JMP IF CURRENT FIELD ARITHMETIC
B VAR250 CURRENT FIELD STRING
VAR050
B VAR300 LONG BRANCH CONSTRUCTION
EJECT
*
* WSM WORK ITEM INVESTIGATION
*
VAR100
MOVE LBIN3,W0 WORKITEM
MOVE LSTR6A,=C'WSWAWN' WSM-WORKITEN PREFIX
MATCH LSTR6A,LBIN3,W6,LSTR81,LBIN4,W2 SEARC WSMITEM PREFIX
BNOK VAR190 JMP IF NOT A WSM-ITEM
CBE LBIN3,W0,VAR102 JMP IF OK
CBE LBIN3,W2,VAR102 JMP IF OK
CBE LBIN3,W4,VAR102 JMP IF OK
B VAR190 JMP NOT OK
VAR102
MOVE LBIN12,LBIN4 LOAD CURRENT POINTER POSITION
ADD LBIN12,W2 ADJUST POINTER POSITION
XCOPY VSTR2,W0,W2,LSTR81,LBIN12 WSM ITEM NO
CBL VSTR2,=C'01',VAR108 LESS LOW LIMIT
CBL LBIN3,W2,VAR105 JMP IF
CBG VSTR2,=C'99',VAR108 GREATER HIGH LIMIT
B VAR110 JMP IF OK
VAR105
CBNG VSTR2,=C'09',VAR110 NOT GREATER HIGH LIMIT
VAR108
B VAR980 LONG BRANCH CONSTRUCTION
*
* WSM WORK-ITEM FOUND OK
*
VAR110
CBL LBIN3,W4,VAR250 ALPHANUM WSM-ITEM
B VAR300 NUMERIC
EJECT
*
* DYNAMIC FIELD INVESTIGATION
*
VAR190
SET VBOOL3 TRUE = DYNAMIC FIELD VARIABLE
MOVE LSTR6A,=X'422A5800' B*X=ALPHANUMERIC CHARS
MOVE LSTR16,=X'2B2D2A2F28293A263D3C3E2C3B2000' +-*/():&=<>,;B/00
MMOVE VBIN7,VBIN8,LBIN4 LOAD ACTUAL BUF. POPINTER
ADD VBIN7,W4 ADJUST TO GET MATCH-LIMIT
VAL192
MOVE LBIN3,W0 MATCHPOINTER:=0
MATCH LSTR16,LBIN3,W15,LSTR81,VBIN8,W1
BOK VAL194 DELIMITER-CHAR. FOUND
ADD VBIN8,W1 ADJUST TEMP BUFFER POINTER
CBE VBIN8,VBIN7,VAL194 4 POSITIONS MATCHED. JMP
B VAL192 GO ON MATCH DELIMITER
VAL194
SUB VBIN8,LBIN4 CALC EFF. FID-LENGTH ?
BE VAR980 IF = 0 => NO VARIABEL
MOVE LBIN3,W0 WORKITEM:=0
VAR200
CMP LBIN3,LABIN CHECK IF END ATTAB
BE VAR980 SYNTAX ERROR
XCOPY VBIN7,W0,W2,ATTAB,LBIN3 FETCH ROW & COL
CBE VBIN7,W0,VAR980 E-O-BUFFER
ADD LBIN3,W2 ADJUST ATAB-POINTER
XCOPY VBIN7,W0,W1,W0,W0 DELETE ROW NO
CBG VBIN7,LBIN9,VAR206 JMP IF OVFL ENTRY
XCOPY VBIN7,W1,W1,ATTAB,LBIN3 GET SEQ.NO
CBNE VBIN7,=X'00FF',VAR208 JMP IF DYNAMIC FIELD
VAR206
ADD LBIN3,W2 ADJUST ATTAB -POINTER
B VAR200 GO ON
*
* DYNAMIC FIELD SEQ.NO FOUND
*
VAR208
CALL WXMUL,VBIN7,W5,VBIN7
SUB VBIN7,W5 CALC FIELD-ID POSITION
MOVE LBIN12,VBIN7 LOAD FID-TAB POSITION
MATCH FIDTAB,LBIN12,W4,LSTR16,W13,W1 MATCH 1ST SPACE
SUB LBIN12,VBIN7 CALC FIDTAB-FID LENGTH
CBNE LBIN12,VBIN8,VAR206 JMP IF NOT SAME LENGTH
MATCH FIDTAB,VBIN7,VBIN8,LSTR81,LBIN4,VBIN8 MATCH FIELD NAME
BNOK VAR206 JMP IF NO FIELD ID
MOVE LBIN17,VBIN8 SAVE FOUND FID-LENGTH
EJECT
*
* RIGHT FIELD ID FOUND
*
SUB LBIN3,W2 ADJUST ATTAB-POINTER
MOVE VBIN7,W0 CLEAR FIRST
XCOPY VBIN7,W1,W1,ATTAB,LBIN3 GET ROW NO
ADD LBIN3,W1 ADJUST ATTAB-POINTER
MOVE VBIN8,W0 WORKITEM:=0
XCOPY VBIN8,W1,W1,ATTAB,LBIN3 GET COL NO
SUB VBIN8,W1 ADJUST COL.NR TO POINTER
ADD LBIN3,W3 ADJUST ATTAB-POINTER
CMP LBIN3,LABIN CHECK END OF ATTAB
BE VAR210 JMP IF E-O-B FOUND
MOVE LBIN12,W0 WORKITEM:=0
XCOPY LBIN12,W1,W1,ATTAB,LBIN3 GET NEXT ROW NO
CBNE LBIN12,VBIN7,VAR210 JMP IF NOT SAME ROW NO
ADD LBIN3,W1 ADJUST ATTAB-POINTER
XCOPY LBIN12,W1,W1,ATTAB,LBIN3 GET NEXT COL NO
SUB LBIN12,W1 ADUST ENDPOSITION
B VAR215
EJECT
*
* SEARCH FOR 1ST /00
*
VAR210
MOVE LBIN3,LBIN9 LOAD MAX COL POSITION
SUB LBIN3,VBIN8 CALC PICTURESTRING LENGTH
MOVE LBIN12,VBIN8 LOAD START POSITION
MATCH GVDUR(VBIN7),LBIN12,LBIN3,LSTR6A,W3,W1 MATCH 1ST 00
BOK VAR215 ENDPOS FOUND
MOVE LBIN12,LBIN9 ENDPOS=MAX ENDCOLPOS
VAR215
SUB LBIN12,VBIN8 CALC PICTURE LENGTH
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR6A,LBIN3,W3,GVDUR(VBIN7),VBIN8,W1 MATCH 1ST CHAR
BNOK VAR300 NO ALPHANUM CHAR
*
* ALPHANUMERIC CHARACTER FOUND
*
XCOPY LSTR1,W0,W1,LSTR6A,LBIN3 LOAD FOUND SIGN
MOVE GST80I(W7),LSTR1 FILL WITH FOUND CHAR
MOVE LBIN3,W0 POINTER:=0
MATCH GST80I(W7),LBIN3,LBIN12,GVDUR(VBIN7),VBIN8,LBIN12
BNOK VAR300 ALL CHARACTERS NOT ALPHA
EJECT
*
* ALL CHARACTERS ARE ALPHANUMERIC => STRING VARIABLE
*
VAR250
SET VBOOL2 TRUE=ALPHANUMERIC =>STRING
*
* NUMERIC DYNAMIC FIELD => ARITHMETIC VARIABLE
*
VAR300
B VAR990 OK
*
* SYNTAX ERROR
*
VAR980
CMP W1,W0 CR:=1
B VAR999
*
* OK EXIT
*
VAR990
ADD LBIN4,LBIN17 ADJUST BUFFER-POINTER
CMP W1,W1 CR:=0
VAR999
RET
PEND
EJECT
*
* STRING EXPRESSION EVALUATION
*
* OUTPUT: CR = 0 OK
* = 1 NOT OK
* VBIN7 = NUMBER OF EXPRESSION CHARACTER
*
************************************************************************
STREXP PROC
ADD LBIN20,W1 INCREMENT-STACK-INDEX
CMP LBIN20,GBINIA(W5)
BG STR980 STACK OVERFLOW
*
* STRING CONSTANT
*
STR000
MOVE LSTR1,=X'22' LOAD STRING QUOTE "
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH "
BNOK STR100 JMP IF NOTSTRING QUOTE
ADD LBIN4,W1 ADJUST FOR "
MOVE VBIN7,LBIN1 LOAD NUMB OF INPUT CHARACTERS
SUB VBIN7,LBIN4 CALC MATCH LENGTH
MOVE LBIN12,LBIN4 LOAD BUFFER POINTER
MATCH LSTR81,LBIN12,VBIN7,LSTR1,W0,W1 MATCH NEXT "
BNOK STR980 JMP IF NO STRINGQUOTE
MOVE LBIN4,LBIN12 STORE 2ND "-POSITION
ADD LBIN4,W1 ADJUST NUMB FOR 2ND "
B STR400 OK
EJECT
*
* STRING VARIABLE
*
STR100
PERF VARDET ***VARIABLE DETERMINATION
BNOK STR300 JMP IF NOT OK
TBT VBOOL2,STR200 JMP IF STRING VARIABLE
SUB LBIN4,LBIN17 ADJUST BUFFER POINTER WRONG
B STR980 SYNTAX ERROR
*
* QUALIFIED STRING VARIABLE ===> SUBSTRING
*
STR200
PERF INDCNT ***INDENTION COUNTING
BT STR990 E-O-B OK
*
* BEGIN OF SUBSTRING '('
*
MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '('
BNOK STR410 NO SUBSTRING
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT STR980 INCOMPLETE STATEMNET
EJECT
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK STR980 INCOMPLETE STATEMENT
PERF INDCNT ***INDENTION COUNTING
BT STR980 INCOMPLETE STATEMENT
*
* SUBSTRING OPERATOR ':'
*
MOVE LBIN3,W19 POINTER:=19
MATCH OPRTS,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ':'
BNOK STR980 INCOMPLETE STATEMENT
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT STR980 INCOMPLETE STATEMENT
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK STR980 INCOMPLETE STATEMENT
PERF INDCNT ***INDENTION COUNTING
BT STR980 INCOMPLETE STATEMENT
*
* END OF SUBSTRING
*
MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')'
BNOK STR980 INCOMPLETE STATEMENT
ADD LBIN4,W1 ADJUST BUFFER POINTER
B STR400 OK
*
* STRING FUNCTION ?
*
STR300
MOVE LBIN3,W20 POINTER:=20
MATCH OPRTS,LBIN3,W3,LSTR81,LBIN4,W3 MATCH FUNCTION
BNOK STR980 NO FUNCTION NOK
ADD LBIN4,W3 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT STR980 INCOMPLETE STATEMENT
EJECT
*
* BEGIN OF PARAMETER LIST '('
*
MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '('
BNOK STR980 INCOMPLETE STATEMENT
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT STR980 INCOMPLETE STATEMNET
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK STR980 INCOMPLETE STATEMENT
PERF INDCNT ***INDENTION COUNTING
BT STR980 INCOMPLTTE STATEMENT
*
* END OF PARAMETER LIST
*
MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')'
BNOK STR980 INCOMPLETE STATEMENT
ADD LBIN4,W1 ADJUST BUFFER POINTER
EJECT
*
* CONCATENATED STRING EXPRESSION ?
*
STR400
PERF INDCNT ***INDENTION COUNTING
BT STR990 E-O-B OK
STR410
MOVE LBIN3,W18 POINTER:=18
MATCH OPRTS,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '&'
BNOK STR450 NO CONCA EXPR.
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT STR980 INCOMPLETE STATEMNET
B STR000 GO ON
STR450
SUB LBIN4,VBIN7 ADJUST BUFFERPOINTER
B STR990
*
* SYNTAX ERROR
*
STR980
SUB LBIN20,W1 DECREASE STACK INDEX
CMP W1,W0 CR:=1
B STR999
*
* EXIT OK
*
STR990
SUB LBIN20,W1 DECREASE STACK INDEX
SET VBOOL2 TRUE =STRING EXPRESSION
CMP W1,W1 CR:=0 OK
STR999
RET
PEND
EJECT
*
* ARITHMETC EXPRESSION EVALUATION
*
* OUTPUT: CR = 0 OK
* = 1 NOT OK
*
************************************************************************
ARTEXP PROC
ADD LBIN20,W1 INCREMENT-STACK-INDEX
CMP LBIN20,GBINIA(W5)
BG ART980 STACK OVERFLOW
*
* SIGNED FACTOR
*
ART000
MOVE LBIN3,W23 POINTER:=23
MATCH OPRTS,LBIN3,W2,LSTR81,LBIN4,W1 MATCH '+-'
BNOK ART050 NO SIGNED FACTOR
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT ART980 INCOMPLETE STATEMNET
EJECT
*
* ARITHMETIC CONSTANT
*
ART050
MOVE VBIN7,W0 NUMB OF CHARACTERS:=0
CLEAR VBOOL4 FALSE NO DECIMAL FOUND
ART060
XCOPY LSTR1,W0,W1,LSTR81,LBIN4 GET ONE CHARACTER
CBL LSTR1,=X'30',ART070 JMP IF NOT DIGIT BUT . OR ,
CBG LSTR1,=X'39',ART080 JMP IF NOT DIGIT
ART065
ADD VBIN7,W1 ADJUST NUMB OF CHARACTERS
ADD LBIN4,W1 ADJUST BUFFER POINTER
CMP LBIN4,LBIN1 CHECK E-O-B
BE ART500 OK EXIT
B ART060 GO ON
*
* DECIMAL CHARACTER FOUND ?
*
ART070
CBNE LSTR1,=C'.',ART080 JMP IF NOT A DIGIT
SET VBOOL4 TRUE DECIMAL FOUND
BOK ART065 OK 1ST DEC CHAR
*
* END OF DIGITS
*
ART080
CBE VBIN7,W0,ART100 NO DIGITS
CBG VBIN7,W1,ART500 AT LEAST ONE DIGIT OK
TBT VBOOL4,ART980 JMP IF JUST DECIMAL
B ART500 JMP OK
EJECT
*
* ARITHMETIC VARIABLE
*
ART100
PERF VARDET ***VARIABLE DETERMINATION
BNOK ART200 JMP IF SYNTAX ERROR
TBF VBOOL2,ART500 JMP IF ARITHMETIC VARIABLE
SUB LBIN4,LBIN17 ADJUST POINTER WRONG TYPE
B ART980 SYNTAX ERROR
*
* ARITHMETIC FUNCTION ?
*
ART200
CALL GETIND,OPRTS,VBIN7,LBIN3 ---GET ITEM LENGTH
MOVE LBIN3,=W'29' POINTER:=29
SUB VBIN7,LBIN3 CALC LENGTH TO MATCH
MATCH OPRTS,LBIN3,VBIN7,LSTR81,LBIN4,W3 MATCH FUNCTION
BNOK ART300 NO FUNCTION
MOVE LSTACK(LBIN20),W0 OPERATION CODE:=0
XCOPY LSTACK(LBIN20),W1,W1,OPRVAL,LBIN3 GET OP-CODE
ADD LBIN4,W3 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT ART980 INCOMPLETE STATEMENT
*
* BEGIN OF PARAMETER LIST '('
*
MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '('
BNOK ART980 INCOMPLETE STATEMENT
ART210
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT ART980 INCOMPLETE STATEMNET
CBL LSTACK(LBIN20),=X'001D',ART230 ARITMETIC
CBL LSTACK(LBIN20),=X'001F',ART220 STRING
CBL LSTACK(LBIN20),=X'0021',ART230 ARITHMETIC
EJECT
*
* STRING EXPRESSION EXPECTED
*
ART220
PERF STREXP ***STRING EXPR EVALUATION
BNOK ART980 INCOMPLETE STATEMENT
B ART240
*
* ARITHMETIC EXPRESSION EXPECTED
*
ART230
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK ART980 INCOMPLETE STATEMENT
ART240
PERF INDCNT ***INDENTION COUNTING
BT ART980 INCOMPLTTE STATEMENT
CBL LSTACK(LBIN20),=X'001F',ART250 JMP NO MORE PARAM
*
* PARAMETER EXPRESSION SEPARATOR ','
*
SUB LSTACK(LBIN20),W4 ADJUST OP-CODE
MOVE LSTR1,=C',' LOAD PAR-SEPARATOR
MOVE LBIN3,W0 POINT0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ','
BNOK ART980 INCOMPLETE STATEMENT
B ART210 NEXT PARAMETER
EJECT
*
* END OF PARAMETER LIST
*
ART250
MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')'
BNOK ART980 INCOMPLETE STATEMENT
ADD LBIN4,W1 ADJUST BUFFER POINTER
B ART500
EJECT
*
* PRIORED EXPRESSION ( <ARITHMETIC EXPRESSION> )
* BEGIN OF PRIORED EXPRESSION '('
*
ART300
MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '('
BNOK ART500 NO PRIORED EXPRESSION
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT ART980 INCOMPLETE STATEMNET
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK ART980 INCOMPLETE STATEMENT
PERF INDCNT ***INDENTION COUNTING
BT ART980 INCOMPLETE STATEMENT
EJECT
*
* END OF PRIORED EXPRESSION
*
MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')'
BNOK ART980 INCOMPLETE STATEMENT
ADD LBIN4,W1 ADJUST BUFFER POINTER
EJECT
*
* COMBINED FACTOR MULTIPLY OPERATOR
*
ART500
PERF INDCNT ***INDENTION COUNTING
BT ART990 END OF LINE OK
MOVE LBIN3,=W'27' POINTER:=27
MATCH OPRTS,LBIN3,W2,LSTR81,LBIN4,W1 MATCH '/*'
BNOK ART600 NO MULTIPLY OPERATOR
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT ART980 INCOMPLETE STATEMENT
B ART050 GO ON
*
* COMBINED EXPRESSION ADDING OPERATOR ?
*
ART600
MOVE LBIN3,=W'25' POINTER:=25
MATCH OPRTS,LBIN3,W2,LSTR81,LBIN4,W1 MATCH '+-'
BNOK ART650 NO SIGN-OPERATOR
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
BT ART980 INCOMPLETE STATEMNET
B ART050 GO ON
ART650
SUB LBIN4,VBIN7 ADJUST BUFFER POINTER
B ART990 OK EXIT
EJECT
*
* SYNTAX ERROR
*
ART980
SUB LBIN20,W1 DECREASE STACK-INDEX
CMP W1,W0 CR:=1
B ART999
*
* OK EXIT
*
ART990
SUB LBIN20,W1 DECREASE STACK-INDEX
CLEAR VBOOL2 FALSE = ARITHMETIC EXPR
CMP W1,W1 CR:=0
ART999
RET
PEND
EJECT
*
* LABEL LINE NUMBER
*
* INPUT : LSTR81 = BASIC LINE
* LBIN4 = BASIC LINE POINTER
* LBIN1 = INPUT BUFFER LENGTH
* LENGTH = (FORMAL) MAX LENGTH OF NUMBER TO BE CONTROLL
*
* USED : LSTR1
*
* OUTPUT : CR = 0 OK
* = 1 NOT OK
* VBIN7 = NUMBER OF EXPRESSION CHARACTER
*
************************************************************************
LABLIN PROC LENGTH
PBIN LENGTH
CALL ICLEAR,LSTR4A ---CLEAR ITEM
MOVE VBIN7,W0 NUMB OF LINE-NUMB CHARS:
LAB100
XCOPY LSTR1,W0,W1,LSTR81,LBIN4 GET ONE CHARACTER
CBL LSTR1,=X'30',LAB150 JMP IF NOT A DIGIT
CBG LSTR1,=X'39',LAB150 JMP IF NOT A DIGIT
XCOPY LSTR4A,VBIN7,W1,LSTR1,W0 STORE DIGIT
ADD VBIN7,W1 ADJUST LINE NUMBER LENGTH
ADD LBIN4,W1 ADJUST POINTER
CBE LBIN4,LBIN1,LAB150 JMP IF E-O-B
CBNE VBIN7,LENGTH,LAB100 JMP IF NOT MAXLENGTH
EJECT
LAB150
CALL EMPTYT,LSTR4A ---CHECK IF EMPTY
BNOK LAB980 JMP IF NO LINE NUMBER
MOVE LINNO(W9),LSTR4A CONVERT TO BCD
MOVE LBIN3,LINNO(W9) CONVERT TO BINARY
CBL LBIN3,W1,LAB160 JMP IF OUT OF RANGE
CBG LBIN3,=X'07FF',LAB980 JMP IF OUT OF RANGE
B LAB990
LAB160
CBNE VBIN6,W12,LAB980 JMP IF NOT 'CALL'-FUNCTION
CBE LBIN3,W0,LAB990 0=OK WHEN 'CALL'
B LAB980 JMP NOT OK
*
* LINE NUMBER FOUND OK
*
LAB990
CMP W1,W1 CR:=0
B LAB999 EXIT
*
* SYNTAX ERROR
*
LAB980
CMP W1,W0 CR:=1
LAB999
RET
PEND
EJECT
*
* DECORATION SEARCH
*
* INPUT : LSTR81 = BASIC LINE
* LBIN4 = BASIC LINE POINTER
* LBIN1 = LENGTH OF BASIC LINE
* DSTLEN = (FORMAL) DECOR-STRING LENGTH
* DECOR = DECOR STRING
*
* USED : LSTR1
* LBIN3
* LBIN17
*
* OUTPUT: CR = 0 OK
* = 1 NOT OK
*
************************************************************************
DECSEA PROC DSTLEN
PBIN DSTLEN
EJECT
*
* DECORATION DELIMITER
*
MOVE LBIN17,LBIN4 SAVE BUFFER POINTER
MOVE LSTR1,=X'22' LOAD STRING QUOTE "
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN17,W1 MATCH "
BNOK DEC980 JMP IF NOT FOUND
ADD LBIN17,W1 ADJUST BUFFER POINTER
CMP LBIN17,LBIN1 CHECK END OF LINE
BE DEC980 JMP IF E-O-B
*
* DECORATION VERB
*
MOVE LBIN3,W0
MATCH DECOR,LBIN3,DSTLEN,LSTR81,LBIN17,W2 MATCH DECOR
BNOK DEC980 JMP IF NOT FOUND
XCOPY LSTR1,W0,W1,DECVAL,LBIN3 GET OP-CODE
CBE LSTR1,=X'FF',DEC980 JMP IF FILLER
ADD LBIN17,W2 ADJUST BUFFER POINTER
CMP LBIN17,LBIN1 CHECK E-O-B
BE DEC980
*
* DECORATION DELIMITER "
*
MOVE LSTR1,=X'22' LOAD STRING QUOTE "
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,LSTR81,LBIN17,W1 MATCH "
BNOK DEC980 JMP IF NOT FOUND
EJECT
*
* OK EXIT
*
ADD LBIN4,W4 ADJUST BUFFER POINTER
CMP W1,W1 CR:=0 OK
B DEC999
*
* SYNTAX ERROR
*
DEC980
CMP W1,W0 CR:=1
DEC999
RET
PEND
EJECT
*
* CLEAR LSTACK
*
* INPUT : LSTACK = STACK-INFORMATION
*
* USED : LBIN20 = STACK-INDEX
*
* OUPUT : LBIN20 = STACK-INDEX = 0
*
************************************************************************
CLRLST PROC
CALL GETIND,LSTACK(W1),LBIN20,LBIN3 ---GET LENGTH & DIMENSION
MOVE LBIN20,W1 STACK-INDEX:=1
CLR010
CALL ICLEAR,LSTACK(LBIN20) ---CLEAR ITEM
ADD LBIN20,W1 INCREMENT STACK-INDEX
CMP LBIN20,LBIN3 WHOLE STACK CLEARED
BG CLR999
B CLR010 GO ON
CLR999
MOVE LBIN20,W0 STACK INDEX:=0
CALL WXDIV,LBIN3,W2,LBIN3 DIVIDE STACK DIMENSION
MOVE GBINIA(W5),LBIN3 LOAD DIMENSION FOR SYNTAX
RET
PEND
END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT SYNVAL REL=2.3,850606,870155940230 «, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…0080 Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0000, t01=0x003e}
0x0080…008a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0084}
0x008a…00b4 Head {h00=0x0026, h01=0x0050, text=»* LATEST UPDATE 850606 MADE BY:JE «, t00=0x0000, t01=0x008e}
0x00b4…00be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00d0 Head {h00=0x000e, h01=0x0050, text=»* HISTORY=«, t00=0x0000, t01=0x00c2}
0x00d0…011e Head {h00=0x004a, h01=0x0050, text=»* 850606/JE CHECK OF OVFL-ENTRIES 'ATTAB' ROUTINE 'VARDET' «, t00=0x0000, t01=0x00d4}
0x011e…016e Head {h00=0x004c, h01=0x0050, text=»* 850509/JE ORDER OF CONTROL CHNGED 'VARDET' BEFORE FUNCTIONS«, t00=0x0000, t01=0x0122}
0x016e…01b6 Head {h00=0x0044, h01=0x0050, text=»* 850221/JE FASTER PROCESSING OF EVALUATION OF FID:S «, t00=0x0000, t01=0x0172}
0x01b6…0204 Head {h00=0x004a, h01=0x0050, text=»* 850211/CJ IDENTION ERROR FOR FID<LEN4 ,"ON FID GOTO ..." «, t00=0x0001, t01=0x002a}
0x0204…023e Head {h00=0x0036, h01=0x0050, text=»* 841120/CJ MUL&DIV NOW FROM ASSROUTINE«, t00=0x0001, t01=0x0078}
0x023e…0288 Head {h00=0x0046, h01=0x0050, text=»* 840921/CJ BASIC ERROR WHEN USE OF FID=AB,NU - SOLVED «, t00=0x0001, t01=0x00b2}
0x0288…02cc Head {h00=0x0040, h01=0x0050, text=»* 830422/CJ EXTANSION OF ATTRIBUTES "ATTR" SA,CA «, t00=0x0001, t01=0x00fc}
0x02cc…02d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0140}
0x02d6…031c Head {h00=0x0042, h01=0x0050, text=»************************************************************* «, t00=0x0001, t01=0x014a}
0x031c…0324 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0190}
0x0324…0338 Head {h00=0x0010, h01=0x0050, text=» DDUM WSMDDV«, t00=0x0002, t01=0x0008}
0x0338…0346 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0002, t01=0x001c}
0x0346…0374 Head {h00=0x002a, h01=0x0050, text=» ENTRY SYNVAL ***SYNTAX OF VALIDATION «, t00=0x0002, t01=0x002a}
0x0374…039e Head {h00=0x0026, h01=0x0050, text=» ENTRY BSVSEA ***BASIC VERB SEARCH«, t00=0x0002, t01=0x0058}
0x039e…03da Head {h00=0x0038, h01=0x0050, text=» EXPROC ZERFLL,PSTRG,PBIN,PBIN ***ZERO REFILL /00:S «, t00=0x0002, t01=0x0082}
0x03da…03fc Head {h00=0x001e, h01=0x0050, text=» EXT ICLEAR ---CLEAR ITEM «, t00=0x0002, t01=0x00be}
0x03fc…0422 Head {h00=0x0022, h01=0x0050, text=» EXT EMPTYT ---CHECK IF EMPTY «, t00=0x0002, t01=0x00e0}
0x0422…0448 Head {h00=0x0022, h01=0x0050, text=» EXT GETIND ---GET ITEM LENGTH«, t00=0x0002, t01=0x0106}
0x0448…046c Head {h00=0x0020, h01=0x0050, text=» EXT WXMUL ---MULTIPLICATION«, t00=0x0002, t01=0x012c}
0x046c…048a Head {h00=0x001a, h01=0x0050, text=» EXT WXDIV ---DIVISION«, t00=0x0002, t01=0x0150}
0x048a…0498 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x016e}
0x0498…04a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x017c}
0x04a2…04c4 Head {h00=0x001e, h01=0x0050, text=»* SYNTAX OF VALIDATION «, t00=0x0002, t01=0x0186}
0x04c4…04fa Head {h00=0x0032, h01=0x0050, text=»* 1 - CHECK IF A LINE NUMBER WAS ENTERED «, t00=0x0003, t01=0x0018}
0x04fa…0530 Head {h00=0x0032, h01=0x0050, text=»* RANGE IT 0000 < LINE NUMBER < 2047 «, t00=0x0003, t01=0x004e}
0x0530…055c Head {h00=0x0028, h01=0x0050, text=»* 2 - INDENTIONS LEADING BLANKS«, t00=0x0003, t01=0x0084}
0x055c…057a Head {h00=0x001a, h01=0x0050, text=»* 3 - BASIC VERB «, t00=0x0003, t01=0x00b0}
0x057a…05a2 Head {h00=0x0024, h01=0x0050, text=»* 4 - X - BASIC VERB DEPENDENT «, t00=0x0003, t01=0x00ce}
0x05a2…05ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f6}
0x05ac…05d8 Head {h00=0x0028, h01=0x0050, text=»* INPUT : LSTR81 = BASIC LINE «, t00=0x0003, t01=0x0100}
0x05d8…0614 Head {h00=0x0038, h01=0x0050, text=»* LBIN1 = NUMBER OF INPUT CHARACTERS «, t00=0x0003, t01=0x012c}
0x0614…061e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0168}
0x061e…063c Head {h00=0x001a, h01=0x0050, text=»* USED : LBIN3 «, t00=0x0003, t01=0x0172}
0x063c…0670 Head {h00=0x0030, h01=0x0050, text=»* LBIN4 = BASIC LINE POINTER «, t00=0x0003, t01=0x0190}
0x0670…068e Head {h00=0x001a, h01=0x0050, text=»* VBIN6 «, t00=0x0004, t01=0x0034}
0x068e…06ac Head {h00=0x001a, h01=0x0050, text=»* VBIN7 «, t00=0x0004, t01=0x0052}
0x06ac…06ca Head {h00=0x001a, h01=0x0050, text=»* VBIN8 «, t00=0x0004, t01=0x0070}
0x06ca…06e8 Head {h00=0x001a, h01=0x0050, text=»* LBIN12«, t00=0x0004, t01=0x008e}
0x06e8…0706 Head {h00=0x001a, h01=0x0050, text=»* LBIN17«, t00=0x0004, t01=0x00ac}
0x0706…0724 Head {h00=0x001a, h01=0x0050, text=»* LBIN20«, t00=0x0004, t01=0x00ca}
0x0724…072e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e8}
0x072e…076c Head {h00=0x003a, h01=0x0050, text=»* OUTPUT: LBIN1 = ERRONEUS POSITION (IF ERROR) «, t00=0x0004, t01=0x00f2}
0x076c…07a2 Head {h00=0x0032, h01=0x0050, text=»* LBIN4 = SYNTAX ERROR (NUMBER)«, t00=0x0004, t01=0x0130}
0x07a2…07c8 Head {h00=0x0022, h01=0x0050, text=»* CR = 0 OK «, t00=0x0004, t01=0x0166}
0x07c8…07f2 Head {h00=0x0026, h01=0x0050, text=»* = 1 NOT OK «, t00=0x0004, t01=0x018c}
0x07f2…07fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0026}
0x07fc…084c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0005, t01=0x0030}
0x084c…0860 Head {h00=0x0010, h01=0x0050, text=»SYNVAL PROC «, t00=0x0005, t01=0x0080}
0x0860…088e Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN4,W0 INPUT BUFFER POINTER:=0«, t00=0x0005, t01=0x0094}
0x088e…08b8 Head {h00=0x0026, h01=0x0050, text=» CALL ICLEAR,LSTR4A ---CLEAR ITEM «, t00=0x0005, t01=0x00c2}
0x08b8…08c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00ec}
0x08c6…08d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00fa}
0x08d0…08fe Head {h00=0x002a, h01=0x0050, text=»* CHECK IF LINE NUMBER WAS ENTERED «, t00=0x0005, t01=0x0104}
0x08fe…0908 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0132}
0x0908…0938 Head {h00=0x002c, h01=0x0050, text=» CLEAR VBOOL1 FALSE=NO LINE NUMBER FOUND«, t00=0x0005, t01=0x013c}
0x0938…096c Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN3,W4 LOAD MAXLENGTH OF LINE NUMBER«, t00=0x0005, t01=0x016c}
0x096c…09a2 Head {h00=0x0032, h01=0x0050, text=» CBG LBIN1,W4,SYN040 JMP IF GREATER MAXLENGTH «, t00=0x0006, t01=0x0010}
0x09a2…09d2 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN3,LBIN1 LOAD ACTUAL LENGTH < 4«, t00=0x0006, t01=0x0046}
0x09d2…09e0 Head {h00=0x000a, h01=0x0050, text=»SYN040«, t00=0x0006, t01=0x0076}
0x09e0…0a1a Head {h00=0x0036, h01=0x0050, text=» XCOPY LSTR1,W0,W1,LSTR81,LBIN4 GET ONE CHARACTER «, t00=0x0006, t01=0x0084}
0x0a1a…0a4e Head {h00=0x0030, h01=0x0050, text=» CBL LSTR1,=X'30',SYN050 JMP IF NOT A DIGIT «, t00=0x0006, t01=0x00be}
0x0a4e…0a82 Head {h00=0x0030, h01=0x0050, text=» CBG LSTR1,=X'39',SYN050 JMP IF NOT A DIGIT «, t00=0x0006, t01=0x00f2}
0x0a82…0ab6 Head {h00=0x0030, h01=0x0050, text=» XCOPY LSTR4A,LBIN4,W1,LSTR1,W0 STORE DIGIT «, t00=0x0006, t01=0x0126}
0x0ab6…0ae6 Head {h00=0x002c, h01=0x0050, text=» ADD LBIN4,W1 ADJUST LINE NUMBER LENGTH «, t00=0x0006, t01=0x015a}
0x0ae6…0b1c Head {h00=0x0032, h01=0x0050, text=» CBNE LBIN4,LBIN3,SYN040 JMP IF NOT MAXLENGTH «, t00=0x0006, t01=0x018a}
0x0b1c…0b2a Head {h00=0x000a, h01=0x0050, text=»SYN050«, t00=0x0007, t01=0x0030}
0x0b2a…0b58 Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,LSTR4A ---CHECK IF EMPTY «, t00=0x0007, t01=0x003e}
0x0b58…0b82 Head {h00=0x0026, h01=0x0050, text=» BNOK SYN100 JMP IF NO LINE NUMBER«, t00=0x0007, t01=0x006c}
0x0b82…0bb0 Head {h00=0x002a, h01=0x0050, text=» MOVE LINNO(W9),LSTR4A CONVERT TO BCD «, t00=0x0007, t01=0x0096}
0x0bb0…0be0 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN3,LINNO(W9) CONVERT TO BINARY «, t00=0x0007, t01=0x00c4}
0x0be0…0c10 Head {h00=0x002c, h01=0x0050, text=» CBL LBIN3,W1,SYN060 JMP IF OUT OF RANGE«, t00=0x0007, t01=0x00f4}
0x0c10…0c46 Head {h00=0x0032, h01=0x0050, text=» CBG LBIN3,=X'07FF',SYN060 JMP IF OUT OF RANGE«, t00=0x0007, t01=0x0124}
0x0c46…0c70 Head {h00=0x0026, h01=0x0050, text=» SET VBOOL1 TRUE=LINE NUMBER FOUND«, t00=0x0007, t01=0x015a}
0x0c70…0c82 Head {h00=0x000e, h01=0x0050, text=» B SYN100 «, t00=0x0007, t01=0x0184}
0x0c82…0c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0008}
0x0c8c…0cc8 Head {h00=0x0038, h01=0x0050, text=»* SYNTAX ERROR 01 LINE NUMBER OUT OF RANGE 1-2047«, t00=0x0008, t01=0x0012}
0x0cc8…0cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004e}
0x0cd2…0ce0 Head {h00=0x000a, h01=0x0050, text=»SYN060«, t00=0x0008, t01=0x0058}
0x0ce0…0d0e Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN1,W0 SAVE ERRONEUS POSITION «, t00=0x0008, t01=0x0066}
0x0d0e…0d34 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W1 SYNTAX ERROR:=1«, t00=0x0008, t01=0x0094}
0x0d34…0d46 Head {h00=0x000e, h01=0x0050, text=» B SYN980 «, t00=0x0008, t01=0x00ba}
0x0d46…0d54 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00cc}
0x0d54…0d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00da}
0x0d5e…0d8c Head {h00=0x002a, h01=0x0050, text=»* CHECK IF INDENTION(LEADING SPACES«, t00=0x0008, t01=0x00e4}
0x0d8c…0d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0112}
0x0d96…0da4 Head {h00=0x000a, h01=0x0050, text=»SYN100«, t00=0x0008, t01=0x011c}
0x0da4…0dcc Head {h00=0x0024, h01=0x0050, text=» CMP LBIN1,W1 CHECK IF LENGTH=1 «, t00=0x0008, t01=0x012a}
0x0dcc…0df8 Head {h00=0x0028, h01=0x0050, text=» BE SYN800 BASIC STATEMENT SEPARATOR«, t00=0x0008, t01=0x0152}
0x0df8…0e1c Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0008, t01=0x017e}
0x0e1c…0e3a Head {h00=0x001a, h01=0x0050, text=» BE SYN990 E-O-B FOUND«, t00=0x0009, t01=0x0012}
0x0e3a…0e64 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0009, t01=0x0030}
0x0e64…0e88 Head {h00=0x0020, h01=0x0050, text=» BT SYN108 E-O-B JUST SPACES«, t00=0x0009, t01=0x005a}
0x0e88…0eae Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,W0 LOAD LOW LIMIT «, t00=0x0009, t01=0x007e}
0x0eae…0ee6 Head {h00=0x0034, h01=0x0050, text=» TBF VBOOL1,SYN102 NO SPACE NEEDED IF NO LINE NO«, t00=0x0009, t01=0x00a4}
0x0ee6…0f1a Head {h00=0x0030, h01=0x0050, text=» ADD LBIN3,W1 ADJUST LOW LIMIT IF LINE NUMB «, t00=0x0009, t01=0x00dc}
0x0f1a…0f28 Head {h00=0x000a, h01=0x0050, text=»SYN102«, t00=0x0009, t01=0x0110}
0x0f28…0f5e Head {h00=0x0032, h01=0x0050, text=» CBL VBIN7,LBIN3,SYN105 JMP IF NUMB < 1 NOT OK«, t00=0x0009, t01=0x011e}
0x0f5e…0f98 Head {h00=0x0036, h01=0x0050, text=» CBG VBIN7,=W'31',SYN103 JMP IF NUMBE > 31 NOT OK «, t00=0x0009, t01=0x0154}
0x0f98…0fac Head {h00=0x0010, h01=0x0050, text=» B SYN110 OK«, t00=0x0009, t01=0x018e}
0x0fac…0fba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0012}
0x0fba…0fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0020}
0x0fc4…0ff0 Head {h00=0x0028, h01=0x0050, text=»* SYNTAX ERROR 03 INDENTION ERROR «, t00=0x000a, t01=0x002a}
0x0ff0…0ffa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0056}
0x0ffa…1008 Head {h00=0x000a, h01=0x0050, text=»SYN103«, t00=0x000a, t01=0x0060}
0x1008…103a Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN1,=W'31' LOAD ERRONEUS POSITION «, t00=0x000a, t01=0x006e}
0x103a…104c Head {h00=0x000e, h01=0x0050, text=» B SYN106 «, t00=0x000a, t01=0x00a0}
0x104c…105a Head {h00=0x000a, h01=0x0050, text=»SYN105«, t00=0x000a, t01=0x00b2}
0x105a…108a Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN1,LBIN4 SAVE ERONEUS POSITION «, t00=0x000a, t01=0x00c0}
0x108a…10b2 Head {h00=0x0024, h01=0x0050, text=» SUB LBIN1,VBIN7 ADJUST POSITION«, t00=0x000a, t01=0x00f0}
0x10b2…10c0 Head {h00=0x000a, h01=0x0050, text=»SYN106«, t00=0x000a, t01=0x0118}
0x10c0…10e6 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W3 SYNTAX ERROR:=3«, t00=0x000a, t01=0x0126}
0x10e6…1104 Head {h00=0x001a, h01=0x0050, text=» B SYN980 JMP ON ERROR«, t00=0x000a, t01=0x014c}
0x1104…1112 Head {h00=0x000a, h01=0x0050, text=»SYN108«, t00=0x000a, t01=0x016a}
0x1112…1138 Head {h00=0x0022, h01=0x0050, text=» SUB LBIN1,VBIN7 ADJUST LENGTH«, t00=0x000a, t01=0x0178}
0x1138…1170 Head {h00=0x0034, h01=0x0050, text=» DLETE LSTR81,LBIN1,VBIN7 DELETE TRAILING BLANKS«, t00=0x000b, t01=0x000e}
0x1170…1188 Head {h00=0x0014, h01=0x0050, text=» MOVE LBIN4,W80 «, t00=0x000b, t01=0x0046}
0x1188…11ba Head {h00=0x002e, h01=0x0050, text=» ADD LBIN4,W1 CALC LENGTH OF INPUT BUFFER «, t00=0x000b, t01=0x005e}
0x11ba…11e4 Head {h00=0x0026, h01=0x0050, text=» SUB LBIN4,VBIN7 CALC START POINT «, t00=0x000b, t01=0x0090}
0x11e4…11fc Head {h00=0x0014, h01=0x0050, text=» MOVE VBIN7,W80 «, t00=0x000b, t01=0x00ba}
0x11fc…1220 Head {h00=0x0020, h01=0x0050, text=» ADD VBIN7,W1 CALC END LIMIT«, t00=0x000b, t01=0x00d2}
0x1220…1240 Head {h00=0x001c, h01=0x0050, text=» MOVE LSTR1,=X'00' CLEAR«, t00=0x000b, t01=0x00f6}
0x1240…124e Head {h00=0x000a, h01=0x0050, text=»SYN109«, t00=0x000b, t01=0x0116}
0x124e…1284 Head {h00=0x0032, h01=0x0050, text=» XCOPY LSTR81,LBIN4,W1,LSTR1,W0 CLEAR POSITION«, t00=0x000b, t01=0x0124}
0x1284…12a8 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN4,W1 NEXT POSITION «, t00=0x000b, t01=0x015a}
0x12a8…12d0 Head {h00=0x0024, h01=0x0050, text=» CMP LBIN4,VBIN7 CHECK END LIMIT«, t00=0x000b, t01=0x017e}
0x12d0…12fc Head {h00=0x0028, h01=0x0050, text=» BE SYN990 JMP IF END LIMIT REACHED «, t00=0x000c, t01=0x0016}
0x12fc…130e Head {h00=0x000e, h01=0x0050, text=» B SYN109 «, t00=0x000c, t01=0x0042}
0x130e…131c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0054}
0x131c…1326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0062}
0x1326…1344 Head {h00=0x001a, h01=0x0050, text=»* CHECK BASIC VERB «, t00=0x000c, t01=0x006c}
0x1344…134e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x008a}
0x134e…135c Head {h00=0x000a, h01=0x0050, text=»SYN110«, t00=0x000c, t01=0x0094}
0x135c…1396 Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH «, t00=0x000c, t01=0x00a2}
0x1396…13d2 Head {h00=0x0038, h01=0x0050, text=» PERF BSVSEA,W2,VBIN6 ***BASIC VERB SEARCH LENGTH=2 «, t00=0x000c, t01=0x00dc}
0x13d2…13f6 Head {h00=0x0020, h01=0x0050, text=» BOK SYN120 BASIC VERB FOUND«, t00=0x000c, t01=0x0118}
0x13f6…1432 Head {h00=0x0038, h01=0x0050, text=» PERF BSVSEA,W3,VBIN6 ***BASIC VERB SEARCH LENGTH=3 «, t00=0x000c, t01=0x013c}
0x1432…1456 Head {h00=0x0020, h01=0x0050, text=» BOK SYN120 BASIC VERB FOUND«, t00=0x000c, t01=0x0178}
0x1456…1492 Head {h00=0x0038, h01=0x0050, text=» PERF BSVSEA,W4,VBIN6 ***BASIC VERB SEARCH LENGTH=4 «, t00=0x000d, t01=0x000c}
0x1492…14b6 Head {h00=0x0020, h01=0x0050, text=» BOK SYN118 BASIC VERB FOUND«, t00=0x000d, t01=0x0048}
0x14b6…14f2 Head {h00=0x0038, h01=0x0050, text=» PERF BSVSEA,W5,VBIN6 ***BASIC VERB SEARCH LENGTH=5 «, t00=0x000d, t01=0x006c}
0x14f2…1516 Head {h00=0x0020, h01=0x0050, text=» BOK SYN120 BASIC VERB FOUND«, t00=0x000d, t01=0x00a8}
0x1516…1540 Head {h00=0x0026, h01=0x0050, text=» PERF VARDET ***VARIABLE/!INP/!FID«, t00=0x000d, t01=0x00cc}
0x1540…155c Head {h00=0x0018, h01=0x0050, text=» BNOK SYN112 NOT OK «, t00=0x000d, t01=0x00f6}
0x155c…1586 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x000d, t01=0x0112}
0x1586…15aa Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x000d, t01=0x013c}
0x15aa…15d6 Head {h00=0x0028, h01=0x0050, text=» TBT VBOOL2,SYN111 ALPHANUM.VARIABLE«, t00=0x000d, t01=0x0160}
0x15d6…1604 Head {h00=0x002a, h01=0x0050, text=» MOVE VBIN6,W2 NUMERIC LET WITHOUT LET«, t00=0x000d, t01=0x018c}
0x1604…162a Head {h00=0x0022, h01=0x0050, text=» B SYN155 CONTINUE IN LET STMT«, t00=0x000e, t01=0x002a}
0x162a…165e Head {h00=0x0030, h01=0x0050, text=»SYN111 MOVE VBIN6,W0 ALPHANUM.LET WITHOUT L «, t00=0x000e, t01=0x0050}
0x165e…1670 Head {h00=0x000e, h01=0x0050, text=» B SYN155 «, t00=0x000e, t01=0x0084}
0x1670…167e Head {h00=0x000a, h01=0x0050, text=»SYN112«, t00=0x000e, t01=0x0096}
0x167e…16b8 Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH «, t00=0x000e, t01=0x00a4}
0x16b8…16dc Head {h00=0x0020, h01=0x0050, text=» SUB VBIN8,W1 ADJUST POINTER«, t00=0x000e, t01=0x00de}
0x16dc…170a Head {h00=0x002a, h01=0x0050, text=» MATCH STMTS,VBIN8,W1,LSTR81,LBIN4,W1 «, t00=0x000e, t01=0x0102}
0x170a…171e Head {h00=0x0010, h01=0x0050, text=» BNOK SYN115«, t00=0x000e, t01=0x0130}
0x171e…174a Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x000e, t01=0x0144}
0x174a…1776 Head {h00=0x0028, h01=0x0050, text=» B SYN800 BASIC STATEMENT SEPARATOR «, t00=0x000e, t01=0x0170}
0x1776…1780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x000c}
0x1780…17b0 Head {h00=0x002c, h01=0x0050, text=»* SYNTAX ERROR 02 BASIC VERB EXPECTED«, t00=0x000f, t01=0x0016}
0x17b0…17ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0046}
0x17ba…17c8 Head {h00=0x000a, h01=0x0050, text=»SYN115«, t00=0x000f, t01=0x0050}
0x17c8…17f8 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION«, t00=0x000f, t01=0x005e}
0x17f8…1820 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN4,W2 SYNTAX ERROR :=2 «, t00=0x000f, t01=0x008e}
0x1820…1832 Head {h00=0x000e, h01=0x0050, text=» B SYN980 «, t00=0x000f, t01=0x00b6}
0x1832…183c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c8}
0x183c…1862 Head {h00=0x0022, h01=0x0050, text=»* CHECK IF 'THEN' WAS FOUND«, t00=0x000f, t01=0x00d2}
0x1862…186c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f8}
0x186c…187a Head {h00=0x000a, h01=0x0050, text=»SYN118«, t00=0x000f, t01=0x0102}
0x187a…18aa Head {h00=0x002c, h01=0x0050, text=» CBNE VBIN6,W6,SYN120 JMP IF NOT 'THEN' «, t00=0x000f, t01=0x0110}
0x18aa…18d4 Head {h00=0x0026, h01=0x0050, text=» SUB LBIN4,W4 ADJUSTBUFFER POINTER«, t00=0x000f, t01=0x0140}
0x18d4…18f6 Head {h00=0x001e, h01=0x0050, text=» B SYN115 JMP WHEN T'THEN'«, t00=0x000f, t01=0x016a}
0x18f6…1904 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x018c}
0x1904…190e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000a}
0x190e…192e Head {h00=0x001c, h01=0x0050, text=»* BASIC VERB FOUND OK«, t00=0x0010, t01=0x0014}
0x192e…1938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0034}
0x1938…1946 Head {h00=0x000a, h01=0x0050, text=»SYN120«, t00=0x0010, t01=0x003e}
0x1946…1972 Head {h00=0x0028, h01=0x0050, text=» IB VBIN6,SYN150, 1=ASSIGNMENT LET C«, t00=0x0010, t01=0x004c}
0x1972…1994 Head {h00=0x001e, h01=0x0050, text=» SYN150, 2=ASSIGNMNET C «, t00=0x0010, t01=0x0078}
0x1994…19b8 Head {h00=0x0020, h01=0x0050, text=» SYN150, 3=ASSIGNMNET LET C«, t00=0x0010, t01=0x009a}
0x19b8…19d4 Head {h00=0x0018, h01=0x0050, text=» SYN200, 4=GO TO C «, t00=0x0010, t01=0x00be}
0x19d4…19ee Head {h00=0x0016, h01=0x0050, text=» SYN200, 5=GOTO C«, t00=0x0010, t01=0x00da}
0x19ee…1a16 Head {h00=0x0024, h01=0x0050, text=» SYN250, 6=IF ..THEN ..<LINE> C«, t00=0x0010, t01=0x00f4}
0x1a16…1a36 Head {h00=0x001c, h01=0x0050, text=» SYN115, 7=NOT VALID C «, t00=0x0010, t01=0x011c}
0x1a36…1a5e Head {h00=0x0024, h01=0x0050, text=» SYN250, 8=IF ..THEN ..<STMT> C«, t00=0x0010, t01=0x013c}
0x1a5e…1a7e Head {h00=0x001c, h01=0x0050, text=» SYN115, 9=NOT VALID C «, t00=0x0010, t01=0x0164}
0x1a7e…1aa4 Head {h00=0x0022, h01=0x0050, text=» SYN350, 10=ON .. GO TO.. C «, t00=0x0010, t01=0x0184}
0x1aa4…1ac8 Head {h00=0x0020, h01=0x0050, text=» SYN350, 11=ON .. GOTO.. C«, t00=0x0011, t01=0x001a}
0x1ac8…1ae4 Head {h00=0x0018, h01=0x0050, text=» SYN400, 12=CALL C «, t00=0x0011, t01=0x003e}
0x1ae4…1b04 Head {h00=0x001c, h01=0x0050, text=» SYN115, 13=NOT VALID C«, t00=0x0011, t01=0x005a}
0x1b04…1b20 Head {h00=0x0018, h01=0x0050, text=» SYN450, 14=SECT C «, t00=0x0011, t01=0x007a}
0x1b20…1b40 Head {h00=0x001c, h01=0x0050, text=» SYN115, 15=NOT VALID C«, t00=0x0011, t01=0x0096}
0x1b40…1b5c Head {h00=0x0018, h01=0x0050, text=» SYN500, 16=ATTR C «, t00=0x0011, t01=0x00b6}
0x1b5c…1b7c Head {h00=0x001c, h01=0x0050, text=» SYN115, 17=NOT VALID C«, t00=0x0011, t01=0x00d2}
0x1b7c…1b98 Head {h00=0x0018, h01=0x0050, text=» SYN550, 18=STOP C «, t00=0x0011, t01=0x00f2}
0x1b98…1bb8 Head {h00=0x001c, h01=0x0050, text=» SYN115, 19=NOT VALID C«, t00=0x0011, t01=0x010e}
0x1bb8…1bd4 Head {h00=0x0018, h01=0x0050, text=» SYN600, 20=EXIT C «, t00=0x0011, t01=0x012e}
0x1bd4…1bf4 Head {h00=0x001c, h01=0x0050, text=» SYN115, 21=NOT VALID C«, t00=0x0011, t01=0x014a}
0x1bf4…1c0e Head {h00=0x0016, h01=0x0050, text=» SYN650, 22=ERR C«, t00=0x0011, t01=0x016a}
0x1c0e…1c2e Head {h00=0x001c, h01=0x0050, text=» SYN115, 23=NOT VALID C«, t00=0x0011, t01=0x0184}
0x1c2e…1c4a Head {h00=0x0018, h01=0x0050, text=» SYN650, 24=WARN C «, t00=0x0012, t01=0x0014}
0x1c4a…1c6a Head {h00=0x001c, h01=0x0050, text=» SYN115, 25=NOT VALID C«, t00=0x0012, t01=0x0030}
0x1c6a…1c84 Head {h00=0x0016, h01=0x0050, text=» SYN750, 26=REM C«, t00=0x0012, t01=0x0050}
0x1c84…1ca4 Head {h00=0x001c, h01=0x0050, text=» SYN115, 27=NOT VALID C«, t00=0x0012, t01=0x006a}
0x1ca4…1cba Head {h00=0x0012, h01=0x0050, text=» SYN800 28=; «, t00=0x0012, t01=0x008a}
0x1cba…1cc8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00a0}
0x1cc8…1cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ae}
0x1cd2…1d1e Head {h00=0x0048, h01=0x0050, text=»* 1 LET <VARIABLE> = <ARITHMETIC EXPRESSION>/<STRING EXPRESSION> «, t00=0x0012, t01=0x00b8}
0x1d1e…1d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0104}
0x1d28…1d36 Head {h00=0x000a, h01=0x0050, text=»SYN150«, t00=0x0012, t01=0x010e}
0x1d36…1d60 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0012, t01=0x011c}
0x1d60…1d84 Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x0012, t01=0x0146}
0x1d84…1db4 Head {h00=0x002c, h01=0x0050, text=» CBL VBIN7,W1,SYN105 JMP IF NO INDENTION«, t00=0x0012, t01=0x016a}
0x1db4…1dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000a}
0x1dbe…1dda Head {h00=0x0018, h01=0x0050, text=»* TARGET VARIABLE«, t00=0x0013, t01=0x0014}
0x1dda…1de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0030}
0x1de4…1e12 Head {h00=0x002a, h01=0x0050, text=» PERF VARDET ***VARIABLE DETERMINATION«, t00=0x0013, t01=0x003a}
0x1e12…1e32 Head {h00=0x001c, h01=0x0050, text=» BNOK SYN905 JMP NOT OK «, t00=0x0013, t01=0x0068}
0x1e32…1e56 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0013, t01=0x0088}
0x1e56…1e7a Head {h00=0x0020, h01=0x0050, text=» BE SYN904 E-O-B JUST SPACES«, t00=0x0013, t01=0x00ac}
0x1e7a…1ea4 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0013, t01=0x00d0}
0x1ea4…1ec8 Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x0013, t01=0x00fa}
0x1ec8…1ed2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011e}
0x1ed2…1ef8 Head {h00=0x0022, h01=0x0050, text=»* ASSIGNMENT OPERATOR '=' «, t00=0x0013, t01=0x0128}
0x1ef8…1f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014e}
0x1f02…1f10 Head {h00=0x000a, h01=0x0050, text=»SYN155«, t00=0x0013, t01=0x0158}
0x1f10…1f32 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0013, t01=0x0166}
0x1f32…1f6a Head {h00=0x0034, h01=0x0050, text=» MATCH OPRTS,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '=' «, t00=0x0013, t01=0x0188}
0x1f6a…1f96 Head {h00=0x0028, h01=0x0050, text=» BNOK SYN906 NO ASSIGNMENT OPERATOR «, t00=0x0014, t01=0x0030}
0x1f96…1fc8 Head {h00=0x002e, h01=0x0050, text=» ADD LBIN4,W1 ADJUST INPUT BUFFER POINTER «, t00=0x0014, t01=0x005c}
0x1fc8…1fec Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0014, t01=0x008e}
0x1fec…2010 Head {h00=0x0020, h01=0x0050, text=» BE SYN904 E-O-B JUST SPACES«, t00=0x0014, t01=0x00b2}
0x2010…203a Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0014, t01=0x00d6}
0x203a…205e Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x0014, t01=0x0100}
0x205e…206c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0124}
0x206c…2090 Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0014, t01=0x0132}
0x2090…20c2 Head {h00=0x002e, h01=0x0050, text=» TBF VBOOL2,SYN160 JMP IF ARITHMETIC EXPR.«, t00=0x0014, t01=0x0156}
0x20c2…20cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0188}
0x20cc…20f4 (21, 0, 400) Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED«, t00=0x0015, t01=0x0004}
0x20f4…20fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002c}
0x20fe…212c Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x0015, t01=0x0036}
0x212c…214c Head {h00=0x001c, h01=0x0050, text=» BNOK SYN906 EXPR ERROR «, t00=0x0015, t01=0x0064}
0x214c…215e Head {h00=0x000e, h01=0x0050, text=» B SYN800 «, t00=0x0015, t01=0x0084}
0x215e…2168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0096}
0x2168…2194 Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x0015, t01=0x00a0}
0x2194…219e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00cc}
0x219e…21ac Head {h00=0x000a, h01=0x0050, text=»SYN160«, t00=0x0015, t01=0x00d6}
0x21ac…21e0 Head {h00=0x0030, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION «, t00=0x0015, t01=0x00e4}
0x21e0…2200 Head {h00=0x001c, h01=0x0050, text=» BNOK SYN906 EXPR ERROR «, t00=0x0015, t01=0x0118}
0x2200…2230 Head {h00=0x002c, h01=0x0050, text=» B SYN800 BASIC STATEMENT SEPARATOR ; ? «, t00=0x0015, t01=0x0138}
0x2230…223e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0168}
0x223e…2248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0176}
0x2248…2272 Head {h00=0x0026, h01=0x0050, text=»* 4,5 GO TO/GOTO <LINE-NUMBER> «, t00=0x0015, t01=0x0180}
0x2272…227c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x001a}
0x227c…228a Head {h00=0x000a, h01=0x0050, text=»SYN200«, t00=0x0016, t01=0x0024}
0x228a…22b4 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0016, t01=0x0032}
0x22b4…22d8 Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x0016, t01=0x005c}
0x22d8…2302 Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 JMP IF NO INDENTION «, t00=0x0016, t01=0x0080}
0x2302…2320 Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x0016, t01=0x00aa}
0x2320…232a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c8}
0x232a…2352 Head {h00=0x0024, h01=0x0050, text=»* LABEL LINE NUMBER EXPECTED «, t00=0x0016, t01=0x00d2}
0x2352…235c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fa}
0x235c…2388 Head {h00=0x0028, h01=0x0050, text=» PERF LABLIN,W4 ***LABEL LINE NUMBER«, t00=0x0016, t01=0x0104}
0x2388…23b4 Head {h00=0x0028, h01=0x0050, text=» BNOK SYN907 LABEL LINE NUMBER ERROR«, t00=0x0016, t01=0x0130}
0x23b4…23e4 Head {h00=0x002c, h01=0x0050, text=» B SYN800 BASIC STATEMENT SEPARATOR ; ? «, t00=0x0016, t01=0x015c}
0x23e4…23f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x018c}
0x23f2…23fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x000a}
0x23fc…243e Head {h00=0x003e, h01=0x0050, text=»* 6 IF <RELATIONAL EXPRESSION> THEN <LINE>/<STATEMENT> «, t00=0x0017, t01=0x0014}
0x243e…2448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0056}
0x2448…2456 Head {h00=0x000a, h01=0x0050, text=»SYN250«, t00=0x0017, t01=0x0060}
0x2456…2480 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0017, t01=0x006e}
0x2480…24a4 Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x0017, t01=0x0098}
0x24a4…24ce Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 JMP IF NO INDENTION «, t00=0x0017, t01=0x00bc}
0x24ce…24ec Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x0017, t01=0x00e6}
0x24ec…24f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0104}
0x24f6…251e Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED«, t00=0x0017, t01=0x010e}
0x251e…2528 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0136}
0x2528…254c Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0017, t01=0x0140}
0x254c…257a Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x0017, t01=0x0164}
0x257a…2594 (24, 0, 400) Head {h00=0x0016, h01=0x0050, text=» BOK SYN260 JMP OK«, t00=0x0018, t01=0x0004}
0x2594…259e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x001e}
0x259e…25d0 Head {h00=0x002e, h01=0x0050, text=»* ...OR ARITHMETIC EXPRESSION EXPECTED «, t00=0x0018, t01=0x0028}
0x25d0…25da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x005a}
0x25da…25fe Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0018, t01=0x0064}
0x25fe…2632 Head {h00=0x0030, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION «, t00=0x0018, t01=0x0088}
0x2632…2652 Head {h00=0x001c, h01=0x0050, text=» BNOK SYN906 EXPR ERROR «, t00=0x0018, t01=0x00bc}
0x2652…2660 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00dc}
0x2660…266a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ea}
0x266a…268c Head {h00=0x001e, h01=0x0050, text=»* RELATIONAL OPERATOR «, t00=0x0018, t01=0x00f4}
0x268c…2696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0116}
0x2696…26a4 Head {h00=0x000a, h01=0x0050, text=»SYN260«, t00=0x0018, t01=0x0120}
0x26a4…26ce Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0018, t01=0x012e}
0x26ce…26ee Head {h00=0x001c, h01=0x0050, text=» BT SYN904 E-O-B NOT OK «, t00=0x0018, t01=0x0158}
0x26ee…2710 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0018, t01=0x0178}
0x2710…273e Head {h00=0x002a, h01=0x0050, text=» MATCH OPRTS,LBIN3,W3,LSTR81,LBIN4,W1 «, t00=0x0019, t01=0x000a}
0x273e…2752 Head {h00=0x0010, h01=0x0050, text=» BNOK SYN904«, t00=0x0019, t01=0x0038}
0x2752…2774 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W3 POINTER:=3 «, t00=0x0019, t01=0x004c}
0x2774…27ba Head {h00=0x0042, h01=0x0050, text=» MATCH OPRTS,LBIN3,W6,LSTR81,LBIN4,W2 MATCH FOLLOWING OPERAND «, t00=0x0019, t01=0x006e}
0x27ba…27e4 Head {h00=0x0026, h01=0x0050, text=» BNOK SYN280 NO FOLLOWING OPERAND «, t00=0x0019, t01=0x00b4}
0x27e4…2810 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0019, t01=0x00de}
0x2810…281e Head {h00=0x000a, h01=0x0050, text=»SYN280«, t00=0x0019, t01=0x010a}
0x281e…284a Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0019, t01=0x0118}
0x284a…2874 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0019, t01=0x0144}
0x2874…289c Head {h00=0x0024, h01=0x0050, text=» BT SYN904 INCOMPLETE STATEMENT «, t00=0x0019, t01=0x016e}
0x289c…28aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0008}
0x28aa…28b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0016}
0x28b4…28dc Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED«, t00=0x001a, t01=0x0020}
0x28dc…28e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0048}
0x28e6…290a Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x001a, t01=0x0052}
0x290a…2936 Head {h00=0x0028, h01=0x0050, text=» TBF VBOOL2,SYN290 JMP IF ARITHMETIC«, t00=0x001a, t01=0x0076}
0x2936…2964 Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x001a, t01=0x00a2}
0x2964…2978 Head {h00=0x0010, h01=0x0050, text=» BNOK SYN906«, t00=0x001a, t01=0x00d0}
0x2978…298a Head {h00=0x000e, h01=0x0050, text=» B SYN300 «, t00=0x001a, t01=0x00e4}
0x298a…2994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00f6}
0x2994…29c0 Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x001a, t01=0x0100}
0x29c0…29ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012c}
0x29ca…29d8 Head {h00=0x000a, h01=0x0050, text=»SYN290«, t00=0x001a, t01=0x0136}
0x29d8…2a0c Head {h00=0x0030, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION «, t00=0x001a, t01=0x0144}
0x2a0c…2a2c Head {h00=0x001c, h01=0x0050, text=» BNOK SYN906 EXPR ERROR «, t00=0x001a, t01=0x0178}
0x2a2c…2a3a Head {h00=0x000a, h01=0x0050, text=»SYN300«, t00=0x001b, t01=0x0008}
0x2a3a…2a5e Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x001b, t01=0x0016}
0x2a5e…2a7a Head {h00=0x0018, h01=0x0050, text=» BE SYN904 E-O-B OK «, t00=0x001b, t01=0x003a}
0x2a7a…2aa4 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x001b, t01=0x0056}
0x2aa4…2ace Head {h00=0x0026, h01=0x0050, text=» BT SYN904 INCOMPLETE STATEMENT «, t00=0x001b, t01=0x0080}
0x2ace…2af8 Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 CHECK NUMB OF SPACES«, t00=0x001b, t01=0x00aa}
0x2af8…2b16 Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x001b, t01=0x00d4}
0x2b16…2b24 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00f2}
0x2b24…2b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0100}
0x2b2e…2b4c Head {h00=0x001a, h01=0x0050, text=»* MATCH FOR THEN/«, t00=0x001b, t01=0x010a}
0x2b4c…2b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0128}
0x2b56…2b90 Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH «, t00=0x001b, t01=0x0132}
0x2b90…2bc4 Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN12,=X'00FF' LOAD FILLER CHARACTER «, t00=0x001b, t01=0x016c}
0x2bc4…2c00 Head {h00=0x0038, h01=0x0050, text=» PERF BSVSEA,W4,LBIN17 ***BASIC VERB SEARCH LENGTH=4«, t00=0x001c, t01=0x0010}
0x2c00…2c2a Head {h00=0x0026, h01=0x0050, text=» BNOK SYN904 INCOMPLETE STATEMENT «, t00=0x001c, t01=0x004c}
0x2c2a…2c56 Head {h00=0x0028, h01=0x0050, text=» CMP LBIN17,W6 CHECK IF OP-CODE = 6 «, t00=0x001c, t01=0x0076}
0x2c56…2c78 Head {h00=0x001e, h01=0x0050, text=» BE SYN305 JUMP IF 'THEN' «, t00=0x001c, t01=0x00a2}
0x2c78…2ca4 Head {h00=0x0028, h01=0x0050, text=» SUB LBIN4,W4 ADJUST BUFFER POINTER «, t00=0x001c, t01=0x00c4}
0x2ca4…2ccc Head {h00=0x0024, h01=0x0050, text=» B SYN904 INCOMPLETE STATEMENT/P«, t00=0x001c, t01=0x00f0}
0x2ccc…2cda Head {h00=0x000a, h01=0x0050, text=»SYN305«, t00=0x001c, t01=0x0118}
0x2cda…2d04 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x001c, t01=0x0126}
0x2d04…2d2c Head {h00=0x0024, h01=0x0050, text=» BT SYN904 INCOMPLETE STATEMNET «, t00=0x001c, t01=0x0150}
0x2d2c…2d56 Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 CHECK NUMB OF SPACES«, t00=0x001c, t01=0x0178}
0x2d56…2d74 Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x001d, t01=0x0012}
0x2d74…2d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0030}
0x2d7e…2da6 Head {h00=0x0024, h01=0x0050, text=»* LABEL LINE NUMBER EXPECTED «, t00=0x001d, t01=0x003a}
0x2da6…2db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0062}
0x2db0…2ddc Head {h00=0x0028, h01=0x0050, text=» PERF LABLIN,W4 ***LABEL LINE NUMBER«, t00=0x001d, t01=0x006c}
0x2ddc…2e0a Head {h00=0x002a, h01=0x0050, text=» BNOK SYN110 NO LINE NUMBER STATEMENT «, t00=0x001d, t01=0x0098}
0x2e0a…2e3a Head {h00=0x002c, h01=0x0050, text=» B SYN800 BASIC STATEMENT SEPARATOR ; ? «, t00=0x001d, t01=0x00c6}
0x2e3a…2e48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x00f6}
0x2e48…2e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0104}
0x2e52…2e9a Head {h00=0x0044, h01=0x0050, text=»* 10 ON <ARITHMETIC EXPRESSION> GO TO/GOTO <LINE-NUMBER-LIST>«, t00=0x001d, t01=0x010e}
0x2e9a…2ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0156}
0x2ea4…2eb2 Head {h00=0x000a, h01=0x0050, text=»SYN350«, t00=0x001d, t01=0x0160}
0x2eb2…2edc Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x001d, t01=0x016e}
0x2edc…2f00 Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x001e, t01=0x0008}
0x2f00…2f2a Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 JMP IF NO INDENTION «, t00=0x001e, t01=0x002c}
0x2f2a…2f48 Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x001e, t01=0x0056}
0x2f48…2f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0074}
0x2f52…2f80 Head {h00=0x002a, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x001e, t01=0x007e}
0x2f80…2f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ac}
0x2f8a…2fae Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x001e, t01=0x00b6}
0x2fae…2fe0 Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x001e, t01=0x00da}
0x2fe0…3000 Head {h00=0x001c, h01=0x0050, text=» BNOK SYN906 EXPR ERROR «, t00=0x001e, t01=0x010c}
0x3000…302a Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x001e, t01=0x012c}
0x302a…304a Head {h00=0x001c, h01=0x0050, text=» BT SYN904 E-O-B NOT OK «, t00=0x001e, t01=0x0156}
0x304a…3074 Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 CHECK NUMB OF SPACES«, t00=0x001e, t01=0x0176}
0x3074…3092 Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x001f, t01=0x0010}
0x3092…30a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x002e}
0x30a0…30aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x003c}
0x30aa…30ce Head {h00=0x0020, h01=0x0050, text=»* MATCH FOR GO TO/GOTO «, t00=0x001f, t01=0x0046}
0x30ce…30d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x006a}
0x30d8…3112 Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,STMTS,VBIN8,LBIN3 ---GET ITEM LENGTH «, t00=0x001f, t01=0x0074}
0x3112…3146 Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN12,=X'00FF' LOAD FILLER CHARACTER «, t00=0x001f, t01=0x00ae}
0x3146…3182 Head {h00=0x0038, h01=0x0050, text=» PERF BSVSEA,W4,LBIN17 ***BASIC VERB SEARCH LENGTH=4«, t00=0x001f, t01=0x00e2}
0x3182…31a6 Head {h00=0x0020, h01=0x0050, text=» BOK SYN356 BASIC VERB FOUND«, t00=0x001f, t01=0x011e}
0x31a6…31e2 Head {h00=0x0038, h01=0x0050, text=» PERF BSVSEA,W5,LBIN17 ***BASIC VERB SEARCH LENGTH=5«, t00=0x001f, t01=0x0142}
0x31e2…3206 Head {h00=0x0020, h01=0x0050, text=» BOK SYN355 BASIC VERB FOUND«, t00=0x001f, t01=0x017e}
0x3206…322c Head {h00=0x0022, h01=0x0050, text=» B SYN904 INCOMPLET STATEMNET «, t00=0x0020, t01=0x0012}
0x322c…323a Head {h00=0x000a, h01=0x0050, text=»SYN355«, t00=0x0020, t01=0x0038}
0x323a…3264 Head {h00=0x0026, h01=0x0050, text=» CBE LBIN17,W4,SYN358 JMP IF GO TO«, t00=0x0020, t01=0x0046}
0x3264…327a Head {h00=0x0012, h01=0x0050, text=» SUB LBIN4,W5 «, t00=0x0020, t01=0x0070}
0x327a…328c Head {h00=0x000e, h01=0x0050, text=» B SYN904 «, t00=0x0020, t01=0x0086}
0x328c…329a Head {h00=0x000a, h01=0x0050, text=»SYN356«, t00=0x0020, t01=0x0098}
0x329a…32c4 Head {h00=0x0026, h01=0x0050, text=» CBE LBIN17,W5,SYN358 JMP IF GOTO «, t00=0x0020, t01=0x00a6}
0x32c4…32f0 Head {h00=0x0028, h01=0x0050, text=» SUB LBIN4,W4 ADJUST BUFFER POINTER «, t00=0x0020, t01=0x00d0}
0x32f0…3316 Head {h00=0x0022, h01=0x0050, text=» B SYN904 INCOMPLETE STATEMENT«, t00=0x0020, t01=0x00fc}
0x3316…3324 Head {h00=0x000a, h01=0x0050, text=»SYN358«, t00=0x0020, t01=0x0122}
0x3324…334e Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0020, t01=0x0130}
0x334e…3360 Head {h00=0x000e, h01=0x0050, text=» BT SYN904«, t00=0x0020, t01=0x015a}
0x3360…338a Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 CHECK NUMB OF SPACES«, t00=0x0020, t01=0x016c}
0x338a…33a8 Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x0021, t01=0x0008}
0x33a8…33b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0026}
0x33b6…33c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0034}
0x33c0…33e8 Head {h00=0x0024, h01=0x0050, text=»* LABEL LINE NUMBER EXPECTED «, t00=0x0021, t01=0x003e}
0x33e8…33f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0066}
0x33f2…3400 Head {h00=0x000a, h01=0x0050, text=»SYN360«, t00=0x0021, t01=0x0070}
0x3400…342c Head {h00=0x0028, h01=0x0050, text=» PERF LABLIN,W4 ***LABEL LINE NUMBER«, t00=0x0021, t01=0x007e}
0x342c…3458 Head {h00=0x0028, h01=0x0050, text=» BNOK SYN907 LABEL LINE NUMBER ERROR«, t00=0x0021, t01=0x00aa}
0x3458…347c Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0021, t01=0x00d6}
0x347c…3498 Head {h00=0x0018, h01=0x0050, text=» BE SYN990 E-O-B OK «, t00=0x0021, t01=0x00fa}
0x3498…34c2 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0021, t01=0x0116}
0x34c2…34e6 Head {h00=0x0020, h01=0x0050, text=» BT SYN108 E-O-B JUST SPACES«, t00=0x0021, t01=0x0140}
0x34e6…34f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0164}
0x34f0…351c Head {h00=0x0028, h01=0x0050, text=»* MATCH FOR LABEL LIST SEPARATOR«, t00=0x0021, t01=0x016e}
0x351c…3526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x000a}
0x3526…354c Head {h00=0x0022, h01=0x0050, text=» MOVE LSTR1,=C',' SEPARATOR=, «, t00=0x0022, t01=0x0014}
0x354c…356e Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0022, t01=0x003a}
0x356e…35a6 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ',' «, t00=0x0022, t01=0x005c}
0x35a6…35d8 Head {h00=0x002e, h01=0x0050, text=» BNOK SYN810 BASIC STATEMENT SEPARATOR ; ?«, t00=0x0022, t01=0x0094}
0x35d8…3604 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0022, t01=0x00c6}
0x3604…3628 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0022, t01=0x00f2}
0x3628…3650 Head {h00=0x0024, h01=0x0050, text=» BE SYN904 INCOMPLETE STATEMENT «, t00=0x0022, t01=0x0116}
0x3650…367a Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0022, t01=0x013e}
0x367a…36a2 Head {h00=0x0024, h01=0x0050, text=» BT SYN904 INCOMPLETE STATEMNET «, t00=0x0022, t01=0x0168}
0x36a2…36ca Head {h00=0x0024, h01=0x0050, text=» B SYN360 NEXT LABEL LINE NUMBER«, t00=0x0022, t01=0x0190}
0x36ca…36d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0028}
0x36d8…36e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0036}
0x36e2…3712 Head {h00=0x002c, h01=0x0050, text=»* 12 CALL UF<DIGIT> !<PARAMETERLIST>!«, t00=0x0023, t01=0x0040}
0x3712…371c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0070}
0x371c…372a Head {h00=0x000a, h01=0x0050, text=»SYN400«, t00=0x0023, t01=0x007a}
0x372a…3754 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0023, t01=0x0088}
0x3754…3778 Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x0023, t01=0x00b2}
0x3778…37a2 Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 JMP IF NO INDENTION «, t00=0x0023, t01=0x00d6}
0x37a2…37c0 Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x0023, t01=0x0100}
0x37c0…37ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x011e}
0x37ca…37f0 Head {h00=0x0022, h01=0x0050, text=»* USER FUNCTION IDENT 'UF' «, t00=0x0023, t01=0x0128}
0x37f0…37fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x014e}
0x37fa…382e Head {h00=0x0030, h01=0x0050, text=» MOVE VSTR2,=C'UF' USER FUNCTION IDENT ='UF'«, t00=0x0023, t01=0x0158}
0x382e…3850 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0023, t01=0x018c}
0x3850…3888 Head {h00=0x0034, h01=0x0050, text=» MATCH VSTR2,LBIN3,W2,LSTR81,LBIN4,W2 MATCH 'UF'«, t00=0x0024, t01=0x001e}
0x3888…38b2 Head {h00=0x0026, h01=0x0050, text=» BNOK SYN904 INCOMPLETE STATEMENT «, t00=0x0024, t01=0x0056}
0x38b2…38de Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W2 ADJUST BUFFER POINTER «, t00=0x0024, t01=0x0080}
0x38de…3902 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0024, t01=0x00ac}
0x3902…392a Head {h00=0x0024, h01=0x0050, text=» BE SYN904 INCOMPLETE STATEMENT «, t00=0x0024, t01=0x00d0}
0x392a…3934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f8}
0x3934…3950 Head {h00=0x0018, h01=0x0050, text=»* FUNCTION NUMBER«, t00=0x0024, t01=0x0102}
0x3950…395a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x011e}
0x395a…3986 Head {h00=0x0028, h01=0x0050, text=» PERF LABLIN,W2 ***LABEL LINE NUMBER«, t00=0x0024, t01=0x0128}
0x3986…39b0 Head {h00=0x0026, h01=0x0050, text=» BNOK SYN904 INCOMPLETE STATEMENT «, t00=0x0024, t01=0x0154}
0x39b0…39d4 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0024, t01=0x017e}
0x39d4…39e8 Head {h00=0x0010, h01=0x0050, text=» BE SYN990 «, t00=0x0025, t01=0x0012}
0x39e8…3a12 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0025, t01=0x0026}
0x3a12…3a3a Head {h00=0x0024, h01=0x0050, text=» BT SYN108 JUST SPACES AT E-O-B «, t00=0x0025, t01=0x0050}
0x3a3a…3a48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0078}
0x3a48…3a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0086}
0x3a52…3a7a Head {h00=0x0024, h01=0x0050, text=»* BEGIN OF PARAMETER LIST '('«, t00=0x0025, t01=0x0090}
0x3a7a…3a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b8}
0x3a84…3ab4 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS «, t00=0x0025, t01=0x00c2}
0x3ab4…3ad6 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0025, t01=0x00f2}
0x3ad6…3b0e Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '(' «, t00=0x0025, t01=0x0114}
0x3b0e…3b40 Head {h00=0x002e, h01=0x0050, text=» BNOK SYN810 BASIC STATEMENT SEPARATOR ; ?«, t00=0x0025, t01=0x014c}
0x3b40…3b4e Head {h00=0x000a, h01=0x0050, text=»SYN410«, t00=0x0025, t01=0x017e}
0x3b4e…3b7a Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0025, t01=0x018c}
0x3b7a…3ba4 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0026, t01=0x0028}
0x3ba4…3bcc Head {h00=0x0024, h01=0x0050, text=» BT SYN904 INCOMPLETE STATEMNET «, t00=0x0026, t01=0x0052}
0x3bcc…3bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x007a}
0x3bd6…3bfe Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED «, t00=0x0026, t01=0x0084}
0x3bfe…3c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ac}
0x3c08…3c2c Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0026, t01=0x00b6}
0x3c2c…3c5a Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x0026, t01=0x00da}
0x3c5a…3c76 Head {h00=0x0018, h01=0x0050, text=» BOK SYN420 EXPR OK «, t00=0x0026, t01=0x0108}
0x3c76…3c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0124}
0x3c80…3caa Head {h00=0x0026, h01=0x0050, text=»* ... OR ARITHMETIC EXPRESSION «, t00=0x0026, t01=0x012e}
0x3caa…3cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0158}
0x3cb4…3cd8 Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0026, t01=0x0162}
0x3cd8…3d0a Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x0026, t01=0x0186}
0x3d0a…3d2a Head {h00=0x001c, h01=0x0050, text=» BNOK SYN906 EXPR ERROR «, t00=0x0027, t01=0x0028}
0x3d2a…3d38 Head {h00=0x000a, h01=0x0050, text=»SYN420«, t00=0x0027, t01=0x0048}
0x3d38…3d62 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0027, t01=0x0056}
0x3d62…3d8a Head {h00=0x0024, h01=0x0050, text=» BT SYN904 INCOMPLTTE STATEMENT «, t00=0x0027, t01=0x0080}
0x3d8a…3d98 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00a8}
0x3d98…3da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b6}
0x3da2…3dd2 Head {h00=0x002c, h01=0x0050, text=»* PARAMETER EXPRESSION SEPARATOR ',' «, t00=0x0027, t01=0x00c0}
0x3dd2…3ddc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f0}
0x3ddc…3e08 Head {h00=0x0028, h01=0x0050, text=» MOVE LSTR1,=C',' LOAD PAR-SEPARATOR«, t00=0x0027, t01=0x00fa}
0x3e08…3e26 Head {h00=0x001a, h01=0x0050, text=» MOVE LBIN3,W0 POINT0 «, t00=0x0027, t01=0x0126}
0x3e26…3e5e Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ',' «, t00=0x0027, t01=0x0144}
0x3e5e…3e7c Head {h00=0x001a, h01=0x0050, text=» BOK SYN410 JMP IF OK «, t00=0x0027, t01=0x017c}
0x3e7c…3e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x000a}
0x3e86…3ea8 Head {h00=0x001e, h01=0x0050, text=»* END OF PARAMETER LIST«, t00=0x0028, t01=0x0014}
0x3ea8…3eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0036}
0x3eb2…3ee2 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS«, t00=0x0028, t01=0x0040}
0x3ee2…3f04 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0028, t01=0x0070}
0x3f04…3f3c Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')' «, t00=0x0028, t01=0x0092}
0x3f3c…3f66 Head {h00=0x0026, h01=0x0050, text=» BNOK SYN904 INCOMPLETE STATEMENT «, t00=0x0028, t01=0x00ca}
0x3f66…3f92 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0028, t01=0x00f4}
0x3f92…3fc2 Head {h00=0x002c, h01=0x0050, text=» B SYN800 BASIC STATEMENT SEPARATOR ; ? «, t00=0x0028, t01=0x0120}
0x3fc2…3fd0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0150}
0x3fd0…3fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x015e}
0x3fda…4002 Head {h00=0x0024, h01=0x0050, text=»* 14 SECT <STRING EXPRESSION>«, t00=0x0028, t01=0x0168}
0x4002…400c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0190}
0x400c…401a Head {h00=0x000a, h01=0x0050, text=»SYN450«, t00=0x0029, t01=0x000a}
0x401a…4044 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0029, t01=0x0018}
0x4044…4068 Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x0029, t01=0x0042}
0x4068…4092 Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 JMP IF NO INDENTION «, t00=0x0029, t01=0x0066}
0x4092…40b0 Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x0029, t01=0x0090}
0x40b0…40ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ae}
0x40ba…40e2 Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED «, t00=0x0029, t01=0x00b8}
0x40e2…40ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e0}
0x40ec…4110 Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0029, t01=0x00ea}
0x4110…413e Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x0029, t01=0x010e}
0x413e…415e Head {h00=0x001c, h01=0x0050, text=» BNOK SYN906 EXPR ERROR «, t00=0x0029, t01=0x013c}
0x415e…418e Head {h00=0x002c, h01=0x0050, text=» B SYN800 BASIC STATEMENT SEPARATOR ; ? «, t00=0x0029, t01=0x015c}
0x418e…419c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x018c}
0x419c…41a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x000a}
0x41a6…41d6 Head {h00=0x002c, h01=0x0050, text=»* 16 ATTR <ATTRIBUTE> <DYNAMIC FIELD>«, t00=0x002a, t01=0x0014}
0x41d6…41e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0044}
0x41e0…41ee Head {h00=0x000a, h01=0x0050, text=»SYN500«, t00=0x002a, t01=0x004e}
0x41ee…4218 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x002a, t01=0x005c}
0x4218…423c Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x002a, t01=0x0086}
0x423c…4266 Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 JMP IF NO INDENTION «, t00=0x002a, t01=0x00aa}
0x4266…4284 Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x002a, t01=0x00d4}
0x4284…428e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00f2}
0x428e…42c0 Head {h00=0x002e, h01=0x0050, text=»* ATTRIBUTE => DECORATION OR PROTECTION«, t00=0x002a, t01=0x00fc}
0x42c0…42ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x012e}
0x42ca…42e6 Head {h00=0x0018, h01=0x0050, text=» MOVE LBIN12,=W'26' «, t00=0x002a, t01=0x0138}
0x42e6…4316 Head {h00=0x002c, h01=0x0050, text=» PERF DECSEA,LBIN12 ***DECORATION SEARCH«, t00=0x002a, t01=0x0154}
0x4316…4338 Head {h00=0x001e, h01=0x0050, text=» BNOK SYN904 JMP IF NOT OK«, t00=0x002a, t01=0x0184}
0x4338…435c Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x002b, t01=0x0016}
0x435c…4384 Head {h00=0x0024, h01=0x0050, text=» BE SYN904 INCOMPLETE STATEMENT «, t00=0x002b, t01=0x003a}
0x4384…43ae Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x002b, t01=0x0062}
0x43ae…43d6 Head {h00=0x0024, h01=0x0050, text=» BT SYN904 INCOMPLETE STATEMENT «, t00=0x002b, t01=0x008c}
0x43d6…43e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b4}
0x43e0…4402 Head {h00=0x001e, h01=0x0050, text=»* MATCH FOR SEPARATOR «, t00=0x002b, t01=0x00be}
0x4402…440c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e0}
0x440c…4432 Head {h00=0x0022, h01=0x0050, text=» MOVE LSTR1,=C',' SEPARATOR=, «, t00=0x002b, t01=0x00ea}
0x4432…4454 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x002b, t01=0x0110}
0x4454…448c Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ',' «, t00=0x002b, t01=0x0132}
0x448c…44b6 Head {h00=0x0026, h01=0x0050, text=» BNOK SYN904 INCOMPLETE STATEMENT «, t00=0x002b, t01=0x016a}
0x44b6…44e2 (44, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x002c, t01=0x0004}
0x44e2…4506 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x002c, t01=0x0030}
0x4506…452e Head {h00=0x0024, h01=0x0050, text=» BE SYN904 INCOMPLETE STATEMENT «, t00=0x002c, t01=0x0054}
0x452e…4558 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x002c, t01=0x007c}
0x4558…4580 Head {h00=0x0024, h01=0x0050, text=» BT SYN904 INCOMPLETE STATEMNET «, t00=0x002c, t01=0x00a6}
0x4580…458a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00ce}
0x458a…45a6 Head {h00=0x0018, h01=0x0050, text=»* DYNAMIC FIELD«, t00=0x002c, t01=0x00d8}
0x45a6…45b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f4}
0x45b0…45e0 Head {h00=0x002c, h01=0x0050, text=» PERF VARDET ****VARIABLE DETERMINATION «, t00=0x002c, t01=0x00fe}
0x45e0…4602 Head {h00=0x001e, h01=0x0050, text=» BNOK SYN905 JMP IF NOT OK«, t00=0x002c, t01=0x012e}
0x4602…4636 Head {h00=0x0030, h01=0x0050, text=» TBF VBOOL3,SYN905 JMP IF NOT DYNAMIC FIELD «, t00=0x002c, t01=0x0150}
0x4636…4666 Head {h00=0x002c, h01=0x0050, text=» B SYN800 BASIC STATEMENT SEPARATOR ; ? «, t00=0x002c, t01=0x0184}
0x4666…4674 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0024}
0x4674…467e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0032}
0x467e…46a4 Head {h00=0x0022, h01=0x0050, text=»* 18 STOP !<DYNAMIC FIELD>!«, t00=0x002d, t01=0x003c}
0x46a4…46ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0062}
0x46ae…46bc Head {h00=0x000a, h01=0x0050, text=»SYN550«, t00=0x002d, t01=0x006c}
0x46bc…46e0 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x002d, t01=0x007a}
0x46e0…4708 Head {h00=0x0024, h01=0x0050, text=» BE SYN990 E-O-B SIMPLE STOP OK «, t00=0x002d, t01=0x009e}
0x4708…4732 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x002d, t01=0x00c6}
0x4732…4756 Head {h00=0x0020, h01=0x0050, text=» BT SYN108 E-O-B JUST SPACES«, t00=0x002d, t01=0x00f0}
0x4756…4780 Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 JMP IF NO INDENTION «, t00=0x002d, t01=0x0114}
0x4780…479e Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x002d, t01=0x013e}
0x479e…47a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x015c}
0x47a8…47d4 Head {h00=0x0028, h01=0x0050, text=»* STOP WITH TARGET DYNAMIC FIELD«, t00=0x002d, t01=0x0166}
0x47d4…47de (46, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0004}
0x47de…480e Head {h00=0x002c, h01=0x0050, text=» PERF VARDET ****VARIABLE DETERMINATION «, t00=0x002e, t01=0x000e}
0x480e…4840 Head {h00=0x002e, h01=0x0050, text=» BNOK SYN810 BASIC STATEMENT SEPARATOR ; ?«, t00=0x002e, t01=0x003e}
0x4840…4874 Head {h00=0x0030, h01=0x0050, text=» TBF VBOOL3,SYN905 JMP IF NOT DYNAMIC FIELD «, t00=0x002e, t01=0x0070}
0x4874…48a4 Head {h00=0x002c, h01=0x0050, text=» B SYN800 BASIC STATEMENT SEPARATOR ; ? «, t00=0x002e, t01=0x00a4}
0x48a4…48b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00d4}
0x48b2…48bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e2}
0x48bc…48e8 Head {h00=0x0028, h01=0x0050, text=»* 20 EXIT <ARITHMETIC EXPRESSION>«, t00=0x002e, t01=0x00ec}
0x48e8…48f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0118}
0x48f2…4900 Head {h00=0x000a, h01=0x0050, text=»SYN600«, t00=0x002e, t01=0x0122}
0x4900…492a Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x002e, t01=0x0130}
0x492a…494e Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x002e, t01=0x015a}
0x494e…4978 Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 JMP IF NO INDENTION «, t00=0x002e, t01=0x017e}
0x4978…4996 Head {h00=0x001a, h01=0x0050, text=» BL SYN105 JMP IF LESS«, t00=0x002f, t01=0x0018}
0x4996…49a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0036}
0x49a0…49cc Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED«, t00=0x002f, t01=0x0040}
0x49cc…49d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x006c}
0x49d6…49fa Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x002f, t01=0x0076}
0x49fa…4a2c Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x002f, t01=0x009a}
0x4a2c…4a4c Head {h00=0x001c, h01=0x0050, text=» BNOK SYN906 EXPR ERROR «, t00=0x002f, t01=0x00cc}
0x4a4c…4a7c Head {h00=0x002c, h01=0x0050, text=» B SYN800 BASIC STATEMENT SEPARATOR ; ? «, t00=0x002f, t01=0x00ec}
0x4a7c…4a8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x011c}
0x4a8a…4a94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x012a}
0x4a94…4ace Head {h00=0x0036, h01=0x0050, text=»* 22 ERR <DECORATION LIST> <STRING-EXPRESSION> «, t00=0x002f, t01=0x0134}
0x4ace…4b08 Head {h00=0x0036, h01=0x0050, text=»* 24 WARN <DECORATION LIST> <STRING-EXPRESSION> «, t00=0x002f, t01=0x016e}
0x4b08…4b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0018}
0x4b12…4b20 Head {h00=0x000a, h01=0x0050, text=»SYN650«, t00=0x0030, t01=0x0022}
0x4b20…4b4a Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0030, t01=0x0030}
0x4b4a…4b6e Head {h00=0x0020, h01=0x0050, text=» BT SYN904 E-O-B JUST SPACES«, t00=0x0030, t01=0x005a}
0x4b6e…4b98 Head {h00=0x0026, h01=0x0050, text=» CMP VBIN7,W1 JMP IF NO INDENTION «, t00=0x0030, t01=0x007e}
0x4b98…4bca Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN12,W0 NUMB OF FOUND DECORATIONS «, t00=0x0030, t01=0x00a8}
0x4bca…4bfc Head {h00=0x002e, h01=0x0050, text=» CLEAR VBOOL5 FALSE DECORATIONS NOT READY «, t00=0x0030, t01=0x00da}
0x4bfc…4c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010c}
0x4c06…4c22 Head {h00=0x0018, h01=0x0050, text=»* DECORATION LIST«, t00=0x0030, t01=0x0116}
0x4c22…4c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0132}
0x4c2c…4c3a Head {h00=0x000a, h01=0x0050, text=»SYN660«, t00=0x0030, t01=0x013c}
0x4c3a…4c6a Head {h00=0x002c, h01=0x0050, text=» CMP LBIN12,W5 CHECK IF ALREADY 5 DECORS«, t00=0x0030, t01=0x014a}
0x4c6a…4c92 Head {h00=0x0024, h01=0x0050, text=» BE SYN675 INCOMPLETE STATEMENT «, t00=0x0030, t01=0x017a}
0x4c92…4cc0 Head {h00=0x002a, h01=0x0050, text=» PERF DECSEA,W10 ***DECORATION SEARCH «, t00=0x0031, t01=0x0012}
0x4cc0…4ce2 Head {h00=0x001e, h01=0x0050, text=» BNOK SYN675 JMP IF NOT OK«, t00=0x0031, t01=0x0040}
0x4ce2…4d06 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0031, t01=0x0062}
0x4d06…4d2e Head {h00=0x0024, h01=0x0050, text=» BE SYN904 INCOMPLETE STATEMENT «, t00=0x0031, t01=0x0086}
0x4d2e…4d58 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0031, t01=0x00ae}
0x4d58…4d80 Head {h00=0x0024, h01=0x0050, text=» BT SYN904 INCOMPLETE STATEMENT «, t00=0x0031, t01=0x00d8}
0x4d80…4db4 Head {h00=0x0030, h01=0x0050, text=» ADD LBIN12,W1 INCREMENT NUMB OF DECORATIONS«, t00=0x0031, t01=0x0100}
0x4db4…4dc2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0134}
0x4dc2…4dcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0142}
0x4dcc…4dfe Head {h00=0x002e, h01=0x0050, text=»* MATCH FOR DECORATION LIST SEPARATOR «, t00=0x0031, t01=0x014c}
0x4dfe…4e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x017e}
0x4e08…4e16 Head {h00=0x000a, h01=0x0050, text=»SYN670«, t00=0x0031, t01=0x0188}
0x4e16…4e3c Head {h00=0x0022, h01=0x0050, text=» MOVE LSTR1,=C',' SEPARATOR=, «, t00=0x0032, t01=0x0008}
0x4e3c…4e5e Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0032, t01=0x002e}
0x4e5e…4e96 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ',' «, t00=0x0032, t01=0x0050}
0x4e96…4ec8 Head {h00=0x002e, h01=0x0050, text=» BNOK SYN906 BASIC STATEMENT SEPARATOR ; ?«, t00=0x0032, t01=0x0088}
0x4ec8…4ef4 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0032, t01=0x00ba}
0x4ef4…4f18 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0032, t01=0x00e6}
0x4f18…4f40 Head {h00=0x0024, h01=0x0050, text=» BE SYN904 INCOMPLETE STATEMENT «, t00=0x0032, t01=0x010a}
0x4f40…4f6a Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0032, t01=0x0132}
0x4f6a…4f92 Head {h00=0x0024, h01=0x0050, text=» BT SYN904 INCOMPLETE STATEMNET «, t00=0x0032, t01=0x015c}
0x4f92…4fb4 Head {h00=0x001e, h01=0x0050, text=» B SYN660 NEXT DECORATION «, t00=0x0032, t01=0x0184}
0x4fb4…4fbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0016}
0x4fbe…4fe6 Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED «, t00=0x0033, t01=0x0020}
0x4fe6…4ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0048}
0x4ff0…4ffe Head {h00=0x000a, h01=0x0050, text=»SYN675«, t00=0x0033, t01=0x0052}
0x4ffe…5022 Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0033, t01=0x0060}
0x5022…5050 Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x0033, t01=0x0084}
0x5050…5070 Head {h00=0x001c, h01=0x0050, text=» BNOK SYN906 EXPR ERROR «, t00=0x0033, t01=0x00b2}
0x5070…50a0 Head {h00=0x002c, h01=0x0050, text=» B SYN800 BASIC STATEMENT SEPARATOR ; ? «, t00=0x0033, t01=0x00d2}
0x50a0…50ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0102}
0x50ae…50b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0110}
0x50b8…50e6 Head {h00=0x002a, h01=0x0050, text=»* 26 REM !<ALPHNUMERIC CHARACTERS>! «, t00=0x0033, t01=0x011a}
0x50e6…50f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0148}
0x50f0…50fe Head {h00=0x000a, h01=0x0050, text=»SYN750«, t00=0x0033, t01=0x0152}
0x50fe…5122 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0033, t01=0x0160}
0x5122…514a Head {h00=0x0024, h01=0x0050, text=» BE SYN990 E-O-B SIMPLE STOP OK «, t00=0x0033, t01=0x0184}
0x514a…5174 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0034, t01=0x001c}
0x5174…5198 Head {h00=0x0020, h01=0x0050, text=» BT SYN108 E-O-B JUST SPACES«, t00=0x0034, t01=0x0046}
0x5198…51ae Head {h00=0x0012, h01=0x0050, text=» CMP VBIN7,W1 «, t00=0x0034, t01=0x006a}
0x51ae…51d4 Head {h00=0x0022, h01=0x0050, text=» BL SYN105 JMP IF NO INDENTION«, t00=0x0034, t01=0x0080}
0x51d4…51e6 Head {h00=0x000e, h01=0x0050, text=» B SYN990 «, t00=0x0034, t01=0x00a6}
0x51e6…51f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x00b8}
0x51f4…51fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00c6}
0x51fe…522a Head {h00=0x0028, h01=0x0050, text=»* 28 ; (BASIC STATEMENT SEPARATOR)«, t00=0x0034, t01=0x00d0}
0x522a…5234 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00fc}
0x5234…5242 Head {h00=0x000a, h01=0x0050, text=»SYN800«, t00=0x0034, t01=0x0106}
0x5242…5266 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0034, t01=0x0114}
0x5266…527e Head {h00=0x0014, h01=0x0050, text=» BE SYN990 E-O-B«, t00=0x0034, t01=0x0138}
0x527e…52a8 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0034, t01=0x0150}
0x52a8…52cc Head {h00=0x0020, h01=0x0050, text=» BT SYN108 E-O-B JUST SPACES«, t00=0x0034, t01=0x017a}
0x52cc…52d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x000e}
0x52d6…530c Head {h00=0x0032, h01=0x0050, text=»* MATCH FOR BASIC STATEMENT SEPARATOR ; «, t00=0x0035, t01=0x0018}
0x530c…5316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x004e}
0x5316…5324 Head {h00=0x000a, h01=0x0050, text=»SYN810«, t00=0x0035, t01=0x0058}
0x5324…534a Head {h00=0x0022, h01=0x0050, text=» MOVE LSTR1,=C';' SEPARATOR=; «, t00=0x0035, t01=0x0066}
0x534a…536c Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0035, t01=0x008c}
0x536c…53a4 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ';' «, t00=0x0035, t01=0x00ae}
0x53a4…53ce Head {h00=0x0026, h01=0x0050, text=» BNOK SYN815 INCOMPLETE STATEMENT «, t00=0x0035, t01=0x00e6}
0x53ce…53fa Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0035, t01=0x0110}
0x53fa…541e Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x0035, t01=0x013c}
0x541e…5444 Head {h00=0x0022, h01=0x0050, text=» BE SYN990 COMPLETE STATEMENT «, t00=0x0035, t01=0x0160}
0x5444…5452 Head {h00=0x000a, h01=0x0050, text=»SYN815«, t00=0x0035, t01=0x0186}
0x5452…547c (54, 0, 400) Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0036, t01=0x0004}
0x547c…549a Head {h00=0x001a, h01=0x0050, text=» BT SYN108 JUST SPACES«, t00=0x0036, t01=0x002e}
0x549a…54c0 Head {h00=0x0022, h01=0x0050, text=» B SYN110 NEXT BASIC STATEMENT«, t00=0x0036, t01=0x004c}
0x54c0…54ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x0072}
0x54ce…54d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0080}
0x54d8…5510 Head {h00=0x0034, h01=0x0050, text=»* SYNTAX ERROR 04 BASIC STATEMENT INCOMPLETE «, t00=0x0036, t01=0x008a}
0x5510…551a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00c2}
0x551a…5528 Head {h00=0x000a, h01=0x0050, text=»SYN904«, t00=0x0036, t01=0x00cc}
0x5528…5558 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION«, t00=0x0036, t01=0x00da}
0x5558…557e Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W4 SYNTAX ERROR:=4«, t00=0x0036, t01=0x010a}
0x557e…5590 Head {h00=0x000e, h01=0x0050, text=» B SYN980 «, t00=0x0036, t01=0x0130}
0x5590…559a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0142}
0x559a…55c6 Head {h00=0x0028, h01=0x0050, text=»* SYNTAX ERROR 05 ILLEGAL OPERAND«, t00=0x0036, t01=0x014c}
0x55c6…55d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0178}
0x55d0…55de Head {h00=0x000a, h01=0x0050, text=»SYN905«, t00=0x0036, t01=0x0182}
0x55de…560e Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION«, t00=0x0036, t01=0x0190}
0x560e…5634 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W5 SYNTAX ERROR:=5«, t00=0x0037, t01=0x0030}
0x5634…5646 Head {h00=0x000e, h01=0x0050, text=» B SYN980 «, t00=0x0037, t01=0x0056}
0x5646…5650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0068}
0x5650…5680 Head {h00=0x002c, h01=0x0050, text=»* SYNTAX ERROR 06 ILLEGAL EXPRESSION «, t00=0x0037, t01=0x0072}
0x5680…568a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a2}
0x568a…5698 Head {h00=0x000a, h01=0x0050, text=»SYN906«, t00=0x0037, t01=0x00ac}
0x5698…56c8 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION«, t00=0x0037, t01=0x00ba}
0x56c8…56ee Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W6 SYNTAX ERROR:=6«, t00=0x0037, t01=0x00ea}
0x56ee…5700 Head {h00=0x000e, h01=0x0050, text=» B SYN980 «, t00=0x0037, t01=0x0110}
0x5700…570a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0122}
0x570a…573c Head {h00=0x002e, h01=0x0050, text=»* SYNTAX ERROR 07 NOT VALID LINE NUMBER«, t00=0x0037, t01=0x012c}
0x573c…5746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x015e}
0x5746…5754 Head {h00=0x000a, h01=0x0050, text=»SYN907«, t00=0x0037, t01=0x0168}
0x5754…5784 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN1,LBIN4 SAVE ERRONEUS POSITION«, t00=0x0037, t01=0x0176}
0x5784…57aa Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN4,W7 SYNTAX ERROR:=7«, t00=0x0038, t01=0x0016}
0x57aa…57bc Head {h00=0x000e, h01=0x0050, text=» B SYN980 «, t00=0x0038, t01=0x003c}
0x57bc…57ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x004e}
0x57ca…57d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x005c}
0x57d4…57ec Head {h00=0x0014, h01=0x0050, text=»* SYNTAX ERROR«, t00=0x0038, t01=0x0066}
0x57ec…57f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x007e}
0x57f6…5804 Head {h00=0x000a, h01=0x0050, text=»SYN980«, t00=0x0038, t01=0x0088}
0x5804…5832 Head {h00=0x002a, h01=0x0050, text=» ADD LBIN1,W1 ADJUST POINTER POSITION «, t00=0x0038, t01=0x0096}
0x5832…584a Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x0038, t01=0x00c4}
0x584a…585c Head {h00=0x000e, h01=0x0050, text=» B SYN999 «, t00=0x0038, t01=0x00dc}
0x585c…5866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ee}
0x5866…587a Head {h00=0x0010, h01=0x0050, text=»* EXIT OK «, t00=0x0038, t01=0x00f8}
0x587a…5884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x010c}
0x5884…5892 Head {h00=0x000a, h01=0x0050, text=»SYN990«, t00=0x0038, t01=0x0116}
0x5892…58aa Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x0038, t01=0x0124}
0x58aa…58b8 Head {h00=0x000a, h01=0x0050, text=»SYN999«, t00=0x0038, t01=0x013c}
0x58b8…58c4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0038, t01=0x014a}
0x58c4…58d2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0038, t01=0x0156}
0x58d2…58e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0164}
0x58e0…58ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0172}
0x58ea…5908 Head {h00=0x001a, h01=0x0050, text=»* BASIC VERB SEARCH«, t00=0x0038, t01=0x017c}
0x5908…5912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x000a}
0x5912…594a Head {h00=0x0034, h01=0x0050, text=»* INPUT : STLEN =(FORMAL) BASIC VERB LENGTH «, t00=0x0039, t01=0x0014}
0x594a…5954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x004c}
0x5954…597a Head {h00=0x0022, h01=0x0050, text=»* USED : VBIN7 = WORKITEM«, t00=0x0039, t01=0x0056}
0x597a…5984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x007c}
0x5984…59c0 Head {h00=0x0038, h01=0x0050, text=»* OUTPUT: LBIN4 = INPUT BUFFER POINTER ADJUSTED «, t00=0x0039, t01=0x0086}
0x59c0…5a04 Head {h00=0x0040, h01=0x0050, text=»* OPCODE = CORRESPONDING OBJECT-CODE (BASIC VERB)«, t00=0x0039, t01=0x00c2}
0x5a04…5a28 Head {h00=0x0020, h01=0x0050, text=»* CR = 0 = OK«, t00=0x0039, t01=0x0106}
0x5a28…5a50 Head {h00=0x0024, h01=0x0050, text=»* = 1 = NOT OK«, t00=0x0039, t01=0x012a}
0x5a50…5a5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0152}
0x5a5a…5aaa Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0039, t01=0x015c}
0x5aaa…5aca Head {h00=0x001c, h01=0x0050, text=»BSVSEA PROC STLEN,OPCODE«, t00=0x003a, t01=0x001c}
0x5aca…5ade Head {h00=0x0010, h01=0x0050, text=» PBIN STLEN «, t00=0x003a, t01=0x003c}
0x5ade…5af2 Head {h00=0x0010, h01=0x0050, text=» PBIN OPCODE«, t00=0x003a, t01=0x0050}
0x5af2…5b1e Head {h00=0x0028, h01=0x0050, text=» MOVE OPCODE,W0 BASIC-VERB OBJECT:=0«, t00=0x003a, t01=0x0064}
0x5b1e…5b40 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x003a, t01=0x0090}
0x5b40…5b66 Head {h00=0x0022, h01=0x0050, text=» MOVE LSTR1,=X'FF' LOAD FILLER«, t00=0x003a, t01=0x00b2}
0x5b66…5ba8 Head {h00=0x003e, h01=0x0050, text=» MATCH STMTS,LBIN3,VBIN8,LSTR81,LBIN4,STLEN BASICVERBMATCH«, t00=0x003a, t01=0x00d8}
0x5ba8…5bce Head {h00=0x0022, h01=0x0050, text=» BNOK BSV999 JMP IF NOT FOUND «, t00=0x003a, t01=0x011a}
0x5bce…5c06 Head {h00=0x0034, h01=0x0050, text=» XCOPY OPCODE,W1,W1,STVAL,LBIN3 LOAD OBJECT CODE«, t00=0x003a, t01=0x0140}
0x5c06…5c38 Head {h00=0x002e, h01=0x0050, text=» CBE OPCODE,=X'00FF',BSV980 JMP IF FILLER «, t00=0x003a, t01=0x0178}
0x5c38…5c46 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x001a}
0x5c46…5c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0028}
0x5c50…5c72 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF PROPER LENGTH«, t00=0x003b, t01=0x0032}
0x5c72…5c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0054}
0x5c7c…5caa Head {h00=0x002a, h01=0x0050, text=» MOVE VBIN7,LBIN3 STORE POINTER VALUE «, t00=0x003b, t01=0x005e}
0x5caa…5ce0 Head {h00=0x0032, h01=0x0050, text=» ADD VBIN7,STLEN ADD POINTER STATMENT LENGTH «, t00=0x003b, t01=0x008c}
0x5ce0…5d1a Head {h00=0x0036, h01=0x0050, text=» MATCH STVAL,VBIN7,W1,LSTR1,W0,W1 MATCH IF FILLER «, t00=0x003b, t01=0x00c2}
0x5d1a…5d4c Head {h00=0x002e, h01=0x0050, text=» BOK BSV980 JMP IF FILLER /FF FOUND NOT OK«, t00=0x003b, t01=0x00fc}
0x5d4c…5d5a Head {h00=0x000a, h01=0x0050, text=»BSV100«, t00=0x003b, t01=0x012e}
0x5d5a…5d8e Head {h00=0x0030, h01=0x0050, text=» ADD LBIN4,STLEN ADJUST POINTER WITH LENGTH «, t00=0x003b, t01=0x013c}
0x5d8e…5da6 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x003b, t01=0x0170}
0x5da6…5db8 Head {h00=0x000e, h01=0x0050, text=» B BSV999 «, t00=0x003b, t01=0x0188}
0x5db8…5dc6 Head {h00=0x000a, h01=0x0050, text=»BSV980«, t00=0x003c, t01=0x000a}
0x5dc6…5dde Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x003c, t01=0x0018}
0x5dde…5dec Head {h00=0x000a, h01=0x0050, text=»BSV999«, t00=0x003c, t01=0x0030}
0x5dec…5df8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003c, t01=0x003e}
0x5df8…5e06 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003c, t01=0x004a}
0x5e06…5e14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0058}
0x5e14…5e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0066}
0x5e1e…5e3e Head {h00=0x001c, h01=0x0050, text=»* INDENTION COUNTING«, t00=0x003c, t01=0x0070}
0x5e3e…5e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0090}
0x5e48…5e74 Head {h00=0x0028, h01=0x0050, text=»* INPUT : LSTR81 = INPUT BUFFER «, t00=0x003c, t01=0x009a}
0x5e74…5ea8 Head {h00=0x0030, h01=0x0050, text=»* LBIN4 = INPUT BUFFER POINTER «, t00=0x003c, t01=0x00c6}
0x5ea8…5ede Head {h00=0x0032, h01=0x0050, text=»* LBIN1 = LENGTH OF INPUT BUFFER «, t00=0x003c, t01=0x00fa}
0x5ede…5ee8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0130}
0x5ee8…5f10 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: LBIN4 = ADJUSTED «, t00=0x003c, t01=0x013a}
0x5f10…5f44 Head {h00=0x0030, h01=0x0050, text=»* VBIN7 = NUMBER OF INDENTIONS «, t00=0x003c, t01=0x0162}
0x5f44…5f84 Head {h00=0x003c, h01=0x0050, text=»* CR = 0 = FALSE NOT E-O-BUFFER REACHED «, t00=0x003d, t01=0x0008}
0x5f84…5fbe Head {h00=0x0036, h01=0x0050, text=»* = 1 = TRUE E-O-BUFFER REACHED«, t00=0x003d, t01=0x0048}
0x5fbe…5fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0082}
0x5fc8…6018 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003d, t01=0x008c}
0x6018…602c Head {h00=0x0010, h01=0x0050, text=»INDCNT PROC «, t00=0x003d, t01=0x00dc}
0x602c…605c Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=X'20' LOAD SPACE CHARACTER «, t00=0x003d, t01=0x00f0}
0x605c…608c Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN7,W0 NUMB OF LEADING SPACES:=0«, t00=0x003d, t01=0x0120}
0x608c…609a Head {h00=0x000a, h01=0x0050, text=»IND100«, t00=0x003d, t01=0x0150}
0x609a…60c2 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN3,W0 MATCH-POINTER:=0 «, t00=0x003d, t01=0x015e}
0x60c2…6100 Head {h00=0x003a, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH FOR SPACE «, t00=0x003d, t01=0x0186}
0x6100…612a Head {h00=0x0026, h01=0x0050, text=» BNOK IND985 JMP IF NO MORE SPACES«, t00=0x003e, t01=0x0034}
0x612a…6156 Head {h00=0x0028, h01=0x0050, text=» ADD VBIN7,W1 INCREMENT NO OF SPACES«, t00=0x003e, t01=0x005e}
0x6156…6182 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER-POINTER «, t00=0x003e, t01=0x008a}
0x6182…61a6 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x003e, t01=0x00b6}
0x61a6…61ca Head {h00=0x0020, h01=0x0050, text=» BE IND980 E-O-B JUST SPACES«, t00=0x003e, t01=0x00da}
0x61ca…61e2 Head {h00=0x0014, h01=0x0050, text=» B IND100 GO ON «, t00=0x003e, t01=0x00fe}
0x61e2…61f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0116}
0x61f0…61fe Head {h00=0x000a, h01=0x0050, text=»IND980«, t00=0x003e, t01=0x0124}
0x61fe…6216 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x003e, t01=0x0132}
0x6216…6228 Head {h00=0x000e, h01=0x0050, text=» B IND999 «, t00=0x003e, t01=0x014a}
0x6228…6236 Head {h00=0x000a, h01=0x0050, text=»IND985«, t00=0x003e, t01=0x015c}
0x6236…625a Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x003e, t01=0x016a}
0x625a…627a Head {h00=0x001c, h01=0x0050, text=» BE IND980 JMP IF E-O-B «, t00=0x003e, t01=0x018e}
0x627a…6288 Head {h00=0x000a, h01=0x0050, text=»IND990«, t00=0x003f, t01=0x001e}
0x6288…62a0 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x003f, t01=0x002c}
0x62a0…62ae Head {h00=0x000a, h01=0x0050, text=»IND999«, t00=0x003f, t01=0x0044}
0x62ae…62ba Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003f, t01=0x0052}
0x62ba…62c8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003f, t01=0x005e}
0x62c8…62d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x006c}
0x62d6…62e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x007a}
0x62e0…6304 Head {h00=0x0020, h01=0x0050, text=»* VARIABLE DETERMINATION«, t00=0x003f, t01=0x0084}
0x6304…630e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00a8}
0x630e…633c Head {h00=0x002a, h01=0x0050, text=»* INPUT : LSTR81 = BASIC LINE«, t00=0x003f, t01=0x00b2}
0x633c…6372 Head {h00=0x0032, h01=0x0050, text=»* LBIN4 = BASIC LINE POINTER«, t00=0x003f, t01=0x00e0}
0x6372…63a4 Head {h00=0x002e, h01=0x0050, text=»* FIDTAB = FIELD ID TABLE«, t00=0x003f, t01=0x0116}
0x63a4…63d8 Head {h00=0x0030, h01=0x0050, text=»* ATTAB = ATTRIBUTE TABLE «, t00=0x003f, t01=0x0148}
0x63d8…640e Head {h00=0x0032, h01=0x0050, text=»* GVDUR = SCREEN ROW BUFFER «, t00=0x003f, t01=0x017c}
0x640e…6418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0022}
0x6418…6438 Head {h00=0x001c, h01=0x0050, text=»* USED : LBIN3 «, t00=0x0040, t01=0x002c}
0x6438…6458 Head {h00=0x001c, h01=0x0050, text=»* VBIN7 «, t00=0x0040, t01=0x004c}
0x6458…6478 Head {h00=0x001c, h01=0x0050, text=»* VBIN8 «, t00=0x0040, t01=0x006c}
0x6478…6498 Head {h00=0x001c, h01=0x0050, text=»* LBIN12«, t00=0x0040, t01=0x008c}
0x6498…64b8 Head {h00=0x001c, h01=0x0050, text=»* LBIN17«, t00=0x0040, t01=0x00ac}
0x64b8…64c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00cc}
0x64c2…650a Head {h00=0x0044, h01=0x0050, text=»* OUTPUT : VBOOL2 = FALSE NUMERIC => ARITHMETIC VARIABLE«, t00=0x0040, t01=0x00d6}
0x650a…6550 Head {h00=0x0042, h01=0x0050, text=»* = TRUE ALPHANUM => STRING VARIABLE «, t00=0x0040, t01=0x011e}
0x6550…6590 Head {h00=0x003c, h01=0x0050, text=»* VBOOL3 = FALSE WSM-WORK-ITEM VARIABLE«, t00=0x0040, t01=0x0164}
0x6590…65d0 Head {h00=0x003c, h01=0x0050, text=»* = TRUE DYNAMIC FIELD VARIABLE«, t00=0x0041, t01=0x0014}
0x65d0…65f8 Head {h00=0x0024, h01=0x0050, text=»* CR = 0 OK«, t00=0x0041, t01=0x0054}
0x65f8…662a Head {h00=0x002e, h01=0x0050, text=»* = 1 SYNTAX ERROR«, t00=0x0041, t01=0x007c}
0x662a…6634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00ae}
0x6634…6684 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0041, t01=0x00b8}
0x6684…6698 Head {h00=0x0010, h01=0x0050, text=»VARDET PROC «, t00=0x0041, t01=0x0108}
0x6698…66ca Head {h00=0x002e, h01=0x0050, text=» CLEAR VBOOL2 FALSE = ARITHMETIC VARIABLE «, t00=0x0041, t01=0x011c}
0x66ca…66fe Head {h00=0x0030, h01=0x0050, text=» CLEAR VBOOL3 FALSE = WSM WORK ITEM VARIABLE«, t00=0x0041, t01=0x014e}
0x66fe…6728 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN17,W4 VARIABLE LENGTH:=4«, t00=0x0041, t01=0x0182}
0x6728…6736 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x001c}
0x6736…6740 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x002a}
0x6740…677a Head {h00=0x0036, h01=0x0050, text=»* CURRENT FIELD '!FID' OR CURRENT INPUT '!INP'«, t00=0x0042, t01=0x0034}
0x677a…6784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x006e}
0x6784…67b8 Head {h00=0x0030, h01=0x0050, text=» MOVE LSTR9A,=C'!FID!INP!' LOAD IDENTIFIERS «, t00=0x0042, t01=0x0078}
0x67b8…67da Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0042, t01=0x00ac}
0x67da…6820 Head {h00=0x0042, h01=0x0050, text=» MATCH LSTR9A,LBIN3,W8,LSTR81,LBIN4,W4 MATCH '!FID' OR '!INP' «, t00=0x0042, t01=0x00ce}
0x6820…6846 Head {h00=0x0022, h01=0x0050, text=» BNOK VAR100 JMP IF NOT FOUND «, t00=0x0042, t01=0x0114}
0x6846…686c Head {h00=0x0022, h01=0x0050, text=» CBE LBIN3,W0,VAR010 JMP IF OK«, t00=0x0042, t01=0x013a}
0x686c…6892 Head {h00=0x0022, h01=0x0050, text=» CBE LBIN3,W4,VAR010 JMP IF OK«, t00=0x0042, t01=0x0160}
0x6892…68ac Head {h00=0x0016, h01=0x0050, text=» B VAR100 NOT OK «, t00=0x0042, t01=0x0186}
0x68ac…68ba Head {h00=0x000a, h01=0x0050, text=»VAR010«, t00=0x0043, t01=0x0010}
0x68ba…68f4 Head {h00=0x0036, h01=0x0050, text=» TBF LBOOL5,VAR050 JMP IF CURRENT FIELD ARITHMETIC«, t00=0x0043, t01=0x001e}
0x68f4…691a Head {h00=0x0022, h01=0x0050, text=» B VAR250 CURRENT FIELD STRING«, t00=0x0043, t01=0x0058}
0x691a…6928 Head {h00=0x000a, h01=0x0050, text=»VAR050«, t00=0x0043, t01=0x007e}
0x6928…6952 Head {h00=0x0026, h01=0x0050, text=» B VAR300 LONG BRANCH CONSTRUCTION«, t00=0x0043, t01=0x008c}
0x6952…6960 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x00b6}
0x6960…696a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00c4}
0x696a…6994 Head {h00=0x0026, h01=0x0050, text=»* WSM WORK ITEM INVESTIGATION «, t00=0x0043, t01=0x00ce}
0x6994…699e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00f8}
0x699e…69ac Head {h00=0x000a, h01=0x0050, text=»VAR100«, t00=0x0043, t01=0x0102}
0x69ac…69cc Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN3,W0 WORKITEM «, t00=0x0043, t01=0x0110}
0x69cc…6a00 Head {h00=0x0030, h01=0x0050, text=» MOVE LSTR6A,=C'WSWAWN' WSM-WORKITEN PREFIX «, t00=0x0043, t01=0x0130}
0x6a00…6a44 Head {h00=0x0040, h01=0x0050, text=» MATCH LSTR6A,LBIN3,W6,LSTR81,LBIN4,W2 SEARC WSMITEM PREFIX «, t00=0x0043, t01=0x0164}
0x6a44…6a6e Head {h00=0x0026, h01=0x0050, text=» BNOK VAR190 JMP IF NOT A WSM-ITEM«, t00=0x0044, t01=0x0018}
0x6a6e…6a94 Head {h00=0x0022, h01=0x0050, text=» CBE LBIN3,W0,VAR102 JMP IF OK«, t00=0x0044, t01=0x0042}
0x6a94…6aba Head {h00=0x0022, h01=0x0050, text=» CBE LBIN3,W2,VAR102 JMP IF OK«, t00=0x0044, t01=0x0068}
0x6aba…6ae0 Head {h00=0x0022, h01=0x0050, text=» CBE LBIN3,W4,VAR102 JMP IF OK«, t00=0x0044, t01=0x008e}
0x6ae0…6afc Head {h00=0x0018, h01=0x0050, text=» B VAR190 JMP NOT OK«, t00=0x0044, t01=0x00b4}
0x6afc…6b0a Head {h00=0x000a, h01=0x0050, text=»VAR102«, t00=0x0044, t01=0x00d0}
0x6b0a…6b42 Head {h00=0x0034, h01=0x0050, text=» MOVE LBIN12,LBIN4 LOAD CURRENT POINTER POSITION«, t00=0x0044, t01=0x00de}
0x6b42…6b70 Head {h00=0x002a, h01=0x0050, text=» ADD LBIN12,W2 ADJUST POINTER POSITION«, t00=0x0044, t01=0x0116}
0x6b70…6ba4 Head {h00=0x0030, h01=0x0050, text=» XCOPY VSTR2,W0,W2,LSTR81,LBIN12 WSM ITEM NO«, t00=0x0044, t01=0x0144}
0x6ba4…6bd4 Head {h00=0x002c, h01=0x0050, text=» CBL VSTR2,=C'01',VAR108 LESS LOW LIMIT «, t00=0x0044, t01=0x0178}
0x6bd4…6bf8 Head {h00=0x0020, h01=0x0050, text=» CBL LBIN3,W2,VAR105 JMP IF «, t00=0x0045, t01=0x0018}
0x6bf8…6c2c Head {h00=0x0030, h01=0x0050, text=» CBG VSTR2,=C'99',VAR108 GREATER HIGH LIMIT «, t00=0x0045, t01=0x003c}
0x6c2c…6c48 Head {h00=0x0018, h01=0x0050, text=» B VAR110 JMP IF OK «, t00=0x0045, t01=0x0070}
0x6c48…6c56 Head {h00=0x000a, h01=0x0050, text=»VAR105«, t00=0x0045, t01=0x008c}
0x6c56…6c8e Head {h00=0x0034, h01=0x0050, text=» CBNG VSTR2,=C'09',VAR110 NOT GREATER HIGH LIMIT«, t00=0x0045, t01=0x009a}
0x6c8e…6c9c Head {h00=0x000a, h01=0x0050, text=»VAR108«, t00=0x0045, t01=0x00d2}
0x6c9c…6cc6 Head {h00=0x0026, h01=0x0050, text=» B VAR980 LONG BRANCH CONSTRUCTION«, t00=0x0045, t01=0x00e0}
0x6cc6…6cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x010a}
0x6cd0…6cf4 Head {h00=0x0020, h01=0x0050, text=»* WSM WORK-ITEM FOUND OK «, t00=0x0045, t01=0x0114}
0x6cf4…6cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0138}
0x6cfe…6d0c Head {h00=0x000a, h01=0x0050, text=»VAR110«, t00=0x0045, t01=0x0142}
0x6d0c…6d3a Head {h00=0x002a, h01=0x0050, text=» CBL LBIN3,W4,VAR250 ALPHANUM WSM-ITEM«, t00=0x0045, t01=0x0150}
0x6d3a…6d54 Head {h00=0x0016, h01=0x0050, text=» B VAR300 NUMERIC «, t00=0x0045, t01=0x017e}
0x6d54…6d62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0008}
0x6d62…6d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0016}
0x6d6c…6d94 Head {h00=0x0024, h01=0x0050, text=»* DYNAMIC FIELD INVESTIGATION«, t00=0x0046, t01=0x0020}
0x6d94…6d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0048}
0x6d9e…6dac Head {h00=0x000a, h01=0x0050, text=»VAR190«, t00=0x0046, t01=0x0052}
0x6dac…6dde Head {h00=0x002e, h01=0x0050, text=» SET VBOOL3 TRUE = DYNAMIC FIELD VARIABLE «, t00=0x0046, t01=0x0060}
0x6dde…6e16 Head {h00=0x0034, h01=0x0050, text=» MOVE LSTR6A,=X'422A5800' B*X=ALPHANUMERIC CHARS«, t00=0x0046, t01=0x0092}
0x6e16…6e60 Head {h00=0x0046, h01=0x0050, text=» MOVE LSTR16,=X'2B2D2A2F28293A263D3C3E2C3B2000' +-*/():&=<>,;B/00 «, t00=0x0046, t01=0x00ca}
0x6e60…6e9a Head {h00=0x0036, h01=0x0050, text=» MMOVE VBIN7,VBIN8,LBIN4 LOAD ACTUAL BUF. POPINTER«, t00=0x0046, t01=0x0114}
0x6e9a…6eca Head {h00=0x002c, h01=0x0050, text=» ADD VBIN7,W4 ADJUST TO GET MATCH-LIMIT «, t00=0x0046, t01=0x014e}
0x6eca…6ed8 Head {h00=0x000a, h01=0x0050, text=»VAL192«, t00=0x0046, t01=0x017e}
0x6ed8…6efe Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,W0 MATCHPOINTER:=0«, t00=0x0046, t01=0x018c}
0x6efe…6f2e Head {h00=0x002c, h01=0x0050, text=» MATCH LSTR16,LBIN3,W15,LSTR81,VBIN8,W1 «, t00=0x0047, t01=0x0022}
0x6f2e…6f58 Head {h00=0x0026, h01=0x0050, text=» BOK VAL194 DELIMITER-CHAR. FOUND «, t00=0x0047, t01=0x0052}
0x6f58…6f88 Head {h00=0x002c, h01=0x0050, text=» ADD VBIN8,W1 ADJUST TEMP BUFFER POINTER«, t00=0x0047, t01=0x007c}
0x6f88…6fc0 Head {h00=0x0034, h01=0x0050, text=» CBE VBIN8,VBIN7,VAL194 4 POSITIONS MATCHED. JMP«, t00=0x0047, t01=0x00ac}
0x6fc0…6fe8 Head {h00=0x0024, h01=0x0050, text=» B VAL192 GO ON MATCH DELIMITER «, t00=0x0047, t01=0x00e4}
0x6fe8…6ff6 Head {h00=0x000a, h01=0x0050, text=»VAL194«, t00=0x0047, t01=0x010c}
0x6ff6…7026 Head {h00=0x002c, h01=0x0050, text=» SUB VBIN8,LBIN4 CALC EFF. FID-LENGTH ? «, t00=0x0047, t01=0x011a}
0x7026…704e Head {h00=0x0024, h01=0x0050, text=» BE VAR980 IF = 0 => NO VARIABEL«, t00=0x0047, t01=0x014a}
0x704e…7070 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 WORKITEM:=0«, t00=0x0047, t01=0x0172}
0x7070…707e (72, 0, 400) Head {h00=0x000a, h01=0x0050, text=»VAR200«, t00=0x0048, t01=0x0004}
0x707e…70aa Head {h00=0x0028, h01=0x0050, text=» CMP LBIN3,LABIN CHECK IF END ATTAB «, t00=0x0048, t01=0x0012}
0x70aa…70ca Head {h00=0x001c, h01=0x0050, text=» BE VAR980 SYNTAX ERROR «, t00=0x0048, t01=0x003e}
0x70ca…7100 Head {h00=0x0032, h01=0x0050, text=» XCOPY VBIN7,W0,W2,ATTAB,LBIN3 FETCH ROW & COL«, t00=0x0048, t01=0x005e}
0x7100…7128 Head {h00=0x0024, h01=0x0050, text=» CBE VBIN7,W0,VAR980 E-O-BUFFER «, t00=0x0048, t01=0x0094}
0x7128…7152 Head {h00=0x0026, h01=0x0050, text=» ADD LBIN3,W2 ADJUST ATAB-POINTER «, t00=0x0048, t01=0x00bc}
0x7152…7180 Head {h00=0x002a, h01=0x0050, text=» XCOPY VBIN7,W0,W1,W0,W0 DELETE ROW NO«, t00=0x0048, t01=0x00e6}
0x7180…71b2 Head {h00=0x002e, h01=0x0050, text=» CBG VBIN7,LBIN9,VAR206 JMP IF OVFL ENTRY «, t00=0x0048, t01=0x0114}
0x71b2…71e4 Head {h00=0x002e, h01=0x0050, text=» XCOPY VBIN7,W1,W1,ATTAB,LBIN3 GET SEQ.NO «, t00=0x0048, t01=0x0146}
0x71e4…721c Head {h00=0x0034, h01=0x0050, text=» CBNE VBIN7,=X'00FF',VAR208 JMP IF DYNAMIC FIELD«, t00=0x0048, t01=0x0178}
0x721c…722a Head {h00=0x000a, h01=0x0050, text=»VAR206«, t00=0x0049, t01=0x0020}
0x722a…7256 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN3,W2 ADJUST ATTAB -POINTER «, t00=0x0049, t01=0x002e}
0x7256…726e Head {h00=0x0014, h01=0x0050, text=» B VAR200 GO ON «, t00=0x0049, t01=0x005a}
0x726e…7278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0072}
0x7278…72a0 Head {h00=0x0024, h01=0x0050, text=»* DYNAMIC FIELD SEQ.NO FOUND «, t00=0x0049, t01=0x007c}
0x72a0…72aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00a4}
0x72aa…72b8 Head {h00=0x000a, h01=0x0050, text=»VAR208«, t00=0x0049, t01=0x00ae}
0x72b8…72da Head {h00=0x001e, h01=0x0050, text=» CALL WXMUL,VBIN7,W5,VBIN7«, t00=0x0049, t01=0x00bc}
0x72da…7306 Head {h00=0x0028, h01=0x0050, text=» SUB VBIN7,W5 CALC FIELD-ID POSITION«, t00=0x0049, t01=0x00de}
0x7306…7336 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN12,VBIN7 LOAD FID-TAB POSITION«, t00=0x0049, t01=0x010a}
0x7336…7374 Head {h00=0x003a, h01=0x0050, text=» MATCH FIDTAB,LBIN12,W4,LSTR16,W13,W1 MATCH 1ST SPACE «, t00=0x0049, t01=0x013a}
0x7374…73a4 Head {h00=0x002c, h01=0x0050, text=» SUB LBIN12,VBIN7 CALC FIDTAB-FID LENGTH«, t00=0x0049, t01=0x0178}
0x73a4…73dc Head {h00=0x0034, h01=0x0050, text=» CBNE LBIN12,VBIN8,VAR206 JMP IF NOT SAME LENGTH«, t00=0x004a, t01=0x0018}
0x73dc…7422 Head {h00=0x0042, h01=0x0050, text=» MATCH FIDTAB,VBIN7,VBIN8,LSTR81,LBIN4,VBIN8 MATCH FIELD NAME «, t00=0x004a, t01=0x0050}
0x7422…744a Head {h00=0x0024, h01=0x0050, text=» BNOK VAR206 JMP IF NO FIELD ID «, t00=0x004a, t01=0x0096}
0x744a…747a Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN17,VBIN8 SAVE FOUND FID-LENGTH«, t00=0x004a, t01=0x00be}
0x747a…7488 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x00ee}
0x7488…7492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x00fc}
0x7492…74b4 Head {h00=0x001e, h01=0x0050, text=»* RIGHT FIELD ID FOUND«, t00=0x004a, t01=0x0106}
0x74b4…74be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0128}
0x74be…74e8 Head {h00=0x0026, h01=0x0050, text=» SUB LBIN3,W2 ADJUST ATTAB-POINTER«, t00=0x004a, t01=0x0132}
0x74e8…750a Head {h00=0x001e, h01=0x0050, text=» MOVE VBIN7,W0 CLEAR FIRST«, t00=0x004a, t01=0x015c}
0x750a…753c Head {h00=0x002e, h01=0x0050, text=» XCOPY VBIN7,W1,W1,ATTAB,LBIN3 GET ROW NO «, t00=0x004a, t01=0x017e}
0x753c…7566 Head {h00=0x0026, h01=0x0050, text=» ADD LBIN3,W1 ADJUST ATTAB-POINTER«, t00=0x004b, t01=0x0020}
0x7566…7588 Head {h00=0x001e, h01=0x0050, text=» MOVE VBIN8,W0 WORKITEM:=0«, t00=0x004b, t01=0x004a}
0x7588…75ba Head {h00=0x002e, h01=0x0050, text=» XCOPY VBIN8,W1,W1,ATTAB,LBIN3 GET COL NO «, t00=0x004b, t01=0x006c}
0x75ba…75e8 Head {h00=0x002a, h01=0x0050, text=» SUB VBIN8,W1 ADJUST COL.NR TO POINTER«, t00=0x004b, t01=0x009e}
0x75e8…7612 Head {h00=0x0026, h01=0x0050, text=» ADD LBIN3,W3 ADJUST ATTAB-POINTER«, t00=0x004b, t01=0x00cc}
0x7612…763e Head {h00=0x0028, h01=0x0050, text=» CMP LBIN3,LABIN CHECK END OF ATTAB «, t00=0x004b, t01=0x00f6}
0x763e…7664 Head {h00=0x0022, h01=0x0050, text=» BE VAR210 JMP IF E-O-B FOUND «, t00=0x004b, t01=0x0122}
0x7664…7688 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN12,W0 WORKITEM:=0 «, t00=0x004b, t01=0x0148}
0x7688…76c0 Head {h00=0x0034, h01=0x0050, text=» XCOPY LBIN12,W1,W1,ATTAB,LBIN3 GET NEXT ROW NO «, t00=0x004b, t01=0x016c}
0x76c0…76f8 Head {h00=0x0034, h01=0x0050, text=» CBNE LBIN12,VBIN7,VAR210 JMP IF NOT SAME ROW NO«, t00=0x004c, t01=0x0014}
0x76f8…7722 Head {h00=0x0026, h01=0x0050, text=» ADD LBIN3,W1 ADJUST ATTAB-POINTER«, t00=0x004c, t01=0x004c}
0x7722…775a Head {h00=0x0034, h01=0x0050, text=» XCOPY LBIN12,W1,W1,ATTAB,LBIN3 GET NEXT COL NO «, t00=0x004c, t01=0x0076}
0x775a…7782 Head {h00=0x0024, h01=0x0050, text=» SUB LBIN12,W1 ADUST ENDPOSITION«, t00=0x004c, t01=0x00ae}
0x7782…7794 Head {h00=0x000e, h01=0x0050, text=» B VAR215 «, t00=0x004c, t01=0x00d6}
0x7794…77a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x00e8}
0x77a2…77ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00f6}
0x77ac…77cc Head {h00=0x001c, h01=0x0050, text=»* SEARCH FOR 1ST /00 «, t00=0x004c, t01=0x0100}
0x77cc…77d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0120}
0x77d6…77e4 Head {h00=0x000a, h01=0x0050, text=»VAR210«, t00=0x004c, t01=0x012a}
0x77e4…7814 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN3,LBIN9 LOAD MAX COL POSITION «, t00=0x004c, t01=0x0138}
0x7814…7846 Head {h00=0x002e, h01=0x0050, text=» SUB LBIN3,VBIN8 CALC PICTURESTRING LENGTH«, t00=0x004c, t01=0x0168}
0x7846…7874 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN12,VBIN8 LOAD START POSITION«, t00=0x004d, t01=0x000a}
0x7874…78b6 Head {h00=0x003e, h01=0x0050, text=» MATCH GVDUR(VBIN7),LBIN12,LBIN3,LSTR6A,W3,W1 MATCH 1ST 00«, t00=0x004d, t01=0x0038}
0x78b6…78d8 Head {h00=0x001e, h01=0x0050, text=» BOK VAR215 ENDPOS FOUND «, t00=0x004d, t01=0x007a}
0x78d8…7908 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN12,LBIN9 ENDPOS=MAX ENDCOLPOS «, t00=0x004d, t01=0x009c}
0x7908…7916 Head {h00=0x000a, h01=0x0050, text=»VAR215«, t00=0x004d, t01=0x00cc}
0x7916…7944 Head {h00=0x002a, h01=0x0050, text=» SUB LBIN12,VBIN8 CALC PICTURE LENGTH «, t00=0x004d, t01=0x00da}
0x7944…7966 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x004d, t01=0x0108}
0x7966…79aa Head {h00=0x0040, h01=0x0050, text=» MATCH LSTR6A,LBIN3,W3,GVDUR(VBIN7),VBIN8,W1 MATCH 1ST CHAR «, t00=0x004d, t01=0x012a}
0x79aa…79d0 Head {h00=0x0022, h01=0x0050, text=» BNOK VAR300 NO ALPHANUM CHAR «, t00=0x004d, t01=0x016e}
0x79d0…79da (78, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0004}
0x79da…7a04 Head {h00=0x0026, h01=0x0050, text=»* ALPHANUMERIC CHARACTER FOUND «, t00=0x004e, t01=0x000e}
0x7a04…7a0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0038}
0x7a0e…7a46 Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR1,W0,W1,LSTR6A,LBIN3 LOAD FOUND SIGN «, t00=0x004e, t01=0x0042}
0x7a46…7a7a Head {h00=0x0030, h01=0x0050, text=» MOVE GST80I(W7),LSTR1 FILL WITH FOUND CHAR «, t00=0x004e, t01=0x007a}
0x7a7a…7a9c Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x004e, t01=0x00ae}
0x7a9c…7adc Head {h00=0x003c, h01=0x0050, text=» MATCH GST80I(W7),LBIN3,LBIN12,GVDUR(VBIN7),VBIN8,LBIN12«, t00=0x004e, t01=0x00d0}
0x7adc…7b0a Head {h00=0x002a, h01=0x0050, text=» BNOK VAR300 ALL CHARACTERS NOT ALPHA «, t00=0x004e, t01=0x0110}
0x7b0a…7b18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x013e}
0x7b18…7b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x014c}
0x7b22…7b62 Head {h00=0x003c, h01=0x0050, text=»* ALL CHARACTERS ARE ALPHANUMERIC => STRING VARIABLE«, t00=0x004e, t01=0x0156}
0x7b62…7b6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0008}
0x7b6c…7b7a Head {h00=0x000a, h01=0x0050, text=»VAR250«, t00=0x004f, t01=0x0012}
0x7b7a…7ba8 Head {h00=0x002a, h01=0x0050, text=» SET VBOOL2 TRUE=ALPHANUMERIC =>STRING«, t00=0x004f, t01=0x0020}
0x7ba8…7bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x004e}
0x7bb2…7bec Head {h00=0x0036, h01=0x0050, text=»* NUMERIC DYNAMIC FIELD => ARITHMETIC VARIABLE«, t00=0x004f, t01=0x0058}
0x7bec…7bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0092}
0x7bf6…7c04 Head {h00=0x000a, h01=0x0050, text=»VAR300«, t00=0x004f, t01=0x009c}
0x7c04…7c18 Head {h00=0x0010, h01=0x0050, text=» B VAR990 OK«, t00=0x004f, t01=0x00aa}
0x7c18…7c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00be}
0x7c22…7c3c Head {h00=0x0016, h01=0x0050, text=»* SYNTAX ERROR«, t00=0x004f, t01=0x00c8}
0x7c3c…7c46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00e2}
0x7c46…7c54 Head {h00=0x000a, h01=0x0050, text=»VAR980«, t00=0x004f, t01=0x00ec}
0x7c54…7c6c Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x004f, t01=0x00fa}
0x7c6c…7c7e Head {h00=0x000e, h01=0x0050, text=» B VAR999 «, t00=0x004f, t01=0x0112}
0x7c7e…7c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0124}
0x7c88…7c9e Head {h00=0x0012, h01=0x0050, text=»* OK EXIT «, t00=0x004f, t01=0x012e}
0x7c9e…7ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0144}
0x7ca8…7cb6 Head {h00=0x000a, h01=0x0050, text=»VAR990«, t00=0x004f, t01=0x014e}
0x7cb6…7ce6 Head {h00=0x002c, h01=0x0050, text=» ADD LBIN4,LBIN17 ADJUST BUFFER-POINTER «, t00=0x004f, t01=0x015c}
0x7ce6…7cfe Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x004f, t01=0x018c}
0x7cfe…7d0c Head {h00=0x000a, h01=0x0050, text=»VAR999«, t00=0x0050, t01=0x0014}
0x7d0c…7d18 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0050, t01=0x0022}
0x7d18…7d26 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0050, t01=0x002e}
0x7d26…7d34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x003c}
0x7d34…7d3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x004a}
0x7d3e…7d68 Head {h00=0x0026, h01=0x0050, text=»* STRING EXPRESSION EVALUATION«, t00=0x0050, t01=0x0054}
0x7d68…7d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x007e}
0x7d72…7d9a Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: CR = 0 OK «, t00=0x0050, t01=0x0088}
0x7d9a…7dc6 Head {h00=0x0028, h01=0x0050, text=»* = 1 NOT OK «, t00=0x0050, t01=0x00b0}
0x7dc6…7e08 Head {h00=0x003e, h01=0x0050, text=»* VBIN7 = NUMBER OF EXPRESSION CHARACTER «, t00=0x0050, t01=0x00dc}
0x7e08…7e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x011e}
0x7e12…7e62 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0050, t01=0x0128}
0x7e62…7e76 Head {h00=0x0010, h01=0x0050, text=»STREXP PROC «, t00=0x0050, t01=0x0178}
0x7e76…7ea2 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN20,W1 INCREMENT-STACK-INDEX«, t00=0x0050, t01=0x018c}
0x7ea2…7ec0 Head {h00=0x001a, h01=0x0050, text=» CMP LBIN20,GBINIA(W5)«, t00=0x0051, t01=0x0028}
0x7ec0…7ee2 Head {h00=0x001e, h01=0x0050, text=» BG STR980 STACK OVERFLOW «, t00=0x0051, t01=0x0046}
0x7ee2…7eec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0068}
0x7eec…7f0a Head {h00=0x001a, h01=0x0050, text=»* STRING CONSTANT «, t00=0x0051, t01=0x0072}
0x7f0a…7f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0090}
0x7f14…7f22 Head {h00=0x000a, h01=0x0050, text=»STR000«, t00=0x0051, t01=0x009a}
0x7f22…7f50 Head {h00=0x002a, h01=0x0050, text=» MOVE LSTR1,=X'22' LOAD STRING QUOTE "«, t00=0x0051, t01=0x00a8}
0x7f50…7f72 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0051, t01=0x00d6}
0x7f72…7fa8 Head {h00=0x0032, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH " «, t00=0x0051, t01=0x00f8}
0x7fa8…7fd4 Head {h00=0x0028, h01=0x0050, text=» BNOK STR100 JMP IF NOTSTRING QUOTE «, t00=0x0051, t01=0x012e}
0x7fd4…7ff6 Head {h00=0x001e, h01=0x0050, text=» ADD LBIN4,W1 ADJUST FOR "«, t00=0x0051, t01=0x015a}
0x7ff6…802e Head {h00=0x0034, h01=0x0050, text=» MOVE VBIN7,LBIN1 LOAD NUMB OF INPUT CHARACTERS «, t00=0x0051, t01=0x017c}
0x802e…8058 Head {h00=0x0026, h01=0x0050, text=» SUB VBIN7,LBIN4 CALC MATCH LENGTH«, t00=0x0052, t01=0x0024}
0x8058…8086 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN12,LBIN4 LOAD BUFFER POINTER«, t00=0x0052, t01=0x004e}
0x8086…80c2 Head {h00=0x0038, h01=0x0050, text=» MATCH LSTR81,LBIN12,VBIN7,LSTR1,W0,W1 MATCH NEXT " «, t00=0x0052, t01=0x007c}
0x80c2…80ec Head {h00=0x0026, h01=0x0050, text=» BNOK STR980 JMP IF NO STRINGQUOTE«, t00=0x0052, t01=0x00b8}
0x80ec…811c Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN4,LBIN12 STORE 2ND "-POSITION «, t00=0x0052, t01=0x00e2}
0x811c…8148 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST NUMB FOR 2ND " «, t00=0x0052, t01=0x0112}
0x8148…815c Head {h00=0x0010, h01=0x0050, text=» B STR400 OK«, t00=0x0052, t01=0x013e}
0x815c…816a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0152}
0x816a…8174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0160}
0x8174…8192 Head {h00=0x001a, h01=0x0050, text=»* STRING VARIABLE «, t00=0x0052, t01=0x016a}
0x8192…819c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0188}
0x819c…81aa (83, 0, 400) Head {h00=0x000a, h01=0x0050, text=»STR100«, t00=0x0053, t01=0x0004}
0x81aa…81d8 Head {h00=0x002a, h01=0x0050, text=» PERF VARDET ***VARIABLE DETERMINATION«, t00=0x0053, t01=0x0012}
0x81d8…81fa Head {h00=0x001e, h01=0x0050, text=» BNOK STR300 JMP IF NOT OK«, t00=0x0053, t01=0x0040}
0x81fa…822c Head {h00=0x002e, h01=0x0050, text=» TBT VBOOL2,STR200 JMP IF STRING VARIABLE «, t00=0x0053, t01=0x0062}
0x822c…8262 Head {h00=0x0032, h01=0x0050, text=» SUB LBIN4,LBIN17 ADJUST BUFFER POINTER WRONG «, t00=0x0053, t01=0x0094}
0x8262…8280 Head {h00=0x001a, h01=0x0050, text=» B STR980 SYNTAX ERROR«, t00=0x0053, t01=0x00ca}
0x8280…828a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00e8}
0x828a…82c0 Head {h00=0x0032, h01=0x0050, text=»* QUALIFIED STRING VARIABLE ===> SUBSTRING «, t00=0x0053, t01=0x00f2}
0x82c0…82ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0128}
0x82ca…82d8 Head {h00=0x000a, h01=0x0050, text=»STR200«, t00=0x0053, t01=0x0132}
0x82d8…8302 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0053, t01=0x0140}
0x8302…831e Head {h00=0x0018, h01=0x0050, text=» BT STR990 E-O-B OK «, t00=0x0053, t01=0x016a}
0x831e…8328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0186}
0x8328…834c Head {h00=0x0020, h01=0x0050, text=»* BEGIN OF SUBSTRING '(' «, t00=0x0053, t01=0x0190}
0x834c…8356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0024}
0x8356…8386 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS «, t00=0x0054, t01=0x002e}
0x8386…83a8 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0054, t01=0x005e}
0x83a8…83e0 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '(' «, t00=0x0054, t01=0x0080}
0x83e0…8402 Head {h00=0x001e, h01=0x0050, text=» BNOK STR410 NO SUBSTRING «, t00=0x0054, t01=0x00b8}
0x8402…842e Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0054, t01=0x00da}
0x842e…8458 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0054, t01=0x0106}
0x8458…8480 Head {h00=0x0024, h01=0x0050, text=» BT STR980 INCOMPLETE STATEMNET «, t00=0x0054, t01=0x0130}
0x8480…848e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x0158}
0x848e…8498 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0166}
0x8498…84c4 Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x0054, t01=0x0170}
0x84c4…84ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x000c}
0x84ce…8500 Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x0055, t01=0x0016}
0x8500…852a Head {h00=0x0026, h01=0x0050, text=» BNOK STR980 INCOMPLETE STATEMENT «, t00=0x0055, t01=0x0048}
0x852a…8554 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0055, t01=0x0072}
0x8554…857c Head {h00=0x0024, h01=0x0050, text=» BT STR980 INCOMPLETE STATEMENT «, t00=0x0055, t01=0x009c}
0x857c…8586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c4}
0x8586…85aa Head {h00=0x0020, h01=0x0050, text=»* SUBSTRING OPERATOR ':' «, t00=0x0055, t01=0x00ce}
0x85aa…85b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00f2}
0x85b4…85d8 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN3,W19 POINTER:=19 «, t00=0x0055, t01=0x00fc}
0x85d8…8610 Head {h00=0x0034, h01=0x0050, text=» MATCH OPRTS,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ':' «, t00=0x0055, t01=0x0120}
0x8610…863a Head {h00=0x0026, h01=0x0050, text=» BNOK STR980 INCOMPLETE STATEMENT «, t00=0x0055, t01=0x0158}
0x863a…8666 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0055, t01=0x0182}
0x8666…8690 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0056, t01=0x001e}
0x8690…86b8 Head {h00=0x0024, h01=0x0050, text=» BT STR980 INCOMPLETE STATEMENT «, t00=0x0056, t01=0x0048}
0x86b8…86c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0070}
0x86c2…86ee Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x0056, t01=0x007a}
0x86ee…86f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00a6}
0x86f8…872a Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x0056, t01=0x00b0}
0x872a…8754 Head {h00=0x0026, h01=0x0050, text=» BNOK STR980 INCOMPLETE STATEMENT «, t00=0x0056, t01=0x00e2}
0x8754…877e Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0056, t01=0x010c}
0x877e…87a6 Head {h00=0x0024, h01=0x0050, text=» BT STR980 INCOMPLETE STATEMENT «, t00=0x0056, t01=0x0136}
0x87a6…87b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x015e}
0x87b0…87ce Head {h00=0x001a, h01=0x0050, text=»* END OF SUBSTRING «, t00=0x0056, t01=0x0168}
0x87ce…87d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0186}
0x87d8…8808 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS«, t00=0x0056, t01=0x0190}
0x8808…882a Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0057, t01=0x0030}
0x882a…8862 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')' «, t00=0x0057, t01=0x0052}
0x8862…888c Head {h00=0x0026, h01=0x0050, text=» BNOK STR980 INCOMPLETE STATEMENT «, t00=0x0057, t01=0x008a}
0x888c…88b8 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0057, t01=0x00b4}
0x88b8…88cc Head {h00=0x0010, h01=0x0050, text=» B STR400 OK«, t00=0x0057, t01=0x00e0}
0x88cc…88d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00f4}
0x88d6…88f4 Head {h00=0x001a, h01=0x0050, text=»* STRING FUNCTION ?«, t00=0x0057, t01=0x00fe}
0x88f4…88fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x011c}
0x88fe…890c Head {h00=0x000a, h01=0x0050, text=»STR300«, t00=0x0057, t01=0x0126}
0x890c…8930 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN3,W20 POINTER:=20 «, t00=0x0057, t01=0x0134}
0x8930…896c Head {h00=0x0038, h01=0x0050, text=» MATCH OPRTS,LBIN3,W3,LSTR81,LBIN4,W3 MATCH FUNCTION«, t00=0x0057, t01=0x0158}
0x896c…8990 (88, 0, 400) Head {h00=0x0020, h01=0x0050, text=» BNOK STR980 NO FUNCTION NOK«, t00=0x0058, t01=0x0004}
0x8990…89bc Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W3 ADJUST BUFFER POINTER «, t00=0x0058, t01=0x0028}
0x89bc…89e6 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0058, t01=0x0054}
0x89e6…8a0e Head {h00=0x0024, h01=0x0050, text=» BT STR980 INCOMPLETE STATEMENT «, t00=0x0058, t01=0x007e}
0x8a0e…8a1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0058, t01=0x00a6}
0x8a1c…8a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00b4}
0x8a26…8a4e Head {h00=0x0024, h01=0x0050, text=»* BEGIN OF PARAMETER LIST '('«, t00=0x0058, t01=0x00be}
0x8a4e…8a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00e6}
0x8a58…8a88 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS «, t00=0x0058, t01=0x00f0}
0x8a88…8aaa Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0058, t01=0x0120}
0x8aaa…8ae2 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '(' «, t00=0x0058, t01=0x0142}
0x8ae2…8b0c Head {h00=0x0026, h01=0x0050, text=» BNOK STR980 INCOMPLETE STATEMENT «, t00=0x0058, t01=0x017a}
0x8b0c…8b38 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0059, t01=0x0014}
0x8b38…8b62 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0059, t01=0x0040}
0x8b62…8b8a Head {h00=0x0024, h01=0x0050, text=» BT STR980 INCOMPLETE STATEMNET «, t00=0x0059, t01=0x006a}
0x8b8a…8b94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0092}
0x8b94…8bc0 Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x0059, t01=0x009c}
0x8bc0…8bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00c8}
0x8bca…8bfc Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x0059, t01=0x00d2}
0x8bfc…8c26 Head {h00=0x0026, h01=0x0050, text=» BNOK STR980 INCOMPLETE STATEMENT «, t00=0x0059, t01=0x0104}
0x8c26…8c50 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0059, t01=0x012e}
0x8c50…8c78 Head {h00=0x0024, h01=0x0050, text=» BT STR980 INCOMPLTTE STATEMENT «, t00=0x0059, t01=0x0158}
0x8c78…8c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x0180}
0x8c82…8ca4 Head {h00=0x001e, h01=0x0050, text=»* END OF PARAMETER LIST«, t00=0x0059, t01=0x018a}
0x8ca4…8cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x001c}
0x8cae…8cde Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS«, t00=0x005a, t01=0x0026}
0x8cde…8d00 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x005a, t01=0x0056}
0x8d00…8d38 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')' «, t00=0x005a, t01=0x0078}
0x8d38…8d62 Head {h00=0x0026, h01=0x0050, text=» BNOK STR980 INCOMPLETE STATEMENT «, t00=0x005a, t01=0x00b0}
0x8d62…8d8e Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x005a, t01=0x00da}
0x8d8e…8d9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x0106}
0x8d9c…8da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0114}
0x8da6…8dd4 Head {h00=0x002a, h01=0x0050, text=»* CONCATENATED STRING EXPRESSION ? «, t00=0x005a, t01=0x011e}
0x8dd4…8dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x014c}
0x8dde…8dec Head {h00=0x000a, h01=0x0050, text=»STR400«, t00=0x005a, t01=0x0156}
0x8dec…8e16 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x005a, t01=0x0164}
0x8e16…8e32 Head {h00=0x0018, h01=0x0050, text=» BT STR990 E-O-B OK «, t00=0x005a, t01=0x018e}
0x8e32…8e40 Head {h00=0x000a, h01=0x0050, text=»STR410«, t00=0x005b, t01=0x001a}
0x8e40…8e64 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN3,W18 POINTER:=18 «, t00=0x005b, t01=0x0028}
0x8e64…8e9c Head {h00=0x0034, h01=0x0050, text=» MATCH OPRTS,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '&' «, t00=0x005b, t01=0x004c}
0x8e9c…8ec0 Head {h00=0x0020, h01=0x0050, text=» BNOK STR450 NO CONCA EXPR. «, t00=0x005b, t01=0x0084}
0x8ec0…8eec Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x005b, t01=0x00a8}
0x8eec…8f16 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x005b, t01=0x00d4}
0x8f16…8f3e Head {h00=0x0024, h01=0x0050, text=» BT STR980 INCOMPLETE STATEMNET «, t00=0x005b, t01=0x00fe}
0x8f3e…8f56 Head {h00=0x0014, h01=0x0050, text=» B STR000 GO ON «, t00=0x005b, t01=0x0126}
0x8f56…8f64 Head {h00=0x000a, h01=0x0050, text=»STR450«, t00=0x005b, t01=0x013e}
0x8f64…8f92 Head {h00=0x002a, h01=0x0050, text=» SUB LBIN4,VBIN7 ADJUST BUFFERPOINTER «, t00=0x005b, t01=0x014c}
0x8f92…8fa4 Head {h00=0x000e, h01=0x0050, text=» B STR990 «, t00=0x005b, t01=0x017a}
0x8fa4…8fae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x018c}
0x8fae…8fc8 Head {h00=0x0016, h01=0x0050, text=»* SYNTAX ERROR«, t00=0x005c, t01=0x0008}
0x8fc8…8fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0022}
0x8fd2…8fe0 Head {h00=0x000a, h01=0x0050, text=»STR980«, t00=0x005c, t01=0x002c}
0x8fe0…900c Head {h00=0x0028, h01=0x0050, text=» SUB LBIN20,W1 DECREASE STACK INDEX «, t00=0x005c, t01=0x003a}
0x900c…9024 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x005c, t01=0x0066}
0x9024…9036 Head {h00=0x000e, h01=0x0050, text=» B STR999 «, t00=0x005c, t01=0x007e}
0x9036…9040 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0090}
0x9040…9054 Head {h00=0x0010, h01=0x0050, text=»* EXIT OK«, t00=0x005c, t01=0x009a}
0x9054…905e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00ae}
0x905e…906c Head {h00=0x000a, h01=0x0050, text=»STR990«, t00=0x005c, t01=0x00b8}
0x906c…9098 Head {h00=0x0028, h01=0x0050, text=» SUB LBIN20,W1 DECREASE STACK INDEX «, t00=0x005c, t01=0x00c6}
0x9098…90c4 Head {h00=0x0028, h01=0x0050, text=» SET VBOOL2 TRUE =STRING EXPRESSION «, t00=0x005c, t01=0x00f2}
0x90c4…90e0 Head {h00=0x0018, h01=0x0050, text=» CMP W1,W1 CR:=0 OK «, t00=0x005c, t01=0x011e}
0x90e0…90ee Head {h00=0x000a, h01=0x0050, text=»STR999«, t00=0x005c, t01=0x013a}
0x90ee…90fa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005c, t01=0x0148}
0x90fa…9108 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005c, t01=0x0154}
0x9108…9116 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x0162}
0x9116…9120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0170}
0x9120…914e Head {h00=0x002a, h01=0x0050, text=»* ARITHMETC EXPRESSION EVALUATION «, t00=0x005c, t01=0x017a}
0x914e…9158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0018}
0x9158…9180 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: CR = 0 OK «, t00=0x005d, t01=0x0022}
0x9180…91ac Head {h00=0x0028, h01=0x0050, text=»* = 1 NOT OK «, t00=0x005d, t01=0x004a}
0x91ac…91b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0076}
0x91b6…9206 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x005d, t01=0x0080}
0x9206…921a Head {h00=0x0010, h01=0x0050, text=»ARTEXP PROC «, t00=0x005d, t01=0x00d0}
0x921a…9246 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN20,W1 INCREMENT-STACK-INDEX«, t00=0x005d, t01=0x00e4}
0x9246…9264 Head {h00=0x001a, h01=0x0050, text=» CMP LBIN20,GBINIA(W5)«, t00=0x005d, t01=0x0110}
0x9264…9286 Head {h00=0x001e, h01=0x0050, text=» BG ART980 STACK OVERFLOW «, t00=0x005d, t01=0x012e}
0x9286…9290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0150}
0x9290…92ac Head {h00=0x0018, h01=0x0050, text=»* SIGNED FACTOR «, t00=0x005d, t01=0x015a}
0x92ac…92b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0176}
0x92b6…92c4 Head {h00=0x000a, h01=0x0050, text=»ART000«, t00=0x005d, t01=0x0180}
0x92c4…92e8 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN3,W23 POINTER:=23 «, t00=0x005d, t01=0x018e}
0x92e8…9320 Head {h00=0x0034, h01=0x0050, text=» MATCH OPRTS,LBIN3,W2,LSTR81,LBIN4,W1 MATCH '+-'«, t00=0x005e, t01=0x0022}
0x9320…9346 Head {h00=0x0022, h01=0x0050, text=» BNOK ART050 NO SIGNED FACTOR «, t00=0x005e, t01=0x005a}
0x9346…9372 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x005e, t01=0x0080}
0x9372…939c Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x005e, t01=0x00ac}
0x939c…93c4 Head {h00=0x0024, h01=0x0050, text=» BT ART980 INCOMPLETE STATEMNET «, t00=0x005e, t01=0x00d6}
0x93c4…93d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x00fe}
0x93d2…93dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x010c}
0x93dc…93fe Head {h00=0x001e, h01=0x0050, text=»* ARITHMETIC CONSTANT «, t00=0x005e, t01=0x0116}
0x93fe…9408 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0138}
0x9408…9416 Head {h00=0x000a, h01=0x0050, text=»ART050«, t00=0x005e, t01=0x0142}
0x9416…9442 Head {h00=0x0028, h01=0x0050, text=» MOVE VBIN7,W0 NUMB OF CHARACTERS:=0«, t00=0x005e, t01=0x0150}
0x9442…946e Head {h00=0x0028, h01=0x0050, text=» CLEAR VBOOL4 FALSE NO DECIMAL FOUND«, t00=0x005e, t01=0x017c}
0x946e…947c Head {h00=0x000a, h01=0x0050, text=»ART060«, t00=0x005f, t01=0x0018}
0x947c…94b6 Head {h00=0x0036, h01=0x0050, text=» XCOPY LSTR1,W0,W1,LSTR81,LBIN4 GET ONE CHARACTER «, t00=0x005f, t01=0x0026}
0x94b6…94f2 Head {h00=0x0038, h01=0x0050, text=» CBL LSTR1,=X'30',ART070 JMP IF NOT DIGIT BUT . OR ,«, t00=0x005f, t01=0x0060}
0x94f2…9524 Head {h00=0x002e, h01=0x0050, text=» CBG LSTR1,=X'39',ART080 JMP IF NOT DIGIT «, t00=0x005f, t01=0x009c}
0x9524…9532 Head {h00=0x000a, h01=0x0050, text=»ART065«, t00=0x005f, t01=0x00ce}
0x9532…9562 Head {h00=0x002c, h01=0x0050, text=» ADD VBIN7,W1 ADJUST NUMB OF CHARACTERS «, t00=0x005f, t01=0x00dc}
0x9562…958e Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x005f, t01=0x010c}
0x958e…95b2 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,LBIN1 CHECK E-O-B«, t00=0x005f, t01=0x0138}
0x95b2…95cc Head {h00=0x0016, h01=0x0050, text=» BE ART500 OK EXIT«, t00=0x005f, t01=0x015c}
0x95cc…95e4 Head {h00=0x0014, h01=0x0050, text=» B ART060 GO ON «, t00=0x005f, t01=0x0176}
0x95e4…95ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x018e}
0x95ee…9614 Head {h00=0x0022, h01=0x0050, text=»* DECIMAL CHARACTER FOUND ?«, t00=0x0060, t01=0x0008}
0x9614…961e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x002e}
0x961e…962c Head {h00=0x000a, h01=0x0050, text=»ART070«, t00=0x0060, t01=0x0038}
0x962c…9660 Head {h00=0x0030, h01=0x0050, text=» CBNE LSTR1,=C'.',ART080 JMP IF NOT A DIGIT «, t00=0x0060, t01=0x0046}
0x9660…9686 Head {h00=0x0022, h01=0x0050, text=» SET VBOOL4 TRUE DECIMAL FOUND«, t00=0x0060, t01=0x007a}
0x9686…96aa Head {h00=0x0020, h01=0x0050, text=» BOK ART065 OK 1ST DEC CHAR «, t00=0x0060, t01=0x00a0}
0x96aa…96b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00c4}
0x96b4…96ce Head {h00=0x0016, h01=0x0050, text=»* END OF DIGITS«, t00=0x0060, t01=0x00ce}
0x96ce…96d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00e8}
0x96d8…96e6 Head {h00=0x000a, h01=0x0050, text=»ART080«, t00=0x0060, t01=0x00f2}
0x96e6…970c Head {h00=0x0022, h01=0x0050, text=» CBE VBIN7,W0,ART100 NO DIGITS«, t00=0x0060, t01=0x0100}
0x970c…973e Head {h00=0x002e, h01=0x0050, text=» CBG VBIN7,W1,ART500 AT LEAST ONE DIGIT OK«, t00=0x0060, t01=0x0126}
0x973e…976c Head {h00=0x002a, h01=0x0050, text=» TBT VBOOL4,ART980 JMP IF JUST DECIMAL«, t00=0x0060, t01=0x0158}
0x976c…9784 Head {h00=0x0014, h01=0x0050, text=» B ART500 JMP OK«, t00=0x0060, t01=0x0186}
0x9784…9792 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0061, t01=0x000e}
0x9792…979c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x001c}
0x979c…97bc Head {h00=0x001c, h01=0x0050, text=»* ARITHMETIC VARIABLE«, t00=0x0061, t01=0x0026}
0x97bc…97c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0046}
0x97c6…97d4 Head {h00=0x000a, h01=0x0050, text=»ART100«, t00=0x0061, t01=0x0050}
0x97d4…9802 Head {h00=0x002a, h01=0x0050, text=» PERF VARDET ***VARIABLE DETERMINATION«, t00=0x0061, t01=0x005e}
0x9802…982a Head {h00=0x0024, h01=0x0050, text=» BNOK ART200 JMP IF SYNTAX ERROR«, t00=0x0061, t01=0x008c}
0x982a…9860 Head {h00=0x0032, h01=0x0050, text=» TBF VBOOL2,ART500 JMP IF ARITHMETIC VARIABLE «, t00=0x0061, t01=0x00b4}
0x9860…9894 Head {h00=0x0030, h01=0x0050, text=» SUB LBIN4,LBIN17 ADJUST POINTER WRONG TYPE «, t00=0x0061, t01=0x00ea}
0x9894…98b2 Head {h00=0x001a, h01=0x0050, text=» B ART980 SYNTAX ERROR«, t00=0x0061, t01=0x011e}
0x98b2…98bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x013c}
0x98bc…98de Head {h00=0x001e, h01=0x0050, text=»* ARITHMETIC FUNCTION ?«, t00=0x0061, t01=0x0146}
0x98de…98e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0061, t01=0x0168}
0x98e8…98f6 Head {h00=0x000a, h01=0x0050, text=»ART200«, t00=0x0061, t01=0x0172}
0x98f6…9930 Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,OPRTS,VBIN7,LBIN3 ---GET ITEM LENGTH «, t00=0x0061, t01=0x0180}
0x9930…9956 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,=W'29' POINTER:=29«, t00=0x0062, t01=0x002a}
0x9956…9984 Head {h00=0x002a, h01=0x0050, text=» SUB VBIN7,LBIN3 CALC LENGTH TO MATCH «, t00=0x0062, t01=0x0050}
0x9984…99c4 Head {h00=0x003c, h01=0x0050, text=» MATCH OPRTS,LBIN3,VBIN7,LSTR81,LBIN4,W3 MATCH FUNCTION «, t00=0x0062, t01=0x007e}
0x99c4…99e4 Head {h00=0x001c, h01=0x0050, text=» BNOK ART300 NO FUNCTION«, t00=0x0062, t01=0x00be}
0x99e4…9a16 Head {h00=0x002e, h01=0x0050, text=» MOVE LSTACK(LBIN20),W0 OPERATION CODE:=0 «, t00=0x0062, t01=0x00de}
0x9a16…9a52 Head {h00=0x0038, h01=0x0050, text=» XCOPY LSTACK(LBIN20),W1,W1,OPRVAL,LBIN3 GET OP-CODE«, t00=0x0062, t01=0x0110}
0x9a52…9a7e Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W3 ADJUST BUFFER POINTER «, t00=0x0062, t01=0x014c}
0x9a7e…9aa8 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0062, t01=0x0178}
0x9aa8…9ad0 Head {h00=0x0024, h01=0x0050, text=» BT ART980 INCOMPLETE STATEMENT «, t00=0x0063, t01=0x0012}
0x9ad0…9ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x003a}
0x9ada…9b02 Head {h00=0x0024, h01=0x0050, text=»* BEGIN OF PARAMETER LIST '('«, t00=0x0063, t01=0x0044}
0x9b02…9b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x006c}
0x9b0c…9b3c Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS «, t00=0x0063, t01=0x0076}
0x9b3c…9b5e Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0063, t01=0x00a6}
0x9b5e…9b96 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '(' «, t00=0x0063, t01=0x00c8}
0x9b96…9bc0 Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 INCOMPLETE STATEMENT «, t00=0x0063, t01=0x0100}
0x9bc0…9bce Head {h00=0x000a, h01=0x0050, text=»ART210«, t00=0x0063, t01=0x012a}
0x9bce…9bfa Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0063, t01=0x0138}
0x9bfa…9c24 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0063, t01=0x0164}
0x9c24…9c4c Head {h00=0x0024, h01=0x0050, text=» BT ART980 INCOMPLETE STATEMNET «, t00=0x0063, t01=0x018e}
0x9c4c…9c82 Head {h00=0x0032, h01=0x0050, text=» CBL LSTACK(LBIN20),=X'001D',ART230 ARITMETIC «, t00=0x0064, t01=0x0026}
0x9c82…9cb4 Head {h00=0x002e, h01=0x0050, text=» CBL LSTACK(LBIN20),=X'001F',ART220 STRING«, t00=0x0064, t01=0x005c}
0x9cb4…9cea Head {h00=0x0032, h01=0x0050, text=» CBL LSTACK(LBIN20),=X'0021',ART230 ARITHMETIC«, t00=0x0064, t01=0x008e}
0x9cea…9cf8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0064, t01=0x00c4}
0x9cf8…9d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00d2}
0x9d02…9d2a Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED «, t00=0x0064, t01=0x00dc}
0x9d2a…9d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0104}
0x9d34…9d42 Head {h00=0x000a, h01=0x0050, text=»ART220«, t00=0x0064, t01=0x010e}
0x9d42…9d70 Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x0064, t01=0x011c}
0x9d70…9d9a Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 INCOMPLETE STATEMENT «, t00=0x0064, t01=0x014a}
0x9d9a…9dac Head {h00=0x000e, h01=0x0050, text=» B ART240 «, t00=0x0064, t01=0x0174}
0x9dac…9db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0186}
0x9db6…9de2 Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x0064, t01=0x0190}
0x9de2…9dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x002c}
0x9dec…9dfa Head {h00=0x000a, h01=0x0050, text=»ART230«, t00=0x0065, t01=0x0036}
0x9dfa…9e2c Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x0065, t01=0x0044}
0x9e2c…9e56 Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 INCOMPLETE STATEMENT «, t00=0x0065, t01=0x0076}
0x9e56…9e64 Head {h00=0x000a, h01=0x0050, text=»ART240«, t00=0x0065, t01=0x00a0}
0x9e64…9e8e Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0065, t01=0x00ae}
0x9e8e…9eb6 Head {h00=0x0024, h01=0x0050, text=» BT ART980 INCOMPLTTE STATEMENT «, t00=0x0065, t01=0x00d8}
0x9eb6…9ef4 Head {h00=0x003a, h01=0x0050, text=» CBL LSTACK(LBIN20),=X'001F',ART250 JMP NO MORE PARAM «, t00=0x0065, t01=0x0100}
0x9ef4…9efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x013e}
0x9efe…9f2e Head {h00=0x002c, h01=0x0050, text=»* PARAMETER EXPRESSION SEPARATOR ',' «, t00=0x0065, t01=0x0148}
0x9f2e…9f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0178}
0x9f38…9f66 Head {h00=0x002a, h01=0x0050, text=» SUB LSTACK(LBIN20),W4 ADJUST OP-CODE «, t00=0x0065, t01=0x0182}
0x9f66…9f92 Head {h00=0x0028, h01=0x0050, text=» MOVE LSTR1,=C',' LOAD PAR-SEPARATOR«, t00=0x0066, t01=0x0020}
0x9f92…9fb0 Head {h00=0x001a, h01=0x0050, text=» MOVE LBIN3,W0 POINT0 «, t00=0x0066, t01=0x004c}
0x9fb0…9fe8 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ',' «, t00=0x0066, t01=0x006a}
0x9fe8…a012 Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 INCOMPLETE STATEMENT «, t00=0x0066, t01=0x00a2}
0xa012…a032 Head {h00=0x001c, h01=0x0050, text=» B ART210 NEXT PARAMETER«, t00=0x0066, t01=0x00cc}
0xa032…a040 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x00ec}
0xa040…a04a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00fa}
0xa04a…a06c Head {h00=0x001e, h01=0x0050, text=»* END OF PARAMETER LIST«, t00=0x0066, t01=0x0104}
0xa06c…a076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0126}
0xa076…a084 Head {h00=0x000a, h01=0x0050, text=»ART250«, t00=0x0066, t01=0x0130}
0xa084…a0b4 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS«, t00=0x0066, t01=0x013e}
0xa0b4…a0d6 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0066, t01=0x016e}
0xa0d6…a10e Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')' «, t00=0x0066, t01=0x0190}
0xa10e…a138 Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 INCOMPLETE STATEMENT «, t00=0x0067, t01=0x0038}
0xa138…a164 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0067, t01=0x0062}
0xa164…a176 Head {h00=0x000e, h01=0x0050, text=» B ART500 «, t00=0x0067, t01=0x008e}
0xa176…a184 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0067, t01=0x00a0}
0xa184…a18e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00ae}
0xa18e…a1ca Head {h00=0x0038, h01=0x0050, text=»* PRIORED EXPRESSION ( <ARITHMETIC EXPRESSION> )«, t00=0x0067, t01=0x00b8}
0xa1ca…a1f6 Head {h00=0x0028, h01=0x0050, text=»* BEGIN OF PRIORED EXPRESSION '('«, t00=0x0067, t01=0x00f4}
0xa1f6…a200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0120}
0xa200…a20e Head {h00=0x000a, h01=0x0050, text=»ART300«, t00=0x0067, t01=0x012a}
0xa20e…a23e Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS «, t00=0x0067, t01=0x0138}
0xa23e…a260 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0067, t01=0x0168}
0xa260…a298 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH '(' «, t00=0x0067, t01=0x018a}
0xa298…a2c2 Head {h00=0x0026, h01=0x0050, text=» BNOK ART500 NO PRIORED EXPRESSION«, t00=0x0068, t01=0x0032}
0xa2c2…a2ee Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0068, t01=0x005c}
0xa2ee…a318 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0068, t01=0x0088}
0xa318…a340 Head {h00=0x0024, h01=0x0050, text=» BT ART980 INCOMPLETE STATEMNET «, t00=0x0068, t01=0x00b2}
0xa340…a34a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00da}
0xa34a…a376 Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x0068, t01=0x00e4}
0xa376…a380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0110}
0xa380…a3b2 Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x0068, t01=0x011a}
0xa3b2…a3dc Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 INCOMPLETE STATEMENT «, t00=0x0068, t01=0x014c}
0xa3dc…a406 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0068, t01=0x0176}
0xa406…a42e Head {h00=0x0024, h01=0x0050, text=» BT ART980 INCOMPLETE STATEMENT «, t00=0x0069, t01=0x0010}
0xa42e…a43c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x0038}
0xa43c…a446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0046}
0xa446…a46c Head {h00=0x0022, h01=0x0050, text=»* END OF PRIORED EXPRESSION«, t00=0x0069, t01=0x0050}
0xa46c…a476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0076}
0xa476…a4a6 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C')' LOAD RIGHT PARENTHESIS«, t00=0x0069, t01=0x0080}
0xa4a6…a4c8 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0069, t01=0x00b0}
0xa4c8…a500 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN4,W1 MATCH ')' «, t00=0x0069, t01=0x00d2}
0xa500…a52a Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 INCOMPLETE STATEMENT «, t00=0x0069, t01=0x010a}
0xa52a…a556 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0069, t01=0x0134}
0xa556…a564 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0069, t01=0x0160}
0xa564…a56e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x016e}
0xa56e…a59e Head {h00=0x002c, h01=0x0050, text=»* COMBINED FACTOR MULTIPLY OPERATOR «, t00=0x0069, t01=0x0178}
0xa59e…a5a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0018}
0xa5a8…a5b6 Head {h00=0x000a, h01=0x0050, text=»ART500«, t00=0x006a, t01=0x0022}
0xa5b6…a5e0 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x006a, t01=0x0030}
0xa5e0…a602 Head {h00=0x001e, h01=0x0050, text=» BT ART990 END OF LINE OK «, t00=0x006a, t01=0x005a}
0xa602…a628 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,=W'27' POINTER:=27«, t00=0x006a, t01=0x007c}
0xa628…a660 Head {h00=0x0034, h01=0x0050, text=» MATCH OPRTS,LBIN3,W2,LSTR81,LBIN4,W1 MATCH '/*'«, t00=0x006a, t01=0x00a2}
0xa660…a68a Head {h00=0x0026, h01=0x0050, text=» BNOK ART600 NO MULTIPLY OPERATOR «, t00=0x006a, t01=0x00da}
0xa68a…a6b6 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x006a, t01=0x0104}
0xa6b6…a6e0 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x006a, t01=0x0130}
0xa6e0…a708 Head {h00=0x0024, h01=0x0050, text=» BT ART980 INCOMPLETE STATEMENT «, t00=0x006a, t01=0x015a}
0xa708…a720 Head {h00=0x0014, h01=0x0050, text=» B ART050 GO ON «, t00=0x006a, t01=0x0182}
0xa720…a72a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x000a}
0xa72a…a75e Head {h00=0x0030, h01=0x0050, text=»* COMBINED EXPRESSION ADDING OPERATOR ? «, t00=0x006b, t01=0x0014}
0xa75e…a768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x0048}
0xa768…a776 Head {h00=0x000a, h01=0x0050, text=»ART600«, t00=0x006b, t01=0x0052}
0xa776…a79c Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,=W'25' POINTER:=25«, t00=0x006b, t01=0x0060}
0xa79c…a7d4 Head {h00=0x0034, h01=0x0050, text=» MATCH OPRTS,LBIN3,W2,LSTR81,LBIN4,W1 MATCH '+-'«, t00=0x006b, t01=0x0086}
0xa7d4…a7fa Head {h00=0x0022, h01=0x0050, text=» BNOK ART650 NO SIGN-OPERATOR «, t00=0x006b, t01=0x00be}
0xa7fa…a826 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x006b, t01=0x00e4}
0xa826…a850 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x006b, t01=0x0110}
0xa850…a878 Head {h00=0x0024, h01=0x0050, text=» BT ART980 INCOMPLETE STATEMNET «, t00=0x006b, t01=0x013a}
0xa878…a890 Head {h00=0x0014, h01=0x0050, text=» B ART050 GO ON «, t00=0x006b, t01=0x0162}
0xa890…a89e Head {h00=0x000a, h01=0x0050, text=»ART650«, t00=0x006b, t01=0x017a}
0xa89e…a8cc Head {h00=0x002a, h01=0x0050, text=» SUB LBIN4,VBIN7 ADJUST BUFFER POINTER«, t00=0x006b, t01=0x0188}
0xa8cc…a8e6 Head {h00=0x0016, h01=0x0050, text=» B ART990 OK EXIT «, t00=0x006c, t01=0x0026}
0xa8e6…a8f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x0040}
0xa8f4…a8fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x004e}
0xa8fe…a918 Head {h00=0x0016, h01=0x0050, text=»* SYNTAX ERROR «, t00=0x006c, t01=0x0058}
0xa918…a922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0072}
0xa922…a930 Head {h00=0x000a, h01=0x0050, text=»ART980«, t00=0x006c, t01=0x007c}
0xa930…a95c Head {h00=0x0028, h01=0x0050, text=» SUB LBIN20,W1 DECREASE STACK-INDEX «, t00=0x006c, t01=0x008a}
0xa95c…a974 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x006c, t01=0x00b6}
0xa974…a986 Head {h00=0x000e, h01=0x0050, text=» B ART999 «, t00=0x006c, t01=0x00ce}
0xa986…a990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00e0}
0xa990…a9a4 Head {h00=0x0010, h01=0x0050, text=»* OK EXIT «, t00=0x006c, t01=0x00ea}
0xa9a4…a9ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x00fe}
0xa9ae…a9bc Head {h00=0x000a, h01=0x0050, text=»ART990«, t00=0x006c, t01=0x0108}
0xa9bc…a9e8 Head {h00=0x0028, h01=0x0050, text=» SUB LBIN20,W1 DECREASE STACK-INDEX «, t00=0x006c, t01=0x0116}
0xa9e8…aa16 Head {h00=0x002a, h01=0x0050, text=» CLEAR VBOOL2 FALSE = ARITHMETIC EXPR «, t00=0x006c, t01=0x0142}
0xaa16…aa2e Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x006c, t01=0x0170}
0xaa2e…aa3c Head {h00=0x000a, h01=0x0050, text=»ART999«, t00=0x006c, t01=0x0188}
0xaa3c…aa48 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x006d, t01=0x0008}
0xaa48…aa56 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x006d, t01=0x0014}
0xaa56…aa64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x0022}
0xaa64…aa6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0030}
0xaa6e…aa8c Head {h00=0x001a, h01=0x0050, text=»* LABEL LINE NUMBER«, t00=0x006d, t01=0x003a}
0xaa8c…aa96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0058}
0xaa96…aac4 Head {h00=0x002a, h01=0x0050, text=»* INPUT : LSTR81 = BASIC LINE«, t00=0x006d, t01=0x0062}
0xaac4…aafa Head {h00=0x0032, h01=0x0050, text=»* LBIN4 = BASIC LINE POINTER«, t00=0x006d, t01=0x0090}
0xaafa…ab32 Head {h00=0x0034, h01=0x0050, text=»* LBIN1 = INPUT BUFFER LENGTH «, t00=0x006d, t01=0x00c6}
0xab32…ab82 Head {h00=0x004c, h01=0x0050, text=»* LENGTH = (FORMAL) MAX LENGTH OF NUMBER TO BE CONTROLL«, t00=0x006d, t01=0x00fe}
0xab82…ab8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x014e}
0xab8c…abac Head {h00=0x001c, h01=0x0050, text=»* USED : LSTR1 «, t00=0x006d, t01=0x0158}
0xabac…abb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0178}
0xabb6…abde Head {h00=0x0024, h01=0x0050, text=»* OUTPUT : CR = 0 OK«, t00=0x006d, t01=0x0182}
0xabde…ac0a Head {h00=0x0028, h01=0x0050, text=»* = 1 NOT OK«, t00=0x006e, t01=0x001a}
0xac0a…ac4c Head {h00=0x003e, h01=0x0050, text=»* VBIN7 = NUMBER OF EXPRESSION CHARACTER«, t00=0x006e, t01=0x0046}
0xac4c…ac56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0088}
0xac56…aca6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x006e, t01=0x0092}
0xaca6…acc0 Head {h00=0x0016, h01=0x0050, text=»LABLIN PROC LENGTH«, t00=0x006e, t01=0x00e2}
0xacc0…acd4 Head {h00=0x0010, h01=0x0050, text=» PBIN LENGTH«, t00=0x006e, t01=0x00fc}
0xacd4…acfe Head {h00=0x0026, h01=0x0050, text=» CALL ICLEAR,LSTR4A ---CLEAR ITEM «, t00=0x006e, t01=0x0110}
0xacfe…ad2e Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN7,W0 NUMB OF LINE-NUMB CHARS: «, t00=0x006e, t01=0x013a}
0xad2e…ad3c Head {h00=0x000a, h01=0x0050, text=»LAB100«, t00=0x006e, t01=0x016a}
0xad3c…ad76 Head {h00=0x0036, h01=0x0050, text=» XCOPY LSTR1,W0,W1,LSTR81,LBIN4 GET ONE CHARACTER «, t00=0x006e, t01=0x0178}
0xad76…adaa Head {h00=0x0030, h01=0x0050, text=» CBL LSTR1,=X'30',LAB150 JMP IF NOT A DIGIT «, t00=0x006f, t01=0x0022}
0xadaa…adde Head {h00=0x0030, h01=0x0050, text=» CBG LSTR1,=X'39',LAB150 JMP IF NOT A DIGIT «, t00=0x006f, t01=0x0056}
0xadde…ae12 Head {h00=0x0030, h01=0x0050, text=» XCOPY LSTR4A,VBIN7,W1,LSTR1,W0 STORE DIGIT «, t00=0x006f, t01=0x008a}
0xae12…ae42 Head {h00=0x002c, h01=0x0050, text=» ADD VBIN7,W1 ADJUST LINE NUMBER LENGTH «, t00=0x006f, t01=0x00be}
0xae42…ae66 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN4,W1 ADJUST POINTER«, t00=0x006f, t01=0x00ee}
0xae66…ae92 Head {h00=0x0028, h01=0x0050, text=» CBE LBIN4,LBIN1,LAB150 JMP IF E-O-B«, t00=0x006f, t01=0x0112}
0xae92…aec8 Head {h00=0x0032, h01=0x0050, text=» CBNE VBIN7,LENGTH,LAB100 JMP IF NOT MAXLENGTH«, t00=0x006f, t01=0x013e}
0xaec8…aed6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006f, t01=0x0174}
0xaed6…aee4 Head {h00=0x000a, h01=0x0050, text=»LAB150«, t00=0x006f, t01=0x0182}
0xaee4…af12 Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,LSTR4A ---CHECK IF EMPTY «, t00=0x006f, t01=0x0190}
0xaf12…af3c Head {h00=0x0026, h01=0x0050, text=» BNOK LAB980 JMP IF NO LINE NUMBER«, t00=0x0070, t01=0x002e}
0xaf3c…af6a Head {h00=0x002a, h01=0x0050, text=» MOVE LINNO(W9),LSTR4A CONVERT TO BCD «, t00=0x0070, t01=0x0058}
0xaf6a…af9a Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN3,LINNO(W9) CONVERT TO BINARY «, t00=0x0070, t01=0x0086}
0xaf9a…afca Head {h00=0x002c, h01=0x0050, text=» CBL LBIN3,W1,LAB160 JMP IF OUT OF RANGE«, t00=0x0070, t01=0x00b6}
0xafca…b000 Head {h00=0x0032, h01=0x0050, text=» CBG LBIN3,=X'07FF',LAB980 JMP IF OUT OF RANGE«, t00=0x0070, t01=0x00e6}
0xb000…b012 Head {h00=0x000e, h01=0x0050, text=» B LAB990 «, t00=0x0070, t01=0x011c}
0xb012…b020 Head {h00=0x000a, h01=0x0050, text=»LAB160«, t00=0x0070, t01=0x012e}
0xb020…b05a Head {h00=0x0036, h01=0x0050, text=» CBNE VBIN6,W12,LAB980 JMP IF NOT 'CALL'-FUNCTION «, t00=0x0070, t01=0x013c}
0xb05a…b088 Head {h00=0x002a, h01=0x0050, text=» CBE LBIN3,W0,LAB990 0=OK WHEN 'CALL' «, t00=0x0070, t01=0x0176}
0xb088…b0a4 Head {h00=0x0018, h01=0x0050, text=» B LAB980 JMP NOT OK«, t00=0x0071, t01=0x0014}
0xb0a4…b0ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0030}
0xb0ae…b0d0 Head {h00=0x001e, h01=0x0050, text=»* LINE NUMBER FOUND OK«, t00=0x0071, t01=0x003a}
0xb0d0…b0da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x005c}
0xb0da…b0e8 Head {h00=0x000a, h01=0x0050, text=»LAB990«, t00=0x0071, t01=0x0066}
0xb0e8…b100 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x0071, t01=0x0074}
0xb100…b116 Head {h00=0x0012, h01=0x0050, text=» B LAB999 EXIT«, t00=0x0071, t01=0x008c}
0xb116…b120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00a2}
0xb120…b13a Head {h00=0x0016, h01=0x0050, text=»* SYNTAX ERROR «, t00=0x0071, t01=0x00ac}
0xb13a…b144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00c6}
0xb144…b152 Head {h00=0x000a, h01=0x0050, text=»LAB980«, t00=0x0071, t01=0x00d0}
0xb152…b16a Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x0071, t01=0x00de}
0xb16a…b178 Head {h00=0x000a, h01=0x0050, text=»LAB999«, t00=0x0071, t01=0x00f6}
0xb178…b184 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0071, t01=0x0104}
0xb184…b192 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0071, t01=0x0110}
0xb192…b1a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0071, t01=0x011e}
0xb1a0…b1aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x012c}
0xb1aa…b1ca Head {h00=0x001c, h01=0x0050, text=»* DECORATION SEARCH «, t00=0x0071, t01=0x0136}
0xb1ca…b1d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x0156}
0xb1d4…b1fe Head {h00=0x0026, h01=0x0050, text=»* INPUT : LSTR81 = BASIC LINE «, t00=0x0071, t01=0x0160}
0xb1fe…b230 Head {h00=0x002e, h01=0x0050, text=»* LBIN4 = BASIC LINE POINTER «, t00=0x0071, t01=0x018a}
0xb230…b264 Head {h00=0x0030, h01=0x0050, text=»* LBIN1 = LENGTH OF BASIC LINE «, t00=0x0072, t01=0x002c}
0xb264…b2a0 Head {h00=0x0038, h01=0x0050, text=»* DSTLEN = (FORMAL) DECOR-STRING LENGTH «, t00=0x0072, t01=0x0060}
0xb2a0…b2cc Head {h00=0x0028, h01=0x0050, text=»* DECOR = DECOR STRING «, t00=0x0072, t01=0x009c}
0xb2cc…b2d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x00c8}
0xb2d6…b2f2 Head {h00=0x0018, h01=0x0050, text=»* USED : LSTR1 «, t00=0x0072, t01=0x00d2}
0xb2f2…b30e Head {h00=0x0018, h01=0x0050, text=»* LBIN3 «, t00=0x0072, t01=0x00ee}
0xb30e…b32a Head {h00=0x0018, h01=0x0050, text=»* LBIN17«, t00=0x0072, t01=0x010a}
0xb32a…b334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0126}
0xb334…b358 Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: CR = 0 OK «, t00=0x0072, t01=0x0130}
0xb358…b380 Head {h00=0x0024, h01=0x0050, text=»* = 1 NOT OK «, t00=0x0072, t01=0x0154}
0xb380…b38a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x017c}
0xb38a…b3da Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0072, t01=0x0186}
0xb3da…b3f4 Head {h00=0x0016, h01=0x0050, text=»DECSEA PROC DSTLEN«, t00=0x0073, t01=0x0046}
0xb3f4…b408 Head {h00=0x0010, h01=0x0050, text=» PBIN DSTLEN«, t00=0x0073, t01=0x0060}
0xb408…b416 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x0074}
0xb416…b420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0082}
0xb420…b442 Head {h00=0x001e, h01=0x0050, text=»* DECORATION DELIMITER«, t00=0x0073, t01=0x008c}
0xb442…b44c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00ae}
0xb44c…b47a Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN17,LBIN4 SAVE BUFFER POINTER«, t00=0x0073, t01=0x00b8}
0xb47a…b4a8 Head {h00=0x002a, h01=0x0050, text=» MOVE LSTR1,=X'22' LOAD STRING QUOTE "«, t00=0x0073, t01=0x00e6}
0xb4a8…b4ca Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0073, t01=0x0114}
0xb4ca…b500 Head {h00=0x0032, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN17,W1 MATCH "«, t00=0x0073, t01=0x0136}
0xb500…b526 Head {h00=0x0022, h01=0x0050, text=» BNOK DEC980 JMP IF NOT FOUND «, t00=0x0073, t01=0x016c}
0xb526…b552 (116, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ADD LBIN17,W1 ADJUST BUFFER POINTER«, t00=0x0074, t01=0x0004}
0xb552…b57e Head {h00=0x0028, h01=0x0050, text=» CMP LBIN17,LBIN1 CHECK END OF LINE «, t00=0x0074, t01=0x0030}
0xb57e…b59e Head {h00=0x001c, h01=0x0050, text=» BE DEC980 JMP IF E-O-B «, t00=0x0074, t01=0x005c}
0xb59e…b5a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x007c}
0xb5a8…b5c6 Head {h00=0x001a, h01=0x0050, text=»* DECORATION VERB «, t00=0x0074, t01=0x0086}
0xb5c6…b5d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00a4}
0xb5d0…b5e6 Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN3,W0«, t00=0x0074, t01=0x00ae}
0xb5e6…b624 Head {h00=0x003a, h01=0x0050, text=» MATCH DECOR,LBIN3,DSTLEN,LSTR81,LBIN17,W2 MATCH DECOR«, t00=0x0074, t01=0x00c4}
0xb624…b64a Head {h00=0x0022, h01=0x0050, text=» BNOK DEC980 JMP IF NOT FOUND «, t00=0x0074, t01=0x0102}
0xb64a…b67e Head {h00=0x0030, h01=0x0050, text=» XCOPY LSTR1,W0,W1,DECVAL,LBIN3 GET OP-CODE «, t00=0x0074, t01=0x0128}
0xb67e…b6ac Head {h00=0x002a, h01=0x0050, text=» CBE LSTR1,=X'FF',DEC980 JMP IF FILLER«, t00=0x0074, t01=0x015c}
0xb6ac…b6d8 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN17,W2 ADJUST BUFFER POINTER«, t00=0x0074, t01=0x018a}
0xb6d8…b6fe Head {h00=0x0022, h01=0x0050, text=» CMP LBIN17,LBIN1 CHECK E-O-B «, t00=0x0075, t01=0x0026}
0xb6fe…b710 Head {h00=0x000e, h01=0x0050, text=» BE DEC980«, t00=0x0075, t01=0x004c}
0xb710…b71a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x005e}
0xb71a…b73e Head {h00=0x0020, h01=0x0050, text=»* DECORATION DELIMITER " «, t00=0x0075, t01=0x0068}
0xb73e…b748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x008c}
0xb748…b776 Head {h00=0x002a, h01=0x0050, text=» MOVE LSTR1,=X'22' LOAD STRING QUOTE "«, t00=0x0075, t01=0x0096}
0xb776…b798 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0075, t01=0x00c4}
0xb798…b7ce Head {h00=0x0032, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,LSTR81,LBIN17,W1 MATCH "«, t00=0x0075, t01=0x00e6}
0xb7ce…b7f4 Head {h00=0x0022, h01=0x0050, text=» BNOK DEC980 JMP IF NOT FOUND «, t00=0x0075, t01=0x011c}
0xb7f4…b802 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x0142}
0xb802…b80c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0150}
0xb80c…b820 Head {h00=0x0010, h01=0x0050, text=»* OK EXIT«, t00=0x0075, t01=0x015a}
0xb820…b82a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x016e}
0xb82a…b856 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W4 ADJUST BUFFER POINTER «, t00=0x0075, t01=0x0178}
0xb856…b872 Head {h00=0x0018, h01=0x0050, text=» CMP W1,W1 CR:=0 OK «, t00=0x0076, t01=0x0014}
0xb872…b884 Head {h00=0x000e, h01=0x0050, text=» B DEC999 «, t00=0x0076, t01=0x0030}
0xb884…b88e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0042}
0xb88e…b8a8 Head {h00=0x0016, h01=0x0050, text=»* SYNTAX ERROR «, t00=0x0076, t01=0x004c}
0xb8a8…b8b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0066}
0xb8b2…b8c0 Head {h00=0x000a, h01=0x0050, text=»DEC980«, t00=0x0076, t01=0x0070}
0xb8c0…b8d8 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x0076, t01=0x007e}
0xb8d8…b8e6 Head {h00=0x000a, h01=0x0050, text=»DEC999«, t00=0x0076, t01=0x0096}
0xb8e6…b8f2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0076, t01=0x00a4}
0xb8f2…b900 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0076, t01=0x00b0}
0xb900…b90e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x00be}
0xb90e…b918 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00cc}
0xb918…b932 Head {h00=0x0016, h01=0x0050, text=»* CLEAR LSTACK «, t00=0x0076, t01=0x00d6}
0xb932…b93c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00f0}
0xb93c…b96e Head {h00=0x002e, h01=0x0050, text=»* INPUT : LSTACK = STACK-INFORMATION«, t00=0x0076, t01=0x00fa}
0xb96e…b978 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x012c}
0xb978…b9a4 Head {h00=0x0028, h01=0x0050, text=»* USED : LBIN20 = STACK-INDEX«, t00=0x0076, t01=0x0136}
0xb9a4…b9ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x0162}
0xb9ae…b9de Head {h00=0x002c, h01=0x0050, text=»* OUPUT : LBIN20 = STACK-INDEX = 0«, t00=0x0076, t01=0x016c}
0xb9de…b9e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x000c}
0xb9e8…ba38 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0077, t01=0x0016}
0xba38…ba4c Head {h00=0x0010, h01=0x0050, text=»CLRLST PROC «, t00=0x0077, t01=0x0066}
0xba4c…ba92 Head {h00=0x0042, h01=0x0050, text=» CALL GETIND,LSTACK(W1),LBIN20,LBIN3 ---GET LENGTH & DIMENSION«, t00=0x0077, t01=0x007a}
0xba92…bab8 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN20,W1 STACK-INDEX:=1«, t00=0x0077, t01=0x00c0}
0xbab8…bac6 Head {h00=0x000a, h01=0x0050, text=»CLR010«, t00=0x0077, t01=0x00e6}
0xbac6…baf8 Head {h00=0x002e, h01=0x0050, text=» CALL ICLEAR,LSTACK(LBIN20) ---CLEAR ITEM «, t00=0x0077, t01=0x00f4}
0xbaf8…bb24 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN20,W1 INCREMENT STACK-INDEX«, t00=0x0077, t01=0x0126}
0xbb24…bb52 Head {h00=0x002a, h01=0x0050, text=» CMP LBIN20,LBIN3 WHOLE STACK CLEARED «, t00=0x0077, t01=0x0152}
0xbb52…bb64 Head {h00=0x000e, h01=0x0050, text=» BG CLR999«, t00=0x0077, t01=0x0180}
0xbb64…bb7c (120, 2, 236) Head {h00=0x0014, h01=0x0050, text=» B CLR010 GO ON «, t00=0x0078, t01=0x0004}
0xbb7c…bb8a Head {h00=0x000a, h01=0x0050, text=»CLR999«, t00=0x0078, t01=0x001c}
0xbb8a…bbb0 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN20,W0 STACK INDEX:=0«, t00=0x0078, t01=0x002a}
0xbbb0…bbea Head {h00=0x0036, h01=0x0050, text=» CALL WXDIV,LBIN3,W2,LBIN3 DIVIDE STACK DIMENSION «, t00=0x0078, t01=0x0050}
0xbbea…bc22 Head {h00=0x0034, h01=0x0050, text=» MOVE GBINIA(W5),LBIN3 LOAD DIMENSION FOR SYNTAX«, t00=0x0078, t01=0x008a}
0xbc22…bc2e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0078, t01=0x00c2}
0xbc2e…bc3c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0078, t01=0x00ce}
0xbc3c…bc48 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0078, t01=0x00dc}
0xbc48…bc4c Head {h00=0x4004, h01=0x0000}
0xbc4c…bc50 00 78 00 e8 ┆ x ┆
0xbc50…bc58 (121, 1, 8) 20 04 00 00 00 79 00 04 ┆ y ┆
0xbc58…bca8 (122, 0, 400) 00 09 01 86 00 0e 00 09 00 04 14 07 04 b5 00 01 28 36 00 0a 00 08 00 4a 00 46 00 22 00 44 04 80 10 11 bd 10 23 6b 2b 0b 02 b8 11 00 b1 b9 b8 41 b5 80 00 57 9b 64 af b3 11 6b 10 01 6b 2c 64 af b9 b8 11 6b 10 02 b3 12 5f 79 01 6b 2d 64 af b3 ┆ (6 J F " D #k+ A W d k k,d k _y k-d ┆
0xbca8…bcf8 11 6b 10 01 6b 2e 64 af b9 b8 11 6b 10 62 6b 10 00 0a 00 1a 00 0e 00 09 00 04 14 07 04 c8 00 01 0f 36 00 0a 00 68 00 0c 00 08 00 03 06 06 04 f1 06 0a 00 0a 00 7a 00 0c 00 08 00 03 06 06 04 fd 07 40 00 0a 00 8a 00 4a 00 46 00 22 00 44 04 c0 ┆ k k.d k bk 6 h z @ J F " D ┆
0xbcf8…bd48 11 bd 10 02 b3 12 19 6b 2f c0 00 b9 b8 10 04 b8 11 5f a2 64 af b9 b8 11 6b 10 02 b3 11 00 b1 b9 b8 00 b9 b8 10 04 b8 11 5f 40 02 b8 11 04 63 11 83 00 af b3 14 02 b4 14 00 b9 b8 b3 80 00 20 b5 00 0a 00 9a 00 0c 00 08 00 03 02 06 05 09 03 16 ┆ k/ _ d k _@ c ┆
0xbd48…bd98 00 0a 00 e8 00 0c 00 08 00 03 06 06 05 0b 06 0a 00 0a 00 f8 00 0e 00 09 00 04 14 07 05 14 00 01 00 36 00 0a 01 08 00 10 00 0c 00 05 14 0a 05 18 00 04 21 46 49 44 00 0a 01 1a 00 10 00 0c 00 05 14 0a 05 1d 00 04 21 49 4e 50 00 0a 01 2e 00 0e ┆ 6 !FID !INP . ┆
0xbd98…bde8 00 0a 00 04 10 08 05 3b 20 02 00 20 00 0a 01 42 00 4a 00 46 00 22 00 44 05 00 1c 2e 20 60 b4 2a 40 b8 3f 00 83 00 bd 10 11 02 b4 12 21 6b 30 05 01 6c 31 57 03 01 6c 32 62 af b3 14 6c 10 02 b8 11 00 b9 b8 b3 02 b3 14 5f 32 40 b8 00 b8 11 00 ┆ ; B J F " D . ` *@ ? !k0 l1W l2b l _2@ ┆
0xbde8…be38 (123, 0, 400) b9 b8 10 21 b8 33 05 02 b8 11 00 0a 01 54 00 0e 00 09 00 04 14 07 05 5b 00 01 22 20 00 0b 00 12 00 0c 00 08 00 03 06 06 05 6e 06 0a 00 0b 00 24 00 4a 00 46 00 22 00 44 05 40 5f 0d 00 b8 10 34 00 00 b1 10 62 6b 10 11 37 b1 20 bd 6b 05 02 b1 ┆ ! 3 T [ " n $ J F " D @_ 4 bk 7 k ┆
0xbe38…be88 11 5f 0f 01 6c 34 62 6c 11 12 36 b1 62 af b3 14 6c 10 02 b3 14 34 00 83 00 bd 10 12 6a b1 10 12 bd 10 02 b4 12 00 bb 19 b1 00 00 0b 00 34 00 0e 00 0a 00 04 14 08 05 8a 30 02 b1 00 00 0b 00 82 00 10 00 0b 00 05 14 09 05 8f 30 03 bf 10 00 34 ┆ _ l4bl 6 b l 4 j 4 0 0 4┆
0xbe88…bed8 00 0b 00 94 00 4a 00 46 00 22 00 44 05 80 6d bb 19 66 6d 10 11 25 bb 19 35 10 25 bb 19 36 16 62 af b3 14 6d 11 02 b3 14 57 14 62 af b3 12 6d 13 02 b3 12 57 09 62 af b3 13 6d 12 02 b3 13 34 00 49 b1 0e 20 b5 12 4f 20 b5 10 4b 6a bd 10 00 0b ┆ J F " D m fm % 5 % 6 b m W b m W b m 4 I O Kj ┆
0xbed8…bf28 00 a8 00 0e 00 09 00 04 14 07 05 e5 00 01 ff 10 00 0b 00 f6 00 4a 00 46 00 22 00 44 05 c0 11 b5 11 0e 02 b1 b2 10 68 01 b1 77 bd 10 11 50 00 49 b0 15 00 77 b1 02 77 11 02 b2 11 62 6b 10 11 01 77 11 6b 37 10 57 10 40 b0 02 b1 11 04 77 b1 02 ┆ J F " D h w P I w w bk w k7 W @ w ┆
0xbf28…bf78 b3 11 5f 2e 02 b2 11 49 b1 0c 62 af b3 b2 00 0b 01 08 00 0e 00 09 00 04 14 07 06 19 00 01 ff 10 00 0b 01 56 00 4a 00 46 00 22 00 44 06 00 00 b1 02 b3 b2 02 b3 11 34 00 00 b1 10 00 77 01 62 6b 10 11 30 62 63 21 6b 38 15 02 b1 11 02 63 11 62 ┆ _. I b V J F " D 4 w bk 0bc!k8 c b┆
0xbf78…bfc8 (124, 0, 400) 00 77 11 6b 10 02 77 11 14 b1 02 1e 57 08 02 62 11 00 63 16 5f 28 34 00 00 b1 10 62 6b 10 00 0b 01 68 00 0e 00 09 00 04 14 07 06 45 00 01 22 10 00 0c 00 26 00 0e 00 09 00 04 14 07 06 49 00 01 12 b3 00 0c 00 38 00 0e 00 09 00 04 14 07 06 4d ┆ w k w W b c _(4 bk h E " & I 8 M┆
0xbfc8…c018 00 01 11 10 00 0c 00 4a 00 0e 00 09 00 04 14 07 06 51 00 01 0f b3 00 0c 00 5c 00 0e 00 09 00 04 14 07 06 55 00 01 10 10 00 0c 00 6e 00 0e 00 09 00 04 14 07 06 59 00 01 1e b3 00 0c 00 80 00 0e 00 09 00 04 14 07 06 5d 00 01 16 10 00 0c 00 92 ┆ J Q U n Y ] ┆
0xc018…c068 00 0e 00 09 00 04 14 07 06 63 00 01 3a b3 00 0c 00 a4 00 0e 00 09 00 04 14 07 06 6b 00 01 2c 10 00 0c 00 b6 00 0e 00 09 00 04 14 07 06 73 00 01 29 b3 00 0c 00 c8 00 4a 00 46 00 22 00 44 06 40 11 bd 10 21 6b 39 27 21 6b 3a 2c 21 6b 3b 28 21 ┆ c : k , s ) J F " D @ !k9'!k:,!k;(!┆
0xc068…c0b8 6b 3c 0e 21 6b 3d 1d 23 6b 3e 0e 23 6b 3f 15 57 19 01 6b 40 00 b1 14 57 11 01 6b 41 5f 0a 02 b1 11 01 6b 42 02 b1 11 02 b1 11 34 00 62 6b 10 11 00 0c 00 da 00 0e 00 09 00 04 14 07 06 85 00 01 40 b3 00 0c 01 28 00 0e 00 09 00 04 14 07 06 8b ┆k< !k= #k> #k? W k@ W kA_ kB 4 bk @ ( ┆
0xc0b8…c108 00 01 22 21 00 0c 01 3a 00 0e 00 09 00 04 14 07 06 8f 00 01 21 b3 00 0c 01 4c 00 0e 00 09 00 04 14 07 06 93 00 01 2b 21 00 0c 01 5e 00 0e 00 09 00 04 14 07 06 97 00 01 2d b3 00 0c 01 70 00 0e 00 09 00 04 14 07 06 9b 00 01 28 21 00 0c 01 82 ┆ "! : ! L +! ^ - p (! ┆