|
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: 17426 (0x4412)
Notes: pts_type(SC)
Names: »DECVRT.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DECVRT.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DECVRT.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DECVRT.SC«
IDENT DECVRT 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 CONNUM CONVERT STRG=>BIN * ENTRY BINCON CONVERT BIN=>STRG * EJECT * * CONVERT VARIABLE NUMBER (INDEX) TO BINARY * * INPUT PARAMETERS (FORMAL): WSTRG = WORKSTRING VAL/GEN/ACC * CHNUM = NUMBER OF INPUT CHARACTERS * WIND = INDEX TO CORRESPONDING CHAR- * * INPUT PARAMETERS : * VALSTR = VAL/GEN/ACC---CHARACTERSTRIN * DEBIN4 = POINTER INPUTBUFFER WSTRG * DEBIN5 = NUMB OF DELETED CHARACTERS * * WORKITEMS : DEBIN2 = LENGTH OF LITERAL STRING * DEBIN3 = CONVERTED VAR.-NR. BINARY * BIN15 = LENGTH OF VALSTR (31) * BIN16 = MATCHING-POINTER 'VALSTR' * DEINPUT = WORK BUFFER * WORK(W5) = SAVED (-POSITION * WORK(W6) = SAVED )-POSITION * WORK(W7) = SAVED (...)-LENGTH * * OUTPUT PARAMETERS : CHNUM = EFFEKTIV VAL-/GEN-/ACC-LENTH * WSTRG = VAL-/GEN-/ACC-STRING CONVERT * * DEBIN4 = POINTER WSTRG ADJUSTED * FBIN2 = HIGHEST FIELD REF. NO. (FORW ************************************************************************ EJECT CONNUM PROC WSTRG,CHNUM(),WIND MOVE BIN15,=W'31' LOAD LENGTH OF VALSTR CBE WIND,W4,CN00 JUMP IF DUPL DLETE WSTRG,DEBIN4,W3 DELETE '#X:' SUB CHNUM(WIND),W3 ADJUST FOR FUNCTION TEXT ADD DEBIN5,W3 ADD NUMB OF DLETED CHARACTERS EJECT CN00 MOVE BIN16,W0 MATCHINDEX:=0 MOVE STR6A,='0' ZEROIZE WORKITEM MATCH VALSTR,BIN16,BIN15,WSTRG,DEBIN4,W1 CBE BIN16,W23,CNCL JUMP IF LITERAL ADD DEBIN4,W1 NEXT POS CBE BIN16,W0,CNCM JUMP IF 'M' IB BIN16,CNC0,CNC0,CNC0,CNC0, 1-4 C CNC3,CNC2,CNC0,CNCA,CNC2, 5-9 C CNC1,CNC3,CNC2,CNC2,CNC0, 10-14 C CNC0,CNC0,CNC0,CNC0,CNC0, 15-19 C CNC0,CNC0,CNC0,CNCL,CNC0, 20-24 C CNCG,CNCM,CNCM,CNC0,CNC0, 25-29 C CNCR 30 B CNC0 CNCM M=MESSAGE SPLIT,R/N=CONDFRM CH MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION MATCH WSTRG,DEBIN3,W1,VALSTR,W23,W1 M'...' BNOK CNC2 M99 B CNCL EJECT * * CNC0 NO CONVERTION * CNC0 CBNE DEBIN4,CHNUM(WIND),CN00 GO ON IF NOT END OF FUNC B CNOK END OF FUNC FOUND * * CNC1 CONVERT 1 BYTE TO BINARY * CNC1 MOVE DEBIN3,W5 STARTPOS WORKITEM PERF CONV,WSTRG,W1 CONVERT TO BINARY SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION B CNC0 CHECK END-OF-LINE EJECT * * CNC2 CONVERTION OF 2 BYTES TO BINARY * -M,-L,-A,-S,-T,-C * CNC2 MOVE DEBIN3,W4 STARTPOS WORKITEM PERF CONV,WSTRG,W2 CONVERT TO BINARY SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION CBNE BIN16,W12,CNC0 JUMP IF NOT 'T' CBE DEBIN4,CHNUM(WIND),CNOKLB JUMP IF END OF LINE FOUND MOVE DEBIN3,DEBIN4 LOAD WORKPOINTER MATCH WSTRG,DEBIN3,W1,VALSTR,W18,W1 NEXT POS : ? BNOK CN00 ADD DEBIN4,W1 NEXT POS MOVE DEBIN3,W4 STARTPOS WORKITEM PERF CONV,WSTRG,W2 CONVERT TO BINARY SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION B CNC0 CHECK END-OF-LINE CNOKLB B CNOK EJECT * * CNC3 CONVERTION OF 3 BYTES TO BINARY -D,-F,-G * CNC3 CBNE BIN16,W5,CNC3A JUMP IF NOT = 5(D) CBE WIND,W4,CNC0 JUMP IF D=DATUM(DUPL) CNC3A * * CHECK IF RELATIVE SIGN + = /FF - = /FE * MOVE DEBIN3,W15 STARTPOS IN VALSTRING MATCH VALSTR,DEBIN3,W2,WSTRG,DEBIN4,W1 REL SIGN ? BNOK CNC3Z NO REL SIGN FOUND SUB DEBIN3,W15 ADJUST MOVE STR2A,=X'FFFE' `'+' AND '-' CODES XCOPY WSTRG,DEBIN4,W1,STR2A,DEBIN3 INSERT SIGN-CODE ADD DEBIN4,W1 MOVE DEBIN3,W4 STARTPOS WORKITEM PERF CONV,WSTRG,W2 CONVERT TO BINARY ADD DEBIN2,BIN10 GET DIRECT REF.NO B CNC3X CNC3Z MOVE DEBIN3,W3 STARTPOS WORKITEM PERF CONV,WSTRG,W3 CONVERT TO BINARY CNC3X SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION CBNG DEBIN2,WORK(W6),CNC3B JUMP IF L HIGHST FIELD REF. MOVE WORK(W6),DEBIN2 SAVE HIGHEST FIELD REF. NO. CNC3B B CNC0 CHECK END-OF-LINE EJECT * * CNCL CONVERT TO LITERAL * CNCL MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS ADD DEBIN4,W1 NEXT POS SUB DEBIN2,DEBIN4 NUMB OF CHRS TO MATCH MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,W23,W1 MATCH NEXT' SUB DEBIN3,DEBIN4 =NUMB OF LIT-CHARS MOVE DEBIN2,W128 1ST BIT = 1 ADD DEBIN2,DEBIN3 +LENGTH OF LITERAL SUB DEBIN4,W1 ADJUST FOR OVERWRITE POSITION XCOPY WSTRG,DEBIN4,W1,DEBIN2,W1 'L'='80'+LENGTH ADD DEBIN4,DEBIN3 ADJUST NEXT POS ADD DEBIN4,W1 NEXT POS DLETE WSTRG,DEBIN4,W1 DELETE 2ND ' SUB CHNUM(WIND),W1 ADJUST LENGTH FOR DELETED CHAR ADD DEBIN5,W1 NUMB OF DELETED CHARCTERS B CNC0 GO ON * * CNCA CONVERT FOR CONDITIONAL ACCUMULATION * CNCA 'A'-FOUND MOVE DEBIN3,DEBIN4 SAVE CURR POS MATCH WSTRG,DEBIN3,W1,VALSTR,W29,W1 (-? BNOK CNC2 JUMP IF USUAL ACCUMULATOR B CNCX JUMP IF COND ACCUMULATION * * CNCG CONVERT FOR CONDITIONAL GENERATION * CNCG 'G'-FOUND CBNE WIND,W2,CNC3 JUMP IF NOT GEN CNCX SUB DEBIN4,W1 ADJUST FOR CONVERTION XCOPY WSTRG,DEBIN4,W1,VALSTR,W0 G/A=>M ADD DEBIN4,W1 NEXT POS MOVE WORK(W8),DEBIN4 SAVE (-POS MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS SUB DEBIN2,DEBIN4 NUMB OF CHARS TO MATCH MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH MOVE BIN16,=W'30' MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,BIN16,W1 MOVE WORK(W9),DEBIN3 SAVE)-POS ADD DEBIN4,W1 NEXT POS SUB DEBIN3,DEBIN4 =NUMB OF LIT CHARS MOVE WORK(W7),DEBIN3 SAVE (...)-LENGTH B CNC0 GO ON EJECT * * CNCR RIGHT PARENTHESIS FOUND * CNCR SUB DEBIN4,W1 ADJUST FOR DEL )-CHAR SUB WORK(W9),DEBIN4 =DIFFERENCE SUB WORK(W7),WORK(W9) =REAL LENGTH ADD WORK(W7),W128 1ST BIT = 1 XCOPY WSTRG,WORK(W8),W1,WORK(W7),W1 (...)-LENGTH DLETE WSTRG,DEBIN4,W1 DELETE )-CHARS SUB CHNUM(WIND),W1 ADJUST ENDPOS ADD DEBIN5,W1 ADJUST NUMB OF DEL CHARS B CNC0 GO ON EJECT CNOK MOVE BIN15,CHNUM(WIND) STORE ENDPOSITION SUB BIN15,DEBIN1 SUBTRACT STARTPOSITION MOVE CHNUM(WIND),BIN15 GIVING NUMB OF CHARS RET PEND EJECT * * CONVERTS NUMERIC STRINGCHARACTERS TO BINARY * * INPUT VARIABLES : NUMB(F) = NUMBER OF CHARACTERS TO CONVERT * DEBIN3 = STARTPOS IN WORKITEM FOR 'XCOPY' * WSTRG = ACTUAL WORKSTRING VAL/GEN OR ACC * * WORK ITEMS : DEBIN2 = CONVERTED NUMERIC VALUE BINARY * BCD13A = CONVERTED NUMERIC VALUE BCD * STR6A = NUMERIC VALUE STRG * * OUTPUT VARIABLES : DEBIN4 = POINTER ADJUSTED * DEBIN5 = NUMB OF DELETED CHARS * WSTRG = WORKBUFFER WITH CONVERTED CHARACTER * DEBIN3 = NUMB OF DELETED CHARS * DEBIN2 = CONVERTED NUMERIC VALUE BINARY * ************************************************************************ CONV PROC WSTRG,NUMB XCOPY STR6A,DEBIN3,NUMB,WSTRG,DEBIN4 COPY STRGNUM MOVE BCD13A,STR6A LOAD STR=>BCD MOVE DEBIN2,BCD13A LOAD BCD=>BIN XCOPY WSTRG,DEBIN4,W1,DEBIN2,W1 LOAD VARNR BINARY MOVE DEBIN3,NUMB STORE NUMB CONVRTD CHARACTERS SUB DEBIN3,W1 ADD DEBIN4,W1 NEXT POS DLETE WSTRG,DEBIN4,DEBIN3 DELETE ALPHA CHARACTERS ADD DEBIN5,DEBIN3 NEXT POS RET PEND EJECT * * THIS ROUTINE CONVERTS BINARY NUMERICALS TO * ALPHANUMERIC STRING CHARACTERS * * FORMAL PARAMETER : WSTRG = JOBSPC (VALIDATION STRING) * = DUPL (DUPLICATION STRING) * OPT = 1 = VALIDITION * = 2 = GENERATION * = 3 = ACCUMULATION * = 4 = DUPLICATION * * INPUT VARIABLES : BIN15 = LENGTH OF FUNC-CODE * DEBIN3 = POINTER TO WSTRG * FBIN1 = NUMBER OF CONVERTED CHARACTERS * * USED VARIABLES : BIN16 = MATCHINGPOINTER * DEBIN1 = WORK * DEBIN2 = LENGTH OF MATCHSTRING (VALSTR = 31) * DEBIN4 = BINARY NUMERICALS * FBIN1 = CHECK END OF OF FUNC-CODE * WORK(W7)= LENGTH/ENDPOS COND. GEN/ACC * * OUTPUT VARIABLES : WSTRG = CONVERTED * BIN15 = ADJUSTED ACCORDING TO CONVERTED * CHARACTERS * CURSEC= ADJUSTED WITH INPUT VALUE OF BIN15 * ************************************************************************ * EJECT BINCON PROC WSTRG,OPT XCOPY WSTRG,DEBIN3,BIN15,BPOOL(PINDCB),CURSEC STORE WORKSTRING MOVE DEBIN2,=W'31' LOAD LENGTH OF VALSTR ADD CURSEC,BIN15 ADJUST FOR CHARS CBE OPT,W4,BN00 JUMP IF DUPL ADD BIN15,W3 ADJUST FOR FUNC.TEXT CLEAR BOOL4 F=NO CONDITIONAL GEN/ACC BN00 MOVE BIN16,W0 MATCHINGPOINTER :=0 MOVE DEBIN4,W0 BINARY NUMERICALS:=0 MATCH VALSTR,BIN16,DEBIN2,WSTRG,DEBIN3,W1 MATCH CHARACTER CBE BIN16,W0,BNME JUMP IF MESSAGE IB BIN16,BNC0,BNC0,BNC0,BNC0, 1-4 C BNC3,BNC2,BNC0,BNC2,BNC2, 5-9 C BNC1,BNC3,BNC2,BNC2,BNC0, 10-14 C BNC0,BNC0,BNC0,BNC0,BNC0, 15-19 C BNC0,BNC0,BNC0,BNCR,BNC0, 20-24 C BNC3,BNME,BNME,BNC0 25-28 EJECT * * CHECK IF LITERAL * XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 GET BYTE CBG DEBIN4,W128,BNCL JUMP IF LITERAL B BNCR RETUR * * CHECK MESSAGE TYPE AND CONDITIONAL GEN/ACC * BNME IB OPT,BNMS,BNMG,BNMA BNMS ADD DEBIN3,W1 NEXT POS ADD FBIN1,W1 ADJUST NUMB OF CONVERTED XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 GET MESSAGE TYPE CBG DEBIN4,W128,BNCL JUMP IF M'.....' SUB DEBIN3,W1 ADJUST FOR 2CHAR-CONVERTION SUB FBIN1,W1 ADJUST NUMB OF CONVERTED B BNC2 M99 EJECT * * CONVERT 1 CHARACTER * BNC1 PERF CONBIN,WSTRG,W1 CONVERT BIN=>STRG * * CONVERT NO CHARCTER * BNC0 ADD DEBIN3,W1 NEXT POS ADD FBIN1,W1 ADJUST NUMB OF CONVERTED TBF BOOL4,BNCA JUMP IF NO COND GEN/ACC CBNE WORK(W7),DEBIN3,BNCA JUMP IF ENDPOS OF COND MOVE DEBIN1,=W'30' INSRT WSTRG,DEBIN3,W1,VALSTR,DEBIN1 INSERT ) ADD DEBIN3,W1 NEXT POS ADD FBIN1,W1 ADJUST NUMBER OF CONVERTED ADD BIN15,W1 ADJUST LENGTH CLEAR BOOL4 F=NO COND GEN/ACC BNCA CBE BIN15,FBIN1,BNCR JUMP IF END-OF-STRING B BN00 GO ON EJECT * * CONVERT 2 CHARACTERS * BNC2 PERF CONBIN,WSTRG,W2 CONVERT BIN=>STRG CBNE BIN16,W12,BNC0 JUMP IF NOT 'T' ADD DEBIN3,W1 NEXT POS ADD FBIN1,W1 ADJUST NUMB OF CONVERTED CBE BIN15,FBIN1,BNCR JUMP IF END-OF STRING MOVE DEBIN1,DEBIN3 MATCH WSTRG,DEBIN1,W1,VALSTR,W18,W1 NEXT POS : BNOK BN00 GO MATCH CHARACTER PERF CONBIN,WSTRG,W2 CONVERT BIN=>STRG B BNC0 * * CONVERT 3 CHARACTERS * BNC3 CBNE BIN16,W5,BNC3A JUMP IF NOT (D) CBE BIN15,W1,BNC0 JUMP IF 1 CH =D=DATUM BNC3A ADD DEBIN3,W1 NEXT POS MOVE STR2A,=X'FFFE' LOAD '+' AND '-' -CODES MOVE DEBIN1,W0 LOAD WORKPOINTER:=0 MATCH STR2A,DEBIN1,W2,WSTRG,DEBIN3,W1 LOOK FOR REL SIGNS BNOK BNC3B NO REL SIGNS FOUND ADD DEBIN1,W15 ADJUST FOR VALSTRPOSITION XCOPY WSTRG,DEBIN3,W1,VALSTR,DEBIN1 CONVERT TO SOURCE-SIGN ADD FBIN1,W1 ADJUST NUMB OF CONVERTED B BNC2 CONVERT 2 CHARACTERS BNC3B SUB DEBIN3,W1 ADJUST FOR CONVERTION PERF CONBIN,WSTRG,W3 CONVERT BIN=>STRG B BNC0 EJECT * * CONVERT LITERAL (INSERT '....') * BNCL SUB DEBIN4,W128 GET LENGTH OF LITERAL XCOPY WSTRG,DEBIN3,W1,VALSTR,W23 INSERT 1ST ' ADD DEBIN3,DEBIN4 ADJUST BUFPOS WITH LENGTH ADD DEBIN3,W1 NEXT POS ADD FBIN1,DEBIN4 ADJUST CHARC CONVERTED ADD FBIN1,W1 ADJUST NUMB OF CONVERTED INSRT WSTRG,DEBIN3,W1,VALSTR,W23 INSERT 2ND ' ADD BIN15,W1 ADJUST LENGTH TBF BOOL4,BNC0 GO ON IF NO COND GEN ACC ADD WORK(W7),W1 ADJUST ENDPOS FOR COND GEN/ACC B BNC0 EJECT BNMG COND GEN FOUND MOVE DEBIN1,W25 B BNMC BNMA COND ACC FOUND MOVE DEBIN1,W8 BNMC XCOPY WSTRG,DEBIN3,W1,VALSTR,DEBIN1 CONVERT M=>G/A ADD DEBIN3,W1 NEXT POS ADD FBIN1,W1 ADJUST NUMB OF CONV MOVE WORK(W7),W0 (...)-LENGTH:=0 XCOPY WORK(W7),W1,W1,WSTRG,DEBIN3 SUB WORK(W7),W128 GET LENGTH 0F (...)-STRING XCOPY WSTRG,DEBIN3,W1,VALSTR,W29 =>(-CHARACTER ADD WORK(W7),DEBIN3 ENDPOS (...)-STRING ADD WORK(W7),W1 ADJUST DITO SET BOOL4 T=CONDITIONAL GEN/ACC FOUND B BNC0 GO ON BNCR RET PEND EJECT * * CONVERT BINARY NUMERICALS ,FROM ACTUAL POINT IN BUFFER * TO ALPHANUMERIC CHARACTER STRING. AND COPIES IT INTO * THE SAME POSITION IN BUFFER * * USED VARIABLES : DEBIN1 = NUMBER OF ALPHANUMERIC STRG-CHARCTERS * ************************************************************************ CONBIN PROC WSTRG,FIND ADD DEBIN3,W1 NEXT POS XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 COPY BINNUM MOVE BCD13A,DEBIN4 LOAD BIN=>BCD MOVE DEBIN1,W0 ZEROISE EDSUB STR6A,DEBIN1,FCONV(FIND) CONV BCD=>STRG DLETE WSTRG,DEBIN3,W1 DELETE BINNUM POSITION INSRT WSTRG,DEBIN3,DEBIN1,STR6A,W0 INSERT STRG-CHARACTERS SUB DEBIN1,W1 ADJUST ADD BIN15,DEBIN1 ADJUST LENGTH ADD DEBIN3,DEBIN1 ADJUST BUFPOS ADD FBIN1,DEBIN1 ADJUST NUMB OF CONVERTED ADD FBIN1,W1 ADJUST NUMB OF CONVERTED TBF BOOL4,CONRET GO ON IF NO COND GEN ACC ADD WORK(W7),DEBIN1 ADJUST ENDPOS OF (...) CONRET RET PEND EJECT FCONV FTABLE CONV1,CONV2,CONV3 CONV1 FRMT FMEL '9',BCD13A FMEND CONV2 FRMT FMEL '99',BCD13A FMEND CONV3 FRMT FMEL '999',BCD13A FMEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DECVRT 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…012c Head {h00=0x0024, h01=0x001f, text=» ENTRY CONNUM CONVERT STRG=>BIN «, t00=0x0000, t01=0x0108}
0x012c…0136 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0130}
0x0136…015e Head {h00=0x0024, h01=0x001f, text=» ENTRY BINCON CONVERT BIN=>STRG «, t00=0x0000, t01=0x013a}
0x015e…0168 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0162}
0x0168…0176 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0000, t01=0x016c}
0x0176…0180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017a}
0x0180…01ba Head {h00=0x0036, h01=0x0050, text=»* CONVERT VARIABLE NUMBER (INDEX) TO BINARY «, t00=0x0000, t01=0x0184}
0x01ba…01c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002e}
0x01c4…020e Head {h00=0x0046, h01=0x0050, text=»* INPUT PARAMETERS (FORMAL): WSTRG = WORKSTRING VAL/GEN/ACC«, t00=0x0001, t01=0x0038}
0x020e…025c Head {h00=0x004a, h01=0x0050, text=»* CHNUM = NUMBER OF INPUT CHARACTERS«, t00=0x0001, t01=0x0082}
0x025c…02ac Head {h00=0x004c, h01=0x0050, text=»* WIND = INDEX TO CORRESPONDING CHAR-«, t00=0x0001, t01=0x00d0}
0x02ac…02b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0120}
0x02b6…02da Head {h00=0x0020, h01=0x0050, text=»* INPUT PARAMETERS : «, t00=0x0001, t01=0x012a}
0x02da…032a Head {h00=0x004c, h01=0x0050, text=»* VALSTR = VAL/GEN/ACC---CHARACTERSTRIN«, t00=0x0001, t01=0x014e}
0x032a…0378 Head {h00=0x004a, h01=0x0050, text=»* DEBIN4 = POINTER INPUTBUFFER WSTRG «, t00=0x0002, t01=0x000e}
0x0378…03c6 Head {h00=0x004a, h01=0x0050, text=»* DEBIN5 = NUMB OF DELETED CHARACTERS«, t00=0x0002, t01=0x005c}
0x03c6…03d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00aa}
0x03d0…041c Head {h00=0x0048, h01=0x0050, text=»* WORKITEMS : DEBIN2 = LENGTH OF LITERAL STRING«, t00=0x0002, t01=0x00b4}
0x041c…046a Head {h00=0x004a, h01=0x0050, text=»* DEBIN3 = CONVERTED VAR.-NR. BINARY «, t00=0x0002, t01=0x0100}
0x046a…04b4 Head {h00=0x0046, h01=0x0050, text=»* BIN15 = LENGTH OF VALSTR (31) «, t00=0x0002, t01=0x014e}
0x04b4…0502 Head {h00=0x004a, h01=0x0050, text=»* BIN16 = MATCHING-POINTER 'VALSTR' «, t00=0x0003, t01=0x0008}
0x0502…0542 Head {h00=0x003c, h01=0x0050, text=»* DEINPUT = WORK BUFFER «, t00=0x0003, t01=0x0056}
0x0542…0586 Head {h00=0x0040, h01=0x0050, text=»* WORK(W5) = SAVED (-POSITION«, t00=0x0003, t01=0x0096}
0x0586…05ca Head {h00=0x0040, h01=0x0050, text=»* WORK(W6) = SAVED )-POSITION«, t00=0x0003, t01=0x00da}
0x05ca…0610 Head {h00=0x0042, h01=0x0050, text=»* WORK(W7) = SAVED (...)-LENGTH«, t00=0x0003, t01=0x011e}
0x0610…061a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0164}
0x061a…066a Head {h00=0x004c, h01=0x0050, text=»* OUTPUT PARAMETERS : CHNUM = EFFEKTIV VAL-/GEN-/ACC-LENTH«, t00=0x0003, t01=0x016e}
0x066a…06ba Head {h00=0x004c, h01=0x0050, text=»* WSTRG = VAL-/GEN-/ACC-STRING CONVERT«, t00=0x0004, t01=0x002e}
0x06ba…06c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007e}
0x06c4…070e Head {h00=0x0046, h01=0x0050, text=»* DEBIN4 = POINTER WSTRG ADJUSTED«, t00=0x0004, t01=0x0088}
0x070e…075e Head {h00=0x004c, h01=0x0050, text=»* FBIN2 = HIGHEST FIELD REF. NO. (FORW«, t00=0x0004, t01=0x00d2}
0x075e…07ae Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0004, t01=0x0122}
0x07ae…07bc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0172}
0x07bc…07e2 Head {h00=0x0022, h01=0x0050, text=»CONNUM PROC WSTRG,CHNUM(),WIND«, t00=0x0004, t01=0x0180}
0x07e2…0812 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN15,=W'31' LOAD LENGTH OF VALSTR«, t00=0x0005, t01=0x0016}
0x0812…0838 Head {h00=0x0022, h01=0x0050, text=» CBE WIND,W4,CN00 JUMP IF DUPL«, t00=0x0005, t01=0x0046}
0x0838…0864 Head {h00=0x0028, h01=0x0050, text=» DLETE WSTRG,DEBIN4,W3 DELETE '#X:' «, t00=0x0005, t01=0x006c}
0x0864…0898 Head {h00=0x0030, h01=0x0050, text=» SUB CHNUM(WIND),W3 ADJUST FOR FUNCTION TEXT«, t00=0x0005, t01=0x0098}
0x0898…08cc Head {h00=0x0030, h01=0x0050, text=» ADD DEBIN5,W3 ADD NUMB OF DLETED CHARACTERS«, t00=0x0005, t01=0x00cc}
0x08cc…08da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0100}
0x08da…08e6 Head {h00=0x0008, h01=0x0050, text=»CN00«, t00=0x0005, t01=0x010e}
0x08e6…090a Head {h00=0x0020, h01=0x0050, text=» MOVE BIN16,W0 MATCHINDEX:=0«, t00=0x0005, t01=0x011a}
0x090a…0934 Head {h00=0x0026, h01=0x0050, text=» MOVE STR6A,='0' ZEROIZE WORKITEM «, t00=0x0005, t01=0x013e}
0x0934…0966 Head {h00=0x002e, h01=0x0050, text=» MATCH VALSTR,BIN16,BIN15,WSTRG,DEBIN4,W1 «, t00=0x0005, t01=0x0168}
0x0966…0992 Head {h00=0x0028, h01=0x0050, text=» CBE BIN16,W23,CNCL JUMP IF LITERAL «, t00=0x0006, t01=0x000a}
0x0992…09b2 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x0006, t01=0x0036}
0x09b2…09d8 Head {h00=0x0022, h01=0x0050, text=» CBE BIN16,W0,CNCM JUMP IF 'M'«, t00=0x0006, t01=0x0056}
0x09d8…0a04 Head {h00=0x0028, h01=0x0050, text=» IB BIN16,CNC0,CNC0,CNC0,CNC0, 1-4 C«, t00=0x0006, t01=0x007c}
0x0a04…0a2e Head {h00=0x0026, h01=0x0050, text=» CNC3,CNC2,CNC0,CNCA,CNC2, 5-9 C «, t00=0x0006, t01=0x00a8}
0x0a2e…0a5a Head {h00=0x0028, h01=0x0050, text=» CNC1,CNC3,CNC2,CNC2,CNC0, 10-14 C «, t00=0x0006, t01=0x00d2}
0x0a5a…0a86 Head {h00=0x0028, h01=0x0050, text=» CNC0,CNC0,CNC0,CNC0,CNC0, 15-19 C «, t00=0x0006, t01=0x00fe}
0x0a86…0ab2 Head {h00=0x0028, h01=0x0050, text=» CNC0,CNC0,CNC0,CNCL,CNC0, 20-24 C «, t00=0x0006, t01=0x012a}
0x0ab2…0ade Head {h00=0x0028, h01=0x0050, text=» CNCG,CNCM,CNCM,CNC0,CNC0, 25-29 C «, t00=0x0006, t01=0x0156}
0x0ade…0af0 Head {h00=0x000e, h01=0x0050, text=» CNCR 30 «, t00=0x0006, t01=0x0182}
0x0af0…0b00 (7, 0, 400) Head {h00=0x000c, h01=0x0050, text=» B CNC0 «, t00=0x0007, t01=0x0004}
0x0b00…0b2e Head {h00=0x002a, h01=0x0050, text=»CNCM M=MESSAGE SPLIT,R/N=CONDFRM CH «, t00=0x0007, t01=0x0014}
0x0b2e…0b5e Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION«, t00=0x0007, t01=0x0042}
0x0b5e…0b92 Head {h00=0x0030, h01=0x0050, text=» MATCH WSTRG,DEBIN3,W1,VALSTR,W23,W1 M'...' «, t00=0x0007, t01=0x0072}
0x0b92…0ba8 Head {h00=0x0012, h01=0x0050, text=» BNOK CNC2 M99«, t00=0x0007, t01=0x00a6}
0x0ba8…0bb8 Head {h00=0x000c, h01=0x0050, text=» B CNCL «, t00=0x0007, t01=0x00bc}
0x0bb8…0bc6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00cc}
0x0bc6…0bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00da}
0x0bd0…0bf2 Head {h00=0x001e, h01=0x0050, text=»* CNC0 NO CONVERTION«, t00=0x0007, t01=0x00e4}
0x0bf2…0bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x0bfc…0c08 Head {h00=0x0008, h01=0x0050, text=»CNC0«, t00=0x0007, t01=0x0110}
0x0c08…0c46 Head {h00=0x003a, h01=0x0050, text=» CBNE DEBIN4,CHNUM(WIND),CN00 GO ON IF NOT END OF FUNC«, t00=0x0007, t01=0x011c}
0x0c46…0c68 Head {h00=0x001e, h01=0x0050, text=» B CNOK END OF FUNC FOUND «, t00=0x0007, t01=0x015a}
0x0c68…0c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x017c}
0x0c72…0ca0 Head {h00=0x002a, h01=0x0050, text=»* CNC1 CONVERT 1 BYTE TO BINARY «, t00=0x0007, t01=0x0186}
0x0ca0…0caa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0024}
0x0caa…0cb6 Head {h00=0x0008, h01=0x0050, text=»CNC1«, t00=0x0008, t01=0x002e}
0x0cb6…0ce0 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,W5 STARTPOS WORKITEM «, t00=0x0008, t01=0x003a}
0x0ce0…0d0e Head {h00=0x002a, h01=0x0050, text=» PERF CONV,WSTRG,W1 CONVERT TO BINARY «, t00=0x0008, t01=0x0064}
0x0d0e…0d42 Head {h00=0x0030, h01=0x0050, text=» SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION «, t00=0x0008, t01=0x0092}
0x0d42…0d64 Head {h00=0x001e, h01=0x0050, text=» B CNC0 CHECK END-OF-LINE «, t00=0x0008, t01=0x00c6}
0x0d64…0d72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00e8}
0x0d72…0d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d7c…0db0 Head {h00=0x0030, h01=0x0050, text=»* CNC2 CONVERTION OF 2 BYTES TO BINARY«, t00=0x0008, t01=0x0100}
0x0db0…0de0 Head {h00=0x002c, h01=0x0050, text=»* -M,-L,-A,-S,-T,-C «, t00=0x0008, t01=0x0134}
0x0de0…0dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0164}
0x0dea…0df6 Head {h00=0x0008, h01=0x0050, text=»CNC2«, t00=0x0008, t01=0x016e}
0x0df6…0e20 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,W4 STARTPOS WORKITEM «, t00=0x0008, t01=0x017a}
0x0e20…0e4e Head {h00=0x002a, h01=0x0050, text=» PERF CONV,WSTRG,W2 CONVERT TO BINARY «, t00=0x0009, t01=0x0014}
0x0e4e…0e82 Head {h00=0x0030, h01=0x0050, text=» SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION «, t00=0x0009, t01=0x0042}
0x0e82…0eae Head {h00=0x0028, h01=0x0050, text=» CBNE BIN16,W12,CNC0 JUMP IF NOT 'T'«, t00=0x0009, t01=0x0076}
0x0eae…0eee Head {h00=0x003c, h01=0x0050, text=» CBE DEBIN4,CHNUM(WIND),CNOKLB JUMP IF END OF LINE FOUND«, t00=0x0009, t01=0x00a2}
0x0eee…0f1a Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 LOAD WORKPOINTER«, t00=0x0009, t01=0x00e2}
0x0f1a…0f54 Head {h00=0x0036, h01=0x0050, text=» MATCH WSTRG,DEBIN3,W1,VALSTR,W18,W1 NEXT POS : ? «, t00=0x0009, t01=0x010e}
0x0f54…0f66 Head {h00=0x000e, h01=0x0050, text=» BNOK CN00«, t00=0x0009, t01=0x0148}
0x0f66…0f86 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x0009, t01=0x015a}
0x0f86…0fb0 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,W4 STARTPOS WORKITEM «, t00=0x0009, t01=0x017a}
0x0fb0…0fde Head {h00=0x002a, h01=0x0050, text=» PERF CONV,WSTRG,W2 CONVERT TO BINARY «, t00=0x000a, t01=0x0014}
0x0fde…1012 Head {h00=0x0030, h01=0x0050, text=» SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION «, t00=0x000a, t01=0x0042}
0x1012…1034 Head {h00=0x001e, h01=0x0050, text=» B CNC0 CHECK END-OF-LINE «, t00=0x000a, t01=0x0076}
0x1034…1042 Head {h00=0x000a, h01=0x0050, text=»CNOKLB«, t00=0x000a, t01=0x0098}
0x1042…1052 Head {h00=0x000c, h01=0x0050, text=» B CNOK «, t00=0x000a, t01=0x00a6}
0x1052…1060 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00b6}
0x1060…106a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00c4}
0x106a…10a8 Head {h00=0x003a, h01=0x0050, text=»* CNC3 CONVERTION OF 3 BYTES TO BINARY -D,-F,-G «, t00=0x000a, t01=0x00ce}
0x10a8…10b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x010c}
0x10b2…10be Head {h00=0x0008, h01=0x0050, text=»CNC3«, t00=0x000a, t01=0x0116}
0x10be…10ee Head {h00=0x002c, h01=0x0050, text=» CBNE BIN16,W5,CNC3A JUMP IF NOT = 5(D) «, t00=0x000a, t01=0x0122}
0x10ee…111e Head {h00=0x002c, h01=0x0050, text=» CBE WIND,W4,CNC0 JUMP IF D=DATUM(DUPL) «, t00=0x000a, t01=0x0152}
0x111e…112c Head {h00=0x000a, h01=0x0050, text=»CNC3A «, t00=0x000a, t01=0x0182}
0x112c…1136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0190}
0x1136…116c Head {h00=0x0032, h01=0x0050, text=»* CHECK IF RELATIVE SIGN + = /FF - = /FE«, t00=0x000b, t01=0x000a}
0x116c…1176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0040}
0x1176…11a4 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBIN3,W15 STARTPOS IN VALSTRING«, t00=0x000b, t01=0x004a}
0x11a4…11de Head {h00=0x0036, h01=0x0050, text=» MATCH VALSTR,DEBIN3,W2,WSTRG,DEBIN4,W1 REL SIGN ?«, t00=0x000b, t01=0x0078}
0x11de…1204 Head {h00=0x0022, h01=0x0050, text=» BNOK CNC3Z NO REL SIGN FOUND «, t00=0x000b, t01=0x00b2}
0x1204…1222 Head {h00=0x001a, h01=0x0050, text=» SUB DEBIN3,W15 ADJUST«, t00=0x000b, t01=0x00d8}
0x1222…1252 Head {h00=0x002c, h01=0x0050, text=» MOVE STR2A,=X'FFFE' `'+' AND '-' CODES «, t00=0x000b, t01=0x00f6}
0x1252…128e Head {h00=0x0038, h01=0x0050, text=» XCOPY WSTRG,DEBIN4,W1,STR2A,DEBIN3 INSERT SIGN-CODE«, t00=0x000b, t01=0x0126}
0x128e…12a4 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN4,W1«, t00=0x000b, t01=0x0162}
0x12a4…12ce Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,W4 STARTPOS WORKITEM «, t00=0x000b, t01=0x0178}
0x12ce…12fc Head {h00=0x002a, h01=0x0050, text=» PERF CONV,WSTRG,W2 CONVERT TO BINARY «, t00=0x000c, t01=0x0012}
0x12fc…1328 Head {h00=0x0028, h01=0x0050, text=» ADD DEBIN2,BIN10 GET DIRECT REF.NO «, t00=0x000c, t01=0x0040}
0x1328…1338 Head {h00=0x000c, h01=0x0050, text=» B CNC3X«, t00=0x000c, t01=0x006c}
0x1338…1346 Head {h00=0x000a, h01=0x0050, text=»CNC3Z «, t00=0x000c, t01=0x007c}
0x1346…1370 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,W3 STARTPOS WORKITEM «, t00=0x000c, t01=0x008a}
0x1370…139e Head {h00=0x002a, h01=0x0050, text=» PERF CONV,WSTRG,W3 CONVERT TO BINARY «, t00=0x000c, t01=0x00b4}
0x139e…13ac Head {h00=0x000a, h01=0x0050, text=»CNC3X «, t00=0x000c, t01=0x00e2}
0x13ac…13e0 Head {h00=0x0030, h01=0x0050, text=» SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION «, t00=0x000c, t01=0x00f0}
0x13e0…1420 Head {h00=0x003c, h01=0x0050, text=» CBNG DEBIN2,WORK(W6),CNC3B JUMP IF L HIGHST FIELD REF. «, t00=0x000c, t01=0x0124}
0x1420…145a Head {h00=0x0036, h01=0x0050, text=» MOVE WORK(W6),DEBIN2 SAVE HIGHEST FIELD REF. NO. «, t00=0x000c, t01=0x0164}
0x145a…1468 Head {h00=0x000a, h01=0x0050, text=»CNC3B «, t00=0x000d, t01=0x000e}
0x1468…148a Head {h00=0x001e, h01=0x0050, text=» B CNC0 CHECK END-OF-LINE «, t00=0x000d, t01=0x001c}
0x148a…1498 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x003e}
0x1498…14a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x004c}
0x14a2…14ca Head {h00=0x0024, h01=0x0050, text=»* CNCL CONVERT TO LITERAL «, t00=0x000d, t01=0x0056}
0x14ca…14d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x007e}
0x14d4…14e0 Head {h00=0x0008, h01=0x0050, text=»CNCL«, t00=0x000d, t01=0x0088}
0x14e0…150c Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS«, t00=0x000d, t01=0x0094}
0x150c…152c Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x000d, t01=0x00c0}
0x152c…155c Head {h00=0x002c, h01=0x0050, text=» SUB DEBIN2,DEBIN4 NUMB OF CHRS TO MATCH«, t00=0x000d, t01=0x00e0}
0x155c…158a Head {h00=0x002a, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH «, t00=0x000d, t01=0x0110}
0x158a…15c6 Head {h00=0x0038, h01=0x0050, text=» MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,W23,W1 MATCH NEXT'«, t00=0x000d, t01=0x013e}
0x15c6…15f4 Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN3,DEBIN4 =NUMB OF LIT-CHARS «, t00=0x000d, t01=0x017a}
0x15f4…161a Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN2,W128 1ST BIT = 1 «, t00=0x000e, t01=0x0018}
0x161a…1648 Head {h00=0x002a, h01=0x0050, text=» ADD DEBIN2,DEBIN3 +LENGTH OF LITERAL «, t00=0x000e, t01=0x003e}
0x1648…167c Head {h00=0x0030, h01=0x0050, text=» SUB DEBIN4,W1 ADJUST FOR OVERWRITE POSITION«, t00=0x000e, t01=0x006c}
0x167c…16b4 Head {h00=0x0034, h01=0x0050, text=» XCOPY WSTRG,DEBIN4,W1,DEBIN2,W1 'L'='80'+LENGTH«, t00=0x000e, t01=0x00a0}
0x16b4…16de Head {h00=0x0026, h01=0x0050, text=» ADD DEBIN4,DEBIN3 ADJUST NEXT POS«, t00=0x000e, t01=0x00d8}
0x16de…16fe Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x000e, t01=0x0102}
0x16fe…172a Head {h00=0x0028, h01=0x0050, text=» DLETE WSTRG,DEBIN4,W1 DELETE 2ND ' «, t00=0x000e, t01=0x0122}
0x172a…1764 Head {h00=0x0036, h01=0x0050, text=» SUB CHNUM(WIND),W1 ADJUST LENGTH FOR DELETED CHAR«, t00=0x000e, t01=0x014e}
0x1764…1794 Head {h00=0x002c, h01=0x0050, text=» ADD DEBIN5,W1 NUMB OF DELETED CHARCTERS«, t00=0x000e, t01=0x0188}
0x1794…17aa Head {h00=0x0012, h01=0x0050, text=» B CNC0 GO ON «, t00=0x000f, t01=0x0028}
0x17aa…17b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x003e}
0x17b4…17ee Head {h00=0x0036, h01=0x0050, text=»* CNCA CONVERT FOR CONDITIONAL ACCUMULATION «, t00=0x000f, t01=0x0048}
0x17ee…17f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0082}
0x17f8…1810 Head {h00=0x0014, h01=0x0050, text=»CNCA 'A'-FOUND«, t00=0x000f, t01=0x008c}
0x1810…183a Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 SAVE CURR POS «, t00=0x000f, t01=0x00a4}
0x183a…186a Head {h00=0x002c, h01=0x0050, text=» MATCH WSTRG,DEBIN3,W1,VALSTR,W29,W1 (-?«, t00=0x000f, t01=0x00ce}
0x186a…1896 Head {h00=0x0028, h01=0x0050, text=» BNOK CNC2 JUMP IF USUAL ACCUMULATOR«, t00=0x000f, t01=0x00fe}
0x1896…18c0 Head {h00=0x0026, h01=0x0050, text=» B CNCX JUMP IF COND ACCUMULATION «, t00=0x000f, t01=0x012a}
0x18c0…18ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0154}
0x18ca…1902 Head {h00=0x0034, h01=0x0050, text=»* CNCG CONVERT FOR CONDITIONAL GENERATION «, t00=0x000f, t01=0x015e}
0x1902…190c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0008}
0x190c…1924 Head {h00=0x0014, h01=0x0050, text=»CNCG 'G'-FOUND«, t00=0x0010, t01=0x0012}
0x1924…194e Head {h00=0x0026, h01=0x0050, text=» CBNE WIND,W2,CNC3 JUMP IF NOT GEN«, t00=0x0010, t01=0x002a}
0x194e…195a Head {h00=0x0008, h01=0x0050, text=»CNCX«, t00=0x0010, t01=0x0054}
0x195a…1986 Head {h00=0x0028, h01=0x0050, text=» SUB DEBIN4,W1 ADJUST FOR CONVERTION«, t00=0x0010, t01=0x0060}
0x1986…19b6 Head {h00=0x002c, h01=0x0050, text=» XCOPY WSTRG,DEBIN4,W1,VALSTR,W0 G/A=>M «, t00=0x0010, t01=0x008c}
0x19b6…19d6 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x0010, t01=0x00bc}
0x19d6…19fe Head {h00=0x0024, h01=0x0050, text=» MOVE WORK(W8),DEBIN4 SAVE (-POS«, t00=0x0010, t01=0x00dc}
0x19fe…1a2a Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS«, t00=0x0010, t01=0x0104}
0x1a2a…1a5c Head {h00=0x002e, h01=0x0050, text=» SUB DEBIN2,DEBIN4 NUMB OF CHARS TO MATCH «, t00=0x0010, t01=0x0130}
0x1a5c…1a8a Head {h00=0x002a, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH «, t00=0x0010, t01=0x0162}
0x1a8a…1aa4 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN16,=W'30'«, t00=0x0010, t01=0x0190}
0x1aa4…1ad6 Head {h00=0x002e, h01=0x0050, text=» MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,BIN16,W1«, t00=0x0011, t01=0x001a}
0x1ad6…1afe Head {h00=0x0024, h01=0x0050, text=» MOVE WORK(W9),DEBIN3 SAVE)-POS «, t00=0x0011, t01=0x004c}
0x1afe…1b1e Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x0011, t01=0x0074}
0x1b1e…1b4c Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN3,DEBIN4 =NUMB OF LIT CHARS «, t00=0x0011, t01=0x0094}
0x1b4c…1b7c Head {h00=0x002c, h01=0x0050, text=» MOVE WORK(W7),DEBIN3 SAVE (...)-LENGTH «, t00=0x0011, t01=0x00c2}
0x1b7c…1b92 Head {h00=0x0012, h01=0x0050, text=» B CNC0 GO ON «, t00=0x0011, t01=0x00f2}
0x1b92…1ba0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0108}
0x1ba0…1baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0116}
0x1baa…1bd6 Head {h00=0x0028, h01=0x0050, text=»* CNCR RIGHT PARENTHESIS FOUND«, t00=0x0011, t01=0x0120}
0x1bd6…1be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x014c}
0x1be0…1bec Head {h00=0x0008, h01=0x0050, text=»CNCR«, t00=0x0011, t01=0x0156}
0x1bec…1c18 Head {h00=0x0028, h01=0x0050, text=» SUB DEBIN4,W1 ADJUST FOR DEL )-CHAR«, t00=0x0011, t01=0x0162}
0x1c18…1c40 Head {h00=0x0024, h01=0x0050, text=» SUB WORK(W9),DEBIN4 =DIFFERENCE«, t00=0x0011, t01=0x018e}
0x1c40…1c6c Head {h00=0x0028, h01=0x0050, text=» SUB WORK(W7),WORK(W9) =REAL LENGTH «, t00=0x0012, t01=0x0026}
0x1c6c…1c92 Head {h00=0x0022, h01=0x0050, text=» ADD WORK(W7),W128 1ST BIT = 1«, t00=0x0012, t01=0x0052}
0x1c92…1ccc Head {h00=0x0036, h01=0x0050, text=» XCOPY WSTRG,WORK(W8),W1,WORK(W7),W1 (...)-LENGTH «, t00=0x0012, t01=0x0078}
0x1ccc…1cfa Head {h00=0x002a, h01=0x0050, text=» DLETE WSTRG,DEBIN4,W1 DELETE )-CHARS «, t00=0x0012, t01=0x00b2}
0x1cfa…1d24 Head {h00=0x0026, h01=0x0050, text=» SUB CHNUM(WIND),W1 ADJUST ENDPOS «, t00=0x0012, t01=0x00e0}
0x1d24…1d54 Head {h00=0x002c, h01=0x0050, text=» ADD DEBIN5,W1 ADJUST NUMB OF DEL CHARS «, t00=0x0012, t01=0x010a}
0x1d54…1d6a Head {h00=0x0012, h01=0x0050, text=» B CNC0 GO ON «, t00=0x0012, t01=0x013a}
0x1d6a…1d78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0150}
0x1d78…1d84 Head {h00=0x0008, h01=0x0050, text=»CNOK«, t00=0x0012, t01=0x015e}
0x1d84…1db6 Head {h00=0x002e, h01=0x0050, text=» MOVE BIN15,CHNUM(WIND) STORE ENDPOSITION «, t00=0x0012, t01=0x016a}
0x1db6…1de6 Head {h00=0x002c, h01=0x0050, text=» SUB BIN15,DEBIN1 SUBTRACT STARTPOSITION«, t00=0x0013, t01=0x000c}
0x1de6…1e1a Head {h00=0x0030, h01=0x0050, text=» MOVE CHNUM(WIND),BIN15 GIVING NUMB OF CHARS«, t00=0x0013, t01=0x003c}
0x1e1a…1e26 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x0070}
0x1e26…1e34 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x007c}
0x1e34…1e42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x008a}
0x1e42…1e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0098}
0x1e4c…1e88 Head {h00=0x0038, h01=0x0050, text=»* CONVERTS NUMERIC STRINGCHARACTERS TO BINARY «, t00=0x0013, t01=0x00a2}
0x1e88…1e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00de}
0x1e92…1ee0 Head {h00=0x004a, h01=0x0050, text=»* INPUT VARIABLES : NUMB(F) = NUMBER OF CHARACTERS TO CONVERT «, t00=0x0013, t01=0x00e8}
0x1ee0…1f2e Head {h00=0x004a, h01=0x0050, text=»* DEBIN3 = STARTPOS IN WORKITEM FOR 'XCOPY' «, t00=0x0013, t01=0x0136}
0x1f2e…1f7c Head {h00=0x004a, h01=0x0050, text=»* WSTRG = ACTUAL WORKSTRING VAL/GEN OR ACC «, t00=0x0013, t01=0x0184}
0x1f7c…1f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0042}
0x1f86…1fd2 Head {h00=0x0048, h01=0x0050, text=»* WORK ITEMS : DEBIN2 = CONVERTED NUMERIC VALUE BINARY «, t00=0x0014, t01=0x004c}
0x1fd2…201a Head {h00=0x0044, h01=0x0050, text=»* BCD13A = CONVERTED NUMERIC VALUE BCD«, t00=0x0014, t01=0x0098}
0x201a…205a Head {h00=0x003c, h01=0x0050, text=»* STR6A = NUMERIC VALUE STRG «, t00=0x0014, t01=0x00e0}
0x205a…2064 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0120}
0x2064…20a2 Head {h00=0x003a, h01=0x0050, text=»* OUTPUT VARIABLES : DEBIN4 = POINTER ADJUSTED «, t00=0x0014, t01=0x012a}
0x20a2…20e4 Head {h00=0x003e, h01=0x0050, text=»* DEBIN5 = NUMB OF DELETED CHARS«, t00=0x0014, t01=0x0168}
0x20e4…2134 Head {h00=0x004c, h01=0x0050, text=»* WSTRG = WORKBUFFER WITH CONVERTED CHARACTER«, t00=0x0015, t01=0x001a}
0x2134…2176 Head {h00=0x003e, h01=0x0050, text=»* DEBIN3 = NUMB OF DELETED CHARS«, t00=0x0015, t01=0x006a}
0x2176…21c2 Head {h00=0x0048, h01=0x0050, text=»* DEBIN2 = CONVERTED NUMERIC VALUE BINARY «, t00=0x0015, t01=0x00ac}
0x21c2…21cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f8}
0x21cc…221c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0015, t01=0x0102}
0x221c…2238 Head {h00=0x0018, h01=0x0050, text=»CONV PROC WSTRG,NUMB«, t00=0x0015, t01=0x0152}
0x2238…2272 Head {h00=0x0036, h01=0x0050, text=» XCOPY STR6A,DEBIN3,NUMB,WSTRG,DEBIN4 COPY STRGNUM«, t00=0x0015, t01=0x016e}
0x2272…229a Head {h00=0x0024, h01=0x0050, text=» MOVE BCD13A,STR6A LOAD STR=>BCD«, t00=0x0016, t01=0x0018}
0x229a…22c4 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN2,BCD13A LOAD BCD=>BIN «, t00=0x0016, t01=0x0040}
0x22c4…22fe Head {h00=0x0036, h01=0x0050, text=» XCOPY WSTRG,DEBIN4,W1,DEBIN2,W1 LOAD VARNR BINARY«, t00=0x0016, t01=0x006a}
0x22fe…2336 Head {h00=0x0034, h01=0x0050, text=» MOVE DEBIN3,NUMB STORE NUMB CONVRTD CHARACTERS «, t00=0x0016, t01=0x00a4}
0x2336…234c Head {h00=0x0012, h01=0x0050, text=» SUB DEBIN3,W1«, t00=0x0016, t01=0x00dc}
0x234c…236c Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x0016, t01=0x00f2}
0x236c…23a6 Head {h00=0x0036, h01=0x0050, text=» DLETE WSTRG,DEBIN4,DEBIN3 DELETE ALPHA CHARACTERS«, t00=0x0016, t01=0x0112}
0x23a6…23ca Head {h00=0x0020, h01=0x0050, text=» ADD DEBIN5,DEBIN3 NEXT POS «, t00=0x0016, t01=0x014c}
0x23ca…23d6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0170}
0x23d6…23e4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x017c}
0x23e4…23f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x018a}
0x23f2…23fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0008}
0x23fc…2436 Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE CONVERTS BINARY NUMERICALS TO«, t00=0x0017, t01=0x0012}
0x2436…2464 Head {h00=0x002a, h01=0x0050, text=»* ALPHANUMERIC STRING CHARACTERS«, t00=0x0017, t01=0x004c}
0x2464…246e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007a}
0x246e…24b6 Head {h00=0x0044, h01=0x0050, text=»* FORMAL PARAMETER : WSTRG = JOBSPC (VALIDATION STRING)«, t00=0x0017, t01=0x0084}
0x24b6…24fe Head {h00=0x0044, h01=0x0050, text=»* = DUPL (DUPLICATION STRING)«, t00=0x0017, t01=0x00cc}
0x24fe…2538 Head {h00=0x0036, h01=0x0050, text=»* OPT = 1 = VALIDITION«, t00=0x0017, t01=0x0114}
0x2538…2572 Head {h00=0x0036, h01=0x0050, text=»* = 2 = GENERATION«, t00=0x0017, t01=0x014e}
0x2572…25ae Head {h00=0x0038, h01=0x0050, text=»* = 3 = ACCUMULATION«, t00=0x0017, t01=0x0188}
0x25ae…25ea Head {h00=0x0038, h01=0x0050, text=»* = 4 = DUPLICATION «, t00=0x0018, t01=0x0034}
0x25ea…25f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0070}
0x25f4…2634 Head {h00=0x003c, h01=0x0050, text=»* INPUT VARIABLES : BIN15 = LENGTH OF FUNC-CODE «, t00=0x0018, t01=0x007a}
0x2634…2672 Head {h00=0x003a, h01=0x0050, text=»* DEBIN3 = POINTER TO WSTRG «, t00=0x0018, t01=0x00ba}
0x2672…26be Head {h00=0x0048, h01=0x0050, text=»* FBIN1 = NUMBER OF CONVERTED CHARACTERS «, t00=0x0018, t01=0x00f8}
0x26be…26c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0144}
0x26c8…2704 Head {h00=0x0038, h01=0x0050, text=»* USED VARIABLES : BIN16 = MATCHINGPOINTER «, t00=0x0018, t01=0x014e}
0x2704…2736 Head {h00=0x002e, h01=0x0050, text=»* DEBIN1 = WORK «, t00=0x0018, t01=0x018a}
0x2736…2786 Head {h00=0x004c, h01=0x0050, text=»* DEBIN2 = LENGTH OF MATCHSTRING (VALSTR = 31)«, t00=0x0019, t01=0x002c}
0x2786…27c4 Head {h00=0x003a, h01=0x0050, text=»* DEBIN4 = BINARY NUMERICALS«, t00=0x0019, t01=0x007c}
0x27c4…280a Head {h00=0x0042, h01=0x0050, text=»* FBIN1 = CHECK END OF OF FUNC-CODE«, t00=0x0019, t01=0x00ba}
0x280a…2854 Head {h00=0x0046, h01=0x0050, text=»* WORK(W7)= LENGTH/ENDPOS COND. GEN/ACC «, t00=0x0019, t01=0x0100}
0x2854…285e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014a}
0x285e…2894 Head {h00=0x0032, h01=0x0050, text=»* OUTPUT VARIABLES : WSTRG = CONVERTED «, t00=0x0019, t01=0x0154}
0x2894…28e0 Head {h00=0x0048, h01=0x0050, text=»* BIN15 = ADJUSTED ACCORDING TO CONVERTED «, t00=0x0019, t01=0x018a}
0x28e0…2916 Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS«, t00=0x001a, t01=0x0046}
0x2916…2964 Head {h00=0x004a, h01=0x0050, text=»* CURSEC= ADJUSTED WITH INPUT VALUE OF BIN15«, t00=0x001a, t01=0x007c}
0x2964…296e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00ca}
0x296e…29be Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001a, t01=0x00d4}
0x29be…29c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0124}
0x29c8…29d6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x012e}
0x29d6…29f4 Head {h00=0x001a, h01=0x0050, text=»BINCON PROC WSTRG,OPT «, t00=0x001a, t01=0x013c}
0x29f4…2a3c Head {h00=0x0044, h01=0x0050, text=» XCOPY WSTRG,DEBIN3,BIN15,BPOOL(PINDCB),CURSEC STORE WORKSTRING «, t00=0x001a, t01=0x015a}
0x2a3c…2a6e Head {h00=0x002e, h01=0x0050, text=» MOVE DEBIN2,=W'31' LOAD LENGTH OF VALSTR «, t00=0x001b, t01=0x0012}
0x2a6e…2a98 Head {h00=0x0026, h01=0x0050, text=» ADD CURSEC,BIN15 ADJUST FOR CHARS«, t00=0x001b, t01=0x0044}
0x2a98…2abe Head {h00=0x0022, h01=0x0050, text=» CBE OPT,W4,BN00 JUMP IF DUPL «, t00=0x001b, t01=0x006e}
0x2abe…2ae8 Head {h00=0x0026, h01=0x0050, text=» ADD BIN15,W3 ADJUST FOR FUNC.TEXT«, t00=0x001b, t01=0x0094}
0x2ae8…2b16 Head {h00=0x002a, h01=0x0050, text=» CLEAR BOOL4 F=NO CONDITIONAL GEN/ACC «, t00=0x001b, t01=0x00be}
0x2b16…2b22 Head {h00=0x0008, h01=0x0050, text=»BN00«, t00=0x001b, t01=0x00ec}
0x2b22…2b4c Head {h00=0x0026, h01=0x0050, text=» MOVE BIN16,W0 MATCHINGPOINTER :=0«, t00=0x001b, t01=0x00f8}
0x2b4c…2b78 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN4,W0 BINARY NUMERICALS:=0«, t00=0x001b, t01=0x0122}
0x2b78…2bba Head {h00=0x003e, h01=0x0050, text=» MATCH VALSTR,BIN16,DEBIN2,WSTRG,DEBIN3,W1 MATCH CHARACTER«, t00=0x001b, t01=0x014e}
0x2bba…2be4 Head {h00=0x0026, h01=0x0050, text=» CBE BIN16,W0,BNME JUMP IF MESSAGE«, t00=0x001b, t01=0x0190}
0x2be4…2c10 Head {h00=0x0028, h01=0x0050, text=» IB BIN16,BNC0,BNC0,BNC0,BNC0, 1-4 C«, t00=0x001c, t01=0x002a}
0x2c10…2c3a Head {h00=0x0026, h01=0x0050, text=» BNC3,BNC2,BNC0,BNC2,BNC2, 5-9 C «, t00=0x001c, t01=0x0056}
0x2c3a…2c66 Head {h00=0x0028, h01=0x0050, text=» BNC1,BNC3,BNC2,BNC2,BNC0, 10-14 C «, t00=0x001c, t01=0x0080}
0x2c66…2c92 Head {h00=0x0028, h01=0x0050, text=» BNC0,BNC0,BNC0,BNC0,BNC0, 15-19 C «, t00=0x001c, t01=0x00ac}
0x2c92…2cbe Head {h00=0x0028, h01=0x0050, text=» BNC0,BNC0,BNC0,BNCR,BNC0, 20-24 C «, t00=0x001c, t01=0x00d8}
0x2cbe…2ce2 Head {h00=0x0020, h01=0x0050, text=» BNC3,BNME,BNME,BNC0 25-28 «, t00=0x001c, t01=0x0104}
0x2ce2…2cf0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0128}
0x2cf0…2cfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0136}
0x2cfa…2d1a Head {h00=0x001c, h01=0x0050, text=»* CHECK IF LITERAL«, t00=0x001c, t01=0x0140}
0x2d1a…2d24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0160}
0x2d24…2d56 Head {h00=0x002e, h01=0x0050, text=» XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 GET BYTE «, t00=0x001c, t01=0x016a}
0x2d56…2d84 Head {h00=0x002a, h01=0x0050, text=» CBG DEBIN4,W128,BNCL JUMP IF LITERAL «, t00=0x001d, t01=0x000c}
0x2d84…2d9a Head {h00=0x0012, h01=0x0050, text=» B BNCR RETUR «, t00=0x001d, t01=0x003a}
0x2d9a…2da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0050}
0x2da4…2dde Head {h00=0x0036, h01=0x0050, text=»* CHECK MESSAGE TYPE AND CONDITIONAL GEN/ACC«, t00=0x001d, t01=0x005a}
0x2dde…2de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0094}
0x2de8…2df4 Head {h00=0x0008, h01=0x0050, text=»BNME«, t00=0x001d, t01=0x009e}
0x2df4…2e12 Head {h00=0x001a, h01=0x0050, text=» IB OPT,BNMS,BNMG,BNMA«, t00=0x001d, t01=0x00aa}
0x2e12…2e1e Head {h00=0x0008, h01=0x0050, text=»BNMS«, t00=0x001d, t01=0x00c8}
0x2e1e…2e3e Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x001d, t01=0x00d4}
0x2e3e…2e6c Head {h00=0x002a, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x001d, t01=0x00f4}
0x2e6c…2ea6 Head {h00=0x0036, h01=0x0050, text=» XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 GET MESSAGE TYPE «, t00=0x001d, t01=0x0122}
0x2ea6…2ed4 Head {h00=0x002a, h01=0x0050, text=» CBG DEBIN4,W128,BNCL JUMP IF M'.....'«, t00=0x001d, t01=0x015c}
0x2ed4…2f06 Head {h00=0x002e, h01=0x0050, text=» SUB DEBIN3,W1 ADJUST FOR 2CHAR-CONVERTION«, t00=0x001d, t01=0x018a}
0x2f06…2f34 Head {h00=0x002a, h01=0x0050, text=» SUB FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x001e, t01=0x002c}
0x2f34…2f48 Head {h00=0x0010, h01=0x0050, text=» B BNC2 M99 «, t00=0x001e, t01=0x005a}
0x2f48…2f56 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x006e}
0x2f56…2f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x007c}
0x2f60…2f84 Head {h00=0x0020, h01=0x0050, text=»* CONVERT 1 CHARACTER «, t00=0x001e, t01=0x0086}
0x2f84…2f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00aa}
0x2f8e…2f9a Head {h00=0x0008, h01=0x0050, text=»BNC1«, t00=0x001e, t01=0x00b4}
0x2f9a…2fca Head {h00=0x002c, h01=0x0050, text=» PERF CONBIN,WSTRG,W1 CONVERT BIN=>STRG «, t00=0x001e, t01=0x00c0}
0x2fca…2fd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f0}
0x2fd4…2ff8 Head {h00=0x0020, h01=0x0050, text=»* CONVERT NO CHARCTER«, t00=0x001e, t01=0x00fa}
0x2ff8…3002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x011e}
0x3002…300e Head {h00=0x0008, h01=0x0050, text=»BNC0«, t00=0x001e, t01=0x0128}
0x300e…302e Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x001e, t01=0x0134}
0x302e…305c Head {h00=0x002a, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x001e, t01=0x0154}
0x305c…308c Head {h00=0x002c, h01=0x0050, text=» TBF BOOL4,BNCA JUMP IF NO COND GEN/ACC «, t00=0x001e, t01=0x0182}
0x308c…30c6 Head {h00=0x0036, h01=0x0050, text=» CBNE WORK(W7),DEBIN3,BNCA JUMP IF ENDPOS OF COND «, t00=0x001f, t01=0x0022}
0x30c6…30e2 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,=W'30' «, t00=0x001f, t01=0x005c}
0x30e2…3118 Head {h00=0x0032, h01=0x0050, text=» INSRT WSTRG,DEBIN3,W1,VALSTR,DEBIN1 INSERT ) «, t00=0x001f, t01=0x0078}
0x3118…3138 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x001f, t01=0x00ae}
0x3138…3168 Head {h00=0x002c, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMBER OF CONVERTED«, t00=0x001f, t01=0x00ce}
0x3168…318c Head {h00=0x0020, h01=0x0050, text=» ADD BIN15,W1 ADJUST LENGTH «, t00=0x001f, t01=0x00fe}
0x318c…31b2 Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL4 F=NO COND GEN/ACC«, t00=0x001f, t01=0x0122}
0x31b2…31be Head {h00=0x0008, h01=0x0050, text=»BNCA«, t00=0x001f, t01=0x0148}
0x31be…31f2 Head {h00=0x0030, h01=0x0050, text=» CBE BIN15,FBIN1,BNCR JUMP IF END-OF-STRING «, t00=0x001f, t01=0x0154}
0x31f2…3208 Head {h00=0x0012, h01=0x0050, text=» B BN00 GO ON «, t00=0x001f, t01=0x0188}
0x3208…3216 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x000e}
0x3216…3220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x001c}
0x3220…3246 Head {h00=0x0022, h01=0x0050, text=»* CONVERT 2 CHARACTERS «, t00=0x0020, t01=0x0026}
0x3246…3250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x004c}
0x3250…325c Head {h00=0x0008, h01=0x0050, text=»BNC2«, t00=0x0020, t01=0x0056}
0x325c…328c Head {h00=0x002c, h01=0x0050, text=» PERF CONBIN,WSTRG,W2 CONVERT BIN=>STRG «, t00=0x0020, t01=0x0062}
0x328c…32b8 Head {h00=0x0028, h01=0x0050, text=» CBNE BIN16,W12,BNC0 JUMP IF NOT 'T'«, t00=0x0020, t01=0x0092}
0x32b8…32d8 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x0020, t01=0x00be}
0x32d8…3306 Head {h00=0x002a, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x0020, t01=0x00de}
0x3306…333a Head {h00=0x0030, h01=0x0050, text=» CBE BIN15,FBIN1,BNCR JUMP IF END-OF STRING «, t00=0x0020, t01=0x010c}
0x333a…3356 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,DEBIN3 «, t00=0x0020, t01=0x0140}
0x3356…338e Head {h00=0x0034, h01=0x0050, text=» MATCH WSTRG,DEBIN1,W1,VALSTR,W18,W1 NEXT POS : «, t00=0x0020, t01=0x015c}
0x338e…33b4 (33, 0, 400) Head {h00=0x0022, h01=0x0050, text=» BNOK BN00 GO MATCH CHARACTER «, t00=0x0021, t01=0x0004}
0x33b4…33e4 Head {h00=0x002c, h01=0x0050, text=» PERF CONBIN,WSTRG,W2 CONVERT BIN=>STRG «, t00=0x0021, t01=0x002a}
0x33e4…33f4 Head {h00=0x000c, h01=0x0050, text=» B BNC0 «, t00=0x0021, t01=0x005a}
0x33f4…33fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x006a}
0x33fe…3422 Head {h00=0x0020, h01=0x0050, text=»* CONVERT 3 CHARACTERS«, t00=0x0021, t01=0x0074}
0x3422…342c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0098}
0x342c…3438 Head {h00=0x0008, h01=0x0050, text=»BNC3«, t00=0x0021, t01=0x00a2}
0x3438…3464 Head {h00=0x0028, h01=0x0050, text=» CBNE BIN16,W5,BNC3A JUMP IF NOT (D)«, t00=0x0021, t01=0x00ae}
0x3464…3494 Head {h00=0x002c, h01=0x0050, text=» CBE BIN15,W1,BNC0 JUMP IF 1 CH =D=DATUM«, t00=0x0021, t01=0x00da}
0x3494…34a2 Head {h00=0x000a, h01=0x0050, text=»BNC3A «, t00=0x0021, t01=0x010a}
0x34a2…34c2 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x0021, t01=0x0118}
0x34c2…34f6 Head {h00=0x0030, h01=0x0050, text=» MOVE STR2A,=X'FFFE' LOAD '+' AND '-' -CODES«, t00=0x0021, t01=0x0138}
0x34f6…3522 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN1,W0 LOAD WORKPOINTER:=0 «, t00=0x0021, t01=0x016c}
0x3522…3564 Head {h00=0x003e, h01=0x0050, text=» MATCH STR2A,DEBIN1,W2,WSTRG,DEBIN3,W1 LOOK FOR REL SIGNS «, t00=0x0022, t01=0x0008}
0x3564…358a Head {h00=0x0022, h01=0x0050, text=» BNOK BNC3B NO REL SIGNS FOUND«, t00=0x0022, t01=0x004a}
0x358a…35bc Head {h00=0x002e, h01=0x0050, text=» ADD DEBIN1,W15 ADJUST FOR VALSTRPOSITION «, t00=0x0022, t01=0x0070}
0x35bc…3600 Head {h00=0x0040, h01=0x0050, text=» XCOPY WSTRG,DEBIN3,W1,VALSTR,DEBIN1 CONVERT TO SOURCE-SIGN «, t00=0x0022, t01=0x00a2}
0x3600…362e Head {h00=0x002a, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x0022, t01=0x00e6}
0x362e…3652 Head {h00=0x0020, h01=0x0050, text=» B BNC2 CONVERT 2 CHARACTERS«, t00=0x0022, t01=0x0114}
0x3652…3660 Head {h00=0x000a, h01=0x0050, text=»BNC3B «, t00=0x0022, t01=0x0138}
0x3660…368c Head {h00=0x0028, h01=0x0050, text=» SUB DEBIN3,W1 ADJUST FOR CONVERTION«, t00=0x0022, t01=0x0146}
0x368c…36bc Head {h00=0x002c, h01=0x0050, text=» PERF CONBIN,WSTRG,W3 CONVERT BIN=>STRG «, t00=0x0022, t01=0x0172}
0x36bc…36cc Head {h00=0x000c, h01=0x0050, text=» B BNC0 «, t00=0x0023, t01=0x0012}
0x36cc…36da Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0022}
0x36da…36e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0030}
0x36e4…3714 Head {h00=0x002c, h01=0x0050, text=»* CONVERT LITERAL (INSERT '....') «, t00=0x0023, t01=0x003a}
0x3714…371e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x006a}
0x371e…372a Head {h00=0x0008, h01=0x0050, text=»BNCL«, t00=0x0023, t01=0x0074}
0x372a…3758 Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN4,W128 GET LENGTH OF LITERAL«, t00=0x0023, t01=0x0080}
0x3758…378e Head {h00=0x0032, h01=0x0050, text=» XCOPY WSTRG,DEBIN3,W1,VALSTR,W23 INSERT 1ST '«, t00=0x0023, t01=0x00ae}
0x378e…37c2 Head {h00=0x0030, h01=0x0050, text=» ADD DEBIN3,DEBIN4 ADJUST BUFPOS WITH LENGTH«, t00=0x0023, t01=0x00e4}
0x37c2…37e2 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x0023, t01=0x0118}
0x37e2…3812 Head {h00=0x002c, h01=0x0050, text=» ADD FBIN1,DEBIN4 ADJUST CHARC CONVERTED«, t00=0x0023, t01=0x0138}
0x3812…3840 Head {h00=0x002a, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x0023, t01=0x0168}
0x3840…3876 Head {h00=0x0032, h01=0x0050, text=» INSRT WSTRG,DEBIN3,W1,VALSTR,W23 INSERT 2ND '«, t00=0x0024, t01=0x0008}
0x3876…389a Head {h00=0x0020, h01=0x0050, text=» ADD BIN15,W1 ADJUST LENGTH «, t00=0x0024, t01=0x003e}
0x389a…38ca Head {h00=0x002c, h01=0x0050, text=» TBF BOOL4,BNC0 GO ON IF NO COND GEN ACC«, t00=0x0024, t01=0x0062}
0x38ca…3902 Head {h00=0x0034, h01=0x0050, text=» ADD WORK(W7),W1 ADJUST ENDPOS FOR COND GEN/ACC «, t00=0x0024, t01=0x0092}
0x3902…3912 Head {h00=0x000c, h01=0x0050, text=» B BNC0 «, t00=0x0024, t01=0x00ca}
0x3912…3920 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x00da}
0x3920…393e Head {h00=0x001a, h01=0x0050, text=»BNMG COND GEN FOUND «, t00=0x0024, t01=0x00e8}
0x393e…3956 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W25«, t00=0x0024, t01=0x0106}
0x3956…3966 Head {h00=0x000c, h01=0x0050, text=» B BNMC «, t00=0x0024, t01=0x011e}
0x3966…3984 Head {h00=0x001a, h01=0x0050, text=»BNMA COND ACC FOUND «, t00=0x0024, t01=0x012e}
0x3984…399c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W8 «, t00=0x0024, t01=0x014c}
0x399c…39a8 Head {h00=0x0008, h01=0x0050, text=»BNMC«, t00=0x0024, t01=0x0164}
0x39a8…39e4 Head {h00=0x0038, h01=0x0050, text=» XCOPY WSTRG,DEBIN3,W1,VALSTR,DEBIN1 CONVERT M=>G/A «, t00=0x0024, t01=0x0170}
0x39e4…3a04 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x0025, t01=0x001c}
0x3a04…3a2e Head {h00=0x0026, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONV «, t00=0x0025, t01=0x003c}
0x3a2e…3a58 Head {h00=0x0026, h01=0x0050, text=» MOVE WORK(W7),W0 (...)-LENGTH:=0 «, t00=0x0025, t01=0x0066}
0x3a58…3a82 Head {h00=0x0026, h01=0x0050, text=» XCOPY WORK(W7),W1,W1,WSTRG,DEBIN3«, t00=0x0025, t01=0x0090}
0x3a82…3ab8 Head {h00=0x0032, h01=0x0050, text=» SUB WORK(W7),W128 GET LENGTH 0F (...)-STRING «, t00=0x0025, t01=0x00ba}
0x3ab8…3af0 Head {h00=0x0034, h01=0x0050, text=» XCOPY WSTRG,DEBIN3,W1,VALSTR,W29 =>(-CHARACTER «, t00=0x0025, t01=0x00f0}
0x3af0…3b20 Head {h00=0x002c, h01=0x0050, text=» ADD WORK(W7),DEBIN3 ENDPOS (...)-STRING«, t00=0x0025, t01=0x0128}
0x3b20…3b44 Head {h00=0x0020, h01=0x0050, text=» ADD WORK(W7),W1 ADJUST DITO«, t00=0x0025, t01=0x0158}
0x3b44…3b72 Head {h00=0x002a, h01=0x0050, text=» SET BOOL4 T=CONDITIONAL GEN/ACC FOUND«, t00=0x0025, t01=0x017c}
0x3b72…3b88 Head {h00=0x0012, h01=0x0050, text=» B BNC0 GO ON «, t00=0x0026, t01=0x001a}
0x3b88…3b94 Head {h00=0x0008, h01=0x0050, text=»BNCR«, t00=0x0026, t01=0x0030}
0x3b94…3ba0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x003c}
0x3ba0…3bae Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x0048}
0x3bae…3bbc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x0056}
0x3bbc…3bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0064}
0x3bc6…3c0c Head {h00=0x0042, h01=0x0050, text=»* CONVERT BINARY NUMERICALS ,FROM ACTUAL POINT IN BUFFER«, t00=0x0026, t01=0x006e}
0x3c0c…3c50 Head {h00=0x0040, h01=0x0050, text=»* TO ALPHANUMERIC CHARACTER STRING. AND COPIES IT INTO«, t00=0x0026, t01=0x00b4}
0x3c50…3c7c Head {h00=0x0028, h01=0x0050, text=»* THE SAME POSITION IN BUFFER «, t00=0x0026, t01=0x00f8}
0x3c7c…3c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0124}
0x3c86…3cd6 Head {h00=0x004c, h01=0x0050, text=»* USED VARIABLES : DEBIN1 = NUMBER OF ALPHANUMERIC STRG-CHARCTERS«, t00=0x0026, t01=0x012e}
0x3cd6…3ce0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x017e}
0x3ce0…3d30 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0026, t01=0x0188}
0x3d30…3d4e Head {h00=0x001a, h01=0x0050, text=»CONBIN PROC WSTRG,FIND«, t00=0x0027, t01=0x0048}
0x3d4e…3d6e Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x0027, t01=0x0066}
0x3d6e…3da2 Head {h00=0x0030, h01=0x0050, text=» XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 COPY BINNUM«, t00=0x0027, t01=0x0086}
0x3da2…3dcc Head {h00=0x0026, h01=0x0050, text=» MOVE BCD13A,DEBIN4 LOAD BIN=>BCD «, t00=0x0027, t01=0x00ba}
0x3dcc…3dec Head {h00=0x001c, h01=0x0050, text=» MOVE DEBIN1,W0 ZEROISE «, t00=0x0027, t01=0x00e4}
0x3dec…3e22 Head {h00=0x0032, h01=0x0050, text=» EDSUB STR6A,DEBIN1,FCONV(FIND) CONV BCD=>STRG«, t00=0x0027, t01=0x0104}
0x3e22…3e58 Head {h00=0x0032, h01=0x0050, text=» DLETE WSTRG,DEBIN3,W1 DELETE BINNUM POSITION «, t00=0x0027, t01=0x013a}
0x3e58…3e9a Head {h00=0x003e, h01=0x0050, text=» INSRT WSTRG,DEBIN3,DEBIN1,STR6A,W0 INSERT STRG-CHARACTERS«, t00=0x0027, t01=0x0170}
0x3e9a…3eb8 Head {h00=0x001a, h01=0x0050, text=» SUB DEBIN1,W1 ADJUST «, t00=0x0028, t01=0x0022}
0x3eb8…3ee0 Head {h00=0x0024, h01=0x0050, text=» ADD BIN15,DEBIN1 ADJUST LENGTH «, t00=0x0028, t01=0x0040}
0x3ee0…3f08 Head {h00=0x0024, h01=0x0050, text=» ADD DEBIN3,DEBIN1 ADJUST BUFPOS«, t00=0x0028, t01=0x0068}
0x3f08…3f3a Head {h00=0x002e, h01=0x0050, text=» ADD FBIN1,DEBIN1 ADJUST NUMB OF CONVERTED«, t00=0x0028, t01=0x0090}
0x3f3a…3f68 Head {h00=0x002a, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x0028, t01=0x00c2}
0x3f68…3f9a Head {h00=0x002e, h01=0x0050, text=» TBF BOOL4,CONRET GO ON IF NO COND GEN ACC«, t00=0x0028, t01=0x00f0}
0x3f9a…3fce Head {h00=0x0030, h01=0x0050, text=» ADD WORK(W7),DEBIN1 ADJUST ENDPOS OF (...) «, t00=0x0028, t01=0x0122}
0x3fce…3fdc Head {h00=0x000a, h01=0x0050, text=»CONRET«, t00=0x0028, t01=0x0156}
0x3fdc…3fe8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x0164}
0x3fe8…3ff6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x0170}
0x3ff6…4004 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x017e}
0x4004…402a Head {h00=0x0022, h01=0x0050, text=»FCONV FTABLE CONV1,CONV2,CONV3«, t00=0x0028, t01=0x018c}
0x402a…403c Head {h00=0x000e, h01=0x0050, text=»CONV1 FRMT«, t00=0x0029, t01=0x0022}
0x403c…4054 Head {h00=0x0014, h01=0x0050, text=» FMEL '9',BCD13A«, t00=0x0029, t01=0x0034}
0x4054…4062 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0029, t01=0x004c}
0x4062…4074 Head {h00=0x000e, h01=0x0050, text=»CONV2 FRMT«, t00=0x0029, t01=0x005a}
0x4074…408e Head {h00=0x0016, h01=0x0050, text=» FMEL '99',BCD13A «, t00=0x0029, t01=0x006c}
0x408e…409c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0029, t01=0x0086}
0x409c…40ae Head {h00=0x000e, h01=0x0050, text=»CONV3 FRMT«, t00=0x0029, t01=0x0094}
0x40ae…40c8 Head {h00=0x0016, h01=0x0050, text=» FMEL '999',BCD13A«, t00=0x0029, t01=0x00a6}
0x40c8…40d6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0029, t01=0x00c0}
0x40d6…40e2 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0029, t01=0x00ce}
0x40e2…40e6 Head {h00=0x4004, h01=0x0000}
0x40e6…40ea 00 29 00 da ┆ ) ┆
0x40ea…40f2 (42, 1, 8) 20 04 00 00 00 2a 00 04 ┆ * ┆
0x40f2…4142 (43, 0, 400) 00 26 91 56 ff f4 e1 44 00 02 21 10 50 00 81 10 19 01 e2 24 00 2a 01 7c 00 10 00 0c 05 05 dc 54 3a 54 49 4e 50 00 00 88 00 2b 00 1c 00 0e 00 0a 05 04 bc 54 3a 54 4b 49 00 88 00 2b 00 30 00 2c 00 28 03 13 00 00 00 75 00 88 ea 21 1f 00 50 00 ┆ & V D ! P $ * | T:TINP + T:TKI + 0 , ( u ! P ┆
0x4142…4192 02 20 e2 25 5f 10 01 1e f6 a1 00 00 00 08 f0 3a f6 a1 00 00 00 02 81 12 99 56 00 2b 00 42 00 2c 00 28 03 13 00 00 00 91 00 20 ff f4 81 59 00 22 81 58 00 2e 39 48 91 84 81 d9 00 24 f6 a1 00 00 00 06 81 86 50 00 99 d6 ff f4 00 2b 00 72 00 2c ┆ %_ : V + B , ( Y " X .9H $ P + r ,┆
0x4192…41e2 00 28 03 13 00 00 00 af 00 00 81 d9 00 26 81 58 00 28 82 04 22 04 51 00 02 01 ea 59 00 2b 51 00 52 00 82 0e 22 10 50 00 57 00 00 2b 00 a2 00 0e 00 0a 02 04 c2 49 3a 45 52 31 36 00 00 2b 00 d2 00 2c 00 28 03 13 00 00 00 cf 00 04 82 0e 22 10 ┆ ( & X ( " Q Y +Q R " P W + I:ER16 + , ( " ┆
0x41e2…4232 55 00 f6 a1 00 00 90 59 00 2c 82 04 22 02 51 00 82 04 22 08 8d 20 00 00 00 0c 82 58 00 2b 00 e4 00 2c 00 28 03 13 00 00 00 ed 00 00 00 2e ea 58 00 30 52 00 50 00 82 58 00 2a 3a 68 ea 20 00 03 50 00 ea 20 00 04 50 00 ea 20 00 05 00 2b 01 14 ┆U Y , " Q " X + , ( . X 0R P X *:h P P + ┆
0x4232…4282 00 2c 00 28 03 13 00 00 01 0d 40 00 8c 20 00 00 00 0c 29 10 81 59 00 28 57 00 82 58 00 2a 3a 68 ea 20 00 01 50 00 ea 20 00 03 50 00 00 2b 01 44 00 2c 00 28 03 13 00 00 01 2b 00 40 ea 20 00 04 50 00 ea 20 00 05 50 00 ea 20 00 02 8c 20 00 00 ┆ , ( @ ) Y (W X *:h P P + D , ( + @ P P ┆
0x4282…42d2 (44, 0, 400) 00 0c f6 a1 00 00 82 08 50 00 f6 a1 00 2b 01 74 00 2c 00 28 03 13 00 00 01 49 00 00 00 00 57 00 81 58 00 0e 21 ff 82 58 00 24 22 ff e9 08 50 00 51 00 83 58 00 28 23 20 50 00 83 58 00 2c 00 14 00 2c 00 28 03 13 00 00 01 69 00 00 00 1e 23 ff ┆ P + t , ( I W X ! X $" P Q X (# P X , , ( i # ┆
0x42d2…4322 92 0c 3a 21 ea 04 52 00 57 00 f6 a1 00 00 f6 a1 00 00 82 08 54 00 02 40 aa 59 00 28 00 2c 00 44 00 0e 00 0a 02 04 c2 54 3a 45 4e 49 4e 00 00 2c 00 74 00 0c 00 08 02 03 a2 54 3a 45 4e 49 00 2c 00 86 00 0e 00 0a 02 04 c2 49 3a 45 58 49 54 00 ┆ :! R W T @ Y ( , D T:ENIN , t T:ENI , I:EXIT ┆
0x4322…4372 00 2c 00 96 00 2c 00 28 03 13 00 00 01 89 02 20 57 00 81 20 ff ff 91 59 00 2c f6 a1 00 00 00 0e 57 00 f6 a1 00 00 00 10 02 01 aa 59 00 28 8f 20 00 2c 00 a8 00 2c 00 28 03 13 00 00 01 a5 80 00 00 00 00 12 f0 3a 82 58 00 2a 3a 68 e1 58 00 28 ┆ , , ( W Y , W Y ( , , ( : X *:h X (┆
0x4372…43c2 21 ff 83 04 23 20 50 00 83 58 00 26 93 56 ff f4 00 2c 00 d8 00 2c 00 28 03 13 00 00 01 c3 00 00 e3 4c 00 02 19 20 a3 04 54 00 57 00 83 58 00 2c eb 58 00 30 50 00 f6 a1 00 00 82 08 54 00 82 58 00 2c 01 08 00 2c 00 28 03 13 00 00 01 e3 00 00 ┆! # P X & V , , ( L T W X , X 0P T X , , ( ┆
0x43c2…4412 00 2a 3a 68 ea 20 00 0a 58 46 ea 20 00 0b 58 4c 81 58 00 28 21 40 54 00 01 40 a9 59 00 28 81 58 00 2c 01 38 00 2c 00 28 03 13 00 00 02 03 00 00 00 2c 81 59 00 1a 1a 06 5c 74 82 58 00 30 5c 6c f6 a1 00 00 5f 72 81 58 00 28 83 04 a3 20 18 00 ┆ *:h XF XL X (!@T @ Y ( X , 8 , ( , Y t X 0 l _r X ( ┆