|
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: 52490 (0xcd0a)
Notes: pts_type(SC)
Names: »OBJVAL.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:CREA/OBJVAL.SC«
IDENT OBJVAL REL=2.3,850703,870155940230
**********************************************************************
*
* LATEST UPDATE 850703 MADE BY:JE
*
* HISTORY=
* 850703/JE CHECK IF VALBUF EMPTY AFTER MODIFICATION
* 850606/JE CHECK OVFL-ENTRIES IN ATTAB ROUTINE 'VARDET'
* 850509/JE ORDER OF CONTROL CHANGED VARDET BEFORE FUNCTIONS
* 850327/JE SYNTAX ERROR NOT FOUND IN ERR "HI............."
* 850313/JE PERFORMANCE DIRECT MOVE VAL.OBJ. WHEN UNCHANGED
* 850305/JE SECURITY WHEN DISASTER ERRORS (LOST FIDS ETC.)
* 850214/JE FASTER PROCESSING OF EVALUATION OF FID:S
* 841120/CJ MUL&DIV NOW FROM ASS.ROUTINE
* 840921/CJ BASIC ERROR IF FID= AB OR ST - SOLVED
* 831208/CJ ADAPTION TO "NEW" POLICE
* 831205/CJ OBJSTR-> INTERMEDIATE BUFFER OBJCT OF 1 LINE
* 830519/CJ TAKE CARE OF WHEN "VALBUF" IS COMPLETILY FILLED
* 830422/CJ EXTANSION OF ATTRIBUTES "ATTR" SA,CA
*
**********************************************************************
DDUM WSMDDV
PDIV
ENTRY OBJVAL ***OBJECT OF VALIDATION
EXPROC POLICE,PBIN,PBOOL,PBOOL,PSTRG ***POOL LIMIT CONTROLER
EXPROC MOVVAL ***MOVE VALIDATION OBJECT
EXT ICLEAR ---CLEAR ITEM
EXT EMPTYT ---CHECK IF EMPTY
EXT GETIND ---GET ITEM LENGTH
EXT SETB ---SET BIT POSITION
EXT WXMUL ---MULTIPLICATION
EXT WXDIV ---DIVISION
EXT WXSLL ---SHIFT LEFT
EJECT
*
* OBJECT OF VALIDATION
*
* INPUT : VALBUF = VALIDATION BUFFER
* LBIN2 = OPTIONAL ATTRIBUTE CODE = 1
* LBIN20 = TOTAL LENGTH OF OPTIONAL ATTRIBUTES
* GBIN4 = INDEX TO BUFFER POOL
* GBIN5 = POINTER TO BUFFER POOL
*
* USED : LBIN1 = WORK
* LBIN3 = WORK
* LBIN12 = WORK
* SLBIN6 = WORK
* LBIN15 = WORK
* SLBIN5 = WORK
* SLBIN4 = WORK
* LBIN4 = BASIC LINE POINTER
* VBIN1 = SAVED START POINTER OF OPTIONAL VALIDATION
* VBIN2 = LENGTH OF VALIDATION
* VBIN3 = INTER MEDIATE BUFFER POINTER
* VBIN4 = LENGTH-LIMIT OF A SOURCE LINE
* VBIN5 = POINTER START OF STATEMENT
* VBIN6 = OP-CODE
* VBIN7 = WORK
* VBIN8 = LENGTH OF STATEMENT
* OBJSTR = INTERMEDIATE BUFFER OBJECT OF ONE LINE
*
EJECT
* OUTPUT: LBIN20 = LENGTH OF OPTIONAL PART ADJUSTED
* BPOOL = BUFFER POOL STORED WITH VALIDATION OBJECT
* GBIN4 = BUFFER POOL IDEX ADJUSTED IF POOL OVERFLOW
* GBIN5 = BUFFER POOL POINTER ADJUSTED
* SLBIN8 = LINE NUMBER OF DISASTER ERROR
* SLBIN9 = VALBUF-POINTER WHEN DISASTER ERROR FOUND
* CR = 0 OK
* = 1 NOT OK
* = 2 DISASTER ERROR SYNTAX ERROR FOUND
*
************************************************************************
EJECT
OBJVAL PROC
*
* SAVE START ADRESS WHERE OPTIONAL VALIDATION STARTS
* - BUFFER POOL INDEX
* - BUFFER POOL POINTER
*
MOVE LSTR6A,=X'FF' E-O-P-DELIMITER
CLEAR LBOOL4 FALSE NO SPLIT AT POOL CHANGE
CLEAR VBOOL8 F NO COMPULSARY DELIMITER
MOVE VBIN1,W2 NUMBER OF CHARACTERS TO STORE
PERF POLICE,VBIN1,LBOOL4,VBOOL8,LSTR81 ***POOL LIMIT CONTROLER
BG OBJ980 JMP IF MEMORY OVERFLOW
SET LBOOL4 SPLITT AT POOL CHANGE ALLOWED
SET VBOOL8 T COMPULSORY DELIMITER
MOVE VBIN1,GBIN5 STORE POOL-POINTER
XCOPY VBIN1,W0,W1,GBIN4,W1 STORE BUFFER POOL-INDEX
CBNE LBIN1,W0,OBJ010 JJMP IF NOT POOL-LIMIT
ADD GBIN4,W1 NEXT POOL-UNIT
CMP GBIN4,DPBIN CHECK MAX NUMB OF POOL-UNITS
BG OBJ980 JMP IF OVERFLOW
MOVE GBIN5,W4
OBJ010
ADD GBIN5,W2 ADJUST FOR OPT-TYP & LENGTH
*
* MOVE VALIDATION OBJECT IF NO MODIFIED FIELDS/FIELD-TYPE/FIELD-ID
*
TBT CMBOOL,OBJ020 JMP IF FIELD MODIFIED
TBT CHABOL,OBJ020 JMP IF VAL.ROUTINE MODIFIED
CBE VALPTR,W0,OBJ020 JMP IF NO VALIDATION-ROUTINE
PERF MOVVAL ***MOVE VALIDATION OBJECT
BG OBJ980 POOL OVERFLOW
B OBJ990 NORMAL EXIT
OBJ020
CALL EMPTYT,VALBUF ---CHECK IF EMPTY
BOK OBJ030 JMP IF NOT EMPTY
XCOPY GBIN4,W1,W1,VBIN1,W0 STORE BUFFER POOL-INDEX
XCOPY GBIN5,W1,W1,VBIN1,W1 STORE BUFFER POOL-POINTER
B OBJ998
OBJ030
MOVE VBIN2,W2 LENGTH OF VALIDATION:=2
MOVE LBIN4,W0 VALIDATION BUFFER POINTER:=0
EJECT
*
* BASIC LINE INITIALISATION
*
OBJ050
MOVE VBIN4,W0 SOURCE LINE END LIMIT:=0
CBNL LBIN4,VBBIN,OBJ060 JMP IF VALBUF-MAX REACHED
XCOPY VBIN4,W1,W1,VALBUF,LBIN4 GET LENGTH OF SOURCE LINE
OBJ060
CMP VBIN4,W0 CHECK IF END OF VALBUF
BE OBJ990 JMP IF WHOLE VALIDATION DONE
ADD VBIN4,LBIN4 CALC-END-OF-LINE LIMIT
CALL ICLEAR,OBJSTR ---CLEAR ITEM
MOVE VBIN3,W1 INT.MED.BUFFERPOINTER:=1
MOVE SLBIN9,LBIN4 SAVE ST.POINTER OF SOURCE
ADD LBIN4,W1 ADJUST VALBUF POINTER
XCOPY LBIN1,W0,W2,VALBUF,LBIN4 GET LINE NUMBER
MOVE SLBIN8,LBIN1 SAVE LINE NUMBER
ADD LBIN4,W2 ADJUST VALBUF POINTER
*
* CHECK IF INDENTION(LEADING SPACES
*
PERF INDCNT ***INDENTION COUNTING
CALL WXSLL,VBIN7,W11,VBIN7 SHIFT LEFT BIT 0-4
ADD VBIN7,LBIN1 INDENTIONS + LINE NUMBER
*
* STORE INDENTIONS BIT 0-4 + LINE NUMBER 5-15
*
XCOPY OBJSTR,VBIN3,W2,VBIN7,W0 STORE IND+LINE NUMBER
ADD VBIN3,W2 ADJUST INT MED BUFFER POINTER
EJECT
*
* BASIC STATEMENT INITIALIZATION
*
OBJ110
MOVE VBIN5,VBIN3 SAVE START OF STATEMENTPOS
MOVE VBIN8,W2 LENGTH OF STATEMENT:=2
ADD VBIN3,W2 ADJUST INT.MED.BUFFER POINTER
*
* CHECK BASIC VERB
*
CALL GETIND,STMTS,SLBIN6,LBIN3 ---GET ITEM LENGTH
PERF BSVOPC,W2,VBIN6 ***BASIC VERB OP-CODE LENGTH=2
BOK OBJ120 BASIC VERB FOUND
PERF BSVOPC,W3,VBIN6 ***BASIC VERB OP-CODE LENGTH=3
BOK OBJ120 BASIC VERB FOUND
PERF BSVOPC,W4,VBIN6 ***BASIC VERB OP-CODE LENGTH=4
BOK OBJ120 BASIC VERB FOUND
PERF BSVOPC,W5,VBIN6 ***BASIC VERB OP-CODE LENGTH=5
BOK OBJ120 BASIC VERB FOUND
*
* SEPARATOR ; EMPTY STATEMENT ?
*
SUB SLBIN6,W1 ADJUST POINTER
MATCH STMTS,SLBIN6,W1,VALBUF,LBIN4,W1
BNOK OBJ115 JMP IF NOT ;-STATEMENT
XCOPY VBIN6,W1,W1,STVAL,SLBIN6 LOAD OP-CODE ;
ADD LBIN4,W1 ADJUST VALBUF POINTER
B OBJ120
OBJ115
MOVE VBIN6,W0 ALPHANUM.LET WITHOUT L
PERF VARDET ***VARIABLE/!INP/!FID
BNOK OBJ950 JMP IF DISASTER/ERROR
B OBJ152 LET WITHOUT LET
*
* BRANCH ON OPERATION CODE
*
OBJ120
CBE VBIN6,W0,OBJ150 0=ASSIGNMENT
IB VBIN6,OBJ150, 1=ASSIGNMENT LET C
OBJ150, 2=ASSIGNMNET C
OBJ150, 3=ASSIGNMNET LET C
OBJ200, 4=GO TO C
OBJ200, 5=GOTO C
OBJ250, 6=IF ..THEN ..<LINE> C
OBJ980, 7=NOT VALID C
OBJ250, 8=IF ..THEN ..<STMT> C
OBJ980, 9=NOT VALID C
OBJ350, 10=ON .. GO TO.. C
OBJ350, 11=ON .. GOTO.. C
OBJ400, 12=CALL C
OBJ980, 13=NOT VALID C
OBJ450, 14=SECT C
OBJ980, 15=NOT VALID C
OBJ500, 16=ATTR C
OBJ980, 17=NOT VALID C
OBJ550, 18=STOP C
OBJ980, 19=NOT VALID C
OBJ600, 20=EXIT C
OBJ980, 21=NOT VALID C
OBJ650, 22=ERR C
OBJ980, 23=NOT VALID C
OBJ650, 24=WARN C
OBJ980, 25=NOT VALID C
OBJ750, 26=REM C
OBJ980, 27=NOT VALID C
OBJ800 28=;
EJECT
*
* 0,1,2,3 LET <VARIABLE> = <ARITHMETIC EXPRESSION>/<STRING EXPRESSION
*
OBJ150
PERF INDCNT ***INDENTION COUNTING
*
* TARGET VARIABLE
*
PERF VARDET ***VARIABLE DETERMINATION
BNOK OBJ950 JMP IF DISASTER-ERROR
OBJ152
PERF INDCNT ***INDENTION COUNTING
*
* ASSIGNMENT OPERATOR '='
*
OBJ155
ADD LBIN4,W1 ADJUST INPUT BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
PERF CLRLST ***CLEAR STACK
TBF VBOOL2,OBJ160 JMP IF ARITHMETIC EXPR.
*
* STRING EXPRESSION EXPECTED
*
PERF STREXP ***STRING EXPR EVALUATION
BNOK OBJ950 JMP IF DISASTER-ERROR
B OBJ890 END OF STATEMENT
*
* ARITHMETIC EXPRESSION EXPECTED
*
OBJ160
PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION
BNOK OBJ950 JMP IF DISASTER-ERROR
ADD VBIN6,W2 OPERATION-CODE:=03
B OBJ890 END OF STATEMENT
EJECT
*
* 4,5 GO TO/GOTO <LINE-NUMBER>
*
OBJ200
PERF INDCNT ***INDENTION COUNTING
*
* LABEL LINE NUMBER EXPECTED
*
PERF LABLIN,W4 ***LABEL LINE NUMBER
B OBJ890 END OF STATEMENT
EJECT
*
* 6 IF <RELATIONAL EXPRESSION> THEN <LINE>/<STATEMENT>
*
OBJ250
PERF INDCNT ***INDENTION COUNTING
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION
BOK OBJ260 JMP OK
*
* ...OR STRING EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF STREXP ***STRING EXPR EVALUATION
BNOK OBJ950 JMP IF DISASTER-ERROR
EJECT
*
* RELATIONAL OPERATOR
*
OBJ260
PERF INDCNT ***INDENTION COUNTING
MOVE LBIN3,W0 POINTER:=0
MATCH OPRTS,LBIN3,W3,VALBUF,LBIN4,W1
MOVE VBIN7,LBIN3 SAVE FOUND POINTER
CBE VBIN7,W0,OBJ270 JMP IF EQUAL SIGN =
MOVE LBIN3,W3 POINTER:=3
MATCH OPRTS,LBIN3,W6,VALBUF,LBIN4,W2 MATCH FOLLOWING OPERAND
BNOK OBJ270 NO FOLLOWING OPERAND
MOVE VBIN7,LBIN3 SAVE FOUND POINTER
ADD LBIN4,W1 ADJUST BUFFER POINTER
OBJ270
MOVE SLBIN4,W0 RELATIONAL OPERATOR CODE:=0
XCOPY SLBIN4,W1,W1,OPRVAL,VBIN7 LOAD REL.OP-CODE
ADD LBIN4,W1 ADJUST INPUT BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
PERF CLRLST ***CLEAR STACK
TBT VBOOL2,OBJ290 JMP IF STRING EXPRESSION
ADD SLBIN4,W6 ADJUST REL.OP-CODE NUMERIC
EJECT
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION
BNOK OBJ950 JMP IF DISASTER-ERROR
B OBJ300
*
* STRING EXPRESSION EXPECTED
*
OBJ290
PERF STREXP ***STRING EXPR EVALUATION
BNOK OBJ950 JMP IF DISASTER-ERROR
OBJ300
*
* STORE RELATIONAL OPERATOR CODE
*
XCOPY OBJSTR,VBIN3,W1,SLBIN4,W1 STORE REL.OP-CODE
ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER
ADD VBIN8,W1 ADJUST STATEMENT LENGTH
PERF INDCNT ***INDENTION COUNTING
*
* 'THEN'
*
ADD LBIN4,W4 ADJUST VALBUF POINTER
PERF INDCNT ***INDENTION COUNTING
*
* LABEL LINE NUMBER EXPECTED
*
PERF LABLIN,W4 ***LABEL LINE NUMBER
BOK OBJ890 END OF STATEMENT
EJECT
*
* STATEMENT EXPECTED
*
OBJ310
ADD VBIN6,W2 ADJUST OP-CODE:=08
PERF STTYLN ***STATEMENT TYPE + LENGTH
PERF INDCNT ***INDENTION COUNTING
B OBJ110
EJECT
*
* 10 ON <ARITHMETIC EXPRESSION> GO TO/GOTO <LINE-NUMBER-LIST>
*
OBJ350
PERF INDCNT ***INDENTION COUNTING
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK OBJ950 JMP IF DISASTER-ERROR
PERF INDCNT ***INDENTION COUNTING
*
* STORE END-OF-EXPRESSION '01'
*
XCOPY OBJSTR,VBIN3,W1,W1,W1 STORE END-OF-EXPR.
ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER
ADD VBIN8,W1 ADJUST STATEMENT LENGTH
*
* MATCH FOR GO TO/GOTO
*
CALL GETIND,STMTS,SLBIN6,LBIN3 ---GET ITEM LENGTH
PERF BSVOPC,W5,LBIN1 ***BASIC VERB SEARCH LENGTH=5
BOK OBJ360 BASIC VERB FOUND
PERF BSVOPC,W4,LBIN1 ***BASIC VERB SEARCH LENGTH=4
ADD VBIN6,W1 OP-CODE:=0B
EJECT
*
* LABEL LINE NUMBER EXPECTED
*
OBJ360
PERF INDCNT ***INDENTION COUNTING
PERF LABLIN,W4 ***LABEL LINE NUMBER
CMP LBIN4,VBIN4 CHECK END-OF-SOURCE-LINE LIMIT
BE OBJ890 END-OF-SOURCE LINE
PERF INDCNT ***INDENTION COUNTING
*
* MATCH FOR LABEL LIST SEPARATOR
*
MOVE LSTR1,=C',' SEPARATOR=,
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH ','
BNOK OBJ890 END OF STATEMENT
ADD LBIN4,W1 ADJUST VALBUF POINTER
B OBJ360 NEXT LABEL LINE NUMBER
EJECT
*
* 12 CALL UF<DIGIT> !<PARAMETERLIST>!
*
OBJ400
PERF INDCNT ***INDENTION COUNTING
*
* USER FUNCTION IDENT 'UF'
*
ADD LBIN4,W2 ADJUST BUFFER POINTER
*
* FUNCTION NUMBER
*
PERF LABLIN,W2 ***LABEL LINE NUMBER
CMP LBIN4,VBIN4 CHECK END-OF-SOURCE-LINE LIMIT
BE OBJ890 END OF SOURCE LINE FOUND
*
* PARAMETER-LIST
*
PERF INDCNT ***INDENTION COUNTING
*
* BEGIN OF PARAMETER LIST '('
*
MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH '('
BNOK OBJ890 JMP END OF STATEMENT
EJECT
OBJ410
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
*
* STRING EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF STREXP ***STRING EXPR EVALUATION
BOK OBJ420 EXPR OK
*
* ... OR ARITHMETIC EXPRESSION
*
PERF CLRLST ***CLEAR STACK
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK OBJ950 JMP IF DISASTER-ERROR
OBJ420
PERF INDCNT ***INDENTION COUNTING
*
* PARAMETER EXPRESSION SEPARATOR ','
*
MOVE LSTR1,=C',' LOAD PAR-SEPARATOR
MOVE LBIN3,W0 POINT0
MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH ','
BOK OBJ410 JMP IF OK
*
* END OF PARAMETER LIST ')'
*
ADD LBIN4,W1 ADJUST BUFFER POINTER
B OBJ890 JMP END OF STATEMENT
EJECT
*
* 14 SECT <STRING EXPRESSION>
*
OBJ450
PERF INDCNT ***INDENTION COUNTING
*
* STRING EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF STREXP ***STRING EXPR EVALUATION
BNOK OBJ950 JMP IF DISASTER-ERROR
B OBJ890 END OF STATEMENT
EJECT
*
* 16 ATTR <ATTRIBUTE> <DYNAMIC FIELD>
*
OBJ500
PERF INDCNT ***INDENTION COUNTING
*
* ATTRIBUTE => DECORATION OR PROTECTION
*
MOVE LBIN12,=W'26'
PERF DECOPC,LBIN12 ***DECORATION OPERATION CODE
XCOPY OBJSTR,VBIN3,W1,LBIN1,W1 STORE NUMERIC CONSTANT
ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER
ADD VBIN8,W1 ADJUST STATEMNET LENGTH
PERF INDCNT ***INDENTION COUNTING
*
* SEPARATOR ','
*
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
*
* DYNAMIC FIELD
*
PERF VARDET ****VARIABLE DETERMINATION
BNOK OBJ950 JMP IF DISASTER-ERROR
B OBJ890 END OF STATEMENT
EJECT
*
* 18 STOP !<DYNAMIC FIELD>!
*
OBJ550
CMP LBIN4,VBIN4 CHECK END-OF-SOURCE LINE LIMIT
BE OBJ890 END-OF-SOURCE LINE
PERF INDCNT ***INDENTION COUNTING
*
* STOP WITH TARGET DYNAMIC FIELD
*
PERF VARDET ****VARIABLE DETERMINATION
BNOK OBJ950 JMP IF DISASTER-ERROR
B OBJ890 END OF STATEMENT
EJECT
*
* 20 EXIT <ARITHMETIC EXPRESSION>
*
OBJ600
PERF INDCNT ***INDENTION COUNTING
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF CLRLST ***CLEAR STACK
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK OBJ950 JMP IF DISASTER-ERROR
B OBJ890 END OF STATEMENT
EJECT
*
* 22 ERR <DECORATION LIST> <STRING-EXPRESSION>
* 24 WARN <DECORATION LIST> <STRING-EXPRESSION>
*
OBJ650
PERF INDCNT ***INDENTION COUNTING
MMOVE LBIN12,SLBIN5,W0 NUMB OF DECORS:=0
DECOR BIT PATTERN:=0
*
* DECORATION LIST
*
OBJ660
CMP LBIN12,W5 CHECK IF ALREADY 5 DECORS
BE OBJ675 INCOMPLETE STATEMENT
PERF DECOPC,W10 ***DECORATION OPERATION CODE
BNOK OBJ675 JMP IF NOT OK
ADD SLBIN5,LBIN1 ADD FOUND DECOR CODE
PERF INDCNT ***INDENTION COUNTING
ADD LBIN12,W1 INCREMENT NUMB OF DECORATIONS
EJECT
*
* DECORATION LIST SEPARATOR ','
*
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
B OBJ660 NEXT DECORATION
*
* STRING EXPRESSION EXPECTED
*
OBJ675
XCOPY OBJSTR,VBIN3,W1,SLBIN5,W1 STORE DECOR BIT PATTERN
ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER
ADD VBIN8,W1 ADJUST STATEMNET LENGTH
PERF CLRLST ***CLEAR STACK
PERF STREXP ***STRING EXPR EVALUATION
BNOK OBJ950 JMP IF DISASTER-ERROR
B OBJ890 END OF STATEMENT
EJECT
*
* 26 REM !<ALPHNUMERIC CHARACTERS>!
*
OBJ750
CMP LBIN4,VBIN4 CHECK END-OF-SOURCE LINE LIMIT
BE OBJ890 END-OF-SOURCE LINE
PERF INDCNT ***INDENTION COUNTING
MOVE LBIN1,VBIN4 STORE END OF SOURCE LIMIT
SUB LBIN1,LBIN4 CALC NUMB OF REMARK CHARACTERS
XCOPY OBJSTR,VBIN3,LBIN1,VALBUF,LBIN4 GET REMARKTEXT
ADD LBIN4,LBIN1 ADJUST VALBUF POINTER
ADD VBIN3,LBIN1 ADJUST INT.MED.BUFFER-POINTER
ADD VBIN8,LBIN1 ADJUST LENGTH OF STATEMENT
B OBJ890
EJECT
*
* 28 ; (BASIC STATEMENT SEPARATOR)
*
OBJ800
CMP LBIN4,VBIN4 CHECK IF E-O-B
BE OBJ890 OBJECT IF LAST IN LINE
SUB VBIN3,W2 ADJUST INT.MED.BUFFERPOINTER
B OBJ895 NO OBJECT IF SEPARATOR
*
* END OF STATEMENT
*
OBJ890
PERF STTYLN ***STATEMENT TYPE + LENGTH
CMP LBIN4,VBIN4 CHECK END-OF-SOURCE LINE
BE OBJ900 END-OF-SOURCE LINE
OBJ895
PERF INDCNT ***INDENTION COUNTING
B OBJ110 NEXT BASIC STATEMENT
EJECT
*
* END OF VALIDATION LINE
*
OBJ900
MOVE LSTR6A,=X'FF' E-O-P-DELIMITER
XCOPY OBJSTR,W0,W1,VBIN3,W1 STORE LENGTH OF LINE
ADD VBIN2,VBIN3 ADJUST LENGTH OF OBJ LINE
CMP VBIN2,=X'0FFF' CHECK MAX SIZE OF VALID.
BG OBJ980 JMP IF GREATER MAXSIZE
MOVE VBIN4,W0 SOURCE LINE END LIMIT:=0
CBNL LBIN4,VBBIN,OBJ910 JMP IF VALBUF-MAX REACHED
XCOPY VBIN4,W1,W1,VALBUF,LBIN4 GET LENGTH OF SOURCE LINE
OBJ910
CBNE VBIN4,W0,OBJ920 CHECK IF END OF VALBUF
CLEAR VBOOL8 FALSE NO E-O-P NEEDED IF EXACT
OBJ920
PERF POLICE,VBIN3,LBOOL4,VBOOL8,OBJSTR ***POOL-LIMIT CONTROLER
BG OBJ980 JMP IF MEMORY OVERFLOW
XCOPY BPOOL(GBIN4),GBIN5,VBIN3,OBJSTR,W0 STORE VAL.OBJECT LINE
ADD GBIN5,VBIN3 ADJUST BUFFER POINTER
B OBJ050 NEXT LINE
EJECT
*
* DISASTER-ERRORS ; -FIELD-ID DELETED OR CHANGED
* -FIELD-TYPE (NUM OR ALPHANUM) CHANGED
* *** WITHOUT SYNTAX CONTROL ***
*
OBJ950
CMP W0,W1 CR:=2
B OBJ999 EXIT
EJECT
*
* MEMORY OVERFLOW
*
OBJ980
CMP W1,W0 CR:=1
B OBJ999
*
* EXIT OK STORE OPTIONAL TYPE $ LENGTH
*
OBJ990
MOVE LBIN3,W0 WORKITEM:=0
XCOPY LBIN3,W1,W1,VBIN1,W0 RELOAD BUFFER POOL-INDEX
XCOPY VBIN1,W0,W1,W0,W0 OVERWRITE POOL-INDEX
MOVE LBIN2,W1 RELOAD OPTIONAL ATTRIBUTE CODE
MOVE LBIN1,LBIN2 STORE OPTIONAL TYPE
CALL WXSLL,LBIN1,W12,LBIN1 SHIFT LEFT BIT 0-3
ADD LBIN1,VBIN2 ADD LENGTH OF VALIDATION
XCOPY BPOOL(LBIN3),VBIN1,W2,LBIN1,W0 STORE TYPE & LENGTH
ADD LBIN20,VBIN2 ADJUST OPTIONAL PART LENGTH
CMP LBIN20,=X'0FFF' CHECK MAXSIZE OPTIONALS
BG OBJ980 JMP IF GREATER
OBJ998
CMP W1,W1 CR:=0
OBJ999
RET
PEND
EJECT
*
* BASIC VERB OPERATION CODE
*
* INPUT : STLEN =(FORMAL) BASIC VERB LENGTH
* LBIN12 = FILLER CHARACTER /FF
* SLBIN6 = LENGTH OF STMTS
*
* USED : VBIN7 = WORKITEM
* LBIN3 = WORKITEM
*
* OUTPUT: LBIN4 = INPUT BUFFER POINTER ADJUSTED
* OPCODE = CORRESPONDING OBJECT-CODE (BASIC VERB)
* CR = 0 = OK
* = 1 = NOT OK
*
************************************************************************
BSVOPC 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,SLBIN6,VALBUF,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 : VALBUF = INPUT BUFFER
* LBIN4 = VALIDATION BUFFER POINTER
*
* OUTPUT: LBIN4 = ADJUSTED
* VBIN7 = NUMBER OF INDENTIONS
*
************************************************************************
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,VALBUF,LBIN4,W1 MATCH FOR SPACE
BNOK IND999 JMP IF NO MORE SPACES
ADD VBIN7,W1 INCREMENT NO OF SPACES
ADD LBIN4,W1 ADJUST BUFFER-POINTER
B IND100 GO ON
IND999
RET
PEND
EJECT
*
* STATEMENT TYPE & LENGTH
*
************************************************************************
STTYLN PROC
XCOPY OBJSTR,VBIN5,W1,VBIN6,W1 STORE OP-CODE
ADD VBIN5,W1 ADJUST POINTER
XCOPY OBJSTR,VBIN5,W1,VBIN8,W1 STORE STATEMENT-LENGTH
RET
PEND
EJECT
*
* VARIABLE DETERMINATION
*
* INPUT : VALBUF = BASIC LINE
* LBIN4 = BASIC LINE POINTER
* FIDTAB = FIELD ID TABLE
* ATTAB = ATTRIBUTE TABLE
* GVDUR = SCREEN ROW BUFFER
*
* USED : LBIN3
* VBIN7
* LBIN12
* LBIN1
* SLBIN5
*
* OUTPUT : VBOOL2 = FALSE NUMERIC => ARITHMETIC VARIABLE
* = TRUE ALPHANUM => STRING VARIABLE
* VBOOL3 = FALSE !INP- OR !FID-ITEM VARIABLE
* = TRUE WSM-WORK-ITEM DYNAMIC FIELD VARIABLE
* CR = 0 OK
* = 1 OBJECT ERROR
*
************************************************************************
VARDET PROC
CLEAR VBOOL2 FALSE = ARITHMETIC VARIABLE
CLEAR VBOOL3 FALSE = WSM WORK ITEM VARIABLE
MOVE SLBIN5,W4 VARIABLE LENGTH:=4
EJECT
*
* CURRENT FIELD '!FID' OR CURRENT INPUT '!INP'
*
MOVE LSTR9A,=C'!INP!FID' LOAD IDENTIFIERS
MOVE LBIN3,W0 POINTER :=0
MATCH LSTR9A,LBIN3,W8,VALBUF,LBIN4,W4 MATCH '!FID' & '!INP'
BNOK VAR100 JMP IF NOT CURRENT FID/INP
CBE LBIN3,W0,VAR010 JMP IF '!INP' = 0000
SUB LBIN3,W3 CALC '!FID' = 0001
VAR010
XCOPY OBJSTR,VBIN3,W2,LBIN3,W0 STORE OP-CODE CURRENT FID/INP
SUB SLBIN5,W2 VARIABLE LENGTH :=2
ADD LBIN4,W2 ADJUST BUFFER POINTER
TBT LBOOL5,VAR105 JMP IF STRING
B VAR300
*
* WSM WORK ITEM INVESTIGATION
*
VAR100
MOVE LBIN3,W0 WORKITEM
MOVE LSTR6A,=C'WSWAWN' WSM-WORKITEN PREFIX
MATCH LSTR6A,LBIN3,W6,VALBUF,LBIN4,W2 SEARC WSMITEM PREFIX
BNOK VAR190 JMP IF NOT A WSM-ITEM
*
* WSM WORK-ITEM FOUND OK
*
SET VBOOL3 TRUE=WSM WORK ITEM
XCOPY OBJSTR,VBIN3,SLBIN5,VALBUF,LBIN4 LOAD WSM WORKITEM NAME
CBE LBIN3,W4,VAR110 NUM WSM-ITEM
VAR105
B VAR250 ALPHANUMERIC = STRING
VAR110
B VAR300 NUMERIC = ARITHMETIC
*
* DYNAMIC FIELD INVESTIGATION
*
VAR190
MOVE LSTR6A,=X'422A580020' B*X=ALPHANUMERIC CHARS
MOVE LSTR16,=X'2B2D2A2F28293A263D3C3E2C3B2000' +-*/():&=<>,;B/00
MMOVE VBIN7,LBIN12,LBIN4 LOAD ACTUAL BUF. POPINTER
ADD VBIN7,W4 ADJUST TO GET MATCH-LIMIT
VAL192
MOVE LBIN3,W0 MATCHPOINTER:=0
MATCH LSTR16,LBIN3,W15,VALBUF,LBIN12,W1
BOK VAL194 DELIMITER-CHAR. FOUND
ADD LBIN12,W1 ADJUST TEMP BUFFER POINTER
CBE LBIN12,VBIN4,VAL194 JMP IF E-O-SOURCE
CBE LBIN12,VBIN7,VAL194 4 POSITIONS MATCHED. JMP
B VAL192 GO ON MATCH DELIMITER
VAL194
SUB LBIN12,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 OBJECT ERROR
XCOPY VBIN7,W0,W2,ATTAB,LBIN3 FETCH ROW & COL
CBE VBIN7,W0,VAR980 JMP IF 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
EJECT
*
* DYNAMIC FIELD SEQ.NO FOUND
*
VAR208
CALL WXMUL,VBIN7,W5,VBIN7
SUB VBIN7,W5 CALC FIELD-ID POSITION
MOVE LBIN1,VBIN7 LOAD FIDTAB-POINTER
MATCH FIDTAB,LBIN1,W4,LSTR16,W13,W1 MATCH 1ST SPACE
SUB LBIN1,VBIN7 CALC FIDTAB-FID LENGTH
CBNE LBIN12,LBIN1,VAR206 JMP IF NOT SAME LENGTH
MATCH FIDTAB,VBIN7,LBIN12,VALBUF,LBIN4,LBIN12 MATCH FIELD NAME
BNOK VAR206 NOT THIS FIELD ID
MOVE SLBIN5,LBIN12 SAVE FOUND FID-LENGTH
EJECT
*
* RIGHT FIELD ID FOUND
*
SET VBOOL3 TRUE = DYNAMIC FIELD VARIABLE
XCOPY OBJSTR,VBIN3,W4,FIDTAB,VBIN7 LOAD DYN FIELD ID
MOVE LBIN1,W4 MAXLENGTH OF VARIABLE-NAME
SUB LBIN1,SLBIN5 CALC NUMBER TO CORRECT OB-LENGTHS
ADD VBIN3,LBIN1 ADJUST INT.MED.BUFFER-POINTER
ADD VBIN8,LBIN1 ADJUST STATEMENT LENGTH
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 LBIN1,W0 WORKITEM:=0
XCOPY LBIN1,W1,W1,ATTAB,LBIN3 GET COL NO
SUB LBIN1,W1 ADJUST COL.NO 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,LBIN1 CALC PICTURESTRING LENGTH
MOVE LBIN12,LBIN1 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,LBIN1 CALC PICTURE LENGTH
MOVE LBIN3,W0 POINTER:=0
MATCH LSTR6A,LBIN3,W3,GVDUR(VBIN7),LBIN1,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),LBIN1,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
*
* OBJECT ERROR
*
VAR980
CMP W1,W0 CR:=1
B VAR999
*
* OK EXIT
*
VAR990
ADD LBIN4,SLBIN5 ADJUST VALBUF POINTER
ADD VBIN3,SLBIN5 ADJUST INT.MED.BUFFER-POINTER
ADD VBIN8,SLBIN5 ADJUST LENGTH OF STATEMENT
CMP W1,W1 CR:=0
VAR999
RET
PEND
EJECT
*
* STRING EXPRESSION EVALUATION
*
* OUTPUT: CR = 0 OK
* = 1 NOT OK
*
************************************************************************
STREXP PROC
MOVE LBIN3,=W'62' POINTER:=62
XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD EXPR SEP )
ADD LBIN2,W1 INCREMENT STACK INDEX
*
* STRING CONSTANT
*
STR000
MOVE VBIN7,W0 NUMB OF EXPR-CHA0
MOVE LSTR1,=X'22' LOAD STRING QUOTE "
MATCH LSTR1,VBIN7,W1,VALBUF,LBIN4,W1 MATCH "
BNOK STR100 JMP IF NOTSTRING QUOTE
MOVE VBIN7,LBIN4 LOAD BUFFER POINTER
ADD VBIN7,W1 ADJUST FOR "
MOVE LBIN1,VBIN4 LOAD END OF SOURCE-LINE
SUB LBIN1,VBIN7 CALC MATCH LENGTH
MATCH VALBUF,VBIN7,LBIN1,LSTR1,W0,W1 MATCH NEXT "
SUB VBIN7,W1 ADJUST NUMB FOR 1ST "
SUB VBIN7,LBIN4 CALC NUMB OF CHARS
ADD LBIN4,W1 ADJUSTVALBUF POINTER 1ST "
PERF CONSTO ***CONSTANT STORAGE
B STR400 OK
EJECT
*
* STRING VARIABLE
*
STR100
PERF VARDET ***VARIABLE DETERMINATION
BNOK STR300 JMP IF NOT OK
TBT VBOOL2,STR200 JMP IF STRING VARIABLE
TBT VBOOL3,STR110 JMP IF DYN FIELD/WSM-W-I
SUB LBIN4,W4 ADJUST POINTER IF WRONG TYPE
SUB VBIN3,SLBIN5 ADJUST INT MED BUFFER POINTER
SUB VBIN8,SLBIN5 ADJUST STATEMENT LENGTH
B STR120
STR110
SUB LBIN4,SLBIN5 ADJUST POINTER IF WRONG TYPE
SUB VBIN3,W4 ADJUST INT MED BUFFER POINTER
SUB VBIN8,W4 ADJUST STATEMENT LENGTH
STR120
B STR980 NOT OK
*
* QUALIFIED STRING VARIABLE =====> SUBSTRING
*
STR200
CMP LBIN4,VBIN4 CHECK E-O-L
BE STR990 JMP IF E-O-L
PERF INDCNT ***INDENTION COUNTING
CMP LBIN4,VBIN4 CHECK E-O-L
BE STR990 JMP IF E-O-L
EJECT
*
* BEGIN OF SUBSTRING '('
*
MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS
MOVE LBIN3,W0
MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH '('
BNOK STR400 NO SUBSTRING
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK STR980 JMP IF DISASTER ERROR
PERF INDCNT ***INDENTION COUNTING
*
* SUBSTRING OPERATOR ':'
*
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION
BNOK STR980 JMP IF DISASTER ERROR
PERF INDCNT ***INDENTION COUNTING
*
* END OF SUBSTRING ')' STORE SUBSTRING OPERATOR
*
XCOPY OBJSTR,VBIN3,W1,OPRVAL,W19 LOAD SUBSTRING OP-CODE
ADD VBIN3,W1 ADJUST INT.MED. BUFFER-POINTER
ADD VBIN8,W1 ADJUST STATEMENT LENGTH
ADD LBIN4,W1 ADJUST BUFFER POINTER
B STR400
EJECT
*
* STRING FUNCTION
*
STR300
MOVE LBIN3,W20 POINTER:=20
MATCH OPRTS,LBIN3,W3,VALBUF,LBIN4,W3 MATCH FUNCTION
BNOK STR980 NO FUNCTION GO SCONSTANT
ADD LBIN4,W3 ADJUST BUFFER POINTER
XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 STACK FUNC-CODE
ADD LBIN2,W1 INCREMENT STACK-INDEX
PERF INDCNT ***INDENTION COUNTING
EJECT
*
* BEGIN OF PARAMETER LIST '('
*
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
*
* ARITMETIC EXPRESSION EXPECTED
*
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK STR980 JMP IF DISASTER ERROR
PERF INDCNT ***INDENTION COUNTING
*
* END OF PARAMETER LIST ')' STORE FUNCTION OPERATION-CODE
*
SUB LBIN2,W1 DECREASE STACK-INDEX
XCOPY OBJSTR,VBIN3,W1,LSTACK(LBIN2),W1 STORE OP-CODE
ADD VBIN3,W1 ADJUST INT.MED BUFFER-POINTER
ADD VBIN8,W1 ADJUST STATEMENT LENGTH
MOVE LSTACK(LBIN2),W0 CLEAR STACK-ENTRY
ADD LBIN4,W1 ADJUST BUFFER POINTER
*
* CONCATENATED STRING EXPRESSION
*
STR400
CMP LBIN4,VBIN4 CHECK E-O-LINE
BE STR990 E0L
PERF INDCNT ***INDENTION COUNTING
CMP LBIN4,VBIN4 CHECK E-O-LINE
BE STR990 E0L
MOVE LBIN3,W18 POINTER:=18
MATCH OPRTS,LBIN3,W1,VALBUF,LBIN4,W1 MATCH &
BNOK STR990 NO CONCATENATED STR
PERF OPSTCK,W14 ***OPERATOR-STACK HANDLING
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
B STR000 GO ON
EJECT
*
* OBJECT ERROR
*
STR980
CMP W1,W0 CR:=1
B STR999
*
* EXIT OK
*
STR990
SUB LBIN2,W1 DECREASE STACK INDEX
CBE LSTACK(LBIN2),=X'0022',STR995 JMP IF E-O-E
XCOPY OBJSTR,VBIN3,W1,LSTACK(LBIN2),W1 STORE OPERATOR
ADD VBIN3,W1 ADJUST INT.MED. BUFFER-POINTER
ADD VBIN8,W1 ADJUST STATEMENT LENGTH
MOVE LSTACK(LBIN2),W0 CLEAR STACK ENTRY
B STR990
STR995
MOVE LSTACK(LBIN2),W0 CLEAR STACK ENTRY
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
MOVE LBIN3,=W'62' POINTER:=62
XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD EXPR SEP )
ADD LBIN2,W1 INCREMENT STACK INDEX
*
* SIGNED FACTOR
*
ART000
MOVE LBIN3,W23 POINTER:=23
MATCH OPRTS,LBIN3,W2,VALBUF,LBIN4,W1 MATCH '+-'
BNOK ART050 JMP IF NO SIGN
PERF OPSTCK,W20 ***OPERATOR STACK-HANDLER
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
EJECT
*
* ARITHMETIC CONSTNAT
*
ART050
MOVE VBIN7,W0 NUMB OF CHARACTERS:=0
CLEAR VBOOL4 FALSE NO DECIMAL
MOVE LBIN3,LBIN4 LOAD BUFFER POINTER
ART060
XCOPY LSTR1,W0,W1,VALBUF,LBIN3 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 LBIN3,W1 ADJUST BUFFER POINTER
CMP LBIN3,VBIN4 CHECK END-OF-SOURCE LINE LIMIT
BE ART080 OK EXIT
B ART060 GO ON
*
* DECIMAL CHARACTER FOUND ?
*
ART070
CBNE LSTR1,=C'.',ART080 JMP IF NOT A DECIMAL CHAR
SET VBOOL4 TRUE DECIMAL FOUND
BOK ART065 OK 1ST DEC CHAR
*
* END OF DIGITS
*
ART080
CBE VBIN7,W0,ART100 NO DIGITS
PERF CONSTO ***CONSTANT STORAGE
SUB LBIN4,W1 ADJUST VALBUF POINTER
B ART500
EJECT
*
* ARITHMETIC VARIABLE
*
ART100
PERF VARDET ***VARIABLE DETERMINATION
BNOK ART200 JMP IF OBJECT ERROR
TBF VBOOL2,ART500 JMP IF ARITHMETIC VARIABLE
TBT VBOOL3,ART110 JMP IF DYN FIELD/WSM-W-I
SUB LBIN4,W4 ADJUST POINTER IF WRONG TYPE
SUB VBIN3,SLBIN5 ADJUST INT MED BUFFER POINTER
SUB VBIN8,SLBIN5 ADJUST STATEMENT LENGTH
B ART120
ART110
SUB LBIN4,SLBIN5 ADJUST POINTER IF WRONG TYPE
SUB VBIN3,W4 ADJUST INT MED BUFFER POINTER
SUB VBIN8,W4 ADJUST STATEMENT LENGTH
ART120
B ART980 NOT OK
EJECT
*
* 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,VALBUF,LBIN4,W3 MATCH FUNCTION
BNOK ART300 NO FUNCTION
XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD FUNC OP-CODE
ADD LBIN2,W1 INCREMENT STACK INDEX
ADD LBIN4,W3 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
*
* BEGIN OF PARAMETER LIST '('
*
ADD LBIN4,W1 ADJUST BUFFER POINTER
EJECT
*
* ARITHMETIC OR STRING EXPRESSION EXPECTED
*
PERF INDCNT ***INDENTION COUNTING
MOVE SLBIN5,LBIN2 LOAD CURRENT STACK INDEX
SUB SLBIN5,W1 CALC PREVIOUS STACK INDEX
CBE LSTACK(SLBIN5),=X'001D',ART210 JMP IF STRING-FUNC
CBE LSTACK(SLBIN5),=X'001E',ART210 JMP IF STRING-FUNC
CBE LSTACK(SLBIN5),=X'0021',ART210 JMP IF STRING-FUNC
PERF ARTEXP ***ARITHMETIC EXPRESSION
BNOK ART980 JMP IF DISASTER ERROR
B ART220
ART210
PERF STREXP ***STRING EXPR. EVALUATION
BNOK ART980 JMP IF DISASTER ERROR
ART220
PERF INDCNT ***INDENTION COUNTING
MOVE SLBIN5,LBIN2 LOAD CURRENT STACK-INDEX
SUB SLBIN5,W1 CALC PREVIOUS STACK-INDEX
CBG LSTACK(SLBIN5),=X'001E',ART230 JMP IF MORE THAN 1 PAR
B ART260 NO MORE PARAMETERS
EJECT
*
* PARAMETER LIST SEPARATOR ','
*
ART230
ADD LBIN4,W1 ADJUST BUFFER POINTER
*
* 2ND PARAMETER STRING OR ARITHMETIC EXPRESSION EXPECTED
*
CBE LSTACK(SLBIN5),=X'0021',ART240 JMP IF STRING-FUNC
PERF ARTEXP ***ARITHMETIC EXPR EVALUATION
BNOK ART980 JMP IF DISASTER ERROR
B ART250
ART240
PERF STREXP ***STRING EXPR
BNOK ART980 JMP IF DISASTER ERROR
ART250
PERF INDCNT ***INDENTION COUNTING
*
* END OF PARAMETER LIST ')' STORE FUNCTION OPERATION CODE
*
ART260
SUB LBIN2,W1 DECREASE STACK-INDEX
XCOPY OBJSTR,VBIN3,W1,LSTACK(LBIN2),W1 STORE OP-CODE
ADD VBIN3,W1 ADJUST INT.MED BUFFER-POINTER
ADD VBIN8,W1 ADJUST STATEMENT LENGTH
MOVE LSTACK(LBIN2),W0 CLEAR STACK-ENTRY
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:
MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH '('
BNOK ART500 NO PRIORED EXPRESSION
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
*
* ARITHMETIC EXPRESSION EXPECTED
*
PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION
BNOK ART980 JMP IF DISASTER ERROR
PERF INDCNT ***INDENTION COUNTING
*
* END OF PRIORED EXPRESSION
*
MOVE LBIN3,=W'62' POINTER:=62
XCOPY OBJSTR,VBIN3,W1,OPRVAL,LBIN3 STACK )-CODE
ADD VBIN3,W1 ADJUST INT MED. BUFFER-POINTER
ADD VBIN8,W1 ADJUST STATEMENT LENGTH
ADD LBIN4,W1 ADJUST BUFFER POINTER
EJECT
*
* COMBINED FACTOR MULTIPLY OPERATOR
*
ART500
CMP LBIN4,VBIN4 CHECK E-O-L
BE ART655 JMP IF E-O-L
PERF INDCNT ***INDENTION COUNTING
CMP LBIN4,VBIN4 CHECK E-O-L
BE ART655 JMP IF E-O-L
MOVE LBIN3,=W'27' POINTER:=27
MATCH OPRTS,LBIN3,W2,VALBUF,LBIN4,W1 MATCH '/*'
BNOK ART600 NO MULTIPLY OPERATOR
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF OPSTCK,W20 ***OPERATOR STACK-HANDLER
PERF INDCNT ***INDENTION COUNTING
B ART050 GO ON
*
* COMBINED EXPRESSION ADDING OPERATOR
*
ART600
MOVE LBIN3,=W'25' POINTER:=25
MATCH OPRTS,LBIN3,W2,VALBUF,LBIN4,W1 MATCH '+-'
BNOK ART650 NO SIGN OPERATOR
PERF OPSTCK,W20 ***OPERATOR STACK-HANDLER
ADD LBIN4,W1 ADJUST BUFFER POINTER
PERF INDCNT ***INDENTION COUNTING
B ART050 GO ON
EJECT
*
* END OF EXPRESSION
*
ART650
SUB LBIN4,VBIN7 ADJUST BUFFER POINTER
ART655
SUB LBIN2,W1 DECREASE STACK INDEX
CBE LSTACK(LBIN2),=X'0022',ART660 JMP IF E-O-E
XCOPY OBJSTR,VBIN3,W1,LSTACK(LBIN2),W1
ADD VBIN3,W1
ADD VBIN8,W1
MOVE LSTACK(LBIN2),W0 CLEAR STACK ENTRY
B ART655
ART660
MOVE LSTACK(LBIN2),W0 CLEAR STACK ENTRY
B ART990
*
* OBJECT ERROR
*
ART980
CMP W1,W0 CR:=1
B ART999
*
* OK EXIT
*
ART990
CLEAR VBOOL2 FALSE = ARITHMETIC EXPR
CMP W1,W1 CR:=0
ART999
RET
PEND
EJECT
*
* CONSTANT STORAGE
*
* INPUT : VALBUF = VALIDATION BUFFER
* LBIN4 = POINTER OF VALIDATION BUFFER
* VBIN7 = LENGTH OF CONSTANT
* VBIN3 = POINTER OF INTER MEDIATE BUFFER BASIC LINE
* VBIN8 = LENGTH OF STATEMENT
*
* USED : LBIN1 = WORK
*
* OUTPUT : OBJSTR = INTERMEDIATE BUFFER HOLDING ONE LINE
* VBIN3 = UPDATED
* , VBIN8 = UPDATED
* LBIN4 = UPDATED
*
************************************************************************
CONSTO PROC
MOVE LBIN1,VBIN7 LOAD LENGTH OF CONSTANT
ADD LBIN1,W1 COUNT INDICATOR ITSELF
CALL SETB,LBIN1,W8 ---SET BIT NO:=8
XCOPY OBJSTR,VBIN3,W1,LBIN1,W1 STORE CONSTANT INDICATOR
ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER
XCOPY OBJSTR,VBIN3,VBIN7,VALBUF,LBIN4 STORE STRING CONSTANT
ADD VBIN3,VBIN7 ADJUST INT.MED.BUFFER POINTER
ADD VBIN7,W1 ADJUST FOR CONSTANT INDICATOR
ADD VBIN8,VBIN7 ADJUST STATEMNET LENGTH
ADD LBIN4,VBIN7 ADJUST VALBUF POINTER
RET
PEND
EJECT
*
* LABEL LINE NUMBER
*
* INPUT : VALBUF = BASIC LINE
* LBIN4 = BASIC LINE POINTER
* VBIN4 = END-OF-SOURCE LIMIT
* 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 LBIN3,LBIN4 LOAD CURRENT BUFFER POSITION
MOVE VBIN7,W0 NUMB OF LINE-NUMB CHARS:
LAB100
XCOPY LSTR1,W0,W1,VALBUF,LBIN3 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 LBIN3,W1 ADJUST POINTER
CBE LBIN3,VBIN4,LAB150 JMP IF END-OF-SOURCE LINE
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
*
* LINE NUMBER FOUND OK
*
ADD LBIN4,VBIN7 ADJUST VALBUF POINTER
MOVE LBIN1,LENGTH STORE LENGTH
CALL WXDIV,LBIN1,W2,LBIN1 DIVIDE TO GET CONSTANT LENGTH
MOVE VBIN7,W2 STORE MAX-LENGTH
SUB VBIN7,LBIN1 CALC POINTER
XCOPY OBJSTR,VBIN3,LBIN1,LBIN3,VBIN7 STORE NUMERIC CONSTANT
ADD VBIN3,LBIN1 ADJUST INT.MED.BUFFER POINTER
ADD VBIN8,LBIN1 ADJUST STATEMNET LENGTH
CMP W1,W1 CR:=0
B LAB999 EXIT
*
* OBJECT ERROR
*
LAB980
CMP W1,W0 CR:=1
LAB999
RET
PEND
EJECT
*
* DECORATION OPERATION CODE
*
* INPUT : VALBUF = BASIC LINE
* LBIN4 = BASIC LINE POINTER
* DSTLEN = (FORMAL) DECOR-STRING LENGTH
* DECOR = DECOR STRING
*
* USED : LBIN3
*
* OUTPUT: CR = 0 OK
* = 1 NOT OK
* LBIN1 = DECORATION CODE
*
************************************************************************
DECOPC PROC DSTLEN
PBIN DSTLEN
MOVE LBIN1,W0 DECORATION CODE:=0
*
* DECORATION DELIMITER
*
ADD LBIN4,W1 ADJUST BUFFER POINTER
EJECT
*
* DECORATION VERB
*
MOVE LBIN3,W0
MATCH DECOR,LBIN3,DSTLEN,VALBUF,LBIN4,W2 MATCH DECOR
BNOK DEC988 JMP IF NOT FOUND
XCOPY LBIN1,W1,W1,DECVAL,LBIN3 GET OP-CODE
CBE LBIN1,=X'00FF',DEC980 JMP IF FILLER
ADD LBIN4,W2 ADJUST BUFFER POINTER
*
* DECORATION DELIMITER "
*
MOVE LSTR1,=X'22' LOAD STRING QUOTE
MOVE LBIN3,W0
MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH DECOR DELIMITOR
BNOK DEC980 JMP IF NOT FOUND
ADD LBIN4,W1 ADJUST BUFFER POINTER
*
* OK EXIT
*
CMP W1,W1 CR:=0 OK
B DEC999
*
* OBJECT ERROR
*
DEC980
SUB LBIN4,W2 ADJUST WHEN ERROR
DEC988
SUB LBIN4,W1 ADJUST WHEN ERROR
CMP W1,W0 CR:=1
DEC999
RET
PEND
EJECT
*
* CLEAR LSTACK
*
* INPUT : LSTACK = STACK-INFORMATION
*
* USED : LBIN2 = STACK-INDEX
*
* OUPUT : LBIN2 = STACK-INDEX = 1
*
************************************************************************
CLRLST PROC
CALL GETIND,LSTACK(W1),LBIN2,LBIN3 ---GET LENGTH & DIMENSION
MOVE LBIN2,W1 STACK-INDEX:=1
CLR010
CALL ICLEAR,LSTACK(LBIN2) ---CLEAR ITEM
ADD LBIN2,W1 INCREMENT STACK-INDEX
CMP LBIN2,LBIN3 WHOLE STACK CLEARED
BG CLR999
B CLR010 GO ON
CLR999
MOVE LBIN2,W1 STACK INDEX:=1
RET
PEND
EJECT
*
* OPERATOR STACK HANDLING
*
* INPUT : OPRVAL = OPERATOR-CODES
* LBIN3 = POINTER TO OPERATOR-CODE(OPRVAL)
*
* USED : SLBIN5
* VBIN7
*
* OUTPUT: OBJSTR = INTERMEDIATE BUFFER UPDATED WITH OPERATOR CODE(ES
* VBIN3 = POINTER TO INTERMEDIATE BUFFER
* VBIN8 = STATEMENT LENGTH
*
* LSTACK = STACKED OPERATOR CODES CLEARED IF ENTERD IN INTME
* LBIN2 = STACK POINTER DECREASED IF ENTRY CLEARED
*
************************************************************************
OPSTCK PROC HPRIOR
PBIN HPRIOR
XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD OPERATOR-CODE
OPS000
MOVE SLBIN5,LBIN2 LOAD CURREEN STACK-INDEX
SUB SLBIN5,W1 CALC PREVIOUS STACK-INDEX
CBE LSTACK(SLBIN5),=X'0022',OPS900 JMP IF E-O-E
MOVE VBIN7,LSTACK(LBIN2) LOAD CURRENT OP-CODE
MOVE LBIN3,LSTACK(SLBIN5) LOAD PREVIOUS OP-CODE
*
* CHECK PRIORITY
*
CBG VBIN7,HPRIOR,OPS010 JMP IF HIGH PRIORITY
MOVE VBIN7,W2 PRIORITY:=2
B OPS020
OPS010
MOVE VBIN7,W3 PRIORITY:=3
OPS020
CBG LBIN3,HPRIOR,OPS030 JMP IF HIGH PRIORITY
MOVE LBIN3,W2 PRIORITY:=2
B OPS040
OPS030
MOVE LBIN3,W3 PRIORITY:=3
OPS040
CMP LBIN3,VBIN7 CHECK PRIORITY
BL OPS900 JMP IF LESS PRIORTY
*
* STORE PREVIOUS OPERATOR-CODE
*
XCOPY OBJSTR,VBIN3,W1,LSTACK(SLBIN5),W1 STOR OP-CODE
ADD VBIN3,W1 ADJUST BUFFER POINTER
ADD VBIN8,W1 ADJUST STATEMENT LENGTH
MOVE LSTACK(SLBIN5),LSTACK(LBIN2) POP-UP CURRENT OP-CODE
MOVE LSTACK(LBIN2),W0 CLEAR STACK ENTRY
SUB LBIN2,W1
B OPS000 GO ON NEXT
OPS900
ADD LBIN2,W1 INCREMENT STACK-INDEX
OPS999
RET
PEND
END
0x0000…0032 (0, 0, 400) Head {h00=0x002e, h01=0x0050, text=» IDENT OBJVAL REL=2.3,850703,870155940230 «, t00=0x0000, t01=0x0004}
0x0032…003a Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0036}
0x003a…0088 Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0000, t01=0x003e}
0x0088…0092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00bc Head {h00=0x0026, h01=0x0050, text=»* LATEST UPDATE 850703 MADE BY:JE «, t00=0x0000, t01=0x0096}
0x00bc…00c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c0}
0x00c6…00da Head {h00=0x0010, h01=0x0050, text=»* HISTORY=«, t00=0x0000, t01=0x00ca}
0x00da…0122 Head {h00=0x0044, h01=0x0050, text=»* 850703/JE CHECK IF VALBUF EMPTY AFTER MODIFICATION «, t00=0x0000, t01=0x00de}
0x0122…016e Head {h00=0x0048, h01=0x0050, text=»* 850606/JE CHECK OVFL-ENTRIES IN ATTAB ROUTINE 'VARDET' «, t00=0x0000, t01=0x0126}
0x016e…01be Head {h00=0x004c, h01=0x0050, text=»* 850509/JE ORDER OF CONTROL CHANGED VARDET BEFORE FUNCTIONS «, t00=0x0000, t01=0x0172}
0x01be…020c Head {h00=0x004a, h01=0x0050, text=»* 850327/JE SYNTAX ERROR NOT FOUND IN ERR "HI............."«, t00=0x0001, t01=0x0032}
0x020c…025a Head {h00=0x004a, h01=0x0050, text=»* 850313/JE PERFORMANCE DIRECT MOVE VAL.OBJ. WHEN UNCHANGED«, t00=0x0001, t01=0x0080}
0x025a…02a8 Head {h00=0x004a, h01=0x0050, text=»* 850305/JE SECURITY WHEN DISASTER ERRORS (LOST FIDS ETC.) «, t00=0x0001, t01=0x00ce}
0x02a8…02f0 Head {h00=0x0044, h01=0x0050, text=»* 850214/JE FASTER PROCESSING OF EVALUATION OF FID:S «, t00=0x0001, t01=0x011c}
0x02f0…032c Head {h00=0x0038, h01=0x0050, text=»* 841120/CJ MUL&DIV NOW FROM ASS.ROUTINE «, t00=0x0001, t01=0x0164}
0x032c…0370 Head {h00=0x0040, h01=0x0050, text=»* 840921/CJ BASIC ERROR IF FID= AB OR ST - SOLVED«, t00=0x0002, t01=0x0010}
0x0370…03a8 Head {h00=0x0034, h01=0x0050, text=»* 831208/CJ ADAPTION TO "NEW" POLICE «, t00=0x0002, t01=0x0054}
0x03a8…03f4 Head {h00=0x0048, h01=0x0050, text=»* 831205/CJ OBJSTR-> INTERMEDIATE BUFFER OBJCT OF 1 LINE «, t00=0x0002, t01=0x008c}
0x03f4…0442 Head {h00=0x004a, h01=0x0050, text=»* 830519/CJ TAKE CARE OF WHEN "VALBUF" IS COMPLETILY FILLED«, t00=0x0002, t01=0x00d8}
0x0442…0486 Head {h00=0x0040, h01=0x0050, text=»* 830422/CJ EXTANSION OF ATTRIBUTES "ATTR" SA,CA «, t00=0x0002, t01=0x0126}
0x0486…0490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016a}
0x0490…04de Head {h00=0x004a, h01=0x0050, text=»**********************************************************************«, t00=0x0002, t01=0x0174}
0x04de…04f2 Head {h00=0x0010, h01=0x0050, text=» DDUM WSMDDV«, t00=0x0003, t01=0x0032}
0x04f2…0500 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0003, t01=0x0046}
0x0500…052e Head {h00=0x002a, h01=0x0050, text=» ENTRY OBJVAL ***OBJECT OF VALIDATION «, t00=0x0003, t01=0x0054}
0x052e…0574 Head {h00=0x0042, h01=0x0050, text=» EXPROC POLICE,PBIN,PBOOL,PBOOL,PSTRG ***POOL LIMIT CONTROLER «, t00=0x0003, t01=0x0082}
0x0574…05a4 Head {h00=0x002c, h01=0x0050, text=» EXPROC MOVVAL ***MOVE VALIDATION OBJECT«, t00=0x0003, t01=0x00c8}
0x05a4…05c6 Head {h00=0x001e, h01=0x0050, text=» EXT ICLEAR ---CLEAR ITEM «, t00=0x0003, t01=0x00f8}
0x05c6…05ec Head {h00=0x0022, h01=0x0050, text=» EXT EMPTYT ---CHECK IF EMPTY «, t00=0x0003, t01=0x011a}
0x05ec…0612 Head {h00=0x0022, h01=0x0050, text=» EXT GETIND ---GET ITEM LENGTH«, t00=0x0003, t01=0x0140}
0x0612…0638 Head {h00=0x0022, h01=0x0050, text=» EXT SETB ---SET BIT POSITION «, t00=0x0003, t01=0x0166}
0x0638…065c Head {h00=0x0020, h01=0x0050, text=» EXT WXMUL ---MULTIPLICATION«, t00=0x0003, t01=0x018c}
0x065c…067a Head {h00=0x001a, h01=0x0050, text=» EXT WXDIV ---DIVISION«, t00=0x0004, t01=0x0020}
0x067a…069a Head {h00=0x001c, h01=0x0050, text=» EXT WXSLL ---SHIFT LEFT«, t00=0x0004, t01=0x003e}
0x069a…06a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x005e}
0x06a8…06b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006c}
0x06b2…06d4 Head {h00=0x001e, h01=0x0050, text=»* OBJECT OF VALIDATION «, t00=0x0004, t01=0x0076}
0x06d4…06de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0098}
0x06de…0710 Head {h00=0x002e, h01=0x0050, text=»* INPUT : VALBUF = VALIDATION BUFFER«, t00=0x0004, t01=0x00a2}
0x0710…074c Head {h00=0x0038, h01=0x0050, text=»* LBIN2 = OPTIONAL ATTRIBUTE CODE = 1«, t00=0x0004, t01=0x00d4}
0x074c…0790 Head {h00=0x0040, h01=0x0050, text=»* LBIN20 = TOTAL LENGTH OF OPTIONAL ATTRIBUTES«, t00=0x0004, t01=0x0110}
0x0790…07c6 Head {h00=0x0032, h01=0x0050, text=»* GBIN4 = INDEX TO BUFFER POOL «, t00=0x0004, t01=0x0154}
0x07c6…07fe Head {h00=0x0034, h01=0x0050, text=»* GBIN5 = POINTER TO BUFFER POOL «, t00=0x0004, t01=0x018a}
0x07fe…0808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0032}
0x0808…082e Head {h00=0x0022, h01=0x0050, text=»* USED : LBIN1 = WORK «, t00=0x0005, t01=0x003c}
0x082e…0854 Head {h00=0x0022, h01=0x0050, text=»* LBIN3 = WORK «, t00=0x0005, t01=0x0062}
0x0854…087a Head {h00=0x0022, h01=0x0050, text=»* LBIN12 = WORK «, t00=0x0005, t01=0x0088}
0x087a…08a0 Head {h00=0x0022, h01=0x0050, text=»* SLBIN6 = WORK «, t00=0x0005, t01=0x00ae}
0x08a0…08c6 Head {h00=0x0022, h01=0x0050, text=»* LBIN15 = WORK «, t00=0x0005, t01=0x00d4}
0x08c6…08ec Head {h00=0x0022, h01=0x0050, text=»* SLBIN5 = WORK «, t00=0x0005, t01=0x00fa}
0x08ec…0912 Head {h00=0x0022, h01=0x0050, text=»* SLBIN4 = WORK «, t00=0x0005, t01=0x0120}
0x0912…0946 Head {h00=0x0030, h01=0x0050, text=»* LBIN4 = BASIC LINE POINTER «, t00=0x0005, t01=0x0146}
0x0946…0992 Head {h00=0x0048, h01=0x0050, text=»* VBIN1 = SAVED START POINTER OF OPTIONAL VALIDATION «, t00=0x0005, t01=0x017a}
0x0992…09c8 Head {h00=0x0032, h01=0x0050, text=»* VBIN2 = LENGTH OF VALIDATION «, t00=0x0006, t01=0x0036}
0x09c8…0a06 Head {h00=0x003a, h01=0x0050, text=»* VBIN3 = INTER MEDIATE BUFFER POINTER «, t00=0x0006, t01=0x006c}
0x0a06…0a44 Head {h00=0x003a, h01=0x0050, text=»* VBIN4 = LENGTH-LIMIT OF A SOURCE LINE«, t00=0x0006, t01=0x00aa}
0x0a44…0a80 Head {h00=0x0038, h01=0x0050, text=»* VBIN5 = POINTER START OF STATEMENT «, t00=0x0006, t01=0x00e8}
0x0a80…0aa8 Head {h00=0x0024, h01=0x0050, text=»* VBIN6 = OP-CODE«, t00=0x0006, t01=0x0124}
0x0aa8…0ace Head {h00=0x0022, h01=0x0050, text=»* VBIN7 = WORK «, t00=0x0006, t01=0x014c}
0x0ace…0b02 Head {h00=0x0030, h01=0x0050, text=»* VBIN8 = LENGTH OF STATEMENT«, t00=0x0006, t01=0x0172}
0x0b02…0b4a Head {h00=0x0044, h01=0x0050, text=»* OBJSTR = INTERMEDIATE BUFFER OBJECT OF ONE LINE «, t00=0x0007, t01=0x0016}
0x0b4a…0b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005e}
0x0b54…0b62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0068}
0x0b62…0ba4 Head {h00=0x003e, h01=0x0050, text=»* OUTPUT: LBIN20 = LENGTH OF OPTIONAL PART ADJUSTED «, t00=0x0007, t01=0x0076}
0x0ba4…0bee Head {h00=0x0046, h01=0x0050, text=»* BPOOL = BUFFER POOL STORED WITH VALIDATION OBJECT«, t00=0x0007, t01=0x00b8}
0x0bee…0c3a Head {h00=0x0048, h01=0x0050, text=»* GBIN4 = BUFFER POOL IDEX ADJUSTED IF POOL OVERFLOW «, t00=0x0007, t01=0x0102}
0x0c3a…0c78 Head {h00=0x003a, h01=0x0050, text=»* GBIN5 = BUFFER POOL POINTER ADJUSTED «, t00=0x0007, t01=0x014e}
0x0c78…0cb6 Head {h00=0x003a, h01=0x0050, text=»* SLBIN8 = LINE NUMBER OF DISASTER ERROR«, t00=0x0007, t01=0x018c}
0x0cb6…0d00 Head {h00=0x0046, h01=0x0050, text=»* SLBIN9 = VALBUF-POINTER WHEN DISASTER ERROR FOUND «, t00=0x0008, t01=0x003a}
0x0d00…0d26 Head {h00=0x0022, h01=0x0050, text=»* CR = 0 OK «, t00=0x0008, t01=0x0084}
0x0d26…0d50 Head {h00=0x0026, h01=0x0050, text=»* = 1 NOT OK «, t00=0x0008, t01=0x00aa}
0x0d50…0d94 Head {h00=0x0040, h01=0x0050, text=»* = 2 DISASTER ERROR SYNTAX ERROR FOUND«, t00=0x0008, t01=0x00d4}
0x0d94…0d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0118}
0x0d9e…0dee Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0008, t01=0x0122}
0x0dee…0dfc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0172}
0x0dfc…0e10 Head {h00=0x0010, h01=0x0050, text=»OBJVAL PROC «, t00=0x0008, t01=0x0180}
0x0e10…0e1a (9, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e1a…0e5a Head {h00=0x003c, h01=0x0050, text=»* SAVE START ADRESS WHERE OPTIONAL VALIDATION STARTS«, t00=0x0009, t01=0x000e}
0x0e5a…0e7e Head {h00=0x0020, h01=0x0050, text=»* - BUFFER POOL INDEX «, t00=0x0009, t01=0x004e}
0x0e7e…0ea4 Head {h00=0x0022, h01=0x0050, text=»* - BUFFER POOL POINTER «, t00=0x0009, t01=0x0072}
0x0ea4…0eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0098}
0x0eae…0eda Head {h00=0x0028, h01=0x0050, text=» MOVE LSTR6A,=X'FF' E-O-P-DELIMITER «, t00=0x0009, t01=0x00a2}
0x0eda…0f0e Head {h00=0x0030, h01=0x0050, text=» CLEAR LBOOL4 FALSE NO SPLIT AT POOL CHANGE «, t00=0x0009, t01=0x00ce}
0x0f0e…0f3e Head {h00=0x002c, h01=0x0050, text=» CLEAR VBOOL8 F NO COMPULSARY DELIMITER «, t00=0x0009, t01=0x0102}
0x0f3e…0f72 Head {h00=0x0030, h01=0x0050, text=» MOVE VBIN1,W2 NUMBER OF CHARACTERS TO STORE«, t00=0x0009, t01=0x0132}
0x0f72…0fba Head {h00=0x0044, h01=0x0050, text=» PERF POLICE,VBIN1,LBOOL4,VBOOL8,LSTR81 ***POOL LIMIT CONTROLER «, t00=0x0009, t01=0x0166}
0x0fba…0fe4 Head {h00=0x0026, h01=0x0050, text=» BG OBJ980 JMP IF MEMORY OVERFLOW «, t00=0x000a, t01=0x001e}
0x0fe4…1016 Head {h00=0x002e, h01=0x0050, text=» SET LBOOL4 SPLITT AT POOL CHANGE ALLOWED «, t00=0x000a, t01=0x0048}
0x1016…1040 Head {h00=0x0026, h01=0x0050, text=» SET VBOOL8 T COMPULSORY DELIMITER«, t00=0x000a, t01=0x007a}
0x1040…106c Head {h00=0x0028, h01=0x0050, text=» MOVE VBIN1,GBIN5 STORE POOL-POINTER«, t00=0x000a, t01=0x00a4}
0x106c…10a8 Head {h00=0x0038, h01=0x0050, text=» XCOPY VBIN1,W0,W1,GBIN4,W1 STORE BUFFER POOL-INDEX «, t00=0x000a, t01=0x00d0}
0x10a8…10dc Head {h00=0x0030, h01=0x0050, text=» CBNE LBIN1,W0,OBJ010 JJMP IF NOT POOL-LIMIT«, t00=0x000a, t01=0x010c}
0x10dc…1100 Head {h00=0x0020, h01=0x0050, text=» ADD GBIN4,W1 NEXT POOL-UNIT«, t00=0x000a, t01=0x0140}
0x1100…1136 Head {h00=0x0032, h01=0x0050, text=» CMP GBIN4,DPBIN CHECK MAX NUMB OF POOL-UNITS «, t00=0x000a, t01=0x0164}
0x1136…1158 Head {h00=0x001e, h01=0x0050, text=» BG OBJ980 JMP IF OVERFLOW«, t00=0x000b, t01=0x000a}
0x1158…116e Head {h00=0x0012, h01=0x0050, text=» MOVE GBIN5,W4«, t00=0x000b, t01=0x002c}
0x116e…117c Head {h00=0x000a, h01=0x0050, text=»OBJ010«, t00=0x000b, t01=0x0042}
0x117c…11ae Head {h00=0x002e, h01=0x0050, text=» ADD GBIN5,W2 ADJUST FOR OPT-TYP & LENGTH «, t00=0x000b, t01=0x0050}
0x11ae…11b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0082}
0x11b8…1206 Head {h00=0x004a, h01=0x0050, text=»* MOVE VALIDATION OBJECT IF NO MODIFIED FIELDS/FIELD-TYPE/FIELD-ID«, t00=0x000b, t01=0x008c}
0x1206…1210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00da}
0x1210…1240 Head {h00=0x002c, h01=0x0050, text=» TBT CMBOOL,OBJ020 JMP IF FIELD MODIFIED«, t00=0x000b, t01=0x00e4}
0x1240…1276 Head {h00=0x0032, h01=0x0050, text=» TBT CHABOL,OBJ020 JMP IF VAL.ROUTINE MODIFIED«, t00=0x000b, t01=0x0114}
0x1276…12b0 Head {h00=0x0036, h01=0x0050, text=» CBE VALPTR,W0,OBJ020 JMP IF NO VALIDATION-ROUTINE«, t00=0x000b, t01=0x014a}
0x12b0…12de Head {h00=0x002a, h01=0x0050, text=» PERF MOVVAL ***MOVE VALIDATION OBJECT«, t00=0x000b, t01=0x0184}
0x12de…12fe Head {h00=0x001c, h01=0x0050, text=» BG OBJ980 POOL OVERFLOW«, t00=0x000c, t01=0x0022}
0x12fe…131c Head {h00=0x001a, h01=0x0050, text=» B OBJ990 NORMAL EXIT «, t00=0x000c, t01=0x0042}
0x131c…132a Head {h00=0x000a, h01=0x0050, text=»OBJ020«, t00=0x000c, t01=0x0060}
0x132a…1358 Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,VALBUF ---CHECK IF EMPTY «, t00=0x000c, t01=0x006e}
0x1358…137c Head {h00=0x0020, h01=0x0050, text=» BOK OBJ030 JMP IF NOT EMPTY«, t00=0x000c, t01=0x009c}
0x137c…13b8 Head {h00=0x0038, h01=0x0050, text=» XCOPY GBIN4,W1,W1,VBIN1,W0 STORE BUFFER POOL-INDEX «, t00=0x000c, t01=0x00c0}
0x13b8…13f6 Head {h00=0x003a, h01=0x0050, text=» XCOPY GBIN5,W1,W1,VBIN1,W1 STORE BUFFER POOL-POINTER «, t00=0x000c, t01=0x00fc}
0x13f6…1408 Head {h00=0x000e, h01=0x0050, text=» B OBJ998 «, t00=0x000c, t01=0x013a}
0x1408…1416 Head {h00=0x000a, h01=0x0050, text=»OBJ030«, t00=0x000c, t01=0x014c}
0x1416…1444 Head {h00=0x002a, h01=0x0050, text=» MOVE VBIN2,W2 LENGTH OF VALIDATION:=2«, t00=0x000c, t01=0x015a}
0x1444…1478 Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN4,W0 VALIDATION BUFFER POINTER:=0 «, t00=0x000c, t01=0x0188}
0x1478…1486 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x002c}
0x1486…1490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003a}
0x1490…14b6 Head {h00=0x0022, h01=0x0050, text=»* BASIC LINE INITIALISATION«, t00=0x000d, t01=0x0044}
0x14b6…14c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006a}
0x14c0…14ce Head {h00=0x000a, h01=0x0050, text=»OBJ050«, t00=0x000d, t01=0x0074}
0x14ce…14fe Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN4,W0 SOURCE LINE END LIMIT:=0 «, t00=0x000d, t01=0x0082}
0x14fe…1538 Head {h00=0x0036, h01=0x0050, text=» CBNL LBIN4,VBBIN,OBJ060 JMP IF VALBUF-MAX REACHED«, t00=0x000d, t01=0x00b2}
0x1538…157a Head {h00=0x003e, h01=0x0050, text=» XCOPY VBIN4,W1,W1,VALBUF,LBIN4 GET LENGTH OF SOURCE LINE «, t00=0x000d, t01=0x00ec}
0x157a…1588 Head {h00=0x000a, h01=0x0050, text=»OBJ060«, t00=0x000d, t01=0x012e}
0x1588…15b4 Head {h00=0x0028, h01=0x0050, text=» CMP VBIN4,W0 CHECK IF END OF VALBUF«, t00=0x000d, t01=0x013c}
0x15b4…15e4 Head {h00=0x002c, h01=0x0050, text=» BE OBJ990 JMP IF WHOLE VALIDATION DONE «, t00=0x000d, t01=0x0168}
0x15e4…1614 Head {h00=0x002c, h01=0x0050, text=» ADD VBIN4,LBIN4 CALC-END-OF-LINE LIMIT «, t00=0x000e, t01=0x0008}
0x1614…163e Head {h00=0x0026, h01=0x0050, text=» CALL ICLEAR,OBJSTR ---CLEAR ITEM «, t00=0x000e, t01=0x0038}
0x163e…166e Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN3,W1 INT.MED.BUFFERPOINTER:=1 «, t00=0x000e, t01=0x0062}
0x166e…16a2 Head {h00=0x0030, h01=0x0050, text=» MOVE SLBIN9,LBIN4 SAVE ST.POINTER OF SOURCE«, t00=0x000e, t01=0x0092}
0x16a2…16ce Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST VALBUF POINTER «, t00=0x000e, t01=0x00c6}
0x16ce…1706 Head {h00=0x0034, h01=0x0050, text=» XCOPY LBIN1,W0,W2,VALBUF,LBIN4 GET LINE NUMBER «, t00=0x000e, t01=0x00f2}
0x1706…1732 Head {h00=0x0028, h01=0x0050, text=» MOVE SLBIN8,LBIN1 SAVE LINE NUMBER «, t00=0x000e, t01=0x012a}
0x1732…175e Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W2 ADJUST VALBUF POINTER «, t00=0x000e, t01=0x0156}
0x175e…1768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0182}
0x1768…1796 Head {h00=0x002a, h01=0x0050, text=»* CHECK IF INDENTION(LEADING SPACES«, t00=0x000e, t01=0x018c}
0x1796…17a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002a}
0x17a0…17ca Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x000f, t01=0x0034}
0x17ca…1800 Head {h00=0x0032, h01=0x0050, text=» CALL WXSLL,VBIN7,W11,VBIN7 SHIFT LEFT BIT 0-4«, t00=0x000f, t01=0x005e}
0x1800…1832 Head {h00=0x002e, h01=0x0050, text=» ADD VBIN7,LBIN1 INDENTIONS + LINE NUMBER «, t00=0x000f, t01=0x0094}
0x1832…183c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c6}
0x183c…1876 Head {h00=0x0036, h01=0x0050, text=»* STORE INDENTIONS BIT 0-4 + LINE NUMBER 5-15 «, t00=0x000f, t01=0x00d0}
0x1876…1880 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x010a}
0x1880…18be Head {h00=0x003a, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W2,VBIN7,W0 STORE IND+LINE NUMBER «, t00=0x000f, t01=0x0114}
0x18be…18f2 Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W2 ADJUST INT MED BUFFER POINTER «, t00=0x000f, t01=0x0152}
0x18f2…1900 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0186}
0x1900…190a (16, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x190a…1936 Head {h00=0x0028, h01=0x0050, text=»* BASIC STATEMENT INITIALIZATION «, t00=0x0010, t01=0x000e}
0x1936…1940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x003a}
0x1940…194e Head {h00=0x000a, h01=0x0050, text=»OBJ110«, t00=0x0010, t01=0x0044}
0x194e…1982 Head {h00=0x0030, h01=0x0050, text=» MOVE VBIN5,VBIN3 SAVE START OF STATEMENTPOS«, t00=0x0010, t01=0x0052}
0x1982…19b0 Head {h00=0x002a, h01=0x0050, text=» MOVE VBIN8,W2 LENGTH OF STATEMENT:=2 «, t00=0x0010, t01=0x0086}
0x19b0…19e4 Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W2 ADJUST INT.MED.BUFFER POINTER «, t00=0x0010, t01=0x00b4}
0x19e4…19ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00e8}
0x19ee…1a0c Head {h00=0x001a, h01=0x0050, text=»* CHECK BASIC VERB «, t00=0x0010, t01=0x00f2}
0x1a0c…1a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0110}
0x1a16…1a50 Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,STMTS,SLBIN6,LBIN3 ---GET ITEM LENGTH«, t00=0x0010, t01=0x011a}
0x1a50…1a8c Head {h00=0x0038, h01=0x0050, text=» PERF BSVOPC,W2,VBIN6 ***BASIC VERB OP-CODE LENGTH=2«, t00=0x0010, t01=0x0154}
0x1a8c…1ab0 Head {h00=0x0020, h01=0x0050, text=» BOK OBJ120 BASIC VERB FOUND«, t00=0x0010, t01=0x0190}
0x1ab0…1aec Head {h00=0x0038, h01=0x0050, text=» PERF BSVOPC,W3,VBIN6 ***BASIC VERB OP-CODE LENGTH=3«, t00=0x0011, t01=0x0024}
0x1aec…1b10 Head {h00=0x0020, h01=0x0050, text=» BOK OBJ120 BASIC VERB FOUND«, t00=0x0011, t01=0x0060}
0x1b10…1b4c Head {h00=0x0038, h01=0x0050, text=» PERF BSVOPC,W4,VBIN6 ***BASIC VERB OP-CODE LENGTH=4«, t00=0x0011, t01=0x0084}
0x1b4c…1b70 Head {h00=0x0020, h01=0x0050, text=» BOK OBJ120 BASIC VERB FOUND«, t00=0x0011, t01=0x00c0}
0x1b70…1bac Head {h00=0x0038, h01=0x0050, text=» PERF BSVOPC,W5,VBIN6 ***BASIC VERB OP-CODE LENGTH=5«, t00=0x0011, t01=0x00e4}
0x1bac…1bd0 Head {h00=0x0020, h01=0x0050, text=» BOK OBJ120 BASIC VERB FOUND«, t00=0x0011, t01=0x0120}
0x1bd0…1bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0144}
0x1bda…1c06 Head {h00=0x0028, h01=0x0050, text=»* SEPARATOR ; EMPTY STATEMENT ?«, t00=0x0011, t01=0x014e}
0x1c06…1c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017a}
0x1c10…1c36 Head {h00=0x0022, h01=0x0050, text=» SUB SLBIN6,W1 ADJUST POINTER «, t00=0x0011, t01=0x0184}
0x1c36…1c64 Head {h00=0x002a, h01=0x0050, text=» MATCH STMTS,SLBIN6,W1,VALBUF,LBIN4,W1«, t00=0x0012, t01=0x001a}
0x1c64…1c90 Head {h00=0x0028, h01=0x0050, text=» BNOK OBJ115 JMP IF NOT ;-STATEMENT «, t00=0x0012, t01=0x0048}
0x1c90…1cc6 Head {h00=0x0032, h01=0x0050, text=» XCOPY VBIN6,W1,W1,STVAL,SLBIN6 LOAD OP-CODE ;«, t00=0x0012, t01=0x0074}
0x1cc6…1cf2 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST VALBUF POINTER «, t00=0x0012, t01=0x00aa}
0x1cf2…1d04 Head {h00=0x000e, h01=0x0050, text=» B OBJ120 «, t00=0x0012, t01=0x00d6}
0x1d04…1d12 Head {h00=0x000a, h01=0x0050, text=»OBJ115«, t00=0x0012, t01=0x00e8}
0x1d12…1d40 Head {h00=0x002a, h01=0x0050, text=» MOVE VBIN6,W0 ALPHANUM.LET WITHOUT L «, t00=0x0012, t01=0x00f6}
0x1d40…1d6a Head {h00=0x0026, h01=0x0050, text=» PERF VARDET ***VARIABLE/!INP/!FID«, t00=0x0012, t01=0x0124}
0x1d6a…1d94 Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER/ERROR«, t00=0x0012, t01=0x014e}
0x1d94…1db6 Head {h00=0x001e, h01=0x0050, text=» B OBJ152 LET WITHOUT LET «, t00=0x0012, t01=0x0178}
0x1db6…1dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000a}
0x1dc0…1de6 Head {h00=0x0022, h01=0x0050, text=»* BRANCH ON OPERATION CODE «, t00=0x0013, t01=0x0014}
0x1de6…1df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003a}
0x1df0…1dfe Head {h00=0x000a, h01=0x0050, text=»OBJ120«, t00=0x0013, t01=0x0044}
0x1dfe…1e28 Head {h00=0x0026, h01=0x0050, text=» CBE VBIN6,W0,OBJ150 0=ASSIGNMENT «, t00=0x0013, t01=0x0052}
0x1e28…1e54 Head {h00=0x0028, h01=0x0050, text=» IB VBIN6,OBJ150, 1=ASSIGNMENT LET C«, t00=0x0013, t01=0x007c}
0x1e54…1e76 Head {h00=0x001e, h01=0x0050, text=» OBJ150, 2=ASSIGNMNET C «, t00=0x0013, t01=0x00a8}
0x1e76…1e9a Head {h00=0x0020, h01=0x0050, text=» OBJ150, 3=ASSIGNMNET LET C«, t00=0x0013, t01=0x00ca}
0x1e9a…1eb6 Head {h00=0x0018, h01=0x0050, text=» OBJ200, 4=GO TO C «, t00=0x0013, t01=0x00ee}
0x1eb6…1ed0 Head {h00=0x0016, h01=0x0050, text=» OBJ200, 5=GOTO C«, t00=0x0013, t01=0x010a}
0x1ed0…1ef8 Head {h00=0x0024, h01=0x0050, text=» OBJ250, 6=IF ..THEN ..<LINE> C«, t00=0x0013, t01=0x0124}
0x1ef8…1f18 Head {h00=0x001c, h01=0x0050, text=» OBJ980, 7=NOT VALID C «, t00=0x0013, t01=0x014c}
0x1f18…1f40 Head {h00=0x0024, h01=0x0050, text=» OBJ250, 8=IF ..THEN ..<STMT> C«, t00=0x0013, t01=0x016c}
0x1f40…1f60 (20, 0, 400) Head {h00=0x001c, h01=0x0050, text=» OBJ980, 9=NOT VALID C «, t00=0x0014, t01=0x0004}
0x1f60…1f86 Head {h00=0x0022, h01=0x0050, text=» OBJ350, 10=ON .. GO TO.. C «, t00=0x0014, t01=0x0024}
0x1f86…1faa Head {h00=0x0020, h01=0x0050, text=» OBJ350, 11=ON .. GOTO.. C«, t00=0x0014, t01=0x004a}
0x1faa…1fc6 Head {h00=0x0018, h01=0x0050, text=» OBJ400, 12=CALL C «, t00=0x0014, t01=0x006e}
0x1fc6…1fe6 Head {h00=0x001c, h01=0x0050, text=» OBJ980, 13=NOT VALID C«, t00=0x0014, t01=0x008a}
0x1fe6…2002 Head {h00=0x0018, h01=0x0050, text=» OBJ450, 14=SECT C «, t00=0x0014, t01=0x00aa}
0x2002…2022 Head {h00=0x001c, h01=0x0050, text=» OBJ980, 15=NOT VALID C«, t00=0x0014, t01=0x00c6}
0x2022…203e Head {h00=0x0018, h01=0x0050, text=» OBJ500, 16=ATTR C «, t00=0x0014, t01=0x00e6}
0x203e…205e Head {h00=0x001c, h01=0x0050, text=» OBJ980, 17=NOT VALID C«, t00=0x0014, t01=0x0102}
0x205e…207a Head {h00=0x0018, h01=0x0050, text=» OBJ550, 18=STOP C «, t00=0x0014, t01=0x0122}
0x207a…209a Head {h00=0x001c, h01=0x0050, text=» OBJ980, 19=NOT VALID C«, t00=0x0014, t01=0x013e}
0x209a…20b6 Head {h00=0x0018, h01=0x0050, text=» OBJ600, 20=EXIT C «, t00=0x0014, t01=0x015e}
0x20b6…20d6 Head {h00=0x001c, h01=0x0050, text=» OBJ980, 21=NOT VALID C«, t00=0x0014, t01=0x017a}
0x20d6…20f0 Head {h00=0x0016, h01=0x0050, text=» OBJ650, 22=ERR C«, t00=0x0015, t01=0x000a}
0x20f0…2110 Head {h00=0x001c, h01=0x0050, text=» OBJ980, 23=NOT VALID C«, t00=0x0015, t01=0x0024}
0x2110…212c Head {h00=0x0018, h01=0x0050, text=» OBJ650, 24=WARN C «, t00=0x0015, t01=0x0044}
0x212c…214c Head {h00=0x001c, h01=0x0050, text=» OBJ980, 25=NOT VALID C«, t00=0x0015, t01=0x0060}
0x214c…2166 Head {h00=0x0016, h01=0x0050, text=» OBJ750, 26=REM C«, t00=0x0015, t01=0x0080}
0x2166…2186 Head {h00=0x001c, h01=0x0050, text=» OBJ980, 27=NOT VALID C«, t00=0x0015, t01=0x009a}
0x2186…219c Head {h00=0x0012, h01=0x0050, text=» OBJ800 28=; «, t00=0x0015, t01=0x00ba}
0x219c…21aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00d0}
0x21aa…21b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00de}
0x21b4…2204 Head {h00=0x004c, h01=0x0050, text=»* 0,1,2,3 LET <VARIABLE> = <ARITHMETIC EXPRESSION>/<STRING EXPRESSION«, t00=0x0015, t01=0x00e8}
0x2204…220e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0138}
0x220e…221c Head {h00=0x000a, h01=0x0050, text=»OBJ150«, t00=0x0015, t01=0x0142}
0x221c…2246 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0015, t01=0x0150}
0x2246…2250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017a}
0x2250…226c Head {h00=0x0018, h01=0x0050, text=»* TARGET VARIABLE«, t00=0x0015, t01=0x0184}
0x226c…2276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0010}
0x2276…22a4 Head {h00=0x002a, h01=0x0050, text=» PERF VARDET ***VARIABLE DETERMINATION«, t00=0x0016, t01=0x001a}
0x22a4…22ce Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x0016, t01=0x0048}
0x22ce…22dc Head {h00=0x000a, h01=0x0050, text=»OBJ152«, t00=0x0016, t01=0x0072}
0x22dc…2306 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0016, t01=0x0080}
0x2306…2310 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00aa}
0x2310…2336 Head {h00=0x0022, h01=0x0050, text=»* ASSIGNMENT OPERATOR '=' «, t00=0x0016, t01=0x00b4}
0x2336…2340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00da}
0x2340…234e Head {h00=0x000a, h01=0x0050, text=»OBJ155«, t00=0x0016, t01=0x00e4}
0x234e…2380 Head {h00=0x002e, h01=0x0050, text=» ADD LBIN4,W1 ADJUST INPUT BUFFER POINTER «, t00=0x0016, t01=0x00f2}
0x2380…23aa Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0016, t01=0x0124}
0x23aa…23ce Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0016, t01=0x014e}
0x23ce…2400 Head {h00=0x002e, h01=0x0050, text=» TBF VBOOL2,OBJ160 JMP IF ARITHMETIC EXPR.«, t00=0x0016, t01=0x0172}
0x2400…240a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0014}
0x240a…2432 Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED«, t00=0x0017, t01=0x001e}
0x2432…243c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0046}
0x243c…246a Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x0017, t01=0x0050}
0x246a…2494 Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x0017, t01=0x007e}
0x2494…24b6 Head {h00=0x001e, h01=0x0050, text=» B OBJ890 END OF STATEMENT«, t00=0x0017, t01=0x00a8}
0x24b6…24c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ca}
0x24c0…24ec Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x0017, t01=0x00d4}
0x24ec…24f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0100}
0x24f6…2504 Head {h00=0x000a, h01=0x0050, text=»OBJ160«, t00=0x0017, t01=0x010a}
0x2504…2538 Head {h00=0x0030, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION «, t00=0x0017, t01=0x0118}
0x2538…2562 Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x0017, t01=0x014c}
0x2562…258a Head {h00=0x0024, h01=0x0050, text=» ADD VBIN6,W2 OPERATION-CODE:=03«, t00=0x0017, t01=0x0176}
0x258a…25ac Head {h00=0x001e, h01=0x0050, text=» B OBJ890 END OF STATEMENT«, t00=0x0018, t01=0x000e}
0x25ac…25ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x0030}
0x25ba…25c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x003e}
0x25c4…25ee Head {h00=0x0026, h01=0x0050, text=»* 4,5 GO TO/GOTO <LINE-NUMBER> «, t00=0x0018, t01=0x0048}
0x25ee…25f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0072}
0x25f8…2606 Head {h00=0x000a, h01=0x0050, text=»OBJ200«, t00=0x0018, t01=0x007c}
0x2606…2630 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0018, t01=0x008a}
0x2630…263a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b4}
0x263a…2662 Head {h00=0x0024, h01=0x0050, text=»* LABEL LINE NUMBER EXPECTED «, t00=0x0018, t01=0x00be}
0x2662…266c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e6}
0x266c…2698 Head {h00=0x0028, h01=0x0050, text=» PERF LABLIN,W4 ***LABEL LINE NUMBER«, t00=0x0018, t01=0x00f0}
0x2698…26ba Head {h00=0x001e, h01=0x0050, text=» B OBJ890 END OF STATEMENT«, t00=0x0018, t01=0x011c}
0x26ba…26c8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x013e}
0x26c8…26d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x014c}
0x26d2…2714 Head {h00=0x003e, h01=0x0050, text=»* 6 IF <RELATIONAL EXPRESSION> THEN <LINE>/<STATEMENT> «, t00=0x0018, t01=0x0156}
0x2714…271e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0008}
0x271e…272c Head {h00=0x000a, h01=0x0050, text=»OBJ250«, t00=0x0019, t01=0x0012}
0x272c…2756 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0019, t01=0x0020}
0x2756…2760 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x004a}
0x2760…278c Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED«, t00=0x0019, t01=0x0054}
0x278c…2796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0080}
0x2796…27ba Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0019, t01=0x008a}
0x27ba…27ee Head {h00=0x0030, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION «, t00=0x0019, t01=0x00ae}
0x27ee…2808 Head {h00=0x0016, h01=0x0050, text=» BOK OBJ260 JMP OK«, t00=0x0019, t01=0x00e2}
0x2808…2812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00fc}
0x2812…2842 Head {h00=0x002c, h01=0x0050, text=»* ...OR STRING EXPRESSION EXPECTED «, t00=0x0019, t01=0x0106}
0x2842…284c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0136}
0x284c…2870 Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0019, t01=0x0140}
0x2870…289e Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x0019, t01=0x0164}
0x289e…28c8 (26, 0, 400) Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x001a, t01=0x0004}
0x28c8…28d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x002e}
0x28d6…28e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003c}
0x28e0…2902 Head {h00=0x001e, h01=0x0050, text=»* RELATIONAL OPERATOR «, t00=0x001a, t01=0x0046}
0x2902…290c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0068}
0x290c…291a Head {h00=0x000a, h01=0x0050, text=»OBJ260«, t00=0x001a, t01=0x0072}
0x291a…2944 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x001a, t01=0x0080}
0x2944…2966 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x001a, t01=0x00aa}
0x2966…2994 Head {h00=0x002a, h01=0x0050, text=» MATCH OPRTS,LBIN3,W3,VALBUF,LBIN4,W1 «, t00=0x001a, t01=0x00cc}
0x2994…29c0 Head {h00=0x0028, h01=0x0050, text=» MOVE VBIN7,LBIN3 SAVE FOUND POINTER«, t00=0x001a, t01=0x00fa}
0x29c0…29f0 Head {h00=0x002c, h01=0x0050, text=» CBE VBIN7,W0,OBJ270 JMP IF EQUAL SIGN =«, t00=0x001a, t01=0x0126}
0x29f0…2a12 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W3 POINTER:=3 «, t00=0x001a, t01=0x0156}
0x2a12…2a58 Head {h00=0x0042, h01=0x0050, text=» MATCH OPRTS,LBIN3,W6,VALBUF,LBIN4,W2 MATCH FOLLOWING OPERAND «, t00=0x001a, t01=0x0178}
0x2a58…2a82 Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ270 NO FOLLOWING OPERAND «, t00=0x001b, t01=0x002e}
0x2a82…2aae Head {h00=0x0028, h01=0x0050, text=» MOVE VBIN7,LBIN3 SAVE FOUND POINTER«, t00=0x001b, t01=0x0058}
0x2aae…2ada Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x001b, t01=0x0084}
0x2ada…2ae8 Head {h00=0x000a, h01=0x0050, text=»OBJ270«, t00=0x001b, t01=0x00b0}
0x2ae8…2b1c Head {h00=0x0030, h01=0x0050, text=» MOVE SLBIN4,W0 RELATIONAL OPERATOR CODE:=0 «, t00=0x001b, t01=0x00be}
0x2b1c…2b56 Head {h00=0x0036, h01=0x0050, text=» XCOPY SLBIN4,W1,W1,OPRVAL,VBIN7 LOAD REL.OP-CODE «, t00=0x001b, t01=0x00f2}
0x2b56…2b88 Head {h00=0x002e, h01=0x0050, text=» ADD LBIN4,W1 ADJUST INPUT BUFFER POINTER «, t00=0x001b, t01=0x012c}
0x2b88…2bb2 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x001b, t01=0x015e}
0x2bb2…2bd6 Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x001b, t01=0x0188}
0x2bd6…2c0a Head {h00=0x0030, h01=0x0050, text=» TBT VBOOL2,OBJ290 JMP IF STRING EXPRESSION «, t00=0x001c, t01=0x001c}
0x2c0a…2c3c Head {h00=0x002e, h01=0x0050, text=» ADD SLBIN4,W6 ADJUST REL.OP-CODE NUMERIC «, t00=0x001c, t01=0x0050}
0x2c3c…2c4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0082}
0x2c4a…2c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0090}
0x2c54…2c80 Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x001c, t01=0x009a}
0x2c80…2c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00c6}
0x2c8a…2cbe Head {h00=0x0030, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION «, t00=0x001c, t01=0x00d0}
0x2cbe…2ce8 Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x001c, t01=0x0104}
0x2ce8…2cfa Head {h00=0x000e, h01=0x0050, text=» B OBJ300 «, t00=0x001c, t01=0x012e}
0x2cfa…2d04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0140}
0x2d04…2d2c Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED«, t00=0x001c, t01=0x014a}
0x2d2c…2d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0172}
0x2d36…2d44 Head {h00=0x000a, h01=0x0050, text=»OBJ290«, t00=0x001c, t01=0x017c}
0x2d44…2d72 Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x001c, t01=0x018a}
0x2d72…2d9c Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x001d, t01=0x0028}
0x2d9c…2daa Head {h00=0x000a, h01=0x0050, text=»OBJ300«, t00=0x001d, t01=0x0052}
0x2daa…2db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0060}
0x2db4…2de0 Head {h00=0x0028, h01=0x0050, text=»* STORE RELATIONAL OPERATOR CODE«, t00=0x001d, t01=0x006a}
0x2de0…2dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0096}
0x2dea…2e24 Head {h00=0x0036, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,SLBIN4,W1 STORE REL.OP-CODE«, t00=0x001d, t01=0x00a0}
0x2e24…2e58 Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER «, t00=0x001d, t01=0x00da}
0x2e58…2e86 Head {h00=0x002a, h01=0x0050, text=» ADD VBIN8,W1 ADJUST STATEMENT LENGTH «, t00=0x001d, t01=0x010e}
0x2e86…2eb0 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x001d, t01=0x013c}
0x2eb0…2eba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0166}
0x2eba…2ece Head {h00=0x0010, h01=0x0050, text=»* 'THEN' «, t00=0x001d, t01=0x0170}
0x2ece…2ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0184}
0x2ed8…2f04 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W4 ADJUST VALBUF POINTER «, t00=0x001d, t01=0x018e}
0x2f04…2f2e Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x001e, t01=0x002a}
0x2f2e…2f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0054}
0x2f38…2f60 Head {h00=0x0024, h01=0x0050, text=»* LABEL LINE NUMBER EXPECTED «, t00=0x001e, t01=0x005e}
0x2f60…2f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0086}
0x2f6a…2f96 Head {h00=0x0028, h01=0x0050, text=» PERF LABLIN,W4 ***LABEL LINE NUMBER«, t00=0x001e, t01=0x0090}
0x2f96…2fba Head {h00=0x0020, h01=0x0050, text=» BOK OBJ890 END OF STATEMENT«, t00=0x001e, t01=0x00bc}
0x2fba…2fc8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00e0}
0x2fc8…2fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ee}
0x2fd2…2ff2 Head {h00=0x001c, h01=0x0050, text=»* STATEMENT EXPECTED«, t00=0x001e, t01=0x00f8}
0x2ff2…2ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0118}
0x2ffc…300a Head {h00=0x000a, h01=0x0050, text=»OBJ310«, t00=0x001e, t01=0x0122}
0x300a…3032 Head {h00=0x0024, h01=0x0050, text=» ADD VBIN6,W2 ADJUST OP-CODE:=08«, t00=0x001e, t01=0x0130}
0x3032…3062 Head {h00=0x002c, h01=0x0050, text=» PERF STTYLN ***STATEMENT TYPE + LENGTH «, t00=0x001e, t01=0x0158}
0x3062…308c Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x001e, t01=0x0188}
0x308c…309e Head {h00=0x000e, h01=0x0050, text=» B OBJ110 «, t00=0x001f, t01=0x0022}
0x309e…30ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0034}
0x30ac…30b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0042}
0x30b6…30fe Head {h00=0x0044, h01=0x0050, text=»* 10 ON <ARITHMETIC EXPRESSION> GO TO/GOTO <LINE-NUMBER-LIST>«, t00=0x001f, t01=0x004c}
0x30fe…3108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0094}
0x3108…3116 Head {h00=0x000a, h01=0x0050, text=»OBJ350«, t00=0x001f, t01=0x009e}
0x3116…3140 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x001f, t01=0x00ac}
0x3140…314a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d6}
0x314a…3178 Head {h00=0x002a, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x001f, t01=0x00e0}
0x3178…3182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010e}
0x3182…31a6 Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x001f, t01=0x0118}
0x31a6…31d8 Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x001f, t01=0x013c}
0x31d8…3202 Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x001f, t01=0x016e}
0x3202…322c Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0020, t01=0x0008}
0x322c…3236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0032}
0x3236…3260 Head {h00=0x0026, h01=0x0050, text=»* STORE END-OF-EXPRESSION '01' «, t00=0x0020, t01=0x003c}
0x3260…326a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0066}
0x326a…32a2 Head {h00=0x0034, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,W1,W1 STORE END-OF-EXPR. «, t00=0x0020, t01=0x0070}
0x32a2…32d6 Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER «, t00=0x0020, t01=0x00a8}
0x32d6…3304 Head {h00=0x002a, h01=0x0050, text=» ADD VBIN8,W1 ADJUST STATEMENT LENGTH «, t00=0x0020, t01=0x00dc}
0x3304…330e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x010a}
0x330e…3332 Head {h00=0x0020, h01=0x0050, text=»* MATCH FOR GO TO/GOTO «, t00=0x0020, t01=0x0114}
0x3332…333c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0138}
0x333c…3376 Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,STMTS,SLBIN6,LBIN3 ---GET ITEM LENGTH«, t00=0x0020, t01=0x0142}
0x3376…33b2 Head {h00=0x0038, h01=0x0050, text=» PERF BSVOPC,W5,LBIN1 ***BASIC VERB SEARCH LENGTH=5 «, t00=0x0020, t01=0x017c}
0x33b2…33d6 Head {h00=0x0020, h01=0x0050, text=» BOK OBJ360 BASIC VERB FOUND«, t00=0x0021, t01=0x0028}
0x33d6…3412 Head {h00=0x0038, h01=0x0050, text=» PERF BSVOPC,W4,LBIN1 ***BASIC VERB SEARCH LENGTH=4 «, t00=0x0021, t01=0x004c}
0x3412…3434 Head {h00=0x001e, h01=0x0050, text=» ADD VBIN6,W1 OP-CODE:=0B «, t00=0x0021, t01=0x0088}
0x3434…3442 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00aa}
0x3442…344c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b8}
0x344c…3474 Head {h00=0x0024, h01=0x0050, text=»* LABEL LINE NUMBER EXPECTED «, t00=0x0021, t01=0x00c2}
0x3474…347e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00ea}
0x347e…348c Head {h00=0x000a, h01=0x0050, text=»OBJ360«, t00=0x0021, t01=0x00f4}
0x348c…34b6 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0021, t01=0x0102}
0x34b6…34e2 Head {h00=0x0028, h01=0x0050, text=» PERF LABLIN,W4 ***LABEL LINE NUMBER«, t00=0x0021, t01=0x012c}
0x34e2…351a Head {h00=0x0034, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK END-OF-SOURCE-LINE LIMIT «, t00=0x0021, t01=0x0158}
0x351a…3540 Head {h00=0x0022, h01=0x0050, text=» BE OBJ890 END-OF-SOURCE LINE «, t00=0x0021, t01=0x0190}
0x3540…356a Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0022, t01=0x0026}
0x356a…3574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0050}
0x3574…35a0 Head {h00=0x0028, h01=0x0050, text=»* MATCH FOR LABEL LIST SEPARATOR«, t00=0x0022, t01=0x005a}
0x35a0…35aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0086}
0x35aa…35d0 Head {h00=0x0022, h01=0x0050, text=» MOVE LSTR1,=C',' SEPARATOR=, «, t00=0x0022, t01=0x0090}
0x35d0…35f2 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0022, t01=0x00b6}
0x35f2…362a Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH ',' «, t00=0x0022, t01=0x00d8}
0x362a…3650 Head {h00=0x0022, h01=0x0050, text=» BNOK OBJ890 END OF STATEMENT «, t00=0x0022, t01=0x0110}
0x3650…367c Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST VALBUF POINTER «, t00=0x0022, t01=0x0136}
0x367c…36a4 Head {h00=0x0024, h01=0x0050, text=» B OBJ360 NEXT LABEL LINE NUMBER«, t00=0x0022, t01=0x0162}
0x36a4…36b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x018a}
0x36b2…36bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0008}
0x36bc…36ec Head {h00=0x002c, h01=0x0050, text=»* 12 CALL UF<DIGIT> !<PARAMETERLIST>!«, t00=0x0023, t01=0x0012}
0x36ec…36f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0042}
0x36f6…3704 Head {h00=0x000a, h01=0x0050, text=»OBJ400«, t00=0x0023, t01=0x004c}
0x3704…372e Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0023, t01=0x005a}
0x372e…3738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0084}
0x3738…375e Head {h00=0x0022, h01=0x0050, text=»* USER FUNCTION IDENT 'UF' «, t00=0x0023, t01=0x008e}
0x375e…3768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b4}
0x3768…3794 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W2 ADJUST BUFFER POINTER «, t00=0x0023, t01=0x00be}
0x3794…379e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ea}
0x379e…37ba Head {h00=0x0018, h01=0x0050, text=»* FUNCTION NUMBER«, t00=0x0023, t01=0x00f4}
0x37ba…37c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0110}
0x37c4…37f0 Head {h00=0x0028, h01=0x0050, text=» PERF LABLIN,W2 ***LABEL LINE NUMBER«, t00=0x0023, t01=0x011a}
0x37f0…3828 Head {h00=0x0034, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK END-OF-SOURCE-LINE LIMIT «, t00=0x0023, t01=0x0146}
0x3828…3854 Head {h00=0x0028, h01=0x0050, text=» BE OBJ890 END OF SOURCE LINE FOUND «, t00=0x0023, t01=0x017e}
0x3854…385e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001a}
0x385e…387a Head {h00=0x0018, h01=0x0050, text=»* PARAMETER-LIST«, t00=0x0024, t01=0x0024}
0x387a…3884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0040}
0x3884…38ae Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0024, t01=0x004a}
0x38ae…38b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0074}
0x38b8…38e0 Head {h00=0x0024, h01=0x0050, text=»* BEGIN OF PARAMETER LIST '('«, t00=0x0024, t01=0x007e}
0x38e0…38ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00a6}
0x38ea…391a Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS «, t00=0x0024, t01=0x00b0}
0x391a…393c Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0024, t01=0x00e0}
0x393c…3974 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH '(' «, t00=0x0024, t01=0x0102}
0x3974…399e Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ890 JMP END OF STATEMENT «, t00=0x0024, t01=0x013a}
0x399e…39ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0164}
0x39ac…39ba Head {h00=0x000a, h01=0x0050, text=»OBJ410«, t00=0x0024, t01=0x0172}
0x39ba…39e6 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0024, t01=0x0180}
0x39e6…3a10 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0025, t01=0x001c}
0x3a10…3a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0046}
0x3a1a…3a42 Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED «, t00=0x0025, t01=0x0050}
0x3a42…3a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0078}
0x3a4c…3a70 Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0025, t01=0x0082}
0x3a70…3a9e Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x0025, t01=0x00a6}
0x3a9e…3aba Head {h00=0x0018, h01=0x0050, text=» BOK OBJ420 EXPR OK «, t00=0x0025, t01=0x00d4}
0x3aba…3ac4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f0}
0x3ac4…3aee Head {h00=0x0026, h01=0x0050, text=»* ... OR ARITHMETIC EXPRESSION «, t00=0x0025, t01=0x00fa}
0x3aee…3af8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0124}
0x3af8…3b1c Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0025, t01=0x012e}
0x3b1c…3b4e Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x0025, t01=0x0152}
0x3b4e…3b78 Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x0025, t01=0x0184}
0x3b78…3b86 Head {h00=0x000a, h01=0x0050, text=»OBJ420«, t00=0x0026, t01=0x001e}
0x3b86…3bb0 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0026, t01=0x002c}
0x3bb0…3bba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0056}
0x3bba…3bea Head {h00=0x002c, h01=0x0050, text=»* PARAMETER EXPRESSION SEPARATOR ',' «, t00=0x0026, t01=0x0060}
0x3bea…3bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0090}
0x3bf4…3c20 Head {h00=0x0028, h01=0x0050, text=» MOVE LSTR1,=C',' LOAD PAR-SEPARATOR«, t00=0x0026, t01=0x009a}
0x3c20…3c3e Head {h00=0x001a, h01=0x0050, text=» MOVE LBIN3,W0 POINT0 «, t00=0x0026, t01=0x00c6}
0x3c3e…3c76 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH ',' «, t00=0x0026, t01=0x00e4}
0x3c76…3c94 Head {h00=0x001a, h01=0x0050, text=» BOK OBJ410 JMP IF OK «, t00=0x0026, t01=0x011c}
0x3c94…3c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x013a}
0x3c9e…3cc6 Head {h00=0x0024, h01=0x0050, text=»* END OF PARAMETER LIST ')' «, t00=0x0026, t01=0x0144}
0x3cc6…3cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x016c}
0x3cd0…3cfc Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0026, t01=0x0176}
0x3cfc…3d22 Head {h00=0x0022, h01=0x0050, text=» B OBJ890 JMP END OF STATEMENT«, t00=0x0027, t01=0x0012}
0x3d22…3d30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0038}
0x3d30…3d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0046}
0x3d3a…3d62 Head {h00=0x0024, h01=0x0050, text=»* 14 SECT <STRING EXPRESSION>«, t00=0x0027, t01=0x0050}
0x3d62…3d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0078}
0x3d6c…3d7a Head {h00=0x000a, h01=0x0050, text=»OBJ450«, t00=0x0027, t01=0x0082}
0x3d7a…3da4 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0027, t01=0x0090}
0x3da4…3dae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ba}
0x3dae…3dd6 Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED «, t00=0x0027, t01=0x00c4}
0x3dd6…3de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ec}
0x3de0…3e04 Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x0027, t01=0x00f6}
0x3e04…3e32 Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x0027, t01=0x011a}
0x3e32…3e5c Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x0027, t01=0x0148}
0x3e5c…3e7e Head {h00=0x001e, h01=0x0050, text=» B OBJ890 END OF STATEMENT«, t00=0x0027, t01=0x0172}
0x3e7e…3e8c (40, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0004}
0x3e8c…3e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0012}
0x3e96…3ec6 Head {h00=0x002c, h01=0x0050, text=»* 16 ATTR <ATTRIBUTE> <DYNAMIC FIELD>«, t00=0x0028, t01=0x001c}
0x3ec6…3ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x004c}
0x3ed0…3ede Head {h00=0x000a, h01=0x0050, text=»OBJ500«, t00=0x0028, t01=0x0056}
0x3ede…3f08 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0028, t01=0x0064}
0x3f08…3f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x008e}
0x3f12…3f44 Head {h00=0x002e, h01=0x0050, text=»* ATTRIBUTE => DECORATION OR PROTECTION«, t00=0x0028, t01=0x0098}
0x3f44…3f4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ca}
0x3f4e…3f6a Head {h00=0x0018, h01=0x0050, text=» MOVE LBIN12,=W'26' «, t00=0x0028, t01=0x00d4}
0x3f6a…3fa2 Head {h00=0x0034, h01=0x0050, text=» PERF DECOPC,LBIN12 ***DECORATION OPERATION CODE«, t00=0x0028, t01=0x00f0}
0x3fa2…3fe0 Head {h00=0x003a, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,LBIN1,W1 STORE NUMERIC CONSTANT«, t00=0x0028, t01=0x0128}
0x3fe0…4014 Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER «, t00=0x0028, t01=0x0166}
0x4014…4042 Head {h00=0x002a, h01=0x0050, text=» ADD VBIN8,W1 ADJUST STATEMNET LENGTH «, t00=0x0029, t01=0x000a}
0x4042…406c Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0029, t01=0x0038}
0x406c…4076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0062}
0x4076…4092 Head {h00=0x0018, h01=0x0050, text=»* SEPARATOR ','«, t00=0x0029, t01=0x006c}
0x4092…409c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0088}
0x409c…40c8 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0029, t01=0x0092}
0x40c8…40f2 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0029, t01=0x00be}
0x40f2…40fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e8}
0x40fc…4118 Head {h00=0x0018, h01=0x0050, text=»* DYNAMIC FIELD«, t00=0x0029, t01=0x00f2}
0x4118…4122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x010e}
0x4122…4152 Head {h00=0x002c, h01=0x0050, text=» PERF VARDET ****VARIABLE DETERMINATION «, t00=0x0029, t01=0x0118}
0x4152…417c Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x0029, t01=0x0148}
0x417c…419e Head {h00=0x001e, h01=0x0050, text=» B OBJ890 END OF STATEMENT«, t00=0x0029, t01=0x0172}
0x419e…41ac (42, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0004}
0x41ac…41b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0012}
0x41b6…41dc Head {h00=0x0022, h01=0x0050, text=»* 18 STOP !<DYNAMIC FIELD>!«, t00=0x002a, t01=0x001c}
0x41dc…41e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0042}
0x41e6…41f4 Head {h00=0x000a, h01=0x0050, text=»OBJ550«, t00=0x002a, t01=0x004c}
0x41f4…422c Head {h00=0x0034, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK END-OF-SOURCE LINE LIMIT «, t00=0x002a, t01=0x005a}
0x422c…4252 Head {h00=0x0022, h01=0x0050, text=» BE OBJ890 END-OF-SOURCE LINE «, t00=0x002a, t01=0x0092}
0x4252…427c Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x002a, t01=0x00b8}
0x427c…4286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00e2}
0x4286…42b2 Head {h00=0x0028, h01=0x0050, text=»* STOP WITH TARGET DYNAMIC FIELD«, t00=0x002a, t01=0x00ec}
0x42b2…42bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0118}
0x42bc…42ec Head {h00=0x002c, h01=0x0050, text=» PERF VARDET ****VARIABLE DETERMINATION «, t00=0x002a, t01=0x0122}
0x42ec…4316 Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x002a, t01=0x0152}
0x4316…4338 Head {h00=0x001e, h01=0x0050, text=» B OBJ890 END OF STATEMENT«, t00=0x002a, t01=0x017c}
0x4338…4346 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x000e}
0x4346…4350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x001c}
0x4350…437c Head {h00=0x0028, h01=0x0050, text=»* 20 EXIT <ARITHMETIC EXPRESSION>«, t00=0x002b, t01=0x0026}
0x437c…4386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0052}
0x4386…4394 Head {h00=0x000a, h01=0x0050, text=»OBJ600«, t00=0x002b, t01=0x005c}
0x4394…43be Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x002b, t01=0x006a}
0x43be…43c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0094}
0x43c8…43f4 Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED«, t00=0x002b, t01=0x009e}
0x43f4…43fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ca}
0x43fe…4422 Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x002b, t01=0x00d4}
0x4422…4454 Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x002b, t01=0x00f8}
0x4454…447e Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x002b, t01=0x012a}
0x447e…44a0 Head {h00=0x001e, h01=0x0050, text=» B OBJ890 END OF STATEMENT«, t00=0x002b, t01=0x0154}
0x44a0…44ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0176}
0x44ae…44b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0184}
0x44b8…44f2 Head {h00=0x0036, h01=0x0050, text=»* 22 ERR <DECORATION LIST> <STRING-EXPRESSION> «, t00=0x002b, t01=0x018e}
0x44f2…452c Head {h00=0x0036, h01=0x0050, text=»* 24 WARN <DECORATION LIST> <STRING-EXPRESSION> «, t00=0x002c, t01=0x0038}
0x452c…4536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0072}
0x4536…4544 Head {h00=0x000a, h01=0x0050, text=»OBJ650«, t00=0x002c, t01=0x007c}
0x4544…456e Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x002c, t01=0x008a}
0x456e…45a0 Head {h00=0x002e, h01=0x0050, text=» MMOVE LBIN12,SLBIN5,W0 NUMB OF DECORS:=0 «, t00=0x002c, t01=0x00b4}
0x45a0…45c0 Head {h00=0x001c, h01=0x0050, text=» DECOR BIT PATTERN:=0 «, t00=0x002c, t01=0x00e6}
0x45c0…45ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0106}
0x45ca…45e6 Head {h00=0x0018, h01=0x0050, text=»* DECORATION LIST«, t00=0x002c, t01=0x0110}
0x45e6…45f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x012c}
0x45f0…45fe Head {h00=0x000a, h01=0x0050, text=»OBJ660«, t00=0x002c, t01=0x0136}
0x45fe…462e Head {h00=0x002c, h01=0x0050, text=» CMP LBIN12,W5 CHECK IF ALREADY 5 DECORS«, t00=0x002c, t01=0x0144}
0x462e…4656 Head {h00=0x0024, h01=0x0050, text=» BE OBJ675 INCOMPLETE STATEMENT «, t00=0x002c, t01=0x0174}
0x4656…468c Head {h00=0x0032, h01=0x0050, text=» PERF DECOPC,W10 ***DECORATION OPERATION CODE «, t00=0x002d, t01=0x000c}
0x468c…46ae Head {h00=0x001e, h01=0x0050, text=» BNOK OBJ675 JMP IF NOT OK«, t00=0x002d, t01=0x0042}
0x46ae…46dc Head {h00=0x002a, h01=0x0050, text=» ADD SLBIN5,LBIN1 ADD FOUND DECOR CODE«, t00=0x002d, t01=0x0064}
0x46dc…4706 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x002d, t01=0x0092}
0x4706…473a Head {h00=0x0030, h01=0x0050, text=» ADD LBIN12,W1 INCREMENT NUMB OF DECORATIONS«, t00=0x002d, t01=0x00bc}
0x473a…4748 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x00f0}
0x4748…4752 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00fe}
0x4752…477e Head {h00=0x0028, h01=0x0050, text=»* DECORATION LIST SEPARATOR ','«, t00=0x002d, t01=0x0108}
0x477e…4788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0134}
0x4788…47b4 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x002d, t01=0x013e}
0x47b4…47de Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x002d, t01=0x016a}
0x47de…4800 (46, 0, 400) Head {h00=0x001e, h01=0x0050, text=» B OBJ660 NEXT DECORATION «, t00=0x002e, t01=0x0004}
0x4800…480a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0026}
0x480a…4832 Head {h00=0x0024, h01=0x0050, text=»* STRING EXPRESSION EXPECTED «, t00=0x002e, t01=0x0030}
0x4832…483c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0058}
0x483c…484a Head {h00=0x000a, h01=0x0050, text=»OBJ675«, t00=0x002e, t01=0x0062}
0x484a…488a Head {h00=0x003c, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,SLBIN5,W1 STORE DECOR BIT PATTERN«, t00=0x002e, t01=0x0070}
0x488a…48be Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER «, t00=0x002e, t01=0x00b0}
0x48be…48ec Head {h00=0x002a, h01=0x0050, text=» ADD VBIN8,W1 ADJUST STATEMNET LENGTH «, t00=0x002e, t01=0x00e4}
0x48ec…4910 Head {h00=0x0020, h01=0x0050, text=» PERF CLRLST ***CLEAR STACK «, t00=0x002e, t01=0x0112}
0x4910…493e Head {h00=0x002a, h01=0x0050, text=» PERF STREXP ***STRING EXPR EVALUATION«, t00=0x002e, t01=0x0136}
0x493e…4968 Head {h00=0x0026, h01=0x0050, text=» BNOK OBJ950 JMP IF DISASTER-ERROR«, t00=0x002e, t01=0x0164}
0x4968…498a Head {h00=0x001e, h01=0x0050, text=» B OBJ890 END OF STATEMENT«, t00=0x002e, t01=0x018e}
0x498a…4998 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0020}
0x4998…49a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x002e}
0x49a2…49d0 Head {h00=0x002a, h01=0x0050, text=»* 26 REM !<ALPHNUMERIC CHARACTERS>! «, t00=0x002f, t01=0x0038}
0x49d0…49da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0066}
0x49da…49e8 Head {h00=0x000a, h01=0x0050, text=»OBJ750«, t00=0x002f, t01=0x0070}
0x49e8…4a20 Head {h00=0x0034, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK END-OF-SOURCE LINE LIMIT «, t00=0x002f, t01=0x007e}
0x4a20…4a46 Head {h00=0x0022, h01=0x0050, text=» BE OBJ890 END-OF-SOURCE LINE «, t00=0x002f, t01=0x00b6}
0x4a46…4a70 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x002f, t01=0x00dc}
0x4a70…4aa4 Head {h00=0x0030, h01=0x0050, text=» MOVE LBIN1,VBIN4 STORE END OF SOURCE LIMIT «, t00=0x002f, t01=0x0106}
0x4aa4…4adc Head {h00=0x0034, h01=0x0050, text=» SUB LBIN1,LBIN4 CALC NUMB OF REMARK CHARACTERS «, t00=0x002f, t01=0x013a}
0x4adc…4b1a Head {h00=0x003a, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,LBIN1,VALBUF,LBIN4 GET REMARKTEXT «, t00=0x002f, t01=0x0172}
0x4b1a…4b48 Head {h00=0x002a, h01=0x0050, text=» ADD LBIN4,LBIN1 ADJUST VALBUF POINTER«, t00=0x0030, t01=0x0020}
0x4b48…4b7e Head {h00=0x0032, h01=0x0050, text=» ADD VBIN3,LBIN1 ADJUST INT.MED.BUFFER-POINTER«, t00=0x0030, t01=0x004e}
0x4b7e…4bb2 Head {h00=0x0030, h01=0x0050, text=» ADD VBIN8,LBIN1 ADJUST LENGTH OF STATEMENT «, t00=0x0030, t01=0x0084}
0x4bb2…4bc4 Head {h00=0x000e, h01=0x0050, text=» B OBJ890 «, t00=0x0030, t01=0x00b8}
0x4bc4…4bd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x00ca}
0x4bd2…4bdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d8}
0x4bdc…4c08 Head {h00=0x0028, h01=0x0050, text=»* 28 ; (BASIC STATEMENT SEPARATOR)«, t00=0x0030, t01=0x00e2}
0x4c08…4c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x010e}
0x4c12…4c20 Head {h00=0x000a, h01=0x0050, text=»OBJ800«, t00=0x0030, t01=0x0118}
0x4c20…4c48 Head {h00=0x0024, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK IF E-O-B «, t00=0x0030, t01=0x0126}
0x4c48…4c72 Head {h00=0x0026, h01=0x0050, text=» BE OBJ890 OBJECT IF LAST IN LINE «, t00=0x0030, t01=0x014e}
0x4c72…4ca4 Head {h00=0x002e, h01=0x0050, text=» SUB VBIN3,W2 ADJUST INT.MED.BUFFERPOINTER«, t00=0x0030, t01=0x0178}
0x4ca4…4ccc Head {h00=0x0024, h01=0x0050, text=» B OBJ895 NO OBJECT IF SEPARATOR«, t00=0x0031, t01=0x001a}
0x4ccc…4cd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0042}
0x4cd6…4cf4 Head {h00=0x001a, h01=0x0050, text=»* END OF STATEMENT «, t00=0x0031, t01=0x004c}
0x4cf4…4cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x006a}
0x4cfe…4d0c Head {h00=0x000a, h01=0x0050, text=»OBJ890«, t00=0x0031, t01=0x0074}
0x4d0c…4d3c Head {h00=0x002c, h01=0x0050, text=» PERF STTYLN ***STATEMENT TYPE + LENGTH «, t00=0x0031, t01=0x0082}
0x4d3c…4d6e Head {h00=0x002e, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK END-OF-SOURCE LINE «, t00=0x0031, t01=0x00b2}
0x4d6e…4d94 Head {h00=0x0022, h01=0x0050, text=» BE OBJ900 END-OF-SOURCE LINE «, t00=0x0031, t01=0x00e4}
0x4d94…4da2 Head {h00=0x000a, h01=0x0050, text=»OBJ895«, t00=0x0031, t01=0x010a}
0x4da2…4dcc Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0031, t01=0x0118}
0x4dcc…4df2 Head {h00=0x0022, h01=0x0050, text=» B OBJ110 NEXT BASIC STATEMENT«, t00=0x0031, t01=0x0142}
0x4df2…4e00 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0168}
0x4e00…4e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0176}
0x4e0a…4e2e Head {h00=0x0020, h01=0x0050, text=»* END OF VALIDATION LINE «, t00=0x0031, t01=0x0180}
0x4e2e…4e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0014}
0x4e38…4e46 Head {h00=0x000a, h01=0x0050, text=»OBJ900«, t00=0x0032, t01=0x001e}
0x4e46…4e72 Head {h00=0x0028, h01=0x0050, text=» MOVE LSTR6A,=X'FF' E-O-P-DELIMITER «, t00=0x0032, t01=0x002c}
0x4e72…4eac Head {h00=0x0036, h01=0x0050, text=» XCOPY OBJSTR,W0,W1,VBIN3,W1 STORE LENGTH OF LINE «, t00=0x0032, t01=0x0058}
0x4eac…4ede Head {h00=0x002e, h01=0x0050, text=» ADD VBIN2,VBIN3 ADJUST LENGTH OF OBJ LINE«, t00=0x0032, t01=0x0092}
0x4ede…4f12 Head {h00=0x0030, h01=0x0050, text=» CMP VBIN2,=X'0FFF' CHECK MAX SIZE OF VALID.«, t00=0x0032, t01=0x00c4}
0x4f12…4f3c Head {h00=0x0026, h01=0x0050, text=» BG OBJ980 JMP IF GREATER MAXSIZE «, t00=0x0032, t01=0x00f8}
0x4f3c…4f6c Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN4,W0 SOURCE LINE END LIMIT:=0 «, t00=0x0032, t01=0x0122}
0x4f6c…4fa6 Head {h00=0x0036, h01=0x0050, text=» CBNL LBIN4,VBBIN,OBJ910 JMP IF VALBUF-MAX REACHED«, t00=0x0032, t01=0x0152}
0x4fa6…4fe8 Head {h00=0x003e, h01=0x0050, text=» XCOPY VBIN4,W1,W1,VALBUF,LBIN4 GET LENGTH OF SOURCE LINE «, t00=0x0032, t01=0x018c}
0x4fe8…4ff6 Head {h00=0x000a, h01=0x0050, text=»OBJ910«, t00=0x0033, t01=0x003e}
0x4ff6…502a Head {h00=0x0030, h01=0x0050, text=» CBNE VBIN4,W0,OBJ920 CHECK IF END OF VALBUF«, t00=0x0033, t01=0x004c}
0x502a…505e Head {h00=0x0030, h01=0x0050, text=» CLEAR VBOOL8 FALSE NO E-O-P NEEDED IF EXACT«, t00=0x0033, t01=0x0080}
0x505e…506c Head {h00=0x000a, h01=0x0050, text=»OBJ920«, t00=0x0033, t01=0x00b4}
0x506c…50b4 Head {h00=0x0044, h01=0x0050, text=» PERF POLICE,VBIN3,LBOOL4,VBOOL8,OBJSTR ***POOL-LIMIT CONTROLER «, t00=0x0033, t01=0x00c2}
0x50b4…50de Head {h00=0x0026, h01=0x0050, text=» BG OBJ980 JMP IF MEMORY OVERFLOW «, t00=0x0033, t01=0x010a}
0x50de…5126 Head {h00=0x0044, h01=0x0050, text=» XCOPY BPOOL(GBIN4),GBIN5,VBIN3,OBJSTR,W0 STORE VAL.OBJECT LINE «, t00=0x0033, t01=0x0134}
0x5126…5154 Head {h00=0x002a, h01=0x0050, text=» ADD GBIN5,VBIN3 ADJUST BUFFER POINTER«, t00=0x0033, t01=0x017c}
0x5154…5170 Head {h00=0x0018, h01=0x0050, text=» B OBJ050 NEXT LINE«, t00=0x0034, t01=0x001a}
0x5170…517e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x0036}
0x517e…5188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0044}
0x5188…51c6 Head {h00=0x003a, h01=0x0050, text=»* DISASTER-ERRORS ; -FIELD-ID DELETED OR CHANGED«, t00=0x0034, t01=0x004e}
0x51c6…520e Head {h00=0x0044, h01=0x0050, text=»* -FIELD-TYPE (NUM OR ALPHANUM) CHANGED «, t00=0x0034, t01=0x008c}
0x520e…524e Head {h00=0x003c, h01=0x0050, text=»* *** WITHOUT SYNTAX CONTROL ***«, t00=0x0034, t01=0x00d4}
0x524e…5258 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0114}
0x5258…5266 Head {h00=0x000a, h01=0x0050, text=»OBJ950«, t00=0x0034, t01=0x011e}
0x5266…527e Head {h00=0x0014, h01=0x0050, text=» CMP W0,W1 CR:=2«, t00=0x0034, t01=0x012c}
0x527e…5294 Head {h00=0x0012, h01=0x0050, text=» B OBJ999 EXIT«, t00=0x0034, t01=0x0144}
0x5294…52a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x015a}
0x52a2…52ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0168}
0x52ac…52c8 Head {h00=0x0018, h01=0x0050, text=»* MEMORY OVERFLOW «, t00=0x0034, t01=0x0172}
0x52c8…52d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x018e}
0x52d2…52e0 Head {h00=0x000a, h01=0x0050, text=»OBJ980«, t00=0x0035, t01=0x0008}
0x52e0…52f8 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x0035, t01=0x0016}
0x52f8…530a Head {h00=0x000e, h01=0x0050, text=» B OBJ999 «, t00=0x0035, t01=0x002e}
0x530a…5314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0040}
0x5314…5344 Head {h00=0x002c, h01=0x0050, text=»* EXIT OK STORE OPTIONAL TYPE $ LENGTH«, t00=0x0035, t01=0x004a}
0x5344…534e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x007a}
0x534e…535c Head {h00=0x000a, h01=0x0050, text=»OBJ990«, t00=0x0035, t01=0x0084}
0x535c…537e Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 WORKITEM:=0«, t00=0x0035, t01=0x0092}
0x537e…53ba Head {h00=0x0038, h01=0x0050, text=» XCOPY LBIN3,W1,W1,VBIN1,W0 RELOAD BUFFER POOL-INDEX«, t00=0x0035, t01=0x00b4}
0x53ba…53f0 Head {h00=0x0032, h01=0x0050, text=» XCOPY VBIN1,W0,W1,W0,W0 OVERWRITE POOL-INDEX «, t00=0x0035, t01=0x00f0}
0x53f0…5426 Head {h00=0x0032, h01=0x0050, text=» MOVE LBIN2,W1 RELOAD OPTIONAL ATTRIBUTE CODE «, t00=0x0035, t01=0x0126}
0x5426…5454 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN1,LBIN2 STORE OPTIONAL TYPE «, t00=0x0035, t01=0x015c}
0x5454…548a Head {h00=0x0032, h01=0x0050, text=» CALL WXSLL,LBIN1,W12,LBIN1 SHIFT LEFT BIT 0-3«, t00=0x0035, t01=0x018a}
0x548a…54bc Head {h00=0x002e, h01=0x0050, text=» ADD LBIN1,VBIN2 ADD LENGTH OF VALIDATION «, t00=0x0036, t01=0x0030}
0x54bc…54fe Head {h00=0x003e, h01=0x0050, text=» XCOPY BPOOL(LBIN3),VBIN1,W2,LBIN1,W0 STORE TYPE & LENGTH «, t00=0x0036, t01=0x0062}
0x54fe…5534 Head {h00=0x0032, h01=0x0050, text=» ADD LBIN20,VBIN2 ADJUST OPTIONAL PART LENGTH «, t00=0x0036, t01=0x00a4}
0x5534…5568 Head {h00=0x0030, h01=0x0050, text=» CMP LBIN20,=X'0FFF' CHECK MAXSIZE OPTIONALS«, t00=0x0036, t01=0x00da}
0x5568…558a Head {h00=0x001e, h01=0x0050, text=» BG OBJ980 JMP IF GREATER «, t00=0x0036, t01=0x010e}
0x558a…5598 Head {h00=0x000a, h01=0x0050, text=»OBJ998«, t00=0x0036, t01=0x0130}
0x5598…55b0 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x0036, t01=0x013e}
0x55b0…55be Head {h00=0x000a, h01=0x0050, text=»OBJ999«, t00=0x0036, t01=0x0156}
0x55be…55ca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0036, t01=0x0164}
0x55ca…55d8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0036, t01=0x0170}
0x55d8…55e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x017e}
0x55e6…55f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x018c}
0x55f0…5616 Head {h00=0x0022, h01=0x0050, text=»* BASIC VERB OPERATION CODE«, t00=0x0037, t01=0x0008}
0x5616…5620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x002e}
0x5620…5658 Head {h00=0x0034, h01=0x0050, text=»* INPUT : STLEN =(FORMAL) BASIC VERB LENGTH «, t00=0x0037, t01=0x0038}
0x5658…568a Head {h00=0x002e, h01=0x0050, text=»* LBIN12 = FILLER CHARACTER /FF«, t00=0x0037, t01=0x0070}
0x568a…56b8 Head {h00=0x002a, h01=0x0050, text=»* SLBIN6 = LENGTH OF STMTS «, t00=0x0037, t01=0x00a2}
0x56b8…56c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d0}
0x56c2…56e8 Head {h00=0x0022, h01=0x0050, text=»* USED : VBIN7 = WORKITEM«, t00=0x0037, t01=0x00da}
0x56e8…570e Head {h00=0x0022, h01=0x0050, text=»* LBIN3 = WORKITEM«, t00=0x0037, t01=0x0100}
0x570e…5718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0126}
0x5718…5754 Head {h00=0x0038, h01=0x0050, text=»* OUTPUT: LBIN4 = INPUT BUFFER POINTER ADJUSTED «, t00=0x0037, t01=0x0130}
0x5754…5798 Head {h00=0x0040, h01=0x0050, text=»* OPCODE = CORRESPONDING OBJECT-CODE (BASIC VERB)«, t00=0x0037, t01=0x016c}
0x5798…57bc Head {h00=0x0020, h01=0x0050, text=»* CR = 0 = OK«, t00=0x0038, t01=0x0020}
0x57bc…57e4 Head {h00=0x0024, h01=0x0050, text=»* = 1 = NOT OK«, t00=0x0038, t01=0x0044}
0x57e4…57ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x006c}
0x57ee…583e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0038, t01=0x0076}
0x583e…585e Head {h00=0x001c, h01=0x0050, text=»BSVOPC PROC STLEN,OPCODE«, t00=0x0038, t01=0x00c6}
0x585e…5872 Head {h00=0x0010, h01=0x0050, text=» PBIN STLEN «, t00=0x0038, t01=0x00e6}
0x5872…5886 Head {h00=0x0010, h01=0x0050, text=» PBIN OPCODE«, t00=0x0038, t01=0x00fa}
0x5886…58b2 Head {h00=0x0028, h01=0x0050, text=» MOVE OPCODE,W0 BASIC-VERB OBJECT:=0«, t00=0x0038, t01=0x010e}
0x58b2…58d4 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x0038, t01=0x013a}
0x58d4…58fa Head {h00=0x0022, h01=0x0050, text=» MOVE LSTR1,=X'FF' LOAD FILLER«, t00=0x0038, t01=0x015c}
0x58fa…593e Head {h00=0x0040, h01=0x0050, text=» MATCH STMTS,LBIN3,SLBIN6,VALBUF,LBIN4,STLEN BASICVERBMATCH «, t00=0x0038, t01=0x0182}
0x593e…5964 Head {h00=0x0022, h01=0x0050, text=» BNOK BSV999 JMP IF NOT FOUND «, t00=0x0039, t01=0x0036}
0x5964…599c Head {h00=0x0034, h01=0x0050, text=» XCOPY OPCODE,W1,W1,STVAL,LBIN3 LOAD OBJECT CODE«, t00=0x0039, t01=0x005c}
0x599c…59ce Head {h00=0x002e, h01=0x0050, text=» CBE OPCODE,=X'00FF',BSV980 JMP IF FILLER «, t00=0x0039, t01=0x0094}
0x59ce…59dc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x00c6}
0x59dc…59e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00d4}
0x59e6…5a08 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF PROPER LENGTH«, t00=0x0039, t01=0x00de}
0x5a08…5a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0100}
0x5a12…5a40 Head {h00=0x002a, h01=0x0050, text=» MOVE VBIN7,LBIN3 STORE POINTER VALUE «, t00=0x0039, t01=0x010a}
0x5a40…5a76 Head {h00=0x0032, h01=0x0050, text=» ADD VBIN7,STLEN ADD POINTER STATMENT LENGTH «, t00=0x0039, t01=0x0138}
0x5a76…5ab0 Head {h00=0x0036, h01=0x0050, text=» MATCH STVAL,VBIN7,W1,LSTR1,W0,W1 MATCH IF FILLER «, t00=0x0039, t01=0x016e}
0x5ab0…5ae2 Head {h00=0x002e, h01=0x0050, text=» BOK BSV980 JMP IF FILLER /FF FOUND NOT OK«, t00=0x003a, t01=0x0018}
0x5ae2…5af0 Head {h00=0x000a, h01=0x0050, text=»BSV100«, t00=0x003a, t01=0x004a}
0x5af0…5b24 Head {h00=0x0030, h01=0x0050, text=» ADD LBIN4,STLEN ADJUST POINTER WITH LENGTH «, t00=0x003a, t01=0x0058}
0x5b24…5b3c Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x003a, t01=0x008c}
0x5b3c…5b4e Head {h00=0x000e, h01=0x0050, text=» B BSV999 «, t00=0x003a, t01=0x00a4}
0x5b4e…5b5c Head {h00=0x000a, h01=0x0050, text=»BSV980«, t00=0x003a, t01=0x00b6}
0x5b5c…5b74 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x003a, t01=0x00c4}
0x5b74…5b82 Head {h00=0x000a, h01=0x0050, text=»BSV999«, t00=0x003a, t01=0x00dc}
0x5b82…5b8e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003a, t01=0x00ea}
0x5b8e…5b9c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003a, t01=0x00f6}
0x5b9c…5baa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x0104}
0x5baa…5bb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0112}
0x5bb4…5bd4 Head {h00=0x001c, h01=0x0050, text=»* INDENTION COUNTING«, t00=0x003a, t01=0x011c}
0x5bd4…5bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x013c}
0x5bde…5c0a Head {h00=0x0028, h01=0x0050, text=»* INPUT : VALBUF = INPUT BUFFER «, t00=0x003a, t01=0x0146}
0x5c0a…5c42 Head {h00=0x0034, h01=0x0050, text=»* LBIN4 = VALIDATION BUFFER POINTER«, t00=0x003a, t01=0x0172}
0x5c42…5c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x001a}
0x5c4c…5c74 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: LBIN4 = ADJUSTED «, t00=0x003b, t01=0x0024}
0x5c74…5ca8 Head {h00=0x0030, h01=0x0050, text=»* VBIN7 = NUMBER OF INDENTIONS «, t00=0x003b, t01=0x004c}
0x5ca8…5cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0080}
0x5cb2…5d02 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003b, t01=0x008a}
0x5d02…5d16 Head {h00=0x0010, h01=0x0050, text=»INDCNT PROC «, t00=0x003b, t01=0x00da}
0x5d16…5d46 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=X'20' LOAD SPACE CHARACTER «, t00=0x003b, t01=0x00ee}
0x5d46…5d76 Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN7,W0 NUMB OF LEADING SPACES:=0«, t00=0x003b, t01=0x011e}
0x5d76…5d84 Head {h00=0x000a, h01=0x0050, text=»IND100«, t00=0x003b, t01=0x014e}
0x5d84…5dac Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN3,W0 MATCH-POINTER:=0 «, t00=0x003b, t01=0x015c}
0x5dac…5dea Head {h00=0x003a, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH FOR SPACE «, t00=0x003b, t01=0x0184}
0x5dea…5e14 Head {h00=0x0026, h01=0x0050, text=» BNOK IND999 JMP IF NO MORE SPACES«, t00=0x003c, t01=0x0032}
0x5e14…5e40 Head {h00=0x0028, h01=0x0050, text=» ADD VBIN7,W1 INCREMENT NO OF SPACES«, t00=0x003c, t01=0x005c}
0x5e40…5e6c Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER-POINTER «, t00=0x003c, t01=0x0088}
0x5e6c…5e84 Head {h00=0x0014, h01=0x0050, text=» B IND100 GO ON «, t00=0x003c, t01=0x00b4}
0x5e84…5e92 Head {h00=0x000a, h01=0x0050, text=»IND999«, t00=0x003c, t01=0x00cc}
0x5e92…5e9e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003c, t01=0x00da}
0x5e9e…5eac Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003c, t01=0x00e6}
0x5eac…5eba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x00f4}
0x5eba…5ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0102}
0x5ec4…5ee8 Head {h00=0x0020, h01=0x0050, text=»* STATEMENT TYPE & LENGTH «, t00=0x003c, t01=0x010c}
0x5ee8…5ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0130}
0x5ef2…5f42 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003c, t01=0x013a}
0x5f42…5f56 Head {h00=0x0010, h01=0x0050, text=»STTYLN PROC «, t00=0x003c, t01=0x018a}
0x5f56…5f8c Head {h00=0x0032, h01=0x0050, text=» XCOPY OBJSTR,VBIN5,W1,VBIN6,W1 STORE OP-CODE «, t00=0x003d, t01=0x000e}
0x5f8c…5fb0 Head {h00=0x0020, h01=0x0050, text=» ADD VBIN5,W1 ADJUST POINTER«, t00=0x003d, t01=0x0044}
0x5fb0…5fee Head {h00=0x003a, h01=0x0050, text=» XCOPY OBJSTR,VBIN5,W1,VBIN8,W1 STORE STATEMENT-LENGTH«, t00=0x003d, t01=0x0068}
0x5fee…5ffa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003d, t01=0x00a6}
0x5ffa…6008 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003d, t01=0x00b2}
0x6008…6016 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00c0}
0x6016…6020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00ce}
0x6020…6044 Head {h00=0x0020, h01=0x0050, text=»* VARIABLE DETERMINATION«, t00=0x003d, t01=0x00d8}
0x6044…604e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00fc}
0x604e…607c Head {h00=0x002a, h01=0x0050, text=»* INPUT : VALBUF = BASIC LINE«, t00=0x003d, t01=0x0106}
0x607c…60b2 Head {h00=0x0032, h01=0x0050, text=»* LBIN4 = BASIC LINE POINTER«, t00=0x003d, t01=0x0134}
0x60b2…60e4 Head {h00=0x002e, h01=0x0050, text=»* FIDTAB = FIELD ID TABLE«, t00=0x003d, t01=0x016a}
0x60e4…6118 Head {h00=0x0030, h01=0x0050, text=»* ATTAB = ATTRIBUTE TABLE «, t00=0x003e, t01=0x000c}
0x6118…614e Head {h00=0x0032, h01=0x0050, text=»* GVDUR = SCREEN ROW BUFFER «, t00=0x003e, t01=0x0040}
0x614e…6158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0076}
0x6158…6178 Head {h00=0x001c, h01=0x0050, text=»* USED : LBIN3 «, t00=0x003e, t01=0x0080}
0x6178…6198 Head {h00=0x001c, h01=0x0050, text=»* VBIN7 «, t00=0x003e, t01=0x00a0}
0x6198…61b8 Head {h00=0x001c, h01=0x0050, text=»* LBIN12«, t00=0x003e, t01=0x00c0}
0x61b8…61d8 Head {h00=0x001c, h01=0x0050, text=»* LBIN1 «, t00=0x003e, t01=0x00e0}
0x61d8…61f8 Head {h00=0x001c, h01=0x0050, text=»* SLBIN5«, t00=0x003e, t01=0x0100}
0x61f8…6202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0120}
0x6202…624a Head {h00=0x0044, h01=0x0050, text=»* OUTPUT : VBOOL2 = FALSE NUMERIC => ARITHMETIC VARIABLE«, t00=0x003e, t01=0x012a}
0x624a…6290 Head {h00=0x0042, h01=0x0050, text=»* = TRUE ALPHANUM => STRING VARIABLE «, t00=0x003e, t01=0x0172}
0x6290…62d6 Head {h00=0x0042, h01=0x0050, text=»* VBOOL3 = FALSE !INP- OR !FID-ITEM VARIABLE «, t00=0x003f, t01=0x0028}
0x62d6…6324 Head {h00=0x004a, h01=0x0050, text=»* = TRUE WSM-WORK-ITEM DYNAMIC FIELD VARIABLE«, t00=0x003f, t01=0x006e}
0x6324…634c Head {h00=0x0024, h01=0x0050, text=»* CR = 0 OK«, t00=0x003f, t01=0x00bc}
0x634c…637e Head {h00=0x002e, h01=0x0050, text=»* = 1 OBJECT ERROR«, t00=0x003f, t01=0x00e4}
0x637e…6388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0116}
0x6388…63d8 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x003f, t01=0x0120}
0x63d8…63ec Head {h00=0x0010, h01=0x0050, text=»VARDET PROC «, t00=0x003f, t01=0x0170}
0x63ec…641e Head {h00=0x002e, h01=0x0050, text=» CLEAR VBOOL2 FALSE = ARITHMETIC VARIABLE «, t00=0x003f, t01=0x0184}
0x641e…6452 Head {h00=0x0030, h01=0x0050, text=» CLEAR VBOOL3 FALSE = WSM WORK ITEM VARIABLE«, t00=0x0040, t01=0x0026}
0x6452…647c Head {h00=0x0026, h01=0x0050, text=» MOVE SLBIN5,W4 VARIABLE LENGTH:=4«, t00=0x0040, t01=0x005a}
0x647c…648a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0084}
0x648a…6494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0092}
0x6494…64ce Head {h00=0x0036, h01=0x0050, text=»* CURRENT FIELD '!FID' OR CURRENT INPUT '!INP' «, t00=0x0040, t01=0x009c}
0x64ce…64d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00d6}
0x64d8…650a Head {h00=0x002e, h01=0x0050, text=» MOVE LSTR9A,=C'!INP!FID' LOAD IDENTIFIERS«, t00=0x0040, t01=0x00e0}
0x650a…652c Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER :=0«, t00=0x0040, t01=0x0112}
0x652c…6570 Head {h00=0x0040, h01=0x0050, text=» MATCH LSTR9A,LBIN3,W8,VALBUF,LBIN4,W4 MATCH '!FID' & '!INP'«, t00=0x0040, t01=0x0134}
0x6570…65a0 Head {h00=0x002c, h01=0x0050, text=» BNOK VAR100 JMP IF NOT CURRENT FID/INP «, t00=0x0040, t01=0x0178}
0x65a0…65d2 Head {h00=0x002e, h01=0x0050, text=» CBE LBIN3,W0,VAR010 JMP IF '!INP' = 0000 «, t00=0x0041, t01=0x0018}
0x65d2…65fa Head {h00=0x0024, h01=0x0050, text=» SUB LBIN3,W3 CALC '!FID' = 0001«, t00=0x0041, t01=0x004a}
0x65fa…6608 Head {h00=0x000a, h01=0x0050, text=»VAR010«, t00=0x0041, t01=0x0072}
0x6608…664e Head {h00=0x0042, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W2,LBIN3,W0 STORE OP-CODE CURRENT FID/INP «, t00=0x0041, t01=0x0080}
0x664e…6678 Head {h00=0x0026, h01=0x0050, text=» SUB SLBIN5,W2 VARIABLE LENGTH :=2«, t00=0x0041, t01=0x00c6}
0x6678…66a4 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W2 ADJUST BUFFER POINTER «, t00=0x0041, t01=0x00f0}
0x66a4…66cc Head {h00=0x0024, h01=0x0050, text=» TBT LBOOL5,VAR105 JMP IF STRING«, t00=0x0041, t01=0x011c}
0x66cc…66de Head {h00=0x000e, h01=0x0050, text=» B VAR300 «, t00=0x0041, t01=0x0144}
0x66de…66e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0156}
0x66e8…6712 Head {h00=0x0026, h01=0x0050, text=»* WSM WORK ITEM INVESTIGATION «, t00=0x0041, t01=0x0160}
0x6712…671c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x018a}
0x671c…672a (66, 0, 400) Head {h00=0x000a, h01=0x0050, text=»VAR100«, t00=0x0042, t01=0x0004}
0x672a…674a Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN3,W0 WORKITEM «, t00=0x0042, t01=0x0012}
0x674a…677e Head {h00=0x0030, h01=0x0050, text=» MOVE LSTR6A,=C'WSWAWN' WSM-WORKITEN PREFIX «, t00=0x0042, t01=0x0032}
0x677e…67c2 Head {h00=0x0040, h01=0x0050, text=» MATCH LSTR6A,LBIN3,W6,VALBUF,LBIN4,W2 SEARC WSMITEM PREFIX «, t00=0x0042, t01=0x0066}
0x67c2…67ec Head {h00=0x0026, h01=0x0050, text=» BNOK VAR190 JMP IF NOT A WSM-ITEM«, t00=0x0042, t01=0x00aa}
0x67ec…67f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00d4}
0x67f6…681a Head {h00=0x0020, h01=0x0050, text=»* WSM WORK-ITEM FOUND OK «, t00=0x0042, t01=0x00de}
0x681a…6824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0102}
0x6824…684a Head {h00=0x0022, h01=0x0050, text=» SET VBOOL3 TRUE=WSM WORK ITEM«, t00=0x0042, t01=0x010c}
0x684a…6890 Head {h00=0x0042, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,SLBIN5,VALBUF,LBIN4 LOAD WSM WORKITEM NAME«, t00=0x0042, t01=0x0132}
0x6890…68ba Head {h00=0x0026, h01=0x0050, text=» CBE LBIN3,W4,VAR110 NUM WSM-ITEM «, t00=0x0042, t01=0x0178}
0x68ba…68c8 Head {h00=0x000a, h01=0x0050, text=»VAR105«, t00=0x0043, t01=0x0012}
0x68c8…68f0 Head {h00=0x0024, h01=0x0050, text=» B VAR250 ALPHANUMERIC = STRING «, t00=0x0043, t01=0x0020}
0x68f0…68fe Head {h00=0x000a, h01=0x0050, text=»VAR110«, t00=0x0043, t01=0x0048}
0x68fe…6924 Head {h00=0x0022, h01=0x0050, text=» B VAR300 NUMERIC = ARITHMETIC«, t00=0x0043, t01=0x0056}
0x6924…692e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x007c}
0x692e…6956 Head {h00=0x0024, h01=0x0050, text=»* DYNAMIC FIELD INVESTIGATION«, t00=0x0043, t01=0x0086}
0x6956…6960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x00ae}
0x6960…696e Head {h00=0x000a, h01=0x0050, text=»VAR190«, t00=0x0043, t01=0x00b8}
0x696e…69a8 Head {h00=0x0036, h01=0x0050, text=» MOVE LSTR6A,=X'422A580020' B*X=ALPHANUMERIC CHARS«, t00=0x0043, t01=0x00c6}
0x69a8…69f2 Head {h00=0x0046, h01=0x0050, text=» MOVE LSTR16,=X'2B2D2A2F28293A263D3C3E2C3B2000' +-*/():&=<>,;B/00 «, t00=0x0043, t01=0x0100}
0x69f2…6a2e Head {h00=0x0038, h01=0x0050, text=» MMOVE VBIN7,LBIN12,LBIN4 LOAD ACTUAL BUF. POPINTER «, t00=0x0043, t01=0x014a}
0x6a2e…6a5e Head {h00=0x002c, h01=0x0050, text=» ADD VBIN7,W4 ADJUST TO GET MATCH-LIMIT «, t00=0x0043, t01=0x0186}
0x6a5e…6a6c Head {h00=0x000a, h01=0x0050, text=»VAL192«, t00=0x0044, t01=0x0026}
0x6a6c…6a92 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,W0 MATCHPOINTER:=0«, t00=0x0044, t01=0x0034}
0x6a92…6ac2 Head {h00=0x002c, h01=0x0050, text=» MATCH LSTR16,LBIN3,W15,VALBUF,LBIN12,W1«, t00=0x0044, t01=0x005a}
0x6ac2…6aec Head {h00=0x0026, h01=0x0050, text=» BOK VAL194 DELIMITER-CHAR. FOUND «, t00=0x0044, t01=0x008a}
0x6aec…6b1e Head {h00=0x002e, h01=0x0050, text=» ADD LBIN12,W1 ADJUST TEMP BUFFER POINTER «, t00=0x0044, t01=0x00b4}
0x6b1e…6b50 Head {h00=0x002e, h01=0x0050, text=» CBE LBIN12,VBIN4,VAL194 JMP IF E-O-SOURCE«, t00=0x0044, t01=0x00e6}
0x6b50…6b8a Head {h00=0x0036, h01=0x0050, text=» CBE LBIN12,VBIN7,VAL194 4 POSITIONS MATCHED. JMP «, t00=0x0044, t01=0x0118}
0x6b8a…6bb2 Head {h00=0x0024, h01=0x0050, text=» B VAL192 GO ON MATCH DELIMITER «, t00=0x0044, t01=0x0152}
0x6bb2…6bc0 Head {h00=0x000a, h01=0x0050, text=»VAL194«, t00=0x0044, t01=0x017a}
0x6bc0…6bf0 Head {h00=0x002c, h01=0x0050, text=» SUB LBIN12,LBIN4 CALC EFF. FID-LENGTH ?«, t00=0x0044, t01=0x0188}
0x6bf0…6c18 Head {h00=0x0024, h01=0x0050, text=» BE VAR980 IF = 0 => NO VARIABEL«, t00=0x0045, t01=0x0028}
0x6c18…6c3a Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 WORKITEM:=0«, t00=0x0045, t01=0x0050}
0x6c3a…6c48 Head {h00=0x000a, h01=0x0050, text=»VAR200«, t00=0x0045, t01=0x0072}
0x6c48…6c74 Head {h00=0x0028, h01=0x0050, text=» CMP LBIN3,LABIN CHECK IF END ATTAB «, t00=0x0045, t01=0x0080}
0x6c74…6c94 Head {h00=0x001c, h01=0x0050, text=» BE VAR980 OBJECT ERROR «, t00=0x0045, t01=0x00ac}
0x6c94…6cca Head {h00=0x0032, h01=0x0050, text=» XCOPY VBIN7,W0,W2,ATTAB,LBIN3 FETCH ROW & COL«, t00=0x0045, t01=0x00cc}
0x6cca…6cf8 Head {h00=0x002a, h01=0x0050, text=» CBE VBIN7,W0,VAR980 JMP IF E-O-BUFFER«, t00=0x0045, t01=0x0102}
0x6cf8…6d22 Head {h00=0x0026, h01=0x0050, text=» ADD LBIN3,W2 ADJUST ATAB-POINTER «, t00=0x0045, t01=0x0130}
0x6d22…6d50 Head {h00=0x002a, h01=0x0050, text=» XCOPY VBIN7,W0,W1,W0,W0 DELETE ROW NO«, t00=0x0045, t01=0x015a}
0x6d50…6d82 Head {h00=0x002e, h01=0x0050, text=» CBG VBIN7,LBIN9,VAR206 JMP IF OVFL-ENTRY «, t00=0x0045, t01=0x0188}
0x6d82…6db4 Head {h00=0x002e, h01=0x0050, text=» XCOPY VBIN7,W1,W1,ATTAB,LBIN3 GET SEQ.NO «, t00=0x0046, t01=0x002a}
0x6db4…6dec Head {h00=0x0034, h01=0x0050, text=» CBNE VBIN7,=X'00FF',VAR208 JMP IF DYNAMIC FIELD«, t00=0x0046, t01=0x005c}
0x6dec…6dfa Head {h00=0x000a, h01=0x0050, text=»VAR206«, t00=0x0046, t01=0x0094}
0x6dfa…6e26 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN3,W2 ADJUST ATTAB -POINTER «, t00=0x0046, t01=0x00a2}
0x6e26…6e3e Head {h00=0x0014, h01=0x0050, text=» B VAR200 GO ON «, t00=0x0046, t01=0x00ce}
0x6e3e…6e4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x00e6}
0x6e4c…6e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00f4}
0x6e56…6e7e Head {h00=0x0024, h01=0x0050, text=»* DYNAMIC FIELD SEQ.NO FOUND «, t00=0x0046, t01=0x00fe}
0x6e7e…6e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0126}
0x6e88…6e96 Head {h00=0x000a, h01=0x0050, text=»VAR208«, t00=0x0046, t01=0x0130}
0x6e96…6eb8 Head {h00=0x001e, h01=0x0050, text=» CALL WXMUL,VBIN7,W5,VBIN7«, t00=0x0046, t01=0x013e}
0x6eb8…6ee4 Head {h00=0x0028, h01=0x0050, text=» SUB VBIN7,W5 CALC FIELD-ID POSITION«, t00=0x0046, t01=0x0160}
0x6ee4…6f12 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN1,VBIN7 LOAD FIDTAB-POINTER «, t00=0x0046, t01=0x018c}
0x6f12…6f4e Head {h00=0x0038, h01=0x0050, text=» MATCH FIDTAB,LBIN1,W4,LSTR16,W13,W1 MATCH 1ST SPACE«, t00=0x0047, t01=0x002a}
0x6f4e…6f7e Head {h00=0x002c, h01=0x0050, text=» SUB LBIN1,VBIN7 CALC FIDTAB-FID LENGTH «, t00=0x0047, t01=0x0066}
0x6f7e…6fb6 Head {h00=0x0034, h01=0x0050, text=» CBNE LBIN12,LBIN1,VAR206 JMP IF NOT SAME LENGTH«, t00=0x0047, t01=0x0096}
0x6fb6…6ffe Head {h00=0x0044, h01=0x0050, text=» MATCH FIDTAB,VBIN7,LBIN12,VALBUF,LBIN4,LBIN12 MATCH FIELD NAME «, t00=0x0047, t01=0x00ce}
0x6ffe…7024 Head {h00=0x0022, h01=0x0050, text=» BNOK VAR206 NOT THIS FIELD ID«, t00=0x0047, t01=0x0116}
0x7024…7056 Head {h00=0x002e, h01=0x0050, text=» MOVE SLBIN5,LBIN12 SAVE FOUND FID-LENGTH «, t00=0x0047, t01=0x013c}
0x7056…7064 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x016e}
0x7064…706e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x017c}
0x706e…7090 Head {h00=0x001e, h01=0x0050, text=»* RIGHT FIELD ID FOUND«, t00=0x0047, t01=0x0186}
0x7090…709a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0018}
0x709a…70cc Head {h00=0x002e, h01=0x0050, text=» SET VBOOL3 TRUE = DYNAMIC FIELD VARIABLE «, t00=0x0048, t01=0x0022}
0x70cc…710a Head {h00=0x003a, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W4,FIDTAB,VBIN7 LOAD DYN FIELD ID «, t00=0x0048, t01=0x0054}
0x710a…713c Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN1,W4 MAXLENGTH OF VARIABLE-NAME «, t00=0x0048, t01=0x0092}
0x713c…7178 Head {h00=0x0038, h01=0x0050, text=» SUB LBIN1,SLBIN5 CALC NUMBER TO CORRECT OB-LENGTHS «, t00=0x0048, t01=0x00c4}
0x7178…71ae Head {h00=0x0032, h01=0x0050, text=» ADD VBIN3,LBIN1 ADJUST INT.MED.BUFFER-POINTER«, t00=0x0048, t01=0x0100}
0x71ae…71de Head {h00=0x002c, h01=0x0050, text=» ADD VBIN8,LBIN1 ADJUST STATEMENT LENGTH«, t00=0x0048, t01=0x0136}
0x71de…7208 Head {h00=0x0026, h01=0x0050, text=» SUB LBIN3,W2 ADJUST ATTAB-POINTER«, t00=0x0048, t01=0x0166}
0x7208…722a Head {h00=0x001e, h01=0x0050, text=» MOVE VBIN7,W0 CLEAR FIRST«, t00=0x0048, t01=0x0190}
0x722a…725c Head {h00=0x002e, h01=0x0050, text=» XCOPY VBIN7,W1,W1,ATTAB,LBIN3 GET ROW NO «, t00=0x0049, t01=0x0022}
0x725c…7286 Head {h00=0x0026, h01=0x0050, text=» ADD LBIN3,W1 ADJUST ATTAB-POINTER«, t00=0x0049, t01=0x0054}
0x7286…72a8 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN1,W0 WORKITEM:=0«, t00=0x0049, t01=0x007e}
0x72a8…72da Head {h00=0x002e, h01=0x0050, text=» XCOPY LBIN1,W1,W1,ATTAB,LBIN3 GET COL NO «, t00=0x0049, t01=0x00a0}
0x72da…7308 Head {h00=0x002a, h01=0x0050, text=» SUB LBIN1,W1 ADJUST COL.NO TO POINTER«, t00=0x0049, t01=0x00d2}
0x7308…7332 Head {h00=0x0026, h01=0x0050, text=» ADD LBIN3,W3 ADJUST ATTAB-POINTER«, t00=0x0049, t01=0x0100}
0x7332…735e Head {h00=0x0028, h01=0x0050, text=» CMP LBIN3,LABIN CHECK END OF ATTAB «, t00=0x0049, t01=0x012a}
0x735e…7384 Head {h00=0x0022, h01=0x0050, text=» BE VAR210 JMP IF E-O-B FOUND «, t00=0x0049, t01=0x0156}
0x7384…73a8 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN12,W0 WORKITEM:=0 «, t00=0x0049, t01=0x017c}
0x73a8…73e0 Head {h00=0x0034, h01=0x0050, text=» XCOPY LBIN12,W1,W1,ATTAB,LBIN3 GET NEXT ROW NO «, t00=0x004a, t01=0x0010}
0x73e0…7418 Head {h00=0x0034, h01=0x0050, text=» CBNE LBIN12,VBIN7,VAR210 JMP IF NOT SAME ROW NO«, t00=0x004a, t01=0x0048}
0x7418…7442 Head {h00=0x0026, h01=0x0050, text=» ADD LBIN3,W1 ADJUST ATTAB-POINTER«, t00=0x004a, t01=0x0080}
0x7442…747a Head {h00=0x0034, h01=0x0050, text=» XCOPY LBIN12,W1,W1,ATTAB,LBIN3 GET NEXT COL NO «, t00=0x004a, t01=0x00aa}
0x747a…74a2 Head {h00=0x0024, h01=0x0050, text=» SUB LBIN12,W1 ADUST ENDPOSITION«, t00=0x004a, t01=0x00e2}
0x74a2…74b4 Head {h00=0x000e, h01=0x0050, text=» B VAR215 «, t00=0x004a, t01=0x010a}
0x74b4…74c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x011c}
0x74c2…74cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x012a}
0x74cc…74ec Head {h00=0x001c, h01=0x0050, text=»* SEARCH FOR 1ST /00 «, t00=0x004a, t01=0x0134}
0x74ec…74f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0154}
0x74f6…7504 Head {h00=0x000a, h01=0x0050, text=»VAR210«, t00=0x004a, t01=0x015e}
0x7504…7534 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN3,LBIN9 LOAD MAX COL POSITION «, t00=0x004a, t01=0x016c}
0x7534…7566 Head {h00=0x002e, h01=0x0050, text=» SUB LBIN3,LBIN1 CALC PICTURESTRING LENGTH«, t00=0x004b, t01=0x000c}
0x7566…7594 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN12,LBIN1 LOAD START POSITION«, t00=0x004b, t01=0x003e}
0x7594…75d6 Head {h00=0x003e, h01=0x0050, text=» MATCH GVDUR(VBIN7),LBIN12,LBIN3,LSTR6A,W3,W1 MATCH 1ST 00«, t00=0x004b, t01=0x006c}
0x75d6…75f8 Head {h00=0x001e, h01=0x0050, text=» BOK VAR215 ENDPOS FOUND «, t00=0x004b, t01=0x00ae}
0x75f8…7628 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN12,LBIN9 ENDPOS=MAX ENDCOLPOS «, t00=0x004b, t01=0x00d0}
0x7628…7636 Head {h00=0x000a, h01=0x0050, text=»VAR215«, t00=0x004b, t01=0x0100}
0x7636…7664 Head {h00=0x002a, h01=0x0050, text=» SUB LBIN12,LBIN1 CALC PICTURE LENGTH «, t00=0x004b, t01=0x010e}
0x7664…7686 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x004b, t01=0x013c}
0x7686…76ca Head {h00=0x0040, h01=0x0050, text=» MATCH LSTR6A,LBIN3,W3,GVDUR(VBIN7),LBIN1,W1 MATCH 1ST CHAR «, t00=0x004b, t01=0x015e}
0x76ca…76f0 Head {h00=0x0022, h01=0x0050, text=» BNOK VAR300 NO ALPHANUM CHAR «, t00=0x004c, t01=0x0012}
0x76f0…76fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0038}
0x76fa…7724 Head {h00=0x0026, h01=0x0050, text=»* ALPHANUMERIC CHARACTER FOUND «, t00=0x004c, t01=0x0042}
0x7724…772e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x006c}
0x772e…7766 Head {h00=0x0034, h01=0x0050, text=» XCOPY LSTR1,W0,W1,LSTR6A,LBIN3 LOAD FOUND SIGN «, t00=0x004c, t01=0x0076}
0x7766…779a Head {h00=0x0030, h01=0x0050, text=» MOVE GST80I(W7),LSTR1 FILL WITH FOUND CHAR «, t00=0x004c, t01=0x00ae}
0x779a…77bc Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W0 POINTER:=0 «, t00=0x004c, t01=0x00e2}
0x77bc…77fc Head {h00=0x003c, h01=0x0050, text=» MATCH GST80I(W7),LBIN3,LBIN12,GVDUR(VBIN7),LBIN1,LBIN12«, t00=0x004c, t01=0x0104}
0x77fc…782a Head {h00=0x002a, h01=0x0050, text=» BNOK VAR300 ALL CHARACTERS NOT ALPHA «, t00=0x004c, t01=0x0144}
0x782a…7838 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004c, t01=0x0172}
0x7838…7842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0180}
0x7842…7882 Head {h00=0x003c, h01=0x0050, text=»* ALL CHARACTERS ARE ALPHANUMERIC => STRING VARIABLE«, t00=0x004c, t01=0x018a}
0x7882…788c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x003a}
0x788c…789a Head {h00=0x000a, h01=0x0050, text=»VAR250«, t00=0x004d, t01=0x0044}
0x789a…78c8 Head {h00=0x002a, h01=0x0050, text=» SET VBOOL2 TRUE=ALPHANUMERIC =>STRING«, t00=0x004d, t01=0x0052}
0x78c8…78d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0080}
0x78d2…790c Head {h00=0x0036, h01=0x0050, text=»* NUMERIC DYNAMIC FIELD => ARITHMETIC VARIABLE«, t00=0x004d, t01=0x008a}
0x790c…7916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00c4}
0x7916…7924 Head {h00=0x000a, h01=0x0050, text=»VAR300«, t00=0x004d, t01=0x00ce}
0x7924…7938 Head {h00=0x0010, h01=0x0050, text=» B VAR990 OK«, t00=0x004d, t01=0x00dc}
0x7938…7942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x00f0}
0x7942…795c Head {h00=0x0016, h01=0x0050, text=»* OBJECT ERROR«, t00=0x004d, t01=0x00fa}
0x795c…7966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0114}
0x7966…7974 Head {h00=0x000a, h01=0x0050, text=»VAR980«, t00=0x004d, t01=0x011e}
0x7974…798c Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x004d, t01=0x012c}
0x798c…799e Head {h00=0x000e, h01=0x0050, text=» B VAR999 «, t00=0x004d, t01=0x0144}
0x799e…79a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0156}
0x79a8…79be Head {h00=0x0012, h01=0x0050, text=»* OK EXIT «, t00=0x004d, t01=0x0160}
0x79be…79c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0176}
0x79c8…79d6 Head {h00=0x000a, h01=0x0050, text=»VAR990«, t00=0x004d, t01=0x0180}
0x79d6…7a06 Head {h00=0x002c, h01=0x0050, text=» ADD LBIN4,SLBIN5 ADJUST VALBUF POINTER «, t00=0x004d, t01=0x018e}
0x7a06…7a3e Head {h00=0x0034, h01=0x0050, text=» ADD VBIN3,SLBIN5 ADJUST INT.MED.BUFFER-POINTER «, t00=0x004e, t01=0x002e}
0x7a3e…7a72 Head {h00=0x0030, h01=0x0050, text=» ADD VBIN8,SLBIN5 ADJUST LENGTH OF STATEMENT«, t00=0x004e, t01=0x0066}
0x7a72…7a8a Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x004e, t01=0x009a}
0x7a8a…7a98 Head {h00=0x000a, h01=0x0050, text=»VAR999«, t00=0x004e, t01=0x00b2}
0x7a98…7aa4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x004e, t01=0x00c0}
0x7aa4…7ab2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x004e, t01=0x00cc}
0x7ab2…7ac0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004e, t01=0x00da}
0x7ac0…7aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00e8}
0x7aca…7af4 Head {h00=0x0026, h01=0x0050, text=»* STRING EXPRESSION EVALUATION«, t00=0x004e, t01=0x00f2}
0x7af4…7afe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x011c}
0x7afe…7b26 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: CR = 0 OK «, t00=0x004e, t01=0x0126}
0x7b26…7b52 Head {h00=0x0028, h01=0x0050, text=»* = 1 NOT OK «, t00=0x004e, t01=0x014e}
0x7b52…7b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x017a}
0x7b5c…7bac Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x004e, t01=0x0184}
0x7bac…7bc0 Head {h00=0x0010, h01=0x0050, text=»STREXP PROC «, t00=0x004f, t01=0x0044}
0x7bc0…7be6 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,=W'62' POINTER:=62«, t00=0x004f, t01=0x0058}
0x7be6…7c26 Head {h00=0x003c, h01=0x0050, text=» XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD EXPR SEP ) «, t00=0x004f, t01=0x007e}
0x7c26…7c52 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN2,W1 INCREMENT STACK INDEX «, t00=0x004f, t01=0x00be}
0x7c52…7c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00ea}
0x7c5c…7c7a Head {h00=0x001a, h01=0x0050, text=»* STRING CONSTANT «, t00=0x004f, t01=0x00f4}
0x7c7a…7c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0112}
0x7c84…7c92 Head {h00=0x000a, h01=0x0050, text=»STR000«, t00=0x004f, t01=0x011c}
0x7c92…7cba Head {h00=0x0024, h01=0x0050, text=» MOVE VBIN7,W0 NUMB OF EXPR-CHA0«, t00=0x004f, t01=0x012a}
0x7cba…7ce8 Head {h00=0x002a, h01=0x0050, text=» MOVE LSTR1,=X'22' LOAD STRING QUOTE "«, t00=0x004f, t01=0x0152}
0x7ce8…7d1e Head {h00=0x0032, h01=0x0050, text=» MATCH LSTR1,VBIN7,W1,VALBUF,LBIN4,W1 MATCH " «, t00=0x004f, t01=0x0180}
0x7d1e…7d4a Head {h00=0x0028, h01=0x0050, text=» BNOK STR100 JMP IF NOTSTRING QUOTE «, t00=0x0050, t01=0x0026}
0x7d4a…7d78 Head {h00=0x002a, h01=0x0050, text=» MOVE VBIN7,LBIN4 LOAD BUFFER POINTER «, t00=0x0050, t01=0x0052}
0x7d78…7d9a Head {h00=0x001e, h01=0x0050, text=» ADD VBIN7,W1 ADJUST FOR "«, t00=0x0050, t01=0x0080}
0x7d9a…7dcc Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN1,VBIN4 LOAD END OF SOURCE-LINE «, t00=0x0050, t01=0x00a2}
0x7dcc…7df6 Head {h00=0x0026, h01=0x0050, text=» SUB LBIN1,VBIN7 CALC MATCH LENGTH«, t00=0x0050, t01=0x00d4}
0x7df6…7e30 Head {h00=0x0036, h01=0x0050, text=» MATCH VALBUF,VBIN7,LBIN1,LSTR1,W0,W1 MATCH NEXT "«, t00=0x0050, t01=0x00fe}
0x7e30…7e5c Head {h00=0x0028, h01=0x0050, text=» SUB VBIN7,W1 ADJUST NUMB FOR 1ST " «, t00=0x0050, t01=0x0138}
0x7e5c…7e88 Head {h00=0x0028, h01=0x0050, text=» SUB VBIN7,LBIN4 CALC NUMB OF CHARS «, t00=0x0050, t01=0x0164}
0x7e88…7eb8 Head {h00=0x002c, h01=0x0050, text=» ADD LBIN4,W1 ADJUSTVALBUF POINTER 1ST "«, t00=0x0050, t01=0x0190}
0x7eb8…7ee0 Head {h00=0x0024, h01=0x0050, text=» PERF CONSTO ***CONSTANT STORAGE«, t00=0x0051, t01=0x0030}
0x7ee0…7ef4 Head {h00=0x0010, h01=0x0050, text=» B STR400 OK«, t00=0x0051, t01=0x0058}
0x7ef4…7f02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x006c}
0x7f02…7f0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x007a}
0x7f0c…7f2a Head {h00=0x001a, h01=0x0050, text=»* STRING VARIABLE «, t00=0x0051, t01=0x0084}
0x7f2a…7f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00a2}
0x7f34…7f42 Head {h00=0x000a, h01=0x0050, text=»STR100«, t00=0x0051, t01=0x00ac}
0x7f42…7f70 Head {h00=0x002a, h01=0x0050, text=» PERF VARDET ***VARIABLE DETERMINATION«, t00=0x0051, t01=0x00ba}
0x7f70…7f92 Head {h00=0x001e, h01=0x0050, text=» BNOK STR300 JMP IF NOT OK«, t00=0x0051, t01=0x00e8}
0x7f92…7fc4 Head {h00=0x002e, h01=0x0050, text=» TBT VBOOL2,STR200 JMP IF STRING VARIABLE «, t00=0x0051, t01=0x010a}
0x7fc4…7ff8 Head {h00=0x0030, h01=0x0050, text=» TBT VBOOL3,STR110 JMP IF DYN FIELD/WSM-W-I «, t00=0x0051, t01=0x013c}
0x7ff8…802a Head {h00=0x002e, h01=0x0050, text=» SUB LBIN4,W4 ADJUST POINTER IF WRONG TYPE«, t00=0x0051, t01=0x0170}
0x802a…8062 Head {h00=0x0034, h01=0x0050, text=» SUB VBIN3,SLBIN5 ADJUST INT MED BUFFER POINTER «, t00=0x0052, t01=0x0012}
0x8062…8094 Head {h00=0x002e, h01=0x0050, text=» SUB VBIN8,SLBIN5 ADJUST STATEMENT LENGTH «, t00=0x0052, t01=0x004a}
0x8094…80a6 Head {h00=0x000e, h01=0x0050, text=» B STR120 «, t00=0x0052, t01=0x007c}
0x80a6…80b4 Head {h00=0x000a, h01=0x0050, text=»STR110«, t00=0x0052, t01=0x008e}
0x80b4…80ea Head {h00=0x0032, h01=0x0050, text=» SUB LBIN4,SLBIN5 ADJUST POINTER IF WRONG TYPE«, t00=0x0052, t01=0x009c}
0x80ea…811e Head {h00=0x0030, h01=0x0050, text=» SUB VBIN3,W4 ADJUST INT MED BUFFER POINTER «, t00=0x0052, t01=0x00d2}
0x811e…814c Head {h00=0x002a, h01=0x0050, text=» SUB VBIN8,W4 ADJUST STATEMENT LENGTH «, t00=0x0052, t01=0x0106}
0x814c…815a Head {h00=0x000a, h01=0x0050, text=»STR120«, t00=0x0052, t01=0x0134}
0x815a…8172 Head {h00=0x0014, h01=0x0050, text=» B STR980 NOT OK«, t00=0x0052, t01=0x0142}
0x8172…817c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x015a}
0x817c…81b6 Head {h00=0x0036, h01=0x0050, text=»* QUALIFIED STRING VARIABLE =====> SUBSTRING«, t00=0x0052, t01=0x0164}
0x81b6…81c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x000e}
0x81c0…81ce Head {h00=0x000a, h01=0x0050, text=»STR200«, t00=0x0053, t01=0x0018}
0x81ce…81f2 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK E-O-L«, t00=0x0053, t01=0x0026}
0x81f2…8212 Head {h00=0x001c, h01=0x0050, text=» BE STR990 JMP IF E-O-L «, t00=0x0053, t01=0x004a}
0x8212…823c Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0053, t01=0x006a}
0x823c…8260 Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK E-O-L«, t00=0x0053, t01=0x0094}
0x8260…8280 Head {h00=0x001c, h01=0x0050, text=» BE STR990 JMP IF E-O-L «, t00=0x0053, t01=0x00b8}
0x8280…828e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x00d8}
0x828e…8298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x00e6}
0x8298…82bc Head {h00=0x0020, h01=0x0050, text=»* BEGIN OF SUBSTRING '('«, t00=0x0053, t01=0x00f0}
0x82bc…82c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0114}
0x82c6…82f6 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS «, t00=0x0053, t01=0x011e}
0x82f6…830c Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN3,W0«, t00=0x0053, t01=0x014e}
0x830c…8344 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH '(' «, t00=0x0053, t01=0x0164}
0x8344…8366 Head {h00=0x001e, h01=0x0050, text=» BNOK STR400 NO SUBSTRING «, t00=0x0054, t01=0x000c}
0x8366…8392 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0054, t01=0x002e}
0x8392…83bc Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0054, t01=0x005a}
0x83bc…83c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0084}
0x83c6…83f2 Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x0054, t01=0x008e}
0x83f2…83fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00ba}
0x83fc…842e Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x0054, t01=0x00c4}
0x842e…8458 Head {h00=0x0026, h01=0x0050, text=» BNOK STR980 JMP IF DISASTER ERROR«, t00=0x0054, t01=0x00f6}
0x8458…8482 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0054, t01=0x0120}
0x8482…848c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x014a}
0x848c…84b0 Head {h00=0x0020, h01=0x0050, text=»* SUBSTRING OPERATOR ':'«, t00=0x0054, t01=0x0154}
0x84b0…84ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0178}
0x84ba…84e6 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0054, t01=0x0182}
0x84e6…8510 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0055, t01=0x001e}
0x8510…851a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0048}
0x851a…8546 Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED«, t00=0x0055, t01=0x0052}
0x8546…8550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x007e}
0x8550…8584 Head {h00=0x0030, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION «, t00=0x0055, t01=0x0088}
0x8584…85ae Head {h00=0x0026, h01=0x0050, text=» BNOK STR980 JMP IF DISASTER ERROR«, t00=0x0055, t01=0x00bc}
0x85ae…85d8 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0055, t01=0x00e6}
0x85d8…85e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0110}
0x85e2…861c Head {h00=0x0036, h01=0x0050, text=»* END OF SUBSTRING ')' STORE SUBSTRING OPERATOR«, t00=0x0055, t01=0x011a}
0x861c…8626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0154}
0x8626…8666 Head {h00=0x003c, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,OPRVAL,W19 LOAD SUBSTRING OP-CODE«, t00=0x0055, t01=0x015e}
0x8666…869a Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W1 ADJUST INT.MED. BUFFER-POINTER«, t00=0x0056, t01=0x000e}
0x869a…86c8 Head {h00=0x002a, h01=0x0050, text=» ADD VBIN8,W1 ADJUST STATEMENT LENGTH «, t00=0x0056, t01=0x0042}
0x86c8…86f4 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0056, t01=0x0070}
0x86f4…8706 Head {h00=0x000e, h01=0x0050, text=» B STR400 «, t00=0x0056, t01=0x009c}
0x8706…8714 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x00ae}
0x8714…871e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00bc}
0x871e…873a Head {h00=0x0018, h01=0x0050, text=»* STRING FUNCTION«, t00=0x0056, t01=0x00c6}
0x873a…8744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x00e2}
0x8744…8752 Head {h00=0x000a, h01=0x0050, text=»STR300«, t00=0x0056, t01=0x00ec}
0x8752…8776 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN3,W20 POINTER:=20 «, t00=0x0056, t01=0x00fa}
0x8776…87b2 Head {h00=0x0038, h01=0x0050, text=» MATCH OPRTS,LBIN3,W3,VALBUF,LBIN4,W3 MATCH FUNCTION«, t00=0x0056, t01=0x011e}
0x87b2…87e0 Head {h00=0x002a, h01=0x0050, text=» BNOK STR980 NO FUNCTION GO SCONSTANT «, t00=0x0056, t01=0x015a}
0x87e0…880c Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W3 ADJUST BUFFER POINTER «, t00=0x0056, t01=0x0188}
0x880c…884c Head {h00=0x003c, h01=0x0050, text=» XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 STACK FUNC-CODE «, t00=0x0057, t01=0x0024}
0x884c…8878 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN2,W1 INCREMENT STACK-INDEX «, t00=0x0057, t01=0x0064}
0x8878…88a2 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0057, t01=0x0090}
0x88a2…88b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0057, t01=0x00ba}
0x88b0…88ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00c8}
0x88ba…88e4 Head {h00=0x0026, h01=0x0050, text=»* BEGIN OF PARAMETER LIST '(' «, t00=0x0057, t01=0x00d2}
0x88e4…88ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00fc}
0x88ee…891a Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0057, t01=0x0106}
0x891a…8944 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0057, t01=0x0132}
0x8944…894e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x015c}
0x894e…8978 Head {h00=0x0026, h01=0x0050, text=»* ARITMETIC EXPRESSION EXPECTED«, t00=0x0057, t01=0x0166}
0x8978…8982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x0190}
0x8982…89b4 Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x0058, t01=0x000a}
0x89b4…89de Head {h00=0x0026, h01=0x0050, text=» BNOK STR980 JMP IF DISASTER ERROR«, t00=0x0058, t01=0x003c}
0x89de…8a08 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0058, t01=0x0066}
0x8a08…8a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0090}
0x8a12…8a56 Head {h00=0x0040, h01=0x0050, text=»* END OF PARAMETER LIST ')' STORE FUNCTION OPERATION-CODE«, t00=0x0058, t01=0x009a}
0x8a56…8a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00de}
0x8a60…8a8a Head {h00=0x0026, h01=0x0050, text=» SUB LBIN2,W1 DECREASE STACK-INDEX«, t00=0x0058, t01=0x00e8}
0x8a8a…8ac8 Head {h00=0x003a, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,LSTACK(LBIN2),W1 STORE OP-CODE «, t00=0x0058, t01=0x0112}
0x8ac8…8afc Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W1 ADJUST INT.MED BUFFER-POINTER «, t00=0x0058, t01=0x0150}
0x8afc…8b2a Head {h00=0x002a, h01=0x0050, text=» ADD VBIN8,W1 ADJUST STATEMENT LENGTH «, t00=0x0058, t01=0x0184}
0x8b2a…8b5a Head {h00=0x002c, h01=0x0050, text=» MOVE LSTACK(LBIN2),W0 CLEAR STACK-ENTRY«, t00=0x0059, t01=0x0022}
0x8b5a…8b86 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0059, t01=0x0052}
0x8b86…8b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x007e}
0x8b90…8bbc Head {h00=0x0028, h01=0x0050, text=»* CONCATENATED STRING EXPRESSION«, t00=0x0059, t01=0x0088}
0x8bbc…8bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00b4}
0x8bc6…8bd4 Head {h00=0x000a, h01=0x0050, text=»STR400«, t00=0x0059, t01=0x00be}
0x8bd4…8bfc Head {h00=0x0024, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK E-O-LINE «, t00=0x0059, t01=0x00cc}
0x8bfc…8c12 Head {h00=0x0012, h01=0x0050, text=» BE STR990 E0L«, t00=0x0059, t01=0x00f4}
0x8c12…8c3c Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0059, t01=0x010a}
0x8c3c…8c64 Head {h00=0x0024, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK E-O-LINE «, t00=0x0059, t01=0x0134}
0x8c64…8c7a Head {h00=0x0012, h01=0x0050, text=» BE STR990 E0L«, t00=0x0059, t01=0x015c}
0x8c7a…8c9e Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN3,W18 POINTER:=18 «, t00=0x0059, t01=0x0172}
0x8c9e…8cd4 Head {h00=0x0032, h01=0x0050, text=» MATCH OPRTS,LBIN3,W1,VALBUF,LBIN4,W1 MATCH & «, t00=0x005a, t01=0x0008}
0x8cd4…8cfc Head {h00=0x0024, h01=0x0050, text=» BNOK STR990 NO CONCATENATED STR«, t00=0x005a, t01=0x003e}
0x8cfc…8d30 Head {h00=0x0030, h01=0x0050, text=» PERF OPSTCK,W14 ***OPERATOR-STACK HANDLING «, t00=0x005a, t01=0x0066}
0x8d30…8d5c Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x005a, t01=0x009a}
0x8d5c…8d86 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x005a, t01=0x00c6}
0x8d86…8d9e Head {h00=0x0014, h01=0x0050, text=» B STR000 GO ON «, t00=0x005a, t01=0x00f0}
0x8d9e…8dac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005a, t01=0x0108}
0x8dac…8db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0116}
0x8db6…8dd0 Head {h00=0x0016, h01=0x0050, text=»* OBJECT ERROR«, t00=0x005a, t01=0x0120}
0x8dd0…8dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x013a}
0x8dda…8de8 Head {h00=0x000a, h01=0x0050, text=»STR980«, t00=0x005a, t01=0x0144}
0x8de8…8e00 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x005a, t01=0x0152}
0x8e00…8e12 Head {h00=0x000e, h01=0x0050, text=» B STR999 «, t00=0x005a, t01=0x016a}
0x8e12…8e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x017c}
0x8e1c…8e30 Head {h00=0x0010, h01=0x0050, text=»* EXIT OK«, t00=0x005a, t01=0x0186}
0x8e30…8e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x000a}
0x8e3a…8e48 Head {h00=0x000a, h01=0x0050, text=»STR990«, t00=0x005b, t01=0x0014}
0x8e48…8e72 Head {h00=0x0026, h01=0x0050, text=» SUB LBIN2,W1 DECREASE STACK INDEX«, t00=0x005b, t01=0x0022}
0x8e72…8eaa Head {h00=0x0034, h01=0x0050, text=» CBE LSTACK(LBIN2),=X'0022',STR995 JMP IF E-O-E «, t00=0x005b, t01=0x004c}
0x8eaa…8ee8 Head {h00=0x003a, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,LSTACK(LBIN2),W1 STORE OPERATOR«, t00=0x005b, t01=0x0084}
0x8ee8…8f1c Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W1 ADJUST INT.MED. BUFFER-POINTER«, t00=0x005b, t01=0x00c2}
0x8f1c…8f4a Head {h00=0x002a, h01=0x0050, text=» ADD VBIN8,W1 ADJUST STATEMENT LENGTH «, t00=0x005b, t01=0x00f6}
0x8f4a…8f7a Head {h00=0x002c, h01=0x0050, text=» MOVE LSTACK(LBIN2),W0 CLEAR STACK ENTRY«, t00=0x005b, t01=0x0124}
0x8f7a…8f8c Head {h00=0x000e, h01=0x0050, text=» B STR990 «, t00=0x005b, t01=0x0154}
0x8f8c…8f9a Head {h00=0x000a, h01=0x0050, text=»STR995«, t00=0x005b, t01=0x0166}
0x8f9a…8fca Head {h00=0x002c, h01=0x0050, text=» MOVE LSTACK(LBIN2),W0 CLEAR STACK ENTRY«, t00=0x005b, t01=0x0174}
0x8fca…8ff6 Head {h00=0x0028, h01=0x0050, text=» SET VBOOL2 TRUE =STRING EXPRESSION «, t00=0x005c, t01=0x0014}
0x8ff6…9012 Head {h00=0x0018, h01=0x0050, text=» CMP W1,W1 CR:=0 OK «, t00=0x005c, t01=0x0040}
0x9012…9020 Head {h00=0x000a, h01=0x0050, text=»STR999«, t00=0x005c, t01=0x005c}
0x9020…902c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x005c, t01=0x006a}
0x902c…903a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x005c, t01=0x0076}
0x903a…9048 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005c, t01=0x0084}
0x9048…9052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0092}
0x9052…9080 Head {h00=0x002a, h01=0x0050, text=»* ARITHMETC EXPRESSION EVALUATION «, t00=0x005c, t01=0x009c}
0x9080…908a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x00ca}
0x908a…90b2 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: CR = 0 OK «, t00=0x005c, t01=0x00d4}
0x90b2…90de Head {h00=0x0028, h01=0x0050, text=»* = 1 NOT OK «, t00=0x005c, t01=0x00fc}
0x90de…90e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0128}
0x90e8…9138 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x005c, t01=0x0132}
0x9138…914c Head {h00=0x0010, h01=0x0050, text=»ARTEXP PROC «, t00=0x005c, t01=0x0182}
0x914c…9172 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,=W'62' POINTER:=62«, t00=0x005d, t01=0x0008}
0x9172…91b2 Head {h00=0x003c, h01=0x0050, text=» XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD EXPR SEP ) «, t00=0x005d, t01=0x002e}
0x91b2…91de Head {h00=0x0028, h01=0x0050, text=» ADD LBIN2,W1 INCREMENT STACK INDEX «, t00=0x005d, t01=0x006e}
0x91de…91e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x009a}
0x91e8…9204 Head {h00=0x0018, h01=0x0050, text=»* SIGNED FACTOR «, t00=0x005d, t01=0x00a4}
0x9204…920e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x00c0}
0x920e…921c Head {h00=0x000a, h01=0x0050, text=»ART000«, t00=0x005d, t01=0x00ca}
0x921c…9240 Head {h00=0x0020, h01=0x0050, text=» MOVE LBIN3,W23 POINTER:=23 «, t00=0x005d, t01=0x00d8}
0x9240…9278 Head {h00=0x0034, h01=0x0050, text=» MATCH OPRTS,LBIN3,W2,VALBUF,LBIN4,W1 MATCH '+-'«, t00=0x005d, t01=0x00fc}
0x9278…929c Head {h00=0x0020, h01=0x0050, text=» BNOK ART050 JMP IF NO SIGN «, t00=0x005d, t01=0x0134}
0x929c…92ce Head {h00=0x002e, h01=0x0050, text=» PERF OPSTCK,W20 ***OPERATOR STACK-HANDLER«, t00=0x005d, t01=0x0158}
0x92ce…92fa Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x005d, t01=0x018a}
0x92fa…9324 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x005e, t01=0x0026}
0x9324…9332 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005e, t01=0x0050}
0x9332…933c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x005e}
0x933c…935e Head {h00=0x001e, h01=0x0050, text=»* ARITHMETIC CONSTNAT «, t00=0x005e, t01=0x0068}
0x935e…9368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x008a}
0x9368…9376 Head {h00=0x000a, h01=0x0050, text=»ART050«, t00=0x005e, t01=0x0094}
0x9376…93a2 Head {h00=0x0028, h01=0x0050, text=» MOVE VBIN7,W0 NUMB OF CHARACTERS:=0«, t00=0x005e, t01=0x00a2}
0x93a2…93c8 Head {h00=0x0022, h01=0x0050, text=» CLEAR VBOOL4 FALSE NO DECIMAL«, t00=0x005e, t01=0x00ce}
0x93c8…93f6 Head {h00=0x002a, h01=0x0050, text=» MOVE LBIN3,LBIN4 LOAD BUFFER POINTER «, t00=0x005e, t01=0x00f4}
0x93f6…9404 Head {h00=0x000a, h01=0x0050, text=»ART060«, t00=0x005e, t01=0x0122}
0x9404…943e Head {h00=0x0036, h01=0x0050, text=» XCOPY LSTR1,W0,W1,VALBUF,LBIN3 GET ONE CHARACTER «, t00=0x005e, t01=0x0130}
0x943e…947a Head {h00=0x0038, h01=0x0050, text=» CBL LSTR1,=X'30',ART070 JMP IF NOT DIGIT BUT . OR ,«, t00=0x005e, t01=0x016a}
0x947a…94ac Head {h00=0x002e, h01=0x0050, text=» CBG LSTR1,=X'39',ART080 JMP IF NOT DIGIT «, t00=0x005f, t01=0x0016}
0x94ac…94ba Head {h00=0x000a, h01=0x0050, text=»ART065«, t00=0x005f, t01=0x0048}
0x94ba…94ea Head {h00=0x002c, h01=0x0050, text=» ADD VBIN7,W1 ADJUST NUMB OF CHARACTERS «, t00=0x005f, t01=0x0056}
0x94ea…9516 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN3,W1 ADJUST BUFFER POINTER «, t00=0x005f, t01=0x0086}
0x9516…954e Head {h00=0x0034, h01=0x0050, text=» CMP LBIN3,VBIN4 CHECK END-OF-SOURCE LINE LIMIT «, t00=0x005f, t01=0x00b2}
0x954e…9568 Head {h00=0x0016, h01=0x0050, text=» BE ART080 OK EXIT«, t00=0x005f, t01=0x00ea}
0x9568…9580 Head {h00=0x0014, h01=0x0050, text=» B ART060 GO ON «, t00=0x005f, t01=0x0104}
0x9580…958a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x011c}
0x958a…95b0 Head {h00=0x0022, h01=0x0050, text=»* DECIMAL CHARACTER FOUND ?«, t00=0x005f, t01=0x0126}
0x95b0…95ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x014c}
0x95ba…95c8 Head {h00=0x000a, h01=0x0050, text=»ART070«, t00=0x005f, t01=0x0156}
0x95c8…9602 Head {h00=0x0036, h01=0x0050, text=» CBNE LSTR1,=C'.',ART080 JMP IF NOT A DECIMAL CHAR«, t00=0x005f, t01=0x0164}
0x9602…9628 Head {h00=0x0022, h01=0x0050, text=» SET VBOOL4 TRUE DECIMAL FOUND«, t00=0x0060, t01=0x000e}
0x9628…964c Head {h00=0x0020, h01=0x0050, text=» BOK ART065 OK 1ST DEC CHAR «, t00=0x0060, t01=0x0034}
0x964c…9656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0058}
0x9656…9670 Head {h00=0x0016, h01=0x0050, text=»* END OF DIGITS«, t00=0x0060, t01=0x0062}
0x9670…967a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x007c}
0x967a…9688 Head {h00=0x000a, h01=0x0050, text=»ART080«, t00=0x0060, t01=0x0086}
0x9688…96ae Head {h00=0x0022, h01=0x0050, text=» CBE VBIN7,W0,ART100 NO DIGITS«, t00=0x0060, t01=0x0094}
0x96ae…96d6 Head {h00=0x0024, h01=0x0050, text=» PERF CONSTO ***CONSTANT STORAGE«, t00=0x0060, t01=0x00ba}
0x96d6…9702 Head {h00=0x0028, h01=0x0050, text=» SUB LBIN4,W1 ADJUST VALBUF POINTER «, t00=0x0060, t01=0x00e2}
0x9702…9714 Head {h00=0x000e, h01=0x0050, text=» B ART500 «, t00=0x0060, t01=0x010e}
0x9714…9722 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0060, t01=0x0120}
0x9722…972c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x012e}
0x972c…974c Head {h00=0x001c, h01=0x0050, text=»* ARITHMETIC VARIABLE«, t00=0x0060, t01=0x0138}
0x974c…9756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x0158}
0x9756…9764 Head {h00=0x000a, h01=0x0050, text=»ART100«, t00=0x0060, t01=0x0162}
0x9764…9792 Head {h00=0x002a, h01=0x0050, text=» PERF VARDET ***VARIABLE DETERMINATION«, t00=0x0060, t01=0x0170}
0x9792…97ba Head {h00=0x0024, h01=0x0050, text=» BNOK ART200 JMP IF OBJECT ERROR«, t00=0x0061, t01=0x000e}
0x97ba…97f0 Head {h00=0x0032, h01=0x0050, text=» TBF VBOOL2,ART500 JMP IF ARITHMETIC VARIABLE «, t00=0x0061, t01=0x0036}
0x97f0…9824 Head {h00=0x0030, h01=0x0050, text=» TBT VBOOL3,ART110 JMP IF DYN FIELD/WSM-W-I «, t00=0x0061, t01=0x006c}
0x9824…9856 Head {h00=0x002e, h01=0x0050, text=» SUB LBIN4,W4 ADJUST POINTER IF WRONG TYPE«, t00=0x0061, t01=0x00a0}
0x9856…988e Head {h00=0x0034, h01=0x0050, text=» SUB VBIN3,SLBIN5 ADJUST INT MED BUFFER POINTER «, t00=0x0061, t01=0x00d2}
0x988e…98c0 Head {h00=0x002e, h01=0x0050, text=» SUB VBIN8,SLBIN5 ADJUST STATEMENT LENGTH «, t00=0x0061, t01=0x010a}
0x98c0…98d2 Head {h00=0x000e, h01=0x0050, text=» B ART120 «, t00=0x0061, t01=0x013c}
0x98d2…98e0 Head {h00=0x000a, h01=0x0050, text=»ART110«, t00=0x0061, t01=0x014e}
0x98e0…9916 Head {h00=0x0032, h01=0x0050, text=» SUB LBIN4,SLBIN5 ADJUST POINTER IF WRONG TYPE«, t00=0x0061, t01=0x015c}
0x9916…994a (98, 0, 400) Head {h00=0x0030, h01=0x0050, text=» SUB VBIN3,W4 ADJUST INT MED BUFFER POINTER «, t00=0x0062, t01=0x0004}
0x994a…9978 Head {h00=0x002a, h01=0x0050, text=» SUB VBIN8,W4 ADJUST STATEMENT LENGTH «, t00=0x0062, t01=0x0038}
0x9978…9986 Head {h00=0x000a, h01=0x0050, text=»ART120«, t00=0x0062, t01=0x0066}
0x9986…999e Head {h00=0x0014, h01=0x0050, text=» B ART980 NOT OK«, t00=0x0062, t01=0x0074}
0x999e…99ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0062, t01=0x008c}
0x99ac…99b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x009a}
0x99b6…99d6 Head {h00=0x001c, h01=0x0050, text=»* ARITHMETIC FUNCTION«, t00=0x0062, t01=0x00a4}
0x99d6…99e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x00c4}
0x99e0…99ee Head {h00=0x000a, h01=0x0050, text=»ART200«, t00=0x0062, t01=0x00ce}
0x99ee…9a28 Head {h00=0x0036, h01=0x0050, text=» CALL GETIND,OPRTS,VBIN7,LBIN3 ---GET ITEM LENGTH «, t00=0x0062, t01=0x00dc}
0x9a28…9a4e Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,=W'29' POINTER:=29«, t00=0x0062, t01=0x0116}
0x9a4e…9a7c Head {h00=0x002a, h01=0x0050, text=» SUB VBIN7,LBIN3 CALC LENGTH TO MATCH «, t00=0x0062, t01=0x013c}
0x9a7c…9abc Head {h00=0x003c, h01=0x0050, text=» MATCH OPRTS,LBIN3,VBIN7,VALBUF,LBIN4,W3 MATCH FUNCTION «, t00=0x0062, t01=0x016a}
0x9abc…9adc Head {h00=0x001c, h01=0x0050, text=» BNOK ART300 NO FUNCTION«, t00=0x0063, t01=0x001a}
0x9adc…9b1e Head {h00=0x003e, h01=0x0050, text=» XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD FUNC OP-CODE «, t00=0x0063, t01=0x003a}
0x9b1e…9b4a Head {h00=0x0028, h01=0x0050, text=» ADD LBIN2,W1 INCREMENT STACK INDEX «, t00=0x0063, t01=0x007c}
0x9b4a…9b76 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W3 ADJUST BUFFER POINTER «, t00=0x0063, t01=0x00a8}
0x9b76…9ba0 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0063, t01=0x00d4}
0x9ba0…9baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x00fe}
0x9baa…9bd4 Head {h00=0x0026, h01=0x0050, text=»* BEGIN OF PARAMETER LIST '(' «, t00=0x0063, t01=0x0108}
0x9bd4…9bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0132}
0x9bde…9c0a Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0063, t01=0x013c}
0x9c0a…9c18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x0168}
0x9c18…9c22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0176}
0x9c22…9c58 Head {h00=0x0032, h01=0x0050, text=»* ARITHMETIC OR STRING EXPRESSION EXPECTED«, t00=0x0063, t01=0x0180}
0x9c58…9c62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0026}
0x9c62…9c8c Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0064, t01=0x0030}
0x9c8c…9cc0 Head {h00=0x0030, h01=0x0050, text=» MOVE SLBIN5,LBIN2 LOAD CURRENT STACK INDEX «, t00=0x0064, t01=0x005a}
0x9cc0…9cf0 Head {h00=0x002c, h01=0x0050, text=» SUB SLBIN5,W1 CALC PREVIOUS STACK INDEX«, t00=0x0064, t01=0x008e}
0x9cf0…9d2e Head {h00=0x003a, h01=0x0050, text=» CBE LSTACK(SLBIN5),=X'001D',ART210 JMP IF STRING-FUNC«, t00=0x0064, t01=0x00be}
0x9d2e…9d6c Head {h00=0x003a, h01=0x0050, text=» CBE LSTACK(SLBIN5),=X'001E',ART210 JMP IF STRING-FUNC«, t00=0x0064, t01=0x00fc}
0x9d6c…9daa Head {h00=0x003a, h01=0x0050, text=» CBE LSTACK(SLBIN5),=X'0021',ART210 JMP IF STRING-FUNC«, t00=0x0064, t01=0x013a}
0x9daa…9dd8 Head {h00=0x002a, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPRESSION «, t00=0x0064, t01=0x0178}
0x9dd8…9e02 Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 JMP IF DISASTER ERROR«, t00=0x0065, t01=0x0016}
0x9e02…9e14 Head {h00=0x000e, h01=0x0050, text=» B ART220 «, t00=0x0065, t01=0x0040}
0x9e14…9e22 Head {h00=0x000a, h01=0x0050, text=»ART210«, t00=0x0065, t01=0x0052}
0x9e22…9e52 Head {h00=0x002c, h01=0x0050, text=» PERF STREXP ***STRING EXPR. EVALUATION «, t00=0x0065, t01=0x0060}
0x9e52…9e7c Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 JMP IF DISASTER ERROR«, t00=0x0065, t01=0x0090}
0x9e7c…9e8a Head {h00=0x000a, h01=0x0050, text=»ART220«, t00=0x0065, t01=0x00ba}
0x9e8a…9eb4 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0065, t01=0x00c8}
0x9eb4…9ee8 Head {h00=0x0030, h01=0x0050, text=» MOVE SLBIN5,LBIN2 LOAD CURRENT STACK-INDEX «, t00=0x0065, t01=0x00f2}
0x9ee8…9f18 Head {h00=0x002c, h01=0x0050, text=» SUB SLBIN5,W1 CALC PREVIOUS STACK-INDEX«, t00=0x0065, t01=0x0126}
0x9f18…9f5a Head {h00=0x003e, h01=0x0050, text=» CBG LSTACK(SLBIN5),=X'001E',ART230 JMP IF MORE THAN 1 PAR«, t00=0x0065, t01=0x0156}
0x9f5a…9f7e Head {h00=0x0020, h01=0x0050, text=» B ART260 NO MORE PARAMETERS«, t00=0x0066, t01=0x0008}
0x9f7e…9f8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0066, t01=0x002c}
0x9f8c…9f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x003a}
0x9f96…9fc0 Head {h00=0x0026, h01=0x0050, text=»* PARAMETER LIST SEPARATOR ','«, t00=0x0066, t01=0x0044}
0x9fc0…9fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x006e}
0x9fca…9fd8 Head {h00=0x000a, h01=0x0050, text=»ART230«, t00=0x0066, t01=0x0078}
0x9fd8…a004 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0066, t01=0x0086}
0xa004…a00e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00b2}
0xa00e…a050 Head {h00=0x003e, h01=0x0050, text=»* 2ND PARAMETER STRING OR ARITHMETIC EXPRESSION EXPECTED«, t00=0x0066, t01=0x00bc}
0xa050…a05a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00fe}
0xa05a…a098 Head {h00=0x003a, h01=0x0050, text=» CBE LSTACK(SLBIN5),=X'0021',ART240 JMP IF STRING-FUNC«, t00=0x0066, t01=0x0108}
0xa098…a0ca Head {h00=0x002e, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR EVALUATION«, t00=0x0066, t01=0x0146}
0xa0ca…a0f4 Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 JMP IF DISASTER ERROR«, t00=0x0066, t01=0x0178}
0xa0f4…a106 Head {h00=0x000e, h01=0x0050, text=» B ART250 «, t00=0x0067, t01=0x0012}
0xa106…a114 Head {h00=0x000a, h01=0x0050, text=»ART240«, t00=0x0067, t01=0x0024}
0xa114…a138 Head {h00=0x0020, h01=0x0050, text=» PERF STREXP ***STRING EXPR «, t00=0x0067, t01=0x0032}
0xa138…a162 Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 JMP IF DISASTER ERROR«, t00=0x0067, t01=0x0056}
0xa162…a170 Head {h00=0x000a, h01=0x0050, text=»ART250«, t00=0x0067, t01=0x0080}
0xa170…a19a Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0067, t01=0x008e}
0xa19a…a1a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x00b8}
0xa1a4…a1e8 Head {h00=0x0040, h01=0x0050, text=»* END OF PARAMETER LIST ')' STORE FUNCTION OPERATION CODE«, t00=0x0067, t01=0x00c2}
0xa1e8…a1f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0106}
0xa1f2…a200 Head {h00=0x000a, h01=0x0050, text=»ART260«, t00=0x0067, t01=0x0110}
0xa200…a22a Head {h00=0x0026, h01=0x0050, text=» SUB LBIN2,W1 DECREASE STACK-INDEX«, t00=0x0067, t01=0x011e}
0xa22a…a268 Head {h00=0x003a, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,LSTACK(LBIN2),W1 STORE OP-CODE «, t00=0x0067, t01=0x0148}
0xa268…a29c Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W1 ADJUST INT.MED BUFFER-POINTER «, t00=0x0067, t01=0x0186}
0xa29c…a2ca Head {h00=0x002a, h01=0x0050, text=» ADD VBIN8,W1 ADJUST STATEMENT LENGTH «, t00=0x0068, t01=0x002a}
0xa2ca…a2fa Head {h00=0x002c, h01=0x0050, text=» MOVE LSTACK(LBIN2),W0 CLEAR STACK-ENTRY«, t00=0x0068, t01=0x0058}
0xa2fa…a326 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0068, t01=0x0088}
0xa326…a338 Head {h00=0x000e, h01=0x0050, text=» B ART500 «, t00=0x0068, t01=0x00b4}
0xa338…a346 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0068, t01=0x00c6}
0xa346…a350 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x00d4}
0xa350…a38a Head {h00=0x0036, h01=0x0050, text=»* PRIORED EXPRESSION ( <ARITHMETIC EXPRESSION>)«, t00=0x0068, t01=0x00de}
0xa38a…a3b8 Head {h00=0x002a, h01=0x0050, text=»* BEGIN OF PRIORED EXPRESSION '(' «, t00=0x0068, t01=0x0118}
0xa3b8…a3c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0146}
0xa3c2…a3d0 Head {h00=0x000a, h01=0x0050, text=»ART300«, t00=0x0068, t01=0x0150}
0xa3d0…a400 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTR1,=C'(' LOAD LEFT PARENTHESIS «, t00=0x0068, t01=0x015e}
0xa400…a420 Head {h00=0x001c, h01=0x0050, text=» MOVE LBIN3,W0 POINTER: «, t00=0x0068, t01=0x018e}
0xa420…a458 Head {h00=0x0034, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH '(' «, t00=0x0069, t01=0x001e}
0xa458…a482 Head {h00=0x0026, h01=0x0050, text=» BNOK ART500 NO PRIORED EXPRESSION«, t00=0x0069, t01=0x0056}
0xa482…a4ae Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0069, t01=0x0080}
0xa4ae…a4d8 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0069, t01=0x00ac}
0xa4d8…a4e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x00d6}
0xa4e2…a50e Head {h00=0x0028, h01=0x0050, text=»* ARITHMETIC EXPRESSION EXPECTED «, t00=0x0069, t01=0x00e0}
0xa50e…a518 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x010c}
0xa518…a54c Head {h00=0x0030, h01=0x0050, text=» PERF ARTEXP ***ARITHMETIC EXPR. EVALUATION «, t00=0x0069, t01=0x0116}
0xa54c…a576 Head {h00=0x0026, h01=0x0050, text=» BNOK ART980 JMP IF DISASTER ERROR«, t00=0x0069, t01=0x014a}
0xa576…a5a0 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x0069, t01=0x0174}
0xa5a0…a5aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x000e}
0xa5aa…a5d2 Head {h00=0x0024, h01=0x0050, text=»* END OF PRIORED EXPRESSION «, t00=0x006a, t01=0x0018}
0xa5d2…a5dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0040}
0xa5dc…a602 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,=W'62' POINTER:=62«, t00=0x006a, t01=0x004a}
0xa602…a63a Head {h00=0x0034, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,OPRVAL,LBIN3 STACK )-CODE«, t00=0x006a, t01=0x0070}
0xa63a…a66e Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W1 ADJUST INT MED. BUFFER-POINTER«, t00=0x006a, t01=0x00a8}
0xa66e…a69c Head {h00=0x002a, h01=0x0050, text=» ADD VBIN8,W1 ADJUST STATEMENT LENGTH «, t00=0x006a, t01=0x00dc}
0xa69c…a6c8 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x006a, t01=0x010a}
0xa6c8…a6d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006a, t01=0x0136}
0xa6d6…a6e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0144}
0xa6e0…a710 Head {h00=0x002c, h01=0x0050, text=»* COMBINED FACTOR MULTIPLY OPERATOR «, t00=0x006a, t01=0x014e}
0xa710…a71a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x017e}
0xa71a…a728 Head {h00=0x000a, h01=0x0050, text=»ART500«, t00=0x006a, t01=0x0188}
0xa728…a74c Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK E-O-L«, t00=0x006b, t01=0x0008}
0xa74c…a76c Head {h00=0x001c, h01=0x0050, text=» BE ART655 JMP IF E-O-L «, t00=0x006b, t01=0x002c}
0xa76c…a796 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x006b, t01=0x004c}
0xa796…a7ba Head {h00=0x0020, h01=0x0050, text=» CMP LBIN4,VBIN4 CHECK E-O-L«, t00=0x006b, t01=0x0076}
0xa7ba…a7da Head {h00=0x001c, h01=0x0050, text=» BE ART655 JMP IF E-O-L «, t00=0x006b, t01=0x009a}
0xa7da…a800 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,=W'27' POINTER:=27«, t00=0x006b, t01=0x00ba}
0xa800…a838 Head {h00=0x0034, h01=0x0050, text=» MATCH OPRTS,LBIN3,W2,VALBUF,LBIN4,W1 MATCH '/*'«, t00=0x006b, t01=0x00e0}
0xa838…a862 Head {h00=0x0026, h01=0x0050, text=» BNOK ART600 NO MULTIPLY OPERATOR «, t00=0x006b, t01=0x0118}
0xa862…a88e Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x006b, t01=0x0142}
0xa88e…a8c0 Head {h00=0x002e, h01=0x0050, text=» PERF OPSTCK,W20 ***OPERATOR STACK-HANDLER«, t00=0x006b, t01=0x016e}
0xa8c0…a8ea Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x006c, t01=0x0010}
0xa8ea…a902 Head {h00=0x0014, h01=0x0050, text=» B ART050 GO ON «, t00=0x006c, t01=0x003a}
0xa902…a90c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0052}
0xa90c…a93e Head {h00=0x002e, h01=0x0050, text=»* COMBINED EXPRESSION ADDING OPERATOR «, t00=0x006c, t01=0x005c}
0xa93e…a948 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x008e}
0xa948…a956 Head {h00=0x000a, h01=0x0050, text=»ART600«, t00=0x006c, t01=0x0098}
0xa956…a97c Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN3,=W'25' POINTER:=25«, t00=0x006c, t01=0x00a6}
0xa97c…a9b4 Head {h00=0x0034, h01=0x0050, text=» MATCH OPRTS,LBIN3,W2,VALBUF,LBIN4,W1 MATCH '+-'«, t00=0x006c, t01=0x00cc}
0xa9b4…a9da Head {h00=0x0022, h01=0x0050, text=» BNOK ART650 NO SIGN OPERATOR «, t00=0x006c, t01=0x0104}
0xa9da…aa0c Head {h00=0x002e, h01=0x0050, text=» PERF OPSTCK,W20 ***OPERATOR STACK-HANDLER«, t00=0x006c, t01=0x012a}
0xaa0c…aa38 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x006c, t01=0x015c}
0xaa38…aa62 Head {h00=0x0026, h01=0x0050, text=» PERF INDCNT ***INDENTION COUNTING«, t00=0x006c, t01=0x0188}
0xaa62…aa7a Head {h00=0x0014, h01=0x0050, text=» B ART050 GO ON «, t00=0x006d, t01=0x0022}
0xaa7a…aa88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006d, t01=0x003a}
0xaa88…aa92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0048}
0xaa92…aab0 Head {h00=0x001a, h01=0x0050, text=»* END OF EXPRESSION«, t00=0x006d, t01=0x0052}
0xaab0…aaba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0070}
0xaaba…aac8 Head {h00=0x000a, h01=0x0050, text=»ART650«, t00=0x006d, t01=0x007a}
0xaac8…aaf6 Head {h00=0x002a, h01=0x0050, text=» SUB LBIN4,VBIN7 ADJUST BUFFER POINTER«, t00=0x006d, t01=0x0088}
0xaaf6…ab04 Head {h00=0x000a, h01=0x0050, text=»ART655«, t00=0x006d, t01=0x00b6}
0xab04…ab2e Head {h00=0x0026, h01=0x0050, text=» SUB LBIN2,W1 DECREASE STACK INDEX«, t00=0x006d, t01=0x00c4}
0xab2e…ab66 Head {h00=0x0034, h01=0x0050, text=» CBE LSTACK(LBIN2),=X'0022',ART660 JMP IF E-O-E «, t00=0x006d, t01=0x00ee}
0xab66…ab96 Head {h00=0x002c, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,LSTACK(LBIN2),W1 «, t00=0x006d, t01=0x0126}
0xab96…abac Head {h00=0x0012, h01=0x0050, text=» ADD VBIN3,W1 «, t00=0x006d, t01=0x0156}
0xabac…abc2 Head {h00=0x0012, h01=0x0050, text=» ADD VBIN8,W1 «, t00=0x006d, t01=0x016c}
0xabc2…abf2 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTACK(LBIN2),W0 CLEAR STACK ENTRY«, t00=0x006d, t01=0x0182}
0xabf2…ac04 Head {h00=0x000e, h01=0x0050, text=» B ART655 «, t00=0x006e, t01=0x0022}
0xac04…ac12 Head {h00=0x000a, h01=0x0050, text=»ART660«, t00=0x006e, t01=0x0034}
0xac12…ac42 Head {h00=0x002c, h01=0x0050, text=» MOVE LSTACK(LBIN2),W0 CLEAR STACK ENTRY«, t00=0x006e, t01=0x0042}
0xac42…ac54 Head {h00=0x000e, h01=0x0050, text=» B ART990 «, t00=0x006e, t01=0x0072}
0xac54…ac5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0084}
0xac5e…ac78 Head {h00=0x0016, h01=0x0050, text=»* OBJECT ERROR «, t00=0x006e, t01=0x008e}
0xac78…ac82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00a8}
0xac82…ac90 Head {h00=0x000a, h01=0x0050, text=»ART980«, t00=0x006e, t01=0x00b2}
0xac90…aca8 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x006e, t01=0x00c0}
0xaca8…acba Head {h00=0x000e, h01=0x0050, text=» B ART999 «, t00=0x006e, t01=0x00d8}
0xacba…acc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00ea}
0xacc4…acd8 Head {h00=0x0010, h01=0x0050, text=»* OK EXIT «, t00=0x006e, t01=0x00f4}
0xacd8…ace2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x0108}
0xace2…acf0 Head {h00=0x000a, h01=0x0050, text=»ART990«, t00=0x006e, t01=0x0112}
0xacf0…ad1e Head {h00=0x002a, h01=0x0050, text=» CLEAR VBOOL2 FALSE = ARITHMETIC EXPR «, t00=0x006e, t01=0x0120}
0xad1e…ad36 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x006e, t01=0x014e}
0xad36…ad44 Head {h00=0x000a, h01=0x0050, text=»ART999«, t00=0x006e, t01=0x0166}
0xad44…ad50 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x006e, t01=0x0174}
0xad50…ad5e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x006e, t01=0x0180}
0xad5e…ad6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006e, t01=0x018e}
0xad6c…ad76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x000c}
0xad76…ad94 Head {h00=0x001a, h01=0x0050, text=»* CONSTANT STORAGE«, t00=0x006f, t01=0x0016}
0xad94…ad9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0034}
0xad9e…add2 Head {h00=0x0030, h01=0x0050, text=»* INPUT : VALBUF = VALIDATION BUFFER«, t00=0x006f, t01=0x003e}
0xadd2…ae12 Head {h00=0x003c, h01=0x0050, text=»* LBIN4 = POINTER OF VALIDATION BUFFER «, t00=0x006f, t01=0x0072}
0xae12…ae48 Head {h00=0x0032, h01=0x0050, text=»* VBIN7 = LENGTH OF CONSTANT «, t00=0x006f, t01=0x00b2}
0xae48…ae96 Head {h00=0x004a, h01=0x0050, text=»* VBIN3 = POINTER OF INTER MEDIATE BUFFER BASIC LINE «, t00=0x006f, t01=0x00e8}
0xae96…aecc Head {h00=0x0032, h01=0x0050, text=»* VBIN8 = LENGTH OF STATEMENT«, t00=0x006f, t01=0x0136}
0xaecc…aed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x016c}
0xaed6…aefe Head {h00=0x0024, h01=0x0050, text=»* USED : LBIN1 = WORK «, t00=0x006f, t01=0x0176}
0xaefe…af08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x000e}
0xaf08…af50 Head {h00=0x0044, h01=0x0050, text=»* OUTPUT : OBJSTR = INTERMEDIATE BUFFER HOLDING ONE LINE «, t00=0x0070, t01=0x0018}
0xaf50…af7a Head {h00=0x0026, h01=0x0050, text=»* VBIN3 = UPDATED«, t00=0x0070, t01=0x0060}
0xaf7a…afa4 Head {h00=0x0026, h01=0x0050, text=»* , VBIN8 = UPDATED«, t00=0x0070, t01=0x008a}
0xafa4…afce Head {h00=0x0026, h01=0x0050, text=»* LBIN4 = UPDATED«, t00=0x0070, t01=0x00b4}
0xafce…afd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x00de}
0xafd8…b028 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0070, t01=0x00e8}
0xb028…b03c Head {h00=0x0010, h01=0x0050, text=»CONSTO PROC «, t00=0x0070, t01=0x0138}
0xb03c…b06e Head {h00=0x002e, h01=0x0050, text=» MOVE LBIN1,VBIN7 LOAD LENGTH OF CONSTANT «, t00=0x0070, t01=0x014c}
0xb06e…b09a Head {h00=0x0028, h01=0x0050, text=» ADD LBIN1,W1 COUNT INDICATOR ITSELF«, t00=0x0070, t01=0x017e}
0xb09a…b0c6 Head {h00=0x0028, h01=0x0050, text=» CALL SETB,LBIN1,W8 ---SET BIT NO:=8«, t00=0x0071, t01=0x001a}
0xb0c6…b106 Head {h00=0x003c, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,LBIN1,W1 STORE CONSTANT INDICATOR«, t00=0x0071, t01=0x0046}
0xb106…b13a Head {h00=0x0030, h01=0x0050, text=» ADD VBIN3,W1 ADJUST INT.MED.BUFFER POINTER «, t00=0x0071, t01=0x0086}
0xb13a…b17e Head {h00=0x0040, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,VBIN7,VALBUF,LBIN4 STORE STRING CONSTANT«, t00=0x0071, t01=0x00ba}
0xb17e…b1b4 Head {h00=0x0032, h01=0x0050, text=» ADD VBIN3,VBIN7 ADJUST INT.MED.BUFFER POINTER«, t00=0x0071, t01=0x00fe}
0xb1b4…b1e8 Head {h00=0x0030, h01=0x0050, text=» ADD VBIN7,W1 ADJUST FOR CONSTANT INDICATOR «, t00=0x0071, t01=0x0134}
0xb1e8…b218 Head {h00=0x002c, h01=0x0050, text=» ADD VBIN8,VBIN7 ADJUST STATEMNET LENGTH«, t00=0x0071, t01=0x0168}
0xb218…b246 Head {h00=0x002a, h01=0x0050, text=» ADD LBIN4,VBIN7 ADJUST VALBUF POINTER«, t00=0x0072, t01=0x0008}
0xb246…b252 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0072, t01=0x0036}
0xb252…b260 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0072, t01=0x0042}
0xb260…b26e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0072, t01=0x0050}
0xb26e…b278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x005e}
0xb278…b296 Head {h00=0x001a, h01=0x0050, text=»* LABEL LINE NUMBER«, t00=0x0072, t01=0x0068}
0xb296…b2a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0086}
0xb2a0…b2ce Head {h00=0x002a, h01=0x0050, text=»* INPUT : VALBUF = BASIC LINE«, t00=0x0072, t01=0x0090}
0xb2ce…b304 Head {h00=0x0032, h01=0x0050, text=»* LBIN4 = BASIC LINE POINTER«, t00=0x0072, t01=0x00be}
0xb304…b33c Head {h00=0x0034, h01=0x0050, text=»* VBIN4 = END-OF-SOURCE LIMIT «, t00=0x0072, t01=0x00f4}
0xb33c…b38c Head {h00=0x004c, h01=0x0050, text=»* LENGTH = (FORMAL) MAX LENGTH OF NUMBER TO BE CONTROLL«, t00=0x0072, t01=0x012c}
0xb38c…b396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x017c}
0xb396…b3b6 Head {h00=0x001c, h01=0x0050, text=»* USED : LSTR1 «, t00=0x0072, t01=0x0186}
0xb3b6…b3c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0016}
0xb3c0…b3e8 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT : CR = 0 OK«, t00=0x0073, t01=0x0020}
0xb3e8…b414 Head {h00=0x0028, h01=0x0050, text=»* = 1 NOT OK«, t00=0x0073, t01=0x0048}
0xb414…b456 Head {h00=0x003e, h01=0x0050, text=»* VBIN7 = NUMBER OF EXPRESSION CHARACTER«, t00=0x0073, t01=0x0074}
0xb456…b460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x00b6}
0xb460…b4b0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0073, t01=0x00c0}
0xb4b0…b4ca Head {h00=0x0016, h01=0x0050, text=»LABLIN PROC LENGTH«, t00=0x0073, t01=0x0110}
0xb4ca…b4de Head {h00=0x0010, h01=0x0050, text=» PBIN LENGTH«, t00=0x0073, t01=0x012a}
0xb4de…b508 Head {h00=0x0026, h01=0x0050, text=» CALL ICLEAR,LSTR4A ---CLEAR ITEM «, t00=0x0073, t01=0x013e}
0xb508…b53e Head {h00=0x0032, h01=0x0050, text=» MOVE LBIN3,LBIN4 LOAD CURRENT BUFFER POSITION«, t00=0x0073, t01=0x0168}
0xb53e…b56e Head {h00=0x002c, h01=0x0050, text=» MOVE VBIN7,W0 NUMB OF LINE-NUMB CHARS: «, t00=0x0074, t01=0x000e}
0xb56e…b57c Head {h00=0x000a, h01=0x0050, text=»LAB100«, t00=0x0074, t01=0x003e}
0xb57c…b5b6 Head {h00=0x0036, h01=0x0050, text=» XCOPY LSTR1,W0,W1,VALBUF,LBIN3 GET ONE CHARACTER «, t00=0x0074, t01=0x004c}
0xb5b6…b5ea Head {h00=0x0030, h01=0x0050, text=» CBL LSTR1,=X'30',LAB150 JMP IF NOT A DIGIT «, t00=0x0074, t01=0x0086}
0xb5ea…b61e Head {h00=0x0030, h01=0x0050, text=» CBG LSTR1,=X'39',LAB150 JMP IF NOT A DIGIT «, t00=0x0074, t01=0x00ba}
0xb61e…b652 Head {h00=0x0030, h01=0x0050, text=» XCOPY LSTR4A,VBIN7,W1,LSTR1,W0 STORE DIGIT «, t00=0x0074, t01=0x00ee}
0xb652…b682 Head {h00=0x002c, h01=0x0050, text=» ADD VBIN7,W1 ADJUST LINE NUMBER LENGTH «, t00=0x0074, t01=0x0122}
0xb682…b6a6 Head {h00=0x0020, h01=0x0050, text=» ADD LBIN3,W1 ADJUST POINTER«, t00=0x0074, t01=0x0152}
0xb6a6…b6e0 Head {h00=0x0036, h01=0x0050, text=» CBE LBIN3,VBIN4,LAB150 JMP IF END-OF-SOURCE LINE «, t00=0x0074, t01=0x0176}
0xb6e0…b716 Head {h00=0x0032, h01=0x0050, text=» CBNE VBIN7,LENGTH,LAB100 JMP IF NOT MAXLENGTH«, t00=0x0075, t01=0x0020}
0xb716…b724 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0075, t01=0x0056}
0xb724…b732 Head {h00=0x000a, h01=0x0050, text=»LAB150«, t00=0x0075, t01=0x0064}
0xb732…b760 Head {h00=0x002a, h01=0x0050, text=» CALL EMPTYT,LSTR4A ---CHECK IF EMPTY «, t00=0x0075, t01=0x0072}
0xb760…b78a Head {h00=0x0026, h01=0x0050, text=» BNOK LAB980 JMP IF NO LINE NUMBER«, t00=0x0075, t01=0x00a0}
0xb78a…b7b8 Head {h00=0x002a, h01=0x0050, text=» MOVE LINNO(W9),LSTR4A CONVERT TO BCD «, t00=0x0075, t01=0x00ca}
0xb7b8…b7e8 Head {h00=0x002c, h01=0x0050, text=» MOVE LBIN3,LINNO(W9) CONVERT TO BINARY «, t00=0x0075, t01=0x00f8}
0xb7e8…b7f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0128}
0xb7f2…b814 Head {h00=0x001e, h01=0x0050, text=»* LINE NUMBER FOUND OK«, t00=0x0075, t01=0x0132}
0xb814…b81e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0154}
0xb81e…b84c Head {h00=0x002a, h01=0x0050, text=» ADD LBIN4,VBIN7 ADJUST VALBUF POINTER«, t00=0x0075, t01=0x015e}
0xb84c…b874 Head {h00=0x0024, h01=0x0050, text=» MOVE LBIN1,LENGTH STORE LENGTH «, t00=0x0075, t01=0x018c}
0xb874…b8b4 Head {h00=0x003c, h01=0x0050, text=» CALL WXDIV,LBIN1,W2,LBIN1 DIVIDE TO GET CONSTANT LENGTH«, t00=0x0076, t01=0x0024}
0xb8b4…b8dc Head {h00=0x0024, h01=0x0050, text=» MOVE VBIN7,W2 STORE MAX-LENGTH «, t00=0x0076, t01=0x0064}
0xb8dc…b902 Head {h00=0x0022, h01=0x0050, text=» SUB VBIN7,LBIN1 CALC POINTER «, t00=0x0076, t01=0x008c}
0xb902…b946 Head {h00=0x0040, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,LBIN1,LBIN3,VBIN7 STORE NUMERIC CONSTANT«, t00=0x0076, t01=0x00b2}
0xb946…b97c Head {h00=0x0032, h01=0x0050, text=» ADD VBIN3,LBIN1 ADJUST INT.MED.BUFFER POINTER«, t00=0x0076, t01=0x00f6}
0xb97c…b9ac Head {h00=0x002c, h01=0x0050, text=» ADD VBIN8,LBIN1 ADJUST STATEMNET LENGTH«, t00=0x0076, t01=0x012c}
0xb9ac…b9c4 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W1 CR:=0«, t00=0x0076, t01=0x015c}
0xb9c4…b9da Head {h00=0x0012, h01=0x0050, text=» B LAB999 EXIT«, t00=0x0076, t01=0x0174}
0xb9da…b9e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x018a}
0xb9e4…b9fe (119, 0, 400) Head {h00=0x0016, h01=0x0050, text=»* OBJECT ERROR «, t00=0x0077, t01=0x0004}
0xb9fe…ba08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x001e}
0xba08…ba16 Head {h00=0x000a, h01=0x0050, text=»LAB980«, t00=0x0077, t01=0x0028}
0xba16…ba2e Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x0077, t01=0x0036}
0xba2e…ba3c Head {h00=0x000a, h01=0x0050, text=»LAB999«, t00=0x0077, t01=0x004e}
0xba3c…ba48 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0077, t01=0x005c}
0xba48…ba56 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0077, t01=0x0068}
0xba56…ba64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0077, t01=0x0076}
0xba64…ba6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0084}
0xba6e…ba96 Head {h00=0x0024, h01=0x0050, text=»* DECORATION OPERATION CODE «, t00=0x0077, t01=0x008e}
0xba96…baa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00b6}
0xbaa0…baca Head {h00=0x0026, h01=0x0050, text=»* INPUT : VALBUF = BASIC LINE «, t00=0x0077, t01=0x00c0}
0xbaca…bafc Head {h00=0x002e, h01=0x0050, text=»* LBIN4 = BASIC LINE POINTER «, t00=0x0077, t01=0x00ea}
0xbafc…bb38 Head {h00=0x0038, h01=0x0050, text=»* DSTLEN = (FORMAL) DECOR-STRING LENGTH «, t00=0x0077, t01=0x011c}
0xbb38…bb64 Head {h00=0x0028, h01=0x0050, text=»* DECOR = DECOR STRING «, t00=0x0077, t01=0x0158}
0xbb64…bb6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x0184}
0xbb6e…bb8a Head {h00=0x0018, h01=0x0050, text=»* USED : LBIN3 «, t00=0x0077, t01=0x018e}
0xbb8a…bb94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x001a}
0xbb94…bbb8 Head {h00=0x0020, h01=0x0050, text=»* OUTPUT: CR = 0 OK «, t00=0x0078, t01=0x0024}
0xbbb8…bbe0 Head {h00=0x0024, h01=0x0050, text=»* = 1 NOT OK «, t00=0x0078, t01=0x0048}
0xbbe0…bc0e Head {h00=0x002a, h01=0x0050, text=»* LBIN1 = DECORATION CODE«, t00=0x0078, t01=0x0070}
0xbc0e…bc18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x009e}
0xbc18…bc68 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0078, t01=0x00a8}
0xbc68…bc82 Head {h00=0x0016, h01=0x0050, text=»DECOPC PROC DSTLEN«, t00=0x0078, t01=0x00f8}
0xbc82…bc96 Head {h00=0x0010, h01=0x0050, text=» PBIN DSTLEN«, t00=0x0078, t01=0x0112}
0xbc96…bcc0 Head {h00=0x0026, h01=0x0050, text=» MOVE LBIN1,W0 DECORATION CODE:=0 «, t00=0x0078, t01=0x0126}
0xbcc0…bcca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0150}
0xbcca…bcec Head {h00=0x001e, h01=0x0050, text=»* DECORATION DELIMITER«, t00=0x0078, t01=0x015a}
0xbcec…bcf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x017c}
0xbcf6…bd22 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x0078, t01=0x0186}
0xbd22…bd30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x0022}
0xbd30…bd3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0030}
0xbd3a…bd58 Head {h00=0x001a, h01=0x0050, text=»* DECORATION VERB «, t00=0x0079, t01=0x003a}
0xbd58…bd62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0058}
0xbd62…bd78 Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN3,W0«, t00=0x0079, t01=0x0062}
0xbd78…bdb6 Head {h00=0x003a, h01=0x0050, text=» MATCH DECOR,LBIN3,DSTLEN,VALBUF,LBIN4,W2 MATCH DECOR «, t00=0x0079, t01=0x0078}
0xbdb6…bddc Head {h00=0x0022, h01=0x0050, text=» BNOK DEC988 JMP IF NOT FOUND «, t00=0x0079, t01=0x00b6}
0xbddc…be10 Head {h00=0x0030, h01=0x0050, text=» XCOPY LBIN1,W1,W1,DECVAL,LBIN3 GET OP-CODE «, t00=0x0079, t01=0x00dc}
0xbe10…be40 Head {h00=0x002c, h01=0x0050, text=» CBE LBIN1,=X'00FF',DEC980 JMP IF FILLER«, t00=0x0079, t01=0x0110}
0xbe40…be6c Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W2 ADJUST BUFFER POINTER «, t00=0x0079, t01=0x0140}
0xbe6c…be76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x016c}
0xbe76…be9a Head {h00=0x0020, h01=0x0050, text=»* DECORATION DELIMITER " «, t00=0x0079, t01=0x0176}
0xbe9a…bea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x000a}
0xbea4…bed0 Head {h00=0x0028, h01=0x0050, text=» MOVE LSTR1,=X'22' LOAD STRING QUOTE«, t00=0x007a, t01=0x0014}
0xbed0…bee6 Head {h00=0x0012, h01=0x0050, text=» MOVE LBIN3,W0«, t00=0x007a, t01=0x0040}
0xbee6…bf2a Head {h00=0x0040, h01=0x0050, text=» MATCH LSTR1,LBIN3,W1,VALBUF,LBIN4,W1 MATCH DECOR DELIMITOR «, t00=0x007a, t01=0x0056}
0xbf2a…bf50 Head {h00=0x0022, h01=0x0050, text=» BNOK DEC980 JMP IF NOT FOUND «, t00=0x007a, t01=0x009a}
0xbf50…bf7c Head {h00=0x0028, h01=0x0050, text=» ADD LBIN4,W1 ADJUST BUFFER POINTER «, t00=0x007a, t01=0x00c0}
0xbf7c…bf86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00ec}
0xbf86…bf9a Head {h00=0x0010, h01=0x0050, text=»* OK EXIT«, t00=0x007a, t01=0x00f6}
0xbf9a…bfa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x010a}
0xbfa4…bfc0 Head {h00=0x0018, h01=0x0050, text=» CMP W1,W1 CR:=0 OK «, t00=0x007a, t01=0x0114}
0xbfc0…bfd2 Head {h00=0x000e, h01=0x0050, text=» B DEC999 «, t00=0x007a, t01=0x0130}
0xbfd2…bfdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0142}
0xbfdc…bff6 Head {h00=0x0016, h01=0x0050, text=»* OBJECT ERROR «, t00=0x007a, t01=0x014c}
0xbff6…c000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x0166}
0xc000…c00e Head {h00=0x000a, h01=0x0050, text=»DEC980«, t00=0x007a, t01=0x0170}
0xc00e…c036 Head {h00=0x0024, h01=0x0050, text=» SUB LBIN4,W2 ADJUST WHEN ERROR «, t00=0x007a, t01=0x017e}
0xc036…c044 Head {h00=0x000a, h01=0x0050, text=»DEC988«, t00=0x007b, t01=0x0016}
0xc044…c06c Head {h00=0x0024, h01=0x0050, text=» SUB LBIN4,W1 ADJUST WHEN ERROR «, t00=0x007b, t01=0x0024}
0xc06c…c084 Head {h00=0x0014, h01=0x0050, text=» CMP W1,W0 CR:=1«, t00=0x007b, t01=0x004c}
0xc084…c092 Head {h00=0x000a, h01=0x0050, text=»DEC999«, t00=0x007b, t01=0x0064}
0xc092…c09e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x007b, t01=0x0072}
0xc09e…c0ac Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x007b, t01=0x007e}
0xc0ac…c0ba Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007b, t01=0x008c}
0xc0ba…c0c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x009a}
0xc0c4…c0de Head {h00=0x0016, h01=0x0050, text=»* CLEAR LSTACK «, t00=0x007b, t01=0x00a4}
0xc0de…c0e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00be}
0xc0e8…c11a Head {h00=0x002e, h01=0x0050, text=»* INPUT : LSTACK = STACK-INFORMATION«, t00=0x007b, t01=0x00c8}
0xc11a…c124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00fa}
0xc124…c150 Head {h00=0x0028, h01=0x0050, text=»* USED : LBIN2 = STACK-INDEX «, t00=0x007b, t01=0x0104}
0xc150…c15a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0130}
0xc15a…c18a Head {h00=0x002c, h01=0x0050, text=»* OUPUT : LBIN2 = STACK-INDEX = 1 «, t00=0x007b, t01=0x013a}
0xc18a…c194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x016a}
0xc194…c1e4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x007b, t01=0x0174}
0xc1e4…c1f8 Head {h00=0x0010, h01=0x0050, text=»CLRLST PROC «, t00=0x007c, t01=0x0034}
0xc1f8…c23e Head {h00=0x0042, h01=0x0050, text=» CALL GETIND,LSTACK(W1),LBIN2,LBIN3 ---GET LENGTH & DIMENSION «, t00=0x007c, t01=0x0048}
0xc23e…c264 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN2,W1 STACK-INDEX:=1 «, t00=0x007c, t01=0x008e}
0xc264…c272 Head {h00=0x000a, h01=0x0050, text=»CLR010«, t00=0x007c, t01=0x00b4}
0xc272…c2a2 Head {h00=0x002c, h01=0x0050, text=» CALL ICLEAR,LSTACK(LBIN2) ---CLEAR ITEM«, t00=0x007c, t01=0x00c2}
0xc2a2…c2ce Head {h00=0x0028, h01=0x0050, text=» ADD LBIN2,W1 INCREMENT STACK-INDEX «, t00=0x007c, t01=0x00f2}
0xc2ce…c2fa Head {h00=0x0028, h01=0x0050, text=» CMP LBIN2,LBIN3 WHOLE STACK CLEARED«, t00=0x007c, t01=0x011e}
0xc2fa…c30c Head {h00=0x000e, h01=0x0050, text=» BG CLR999«, t00=0x007c, t01=0x014a}
0xc30c…c324 Head {h00=0x0014, h01=0x0050, text=» B CLR010 GO ON «, t00=0x007c, t01=0x015c}
0xc324…c332 Head {h00=0x000a, h01=0x0050, text=»CLR999«, t00=0x007c, t01=0x0174}
0xc332…c358 Head {h00=0x0022, h01=0x0050, text=» MOVE LBIN2,W1 STACK INDEX:=1 «, t00=0x007c, t01=0x0182}
0xc358…c364 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x007d, t01=0x0018}
0xc364…c372 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x007d, t01=0x0024}
0xc372…c380 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x007d, t01=0x0032}
0xc380…c38a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0040}
0xc38a…c3ae Head {h00=0x0020, h01=0x0050, text=»* OPERATOR STACK HANDLING«, t00=0x007d, t01=0x004a}
0xc3ae…c3b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x006e}
0xc3b8…c3e6 Head {h00=0x002a, h01=0x0050, text=»* INPUT : OPRVAL = OPERATOR-CODES «, t00=0x007d, t01=0x0078}
0xc3e6…c426 Head {h00=0x003c, h01=0x0050, text=»* LBIN3 = POINTER TO OPERATOR-CODE(OPRVAL) «, t00=0x007d, t01=0x00a6}
0xc426…c430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x00e6}
0xc430…c44c Head {h00=0x0018, h01=0x0050, text=»* USED : SLBIN5«, t00=0x007d, t01=0x00f0}
0xc44c…c468 Head {h00=0x0018, h01=0x0050, text=»* VBIN7 «, t00=0x007d, t01=0x010c}
0xc468…c472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007d, t01=0x0128}
0xc472…c4c2 Head {h00=0x004c, h01=0x0050, text=»* OUTPUT: OBJSTR = INTERMEDIATE BUFFER UPDATED WITH OPERATOR CODE(ES«, t00=0x007d, t01=0x0132}
0xc4c2…c500 Head {h00=0x003a, h01=0x0050, text=»* VBIN3 = POINTER TO INTERMEDIATE BUFFER «, t00=0x007d, t01=0x0182}
0xc500…c530 Head {h00=0x002c, h01=0x0050, text=»* VBIN8 = STATEMENT LENGTH «, t00=0x007e, t01=0x0030}
0xc530…c53a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0060}
0xc53a…c58a Head {h00=0x004c, h01=0x0050, text=»* LSTACK = STACKED OPERATOR CODES CLEARED IF ENTERD IN INTME«, t00=0x007e, t01=0x006a}
0xc58a…c5d2 Head {h00=0x0044, h01=0x0050, text=»* LBIN2 = STACK POINTER DECREASED IF ENTRY CLEARED «, t00=0x007e, t01=0x00ba}
0xc5d2…c5dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x0102}
0xc5dc…c62c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x007e, t01=0x010c}
0xc62c…c646 Head {h00=0x0016, h01=0x0050, text=»OPSTCK PROC HPRIOR«, t00=0x007e, t01=0x015c}
0xc646…c65a Head {h00=0x0010, h01=0x0050, text=» PBIN HPRIOR«, t00=0x007e, t01=0x0176}
0xc65a…c69c Head {h00=0x003e, h01=0x0050, text=» XCOPY LSTACK(LBIN2),W1,W1,OPRVAL,LBIN3 LOAD OPERATOR-CODE«, t00=0x007e, t01=0x018a}
0xc69c…c6aa Head {h00=0x000a, h01=0x0050, text=»OPS000«, t00=0x007f, t01=0x003c}
0xc6aa…c6de Head {h00=0x0030, h01=0x0050, text=» MOVE SLBIN5,LBIN2 LOAD CURREEN STACK-INDEX «, t00=0x007f, t01=0x004a}
0xc6de…c70e Head {h00=0x002c, h01=0x0050, text=» SUB SLBIN5,W1 CALC PREVIOUS STACK-INDEX«, t00=0x007f, t01=0x007e}
0xc70e…c746 Head {h00=0x0034, h01=0x0050, text=» CBE LSTACK(SLBIN5),=X'0022',OPS900 JMP IF E-O-E«, t00=0x007f, t01=0x00ae}
0xc746…c77c Head {h00=0x0032, h01=0x0050, text=» MOVE VBIN7,LSTACK(LBIN2) LOAD CURRENT OP-CODE«, t00=0x007f, t01=0x00e6}
0xc77c…c7b4 Head {h00=0x0034, h01=0x0050, text=» MOVE LBIN3,LSTACK(SLBIN5) LOAD PREVIOUS OP-CODE«, t00=0x007f, t01=0x011c}
0xc7b4…c7be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0154}
0xc7be…c7da Head {h00=0x0018, h01=0x0050, text=»* CHECK PRIORITY «, t00=0x007f, t01=0x015e}
0xc7da…c7e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x017a}
0xc7e4…c81a Head {h00=0x0032, h01=0x0050, text=» CBG VBIN7,HPRIOR,OPS010 JMP IF HIGH PRIORITY «, t00=0x007f, t01=0x0184}
0xc81a…c83c Head {h00=0x001e, h01=0x0050, text=» MOVE VBIN7,W2 PRIORITY:=2«, t00=0x0080, t01=0x002a}
0xc83c…c84e Head {h00=0x000e, h01=0x0050, text=» B OPS020 «, t00=0x0080, t01=0x004c}
0xc84e…c85c Head {h00=0x000a, h01=0x0050, text=»OPS010«, t00=0x0080, t01=0x005e}
0xc85c…c87e Head {h00=0x001e, h01=0x0050, text=» MOVE VBIN7,W3 PRIORITY:=3«, t00=0x0080, t01=0x006c}
0xc87e…c88c Head {h00=0x000a, h01=0x0050, text=»OPS020«, t00=0x0080, t01=0x008e}
0xc88c…c8c2 Head {h00=0x0032, h01=0x0050, text=» CBG LBIN3,HPRIOR,OPS030 JMP IF HIGH PRIORITY «, t00=0x0080, t01=0x009c}
0xc8c2…c8e4 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W2 PRIORITY:=2«, t00=0x0080, t01=0x00d2}
0xc8e4…c8f6 Head {h00=0x000e, h01=0x0050, text=» B OPS040 «, t00=0x0080, t01=0x00f4}
0xc8f6…c904 Head {h00=0x000a, h01=0x0050, text=»OPS030«, t00=0x0080, t01=0x0106}
0xc904…c926 Head {h00=0x001e, h01=0x0050, text=» MOVE LBIN3,W3 PRIORITY:=3«, t00=0x0080, t01=0x0114}
0xc926…c934 Head {h00=0x000a, h01=0x0050, text=»OPS040«, t00=0x0080, t01=0x0136}
0xc934…c95c Head {h00=0x0024, h01=0x0050, text=» CMP LBIN3,VBIN7 CHECK PRIORITY «, t00=0x0080, t01=0x0144}
0xc95c…c982 Head {h00=0x0022, h01=0x0050, text=» BL OPS900 JMP IF LESS PRIORTY«, t00=0x0080, t01=0x016c}
0xc982…c98c (129, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0004}
0xc98c…c9b6 Head {h00=0x0026, h01=0x0050, text=»* STORE PREVIOUS OPERATOR-CODE «, t00=0x0081, t01=0x000e}
0xc9b6…c9c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0038}
0xc9c0…c9fe Head {h00=0x003a, h01=0x0050, text=» XCOPY OBJSTR,VBIN3,W1,LSTACK(SLBIN5),W1 STOR OP-CODE «, t00=0x0081, t01=0x0042}
0xc9fe…ca2a Head {h00=0x0028, h01=0x0050, text=» ADD VBIN3,W1 ADJUST BUFFER POINTER «, t00=0x0081, t01=0x0080}
0xca2a…ca58 Head {h00=0x002a, h01=0x0050, text=» ADD VBIN8,W1 ADJUST STATEMENT LENGTH «, t00=0x0081, t01=0x00ac}
0xca58…ca9a Head {h00=0x003e, h01=0x0050, text=» MOVE LSTACK(SLBIN5),LSTACK(LBIN2) POP-UP CURRENT OP-CODE «, t00=0x0081, t01=0x00da}
0xca9a…caca Head {h00=0x002c, h01=0x0050, text=» MOVE LSTACK(LBIN2),W0 CLEAR STACK ENTRY«, t00=0x0081, t01=0x011c}
0xcaca…cae0 Head {h00=0x0012, h01=0x0050, text=» SUB LBIN2,W1 «, t00=0x0081, t01=0x014c}
0xcae0…cafc Head {h00=0x0018, h01=0x0050, text=» B OPS000 GO ON NEXT«, t00=0x0081, t01=0x0162}
0xcafc…cb0a Head {h00=0x000a, h01=0x0050, text=»OPS900«, t00=0x0081, t01=0x017e}
0xcb0a…cb36 Head {h00=0x0028, h01=0x0050, text=» ADD LBIN2,W1 INCREMENT STACK-INDEX «, t00=0x0081, t01=0x018c}
0xcb36…cb44 Head {h00=0x000a, h01=0x0050, text=»OPS999«, t00=0x0082, t01=0x0028}
0xcb44…cb50 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0082, t01=0x0036}
0xcb50…cb5e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0082, t01=0x0042}
0xcb5e…cb6a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0082, t01=0x0050}
0xcb6a…cb6e Head {h00=0x4004, h01=0x0000}
0xcb6e…cb70 00 82 ┆ ┆
0xcb70…cb72 00 5c ┆ ┆
0xcb72…cb7a (131, 1, 8) 20 04 00 00 00 83 00 04 ┆ ┆
0xcb7a…cbca (132, 0, 400) 1b 72 30 00 71 15 71 04 71 15 6a 52 10 14 7b 71 04 72 11 6a 5a 14 00 13 01 60 00 0c 00 08 00 03 05 06 08 85 00 36 00 14 00 1e 00 0c 00 08 00 03 05 06 08 8a 00 36 00 14 00 2e 00 0c 00 08 00 03 05 06 08 8f 00 22 00 14 00 3e 00 0c 00 08 00 03 ┆ r0 q q q jR {q r jZ ` 6 6 . " > ┆
0xcbca…cc1a 05 06 08 92 00 22 00 14 00 4e 00 0c 00 08 00 03 05 06 08 95 00 22 00 14 00 5e 00 0c 00 08 00 03 07 06 08 a2 00 0c 00 14 00 6e 00 0c 00 08 00 03 02 06 08 a4 09 e8 00 14 00 7e 00 0c 00 08 00 03 07 06 08 a6 00 0e 00 14 00 8e 00 0c 00 08 00 03 ┆ " N " ^ n ~ ┆
0xcc1a…cc6a 02 06 08 a8 09 eb 00 14 00 9e 00 4a 00 46 00 22 00 44 08 80 72 12 6c 10 30 36 0a 19 19 30 36 02 25 10 30 00 4f 30 00 7f 30 00 be 40 60 40 79 00 ae 10 48 67 04 80 00 39 00 80 00 39 00 49 60 2f 00 6b 39 00 5c 17 11 0e 12 5e 28 5e 1c 5e 1d 5e ┆ J F " D r l 06 06 % 0 O0 0 @`@y Hg 9 9 I`/ k9 ^(^ ^ ^┆
0xcc6a…ccba 1f 5e 20 5e 00 14 00 ae 00 0e 00 09 00 04 14 07 08 e3 00 01 d9 2a 00 14 00 fc 00 0c 00 08 00 03 05 06 08 e8 00 2a 00 14 01 0e 00 0c 00 08 00 03 08 06 08 ea 00 0a 00 14 01 1e 00 0c 00 08 00 03 05 06 08 ee 00 2a 00 14 01 2e 00 0c 00 08 00 03 ┆ ^ ^ * * * . ┆
0xccba…cd0a 08 06 08 f0 00 0b 00 14 01 3e 00 4a 00 46 00 22 00 44 08 c0 22 5e 23 5e 26 5e 25 6b 00 5e 1e 38 00 5e 24 38 00 5e 21 3b 48 64 04 00 5e 21 3a 00 61 18 00 63 77 01 6f 37 48 64 06 31 00 7e 0a 57 04 31 00 7e 0b 00 60 73 49 64 16 04 60 11 48 66 ┆ > J F " D "^#^&^%k ^ 8 ^$8 ^!;Hd ^!: a cw o7Hd 1 ~ W 1 ~ `sId ` Hf┆