|
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: 17530 (0x447a)
Notes: pts_type(SC)
Names: »DEVGAC.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DEVGAC.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DEVGAC.SC«
IDENT DEVGAC REL 10.0 80-04-11
80-04-14/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,CNTLP, 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,CNTLP 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),CNTOK JUMP IF END OF LINE FOUND
B CNT00 GO ON
*
* 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
*
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
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-04-14/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,CNTLP, 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,CNTLP 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…296c Head {h00=0x003c, h01=0x0050, text=» CBE DEBIN4,CHNUM(WIND),CNTOK JUMP IF END OF LINE FOUND «, t00=0x001a, t01=0x009e}
0x296c…2982 Head {h00=0x0012, h01=0x0050, text=» B CNT00 GO ON«, t00=0x001a, t01=0x00de}
0x2982…298c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00f4}
0x298c…29b0 Head {h00=0x0020, h01=0x0050, text=»* CNT1 CONTROL 1 BYTE «, t00=0x001a, t01=0x00fe}
0x29b0…29ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0122}
0x29ba…29c6 Head {h00=0x0008, h01=0x0050, text=»CNT1«, t00=0x001a, t01=0x012c}
0x29c6…29fa Head {h00=0x0030, h01=0x0050, text=» PERF DIGCHK,WSTRG,CHNUM,WIND,W1 DIGIT CHECK«, t00=0x001a, t01=0x0138}
0x29fa…2a1c Head {h00=0x001e, h01=0x0050, text=» BNOK CNNOK JUMP IF NOT OK«, t00=0x001a, t01=0x016c}
0x2a1c…2a40 Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,DEBIN2,USEV(W1)«, t00=0x001a, t01=0x018e}
0x2a40…2a60 Head {h00=0x001c, h01=0x0050, text=» BNZ CNNOK OUT OF RANGE «, t00=0x001b, t01=0x0022}
0x2a60…2a76 Head {h00=0x0012, h01=0x0050, text=» B CNT0 GO ON «, t00=0x001b, t01=0x0042}
0x2a76…2a84 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0058}
0x2a84…2a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0066}
0x2a8e…2ab6 Head {h00=0x0024, h01=0x0050, text=»* CNT2 CONTROL OF 2 BYTES «, t00=0x001b, t01=0x0070}
0x2ab6…2ae6 Head {h00=0x002c, h01=0x0050, text=»* -M,-L,-A,-S,-T,-C «, t00=0x001b, t01=0x0098}
0x2ae6…2af0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c8}
0x2af0…2afc Head {h00=0x0008, h01=0x0050, text=»CNT2«, t00=0x001b, t01=0x00d2}
0x2afc…2b30 Head {h00=0x0030, h01=0x0050, text=» PERF DIGCHK,WSTRG,CHNUM,WIND,W2 DIGIT CHECK«, t00=0x001b, t01=0x00de}
0x2b30…2b52 Head {h00=0x001e, h01=0x0050, text=» BNOK CNNOK JUMP IF NOT OK«, t00=0x001b, t01=0x0112}
0x2b52…2b72 Head {h00=0x001c, h01=0x0050, text=» CBE BIN16,W8,CNT2B A 10«, t00=0x001b, t01=0x0134}
0x2b72…2b92 Head {h00=0x001c, h01=0x0050, text=» CBE BIN16,W9,CNT2C S 10«, t00=0x001b, t01=0x0154}
0x2b92…2bb4 Head {h00=0x001e, h01=0x0050, text=» CBE BIN16,W12,CNT2E T -- «, t00=0x001b, t01=0x0174}
0x2bb4…2bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0008}
0x2bbe…2bd4 Head {h00=0x0012, h01=0x0050, text=»* M,L,C «, t00=0x001c, t01=0x0012}
0x2bd4…2bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0028}
0x2bde…2c06 Head {h00=0x0024, h01=0x0050, text=» CBL DEBIN2,W0,CNNOK <00 NOT OK «, t00=0x001c, t01=0x0032}
0x2c06…2c32 Head {h00=0x0028, h01=0x0050, text=» CBG DEBIN2,=W'99',CNNOK >99 NOT OK «, t00=0x001c, t01=0x005a}
0x2c32…2c42 Head {h00=0x000c, h01=0x0050, text=» B CNT2F«, t00=0x001c, t01=0x0086}
0x2c42…2c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0096}
0x2c4c…2c5e Head {h00=0x000e, h01=0x0050, text=»* A «, t00=0x001c, t01=0x00a0}
0x2c5e…2c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b2}
0x2c68…2c76 Head {h00=0x000a, h01=0x0050, text=»CNT2B «, t00=0x001c, t01=0x00bc}
0x2c76…2c9a Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,DEBIN2,ACK(W1) «, t00=0x001c, t01=0x00ca}
0x2c9a…2cba Head {h00=0x001c, h01=0x0050, text=» BNZ CNNOK OUT OF RANGE «, t00=0x001c, t01=0x00ee}
0x2cba…2cca Head {h00=0x000c, h01=0x0050, text=» B CNT2F«, t00=0x001c, t01=0x010e}
0x2cca…2cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x011e}
0x2cd4…2ce6 Head {h00=0x000e, h01=0x0050, text=»* S «, t00=0x001c, t01=0x0128}
0x2ce6…2cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x013a}
0x2cf0…2cfe Head {h00=0x000a, h01=0x0050, text=»CNT2C «, t00=0x001c, t01=0x0144}
0x2cfe…2d22 Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,DEBIN2,SYSV(W1)«, t00=0x001c, t01=0x0152}
0x2d22…2d42 Head {h00=0x001c, h01=0x0050, text=» BNZ CNNOK OUT OF RANGE «, t00=0x001c, t01=0x0176}
0x2d42…2d52 Head {h00=0x000c, h01=0x0050, text=» B CNT2F«, t00=0x001d, t01=0x0008}
0x2d52…2d60 Head {h00=0x000a, h01=0x0050, text=»CNT2E «, t00=0x001d, t01=0x0018}
0x2d60…2d88 Head {h00=0x0024, h01=0x0050, text=» CBL DEBIN2,W1,CNNOK <01 NOT OK «, t00=0x001d, t01=0x0026}
0x2d88…2db4 Head {h00=0x0028, h01=0x0050, text=» CBG DEBIN2,=W'94',CNNOK >94 NOT OK «, t00=0x001d, t01=0x004e}
0x2db4…2de4 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 LOAD WORKPOSITIONER «, t00=0x001d, t01=0x007a}
0x2de4…2e10 Head {h00=0x0028, h01=0x0050, text=» ADD DEBIN3,W2 ADJUST WORKPOSITIONER«, t00=0x001d, t01=0x00aa}
0x2e10…2e46 Head {h00=0x0032, h01=0x0050, text=» CBG DEBIN3,CHNUM(WIND),CNT0 JUMP IF OVERFLOW «, t00=0x001d, t01=0x00d6}
0x2e46…2e80 Head {h00=0x0036, h01=0x0050, text=» MATCH WSTRG,DEBIN3,W1,VALSTR,W18,W1 NEXT POS : ? «, t00=0x001d, t01=0x010c}
0x2e80…2e94 Head {h00=0x0010, h01=0x0050, text=» BNOK CNT2F «, t00=0x001d, t01=0x0146}
0x2e94…2ec0 Head {h00=0x0028, h01=0x0050, text=» ADD DEBIN4,W2 ADJUST POINTER IF OK «, t00=0x001d, t01=0x015a}
0x2ec0…2ef2 Head {h00=0x002e, h01=0x0050, text=» MOVE BIN16,W6 SIMULATE L TO CHECK VS-IND «, t00=0x001d, t01=0x0186}
0x2ef2…2f02 Head {h00=0x000c, h01=0x0050, text=» B CNT2 «, t00=0x001e, t01=0x0028}
0x2f02…2f10 Head {h00=0x000a, h01=0x0050, text=»CNT2F «, t00=0x001e, t01=0x0038}
0x2f10…2f30 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x001e, t01=0x0046}
0x2f30…2f46 Head {h00=0x0012, h01=0x0050, text=» B CNT0 GO ON«, t00=0x001e, t01=0x0066}
0x2f46…2f54 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x007c}
0x2f54…2f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x008a}
0x2f5e…2f8e Head {h00=0x002c, h01=0x0050, text=»* CNT3 CONTROL OF 3 BYTES -D,-F «, t00=0x001e, t01=0x0094}
0x2f8e…2f98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00c4}
0x2f98…2fa4 Head {h00=0x0008, h01=0x0050, text=»CNT3«, t00=0x001e, t01=0x00ce}
0x2fa4…2fd8 Head {h00=0x0030, h01=0x0050, text=» TBT BOOL6,CNNOK -D,-F,-G NOT OK IN BALANCE «, t00=0x001e, t01=0x00da}
0x2fd8…300c Head {h00=0x0030, h01=0x0050, text=» PERF DIGCHK,WSTRG,CHNUM,WIND,W3 DIGIT CHECK«, t00=0x001e, t01=0x010e}
0x300c…3020 Head {h00=0x0010, h01=0x0050, text=» BNOK CNNOK «, t00=0x001e, t01=0x0142}
0x3020…3048 Head {h00=0x0024, h01=0x0050, text=» CBL DEBIN2,W0,CNNOK < 0 NOT OK «, t00=0x001e, t01=0x0156}
0x3048…3076 Head {h00=0x002a, h01=0x0050, text=» CBG DEBIN2,=W'999',CNNOK > 999 NOT OK«, t00=0x001e, t01=0x017e}
0x3076…309e Head {h00=0x0024, h01=0x0050, text=» CBE BIN16,W5,CNT3A JUMP IF 'D' «, t00=0x001f, t01=0x001c}
0x309e…30c2 Head {h00=0x0020, h01=0x0050, text=» B CNT3B JUMP IF 'F' OR 'G' «, t00=0x001f, t01=0x0044}
0x30c2…30d0 Head {h00=0x000a, h01=0x0050, text=»CNT3A «, t00=0x001f, t01=0x0068}
0x30d0…3102 Head {h00=0x002e, h01=0x0050, text=» CBNL BIN10,DEBIN2,CNT3B FXX NOT < DXX OK «, t00=0x001f, t01=0x0076}
0x3102…3120 Head {h00=0x001a, h01=0x0050, text=» B CNNOK JUMP IF ERROR«, t00=0x001f, t01=0x00a8}
0x3120…312e Head {h00=0x000a, h01=0x0050, text=»CNT3B «, t00=0x001f, t01=0x00c6}
0x312e…3144 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN4,W2«, t00=0x001f, t01=0x00d4}
0x3144…315a Head {h00=0x0012, h01=0x0050, text=» B CNT0 GO ON «, t00=0x001f, t01=0x00ea}
0x315a…3168 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0100}
0x3168…3172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010e}
0x3172…3196 Head {h00=0x0020, h01=0x0050, text=»* CNTL CONTROL LITERAL«, t00=0x001f, t01=0x0118}
0x3196…31a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013c}
0x31a0…31ac Head {h00=0x0008, h01=0x0050, text=»CNTL«, t00=0x001f, t01=0x0146}
0x31ac…31c2 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN4,W1«, t00=0x001f, t01=0x0152}
0x31c2…31fa Head {h00=0x0034, h01=0x0050, text=» CBNL DEBIN4,CHNUM(WIND),CNNOK JUMP, IF OFERFLOW«, t00=0x001f, t01=0x0168}
0x31fa…3226 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS«, t00=0x0020, t01=0x0010}
0x3226…3256 Head {h00=0x002c, h01=0x0050, text=» SUB DEBIN2,DEBIN4 NUMB OF CHRS TO MATCH«, t00=0x0020, t01=0x003c}
0x3256…3284 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH «, t00=0x0020, t01=0x006c}
0x3284…32c2 Head {h00=0x003a, h01=0x0050, text=» MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,W23,W1 MATCH NEXT ' «, t00=0x0020, t01=0x009a}
0x32c2…32d6 Head {h00=0x0010, h01=0x0050, text=» BNOK CNNOK «, t00=0x0020, t01=0x00d8}
0x32d6…3304 Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN3,DEBIN4 =NUMB OF LIT-CHARS «, t00=0x0020, t01=0x00ec}
0x3304…332c Head {h00=0x0024, h01=0x0050, text=» CBNG DEBIN3,W0,CNNOK < 1 NOT OK«, t00=0x0020, t01=0x011a}
0x332c…3356 Head {h00=0x0026, h01=0x0050, text=» CBNL DEBIN3,W64,CNNOK >63 NOT OK «, t00=0x0020, t01=0x0142}
0x3356…3390 Head {h00=0x0036, h01=0x0050, text=» CBE BIN16,W26,CNTLFK JUMP IF COND FORM CHANGE (R)«, t00=0x0020, t01=0x016c}
0x3390…33ca Head {h00=0x0036, h01=0x0050, text=» CBE BIN16,W27,CNTLFK JUMP IF COND FORM CHANGE (N)«, t00=0x0021, t01=0x0016}
0x33ca…33dc Head {h00=0x000e, h01=0x0050, text=» B CNTLOK «, t00=0x0021, t01=0x0050}
0x33dc…33ea Head {h00=0x000a, h01=0x0050, text=»CNTLFK«, t00=0x0021, t01=0x0062}
0x33ea…341e Head {h00=0x0030, h01=0x0050, text=» CBG DEBIN3,W6,CNNOK FORMAT NAME > 6 NOT OK «, t00=0x0021, t01=0x0070}
0x341e…342c Head {h00=0x000a, h01=0x0050, text=»CNTLOK«, t00=0x0021, t01=0x00a4}
0x342c…3456 Head {h00=0x0026, h01=0x0050, text=» ADD DEBIN4,DEBIN3 ADJUST NEXT POS«, t00=0x0021, t01=0x00b2}
0x3456…346c Head {h00=0x0012, h01=0x0050, text=» B CNT0 GO ON «, t00=0x0021, t01=0x00dc}
0x346c…347a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00f2}
0x347a…3484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0100}
0x3484…34b4 Head {h00=0x002c, h01=0x0050, text=»* CNTF CONTROL FORMATNAME-LITERAL«, t00=0x0021, t01=0x010a}
0x34b4…34be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x013a}
0x34be…34ca Head {h00=0x0008, h01=0x0050, text=»CNTF«, t00=0x0021, t01=0x0144}
0x34ca…34f8 Head {h00=0x002a, h01=0x0050, text=» ADD DEBIN4,W1 ADJUST POINTER POSITION«, t00=0x0021, t01=0x0150}
0x34f8…3530 Head {h00=0x0034, h01=0x0050, text=» CBNL DEBIN4,CHNUM(WIND),CNNOK JUMP IF OVERFLOW «, t00=0x0021, t01=0x017e}
0x3530…3554 Head {h00=0x0020, h01=0x0050, text=» B CNTL JUMP LITERAL CONTROL«, t00=0x0022, t01=0x0026}
0x3554…3562 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x004a}
0x3562…3570 Head {h00=0x000a, h01=0x0050, text=»CNNOK «, t00=0x0022, t01=0x0058}
0x3570…359c Head {h00=0x0028, h01=0x0050, text=» CBNE WIND,W4,CNNCR JUMP IF NOT DUPL«, t00=0x0022, t01=0x0066}
0x359c…35d0 Head {h00=0x0030, h01=0x0050, text=» MOVE DEBINW1,DEBIN4 RESTORE ERROR-POSITION «, t00=0x0022, t01=0x0092}
0x35d0…3602 Head {h00=0x002e, h01=0x0050, text=» ADD DEBINW1,W1 ADJUST FOR POINTER IN LDES«, t00=0x0022, t01=0x00c6}
0x3602…361a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W6«, t00=0x0022, t01=0x00f8}
0x361a…3646 Head {h00=0x0028, h01=0x0050, text=» PERF DERROR,DEKTAB4 'ILLEGAL VALUE'«, t00=0x0022, t01=0x0110}
0x3646…3654 Head {h00=0x000a, h01=0x0050, text=»CNNCR «, t00=0x0022, t01=0x013c}
0x3654…366e Head {h00=0x0016, h01=0x0050, text=» CMP W1,W0 SET CR «, t00=0x0022, t01=0x014a}
0x366e…367e Head {h00=0x000c, h01=0x0050, text=» B CNRT «, t00=0x0022, t01=0x0164}
0x367e…368c Head {h00=0x000a, h01=0x0050, text=»CNTOK «, t00=0x0022, t01=0x0174}
0x368c…36ca Head {h00=0x003a, h01=0x0050, text=» TBT BOOL4,CNNOK NOT OK IF COND GEN/ACC NOT CONCLUDED «, t00=0x0022, t01=0x0182}
0x36ca…36e6 Head {h00=0x0018, h01=0x0050, text=» CMP W1,W1 CLEAR CR «, t00=0x0023, t01=0x0030}
0x36e6…36f2 Head {h00=0x0008, h01=0x0050, text=»CNRT«, t00=0x0023, t01=0x004c}
0x36f2…36fe Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x0058}
0x36fe…370c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x0064}
0x370c…371a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0072}
0x371a…3724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0080}
0x3724…376a Head {h00=0x0042, h01=0x0050, text=»* THIS PROCEDURE CHECKS IF RIGHT NUMBER OF REAL DIGITS «, t00=0x0023, t01=0x008a}
0x376a…37ae Head {h00=0x0040, h01=0x0050, text=»* HAVE BEEN KEYED IN FOR THE CORRESPONDING FUNCTION «, t00=0x0023, t01=0x00d0}
0x37ae…37dc Head {h00=0x002a, h01=0x0050, text=»* IN VAL-, GEN- AND ACC-STRING«, t00=0x0023, t01=0x0114}
0x37dc…37e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0142}
0x37e6…3836 Head {h00=0x004c, h01=0x0050, text=»* INPUT PARAMETERS (FORMAL) : WSTRG = WORKSTRING CONTAINS DIGIT«, t00=0x0023, t01=0x014c}
0x3836…3886 Head {h00=0x004c, h01=0x0050, text=»* CHNUM = ENDPOSITION IN WSTRG FOR «, t00=0x0024, t01=0x000c}
0x3886…38cc Head {h00=0x0042, h01=0x0050, text=»* WIND = INDEX TO CHNUM «, t00=0x0024, t01=0x005c}
0x38cc…391c Head {h00=0x004c, h01=0x0050, text=»* NUMB = NUMBER OF DIGITS TO CHECK«, t00=0x0024, t01=0x00a2}
0x391c…3926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f2}
0x3926…3976 Head {h00=0x004c, h01=0x0050, text=»* INPUT PARAMETERS : DEBIN4 = CURRENT POSITION POINTER «, t00=0x0024, t01=0x00fc}
0x3976…3980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014c}
0x3980…39be Head {h00=0x003a, h01=0x0050, text=»* USED PARAMETERS : DEBIN3 =WORKAREA«, t00=0x0024, t01=0x0156}
0x39be…39fe (37, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* STR6A = WORKAREA «, t00=0x0025, t01=0x0004}
0x39fe…3a3e Head {h00=0x003c, h01=0x0050, text=»* BCD13A = WORKAREA «, t00=0x0025, t01=0x0044}
0x3a3e…3a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0084}
0x3a48…3a98 Head {h00=0x004c, h01=0x0050, text=»* OUTPUT PARAMETERS : DEBIN2 = CHECKED DIGITS BINARY STO«, t00=0x0025, t01=0x008e}
0x3a98…3ae8 Head {h00=0x004c, h01=0x0050, text=»* DEBIN4 = POSITION POINTER ADJUSTED«, t00=0x0025, t01=0x00de}
0x3ae8…3b22 Head {h00=0x0036, h01=0x0050, text=»* CR = 0 = OK «, t00=0x0025, t01=0x012e}
0x3b22…3b60 Head {h00=0x003a, h01=0x0050, text=»* CR/= 0 = NOT OK «, t00=0x0025, t01=0x0168}
0x3b60…3bb0 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0026, t01=0x0016}
0x3bb0…3bdc Head {h00=0x0028, h01=0x0050, text=»DIGCHK PROC WSTRG,CHNUM(),WIND,NUMB «, t00=0x0026, t01=0x0066}
0x3bdc…3c0a Head {h00=0x002a, h01=0x0050, text=» ADD DEBIN4,W1 ADJUST POINTER POSITION«, t00=0x0026, t01=0x0092}
0x3c0a…3c3a Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 SAVE POINTER ADRESS «, t00=0x0026, t01=0x00c0}
0x3c3a…3c6a Head {h00=0x002c, h01=0x0050, text=» ADD DEBIN3,NUMB ADD NUMB OF CHARACTERS «, t00=0x0026, t01=0x00f0}
0x3c6a…3ca2 Head {h00=0x0034, h01=0x0050, text=» CBG DEBIN3,CHNUM(WIND),DIGC99 JUMP IF OVERFLOW «, t00=0x0026, t01=0x0120}
0x3ca2…3cd0 Head {h00=0x002a, h01=0x0050, text=» MOVE STR6A,HEX00 INITIALIZE:=00000000«, t00=0x0026, t01=0x0158}
0x3cd0…3cfa Head {h00=0x0026, h01=0x0050, text=» XCOPY STR6A,W0,NUMB,WSTRG,DEBIN4 «, t00=0x0026, t01=0x0186}
0x3cfa…3d1e Head {h00=0x0020, h01=0x0050, text=» MOVE BCD13A,STR6A STR=>BCD «, t00=0x0027, t01=0x0020}
0x3d1e…3d36 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN3,W0 «, t00=0x0027, t01=0x0044}
0x3d36…3d58 Head {h00=0x001e, h01=0x0050, text=» EDSUB STR6A,DEBIN3,FSCONV«, t00=0x0027, t01=0x005c}
0x3d58…3d84 Head {h00=0x0028, h01=0x0050, text=» CMP DEBIN3,NUMB CHECK IF EQUAL = OK«, t00=0x0027, t01=0x007e}
0x3d84…3da8 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBIN2,BCD13A BCD=>BIN«, t00=0x0027, t01=0x00aa}
0x3da8…3db6 Head {h00=0x000a, h01=0x0050, text=»DIGC99«, t00=0x0027, t01=0x00ce}
0x3db6…3dc2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0027, t01=0x00dc}
0x3dc2…3dd0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0027, t01=0x00e8}
0x3dd0…3dde Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x00f6}
0x3dde…3df2 Head {h00=0x0010, h01=0x0050, text=»FSCONV FRMT «, t00=0x0027, t01=0x0104}
0x3df2…3e10 Head {h00=0x001a, h01=0x0050, text=» FMEL 'AAAAAA',BCD13A «, t00=0x0027, t01=0x0118}
0x3e10…3e1e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0027, t01=0x0136}
0x3e1e…3e2a Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0027, t01=0x0144}
0x3e2a…3e2e Head {h00=0x4004, h01=0x0000}
0x3e2e…3e30 00 27 ┆ '┆
0x3e30…3e32 01 50 ┆ P┆
0x3e32…3e3a (40, 1, 8) 20 04 00 00 00 28 00 04 ┆ ( ┆
0x3e3a…3e8a (41, 0, 400) 11 12 12 13 14 15 16 17 18 06 90 87 3f 19 41 8d 5f 95 30 21 87 d3 21 3c 0f 00 9f 22 d3 87 3f 1a 04 88 23 40 8e 54 07 30 25 00 50 34 57 03 49 99 2f 36 88 01 07 30 21 87 17 21 57 05 30 21 87 d5 21 3c 0f 00 89 20 36 88 01 0a 68 95 89 8e 17 87 ┆ ? A _ 0! !< " ? #@ T 0% P4W I /6 0! !W 0! !< 6 h ┆
0x3e8a…3eda 20 8e 57 08 68 95 89 8e d5 87 20 8e 38 1b 3f 1c 36 88 01 0e 30 21 87 17 21 3c 0f 00 9f 22 17 87 3f 1a 30 21 87 d5 21 3c 0f 00 9f 22 d5 87 3f 1a 28 87 20 03 00 87 92 30 3a 89 0b 00 0a 87 28 89 23 29 30 29 01 89 41 8b 00 86 20 68 0b 00 0a 87 ┆ W h 8 ? 6 0! !< " ? 0! !< " ? ( 0: ( #)0) A h ┆
0x3eda…3f2a 86 89 55 20 21 06 90 86 3c 1c 00 89 20 68 95 89 90 0b 00 0a 87 20 90 38 1b 3f 1c 00 9f 22 0b 00 0a 87 3f 1a 06 84 20 3c 0f 00 e8 20 00 97 87 00 88 20 01 99 32 68 99 88 21 1b 8a 8b 21 50 08 00 88 20 00 e0 21 57 10 02 8b 21 6a 88 21 21 1b 8a ┆ U ! < h 8 ? " ? < 2h ! !P !W !j !! ┆
0x3f2a…3f7a 8b 02 8b 21 00 e0 88 00 e6 97 01 99 34 66 e6 20 22 64 e6 22 21 55 20 64 e6 20 21 99 20 80 03 38 50 0f 20 e1 20 06 80 04 26 e1 89 9d 06 20 21 3f 19 00 8e 20 30 38 1b e1 28 2b 30 39 1b e1 20 2b 6a 8f 21 21 19 e1 31 6a 8e 21 21 19 e1 32 04 e0 ┆ ! 4f "d "!U d ! 8P & !? 08 (+09 +j !! 1j !! 2 ┆
0x3f7a…3fca 8f 02 e0 21 49 8e 07 30 25 00 50 2c 57 03 49 99 27 6a 87 21 21 1b e1 21 80 01 24 00 85 20 68 95 85 87 6f 20 87 50 18 18 88 20 55 02 e0 21 02 8f 21 06 8f 8e 39 1d 5f 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ┆ !I 0% P,W I 'j !! ! $ h o P U ! ! 9 _ ┆
0x3fca…401a (42, 0, 400) 00 9f 22 b0 e0 57 fa 00 e8 8f 80 04 26 e1 89 9d 06 20 20 3f 19 80 05 87 3f 19 30 22 95 39 1b 3f 1c 00 9f 22 e8 57 da 40 67 40 6b 02 8b 21 41 69 6a 8d 21 21 1b 8a 8b 02 8b 21 3f 1e 00 93 24 40 6b 41 67 57 07 00 93 23 40 67 41 6b 40 69 02 8b ┆ " W & ? ? 0" 9 ? " W @g@k !Aij !! !? $@kAgW #@gAk@i ┆
0x401a…406a 21 00 8f 20 6a 8f 21 21 1b 8a 8b 04 8f 12 02 8b 21 00 7f 93 55 6a 7f 93 20 8f 1b 8a 8b 02 8b 8f 3f 1e 01 88 31 30 0d 88 87 01 99 33 00 89 8b 68 1b 8a 89 90 99 20 21 54 3d 00 87 20 00 89 90 68 95 89 21 55 20 21 50 03 00 87 21 02 88 8b 00 89 ┆! j !! ! Uj ? 10 3 h !T= h !U !P ! ┆
0x406a…40ba 87 68 95 89 21 1b 8a 8b 21 54 0c 02 87 21 20 87 90 37 02 8b 21 5f 19 00 89 8b 68 1b 8a 89 21 99 20 21 58 19 57 23 40 8e 54 0e 30 25 00 50 21 20 90 88 08 02 8b 88 57 83 49 99 15 00 89 20 02 88 8b 68 95 89 90 1b 8a 8b 90 00 8b 88 50 a2 57 6b ┆ h ! !T ! 7 !_ h ! !X W#@ T 0% P! W I h P Wk┆
0x40ba…410a 00 7e 55 62 7e 20 88 1b 8a 8b 00 9f 22 7e 02 8b 88 40 8d 50 0a 30 17 9f 22 21 30 18 9f 22 22 36 85 03 07 0e 15 02 9f 21 9f 22 57 13 04 9f 21 9f 22 57 0c 08 9f 21 9f 22 57 05 0a 9f 21 9f 22 00 85 20 2c 8b 8c 0d 01 7e 35 68 7e 85 24 1b 8a 8b ┆ ~Ub~ "~ @ P 0 "!0 ""6 ! "W ! "W ! "W ! " , ~5h~ $ ┆
0x410a…415a 21 38 1f 00 9f 22 95 06 9f 22 9f 21 36 84 02 04 08 50 3d 57 06 51 39 57 02 52 35 40 88 54 4c 20 e1 20 31 06 88 20 3c 20 02 e0 21 02 8f 21 22 8f 8e 07 00 9f 21 b0 e0 5f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆!8 " " !6 P=W Q9W R5@ TL 1 < ! !" ! _ ┆
0x415a…41aa (43, 0, 400) 36 6a 8e 20 22 19 e1 2d 06 8e 20 38 20 00 e0 8f 80 04 26 e1 89 9d 3f 21 40 88 50 10 00 89 35 49 69 16 49 6b 13 49 67 10 41 7c 57 0c 20 e1 20 03 00 e8 8f 00 89 34 40 7c 40 8e 20 e1 20 06 80 04 26 e1 89 9d 2c 8b 8c b3 00 88 20 01 8f 30 68 5a ┆6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , 0hZ┆
0x41aa…41fa 88 8f 1b 8a 8b 21 50 44 6a 87 21 21 1b 8a 8b 30 07 87 28 50 0a 01 88 31 30 0d 88 87 02 8b 88 02 8b 21 5f 3c 28 89 34 02 80 06 02 8b 21 2c 8b 8c 7a 00 88 20 01 9c 36 68 9c 88 24 1b 8a 8b 21 54 62 49 7c 67 32 88 03 0c 0d 0e 3f 0b 32 88 1c 22 ┆ !PDj !! 0 (P 10 !_<( 4 !, z 6h $ !TbI|g2 ? 2 "┆
0x41fa…424a 22 22 22 22 23 22 23 23 23 23 23 23 22 22 22 22 22 24 25 25 22 22 22 23 26 26 22 02 8b 21 5f 68 28 88 89 05 02 8b 21 3f 1e 20 89 34 22 02 8b 21 5f 9a 02 8b 22 5f 9f 02 8b 21 00 8f 20 6a 8f 21 21 1b 8a 8b 04 8f 12 02 8b 21 02 8b 8f 5f b7 80 ┆""""#"######"""""$%%"""#&&" !_h( !? 4" !_ "_ ! j !! ! _ ┆
0x424a…429a 06 5f bb 41 7c 00 93 22 00 89 20 40 8b 50 14 00 8a e9 26 00 8b e9 27 00 8c e9 28 02 8b 21 30 24 00 92 88 48 7c 04 20 93 22 04 10 89 34 2f 00 95 6f 00 92 67 20 92 20 0a 22 92 d1 22 07 40 66 49 89 02 40 6a 00 8a 20 6a 8a 21 21 82 20 6a 82 20 ┆ _ A| " @ P & ' ( !0$ H| " 4/ o g " " @fI @j j !! j ┆
0x429a…42ea 21 20 20 40 97 54 05 00 92 20 57 03 00 92 21 34 01 00 89 20 49 69 08 49 6b 09 49 67 0a 34 00 41 68 34 00 41 6a 34 00 41 66 34 00 92 00 26 00 07 00 5d 00 07 05 b7 00 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ┆! @ T W !4 Ii Ik Ig 4 Ah4 Aj4 Af4 & ] ┆
0x42ea…433a (44, 0, 400) 00 58 00 07 04 a0 00 07 04 9b 00 07 00 6a 00 07 00 ba 00 07 00 c5 00 07 00 fe 00 07 01 2c 00 07 01 02 00 07 03 17 00 07 03 2c 00 07 03 35 00 07 05 5b 00 07 01 86 00 07 01 8a 00 07 01 98 00 07 01 f8 00 07 02 3c 00 07 03 05 00 07 03 11 00 07 ┆ X j , , 5 [ < ┆
0x433a…438a 03 0a 00 07 03 62 00 07 04 3c 00 07 03 f1 00 07 04 80 00 07 04 4b 00 07 04 69 00 07 00 64 00 07 01 4b 00 07 02 8e 00 07 02 85 00 07 05 35 00 07 05 3a 00 07 04 dc 00 07 05 28 00 07 05 3f 00 06 00 06 01 48 00 18 02 a0 00 00 02 38 00 08 00 0e ┆ b < K i d K 5 : ( ? H 8 ┆
0x438a…43da 00 18 02 a5 00 07 05 b9 00 1d 00 3f 3a 3f 54 2b 2d 2a 3a 44 47 52 4e 41 53 55 46 46 46 58 4d 2f 3d 3e 3c 44 47 52 4e 4c 21 41 53 55 46 54 43 58 45 00 20 02 00 00 20 02 00 02 00 01 00 04 00 01 00 05 00 01 00 06 00 04 00 07 00 04 00 0b 00 07 ┆ ?:?T+-*:DGRNASUFFFXM/=><DGRNL!ASUFTCXE ┆
0x43da…442a 00 0f 00 09 00 16 00 0a 00 1f 30 01 00 29 06 b2 06 88 06 de 06 b2 06 de 06 b2 30 18 9f 22 22 36 85 03 07 0e 15 02 9f 21 9f 22 57 13 04 9f 21 9f 22 57 0c 08 9f 21 9f 22 57 05 0a 9f 21 9f 22 00 85 20 2c 8b 8c 0d 01 7e 35 68 7e 85 24 1b 8a 8b ┆ 0 ) 0 ""6 ! "W ! "W ! "W ! " , ~5h~ $ ┆
0x442a…447a 21 38 1f 00 9f 22 95 06 9f 22 9f 21 36 84 02 04 08 50 3d 57 06 51 39 57 02 52 35 40 88 54 4c 20 e1 20 31 06 88 20 3c 20 02 e0 21 02 8f 21 22 8f 8e 07 00 9f 21 b0 e0 5f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆!8 " " !6 P=W Q9W R5@ TL 1 < ! !" ! _ ┆