|
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: 19510 (0x4c36)
Notes: pts_type(SC)
Names: »DEPROC.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DEPROC.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DEPROC.SC«
IDENT DEPROC REL 10.0 80-04-11 80-01-17/JAER * * * THIS PROGRAM-MODUL CONTAINS ENTRIES TO THE DIFFERENT * STEERING ROUTINES OF THE FORMAT GENERATION * DDUM DEDDIV PDIV ENTRY MTEXT STEERING ROUTINE ENTRY LINIT LINE INITIALIZATION ENTRY FDIR FORMAT FIELD DIRECTIVE * ENTRY DESC DESCRIPTOR STORING EXT FTEXT FORMAT TEXT EXT FKI FORMAT KEYED INPUT EXT FMELI FORMAT EDITING EXT FCOPY FORMAT COPYING EXT FVAL FORMAT VALIDATION EXT FGEN FORMAT GENERATION EXT FACC FORMAT ACCUMULATION EXT FDUPL FORMAT DUPLICATION EXT FTAB FORMAT TABULATION EXT FLINK FORMAT LINKING EXT FNL FORMAT NEW LINE EXT NOPOOL NUMBER OF USED POOLS EXT DERROR ERRORMESSAGE EXT UPDBOL UPDATE BOOLEAN/WORD EXT DEPOOL BUFFERRESERVATIN-MODUL EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - EJECT * * KEYTABLE * CLR EQU X'8F' CLEAR CAN EQU X'91' CANCEL RET EQU X'92' RETURN NOK EQU X'FF' NO KEY TOT EQU X'93' TOTAL * DEKTAB6 KTAB CLR,CAN,RET,NOK,TOT * DEKTAB7 KTAB CLR,CAN,RET * EJECT * * MTEXT * - MAKES MATCH OF 'LINE DESIGN' UNTIL EOL OR NEXT FIELD IS FOUND * - EDIT TEXT PARTS OF 'LINE DESIGN' IN 'LINE DISPLAY' * - GENERATES 'FTEXT'- AND 'FTAB'-STATMENTS * - DISPLAYS FIELDDEPENDENT INFO WHEN FOUND IN 'MATCH' * - SIGNALS IN 'DEBINW2' AS FOLLOWS; * = 0 OK * = 1 NO AVAILABLE BUFFERS;CANCEL * = 2 NO AVAILABLE BUFFERS;RETUR * = 4 NO AVAILABLE BUFFERS/MAX LIMIT EXCEEDED;KTOT * ************************************************************************ MTEXT PROC MT10 MOVE DEBINW2,W0 SWITCH PERF MROUT MATCHROUTINE TBF BOOL3,MT20 F= NO NO FTAB * * FTAB-FTEXT * PERF FTAB GENERATE FTAB CBNE DEBINW2,W0,MT99 ERROR SIGNAL MT20 * * FTEXT * TBF BOOL4,MT35 F=NO FTEXT PERF FTEXT GENERATE FTEXT CBNE DEBINW2,W0,MT99 ERROR SIGNAL XCOPY LDISP,W0,BIN5,LDES,W0 COPY TEXT TBT DOOL8,MT35 JUMP IF NO DISPLAY DISPLAY 2,W3,W3 DISPLAY LDISP MT35 TBT BOOL2,MT40 JUMP IF FIELD IS FOUND CBE EOLINE,W1,MT99 JUMP IF EOL B MT10 GO ON MATCH MT40 ADD BIN10,W1 NEXT FIELD MOVE FDVBCD(W4),BIN10 MOVE FDVBCD(W5),BIN6 FIELDSTART MOVE FDVBCD(W6),BIN7 FIELDLENGTH TBT BOOL6,MT50 JUMP IF BALANCE FORMAT * CHECK IF RECORD LENGTH IS EXCEEDED MOVE BIN16,BIN13 LOAD LAST DISPL ADD BIN16,BIN14 ADD LAST FIELD LENGTH MOVE BIN15,BIN7 LOAD ACTUAL FIELDLENGTH TBT ALPHA,MT45 JUMP IF ALPHA ADD BIN15,W2 DIV BIN15,W2 NUMBER OF BYTES MT45 ADD BIN16,BIN15 ADD ACTUAL FIELD LENGTH MOVE FDVBCD(W8),BIN16 STORE USED RECORDSPACE MT50 TBT DOOL8,MT55 JUMP IF NO ERASE DISPLAY 2,W4,W7 DISPLAY FIELDNR,-LENGTH,-START MT55 TBT BOOL6,MT58 JUMP IF BALANCE FORMAT CBG BIN10,=X'FF',MT90 FIELDNR MAX REACHED CBG BIN16,FMTWK(W14),MT80 MAX RECLEN EXCEEDED MT58 TBT DOOL8,MT60 JUMP IF NO ERASE ERASE 10,W4,W0 ERASE ALL FKI/NCLR-FIELDS MT60 PERF FINIT FIELD INIT WORKITEMS B MT99 OK MT80 MOVE DEBINW4,W14 'MAX RECORD LENGTH EXCEEDED' B MT95 MT90 MOVE DEBINW4,W16 MT95 PERF DERROR,DEKTAB6 CBE DEBINW2,W1,MT95 JUMP IF CLEAR-KEY CBNE DEBINW2,W5,MT98 PERF FNL FORMAT NEW LINE CBNE DEBINW2,W0,MT99 MOVE DEBINW2,W5 SIMULATE TOT-KEY MT98 SUB DEBINW2,W1 ADJUST FOR CAN,RET,---,TOT MT99 RET PEND EJECT MROUT PROC ****************************************************** * * MATCHING ROUTINE * * MATCH FOR '<' => (FKI/FINP) * * TAB = BIN6 => FKI <TABPOS> ........ * NUMB = BIN7 => 'MAXL' =FIELDLENGTH (FROM SUBROUTINE 'PICMA') * MATCH = BOOL2 T= '#'-MATCHED * BIN12 => FMELI <NUMB OF PICCHARS> (FROM SUBROUTINE 'PI * STATSH => PICTURE STRING 'FMELI' (FROM SUBROUTINE 'PICM * DEBIN5 => PICTURE STRING STARTPOSITION IN LDES * ****************************************************** * * MATCH FOR ' ':S => (FTAB) * * TAB = BIN8 => FTAB <TABPOS> * NUMB = BIN16 => NOT USED * MATCH = BOOL3 T= ' '-MATCHED * ****************************************************** * * MATCH INVERTED FOR '<':S OR ' ':S (FTEXT) * * TAB = BIN16 => NOT USED * NUMB = BIN9 => FTEXT <NUMBER OF CHARS> <CH> <CH> ..... * MATCH = BOOL4 T= TEXT MATCHED * BIN11 => STARTPOSITION OF 'FTEXT' IN ITEM 'LINE DESIGN ****************************************************** EJECT CLEAR BOOL2 F=NO # MATCH CLEAR BOOL3 F=NO ' ' MATCH CLEAR BOOL4 F=NO TEXT MATCH MOVE STR1A,=C'<' CHARACTER TO BE SEARCHED CLEAR BOOL9 F=ORIGINAL MATCH MODE PERF LININV,STR1A,BOOL9,BIN6,BIN16,BOOL2 TBT BOOL2,MR60 MATCH FOUND CBNE EOLINE,W0,MR99 END-OF-LINE MOVE STR1A,=C' ' CHARACTER TO BE SEARCHED CLEAR BOOL9 PERF LININV,STR1A,BOOL9,BIN8,BIN16,BOOL3 CBNE EOLINE,W0,MR99 END-OF-LINE TBT BOOL3,MR10 MATCH FOUND MR05 MOVE STR2A,=C'< ' CHARACTERS TO BE SEARCHED SET BOOL9 T=INVERTED MATCH PERF LININV,STR2A,BOOL9,BIN16,BIN9,BOOL4 MOVE BIN8,BIN11 ADD BIN8,W1 SET BOOL3 CBNE EOLINE,W0,MR99 END-OF-LINE TBT BOOL4,MR30 MATCH FOUND MOVE EOLINE,W1 INDICATE END-OF-LINE B MR99 * SPACE MATCH FOUND MR10 MOVE STR1A,=C'<' CHARACTER TO BESEARCHED CLEAR BOOL9 F=ORIGINAL MATCH MODE PERF LININV,STR1A,BOOL9,BIN6,BIN16,BOOL2 TBT BOOL2,MR50 MATCH FOUND CBNE EOLINE,W0,MR99 END-OF-LINE B MR05 * TEXT MATCH FOUND MR30 * * MATCH IF LESS THAN OR EQUAL 4 SPACES WITH FOLLOWING TEXT * IN THAT CASE INDICATE JUST ONE FTEXT * MOVE DEBIN4,BIN11 SAVE ST.POS FOT TEXT MR35 MOVE DEBIN5,BIN5 SAVE LINE POSITION MOVE STR1A,=' ' ' '=MATCH-CHARCTER CLEAR BOOL9 F=ORIGINAL MATCH MODE CLEAR BOOL5 PERF LININV,STR1A,BOOL9,DEBIN1,BIN16,BOOL5 TBF BOOL5,MR40 JUMP IF NO MATCH CBNE EOLINE,W0,MR45 END-OF-LINE CBG BIN16,W4,MR40 JUMP IF MORE THAN 4 SPACES MOVE STR2A,='< ' MATCH CHARCTERS SET BOOL9 T=INVERTED MATCH MODE CLEAR BOOL5 PERF LININV,STR2A,BOOL9,DEBIN1,DEBIN2,BOOL5 TBF BOOL5,MR40 JUMP IF NO INV.-MATCH ADD BIN9,BIN16 ADJUST NUMB CHARS+NUMB SPACES ADD BIN9,DEBIN2 ADJUST NUMB CHARS+NUMB CHARS CBNE EOLINE,W0,MR45 END-OF-LINE B MR35 MR40 MOVE BIN5,DEBIN5 RESTORE LINPOS WHEN NO SP+TEXT MR45 MOVE BIN11,DEBIN4 RESTORE FTEXT STARTPOS B MR99 MR50 CLEAR BOOL3 NO SP-MATCH INDICATION NEEDED MR60 MOVE DEBIN5,BIN5 SAVE STARTPOIN PICTUR PERF PICMA PICTURE STRING MATCH/CONVERT MR99 RET PEND EJECT * * LINE DESIGN INVESTIGATION PROCEDURE * * INPUT PARAMETERS : CHAR = CHARACTER(S) TO BE SEARCHED * MOD = F ORIGINAL MATCHING * = T INVERTED MATCHING * * OUTPUT PARAMETERS: TAB = TABULATION POSITION * NUMB = NUMBER OF MATCHES * MATCH = F NO MATCH FOUND * = T MATCH FOUND * *************************************************************** LININV PROC CHAR,MOD,TAB,NUMB,MATCH CBE BIN5,FMTWK(W5),LIN098 JUMP IF ENDPOS REACHED CLEAR MATCH F= NO MATCH MOVE TAB,BIN5 LOAD ACTUAL TABPOS MOVE NUMB,W0 ZEROIZE NUMBER LIN000 TBT MOD,LIN010 JUMP IF INVERTED MOD MATCH LDES,BIN5,W1,CHAR,W0,W1 BNOK LIN040 NO MATCH B LIN020 NEXT MATCH LIN010 MOVE BIN15,W0 MATCHINGPOINTER:=0 MATCH CHAR,BIN15,W2,LDES,BIN5,W1 BOK LIN050 MATCH FOUND NOK LIN020 TBT MATCH,LIN025 JUMP IF ALREADY MATCHED MOVE BIN11,TAB STORE STARTPOSITON SET MATCH INVERTED MATCH FOUNF LIN025 ADD BIN5,W1 NEXT POSITION ADD TAB,W1 NEXT TABPOS ADD NUMB,W1 NUMBER OF MATCHES CBE BIN5,FMTWK(W5),LIN098 JUMP IF ENDPOS REACHED B LIN000 NEXT MATCH INV LIN040 MOVE BIN5,TAB RESTORE ACTUAL POSITION ADD TAB,W1 ADJUST TABPOS LIN050 MOVE EOLINE,W0 NO END-OF-LINE B LIN099 LIN098 MOVE EOLINE,W1 END-OF-LINE ADD TAB,W1 NEXT TABPOS LIN099 RET PEND EJECT * * LINE INITIALIZATION OF WORKITEMS * LINIT PROC MOVE BIN5,W0 LINEPOSITION:=0 MOVE FMTWK(W5),W0 CLEAR BOOL2 F=NO MATCH '#' CLEAR BOOL3 F=NO MATCH ' ' CLEAR BOOL4 F=NO MATCH '<STRG>' CLEAR DOOL1 F=NO FIELD CONFIRM CURRLINE PERF FINIT FIELD INIT WORKITEMS RET PEND EJECT * * FIELD INITIALIZATION OF WORKITEMS * FINIT PROC MOVE FMTWK(W1),W0 NUMB OF VALID. CHARS:=0 MOVE FMTWK(W2),W0 NUMB OF GENERAT. CHARS:=0 MOVE FMTWK(W3),W0 NUMB OF ACCUMULAT. CHARS:=0 MOVE FMTWK(W4),W0 NUMB OF DUPL. CHARS:=0 MOVE FMTWK(W10),W0 NUMB OF CHARS STRG1:=0 MOVE FMTWK(W11),W0 NUMB OF CHARS STRG2:=0 MOVE FMTWK(W12),W0 NUMB OF CHARS STRG1+2:=0 RET PEND EJECT * * PICTURE STRING MATCH AND CONVERTION * * MATCHCHARCTER-TABLE WORKITEMS * 0 L FLENGTH PLENGTH INPUT : BIN5 = STPOS LDES * 1 R FLENGTH PLENGTH * 2 A FLENGTH PLENGTH WORK : BIN16= MATCHININDEX * 3 P FLENGTH PLENGTH BIN15= SAVED DITO * 4 T FLENGTH PLENGTH * 5 X FLENGTH PLENGTH * 6 Z FLENGTH PLENGTH OUTPUT: BIN5 = STPOS NEXT MATCH L * 7 Y FLENGTH PLENGTH BIN7 = FIELDLENGTH=MAXL * 8 + PLENGTH BIN12= LENGTH OF PIC.-STR * 9 S - PLENGTH STATSH=PICTURE-STRING * 10 , PLENGTH * 11 . V PLENGTH * 12 > (END OF FIELD) * 13 < * 14 0 X FLENGTH PLENGTH * NO MATCH E PLENGTH+1 * ************************************************************************ PICMA PROC MOVE STATSH,=' ' SPACES PICTURE-STRING MOVE BIN12,W0 NUMB OF LAYOUT CHARS:=0 MOVE DEBINW1,W0 SET NCLR-BIT TBF BOOL6,PIC1 JUMP IF GENERAL FORMAT ADD DEBINW1,W32 SET CTAB-BIT FOR BALANCEFORM PIC1 CALL UPDBOL,DEBINW1 INITIATE FIELDCONTROLBITS DEF MOVE BIN7,W0 FIELDLENGTH:=0 MOVE BIN16,W0 MATCH PICSTR,BIN16,W15,LDES,BIN5,W1 BNOK PICNE INSERT CBE BIN16,W0,PICA0 JUMP IF = 0 IB BIN16,PICA1,PICN2,PICN3,PICN3, 1-4 C PICN3,PICN3,PICN3,PICN8,PICN9, 5-9 C PICN10,PICN11,PICNE,PICNE,PICN14 10-14 B PICNE * ALPHANUMERIC PICA1 ALPHANUMERIC RIGHT SET REWRT INDICATE REWRITE SET SCHK2 RIGHT ADJUST ALPHANUM PICA0 ALPHANUMERIC LEFT SET ALPHA INICATE ALPANUMERIC FIELD PICA XCOPY STATSH,BIN12,W1,LDES,BIN5 ADD BIN12,W1 NEXT PICCHARS ADD BIN5,W1 NEXT LDESPOS ADD BIN7,W1 ADD 1 TO FIELDLENGTH MOVE BIN16,W0 INITIATE TABLE-INDEX MATCH PICSTR,BIN16,W15,LDES,BIN5,W1 CBE BIN16,W12,PIC99 '>' FOUND READY B PICA * NUMERIC FIELDS PICN3 SET REWRT PICN2 XCOPY STATSH,BIN12,W1,LDES,BIN5 ADD BIN7,W1 ADD 1 TO FIELD LENGTH B PICNM NEXT MATCH PICN8 SET SCHK1 INDICATE SIGN B PICN10 PICN9 XCOPY STATSH,BIN12,W1,PICCON,W0 SET SCHK1 INDICATE SIGN SET REWRT INDICATE REWRITE B PICNM NEXT MATCH PICN11 SET REWRT XCOPY STATSH,BIN12,W1,PICCON,W1 B PICNM NEXT MATCH PICN14 XCOPY STATSH,BIN12,W1,PICCON,W3 SET SCHK2 INDICATE LEFT ZERO FILL SET REWRT INDICATE REWRT ADD BIN7,W1 ADD 1 TO FIELD LENGTH B PICNM NEXT MATCH PICNE XCOPY STATSH,BIN12,W1,PICCON,W2 ADD BIN12,W1 NEXT CHARACTER PICN10 SET REWRT INDICATE REWRITE XCOPY STATSH,BIN12,W1,LDES,BIN5 PICNM ADD BIN12,W1 NEXT PICCHARS ADD BIN5,W1 NEXT LDES POSITION MOVE BIN16,W0 INITIATE TABLE-INDEX MATCH PICSTR,BIN16,W15,LDES,BIN5,W1 BNOK PICNE INSERT CBE BIN16,W0,PICNE 0=L =>EL IB BIN16,PICNE,PICN2,PICN3,PICN3, 1-4 C PICN3,PICN3,PICN3,PICN8,PICN9, 5-9 C PICN10,PICN11,PIC99,PICNE,PICN14 10-14 PIC99 ADD BIN5,W1 RET PEND EJECT * * FORMAT FIELD DIRECTIVE PROCESSING * * - PROCESSES FORMAT FIELD DIRECTIVE CODE * FKI AND FMELI/FCOPY * INPUT VARIABLES: DEBIN5 = SAVED RESTARTPOINT OF PICTURESTRING * * * OUTPUT VARIABLES: * DEBINW2 = 0 OK GO ON * = 1 NO AVAILABLE BUFFERS;CANCEL * = 2 NO AVAILABLE BUFFERS;RETUR * = 4 MAXIMUM BUFFERS USED:KTOT * *********************************************************************** * FDIR PROC * * FORMAT DIREKTIV GENERATION * MOVE DEBINW2,W0 ZEROISE OUTPUT PARAM TBF BOOL2,FDIR99 NO FIELD FOUND * * FKI + FCOPY/FMELI * SWITCH PERF FKI GENERATE FKI CBNE DEBINW2,W0,FDIR99 ERROR SIGNALS TBT BOOL6,FDIR10 JUMP IF BALANCE FORMAT PERF DESC GENERATE DESCRIPTOR CBNE DEBINW2,W0,FDIR99 ERROR SIGNALS TBT ALPHA,FDIR34 JUMP IF ALPHA FDIR10 MOVE BIN5,DEBIN5 RESTORE PIC.STARTPOINT PERF PICMA PERF FMELI GENERATE FMELI B FDIR70 FDIR34 PERF FCOPY GENERATE FCOPY FDIR70 XCOPY LDISP,W0,BIN5,LDES,W0 COPY TEXT TBT DOOL8,FDIR73 JUMP IF NO DISPLAY DISPLAY 2,W3,W3 DISPLAY LDISP EJECT * * FVAL (+) FGEN (+) FACC * FDIR73 SET BOOL1 T=FIRTS FIELD CONFIRMED SET DOOL1 T=FIELD CONFIRM CURRLINE CALL EMPTYT,JOBSPC CHECK IF ANY VAL,GEN OR ACC BNOK FDIR85 MOVE DEBIN1,W0 STARTPOSITION MOVE DEBIN4,W0 STARTPOS IN JOBSPC MOVE DEBIN5,W0 NUMB OF DELETED CHARS:=0 FDIR75 MOVE STRG10A,='#V:#G:#A:' MOVE FBIN1,W0 FUNCINDEX POINTER:=0 MATCH STRG10A,FBIN1,W9,JOBSPC,DEBIN4,W3 BNOK FDIR85 NO MORE FUNCTIONS ADD FBIN1,W3 DIV FBIN1,W3 COMPUTE FUNC-INDEX SUB FMTWK(FBIN1),DEBIN5 ADJUST ENDPOS FOR DELCHARS SWITCH PERFI FBIN1,FVAL,FGEN,FACC FVAL,FGEN,FACC CBNE DEBINW2,W0,FDIR99 ERROR SIGNALS MOVE DEBIN1,DEBIN4 STARTPOS'JOBSPC' NEXT FUNC B FDIR75 GO ON NEXT FUNCTION FDIR85 CALL EMPTYT,DUPL LOOK IF DUPL EMPTY BNOK FDIR90 JUMP IF EMPTY MOVE DEBIN1,W0 STARTPOSITION MOVE DEBIN4,W0 STARTPOS IN 'DUPL' MOVE DEBIN5,W0 NUMB OF DELETED CHARS:=0 PERF FDUPL FDIR90 TBF DOOL8,FDIR99 ERASE 11,W4,W0 CLEAR IN CORE FDIR99 RET PEND EJECT * * DESCRIPTOR-TABLE STORING * * EACH FIELD TAKES TW0 WORDS * * WORD1 * -TYPE BITS 0-3 = 0 STRG-VARIABLE * (BYTE 1) = 3 BCD-VARIABLE * -LENGTH BITS 4-15 * (BYTE 1) * BITS 0-15= - NUMBER OF MATCHED #:S WHEN STRG * (BYTE 2) - (NUMBER OF MATCHED #:S + 1)/2 WHEN BCD * * WORD2 * -DISPLACEMENT = LAST DISPLACEMENTS + LAST LENGTH * = BIN13 + BIN14 * ************************************************************************ DESC PROC MOVE BIN16,W0 WORKITEM:=0 MOVE BIN15,BIN7 LOAD NUMBER OF '#'-POS TBT ALPHA,DESC10 JUMP IF ALPHA * * NUMERIC FIELD * ADD BIN16,=X'3000' TYPE = BCD = 3 ADD BIN15,W2 DIV BIN15,W2 NUMBER OF BYTES DESC10 ADD BIN16,BIN15 LOAD TYPE AND LENGTH XCOPY BPOOL(BIN4),BIN2,W2,BIN16,W0 STORE TYPE/LENGTH ADD BIN2,W2 NEXT POS MOVE BIN16,BIN13 RESTORE LAST DISPL ADD BIN16,BIN14 ADJUST DISPLACEMENT XCOPY BPOOL(BIN4),BIN2,W2,BIN16,W0 STORE DISPLACEMENTS ADD BIN2,W2 NEXT POS MOVE BIN13,BIN16 SAVE LAST DISPL MOVE BIN14,BIN15 SAVE LAST LENGTH CBL BIN2,W188,DESC99 JUMP IF NOT END OF BUFFER DESC20 MOVE BIN16,W1 NUMBER OF WANTED BUFFERS PERF DEPOOL,W3,BIN16,BIN4,STRG10A CHAIN ANOTHER BUFFER BNOK DESC30 MOVE DEBINW2,W0 MOVE BIN4,BIN16 LOAD NEW BUFFERPOINTER ADD PINDND,W1 NUMBER OF DESC-BUFFERS+1 PERF NOPOOL NUMBER OF POOLS DISPLAY 2,W2,W2 DISPLAY DITO WHILE CHANGED MOVE BPOOL(BIN4),HEX00 MOVE BIN2,W0 BUFFER PONTER:=0 B DESC99 DESC30 PERF DERROR,DEKTAB7 CBE DEBINW2,W1,DESC20 SUB DEBINW2,W1 ADJUST FOR CANC RET DESC99 RET PEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DEPROC REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-01-17/JAER«, t00=0x0000, t01=0x002c}
0x0040…004a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0044}
0x004a…0054 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x004e}
0x0054…0098 Head {h00=0x0040, h01=0x003c, text=»* THIS PROGRAM-MODUL CONTAINS ENTRIES TO THE DIFFERENT«, t00=0x0000, t01=0x0058}
0x0098…00d2 Head {h00=0x0036, h01=0x0032, text=»* STEERING ROUTINES OF THE FORMAT GENERATION«, t00=0x0000, t01=0x009c}
0x00d2…00dc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00d6}
0x00dc…00f0 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x00e0}
0x00f0…00fe Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x00f4}
0x00fe…0124 Head {h00=0x0022, h01=0x001d, text=» ENTRY MTEXT STEERING ROUTINE «, t00=0x0000, t01=0x0102}
0x0124…014c Head {h00=0x0024, h01=0x0020, text=» ENTRY LINIT LINE INITIALIZATION«, t00=0x0000, t01=0x0128}
0x014c…0176 Head {h00=0x0026, h01=0x0050, text=» ENTRY FDIR FORMAT FIELD DIRECTIVE«, t00=0x0000, t01=0x0150}
0x0176…0180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017a}
0x0180…01a6 Head {h00=0x0022, h01=0x0050, text=» ENTRY DESC DESCRIPTOR STORING«, t00=0x0000, t01=0x0184}
0x01a6…01c4 Head {h00=0x001a, h01=0x0050, text=» EXT FTEXT FORMAT TEXT«, t00=0x0001, t01=0x001a}
0x01c4…01e8 Head {h00=0x0020, h01=0x001b, text=» EXT FKI FORMAT KEYED INPUT «, t00=0x0001, t01=0x0038}
0x01e8…020a Head {h00=0x001e, h01=0x0019, text=» EXT FMELI FORMAT EDITING «, t00=0x0001, t01=0x005c}
0x020a…022c Head {h00=0x001e, h01=0x0019, text=» EXT FCOPY FORMAT COPYING «, t00=0x0001, t01=0x007e}
0x022c…0250 Head {h00=0x0020, h01=0x001b, text=» EXT FVAL FORMAT VALIDATION «, t00=0x0001, t01=0x00a0}
0x0250…0274 Head {h00=0x0020, h01=0x001b, text=» EXT FGEN FORMAT GENERATION «, t00=0x0001, t01=0x00c4}
0x0274…029a Head {h00=0x0022, h01=0x001d, text=» EXT FACC FORMAT ACCUMULATION «, t00=0x0001, t01=0x00e8}
0x029a…02c0 Head {h00=0x0022, h01=0x001d, text=» EXT FDUPL FORMAT DUPLICATION «, t00=0x0001, t01=0x010e}
0x02c0…02e4 Head {h00=0x0020, h01=0x0050, text=» EXT FTAB FORMAT TABULATION «, t00=0x0001, t01=0x0134}
0x02e4…0306 Head {h00=0x001e, h01=0x0050, text=» EXT FLINK FORMAT LINKING «, t00=0x0001, t01=0x0158}
0x0306…0326 Head {h00=0x001c, h01=0x0050, text=» EXT FNL FORMAT NEW LINE«, t00=0x0001, t01=0x017a}
0x0326…034e Head {h00=0x0024, h01=0x0050, text=» EXT NOPOOL NUMBER OF USED POOLS«, t00=0x0002, t01=0x000a}
0x034e…036e Head {h00=0x001c, h01=0x0050, text=» EXT DERROR ERRORMESSAGE«, t00=0x0002, t01=0x0032}
0x036e…0396 Head {h00=0x0024, h01=0x0050, text=» EXT UPDBOL UPDATE BOOLEAN/WORD «, t00=0x0002, t01=0x0052}
0x0396…03c0 Head {h00=0x0026, h01=0x0050, text=» EXT DEPOOL BUFFERRESERVATIN-MODUL«, t00=0x0002, t01=0x007a}
0x03c0…03f2 Head {h00=0x002e, h01=0x0050, text=» EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - «, t00=0x0002, t01=0x00a4}
0x03f2…0400 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x00d6}
0x0400…040a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e4}
0x040a…0422 Head {h00=0x0014, h01=0x0050, text=»* KEYTABLE«, t00=0x0002, t01=0x00ee}
0x0422…042c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0106}
0x042c…0448 Head {h00=0x0018, h01=0x0013, text=»CLR EQU X'8F' CLEAR «, t00=0x0002, t01=0x0110}
0x0448…0464 Head {h00=0x0018, h01=0x0014, text=»CAN EQU X'91' CANCEL«, t00=0x0002, t01=0x012c}
0x0464…0480 Head {h00=0x0018, h01=0x0050, text=»RET EQU X'92' RETURN«, t00=0x0002, t01=0x0148}
0x0480…049c Head {h00=0x0018, h01=0x0050, text=»NOK EQU X'FF' NO KEY«, t00=0x0002, t01=0x0164}
0x049c…04b8 Head {h00=0x0018, h01=0x0050, text=»TOT EQU X'93' TOTAL «, t00=0x0002, t01=0x0180}
0x04b8…04c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000c}
0x04c2…04ea Head {h00=0x0024, h01=0x0050, text=»DEKTAB6 KTAB CLR,CAN,RET,NOK,TOT«, t00=0x0003, t01=0x0016}
0x04ea…04f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003e}
0x04f4…0514 Head {h00=0x001c, h01=0x0050, text=»DEKTAB7 KTAB CLR,CAN,RET«, t00=0x0003, t01=0x0048}
0x0514…051e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0068}
0x051e…052c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0072}
0x052c…0536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0080}
0x0536…054c Head {h00=0x0012, h01=0x0050, text=»* MTEXT «, t00=0x0003, t01=0x008a}
0x054c…059c Head {h00=0x004c, h01=0x0050, text=»* - MAKES MATCH OF 'LINE DESIGN' UNTIL EOL OR NEXT FIELD IS FOUND «, t00=0x0003, t01=0x00a0}
0x059c…05e0 Head {h00=0x0040, h01=0x0050, text=»* - EDIT TEXT PARTS OF 'LINE DESIGN' IN 'LINE DISPLAY'«, t00=0x0003, t01=0x00f0}
0x05e0…061a Head {h00=0x0036, h01=0x0050, text=»* - GENERATES 'FTEXT'- AND 'FTAB'-STATMENTS «, t00=0x0003, t01=0x0134}
0x061a…065e Head {h00=0x0040, h01=0x0050, text=»* - DISPLAYS FIELDDEPENDENT INFO WHEN FOUND IN 'MATCH'«, t00=0x0003, t01=0x016e}
0x065e…0690 Head {h00=0x002e, h01=0x0050, text=»* - SIGNALS IN 'DEBINW2' AS FOLLOWS;«, t00=0x0004, t01=0x0022}
0x0690…06a8 Head {h00=0x0014, h01=0x0050, text=»* = 0 OK«, t00=0x0004, t01=0x0054}
0x06a8…06da Head {h00=0x002e, h01=0x0050, text=»* = 1 NO AVAILABLE BUFFERS;CANCEL «, t00=0x0004, t01=0x006c}
0x06da…070a Head {h00=0x002c, h01=0x0050, text=»* = 2 NO AVAILABLE BUFFERS;RETUR«, t00=0x0004, t01=0x009e}
0x070a…074c Head {h00=0x003e, h01=0x0050, text=»* = 4 NO AVAILABLE BUFFERS/MAX LIMIT EXCEEDED;KTOT«, t00=0x0004, t01=0x00ce}
0x074c…0756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0110}
0x0756…07a6 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0004, t01=0x011a}
0x07a6…07b8 Head {h00=0x000e, h01=0x0050, text=»MTEXT PROC«, t00=0x0004, t01=0x016a}
0x07b8…07c4 Head {h00=0x0008, h01=0x0050, text=»MT10«, t00=0x0004, t01=0x017c}
0x07c4…07dc Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0004, t01=0x0188}
0x07dc…07ec Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x0005, t01=0x0010}
0x07ec…080c Head {h00=0x001c, h01=0x0050, text=» PERF MROUT MATCHROUTINE«, t00=0x0005, t01=0x0020}
0x080c…0832 Head {h00=0x0022, h01=0x0050, text=» TBF BOOL3,MT20 F= NO NO FTAB «, t00=0x0005, t01=0x0040}
0x0832…083c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0066}
0x083c…0856 Head {h00=0x0016, h01=0x0050, text=»* FTAB-FTEXT «, t00=0x0005, t01=0x0070}
0x0856…0860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x008a}
0x0860…0880 Head {h00=0x001c, h01=0x0050, text=» PERF FTAB GENERATE FTAB«, t00=0x0005, t01=0x0094}
0x0880…08aa Head {h00=0x0026, h01=0x0050, text=» CBNE DEBINW2,W0,MT99 ERROR SIGNAL«, t00=0x0005, t01=0x00b4}
0x08aa…08b6 Head {h00=0x0008, h01=0x0050, text=»MT20«, t00=0x0005, t01=0x00de}
0x08b6…08c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ea}
0x08c0…08d4 Head {h00=0x0010, h01=0x0050, text=»* FTEXT«, t00=0x0005, t01=0x00f4}
0x08d4…08de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0108}
0x08de…0900 Head {h00=0x001e, h01=0x0050, text=» TBF BOOL4,MT35 F=NO FTEXT«, t00=0x0005, t01=0x0112}
0x0900…0922 Head {h00=0x001e, h01=0x0050, text=» PERF FTEXT GENERATE FTEXT«, t00=0x0005, t01=0x0134}
0x0922…094c Head {h00=0x0026, h01=0x0050, text=» CBNE DEBINW2,W0,MT99 ERROR SIGNAL«, t00=0x0005, t01=0x0156}
0x094c…097a Head {h00=0x002a, h01=0x0050, text=» XCOPY LDISP,W0,BIN5,LDES,W0 COPY TEXT«, t00=0x0005, t01=0x0180}
0x097a…09a4 Head {h00=0x0026, h01=0x0050, text=» TBT DOOL8,MT35 JUMP IF NO DISPLAY«, t00=0x0006, t01=0x001e}
0x09a4…09ca Head {h00=0x0022, h01=0x0050, text=» DISPLAY 2,W3,W3 DISPLAY LDISP«, t00=0x0006, t01=0x0048}
0x09ca…09d6 Head {h00=0x0008, h01=0x0050, text=»MT35«, t00=0x0006, t01=0x006e}
0x09d6…0a04 Head {h00=0x002a, h01=0x0050, text=» TBT BOOL2,MT40 JUMP IF FIELD IS FOUND«, t00=0x0006, t01=0x007a}
0x0a04…0a2c Head {h00=0x0024, h01=0x0050, text=» CBE EOLINE,W1,MT99 JUMP IF EOL «, t00=0x0006, t01=0x00a8}
0x0a2c…0a48 Head {h00=0x0018, h01=0x0050, text=» B MT10 GO ON MATCH «, t00=0x0006, t01=0x00d0}
0x0a48…0a54 Head {h00=0x0008, h01=0x0050, text=»MT40«, t00=0x0006, t01=0x00ec}
0x0a54…0a74 Head {h00=0x001c, h01=0x0050, text=» ADD BIN10,W1 NEXT FIELD«, t00=0x0006, t01=0x00f8}
0x0a74…0a92 Head {h00=0x001a, h01=0x0050, text=» MOVE FDVBCD(W4),BIN10«, t00=0x0006, t01=0x0118}
0x0a92…0aba Head {h00=0x0024, h01=0x0050, text=» MOVE FDVBCD(W5),BIN6 FIELDSTART«, t00=0x0006, t01=0x0136}
0x0aba…0ae4 Head {h00=0x0026, h01=0x0050, text=» MOVE FDVBCD(W6),BIN7 FIELDLENGTH «, t00=0x0006, t01=0x015e}
0x0ae4…0b12 Head {h00=0x002a, h01=0x0050, text=» TBT BOOL6,MT50 JUMP IF BALANCE FORMAT«, t00=0x0006, t01=0x0188}
0x0b12…0b44 Head {h00=0x002e, h01=0x0050, text=»* CHECK IF RECORD LENGTH IS EXCEEDED«, t00=0x0007, t01=0x0026}
0x0b44…0b6e Head {h00=0x0026, h01=0x0050, text=» MOVE BIN16,BIN13 LOAD LAST DISPL «, t00=0x0007, t01=0x0058}
0x0b6e…0b9c Head {h00=0x002a, h01=0x0050, text=» ADD BIN16,BIN14 ADD LAST FIELD LENGTH«, t00=0x0007, t01=0x0082}
0x0b9c…0bcc Head {h00=0x002c, h01=0x0050, text=» MOVE BIN15,BIN7 LOAD ACTUAL FIELDLENGTH«, t00=0x0007, t01=0x00b0}
0x0bcc…0bf2 Head {h00=0x0022, h01=0x0050, text=» TBT ALPHA,MT45 JUMP IF ALPHA «, t00=0x0007, t01=0x00e0}
0x0bf2…0c08 Head {h00=0x0012, h01=0x0050, text=» ADD BIN15,W2 «, t00=0x0007, t01=0x0106}
0x0c08…0c2e Head {h00=0x0022, h01=0x0050, text=» DIV BIN15,W2 NUMBER OF BYTES «, t00=0x0007, t01=0x011c}
0x0c2e…0c3a Head {h00=0x0008, h01=0x0050, text=»MT45«, t00=0x0007, t01=0x0142}
0x0c3a…0c6a Head {h00=0x002c, h01=0x0050, text=» ADD BIN16,BIN15 ADD ACTUAL FIELD LENGTH«, t00=0x0007, t01=0x014e}
0x0c6a…0ca0 Head {h00=0x0032, h01=0x0050, text=» MOVE FDVBCD(W8),BIN16 STORE USED RECORDSPACE «, t00=0x0007, t01=0x017e}
0x0ca0…0cac Head {h00=0x0008, h01=0x0050, text=»MT50«, t00=0x0008, t01=0x0024}
0x0cac…0cd4 Head {h00=0x0024, h01=0x0050, text=» TBT DOOL8,MT55 JUMP IF NO ERASE«, t00=0x0008, t01=0x0030}
0x0cd4…0d0c Head {h00=0x0034, h01=0x0050, text=» DISPLAY 2,W4,W7 DISPLAY FIELDNR,-LENGTH,-START «, t00=0x0008, t01=0x0058}
0x0d0c…0d18 Head {h00=0x0008, h01=0x0050, text=»MT55«, t00=0x0008, t01=0x0090}
0x0d18…0d46 Head {h00=0x002a, h01=0x0050, text=» TBT BOOL6,MT58 JUMP IF BALANCE FORMAT«, t00=0x0008, t01=0x009c}
0x0d46…0d78 Head {h00=0x002e, h01=0x0050, text=» CBG BIN10,=X'FF',MT90 FIELDNR MAX REACHED«, t00=0x0008, t01=0x00ca}
0x0d78…0dae Head {h00=0x0032, h01=0x0050, text=» CBG BIN16,FMTWK(W14),MT80 MAX RECLEN EXCEEDED«, t00=0x0008, t01=0x00fc}
0x0dae…0dba Head {h00=0x0008, h01=0x0050, text=»MT58«, t00=0x0008, t01=0x0132}
0x0dba…0de2 Head {h00=0x0024, h01=0x0050, text=» TBT DOOL8,MT60 JUMP IF NO ERASE«, t00=0x0008, t01=0x013e}
0x0de2…0e14 Head {h00=0x002e, h01=0x0050, text=» ERASE 10,W4,W0 ERASE ALL FKI/NCLR-FIELDS «, t00=0x0008, t01=0x0166}
0x0e14…0e20 Head {h00=0x0008, h01=0x0050, text=»MT60«, t00=0x0009, t01=0x0008}
0x0e20…0e48 Head {h00=0x0024, h01=0x0050, text=» PERF FINIT FIELD INIT WORKITEMS«, t00=0x0009, t01=0x0014}
0x0e48…0e5a Head {h00=0x000e, h01=0x0050, text=» B MT99 OK«, t00=0x0009, t01=0x003c}
0x0e5a…0e66 Head {h00=0x0008, h01=0x0050, text=»MT80«, t00=0x0009, t01=0x004e}
0x0e66…0e9c Head {h00=0x0032, h01=0x0050, text=» MOVE DEBINW4,W14 'MAX RECORD LENGTH EXCEEDED'«, t00=0x0009, t01=0x005a}
0x0e9c…0eac Head {h00=0x000c, h01=0x0050, text=» B MT95 «, t00=0x0009, t01=0x0090}
0x0eac…0eb8 Head {h00=0x0008, h01=0x0050, text=»MT90«, t00=0x0009, t01=0x00a0}
0x0eb8…0ed2 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W16 «, t00=0x0009, t01=0x00ac}
0x0ed2…0ede Head {h00=0x0008, h01=0x0050, text=»MT95«, t00=0x0009, t01=0x00c6}
0x0ede…0efa Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x0009, t01=0x00d2}
0x0efa…0f28 Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW2,W1,MT95 JUMP IF CLEAR-KEY«, t00=0x0009, t01=0x00ee}
0x0f28…0f46 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBINW2,W5,MT98 «, t00=0x0009, t01=0x011c}
0x0f46…0f68 Head {h00=0x001e, h01=0x0050, text=» PERF FNL FORMAT NEW LINE «, t00=0x0009, t01=0x013a}
0x0f68…0f86 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBINW2,W0,MT99 «, t00=0x0009, t01=0x015c}
0x0f86…0fb0 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW2,W5 SIMULATE TOT-KEY «, t00=0x0009, t01=0x017a}
0x0fb0…0fbc Head {h00=0x0008, h01=0x0050, text=»MT98«, t00=0x000a, t01=0x0014}
0x0fbc…0fee Head {h00=0x002e, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST FOR CAN,RET,---,TOT«, t00=0x000a, t01=0x0020}
0x0fee…0ffa Head {h00=0x0008, h01=0x0050, text=»MT99«, t00=0x000a, t01=0x0052}
0x0ffa…1006 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x005e}
0x1006…1014 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x006a}
0x1014…1022 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000a, t01=0x0078}
0x1022…1034 Head {h00=0x000e, h01=0x000a, text=»MROUT PROC«, t00=0x000a, t01=0x0086}
0x1034…1072 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000a, t01=0x0098}
0x1072…107c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00d6}
0x107c…109e Head {h00=0x001e, h01=0x0019, text=»* MATCHING ROUTINE «, t00=0x000a, t01=0x00e0}
0x109e…10a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x0102}
0x10a8…10d6 Head {h00=0x002a, h01=0x0050, text=»* MATCH FOR '<' => (FKI/FINP) «, t00=0x000a, t01=0x010c}
0x10d6…10e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x013a}
0x10e0…1118 Head {h00=0x0034, h01=0x0050, text=»* TAB = BIN6 => FKI <TABPOS> ........«, t00=0x000a, t01=0x0144}
0x1118…1168 Head {h00=0x004c, h01=0x0050, text=»* NUMB = BIN7 => 'MAXL' =FIELDLENGTH (FROM SUBROUTINE 'PICMA')«, t00=0x000a, t01=0x017c}
0x1168…119a Head {h00=0x002e, h01=0x0029, text=»* MATCH = BOOL2 T= '#'-MATCHED «, t00=0x000b, t01=0x003c}
0x119a…11ea Head {h00=0x004c, h01=0x0050, text=»* BIN12 => FMELI <NUMB OF PICCHARS> (FROM SUBROUTINE 'PI«, t00=0x000b, t01=0x006e}
0x11ea…123a Head {h00=0x004c, h01=0x0050, text=»* STATSH => PICTURE STRING 'FMELI' (FROM SUBROUTINE 'PICM«, t00=0x000b, t01=0x00be}
0x123a…1282 Head {h00=0x0044, h01=0x0050, text=»* DEBIN5 => PICTURE STRING STARTPOSITION IN LDES «, t00=0x000b, t01=0x010e}
0x1282…128c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0156}
0x128c…12ca Head {h00=0x003a, h01=0x0036, text=»******************************************************«, t00=0x000b, t01=0x0160}
0x12ca…12d4 Head {h00=0x0006, h01=0x0008, text=»* «, t00=0x000c, t01=0x000e}
0x12d4…12fe Head {h00=0x0026, h01=0x0022, text=»* MATCH FOR ' ':S => (FTAB)«, t00=0x000c, t01=0x0018}
0x12fe…1308 Head {h00=0x0006, h01=0x0007, text=»* «, t00=0x000c, t01=0x0042}
0x1308…1338 Head {h00=0x002c, h01=0x0028, text=»* TAB = BIN8 => FTAB <TABPOS>«, t00=0x000c, t01=0x004c}
0x1338…1364 Head {h00=0x0028, h01=0x0023, text=»* NUMB = BIN16 => NOT USED «, t00=0x000c, t01=0x007c}
0x1364…1396 Head {h00=0x002e, h01=0x0050, text=»* MATCH = BOOL3 T= ' '-MATCHED «, t00=0x000c, t01=0x00a8}
0x1396…13a0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x00da}
0x13a0…13de Head {h00=0x003a, h01=0x0036, text=»******************************************************«, t00=0x000c, t01=0x00e4}
0x13de…13e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x0122}
0x13e8…1422 Head {h00=0x0036, h01=0x0050, text=»* MATCH INVERTED FOR '<':S OR ' ':S (FTEXT)«, t00=0x000c, t01=0x012c}
0x1422…142c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x0166}
0x142c…1458 Head {h00=0x0028, h01=0x0023, text=»* TAB = BIN16 => NOT USED «, t00=0x000c, t01=0x0170}
0x1458…14a2 Head {h00=0x0046, h01=0x0042, text=»* NUMB = BIN9 => FTEXT <NUMBER OF CHARS> <CH> <CH> .....«, t00=0x000d, t01=0x000c}
0x14a2…14d4 Head {h00=0x002e, h01=0x002a, text=»* MATCH = BOOL4 T= TEXT MATCHED«, t00=0x000d, t01=0x0056}
0x14d4…1524 Head {h00=0x004c, h01=0x0050, text=»* BIN11 => STARTPOSITION OF 'FTEXT' IN ITEM 'LINE DESIGN«, t00=0x000d, t01=0x0088}
0x1524…1562 Head {h00=0x003a, h01=0x0036, text=»******************************************************«, t00=0x000d, t01=0x00d8}
0x1562…1570 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000d, t01=0x0116}
0x1570…1592 Head {h00=0x001e, h01=0x0050, text=» CLEAR BOOL2 F=NO # MATCH «, t00=0x000d, t01=0x0124}
0x1592…15b6 Head {h00=0x0020, h01=0x0050, text=» CLEAR BOOL3 F=NO ' ' MATCH «, t00=0x000d, t01=0x0146}
0x15b6…15da Head {h00=0x0020, h01=0x0050, text=» CLEAR BOOL4 F=NO TEXT MATCH«, t00=0x000d, t01=0x016a}
0x15da…160c Head {h00=0x002e, h01=0x0050, text=» MOVE STR1A,=C'<' CHARACTER TO BE SEARCHED«, t00=0x000d, t01=0x018e}
0x160c…1636 Head {h00=0x0026, h01=0x0022, text=» CLEAR BOOL9 F=ORIGINAL MATCH MODE«, t00=0x000e, t01=0x0030}
0x1636…1668 Head {h00=0x002e, h01=0x0050, text=» PERF LININV,STR1A,BOOL9,BIN6,BIN16,BOOL2 «, t00=0x000e, t01=0x005a}
0x1668…168c Head {h00=0x0020, h01=0x0050, text=» TBT BOOL2,MR60 MATCH FOUND «, t00=0x000e, t01=0x008c}
0x168c…16b4 Head {h00=0x0024, h01=0x0050, text=» CBNE EOLINE,W0,MR99 END-OF-LINE«, t00=0x000e, t01=0x00b0}
0x16b4…16e6 Head {h00=0x002e, h01=0x002a, text=» MOVE STR1A,=C' ' CHARACTER TO BE SEARCHED«, t00=0x000e, t01=0x00d8}
0x16e6…16fa Head {h00=0x0010, h01=0x000c, text=» CLEAR BOOL9«, t00=0x000e, t01=0x010a}
0x16fa…172c Head {h00=0x002e, h01=0x0050, text=» PERF LININV,STR1A,BOOL9,BIN8,BIN16,BOOL3 «, t00=0x000e, t01=0x011e}
0x172c…1754 Head {h00=0x0024, h01=0x0050, text=» CBNE EOLINE,W0,MR99 END-OF-LINE«, t00=0x000e, t01=0x0150}
0x1754…1778 Head {h00=0x0020, h01=0x001b, text=» TBT BOOL3,MR10 MATCH FOUND «, t00=0x000e, t01=0x0178}
0x1778…1784 Head {h00=0x0008, h01=0x0050, text=»MR05«, t00=0x000f, t01=0x000c}
0x1784…17b8 Head {h00=0x0030, h01=0x0050, text=» MOVE STR2A,=C'< ' CHARACTERS TO BE SEARCHED«, t00=0x000f, t01=0x0018}
0x17b8…17dc Head {h00=0x0020, h01=0x001b, text=» SET BOOL9 T=INVERTED MATCH «, t00=0x000f, t01=0x004c}
0x17dc…180e Head {h00=0x002e, h01=0x0029, text=» PERF LININV,STR2A,BOOL9,BIN16,BIN9,BOOL4 «, t00=0x000f, t01=0x0070}
0x180e…1826 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN8,BIN11«, t00=0x000f, t01=0x00a2}
0x1826…183a Head {h00=0x0010, h01=0x0050, text=» ADD BIN8,W1«, t00=0x000f, t01=0x00ba}
0x183a…184c Head {h00=0x000e, h01=0x0050, text=» SET BOOL3«, t00=0x000f, t01=0x00ce}
0x184c…1874 Head {h00=0x0024, h01=0x0050, text=» CBNE EOLINE,W0,MR99 END-OF-LINE«, t00=0x000f, t01=0x00e0}
0x1874…1898 Head {h00=0x0020, h01=0x001b, text=» TBT BOOL4,MR30 MATCH FOUND «, t00=0x000f, t01=0x0108}
0x1898…18c4 Head {h00=0x0028, h01=0x0050, text=» MOVE EOLINE,W1 INDICATE END-OF-LINE«, t00=0x000f, t01=0x012c}
0x18c4…18d4 Head {h00=0x000c, h01=0x0050, text=» B MR99 «, t00=0x000f, t01=0x0158}
0x18d4…18f6 Head {h00=0x001e, h01=0x001a, text=»* SPACE MATCH FOUND«, t00=0x000f, t01=0x0168}
0x18f6…1902 Head {h00=0x0008, h01=0x0004, text=»MR10«, t00=0x000f, t01=0x018a}
0x1902…1934 Head {h00=0x002e, h01=0x0050, text=» MOVE STR1A,=C'<' CHARACTER TO BE SEARCHED«, t00=0x0010, t01=0x0008}
0x1934…195e Head {h00=0x0026, h01=0x0022, text=» CLEAR BOOL9 F=ORIGINAL MATCH MODE«, t00=0x0010, t01=0x003a}
0x195e…1990 Head {h00=0x002e, h01=0x0050, text=» PERF LININV,STR1A,BOOL9,BIN6,BIN16,BOOL2 «, t00=0x0010, t01=0x0064}
0x1990…19b4 Head {h00=0x0020, h01=0x0050, text=» TBT BOOL2,MR50 MATCH FOUND «, t00=0x0010, t01=0x0096}
0x19b4…19dc Head {h00=0x0024, h01=0x0050, text=» CBNE EOLINE,W0,MR99 END-OF-LINE«, t00=0x0010, t01=0x00ba}
0x19dc…19ec Head {h00=0x000c, h01=0x0050, text=» B MR05 «, t00=0x0010, t01=0x00e2}
0x19ec…1a0e Head {h00=0x001e, h01=0x0019, text=»* TEXT MATCH FOUND «, t00=0x0010, t01=0x00f2}
0x1a0e…1a1a Head {h00=0x0008, h01=0x0004, text=»MR30«, t00=0x0010, t01=0x0114}
0x1a1a…1a24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0120}
0x1a24…1a6c Head {h00=0x0044, h01=0x0050, text=»* MATCH IF LESS THAN OR EQUAL 4 SPACES WITH FOLLOWING TEXT«, t00=0x0010, t01=0x012a}
0x1a6c…1aa0 Head {h00=0x0030, h01=0x0050, text=»* IN THAT CASE INDICATE JUST ONE FTEXT«, t00=0x0010, t01=0x0172}
0x1aa0…1aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0016}
0x1aaa…1ada Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN4,BIN11 SAVE ST.POS FOT TEXT «, t00=0x0011, t01=0x0020}
0x1ada…1ae6 Head {h00=0x0008, h01=0x0050, text=»MR35«, t00=0x0011, t01=0x0050}
0x1ae6…1b12 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBIN5,BIN5 SAVE LINE POSITION«, t00=0x0011, t01=0x005c}
0x1b12…1b3e Head {h00=0x0028, h01=0x0050, text=» MOVE STR1A,=' ' ' '=MATCH-CHARCTER «, t00=0x0011, t01=0x0088}
0x1b3e…1b68 Head {h00=0x0026, h01=0x0050, text=» CLEAR BOOL9 F=ORIGINAL MATCH MODE«, t00=0x0011, t01=0x00b4}
0x1b68…1b7e Head {h00=0x0012, h01=0x0050, text=» CLEAR BOOL5 «, t00=0x0011, t01=0x00de}
0x1b7e…1bb2 Head {h00=0x0030, h01=0x0050, text=» PERF LININV,STR1A,BOOL9,DEBIN1,BIN16,BOOL5 «, t00=0x0011, t01=0x00f4}
0x1bb2…1bda Head {h00=0x0024, h01=0x0050, text=» TBF BOOL5,MR40 JUMP IF NO MATCH«, t00=0x0011, t01=0x0128}
0x1bda…1c02 Head {h00=0x0024, h01=0x0050, text=» CBNE EOLINE,W0,MR45 END-OF-LINE«, t00=0x0011, t01=0x0150}
0x1c02…1c38 Head {h00=0x0032, h01=0x0050, text=» CBG BIN16,W4,MR40 JUMP IF MORE THAN 4 SPACES «, t00=0x0011, t01=0x0178}
0x1c38…1c62 Head {h00=0x0026, h01=0x0050, text=» MOVE STR2A,='< ' MATCH CHARCTERS «, t00=0x0012, t01=0x001e}
0x1c62…1c8a Head {h00=0x0024, h01=0x0050, text=» SET BOOL9 T=INVERTED MATCH MODE«, t00=0x0012, t01=0x0048}
0x1c8a…1c9e Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL5«, t00=0x0012, t01=0x0070}
0x1c9e…1cd2 Head {h00=0x0030, h01=0x0050, text=» PERF LININV,STR2A,BOOL9,DEBIN1,DEBIN2,BOOL5«, t00=0x0012, t01=0x0084}
0x1cd2…1d00 Head {h00=0x002a, h01=0x0050, text=» TBF BOOL5,MR40 JUMP IF NO INV.-MATCH «, t00=0x0012, t01=0x00b8}
0x1d00…1d36 Head {h00=0x0032, h01=0x0050, text=» ADD BIN9,BIN16 ADJUST NUMB CHARS+NUMB SPACES «, t00=0x0012, t01=0x00e6}
0x1d36…1d6c Head {h00=0x0032, h01=0x0050, text=» ADD BIN9,DEBIN2 ADJUST NUMB CHARS+NUMB CHARS «, t00=0x0012, t01=0x011c}
0x1d6c…1d94 Head {h00=0x0024, h01=0x0050, text=» CBNE EOLINE,W0,MR45 END-OF-LINE«, t00=0x0012, t01=0x0152}
0x1d94…1da4 Head {h00=0x000c, h01=0x0050, text=» B MR35 «, t00=0x0012, t01=0x017a}
0x1da4…1db0 Head {h00=0x0008, h01=0x0050, text=»MR40«, t00=0x0012, t01=0x018a}
0x1db0…1de8 Head {h00=0x0034, h01=0x0050, text=» MOVE BIN5,DEBIN5 RESTORE LINPOS WHEN NO SP+TEXT«, t00=0x0013, t01=0x0008}
0x1de8…1df4 Head {h00=0x0008, h01=0x0050, text=»MR45«, t00=0x0013, t01=0x0040}
0x1df4…1e26 Head {h00=0x002e, h01=0x0050, text=» MOVE BIN11,DEBIN4 RESTORE FTEXT STARTPOS «, t00=0x0013, t01=0x004c}
0x1e26…1e36 Head {h00=0x000c, h01=0x0050, text=» B MR99 «, t00=0x0013, t01=0x007e}
0x1e36…1e42 Head {h00=0x0008, h01=0x0050, text=»MR50«, t00=0x0013, t01=0x008e}
0x1e42…1e6e Head {h00=0x0028, h01=0x0023, text=» CLEAR BOOL3 NO SP-MATCH INDICATION «, t00=0x0013, t01=0x009a}
0x1e6e…1e80 Head {h00=0x000e, h01=0x0009, text=» NEEDED «, t00=0x0013, t01=0x00c6}
0x1e80…1e8c Head {h00=0x0008, h01=0x0050, text=»MR60«, t00=0x0013, t01=0x00d8}
0x1e8c…1ebc Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN5,BIN5 SAVE STARTPOIN PICTUR «, t00=0x0013, t01=0x00e4}
0x1ebc…1eec Head {h00=0x002c, h01=0x0050, text=» PERF PICMA PICTURE STRING MATCH/CONVERT«, t00=0x0013, t01=0x0114}
0x1eec…1ef8 Head {h00=0x0008, h01=0x0004, text=»MR99«, t00=0x0013, t01=0x0144}
0x1ef8…1f04 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0013, t01=0x0150}
0x1f04…1f12 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0013, t01=0x015c}
0x1f12…1f20 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0013, t01=0x016a}
0x1f20…1f2a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0178}
0x1f2a…1f5e Head {h00=0x0030, h01=0x002c, text=»* LINE DESIGN INVESTIGATION PROCEDURE«, t00=0x0013, t01=0x0182}
0x1f5e…1f68 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0026}
0x1f68…1fb0 Head {h00=0x0044, h01=0x003f, text=»* INPUT PARAMETERS : CHAR = CHARACTER(S) TO BE SEARCHED «, t00=0x0014, t01=0x0030}
0x1fb0…1ff0 Head {h00=0x003c, h01=0x0050, text=»* MOD = F ORIGINAL MATCHING «, t00=0x0014, t01=0x0078}
0x1ff0…2030 Head {h00=0x003c, h01=0x0037, text=»* = T INVERTED MATCHING «, t00=0x0014, t01=0x00b8}
0x2030…203a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x00f8}
0x203a…207a Head {h00=0x003c, h01=0x0037, text=»* OUTPUT PARAMETERS: TAB = TABULATION POSITION «, t00=0x0014, t01=0x0102}
0x207a…20b8 Head {h00=0x003a, h01=0x0035, text=»* NUMB = NUMBER OF MATCHES «, t00=0x0014, t01=0x0142}
0x20b8…20f4 Head {h00=0x0038, h01=0x0034, text=»* MATCH = F NO MATCH FOUND«, t00=0x0014, t01=0x0180}
0x20f4…212e Head {h00=0x0036, h01=0x0050, text=»* = T MATCH FOUND «, t00=0x0015, t01=0x002c}
0x212e…2138 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0066}
0x2138…2180 Head {h00=0x0044, h01=0x003f, text=»*************************************************************** «, t00=0x0015, t01=0x0070}
0x2180…21ac Head {h00=0x0028, h01=0x0050, text=»LININV PROC CHAR,MOD,TAB,NUMB,MATCH «, t00=0x0015, t01=0x00b8}
0x21ac…21e6 Head {h00=0x0036, h01=0x0050, text=» CBE BIN5,FMTWK(W5),LIN098 JUMP IF ENDPOS REACHED «, t00=0x0015, t01=0x00e4}
0x21e6…2206 Head {h00=0x001c, h01=0x0018, text=» CLEAR MATCH F= NO MATCH«, t00=0x0015, t01=0x011e}
0x2206…2230 Head {h00=0x0026, h01=0x0021, text=» MOVE TAB,BIN5 LOAD ACTUAL TABPOS «, t00=0x0015, t01=0x013e}
0x2230…2254 Head {h00=0x0020, h01=0x001c, text=» MOVE NUMB,W0 ZEROIZE NUMBER«, t00=0x0015, t01=0x0168}
0x2254…2262 Head {h00=0x000a, h01=0x0050, text=»LIN000«, t00=0x0015, t01=0x018c}
0x2262…228e Head {h00=0x0028, h01=0x0050, text=» TBT MOD,LIN010 JUMP IF INVERTED MOD«, t00=0x0016, t01=0x000a}
0x228e…22b4 Head {h00=0x0022, h01=0x001e, text=» MATCH LDES,BIN5,W1,CHAR,W0,W1«, t00=0x0016, t01=0x0036}
0x22b4…22d2 Head {h00=0x001a, h01=0x0050, text=» BNOK LIN040 NO MATCH «, t00=0x0016, t01=0x005c}
0x22d2…22ee Head {h00=0x0018, h01=0x0050, text=» B LIN020 NEXT MATCH«, t00=0x0016, t01=0x007a}
0x22ee…22fc Head {h00=0x000a, h01=0x0050, text=»LIN010«, t00=0x0016, t01=0x0096}
0x22fc…2326 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN15,W0 MATCHINGPOINTER:=0 «, t00=0x0016, t01=0x00a4}
0x2326…2350 Head {h00=0x0026, h01=0x0050, text=» MATCH CHAR,BIN15,W2,LDES,BIN5,W1 «, t00=0x0016, t01=0x00ce}
0x2350…2374 Head {h00=0x0020, h01=0x0050, text=» BOK LIN050 MATCH FOUND NOK «, t00=0x0016, t01=0x00f8}
0x2374…2382 Head {h00=0x000a, h01=0x0050, text=»LIN020«, t00=0x0016, t01=0x011c}
0x2382…23b4 Head {h00=0x002e, h01=0x0050, text=» TBT MATCH,LIN025 JUMP IF ALREADY MATCHED «, t00=0x0016, t01=0x012a}
0x23b4…23de Head {h00=0x0026, h01=0x0050, text=» MOVE BIN11,TAB STORE STARTPOSITON«, t00=0x0016, t01=0x015c}
0x23de…2406 Head {h00=0x0024, h01=0x001f, text=» SET MATCH INVERTED MATCH FOUNF «, t00=0x0016, t01=0x0186}
0x2406…2414 Head {h00=0x000a, h01=0x0050, text=»LIN025«, t00=0x0017, t01=0x001e}
0x2414…2436 Head {h00=0x001e, h01=0x001a, text=» ADD BIN5,W1 NEXT POSITION«, t00=0x0017, t01=0x002c}
0x2436…2456 Head {h00=0x001c, h01=0x0017, text=» ADD TAB,W1 NEXT TABPOS «, t00=0x0017, t01=0x004e}
0x2456…247e Head {h00=0x0024, h01=0x0050, text=» ADD NUMB,W1 NUMBER OF MATCHES«, t00=0x0017, t01=0x006e}
0x247e…24b8 Head {h00=0x0036, h01=0x0050, text=» CBE BIN5,FMTWK(W5),LIN098 JUMP IF ENDPOS REACHED «, t00=0x0017, t01=0x0096}
0x24b8…24d8 Head {h00=0x001c, h01=0x0050, text=» B LIN000 NEXT MATCH INV«, t00=0x0017, t01=0x00d0}
0x24d8…24e6 Head {h00=0x000a, h01=0x0050, text=»LIN040«, t00=0x0017, t01=0x00f0}
0x24e6…2514 Head {h00=0x002a, h01=0x0026, text=» MOVE BIN5,TAB RESTORE ACTUAL POSITION«, t00=0x0017, t01=0x00fe}
0x2514…2536 Head {h00=0x001e, h01=0x0050, text=» ADD TAB,W1 ADJUST TABPOS «, t00=0x0017, t01=0x012c}
0x2536…2544 Head {h00=0x000a, h01=0x0050, text=»LIN050«, t00=0x0017, t01=0x014e}
0x2544…256a Head {h00=0x0022, h01=0x0050, text=» MOVE EOLINE,W0 NO END-OF-LINE«, t00=0x0017, t01=0x015c}
0x256a…257c Head {h00=0x000e, h01=0x0009, text=» B LIN099 «, t00=0x0017, t01=0x0182}
0x257c…258a (24, 0, 398) Head {h00=0x000a, h01=0x0006, text=»LIN098«, t00=0x0018, t01=0x0004}
0x258a…25ae Head {h00=0x0020, h01=0x0050, text=» MOVE EOLINE,W1 END-OF-LINE «, t00=0x0018, t01=0x0012}
0x25ae…25ce Head {h00=0x001c, h01=0x0017, text=» ADD TAB,W1 NEXT TABPOS «, t00=0x0018, t01=0x0036}
0x25ce…25dc Head {h00=0x000a, h01=0x0050, text=»LIN099«, t00=0x0018, t01=0x0056}
0x25dc…25e8 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0018, t01=0x0064}
0x25e8…25f6 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0018, t01=0x0070}
0x25f6…2604 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x007e}
0x2604…260e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008c}
0x260e…263e Head {h00=0x002c, h01=0x0050, text=»* LINE INITIALIZATION OF WORKITEMS«, t00=0x0018, t01=0x0096}
0x263e…2648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c6}
0x2648…265a Head {h00=0x000e, h01=0x0050, text=»LINIT PROC«, t00=0x0018, t01=0x00d0}
0x265a…2680 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN5,W0 LINEPOSITION:=0 «, t00=0x0018, t01=0x00e2}
0x2680…269a Head {h00=0x0016, h01=0x0050, text=» MOVE FMTWK(W5),W0«, t00=0x0018, t01=0x0108}
0x269a…26be Head {h00=0x0020, h01=0x0050, text=» CLEAR BOOL2 F=NO MATCH '#' «, t00=0x0018, t01=0x0122}
0x26be…26e2 Head {h00=0x0020, h01=0x0050, text=» CLEAR BOOL3 F=NO MATCH ' ' «, t00=0x0018, t01=0x0146}
0x26e2…270a Head {h00=0x0024, h01=0x0050, text=» CLEAR BOOL4 F=NO MATCH '<STRG>'«, t00=0x0018, t01=0x016a}
0x270a…273a (25, 0, 400) Head {h00=0x002c, h01=0x0050, text=» CLEAR DOOL1 F=NO FIELD CONFIRM CURRLINE«, t00=0x0019, t01=0x0004}
0x273a…2762 Head {h00=0x0024, h01=0x0050, text=» PERF FINIT FIELD INIT WORKITEMS«, t00=0x0019, t01=0x0034}
0x2762…276e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x005c}
0x276e…277c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x0068}
0x277c…278a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0076}
0x278a…2794 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0084}
0x2794…27c6 Head {h00=0x002e, h01=0x0050, text=»* FIELD INITIALIZATION OF WORKITEMS «, t00=0x0019, t01=0x008e}
0x27c6…27d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00c0}
0x27d0…27e2 Head {h00=0x000e, h01=0x0050, text=»FINIT PROC«, t00=0x0019, t01=0x00ca}
0x27e2…2814 Head {h00=0x002e, h01=0x0050, text=» MOVE FMTWK(W1),W0 NUMB OF VALID. CHARS:=0«, t00=0x0019, t01=0x00dc}
0x2814…2848 Head {h00=0x0030, h01=0x0050, text=» MOVE FMTWK(W2),W0 NUMB OF GENERAT. CHARS:=0«, t00=0x0019, t01=0x010e}
0x2848…287e Head {h00=0x0032, h01=0x0050, text=» MOVE FMTWK(W3),W0 NUMB OF ACCUMULAT. CHARS:=0«, t00=0x0019, t01=0x0142}
0x287e…28b0 Head {h00=0x002e, h01=0x0050, text=» MOVE FMTWK(W4),W0 NUMB OF DUPL. CHARS:=0 «, t00=0x0019, t01=0x0178}
0x28b0…28e2 Head {h00=0x002e, h01=0x0050, text=» MOVE FMTWK(W10),W0 NUMB OF CHARS STRG1:=0«, t00=0x001a, t01=0x001a}
0x28e2…2914 Head {h00=0x002e, h01=0x0050, text=» MOVE FMTWK(W11),W0 NUMB OF CHARS STRG2:=0«, t00=0x001a, t01=0x004c}
0x2914…2948 Head {h00=0x0030, h01=0x0050, text=» MOVE FMTWK(W12),W0 NUMB OF CHARS STRG1+2:=0«, t00=0x001a, t01=0x007e}
0x2948…2954 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x00b2}
0x2954…2962 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x00be}
0x2962…2970 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x00cc}
0x2970…297a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00da}
0x297a…29ae Head {h00=0x0030, h01=0x0050, text=»* PICTURE STRING MATCH AND CONVERTION «, t00=0x001a, t01=0x00e4}
0x29ae…29b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0118}
0x29b8…29f0 Head {h00=0x0034, h01=0x0050, text=»* MATCHCHARCTER-TABLE WORKITEMS«, t00=0x001a, t01=0x0122}
0x29f0…2a38 Head {h00=0x0044, h01=0x0050, text=»* 0 L FLENGTH PLENGTH INPUT : BIN5 = STPOS LDES«, t00=0x001a, t01=0x015a}
0x2a38…2a60 Head {h00=0x0024, h01=0x0050, text=»* 1 R FLENGTH PLENGTH«, t00=0x001b, t01=0x0012}
0x2a60…2aaa Head {h00=0x0046, h01=0x0050, text=»* 2 A FLENGTH PLENGTH WORK : BIN16= MATCHININDEX«, t00=0x001b, t01=0x003a}
0x2aaa…2af2 Head {h00=0x0044, h01=0x0050, text=»* 3 P FLENGTH PLENGTH BIN15= SAVED DITO«, t00=0x001b, t01=0x0084}
0x2af2…2b1a Head {h00=0x0024, h01=0x0050, text=»* 4 T FLENGTH PLENGTH«, t00=0x001b, t01=0x00cc}
0x2b1a…2b42 Head {h00=0x0024, h01=0x0050, text=»* 5 X FLENGTH PLENGTH«, t00=0x001b, t01=0x00f4}
0x2b42…2b92 Head {h00=0x004c, h01=0x0050, text=»* 6 Z FLENGTH PLENGTH OUTPUT: BIN5 = STPOS NEXT MATCH L«, t00=0x001b, t01=0x011c}
0x2b92…2be0 Head {h00=0x004a, h01=0x0050, text=»* 7 Y FLENGTH PLENGTH BIN7 = FIELDLENGTH=MAXL«, t00=0x001b, t01=0x016c}
0x2be0…2c30 Head {h00=0x004c, h01=0x0050, text=»* 8 + PLENGTH BIN12= LENGTH OF PIC.-STR«, t00=0x001c, t01=0x002a}
0x2c30…2c7c Head {h00=0x0048, h01=0x0050, text=»* 9 S - PLENGTH STATSH=PICTURE-STRING«, t00=0x001c, t01=0x007a}
0x2c7c…2ca4 Head {h00=0x0024, h01=0x0050, text=»* 10 , PLENGTH«, t00=0x001c, t01=0x00c6}
0x2ca4…2ccc Head {h00=0x0024, h01=0x0050, text=»* 11 . V PLENGTH«, t00=0x001c, t01=0x00ee}
0x2ccc…2d04 Head {h00=0x0034, h01=0x0050, text=»* 12 > (END OF FIELD)«, t00=0x001c, t01=0x0116}
0x2d04…2d18 Head {h00=0x0010, h01=0x0050, text=»* 13 <«, t00=0x001c, t01=0x014e}
0x2d18…2d40 Head {h00=0x0024, h01=0x0050, text=»* 14 0 X FLENGTH PLENGTH«, t00=0x001c, t01=0x0162}
0x2d40…2d6a Head {h00=0x0026, h01=0x0050, text=»* NO MATCH E PLENGTH+1«, t00=0x001c, t01=0x018a}
0x2d6a…2d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0024}
0x2d74…2dc4 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x001d, t01=0x002e}
0x2dc4…2dd6 Head {h00=0x000e, h01=0x0050, text=»PICMA PROC«, t00=0x001d, t01=0x007e}
0x2dd6…2e06 Head {h00=0x002c, h01=0x0050, text=» MOVE STATSH,=' ' SPACES PICTURE-STRING «, t00=0x001d, t01=0x0090}
0x2e06…2e34 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN12,W0 NUMB OF LAYOUT CHARS:=0«, t00=0x001d, t01=0x00c0}
0x2e34…2e5a Head {h00=0x0022, h01=0x0050, text=» MOVE DEBINW1,W0 SET NCLR-BIT «, t00=0x001d, t01=0x00ee}
0x2e5a…2e88 Head {h00=0x002a, h01=0x0050, text=» TBF BOOL6,PIC1 JUMP IF GENERAL FORMAT«, t00=0x001d, t01=0x0114}
0x2e88…2ebe Head {h00=0x0032, h01=0x0050, text=» ADD DEBINW1,W32 SET CTAB-BIT FOR BALANCEFORM «, t00=0x001d, t01=0x0142}
0x2ebe…2eca Head {h00=0x0008, h01=0x0050, text=»PIC1«, t00=0x001d, t01=0x0178}
0x2eca…2f04 Head {h00=0x0036, h01=0x0050, text=» CALL UPDBOL,DEBINW1 INITIATE FIELDCONTROLBITS DEF«, t00=0x001d, t01=0x0184}
0x2f04…2f28 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN7,W0 FIELDLENGTH:=0«, t00=0x001e, t01=0x002e}
0x2f28…2f3e Head {h00=0x0012, h01=0x0050, text=» MOVE BIN16,W0«, t00=0x001e, t01=0x0052}
0x2f3e…2f6a Head {h00=0x0028, h01=0x0050, text=» MATCH PICSTR,BIN16,W15,LDES,BIN5,W1«, t00=0x001e, t01=0x0068}
0x2f6a…2f84 Head {h00=0x0016, h01=0x0050, text=» BNOK PICNE INSERT«, t00=0x001e, t01=0x0094}
0x2f84…2fac Head {h00=0x0024, h01=0x0050, text=» CBE BIN16,W0,PICA0 JUMP IF = 0 «, t00=0x001e, t01=0x00ae}
0x2fac…2fdc Head {h00=0x002c, h01=0x0050, text=» IB BIN16,PICA1,PICN2,PICN3,PICN3, 1-4 C«, t00=0x001e, t01=0x00d6}
0x2fdc…300a Head {h00=0x002a, h01=0x0050, text=» PICN3,PICN3,PICN3,PICN8,PICN9, 5-9 C«, t00=0x001e, t01=0x0106}
0x300a…303a Head {h00=0x002c, h01=0x0050, text=» PICN10,PICN11,PICNE,PICNE,PICN14 10-14«, t00=0x001e, t01=0x0134}
0x303a…304a Head {h00=0x000c, h01=0x0050, text=» B PICNE«, t00=0x001e, t01=0x0164}
0x304a…3066 Head {h00=0x0018, h01=0x0050, text=»* ALPHANUMERIC«, t00=0x001e, t01=0x0174}
0x3066…3088 Head {h00=0x001e, h01=0x0050, text=»PICA1 ALPHANUMERIC RIGHT«, t00=0x001e, t01=0x0190}
0x3088…30ac Head {h00=0x0020, h01=0x0050, text=» SET REWRT INDICATE REWRITE «, t00=0x001f, t01=0x0022}
0x30ac…30d4 Head {h00=0x0024, h01=0x0050, text=» SET SCHK2 RIGHT ADJUST ALPHANUM«, t00=0x001f, t01=0x0046}
0x30d4…30f6 Head {h00=0x001e, h01=0x0050, text=»PICA0 ALPHANUMERIC LEFT «, t00=0x001f, t01=0x006e}
0x30f6…3122 Head {h00=0x0028, h01=0x0050, text=» SET ALPHA INICATE ALPANUMERIC FIELD«, t00=0x001f, t01=0x0090}
0x3122…312e Head {h00=0x0008, h01=0x0050, text=»PICA«, t00=0x001f, t01=0x00bc}
0x312e…3156 Head {h00=0x0024, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,LDES,BIN5«, t00=0x001f, t01=0x00c8}
0x3156…317a Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 NEXT PICCHARS «, t00=0x001f, t01=0x00f0}
0x317a…319c Head {h00=0x001e, h01=0x0050, text=» ADD BIN5,W1 NEXT LDESPOS «, t00=0x001f, t01=0x0114}
0x319c…31c6 Head {h00=0x0026, h01=0x0050, text=» ADD BIN7,W1 ADD 1 TO FIELDLENGTH «, t00=0x001f, t01=0x0136}
0x31c6…31f2 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN16,W0 INITIATE TABLE-INDEX «, t00=0x001f, t01=0x0160}
0x31f2…321e Head {h00=0x0028, h01=0x0050, text=» MATCH PICSTR,BIN16,W15,LDES,BIN5,W1«, t00=0x001f, t01=0x018c}
0x321e…324a Head {h00=0x0028, h01=0x0050, text=» CBE BIN16,W12,PIC99 '>' FOUND READY«, t00=0x0020, t01=0x0028}
0x324a…325a Head {h00=0x000c, h01=0x0050, text=» B PICA «, t00=0x0020, t01=0x0054}
0x325a…3278 Head {h00=0x001a, h01=0x0050, text=»* NUMERIC FIELDS«, t00=0x0020, t01=0x0064}
0x3278…3286 Head {h00=0x000a, h01=0x0050, text=»PICN3 «, t00=0x0020, t01=0x0082}
0x3286…3298 Head {h00=0x000e, h01=0x0050, text=» SET REWRT«, t00=0x0020, t01=0x0090}
0x3298…32a6 Head {h00=0x000a, h01=0x0050, text=»PICN2 «, t00=0x0020, t01=0x00a2}
0x32a6…32ce Head {h00=0x0024, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,LDES,BIN5«, t00=0x0020, t01=0x00b0}
0x32ce…32f8 Head {h00=0x0026, h01=0x0050, text=» ADD BIN7,W1 ADD 1 TO FIELD LENGTH«, t00=0x0020, t01=0x00d8}
0x32f8…3314 Head {h00=0x0018, h01=0x0050, text=» B PICNM NEXT MATCH «, t00=0x0020, t01=0x0102}
0x3314…3322 Head {h00=0x000a, h01=0x0050, text=»PICN8 «, t00=0x0020, t01=0x011e}
0x3322…3342 Head {h00=0x001c, h01=0x0050, text=» SET SCHK1 INDICATE SIGN«, t00=0x0020, t01=0x012c}
0x3342…3354 Head {h00=0x000e, h01=0x0050, text=» B PICN10 «, t00=0x0020, t01=0x014c}
0x3354…3362 Head {h00=0x000a, h01=0x0050, text=»PICN9 «, t00=0x0020, t01=0x015e}
0x3362…338a Head {h00=0x0024, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,PICCON,W0«, t00=0x0020, t01=0x016c}
0x338a…33aa (33, 0, 400) Head {h00=0x001c, h01=0x0050, text=» SET SCHK1 INDICATE SIGN«, t00=0x0021, t01=0x0004}
0x33aa…33ce Head {h00=0x0020, h01=0x0050, text=» SET REWRT INDICATE REWRITE «, t00=0x0021, t01=0x0024}
0x33ce…33ea Head {h00=0x0018, h01=0x0050, text=» B PICNM NEXT MATCH «, t00=0x0021, t01=0x0048}
0x33ea…33f8 Head {h00=0x000a, h01=0x0050, text=»PICN11«, t00=0x0021, t01=0x0064}
0x33f8…340a Head {h00=0x000e, h01=0x0050, text=» SET REWRT«, t00=0x0021, t01=0x0072}
0x340a…3432 Head {h00=0x0024, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,PICCON,W1«, t00=0x0021, t01=0x0084}
0x3432…344e Head {h00=0x0018, h01=0x0050, text=» B PICNM NEXT MATCH «, t00=0x0021, t01=0x00ac}
0x344e…345c Head {h00=0x000a, h01=0x0050, text=»PICN14«, t00=0x0021, t01=0x00c8}
0x345c…3484 Head {h00=0x0024, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,PICCON,W3«, t00=0x0021, t01=0x00d6}
0x3484…34ae Head {h00=0x0026, h01=0x0050, text=» SET SCHK2 INDICATE LEFT ZERO FILL«, t00=0x0021, t01=0x00fe}
0x34ae…34d0 Head {h00=0x001e, h01=0x0050, text=» SET REWRT INDICATE REWRT «, t00=0x0021, t01=0x0128}
0x34d0…34fa Head {h00=0x0026, h01=0x0050, text=» ADD BIN7,W1 ADD 1 TO FIELD LENGTH«, t00=0x0021, t01=0x014a}
0x34fa…3516 Head {h00=0x0018, h01=0x0050, text=» B PICNM NEXT MATCH «, t00=0x0021, t01=0x0174}
0x3516…3524 Head {h00=0x000a, h01=0x0050, text=»PICNE «, t00=0x0021, t01=0x0190}
0x3524…354c Head {h00=0x0024, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,PICCON,W2«, t00=0x0022, t01=0x000e}
0x354c…3570 Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 NEXT CHARACTER«, t00=0x0022, t01=0x0036}
0x3570…357e Head {h00=0x000a, h01=0x0050, text=»PICN10«, t00=0x0022, t01=0x005a}
0x357e…35a2 Head {h00=0x0020, h01=0x0050, text=» SET REWRT INDICATE REWRITE «, t00=0x0022, t01=0x0068}
0x35a2…35ca Head {h00=0x0024, h01=0x0050, text=» XCOPY STATSH,BIN12,W1,LDES,BIN5«, t00=0x0022, t01=0x008c}
0x35ca…35d8 Head {h00=0x000a, h01=0x0050, text=»PICNM «, t00=0x0022, t01=0x00b4}
0x35d8…35fc Head {h00=0x0020, h01=0x0050, text=» ADD BIN12,W1 NEXT PICCHARS «, t00=0x0022, t01=0x00c2}
0x35fc…3624 Head {h00=0x0024, h01=0x0050, text=» ADD BIN5,W1 NEXT LDES POSITION «, t00=0x0022, t01=0x00e6}
0x3624…3650 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN16,W0 INITIATE TABLE-INDEX «, t00=0x0022, t01=0x010e}
0x3650…367c Head {h00=0x0028, h01=0x0050, text=» MATCH PICSTR,BIN16,W15,LDES,BIN5,W1«, t00=0x0022, t01=0x013a}
0x367c…3696 Head {h00=0x0016, h01=0x0050, text=» BNOK PICNE INSERT«, t00=0x0022, t01=0x0166}
0x3696…36ba Head {h00=0x0020, h01=0x0050, text=» CBE BIN16,W0,PICNE 0=L =>EL«, t00=0x0022, t01=0x0180}
0x36ba…36ea Head {h00=0x002c, h01=0x0050, text=» IB BIN16,PICNE,PICN2,PICN3,PICN3, 1-4 C«, t00=0x0023, t01=0x0014}
0x36ea…3718 Head {h00=0x002a, h01=0x0050, text=» PICN3,PICN3,PICN3,PICN8,PICN9, 5-9 C«, t00=0x0023, t01=0x0044}
0x3718…3748 Head {h00=0x002c, h01=0x0050, text=» PICN10,PICN11,PIC99,PICNE,PICN14 10-14«, t00=0x0023, t01=0x0072}
0x3748…3756 Head {h00=0x000a, h01=0x0050, text=»PIC99 «, t00=0x0023, t01=0x00a2}
0x3756…376a Head {h00=0x0010, h01=0x0050, text=» ADD BIN5,W1«, t00=0x0023, t01=0x00b0}
0x376a…3776 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x00c4}
0x3776…3784 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x00d0}
0x3784…3792 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00de}
0x3792…379c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ec}
0x379c…37ce Head {h00=0x002e, h01=0x0050, text=»* FORMAT FIELD DIRECTIVE PROCESSING «, t00=0x0023, t01=0x00f6}
0x37ce…37d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0128}
0x37d8…3810 Head {h00=0x0034, h01=0x0050, text=»* - PROCESSES FORMAT FIELD DIRECTIVE CODE «, t00=0x0023, t01=0x0132}
0x3810…3836 Head {h00=0x0022, h01=0x0050, text=»* FKI AND FMELI/FCOPY«, t00=0x0023, t01=0x016a}
0x3836…3884 Head {h00=0x004a, h01=0x0050, text=»* INPUT VARIABLES: DEBIN5 = SAVED RESTARTPOINT OF PICTURESTRING «, t00=0x0023, t01=0x0190}
0x3884…388e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x004e}
0x388e…3898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0058}
0x3898…38ba Head {h00=0x001e, h01=0x0050, text=»* OUTPUT VARIABLES: «, t00=0x0024, t01=0x0062}
0x38ba…38f2 Head {h00=0x0034, h01=0x0050, text=»* DEBINW2 = 0 OK GO ON «, t00=0x0024, t01=0x0084}
0x38f2…393c Head {h00=0x0046, h01=0x0050, text=»* = 1 NO AVAILABLE BUFFERS;CANCEL«, t00=0x0024, t01=0x00bc}
0x393c…3986 Head {h00=0x0046, h01=0x0050, text=»* = 2 NO AVAILABLE BUFFERS;RETUR «, t00=0x0024, t01=0x0106}
0x3986…39ce Head {h00=0x0044, h01=0x0050, text=»* = 4 MAXIMUM BUFFERS USED:KTOT«, t00=0x0024, t01=0x0150}
0x39ce…39d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0008}
0x39d8…3a28 Head {h00=0x004c, h01=0x0050, text=»*********************************************************************** «, t00=0x0025, t01=0x0012}
0x3a28…3a32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0062}
0x3a32…3a44 Head {h00=0x000e, h01=0x0050, text=»FDIR PROC «, t00=0x0025, t01=0x006c}
0x3a44…3a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x007e}
0x3a4e…3a7a Head {h00=0x0028, h01=0x0050, text=»* FORMAT DIREKTIV GENERATION «, t00=0x0025, t01=0x0088}
0x3a7a…3a84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b4}
0x3a84…3ab2 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW2,W0 ZEROISE OUTPUT PARAM «, t00=0x0025, t01=0x00be}
0x3ab2…3ada Head {h00=0x0024, h01=0x0050, text=» TBF BOOL2,FDIR99 NO FIELD FOUND«, t00=0x0025, t01=0x00ec}
0x3ada…3ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0114}
0x3ae4…3b06 Head {h00=0x001e, h01=0x0050, text=»* FKI + FCOPY/FMELI«, t00=0x0025, t01=0x011e}
0x3b06…3b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0140}
0x3b10…3b20 Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x0025, t01=0x014a}
0x3b20…3b3e Head {h00=0x001a, h01=0x0050, text=» PERF FKI GENERATE FKI«, t00=0x0025, t01=0x015a}
0x3b3e…3b6c Head {h00=0x002a, h01=0x0050, text=» CBNE DEBINW2,W0,FDIR99 ERROR SIGNALS «, t00=0x0025, t01=0x0178}
0x3b6c…3b9c Head {h00=0x002c, h01=0x0050, text=» TBT BOOL6,FDIR10 JUMP IF BALANCE FORMAT«, t00=0x0026, t01=0x0016}
0x3b9c…3bc2 Head {h00=0x0022, h01=0x0050, text=» PERF DESC GENERATE DESCRIPTOR«, t00=0x0026, t01=0x0046}
0x3bc2…3bf0 Head {h00=0x002a, h01=0x0050, text=» CBNE DEBINW2,W0,FDIR99 ERROR SIGNALS «, t00=0x0026, t01=0x006c}
0x3bf0…3c18 Head {h00=0x0024, h01=0x0050, text=» TBT ALPHA,FDIR34 JUMP IF ALPHA «, t00=0x0026, t01=0x009a}
0x3c18…3c26 Head {h00=0x000a, h01=0x0050, text=»FDIR10«, t00=0x0026, t01=0x00c2}
0x3c26…3c56 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN5,DEBIN5 RESTORE PIC.STARTPOINT«, t00=0x0026, t01=0x00d0}
0x3c56…3c6a Head {h00=0x0010, h01=0x0050, text=» PERF PICMA «, t00=0x0026, t01=0x0100}
0x3c6a…3c8c Head {h00=0x001e, h01=0x0050, text=» PERF FMELI GENERATE FMELI«, t00=0x0026, t01=0x0114}
0x3c8c…3c9e Head {h00=0x000e, h01=0x0050, text=» B FDIR70 «, t00=0x0026, t01=0x0136}
0x3c9e…3cac Head {h00=0x000a, h01=0x0050, text=»FDIR34«, t00=0x0026, t01=0x0148}
0x3cac…3cce Head {h00=0x001e, h01=0x0050, text=» PERF FCOPY GENERATE FCOPY«, t00=0x0026, t01=0x0156}
0x3cce…3cdc Head {h00=0x000a, h01=0x0050, text=»FDIR70«, t00=0x0026, t01=0x0178}
0x3cdc…3d0a Head {h00=0x002a, h01=0x0050, text=» XCOPY LDISP,W0,BIN5,LDES,W0 COPY TEXT«, t00=0x0026, t01=0x0186}
0x3d0a…3d36 Head {h00=0x0028, h01=0x0050, text=» TBT DOOL8,FDIR73 JUMP IF NO DISPLAY«, t00=0x0027, t01=0x0024}
0x3d36…3d5c Head {h00=0x0022, h01=0x0050, text=» DISPLAY 2,W3,W3 DISPLAY LDISP«, t00=0x0027, t01=0x0050}
0x3d5c…3d6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0076}
0x3d6a…3d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0084}
0x3d74…3d9a Head {h00=0x0022, h01=0x0050, text=»* FVAL (+) FGEN (+) FACC«, t00=0x0027, t01=0x008e}
0x3d9a…3da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00b4}
0x3da4…3db2 Head {h00=0x000a, h01=0x0050, text=»FDIR73«, t00=0x0027, t01=0x00be}
0x3db2…3ddc Head {h00=0x0026, h01=0x0050, text=» SET BOOL1 T=FIRTS FIELD CONFIRMED«, t00=0x0027, t01=0x00cc}
0x3ddc…3e08 Head {h00=0x0028, h01=0x0050, text=» SET DOOL1 T=FIELD CONFIRM CURRLINE «, t00=0x0027, t01=0x00f6}
0x3e08…3e40 Head {h00=0x0034, h01=0x0050, text=» CALL EMPTYT,JOBSPC CHECK IF ANY VAL,GEN OR ACC «, t00=0x0027, t01=0x0122}
0x3e40…3e54 Head {h00=0x0010, h01=0x0050, text=» BNOK FDIR85«, t00=0x0027, t01=0x015a}
0x3e54…3e7a Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN1,W0 STARTPOSITION «, t00=0x0027, t01=0x016e}
0x3e7a…3ea4 (40, 0, 400) Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN4,W0 STARTPOS IN JOBSPC«, t00=0x0028, t01=0x0004}
0x3ea4…3ed4 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN5,W0 NUMB OF DELETED CHARS:=0«, t00=0x0028, t01=0x002e}
0x3ed4…3ee2 Head {h00=0x000a, h01=0x0050, text=»FDIR75«, t00=0x0028, t01=0x005e}
0x3ee2…3f04 Head {h00=0x001e, h01=0x0050, text=» MOVE STRG10A,='#V:#G:#A:'«, t00=0x0028, t01=0x006c}
0x3f04…3f30 Head {h00=0x0028, h01=0x0050, text=» MOVE FBIN1,W0 FUNCINDEX POINTER:=0 «, t00=0x0028, t01=0x008e}
0x3f30…3f60 Head {h00=0x002c, h01=0x0050, text=» MATCH STRG10A,FBIN1,W9,JOBSPC,DEBIN4,W3«, t00=0x0028, t01=0x00ba}
0x3f60…3f86 Head {h00=0x0022, h01=0x0050, text=» BNOK FDIR85 NO MORE FUNCTIONS«, t00=0x0028, t01=0x00ea}
0x3f86…3f9c Head {h00=0x0012, h01=0x0050, text=» ADD FBIN1,W3 «, t00=0x0028, t01=0x0110}
0x3f9c…3fc4 Head {h00=0x0024, h01=0x0050, text=» DIV FBIN1,W3 COMPUTE FUNC-INDEX«, t00=0x0028, t01=0x0126}
0x3fc4…4000 Head {h00=0x0038, h01=0x0050, text=» SUB FMTWK(FBIN1),DEBIN5 ADJUST ENDPOS FOR DELCHARS «, t00=0x0028, t01=0x014e}
0x4000…4010 Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x0028, t01=0x018a}
0x4010…4042 Head {h00=0x002e, h01=0x0050, text=» PERFI FBIN1,FVAL,FGEN,FACC FVAL,FGEN,FACC«, t00=0x0029, t01=0x000a}
0x4042…4070 Head {h00=0x002a, h01=0x0050, text=» CBNE DEBINW2,W0,FDIR99 ERROR SIGNALS «, t00=0x0029, t01=0x003c}
0x4070…40a6 Head {h00=0x0032, h01=0x0050, text=» MOVE DEBIN1,DEBIN4 STARTPOS'JOBSPC' NEXT FUNC«, t00=0x0029, t01=0x006a}
0x40a6…40cc Head {h00=0x0022, h01=0x0050, text=» B FDIR75 GO ON NEXT FUNCTION «, t00=0x0029, t01=0x00a0}
0x40cc…40da Head {h00=0x000a, h01=0x0050, text=»FDIR85«, t00=0x0029, t01=0x00c6}
0x40da…4106 Head {h00=0x0028, h01=0x0050, text=» CALL EMPTYT,DUPL LOOK IF DUPL EMPTY«, t00=0x0029, t01=0x00d4}
0x4106…4128 Head {h00=0x001e, h01=0x0050, text=» BNOK FDIR90 JUMP IF EMPTY«, t00=0x0029, t01=0x0100}
0x4128…414e Head {h00=0x0022, h01=0x0050, text=» MOVE DEBIN1,W0 STARTPOSITION «, t00=0x0029, t01=0x0122}
0x414e…4178 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBIN4,W0 STARTPOS IN 'DUPL'«, t00=0x0029, t01=0x0148}
0x4178…41a8 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBIN5,W0 NUMB OF DELETED CHARS:=0«, t00=0x0029, t01=0x0172}
0x41a8…41bc Head {h00=0x0010, h01=0x0050, text=» PERF FDUPL «, t00=0x002a, t01=0x0012}
0x41bc…41ca Head {h00=0x000a, h01=0x0050, text=»FDIR90«, t00=0x002a, t01=0x0026}
0x41ca…41e4 Head {h00=0x0016, h01=0x0050, text=» TBF DOOL8,FDIR99 «, t00=0x002a, t01=0x0034}
0x41e4…420a Head {h00=0x0022, h01=0x0050, text=» ERASE 11,W4,W0 CLEAR IN CORE «, t00=0x002a, t01=0x004e}
0x420a…4218 Head {h00=0x000a, h01=0x0050, text=»FDIR99«, t00=0x002a, t01=0x0074}
0x4218…4224 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002a, t01=0x0082}
0x4224…4232 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002a, t01=0x008e}
0x4232…4240 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x009c}
0x4240…424a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00aa}
0x424a…4272 Head {h00=0x0024, h01=0x0050, text=»* DESCRIPTOR-TABLE STORING«, t00=0x002a, t01=0x00b4}
0x4272…427c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00dc}
0x427c…42a6 Head {h00=0x0026, h01=0x0050, text=»* EACH FIELD TAKES TW0 WORDS«, t00=0x002a, t01=0x00e6}
0x42a6…42b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0110}
0x42b0…42c6 Head {h00=0x0012, h01=0x0050, text=»* WORD1 «, t00=0x002a, t01=0x011a}
0x42c6…42fc Head {h00=0x0032, h01=0x0050, text=»* -TYPE BITS 0-3 = 0 STRG-VARIABLE «, t00=0x002a, t01=0x0130}
0x42fc…4330 Head {h00=0x0030, h01=0x0050, text=»* (BYTE 1) = 3 BCD-VARIABLE«, t00=0x002a, t01=0x0166}
0x4330…4354 Head {h00=0x0020, h01=0x0050, text=»* -LENGTH BITS 4-15«, t00=0x002b, t01=0x000a}
0x4354…4378 Head {h00=0x0020, h01=0x0050, text=»* (BYTE 1) «, t00=0x002b, t01=0x002e}
0x4378…43c0 Head {h00=0x0044, h01=0x0050, text=»* BITS 0-15= - NUMBER OF MATCHED #:S WHEN STRG «, t00=0x002b, t01=0x0052}
0x43c0…440e Head {h00=0x004a, h01=0x0050, text=»* (BYTE 2) - (NUMBER OF MATCHED #:S + 1)/2 WHEN BCD«, t00=0x002b, t01=0x009a}
0x440e…4418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00e8}
0x4418…442e Head {h00=0x0012, h01=0x0050, text=»* WORD2 «, t00=0x002b, t01=0x00f2}
0x442e…4474 Head {h00=0x0042, h01=0x0050, text=»* -DISPLACEMENT = LAST DISPLACEMENTS + LAST LENGTH«, t00=0x002b, t01=0x0108}
0x4474…44a8 Head {h00=0x0030, h01=0x0050, text=»* = BIN13 + BIN14 «, t00=0x002b, t01=0x014e}
0x44a8…44b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0182}
0x44b2…4502 Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x002b, t01=0x018c}
0x4502…4514 Head {h00=0x000e, h01=0x0050, text=»DESC PROC «, t00=0x002c, t01=0x004c}
0x4514…4536 Head {h00=0x001e, h01=0x0050, text=» MOVE BIN16,W0 WORKITEM:=0«, t00=0x002c, t01=0x005e}
0x4536…4566 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN15,BIN7 LOAD NUMBER OF '#'-POS «, t00=0x002c, t01=0x0080}
0x4566…458e Head {h00=0x0024, h01=0x0050, text=» TBT ALPHA,DESC10 JUMP IF ALPHA «, t00=0x002c, t01=0x00b0}
0x458e…4598 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00d8}
0x4598…45b6 Head {h00=0x001a, h01=0x0050, text=»* NUMERIC FIELD «, t00=0x002c, t01=0x00e2}
0x45b6…45c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0100}
0x45c0…45ea Head {h00=0x0026, h01=0x0050, text=» ADD BIN16,=X'3000' TYPE = BCD = 3«, t00=0x002c, t01=0x010a}
0x45ea…4600 Head {h00=0x0012, h01=0x0050, text=» ADD BIN15,W2 «, t00=0x002c, t01=0x0134}
0x4600…4626 Head {h00=0x0022, h01=0x0050, text=» DIV BIN15,W2 NUMBER OF BYTES «, t00=0x002c, t01=0x014a}
0x4626…4634 Head {h00=0x000a, h01=0x0050, text=»DESC10«, t00=0x002c, t01=0x0170}
0x4634…4662 Head {h00=0x002a, h01=0x0050, text=» ADD BIN16,BIN15 LOAD TYPE AND LENGTH «, t00=0x002c, t01=0x017e}
0x4662…46a0 Head {h00=0x003a, h01=0x0050, text=» XCOPY BPOOL(BIN4),BIN2,W2,BIN16,W0 STORE TYPE/LENGTH «, t00=0x002d, t01=0x001c}
0x46a0…46be Head {h00=0x001a, h01=0x0050, text=» ADD BIN2,W2 NEXT POS «, t00=0x002d, t01=0x005a}
0x46be…46ea Head {h00=0x0028, h01=0x0050, text=» MOVE BIN16,BIN13 RESTORE LAST DISPL«, t00=0x002d, t01=0x0078}
0x46ea…4716 Head {h00=0x0028, h01=0x0050, text=» ADD BIN16,BIN14 ADJUST DISPLACEMENT«, t00=0x002d, t01=0x00a4}
0x4716…4756 Head {h00=0x003c, h01=0x0050, text=» XCOPY BPOOL(BIN4),BIN2,W2,BIN16,W0 STORE DISPLACEMENTS «, t00=0x002d, t01=0x00d0}
0x4756…4774 Head {h00=0x001a, h01=0x0050, text=» ADD BIN2,W2 NEXT POS «, t00=0x002d, t01=0x0110}
0x4774…479e Head {h00=0x0026, h01=0x0050, text=» MOVE BIN13,BIN16 SAVE LAST DISPL «, t00=0x002d, t01=0x012e}
0x479e…47c8 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN14,BIN15 SAVE LAST LENGTH«, t00=0x002d, t01=0x0158}
0x47c8…4800 Head {h00=0x0034, h01=0x0050, text=» CBL BIN2,W188,DESC99 JUMP IF NOT END OF BUFFER «, t00=0x002d, t01=0x0182}
0x4800…480e Head {h00=0x000a, h01=0x0050, text=»DESC20«, t00=0x002e, t01=0x002a}
0x480e…483e Head {h00=0x002c, h01=0x0050, text=» MOVE BIN16,W1 NUMBER OF WANTED BUFFERS «, t00=0x002e, t01=0x0038}
0x483e…487e Head {h00=0x003c, h01=0x0050, text=» PERF DEPOOL,W3,BIN16,BIN4,STRG10A CHAIN ANOTHER BUFFER «, t00=0x002e, t01=0x0068}
0x487e…4892 Head {h00=0x0010, h01=0x0050, text=» BNOK DESC30«, t00=0x002e, t01=0x00a8}
0x4892…48aa Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x002e, t01=0x00bc}
0x48aa…48da Head {h00=0x002c, h01=0x0050, text=» MOVE BIN4,BIN16 LOAD NEW BUFFERPOINTER «, t00=0x002e, t01=0x00d4}
0x48da…490a Head {h00=0x002c, h01=0x0050, text=» ADD PINDND,W1 NUMBER OF DESC-BUFFERS+1 «, t00=0x002e, t01=0x0104}
0x490a…492e Head {h00=0x0020, h01=0x0050, text=» PERF NOPOOL NUMBER OF POOLS«, t00=0x002e, t01=0x0134}
0x492e…4962 Head {h00=0x0030, h01=0x0050, text=» DISPLAY 2,W2,W2 DISPLAY DITO WHILE CHANGED «, t00=0x002e, t01=0x0158}
0x4962…4982 Head {h00=0x001c, h01=0x0050, text=» MOVE BPOOL(BIN4),HEX00 «, t00=0x002e, t01=0x018c}
0x4982…49a8 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN2,W0 BUFFER PONTER:=0«, t00=0x002f, t01=0x001c}
0x49a8…49ba Head {h00=0x000e, h01=0x0050, text=» B DESC99 «, t00=0x002f, t01=0x0042}
0x49ba…49c8 Head {h00=0x000a, h01=0x0050, text=»DESC30«, t00=0x002f, t01=0x0054}
0x49c8…49e4 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB7«, t00=0x002f, t01=0x0062}
0x49e4…4a02 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW2,W1,DESC20«, t00=0x002f, t01=0x007e}
0x4a02…4a2e Head {h00=0x0028, h01=0x0050, text=» SUB DEBINW2,W1 ADJUST FOR CANC RET «, t00=0x002f, t01=0x009c}
0x4a2e…4a3c Head {h00=0x000a, h01=0x0050, text=»DESC99«, t00=0x002f, t01=0x00c8}
0x4a3c…4a48 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x00d6}
0x4a48…4a56 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x00e2}
0x4a56…4a62 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x002f, t01=0x00f0}
0x4a62…4a66 Head {h00=0x4004, h01=0x0000}
0x4a66…4a6a 00 2f 00 fc ┆ / ┆
0x4a6a…4a72 (48, 1, 8) 20 04 00 00 00 30 00 04 ┆ 0 ┆
0x4a72…4ac2 (49, 0, 398) 00 26 00 21 20 43 42 45 20 42 49 4e 31 32 2c 57 33 2c 4f 50 45 35 35 30 20 52 45 43 4f 52 44 2d 4c 45 56 45 4c 20 00 01 00 04 00 0c 00 08 21 21 49 4c 20 33 37 33 00 01 00 2e 00 0a 00 06 4f 50 45 35 35 30 00 01 00 3e 00 32 00 50 21 21 52 45 ┆ & ! CBE BIN12,W3,OPE550 RECORD-LEVEL !!IL 373 . OPE550 > 2 P!!RE┆
0x4ac2…4b12 20 33 38 33 2c 24 24 57 33 24 24 57 34 20 52 45 54 55 52 4e 20 54 4f 20 44 52 4f 4b 30 30 20 49 4e 20 44 45 52 45 43 53 24 24 00 01 00 4c 00 0c 00 08 21 21 49 4c 20 34 31 30 00 01 00 82 00 2c 00 28 20 43 42 45 20 42 49 4e 31 31 2c 57 35 2c ┆ 383,$$W3$$W4 RETURN TO DROK00 IN DERECS$$ L !!IL 410 , ( CBE BIN11,W5,┆
0x4b12…4b62 4f 50 45 36 38 33 20 53 45 41 52 43 48 20 52 45 43 4f 52 44 2d 4c 45 56 45 4c 00 01 00 92 00 0c 00 08 21 21 49 4c 20 34 31 35 00 01 00 c2 00 0e 00 50 20 42 20 4f 50 45 36 38 34 20 00 01 00 d2 00 0a 00 06 4f 50 45 36 38 33 00 01 00 e4 00 24 ┆OPE683 SEARCH RECORD-LEVEL !!IL 415 P B OPE684 OPE683 $┆
0x4b62…4bb2 00 50 20 4d 4f 56 45 20 46 4f 52 4d 41 54 2c 48 45 58 30 30 20 53 45 41 52 43 48 20 53 54 52 41 52 54 00 01 00 f2 00 0a 00 50 4f 50 45 36 38 34 00 01 01 1a 00 0c 00 08 21 21 49 4c 20 34 31 36 00 01 01 28 00 2c 00 28 20 43 42 45 20 42 49 4e ┆ P MOVE FORMAT,HEX00 SEARCH STRART POPE684 !!IL 416 ( , ( CBE BIN┆
0x4bb2…4c00 31 31 2c 57 35 2c 4f 50 45 36 38 38 20 53 45 41 52 43 48 20 52 45 43 4f 52 44 2d 4c 45 56 45 4c 00 01 01 38 00 0c 00 08 21 21 49 4c 20 34 32 31 00 01 01 68 00 0a 00 06 4f 50 45 36 38 38 00 01 01 78 00 08 00 04 21 21 45 4e 00 01 01 86 ┆11,W5,OPE688 SEARCH RECORD-LEVEL 8 !!IL 421 h OPE688 x !!EN ┆
0x4c00…4c26 (50, 0, 38) 00 0e 00 09 54 52 41 20 2f 53 2c 4e 4c 20 00 02 00 04 00 10 00 0c 41 53 47 20 2f 45 30 2c 54 59 31 30 00 02 00 16 ┆ TRA /S,NL ASG /E0,TY10 ┆
0x4c26…4c2e (51, 1, 8) 20 04 00 00 00 03 00 04 ┆ ┆
0x4c2e…4c36 (52, 1, 8) 20 04 00 00 00 2c 00 04 ┆ , ┆