|
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: 17548 (0x448c)
Notes: pts_type(SC)
Names: »DECVRT.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DECVRT.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DECVRT.SC«
IDENT DECVRT REL 10.0 80-04-11 80-04-10/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),CNOK 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 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 MOVE DEBIN3,W3 STARTPOS WORKITEM PERF CONV,WSTRG,W3 CONVERT TO BINARY 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 = 29) * 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 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-04-10/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…0eec Head {h00=0x003a, h01=0x0050, text=» CBE DEBIN4,CHNUM(WIND),CNOK JUMP IF END OF LINE FOUND«, t00=0x0009, t01=0x00a2}
0x0eec…0f18 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 LOAD WORKPOINTER«, t00=0x0009, t01=0x00e0}
0x0f18…0f52 Head {h00=0x0036, h01=0x0050, text=» MATCH WSTRG,DEBIN3,W1,VALSTR,W18,W1 NEXT POS : ? «, t00=0x0009, t01=0x010c}
0x0f52…0f64 Head {h00=0x000e, h01=0x0050, text=» BNOK CN00«, t00=0x0009, t01=0x0146}
0x0f64…0f84 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x0009, t01=0x0158}
0x0f84…0fae Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,W4 STARTPOS WORKITEM «, t00=0x0009, t01=0x0178}
0x0fae…0fdc Head {h00=0x002a, h01=0x0050, text=» PERF CONV,WSTRG,W2 CONVERT TO BINARY «, t00=0x000a, t01=0x0012}
0x0fdc…1010 Head {h00=0x0030, h01=0x0050, text=» SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION «, t00=0x000a, t01=0x0040}
0x1010…1032 Head {h00=0x001e, h01=0x0050, text=» B CNC0 CHECK END-OF-LINE «, t00=0x000a, t01=0x0074}
0x1032…1040 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0096}
0x1040…104a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a4}
0x104a…1088 Head {h00=0x003a, h01=0x0050, text=»* CNC3 CONVERTION OF 3 BYTES TO BINARY -D,-F,-G «, t00=0x000a, t01=0x00ae}
0x1088…1092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ec}
0x1092…109e Head {h00=0x0008, h01=0x0050, text=»CNC3«, t00=0x000a, t01=0x00f6}
0x109e…10ce Head {h00=0x002c, h01=0x0050, text=» CBNE BIN16,W5,CNC3A JUMP IF NOT = 5(D) «, t00=0x000a, t01=0x0102}
0x10ce…10fe Head {h00=0x002c, h01=0x0050, text=» CBE WIND,W4,CNC0 JUMP IF D=DATUM(DUPL) «, t00=0x000a, t01=0x0132}
0x10fe…110c Head {h00=0x000a, h01=0x0050, text=»CNC3A «, t00=0x000a, t01=0x0162}
0x110c…1136 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,W3 STARTPOS WORKITEM «, t00=0x000a, t01=0x0170}
0x1136…1164 Head {h00=0x002a, h01=0x0050, text=» PERF CONV,WSTRG,W3 CONVERT TO BINARY «, t00=0x000b, t01=0x000a}
0x1164…1198 Head {h00=0x0030, h01=0x0050, text=» SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION «, t00=0x000b, t01=0x0038}
0x1198…11d8 Head {h00=0x003c, h01=0x0050, text=» CBNG DEBIN2,WORK(W6),CNC3B JUMP IF L HIGHST FIELD REF. «, t00=0x000b, t01=0x006c}
0x11d8…1212 Head {h00=0x0036, h01=0x0050, text=» MOVE WORK(W6),DEBIN2 SAVE HIGHEST FIELD REF. NO. «, t00=0x000b, t01=0x00ac}
0x1212…1220 Head {h00=0x000a, h01=0x0050, text=»CNC3B «, t00=0x000b, t01=0x00e6}
0x1220…1242 Head {h00=0x001e, h01=0x0050, text=» B CNC0 CHECK END-OF-LINE «, t00=0x000b, t01=0x00f4}
0x1242…1250 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0116}
0x1250…125a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0124}
0x125a…1282 Head {h00=0x0024, h01=0x0050, text=»* CNCL CONVERT TO LITERAL «, t00=0x000b, t01=0x012e}
0x1282…128c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0156}
0x128c…1298 Head {h00=0x0008, h01=0x0050, text=»CNCL«, t00=0x000b, t01=0x0160}
0x1298…12c4 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS«, t00=0x000b, t01=0x016c}
0x12c4…12e4 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x000c, t01=0x0008}
0x12e4…1314 Head {h00=0x002c, h01=0x0050, text=» SUB DEBIN2,DEBIN4 NUMB OF CHRS TO MATCH«, t00=0x000c, t01=0x0028}
0x1314…1342 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH «, t00=0x000c, t01=0x0058}
0x1342…137e Head {h00=0x0038, h01=0x0050, text=» MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,W23,W1 MATCH NEXT'«, t00=0x000c, t01=0x0086}
0x137e…13ac Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN3,DEBIN4 =NUMB OF LIT-CHARS «, t00=0x000c, t01=0x00c2}
0x13ac…13d2 Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN2,W128 1ST BIT = 1 «, t00=0x000c, t01=0x00f0}
0x13d2…1400 Head {h00=0x002a, h01=0x0050, text=» ADD DEBIN2,DEBIN3 +LENGTH OF LITERAL «, t00=0x000c, t01=0x0116}
0x1400…1434 Head {h00=0x0030, h01=0x0050, text=» SUB DEBIN4,W1 ADJUST FOR OVERWRITE POSITION«, t00=0x000c, t01=0x0144}
0x1434…146c Head {h00=0x0034, h01=0x0050, text=» XCOPY WSTRG,DEBIN4,W1,DEBIN2,W1 'L'='80'+LENGTH«, t00=0x000c, t01=0x0178}
0x146c…1496 Head {h00=0x0026, h01=0x0050, text=» ADD DEBIN4,DEBIN3 ADJUST NEXT POS«, t00=0x000d, t01=0x0020}
0x1496…14b6 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x000d, t01=0x004a}
0x14b6…14e2 Head {h00=0x0028, h01=0x0050, text=» DLETE WSTRG,DEBIN4,W1 DELETE 2ND ' «, t00=0x000d, t01=0x006a}
0x14e2…151c Head {h00=0x0036, h01=0x0050, text=» SUB CHNUM(WIND),W1 ADJUST LENGTH FOR DELETED CHAR«, t00=0x000d, t01=0x0096}
0x151c…154c Head {h00=0x002c, h01=0x0050, text=» ADD DEBIN5,W1 NUMB OF DELETED CHARCTERS«, t00=0x000d, t01=0x00d0}
0x154c…1562 Head {h00=0x0012, h01=0x0050, text=» B CNC0 GO ON «, t00=0x000d, t01=0x0100}
0x1562…156c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0116}
0x156c…15a6 Head {h00=0x0036, h01=0x0050, text=»* CNCA CONVERT FOR CONDITIONAL ACCUMULATION «, t00=0x000d, t01=0x0120}
0x15a6…15b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x015a}
0x15b0…15c8 Head {h00=0x0014, h01=0x0050, text=»CNCA 'A'-FOUND«, t00=0x000d, t01=0x0164}
0x15c8…15f2 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 SAVE CURR POS «, t00=0x000d, t01=0x017c}
0x15f2…1622 Head {h00=0x002c, h01=0x0050, text=» MATCH WSTRG,DEBIN3,W1,VALSTR,W29,W1 (-?«, t00=0x000e, t01=0x0016}
0x1622…164e Head {h00=0x0028, h01=0x0050, text=» BNOK CNC2 JUMP IF USUAL ACCUMULATOR«, t00=0x000e, t01=0x0046}
0x164e…1678 Head {h00=0x0026, h01=0x0050, text=» B CNCX JUMP IF COND ACCUMULATION «, t00=0x000e, t01=0x0072}
0x1678…1682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009c}
0x1682…16ba Head {h00=0x0034, h01=0x0050, text=»* CNCG CONVERT FOR CONDITIONAL GENERATION «, t00=0x000e, t01=0x00a6}
0x16ba…16c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00de}
0x16c4…16dc Head {h00=0x0014, h01=0x0050, text=»CNCG 'G'-FOUND«, t00=0x000e, t01=0x00e8}
0x16dc…1706 Head {h00=0x0026, h01=0x0050, text=» CBNE WIND,W2,CNC3 JUMP IF NOT GEN«, t00=0x000e, t01=0x0100}
0x1706…1712 Head {h00=0x0008, h01=0x0050, text=»CNCX«, t00=0x000e, t01=0x012a}
0x1712…173e Head {h00=0x0028, h01=0x0050, text=» SUB DEBIN4,W1 ADJUST FOR CONVERTION«, t00=0x000e, t01=0x0136}
0x173e…176e Head {h00=0x002c, h01=0x0050, text=» XCOPY WSTRG,DEBIN4,W1,VALSTR,W0 G/A=>M «, t00=0x000e, t01=0x0162}
0x176e…178e (15, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x000f, t01=0x0004}
0x178e…17b6 Head {h00=0x0024, h01=0x0050, text=» MOVE WORK(W8),DEBIN4 SAVE (-POS«, t00=0x000f, t01=0x0024}
0x17b6…17e2 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS«, t00=0x000f, t01=0x004c}
0x17e2…1814 Head {h00=0x002e, h01=0x0050, text=» SUB DEBIN2,DEBIN4 NUMB OF CHARS TO MATCH «, t00=0x000f, t01=0x0078}
0x1814…1842 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH «, t00=0x000f, t01=0x00aa}
0x1842…185c Head {h00=0x0016, h01=0x0050, text=» MOVE BIN16,=W'30'«, t00=0x000f, t01=0x00d8}
0x185c…188e Head {h00=0x002e, h01=0x0050, text=» MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,BIN16,W1«, t00=0x000f, t01=0x00f2}
0x188e…18b6 Head {h00=0x0024, h01=0x0050, text=» MOVE WORK(W9),DEBIN3 SAVE)-POS «, t00=0x000f, t01=0x0124}
0x18b6…18d6 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x000f, t01=0x014c}
0x18d6…1904 Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN3,DEBIN4 =NUMB OF LIT CHARS «, t00=0x000f, t01=0x016c}
0x1904…1934 Head {h00=0x002c, h01=0x0050, text=» MOVE WORK(W7),DEBIN3 SAVE (...)-LENGTH «, t00=0x0010, t01=0x000a}
0x1934…194a Head {h00=0x0012, h01=0x0050, text=» B CNC0 GO ON «, t00=0x0010, t01=0x003a}
0x194a…1958 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0050}
0x1958…1962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005e}
0x1962…198e Head {h00=0x0028, h01=0x0050, text=»* CNCR RIGHT PARENTHESIS FOUND«, t00=0x0010, t01=0x0068}
0x198e…1998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0094}
0x1998…19a4 Head {h00=0x0008, h01=0x0050, text=»CNCR«, t00=0x0010, t01=0x009e}
0x19a4…19d0 Head {h00=0x0028, h01=0x0050, text=» SUB DEBIN4,W1 ADJUST FOR DEL )-CHAR«, t00=0x0010, t01=0x00aa}
0x19d0…19f8 Head {h00=0x0024, h01=0x0050, text=» SUB WORK(W9),DEBIN4 =DIFFERENCE«, t00=0x0010, t01=0x00d6}
0x19f8…1a24 Head {h00=0x0028, h01=0x0050, text=» SUB WORK(W7),WORK(W9) =REAL LENGTH «, t00=0x0010, t01=0x00fe}
0x1a24…1a4a Head {h00=0x0022, h01=0x0050, text=» ADD WORK(W7),W128 1ST BIT = 1«, t00=0x0010, t01=0x012a}
0x1a4a…1a84 Head {h00=0x0036, h01=0x0050, text=» XCOPY WSTRG,WORK(W8),W1,WORK(W7),W1 (...)-LENGTH «, t00=0x0010, t01=0x0150}
0x1a84…1ab2 Head {h00=0x002a, h01=0x0050, text=» DLETE WSTRG,DEBIN4,W1 DELETE )-CHARS «, t00=0x0010, t01=0x018a}
0x1ab2…1adc Head {h00=0x0026, h01=0x0050, text=» SUB CHNUM(WIND),W1 ADJUST ENDPOS «, t00=0x0011, t01=0x0028}
0x1adc…1b0c Head {h00=0x002c, h01=0x0050, text=» ADD DEBIN5,W1 ADJUST NUMB OF DEL CHARS «, t00=0x0011, t01=0x0052}
0x1b0c…1b22 Head {h00=0x0012, h01=0x0050, text=» B CNC0 GO ON «, t00=0x0011, t01=0x0082}
0x1b22…1b30 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0098}
0x1b30…1b3c Head {h00=0x0008, h01=0x0050, text=»CNOK«, t00=0x0011, t01=0x00a6}
0x1b3c…1b6e Head {h00=0x002e, h01=0x0050, text=» MOVE BIN15,CHNUM(WIND) STORE ENDPOSITION «, t00=0x0011, t01=0x00b2}
0x1b6e…1b9e Head {h00=0x002c, h01=0x0050, text=» SUB BIN15,DEBIN1 SUBTRACT STARTPOSITION«, t00=0x0011, t01=0x00e4}
0x1b9e…1bd2 Head {h00=0x0030, h01=0x0050, text=» MOVE CHNUM(WIND),BIN15 GIVING NUMB OF CHARS«, t00=0x0011, t01=0x0114}
0x1bd2…1bde Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0148}
0x1bde…1bec Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x0154}
0x1bec…1bfa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0162}
0x1bfa…1c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0170}
0x1c04…1c40 Head {h00=0x0038, h01=0x0050, text=»* CONVERTS NUMERIC STRINGCHARACTERS TO BINARY «, t00=0x0011, t01=0x017a}
0x1c40…1c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0026}
0x1c4a…1c98 Head {h00=0x004a, h01=0x0050, text=»* INPUT VARIABLES : NUMB(F) = NUMBER OF CHARACTERS TO CONVERT «, t00=0x0012, t01=0x0030}
0x1c98…1ce6 Head {h00=0x004a, h01=0x0050, text=»* DEBIN3 = STARTPOS IN WORKITEM FOR 'XCOPY' «, t00=0x0012, t01=0x007e}
0x1ce6…1d34 Head {h00=0x004a, h01=0x0050, text=»* WSTRG = ACTUAL WORKSTRING VAL/GEN OR ACC «, t00=0x0012, t01=0x00cc}
0x1d34…1d3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x011a}
0x1d3e…1d8a Head {h00=0x0048, h01=0x0050, text=»* WORK ITEMS : DEBIN2 = CONVERTED NUMERIC VALUE BINARY «, t00=0x0012, t01=0x0124}
0x1d8a…1dd2 Head {h00=0x0044, h01=0x0050, text=»* BCD13A = CONVERTED NUMERIC VALUE BCD«, t00=0x0012, t01=0x0170}
0x1dd2…1e12 Head {h00=0x003c, h01=0x0050, text=»* STR6A = NUMERIC VALUE STRG «, t00=0x0013, t01=0x0028}
0x1e12…1e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0068}
0x1e1c…1e5a Head {h00=0x003a, h01=0x0050, text=»* OUTPUT VARIABLES : DEBIN4 = POINTER ADJUSTED «, t00=0x0013, t01=0x0072}
0x1e5a…1e9c Head {h00=0x003e, h01=0x0050, text=»* DEBIN5 = NUMB OF DELETED CHARS«, t00=0x0013, t01=0x00b0}
0x1e9c…1eec Head {h00=0x004c, h01=0x0050, text=»* WSTRG = WORKBUFFER WITH CONVERTED CHARACTER«, t00=0x0013, t01=0x00f2}
0x1eec…1f2e Head {h00=0x003e, h01=0x0050, text=»* DEBIN3 = NUMB OF DELETED CHARS«, t00=0x0013, t01=0x0142}
0x1f2e…1f7a Head {h00=0x0048, h01=0x0050, text=»* DEBIN2 = CONVERTED NUMERIC VALUE BINARY «, t00=0x0013, t01=0x0184}
0x1f7a…1f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0040}
0x1f84…1fd4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0014, t01=0x004a}
0x1fd4…1ff0 Head {h00=0x0018, h01=0x0050, text=»CONV PROC WSTRG,NUMB«, t00=0x0014, t01=0x009a}
0x1ff0…202a Head {h00=0x0036, h01=0x0050, text=» XCOPY STR6A,DEBIN3,NUMB,WSTRG,DEBIN4 COPY STRGNUM«, t00=0x0014, t01=0x00b6}
0x202a…2052 Head {h00=0x0024, h01=0x0050, text=» MOVE BCD13A,STR6A LOAD STR=>BCD«, t00=0x0014, t01=0x00f0}
0x2052…207c Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN2,BCD13A LOAD BCD=>BIN «, t00=0x0014, t01=0x0118}
0x207c…20b6 Head {h00=0x0036, h01=0x0050, text=» XCOPY WSTRG,DEBIN4,W1,DEBIN2,W1 LOAD VARNR BINARY«, t00=0x0014, t01=0x0142}
0x20b6…20ee Head {h00=0x0034, h01=0x0050, text=» MOVE DEBIN3,NUMB STORE NUMB CONVRTD CHARACTERS «, t00=0x0014, t01=0x017c}
0x20ee…2104 Head {h00=0x0012, h01=0x0050, text=» SUB DEBIN3,W1«, t00=0x0015, t01=0x0024}
0x2104…2124 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN4,W1 NEXT POS «, t00=0x0015, t01=0x003a}
0x2124…215e Head {h00=0x0036, h01=0x0050, text=» DLETE WSTRG,DEBIN4,DEBIN3 DELETE ALPHA CHARACTERS«, t00=0x0015, t01=0x005a}
0x215e…2182 Head {h00=0x0020, h01=0x0050, text=» ADD DEBIN5,DEBIN3 NEXT POS «, t00=0x0015, t01=0x0094}
0x2182…218e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x00b8}
0x218e…219c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x00c4}
0x219c…21aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00d2}
0x21aa…21b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e0}
0x21b4…21ee Head {h00=0x0036, h01=0x0050, text=»* THIS ROUTINE CONVERTS BINARY NUMERICALS TO«, t00=0x0015, t01=0x00ea}
0x21ee…221c Head {h00=0x002a, h01=0x0050, text=»* ALPHANUMERIC STRING CHARACTERS«, t00=0x0015, t01=0x0124}
0x221c…2226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0152}
0x2226…226e Head {h00=0x0044, h01=0x0050, text=»* FORMAL PARAMETER : WSTRG = JOBSPC (VALIDATION STRING)«, t00=0x0015, t01=0x015c}
0x226e…22b6 Head {h00=0x0044, h01=0x0050, text=»* = DUPL (DUPLICATION STRING)«, t00=0x0016, t01=0x0014}
0x22b6…22f0 Head {h00=0x0036, h01=0x0050, text=»* OPT = 1 = VALIDITION«, t00=0x0016, t01=0x005c}
0x22f0…232a Head {h00=0x0036, h01=0x0050, text=»* = 2 = GENERATION«, t00=0x0016, t01=0x0096}
0x232a…2366 Head {h00=0x0038, h01=0x0050, text=»* = 3 = ACCUMULATION«, t00=0x0016, t01=0x00d0}
0x2366…23a2 Head {h00=0x0038, h01=0x0050, text=»* = 4 = DUPLICATION «, t00=0x0016, t01=0x010c}
0x23a2…23ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0148}
0x23ac…23ec Head {h00=0x003c, h01=0x0050, text=»* INPUT VARIABLES : BIN15 = LENGTH OF FUNC-CODE «, t00=0x0016, t01=0x0152}
0x23ec…242a (23, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* DEBIN3 = POINTER TO WSTRG «, t00=0x0017, t01=0x0004}
0x242a…2476 Head {h00=0x0048, h01=0x0050, text=»* FBIN1 = NUMBER OF CONVERTED CHARACTERS «, t00=0x0017, t01=0x0042}
0x2476…2480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x008e}
0x2480…24bc Head {h00=0x0038, h01=0x0050, text=»* USED VARIABLES : BIN16 = MATCHINGPOINTER «, t00=0x0017, t01=0x0098}
0x24bc…24ee Head {h00=0x002e, h01=0x0050, text=»* DEBIN1 = WORK «, t00=0x0017, t01=0x00d4}
0x24ee…253e Head {h00=0x004c, h01=0x0050, text=»* DEBIN2 = LENGTH OF MATCHSTRING (VALSTR = 29)«, t00=0x0017, t01=0x0106}
0x253e…257c Head {h00=0x003a, h01=0x0050, text=»* DEBIN4 = BINARY NUMERICALS«, t00=0x0017, t01=0x0156}
0x257c…25c2 (24, 0, 400) Head {h00=0x0042, h01=0x0050, text=»* FBIN1 = CHECK END OF OF FUNC-CODE«, t00=0x0018, t01=0x0004}
0x25c2…260c Head {h00=0x0046, h01=0x0050, text=»* WORK(W7)= LENGTH/ENDPOS COND. GEN/ACC «, t00=0x0018, t01=0x004a}
0x260c…2616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0094}
0x2616…264c Head {h00=0x0032, h01=0x0050, text=»* OUTPUT VARIABLES : WSTRG = CONVERTED «, t00=0x0018, t01=0x009e}
0x264c…2698 Head {h00=0x0048, h01=0x0050, text=»* BIN15 = ADJUSTED ACCORDING TO CONVERTED «, t00=0x0018, t01=0x00d4}
0x2698…26ce Head {h00=0x0032, h01=0x0050, text=»* CHARACTERS«, t00=0x0018, t01=0x0120}
0x26ce…271c Head {h00=0x004a, h01=0x0050, text=»* CURSEC= ADJUSTED WITH INPUT VALUE OF BIN15«, t00=0x0018, t01=0x0156}
0x271c…2726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0014}
0x2726…2776 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0019, t01=0x001e}
0x2776…2780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006e}
0x2780…278e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0078}
0x278e…27ac Head {h00=0x001a, h01=0x0050, text=»BINCON PROC WSTRG,OPT «, t00=0x0019, t01=0x0086}
0x27ac…27f4 Head {h00=0x0044, h01=0x0050, text=» XCOPY WSTRG,DEBIN3,BIN15,BPOOL(PINDCB),CURSEC STORE WORKSTRING «, t00=0x0019, t01=0x00a4}
0x27f4…2826 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBIN2,=W'31' LOAD LENGTH OF VALSTR «, t00=0x0019, t01=0x00ec}
0x2826…2850 Head {h00=0x0026, h01=0x0050, text=» ADD CURSEC,BIN15 ADJUST FOR CHARS«, t00=0x0019, t01=0x011e}
0x2850…2876 Head {h00=0x0022, h01=0x0050, text=» CBE OPT,W4,BN00 JUMP IF DUPL «, t00=0x0019, t01=0x0148}
0x2876…28a0 Head {h00=0x0026, h01=0x0050, text=» ADD BIN15,W3 ADJUST FOR FUNC.TEXT«, t00=0x0019, t01=0x016e}
0x28a0…28ce Head {h00=0x002a, h01=0x0050, text=» CLEAR BOOL4 F=NO CONDITIONAL GEN/ACC «, t00=0x001a, t01=0x0008}
0x28ce…28da Head {h00=0x0008, h01=0x0050, text=»BN00«, t00=0x001a, t01=0x0036}
0x28da…2904 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN16,W0 MATCHINGPOINTER :=0«, t00=0x001a, t01=0x0042}
0x2904…2930 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN4,W0 BINARY NUMERICALS:=0«, t00=0x001a, t01=0x006c}
0x2930…2972 Head {h00=0x003e, h01=0x0050, text=» MATCH VALSTR,BIN16,DEBIN2,WSTRG,DEBIN3,W1 MATCH CHARACTER«, t00=0x001a, t01=0x0098}
0x2972…299c Head {h00=0x0026, h01=0x0050, text=» CBE BIN16,W0,BNME JUMP IF MESSAGE«, t00=0x001a, t01=0x00da}
0x299c…29c8 Head {h00=0x0028, h01=0x0050, text=» IB BIN16,BNC0,BNC0,BNC0,BNC0, 1-4 C«, t00=0x001a, t01=0x0104}
0x29c8…29f2 Head {h00=0x0026, h01=0x0050, text=» BNC3,BNC2,BNC0,BNC2,BNC2, 5-9 C «, t00=0x001a, t01=0x0130}
0x29f2…2a1e Head {h00=0x0028, h01=0x0050, text=» BNC1,BNC3,BNC2,BNC2,BNC0, 10-14 C «, t00=0x001a, t01=0x015a}
0x2a1e…2a4a Head {h00=0x0028, h01=0x0050, text=» BNC0,BNC0,BNC0,BNC0,BNC0, 15-19 C «, t00=0x001a, t01=0x0186}
0x2a4a…2a76 Head {h00=0x0028, h01=0x0050, text=» BNC0,BNC0,BNC0,BNCR,BNC0, 20-24 C «, t00=0x001b, t01=0x0022}
0x2a76…2a9a Head {h00=0x0020, h01=0x0050, text=» BNC3,BNME,BNME,BNC0 25-28 «, t00=0x001b, t01=0x004e}
0x2a9a…2aa8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0072}
0x2aa8…2ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0080}
0x2ab2…2ad2 Head {h00=0x001c, h01=0x0050, text=»* CHECK IF LITERAL«, t00=0x001b, t01=0x008a}
0x2ad2…2adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00aa}
0x2adc…2b0e Head {h00=0x002e, h01=0x0050, text=» XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 GET BYTE «, t00=0x001b, t01=0x00b4}
0x2b0e…2b3c Head {h00=0x002a, h01=0x0050, text=» CBG DEBIN4,W128,BNCL JUMP IF LITERAL «, t00=0x001b, t01=0x00e6}
0x2b3c…2b52 Head {h00=0x0012, h01=0x0050, text=» B BNCR RETUR «, t00=0x001b, t01=0x0114}
0x2b52…2b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x012a}
0x2b5c…2b96 Head {h00=0x0036, h01=0x0050, text=»* CHECK MESSAGE TYPE AND CONDITIONAL GEN/ACC«, t00=0x001b, t01=0x0134}
0x2b96…2ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x016e}
0x2ba0…2bac Head {h00=0x0008, h01=0x0050, text=»BNME«, t00=0x001b, t01=0x0178}
0x2bac…2bca Head {h00=0x001a, h01=0x0050, text=» IB OPT,BNMS,BNMG,BNMA«, t00=0x001b, t01=0x0184}
0x2bca…2bd6 Head {h00=0x0008, h01=0x0050, text=»BNMS«, t00=0x001c, t01=0x0012}
0x2bd6…2bf6 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x001c, t01=0x001e}
0x2bf6…2c24 Head {h00=0x002a, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x001c, t01=0x003e}
0x2c24…2c5e Head {h00=0x0036, h01=0x0050, text=» XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 GET MESSAGE TYPE «, t00=0x001c, t01=0x006c}
0x2c5e…2c8c Head {h00=0x002a, h01=0x0050, text=» CBG DEBIN4,W128,BNCL JUMP IF M'.....'«, t00=0x001c, t01=0x00a6}
0x2c8c…2cbe Head {h00=0x002e, h01=0x0050, text=» SUB DEBIN3,W1 ADJUST FOR 2CHAR-CONVERTION«, t00=0x001c, t01=0x00d4}
0x2cbe…2cec Head {h00=0x002a, h01=0x0050, text=» SUB FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x001c, t01=0x0106}
0x2cec…2d00 Head {h00=0x0010, h01=0x0050, text=» B BNC2 M99 «, t00=0x001c, t01=0x0134}
0x2d00…2d0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0148}
0x2d0e…2d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0156}
0x2d18…2d3c Head {h00=0x0020, h01=0x0050, text=»* CONVERT 1 CHARACTER «, t00=0x001c, t01=0x0160}
0x2d3c…2d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0184}
0x2d46…2d52 Head {h00=0x0008, h01=0x0050, text=»BNC1«, t00=0x001c, t01=0x018e}
0x2d52…2d82 Head {h00=0x002c, h01=0x0050, text=» PERF CONBIN,WSTRG,W1 CONVERT BIN=>STRG «, t00=0x001d, t01=0x000a}
0x2d82…2d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x003a}
0x2d8c…2db0 Head {h00=0x0020, h01=0x0050, text=»* CONVERT NO CHARCTER«, t00=0x001d, t01=0x0044}
0x2db0…2dba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0068}
0x2dba…2dc6 Head {h00=0x0008, h01=0x0050, text=»BNC0«, t00=0x001d, t01=0x0072}
0x2dc6…2de6 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x001d, t01=0x007e}
0x2de6…2e14 Head {h00=0x002a, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x001d, t01=0x009e}
0x2e14…2e44 Head {h00=0x002c, h01=0x0050, text=» TBF BOOL4,BNCA JUMP IF NO COND GEN/ACC «, t00=0x001d, t01=0x00cc}
0x2e44…2e7e Head {h00=0x0036, h01=0x0050, text=» CBNE WORK(W7),DEBIN3,BNCA JUMP IF ENDPOS OF COND «, t00=0x001d, t01=0x00fc}
0x2e7e…2e9a Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,=W'30' «, t00=0x001d, t01=0x0136}
0x2e9a…2ed0 Head {h00=0x0032, h01=0x0050, text=» INSRT WSTRG,DEBIN3,W1,VALSTR,DEBIN1 INSERT ) «, t00=0x001d, t01=0x0152}
0x2ed0…2ef0 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x001d, t01=0x0188}
0x2ef0…2f20 Head {h00=0x002c, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMBER OF CONVERTED«, t00=0x001e, t01=0x0018}
0x2f20…2f44 Head {h00=0x0020, h01=0x0050, text=» ADD BIN15,W1 ADJUST LENGTH «, t00=0x001e, t01=0x0048}
0x2f44…2f6a Head {h00=0x0022, h01=0x0050, text=» CLEAR BOOL4 F=NO COND GEN/ACC«, t00=0x001e, t01=0x006c}
0x2f6a…2f76 Head {h00=0x0008, h01=0x0050, text=»BNCA«, t00=0x001e, t01=0x0092}
0x2f76…2faa Head {h00=0x0030, h01=0x0050, text=» CBE BIN15,FBIN1,BNCR JUMP IF END-OF-STRING «, t00=0x001e, t01=0x009e}
0x2faa…2fc0 Head {h00=0x0012, h01=0x0050, text=» B BN00 GO ON «, t00=0x001e, t01=0x00d2}
0x2fc0…2fce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00e8}
0x2fce…2fd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f6}
0x2fd8…2ffe Head {h00=0x0022, h01=0x0050, text=»* CONVERT 2 CHARACTERS «, t00=0x001e, t01=0x0100}
0x2ffe…3008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0126}
0x3008…3014 Head {h00=0x0008, h01=0x0050, text=»BNC2«, t00=0x001e, t01=0x0130}
0x3014…3044 Head {h00=0x002c, h01=0x0050, text=» PERF CONBIN,WSTRG,W2 CONVERT BIN=>STRG «, t00=0x001e, t01=0x013c}
0x3044…3070 Head {h00=0x0028, h01=0x0050, text=» CBNE BIN16,W12,BNC0 JUMP IF NOT 'T'«, t00=0x001e, t01=0x016c}
0x3070…3090 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x001f, t01=0x0008}
0x3090…30be Head {h00=0x002a, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x001f, t01=0x0028}
0x30be…30f2 Head {h00=0x0030, h01=0x0050, text=» CBE BIN15,FBIN1,BNCR JUMP IF END-OF STRING «, t00=0x001f, t01=0x0056}
0x30f2…310e Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,DEBIN3 «, t00=0x001f, t01=0x008a}
0x310e…3146 Head {h00=0x0034, h01=0x0050, text=» MATCH WSTRG,DEBIN1,W1,VALSTR,W18,W1 NEXT POS : «, t00=0x001f, t01=0x00a6}
0x3146…316c Head {h00=0x0022, h01=0x0050, text=» BNOK BN00 GO MATCH CHARACTER «, t00=0x001f, t01=0x00de}
0x316c…319c Head {h00=0x002c, h01=0x0050, text=» PERF CONBIN,WSTRG,W2 CONVERT BIN=>STRG «, t00=0x001f, t01=0x0104}
0x319c…31ac Head {h00=0x000c, h01=0x0050, text=» B BNC0 «, t00=0x001f, t01=0x0134}
0x31ac…31b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0144}
0x31b6…31da Head {h00=0x0020, h01=0x0050, text=»* CONVERT 3 CHARACTERS«, t00=0x001f, t01=0x014e}
0x31da…31e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0172}
0x31e4…31f0 Head {h00=0x0008, h01=0x0050, text=»BNC3«, t00=0x001f, t01=0x017c}
0x31f0…321c Head {h00=0x0028, h01=0x0050, text=» CBNE BIN16,W5,BNC3A JUMP IF NOT (D)«, t00=0x001f, t01=0x0188}
0x321c…324c Head {h00=0x002c, h01=0x0050, text=» CBE BIN15,W1,BNC0 JUMP IF 1 CH =D=DATUM«, t00=0x0020, t01=0x0024}
0x324c…325a Head {h00=0x000a, h01=0x0050, text=»BNC3A «, t00=0x0020, t01=0x0054}
0x325a…328a Head {h00=0x002c, h01=0x0050, text=» PERF CONBIN,WSTRG,W3 CONVERT BIN=>STRG «, t00=0x0020, t01=0x0062}
0x328a…329a Head {h00=0x000c, h01=0x0050, text=» B BNC0 «, t00=0x0020, t01=0x0092}
0x329a…32a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x00a2}
0x32a8…32b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00b0}
0x32b2…32e2 Head {h00=0x002c, h01=0x0050, text=»* CONVERT LITERAL (INSERT '....') «, t00=0x0020, t01=0x00ba}
0x32e2…32ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ea}
0x32ec…32f8 Head {h00=0x0008, h01=0x0050, text=»BNCL«, t00=0x0020, t01=0x00f4}
0x32f8…3326 Head {h00=0x002a, h01=0x0050, text=» SUB DEBIN4,W128 GET LENGTH OF LITERAL«, t00=0x0020, t01=0x0100}
0x3326…335c Head {h00=0x0032, h01=0x0050, text=» XCOPY WSTRG,DEBIN3,W1,VALSTR,W23 INSERT 1ST '«, t00=0x0020, t01=0x012e}
0x335c…3390 Head {h00=0x0030, h01=0x0050, text=» ADD DEBIN3,DEBIN4 ADJUST BUFPOS WITH LENGTH«, t00=0x0020, t01=0x0164}
0x3390…33b0 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x0021, t01=0x0008}
0x33b0…33e0 Head {h00=0x002c, h01=0x0050, text=» ADD FBIN1,DEBIN4 ADJUST CHARC CONVERTED«, t00=0x0021, t01=0x0028}
0x33e0…340e Head {h00=0x002a, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x0021, t01=0x0058}
0x340e…3444 Head {h00=0x0032, h01=0x0050, text=» INSRT WSTRG,DEBIN3,W1,VALSTR,W23 INSERT 2ND '«, t00=0x0021, t01=0x0086}
0x3444…3468 Head {h00=0x0020, h01=0x0050, text=» ADD BIN15,W1 ADJUST LENGTH «, t00=0x0021, t01=0x00bc}
0x3468…3498 Head {h00=0x002c, h01=0x0050, text=» TBF BOOL4,BNC0 GO ON IF NO COND GEN ACC«, t00=0x0021, t01=0x00e0}
0x3498…34d0 Head {h00=0x0034, h01=0x0050, text=» ADD WORK(W7),W1 ADJUST ENDPOS FOR COND GEN/ACC «, t00=0x0021, t01=0x0110}
0x34d0…34e0 Head {h00=0x000c, h01=0x0050, text=» B BNC0 «, t00=0x0021, t01=0x0148}
0x34e0…34ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0158}
0x34ee…350c Head {h00=0x001a, h01=0x0050, text=»BNMG COND GEN FOUND «, t00=0x0021, t01=0x0166}
0x350c…3524 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W25«, t00=0x0021, t01=0x0184}
0x3524…3534 Head {h00=0x000c, h01=0x0050, text=» B BNMC «, t00=0x0022, t01=0x000c}
0x3534…3552 Head {h00=0x001a, h01=0x0050, text=»BNMA COND ACC FOUND «, t00=0x0022, t01=0x001c}
0x3552…356a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W8 «, t00=0x0022, t01=0x003a}
0x356a…3576 Head {h00=0x0008, h01=0x0050, text=»BNMC«, t00=0x0022, t01=0x0052}
0x3576…35b2 Head {h00=0x0038, h01=0x0050, text=» XCOPY WSTRG,DEBIN3,W1,VALSTR,DEBIN1 CONVERT M=>G/A «, t00=0x0022, t01=0x005e}
0x35b2…35d2 Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x0022, t01=0x009a}
0x35d2…35fc Head {h00=0x0026, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONV «, t00=0x0022, t01=0x00ba}
0x35fc…3626 Head {h00=0x0026, h01=0x0050, text=» MOVE WORK(W7),W0 (...)-LENGTH:=0 «, t00=0x0022, t01=0x00e4}
0x3626…3650 Head {h00=0x0026, h01=0x0050, text=» XCOPY WORK(W7),W1,W1,WSTRG,DEBIN3«, t00=0x0022, t01=0x010e}
0x3650…3686 Head {h00=0x0032, h01=0x0050, text=» SUB WORK(W7),W128 GET LENGTH 0F (...)-STRING «, t00=0x0022, t01=0x0138}
0x3686…36be Head {h00=0x0034, h01=0x0050, text=» XCOPY WSTRG,DEBIN3,W1,VALSTR,W29 =>(-CHARACTER «, t00=0x0022, t01=0x016e}
0x36be…36ee Head {h00=0x002c, h01=0x0050, text=» ADD WORK(W7),DEBIN3 ENDPOS (...)-STRING«, t00=0x0023, t01=0x0016}
0x36ee…3712 Head {h00=0x0020, h01=0x0050, text=» ADD WORK(W7),W1 ADJUST DITO«, t00=0x0023, t01=0x0046}
0x3712…3740 Head {h00=0x002a, h01=0x0050, text=» SET BOOL4 T=CONDITIONAL GEN/ACC FOUND«, t00=0x0023, t01=0x006a}
0x3740…3756 Head {h00=0x0012, h01=0x0050, text=» B BNC0 GO ON «, t00=0x0023, t01=0x0098}
0x3756…3762 Head {h00=0x0008, h01=0x0050, text=»BNCR«, t00=0x0023, t01=0x00ae}
0x3762…376e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x00ba}
0x376e…377c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x00c6}
0x377c…378a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00d4}
0x378a…3794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00e2}
0x3794…37da Head {h00=0x0042, h01=0x0050, text=»* CONVERT BINARY NUMERICALS ,FROM ACTUAL POINT IN BUFFER«, t00=0x0023, t01=0x00ec}
0x37da…381e Head {h00=0x0040, h01=0x0050, text=»* TO ALPHANUMERIC CHARACTER STRING. AND COPIES IT INTO«, t00=0x0023, t01=0x0132}
0x381e…384a Head {h00=0x0028, h01=0x0050, text=»* THE SAME POSITION IN BUFFER «, t00=0x0023, t01=0x0176}
0x384a…3854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0012}
0x3854…38a4 Head {h00=0x004c, h01=0x0050, text=»* USED VARIABLES : DEBIN1 = NUMBER OF ALPHANUMERIC STRG-CHARCTERS«, t00=0x0024, t01=0x001c}
0x38a4…38ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x006c}
0x38ae…38fe Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0024, t01=0x0076}
0x38fe…391c Head {h00=0x001a, h01=0x0050, text=»CONBIN PROC WSTRG,FIND«, t00=0x0024, t01=0x00c6}
0x391c…393c Head {h00=0x001c, h01=0x0050, text=» ADD DEBIN3,W1 NEXT POS «, t00=0x0024, t01=0x00e4}
0x393c…3970 Head {h00=0x0030, h01=0x0050, text=» XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 COPY BINNUM«, t00=0x0024, t01=0x0104}
0x3970…399a Head {h00=0x0026, h01=0x0050, text=» MOVE BCD13A,DEBIN4 LOAD BIN=>BCD «, t00=0x0024, t01=0x0138}
0x399a…39ba Head {h00=0x001c, h01=0x0050, text=» MOVE DEBIN1,W0 ZEROISE «, t00=0x0024, t01=0x0162}
0x39ba…39f0 Head {h00=0x0032, h01=0x0050, text=» EDSUB STR6A,DEBIN1,FCONV(FIND) CONV BCD=>STRG«, t00=0x0024, t01=0x0182}
0x39f0…3a26 Head {h00=0x0032, h01=0x0050, text=» DLETE WSTRG,DEBIN3,W1 DELETE BINNUM POSITION «, t00=0x0025, t01=0x0028}
0x3a26…3a68 Head {h00=0x003e, h01=0x0050, text=» INSRT WSTRG,DEBIN3,DEBIN1,STR6A,W0 INSERT STRG-CHARACTERS«, t00=0x0025, t01=0x005e}
0x3a68…3a86 Head {h00=0x001a, h01=0x0050, text=» SUB DEBIN1,W1 ADJUST «, t00=0x0025, t01=0x00a0}
0x3a86…3aae Head {h00=0x0024, h01=0x0050, text=» ADD BIN15,DEBIN1 ADJUST LENGTH «, t00=0x0025, t01=0x00be}
0x3aae…3ad6 Head {h00=0x0024, h01=0x0050, text=» ADD DEBIN3,DEBIN1 ADJUST BUFPOS«, t00=0x0025, t01=0x00e6}
0x3ad6…3b08 Head {h00=0x002e, h01=0x0050, text=» ADD FBIN1,DEBIN1 ADJUST NUMB OF CONVERTED«, t00=0x0025, t01=0x010e}
0x3b08…3b36 Head {h00=0x002a, h01=0x0050, text=» ADD FBIN1,W1 ADJUST NUMB OF CONVERTED«, t00=0x0025, t01=0x0140}
0x3b36…3b68 Head {h00=0x002e, h01=0x0050, text=» TBF BOOL4,CONRET GO ON IF NO COND GEN ACC«, t00=0x0025, t01=0x016e}
0x3b68…3b9c Head {h00=0x0030, h01=0x0050, text=» ADD WORK(W7),DEBIN1 ADJUST ENDPOS OF (...) «, t00=0x0026, t01=0x0010}
0x3b9c…3baa Head {h00=0x000a, h01=0x0050, text=»CONRET«, t00=0x0026, t01=0x0044}
0x3baa…3bb6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0026, t01=0x0052}
0x3bb6…3bc4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0026, t01=0x005e}
0x3bc4…3bd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x006c}
0x3bd2…3bf8 Head {h00=0x0022, h01=0x0050, text=»FCONV FTABLE CONV1,CONV2,CONV3«, t00=0x0026, t01=0x007a}
0x3bf8…3c0a Head {h00=0x000e, h01=0x0050, text=»CONV1 FRMT«, t00=0x0026, t01=0x00a0}
0x3c0a…3c22 Head {h00=0x0014, h01=0x0050, text=» FMEL '9',BCD13A«, t00=0x0026, t01=0x00b2}
0x3c22…3c30 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x00ca}
0x3c30…3c42 Head {h00=0x000e, h01=0x0050, text=»CONV2 FRMT«, t00=0x0026, t01=0x00d8}
0x3c42…3c5c Head {h00=0x0016, h01=0x0050, text=» FMEL '99',BCD13A «, t00=0x0026, t01=0x00ea}
0x3c5c…3c6a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x0104}
0x3c6a…3c7c Head {h00=0x000e, h01=0x0050, text=»CONV3 FRMT«, t00=0x0026, t01=0x0112}
0x3c7c…3c96 Head {h00=0x0016, h01=0x0050, text=» FMEL '999',BCD13A«, t00=0x0026, t01=0x0124}
0x3c96…3ca4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0026, t01=0x013e}
0x3ca4…3cb0 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0026, t01=0x014c}
0x3cb0…3cb4 Head {h00=0x4004, h01=0x0000}
0x3cb4…3cb8 00 26 01 58 ┆ & X┆
0x3cb8…3cc0 (39, 1, 8) 20 04 00 00 00 27 00 04 ┆ ' ┆
0x3cc0…3d10 (40, 0, 398) 4f 4c 55 4d 45 27 00 17 01 7e 00 08 00 50 5c 46 4e 4c 00 18 00 0e 00 12 00 50 5c 46 43 4f 50 59 5c 3d 43 27 32 20 3d 27 00 18 00 1a 00 0c 00 50 5c 46 54 41 42 5c 35 20 00 18 00 30 00 1a 00 50 5c 46 43 4f 50 59 5c 3d 43 27 43 52 45 41 54 45 ┆OLUME' ~ P FNL P FCOPY =C'2 =' P FTAB 5 0 P FCOPY =C'CREATE┆
0x3d10…3d60 20 46 49 4c 45 27 00 18 00 40 00 08 00 50 5c 46 4e 4c 00 18 00 5e 00 12 00 50 5c 46 43 4f 50 59 5c 3d 43 27 33 20 3d 27 00 18 00 6a 00 0c 00 50 5c 46 54 41 42 5c 35 20 00 18 00 80 00 16 00 50 5c 46 43 4f 50 59 5c 3d 43 27 44 45 4c 45 54 45 ┆ FILE' @ P FNL ^ P FCOPY =C'3 =' j P FTAB 5 P FCOPY =C'DELETE┆
0x3d60…3db0 27 20 00 18 00 90 00 0c 00 50 5c 46 54 41 42 5c 31 32 00 18 00 aa 00 14 00 50 5c 46 43 4f 50 59 5c 3d 43 27 46 49 4c 45 27 20 00 18 00 ba 00 08 00 50 5c 46 4e 4c 00 18 00 d2 00 12 00 50 5c 46 43 4f 50 59 5c 3d 43 27 34 20 3d 27 00 18 00 de ┆' P FTAB 12 P FCOPY =C'FILE' P FNL P FCOPY =C'4 =' ┆
0x3db0…3e00 00 0c 00 50 5c 46 54 41 42 5c 35 20 00 18 00 f4 00 1a 00 50 5c 46 43 4f 50 59 5c 3d 43 27 43 4f 50 59 20 53 59 53 46 49 4c 27 00 18 01 04 00 08 00 50 5c 46 4e 4c 00 18 01 22 00 12 00 50 5c 46 43 4f 50 59 5c 3d 43 27 35 20 3d 27 00 18 01 2e ┆ P FTAB 5 P FCOPY =C'COPY SYSFIL' P FNL " P FCOPY =C'5 =' .┆
0x3e00…3e4e 00 0c 00 50 5c 46 54 41 42 5c 35 20 00 18 01 44 00 1c 00 50 5c 46 43 4f 50 59 5c 3d 43 27 43 4f 50 59 20 55 53 45 52 46 49 4c 27 20 00 18 01 54 00 08 00 50 5c 46 4e 4c 00 18 01 74 00 12 00 50 5c 46 43 4f 50 59 5c 3d 43 27 36 20 3d 27 ┆ P FTAB 5 D P FCOPY =C'COPY USERFIL' T P FNL t P FCOPY =C'6 ='┆
0x3e4e…3e9e (41, 0, 398) 00 18 01 80 00 0c 00 50 5c 46 54 41 42 5c 35 20 00 19 00 08 00 24 00 50 5c 46 43 4f 50 59 5c 3d 43 27 43 4f 50 59 20 53 59 53 56 4f 4c 20 54 4f 20 53 59 53 56 4f 4c 27 00 19 00 18 00 08 00 50 5c 46 4e 4c 00 19 00 40 00 12 00 50 5c 46 43 4f ┆ P FTAB 5 $ P FCOPY =C'COPY SYSVOL TO SYSVOL' P FNL @ P FCO┆
0x3e9e…3eee 50 59 5c 3d 43 27 37 20 3d 27 00 19 00 4c 00 0c 00 50 5c 46 54 41 42 5c 35 20 00 19 00 62 00 22 00 50 5c 46 43 4f 50 59 5c 3d 43 27 43 48 41 4e 47 45 20 56 4f 4c 55 4d 45 2d 4e 41 4d 45 27 20 00 19 00 72 00 08 00 50 5c 46 4e 4c 00 19 00 98 ┆PY =C'7 =' L P FTAB 5 b " P FCOPY =C'CHANGE VOLUME-NAME' r P FNL ┆
0x3eee…3f3e 00 12 00 50 5c 46 43 4f 50 59 5c 3d 43 27 38 20 3d 27 00 19 00 a4 00 0c 00 50 5c 46 54 41 42 5c 35 20 00 19 00 ba 00 1c 00 50 5c 46 43 4f 50 59 5c 3d 43 27 56 4f 4c 55 4d 45 20 53 55 52 56 45 59 27 00 19 00 ca 00 0a 00 50 5c 46 4d 45 4e 44 ┆ P FCOPY =C'8 =' P FTAB 5 P FCOPY =C'VOLUME SURVEY' P FMEND┆
0x3f3e…3f8e 00 19 00 ea 00 06 00 50 2a 20 00 19 00 f8 00 0e 00 50 46 43 52 56 5c 46 52 4d 54 20 00 19 01 02 00 08 00 50 5c 46 53 4c 00 19 01 14 00 1c 00 50 5c 46 43 4f 50 59 5c 3d 43 27 43 52 45 41 54 45 20 56 4f 4c 55 4d 45 27 00 19 01 20 00 08 00 50 ┆ P* PFCRV FRMT P FSL P FCOPY =C'CREATE VOLUME' P┆
0x3f8e…3fdc 5c 46 4e 4c 00 19 01 40 00 16 00 50 5c 46 43 4f 50 59 5c 3d 43 27 55 4e 49 54 3a 20 55 27 00 19 01 4c 00 28 00 50 5c 46 4b 49 5c 38 2c 4d 49 4e 4c 3d 31 2c 4d 41 58 4c 3d 31 2c 4d 45 2c 4e 45 4f 49 2c 41 50 50 4c 3d 38 20 00 19 01 66 ┆ FNL @ P FCOPY =C'UNIT: U' L ( P FKI 8,MINL=1,MAXL=1,ME,NEOI,APPL=8 f┆
0x3fdc…402c (42, 0, 400) 00 10 00 50 5c 46 43 4f 50 59 5c 55 4e 49 54 20 00 1a 00 04 00 0c 00 50 5c 46 54 41 42 5c 31 32 00 1a 00 18 00 1c 00 50 5c 46 43 4f 50 59 5c 3d 43 27 56 4f 4c 55 4d 45 2d 4e 41 4d 45 3a 27 20 00 1a 00 28 00 0c 00 50 5c 46 49 4e 50 5c 32 35 ┆ P FCOPY UNIT P FTAB 12 P FCOPY =C'VOLUME-NAME:' ( P FINP 25┆
0x402c…407c 00 1a 00 48 00 12 00 50 5c 46 43 4f 50 59 5c 56 4f 4c 4e 41 4d 20 00 1a 00 58 00 08 00 50 5c 46 4e 4c 00 1a 00 6e 00 1c 00 50 5c 46 43 4f 50 59 5c 3d 43 27 56 4f 4c 55 4d 45 2d 4e 41 4d 45 3a 27 20 00 1a 00 7a 00 30 00 50 5c 46 4b 49 5c 31 ┆ H P FCOPY VOLNAM X P FNL n P FCOPY =C'VOLUME-NAME:' z 0 P FKI 1┆
0x407c…40cc 34 2c 4d 49 4e 4c 3d 31 2c 4d 41 58 4c 3d 36 2c 41 4c 50 48 41 2c 4d 45 2c 4e 45 4f 49 2c 41 50 50 4c 3d 31 34 20 00 1a 00 9a 00 1e 00 50 5c 46 43 4f 50 59 5c 56 4f 4c 4e 41 4d 5c 56 4f 4c 55 4d 45 2d 4e 41 4d 45 20 00 1a 00 ce 00 10 00 50 ┆4,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=14 P FCOPY VOLNAM VOLUME-NAME P┆
0x40cc…411c 5c 46 4c 49 4e 4b 5c 46 48 45 58 20 00 1a 00 f0 00 0a 00 50 5c 46 4d 45 4e 44 00 1a 01 04 00 06 00 50 2a 20 00 1a 01 12 00 0e 00 50 46 43 4f 50 53 5c 46 52 4d 54 00 1a 01 1c 00 08 00 50 5c 46 53 4c 00 1a 01 2e 00 1a 00 50 5c 46 43 4f 50 59 ┆ FLINK FHEX P FMEND P* PFCOPS FRMT P FSL . P FCOPY┆
0x411c…416c 5c 3d 43 27 43 4f 50 59 20 53 59 53 46 49 4c 27 00 1a 01 3a 00 0e 00 50 5c 46 4c 49 4e 4b 5c 46 49 4f 00 1a 01 58 00 0a 00 50 5c 46 4d 45 4e 44 00 1a 01 6a 00 06 00 50 2a 20 00 1a 01 78 00 0e 00 50 46 43 4f 50 55 5c 46 52 4d 54 00 1a 01 82 ┆ =C'COPY SYSFIL' : P FLINK FIO X P FMEND j P* x PFCOPU FRMT ┆
0x416c…41bc (43, 0, 400) 00 08 00 50 5c 46 53 4c 00 1b 00 04 00 1c 00 50 5c 46 43 4f 50 59 5c 3d 43 27 43 4f 50 59 20 55 53 45 52 46 49 4c 27 20 00 1b 00 10 00 0e 00 50 5c 46 4c 49 4e 4b 5c 46 49 4f 00 1b 00 30 00 0a 00 50 5c 46 4d 45 4e 44 00 1b 00 42 00 06 00 50 ┆ P FSL P FCOPY =C'COPY USERFIL' P FLINK FIO 0 P FMEND B P┆
0x41bc…420c 2a 20 00 1b 00 50 00 0e 00 50 43 4f 50 59 53 5c 46 52 4d 54 00 1b 00 5a 00 08 00 50 5c 46 53 4c 00 1b 00 6c 00 22 00 50 5c 46 43 4f 50 59 5c 3d 43 27 57 48 4f 4c 45 20 46 49 4c 45 20 3f 20 20 59 2f 4e 3a 27 20 00 1b 00 78 00 2e 00 50 5c 46 ┆* P PCOPYS FRMT Z P FSL l " P FCOPY =C'WHOLE FILE ? Y/N:' x . P F┆
0x420c…425c 4b 49 5c 31 39 2c 4d 49 4e 4c 3d 31 2c 4d 41 58 4c 3d 31 2c 4d 45 2c 4e 45 4f 49 2c 41 4c 50 48 41 2c 41 50 50 4c 3d 31 00 1b 00 9e 00 10 00 50 5c 46 43 4f 50 59 5c 43 4f 50 59 20 00 1b 00 d0 00 10 00 50 5c 46 4c 49 4e 4b 5c 46 48 45 58 20 ┆KI 19,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 P FCOPY COPY P FLINK FHEX ┆
0x425c…42ac 00 1b 00 e4 00 0a 00 50 5c 46 4d 45 4e 44 00 1b 00 f8 00 06 00 50 2a 20 00 1b 01 06 00 0e 00 50 46 43 4f 50 59 5c 46 52 4d 54 00 1b 01 10 00 08 00 50 5c 46 53 4c 00 1b 01 22 00 24 00 50 5c 46 43 4f 50 59 5c 3d 43 27 43 4f 50 59 20 53 59 53 ┆ P FMEND P* PFCOPY FRMT P FSL " $ P FCOPY =C'COPY SYS┆
0x42ac…42fc 56 4f 4c 20 54 4f 20 53 59 53 56 4f 4c 27 00 1b 01 2e 00 0e 00 50 5c 46 4c 49 4e 4b 5c 46 49 4f 00 1b 01 56 00 0a 00 50 5c 46 4d 45 4e 44 00 1b 01 68 00 06 00 50 2a 20 00 1b 01 76 00 0c 00 50 46 49 4f 5c 46 52 4d 54 00 1b 01 80 00 08 00 50 ┆VOL TO SYSVOL' . P FLINK FIO V P FMEND h P* v PFIO FRMT P┆
0x42fc…434c (44, 0, 400) 5c 46 4e 4c 00 1b 01 90 00 14 00 50 5c 46 43 4f 50 59 5c 3d 43 27 49 4e 50 55 54 27 00 1c 00 0c 00 0c 00 50 5c 46 54 41 42 5c 37 20 00 1c 00 24 00 18 00 50 5c 46 43 4f 50 59 5c 3d 43 27 55 4e 49 54 20 4e 4f 2e 3a 27 00 1c 00 34 00 28 00 50 ┆ FNL P FCOPY =C'INPUT' P FTAB 7 $ P FCOPY =C'UNIT NO.:' 4 ( P┆
0x434c…439c 5c 46 4b 49 5c 31 37 2c 4d 49 4e 4c 3d 31 2c 4d 41 58 4c 3d 31 2c 4d 45 2c 4e 45 4f 49 2c 41 50 50 4c 3d 39 00 1c 00 50 00 10 00 50 5c 46 43 4f 50 59 5c 55 4e 49 54 20 00 1c 00 7c 00 0c 00 50 5c 46 54 41 42 5c 32 30 00 1c 00 90 00 1c 00 50 ┆ FKI 17,MINL=1,MAXL=1,ME,NEOI,APPL=9 P P FCOPY UNIT | P FTAB 20 P┆
0x439c…43ec 5c 46 43 4f 50 59 5c 3d 43 27 56 4f 4c 55 4d 45 2d 4e 41 4d 45 3a 27 20 00 1c 00 a0 00 0c 00 50 5c 46 49 4e 50 5c 33 33 00 1c 00 c0 00 12 00 50 5c 46 43 4f 50 59 5c 56 4f 4c 4e 41 4d 20 00 1c 00 d0 00 08 00 50 5c 46 4e 4c 00 1c 00 e6 00 16 ┆ FCOPY =C'VOLUME-NAME:' P FINP 33 P FCOPY VOLNAM P FNL ┆
0x43ec…443c 00 50 5c 46 43 4f 50 59 5c 3d 43 27 4f 55 54 50 55 54 27 20 00 1c 00 f2 00 0c 00 50 5c 46 54 41 42 5c 38 20 00 1c 01 0c 00 18 00 50 5c 46 43 4f 50 59 5c 3d 43 27 55 4e 49 54 20 4e 4f 2e 3a 27 00 1c 01 1c 00 2a 00 50 5c 46 4b 49 5c 31 37 2c ┆ P FCOPY =C'OUTPUT' P FTAB 8 P FCOPY =C'UNIT NO.:' * P FKI 17,┆
0x443c…448c 4d 49 4e 4c 3d 31 2c 4d 41 58 4c 3d 31 2c 4d 45 2c 4e 45 4f 49 2c 41 50 50 4c 3d 31 30 20 00 1c 01 38 00 10 00 50 5c 46 43 4f 50 59 5c 53 54 52 31 41 00 1c 01 66 00 0c 00 50 5c 46 54 41 42 5c 32 30 00 1c 01 7a 00 1c 00 50 5c 46 43 4f 50 59 ┆MINL=1,MAXL=1,ME,NEOI,APPL=10 8 P FCOPY STR1A f P FTAB 20 z P FCOPY┆