|
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: 17460 (0x4434)
Notes: pts_type(SC)
Names: »DEUNPF.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DEUNPF.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DEUNPF.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DEUNPF.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DEUNPF.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DEUNPF.SC«
IDENT DEUNPF REL 10.0 80-04-11 80-02-19/JAER * * THIS PROGRAM UNPACKS NEXT FIELD * FROM CURRENT ATTACHED FORMAT AND * MOVES THE UNPAKED VALUES IN THEIR * CORRESPONDING ITEMS. THIS COULD BE * USABLE IN CORRECTION MODE AND PRINT * OF THE FORMAT GENERATION. * * -FORMAL PARAMETERS : BUFPOS = CURRENT BUFFER POSITION * OPT = 1 = CORRECTION MODE * = 2 = PRINTOUT MODE * -INPUT VARIABLES : PINDCB = FORMAT BUFFER INDEX * BIN1 = FORMAT BUFFER POINTER * BIN10 = FIELDNR * * -WORK VARIABLES : * FBIN1 = NUMBER OF CONVERTED POSITIONS * BOOL9 = F FKI NOT FOUND YET * = T FKI FOUND * * -OUTPUT VARIABLE : DEBINW2= 0 OK * = 1 END OF FORMAT FOUND * BIN12 = NUMBER OF LAYOUT CHARACTERS * FMTWK(W1) = NUMBER OF VALIDATION CHARACTERS * FMTWK(W2) = NUMBER OF GENERATION CHARACTERS * FMTWK(W3) = NUMBER OF ACCUMULATION CHARACTERS * FMTWK(W4) = NUMBER OF DUPLICATION CHARACTERS * * 2-BYTE ADRESSING COMPATIBLE ********************************************************************** DDUM DEDDIV PDIV ENTRY DEUNPF UNPACK NEXT FIELD * ENTRY FEDIT FORMAT EDITING * ENTRY DEUNPL UNPACK NEXT LINE EXT NOPOOL NUMBER OF USED POOLS EXT BINCON CONVERT BIN=>STRG EXT RCNTRL READ FIELD CONTROL WORD EXT FMOVE FORMAT MOVE EXT GETFWD GETFIELD FROM CURRENT EXT ADJUST * * EQUATES * ALPHA EQU X'00' ALPHANUMERIC SCHK EQU X'03' SPECIAL CHECK EJECT DEUNPF PROC BUFPOS,OPT CLEAR BOOL9 NO FKI FOUND UNPM MOVE BIN16,W3 MATCHINDEX:=3 MATCH FDIR,BIN16,W16,BPOOL(PINDCB),BUFPOS,W1 MATCH CHARS SWITCH IB BIN16,UNPELB,UNPELB,UNP3,UNP4, 1-4 C UNPELB,UNPELB,UNPELB,UNPELB,UNP9, 5-9 C UNP10,UNP11,UNPELB,UNP13,UNP13, 10-14 C UNP13,UNP13,UNP13,UNP13 15 UNPELB B UNPE END OF FORMAT EJECT UNP3 MOVE BIN15,W0 ADD BUFPOS,W1 NEXT BUFPOS XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB OF CHARS ADD BUFPOS,BIN15 ADJUST FOR CHARS UNP10 (FSL) ADD BUFPOS,W1 NEXT BUFPOS B UNPM GO ON UNP4 (FTAB) ADD BUFPOS,W2 B UNPM GO ON EJECT UNP9 (FLINK) PERF UNPFLK,BUFPOS UNPACK FLINK INIT NEXT BUFFER TBF BOOL7,UNP9A JUMP IF NOT CORR-MODE MOVE DEBINW3,W0 WORK:=0 XCOPY DEBINW3,W1,W1,RPOOL(PINDFR),W8 LOAD LINK NEXT XCOPY RPOOL(PINDFR),W0,W1,PICSTR,W5 'X'-FREEMARK MOVE PINDFR,DEBINW3 NEXT BUFFER SUB WORK(W4),W1 REDUCE NUMB OF OLD FPOOLS PERF NOPOOL NUMBER OF USED POOLS DISPLAY 2,W2,W2 DISPLAY DITO WHILE CHANGED UNP9A TBT BOOL9,UNPMF JUMP IF FKI FOUND B UNPM GO ON UNP11 (FNL) ADD BUFPOS,W1 SET BOOL5 END OF LINE B U13I EJECT UNP13 (FKI) SET BOOL9 FKI FOUND SUB BIN16,W13 ADD BUFPOS,W1 NEXT BUFPOS MOVE BIN15,W0 XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET TABPOS CBE BIN15,W1,UNPELB JUMP IF DUMMY-FIELD MOVE FDVBCD(W5),BIN15 STORE FIELDPOS MOVE FDVBCD(W4),BIN10 STORE FIELDNR ADD BUFPOS,W1 NEXT BUFPOS MOVE BIN15,W0 WORK:=0 IB BIN16,U13Y,U13X,U13Z,U13Y,U13X JUMP ON FKI-CODE B U13Z U13X XCOPY BIN15,W0,W2,BPOOL(PINDCB),BUFPOS ADD BUFPOS,W2 ADJUST NEXT BUFFPOS B U13Z U13Y XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS ADD BUFPOS,W1 ADJUST NEXT BUFPOS U13Z MOVE SPEC,BIN15 STORE APPLE CBL BIN16,W3,U13A JUMP IF NO DUPL MOVE BIN15,W1 CALL FMOVE,STRG10A,IND1 FETCH INDEX-ITEMADRESS=1 MATCH STRG10A,BIN15,W9,FDIR,W0,W1 ADD BUFPOS,BIN15 ADJUST NEXT BUFFPOS U13A CALL RCNTRL,BPOOL(PINDCB),BUFPOS,DEBINW1,BIN15,BIN7 CTLS MOVE FDVBCD(W6),BIN7 STORE MAXLENGTH MOVE FDVBCD(W7),BIN15 STORE MINLENGTH EJECT TBT BOOL6,U13F JUMP IF BALANCE FORMAT MOVE FDVSTR(W1),='Y' KEYED INPUT TBF CTAB,U13V JUMP IF KEYED INPUT MOVE FDVSTR(W1),='C' CBL BIN16,W3,U13V MOVE FDVSTR(W1),='N' NO KEYED INPUT U13V MOVE FDVSTR(W2),='N' ME=N TBF ME,U13B MOVE FDVSTR(W2),='Y' ME=Y U13B MOVE FDVSTR(W3),='N' AUTOTAB=N TBF NEOI,U13C MOVE FDVSTR(W3),='Y' AUTOTAB=Y U13C MOVE FDVSTR(W4),='N' VERIFY=N TBF VERIFY,U13D MOVE FDVSTR(W4),='Y' VERIFY=Y U13D MOVE FDVSTR(W5),='Y' INIT.CLEAR=Y TBF NCLR,U13E MOVE FDVSTR(W5),='N' INIT.CLEAR=N U13E TBF SCHK4,U13F MOVE FDVSTR(W2),='C' ME=C U13F ADD BUFPOS,W3 ADJUST BUFFPOS EJECT MOVE STATSH,HEX00 MOVE JOBSPC,HEX00 MOVE DEBIN3,W0 WORKSTRINGPOINTER:=0 MOVE FMTWK(W1),W0 VALCARS:=0 MOVE FMTWK(W2),W0 GENCHARS:=0 MOVE FMTWK(W3),W0 ACCCHARS:=0 MOVE FMTWK(W4),W0 DUPCHARS:=0 MOVE FMTWK(W11),W0 MOVE STR64A,=C'#V:#G:#A:' MOVE DUPL,HEX00 UNPMF MOVE FBIN1,W3 INITIATE NUMB OF CONV MOVE BIN16,W0 MATCHINDEX:=0 MATCH FDIR,BIN16,W16,BPOOL(PINDCB),BUFPOS,W1 BNOK U13G NO FVAL,FGEN,FACC,FDUPL CBE BIN16,W0,UNPLB END OF FORMAT IB BIN16,UNP1,UNP2,UNLB,UNLB, 1-4 C UNP2,UNP2,UNP2,UNP2,UNP9 5-9 UNLB B U13G NO FVAL,FGEN,FACC,FDUPL UNPLB B UNPE UNP1 ADD BUFPOS,W3 (FCOPY) B UNPMF GO ON EJECT UNP2 (FMELI) MOVE BIN15,W0 ADD BUFPOS,W1 NEXT BUFPOS XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB OF CHARS ADD BUFPOS,W1 1ST CHAR.-POS CBNE BIN16,W2,UNP2A JUMP IF NOT FMELI PERF UNPICT,BUFPOS UNPACK PICTURE LAYOUT TBT BOOL6,PICB JUMP IF BALANCE FORMAT ADD BUFPOS,W2 ADJUST B UNPMF GO ON PICB ADD BUFPOS,W1 ADJUST MOVE DEBIN1,W1 NUMB OF CHARS TO COPY 1B-ADR MOVE DEBIN2,W1 WORK:=1 MOVE BIN15,W1 WORK:=1 CALL FMOVE,STRG10A,IND1 FETCH INDEX-ITEMADRESS=1 MATCH STRG10A,BIN15,W9,FDIR,W0,W1 CBE BIN15,W1,PICB1 JUMP IF 1BYTE ADR ADD BUFPOS,W3 ADJUST BUFFERPOS 2B-ADR MOVE DEBIN1,W2 NUMB OF CHARS TO COPY 2B-ADR MOVE DEBIN2,W0 STARTPOS 2B-ADR PICB1 MOVE BIN15,W0 WORK:=0 XCOPY BIN15,DEBIN2,DEBIN1,BPOOL(PINDCB),BUFPOS INDEX-ITEMADR MOVE BIN16,W0 WORK:=0 XCOPY BIN16,DEBIN2,DEBIN1,STRG10A,W0 LOAD IND-ITEM ADR=1 SUB BIN16,W1 FIX MASK X0 SUB BIN15,BIN16 MASKOUT=>INDEX VALUE MOVE FDVBCD(W8),BIN15 STORE ACC.NO ADD BUFPOS,W1 ADJUST B UNPMF GO ON UNP2A SUB BIN16,W4 ADJUST FOR INDEX-BRANCH MOVE DEBINW1,BIN16 SAVE FUNCINDEX IB BIN16,UNP2B,UNP2C,UNP2D,UNP2E UNP2B (FVAL) XCOPY JOBSPC,DEBIN3,W3,STR64A,W0 '#V:' B UNP2F UNP2C (FGEN) XCOPY JOBSPC,DEBIN3,W3,STR64A,W3 '#G:' B UNP2F ADJUST UNP2D XCOPY JOBSPC,DEBIN3,W3,STR64A,W6 '#A:' UNP2F ADD DEBIN3,W3 NEXT POSITION PERF BINCON,JOBSPC,DEBINW1 CONVERT BINNUM=>STRG ADD FMTWK(W11),BIN15 ADD NUMB OF CONV CHARS CBE OPT,W2,UNP2G JUMP IF PRINTOUT MODE MOVE FMTWK(DEBINW1),DEBIN3 SAVE NUMB OF ACCUM.CHARS B UNPMF UNP2G MOVE FMTWK(DEBINW1),BIN15 SAVE NUMB CONV CHARS B UNPMF ADJUST UNP2E MOVE FBIN1,W0 INITIATE NUMB OF CONV MOVE DEBIN3,W0 WORKSTRINGPOINTER:=0 PERF BINCON,DUPL,DEBINW1 CONVERT BINNUM=>STRG MOVE FMTWK(W4),BIN15 SAVE NUMB OF DUPL.CHARS B UNPMF GO ON EJECT U13G CBE OPT,W2,U13I JUMP IF PRINTOUT MODE MOVE FMTWK(W10),=X'50' NUMB OF CHARS 1:=80 CBL FMTWK(W10),FMTWK(W11),U13H JUMP IF BOTH LINES USED MOVE FMTWK(W10),FMTWK(W11) ALL CHARCTERS IN 1ST STRG MOVE FMTWK(W11),W0 NUMB OF CHARS2:=0 B U13I U13H SUB FMTWK(W11),FMTWK(W10) COMPUT NUMB OF CHARS1 U13I MOVE DEBINW2,W0 OK B UNRET UNPE MOVE DEBINW2,W1 END-OF-FORMAT UNRET RET PEND EJECT * * UNPACK FLINK AND INITIALIZE * NEXT BUFFER * UNPFLK PROC POINT ADD POINT,W3 ADJUST BUFPOINTER 1B-ADR MOVE DEBIN1,W1 NUMB OF CHARS TO COPY 1B-ADR MOVE DEBIN2,W1 STARTPOS 1B-ADR MOVE BIN15,W1 MATCH STARTPOS:=1 CALL FMOVE,STRG10A,IND1 FETCH IND-ITEM-ADRESS=1 MATCH STRG10A,BIN15,W9,FDIR,W0,W1 CBE BIN15,W1,UNPFL2 JUMP IF 1B-ADR ADD POINT,W2 ADJUST BUFFPOS 2B-ADR MOVE DEBIN1,W2 NUMB OF CHARS TO COPY 2B-ADR MOVE DEBIN2,W0 STPOS 2B-ADR UNPFL2 MOVE BIN15,W0 WORK:=0 XCOPY BIN15,DEBIN2,DEBIN1,BPOOL(PINDCB),POINT INDEX-ITEMADR MOVE BIN16,W0 WORK:=0 XCOPY BIN16,DEBIN2,DEBIN1,STRG10A,W0 INDEX-ITEMADRESS=1 SUB BIN16,W1 FIX MASK X0 SUB BIN15,BIN16 MASKOUT=>INDEX VALUE MOVE PINDCB,FLIND(BIN15) GO ON WITH NEXT BUFFER MOVE POINT,W0 RESTART IN NEXT BUFFER RET PEND EJECT * * UNPACK AND EDIT PICTURE LAYOUT IN LDISP * UNPICT PROC POINT MOVE BIN12,W1 LDES-POINTER XCOPY STATSH,W0,W1,PICSTR,W13 COPY '<' PICM PICTURESTRING MATCH MOVE BIN16,W0 MATCHINGINDEX:=0 MATCH PICCON,BIN16,W4,BPOOL(PINDCB),POINT,W1 BNOK PINC NO CONVERT CBE BIN16,W0,PICS JUMP IF 'S'-CONVERT IB BIN16,PICP,PICE,PICX PINC XCOPY STATSH,BIN12,W1,BPOOL(PINDCB),POINT PI00 ADD POINT,W1 NEXT BUFFERPOS ADD BIN12,W1 NEXT LDES POS CBG BIN12,BIN15,PICR END OF PICTURESTRING FOUND B PICM GO ON PICS 'S'-CONVERT XCOPY STATSH,BIN12,W1,PICSTR,W9 COPY 'S' B PI00 PICP '.'-CONVERT XCOPY STATSH,BIN12,W1,PICSTR,W11 COPY '.' B PI00 PICE 'E'-CONVERT ADD POINT,W1 TAKE NEXT BUFFERPOS SUB BIN15,W1 ADJUST NUMBER OF CHARS B PINC PICX TBF SCHK2,PINC JUMP IF NOT LEFT ZERO FILL XCOPY STATSH,BIN12,W1,PICSTR,W14 COPY '0' B PI00 NEXT MATCH PICR XCOPY STATSH,BIN12,W1,PICSTR,W12 COPY '>' ADD BIN12,W1 =NUMB OF LAYOUT CHARS RET PEND EJECT * * THIS ROUTINE UNPACKS NEXT LINE FROM CURRENT ATTACHED * FORMAT AND EDITS THE FORMAT PARTS IN 'LINE-DESIGN'-ITEM * * USED VARIABLES : BIN16 = MATCHINGPOINTER * BIN15 = WORKITEM * DEBIN2 = MAXLENGTH ALPHANUM-FIELDS * DEBIN3 = POINTER POSITIONER LDES-ITEM * DEBIN4 = SAVED BUFFER-IDEX IF ALTERED * DURING ROUTINE-SESSION * DEUNPL PROC BUFPOS MOVE DEBINW2,W0 OK-SIGNAL MOVE LDES,=' ' LDES:='SPACES' MOVE DEBIN3,W0 POINTER LDES:=0 CLEAR BOOL5 F=END-OF-LINE NOT REACHED CLEAR BOOL8 F=NO BUFFER ALTERED LUPM MOVE BIN16,W0 MATCHING INDEX:=0 MATCH FDIR,BIN16,W18,BPOOL(PINDCB),BUFPOS,W1 SWITCH IB BIN16,LUP1,LUP5,LUP3,LUP4, 1-4 C LUP5,LUP5,LUP5,LUP5, 5-8 C LUP9,LUP10,LUP11,LUPR 9-R C LUP13,LUP13,LUP13,LUP13, 13-16 C LUP13,LUP13 17-18 LUPRLB B LUPR END OF FORMAT EJECT LUP1 FCOPY MOVE BIN15,W0 WORK:=0 ADD BUFPOS,W1 NEXT BUFFERPOS XCOPY LDES,DEBIN3,W1,PICSTR,W13 COPY '<' ADD DEBIN3,W1 NEXT LDESPOSITION ADD BUFPOS,W1 NEXT BUFFERPOS XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET FIELDNR TBF SCHK2,LUP1A JUMP IF LEFT ADJUSTED MOVE DEINPUT,='R' LOAD WITH 'R':S B LUP1B LUP1A MOVE DEINPUT,='L' LOAD WITH 'L':S LUP1B XCOPY LDES,DEBIN3,DEBIN2,DEINPUT,W0 COPY NUMBER OF 'R'/'L':S ADD DEBIN3,DEBIN2 ADJUST LDESPOINTER XCOPY LDES,DEBIN3,W1,PICSTR,W12 COPY '>' ADD BUFPOS,W1 ADD DEBIN3,W1 ADJUST POINTER B LUPM EJECT LUP2 FMELI PERF UNPICT,BUFPOS UNPACK/EDUT PICTURELAYOUT XCOPY LDES,DEBIN3,BIN12,STATSH,W0 ADD BUFPOS,W2 ADJUST BUFFERPOS ADD DEBIN3,BIN12 ADJUST POINTER TBF BOOL6,LUPM JUMP IF GENERAL FORMAT MOVE BIN15,W1 CALL FMOVE,STRG10A,IND1 FETCH IND ITEM ADRESS=1 MATCH STRG10A,BIN15,W9,FDIR,W0,W1 CBE BIN15,W1,LUPM JUMP IF 1B-ADR ADD BUFPOS,W2 ADJUST BUFPOS 2B-ADR B LUPM GO ON EJECT LUP3 FTEXT MOVE BIN15,W0 WORK:=0 ADD BUFPOS,W1 ADJUST BUFFPOS XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB CHARCTERS ADD BUFPOS,W1 1ST CHARCTER-POSITION XCOPY LDES,DEBIN3,BIN15,BPOOL(PINDCB),BUFPOS COPY TEXTSTRING ADD BUFPOS,BIN15 ADJUST BUFFPOS ADD DEBIN3,BIN15 ADJUST POINTERPOS B LUPM GO ON EJECT LUP4 FTAB MOVE DEBIN3,W0 POINTER:=0 ADD BUFPOS,W1 NEXT BUFFPOS XCOPY DEBIN3,W1,W1,BPOOL(PINDCB),BUFPOS TABPOS SUB DEBIN3,W1 ADJUST TABPOS LUP10 ADD BUFPOS,W1 ADJUST BUFPOINTER B LUPM GO ON EJECT LUP5 FMELI,FVAL,FGEN,FACK,FDUPL MOVE BIN15,W0 WORK:=0 ADD BUFPOS,W1 NEXT BUFFPOS XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB OF CHARACTERS ADD BUFPOS,W1 1ST CHARCTERPOSITION CBE BIN16,W2,LUP2 JUMP IF FMELI ADD BUFPOS,BIN15 ADJUST FOR NUMB OF CHARS B LUPM GO ON EJECT LUP9 FLINK SET BOOL8 T=BUFFER ALTERED BNZ LUP9A JUMP IF BUFF ALREADY ALTERED MOVE DEBIN4,PINDCB SAVE BUFFERNUMBER LUP9A PERF UNPFLK,BUFPOS UNPACK FLINK INIT NEXT BUFFER B LUPM GO ON EJECT LUP11 FNL MOVE FMTWK(W5),DEBIN3 SAVE NUMBERS OF LDES CHARS LUP11A CBE DEBIN3,=X'50',LUP11B JUMP IF END-OF-LINE XCOPY LDES,DEBIN3,W1,HEX00,W0 LOAD THE REST WITH X'00' ADD DEBIN3,W1 B LUP11A LUP11B TBF BOOL8,LUPR JUMP IF NO BUFF.ALTERATION MOVE PINDCB,DEBIN4 RESTORE BUFFER'POINTER' B LUPR END-OF-LINE EJECT LUP13 FKI:S SUB BIN16,W12 MOVE DEBIN2,W0 WORK:=0 ADD BUFPOS,W1 NEXT BUFFPOS MOVE DEBIN3,W0 POINTER:=0 XCOPY DEBIN3,W1,W1,BPOOL(PINDCB),BUFPOS GET TABPOS AS POINTPS CBE DEBIN3,W1,LUPREF DUMMY-FORMAT FOUND SUB DEBIN3,W2 CBL BIN16,W4,LUP13A JUMP IF FKI WITHOUT DUPL SUB BIN16,W3 ADJUST FOR FKI WITH DUPL MOVE BIN15,W1 CALL FMOVE,STRG10A,IND1 MATCH STRG10A,BIN15,W9,FDIR,W0,W1 CHECK ADRESS-TYPE ADD BIN16,BIN15 ADJUST FOR 1 OR 2B-ADRESS LUP13A ADD BUFPOS,BIN16 ADJUST FOR NEXT BUFFPOS CALL RCNTRL,BPOOL(PINDCB),BUFPOS,DEBINW1,BIN16,DEBIN2 ADD BUFPOS,W3 ADJUST BUFFPOS B LUPM GO ON EJECT LUPREF MOVE DEBINW2,W1 E-O-F-SIGNAL LUPR RET PEND EJECT * * THIS ROUTINE EDITS AN ATTACHED FORMAT, * PUTTING '-99......' IN NUMERICAL ITEMS * 'LLL......' IN LEFTADJUSTED ALPHANUMERIC ITEMS AND * 'RRR......' IN RIGHTADJUSTED ALPHANUMERIC ITEMS * *********************************************************************** * FEDIT PROC MOVE DEINPUT,='-9' LOAD WITH -999999... MOVE DEBINW3,W0 INITIATE FIELD COUNTER FEDITL SWITCH ADD DEBINW3,W1 FIELDCOUNTER:=FC+1 CALL GETFWD,BIN16,0,DEBINW3,DEBINW4 CALL ADJUST,BIN16 BNOK FEDITR GETCTL 1,DEBINW4 GETMAXLENGTH CBE DEBINW4,W0,FEDITR MAXL=0 => END-OF-FORMAT TSTCTL ALPHA BZ FEDBCD JUMP IF NUMERIC GETCTL SCHK,DEBINW4 GET SPECIAL CHECK NR CBNE DEBINW4,W2,FELEFT JUMP IF NOT 2 MOVE :FMTITEM,=C'R' LOAD ITEM WITH 'R':S B FEDITL GO ON FELEFT MOVE :FMTITEM,=C'L' LOAD ITEM WITH 'L':S B FEDITL GO ON FEDBCD MOVE :FMTITEM,DEINPUT LOAD ITEM WITH '-9':S B FEDITL GO ON FEDITR RET PEND EJECT IND1 FRMT FCTL W1 FMEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DEUNPF REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-02-19/JAER«, t00=0x0000, t01=0x002c}
0x0040…004a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0044}
0x004a…007a Head {h00=0x002c, h01=0x0027, text=»* THIS PROGRAM UNPACKS NEXT FIELD «, t00=0x0000, t01=0x004e}
0x007a…00aa Head {h00=0x002c, h01=0x0028, text=»* FROM CURRENT ATTACHED FORMAT AND«, t00=0x0000, t01=0x007e}
0x00aa…00dc Head {h00=0x002e, h01=0x0029, text=»* MOVES THE UNPAKED VALUES IN THEIR «, t00=0x0000, t01=0x00ae}
0x00dc…010e Head {h00=0x002e, h01=0x002a, text=»* CORRESPONDING ITEMS. THIS COULD BE«, t00=0x0000, t01=0x00e0}
0x010e…0142 Head {h00=0x0030, h01=0x002b, text=»* USABLE IN CORRECTION MODE AND PRINT «, t00=0x0000, t01=0x0112}
0x0142…016c Head {h00=0x0026, h01=0x0021, text=»* OF THE FORMAT GENERATION. «, t00=0x0000, t01=0x0146}
0x016c…0176 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0170}
0x0176…01bc Head {h00=0x0042, h01=0x0050, text=»* -FORMAL PARAMETERS : BUFPOS = CURRENT BUFFER POSITION«, t00=0x0000, t01=0x017a}
0x01bc…01fe Head {h00=0x003e, h01=0x0050, text=»* OPT = 1 = CORRECTION MODE«, t00=0x0001, t01=0x0030}
0x01fe…023e Head {h00=0x003c, h01=0x0050, text=»* = 2 = PRINTOUT MODE«, t00=0x0001, t01=0x0072}
0x023e…0282 Head {h00=0x0040, h01=0x0050, text=»* -INPUT VARIABLES : PINDCB = FORMAT BUFFER INDEX «, t00=0x0001, t01=0x00b2}
0x0282…02c6 Head {h00=0x0040, h01=0x003b, text=»* BIN1 = FORMAT BUFFER POINTER «, t00=0x0001, t01=0x00f6}
0x02c6…02fc Head {h00=0x0032, h01=0x002d, text=»* BIN10 = FIELDNR «, t00=0x0001, t01=0x013a}
0x02fc…0306 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0170}
0x0306…032a Head {h00=0x0020, h01=0x0050, text=»* -WORK VARIABLES :«, t00=0x0001, t01=0x017a}
0x032a…0376 Head {h00=0x0048, h01=0x0050, text=»* FBIN1 = NUMBER OF CONVERTED POSITIONS «, t00=0x0002, t01=0x000e}
0x0376…03b8 Head {h00=0x003e, h01=0x0050, text=»* BOOL9 = F FKI NOT FOUND YET «, t00=0x0002, t01=0x005a}
0x03b8…03f2 Head {h00=0x0036, h01=0x0050, text=»* = T FKI FOUND «, t00=0x0002, t01=0x009c}
0x03f2…03fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d6}
0x03fc…0430 Head {h00=0x0030, h01=0x002b, text=»* -OUTPUT VARIABLE : DEBINW2= 0 OK «, t00=0x0002, t01=0x00e0}
0x0430…0474 Head {h00=0x0040, h01=0x003c, text=»* = 1 END OF FORMAT FOUND«, t00=0x0002, t01=0x0114}
0x0474…04be Head {h00=0x0046, h01=0x0050, text=»* BIN12 = NUMBER OF LAYOUT CHARACTERS «, t00=0x0002, t01=0x0158}
0x04be…050a Head {h00=0x0048, h01=0x0050, text=»* FMTWK(W1) = NUMBER OF VALIDATION CHARACTERS«, t00=0x0003, t01=0x0012}
0x050a…0556 Head {h00=0x0048, h01=0x0050, text=»* FMTWK(W2) = NUMBER OF GENERATION CHARACTERS«, t00=0x0003, t01=0x005e}
0x0556…05a4 Head {h00=0x004a, h01=0x0050, text=»* FMTWK(W3) = NUMBER OF ACCUMULATION CHARACTERS«, t00=0x0003, t01=0x00aa}
0x05a4…05f2 Head {h00=0x004a, h01=0x0050, text=»* FMTWK(W4) = NUMBER OF DUPLICATION CHARACTERS «, t00=0x0003, t01=0x00f8}
0x05f2…05fc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0146}
0x05fc…062a Head {h00=0x002a, h01=0x0050, text=»* 2-BYTE ADRESSING COMPATIBLE«, t00=0x0003, t01=0x0150}
0x062a…0678 Head {h00=0x004a, h01=0x0046, text=»**********************************************************************«, t00=0x0003, t01=0x017e}
0x0678…068c Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0004, t01=0x003c}
0x068c…069a Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0004, t01=0x0050}
0x069a…06c2 Head {h00=0x0024, h01=0x001f, text=» ENTRY DEUNPF UNPACK NEXT FIELD «, t00=0x0004, t01=0x005e}
0x06c2…06cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0086}
0x06cc…06f0 Head {h00=0x0020, h01=0x0050, text=» ENTRY FEDIT FORMAT EDITING «, t00=0x0004, t01=0x0090}
0x06f0…06fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b4}
0x06fa…0720 Head {h00=0x0022, h01=0x0050, text=» ENTRY DEUNPL UNPACK NEXT LINE«, t00=0x0004, t01=0x00be}
0x0720…0748 Head {h00=0x0024, h01=0x0050, text=» EXT NOPOOL NUMBER OF USED POOLS«, t00=0x0004, t01=0x00e4}
0x0748…076e Head {h00=0x0022, h01=0x0050, text=» EXT BINCON CONVERT BIN=>STRG «, t00=0x0004, t01=0x010c}
0x076e…079a Head {h00=0x0028, h01=0x0023, text=» EXT RCNTRL READ FIELD CONTROL WORD «, t00=0x0004, t01=0x0132}
0x079a…07b8 Head {h00=0x001a, h01=0x0050, text=» EXT FMOVE FORMAT MOVE«, t00=0x0004, t01=0x015e}
0x07b8…07e2 Head {h00=0x0026, h01=0x0050, text=» EXT GETFWD GETFIELD FROM CURRENT «, t00=0x0004, t01=0x017c}
0x07e2…07f6 Head {h00=0x0010, h01=0x0050, text=» EXT ADJUST «, t00=0x0005, t01=0x0016}
0x07f6…0800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002a}
0x0800…0818 Head {h00=0x0014, h01=0x0050, text=»* EQUATES «, t00=0x0005, t01=0x0034}
0x0818…0822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004c}
0x0822…0846 Head {h00=0x0020, h01=0x0050, text=»ALPHA EQU X'00' ALPHANUMERIC«, t00=0x0005, t01=0x0056}
0x0846…086a Head {h00=0x0020, h01=0x0050, text=»SCHK EQU X'03' SPECIAL CHECK«, t00=0x0005, t01=0x007a}
0x086a…0878 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0005, t01=0x009e}
0x0878…0896 Head {h00=0x001a, h01=0x0050, text=»DEUNPF PROC BUFPOS,OPT«, t00=0x0005, t01=0x00ac}
0x0896…08b8 Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOL9 NO FKI FOUND «, t00=0x0005, t01=0x00ca}
0x08b8…08c4 Head {h00=0x0008, h01=0x0004, text=»UNPM«, t00=0x0005, t01=0x00ec}
0x08c4…08e8 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN16,W3 MATCHINDEX:=3«, t00=0x0005, t01=0x00f8}
0x08e8…092a Head {h00=0x003e, h01=0x0050, text=» MATCH FDIR,BIN16,W16,BPOOL(PINDCB),BUFPOS,W1 MATCH CHARS «, t00=0x0005, t01=0x011c}
0x092a…093a Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x0005, t01=0x015e}
0x093a…096a Head {h00=0x002c, h01=0x0050, text=» IB BIN16,UNPELB,UNPELB,UNP3,UNP4, 1-4 C«, t00=0x0005, t01=0x016e}
0x096a…099c Head {h00=0x002e, h01=0x0050, text=» UNPELB,UNPELB,UNPELB,UNPELB,UNP9, 5-9 C «, t00=0x0006, t01=0x000e}
0x099c…09ce Head {h00=0x002e, h01=0x0050, text=» UNP10,UNP11,UNPELB,UNP13,UNP13, 10-14 C «, t00=0x0006, t01=0x0040}
0x09ce…09f2 Head {h00=0x0020, h01=0x0050, text=» UNP13,UNP13,UNP13,UNP13 15«, t00=0x0006, t01=0x0072}
0x09f2…0a00 Head {h00=0x000a, h01=0x0050, text=»UNPELB«, t00=0x0006, t01=0x0096}
0x0a00…0a1e Head {h00=0x001a, h01=0x0050, text=» B UNPE END OF FORMAT «, t00=0x0006, t01=0x00a4}
0x0a1e…0a2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00c2}
0x0a2c…0a38 Head {h00=0x0008, h01=0x0050, text=»UNP3«, t00=0x0006, t01=0x00d0}
0x0a38…0a4e Head {h00=0x0012, h01=0x000e, text=» MOVE BIN15,W0«, t00=0x0006, t01=0x00dc}
0x0a4e…0a70 Head {h00=0x001e, h01=0x0050, text=» ADD BUFPOS,W1 NEXT BUFPOS«, t00=0x0006, t01=0x00f2}
0x0a70…0ab2 Head {h00=0x003e, h01=0x0050, text=» XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB OF CHARS «, t00=0x0006, t01=0x0114}
0x0ab2…0adc Head {h00=0x0026, h01=0x0050, text=» ADD BUFPOS,BIN15 ADJUST FOR CHARS«, t00=0x0006, t01=0x0156}
0x0adc…0af2 Head {h00=0x0012, h01=0x000d, text=»UNP10 (FSL) «, t00=0x0006, t01=0x0180}
0x0af2…0b14 Head {h00=0x001e, h01=0x0050, text=» ADD BUFPOS,W1 NEXT BUFPOS«, t00=0x0007, t01=0x0008}
0x0b14…0b2a Head {h00=0x0012, h01=0x000d, text=» B UNPM GO ON «, t00=0x0007, t01=0x002a}
0x0b2a…0b40 Head {h00=0x0012, h01=0x000d, text=»UNP4 (FTAB) «, t00=0x0007, t01=0x0040}
0x0b40…0b56 Head {h00=0x0012, h01=0x0050, text=» ADD BUFPOS,W2«, t00=0x0007, t01=0x0056}
0x0b56…0b6c Head {h00=0x0012, h01=0x000d, text=» B UNPM GO ON «, t00=0x0007, t01=0x006c}
0x0b6c…0b7a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0007, t01=0x0082}
0x0b7a…0b90 Head {h00=0x0012, h01=0x000e, text=»UNP9 (FLINK)«, t00=0x0007, t01=0x0090}
0x0b90…0bca Head {h00=0x0036, h01=0x0050, text=» PERF UNPFLK,BUFPOS UNPACK FLINK INIT NEXT BUFFER «, t00=0x0007, t01=0x00a6}
0x0bca…0bf8 Head {h00=0x002a, h01=0x0050, text=» TBF BOOL7,UNP9A JUMP IF NOT CORR-MODE«, t00=0x0007, t01=0x00e0}
0x0bf8…0c18 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW3,W0 WORK:=0«, t00=0x0007, t01=0x010e}
0x0c18…0c54 Head {h00=0x0038, h01=0x0050, text=» XCOPY DEBINW3,W1,W1,RPOOL(PINDFR),W8 LOAD LINK NEXT«, t00=0x0007, t01=0x012e}
0x0c54…0c8e Head {h00=0x0036, h01=0x0050, text=» XCOPY RPOOL(PINDFR),W0,W1,PICSTR,W5 'X'-FREEMARK «, t00=0x0007, t01=0x016a}
0x0c8e…0cb6 Head {h00=0x0024, h01=0x0050, text=» MOVE PINDFR,DEBINW3 NEXT BUFFER«, t00=0x0008, t01=0x0014}
0x0cb6…0ce8 Head {h00=0x002e, h01=0x0050, text=» SUB WORK(W4),W1 REDUCE NUMB OF OLD FPOOLS«, t00=0x0008, t01=0x003c}
0x0ce8…0d12 Head {h00=0x0026, h01=0x0050, text=» PERF NOPOOL NUMBER OF USED POOLS «, t00=0x0008, t01=0x006e}
0x0d12…0d46 Head {h00=0x0030, h01=0x0050, text=» DISPLAY 2,W2,W2 DISPLAY DITO WHILE CHANGED «, t00=0x0008, t01=0x0098}
0x0d46…0d54 Head {h00=0x000a, h01=0x0050, text=»UNP9A «, t00=0x0008, t01=0x00cc}
0x0d54…0d7e Head {h00=0x0026, h01=0x0050, text=» TBT BOOL9,UNPMF JUMP IF FKI FOUND«, t00=0x0008, t01=0x00da}
0x0d7e…0d94 Head {h00=0x0012, h01=0x000d, text=» B UNPM GO ON «, t00=0x0008, t01=0x0104}
0x0d94…0daa Head {h00=0x0012, h01=0x000d, text=»UNP11 (FNL) «, t00=0x0008, t01=0x011a}
0x0daa…0dc0 Head {h00=0x0012, h01=0x0050, text=» ADD BUFPOS,W1«, t00=0x0008, t01=0x0130}
0x0dc0…0dde Head {h00=0x001a, h01=0x0050, text=» SET BOOL5 END OF LINE«, t00=0x0008, t01=0x0146}
0x0dde…0dee Head {h00=0x000c, h01=0x0050, text=» B U13I «, t00=0x0008, t01=0x0164}
0x0dee…0dfc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0008, t01=0x0174}
0x0dfc…0e12 Head {h00=0x0012, h01=0x000d, text=»UNP13 (FKI) «, t00=0x0008, t01=0x0182}
0x0e12…0e2e Head {h00=0x0018, h01=0x0050, text=» SET BOOL9 FKI FOUND«, t00=0x0009, t01=0x0008}
0x0e2e…0e44 Head {h00=0x0012, h01=0x000e, text=» SUB BIN16,W13«, t00=0x0009, t01=0x0024}
0x0e44…0e66 Head {h00=0x001e, h01=0x0050, text=» ADD BUFPOS,W1 NEXT BUFPOS«, t00=0x0009, t01=0x003a}
0x0e66…0e7c Head {h00=0x0012, h01=0x000e, text=» MOVE BIN15,W0«, t00=0x0009, t01=0x005c}
0x0e7c…0eb6 Head {h00=0x0036, h01=0x0050, text=» XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET TABPOS«, t00=0x0009, t01=0x0072}
0x0eb6…0ee6 Head {h00=0x002c, h01=0x0050, text=» CBE BIN15,W1,UNPELB JUMP IF DUMMY-FIELD«, t00=0x0009, t01=0x00ac}
0x0ee6…0f14 Head {h00=0x002a, h01=0x0025, text=» MOVE FDVBCD(W5),BIN15 STORE FIELDPOS «, t00=0x0009, t01=0x00dc}
0x0f14…0f40 Head {h00=0x0028, h01=0x0024, text=» MOVE FDVBCD(W4),BIN10 STORE FIELDNR«, t00=0x0009, t01=0x010a}
0x0f40…0f62 Head {h00=0x001e, h01=0x0050, text=» ADD BUFPOS,W1 NEXT BUFPOS«, t00=0x0009, t01=0x0136}
0x0f62…0f80 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN15,W0 WORK:=0«, t00=0x0009, t01=0x0158}
0x0f80…0fbc Head {h00=0x0038, h01=0x0050, text=» IB BIN16,U13Y,U13X,U13Z,U13Y,U13X JUMP ON FKI-CODE «, t00=0x0009, t01=0x0176}
0x0fbc…0fcc Head {h00=0x000c, h01=0x0050, text=» B U13Z «, t00=0x000a, t01=0x0022}
0x0fcc…0fd8 Head {h00=0x0008, h01=0x0050, text=»U13X«, t00=0x000a, t01=0x0032}
0x0fd8…1008 Head {h00=0x002c, h01=0x0050, text=» XCOPY BIN15,W0,W2,BPOOL(PINDCB),BUFPOS «, t00=0x000a, t01=0x003e}
0x1008…1032 Head {h00=0x0026, h01=0x0050, text=» ADD BUFPOS,W2 ADJUST NEXT BUFFPOS«, t00=0x000a, t01=0x006e}
0x1032…1042 Head {h00=0x000c, h01=0x0050, text=» B U13Z «, t00=0x000a, t01=0x0098}
0x1042…104e Head {h00=0x0008, h01=0x0050, text=»U13Y«, t00=0x000a, t01=0x00a8}
0x104e…107e Head {h00=0x002c, h01=0x0050, text=» XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS «, t00=0x000a, t01=0x00b4}
0x107e…10a8 Head {h00=0x0026, h01=0x0050, text=» ADD BUFPOS,W1 ADJUST NEXT BUFPOS «, t00=0x000a, t01=0x00e4}
0x10a8…10b4 Head {h00=0x0008, h01=0x0050, text=»U13Z«, t00=0x000a, t01=0x010e}
0x10b4…10d8 Head {h00=0x0020, h01=0x001c, text=» MOVE SPEC,BIN15 STORE APPLE«, t00=0x000a, t01=0x011a}
0x10d8…1102 Head {h00=0x0026, h01=0x0050, text=» CBL BIN16,W3,U13A JUMP IF NO DUPL«, t00=0x000a, t01=0x013e}
0x1102…1118 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN15,W1«, t00=0x000a, t01=0x0168}
0x1118…1152 Head {h00=0x0036, h01=0x0050, text=» CALL FMOVE,STRG10A,IND1 FETCH INDEX-ITEMADRESS=1 «, t00=0x000a, t01=0x017e}
0x1152…117c Head {h00=0x0026, h01=0x0050, text=» MATCH STRG10A,BIN15,W9,FDIR,W0,W1«, t00=0x000b, t01=0x0028}
0x117c…11aa Head {h00=0x002a, h01=0x0050, text=» ADD BUFPOS,BIN15 ADJUST NEXT BUFFPOS «, t00=0x000b, t01=0x0052}
0x11aa…11b6 Head {h00=0x0008, h01=0x0004, text=»U13A«, t00=0x000b, t01=0x0080}
0x11b6…11f8 Head {h00=0x003e, h01=0x0050, text=» CALL RCNTRL,BPOOL(PINDCB),BUFPOS,DEBINW1,BIN15,BIN7 CTLS«, t00=0x000b, t01=0x008c}
0x11f8…1226 Head {h00=0x002a, h01=0x0050, text=» MOVE FDVBCD(W6),BIN7 STORE MAXLENGTH «, t00=0x000b, t01=0x00ce}
0x1226…1254 Head {h00=0x002a, h01=0x0050, text=» MOVE FDVBCD(W7),BIN15 STORE MINLENGTH«, t00=0x000b, t01=0x00fc}
0x1254…1262 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000b, t01=0x012a}
0x1262…1290 Head {h00=0x002a, h01=0x0050, text=» TBT BOOL6,U13F JUMP IF BALANCE FORMAT«, t00=0x000b, t01=0x0138}
0x1290…12ba Head {h00=0x0026, h01=0x0021, text=» MOVE FDVSTR(W1),='Y' KEYED INPUT «, t00=0x000b, t01=0x0166}
0x12ba…12e4 Head {h00=0x0026, h01=0x0050, text=» TBF CTAB,U13V JUMP IF KEYED INPUT«, t00=0x000b, t01=0x0190}
0x12e4…1302 Head {h00=0x001a, h01=0x0050, text=» MOVE FDVSTR(W1),='C' «, t00=0x000c, t01=0x002a}
0x1302…131c Head {h00=0x0016, h01=0x0050, text=» CBL BIN16,W3,U13V«, t00=0x000c, t01=0x0048}
0x131c…1348 Head {h00=0x0028, h01=0x0050, text=» MOVE FDVSTR(W1),='N' NO KEYED INPUT«, t00=0x000c, t01=0x0062}
0x1348…1354 Head {h00=0x0008, h01=0x0050, text=»U13V«, t00=0x000c, t01=0x008e}
0x1354…1376 Head {h00=0x001e, h01=0x001a, text=» MOVE FDVSTR(W2),='N' ME=N«, t00=0x000c, t01=0x009a}
0x1376…138a Head {h00=0x0010, h01=0x0050, text=» TBF ME,U13B«, t00=0x000c, t01=0x00bc}
0x138a…13ac Head {h00=0x001e, h01=0x001a, text=» MOVE FDVSTR(W2),='Y' ME=Y«, t00=0x000c, t01=0x00d0}
0x13ac…13b8 Head {h00=0x0008, h01=0x0004, text=»U13B«, t00=0x000c, t01=0x00f2}
0x13b8…13e0 Head {h00=0x0024, h01=0x001f, text=» MOVE FDVSTR(W3),='N' AUTOTAB=N «, t00=0x000c, t01=0x00fe}
0x13e0…13f6 Head {h00=0x0012, h01=0x0050, text=» TBF NEOI,U13C«, t00=0x000c, t01=0x0126}
0x13f6…141e Head {h00=0x0024, h01=0x001f, text=» MOVE FDVSTR(W3),='Y' AUTOTAB=Y «, t00=0x000c, t01=0x013c}
0x141e…142a Head {h00=0x0008, h01=0x0004, text=»U13C«, t00=0x000c, t01=0x0164}
0x142a…1450 Head {h00=0x0022, h01=0x001e, text=» MOVE FDVSTR(W4),='N' VERIFY=N«, t00=0x000c, t01=0x0170}
0x1450…1468 Head {h00=0x0014, h01=0x0050, text=» TBF VERIFY,U13D«, t00=0x000d, t01=0x0008}
0x1468…148e Head {h00=0x0022, h01=0x001e, text=» MOVE FDVSTR(W4),='Y' VERIFY=Y«, t00=0x000d, t01=0x0020}
0x148e…149a Head {h00=0x0008, h01=0x0004, text=»U13D«, t00=0x000d, t01=0x0046}
0x149a…14c4 Head {h00=0x0026, h01=0x0050, text=» MOVE FDVSTR(W5),='Y' INIT.CLEAR=Y«, t00=0x000d, t01=0x0052}
0x14c4…14da Head {h00=0x0012, h01=0x0050, text=» TBF NCLR,U13E«, t00=0x000d, t01=0x007c}
0x14da…1504 Head {h00=0x0026, h01=0x0050, text=» MOVE FDVSTR(W5),='N' INIT.CLEAR=N«, t00=0x000d, t01=0x0092}
0x1504…1510 Head {h00=0x0008, h01=0x0004, text=»U13E«, t00=0x000d, t01=0x00bc}
0x1510…1528 Head {h00=0x0014, h01=0x0050, text=» TBF SCHK4,U13F «, t00=0x000d, t01=0x00c8}
0x1528…154a Head {h00=0x001e, h01=0x001a, text=» MOVE FDVSTR(W2),='C' ME=C«, t00=0x000d, t01=0x00e0}
0x154a…1556 Head {h00=0x0008, h01=0x0004, text=»U13F«, t00=0x000d, t01=0x0102}
0x1556…157c Head {h00=0x0022, h01=0x0050, text=» ADD BUFPOS,W3 ADJUST BUFFPOS «, t00=0x000d, t01=0x010e}
0x157c…158a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0134}
0x158a…15a4 Head {h00=0x0016, h01=0x0050, text=» MOVE STATSH,HEX00«, t00=0x000d, t01=0x0142}
0x15a4…15be Head {h00=0x0016, h01=0x0050, text=» MOVE JOBSPC,HEX00«, t00=0x000d, t01=0x015c}
0x15be…15ea Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN3,W0 WORKSTRINGPOINTER:=0«, t00=0x000d, t01=0x0176}
0x15ea…1610 Head {h00=0x0022, h01=0x0050, text=» MOVE FMTWK(W1),W0 VALCARS:=0 «, t00=0x000e, t01=0x0012}
0x1610…1636 Head {h00=0x0022, h01=0x0050, text=» MOVE FMTWK(W2),W0 GENCHARS:=0«, t00=0x000e, t01=0x0038}
0x1636…165c Head {h00=0x0022, h01=0x0050, text=» MOVE FMTWK(W3),W0 ACCCHARS:=0«, t00=0x000e, t01=0x005e}
0x165c…1682 Head {h00=0x0022, h01=0x0050, text=» MOVE FMTWK(W4),W0 DUPCHARS:=0«, t00=0x000e, t01=0x0084}
0x1682…169e Head {h00=0x0018, h01=0x0050, text=» MOVE FMTWK(W11),W0 «, t00=0x000e, t01=0x00aa}
0x169e…16c0 Head {h00=0x001e, h01=0x0050, text=» MOVE STR64A,=C'#V:#G:#A:'«, t00=0x000e, t01=0x00c6}
0x16c0…16d8 Head {h00=0x0014, h01=0x0050, text=» MOVE DUPL,HEX00«, t00=0x000e, t01=0x00e8}
0x16d8…16e6 Head {h00=0x000a, h01=0x0050, text=»UNPMF «, t00=0x000e, t01=0x0100}
0x16e6…1712 Head {h00=0x0028, h01=0x0050, text=» MOVE FBIN1,W3 INITIATE NUMB OF CONV«, t00=0x000e, t01=0x010e}
0x1712…1736 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN16,W0 MATCHINDEX:=0«, t00=0x000e, t01=0x013a}
0x1736…176c Head {h00=0x0032, h01=0x0050, text=» MATCH FDIR,BIN16,W16,BPOOL(PINDCB),BUFPOS,W1 «, t00=0x000e, t01=0x015e}
0x176c…1796 (15, 0, 400) Head {h00=0x0026, h01=0x0050, text=» BNOK U13G NO FVAL,FGEN,FACC,FDUPL«, t00=0x000f, t01=0x0004}
0x1796…17c0 Head {h00=0x0026, h01=0x0050, text=» CBE BIN16,W0,UNPLB END OF FORMAT «, t00=0x000f, t01=0x002e}
0x17c0…17ec Head {h00=0x0028, h01=0x0050, text=» IB BIN16,UNP1,UNP2,UNLB,UNLB, 1-4 C«, t00=0x000f, t01=0x0058}
0x17ec…1812 Head {h00=0x0022, h01=0x0050, text=» UNP2,UNP2,UNP2,UNP2,UNP9 5-9«, t00=0x000f, t01=0x0084}
0x1812…181e Head {h00=0x0008, h01=0x0050, text=»UNLB«, t00=0x000f, t01=0x00aa}
0x181e…1846 Head {h00=0x0024, h01=0x0050, text=» B U13G NO FVAL,FGEN,FACC,FDUPL «, t00=0x000f, t01=0x00b6}
0x1846…1854 Head {h00=0x000a, h01=0x0050, text=»UNPLB «, t00=0x000f, t01=0x00de}
0x1854…1864 Head {h00=0x000c, h01=0x0050, text=» B UNPE «, t00=0x000f, t01=0x00ec}
0x1864…1870 Head {h00=0x0008, h01=0x0004, text=»UNP1«, t00=0x000f, t01=0x00fc}
0x1870…188e Head {h00=0x001a, h01=0x0050, text=» ADD BUFPOS,W3 (FCOPY)«, t00=0x000f, t01=0x0108}
0x188e…18a4 Head {h00=0x0012, h01=0x0050, text=» B UNPMF GO ON«, t00=0x000f, t01=0x0126}
0x18a4…18b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x013c}
0x18b2…18c8 Head {h00=0x0012, h01=0x000e, text=»UNP2 (FMELI)«, t00=0x000f, t01=0x014a}
0x18c8…18de Head {h00=0x0012, h01=0x000e, text=» MOVE BIN15,W0«, t00=0x000f, t01=0x0160}
0x18de…1900 Head {h00=0x001e, h01=0x0050, text=» ADD BUFPOS,W1 NEXT BUFPOS«, t00=0x000f, t01=0x0176}
0x1900…1942 Head {h00=0x003e, h01=0x0050, text=» XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB OF CHARS «, t00=0x0010, t01=0x0008}
0x1942…1966 Head {h00=0x0020, h01=0x0050, text=» ADD BUFPOS,W1 1ST CHAR.-POS«, t00=0x0010, t01=0x004a}
0x1966…1994 Head {h00=0x002a, h01=0x0050, text=» CBNE BIN16,W2,UNP2A JUMP IF NOT FMELI«, t00=0x0010, t01=0x006e}
0x1994…19c6 Head {h00=0x002e, h01=0x0050, text=» PERF UNPICT,BUFPOS UNPACK PICTURE LAYOUT «, t00=0x0010, t01=0x009c}
0x19c6…19f4 Head {h00=0x002a, h01=0x0050, text=» TBT BOOL6,PICB JUMP IF BALANCE FORMAT«, t00=0x0010, t01=0x00ce}
0x19f4…1a12 Head {h00=0x001a, h01=0x0050, text=» ADD BUFPOS,W2 ADJUST «, t00=0x0010, t01=0x00fc}
0x1a12…1a28 Head {h00=0x0012, h01=0x0050, text=» B UNPMF GO ON«, t00=0x0010, t01=0x011a}
0x1a28…1a34 Head {h00=0x0008, h01=0x0050, text=»PICB«, t00=0x0010, t01=0x0130}
0x1a34…1a52 Head {h00=0x001a, h01=0x0050, text=» ADD BUFPOS,W1 ADJUST «, t00=0x0010, t01=0x013c}
0x1a52…1a86 Head {h00=0x0030, h01=0x0050, text=» MOVE DEBIN1,W1 NUMB OF CHARS TO COPY 1B-ADR«, t00=0x0010, t01=0x015a}
0x1a86…1aa6 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBIN2,W1 WORK:=1 «, t00=0x0010, t01=0x018e}
0x1aa6…1ac4 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN15,W1 WORK:=1«, t00=0x0011, t01=0x001e}
0x1ac4…1afe Head {h00=0x0036, h01=0x0050, text=» CALL FMOVE,STRG10A,IND1 FETCH INDEX-ITEMADRESS=1 «, t00=0x0011, t01=0x003c}
0x1afe…1b28 Head {h00=0x0026, h01=0x0050, text=» MATCH STRG10A,BIN15,W9,FDIR,W0,W1«, t00=0x0011, t01=0x0076}
0x1b28…1b56 Head {h00=0x002a, h01=0x0050, text=» CBE BIN15,W1,PICB1 JUMP IF 1BYTE ADR «, t00=0x0011, t01=0x00a0}
0x1b56…1b84 Head {h00=0x002a, h01=0x0050, text=» ADD BUFPOS,W3 ADJUST BUFFERPOS 2B-ADR«, t00=0x0011, t01=0x00ce}
0x1b84…1bb8 Head {h00=0x0030, h01=0x0050, text=» MOVE DEBIN1,W2 NUMB OF CHARS TO COPY 2B-ADR«, t00=0x0011, t01=0x00fc}
0x1bb8…1be0 Head {h00=0x0024, h01=0x0050, text=» MOVE DEBIN2,W0 STARTPOS 2B-ADR «, t00=0x0011, t01=0x0130}
0x1be0…1bee Head {h00=0x000a, h01=0x0050, text=»PICB1 «, t00=0x0011, t01=0x0158}
0x1bee…1c0c Head {h00=0x001a, h01=0x0050, text=» MOVE BIN15,W0 WORK:=0«, t00=0x0011, t01=0x0166}
0x1c0c…1c52 Head {h00=0x0042, h01=0x0050, text=» XCOPY BIN15,DEBIN2,DEBIN1,BPOOL(PINDCB),BUFPOS INDEX-ITEMADR «, t00=0x0011, t01=0x0184}
0x1c52…1c70 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN16,W0 WORK:=0«, t00=0x0012, t01=0x003a}
0x1c70…1cb2 Head {h00=0x003e, h01=0x0050, text=» XCOPY BIN16,DEBIN2,DEBIN1,STRG10A,W0 LOAD IND-ITEM ADR=1 «, t00=0x0012, t01=0x0058}
0x1cb2…1cd4 Head {h00=0x001e, h01=0x0050, text=» SUB BIN16,W1 FIX MASK X0 «, t00=0x0012, t01=0x009a}
0x1cd4…1d02 Head {h00=0x002a, h01=0x0050, text=» SUB BIN15,BIN16 MASKOUT=>INDEX VALUE «, t00=0x0012, t01=0x00bc}
0x1d02…1d2e Head {h00=0x0028, h01=0x0050, text=» MOVE FDVBCD(W8),BIN15 STORE ACC.NO «, t00=0x0012, t01=0x00ea}
0x1d2e…1d4c Head {h00=0x001a, h01=0x0050, text=» ADD BUFPOS,W1 ADJUST «, t00=0x0012, t01=0x0116}
0x1d4c…1d62 Head {h00=0x0012, h01=0x0050, text=» B UNPMF GO ON«, t00=0x0012, t01=0x0134}
0x1d62…1d70 Head {h00=0x000a, h01=0x0050, text=»UNP2A «, t00=0x0012, t01=0x014a}
0x1d70…1d9e Head {h00=0x002a, h01=0x0050, text=» SUB BIN16,W4 ADJUST FOR INDEX-BRANCH «, t00=0x0012, t01=0x0158}
0x1d9e…1dc8 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW1,BIN16 SAVE FUNCINDEX«, t00=0x0012, t01=0x0186}
0x1dc8…1df2 Head {h00=0x0026, h01=0x0050, text=» IB BIN16,UNP2B,UNP2C,UNP2D,UNP2E «, t00=0x0013, t01=0x0020}
0x1df2…1e08 Head {h00=0x0012, h01=0x0050, text=»UNP2B (FVAL)«, t00=0x0013, t01=0x004a}
0x1e08…1e38 Head {h00=0x002c, h01=0x0050, text=» XCOPY JOBSPC,DEBIN3,W3,STR64A,W0 '#V:' «, t00=0x0013, t01=0x0060}
0x1e38…1e48 Head {h00=0x000c, h01=0x0050, text=» B UNP2F«, t00=0x0013, t01=0x0090}
0x1e48…1e5e Head {h00=0x0012, h01=0x0050, text=»UNP2C (FGEN)«, t00=0x0013, t01=0x00a0}
0x1e5e…1e8e Head {h00=0x002c, h01=0x0050, text=» XCOPY JOBSPC,DEBIN3,W3,STR64A,W3 '#G:' «, t00=0x0013, t01=0x00b6}
0x1e8e…1ea6 Head {h00=0x0014, h01=0x0050, text=» B UNP2F ADJUST «, t00=0x0013, t01=0x00e6}
0x1ea6…1eb4 Head {h00=0x000a, h01=0x0050, text=»UNP2D «, t00=0x0013, t01=0x00fe}
0x1eb4…1ee4 Head {h00=0x002c, h01=0x0050, text=» XCOPY JOBSPC,DEBIN3,W3,STR64A,W6 '#A:' «, t00=0x0013, t01=0x010c}
0x1ee4…1ef2 Head {h00=0x000a, h01=0x0050, text=»UNP2F «, t00=0x0013, t01=0x013c}
0x1ef2…1f16 Head {h00=0x0020, h01=0x0050, text=» ADD DEBIN3,W3 NEXT POSITION«, t00=0x0013, t01=0x014a}
0x1f16…1f4e Head {h00=0x0034, h01=0x0050, text=» PERF BINCON,JOBSPC,DEBINW1 CONVERT BINNUM=>STRG«, t00=0x0013, t01=0x016e}
0x1f4e…1f82 Head {h00=0x0030, h01=0x0050, text=» ADD FMTWK(W11),BIN15 ADD NUMB OF CONV CHARS«, t00=0x0014, t01=0x0016}
0x1f82…1fb2 Head {h00=0x002c, h01=0x0050, text=» CBE OPT,W2,UNP2G JUMP IF PRINTOUT MODE «, t00=0x0014, t01=0x004a}
0x1fb2…1fee Head {h00=0x0038, h01=0x0050, text=» MOVE FMTWK(DEBINW1),DEBIN3 SAVE NUMB OF ACCUM.CHARS«, t00=0x0014, t01=0x007a}
0x1fee…1ffe Head {h00=0x000c, h01=0x0050, text=» B UNPMF«, t00=0x0014, t01=0x00b6}
0x1ffe…200c Head {h00=0x000a, h01=0x0050, text=»UNP2G «, t00=0x0014, t01=0x00c6}
0x200c…2044 Head {h00=0x0034, h01=0x0050, text=» MOVE FMTWK(DEBINW1),BIN15 SAVE NUMB CONV CHARS «, t00=0x0014, t01=0x00d4}
0x2044…205c Head {h00=0x0014, h01=0x0050, text=» B UNPMF ADJUST «, t00=0x0014, t01=0x010c}
0x205c…206a Head {h00=0x000a, h01=0x0050, text=»UNP2E «, t00=0x0014, t01=0x0124}
0x206a…2096 Head {h00=0x0028, h01=0x0050, text=» MOVE FBIN1,W0 INITIATE NUMB OF CONV«, t00=0x0014, t01=0x0132}
0x2096…20c2 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN3,W0 WORKSTRINGPOINTER:=0«, t00=0x0014, t01=0x015e}
0x20c2…20f8 Head {h00=0x0032, h01=0x0050, text=» PERF BINCON,DUPL,DEBINW1 CONVERT BINNUM=>STRG«, t00=0x0014, t01=0x018a}
0x20f8…212e Head {h00=0x0032, h01=0x0050, text=» MOVE FMTWK(W4),BIN15 SAVE NUMB OF DUPL.CHARS «, t00=0x0015, t01=0x0030}
0x212e…2144 Head {h00=0x0012, h01=0x0050, text=» B UNPMF GO ON«, t00=0x0015, t01=0x0066}
0x2144…2152 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x007c}
0x2152…215e Head {h00=0x0008, h01=0x0050, text=»U13G«, t00=0x0015, t01=0x008a}
0x215e…218c Head {h00=0x002a, h01=0x0050, text=» CBE OPT,W2,U13I JUMP IF PRINTOUT MODE«, t00=0x0015, t01=0x0096}
0x218c…21c0 Head {h00=0x0030, h01=0x0050, text=» MOVE FMTWK(W10),=X'50' NUMB OF CHARS 1:=80 «, t00=0x0015, t01=0x00c4}
0x21c0…2200 Head {h00=0x003c, h01=0x0050, text=» CBL FMTWK(W10),FMTWK(W11),U13H JUMP IF BOTH LINES USED «, t00=0x0015, t01=0x00f8}
0x2200…223e Head {h00=0x003a, h01=0x0050, text=» MOVE FMTWK(W10),FMTWK(W11) ALL CHARCTERS IN 1ST STRG «, t00=0x0015, t01=0x0138}
0x223e…226c Head {h00=0x002a, h01=0x0050, text=» MOVE FMTWK(W11),W0 NUMB OF CHARS2:=0 «, t00=0x0015, t01=0x0176}
0x226c…227c Head {h00=0x000c, h01=0x0050, text=» B U13I «, t00=0x0016, t01=0x0014}
0x227c…2288 Head {h00=0x0008, h01=0x0050, text=»U13H«, t00=0x0016, t01=0x0024}
0x2288…22c0 Head {h00=0x0034, h01=0x0050, text=» SUB FMTWK(W11),FMTWK(W10) COMPUT NUMB OF CHARS1«, t00=0x0016, t01=0x0030}
0x22c0…22cc Head {h00=0x0008, h01=0x0050, text=»U13I«, t00=0x0016, t01=0x0068}
0x22cc…22e8 Head {h00=0x0018, h01=0x0013, text=» MOVE DEBINW2,W0 OK «, t00=0x0016, t01=0x0074}
0x22e8…22f8 Head {h00=0x000c, h01=0x0008, text=» B UNRET«, t00=0x0016, t01=0x0090}
0x22f8…2304 Head {h00=0x0008, h01=0x0004, text=»UNPE«, t00=0x0016, t01=0x00a0}
0x2304…232a Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W1 END-OF-FORMAT«, t00=0x0016, t01=0x00ac}
0x232a…2338 Head {h00=0x000a, h01=0x0005, text=»UNRET «, t00=0x0016, t01=0x00d2}
0x2338…2344 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0016, t01=0x00e0}
0x2344…2352 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0016, t01=0x00ec}
0x2352…2360 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x00fa}
0x2360…236a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0108}
0x236a…2396 Head {h00=0x0028, h01=0x0050, text=»* UNPACK FLINK AND INITIALIZE«, t00=0x0016, t01=0x0112}
0x2396…23b2 Head {h00=0x0018, h01=0x0050, text=»* NEXT BUFFER«, t00=0x0016, t01=0x013e}
0x23b2…23bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x015a}
0x23bc…23d6 Head {h00=0x0016, h01=0x0050, text=»UNPFLK PROC POINT «, t00=0x0016, t01=0x0164}
0x23d6…2404 Head {h00=0x002a, h01=0x0050, text=» ADD POINT,W3 ADJUST BUFPOINTER 1B-ADR«, t00=0x0016, t01=0x017e}
0x2404…2438 Head {h00=0x0030, h01=0x0050, text=» MOVE DEBIN1,W1 NUMB OF CHARS TO COPY 1B-ADR«, t00=0x0017, t01=0x001c}
0x2438…2460 Head {h00=0x0024, h01=0x0050, text=» MOVE DEBIN2,W1 STARTPOS 1B-ADR «, t00=0x0017, t01=0x0050}
0x2460…2488 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN15,W1 MATCH STARTPOS:=1«, t00=0x0017, t01=0x0078}
0x2488…24c0 Head {h00=0x0034, h01=0x0050, text=» CALL FMOVE,STRG10A,IND1 FETCH IND-ITEM-ADRESS=1«, t00=0x0017, t01=0x00a0}
0x24c0…24ea Head {h00=0x0026, h01=0x0050, text=» MATCH STRG10A,BIN15,W9,FDIR,W0,W1«, t00=0x0017, t01=0x00d8}
0x24ea…2516 Head {h00=0x0028, h01=0x0050, text=» CBE BIN15,W1,UNPFL2 JUMP IF 1B-ADR «, t00=0x0017, t01=0x0102}
0x2516…2542 Head {h00=0x0028, h01=0x0050, text=» ADD POINT,W2 ADJUST BUFFPOS 2B-ADR «, t00=0x0017, t01=0x012e}
0x2542…2576 Head {h00=0x0030, h01=0x0050, text=» MOVE DEBIN1,W2 NUMB OF CHARS TO COPY 2B-ADR«, t00=0x0017, t01=0x015a}
0x2576…259a Head {h00=0x0020, h01=0x0050, text=» MOVE DEBIN2,W0 STPOS 2B-ADR«, t00=0x0017, t01=0x018e}
0x259a…25a8 Head {h00=0x000a, h01=0x0050, text=»UNPFL2«, t00=0x0018, t01=0x0022}
0x25a8…25c6 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN15,W0 WORK:=0«, t00=0x0018, t01=0x0030}
0x25c6…260a Head {h00=0x0040, h01=0x0050, text=» XCOPY BIN15,DEBIN2,DEBIN1,BPOOL(PINDCB),POINT INDEX-ITEMADR«, t00=0x0018, t01=0x004e}
0x260a…2628 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN16,W0 WORK:=0«, t00=0x0018, t01=0x0092}
0x2628…2668 Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN16,DEBIN2,DEBIN1,STRG10A,W0 INDEX-ITEMADRESS=1«, t00=0x0018, t01=0x00b0}
0x2668…268a Head {h00=0x001e, h01=0x0050, text=» SUB BIN16,W1 FIX MASK X0 «, t00=0x0018, t01=0x00f0}
0x268a…26b8 Head {h00=0x002a, h01=0x0050, text=» SUB BIN15,BIN16 MASKOUT=>INDEX VALUE «, t00=0x0018, t01=0x0112}
0x26b8…26f0 Head {h00=0x0034, h01=0x0050, text=» MOVE PINDCB,FLIND(BIN15) GO ON WITH NEXT BUFFER«, t00=0x0018, t01=0x0140}
0x26f0…271e Head {h00=0x002a, h01=0x0050, text=» MOVE POINT,W0 RESTART IN NEXT BUFFER «, t00=0x0018, t01=0x0178}
0x271e…272a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x0016}
0x272a…2738 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x0022}
0x2738…2746 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0030}
0x2746…2750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x003e}
0x2750…2788 Head {h00=0x0034, h01=0x0050, text=»* UNPACK AND EDIT PICTURE LAYOUT IN LDISP«, t00=0x0019, t01=0x0048}
0x2788…2792 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0080}
0x2792…27ac Head {h00=0x0016, h01=0x0050, text=»UNPICT PROC POINT «, t00=0x0019, t01=0x008a}
0x27ac…27d0 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN12,W1 LDES-POINTER «, t00=0x0019, t01=0x00a4}
0x27d0…2800 Head {h00=0x002c, h01=0x0050, text=» XCOPY STATSH,W0,W1,PICSTR,W13 COPY '<' «, t00=0x0019, t01=0x00c8}
0x2800…2822 Head {h00=0x001e, h01=0x0050, text=»PICM PICTURESTRING MATCH«, t00=0x0019, t01=0x00f8}
0x2822…284a Head {h00=0x0024, h01=0x0050, text=» MOVE BIN16,W0 MATCHINGINDEX:=0 «, t00=0x0019, t01=0x011a}
0x284a…2880 Head {h00=0x0032, h01=0x0050, text=» MATCH PICCON,BIN16,W4,BPOOL(PINDCB),POINT,W1 «, t00=0x0019, t01=0x0142}
0x2880…289e Head {h00=0x001a, h01=0x0050, text=» BNOK PINC NO CONVERT «, t00=0x0019, t01=0x0178}
0x289e…28cc Head {h00=0x002a, h01=0x0050, text=» CBE BIN16,W0,PICS JUMP IF 'S'-CONVERT«, t00=0x001a, t01=0x0008}
0x28cc…28ec Head {h00=0x001c, h01=0x0050, text=» IB BIN16,PICP,PICE,PICX«, t00=0x001a, t01=0x0036}
0x28ec…28f8 Head {h00=0x0008, h01=0x0050, text=»PINC«, t00=0x001a, t01=0x0056}
0x28f8…292a Head {h00=0x002e, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,BPOOL(PINDCB),POINT«, t00=0x001a, t01=0x0062}
0x292a…2936 Head {h00=0x0008, h01=0x0050, text=»PI00«, t00=0x001a, t01=0x0094}
0x2936…295a Head {h00=0x0020, h01=0x0050, text=» ADD POINT,W1 NEXT BUFFERPOS«, t00=0x001a, t01=0x00a0}
0x295a…297e Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 NEXT LDES POS «, t00=0x001a, t01=0x00c4}
0x297e…29b6 Head {h00=0x0034, h01=0x0050, text=» CBG BIN12,BIN15,PICR END OF PICTURESTRING FOUND«, t00=0x001a, t01=0x00e8}
0x29b6…29cc Head {h00=0x0012, h01=0x0050, text=» B PICM GO ON «, t00=0x001a, t01=0x0120}
0x29cc…29e6 Head {h00=0x0016, h01=0x0050, text=»PICS 'S'-CONVERT«, t00=0x001a, t01=0x0136}
0x29e6…2a18 Head {h00=0x002e, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,PICSTR,W9 COPY 'S' «, t00=0x001a, t01=0x0150}
0x2a18…2a28 Head {h00=0x000c, h01=0x0050, text=» B PI00 «, t00=0x001a, t01=0x0182}
0x2a28…2a42 (27, 0, 400) Head {h00=0x0016, h01=0x0050, text=»PICP '.'-CONVERT«, t00=0x001b, t01=0x0004}
0x2a42…2a74 Head {h00=0x002e, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,PICSTR,W11 COPY '.'«, t00=0x001b, t01=0x001e}
0x2a74…2a84 Head {h00=0x000c, h01=0x0050, text=» B PI00 «, t00=0x001b, t01=0x0050}
0x2a84…2a9e Head {h00=0x0016, h01=0x0050, text=»PICE 'E'-CONVERT«, t00=0x001b, t01=0x0060}
0x2a9e…2ac8 Head {h00=0x0026, h01=0x0050, text=» ADD POINT,W1 TAKE NEXT BUFFERPOS «, t00=0x001b, t01=0x007a}
0x2ac8…2af4 Head {h00=0x0028, h01=0x0050, text=» SUB BIN15,W1 ADJUST NUMBER OF CHARS«, t00=0x001b, t01=0x00a4}
0x2af4…2b04 Head {h00=0x000c, h01=0x0050, text=» B PINC «, t00=0x001b, t01=0x00d0}
0x2b04…2b10 Head {h00=0x0008, h01=0x0050, text=»PICX«, t00=0x001b, t01=0x00e0}
0x2b10…2b42 Head {h00=0x002e, h01=0x0050, text=» TBF SCHK2,PINC JUMP IF NOT LEFT ZERO FILL«, t00=0x001b, t01=0x00ec}
0x2b42…2b74 Head {h00=0x002e, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,PICSTR,W14 COPY '0'«, t00=0x001b, t01=0x011e}
0x2b74…2b8e Head {h00=0x0016, h01=0x0050, text=» B PI00 NEXT MATCH«, t00=0x001b, t01=0x0150}
0x2b8e…2b9a Head {h00=0x0008, h01=0x0050, text=»PICR«, t00=0x001b, t01=0x016a}
0x2b9a…2bcc Head {h00=0x002e, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,PICSTR,W12 COPY '>'«, t00=0x001b, t01=0x0176}
0x2bcc…2bf8 Head {h00=0x0028, h01=0x0050, text=» ADD BIN12,W1 =NUMB OF LAYOUT CHARS «, t00=0x001c, t01=0x0018}
0x2bf8…2c04 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x0044}
0x2c04…2c12 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001c, t01=0x0050}
0x2c12…2c20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x005e}
0x2c20…2c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x006c}
0x2c2a…2c70 Head {h00=0x0042, h01=0x0050, text=»* THIS ROUTINE UNPACKS NEXT LINE FROM CURRENT ATTACHED «, t00=0x001c, t01=0x0076}
0x2c70…2cb8 Head {h00=0x0044, h01=0x0050, text=»* FORMAT AND EDITS THE FORMAT PARTS IN 'LINE-DESIGN'-ITEM«, t00=0x001c, t01=0x00bc}
0x2cb8…2cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0104}
0x2cc2…2d04 Head {h00=0x003e, h01=0x0050, text=»* USED VARIABLES : BIN16 = MATCHINGPOINTER «, t00=0x001c, t01=0x010e}
0x2d04…2d3e Head {h00=0x0036, h01=0x0050, text=»* BIN15 = WORKITEM«, t00=0x001c, t01=0x0150}
0x2d3e…2d8a Head {h00=0x0048, h01=0x0050, text=»* DEBIN2 = MAXLENGTH ALPHANUM-FIELDS«, t00=0x001c, t01=0x018a}
0x2d8a…2dda Head {h00=0x004c, h01=0x0050, text=»* DEBIN3 = POINTER POSITIONER LDES-ITEM «, t00=0x001d, t01=0x0046}
0x2dda…2e2a Head {h00=0x004c, h01=0x0050, text=»* DEBIN4 = SAVED BUFFER-IDEX IF ALTERED «, t00=0x001d, t01=0x0096}
0x2e2a…2e72 Head {h00=0x0044, h01=0x0050, text=»* DURING ROUTINE-SESSION«, t00=0x001d, t01=0x00e6}
0x2e72…2e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x012e}
0x2e7c…2e96 Head {h00=0x0016, h01=0x0050, text=»DEUNPL PROC BUFPOS«, t00=0x001d, t01=0x0138}
0x2e96…2eb8 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW2,W0 OK-SIGNAL«, t00=0x001d, t01=0x0152}
0x2eb8…2ede Head {h00=0x0022, h01=0x0050, text=» MOVE LDES,=' ' LDES:='SPACES'«, t00=0x001d, t01=0x0174}
0x2ede…2f06 Head {h00=0x0024, h01=0x0050, text=» MOVE DEBIN3,W0 POINTER LDES:=0 «, t00=0x001e, t01=0x000a}
0x2f06…2f34 Head {h00=0x002a, h01=0x0050, text=» CLEAR BOOL5 F=END-OF-LINE NOT REACHED«, t00=0x001e, t01=0x0032}
0x2f34…2f5c Head {h00=0x0024, h01=0x0050, text=» CLEAR BOOL8 F=NO BUFFER ALTERED«, t00=0x001e, t01=0x0060}
0x2f5c…2f68 Head {h00=0x0008, h01=0x0050, text=»LUPM«, t00=0x001e, t01=0x0088}
0x2f68…2f90 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN16,W0 MATCHING INDEX:=0«, t00=0x001e, t01=0x0094}
0x2f90…2fc6 Head {h00=0x0032, h01=0x0050, text=» MATCH FDIR,BIN16,W18,BPOOL(PINDCB),BUFPOS,W1 «, t00=0x001e, t01=0x00bc}
0x2fc6…2fd6 Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x001e, t01=0x00f2}
0x2fd6…3002 Head {h00=0x0028, h01=0x0050, text=» IB BIN16,LUP1,LUP5,LUP3,LUP4, 1-4 C«, t00=0x001e, t01=0x0102}
0x3002…3026 Head {h00=0x0020, h01=0x0050, text=» LUP5,LUP5,LUP5,LUP5, 5-8 C«, t00=0x001e, t01=0x012e}
0x3026…304c Head {h00=0x0022, h01=0x0050, text=» LUP9,LUP10,LUP11,LUPR 9-R C «, t00=0x001e, t01=0x0152}
0x304c…3076 Head {h00=0x0026, h01=0x0050, text=» LUP13,LUP13,LUP13,LUP13, 13-16 C«, t00=0x001e, t01=0x0178}
0x3076…3092 Head {h00=0x0018, h01=0x0050, text=» LUP13,LUP13 17-18 «, t00=0x001f, t01=0x0012}
0x3092…30a0 Head {h00=0x000a, h01=0x0050, text=»LUPRLB«, t00=0x001f, t01=0x002e}
0x30a0…30be Head {h00=0x001a, h01=0x0050, text=» B LUPR END OF FORMAT «, t00=0x001f, t01=0x003c}
0x30be…30cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x005a}
0x30cc…30e0 Head {h00=0x0010, h01=0x0050, text=»LUP1 FCOPY«, t00=0x001f, t01=0x0068}
0x30e0…30fe Head {h00=0x001a, h01=0x0050, text=» MOVE BIN15,W0 WORK:=0«, t00=0x001f, t01=0x007c}
0x30fe…3124 Head {h00=0x0022, h01=0x0050, text=» ADD BUFPOS,W1 NEXT BUFFERPOS «, t00=0x001f, t01=0x009a}
0x3124…3156 Head {h00=0x002e, h01=0x0050, text=» XCOPY LDES,DEBIN3,W1,PICSTR,W13 COPY '<' «, t00=0x001f, t01=0x00c0}
0x3156…317e Head {h00=0x0024, h01=0x0050, text=» ADD DEBIN3,W1 NEXT LDESPOSITION«, t00=0x001f, t01=0x00f2}
0x317e…31a4 Head {h00=0x0022, h01=0x0050, text=» ADD BUFPOS,W1 NEXT BUFFERPOS «, t00=0x001f, t01=0x011a}
0x31a4…31e0 Head {h00=0x0038, h01=0x0050, text=» XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET FIELDNR «, t00=0x001f, t01=0x0140}
0x31e0…320e Head {h00=0x002a, h01=0x0050, text=» TBF SCHK2,LUP1A JUMP IF LEFT ADJUSTED«, t00=0x001f, t01=0x017c}
0x320e…3238 Head {h00=0x0026, h01=0x0050, text=» MOVE DEINPUT,='R' LOAD WITH 'R':S«, t00=0x0020, t01=0x001a}
0x3238…3248 Head {h00=0x000c, h01=0x0050, text=» B LUP1B«, t00=0x0020, t01=0x0044}
0x3248…3256 Head {h00=0x000a, h01=0x0050, text=»LUP1A «, t00=0x0020, t01=0x0054}
0x3256…3280 Head {h00=0x0026, h01=0x0050, text=» MOVE DEINPUT,='L' LOAD WITH 'L':S«, t00=0x0020, t01=0x0062}
0x3280…328e Head {h00=0x000a, h01=0x0050, text=»LUP1B «, t00=0x0020, t01=0x008c}
0x328e…32d4 Head {h00=0x0042, h01=0x0050, text=» XCOPY LDES,DEBIN3,DEBIN2,DEINPUT,W0 COPY NUMBER OF 'R'/'L':S «, t00=0x0020, t01=0x009a}
0x32d4…3302 Head {h00=0x002a, h01=0x0050, text=» ADD DEBIN3,DEBIN2 ADJUST LDESPOINTER «, t00=0x0020, t01=0x00e0}
0x3302…3334 Head {h00=0x002e, h01=0x0050, text=» XCOPY LDES,DEBIN3,W1,PICSTR,W12 COPY '>' «, t00=0x0020, t01=0x010e}
0x3334…334a Head {h00=0x0012, h01=0x0050, text=» ADD BUFPOS,W1«, t00=0x0020, t01=0x0140}
0x334a…3370 Head {h00=0x0022, h01=0x0050, text=» ADD DEBIN3,W1 ADJUST POINTER «, t00=0x0020, t01=0x0156}
0x3370…3380 Head {h00=0x000c, h01=0x0050, text=» B LUPM «, t00=0x0020, t01=0x017c}
0x3380…338e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x018c}
0x338e…33a2 Head {h00=0x0010, h01=0x0050, text=»LUP2 FMELI«, t00=0x0021, t01=0x000a}
0x33a2…33d8 Head {h00=0x0032, h01=0x0050, text=» PERF UNPICT,BUFPOS UNPACK/EDUT PICTURELAYOUT «, t00=0x0021, t01=0x001e}
0x33d8…3402 Head {h00=0x0026, h01=0x0050, text=» XCOPY LDES,DEBIN3,BIN12,STATSH,W0«, t00=0x0021, t01=0x0054}
0x3402…342a Head {h00=0x0024, h01=0x0050, text=» ADD BUFPOS,W2 ADJUST BUFFERPOS «, t00=0x0021, t01=0x007e}
0x342a…3452 Head {h00=0x0024, h01=0x0050, text=» ADD DEBIN3,BIN12 ADJUST POINTER«, t00=0x0021, t01=0x00a6}
0x3452…3480 Head {h00=0x002a, h01=0x0050, text=» TBF BOOL6,LUPM JUMP IF GENERAL FORMAT«, t00=0x0021, t01=0x00ce}
0x3480…3496 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN15,W1«, t00=0x0021, t01=0x00fc}
0x3496…34ce Head {h00=0x0034, h01=0x0050, text=» CALL FMOVE,STRG10A,IND1 FETCH IND ITEM ADRESS=1«, t00=0x0021, t01=0x0112}
0x34ce…34f8 Head {h00=0x0026, h01=0x0050, text=» MATCH STRG10A,BIN15,W9,FDIR,W0,W1«, t00=0x0021, t01=0x014a}
0x34f8…3522 Head {h00=0x0026, h01=0x0050, text=» CBE BIN15,W1,LUPM JUMP IF 1B-ADR «, t00=0x0021, t01=0x0174}
0x3522…354e Head {h00=0x0028, h01=0x0050, text=» ADD BUFPOS,W2 ADJUST BUFPOS 2B-ADR «, t00=0x0022, t01=0x000e}
0x354e…3564 Head {h00=0x0012, h01=0x0050, text=» B LUPM GO ON «, t00=0x0022, t01=0x003a}
0x3564…3572 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0050}
0x3572…3586 Head {h00=0x0010, h01=0x0050, text=»LUP3 FTEXT«, t00=0x0022, t01=0x005e}
0x3586…35a4 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN15,W0 WORK:=0«, t00=0x0022, t01=0x0072}
0x35a4…35ca Head {h00=0x0022, h01=0x0050, text=» ADD BUFPOS,W1 ADJUST BUFFPOS «, t00=0x0022, t01=0x0090}
0x35ca…360c Head {h00=0x003e, h01=0x0050, text=» XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB CHARCTERS«, t00=0x0022, t01=0x00b6}
0x360c…3638 Head {h00=0x0028, h01=0x0050, text=» ADD BUFPOS,W1 1ST CHARCTER-POSITION«, t00=0x0022, t01=0x00f8}
0x3638…367e Head {h00=0x0042, h01=0x0050, text=» XCOPY LDES,DEBIN3,BIN15,BPOOL(PINDCB),BUFPOS COPY TEXTSTRING «, t00=0x0022, t01=0x0124}
0x367e…36a6 Head {h00=0x0024, h01=0x0050, text=» ADD BUFPOS,BIN15 ADJUST BUFFPOS«, t00=0x0022, t01=0x016a}
0x36a6…36d2 (35, 0, 400) Head {h00=0x0028, h01=0x0050, text=» ADD DEBIN3,BIN15 ADJUST POINTERPOS «, t00=0x0023, t01=0x0004}
0x36d2…36e8 Head {h00=0x0012, h01=0x0050, text=» B LUPM GO ON «, t00=0x0023, t01=0x0030}
0x36e8…36f6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0046}
0x36f6…370a Head {h00=0x0010, h01=0x0050, text=»LUP4 FTAB «, t00=0x0023, t01=0x0054}
0x370a…372c Head {h00=0x001e, h01=0x0050, text=» MOVE DEBIN3,W0 POINTER:=0«, t00=0x0023, t01=0x0068}
0x372c…3750 Head {h00=0x0020, h01=0x0050, text=» ADD BUFPOS,W1 NEXT BUFFPOS «, t00=0x0023, t01=0x008a}
0x3750…3788 Head {h00=0x0034, h01=0x0050, text=» XCOPY DEBIN3,W1,W1,BPOOL(PINDCB),BUFPOS TABPOS «, t00=0x0023, t01=0x00ae}
0x3788…37ac Head {h00=0x0020, h01=0x0050, text=» SUB DEBIN3,W1 ADJUST TABPOS«, t00=0x0023, t01=0x00e6}
0x37ac…37ba Head {h00=0x000a, h01=0x0050, text=»LUP10 «, t00=0x0023, t01=0x010a}
0x37ba…37e2 Head {h00=0x0024, h01=0x0050, text=» ADD BUFPOS,W1 ADJUST BUFPOINTER«, t00=0x0023, t01=0x0118}
0x37e2…37f8 Head {h00=0x0012, h01=0x0050, text=» B LUPM GO ON «, t00=0x0023, t01=0x0140}
0x37f8…3806 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0156}
0x3806…3830 Head {h00=0x0026, h01=0x0050, text=»LUP5 FMELI,FVAL,FGEN,FACK,FDUPL «, t00=0x0023, t01=0x0164}
0x3830…384e Head {h00=0x001a, h01=0x0050, text=» MOVE BIN15,W0 WORK:=0«, t00=0x0023, t01=0x018e}
0x384e…3872 Head {h00=0x0020, h01=0x0050, text=» ADD BUFPOS,W1 NEXT BUFFPOS «, t00=0x0024, t01=0x001c}
0x3872…38b8 Head {h00=0x0042, h01=0x0050, text=» XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB OF CHARACTERS«, t00=0x0024, t01=0x0040}
0x38b8…38e4 Head {h00=0x0028, h01=0x0050, text=» ADD BUFPOS,W1 1ST CHARCTERPOSITION «, t00=0x0024, t01=0x0086}
0x38e4…390c Head {h00=0x0024, h01=0x0050, text=» CBE BIN16,W2,LUP2 JUMP IF FMELI«, t00=0x0024, t01=0x00b2}
0x390c…393e Head {h00=0x002e, h01=0x0050, text=» ADD BUFPOS,BIN15 ADJUST FOR NUMB OF CHARS«, t00=0x0024, t01=0x00da}
0x393e…3954 Head {h00=0x0012, h01=0x0050, text=» B LUPM GO ON «, t00=0x0024, t01=0x010c}
0x3954…3962 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0122}
0x3962…3976 Head {h00=0x0010, h01=0x0050, text=»LUP9 FLINK«, t00=0x0024, t01=0x0130}
0x3976…399a Head {h00=0x0020, h01=0x0050, text=» SET BOOL8 T=BUFFER ALTERED «, t00=0x0024, t01=0x0144}
0x399a…39ca Head {h00=0x002c, h01=0x0050, text=» BNZ LUP9A JUMP IF BUFF ALREADY ALTERED «, t00=0x0024, t01=0x0168}
0x39ca…39f8 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBIN4,PINDCB SAVE BUFFERNUMBER «, t00=0x0025, t01=0x0008}
0x39f8…3a06 Head {h00=0x000a, h01=0x0050, text=»LUP9A «, t00=0x0025, t01=0x0036}
0x3a06…3a40 Head {h00=0x0036, h01=0x0050, text=» PERF UNPFLK,BUFPOS UNPACK FLINK INIT NEXT BUFFER «, t00=0x0025, t01=0x0044}
0x3a40…3a56 Head {h00=0x0012, h01=0x0050, text=» B LUPM GO ON «, t00=0x0025, t01=0x007e}
0x3a56…3a64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0094}
0x3a64…3a78 Head {h00=0x0010, h01=0x0050, text=»LUP11 FNL «, t00=0x0025, t01=0x00a2}
0x3a78…3ab2 Head {h00=0x0036, h01=0x0050, text=» MOVE FMTWK(W5),DEBIN3 SAVE NUMBERS OF LDES CHARS «, t00=0x0025, t01=0x00b6}
0x3ab2…3ac0 Head {h00=0x000a, h01=0x0050, text=»LUP11A«, t00=0x0025, t01=0x00f0}
0x3ac0…3af6 Head {h00=0x0032, h01=0x0050, text=» CBE DEBIN3,=X'50',LUP11B JUMP IF END-OF-LINE «, t00=0x0025, t01=0x00fe}
0x3af6…3b36 Head {h00=0x003c, h01=0x0050, text=» XCOPY LDES,DEBIN3,W1,HEX00,W0 LOAD THE REST WITH X'00' «, t00=0x0025, t01=0x0134}
0x3b36…3b4c Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN3,W1«, t00=0x0025, t01=0x0174}
0x3b4c…3b5e Head {h00=0x000e, h01=0x0050, text=» B LUP11A «, t00=0x0025, t01=0x018a}
0x3b5e…3b6c Head {h00=0x000a, h01=0x0050, text=»LUP11B«, t00=0x0026, t01=0x000c}
0x3b6c…3b9e Head {h00=0x002e, h01=0x0050, text=» TBF BOOL8,LUPR JUMP IF NO BUFF.ALTERATION«, t00=0x0026, t01=0x001a}
0x3b9e…3bd2 Head {h00=0x0030, h01=0x0050, text=» MOVE PINDCB,DEBIN4 RESTORE BUFFER'POINTER' «, t00=0x0026, t01=0x004c}
0x3bd2…3bee Head {h00=0x0018, h01=0x0050, text=» B LUPR END-OF-LINE «, t00=0x0026, t01=0x0080}
0x3bee…3bfc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x009c}
0x3bfc…3c12 Head {h00=0x0012, h01=0x0050, text=»LUP13 FKI:S «, t00=0x0026, t01=0x00aa}
0x3c12…3c28 Head {h00=0x0012, h01=0x0050, text=» SUB BIN16,W12«, t00=0x0026, t01=0x00c0}
0x3c28…3c48 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBIN2,W0 WORK:=0 «, t00=0x0026, t01=0x00d6}
0x3c48…3c6c Head {h00=0x0020, h01=0x0050, text=» ADD BUFPOS,W1 NEXT BUFFPOS «, t00=0x0026, t01=0x00f6}
0x3c6c…3c8e Head {h00=0x001e, h01=0x0050, text=» MOVE DEBIN3,W0 POINTER:=0«, t00=0x0026, t01=0x011a}
0x3c8e…3cd4 Head {h00=0x0042, h01=0x0050, text=» XCOPY DEBIN3,W1,W1,BPOOL(PINDCB),BUFPOS GET TABPOS AS POINTPS«, t00=0x0026, t01=0x013c}
0x3cd4…3d04 Head {h00=0x002c, h01=0x0050, text=» CBE DEBIN3,W1,LUPREF DUMMY-FORMAT FOUND«, t00=0x0026, t01=0x0182}
0x3d04…3d1a Head {h00=0x0012, h01=0x0050, text=» SUB DEBIN3,W2«, t00=0x0027, t01=0x0022}
0x3d1a…3d50 Head {h00=0x0032, h01=0x0050, text=» CBL BIN16,W4,LUP13A JUMP IF FKI WITHOUT DUPL «, t00=0x0027, t01=0x0038}
0x3d50…3d7e Head {h00=0x002a, h01=0x0050, text=» SUB BIN16,W3 ADJUST FOR FKI WITH DUPL«, t00=0x0027, t01=0x006e}
0x3d7e…3d94 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN15,W1«, t00=0x0027, t01=0x009c}
0x3d94…3db4 Head {h00=0x001c, h01=0x0050, text=» CALL FMOVE,STRG10A,IND1«, t00=0x0027, t01=0x00b2}
0x3db4…3df0 Head {h00=0x0038, h01=0x0050, text=» MATCH STRG10A,BIN15,W9,FDIR,W0,W1 CHECK ADRESS-TYPE«, t00=0x0027, t01=0x00d2}
0x3df0…3e22 Head {h00=0x002e, h01=0x0050, text=» ADD BIN16,BIN15 ADJUST FOR 1 OR 2B-ADRESS«, t00=0x0027, t01=0x010e}
0x3e22…3e30 Head {h00=0x000a, h01=0x0050, text=»LUP13A«, t00=0x0027, t01=0x0140}
0x3e30…3e62 Head {h00=0x002e, h01=0x0050, text=» ADD BUFPOS,BIN16 ADJUST FOR NEXT BUFFPOS «, t00=0x0027, t01=0x014e}
0x3e62…3ea0 Head {h00=0x003a, h01=0x0050, text=» CALL RCNTRL,BPOOL(PINDCB),BUFPOS,DEBINW1,BIN16,DEBIN2«, t00=0x0027, t01=0x0180}
0x3ea0…3ec6 Head {h00=0x0022, h01=0x0050, text=» ADD BUFPOS,W3 ADJUST BUFFPOS «, t00=0x0028, t01=0x002e}
0x3ec6…3edc Head {h00=0x0012, h01=0x0050, text=» B LUPM GO ON «, t00=0x0028, t01=0x0054}
0x3edc…3eea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x006a}
0x3eea…3ef8 Head {h00=0x000a, h01=0x0050, text=»LUPREF«, t00=0x0028, t01=0x0078}
0x3ef8…3f1e Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW2,W1 E-O-F-SIGNAL «, t00=0x0028, t01=0x0086}
0x3f1e…3f2a Head {h00=0x0008, h01=0x0050, text=»LUPR«, t00=0x0028, t01=0x00ac}
0x3f2a…3f36 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0028, t01=0x00b8}
0x3f36…3f44 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0028, t01=0x00c4}
0x3f44…3f52 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x00d2}
0x3f52…3f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00e0}
0x3f5c…3f92 Head {h00=0x0032, h01=0x0050, text=»* THIS ROUTINE EDITS AN ATTACHED FORMAT,«, t00=0x0028, t01=0x00ea}
0x3f92…3fc8 Head {h00=0x0032, h01=0x0050, text=»* PUTTING '-99......' IN NUMERICAL ITEMS«, t00=0x0028, t01=0x0120}
0x3fc8…400a Head {h00=0x003e, h01=0x0050, text=»* 'LLL......' IN LEFTADJUSTED ALPHANUMERIC ITEMS AND«, t00=0x0028, t01=0x0156}
0x400a…404a Head {h00=0x003c, h01=0x0050, text=»* 'RRR......' IN RIGHTADJUSTED ALPHANUMERIC ITEMS «, t00=0x0029, t01=0x0008}
0x404a…4054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0048}
0x4054…40a4 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0029, t01=0x0052}
0x40a4…40ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00a2}
0x40ae…40c0 Head {h00=0x000e, h01=0x0050, text=»FEDIT PROC«, t00=0x0029, t01=0x00ac}
0x40c0…40f0 Head {h00=0x002c, h01=0x0050, text=» MOVE DEINPUT,='-9' LOAD WITH -999999...«, t00=0x0029, t01=0x00be}
0x40f0…4120 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW3,W0 INITIATE FIELD COUNTER «, t00=0x0029, t01=0x00ee}
0x4120…412e Head {h00=0x000a, h01=0x0050, text=»FEDITL«, t00=0x0029, t01=0x011e}
0x412e…413e Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x0029, t01=0x012c}
0x413e…4168 Head {h00=0x0026, h01=0x0050, text=» ADD DEBINW3,W1 FIELDCOUNTER:=FC+1«, t00=0x0029, t01=0x013c}
0x4168…4194 Head {h00=0x0028, h01=0x0050, text=» CALL GETFWD,BIN16,0,DEBINW3,DEBINW4«, t00=0x0029, t01=0x0166}
0x4194…41ae (42, 0, 400) Head {h00=0x0016, h01=0x0050, text=» CALL ADJUST,BIN16«, t00=0x002a, t01=0x0004}
0x41ae…41c2 Head {h00=0x0010, h01=0x0050, text=» BNOK FEDITR«, t00=0x002a, t01=0x001e}
0x41c2…41e8 Head {h00=0x0022, h01=0x0050, text=» GETCTL 1,DEBINW4 GETMAXLENGTH«, t00=0x002a, t01=0x0032}
0x41e8…421e Head {h00=0x0032, h01=0x0050, text=» CBE DEBINW4,W0,FEDITR MAXL=0 => END-OF-FORMAT«, t00=0x002a, t01=0x0058}
0x421e…4234 Head {h00=0x0012, h01=0x0050, text=» TSTCTL ALPHA «, t00=0x002a, t01=0x008e}
0x4234…4256 Head {h00=0x001e, h01=0x0050, text=» BZ FEDBCD JUMP IF NUMERIC«, t00=0x002a, t01=0x00a4}
0x4256…4288 Head {h00=0x002e, h01=0x0050, text=» GETCTL SCHK,DEBINW4 GET SPECIAL CHECK NR «, t00=0x002a, t01=0x00c6}
0x4288…42b6 Head {h00=0x002a, h01=0x0050, text=» CBNE DEBINW4,W2,FELEFT JUMP IF NOT 2 «, t00=0x002a, t01=0x00f8}
0x42b6…42e8 Head {h00=0x002e, h01=0x0050, text=» MOVE :FMTITEM,=C'R' LOAD ITEM WITH 'R':S «, t00=0x002a, t01=0x0126}
0x42e8…4300 Head {h00=0x0014, h01=0x0050, text=» B FEDITL GO ON «, t00=0x002a, t01=0x0158}
0x4300…430e Head {h00=0x000a, h01=0x0050, text=»FELEFT«, t00=0x002a, t01=0x0170}
0x430e…4340 Head {h00=0x002e, h01=0x0050, text=» MOVE :FMTITEM,=C'L' LOAD ITEM WITH 'L':S «, t00=0x002a, t01=0x017e}
0x4340…4358 Head {h00=0x0014, h01=0x0050, text=» B FEDITL GO ON «, t00=0x002b, t01=0x0020}
0x4358…4366 Head {h00=0x000a, h01=0x0050, text=»FEDBCD«, t00=0x002b, t01=0x0038}
0x4366…439a Head {h00=0x0030, h01=0x0050, text=» MOVE :FMTITEM,DEINPUT LOAD ITEM WITH '-9':S«, t00=0x002b, t01=0x0046}
0x439a…43b2 Head {h00=0x0014, h01=0x0050, text=» B FEDITL GO ON «, t00=0x002b, t01=0x007a}
0x43b2…43c0 Head {h00=0x000a, h01=0x0050, text=»FEDITR«, t00=0x002b, t01=0x0092}
0x43c0…43cc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002b, t01=0x00a0}
0x43cc…43da Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x00ac}
0x43da…43e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x00ba}
0x43e8…43fa Head {h00=0x000e, h01=0x0050, text=»IND1 FRMT «, t00=0x002b, t01=0x00c8}
0x43fa…440a Head {h00=0x000c, h01=0x0050, text=» FCTL W1«, t00=0x002b, t01=0x00da}
0x440a…4418 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002b, t01=0x00ea}
0x4418…4424 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x002b, t01=0x00f8}
0x4424…4428 Head {h00=0x4004, h01=0x0000}
0x4428…442c 00 2b 01 04 ┆ + ┆
0x442c…4434 (44, 1, 8) 20 04 00 00 00 2c 00 04 ┆ , ┆