|
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: 17196 (0x432c)
Notes: pts_type(SC)
Names: »DEVGAC.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DEVGAC.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DEVGAC.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DEVGAC.SC«
IDENT DEVGAC REL 10.0 80-04-11
80-10-28/JAER
*
* THIS PROGRAM-MODUL CONTAINS ENTRIES TO THE DIFFERENT
* CONVERTIONS THAT OCCURS IN THE FORMAT GENERATION
*
DDUM DEDDIV
PDIV
*
ENTRY VGACNT VAL-GEN-ACC-STRING-CONTROL
*
ENTRY CNTNUM CONTROL OF VARIABLE INDEX
*
EXT DERROR ERRORMESSAGE
*
EXT CMPIND COMPARE INDEX (DIMENSION)
*
EXT EMPTYT CHECK EMPTY ITEM
*
* KEYTABLES
*
* USAGE: DATA ENTRY SCREEN
*
CLR EQU X'8F' CLEAR
CAN EQU X'91' CANCEL
RET EQU X'92' RETURN
CFW EQU X'86' CURSOR FORWARD
*
DEKTAB4 KTAB CLR,CAN,RET,CFW
*
EJECT
*
* VALIDATION- GENERATION- AND ACCUMULATION CONTROL
*
* THIS MODULE STEERS THE PROCESSING OF THE THREE DIFFERENT FUNCTIO
*
* INPUT PARAMETERS:
* FMTWK(W10) = NUMBER OF CHARACTERS STRING1
* FMTWK(W11) = NUMBER OF CHARACTERS STRING 2
*
* WORK ITEMS:
* FMTWK(W12) = CALCULATE TOTAL NUMBER OF CHARCTE
* DEBIN3 = POINTER FUNC,-TEXT-STRING
* DEBIN4 = POINTER CHARACTER-STRING
* DEBINW2 = FUNCTION-INDEX
* = 1 = VALIDATION
* = 2 = GENERATION
* = 3 = ACCUMULATION
* STRG10A = FUNCTION TEXTS
* STR1A = WORK
* BIN16 = WORK
*
* OUTPUT PARAMETERS:
* 'CR' = 0 = OK
* = 1 = NOT OK
* DEBINW1 = ERRORPOSITION IN CHARACTERSTRING
* DEBINW4 = FIELDNR WHEN ERROR FOUND
VGACNT PROC
CALL EMPTYT,FORTAB(W1) CHECK IF 1ST LINE EMPTY
AFTER CORRECTION
BOK VGAC00 NOT EMPTY
MOVE FMTWK(W10),W0 EMPTY => NO CHARS
VGAC00
CALL EMPTYT,FORTAB(W2) CHECK IF 2ND LINE EMPTY
AFTER CORRECTION
BOK VGAC03 NOT EMPTY
MOVE FMTWK(W11),W0 EMPTY => NO CHARS
VGAC03
MOVE FMTWK(W12),FMTWK(W10) LOAD NUMB CHARS 1
ADD FMTWK(W12),FMTWK(W11) ADD NUMB CHARS 2
CBE FMTWK(W10),=X'50',VGAC10 JUMP IF MAX FILLED
CBE FMTWK(W11),W0,VGAC10 JUMP IF STRG2 EMPTY
EJECT
*
* 1ST STRING ('FORTAB(W1)') NOT MAX FILLED AND 2ND STRING
* PARTIAL FILLED.
* -ACTION: DELETE EMPTY POSITIONS OF 1ST STRING
* WITH HELP OF THE REDEFINED ITEM JOBSPC
* FINALLY DISPLAY IT IN SEQUENS AGAIN
*
MOVE BIN16,=X'50' LOAD 80 AS MAX LENGTH
SUB BIN16,FMTWK(W10) COMPUTE SIZE OF EMPTY CHARS
DLETE JOBSPC,FMTWK(W10),BIN16 DELETE EMPTY CHARACTERS
MOVE BIN15,=X'A0' LOAD WITH MAXLENTH
SUB BIN15,BIN16 COMPUTE STARTP]OS
XCOPY JOBSPC,BIN15,BIN16,DEINPUT,W0 FILL REST WITH X'00'
CBL FMTWK(W12),=X'51',VGAC05
MOVE FMTWK(W11),FMTWK(W12)
SUB FMTWK(W11),=X'50'
MOVE FMTWK(W10),=X'50'
B VGAC10
VGAC05
MOVE FMTWK(W10),FMTWK(W12)
MOVE FMTWK(W11),W0
EJECT
VGAC10
MOVE DEBIN4,W0 STARTPOS IN JOBSPC
MOVE STR1A,=C'#' WORK:=FUNCTIONSEPARATOR
MOVE STRG10A,=C'V:G:A:' LOAD FUNCTION-TEXTS
MOVE DEBIN3,DEBIN4 LOAD ACTUAL POS
MATCH JOBSPC,DEBIN3,W1,STR1A,W0,W1 1ST POS = #
BNOK VGAC90 JUMP IF ERROR
ADD DEBIN4,W1 NEXT POSITION
VGAC15
MOVE DEBINW2,W0 FUNCTIONINDEX:=0
MATCH STRG10A,DEBINW2,W6,JOBSPC,DEBIN4,W2
BNOK VGAC90 JUMP IF NOT FOUND
MOVE FBIN1,DEBINW2 SAVE FUNCTEXT POINTER
ADD DEBINW2,W2
DIV DEBINW2,W2
TBF BOOL6,VGAC20 JUMP IF ORDINARY FORMAT
CBE DEBINW2,W3,VGAC90 ACC NOT ALLOWED IN BALFORM
VGAC20
ADD DEBIN4,W2 NEXT POSITION FUNCCODE
MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION
MOVE DEBIN2,FMTWK(W12) LOAD TOTAL NUMB OF CHARS
SUB DEBIN2,DEBIN4 NUMB OF CHARS TO MATCH
MATCH JOBSPC,DEBIN3,DEBIN2,STRG10A,FBIN1,W2 JUST ONE FUNC EACH
BNOK VGAC35 NO MORE OF SAME FONC OK
MOVE DEBIN4,DEBIN3 RESTORE ERROR-POSITION
SUB DEBIN4,W1 ADJUST
B VGAC90
EJECT
VGAC35
MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION
MOVE STR1A,=C'#'
MATCH JOBSPC,DEBIN3,DEBIN2,STR1A,W0,W1 NEXT
BOK VGAC40 OK NEXT # FOUND
MOVE DEBIN3,FMTWK(W12) LOAD WITH LAST POSITION
VGAC40
MOVE FMTWK(DEBINW2),DEBIN3 LOAD ENDPOS OF CONTROL
PERF CNTNUM,JOBSPC,FMTWK,DEBINW2 CONTROL FUNCTION
BNOK VGAC90 JUMP IF NOT OK
CBNE DEBINW2,W3,VGAC45 JUMP IF NOT ACC
SET ACKUM
VGAC45
CBE DEBIN4,FMTWK(W12),VGAC99 JUMP IF END OF STRING
ADD DEBIN4,W1 NEXT POSITION
B VGAC15
EJECT
VGAC90
TBF BOOL6,VGAC92 JUMP IF ORDINARY FORMAT
ERASE 0,W13,W14 ERASE 2 LINES
DISPLAY 1,W6,W7 REDISPLAY
MOVE DEBINW4,W6 FIELD TO MAKE CURRENT = 6
B VGAC94
VGAC92
ERASE 0,W17,W18 ERASE 2LINES ON SCREEN
DISPLAY 1,W12,W13 REDISPLAY
MOVE DEBINW4,W12 FIELD TO MAKE CURRENT =19
VGAC94
MOVE BIN16,W1 1ST LINE CURRENT
MOVE BIN15,=X'50' LOAD SIZE = 80
MOVE DEBINW1,DEBIN4 STORE ACTUAL POSITION
ADD DEBINW1,W1 ADJUST FOR CURSOR
CBL DEBIN4,=X'51',VGAC95 < = 80
SUB DEBINW1,BIN15 ADJUST POINTER 2ND LINE
ADD DEBINW4,W1 FIELD TO MAKE CURRENT = +1
ADD BIN16,W1 2ND LINE CURRENT
VGAC95
GETFLD 0,DEBINW4,DEBINW3
MOVE DEBINW4,W6 ILLEGAL VALUE
PERF DERROR,DEKTAB4
XCOPY DEINPUT,W0,BIN15,FORTAB(BIN16),W0 RELOAD FALSE LINE
CMP W1,W0 CR /= 0
B VGACEX
VGAC99
MOVE FMTWK(W10),W0 NUMB OF CHARS STRG1:=0
MOVE FMTWK(W11),W0 NUMB OF CHARS STRG2:=0
CMP W1,W1 CR = 0
VGACEX
RET
PEND
EJECT
*
* CONTROL VARIABLE NUMBER (INDEX)
*
* INPUT PARAMETERS (FORMAL):
* CHNUM = NUMBER OF INPUT CHARACTERS
* WIND = INDEX TO CORRESPONDING CHAR-
* DEBIN4 = STRG TO CONTROL
*
* INPUT PARAMETERS:
* VALSTR = VAL/GEN/ACC---CHARACTERSTRIN
* DEBIN4 = POINTER CHARACTER-STRING
*
* WORKITEMS : DEBIN2 = LENGTH OF LITERAL STRING
* DEBIN3 = NUMBER OF LITERALS
* BIN15 = LENGTH OF VALSTR
* BIN16 = MATCHING-POINTER 'VALSTR'
*
* OUTPUT PARAMETERS :
* 'CR' = 0 , OK
* /=0 , NOT OK
* DEBINW1 = ERROR-POSITION IN INPUT-BUFF
*
************************************************************************
CNTNUM PROC WSTRG,CHNUM(),WIND
MOVE BIN15,=W'31' LOAD LENGTH OF VALSTR
CLEAR BOOL8 F=NO TREASPASSING OF DUPL
CLEAR BOOL4
EJECT
CNT00
MOVE BIN16,W0 MATCHINDEX:=0
MATCH VALSTR,BIN16,BIN15,WSTRG,DEBIN4,W1
BNOK CNNOKL
IB WIND,CNTV,CNTG,CNTA,CNTD
CNTV
CBE BIN16,W0,CNTM JUMP IF 'M'
IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C
CNT3,CNT2,CNT0,CNT2,CNT2, 5-9 C
CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C
CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C
CNT0,CNT0,CNT0,CNTLL,CNNOKL, 20-24 C
CNT3,CNTF,CNTF,CNT0 26-28
B CNNOKL
EJECT
CNTG GENSTRINGCONTROL
CBE BIN16,W0,CNNOKL M NOT ALLOWED
IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C
CNT3,CNT2,CNT0,CNT2,CNT2, 5-9 C
CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C
CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C
CNT0,CNT0,CNT0,CNTL,CNNOKL, 20-24 C
CNTCC,CNNOKL,CNNOKL,CNT0,CNNOKL, 25-29 C
CNTRP 30
B CNNOKL
EJECT
CNTA ACCSTRINGCONTROL
CBE BIN16,W0,CNNOKL M NOT ALLOWED
IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C
CNT3,CNT2,CNT0,CNTCC,CNT2, 5-9 C
CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C
CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C
CNT0,CNT0,CNT0,CNTL,CNT0, 20-24 C
CNNOKL,CNNOKL,CNNOKL,CNNOKL,CNNOKL 25-29 C
CNTRP 30
B CNNOKL
EJECT
CNTD DUPLSTRINGCONTROL
TBT BOOL8,CNNOKL JUMP IF DUPL PASSED
SET BOOL8 DUPL PASSED ONCE
CBE BIN16,W0,CNNOKL M NOT ALLOWED
IB BIN16,CNNOK,CNNOK,CNNOK,CNNOK 1-4 C
CNT0,CNNOK,CNNOK,CNT2,CNT2 5-9 C
CNT1,CNT3,CNT2 10-12
CNNOKL
B CNNOK
CNTLL
B CNTL
EJECT
CNTM M=MESSAGE SPLIT
CBNL DEBIN4,CHNUM(WIND),CNNOKL NOT OK IFNOT LESS ENDPOS
ADD DEBIN4,W1 NEXT POS
MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION
MATCH WSTRG,DEBIN3,W1,VALSTR,W23,W1 M'...' ?
BOK CNTL M'......'
SUB DEBIN4,W1 ADJUST
B CNT2 M99
EJECT
CNTCC CONDITIONAL GEN/ACC
ADD DEBIN4,W1 NEXT POD0S
CBE DEBIN4,CHNUM(WIND),CNNOKL NOT OK IF EOL-FOUND
MOVE DEBIN2,W29
MATCH VALSTR,DEBIN2,W1,WSTRG,DEBIN4,W1 CHECK IF ( CHAR
BOK CNTLP LEFT PARENTESIS
CBE WIND,W2,CNNOKL G OR A NOT ALLOWED IN GEN
SUB DEBIN4,W1 ADJUST FOR ORDIN ACC
B CNT2
*
*
*
CNTLP LEFT PARENTHESIS
SET BOOL4 T=COND GEN/ACC FOUND
BNZ CNNOKL
B CNT0
*
*
*
CNTRP RIGHT PARENTHESIS
CLEAR BOOL4 F=END OF COND GEN/ACC FOUND
BNZ CNT0
B CNNOKL
EJECT
*
* CNT0 NO CONTROL
*
CNT0
ADD DEBIN4,W1 NEXT POS
CBE DEBIN4,CHNUM(WIND),CNTOKLB JUMP IF END OF LINE FOUND
B CNT00 GO ON
CNTOKLB
B CNTOK LONG BRANCH
*
* CNT1 CONTROL 1 BYTE
*
CNT1
PERF DIGCHK,WSTRG,CHNUM,WIND,W1 DIGIT CHECK
BNOK CNNOK JUMP IF NOT OK
CALL CMPIND,DEBIN2,USEV(W1)
BNZ CNNOK OUT OF RANGE
B CNT0 GO ON
EJECT
*
* CNT2 CONTROL OF 2 BYTES
* -M,-L,-A,-S,-T,-C
*
CNT2
PERF DIGCHK,WSTRG,CHNUM,WIND,W2 DIGIT CHECK
BNOK CNNOK JUMP IF NOT OK
CBE BIN16,W8,CNT2B A 10
CBE BIN16,W9,CNT2C S 10
CBE BIN16,W12,CNT2E T --
*
* M,L,C,F+,G+,D+
*
CBL DEBIN2,W0,CNNOK <00 NOT OK
CBG DEBIN2,=W'99',CNNOK >99 NOT OK
B CNT2F
*
* A
*
CNT2B
CALL CMPIND,DEBIN2,ACK(W1)
BNZ CNNOK OUT OF RANGE
B CNT2F
*
* S
*
CNT2C
CALL CMPIND,DEBIN2,SYSV(W1)
BNZ CNNOK OUT OF RANGE
B CNT2F
CNT2E
CBL DEBIN2,W1,CNNOK <01 NOT OK
CBG DEBIN2,=W'94',CNNOK >94 NOT OK
MOVE DEBIN3,DEBIN4 LOAD WORKPOSITIONER
ADD DEBIN3,W2 ADJUST WORKPOSITIONER
CBG DEBIN3,CHNUM(WIND),CNT0 JUMP IF OVERFLOW
MATCH WSTRG,DEBIN3,W1,VALSTR,W18,W1 NEXT POS : ?
BNOK CNT2F
ADD DEBIN4,W2 ADJUST POINTER IF OK
MOVE BIN16,W6 SIMULATE L TO CHECK VS-IND
B CNT2
CNT2F
ADD DEBIN4,W1 NEXT POS
B CNT0 GO ON
EJECT
*
* CNT3 CONTROL OF 3 BYTES -D,-F
*
CNT3
TBT BOOL6,CNNOK -D,-F,-G NOT OK IN BALANCE
ADD DEBIN4,W1 ADJUST FOR RELATIVE SIGN
MOVE DEBIN3,W15 LOAD WORKPOSITIONER
MATCH VALSTR,DEBIN3,W2,WSTRG,DEBIN4,W1 RELATIVE SIGN ?
BNOK CNT3Z NO REL SIGN FOUND
CBNE WIND,W4,CNT2 JUMP IF NOT DUPL-STRING
CBE DEBIN3,W15,CNNOK F+ NOT ALLOWED IN DUPL
B CNT2 CONTROL FOR 2CHARCTERS
CNT3Z
SUB DEBIN4,W1 ADJUST FOR DIGIT CHECK
PERF DIGCHK,WSTRG,CHNUM,WIND,W3 DIGIT CHECK
BNOK CNNOK
CBL DEBIN2,W0,CNNOK < 0 NOT OK
CBG DEBIN2,=W'999',CNNOK > 999 NOT OK
CBE BIN16,W5,CNT3A JUMP IF 'D'
B CNT3B JUMP IF 'F' OR 'G'
CNT3A
CBNL BIN10,DEBIN2,CNT3B FXX NOT < DXX OK
B CNNOK JUMP IF ERROR
CNT3B
ADD DEBIN4,W2
B CNT0 GO ON
EJECT
*
* CNTL CONTROL LITERAL
*
CNTL
ADD DEBIN4,W1
CBNL DEBIN4,CHNUM(WIND),CNNOK JUMP, IF OFERFLOW
MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS
SUB DEBIN2,DEBIN4 NUMB OF CHRS TO MATCH
MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH
MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,W23,W1 MATCH NEXT '
BNOK CNNOK
SUB DEBIN3,DEBIN4 =NUMB OF LIT-CHARS
CBNG DEBIN3,W0,CNNOK < 1 NOT OK
CBNL DEBIN3,W64,CNNOK >63 NOT OK
CBE BIN16,W26,CNTLFK JUMP IF COND FORM CHANGE (R)
CBE BIN16,W27,CNTLFK JUMP IF COND FORM CHANGE (N)
B CNTLOK
CNTLFK
CBG DEBIN3,W6,CNNOK FORMAT NAME > 6 NOT OK
CNTLOK
ADD DEBIN4,DEBIN3 ADJUST NEXT POS
B CNT0 GO ON
EJECT
*
* CNTF CONTROL FORMATNAME-LITERAL
*
CNTF
ADD DEBIN4,W1 ADJUST POINTER POSITION
CBNL DEBIN4,CHNUM(WIND),CNNOK JUMP IF OVERFLOW
B CNTL JUMP LITERAL CONTROL
EJECT
CNNOK
CBNE WIND,W4,CNNCR JUMP IF NOT DUPL
MOVE DEBINW1,DEBIN4 RESTORE ERROR-POSITION
ADD DEBINW1,W1 ADJUST FOR POINTER IN LDES
MOVE DEBINW4,W6
PERF DERROR,DEKTAB4 'ILLEGAL VALUE'
CNNCR
CMP W1,W0 SET CR
B CNRT
CNTOK
TBT BOOL4,CNNOK NOT OK IF COND GEN/ACC NOT CONCLUDED
CMP W1,W1 CLEAR CR
CNRT
RET
PEND
EJECT
*
* THIS PROCEDURE CHECKS IF RIGHT NUMBER OF REAL DIGITS
* HAVE BEEN KEYED IN FOR THE CORRESPONDING FUNCTION
* IN VAL-, GEN- AND ACC-STRING
*
* INPUT PARAMETERS (FORMAL) : WSTRG = WORKSTRING CONTAINS DIGIT
* CHNUM = ENDPOSITION IN WSTRG FOR
* WIND = INDEX TO CHNUM
* NUMB = NUMBER OF DIGITS TO CHECK
*
* INPUT PARAMETERS : DEBIN4 = CURRENT POSITION POINTER
*
* USED PARAMETERS : DEBIN3 =WORKAREA
* STR6A = WORKAREA
* BCD13A = WORKAREA
*
* OUTPUT PARAMETERS : DEBIN2 = CHECKED DIGITS BINARY STO
* DEBIN4 = POSITION POINTER ADJUSTED
* CR = 0 = OK
* CR/= 0 = NOT OK
************************************************************************
DIGCHK PROC WSTRG,CHNUM(),WIND,NUMB
ADD DEBIN4,W1 ADJUST POINTER POSITION
MOVE DEBIN3,DEBIN4 SAVE POINTER ADRESS
ADD DEBIN3,NUMB ADD NUMB OF CHARACTERS
CBG DEBIN3,CHNUM(WIND),DIGC99 JUMP IF OVERFLOW
MOVE STR6A,HEX00 INITIALIZE:=00000000
XCOPY STR6A,W0,NUMB,WSTRG,DEBIN4
MOVE BCD13A,STR6A STR=>BCD
MOVE DEBIN3,W0
EDSUB STR6A,DEBIN3,FSCONV
CMP DEBIN3,NUMB CHECK IF EQUAL = OK
MOVE DEBIN2,BCD13A BCD=>BIN
DIGC99
RET
PEND
EJECT
FSCONV FRMT
FMEL 'AAAAAA',BCD13A
FMEND
END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DEVGAC REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-10-28/JAER«, t00=0x0000, t01=0x002c}
0x0040…004a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0044}
0x004a…008e Head {h00=0x0040, h01=0x003c, text=»* THIS PROGRAM-MODUL CONTAINS ENTRIES TO THE DIFFERENT«, t00=0x0000, t01=0x004e}
0x008e…00ce Head {h00=0x003c, h01=0x0038, text=»* CONVERTIONS THAT OCCURS IN THE FORMAT GENERATION«, t00=0x0000, t01=0x0092}
0x00ce…00d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00d2}
0x00d8…00ec Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x00dc}
0x00ec…00fa Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x00f0}
0x00fa…0104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fe}
0x0104…0134 Head {h00=0x002c, h01=0x0050, text=» ENTRY VGACNT VAL-GEN-ACC-STRING-CONTROL«, t00=0x0000, t01=0x0108}
0x0134…013e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0138}
0x013e…016e Head {h00=0x002c, h01=0x0027, text=» ENTRY CNTNUM CONTROL OF VARIABLE INDEX «, t00=0x0000, t01=0x0142}
0x016e…0178 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0172}
0x0178…0198 Head {h00=0x001c, h01=0x0050, text=» EXT DERROR ERRORMESSAGE«, t00=0x0000, t01=0x017c}
0x0198…01a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000c}
0x01a2…01d0 Head {h00=0x002a, h01=0x0050, text=» EXT CMPIND COMPARE INDEX (DIMENSION) «, t00=0x0001, t01=0x0016}
0x01d0…01da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0044}
0x01da…01fe Head {h00=0x0020, h01=0x0050, text=» EXT EMPTYT CHECK EMPTY ITEM«, t00=0x0001, t01=0x004e}
0x01fe…0208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0072}
0x0208…0222 Head {h00=0x0016, h01=0x0012, text=»* KEYTABLES«, t00=0x0001, t01=0x007c}
0x0222…022c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0096}
0x022c…0256 Head {h00=0x0026, h01=0x0050, text=»* USAGE: DATA ENTRY SCREEN «, t00=0x0001, t01=0x00a0}
0x0256…0260 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00ca}
0x0260…027c Head {h00=0x0018, h01=0x0013, text=»CLR EQU X'8F' CLEAR «, t00=0x0001, t01=0x00d4}
0x027c…0298 Head {h00=0x0018, h01=0x0014, text=»CAN EQU X'91' CANCEL«, t00=0x0001, t01=0x00f0}
0x0298…02b4 Head {h00=0x0018, h01=0x0050, text=»RET EQU X'92' RETURN«, t00=0x0001, t01=0x010c}
0x02b4…02d8 Head {h00=0x0020, h01=0x001c, text=»CFW EQU X'86' CURSOR FORWARD«, t00=0x0001, t01=0x0128}
0x02d8…02e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x02e2…0306 Head {h00=0x0020, h01=0x0050, text=»DEKTAB4 KTAB CLR,CAN,RET,CFW«, t00=0x0001, t01=0x0156}
0x0306…0310 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x017a}
0x0310…031e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x0184}
0x031e…0328 (2, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x0328…0368 Head {h00=0x003c, h01=0x0050, text=»* VALIDATION- GENERATION- AND ACCUMULATION CONTROL«, t00=0x0002, t01=0x000e}
0x0368…0372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x004e}
0x0372…03c2 Head {h00=0x004c, h01=0x0050, text=»* THIS MODULE STEERS THE PROCESSING OF THE THREE DIFFERENT FUNCTIO«, t00=0x0002, t01=0x0058}
0x03c2…03cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a8}
0x03cc…03ee Head {h00=0x001e, h01=0x0050, text=»* INPUT PARAMETERS: «, t00=0x0002, t01=0x00b2}
0x03ee…043a Head {h00=0x0048, h01=0x0050, text=»* FMTWK(W10) = NUMBER OF CHARACTERS STRING1 «, t00=0x0002, t01=0x00d4}
0x043a…0486 Head {h00=0x0048, h01=0x0050, text=»* FMTWK(W11) = NUMBER OF CHARACTERS STRING 2«, t00=0x0002, t01=0x0120}
0x0486…0490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016c}
0x0490…04ac Head {h00=0x0018, h01=0x0050, text=»* WORK ITEMS: «, t00=0x0002, t01=0x0176}
0x04ac…04fc (3, 0, 400) Head {h00=0x004c, h01=0x0050, text=»* FMTWK(W12) = CALCULATE TOTAL NUMBER OF CHARCTE«, t00=0x0003, t01=0x0004}
0x04fc…0544 Head {h00=0x0044, h01=0x0050, text=»* DEBIN3 = POINTER FUNC,-TEXT-STRING«, t00=0x0003, t01=0x0054}
0x0544…058c Head {h00=0x0044, h01=0x0050, text=»* DEBIN4 = POINTER CHARACTER-STRING «, t00=0x0003, t01=0x009c}
0x058c…05ca Head {h00=0x003a, h01=0x0050, text=»* DEBINW2 = FUNCTION-INDEX «, t00=0x0003, t01=0x00e4}
0x05ca…0608 Head {h00=0x003a, h01=0x0050, text=»* = 1 = VALIDATION «, t00=0x0003, t01=0x0122}
0x0608…0646 Head {h00=0x003a, h01=0x0050, text=»* = 2 = GENERATION «, t00=0x0003, t01=0x0160}
0x0646…0686 Head {h00=0x003c, h01=0x0050, text=»* = 3 = ACCUMULATION «, t00=0x0004, t01=0x000e}
0x0686…06c4 Head {h00=0x003a, h01=0x0050, text=»* STRG10A = FUNCTION TEXTS «, t00=0x0004, t01=0x004e}
0x06c4…06f8 Head {h00=0x0030, h01=0x0050, text=»* STR1A = WORK «, t00=0x0004, t01=0x008c}
0x06f8…072c Head {h00=0x0030, h01=0x0050, text=»* BIN16 = WORK «, t00=0x0004, t01=0x00c0}
0x072c…0736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f4}
0x0736…0758 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT PARAMETERS:«, t00=0x0004, t01=0x00fe}
0x0758…078e Head {h00=0x0032, h01=0x0050, text=»* 'CR' = 0 = OK«, t00=0x0004, t01=0x0120}
0x078e…07c8 Head {h00=0x0036, h01=0x0050, text=»* = 1 = NOT OK«, t00=0x0004, t01=0x0156}
0x07c8…0818 Head {h00=0x004c, h01=0x0050, text=»* DEBINW1 = ERRORPOSITION IN CHARACTERSTRING «, t00=0x0004, t01=0x0190}
0x0818…0860 Head {h00=0x0044, h01=0x0050, text=»* DEBINW4 = FIELDNR WHEN ERROR FOUND «, t00=0x0005, t01=0x0050}
0x0860…0874 Head {h00=0x0010, h01=0x0050, text=»VGACNT PROC «, t00=0x0005, t01=0x0098}
0x0874…08ac Head {h00=0x0034, h01=0x0050, text=» CALL EMPTYT,FORTAB(W1) CHECK IF 1ST LINE EMPTY «, t00=0x0005, t01=0x00ac}
0x08ac…08c8 Head {h00=0x0018, h01=0x0050, text=» AFTER CORRECTION «, t00=0x0005, t01=0x00e4}
0x08c8…08e6 Head {h00=0x001a, h01=0x0050, text=» BOK VGAC00 NOT EMPTY «, t00=0x0005, t01=0x0100}
0x08e6…0914 Head {h00=0x002a, h01=0x0050, text=» MOVE FMTWK(W10),W0 EMPTY => NO CHARS «, t00=0x0005, t01=0x011e}
0x0914…0922 Head {h00=0x000a, h01=0x0050, text=»VGAC00«, t00=0x0005, t01=0x014c}
0x0922…095a Head {h00=0x0034, h01=0x0050, text=» CALL EMPTYT,FORTAB(W2) CHECK IF 2ND LINE EMPTY «, t00=0x0005, t01=0x015a}
0x095a…0976 (6, 0, 400) Head {h00=0x0018, h01=0x0050, text=» AFTER CORRECTION «, t00=0x0006, t01=0x0004}
0x0976…0994 Head {h00=0x001a, h01=0x0050, text=» BOK VGAC03 NOT EMPTY «, t00=0x0006, t01=0x0020}
0x0994…09c2 Head {h00=0x002a, h01=0x0050, text=» MOVE FMTWK(W11),W0 EMPTY => NO CHARS «, t00=0x0006, t01=0x003e}
0x09c2…09d0 Head {h00=0x000a, h01=0x0050, text=»VGAC03«, t00=0x0006, t01=0x006c}
0x09d0…0a06 Head {h00=0x0032, h01=0x0050, text=» MOVE FMTWK(W12),FMTWK(W10) LOAD NUMB CHARS 1 «, t00=0x0006, t01=0x007a}
0x0a06…0a3a Head {h00=0x0030, h01=0x0050, text=» ADD FMTWK(W12),FMTWK(W11) ADD NUMB CHARS 2 «, t00=0x0006, t01=0x00b0}
0x0a3a…0a72 Head {h00=0x0034, h01=0x0050, text=» CBE FMTWK(W10),=X'50',VGAC10 JUMP IF MAX FILLED«, t00=0x0006, t01=0x00e4}
0x0a72…0aa8 Head {h00=0x0032, h01=0x0050, text=» CBE FMTWK(W11),W0,VGAC10 JUMP IF STRG2 EMPTY «, t00=0x0006, t01=0x011c}
0x0aa8…0ab6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0152}
0x0ab6…0ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0160}
0x0ac0…0b08 Head {h00=0x0044, h01=0x0050, text=»* 1ST STRING ('FORTAB(W1)') NOT MAX FILLED AND 2ND STRING «, t00=0x0006, t01=0x016a}
0x0b08…0b28 Head {h00=0x001c, h01=0x0050, text=»* PARTIAL FILLED. «, t00=0x0007, t01=0x0022}
0x0b28…0b68 Head {h00=0x003c, h01=0x0050, text=»* -ACTION: DELETE EMPTY POSITIONS OF 1ST STRING«, t00=0x0007, t01=0x0042}
0x0b68…0baa Head {h00=0x003e, h01=0x0050, text=»* WITH HELP OF THE REDEFINED ITEM JOBSPC«, t00=0x0007, t01=0x0082}
0x0baa…0be8 Head {h00=0x003a, h01=0x0050, text=»* FINALLY DISPLAY IT IN SEQUENS AGAIN«, t00=0x0007, t01=0x00c4}
0x0be8…0bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0102}
0x0bf2…0c22 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN16,=X'50' LOAD 80 AS MAX LENGTH«, t00=0x0007, t01=0x010c}
0x0c22…0c5c Head {h00=0x0036, h01=0x0050, text=» SUB BIN16,FMTWK(W10) COMPUTE SIZE OF EMPTY CHARS «, t00=0x0007, t01=0x013c}
0x0c5c…0c9a Head {h00=0x003a, h01=0x0050, text=» DLETE JOBSPC,FMTWK(W10),BIN16 DELETE EMPTY CHARACTERS«, t00=0x0007, t01=0x0176}
0x0c9a…0cc8 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN15,=X'A0' LOAD WITH MAXLENTH «, t00=0x0008, t01=0x0024}
0x0cc8…0cf2 Head {h00=0x0026, h01=0x0050, text=» SUB BIN15,BIN16 COMPUTE STARTP]OS«, t00=0x0008, t01=0x0052}
0x0cf2…0d34 Head {h00=0x003e, h01=0x0050, text=» XCOPY JOBSPC,BIN15,BIN16,DEINPUT,W0 FILL REST WITH X'00' «, t00=0x0008, t01=0x007c}
0x0d34…0d5a Head {h00=0x0022, h01=0x0050, text=» CBL FMTWK(W12),=X'51',VGAC05 «, t00=0x0008, t01=0x00be}
0x0d5a…0d7e Head {h00=0x0020, h01=0x0050, text=» MOVE FMTWK(W11),FMTWK(W12) «, t00=0x0008, t01=0x00e4}
0x0d7e…0d9c Head {h00=0x001a, h01=0x0050, text=» SUB FMTWK(W11),=X'50'«, t00=0x0008, t01=0x0108}
0x0d9c…0dbc Head {h00=0x001c, h01=0x0050, text=» MOVE FMTWK(W10),=X'50' «, t00=0x0008, t01=0x0126}
0x0dbc…0dce Head {h00=0x000e, h01=0x0050, text=» B VGAC10 «, t00=0x0008, t01=0x0146}
0x0dce…0ddc Head {h00=0x000a, h01=0x0050, text=»VGAC05«, t00=0x0008, t01=0x0158}
0x0ddc…0e00 Head {h00=0x0020, h01=0x0050, text=» MOVE FMTWK(W10),FMTWK(W12) «, t00=0x0008, t01=0x0166}
0x0e00…0e1c Head {h00=0x0018, h01=0x0050, text=» MOVE FMTWK(W11),W0 «, t00=0x0008, t01=0x018a}
0x0e1c…0e2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0016}
0x0e2a…0e38 Head {h00=0x000a, h01=0x0050, text=»VGAC10«, t00=0x0009, t01=0x0024}
0x0e38…0e62 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN4,W0 STARTPOS IN JOBSPC«, t00=0x0009, t01=0x0032}
0x0e62…0e94 Head {h00=0x002e, h01=0x0050, text=» MOVE STR1A,=C'#' WORK:=FUNCTIONSEPARATOR «, t00=0x0009, t01=0x005c}
0x0e94…0ec8 Head {h00=0x0030, h01=0x0050, text=» MOVE STRG10A,=C'V:G:A:' LOAD FUNCTION-TEXTS«, t00=0x0009, t01=0x008e}
0x0ec8…0ef4 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 LOAD ACTUAL POS «, t00=0x0009, t01=0x00c2}
0x0ef4…0f2c Head {h00=0x0034, h01=0x0050, text=» MATCH JOBSPC,DEBIN3,W1,STR1A,W0,W1 1ST POS = # «, t00=0x0009, t01=0x00ee}
0x0f2c…0f4e Head {h00=0x001e, h01=0x0050, text=» BNOK VGAC90 JUMP IF ERROR«, t00=0x0009, t01=0x0126}
0x0f4e…0f72 Head {h00=0x0020, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POSITION«, t00=0x0009, t01=0x0148}
0x0f72…0f80 Head {h00=0x000a, h01=0x0050, text=»VGAC15«, t00=0x0009, t01=0x016c}
0x0f80…0faa Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,W0 FUNCTIONINDEX:=0 «, t00=0x0009, t01=0x017a}
0x0faa…0fdc Head {h00=0x002e, h01=0x0050, text=» MATCH STRG10A,DEBINW2,W6,JOBSPC,DEBIN4,W2«, t00=0x000a, t01=0x0014}
0x0fdc…1002 Head {h00=0x0022, h01=0x0050, text=» BNOK VGAC90 JUMP IF NOT FOUND«, t00=0x000a, t01=0x0046}
0x1002…1034 Head {h00=0x002e, h01=0x0050, text=» MOVE FBIN1,DEBINW2 SAVE FUNCTEXT POINTER «, t00=0x000a, t01=0x006c}
0x1034…104c Head {h00=0x0014, h01=0x0050, text=» ADD DEBINW2,W2 «, t00=0x000a, t01=0x009e}
0x104c…1064 Head {h00=0x0014, h01=0x0050, text=» DIV DEBINW2,W2 «, t00=0x000a, t01=0x00b6}
0x1064…1096 Head {h00=0x002e, h01=0x0050, text=» TBF BOOL6,VGAC20 JUMP IF ORDINARY FORMAT «, t00=0x000a, t01=0x00ce}
0x1096…10d0 Head {h00=0x0036, h01=0x0050, text=» CBE DEBINW2,W3,VGAC90 ACC NOT ALLOWED IN BALFORM «, t00=0x000a, t01=0x0100}
0x10d0…10de Head {h00=0x000a, h01=0x0050, text=»VGAC20«, t00=0x000a, t01=0x013a}
0x10de…110c Head {h00=0x002a, h01=0x0050, text=» ADD DEBIN4,W2 NEXT POSITION FUNCCODE «, t00=0x000a, t01=0x0148}
0x110c…113c Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION«, t00=0x000a, t01=0x0176}
0x113c…1174 Head {h00=0x0034, h01=0x0050, text=» MOVE DEBIN2,FMTWK(W12) LOAD TOTAL NUMB OF CHARS«, t00=0x000b, t01=0x0016}
0x1174…11a6 Head {h00=0x002e, h01=0x0050, text=» SUB DEBIN2,DEBIN4 NUMB OF CHARS TO MATCH «, t00=0x000b, t01=0x004e}
0x11a6…11ee Head {h00=0x0044, h01=0x0050, text=» MATCH JOBSPC,DEBIN3,DEBIN2,STRG10A,FBIN1,W2 JUST ONE FUNC EACH «, t00=0x000b, t01=0x0080}
0x11ee…121a Head {h00=0x0028, h01=0x0050, text=» BNOK VGAC35 NO MORE OF SAME FONC OK«, t00=0x000b, t01=0x00c8}
0x121a…124c Head {h00=0x002e, h01=0x0050, text=» MOVE DEBIN4,DEBIN3 RESTORE ERROR-POSITION«, t00=0x000b, t01=0x00f4}
0x124c…126a Head {h00=0x001a, h01=0x0050, text=» SUB DEBIN4,W1 ADJUST «, t00=0x000b, t01=0x0126}
0x126a…127c Head {h00=0x000e, h01=0x0050, text=» B VGAC90 «, t00=0x000b, t01=0x0144}
0x127c…128a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0156}
0x128a…1298 Head {h00=0x000a, h01=0x0050, text=»VGAC35«, t00=0x000b, t01=0x0164}
0x1298…12c8 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION«, t00=0x000b, t01=0x0172}
0x12c8…12e2 Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'#' «, t00=0x000c, t01=0x0012}
0x12e2…1316 Head {h00=0x0030, h01=0x0050, text=» MATCH JOBSPC,DEBIN3,DEBIN2,STR1A,W0,W1 NEXT«, t00=0x000c, t01=0x002c}
0x1316…133a Head {h00=0x0020, h01=0x0050, text=» BOK VGAC40 OK NEXT # FOUND «, t00=0x000c, t01=0x0060}
0x133a…1372 Head {h00=0x0034, h01=0x0050, text=» MOVE DEBIN3,FMTWK(W12) LOAD WITH LAST POSITION «, t00=0x000c, t01=0x0084}
0x1372…1380 Head {h00=0x000a, h01=0x0050, text=»VGAC40«, t00=0x000c, t01=0x00bc}
0x1380…13ba Head {h00=0x0036, h01=0x0050, text=» MOVE FMTWK(DEBINW2),DEBIN3 LOAD ENDPOS OF CONTROL«, t00=0x000c, t01=0x00ca}
0x13ba…13f4 Head {h00=0x0036, h01=0x0050, text=» PERF CNTNUM,JOBSPC,FMTWK,DEBINW2 CONTROL FUNCTION«, t00=0x000c, t01=0x0104}
0x13f4…1418 Head {h00=0x0020, h01=0x0050, text=» BNOK VGAC90 JUMP IF NOT OK «, t00=0x000c, t01=0x013e}
0x1418…1448 Head {h00=0x002c, h01=0x0050, text=» CBNE DEBINW2,W3,VGAC45 JUMP IF NOT ACC «, t00=0x000c, t01=0x0162}
0x1448…145a (13, 0, 400) Head {h00=0x000e, h01=0x0050, text=» SET ACKUM«, t00=0x000d, t01=0x0004}
0x145a…1468 Head {h00=0x000a, h01=0x0050, text=»VGAC45«, t00=0x000d, t01=0x0016}
0x1468…14a4 Head {h00=0x0038, h01=0x0050, text=» CBE DEBIN4,FMTWK(W12),VGAC99 JUMP IF END OF STRING «, t00=0x000d, t01=0x0024}
0x14a4…14c8 Head {h00=0x0020, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POSITION«, t00=0x000d, t01=0x0060}
0x14c8…14da Head {h00=0x000e, h01=0x0050, text=» B VGAC15 «, t00=0x000d, t01=0x0084}
0x14da…14e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0096}
0x14e8…14f6 Head {h00=0x000a, h01=0x0050, text=»VGAC90«, t00=0x000d, t01=0x00a4}
0x14f6…1528 Head {h00=0x002e, h01=0x0050, text=» TBF BOOL6,VGAC92 JUMP IF ORDINARY FORMAT «, t00=0x000d, t01=0x00b2}
0x1528…154e Head {h00=0x0022, h01=0x0050, text=» ERASE 0,W13,W14 ERASE 2 LINES«, t00=0x000d, t01=0x00e4}
0x154e…1570 Head {h00=0x001e, h01=0x0050, text=» DISPLAY 1,W6,W7 REDISPLAY«, t00=0x000d, t01=0x010a}
0x1570…15a2 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W6 FIELD TO MAKE CURRENT = 6«, t00=0x000d, t01=0x012c}
0x15a2…15b4 Head {h00=0x000e, h01=0x0050, text=» B VGAC94 «, t00=0x000d, t01=0x015e}
0x15b4…15c2 Head {h00=0x000a, h01=0x0050, text=»VGAC92«, t00=0x000d, t01=0x0170}
0x15c2…15f2 Head {h00=0x002c, h01=0x0050, text=» ERASE 0,W17,W18 ERASE 2LINES ON SCREEN «, t00=0x000d, t01=0x017e}
0x15f2…1616 Head {h00=0x0020, h01=0x0050, text=» DISPLAY 1,W12,W13 REDISPLAY«, t00=0x000e, t01=0x001e}
0x1616…164a Head {h00=0x0030, h01=0x0050, text=» MOVE DEBINW4,W12 FIELD TO MAKE CURRENT =19 «, t00=0x000e, t01=0x0042}
0x164a…1658 Head {h00=0x000a, h01=0x0050, text=»VGAC94«, t00=0x000e, t01=0x0076}
0x1658…1680 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN16,W1 1ST LINE CURRENT «, t00=0x000e, t01=0x0084}
0x1680…16aa Head {h00=0x0026, h01=0x0050, text=» MOVE BIN15,=X'50' LOAD SIZE = 80 «, t00=0x000e, t01=0x00ac}
0x16aa…16dc Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW1,DEBIN4 STORE ACTUAL POSITION«, t00=0x000e, t01=0x00d6}
0x16dc…1706 Head {h00=0x0026, h01=0x0050, text=» ADD DEBINW1,W1 ADJUST FOR CURSOR «, t00=0x000e, t01=0x0108}
0x1706…172e Head {h00=0x0024, h01=0x0050, text=» CBL DEBIN4,=X'51',VGAC95 < = 80«, t00=0x000e, t01=0x0132}
0x172e…1760 Head {h00=0x002e, h01=0x0050, text=» SUB DEBINW1,BIN15 ADJUST POINTER 2ND LINE«, t00=0x000e, t01=0x015a}
0x1760…1792 Head {h00=0x002e, h01=0x0050, text=» ADD DEBINW4,W1 FIELD TO MAKE CURRENT = +1«, t00=0x000e, t01=0x018c}
0x1792…17b8 Head {h00=0x0022, h01=0x0050, text=» ADD BIN16,W1 2ND LINE CURRENT«, t00=0x000f, t01=0x002e}
0x17b8…17c6 Head {h00=0x000a, h01=0x0050, text=»VGAC95«, t00=0x000f, t01=0x0054}
0x17c6…17e8 Head {h00=0x001e, h01=0x0050, text=» GETFLD 0,DEBINW4,DEBINW3 «, t00=0x000f, t01=0x0062}
0x17e8…180e Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW4,W6 ILLEGAL VALUE«, t00=0x000f, t01=0x0084}
0x180e…182a Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB4«, t00=0x000f, t01=0x00aa}
0x182a…186c Head {h00=0x003e, h01=0x0050, text=» XCOPY DEINPUT,W0,BIN15,FORTAB(BIN16),W0 RELOAD FALSE LINE«, t00=0x000f, t01=0x00c6}
0x186c…1886 Head {h00=0x0016, h01=0x0050, text=» CMP W1,W0 CR /= 0«, t00=0x000f, t01=0x0108}
0x1886…1898 Head {h00=0x000e, h01=0x0050, text=» B VGACEX «, t00=0x000f, t01=0x0122}
0x1898…18a6 Head {h00=0x000a, h01=0x0050, text=»VGAC99«, t00=0x000f, t01=0x0134}
0x18a6…18d8 Head {h00=0x002e, h01=0x0050, text=» MOVE FMTWK(W10),W0 NUMB OF CHARS STRG1:=0«, t00=0x000f, t01=0x0142}
0x18d8…190a Head {h00=0x002e, h01=0x0050, text=» MOVE FMTWK(W11),W0 NUMB OF CHARS STRG2:=0«, t00=0x000f, t01=0x0174}
0x190a…1924 Head {h00=0x0016, h01=0x0050, text=» CMP W1,W1 CR = 0 «, t00=0x0010, t01=0x0016}
0x1924…1932 Head {h00=0x000a, h01=0x0050, text=»VGACEX«, t00=0x0010, t01=0x0030}
0x1932…193e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x003e}
0x193e…194c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x004a}
0x194c…195a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0058}
0x195a…1964 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0066}
0x1964…1994 Head {h00=0x002c, h01=0x0050, text=»* CONTROL VARIABLE NUMBER (INDEX) «, t00=0x0010, t01=0x0070}
0x1994…199e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a0}
0x199e…19c8 Head {h00=0x0026, h01=0x0050, text=»* INPUT PARAMETERS (FORMAL):«, t00=0x0010, t01=0x00aa}
0x19c8…1a16 Head {h00=0x004a, h01=0x0050, text=»* CHNUM = NUMBER OF INPUT CHARACTERS«, t00=0x0010, t01=0x00d4}
0x1a16…1a66 Head {h00=0x004c, h01=0x0050, text=»* WIND = INDEX TO CORRESPONDING CHAR-«, t00=0x0010, t01=0x0122}
0x1a66…1aa8 Head {h00=0x003e, h01=0x0050, text=»* DEBIN4 = STRG TO CONTROL«, t00=0x0010, t01=0x0172}
0x1aa8…1ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0024}
0x1ab2…1ad4 Head {h00=0x001e, h01=0x0050, text=»* INPUT PARAMETERS: «, t00=0x0011, t01=0x002e}
0x1ad4…1b24 Head {h00=0x004c, h01=0x0050, text=»* VALSTR = VAL/GEN/ACC---CHARACTERSTRIN«, t00=0x0011, t01=0x0050}
0x1b24…1b70 Head {h00=0x0048, h01=0x0050, text=»* DEBIN4 = POINTER CHARACTER-STRING«, t00=0x0011, t01=0x00a0}
0x1b70…1b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ec}
0x1b7a…1bc6 Head {h00=0x0048, h01=0x0050, text=»* WORKITEMS : DEBIN2 = LENGTH OF LITERAL STRING«, t00=0x0011, t01=0x00f6}
0x1bc6…1c0c Head {h00=0x0042, h01=0x0050, text=»* DEBIN3 = NUMBER OF LITERALS«, t00=0x0011, t01=0x0142}
0x1c0c…1c50 Head {h00=0x0040, h01=0x0050, text=»* BIN15 = LENGTH OF VALSTR«, t00=0x0011, t01=0x0188}
0x1c50…1c9e Head {h00=0x004a, h01=0x0050, text=»* BIN16 = MATCHING-POINTER 'VALSTR' «, t00=0x0012, t01=0x003c}
0x1c9e…1ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008a}
0x1ca8…1ccc Head {h00=0x0020, h01=0x0050, text=»* OUTPUT PARAMETERS : «, t00=0x0012, t01=0x0094}
0x1ccc…1d06 Head {h00=0x0036, h01=0x0050, text=»* 'CR' = 0 , OK«, t00=0x0012, t01=0x00b8}
0x1d06…1d44 Head {h00=0x003a, h01=0x0050, text=»* /=0 , NOT OK«, t00=0x0012, t01=0x00f2}
0x1d44…1d94 Head {h00=0x004c, h01=0x0050, text=»* DEBINW1 = ERROR-POSITION IN INPUT-BUFF«, t00=0x0012, t01=0x0130}
0x1d94…1d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0180}
0x1d9e…1dee Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0012, t01=0x018a}
0x1dee…1e14 Head {h00=0x0022, h01=0x0050, text=»CNTNUM PROC WSTRG,CHNUM(),WIND«, t00=0x0013, t01=0x004a}
0x1e14…1e44 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN15,=W'31' LOAD LENGTH OF VALSTR«, t00=0x0013, t01=0x0070}
0x1e44…1e72 Head {h00=0x002a, h01=0x0050, text=» CLEAR BOOL8 F=NO TREASPASSING OF DUPL«, t00=0x0013, t01=0x00a0}
0x1e72…1e86 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL4«, t00=0x0013, t01=0x00ce}
0x1e86…1e94 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x00e2}
0x1e94…1ea2 Head {h00=0x000a, h01=0x0050, text=»CNT00 «, t00=0x0013, t01=0x00f0}
0x1ea2…1ec6 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN16,W0 MATCHINDEX:=0«, t00=0x0013, t01=0x00fe}
0x1ec6…1ef8 Head {h00=0x002e, h01=0x0050, text=» MATCH VALSTR,BIN16,BIN15,WSTRG,DEBIN4,W1 «, t00=0x0013, t01=0x0122}
0x1ef8…1f0c Head {h00=0x0010, h01=0x0050, text=» BNOK CNNOKL«, t00=0x0013, t01=0x0154}
0x1f0c…1f30 Head {h00=0x0020, h01=0x0050, text=» IB WIND,CNTV,CNTG,CNTA,CNTD«, t00=0x0013, t01=0x0168}
0x1f30…1f3c Head {h00=0x0008, h01=0x0050, text=»CNTV«, t00=0x0013, t01=0x018c}
0x1f3c…1f62 Head {h00=0x0022, h01=0x0050, text=» CBE BIN16,W0,CNTM JUMP IF 'M'«, t00=0x0014, t01=0x0008}
0x1f62…1f8e Head {h00=0x0028, h01=0x0050, text=» IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C«, t00=0x0014, t01=0x002e}
0x1f8e…1fb8 Head {h00=0x0026, h01=0x0050, text=» CNT3,CNT2,CNT0,CNT2,CNT2, 5-9 C «, t00=0x0014, t01=0x005a}
0x1fb8…1fe4 Head {h00=0x0028, h01=0x0050, text=» CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C «, t00=0x0014, t01=0x0084}
0x1fe4…2010 Head {h00=0x0028, h01=0x0050, text=» CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C «, t00=0x0014, t01=0x00b0}
0x2010…203e Head {h00=0x002a, h01=0x0050, text=» CNT0,CNT0,CNT0,CNTLL,CNNOKL, 20-24 C«, t00=0x0014, t01=0x00dc}
0x203e…2062 Head {h00=0x0020, h01=0x0050, text=» CNT3,CNTF,CNTF,CNT0 26-28 «, t00=0x0014, t01=0x010a}
0x2062…2074 Head {h00=0x000e, h01=0x0050, text=» B CNNOKL «, t00=0x0014, t01=0x012e}
0x2074…2082 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x0140}
0x2082…20a2 Head {h00=0x001c, h01=0x0050, text=»CNTG GENSTRINGCONTROL «, t00=0x0014, t01=0x014e}
0x20a2…20cc Head {h00=0x0026, h01=0x0050, text=» CBE BIN16,W0,CNNOKL M NOT ALLOWED«, t00=0x0014, t01=0x016e}
0x20cc…20f8 Head {h00=0x0028, h01=0x0050, text=» IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C«, t00=0x0015, t01=0x0008}
0x20f8…2122 Head {h00=0x0026, h01=0x0050, text=» CNT3,CNT2,CNT0,CNT2,CNT2, 5-9 C «, t00=0x0015, t01=0x0034}
0x2122…214e Head {h00=0x0028, h01=0x0050, text=» CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C «, t00=0x0015, t01=0x005e}
0x214e…217a Head {h00=0x0028, h01=0x0050, text=» CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C «, t00=0x0015, t01=0x008a}
0x217a…21a8 Head {h00=0x002a, h01=0x0050, text=» CNT0,CNT0,CNT0,CNTL,CNNOKL, 20-24 C «, t00=0x0015, t01=0x00b6}
0x21a8…21da Head {h00=0x002e, h01=0x0050, text=» CNTCC,CNNOKL,CNNOKL,CNT0,CNNOKL, 25-29 C«, t00=0x0015, t01=0x00e4}
0x21da…21ec Head {h00=0x000e, h01=0x0050, text=» CNTRP 30«, t00=0x0015, t01=0x0116}
0x21ec…21fe Head {h00=0x000e, h01=0x0050, text=» B CNNOKL «, t00=0x0015, t01=0x0128}
0x21fe…220c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x013a}
0x220c…222c Head {h00=0x001c, h01=0x0050, text=»CNTA ACCSTRINGCONTROL «, t00=0x0015, t01=0x0148}
0x222c…2256 Head {h00=0x0026, h01=0x0050, text=» CBE BIN16,W0,CNNOKL M NOT ALLOWED«, t00=0x0015, t01=0x0168}
0x2256…2282 (22, 0, 398) Head {h00=0x0028, h01=0x0050, text=» IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C«, t00=0x0016, t01=0x0004}
0x2282…22ac Head {h00=0x0026, h01=0x0050, text=» CNT3,CNT2,CNT0,CNTCC,CNT2, 5-9 C«, t00=0x0016, t01=0x0030}
0x22ac…22d8 Head {h00=0x0028, h01=0x0050, text=» CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C «, t00=0x0016, t01=0x005a}
0x22d8…2304 Head {h00=0x0028, h01=0x0050, text=» CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C «, t00=0x0016, t01=0x0086}
0x2304…2330 Head {h00=0x0028, h01=0x0050, text=» CNT0,CNT0,CNT0,CNTL,CNT0, 20-24 C «, t00=0x0016, t01=0x00b2}
0x2330…2364 Head {h00=0x0030, h01=0x0050, text=» CNNOKL,CNNOKL,CNNOKL,CNNOKL,CNNOKL 25-29 C«, t00=0x0016, t01=0x00de}
0x2364…2376 Head {h00=0x000e, h01=0x0050, text=» CNTRP 30«, t00=0x0016, t01=0x0112}
0x2376…2388 Head {h00=0x000e, h01=0x0050, text=» B CNNOKL «, t00=0x0016, t01=0x0124}
0x2388…2396 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0136}
0x2396…23b6 Head {h00=0x001c, h01=0x0050, text=»CNTD DUPLSTRINGCONTROL«, t00=0x0016, t01=0x0144}
0x23b6…23e4 Head {h00=0x002a, h01=0x0050, text=» TBT BOOL8,CNNOKL JUMP IF DUPL PASSED «, t00=0x0016, t01=0x0164}
0x23e4…2408 (23, 0, 398) Head {h00=0x0020, h01=0x0050, text=» SET BOOL8 DUPL PASSED ONCE «, t00=0x0017, t01=0x0004}
0x2408…2432 Head {h00=0x0026, h01=0x0050, text=» CBE BIN16,W0,CNNOKL M NOT ALLOWED«, t00=0x0017, t01=0x0028}
0x2432…2462 Head {h00=0x002c, h01=0x0050, text=» IB BIN16,CNNOK,CNNOK,CNNOK,CNNOK 1-4 C «, t00=0x0017, t01=0x0052}
0x2462…248c Head {h00=0x0026, h01=0x0050, text=» CNT0,CNNOK,CNNOK,CNT2,CNT2 5-9 C«, t00=0x0017, t01=0x0082}
0x248c…24aa Head {h00=0x001a, h01=0x0050, text=» CNT1,CNT3,CNT2 10-12«, t00=0x0017, t01=0x00ac}
0x24aa…24b8 Head {h00=0x000a, h01=0x0050, text=»CNNOKL«, t00=0x0017, t01=0x00ca}
0x24b8…24c8 Head {h00=0x000c, h01=0x0050, text=» B CNNOK«, t00=0x0017, t01=0x00d8}
0x24c8…24d6 Head {h00=0x000a, h01=0x0050, text=»CNTLL «, t00=0x0017, t01=0x00e8}
0x24d6…24e6 Head {h00=0x000c, h01=0x0050, text=» B CNTL «, t00=0x0017, t01=0x00f6}
0x24e6…24f4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x0106}
0x24f4…2512 Head {h00=0x001a, h01=0x0050, text=»CNTM M=MESSAGE SPLIT«, t00=0x0017, t01=0x0114}
0x2512…2552 Head {h00=0x003c, h01=0x0050, text=» CBNL DEBIN4,CHNUM(WIND),CNNOKL NOT OK IFNOT LESS ENDPOS«, t00=0x0017, t01=0x0132}
0x2552…2572 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x0017, t01=0x0172}
0x2572…25a2 (24, 0, 400) Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION«, t00=0x0018, t01=0x0004}
0x25a2…25d8 Head {h00=0x0032, h01=0x0050, text=» MATCH WSTRG,DEBIN3,W1,VALSTR,W23,W1 M'...' ? «, t00=0x0018, t01=0x0034}
0x25d8…25f4 Head {h00=0x0018, h01=0x0050, text=» BOK CNTL M'......' «, t00=0x0018, t01=0x006a}
0x25f4…2612 Head {h00=0x001a, h01=0x0050, text=» SUB DEBIN4,W1 ADJUST «, t00=0x0018, t01=0x0086}
0x2612…2626 Head {h00=0x0010, h01=0x0050, text=» B CNT2 M99 «, t00=0x0018, t01=0x00a4}
0x2626…2634 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00b8}
0x2634…2658 Head {h00=0x0020, h01=0x0050, text=»CNTCC CONDITIONAL GEN/ACC «, t00=0x0018, t01=0x00c6}
0x2658…267a Head {h00=0x001e, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POD0S «, t00=0x0018, t01=0x00ea}
0x267a…26b4 Head {h00=0x0036, h01=0x0050, text=» CBE DEBIN4,CHNUM(WIND),CNNOKL NOT OK IF EOL-FOUND«, t00=0x0018, t01=0x010c}
0x26b4…26cc Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W29«, t00=0x0018, t01=0x0146}
0x26cc…270c Head {h00=0x003c, h01=0x0050, text=» MATCH VALSTR,DEBIN2,W1,WSTRG,DEBIN4,W1 CHECK IF ( CHAR «, t00=0x0018, t01=0x015e}
0x270c…272e Head {h00=0x001e, h01=0x0050, text=» BOK CNTLP LEFT PARENTESIS«, t00=0x0019, t01=0x000e}
0x272e…2764 Head {h00=0x0032, h01=0x0050, text=» CBE WIND,W2,CNNOKL G OR A NOT ALLOWED IN GEN «, t00=0x0019, t01=0x0030}
0x2764…2790 Head {h00=0x0028, h01=0x0050, text=» SUB DEBIN4,W1 ADJUST FOR ORDIN ACC «, t00=0x0019, t01=0x0066}
0x2790…27a0 Head {h00=0x000c, h01=0x0050, text=» B CNT2 «, t00=0x0019, t01=0x0092}
0x27a0…27aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a2}
0x27aa…27b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ac}
0x27b4…27be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b6}
0x27be…27de Head {h00=0x001c, h01=0x0050, text=»CNTLP LEFT PARENTHESIS«, t00=0x0019, t01=0x00c0}
0x27de…2806 Head {h00=0x0024, h01=0x0050, text=» SET BOOL4 T=COND GEN/ACC FOUND «, t00=0x0019, t01=0x00e0}
0x2806…281a Head {h00=0x0010, h01=0x0050, text=» BNZ CNNOKL «, t00=0x0019, t01=0x0108}
0x281a…282a Head {h00=0x000c, h01=0x0050, text=» B CNT0 «, t00=0x0019, t01=0x011c}
0x282a…2834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x012c}
0x2834…283e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0136}
0x283e…2848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0140}
0x2848…286a Head {h00=0x001e, h01=0x0050, text=»CNTRP RIGHT PARENTHESIS «, t00=0x0019, t01=0x014a}
0x286a…289a Head {h00=0x002c, h01=0x0050, text=» CLEAR BOOL4 F=END OF COND GEN/ACC FOUND«, t00=0x0019, t01=0x016c}
0x289a…28ac Head {h00=0x000e, h01=0x0050, text=» BNZ CNT0 «, t00=0x001a, t01=0x000c}
0x28ac…28be Head {h00=0x000e, h01=0x0050, text=» B CNNOKL «, t00=0x001a, t01=0x001e}
0x28be…28cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0030}
0x28cc…28d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x003e}
0x28d6…28f6 Head {h00=0x001c, h01=0x0050, text=»* CNT0 NO CONTROL «, t00=0x001a, t01=0x0048}
0x28f6…2900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0068}
0x2900…290c Head {h00=0x0008, h01=0x0050, text=»CNT0«, t00=0x001a, t01=0x0072}
0x290c…292c Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x001a, t01=0x007e}
0x292c…296e Head {h00=0x003e, h01=0x0050, text=» CBE DEBIN4,CHNUM(WIND),CNTOKLB JUMP IF END OF LINE FOUND «, t00=0x001a, t01=0x009e}
0x296e…2984 Head {h00=0x0012, h01=0x0050, text=» B CNT00 GO ON«, t00=0x001a, t01=0x00e0}
0x2984…2994 Head {h00=0x000c, h01=0x0050, text=»CNTOKLB «, t00=0x001a, t01=0x00f6}
0x2994…29b0 Head {h00=0x0018, h01=0x0050, text=» B CNTOK LONG BRANCH«, t00=0x001a, t01=0x0106}
0x29b0…29ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0122}
0x29ba…29de Head {h00=0x0020, h01=0x0050, text=»* CNT1 CONTROL 1 BYTE «, t00=0x001a, t01=0x012c}
0x29de…29e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0150}
0x29e8…29f4 Head {h00=0x0008, h01=0x0050, text=»CNT1«, t00=0x001a, t01=0x015a}
0x29f4…2a28 Head {h00=0x0030, h01=0x0050, text=» PERF DIGCHK,WSTRG,CHNUM,WIND,W1 DIGIT CHECK«, t00=0x001a, t01=0x0166}
0x2a28…2a4a Head {h00=0x001e, h01=0x0050, text=» BNOK CNNOK JUMP IF NOT OK«, t00=0x001b, t01=0x000a}
0x2a4a…2a6e Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,DEBIN2,USEV(W1)«, t00=0x001b, t01=0x002c}
0x2a6e…2a8e Head {h00=0x001c, h01=0x0050, text=» BNZ CNNOK OUT OF RANGE «, t00=0x001b, t01=0x0050}
0x2a8e…2aa4 Head {h00=0x0012, h01=0x0050, text=» B CNT0 GO ON «, t00=0x001b, t01=0x0070}
0x2aa4…2ab2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0086}
0x2ab2…2abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0094}
0x2abc…2ae4 Head {h00=0x0024, h01=0x0050, text=»* CNT2 CONTROL OF 2 BYTES «, t00=0x001b, t01=0x009e}
0x2ae4…2b14 Head {h00=0x002c, h01=0x0050, text=»* -M,-L,-A,-S,-T,-C «, t00=0x001b, t01=0x00c6}
0x2b14…2b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f6}
0x2b1e…2b2a Head {h00=0x0008, h01=0x0050, text=»CNT2«, t00=0x001b, t01=0x0100}
0x2b2a…2b5e Head {h00=0x0030, h01=0x0050, text=» PERF DIGCHK,WSTRG,CHNUM,WIND,W2 DIGIT CHECK«, t00=0x001b, t01=0x010c}
0x2b5e…2b80 Head {h00=0x001e, h01=0x0050, text=» BNOK CNNOK JUMP IF NOT OK«, t00=0x001b, t01=0x0140}
0x2b80…2ba0 Head {h00=0x001c, h01=0x0050, text=» CBE BIN16,W8,CNT2B A 10«, t00=0x001b, t01=0x0162}
0x2ba0…2bc0 Head {h00=0x001c, h01=0x0050, text=» CBE BIN16,W9,CNT2C S 10«, t00=0x001b, t01=0x0182}
0x2bc0…2be2 Head {h00=0x001e, h01=0x0050, text=» CBE BIN16,W12,CNT2E T -- «, t00=0x001c, t01=0x0012}
0x2be2…2bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0034}
0x2bec…2c0a Head {h00=0x001a, h01=0x0050, text=»* M,L,C,F+,G+,D+«, t00=0x001c, t01=0x003e}
0x2c0a…2c14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005c}
0x2c14…2c3c Head {h00=0x0024, h01=0x0050, text=» CBL DEBIN2,W0,CNNOK <00 NOT OK «, t00=0x001c, t01=0x0066}
0x2c3c…2c68 Head {h00=0x0028, h01=0x0050, text=» CBG DEBIN2,=W'99',CNNOK >99 NOT OK «, t00=0x001c, t01=0x008e}
0x2c68…2c78 Head {h00=0x000c, h01=0x0050, text=» B CNT2F«, t00=0x001c, t01=0x00ba}
0x2c78…2c82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ca}
0x2c82…2c94 Head {h00=0x000e, h01=0x0050, text=»* A «, t00=0x001c, t01=0x00d4}
0x2c94…2c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e6}
0x2c9e…2cac Head {h00=0x000a, h01=0x0050, text=»CNT2B «, t00=0x001c, t01=0x00f0}
0x2cac…2cd0 Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,DEBIN2,ACK(W1) «, t00=0x001c, t01=0x00fe}
0x2cd0…2cf0 Head {h00=0x001c, h01=0x0050, text=» BNZ CNNOK OUT OF RANGE «, t00=0x001c, t01=0x0122}
0x2cf0…2d00 Head {h00=0x000c, h01=0x0050, text=» B CNT2F«, t00=0x001c, t01=0x0142}
0x2d00…2d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0152}
0x2d0a…2d1c Head {h00=0x000e, h01=0x0050, text=»* S «, t00=0x001c, t01=0x015c}
0x2d1c…2d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x016e}
0x2d26…2d34 Head {h00=0x000a, h01=0x0050, text=»CNT2C «, t00=0x001c, t01=0x0178}
0x2d34…2d58 Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,DEBIN2,SYSV(W1)«, t00=0x001c, t01=0x0186}
0x2d58…2d78 Head {h00=0x001c, h01=0x0050, text=» BNZ CNNOK OUT OF RANGE «, t00=0x001d, t01=0x001a}
0x2d78…2d88 Head {h00=0x000c, h01=0x0050, text=» B CNT2F«, t00=0x001d, t01=0x003a}
0x2d88…2d96 Head {h00=0x000a, h01=0x0050, text=»CNT2E «, t00=0x001d, t01=0x004a}
0x2d96…2dbe Head {h00=0x0024, h01=0x0050, text=» CBL DEBIN2,W1,CNNOK <01 NOT OK «, t00=0x001d, t01=0x0058}
0x2dbe…2dea Head {h00=0x0028, h01=0x0050, text=» CBG DEBIN2,=W'94',CNNOK >94 NOT OK «, t00=0x001d, t01=0x0080}
0x2dea…2e1a Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 LOAD WORKPOSITIONER «, t00=0x001d, t01=0x00ac}
0x2e1a…2e46 Head {h00=0x0028, h01=0x0050, text=» ADD DEBIN3,W2 ADJUST WORKPOSITIONER«, t00=0x001d, t01=0x00dc}
0x2e46…2e7c Head {h00=0x0032, h01=0x0050, text=» CBG DEBIN3,CHNUM(WIND),CNT0 JUMP IF OVERFLOW «, t00=0x001d, t01=0x0108}
0x2e7c…2eb6 Head {h00=0x0036, h01=0x0050, text=» MATCH WSTRG,DEBIN3,W1,VALSTR,W18,W1 NEXT POS : ? «, t00=0x001d, t01=0x013e}
0x2eb6…2eca Head {h00=0x0010, h01=0x0050, text=» BNOK CNT2F «, t00=0x001d, t01=0x0178}
0x2eca…2ef6 Head {h00=0x0028, h01=0x0050, text=» ADD DEBIN4,W2 ADJUST POINTER IF OK «, t00=0x001d, t01=0x018c}
0x2ef6…2f28 Head {h00=0x002e, h01=0x0050, text=» MOVE BIN16,W6 SIMULATE L TO CHECK VS-IND «, t00=0x001e, t01=0x0028}
0x2f28…2f38 Head {h00=0x000c, h01=0x0050, text=» B CNT2 «, t00=0x001e, t01=0x005a}
0x2f38…2f46 Head {h00=0x000a, h01=0x0050, text=»CNT2F «, t00=0x001e, t01=0x006a}
0x2f46…2f66 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x001e, t01=0x0078}
0x2f66…2f7c Head {h00=0x0012, h01=0x0050, text=» B CNT0 GO ON«, t00=0x001e, t01=0x0098}
0x2f7c…2f8a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00ae}
0x2f8a…2f94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00bc}
0x2f94…2fc4 Head {h00=0x002c, h01=0x0050, text=»* CNT3 CONTROL OF 3 BYTES -D,-F «, t00=0x001e, t01=0x00c6}
0x2fc4…2fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f6}
0x2fce…2fda Head {h00=0x0008, h01=0x0050, text=»CNT3«, t00=0x001e, t01=0x0100}
0x2fda…300e Head {h00=0x0030, h01=0x0050, text=» TBT BOOL6,CNNOK -D,-F,-G NOT OK IN BALANCE «, t00=0x001e, t01=0x010c}
0x300e…303e Head {h00=0x002c, h01=0x0050, text=» ADD DEBIN4,W1 ADJUST FOR RELATIVE SIGN «, t00=0x001e, t01=0x0140}
0x303e…306a Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN3,W15 LOAD WORKPOSITIONER«, t00=0x001e, t01=0x0170}
0x306a…30aa Head {h00=0x003c, h01=0x0050, text=» MATCH VALSTR,DEBIN3,W2,WSTRG,DEBIN4,W1 RELATIVE SIGN ? «, t00=0x001f, t01=0x000c}
0x30aa…30d0 Head {h00=0x0022, h01=0x0050, text=» BNOK CNT3Z NO REL SIGN FOUND «, t00=0x001f, t01=0x004c}
0x30d0…3102 Head {h00=0x002e, h01=0x0050, text=» CBNE WIND,W4,CNT2 JUMP IF NOT DUPL-STRING«, t00=0x001f, t01=0x0072}
0x3102…3136 Head {h00=0x0030, h01=0x0050, text=» CBE DEBIN3,W15,CNNOK F+ NOT ALLOWED IN DUPL«, t00=0x001f, t01=0x00a4}
0x3136…315c Head {h00=0x0022, h01=0x0050, text=» B CNT2 CONTROL FOR 2CHARCTERS«, t00=0x001f, t01=0x00d8}
0x315c…316a Head {h00=0x000a, h01=0x0050, text=»CNT3Z «, t00=0x001f, t01=0x00fe}
0x316a…3198 Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN4,W1 ADJUST FOR DIGIT CHECK «, t00=0x001f, t01=0x010c}
0x3198…31cc Head {h00=0x0030, h01=0x0050, text=» PERF DIGCHK,WSTRG,CHNUM,WIND,W3 DIGIT CHECK«, t00=0x001f, t01=0x013a}
0x31cc…31e0 Head {h00=0x0010, h01=0x0050, text=» BNOK CNNOK «, t00=0x001f, t01=0x016e}
0x31e0…3208 Head {h00=0x0024, h01=0x0050, text=» CBL DEBIN2,W0,CNNOK < 0 NOT OK «, t00=0x001f, t01=0x0182}
0x3208…3236 Head {h00=0x002a, h01=0x0050, text=» CBG DEBIN2,=W'999',CNNOK > 999 NOT OK«, t00=0x0020, t01=0x001a}
0x3236…325e Head {h00=0x0024, h01=0x0050, text=» CBE BIN16,W5,CNT3A JUMP IF 'D' «, t00=0x0020, t01=0x0048}
0x325e…3282 Head {h00=0x0020, h01=0x0050, text=» B CNT3B JUMP IF 'F' OR 'G' «, t00=0x0020, t01=0x0070}
0x3282…3290 Head {h00=0x000a, h01=0x0050, text=»CNT3A «, t00=0x0020, t01=0x0094}
0x3290…32c2 Head {h00=0x002e, h01=0x0050, text=» CBNL BIN10,DEBIN2,CNT3B FXX NOT < DXX OK «, t00=0x0020, t01=0x00a2}
0x32c2…32e0 Head {h00=0x001a, h01=0x0050, text=» B CNNOK JUMP IF ERROR«, t00=0x0020, t01=0x00d4}
0x32e0…32ee Head {h00=0x000a, h01=0x0050, text=»CNT3B «, t00=0x0020, t01=0x00f2}
0x32ee…3304 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN4,W2«, t00=0x0020, t01=0x0100}
0x3304…331a Head {h00=0x0012, h01=0x0050, text=» B CNT0 GO ON «, t00=0x0020, t01=0x0116}
0x331a…3328 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x012c}
0x3328…3332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x013a}
0x3332…3356 Head {h00=0x0020, h01=0x0050, text=»* CNTL CONTROL LITERAL«, t00=0x0020, t01=0x0144}
0x3356…3360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0168}
0x3360…336c Head {h00=0x0008, h01=0x0050, text=»CNTL«, t00=0x0020, t01=0x0172}
0x336c…3382 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN4,W1«, t00=0x0020, t01=0x017e}
0x3382…33ba (33, 0, 400) Head {h00=0x0034, h01=0x0050, text=» CBNL DEBIN4,CHNUM(WIND),CNNOK JUMP, IF OFERFLOW«, t00=0x0021, t01=0x0004}
0x33ba…33e6 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS«, t00=0x0021, t01=0x003c}
0x33e6…3416 Head {h00=0x002c, h01=0x0050, text=» SUB DEBIN2,DEBIN4 NUMB OF CHRS TO MATCH«, t00=0x0021, t01=0x0068}
0x3416…3444 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH «, t00=0x0021, t01=0x0098}
0x3444…3482 Head {h00=0x003a, h01=0x0050, text=» MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,W23,W1 MATCH NEXT ' «, t00=0x0021, t01=0x00c6}
0x3482…3496 Head {h00=0x0010, h01=0x0050, text=» BNOK CNNOK «, t00=0x0021, t01=0x0104}
0x3496…34c4 Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN3,DEBIN4 =NUMB OF LIT-CHARS «, t00=0x0021, t01=0x0118}
0x34c4…34ec Head {h00=0x0024, h01=0x0050, text=» CBNG DEBIN3,W0,CNNOK < 1 NOT OK«, t00=0x0021, t01=0x0146}
0x34ec…3516 Head {h00=0x0026, h01=0x0050, text=» CBNL DEBIN3,W64,CNNOK >63 NOT OK «, t00=0x0021, t01=0x016e}
0x3516…3550 Head {h00=0x0036, h01=0x0050, text=» CBE BIN16,W26,CNTLFK JUMP IF COND FORM CHANGE (R)«, t00=0x0022, t01=0x0008}
0x3550…358a Head {h00=0x0036, h01=0x0050, text=» CBE BIN16,W27,CNTLFK JUMP IF COND FORM CHANGE (N)«, t00=0x0022, t01=0x0042}
0x358a…359c Head {h00=0x000e, h01=0x0050, text=» B CNTLOK «, t00=0x0022, t01=0x007c}
0x359c…35aa Head {h00=0x000a, h01=0x0050, text=»CNTLFK«, t00=0x0022, t01=0x008e}
0x35aa…35de Head {h00=0x0030, h01=0x0050, text=» CBG DEBIN3,W6,CNNOK FORMAT NAME > 6 NOT OK «, t00=0x0022, t01=0x009c}
0x35de…35ec Head {h00=0x000a, h01=0x0050, text=»CNTLOK«, t00=0x0022, t01=0x00d0}
0x35ec…3616 Head {h00=0x0026, h01=0x0050, text=» ADD DEBIN4,DEBIN3 ADJUST NEXT POS«, t00=0x0022, t01=0x00de}
0x3616…362c Head {h00=0x0012, h01=0x0050, text=» B CNT0 GO ON «, t00=0x0022, t01=0x0108}
0x362c…363a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x011e}
0x363a…3644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x012c}
0x3644…3674 Head {h00=0x002c, h01=0x0050, text=»* CNTF CONTROL FORMATNAME-LITERAL«, t00=0x0022, t01=0x0136}
0x3674…367e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0166}
0x367e…368a Head {h00=0x0008, h01=0x0050, text=»CNTF«, t00=0x0022, t01=0x0170}
0x368a…36b8 Head {h00=0x002a, h01=0x0050, text=» ADD DEBIN4,W1 ADJUST POINTER POSITION«, t00=0x0022, t01=0x017c}
0x36b8…36f0 Head {h00=0x0034, h01=0x0050, text=» CBNL DEBIN4,CHNUM(WIND),CNNOK JUMP IF OVERFLOW «, t00=0x0023, t01=0x001a}
0x36f0…3714 Head {h00=0x0020, h01=0x0050, text=» B CNTL JUMP LITERAL CONTROL«, t00=0x0023, t01=0x0052}
0x3714…3722 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0076}
0x3722…3730 Head {h00=0x000a, h01=0x0050, text=»CNNOK «, t00=0x0023, t01=0x0084}
0x3730…375c Head {h00=0x0028, h01=0x0050, text=» CBNE WIND,W4,CNNCR JUMP IF NOT DUPL«, t00=0x0023, t01=0x0092}
0x375c…3790 Head {h00=0x0030, h01=0x0050, text=» MOVE DEBINW1,DEBIN4 RESTORE ERROR-POSITION «, t00=0x0023, t01=0x00be}
0x3790…37c2 Head {h00=0x002e, h01=0x0050, text=» ADD DEBINW1,W1 ADJUST FOR POINTER IN LDES«, t00=0x0023, t01=0x00f2}
0x37c2…37da Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W6«, t00=0x0023, t01=0x0124}
0x37da…3806 Head {h00=0x0028, h01=0x0050, text=» PERF DERROR,DEKTAB4 'ILLEGAL VALUE'«, t00=0x0023, t01=0x013c}
0x3806…3814 Head {h00=0x000a, h01=0x0050, text=»CNNCR «, t00=0x0023, t01=0x0168}
0x3814…382e Head {h00=0x0016, h01=0x0050, text=» CMP W1,W0 SET CR «, t00=0x0023, t01=0x0176}
0x382e…383e Head {h00=0x000c, h01=0x0050, text=» B CNRT «, t00=0x0023, t01=0x0190}
0x383e…384c Head {h00=0x000a, h01=0x0050, text=»CNTOK «, t00=0x0024, t01=0x0010}
0x384c…388a Head {h00=0x003a, h01=0x0050, text=» TBT BOOL4,CNNOK NOT OK IF COND GEN/ACC NOT CONCLUDED «, t00=0x0024, t01=0x001e}
0x388a…38a6 Head {h00=0x0018, h01=0x0050, text=» CMP W1,W1 CLEAR CR «, t00=0x0024, t01=0x005c}
0x38a6…38b2 Head {h00=0x0008, h01=0x0050, text=»CNRT«, t00=0x0024, t01=0x0078}
0x38b2…38be Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0084}
0x38be…38cc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0024, t01=0x0090}
0x38cc…38da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x009e}
0x38da…38e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00ac}
0x38e4…392a Head {h00=0x0042, h01=0x0050, text=»* THIS PROCEDURE CHECKS IF RIGHT NUMBER OF REAL DIGITS «, t00=0x0024, t01=0x00b6}
0x392a…396e Head {h00=0x0040, h01=0x0050, text=»* HAVE BEEN KEYED IN FOR THE CORRESPONDING FUNCTION «, t00=0x0024, t01=0x00fc}
0x396e…399c Head {h00=0x002a, h01=0x0050, text=»* IN VAL-, GEN- AND ACC-STRING«, t00=0x0024, t01=0x0140}
0x399c…39a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x016e}
0x39a6…39f6 Head {h00=0x004c, h01=0x0050, text=»* INPUT PARAMETERS (FORMAL) : WSTRG = WORKSTRING CONTAINS DIGIT«, t00=0x0024, t01=0x0178}
0x39f6…3a46 Head {h00=0x004c, h01=0x0050, text=»* CHNUM = ENDPOSITION IN WSTRG FOR «, t00=0x0025, t01=0x0038}
0x3a46…3a8c Head {h00=0x0042, h01=0x0050, text=»* WIND = INDEX TO CHNUM «, t00=0x0025, t01=0x0088}
0x3a8c…3adc Head {h00=0x004c, h01=0x0050, text=»* NUMB = NUMBER OF DIGITS TO CHECK«, t00=0x0025, t01=0x00ce}
0x3adc…3ae6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x011e}
0x3ae6…3b36 Head {h00=0x004c, h01=0x0050, text=»* INPUT PARAMETERS : DEBIN4 = CURRENT POSITION POINTER «, t00=0x0025, t01=0x0128}
0x3b36…3b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0178}
0x3b40…3b7e Head {h00=0x003a, h01=0x0050, text=»* USED PARAMETERS : DEBIN3 =WORKAREA«, t00=0x0025, t01=0x0182}
0x3b7e…3bbe Head {h00=0x003c, h01=0x0050, text=»* STR6A = WORKAREA «, t00=0x0026, t01=0x0030}
0x3bbe…3bfe Head {h00=0x003c, h01=0x0050, text=»* BCD13A = WORKAREA «, t00=0x0026, t01=0x0070}
0x3bfe…3c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b0}
0x3c08…3c58 Head {h00=0x004c, h01=0x0050, text=»* OUTPUT PARAMETERS : DEBIN2 = CHECKED DIGITS BINARY STO«, t00=0x0026, t01=0x00ba}
0x3c58…3ca8 Head {h00=0x004c, h01=0x0050, text=»* DEBIN4 = POSITION POINTER ADJUSTED«, t00=0x0026, t01=0x010a}
0x3ca8…3ce2 Head {h00=0x0036, h01=0x0050, text=»* CR = 0 = OK «, t00=0x0026, t01=0x015a}
0x3ce2…3d20 (39, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* CR/= 0 = NOT OK «, t00=0x0027, t01=0x0004}
0x3d20…3d70 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0027, t01=0x0042}
0x3d70…3d9c Head {h00=0x0028, h01=0x0050, text=»DIGCHK PROC WSTRG,CHNUM(),WIND,NUMB «, t00=0x0027, t01=0x0092}
0x3d9c…3dca Head {h00=0x002a, h01=0x0050, text=» ADD DEBIN4,W1 ADJUST POINTER POSITION«, t00=0x0027, t01=0x00be}
0x3dca…3dfa Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 SAVE POINTER ADRESS «, t00=0x0027, t01=0x00ec}
0x3dfa…3e2a Head {h00=0x002c, h01=0x0050, text=» ADD DEBIN3,NUMB ADD NUMB OF CHARACTERS «, t00=0x0027, t01=0x011c}
0x3e2a…3e62 Head {h00=0x0034, h01=0x0050, text=» CBG DEBIN3,CHNUM(WIND),DIGC99 JUMP IF OVERFLOW «, t00=0x0027, t01=0x014c}
0x3e62…3e90 Head {h00=0x002a, h01=0x0050, text=» MOVE STR6A,HEX00 INITIALIZE:=00000000«, t00=0x0027, t01=0x0184}
0x3e90…3eba Head {h00=0x0026, h01=0x0050, text=» XCOPY STR6A,W0,NUMB,WSTRG,DEBIN4 «, t00=0x0028, t01=0x0022}
0x3eba…3ede Head {h00=0x0020, h01=0x0050, text=» MOVE BCD13A,STR6A STR=>BCD «, t00=0x0028, t01=0x004c}
0x3ede…3ef6 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN3,W0 «, t00=0x0028, t01=0x0070}
0x3ef6…3f18 Head {h00=0x001e, h01=0x0050, text=» EDSUB STR6A,DEBIN3,FSCONV«, t00=0x0028, t01=0x0088}
0x3f18…3f44 Head {h00=0x0028, h01=0x0050, text=» CMP DEBIN3,NUMB CHECK IF EQUAL = OK«, t00=0x0028, t01=0x00aa}
0x3f44…3f68 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBIN2,BCD13A BCD=>BIN«, t00=0x0028, t01=0x00d6}
0x3f68…3f76 Head {h00=0x000a, h01=0x0050, text=»DIGC99«, t00=0x0028, t01=0x00fa}
0x3f76…3f82 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x0108}
0x3f82…3f90 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x0114}
0x3f90…3f9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0122}
0x3f9e…3fb2 Head {h00=0x0010, h01=0x0050, text=»FSCONV FRMT «, t00=0x0028, t01=0x0130}
0x3fb2…3fd0 Head {h00=0x001a, h01=0x0050, text=» FMEL 'AAAAAA',BCD13A «, t00=0x0028, t01=0x0144}
0x3fd0…3fde Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0028, t01=0x0162}
0x3fde…3fea Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0028, t01=0x0170}
0x3fea…3fee Head {h00=0x4004, h01=0x0000}
0x3fee…3ff2 00 28 01 7c ┆ ( |┆
0x3ff2…3ffa (41, 1, 8) 20 04 00 00 00 29 00 04 ┆ ) ┆
0x3ffa…400e (42, 2, 20) 00 08 00 48 4e 4f 44 20 00 ca 00 04 40 04 00 00 00 ca 00 10 ┆ HNOD @ ┆
0x400e…405e (43, 0, 398) 00 1a 00 18 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 50 3a 53 30 32 33 20 00 cb 00 04 00 2a 00 26 03 12 00 00 00 0f 00 00 49 69 08 00 83 22 00 91 21 57 06 00 83 21 00 91 20 00 80 20 30 08 80 00 82 20 00 90 83 80 00 cb 00 22 00 2a 00 26 ┆ IDENT P:S023 * & Ii " !W ! 0 " * &┆
0x405e…40ae 03 12 00 00 00 2d 00 00 01 22 83 82 9d 50 0f 80 02 13 10 91 21 2c 04 91 21 00 bb 20 3f 01 49 6a 03 00 7b 83 00 bb 00 cb 00 50 00 2a 00 26 03 12 00 00 00 4b 00 00 83 6a 19 bb 31 21 90 21 6a 19 bb 32 21 91 21 48 6a 12 01 9d 31 6a 9d 21 26 6d ┆ - " P !, ! ? Ij { P * & K j 1! !j 2! !Hj 1j !&m┆
0x40ae…40fe 20 80 01 24 00 cb 00 7e 00 2a 00 26 03 12 00 00 00 69 00 00 bb 8f 9d 00 72 22 49 69 27 00 1b 83 55 00 bc 21 00 81 28 00 82 20 6a 82 21 21 19 bb 28 00 00 cb 00 ac 00 2a 00 26 03 12 00 00 00 87 00 00 8c 20 00 8d 29 00 78 2e 00 b8 2e 4b 04 b8 ┆ $ ~ * & i r"Ii' U ! ( j !! ( * & ) x. .K ┆
0x40fe…414e 2e 2a 57 09 00 82 bb 00 bc 20 00 78 28 80 03 48 00 cb 00 da 00 2a 00 26 03 12 00 00 00 a5 00 00 6a 03 00 9d 6d 49 6e 07 30 09 02 21 20 57 05 30 09 03 21 20 48 6a 07 00 6d 9d 00 b0 21 37 00 cb 01 08 00 2a 00 26 03 12 00 00 00 c3 00 00 00 77 ┆.*W x( H * & j mIn 0 ! W 0 ! Hj m !7 * & w┆
0x414e…419c 21 00 79 20 00 b0 22 21 80 04 00 b5 21 55 00 b0 27 55 00 b4 55 00 e9 26 20 49 69 04 00 cb 01 36 00 2a 00 26 03 12 00 00 00 e1 00 00 00 b0 28 8d 80 05 00 90 20 00 92 20 49 6e 07 30 0c 03 21 20 57 0e 30 0c 00 21 20 40 6e 20 00 cb 01 64 ┆! y "! !U 'U U & Ii 6 * & ( In 0 ! W 0 ! @n d┆
0x419c…41ec (44, 0, 400) 00 2a 00 26 03 12 00 00 00 ff 00 00 92 21 03 49 6a 13 30 23 93 3a 02 30 24 00 93 92 50 38 3a 02 00 93 92 5f 0e 30 09 01 26 26 00 cc 00 04 00 2a 00 26 03 12 00 00 01 1d 00 00 00 64 75 00 84 20 80 06 64 20 91 21 0a 30 0c 01 23 23 00 93 23 5f ┆ * & ! Ij 0# : 0$ P8: _ 0 && * & du d ! 0 ## #_┆
0x41ec…423c 2a 01 93 2f 80 02 19 10 00 cc 00 32 00 2a 00 26 03 12 00 00 01 3b 00 00 91 21 0a 04 91 21 28 91 25 c6 41 8e 5f 1a 30 26 49 8e 0c 49 8c 09 49 8b 06 49 8a 03 49 6a 00 cc 00 60 00 2a 00 26 03 12 00 00 01 59 00 00 26 20 93 23 0e 20 93 78 14 30 ┆* / 2 * & ; ! !( % A _ 0&I I I I Ij ` * & Y & # x 0┆
0x423c…428c 2a 95 29 2b 90 91 93 57 32 30 2a 95 2a 2b 90 91 93 57 28 30 00 cc 00 8e 00 2a 00 26 03 12 00 00 01 77 00 00 2a 95 2c 2c 90 91 93 57 1e 00 92 21 00 8f 93 20 8f 24 0b 30 27 91 99 2f 92 91 54 af 57 09 00 cc 00 bc 00 2a 00 26 03 12 00 00 01 95 ┆* )+ W20* *+ W(0 * & w * ,, W ! $ 0' / T W * & ┆
0x428c…42dc 00 00 30 27 91 99 2d 92 91 54 a4 80 07 21 91 32 92 03 03 04 05 57 05 00 91 22 3f 06 49 8e 0c 49 00 cc 00 ea 00 2a 00 26 03 12 00 00 01 b3 00 00 8c 09 49 8b 06 49 8a 03 49 6a 4f 32 91 10 07 08 09 06 06 09 09 09 09 09 09 09 09 09 0a 0b 00 cc ┆ 0' - T ! 2 W "? I I * & I I IjO2 ┆
0x42dc…432c 01 18 00 2a 00 26 03 12 00 00 01 d1 00 00 20 90 20 1c 00 93 21 30 29 00 92 20 92 20 2f 80 08 32 92 04 0c 0d 0e 0b 57 24 30 2e 01 95 00 cc 01 46 00 2a 00 26 03 12 00 00 01 ef 00 00 41 6d 36 91 11 19 06 19 06 06 19 1d 21 06 a2 06 06 62 43 06 ┆ * & !0) / 2 W$0. F * & Am6 ! bC ┆