|
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: 14166 (0x3756)
Notes: pts_type(SC)
Names: »DEGENE.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DEGENE.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DEGENE.SC«
IDENT DEGENE REL 10.0 80-04-11 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 * 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 BIN2 GET CURRENT-FIELD NR SETCUR 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 A800 OUT OF FORMAT ? SET BOOL4 INDICATE DUPL CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13 BOK EXGEN * * ***** FORMAT-ERROR DETECTED ***** * A800 * PERF SETERR,W2 * ***** RETURN TO CALLING MODULE ***** * A900 TBF BOOL1,A910 "CURRENT-FIELD" CURRENT ? CALL GETFWD,DEBINW4,0,BIN2,BIN4 MAKE CURRENT CALL ADJUST,DEBINW4 FIELD CURRENT A910 ADD BCD2A,BCD2A 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 CLEAR DOOLB BNZ B120 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 B120 FORMAT ERROR ? * * ADD BIN12,W1 INCREASE DISPL. XCOPY BIN7,W1,W1,BPOOL(BIN11),BIN12 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 * * ***** FORMAT-ERROR DETECTED ***** * B120 PERF SETERR,W2 ERROR-CODE = 2 * * * ***** END OF STRING REACHED ***** * B A250 RETURN TO MAIN-MODULE * * ***** DUPLICATION FOUND ***** * B140 CBL BIN7,W1,B120 DUPL-NR NOT > ZERO ? CBNL BIN7,BIN2,B120 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,X.WB10,BIN2 CHECK CURRENT FIELD BZ B075 NOT EMPTY *CURRENT FIELD EMPTY CBNE BIN6,W2,B190 NOT FIELD CBE BIN7,W0,B075 IF CURRENT CBE BIN7,BIN2,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. XCOPY BIN10,W1,W1,BPOOL(BIN11),BIN12 GET FIELD-NR * IB BIN9,B310,B320 CBE BIN9,W9,B315 JUMP IF SYSTEM VARIABLE HANDLE ACCUMULATORS CALL CMPIND,BIN10,ACK(W1) BNOK B120 OUT OF RANGE MOVE DEINPUT,ACK(BIN10) B B500 B310 HANDLE USERVARIABELS * CALL CMPIND,BIN10,USEV(W1) BOK B350 B B120 * B315 HANDLE SYSTEM VARIABLE CALL CMPIND,BIN10,SYSV(W1) BNOK B120 IF OUT OF RANGE MOVE BIN9,W4 B B350 * ***** FORMAT-FIELD ***** * B320 CBNE BIN10,W0,B330 "CURRENT FIELD" ? MOVE BIN10,BIN2 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 B550 B520 SUB BCDI21(W1),BCDI21(W2) "-" B B550 B530 MUL BCDI21(W1),BCDI21(W2) "*" B B550 B540 DIV BCDI21(W1),BCDI21(W2) ":" * B550 BOFL B560 B B100 * B560 PERF SETERR,W3 ERROR-CODE = 3 B B100 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 B120 OUT OF RANGE MOVE USEV(BIN7),DEINPUT RESULT TO USER-VARIABLE B B050 * B620 CBNE BIN7,W0,B640 CURRENT FIELD ?? MOVE BIN7,BIN2 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,BIN2,FINISH JUMP IF NOT OWN FIELD GETFLD 0,BIN2,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 * EJECT * ************************************************************************ * * SUB-ROUTINE FOR SETTING THE ERROR-CODE * ************************************************************************ * SETERR PROC ERRIND X000 IB ERRIND,X100,X200,X300 * X100 MOVE BCD2A,D1 UNDEFINED ERROR B X900 * X200 MOVE BCD2A,='-1' FORMAT-ERROR B X900 * X300 MOVE BCD2A,='9' OVERFLOW * * X900 RET * 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…0040 Head {h00=0x0014, h01=0x0050, text=» 80-04-10/DALI«, t00=0x0000, t01=0x002c}
0x0040…004a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0044}
0x004a…009a Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0000, t01=0x004e}
0x009a…00a4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x009e}
0x00a4…00e2 Head {h00=0x003a, h01=0x0036, text=»* SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800«, t00=0x0000, t01=0x00a8}
0x00e2…00ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00e6}
0x00ec…0130 Head {h00=0x0040, h01=0x003b, text=»* AFTER ENTERING AN ELEMENT IN THE PICTURE THIS MODULE «, t00=0x0000, t01=0x00f0}
0x0130…0172 Head {h00=0x003e, h01=0x003a, text=»* CHECKS IF THERE IS A "FGEN-STRING" ATTACHED TO THAT«, t00=0x0000, t01=0x0134}
0x0172…01ac Head {h00=0x0036, h01=0x0031, text=»* ELEMENT AND IF SO EXECUTES THE GENERATION. «, t00=0x0000, t01=0x0176}
0x01ac…01b6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0020}
0x01b6…01e0 Head {h00=0x0026, h01=0x0021, text=»* GENERATION CAN BE DONE TO: «, t00=0x0001, t01=0x002a}
0x01e0…020e Head {h00=0x002a, h01=0x0050, text=»* - AN ELEMENT IN THE PICTURE«, t00=0x0001, t01=0x0054}
0x020e…0234 Head {h00=0x0022, h01=0x001d, text=»* - AN USER-VARIABLE «, t00=0x0001, t01=0x0082}
0x0234…023e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x00a8}
0x023e…028e Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0001, t01=0x00b2}
0x028e…0298 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0102}
0x0298…02ac Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0001, t01=0x010c}
0x02ac…02ba Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0001, t01=0x0120}
0x02ba…02c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x012e}
0x02c4…02ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0138}
0x02ce…02ec Head {h00=0x001a, h01=0x0015, text=»***** ENTRIES ***** «, t00=0x0001, t01=0x0142}
0x02ec…02f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0160}
0x02f6…030a Head {h00=0x0010, h01=0x000c, text=» ENTRY DEGEN«, t00=0x0001, t01=0x016a}
0x030a…0314 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x017e}
0x0314…031e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0188}
0x031e…033e (2, 0, 398) Head {h00=0x001c, h01=0x0017, text=»***** EXTERNALS ***** «, t00=0x0002, t01=0x0004}
0x033e…0348 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0024}
0x0348…035c Head {h00=0x0010, h01=0x000b, text=» EXT GETGEN «, t00=0x0002, t01=0x002e}
0x035c…0370 Head {h00=0x0010, h01=0x000b, text=» EXT MSKOUT «, t00=0x0002, t01=0x0042}
0x0370…0382 Head {h00=0x000e, h01=0x000a, text=» EXT TYPET«, t00=0x0002, t01=0x0056}
0x0382…0396 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0002, t01=0x0068}
0x0396…03aa Head {h00=0x0010, h01=0x0050, text=» EXT DENVAL «, t00=0x0002, t01=0x007c}
0x03aa…03be Head {h00=0x0010, h01=0x0050, text=» EXT GETFWD «, t00=0x0002, t01=0x0090}
0x03be…03d2 Head {h00=0x0010, h01=0x0050, text=» EXT ADJUST «, t00=0x0002, t01=0x00a4}
0x03d2…03f4 Head {h00=0x001e, h01=0x0050, text=» EXT CMPIND COMPARE INDEX «, t00=0x0002, t01=0x00b8}
0x03f4…03fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00da}
0x03fe…0416 Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0002, t01=0x00e4}
0x0416…0424 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0002, t01=0x00fc}
0x0424…042e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x010a}
0x042e…0438 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0114}
0x0438…0464 Head {h00=0x0028, h01=0x0023, text=»***** INTERNAL WORK-FORMATS ***** «, t00=0x0002, t01=0x011e}
0x0464…046e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x014a}
0x046e…0492 Head {h00=0x0020, h01=0x0050, text=»WFORM FTABLE WF1,WF2,WF3,WF4«, t00=0x0002, t01=0x0154}
0x0492…049c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0178}
0x049c…04ac Head {h00=0x000c, h01=0x0008, text=»WF1 FRMT«, t00=0x0002, t01=0x0182}
0x04ac…04c6 (3, 0, 398) Head {h00=0x0016, h01=0x0050, text=» FCOPY USEV(BIN10)«, t00=0x0003, t01=0x0004}
0x04c6…04d4 Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x0003, t01=0x001e}
0x04d4…04de Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x002c}
0x04de…04ee Head {h00=0x000c, h01=0x0050, text=»WF2 FRMT«, t00=0x0003, t01=0x0036}
0x04ee…051e Head {h00=0x002c, h01=0x0050, text=» FCTL X'C0',X.PSEU1,X.PSEU2,X.WB10,BIN10«, t00=0x0003, t01=0x0046}
0x051e…052c Head {h00=0x000a, h01=0x0006, text=» FMEND«, t00=0x0003, t01=0x0076}
0x052c…0536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0084}
0x0536…0546 Head {h00=0x000c, h01=0x0050, text=»WF3 FRMT«, t00=0x0003, t01=0x008e}
0x0546…0578 Head {h00=0x002e, h01=0x0050, text=» FMEL '+TTTTTTTTTTTTTTTTTTTT9',BCDI21(W1) «, t00=0x0003, t01=0x009e}
0x0578…0586 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0003, t01=0x00d0}
0x0586…0590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00de}
0x0590…05a0 Head {h00=0x000c, h01=0x0050, text=»WF4 FRMT«, t00=0x0003, t01=0x00e8}
0x05a0…05ba Head {h00=0x0016, h01=0x0050, text=» FCOPY SYSV(BIN10)«, t00=0x0003, t01=0x00f8}
0x05ba…05c8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0003, t01=0x0112}
0x05c8…05d6 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0003, t01=0x0120}
0x05d6…05e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x012e}
0x05e0…0630 Head {h00=0x004c, h01=0x004f, text=»************************************************************************«, t00=0x0003, t01=0x0138}
0x0630…063a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0188}
0x063a…0664 (4, 0, 400) Head {h00=0x0026, h01=0x0022, text=»* MAIN-ROUTINE FOR GENERATION«, t00=0x0004, t01=0x0004}
0x0664…066e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x002e}
0x066e…06be Head {h00=0x004c, h01=0x004f, text=»************************************************************************«, t00=0x0004, t01=0x0038}
0x06be…06c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0088}
0x06c8…06da Head {h00=0x000e, h01=0x000a, text=»DEGEN PROC«, t00=0x0004, t01=0x0092}
0x06da…06e6 Head {h00=0x0008, h01=0x0004, text=»A000«, t00=0x0004, t01=0x00a4}
0x06e6…0714 Head {h00=0x002a, h01=0x0026, text=» MOVE BCD2A,='0' CLEAR ERROR INDICATOR«, t00=0x0004, t01=0x00b0}
0x0714…0740 Head {h00=0x0028, h01=0x0024, text=» CLEAR BOOL1 CLEAR CURRENT-INDICATOR«, t00=0x0004, t01=0x00de}
0x0740…076a Head {h00=0x0026, h01=0x0021, text=» CLEAR BOOL4 CLEAR DUPL-INDICATOR «, t00=0x0004, t01=0x010a}
0x076a…0794 Head {h00=0x0026, h01=0x0050, text=» GETABX BIN2 GET CURRENT-FIELD NR «, t00=0x0004, t01=0x0134}
0x0794…07a4 Head {h00=0x000c, h01=0x0050, text=» SETCUR «, t00=0x0004, t01=0x015e}
0x07a4…07c2 Head {h00=0x001a, h01=0x0050, text=» B EXGEN "PERF" EXGEN «, t00=0x0004, t01=0x016e}
0x07c2…07ce Head {h00=0x0008, h01=0x0050, text=»A250«, t00=0x0004, t01=0x018c}
0x07ce…07f8 Head {h00=0x0026, h01=0x0050, text=» CBE BIN1,W0,A900 NO DUPL FOUND ? «, t00=0x0005, t01=0x0008}
0x07f8…0824 Head {h00=0x0028, h01=0x0023, text=» SET BOOL1 INDICATE CHANGED CURRENT «, t00=0x0005, t01=0x0032}
0x0824…0856 Head {h00=0x002e, h01=0x0050, text=» CALL GETFWD,DEBINW4,0,BIN1,BIN4 MAKE DUPL«, t00=0x0005, t01=0x005e}
0x0856…0880 Head {h00=0x0026, h01=0x0050, text=» CALL ADJUST,DEBINW4 ITEM CURRENT «, t00=0x0005, t01=0x0090}
0x0880…08a2 Head {h00=0x001e, h01=0x001a, text=» BERR A800 OUT OF FORMAT ?«, t00=0x0005, t01=0x00ba}
0x08a2…08c2 Head {h00=0x001c, h01=0x0018, text=» SET BOOL4 INDICATE DUPL«, t00=0x0005, t01=0x00dc}
0x08c2…08f2 Head {h00=0x002c, h01=0x0050, text=» CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x0005, t01=0x00fc}
0x08f2…0904 Head {h00=0x000e, h01=0x0050, text=» BOK EXGEN«, t00=0x0005, t01=0x012c}
0x0904…090e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x013e}
0x090e…0918 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0148}
0x0918…0944 Head {h00=0x0028, h01=0x0023, text=»***** FORMAT-ERROR DETECTED ***** «, t00=0x0005, t01=0x0152}
0x0944…094e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x017e}
0x094e…095a Head {h00=0x0008, h01=0x0004, text=»A800«, t00=0x0005, t01=0x0188}
0x095a…0964 (6, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0004}
0x0964…097c Head {h00=0x0014, h01=0x0050, text=» PERF SETERR,W2 «, t00=0x0006, t01=0x000e}
0x097c…0986 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0026}
0x0986…09b4 Head {h00=0x002a, h01=0x0026, text=»***** RETURN TO CALLING MODULE *****«, t00=0x0006, t01=0x0030}
0x09b4…09be Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x005e}
0x09be…09ca Head {h00=0x0008, h01=0x0004, text=»A900«, t00=0x0006, t01=0x0068}
0x09ca…09fc Head {h00=0x002e, h01=0x0029, text=» TBF BOOL1,A910 "CURRENT-FIELD" CURRENT ? «, t00=0x0006, t01=0x0074}
0x09fc…0a32 Head {h00=0x0032, h01=0x0050, text=» CALL GETFWD,DEBINW4,0,BIN2,BIN4 MAKE CURRENT «, t00=0x0006, t01=0x00a6}
0x0a32…0a5c Head {h00=0x0026, h01=0x0050, text=» CALL ADJUST,DEBINW4 FIELD CURRENT«, t00=0x0006, t01=0x00dc}
0x0a5c…0a68 Head {h00=0x0008, h01=0x0004, text=»A910«, t00=0x0006, t01=0x0106}
0x0a68…0a80 Head {h00=0x0014, h01=0x0050, text=» ADD BCD2A,BCD2A«, t00=0x0006, t01=0x0112}
0x0a80…0a8c Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0006, t01=0x012a}
0x0a8c…0a9a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0006, t01=0x0136}
0x0a9a…0aa4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0144}
0x0aa4…0af4 Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0006, t01=0x014e}
0x0af4…0afe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x000e}
0x0afe…0b48 Head {h00=0x0046, h01=0x0041, text=»* SUBROUTINE FOR EXAMINATION AND EXECUTION OF THE GEN-STRING «, t00=0x0007, t01=0x0018}
0x0b48…0b52 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0062}
0x0b52…0ba2 Head {h00=0x004c, h01=0x004e, text=»************************************************************************«, t00=0x0007, t01=0x006c}
0x0ba2…0bac Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00bc}
0x0bac…0bba Head {h00=0x000a, h01=0x0050, text=»EXGEN «, t00=0x0007, t01=0x00c6}
0x0bba…0bc6 Head {h00=0x0008, h01=0x0004, text=»B000«, t00=0x0007, t01=0x00d4}
0x0bc6…0bea Head {h00=0x0020, h01=0x0050, text=» SUB BIN12,W1 ADJUST DISPL. «, t00=0x0007, t01=0x00e0}
0x0bea…0c20 Head {h00=0x0032, h01=0x0050, text=» ADD BIN13,BIN12 DISPL FOR LAST BYTE IN BIN13 «, t00=0x0007, t01=0x0104}
0x0c20…0c2a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x013a}
0x0c2a…0c54 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,W0 CLEAR DUPL-FIELD-NR «, t00=0x0007, t01=0x0144}
0x0c54…0c62 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0007, t01=0x016e}
0x0c62…0c6c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x017c}
0x0c6c…0c76 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0186}
0x0c76…0c9c Head {h00=0x0022, h01=0x001e, text=»***** GET RESULT-FIELD *****«, t00=0x0007, t01=0x0190}
0x0c9c…0ca6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0026}
0x0ca6…0cb2 Head {h00=0x0008, h01=0x0050, text=»B050«, t00=0x0008, t01=0x0030}
0x0cb2…0cd8 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0008, t01=0x003c}
0x0cd8…0d06 Head {h00=0x002a, h01=0x0050, text=» CBG BIN12,BIN13,A250 END 0F STRING ? «, t00=0x0008, t01=0x0062}
0x0d06…0d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0090}
0x0d10…0d1c Head {h00=0x0008, h01=0x0050, text=»B055«, t00=0x0008, t01=0x009a}
0x0d1c…0d4a Head {h00=0x002a, h01=0x0050, text=» MOVE BIN7,W0 CLEAR RESULT-FIELD-NR...«, t00=0x0008, t01=0x00a6}
0x0d4a…0d78 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN6,W0 ...AND RESET TYPE-INDEX «, t00=0x0008, t01=0x00d4}
0x0d78…0d94 Head {h00=0x0018, h01=0x0050, text=» MOVE STR6B,=C'DUFM'«, t00=0x0008, t01=0x0102}
0x0d94…0dc6 Head {h00=0x002e, h01=0x0050, text=» MATCH STR6B,BIN6,W4,BPOOL(BIN11),BIN12,W1«, t00=0x0008, t01=0x011e}
0x0dc6…0de6 Head {h00=0x001c, h01=0x0050, text=» IB BIN6,B070,B070,B065 «, t00=0x0008, t01=0x0150}
0x0de6…0df6 Head {h00=0x000c, h01=0x0050, text=» B B070 «, t00=0x0008, t01=0x0170}
0x0df6…0e04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0180}
0x0e04…0e0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018e}
0x0e0e…0e36 Head {h00=0x0024, h01=0x0050, text=»* HANDLE CONDITIONAL GENERATION «, t00=0x0009, t01=0x0008}
0x0e36…0e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0030}
0x0e40…0e4c Head {h00=0x0008, h01=0x0050, text=»B065«, t00=0x0009, t01=0x003a}
0x0e4c…0e78 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW1,W0 SET INPUTLENGTH = 0«, t00=0x0009, t01=0x0046}
0x0e78…0ea4 Head {h00=0x0028, h01=0x0050, text=» SUB BIN13,BIN12 PUT DISP INTO BIN13«, t00=0x0009, t01=0x0072}
0x0ea4…0ebc Head {h00=0x0014, h01=0x0050, text=» PERF DENVAL,W2 «, t00=0x0009, t01=0x009e}
0x0ebc…0ed0 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOLB«, t00=0x0009, t01=0x00b6}
0x0ed0…0ee2 Head {h00=0x000e, h01=0x0050, text=» BNZ B120 «, t00=0x0009, t01=0x00ca}
0x0ee2…0f04 Head {h00=0x001e, h01=0x0050, text=» XCOPY BIN12,W1,W1,BIN3,W1«, t00=0x0009, t01=0x00dc}
0x0f04…0f1a Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x0009, t01=0x00fe}
0x0f1a…0f46 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN3,W1,W1,BPOOL(BIN11),BIN12«, t00=0x0009, t01=0x0114}
0x0f46…0f60 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=X'3F'«, t00=0x0009, t01=0x0140}
0x0f60…0f80 Head {h00=0x001c, h01=0x0050, text=» CALL MSKOUT,BIN13,BIN3 «, t00=0x0009, t01=0x015a}
0x0f80…0f98 Head {h00=0x0014, h01=0x0050, text=» ADD BIN13,BIN12«, t00=0x0009, t01=0x017a}
0x0f98…0fa8 (10, 0, 400) Head {h00=0x000c, h01=0x0050, text=» B B050 «, t00=0x000a, t01=0x0004}
0x0fa8…0fb4 Head {h00=0x0008, h01=0x0050, text=»B070«, t00=0x000a, t01=0x0014}
0x0fb4…0fd6 Head {h00=0x001e, h01=0x0050, text=» BNOK B120 FORMAT ERROR ? «, t00=0x000a, t01=0x0020}
0x0fd6…0fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0042}
0x0fe0…0fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004c}
0x0fea…1010 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x000a, t01=0x0056}
0x1010…104a Head {h00=0x0036, h01=0x0050, text=» XCOPY BIN7,W1,W1,BPOOL(BIN11),BIN12 GET FIELD-NR «, t00=0x000a, t01=0x007c}
0x104a…107a Head {h00=0x002c, h01=0x0050, text=» IB BIN6,B180,B180 JUMP IF USER OR FIELD«, t00=0x000a, t01=0x00b6}
0x107a…108a Head {h00=0x000c, h01=0x0050, text=» B B140 «, t00=0x000a, t01=0x00e6}
0x108a…1096 Head {h00=0x0008, h01=0x0050, text=»B075«, t00=0x000a, t01=0x00f6}
0x1096…10c6 Head {h00=0x002c, h01=0x0028, text=» CLEAR BOOL2 INDICATE NO ARITHMETIC DONE«, t00=0x000a, t01=0x0102}
0x10c6…10ee Head {h00=0x0024, h01=0x0050, text=» MOVE BCDI21(W1),='0' CLEAR SUM «, t00=0x000a, t01=0x0132}
0x10ee…10f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015a}
0x10f8…111e Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x000a, t01=0x0164}
0x111e…114a Head {h00=0x0028, h01=0x0050, text=» MOVE BIN4,W0 NEXT BYTE...«, t00=0x000a, t01=0x018a}
0x114a…1164 Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'=' «, t00=0x000b, t01=0x0026}
0x1164…1196 Head {h00=0x002e, h01=0x0050, text=» MATCH STR1A,BIN4,W1,BPOOL(BIN11),BIN12,W1«, t00=0x000b, t01=0x0040}
0x1196…11c0 Head {h00=0x0026, h01=0x0050, text=» BOK B100 ..."="-SIGN ? «, t00=0x000b, t01=0x0072}
0x11c0…11ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x009c}
0x11ca…11ee Head {h00=0x0020, h01=0x0050, text=» SUB BIN12,W1 ADJUST DISPL. «, t00=0x000b, t01=0x00a6}
0x11ee…11fc Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000b, t01=0x00ca}
0x11fc…1206 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x00d8}
0x1206…1210 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x00e2}
0x1210…122e Head {h00=0x001a, h01=0x0015, text=»***** EXAMINE ***** «, t00=0x000b, t01=0x00ec}
0x122e…1238 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x010a}
0x1238…1244 Head {h00=0x0008, h01=0x0004, text=»B100«, t00=0x000b, t01=0x0114}
0x1244…1274 Head {h00=0x002c, h01=0x0050, text=» CLEAR BOOL6 INDICATE NO ABSOLUTE VALUE «, t00=0x000b, t01=0x0120}
0x1274…12a4 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN3,W0 RESET SIGN-INDEX (+-SIGN) «, t00=0x000b, t01=0x0150}
0x12a4…12ae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0180}
0x12ae…12ba Head {h00=0x0008, h01=0x0004, text=»B110«, t00=0x000b, t01=0x018a}
0x12ba…12ea Head {h00=0x002c, h01=0x0050, text=» MOVE BIN10,W0 CLEAR ACTUAL-FIELD-NR... «, t00=0x000c, t01=0x0008}
0x12ea…1318 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN9,W0 ...AND RESET TYPE-INDEX «, t00=0x000c, t01=0x0038}
0x1318…133e Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x000c, t01=0x0066}
0x133e…1356 Head {h00=0x0014, h01=0x0050, text=» CMP BIN12,BIN13«, t00=0x000c, t01=0x008c}
0x1356…1366 Head {h00=0x000c, h01=0x0050, text=» BG B600«, t00=0x000c, t01=0x00a4}
0x1366…138a Head {h00=0x0020, h01=0x0050, text=» MOVE STRG10A,=C'!UF+-*:;AS'«, t00=0x000c, t01=0x00b4}
0x138a…13c0 Head {h00=0x0032, h01=0x0050, text=» MATCH STRG10A,BIN9,W10,BPOOL(BIN11),BIN12,W1 «, t00=0x000c, t01=0x00d8}
0x13c0…13e4 Head {h00=0x0020, h01=0x001c, text=» BNOK B200 LITTERAL PREFIX ?«, t00=0x000c, t01=0x010e}
0x13e4…13f8 Head {h00=0x0010, h01=0x0050, text=» IB BIN9 C «, t00=0x000c, t01=0x0132}
0x13f8…142e Head {h00=0x0032, h01=0x0050, text=» B300,B300,B170,B170,B170,B170,B600,B300,B300«, t00=0x000c, t01=0x0146}
0x142e…143e Head {h00=0x000c, h01=0x0050, text=» B B160 «, t00=0x000c, t01=0x017c}
0x143e…1448 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x018c}
0x1448…1452 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0008}
0x1452…147e Head {h00=0x0028, h01=0x0023, text=»***** FORMAT-ERROR DETECTED ***** «, t00=0x000d, t01=0x0012}
0x147e…1488 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x003e}
0x1488…1494 Head {h00=0x0008, h01=0x0050, text=»B120«, t00=0x000d, t01=0x0048}
0x1494…14ba Head {h00=0x0022, h01=0x001e, text=» PERF SETERR,W2 ERROR-CODE = 2«, t00=0x000d, t01=0x0054}
0x14ba…14c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x007a}
0x14c4…14ce Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0084}
0x14ce…14d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x008e}
0x14d8…1504 Head {h00=0x0028, h01=0x0023, text=»***** END OF STRING REACHED ***** «, t00=0x000d, t01=0x0098}
0x1504…150e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x00c4}
0x150e…1534 Head {h00=0x0022, h01=0x0050, text=» B A250 RETURN TO MAIN-MODULE «, t00=0x000d, t01=0x00ce}
0x1534…153e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x00f4}
0x153e…1548 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x00fe}
0x1548…1570 Head {h00=0x0024, h01=0x001f, text=»***** DUPLICATION FOUND ***** «, t00=0x000d, t01=0x0108}
0x1570…157a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0130}
0x157a…1586 Head {h00=0x0008, h01=0x0050, text=»B140«, t00=0x000d, t01=0x013a}
0x1586…15b4 Head {h00=0x002a, h01=0x0050, text=» CBL BIN7,W1,B120 DUPL-NR NOT > ZERO ?«, t00=0x000d, t01=0x0146}
0x15b4…15ea Head {h00=0x0032, h01=0x0050, text=» CBNL BIN7,BIN2,B120 DUPL-NR NOT < "CURRENT" ?«, t00=0x000d, t01=0x0174}
0x15ea…1616 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN1,BIN7 UPDATE DUPL-FIELD-NR«, t00=0x000e, t01=0x001a}
0x1616…1626 Head {h00=0x000c, h01=0x0050, text=» B A250 «, t00=0x000e, t01=0x0046}
0x1626…1634 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000e, t01=0x0056}
0x1634…163e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0064}
0x163e…1648 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x006e}
0x1648…166c Head {h00=0x0020, h01=0x001c, text=»***** ABSULUTE VALUE *****«, t00=0x000e, t01=0x0078}
0x166c…1676 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x009c}
0x1676…1682 Head {h00=0x0008, h01=0x0050, text=»B160«, t00=0x000e, t01=0x00a6}
0x1682…16ac Head {h00=0x0026, h01=0x0050, text=» SET BOOL6 INDICATE ABSOLUTE VALUE«, t00=0x000e, t01=0x00b2}
0x16ac…16d2 Head {h00=0x0022, h01=0x001e, text=» SET BOOL2 INDICATE ARITHMETIC«, t00=0x000e, t01=0x00dc}
0x16d2…16e2 Head {h00=0x000c, h01=0x0007, text=» B B110 «, t00=0x000e, t01=0x0102}
0x16e2…16ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0112}
0x16ec…16f6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x011c}
0x16f6…171c Head {h00=0x0022, h01=0x001d, text=»***** ARITHMETIC SIGN ***** «, t00=0x000e, t01=0x0126}
0x171c…1726 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x014c}
0x1726…1732 Head {h00=0x0008, h01=0x0004, text=»B170«, t00=0x000e, t01=0x0156}
0x1732…1758 Head {h00=0x0022, h01=0x001e, text=» SET BOOL2 INDICATE ARITHMETIC«, t00=0x000e, t01=0x0162}
0x1758…1782 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN3,BIN9 MOVE TO SIGN-INDEX«, t00=0x000e, t01=0x0188}
0x1782…17a8 Head {h00=0x0022, h01=0x0050, text=» SUB BIN3,W3 ADJUST SIGN-INDEX«, t00=0x000f, t01=0x0022}
0x17a8…17b8 Head {h00=0x000c, h01=0x0007, text=» B B110 «, t00=0x000f, t01=0x0048}
0x17b8…17c2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0058}
0x17c2…17cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0062}
0x17cc…17fa Head {h00=0x002a, h01=0x0050, text=»**** OWN FIELD OR USER-VAIABEL **** «, t00=0x000f, t01=0x006c}
0x17fa…1804 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x009a}
0x1804…1810 Head {h00=0x0008, h01=0x0050, text=»B180«, t00=0x000f, t01=0x00a4}
0x1810…1854 Head {h00=0x0040, h01=0x0050, text=» CALL EMPTYT,X.PSEU1,X.PSEU2,X.WB10,BIN2 CHECK CURRENT FIELD«, t00=0x000f, t01=0x00b0}
0x1854…186e Head {h00=0x0016, h01=0x0050, text=» BZ B075 NOT EMPTY«, t00=0x000f, t01=0x00f4}
0x186e…188a Head {h00=0x0018, h01=0x0050, text=»*CURRENT FIELD EMPTY«, t00=0x000f, t01=0x010e}
0x188a…18ae Head {h00=0x0020, h01=0x0050, text=» CBNE BIN6,W2,B190 NOT FIELD«, t00=0x000f, t01=0x012a}
0x18ae…18d2 Head {h00=0x0020, h01=0x0050, text=» CBE BIN7,W0,B075 IF CURRENT«, t00=0x000f, t01=0x014e}
0x18d2…18f8 Head {h00=0x0022, h01=0x0050, text=» CBE BIN7,BIN2,B075 IF CURRENT«, t00=0x000f, t01=0x0172}
0x18f8…1904 Head {h00=0x0008, h01=0x0050, text=»B190«, t00=0x0010, t01=0x0008}
0x1904…1934 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN4,BIN13 CALCULATE LENGTH OF... «, t00=0x0010, t01=0x0014}
0x1934…1966 Head {h00=0x002e, h01=0x0050, text=» SUB BIN4,BIN12 ...THE REST OF THE STRING «, t00=0x0010, t01=0x0044}
0x1966…1980 Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C';' «, t00=0x0010, t01=0x0076}
0x1980…19b2 Head {h00=0x002e, h01=0x0050, text=» MATCH BPOOL(BIN11),BIN12,BIN4,STR1A,W0,W1«, t00=0x0010, t01=0x0090}
0x19b2…19d0 Head {h00=0x001a, h01=0x0050, text=» BNOK A250 NOT FOUND ?«, t00=0x0010, t01=0x00c2}
0x19d0…19e0 Head {h00=0x000c, h01=0x0050, text=» B B050 «, t00=0x0010, t01=0x00e0}
0x19e0…19ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00f0}
0x19ee…19f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x00fe}
0x19f8…1a02 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0108}
0x1a02…1a20 Head {h00=0x001a, h01=0x0016, text=»***** LITTERAL *****«, t00=0x0010, t01=0x0112}
0x1a20…1a2a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0130}
0x1a2a…1a36 Head {h00=0x0008, h01=0x0004, text=»B200«, t00=0x0010, t01=0x013a}
0x1a36…1a60 Head {h00=0x0026, h01=0x0050, text=» MOVE DEINPUT,HEX00 CLEAR WORKITEM«, t00=0x0010, t01=0x0146}
0x1a60…1a78 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN10,W0 "«, t00=0x0010, t01=0x0170}
0x1a78…1abc Head {h00=0x0040, h01=0x0050, text=» XCOPY BIN10,W1,W1,BPOOL(BIN11),BIN12 GET LITTERAL-PREFIX «, t00=0x0010, t01=0x0188}
0x1abc…1ae0 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN9,=X'3F' REMOVE... «, t00=0x0011, t01=0x003c}
0x1ae0…1b0a Head {h00=0x0026, h01=0x0050, text=» CALL MSKOUT,BIN9,BIN10 ...FLAGGS «, t00=0x0011, t01=0x0060}
0x1b0a…1b30 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0011, t01=0x008a}
0x1b30…1b70 Head {h00=0x003c, h01=0x0050, text=» COPY DEINPUT,W0,BIN9,BPOOL(BIN11),BIN12 GET LITTERAL «, t00=0x0011, t01=0x00b0}
0x1b70…1b92 Head {h00=0x001e, h01=0x0050, text=» SUB BIN9,W1 ADJUST INDEX «, t00=0x0011, t01=0x00f0}
0x1b92…1bba Head {h00=0x0024, h01=0x0050, text=» ADD BIN12,BIN9 INCREASE DISPL. «, t00=0x0011, t01=0x0112}
0x1bba…1bca Head {h00=0x000c, h01=0x0050, text=» B B500 «, t00=0x0011, t01=0x013a}
0x1bca…1bd8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0011, t01=0x014a}
0x1bd8…1be2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0158}
0x1be2…1bec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0162}
0x1bec…1c18 Head {h00=0x0028, h01=0x0050, text=»***** USER- OR FORMAT-VALUE ***** «, t00=0x0011, t01=0x016c}
0x1c18…1c22 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x0008}
0x1c22…1c2e Head {h00=0x0008, h01=0x0004, text=»B300«, t00=0x0012, t01=0x0012}
0x1c2e…1c58 Head {h00=0x0026, h01=0x0050, text=» MOVE DEINPUT,HEX00 CLEAR WORKITEM«, t00=0x0012, t01=0x001e}
0x1c58…1c70 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN10,W0 "«, t00=0x0012, t01=0x0048}
0x1c70…1c96 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0012, t01=0x0060}
0x1c96…1cd2 Head {h00=0x0038, h01=0x0050, text=» XCOPY BIN10,W1,W1,BPOOL(BIN11),BIN12 GET FIELD-NR«, t00=0x0012, t01=0x0086}
0x1cd2…1cdc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0012, t01=0x00c2}
0x1cdc…1cf6 Head {h00=0x0016, h01=0x0050, text=» IB BIN9,B310,B320«, t00=0x0012, t01=0x00cc}
0x1cf6…1d28 Head {h00=0x002e, h01=0x0050, text=» CBE BIN9,W9,B315 JUMP IF SYSTEM VARIABLE «, t00=0x0012, t01=0x00e6}
0x1d28…1d46 Head {h00=0x001a, h01=0x0050, text=» HANDLE ACCUMULATORS«, t00=0x0012, t01=0x0118}
0x1d46…1d68 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN10,ACK(W1)«, t00=0x0012, t01=0x0136}
0x1d68…1d88 Head {h00=0x001c, h01=0x0050, text=» BNOK B120 OUT OF RANGE «, t00=0x0012, t01=0x0158}
0x1d88…1da8 Head {h00=0x001c, h01=0x0050, text=» MOVE DEINPUT,ACK(BIN10)«, t00=0x0012, t01=0x0178}
0x1da8…1db8 Head {h00=0x000c, h01=0x0050, text=» B B500 «, t00=0x0013, t01=0x0008}
0x1db8…1ddc Head {h00=0x0020, h01=0x0050, text=»B310 HANDLE USERVARIABELS «, t00=0x0013, t01=0x0018}
0x1ddc…1de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003c}
0x1de6…1e0a Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,BIN10,USEV(W1) «, t00=0x0013, t01=0x0046}
0x1e0a…1e1c Head {h00=0x000e, h01=0x0050, text=» BOK B350 «, t00=0x0013, t01=0x006a}
0x1e1c…1e2c Head {h00=0x000c, h01=0x0050, text=» B B120 «, t00=0x0013, t01=0x007c}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x008c}
0x1e36…1e5c Head {h00=0x0022, h01=0x0050, text=»B315 HANDLE SYSTEM VARIABLE «, t00=0x0013, t01=0x0096}
0x1e5c…1e80 Head {h00=0x0020, h01=0x0050, text=» CALL CMPIND,BIN10,SYSV(W1) «, t00=0x0013, t01=0x00bc}
0x1e80…1ea2 Head {h00=0x001e, h01=0x0050, text=» BNOK B120 IF OUT OF RANGE«, t00=0x0013, t01=0x00e0}
0x1ea2…1eb8 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN9,W4 «, t00=0x0013, t01=0x0102}
0x1eb8…1ec8 Head {h00=0x000c, h01=0x0050, text=» B B350 «, t00=0x0013, t01=0x0118}
0x1ec8…1ed2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0128}
0x1ed2…1ef4 Head {h00=0x001e, h01=0x001a, text=»***** FORMAT-FIELD *****«, t00=0x0013, t01=0x0132}
0x1ef4…1efe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0154}
0x1efe…1f0a Head {h00=0x0008, h01=0x0004, text=»B320«, t00=0x0013, t01=0x015e}
0x1f0a…1f38 Head {h00=0x002a, h01=0x0050, text=» CBNE BIN10,W0,B330 "CURRENT FIELD" ? «, t00=0x0013, t01=0x016a}
0x1f38…1f6a Head {h00=0x002e, h01=0x0050, text=» MOVE BIN10,BIN2 UPDATE INDEX WITH CURRENT«, t00=0x0014, t01=0x0008}
0x1f6a…1f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003a}
0x1f74…1f80 Head {h00=0x0008, h01=0x0050, text=»B330«, t00=0x0014, t01=0x0044}
0x1f80…1fc2 Head {h00=0x003e, h01=0x0050, text=» CALL TYPET,BIN4,X.PSEU1,X.PSEU2,X.WB10,BIN10 F-ITEM IS...«, t00=0x0014, t01=0x0050}
0x1fc2…1fec Head {h00=0x0026, h01=0x0050, text=» CBE BIN4,W3,B350 ...A STRG-ITEM ?«, t00=0x0014, t01=0x0092}
0x1fec…1ff6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x00bc}
0x1ff6…2000 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x00c6}
0x2000…2038 Head {h00=0x0034, h01=0x0050, text=»***** USER- OR FORMAT-VALUE TO WORKITEM ***** «, t00=0x0014, t01=0x00d0}
0x2038…2042 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0108}
0x2042…2084 Head {h00=0x003e, h01=0x0050, text=» CON X.MOVE,DEINPUT,X.PSEU1,X.PSEU2,X.WB10,BIN10 BCD-ITEM «, t00=0x0014, t01=0x0112}
0x2084…2094 Head {h00=0x000c, h01=0x0050, text=» B B500 «, t00=0x0014, t01=0x0154}
0x2094…209e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0164}
0x209e…20aa Head {h00=0x0008, h01=0x0004, text=»B350«, t00=0x0014, t01=0x016e}
0x20aa…20d6 Head {h00=0x0028, h01=0x0050, text=» EDIT DEINPUT,WFORM(BIN9) STRG-ITEM «, t00=0x0014, t01=0x017a}
0x20d6…20e4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0015, t01=0x0016}
0x20e4…20ee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0024}
0x20ee…20f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x002e}
0x20f8…2120 Head {h00=0x0024, h01=0x0020, text=»***** EXECUTE ARITHMETIC *****«, t00=0x0015, t01=0x0038}
0x2120…212a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0060}
0x212a…2136 Head {h00=0x0008, h01=0x0050, text=»B500«, t00=0x0015, t01=0x006a}
0x2136…216c Head {h00=0x0032, h01=0x0050, text=» MOVE BCDI21(W2),DEINPUT VALUE TO BCD-WORKITEM«, t00=0x0015, t01=0x0076}
0x216c…2198 Head {h00=0x0028, h01=0x0050, text=» TBF BOOL6,B510 NO ABSOLUTE VALUE ? «, t00=0x0015, t01=0x00ac}
0x2198…21d2 Head {h00=0x0036, h01=0x0050, text=» COPY BCDI21(W2),W0,W1,D1,W0 "+-SIGN" TO WORKITEM«, t00=0x0015, t01=0x00d8}
0x21d2…21de Head {h00=0x0008, h01=0x0050, text=»B510«, t00=0x0015, t01=0x0112}
0x21de…21fe Head {h00=0x001c, h01=0x0050, text=» IB BIN3,B520,B530,B540 «, t00=0x0015, t01=0x011e}
0x21fe…2224 Head {h00=0x0022, h01=0x0050, text=» ADD BCDI21(W1),BCDI21(W2) "+"«, t00=0x0015, t01=0x013e}
0x2224…2234 Head {h00=0x000c, h01=0x0050, text=» B B550 «, t00=0x0015, t01=0x0164}
0x2234…2240 Head {h00=0x0008, h01=0x0050, text=»B520«, t00=0x0015, t01=0x0174}
0x2240…2266 Head {h00=0x0022, h01=0x0050, text=» SUB BCDI21(W1),BCDI21(W2) "-"«, t00=0x0015, t01=0x0180}
0x2266…2276 Head {h00=0x000c, h01=0x0050, text=» B B550 «, t00=0x0016, t01=0x0016}
0x2276…2282 Head {h00=0x0008, h01=0x0050, text=»B530«, t00=0x0016, t01=0x0026}
0x2282…22a8 Head {h00=0x0022, h01=0x0050, text=» MUL BCDI21(W1),BCDI21(W2) "*"«, t00=0x0016, t01=0x0032}
0x22a8…22b8 Head {h00=0x000c, h01=0x0050, text=» B B550 «, t00=0x0016, t01=0x0058}
0x22b8…22c4 Head {h00=0x0008, h01=0x0050, text=»B540«, t00=0x0016, t01=0x0068}
0x22c4…22ea Head {h00=0x0022, h01=0x0050, text=» DIV BCDI21(W1),BCDI21(W2) ":"«, t00=0x0016, t01=0x0074}
0x22ea…22f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x009a}
0x22f4…2300 Head {h00=0x0008, h01=0x0050, text=»B550«, t00=0x0016, t01=0x00a4}
0x2300…2312 Head {h00=0x000e, h01=0x0050, text=» BOFL B560«, t00=0x0016, t01=0x00b0}
0x2312…2322 Head {h00=0x000c, h01=0x0050, text=» B B100 «, t00=0x0016, t01=0x00c2}
0x2322…232c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00d2}
0x232c…2338 Head {h00=0x0008, h01=0x0050, text=»B560«, t00=0x0016, t01=0x00dc}
0x2338…235e Head {h00=0x0022, h01=0x001e, text=» PERF SETERR,W3 ERROR-CODE = 3«, t00=0x0016, t01=0x00e8}
0x235e…236e Head {h00=0x000c, h01=0x0050, text=» B B100 «, t00=0x0016, t01=0x010e}
0x236e…237c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0016, t01=0x011e}
0x237c…2386 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x012c}
0x2386…2390 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0136}
0x2390…23ba Head {h00=0x0026, h01=0x0021, text=»***** UPDATE RESULT-FIELD ***** «, t00=0x0016, t01=0x0140}
0x23ba…23c4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x016a}
0x23c4…23d0 Head {h00=0x0008, h01=0x0004, text=»B600«, t00=0x0016, t01=0x0174}
0x23d0…23fc Head {h00=0x0028, h01=0x0050, text=» TBF BOOL2,B610 NO ARITHMETIC DONE ?«, t00=0x0016, t01=0x0180}
0x23fc…2428 Head {h00=0x0028, h01=0x0050, text=» MOVE DEINPUT,HEX00 CLEAR STRG-WORK «, t00=0x0017, t01=0x001c}
0x2428…2458 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN10,W0 MOVE SUM TO STRG-WORK... «, t00=0x0017, t01=0x0048}
0x2458…2492 Head {h00=0x0036, h01=0x0050, text=» EDSUB DEINPUT,BIN10,WF3 ...AND GET LENGTH OF SUM «, t00=0x0017, t01=0x0078}
0x2492…249e Head {h00=0x0008, h01=0x0050, text=»B610«, t00=0x0017, t01=0x00b2}
0x249e…24c6 Head {h00=0x0024, h01=0x0050, text=» CBE BIN6,W2,B620 FORMAT-FIELD ?«, t00=0x0017, t01=0x00be}
0x24c6…24de Head {h00=0x0014, h01=0x0050, text=» USER-VARIABEL«, t00=0x0017, t01=0x00e6}
0x24de…2500 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN7,USEV(W1)«, t00=0x0017, t01=0x00fe}
0x2500…2520 Head {h00=0x001c, h01=0x0050, text=» BNOK B120 OUT OF RANGE «, t00=0x0017, t01=0x0120}
0x2520…2558 Head {h00=0x0034, h01=0x0050, text=» MOVE USEV(BIN7),DEINPUT RESULT TO USER-VARIABLE«, t00=0x0017, t01=0x0140}
0x2558…2568 Head {h00=0x000c, h01=0x0050, text=» B B050 «, t00=0x0017, t01=0x0178}
0x2568…2572 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0017, t01=0x0188}
0x2572…257e (24, 0, 400) Head {h00=0x0008, h01=0x0004, text=»B620«, t00=0x0018, t01=0x0004}
0x257e…25aa Head {h00=0x0028, h01=0x0050, text=» CBNE BIN7,W0,B640 CURRENT FIELD ?? «, t00=0x0018, t01=0x0010}
0x25aa…25dc Head {h00=0x002e, h01=0x0050, text=» MOVE BIN7,BIN2 UPDATE WITH CURRENT INDEX «, t00=0x0018, t01=0x003c}
0x25dc…25e6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x006e}
0x25e6…25f2 Head {h00=0x0008, h01=0x0004, text=»B640«, t00=0x0018, t01=0x0078}
0x25f2…2618 Head {h00=0x0022, h01=0x0050, text=» CALL GETFWD,BIN4,0,BIN7,BIN9 «, t00=0x0018, t01=0x0084}
0x2618…2632 Head {h00=0x0016, h01=0x0050, text=» CALL ADJUST,BIN4 «, t00=0x0018, t01=0x00aa}
0x2632…263c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0018, t01=0x00c4}
0x263c…2660 Head {h00=0x0020, h01=0x0050, text=» GETCTL 1,BIN9 GET MAXLENGTH«, t00=0x0018, t01=0x00ce}
0x2660…2672 Head {h00=0x000e, h01=0x0050, text=» TSTCTL 0 «, t00=0x0018, t01=0x00f2}
0x2672…2692 Head {h00=0x001c, h01=0x0050, text=» BNZ ALPHA JUMP IF ALPHA«, t00=0x0018, t01=0x0104}
0x2692…26ae Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0018, t01=0x0124}
0x26ae…26c4 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN10,W0«, t00=0x0018, t01=0x0140}
0x26c4…26e4 Head {h00=0x001c, h01=0x0050, text=» EDSUB DEINPUT,BIN10,WF3«, t00=0x0018, t01=0x0156}
0x26e4…270e Head {h00=0x0026, h01=0x0050, text=» SUB BIN10,W1 ADJUST LENGTH OF SUM«, t00=0x0018, t01=0x0176}
0x270e…2738 Head {h00=0x0026, h01=0x0050, text=» CMP BIN10,BIN9 RESULT LEN VS MAXL«, t00=0x0019, t01=0x0010}
0x2738…2748 Head {h00=0x000c, h01=0x0050, text=» BE NUM «, t00=0x0019, t01=0x003a}
0x2748…2758 Head {h00=0x000c, h01=0x0050, text=» BG B650«, t00=0x0019, t01=0x004a}
0x2758…2778 Head {h00=0x001c, h01=0x0050, text=» GETCTL 2,BIN9 GET MINL «, t00=0x0019, t01=0x005a}
0x2778…27b0 Head {h00=0x0034, h01=0x0050, text=» CBNL BIN10,BIN9,NUM IF RESULT LEN NOT LESS MINL«, t00=0x0019, t01=0x007a}
0x27b0…27e0 Head {h00=0x002c, h01=0x0050, text=» SUB BIN9,BIN10 CALCULATE MISSING ZEROES«, t00=0x0019, t01=0x00b2}
0x27e0…2808 Head {h00=0x0024, h01=0x0050, text=» MOVE STR64A,=X'30' LOAD ZEROES «, t00=0x0019, t01=0x00e2}
0x2808…2844 Head {h00=0x0038, h01=0x0050, text=» INSERT DEINPUT,W1,BIN9,STR64A,W0 ADD MISSING ZEROES«, t00=0x0019, t01=0x010a}
0x2844…2852 Head {h00=0x000a, h01=0x0050, text=» B NUM«, t00=0x0019, t01=0x0146}
0x2852…285e Head {h00=0x0008, h01=0x0004, text=»B650«, t00=0x0019, t01=0x0154}
0x285e…2886 Head {h00=0x0024, h01=0x0050, text=» SUB BIN10,BIN9 CLEAR BYTE IN...«, t00=0x0019, t01=0x0160}
0x2886…28a6 Head {h00=0x001c, h01=0x0050, text=» DLETE DEINPUT,W1,BIN10 «, t00=0x0019, t01=0x0188}
0x28a6…28b2 Head {h00=0x0008, h01=0x0050, text=»NUM «, t00=0x001a, t01=0x0018}
0x28b2…28ee Head {h00=0x0038, h01=0x0050, text=» CBE BCDI21(W1),:FMTITEM,CONT DONT DISPLAY IF EQUAL «, t00=0x001a, t01=0x0024}
0x28ee…28fc Head {h00=0x000a, h01=0x0050, text=»NUM100«, t00=0x001a, t01=0x0060}
0x28fc…292a Head {h00=0x002a, h01=0x0050, text=» ERASE 1,BIN7,BIN7 ERASE OLD CONTENTS «, t00=0x001a, t01=0x006e}
0x292a…2944 Head {h00=0x0016, h01=0x0050, text=» UPDFLD 1,DEINPUT «, t00=0x001a, t01=0x009c}
0x2944…2950 Head {h00=0x0008, h01=0x0050, text=»CONT«, t00=0x001a, t01=0x00b6}
0x2950…2984 Head {h00=0x0030, h01=0x0050, text=» CBE BIN7,BIN2,FINISH JUMP IF NOT OWN FIELD «, t00=0x001a, t01=0x00c2}
0x2984…29b6 Head {h00=0x002e, h01=0x0050, text=» GETFLD 0,BIN2,BIN7 GET OWN FIELD CURRENT «, t00=0x001a, t01=0x00f6}
0x29b6…29c4 Head {h00=0x000a, h01=0x0050, text=»FINISH«, t00=0x001a, t01=0x0128}
0x29c4…29d4 Head {h00=0x000c, h01=0x0050, text=» B B050 «, t00=0x001a, t01=0x0136}
0x29d4…29e2 Head {h00=0x000a, h01=0x0050, text=»ALPHA «, t00=0x001a, t01=0x0146}
0x29e2…29f8 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x001a, t01=0x0154}
0x29f8…2a2a Head {h00=0x002e, h01=0x0050, text=» MATCH DEINPUT,BIN4,BIN9,:FMTITEM,W0,BIN9 «, t00=0x001a, t01=0x016a}
0x2a2a…2a4e Head {h00=0x0020, h01=0x0050, text=» BOK CONT IF EQUAL CONTENTS «, t00=0x001b, t01=0x000c}
0x2a4e…2a60 Head {h00=0x000e, h01=0x0050, text=» B NUM100 «, t00=0x001b, t01=0x0030}
0x2a60…2a6a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0042}
0x2a6a…2a78 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x001b, t01=0x004c}
0x2a78…2a82 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x005a}
0x2a82…2a90 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x001b, t01=0x0064}
0x2a90…2a9a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0072}
0x2a9a…2aea Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x001b, t01=0x007c}
0x2aea…2af4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x00cc}
0x2af4…2b2a Head {h00=0x0032, h01=0x002d, text=»* SUB-ROUTINE FOR SETTING THE ERROR-CODE «, t00=0x001b, t01=0x00d6}
0x2b2a…2b34 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x010c}
0x2b34…2b84 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x001b, t01=0x0116}
0x2b84…2b8e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001b, t01=0x0166}
0x2b8e…2ba8 Head {h00=0x0016, h01=0x0012, text=»SETERR PROC ERRIND«, t00=0x001b, t01=0x0170}
0x2ba8…2bb4 Head {h00=0x0008, h01=0x0004, text=»X000«, t00=0x001b, t01=0x018a}
0x2bb4…2bd6 Head {h00=0x001e, h01=0x0019, text=» IB ERRIND,X100,X200,X300 «, t00=0x001c, t01=0x0008}
0x2bd6…2be0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x002a}
0x2be0…2bec Head {h00=0x0008, h01=0x0004, text=»X100«, t00=0x001c, t01=0x0034}
0x2bec…2c12 Head {h00=0x0022, h01=0x0050, text=» MOVE BCD2A,D1 UNDEFINED ERROR«, t00=0x001c, t01=0x0040}
0x2c12…2c22 Head {h00=0x000c, h01=0x0007, text=» B X900 «, t00=0x001c, t01=0x0066}
0x2c22…2c2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x0076}
0x2c2c…2c38 Head {h00=0x0008, h01=0x0004, text=»X200«, t00=0x001c, t01=0x0080}
0x2c38…2c5e Head {h00=0x0022, h01=0x001e, text=» MOVE BCD2A,='-1' FORMAT-ERROR«, t00=0x001c, t01=0x008c}
0x2c5e…2c6e Head {h00=0x000c, h01=0x0007, text=» B X900 «, t00=0x001c, t01=0x00b2}
0x2c6e…2c78 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x00c2}
0x2c78…2c84 Head {h00=0x0008, h01=0x0004, text=»X300«, t00=0x001c, t01=0x00cc}
0x2c84…2ca6 Head {h00=0x001e, h01=0x0019, text=» MOVE BCD2A,='9' OVERFLOW «, t00=0x001c, t01=0x00d8}
0x2ca6…2cb0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x00fa}
0x2cb0…2cba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x0104}
0x2cba…2cc6 Head {h00=0x0008, h01=0x0004, text=»X900«, t00=0x001c, t01=0x010e}
0x2cc6…2cd2 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x001c, t01=0x011a}
0x2cd2…2cdc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x0126}
0x2cdc…2cea Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x001c, t01=0x0130}
0x2cea…2cf4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x013e}
0x2cf4…2cfe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001c, t01=0x0148}
0x2cfe…2d0a Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x001c, t01=0x0152}
0x2d0a…2d0e Head {h00=0x4004, h01=0x0000}
0x2d0e…2d12 00 1c 01 5e ┆ ^┆
0x2d12…2d1a (29, 1, 8) 20 04 00 00 00 1d 00 04 ┆ ┆
0x2d1a…2d6a (30, 0, 400) 00 20 00 1c 00 0d 26 1a c3 16 53 59 53 54 45 4d 46 49 4c 45 20 43 4c 4f 53 45 2d 45 52 52 4f 52 00 1e 00 04 00 08 00 04 00 01 28 02 00 1e 00 28 00 0c 00 08 00 03 20 06 00 16 00 18 00 1e 00 34 00 0a 00 05 00 02 26 03 e0 16 00 1e 00 44 00 20 ┆ & SYSTEMFILE CLOSE-ERROR ( ( 4 & D ┆
0x2d6a…2dba 00 1b 00 0d 26 19 c3 15 55 53 45 52 46 49 4c 45 20 41 53 53 49 47 4e 2d 45 52 52 4f 52 52 00 1e 00 52 00 08 00 04 00 01 28 02 00 1e 00 76 00 0c 00 08 00 03 20 06 00 17 00 17 00 1e 00 82 00 0a 00 05 00 02 26 03 e0 15 00 1e 00 92 00 1e 00 1a ┆ & USERFILE ASSIGN-ERRORR R ( v & ┆
0x2dba…2e0a 00 0c 26 18 c3 14 55 53 45 52 46 49 4c 45 20 43 4c 4f 53 45 2d 45 52 52 4f 52 00 1e 00 a0 00 08 00 04 00 01 28 02 00 1e 00 c2 00 0c 00 08 00 03 20 06 00 18 00 15 00 1e 00 ce 00 0a 00 05 00 02 26 03 e0 14 00 1e 00 de 00 1c 00 18 00 0b 26 16 ┆ & USERFILE CLOSE-ERROR ( & & ┆
0x2e0a…2e5a c3 12 44 49 53 43 20 52 45 41 44 49 4e 47 2d 45 52 52 4f 52 00 1e 00 ec 00 08 00 04 00 01 28 02 00 1e 01 0c 00 0c 00 08 00 03 20 06 00 19 00 15 00 1e 01 18 00 0a 00 05 00 02 26 03 e0 12 00 1e 01 28 00 1c 00 18 00 0b 26 16 c3 12 44 49 53 43 ┆ DISC READING-ERROR ( & ( & DISC┆
0x2e5a…2eaa 20 57 52 49 54 49 4e 47 2d 46 41 55 4c 54 00 1e 01 36 00 08 00 04 00 01 28 02 00 1e 01 56 00 0c 00 08 00 03 20 06 00 1a 00 14 00 1e 01 62 00 0a 00 05 00 02 26 03 e0 12 00 1e 01 72 00 1c 00 17 00 0b 26 15 c3 11 44 49 53 43 20 4e 4f 54 20 4f ┆ WRITING-FAULT 6 ( V b & r & DISC NOT O┆
0x2eaa…2efa (31, 0, 400) 50 45 52 41 42 4c 45 54 00 1e 01 80 00 08 00 04 00 01 28 02 00 1f 00 10 00 0c 00 08 00 03 20 06 00 1b 00 14 00 1f 00 1c 00 0a 00 05 00 02 26 03 e0 11 00 1f 00 2c 00 1c 00 17 00 0b 26 15 c3 11 44 49 53 43 20 4e 4f 54 20 4f 50 45 52 41 42 4c ┆PERABLET ( & , & DISC NOT OPERABL┆
0x2efa…2f4a 45 54 00 1f 00 3a 00 08 00 04 00 01 28 02 00 1f 00 5a 00 0c 00 08 00 03 20 06 00 1c 00 2d 00 1f 00 66 00 0a 00 05 00 02 26 03 e0 11 00 1f 00 76 00 34 00 30 00 17 26 2e c3 2a 53 59 53 54 45 4d 46 49 4c 45 20 4e 4f 54 20 43 4c 4f 53 45 44 20 ┆ET : ( Z - f & v 4 0 &. *SYSTEMFILE NOT CLOSED ┆
0x2f4a…2f9a 49 4e 20 50 52 45 56 49 4f 55 53 20 53 45 53 53 49 4f 4e 2e 00 1f 00 84 00 08 00 04 00 01 28 02 00 1f 00 bc 00 0c 00 08 00 03 20 06 00 1d 00 2b 00 1f 00 c8 00 0a 00 05 00 02 26 03 e0 2a 00 1f 00 d8 00 32 00 2e 00 16 26 2c c3 28 55 53 45 52 ┆IN PREVIOUS SESSION. ( + & * 2 . &, (USER┆
0x2f9a…2fea 46 49 4c 45 20 4e 4f 54 20 43 4c 4f 53 45 44 20 49 4e 20 50 52 45 56 49 4f 55 53 20 53 45 53 53 49 4f 4e 2e 00 1f 00 e6 00 08 00 04 00 01 28 02 00 1f 01 1c 00 0c 00 08 00 03 20 06 00 1e 00 2d 00 1f 01 28 00 0a 00 05 00 02 26 03 e0 28 00 1f ┆FILE NOT CLOSED IN PREVIOUS SESSION. ( - ( & ( ┆
0x2fea…303a 01 38 00 34 00 30 00 17 26 2e c3 2a 57 52 4f 4e 47 20 4e 4f 2e 20 4f 46 20 53 45 43 54 4f 52 53 2f 52 45 43 4f 52 44 20 49 4e 20 4f 55 54 50 55 54 20 46 49 4c 45 00 1f 01 46 00 08 00 04 00 01 28 02 00 1f 01 7e 00 0c 00 08 00 03 05 06 00 04 ┆ 8 4 0 &. *WRONG NO. OF SECTORS/RECORD IN OUTPUT FILE F ( ~ ┆
0x303a…308a (32, 0, 400) 00 06 00 1f 01 8a 00 0c 00 08 00 03 08 06 00 06 00 1f 00 20 00 0a 00 0e 00 0a 00 04 10 08 00 10 20 02 00 33 00 20 00 1a 00 0e 00 0a 00 04 10 08 00 13 20 02 18 01 00 20 00 2c 00 0c 00 08 00 03 05 06 00 15 00 04 00 20 00 3e 00 0e 00 0a 00 04 ┆ 3 , > ┆
0x308a…30da 10 08 00 1b 20 02 00 32 00 20 00 4e 00 0c 00 08 00 03 05 06 00 21 00 06 00 20 00 60 00 0c 00 08 00 03 08 06 00 23 00 00 00 20 00 70 00 0c 00 08 00 03 05 06 00 26 00 0e 00 20 00 80 00 0c 00 08 00 03 05 06 00 2a 00 06 00 20 00 90 00 0c 00 08 ┆ 2 N ! ` # p & * ┆
0x30da…312a 00 03 08 06 00 2c 00 1f 00 20 00 a0 00 0c 00 08 00 03 05 06 00 31 00 0c 00 20 00 b0 00 0c 00 08 00 03 05 06 00 3e 00 02 00 20 00 c0 00 4a 00 46 00 22 00 44 00 00 00 d4 21 31 58 92 46 06 d6 20 50 56 51 03 03 d6 4c 01 d5 4c 30 58 92 06 d5 25 ┆ , 1 > J F " D !1X F PVQ L L0X %┆
0x312a…317a d6 4c 03 00 d6 22 31 58 92 46 d6 30 58 57 04 31 58 92 46 00 d5 21 30 58 91 8a 00 d5 d4 5c 10 28 d4 20 07 30 58 00 00 20 00 d0 00 0c 00 08 00 03 05 06 00 51 00 08 00 20 01 1e 00 0c 00 08 00 03 06 06 00 56 00 64 00 20 01 2e 00 0c 00 08 00 03 ┆ L "1X F 0XW 1X F !0X ( 0X Q V d . ┆
0x317a…31ca 05 06 00 5e 00 08 00 20 01 3e 00 0e 00 0a 00 04 14 08 00 70 00 02 31 00 00 20 01 4e 00 0c 00 08 00 03 05 06 00 75 00 0a 00 20 01 60 00 0c 00 08 00 03 05 06 00 78 00 08 00 20 01 70 00 4a 00 46 00 22 00 44 00 40 21 20 5f 33 00 d5 38 36 d4 04 ┆ ^ > p 1 N u ` x p J F " D @! _3 86 ┆
0x31ca…321a (33, 2, 220) 02 02 02 0b 5f 27 30 58 00 d5 d5 80 52 57 09 10 d3 20 34 30 58 00 d5 d5 34 01 00 d7 5b 00 d7 0c 20 d3 20 0e 01 97 4c 00 0c 97 30 58 d6 30 58 0a d6 d6 36 d4 02 05 00 20 01 80 00 0c 00 08 00 03 05 06 00 96 00 0a 00 21 00 3e 00 0c 00 08 00 03 ┆ _'0X RW 40X 4 [ L 0X 0X 6 ! > ┆
0x321a…326a 05 06 00 99 00 02 00 21 00 4e 00 0c 00 08 00 03 20 06 00 1f 00 03 00 21 00 5e 00 0a 00 05 00 02 26 03 e0 2a 00 21 00 6e 00 0a 00 06 00 02 26 04 81 07 00 21 00 7c 00 08 00 04 00 01 28 02 00 21 00 8a 00 2c 00 27 00 13 00 25 00 80 0d 00 0c d7 ┆ ! N ! ^ & * ! n & ! | ( ! , ' % ┆
0x326a…32a6 34 00 10 d3 20 09 41 d1 5f 0d 10 d3 20 11 00 0c d7 30 58 d6 30 58 01 d6 d6 34 00 34 00 58 00 21 00 96 00 0e 00 0a 07 04 00 00 00 20 00 a1 00 00 00 21 00 c6 40 04 00 00 00 21 00 d8 ┆4 A _ 0X 0X 4 4 X ! ! @ ! ┆
0x32a6…32f6 (34, 0, 400) 00 46 00 48 20 49 44 45 4e 54 20 52 45 4f 52 47 53 20 20 54 52 41 20 34 2e 31 20 20 37 39 2d 31 31 2d 32 32 20 46 31 20 4f 31 31 31 31 20 20 52 45 4c 2e 20 31 2e 30 20 37 39 2d 31 31 2d 31 32 2f 4c 41 42 4a 20 00 00 00 04 00 0e 00 0a 01 04 ┆ F H IDENT REORGS TRA 4.1 79-11-22 F1 O1111 REL. 1.0 79-11-12/LABJ ┆
0x32f6…3346 c8 52 45 4f 52 47 53 00 00 00 00 4e 00 0e 00 0a 02 04 c8 24 24 24 54 52 41 4f 00 00 00 60 00 10 00 0c 05 05 c8 52 45 4f 52 47 53 00 00 00 00 00 00 72 00 42 00 3e 02 1e c8 43 48 41 4e 46 43 4f a8 43 48 56 4f 4c c8 43 4c 4f 46 49 4c 20 c8 44 ┆ REORGS N $$$TRAO ` REORGS r B > CHANFCO CHVOL CLOFIL D┆
0x3346…3396 45 43 4c 52 41 32 c8 44 45 43 4c 52 4e 31 c8 44 45 44 49 53 43 20 c8 44 45 50 4f 4f 4c 31 88 44 45 52 52 4c 00 00 00 86 00 40 00 3c 02 1d 88 44 49 53 55 47 c8 44 53 4b 45 52 52 00 c8 4e 4f 46 46 52 45 00 88 4f 50 43 4c 00 a8 52 45 46 53 50 ┆ECLRA2 DECLRN1 DEDISC DEPOOL1 DERRL @ < DISUG DSKERR NOFFRE OPCL REFSP┆
0x3396…33e6 c8 54 3a 41 53 53 49 00 c8 54 3a 41 54 54 46 00 c8 54 3a 44 49 53 50 00 00 00 00 cc 00 16 00 12 02 08 c8 54 3a 44 53 43 30 4f c8 54 3a 54 48 4f 4d 43 00 00 01 10 00 0c 00 08 00 03 07 06 00 0b 00 18 00 00 01 2a 00 0c 00 08 00 03 02 06 00 0e ┆ T:ASSI T:ATTF T:DISP T:DSC0O T:THOMC * ┆
0x33e6…3436 02 58 00 00 01 3a 00 0c 00 08 00 03 05 06 00 33 00 02 00 00 01 4a 00 12 00 0f 00 07 14 0d 00 39 00 07 53 59 53 46 49 4c 00 00 01 5a 00 0c 00 08 00 03 05 06 00 3f 00 1c 00 00 01 70 00 4a 00 46 00 22 00 44 00 00 00 6a 21 6a 22 00 66 21 66 22 ┆ X : 3 J 9 SYSFIL Z ? p J F " D j!j" f!f"┆
0x3436…3486 (35, 0, 400) 80 52 21 3a 52 00 68 22 68 21 00 78 22 78 21 00 60 22 60 21 00 7a 22 7a 21 00 62 22 62 21 00 6a 21 6a 23 00 66 21 66 23 30 52 10 66 21 01 8e 4c 00 19 6a 21 30 58 00 00 01 80 00 0c 00 08 00 03 05 06 00 49 00 22 00 01 00 3e 00 0c 00 08 00 03 ┆ R!:R h"h! x"x! `"`! z"z! b"b! j!j# f!f#0R f! L j!0X I " > ┆
0x3486…34d6 02 06 00 56 02 58 00 01 00 4e 00 0c 00 08 00 03 07 06 00 58 00 16 00 01 00 5e 00 0c 00 08 00 03 07 06 00 60 00 12 00 01 00 6e 00 0c 00 08 00 03 07 06 00 79 00 0e 00 01 00 7e 00 4a 00 46 00 22 00 44 00 40 10 00 d6 8e 01 19 50 0f 30 58 90 03 ┆ V X N X ^ ` n y ~ J F " D @ P 0X ┆
0x34d6…3526 40 22 00 d6 34 04 64 21 21 3f 52 80 52 80 21 00 60 21 80 80 52 21 21 43 6a 62 21 20 22 43 25 6a 7a 21 20 22 43 21 00 d0 21 00 d1 21 80 52 22 d0 d1 8e 5c 38 00 01 00 8e 00 0c 00 08 00 03 07 06 00 85 00 1a 00 01 00 dc 00 0c 00 08 00 03 07 06 ┆@" 4 d!!?R R ! `! R!!Cjb! "C%jz! "C! ! ! R" 8 ┆
0x3526…3576 00 8f 00 0e 00 01 00 ec 00 0c 00 08 00 03 05 06 00 b2 00 1e 00 01 00 fc 00 0c 00 08 00 03 08 06 00 b3 00 06 00 01 01 0c 00 0c 00 08 00 03 07 06 00 b7 00 08 00 01 01 1c 00 0c 00 08 00 03 02 06 00 bb 00 b1 00 01 01 2c 00 0c 00 08 00 03 02 06 ┆ , ┆
0x3576…35c6 00 bc 01 ce 00 01 01 3c 00 0e 00 09 00 04 14 07 00 bf 00 01 4e 8e 00 01 01 4c 00 4a 00 46 00 22 00 44 00 80 00 68 21 d0 80 52 22 21 50 0c 00 d1 68 21 80 52 26 d1 d1 8e 5f 4e 40 c9 00 68 23 68 21 00 78 23 78 21 00 60 23 60 21 00 7a 23 7a 21 ┆ < N L J F " D h! R"!P h! R& _N@ h#h! x#x! `#`! z#z!┆
0x35c6…3616 (36, 0, 400) 00 62 23 62 21 31 58 46 41 d0 80 52 32 d4 02 52 52 21 47 4c 00 01 01 5e 00 0c 00 08 00 03 06 06 00 c2 02 35 00 02 00 1c 00 0c 00 08 00 03 02 06 00 c6 02 58 00 02 00 2c 00 0c 00 08 00 03 06 06 00 c8 02 35 00 02 00 3c 00 0c 00 08 00 03 02 06 ┆ b#b!1XFA R2 RR!GL ^ 5 X , 5 < ┆
0x3616…3666 00 cc 02 58 00 02 00 4c 00 0c 00 08 00 03 05 06 00 ce 00 1e 00 02 00 5c 00 0c 00 08 00 03 08 06 00 cf 00 07 00 02 00 6c 00 0c 00 08 00 03 07 06 00 d3 00 08 00 02 00 7c 00 0c 00 08 00 03 02 06 00 d7 00 cd 00 02 00 8c 00 0c 00 08 00 03 02 06 ┆ X L l | ┆
0x3666…36b6 00 d8 01 ce 00 02 00 9c 00 0e 00 09 00 04 14 07 00 db 00 01 4e d0 00 02 00 ac 00 0e 00 0a 00 04 14 08 00 df 00 02 54 00 00 02 00 be 00 0e 00 0a 00 04 10 08 00 e5 20 02 00 5d 00 02 00 d0 00 0c 00 08 00 03 06 06 00 fd 02 35 00 02 00 e2 00 4a ┆ N T ] 5 J┆
0x36b6…3706 00 46 00 22 00 44 00 c0 0c 80 52 33 22 3a 52 80 52 34 23 3a 52 31 58 46 41 d0 80 52 32 d4 02 52 52 21 47 4c 4a 01 41 4c 00 c0 20 01 c1 4c 00 55 21 02 c0 21 22 c0 c1 37 00 d9 c0 00 8c d9 6a 41 21 22 8c 22 80 52 38 22 00 02 00 f2 00 0c 00 08 ┆ F " D R3":R R4#:R1XFA R2 RR!GLJ AL L U! !" 7 jA!" " R8" ┆
0x3706…3756 00 03 02 06 01 03 02 58 00 02 01 40 00 0e 00 0a 00 04 10 08 01 06 20 02 00 1a 00 02 01 50 00 0c 00 08 00 03 06 06 01 08 02 35 00 02 01 62 00 0c 00 08 00 03 02 06 01 0c 02 58 00 02 01 72 00 0e 00 09 00 04 14 07 01 29 00 01 00 1a 00 02 01 82 ┆ X @ P 5 b X r ) ┆