|
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: 10968 (0x2ad8)
Notes: pts_type(SC)
Names: »DEGENE.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DEGENE.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DEGENE.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DEGENE.SC«
IDENT DEGENE REL 10.0 80-04-11 UPD 80-11-06/DALI UPD 80-10-28/DALI UPD 80-08-22/DALI UPD 80-04-10/DALI * ************************************************************************ * * SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800 * * AFTER ENTERING AN ELEMENT IN THE PICTURE THIS MODULE * CHECKS IF THERE IS A "FGEN-STRING" ATTACHED TO THAT * ELEMENT AND IF SO EXECUTES THE GENERATION. * * GENERATION CAN BE DONE TO: * - AN ELEMENT IN THE PICTURE * - AN USER-VARIABLE * ************************************************************************ * DDUM DEDDIV PDIV * * ***** ENTRIES ***** * ENTRY DEGEN * * ***** EXTERNALS ***** * EXT GETGEN EXT MSKOUT EXT TYPET EXT EMPTYT EXT DENVAL EXT GETFWD EXT ADJUST EXT CMPIND COMPARE INDEX EXT DEFIND FIELD ADRESS ROUTINE * INCLUDE DELITT EJECT * * ***** INTERNAL WORK-FORMATS ***** * WFORM FTABLE WF1,WF2,WF3,WF4 * WF1 FRMT FCOPY USEV(BIN10) FMEND * WF2 FRMT FCTL X'C0',X.PSEU1,X.PSEU2,X.WB10,BIN10 FMEND * WF3 FRMT FMEL '+TTTTTTTTTTTTTTTTTTTT9',BCDI21(W1) FMEND * WF4 FRMT FCOPY SYSV(BIN10) FMEND EJECT * ************************************************************************ * * MAIN-ROUTINE FOR GENERATION * ************************************************************************ * DEGEN PROC A000 MOVE BCD2A,='0' CLEAR ERROR INDICATOR CLEAR BOOL1 CLEAR CURRENT-INDICATOR CLEAR BOOL4 CLEAR DUPL-INDICATOR GETABX DEBINW3 GET CURRENT-FIELD NR CLEAR ME COND GEN FLAG B EXGEN "PERF" EXGEN A250 CBE BIN1,W0,A900 NO DUPL FOUND ? SET BOOL1 INDICATE CHANGED CURRENT CALL GETFWD,DEBINW4,0,BIN1,BIN4 MAKE DUPL CALL ADJUST,DEBINW4 ITEM CURRENT BERR A900 OUT OF FORMAT ? SET BOOL4 INDICATE DUPL CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13 BNOK A900 CALL GETFWD,DEBINW4,0,DEBINW3,BIN4 MAKE ORIGINATE CALL ADJUST,DEBINW4 FIELD CURRENT AGAIN CLEAR BOOL1 B EXGEN EJECT * * ***** FORMAT-ERROR DETECTED ***** * ***** RETURN TO CALLING MODULE ***** * A900 TBF BOOL1,A910 "CURRENT-FIELD" CURRENT ? CALL GETFWD,DEBINW4,0,DEBINW3,BIN4 MAKE CURRENT CALL ADJUST,DEBINW4 FIELD CURRENT A910 ADD BCD2A,BCD2A CLEAR ME COND GEN FLAG RET EJECT * ************************************************************************ * * SUBROUTINE FOR EXAMINATION AND EXECUTION OF THE GEN-STRING * ************************************************************************ * EXGEN B000 SUB BIN12,W1 ADJUST DISPL. ADD BIN13,BIN12 DISPL FOR LAST BYTE IN BIN13 * MOVE BIN1,W0 CLEAR DUPL-FIELD-NR EJECT * * ***** GET RESULT-FIELD ***** * B050 ADD BIN12,W1 INCREASE DISPL. CBG BIN12,BIN13,A250 END 0F STRING ? * B055 MOVE BIN7,W0 CLEAR RESULT-FIELD-NR... MOVE BIN6,W0 ...AND RESET TYPE-INDEX MOVE STR6B,=C'DUFM' MATCH STR6B,BIN6,W4,BPOOL(BIN11),BIN12,W1 IB BIN6,B070,B070,B065 B B070 EJECT * * HANDLE CONDITIONAL GENERATION * B065 MOVE DEBINW1,W0 SET INPUTLENGTH = 0 SUB BIN13,BIN12 PUT DISP INTO BIN13 PERF DENVAL,W2 GETABX DEBINW3 MAKE ORIGINATE FIELD CURRENT AGAIN CLEAR DOOLB BNZ A250 SET ME COND GEN FLAG XCOPY BIN12,W1,W1,BIN3,W1 MOVE BIN3,W0 XCOPY BIN3,W1,W1,BPOOL(BIN11),BIN12 MOVE BIN13,=X'3F' CALL MSKOUT,BIN13,BIN3 ADD BIN13,BIN12 B B050 B070 BNOK A250 FORMAT ERROR ? * * ADD BIN12,W1 INCREASE DISPL. PERF DEFIND,BIN7,BIN4 GET FIELD-NR IB BIN6,B180,B180 JUMP IF USER OR FIELD B B140 B075 CLEAR BOOL2 INDICATE NO ARITHMETIC DONE MOVE BCDI21(W1),='0' CLEAR SUM * ADD BIN12,W1 INCREASE DISPL. MOVE BIN4,W0 NEXT BYTE... MOVE STR1A,=C'=' MATCH STR1A,BIN4,W1,BPOOL(BIN11),BIN12,W1 BOK B100 ..."="-SIGN ? * SUB BIN12,W1 ADJUST DISPL. EJECT * * ***** EXAMINE ***** * B100 CLEAR BOOL6 INDICATE NO ABSOLUTE VALUE MOVE BIN3,W0 RESET SIGN-INDEX (+-SIGN) * B110 MOVE BIN10,W0 CLEAR ACTUAL-FIELD-NR... MOVE BIN9,W0 ...AND RESET TYPE-INDEX ADD BIN12,W1 INCREASE DISPL. CMP BIN12,BIN13 BG B600 MOVE STRG10A,=C'!UF+-*:;AS' MATCH STRG10A,BIN9,W10,BPOOL(BIN11),BIN12,W1 BNOK B200 LITTERAL PREFIX ? IB BIN9 C B300,B300,B170,B170,B170,B170,B600,B300,B300 B B160 * * ***** DUPLICATION FOUND ***** * B140 CBL BIN7,W1,A250 DUPL-NR NOT > ZERO ? CBNL BIN7,DEBINW3,A250 DUPL-NR NOT < "CURRENT" ? MOVE BIN1,BIN7 UPDATE DUPL-FIELD-NR B A250 EJECT * * ***** ABSULUTE VALUE ***** * B160 SET BOOL6 INDICATE ABSOLUTE VALUE SET BOOL2 INDICATE ARITHMETIC B B110 * * ***** ARITHMETIC SIGN ***** * B170 SET BOOL2 INDICATE ARITHMETIC MOVE BIN3,BIN9 MOVE TO SIGN-INDEX SUB BIN3,W3 ADJUST SIGN-INDEX B B110 * * **** OWN FIELD OR USER-VAIABEL **** * B180 CALL EMPTYT,X.PSEU1,X.PSEU2 C X.WB10,DEBINW3 CHECK CURRENT FIELD BZ B075 NOT EMPTY *CURRENT FIELD EMPTY CLEAR ME COND GEN FLAG BNZ B075 CBNE BIN6,W2,B190 NOT FIELD CBE BIN7,W0,B075 IF CURRENT CBE BIN7,DEBINW3,B075 IF CURRENT B190 MOVE BIN4,BIN13 CALCULATE LENGTH OF... SUB BIN4,BIN12 ...THE REST OF THE STRING MOVE STR1A,=C';' MATCH BPOOL(BIN11),BIN12,BIN4,STR1A,W0,W1 BNOK A250 NOT FOUND ? B B050 EJECT * * ***** LITTERAL ***** * B200 MOVE DEINPUT,HEX00 CLEAR WORKITEM MOVE BIN10,W0 " XCOPY BIN10,W1,W1,BPOOL(BIN11),BIN12 GET LITTERAL-PREFIX MOVE BIN9,=X'3F' REMOVE... CALL MSKOUT,BIN9,BIN10 ...FLAGGS ADD BIN12,W1 INCREASE DISPL. COPY DEINPUT,W0,BIN9,BPOOL(BIN11),BIN12 GET LITTERAL SUB BIN9,W1 ADJUST INDEX ADD BIN12,BIN9 INCREASE DISPL. B B500 EJECT * * ***** USER- OR FORMAT-VALUE ***** * B300 MOVE DEINPUT,HEX00 CLEAR WORKITEM MOVE BIN10,W0 " ADD BIN12,W1 INCREASE DISPL. PERF DEFIND,BIN10,BIN4 GET FIELD-NR * IB BIN9,B310,B320 CBE BIN9,W9,B315 JUMP IF SYSTEM VARIABLE HANDLE ACCUMULATORS CALL CMPIND,BIN10,ACK(W1) BNOK A250 OUT OF RANGE MOVE DEINPUT,ACK(BIN10) B B500 B310 HANDLE USERVARIABELS * CALL CMPIND,BIN10,USEV(W1) BOK B350 B A250 * B315 HANDLE SYSTEM VARIABLE CALL CMPIND,BIN10,SYSV(W1) BNOK A250 IF OUT OF RANGE MOVE BIN9,W4 B B350 * ***** FORMAT-FIELD ***** * B320 CBNE BIN10,W0,B330 "CURRENT FIELD" ? MOVE BIN10,DEBINW3 UPDATE INDEX WITH CURRENT * B330 CALL TYPET,BIN4,X.PSEU1,X.PSEU2,X.WB10,BIN10 F-ITEM IS... CBE BIN4,W3,B350 ...A STRG-ITEM ? * * ***** USER- OR FORMAT-VALUE TO WORKITEM ***** * CON X.MOVE,DEINPUT,X.PSEU1,X.PSEU2,X.WB10,BIN10 BCD-ITEM B B500 * B350 EDIT DEINPUT,WFORM(BIN9) STRG-ITEM EJECT * * ***** EXECUTE ARITHMETIC ***** * B500 MOVE BCDI21(W2),DEINPUT VALUE TO BCD-WORKITEM TBF BOOL6,B510 NO ABSOLUTE VALUE ? COPY BCDI21(W2),W0,W1,D1,W0 "+-SIGN" TO WORKITEM B510 IB BIN3,B520,B530,B540 ADD BCDI21(W1),BCDI21(W2) "+" B B100 B520 SUB BCDI21(W1),BCDI21(W2) "-" B B100 B530 MUL BCDI21(W1),BCDI21(W2) "*" B B100 B540 DIV BCDI21(W1),BCDI21(W2) ":" EJECT * * ***** UPDATE RESULT-FIELD ***** * B600 TBF BOOL2,B610 NO ARITHMETIC DONE ? MOVE DEINPUT,HEX00 CLEAR STRG-WORK MOVE BIN10,W0 MOVE SUM TO STRG-WORK... EDSUB DEINPUT,BIN10,WF3 ...AND GET LENGTH OF SUM B610 CBE BIN6,W2,B620 FORMAT-FIELD ? USER-VARIABEL CALL CMPIND,BIN7,USEV(W1) BNOK A250 OUT OF RANGE MOVE USEV(BIN7),DEINPUT RESULT TO USER-VARIABLE B B050 * B620 CBNE BIN7,W0,B640 CURRENT FIELD ?? MOVE BIN7,DEBINW3 UPDATE WITH CURRENT INDEX * B640 CALL GETFWD,BIN4,0,BIN7,BIN9 CALL ADJUST,BIN4 * GETCTL 1,BIN9 GET MAXLENGTH TSTCTL 0 BNZ ALPHA JUMP IF ALPHA MOVE DEINPUT,HEX00 MOVE BIN10,W0 EDSUB DEINPUT,BIN10,WF3 SUB BIN10,W1 ADJUST LENGTH OF SUM CMP BIN10,BIN9 RESULT LEN VS MAXL BE NUM BG B650 GETCTL 2,BIN9 GET MINL CBNL BIN10,BIN9,NUM IF RESULT LEN NOT LESS MINL SUB BIN9,BIN10 CALCULATE MISSING ZEROES MOVE STR64A,=X'30' LOAD ZEROES INSERT DEINPUT,W1,BIN9,STR64A,W0 ADD MISSING ZEROES B NUM B650 SUB BIN10,BIN9 CLEAR BYTE IN... DLETE DEINPUT,W1,BIN10 NUM CBE BCDI21(W1),:FMTITEM,CONT DONT DISPLAY IF EQUAL NUM100 ERASE 1,BIN7,BIN7 ERASE OLD CONTENTS UPDFLD 1,DEINPUT CONT CBE BIN7,DEBINW3,FINISH JUMP IF NOT OWN FIELD GETFLD 0,DEBINW3,BIN7 GET OWN FIELD CURRENT FINISH B B050 ALPHA MOVE BIN4,W0 MATCH DEINPUT,BIN4,BIN9,:FMTITEM,W0,BIN9 BOK CONT IF EQUAL CONTENTS B NUM100 * PEND * END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DEGENE REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0044 Head {h00=0x0018, h01=0x0050, text=» UPD 80-11-06/DALI«, t00=0x0000, t01=0x002c}
0x0044…0060 Head {h00=0x0018, h01=0x0050, text=» UPD 80-10-28/DALI«, t00=0x0000, t01=0x0048}
0x0060…007c Head {h00=0x0018, h01=0x0050, text=» UPD 80-08-22/DALI«, t00=0x0000, t01=0x0064}
0x007c…0098 Head {h00=0x0018, h01=0x0050, text=» UPD 80-04-10/DALI«, t00=0x0000, t01=0x0080}
0x0098…00a2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x009c}
0x00a2…00f2 Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0000, t01=0x00a6}
0x00f2…00fc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00f6}
0x00fc…013a Head {h00=0x003a, h01=0x0036, text=»* SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800«, t00=0x0000, t01=0x0100}
0x013a…0144 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x013e}
0x0144…0188 Head {h00=0x0040, h01=0x003b, text=»* AFTER ENTERING AN ELEMENT IN THE PICTURE THIS MODULE «, t00=0x0000, t01=0x0148}
0x0188…01ca Head {h00=0x003e, h01=0x003a, text=»* CHECKS IF THERE IS A "FGEN-STRING" ATTACHED TO THAT«, t00=0x0000, t01=0x018c}
0x01ca…0204 Head {h00=0x0036, h01=0x0031, text=»* ELEMENT AND IF SO EXECUTES THE GENERATION. «, t00=0x0001, t01=0x003e}
0x0204…020e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0078}
0x020e…0238 Head {h00=0x0026, h01=0x0021, text=»* GENERATION CAN BE DONE TO: «, t00=0x0001, t01=0x0082}
0x0238…0266 Head {h00=0x002a, h01=0x0050, text=»* - AN ELEMENT IN THE PICTURE«, t00=0x0001, t01=0x00ac}
0x0266…028c Head {h00=0x0022, h01=0x001d, text=»* - AN USER-VARIABLE «, t00=0x0001, t01=0x00da}
0x028c…0296 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0100}
0x0296…02e6 Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0001, t01=0x010a}
0x02e6…02f0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x015a}
0x02f0…0304 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0001, t01=0x0164}
0x0304…0312 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0001, t01=0x0178}
0x0312…031c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0186}
0x031c…0326 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0190}
0x0326…0344 Head {h00=0x001a, h01=0x0015, text=»***** ENTRIES ***** «, t00=0x0002, t01=0x000a}
0x0344…034e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0028}
0x034e…0362 Head {h00=0x0010, h01=0x000c, text=» ENTRY DEGEN«, t00=0x0002, t01=0x0032}
0x0362…036c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0046}
0x036c…0376 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0050}
0x0376…0396 Head {h00=0x001c, h01=0x0017, text=»***** EXTERNALS ***** «, t00=0x0002, t01=0x005a}
0x0396…03a0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x007a}
0x03a0…03b4 Head {h00=0x0010, h01=0x000b, text=» EXT GETGEN «, t00=0x0002, t01=0x0084}
0x03b4…03c8 Head {h00=0x0010, h01=0x000b, text=» EXT MSKOUT «, t00=0x0002, t01=0x0098}
0x03c8…03da Head {h00=0x000e, h01=0x000a, text=» EXT TYPET«, t00=0x0002, t01=0x00ac}
0x03da…03ee Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0002, t01=0x00be}
0x03ee…0402 Head {h00=0x0010, h01=0x0050, text=» EXT DENVAL «, t00=0x0002, t01=0x00d2}
0x0402…0416 Head {h00=0x0010, h01=0x0050, text=» EXT GETFWD «, t00=0x0002, t01=0x00e6}
0x0416…042a Head {h00=0x0010, h01=0x0050, text=» EXT ADJUST «, t00=0x0002, t01=0x00fa}
0x042a…044c Head {h00=0x001e, h01=0x0050, text=» EXT CMPIND COMPARE INDEX «, t00=0x0002, t01=0x010e}
0x044c…0476 Head {h00=0x0026, h01=0x0050, text=» EXT DEFIND FIELD ADRESS ROUTINE «, t00=0x0002, t01=0x0130}
0x0476…0480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015a}
0x0480…0498 Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0002, t01=0x0164}
0x0498…04a6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0002, t01=0x017c}
0x04a6…04b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x018a}
0x04b0…04ba (3, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0004}
0x04ba…04e6 Head {h00=0x0028, h01=0x0023, text=»***** INTERNAL WORK-FORMATS ***** «, t00=0x0003, t01=0x000e}
0x04e6…04f0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x003a}
0x04f0…0514 Head {h00=0x0020, h01=0x0050, text=»WFORM FTABLE WF1,WF2,WF3,WF4«, t00=0x0003, t01=0x0044}
0x0514…051e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0068}
0x051e…052e Head {h00=0x000c, h01=0x0008, text=»WF1 FRMT«, t00=0x0003, t01=0x0072}
0x052e…0548 Head {h00=0x0016, h01=0x0050, text=» FCOPY USEV(BIN10)«, t00=0x0003, t01=0x0082}
0x0548…0556 Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x0003, t01=0x009c}
0x0556…0560 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00aa}
0x0560…0570 Head {h00=0x000c, h01=0x0050, text=»WF2 FRMT«, t00=0x0003, t01=0x00b4}
0x0570…05a0 Head {h00=0x002c, h01=0x0050, text=» FCTL X'C0',X.PSEU1,X.PSEU2,X.WB10,BIN10«, t00=0x0003, t01=0x00c4}
0x05a0…05ae Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x0003, t01=0x00f4}
0x05ae…05b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0102}
0x05b8…05c8 Head {h00=0x000c, h01=0x0050, text=»WF3 FRMT«, t00=0x0003, t01=0x010c}
0x05c8…05fa Head {h00=0x002e, h01=0x0050, text=» FMEL '+TTTTTTTTTTTTTTTTTTTT9',BCDI21(W1) «, t00=0x0003, t01=0x011c}
0x05fa…0608 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0003, t01=0x014e}
0x0608…0612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015c}
0x0612…0622 Head {h00=0x000c, h01=0x0050, text=»WF4 FRMT«, t00=0x0003, t01=0x0166}
0x0622…063c Head {h00=0x0016, h01=0x0050, text=» FCOPY SYSV(BIN10)«, t00=0x0003, t01=0x0176}
0x063c…064a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0003, t01=0x0190}
0x064a…0658 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0004, t01=0x000e}
0x0658…0662 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x001c}
0x0662…06b2 Head {h00=0x004c, h01=0x004f, text=»************************************************************************«, t00=0x0004, t01=0x0026}
0x06b2…06bc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0076}
0x06bc…06e6 Head {h00=0x0026, h01=0x0022, text=»* MAIN-ROUTINE FOR GENERATION«, t00=0x0004, t01=0x0080}
0x06e6…06f0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x00aa}
0x06f0…0740 Head {h00=0x004c, h01=0x004f, text=»************************************************************************«, t00=0x0004, t01=0x00b4}
0x0740…074a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0104}
0x074a…075c Head {h00=0x000e, h01=0x000a, text=»DEGEN PROC«, t00=0x0004, t01=0x010e}
0x075c…0768 Head {h00=0x0008, h01=0x0004, text=»A000«, t00=0x0004, t01=0x0120}
0x0768…0796 Head {h00=0x002a, h01=0x0026, text=» MOVE BCD2A,='0' CLEAR ERROR INDICATOR«, t00=0x0004, t01=0x012c}
0x0796…07c2 Head {h00=0x0028, h01=0x0024, text=» CLEAR BOOL1 CLEAR CURRENT-INDICATOR«, t00=0x0004, t01=0x015a}
0x07c2…07ec Head {h00=0x0026, h01=0x0021, text=» CLEAR BOOL4 CLEAR DUPL-INDICATOR «, t00=0x0004, t01=0x0186}
0x07ec…0818 Head {h00=0x0028, h01=0x0050, text=» GETABX DEBINW3 GET CURRENT-FIELD NR«, t00=0x0005, t01=0x0020}
0x0818…0838 Head {h00=0x001c, h01=0x0050, text=» CLEAR ME COND GEN FLAG «, t00=0x0005, t01=0x004c}
0x0838…0856 Head {h00=0x001a, h01=0x0050, text=» B EXGEN "PERF" EXGEN «, t00=0x0005, t01=0x006c}
0x0856…0862 Head {h00=0x0008, h01=0x0050, text=»A250«, t00=0x0005, t01=0x008a}
0x0862…088c Head {h00=0x0026, h01=0x0050, text=» CBE BIN1,W0,A900 NO DUPL FOUND ? «, t00=0x0005, t01=0x0096}
0x088c…08b8 Head {h00=0x0028, h01=0x0023, text=» SET BOOL1 INDICATE CHANGED CURRENT «, t00=0x0005, t01=0x00c0}
0x08b8…08ea Head {h00=0x002e, h01=0x0050, text=» CALL GETFWD,DEBINW4,0,BIN1,BIN4 MAKE DUPL«, t00=0x0005, t01=0x00ec}
0x08ea…0914 Head {h00=0x0026, h01=0x0050, text=» CALL ADJUST,DEBINW4 ITEM CURRENT «, t00=0x0005, t01=0x011e}
0x0914…0936 Head {h00=0x001e, h01=0x0050, text=» BERR A900 OUT OF FORMAT ?«, t00=0x0005, t01=0x0148}
0x0936…0956 Head {h00=0x001c, h01=0x0018, text=» SET BOOL4 INDICATE DUPL«, t00=0x0005, t01=0x016a}
0x0956…0986 Head {h00=0x002c, h01=0x0050, text=» CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x0005, t01=0x018a}
0x0986…0998 Head {h00=0x000e, h01=0x0050, text=» BNOK A900«, t00=0x0006, t01=0x002a}
0x0998…09d2 Head {h00=0x0036, h01=0x0050, text=» CALL GETFWD,DEBINW4,0,DEBINW3,BIN4 MAKE ORIGINATE«, t00=0x0006, t01=0x003c}
0x09d2…0a02 Head {h00=0x002c, h01=0x0050, text=» CALL ADJUST,DEBINW4 FIELD CURRENT AGAIN«, t00=0x0006, t01=0x0076}
0x0a02…0a16 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL1«, t00=0x0006, t01=0x00a6}
0x0a16…0a28 Head {h00=0x000e, h01=0x0050, text=» B EXGEN «, t00=0x0006, t01=0x00ba}
0x0a28…0a36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00cc}
0x0a36…0a40 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x00da}
0x0a40…0a4a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x00e4}
0x0a4a…0a76 Head {h00=0x0028, h01=0x0023, text=»***** FORMAT-ERROR DETECTED ***** «, t00=0x0006, t01=0x00ee}
0x0a76…0a80 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x011a}
0x0a80…0aae Head {h00=0x002a, h01=0x0026, text=»***** RETURN TO CALLING MODULE *****«, t00=0x0006, t01=0x0124}
0x0aae…0ab8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0152}
0x0ab8…0ac4 Head {h00=0x0008, h01=0x0004, text=»A900«, t00=0x0006, t01=0x015c}
0x0ac4…0af6 Head {h00=0x002e, h01=0x0029, text=» TBF BOOL1,A910 "CURRENT-FIELD" CURRENT ? «, t00=0x0006, t01=0x0168}
0x0af6…0b2e Head {h00=0x0034, h01=0x0050, text=» CALL GETFWD,DEBINW4,0,DEBINW3,BIN4 MAKE CURRENT«, t00=0x0007, t01=0x000a}
0x0b2e…0b58 Head {h00=0x0026, h01=0x0050, text=» CALL ADJUST,DEBINW4 FIELD CURRENT«, t00=0x0007, t01=0x0042}
0x0b58…0b64 Head {h00=0x0008, h01=0x0004, text=»A910«, t00=0x0007, t01=0x006c}
0x0b64…0b7c Head {h00=0x0014, h01=0x0050, text=» ADD BCD2A,BCD2A«, t00=0x0007, t01=0x0078}
0x0b7c…0b9c Head {h00=0x001c, h01=0x0050, text=» CLEAR ME COND GEN FLAG «, t00=0x0007, t01=0x0090}
0x0b9c…0ba8 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0007, t01=0x00b0}
0x0ba8…0bb6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0007, t01=0x00bc}
0x0bb6…0bc0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00ca}
0x0bc0…0c10 Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0007, t01=0x00d4}
0x0c10…0c1a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0124}
0x0c1a…0c64 Head {h00=0x0046, h01=0x0041, text=»* SUBROUTINE FOR EXAMINATION AND EXECUTION OF THE GEN-STRING «, t00=0x0007, t01=0x012e}
0x0c64…0c6e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0178}
0x0c6e…0cbe Head {h00=0x004c, h01=0x004e, text=»************************************************************************«, t00=0x0007, t01=0x0182}
0x0cbe…0cc8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0042}
0x0cc8…0cd6 Head {h00=0x000a, h01=0x0050, text=»EXGEN «, t00=0x0008, t01=0x004c}
0x0cd6…0ce2 Head {h00=0x0008, h01=0x0004, text=»B000«, t00=0x0008, t01=0x005a}
0x0ce2…0d06 Head {h00=0x0020, h01=0x0050, text=» SUB BIN12,W1 ADJUST DISPL. «, t00=0x0008, t01=0x0066}
0x0d06…0d3c Head {h00=0x0032, h01=0x0050, text=» ADD BIN13,BIN12 DISPL FOR LAST BYTE IN BIN13 «, t00=0x0008, t01=0x008a}
0x0d3c…0d46 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x00c0}
0x0d46…0d70 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,W0 CLEAR DUPL-FIELD-NR «, t00=0x0008, t01=0x00ca}
0x0d70…0d7e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0008, t01=0x00f4}
0x0d7e…0d88 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0102}
0x0d88…0d92 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x010c}
0x0d92…0db8 Head {h00=0x0022, h01=0x001e, text=»***** GET RESULT-FIELD *****«, t00=0x0008, t01=0x0116}
0x0db8…0dc2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x013c}
0x0dc2…0dce Head {h00=0x0008, h01=0x0050, text=»B050«, t00=0x0008, t01=0x0146}
0x0dce…0df4 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0008, t01=0x0152}
0x0df4…0e22 Head {h00=0x002a, h01=0x0050, text=» CBG BIN12,BIN13,A250 END 0F STRING ? «, t00=0x0008, t01=0x0178}
0x0e22…0e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0016}
0x0e2c…0e38 Head {h00=0x0008, h01=0x0050, text=»B055«, t00=0x0009, t01=0x0020}
0x0e38…0e66 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN7,W0 CLEAR RESULT-FIELD-NR...«, t00=0x0009, t01=0x002c}
0x0e66…0e94 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN6,W0 ...AND RESET TYPE-INDEX «, t00=0x0009, t01=0x005a}
0x0e94…0eb0 Head {h00=0x0018, h01=0x0050, text=» MOVE STR6B,=C'DUFM'«, t00=0x0009, t01=0x0088}
0x0eb0…0ee2 Head {h00=0x002e, h01=0x0050, text=» MATCH STR6B,BIN6,W4,BPOOL(BIN11),BIN12,W1«, t00=0x0009, t01=0x00a4}
0x0ee2…0f02 Head {h00=0x001c, h01=0x0050, text=» IB BIN6,B070,B070,B065 «, t00=0x0009, t01=0x00d6}
0x0f02…0f12 Head {h00=0x000c, h01=0x0050, text=» B B070 «, t00=0x0009, t01=0x00f6}
0x0f12…0f20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0106}
0x0f20…0f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0114}
0x0f2a…0f52 Head {h00=0x0024, h01=0x0050, text=»* HANDLE CONDITIONAL GENERATION «, t00=0x0009, t01=0x011e}
0x0f52…0f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0146}
0x0f5c…0f68 Head {h00=0x0008, h01=0x0050, text=»B065«, t00=0x0009, t01=0x0150}
0x0f68…0f94 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW1,W0 SET INPUTLENGTH = 0«, t00=0x0009, t01=0x015c}
0x0f94…0fc0 Head {h00=0x0028, h01=0x0050, text=» SUB BIN13,BIN12 PUT DISP INTO BIN13«, t00=0x0009, t01=0x0188}
0x0fc0…0fd8 Head {h00=0x0014, h01=0x0050, text=» PERF DENVAL,W2 «, t00=0x000a, t01=0x0024}
0x0fd8…1004 Head {h00=0x0028, h01=0x0050, text=» GETABX DEBINW3 MAKE ORIGINATE FIELD«, t00=0x000a, t01=0x003c}
0x1004…101c Head {h00=0x0014, h01=0x0050, text=» CURRENT AGAIN«, t00=0x000a, t01=0x0068}
0x101c…1030 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOLB«, t00=0x000a, t01=0x0080}
0x1030…1042 Head {h00=0x000e, h01=0x0050, text=» BNZ A250 «, t00=0x000a, t01=0x0094}
0x1042…1060 Head {h00=0x001a, h01=0x0050, text=» SET ME COND GEN FLAG «, t00=0x000a, t01=0x00a6}
0x1060…1082 Head {h00=0x001e, h01=0x0050, text=» XCOPY BIN12,W1,W1,BIN3,W1«, t00=0x000a, t01=0x00c4}
0x1082…1098 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x000a, t01=0x00e6}
0x1098…10c4 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN3,W1,W1,BPOOL(BIN11),BIN12«, t00=0x000a, t01=0x00fc}
0x10c4…10de Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=X'3F'«, t00=0x000a, t01=0x0128}
0x10de…10fe Head {h00=0x001c, h01=0x0050, text=» CALL MSKOUT,BIN13,BIN3 «, t00=0x000a, t01=0x0142}
0x10fe…1116 Head {h00=0x0014, h01=0x0050, text=» ADD BIN13,BIN12«, t00=0x000a, t01=0x0162}
0x1116…1126 Head {h00=0x000c, h01=0x0050, text=» B B050 «, t00=0x000a, t01=0x017a}
0x1126…1132 Head {h00=0x0008, h01=0x0050, text=»B070«, t00=0x000a, t01=0x018a}
0x1132…1154 Head {h00=0x001e, h01=0x0050, text=» BNOK A250 FORMAT ERROR ? «, t00=0x000b, t01=0x0008}
0x1154…115e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002a}
0x115e…1168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0034}
0x1168…118e Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x000b, t01=0x003e}
0x118e…11ba Head {h00=0x0028, h01=0x0050, text=» PERF DEFIND,BIN7,BIN4 GET FIELD-NR «, t00=0x000b, t01=0x0064}
0x11ba…11ea Head {h00=0x002c, h01=0x0050, text=» IB BIN6,B180,B180 JUMP IF USER OR FIELD«, t00=0x000b, t01=0x0090}
0x11ea…11fa Head {h00=0x000c, h01=0x0050, text=» B B140 «, t00=0x000b, t01=0x00c0}
0x11fa…1206 Head {h00=0x0008, h01=0x0050, text=»B075«, t00=0x000b, t01=0x00d0}
0x1206…1236 Head {h00=0x002c, h01=0x0028, text=» CLEAR BOOL2 INDICATE NO ARITHMETIC DONE«, t00=0x000b, t01=0x00dc}
0x1236…125e Head {h00=0x0024, h01=0x0050, text=» MOVE BCDI21(W1),='0' CLEAR SUM «, t00=0x000b, t01=0x010c}
0x125e…1268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0134}
0x1268…128e Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x000b, t01=0x013e}
0x128e…12ba Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,W0 NEXT BYTE...«, t00=0x000b, t01=0x0164}
0x12ba…12d4 Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'=' «, t00=0x000b, t01=0x0190}
0x12d4…1306 Head {h00=0x002e, h01=0x0050, text=» MATCH STR1A,BIN4,W1,BPOOL(BIN11),BIN12,W1«, t00=0x000c, t01=0x001a}
0x1306…1330 Head {h00=0x0026, h01=0x0050, text=» BOK B100 ..."="-SIGN ? «, t00=0x000c, t01=0x004c}
0x1330…133a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0076}
0x133a…135e Head {h00=0x0020, h01=0x0050, text=» SUB BIN12,W1 ADJUST DISPL. «, t00=0x000c, t01=0x0080}
0x135e…136c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000c, t01=0x00a4}
0x136c…1376 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x00b2}
0x1376…1380 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x00bc}
0x1380…139e Head {h00=0x001a, h01=0x0015, text=»***** EXAMINE ***** «, t00=0x000c, t01=0x00c6}
0x139e…13a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x00e4}
0x13a8…13b4 Head {h00=0x0008, h01=0x0004, text=»B100«, t00=0x000c, t01=0x00ee}
0x13b4…13e4 Head {h00=0x002c, h01=0x0050, text=» CLEAR BOOL6 INDICATE NO ABSOLUTE VALUE «, t00=0x000c, t01=0x00fa}
0x13e4…1414 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN3,W0 RESET SIGN-INDEX (+-SIGN) «, t00=0x000c, t01=0x012a}
0x1414…141e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x015a}
0x141e…142a Head {h00=0x0008, h01=0x0004, text=»B110«, t00=0x000c, t01=0x0164}
0x142a…145a Head {h00=0x002c, h01=0x0050, text=» MOVE BIN10,W0 CLEAR ACTUAL-FIELD-NR... «, t00=0x000c, t01=0x0170}
0x145a…1488 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN9,W0 ...AND RESET TYPE-INDEX «, t00=0x000d, t01=0x0010}
0x1488…14ae Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x000d, t01=0x003e}
0x14ae…14c6 Head {h00=0x0014, h01=0x0050, text=» CMP BIN12,BIN13«, t00=0x000d, t01=0x0064}
0x14c6…14d6 Head {h00=0x000c, h01=0x0050, text=» BG B600«, t00=0x000d, t01=0x007c}
0x14d6…14fa Head {h00=0x0020, h01=0x0050, text=» MOVE STRG10A,=C'!UF+-*:;AS'«, t00=0x000d, t01=0x008c}
0x14fa…1530 Head {h00=0x0032, h01=0x0050, text=» MATCH STRG10A,BIN9,W10,BPOOL(BIN11),BIN12,W1 «, t00=0x000d, t01=0x00b0}
0x1530…1554 Head {h00=0x0020, h01=0x001c, text=» BNOK B200 LITTERAL PREFIX ?«, t00=0x000d, t01=0x00e6}
0x1554…1568 Head {h00=0x0010, h01=0x0050, text=» IB BIN9 C «, t00=0x000d, t01=0x010a}
0x1568…159e Head {h00=0x0032, h01=0x0050, text=» B300,B300,B170,B170,B170,B170,B600,B300,B300«, t00=0x000d, t01=0x011e}
0x159e…15ae Head {h00=0x000c, h01=0x0050, text=» B B160 «, t00=0x000d, t01=0x0154}
0x15ae…15b8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0164}
0x15b8…15c2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x016e}
0x15c2…15ea Head {h00=0x0024, h01=0x001f, text=»***** DUPLICATION FOUND ***** «, t00=0x000d, t01=0x0178}
0x15ea…15f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0010}
0x15f4…1600 Head {h00=0x0008, h01=0x0050, text=»B140«, t00=0x000e, t01=0x001a}
0x1600…162e Head {h00=0x002a, h01=0x0050, text=» CBL BIN7,W1,A250 DUPL-NR NOT > ZERO ?«, t00=0x000e, t01=0x0026}
0x162e…1668 Head {h00=0x0036, h01=0x0050, text=» CBNL BIN7,DEBINW3,A250 DUPL-NR NOT < "CURRENT" ? «, t00=0x000e, t01=0x0054}
0x1668…1694 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN1,BIN7 UPDATE DUPL-FIELD-NR«, t00=0x000e, t01=0x008e}
0x1694…16a4 Head {h00=0x000c, h01=0x0050, text=» B A250 «, t00=0x000e, t01=0x00ba}
0x16a4…16b2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000e, t01=0x00ca}
0x16b2…16bc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x00d8}
0x16bc…16c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x00e2}
0x16c6…16ea Head {h00=0x0020, h01=0x001c, text=»***** ABSULUTE VALUE *****«, t00=0x000e, t01=0x00ec}
0x16ea…16f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0110}
0x16f4…1700 Head {h00=0x0008, h01=0x0050, text=»B160«, t00=0x000e, t01=0x011a}
0x1700…172a Head {h00=0x0026, h01=0x0050, text=» SET BOOL6 INDICATE ABSOLUTE VALUE«, t00=0x000e, t01=0x0126}
0x172a…1750 Head {h00=0x0022, h01=0x001e, text=» SET BOOL2 INDICATE ARITHMETIC«, t00=0x000e, t01=0x0150}
0x1750…1760 Head {h00=0x000c, h01=0x0007, text=» B B110 «, t00=0x000e, t01=0x0176}
0x1760…176a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0186}
0x176a…1774 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0190}
0x1774…179a Head {h00=0x0022, h01=0x001d, text=»***** ARITHMETIC SIGN ***** «, t00=0x000f, t01=0x000a}
0x179a…17a4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0030}
0x17a4…17b0 Head {h00=0x0008, h01=0x0004, text=»B170«, t00=0x000f, t01=0x003a}
0x17b0…17d6 Head {h00=0x0022, h01=0x001e, text=» SET BOOL2 INDICATE ARITHMETIC«, t00=0x000f, t01=0x0046}
0x17d6…1800 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN3,BIN9 MOVE TO SIGN-INDEX«, t00=0x000f, t01=0x006c}
0x1800…1826 Head {h00=0x0022, h01=0x0050, text=» SUB BIN3,W3 ADJUST SIGN-INDEX«, t00=0x000f, t01=0x0096}
0x1826…1836 Head {h00=0x000c, h01=0x0007, text=» B B110 «, t00=0x000f, t01=0x00bc}
0x1836…1840 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x00cc}
0x1840…184a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x00d6}
0x184a…1878 Head {h00=0x002a, h01=0x0050, text=»**** OWN FIELD OR USER-VAIABEL **** «, t00=0x000f, t01=0x00e0}
0x1878…1882 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x010e}
0x1882…188e Head {h00=0x0008, h01=0x0050, text=»B180«, t00=0x000f, t01=0x0118}
0x188e…18b6 Head {h00=0x0024, h01=0x0050, text=» CALL EMPTYT,X.PSEU1,X.PSEU2 C «, t00=0x000f, t01=0x0124}
0x18b6…18e2 Head {h00=0x0028, h01=0x0050, text=» X.WB10,DEBINW3 CHECK CURRENT FIELD«, t00=0x000f, t01=0x014c}
0x18e2…18fc Head {h00=0x0016, h01=0x0050, text=» BZ B075 NOT EMPTY«, t00=0x000f, t01=0x0178}
0x18fc…1918 (16, 0, 400) Head {h00=0x0018, h01=0x0050, text=»*CURRENT FIELD EMPTY«, t00=0x0010, t01=0x0004}
0x1918…1938 Head {h00=0x001c, h01=0x0050, text=» CLEAR ME COND GEN FLAG «, t00=0x0010, t01=0x0020}
0x1938…194a Head {h00=0x000e, h01=0x0050, text=» BNZ B075 «, t00=0x0010, t01=0x0040}
0x194a…196e Head {h00=0x0020, h01=0x0050, text=» CBNE BIN6,W2,B190 NOT FIELD«, t00=0x0010, t01=0x0052}
0x196e…1992 Head {h00=0x0020, h01=0x0050, text=» CBE BIN7,W0,B075 IF CURRENT«, t00=0x0010, t01=0x0076}
0x1992…19bc Head {h00=0x0026, h01=0x0050, text=» CBE BIN7,DEBINW3,B075 IF CURRENT «, t00=0x0010, t01=0x009a}
0x19bc…19c8 Head {h00=0x0008, h01=0x0050, text=»B190«, t00=0x0010, t01=0x00c4}
0x19c8…19f8 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN4,BIN13 CALCULATE LENGTH OF... «, t00=0x0010, t01=0x00d0}
0x19f8…1a2a Head {h00=0x002e, h01=0x0050, text=» SUB BIN4,BIN12 ...THE REST OF THE STRING «, t00=0x0010, t01=0x0100}
0x1a2a…1a44 Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C';' «, t00=0x0010, t01=0x0132}
0x1a44…1a76 Head {h00=0x002e, h01=0x0050, text=» MATCH BPOOL(BIN11),BIN12,BIN4,STR1A,W0,W1«, t00=0x0010, t01=0x014c}
0x1a76…1a94 Head {h00=0x001a, h01=0x0050, text=» BNOK A250 NOT FOUND ?«, t00=0x0010, t01=0x017e}
0x1a94…1aa4 Head {h00=0x000c, h01=0x0050, text=» B B050 «, t00=0x0011, t01=0x000c}
0x1aa4…1ab2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x001c}
0x1ab2…1abc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x002a}
0x1abc…1ac6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0034}
0x1ac6…1ae4 Head {h00=0x001a, h01=0x0016, text=»***** LITTERAL *****«, t00=0x0011, t01=0x003e}
0x1ae4…1aee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x005c}
0x1aee…1afa Head {h00=0x0008, h01=0x0004, text=»B200«, t00=0x0011, t01=0x0066}
0x1afa…1b24 Head {h00=0x0026, h01=0x0050, text=» MOVE DEINPUT,HEX00 CLEAR WORKITEM«, t00=0x0011, t01=0x0072}
0x1b24…1b3c Head {h00=0x0014, h01=0x0050, text=» MOVE BIN10,W0 "«, t00=0x0011, t01=0x009c}
0x1b3c…1b80 Head {h00=0x0040, h01=0x0050, text=» XCOPY BIN10,W1,W1,BPOOL(BIN11),BIN12 GET LITTERAL-PREFIX «, t00=0x0011, t01=0x00b4}
0x1b80…1ba4 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN9,=X'3F' REMOVE... «, t00=0x0011, t01=0x00f8}
0x1ba4…1bce Head {h00=0x0026, h01=0x0050, text=» CALL MSKOUT,BIN9,BIN10 ...FLAGGS «, t00=0x0011, t01=0x011c}
0x1bce…1bf4 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0011, t01=0x0146}
0x1bf4…1c34 Head {h00=0x003c, h01=0x0050, text=» COPY DEINPUT,W0,BIN9,BPOOL(BIN11),BIN12 GET LITTERAL «, t00=0x0011, t01=0x016c}
0x1c34…1c56 Head {h00=0x001e, h01=0x0050, text=» SUB BIN9,W1 ADJUST INDEX «, t00=0x0012, t01=0x001c}
0x1c56…1c7e Head {h00=0x0024, h01=0x0050, text=» ADD BIN12,BIN9 INCREASE DISPL. «, t00=0x0012, t01=0x003e}
0x1c7e…1c8e Head {h00=0x000c, h01=0x0050, text=» B B500 «, t00=0x0012, t01=0x0066}
0x1c8e…1c9c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0012, t01=0x0076}
0x1c9c…1ca6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0084}
0x1ca6…1cb0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x008e}
0x1cb0…1cdc Head {h00=0x0028, h01=0x0050, text=»***** USER- OR FORMAT-VALUE ***** «, t00=0x0012, t01=0x0098}
0x1cdc…1ce6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x00c4}
0x1ce6…1cf2 Head {h00=0x0008, h01=0x0004, text=»B300«, t00=0x0012, t01=0x00ce}
0x1cf2…1d1c Head {h00=0x0026, h01=0x0050, text=» MOVE DEINPUT,HEX00 CLEAR WORKITEM«, t00=0x0012, t01=0x00da}
0x1d1c…1d34 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN10,W0 "«, t00=0x0012, t01=0x0104}
0x1d34…1d5a Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0012, t01=0x011c}
0x1d5a…1d86 Head {h00=0x0028, h01=0x0050, text=» PERF DEFIND,BIN10,BIN4 GET FIELD-NR«, t00=0x0012, t01=0x0142}
0x1d86…1d90 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x016e}
0x1d90…1daa Head {h00=0x0016, h01=0x0050, text=» IB BIN9,B310,B320«, t00=0x0012, t01=0x0178}
0x1daa…1ddc (19, 0, 400) Head {h00=0x002e, h01=0x0050, text=» CBE BIN9,W9,B315 JUMP IF SYSTEM VARIABLE «, t00=0x0013, t01=0x0004}
0x1ddc…1dfa Head {h00=0x001a, h01=0x0050, text=» HANDLE ACCUMULATORS«, t00=0x0013, t01=0x0036}
0x1dfa…1e1c Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN10,ACK(W1)«, t00=0x0013, t01=0x0054}
0x1e1c…1e3c Head {h00=0x001c, h01=0x0050, text=» BNOK A250 OUT OF RANGE «, t00=0x0013, t01=0x0076}
0x1e3c…1e5c Head {h00=0x001c, h01=0x0050, text=» MOVE DEINPUT,ACK(BIN10)«, t00=0x0013, t01=0x0096}
0x1e5c…1e6c Head {h00=0x000c, h01=0x0050, text=» B B500 «, t00=0x0013, t01=0x00b6}
0x1e6c…1e90 Head {h00=0x0020, h01=0x0050, text=»B310 HANDLE USERVARIABELS «, t00=0x0013, t01=0x00c6}
0x1e90…1e9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ea}
0x1e9a…1ebe Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,BIN10,USEV(W1) «, t00=0x0013, t01=0x00f4}
0x1ebe…1ed0 Head {h00=0x000e, h01=0x0050, text=» BOK B350 «, t00=0x0013, t01=0x0118}
0x1ed0…1ee0 Head {h00=0x000c, h01=0x0050, text=» B A250 «, t00=0x0013, t01=0x012a}
0x1ee0…1eea Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x013a}
0x1eea…1f10 Head {h00=0x0022, h01=0x0050, text=»B315 HANDLE SYSTEM VARIABLE «, t00=0x0013, t01=0x0144}
0x1f10…1f34 Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,BIN10,SYSV(W1) «, t00=0x0013, t01=0x016a}
0x1f34…1f56 Head {h00=0x001e, h01=0x0050, text=» BNOK A250 IF OUT OF RANGE«, t00=0x0013, t01=0x018e}
0x1f56…1f6c Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W4 «, t00=0x0014, t01=0x0020}
0x1f6c…1f7c Head {h00=0x000c, h01=0x0050, text=» B B350 «, t00=0x0014, t01=0x0036}
0x1f7c…1f86 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0046}
0x1f86…1fa8 Head {h00=0x001e, h01=0x001a, text=»***** FORMAT-FIELD *****«, t00=0x0014, t01=0x0050}
0x1fa8…1fb2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0072}
0x1fb2…1fbe Head {h00=0x0008, h01=0x0004, text=»B320«, t00=0x0014, t01=0x007c}
0x1fbe…1fec Head {h00=0x002a, h01=0x0050, text=» CBNE BIN10,W0,B330 "CURRENT FIELD" ? «, t00=0x0014, t01=0x0088}
0x1fec…2022 Head {h00=0x0032, h01=0x0050, text=» MOVE BIN10,DEBINW3 UPDATE INDEX WITH CURRENT «, t00=0x0014, t01=0x00b6}
0x2022…202c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ec}
0x202c…2038 Head {h00=0x0008, h01=0x0050, text=»B330«, t00=0x0014, t01=0x00f6}
0x2038…207a Head {h00=0x003e, h01=0x0050, text=» CALL TYPET,BIN4,X.PSEU1,X.PSEU2,X.WB10,BIN10 F-ITEM IS...«, t00=0x0014, t01=0x0102}
0x207a…20a4 Head {h00=0x0026, h01=0x0050, text=» CBE BIN4,W3,B350 ...A STRG-ITEM ?«, t00=0x0014, t01=0x0144}
0x20a4…20ae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x016e}
0x20ae…20b8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0178}
0x20b8…20f0 Head {h00=0x0034, h01=0x0050, text=»***** USER- OR FORMAT-VALUE TO WORKITEM ***** «, t00=0x0014, t01=0x0182}
0x20f0…20fa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x002a}
0x20fa…213c Head {h00=0x003e, h01=0x0050, text=» CON X.MOVE,DEINPUT,X.PSEU1,X.PSEU2,X.WB10,BIN10 BCD-ITEM «, t00=0x0015, t01=0x0034}
0x213c…214c Head {h00=0x000c, h01=0x0050, text=» B B500 «, t00=0x0015, t01=0x0076}
0x214c…2156 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0086}
0x2156…2162 Head {h00=0x0008, h01=0x0004, text=»B350«, t00=0x0015, t01=0x0090}
0x2162…218e Head {h00=0x0028, h01=0x0050, text=» EDIT DEINPUT,WFORM(BIN9) STRG-ITEM «, t00=0x0015, t01=0x009c}
0x218e…219c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0015, t01=0x00c8}
0x219c…21a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00d6}
0x21a6…21b0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00e0}
0x21b0…21d8 Head {h00=0x0024, h01=0x0020, text=»***** EXECUTE ARITHMETIC *****«, t00=0x0015, t01=0x00ea}
0x21d8…21e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0112}
0x21e2…21ee Head {h00=0x0008, h01=0x0050, text=»B500«, t00=0x0015, t01=0x011c}
0x21ee…2224 Head {h00=0x0032, h01=0x0050, text=» MOVE BCDI21(W2),DEINPUT VALUE TO BCD-WORKITEM«, t00=0x0015, t01=0x0128}
0x2224…2250 Head {h00=0x0028, h01=0x0050, text=» TBF BOOL6,B510 NO ABSOLUTE VALUE ? «, t00=0x0015, t01=0x015e}
0x2250…228a Head {h00=0x0036, h01=0x0050, text=» COPY BCDI21(W2),W0,W1,D1,W0 "+-SIGN" TO WORKITEM«, t00=0x0015, t01=0x018a}
0x228a…2296 Head {h00=0x0008, h01=0x0050, text=»B510«, t00=0x0016, t01=0x0034}
0x2296…22b6 Head {h00=0x001c, h01=0x0050, text=» IB BIN3,B520,B530,B540 «, t00=0x0016, t01=0x0040}
0x22b6…22dc Head {h00=0x0022, h01=0x0050, text=» ADD BCDI21(W1),BCDI21(W2) "+"«, t00=0x0016, t01=0x0060}
0x22dc…22ec Head {h00=0x000c, h01=0x0050, text=» B B100 «, t00=0x0016, t01=0x0086}
0x22ec…22f8 Head {h00=0x0008, h01=0x0050, text=»B520«, t00=0x0016, t01=0x0096}
0x22f8…231e Head {h00=0x0022, h01=0x0050, text=» SUB BCDI21(W1),BCDI21(W2) "-"«, t00=0x0016, t01=0x00a2}
0x231e…232e Head {h00=0x000c, h01=0x0050, text=» B B100 «, t00=0x0016, t01=0x00c8}
0x232e…233a Head {h00=0x0008, h01=0x0050, text=»B530«, t00=0x0016, t01=0x00d8}
0x233a…2360 Head {h00=0x0022, h01=0x0050, text=» MUL BCDI21(W1),BCDI21(W2) "*"«, t00=0x0016, t01=0x00e4}
0x2360…2370 Head {h00=0x000c, h01=0x0050, text=» B B100 «, t00=0x0016, t01=0x010a}
0x2370…237c Head {h00=0x0008, h01=0x0050, text=»B540«, t00=0x0016, t01=0x011a}
0x237c…23a2 Head {h00=0x0022, h01=0x0050, text=» DIV BCDI21(W1),BCDI21(W2) ":"«, t00=0x0016, t01=0x0126}
0x23a2…23b0 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0016, t01=0x014c}
0x23b0…23ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x015a}
0x23ba…23c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0164}
0x23c4…23ee Head {h00=0x0026, h01=0x0021, text=»***** UPDATE RESULT-FIELD ***** «, t00=0x0016, t01=0x016e}
0x23ee…23f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0008}
0x23f8…2404 Head {h00=0x0008, h01=0x0004, text=»B600«, t00=0x0017, t01=0x0012}
0x2404…2430 Head {h00=0x0028, h01=0x0050, text=» TBF BOOL2,B610 NO ARITHMETIC DONE ?«, t00=0x0017, t01=0x001e}
0x2430…245c Head {h00=0x0028, h01=0x0050, text=» MOVE DEINPUT,HEX00 CLEAR STRG-WORK «, t00=0x0017, t01=0x004a}
0x245c…248c Head {h00=0x002c, h01=0x0050, text=» MOVE BIN10,W0 MOVE SUM TO STRG-WORK... «, t00=0x0017, t01=0x0076}
0x248c…24c6 Head {h00=0x0036, h01=0x0050, text=» EDSUB DEINPUT,BIN10,WF3 ...AND GET LENGTH OF SUM «, t00=0x0017, t01=0x00a6}
0x24c6…24d2 Head {h00=0x0008, h01=0x0050, text=»B610«, t00=0x0017, t01=0x00e0}
0x24d2…24fa Head {h00=0x0024, h01=0x0050, text=» CBE BIN6,W2,B620 FORMAT-FIELD ?«, t00=0x0017, t01=0x00ec}
0x24fa…2512 Head {h00=0x0014, h01=0x0050, text=» USER-VARIABEL«, t00=0x0017, t01=0x0114}
0x2512…2534 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN7,USEV(W1)«, t00=0x0017, t01=0x012c}
0x2534…2554 Head {h00=0x001c, h01=0x0050, text=» BNOK A250 OUT OF RANGE «, t00=0x0017, t01=0x014e}
0x2554…258c Head {h00=0x0034, h01=0x0050, text=» MOVE USEV(BIN7),DEINPUT RESULT TO USER-VARIABLE«, t00=0x0017, t01=0x016e}
0x258c…259c Head {h00=0x000c, h01=0x0050, text=» B B050 «, t00=0x0018, t01=0x0016}
0x259c…25a6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x0026}
0x25a6…25b2 Head {h00=0x0008, h01=0x0004, text=»B620«, t00=0x0018, t01=0x0030}
0x25b2…25de Head {h00=0x0028, h01=0x0050, text=» CBNE BIN7,W0,B640 CURRENT FIELD ?? «, t00=0x0018, t01=0x003c}
0x25de…2612 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN7,DEBINW3 UPDATE WITH CURRENT INDEX«, t00=0x0018, t01=0x0068}
0x2612…261c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x009c}
0x261c…2628 Head {h00=0x0008, h01=0x0004, text=»B640«, t00=0x0018, t01=0x00a6}
0x2628…264e Head {h00=0x0022, h01=0x0050, text=» CALL GETFWD,BIN4,0,BIN7,BIN9 «, t00=0x0018, t01=0x00b2}
0x264e…2668 Head {h00=0x0016, h01=0x0050, text=» CALL ADJUST,BIN4 «, t00=0x0018, t01=0x00d8}
0x2668…2672 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x00f2}
0x2672…2696 Head {h00=0x0020, h01=0x0050, text=» GETCTL 1,BIN9 GET MAXLENGTH«, t00=0x0018, t01=0x00fc}
0x2696…26a8 Head {h00=0x000e, h01=0x0050, text=» TSTCTL 0 «, t00=0x0018, t01=0x0120}
0x26a8…26c8 Head {h00=0x001c, h01=0x0050, text=» BNZ ALPHA JUMP IF ALPHA«, t00=0x0018, t01=0x0132}
0x26c8…26e4 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0018, t01=0x0152}
0x26e4…26fa Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0018, t01=0x016e}
0x26fa…271a Head {h00=0x001c, h01=0x0050, text=» EDSUB DEINPUT,BIN10,WF3«, t00=0x0018, t01=0x0184}
0x271a…2744 Head {h00=0x0026, h01=0x0050, text=» SUB BIN10,W1 ADJUST LENGTH OF SUM«, t00=0x0019, t01=0x0014}
0x2744…276e Head {h00=0x0026, h01=0x0050, text=» CMP BIN10,BIN9 RESULT LEN VS MAXL«, t00=0x0019, t01=0x003e}
0x276e…277e Head {h00=0x000c, h01=0x0050, text=» BE NUM «, t00=0x0019, t01=0x0068}
0x277e…278e Head {h00=0x000c, h01=0x0050, text=» BG B650«, t00=0x0019, t01=0x0078}
0x278e…27ae Head {h00=0x001c, h01=0x0050, text=» GETCTL 2,BIN9 GET MINL «, t00=0x0019, t01=0x0088}
0x27ae…27e6 Head {h00=0x0034, h01=0x0050, text=» CBNL BIN10,BIN9,NUM IF RESULT LEN NOT LESS MINL«, t00=0x0019, t01=0x00a8}
0x27e6…2816 Head {h00=0x002c, h01=0x0050, text=» SUB BIN9,BIN10 CALCULATE MISSING ZEROES«, t00=0x0019, t01=0x00e0}
0x2816…283e Head {h00=0x0024, h01=0x0050, text=» MOVE STR64A,=X'30' LOAD ZEROES «, t00=0x0019, t01=0x0110}
0x283e…287a Head {h00=0x0038, h01=0x0050, text=» INSERT DEINPUT,W1,BIN9,STR64A,W0 ADD MISSING ZEROES«, t00=0x0019, t01=0x0138}
0x287a…2888 Head {h00=0x000a, h01=0x0050, text=» B NUM«, t00=0x0019, t01=0x0174}
0x2888…2894 Head {h00=0x0008, h01=0x0004, text=»B650«, t00=0x0019, t01=0x0182}
0x2894…28bc Head {h00=0x0024, h01=0x0050, text=» SUB BIN10,BIN9 CLEAR BYTE IN...«, t00=0x0019, t01=0x018e}
0x28bc…28dc Head {h00=0x001c, h01=0x0050, text=» DLETE DEINPUT,W1,BIN10 «, t00=0x001a, t01=0x0026}
0x28dc…28e8 Head {h00=0x0008, h01=0x0050, text=»NUM «, t00=0x001a, t01=0x0046}
0x28e8…2924 Head {h00=0x0038, h01=0x0050, text=» CBE BCDI21(W1),:FMTITEM,CONT DONT DISPLAY IF EQUAL «, t00=0x001a, t01=0x0052}
0x2924…2932 Head {h00=0x000a, h01=0x0050, text=»NUM100«, t00=0x001a, t01=0x008e}
0x2932…2960 Head {h00=0x002a, h01=0x0050, text=» ERASE 1,BIN7,BIN7 ERASE OLD CONTENTS «, t00=0x001a, t01=0x009c}
0x2960…297a Head {h00=0x0016, h01=0x0050, text=» UPDFLD 1,DEINPUT «, t00=0x001a, t01=0x00ca}
0x297a…2986 Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x001a, t01=0x00e4}
0x2986…29bc Head {h00=0x0032, h01=0x0050, text=» CBE BIN7,DEBINW3,FINISH JUMP IF NOT OWN FIELD«, t00=0x001a, t01=0x00f0}
0x29bc…29f0 Head {h00=0x0030, h01=0x0050, text=» GETFLD 0,DEBINW3,BIN7 GET OWN FIELD CURRENT«, t00=0x001a, t01=0x0126}
0x29f0…29fe Head {h00=0x000a, h01=0x0050, text=»FINISH«, t00=0x001a, t01=0x015a}
0x29fe…2a0e Head {h00=0x000c, h01=0x0050, text=» B B050 «, t00=0x001a, t01=0x0168}
0x2a0e…2a1c Head {h00=0x000a, h01=0x0050, text=»ALPHA «, t00=0x001a, t01=0x0178}
0x2a1c…2a32 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x001a, t01=0x0186}
0x2a32…2a64 Head {h00=0x002e, h01=0x0050, text=» MATCH DEINPUT,BIN4,BIN9,:FMTITEM,W0,BIN9 «, t00=0x001b, t01=0x000c}
0x2a64…2a88 Head {h00=0x0020, h01=0x0050, text=» BOK CONT IF EQUAL CONTENTS «, t00=0x001b, t01=0x003e}
0x2a88…2a9a Head {h00=0x000e, h01=0x0050, text=» B NUM100 «, t00=0x001b, t01=0x0062}
0x2a9a…2aa4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0074}
0x2aa4…2ab2 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x001b, t01=0x007e}
0x2ab2…2abc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x008c}
0x2abc…2ac8 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x001b, t01=0x0096}
0x2ac8…2acc Head {h00=0x4004, h01=0x0000}
0x2acc…2ad0 00 1b 00 a2 ┆ ┆
0x2ad0…2ad8 (28, 1, 8) 20 04 00 00 00 1c 00 04 ┆ ┆