|
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: 10650 (0x299a)
Notes: pts_type(SC)
Names: »DEACCU.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DEACCU.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DEACCU.SC«
IDENT DEACCU REL 10.0 80-04-11 80-03-05/DALI * ************************************************************************ * * SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800 * * AFTER ENTERING A PICTURE (I.E. RECORD) THIS MODULE * SEARCHES FOR AND EXECUTES THE "FACC"-STRINGS IN * THE FORMAT. * * AT DELETION OF A RECORD THIS MODULE REVERSES THE * ACCUMULATIONS DONE BY THAT RECORD. * * THE MODULE IS ENTERED WHITH THE STATEMENT: * * * PERF DEACC,OPTION * * * WHERE: * * - OPTION = BIN-ITEM TELLING WANTED FACILITY * - 0 = NORMAL ACC * - 1 = REVERSED ACC * -2 = CORRECTION,IGNORE ZEROIZING ************************************************************************ * DDUM DEDDIV PDIV * * ***** ENTRIES * ENTRY DEACC ENTRY SETERR * * ***** EXTERNALS * EXT GETACC EXT MSKOUT EXT EMPTYT EXT GETFWD EXT ADJUST EXT CMPIND COMPARE INDEX EXT DENVAL INCLUDE DELITT EJECT * ************************************************************************ * * MAIN-ROUTINE FOR ACCUMULATION * ************************************************************************ * DEACC PROC OPTION A000 CLEAR BOOL9 MOVE BCD2A,='0' CLEAR ERROR-INDICATOR MOVE BIN2,W0 CLEAR CURRENT-FIELD-NR TBF DBOACC,A900 NO ACC IN FORMAT ? SET BOOL1 INDICATE NORMAL ACC IB OPTION,A100,A050 A050 CLEAR BOOL1 INDICATE REVERSED ACC * * ***** SEARCH ACC-FIELD ***** * A100 ADD BIN2,W1 INCREASE CURRENT-FIELD-NR CALL GETFWD,DEBINW4,3,BIN2,BIN11 GET NEXT ACC-FIELD CALL ADJUST,DEBINW4 BERR A900 END OF FORMAT ? ..."CURRENT-FIELD" CURRENT * * ***** GET ACC-STRING ***** * A200 CALL GETACC,BPOOL(W1),BIN11,BIN12,BIN13 BNOK A800 STRING NOT FOUND ? TBF BOOL9,A210 CALL GETFWD,DEBINW4,0,BIN2,BIN7 CALL ADJUST,DEBINW4 CLEAR BOOL9 A210 CALL EMPTYT,:FMTITEM BNZ A800 IF EMPTY FIELD * * ***** EXECUTE ACC-STRING ***** * B EXACC "PERF" EXACC A250 CBE BIN1,W0,A100 NO DUPL IN LAST STRING ? SET BOOL9 * CALL GETFWD,DEBINW4,0,BIN1,BIN7 MAKE DUPPL-FIELD CURRENT CALL ADJUST,DEBINW4 BOK A200 'DUPL-FIELD' FOUND EJECT * * ***** SET ERROR-CODE ***** * A800 PERF SETERR,W2 ERROR-CODE = 2 B A100 * * * ***** RETURN TO CALLING MODULE ***** * A900 ADD BCD2A,BCD2A SET CONDITION-CODE * RET EJECT * ************************************************************************ * * SUB-ROUTINE FOR EXAMINATION AND EXECUTION OF THE ACC-STRING * ************************************************************************ * EXACC B000 SUB BIN12,W1 ADJUST DISPL. ADD BIN13,BIN12 DISPL. FOR LAST BYTE IN BIN13 * MOVE BIN1,W0 CLEAR DUPL-FIELD-NR EJECT * * *****GET ACCUMULATOR-NR ***** * B100 ADD BIN12,W1 INCREASE DISPL. CBG BIN12,BIN13,A250 END OF STRING ? * B103 MOVE BIN6,W0 CLEAR ACC-NR MOVE BIN7,W0 MOVE STR6A,=C'MDA' MATCH STR6A,BIN7,W3,BPOOL(BIN11),BIN12,W1 NEXT BYTE... BNOK B120 ...NOT D OR A ? IB BIN7,B105,B105 EJECT * * HANDLE CONDITIONAL ACCUMULATION * MOVE DEBINW1,W0 SET INPUTLENGT = 0 SUB BIN13,BIN12 PUT DISP INTO BIN13 PERF DENVAL,W1 EXECUTE VALIDATIONSTRING CLEAR DOOLB ERROR-FLAG BNZ B120 ERROR IN FORMAT GET THE ACCUMULATION STRING XCOPY BIN12,W1,W1,BIN3,W1 STARTPOINT MOVE BIN3,W0 GET THE LENGTH OF ACC.STRING XCOPY BIN3,W1,W1,BPOOL(BIN11),BIN12 MOVE BIN13,=X'3F' CALL MSKOUT,BIN13,BIN3 ADD BIN13,BIN12 PUT END OF ACC.STRING INTO 13 B B100 B105 * ADD BIN12,W1 INCREASE DISPL. XCOPY BIN6,W1,W1,BPOOL(BIN11),BIN12 GET ACC-/DUPL-NR CBL BIN6,W1,B120 ACC-/DUPL-NR < 1 ? CBE BIN7,W1,B140 DUPL-FIELD ? * CBNE BIN7,W2,B120 NOT ACC ? CALL CMPIND,BIN6,ACK(W1) BNOK B120 OUT OF RANGE * CLEAR BOOL2 INDICATE PLUS-SIGN CLEAR BOOL6 INDICATE NO ABSOLUTE-VALUE CLEAR BOOL8 INDICATE DEFAULT NOT USED EJECT * * ***** EXAMINE ***** * B110 ADD BIN12,W1 INCREASE DISPL. CBG BIN12,BIN13,B190 END OF STRING ? MOVE BIN7,W7 MATCH VALSTR,BIN7,W18,BPOOL(BIN11),BIN12,W1 NEXT BYTE = ? BNOK B250 LITTERAL PREFIX ? SUB BIN7,W6 ADJUST INDEX IB BIN7 C B160,B120,B120,B120 "!,A,S,U" C B200,B120,B120,B120 "F,T,C,E" C B175,B170,B120,B120 "+,-,*,:" C B190,B120,B120,B120 ";,&,V,?" C B120,B180 "',Z" * * ***** FORMAT-ERROR DETECTED ***** * B120 PERF SETERR,W2 SET ERROR-CODE = 2 * * ***** DUPLICATE-FIELD-NR ***** * B140 MOVE BIN1,BIN6 UPDATE DUPL-FIELD-NR B A250 EJECT * * ***** ABSOLUTE-VALUE ***** * B160 SET BOOL6 INDICATE ABSOLUTE-VALUE B B110 * * ***** MINUS-SIGN ***** * B170 SET BOOL2 INDICATE MINUS-SIGN * * ***** PLUS-SIGN ***** * B175 B B110 * * ***** ZEROISE ***** * B180 CBG OPTION,W0,B390 JUMP IF CORR MOVE ACK(BIN6),='0' ZEROISE ACCUMULATOR B B390 * * ***** DEFAULT ***** * B190 SET BOOL8 INDICATE DEFAULT USED B B210 EJECT * * ***** FORMAT-FIELD ***** * B200 ADD BIN12,W1 INCREASE DISPL. XCOPY BIN7,W1,W1,BPOOL(BIN11),BIN12 GET FIELDNUMBER CBNE BIN7,W0,B220 JUMP IF NOT CURRENT B210 MOVE BIN7,BIN2 CURRENT FIELD B220 CON X.MOVE,STR64A,X.PSEU1,X.PSEU2,X.WB10,BIN7 MOVE BCDI21(W1),STR64A B B300 * * ***** LITTERAL ***** * B250 XCOPY BIN7,W1,W1,BPOOL(BIN11),BIN12 MOVE PREFIX TO WORKITEM CBL BIN7,W64,B120 NO LITTERAL ? MOVE BIN9,=X'3F' REMOVE... CALL MSKOUT,BIN9,BIN7 ...FLAGGS MOVE DEINPUT,HEX00 ADD BIN12,W1 INCREASE DISPL. COPY DEINPUT,W0,BIN9,BPOOL(BIN11),BIN12 GET LITTERAL MOVE BCDI21(W1),DEINPUT MOVE TO WORKITEM SUB BIN9,W1 ADJUST INDEX ADD BIN12,BIN9 INCREASE DISPL. EJECT * * ***** EXECUTE ACCUMULATION ***** * B300 TBF BOOL6,B310 NO ABSOLUTE-VALUE ? COPY BCDI21(W1),W0,W1,D1,W0 PLUS-SIGN TO WORKITEM B310 TBT BOOL2,B330 MINUS-SIGN ? TBT BOOL1,B340 REVERSED ACC ? B320 ADD ACK(BIN6),BCDI21(W1) ADD TO ACCUMULATOR B B350 * B330 TBT BOOL1,B320 REVERSED ACC ? B340 SUB ACK(BIN6),BCDI21(W1) SUBTRACT FROM ACCUMULATOR * B350 BOFL B360 B B380 B360 PERF SETERR,W3 SET ERROR-CODE = 3 * B380 TBT BOOL8,B395 DEFAULT USED ? B390 ADD BIN12,W1 INCREASE DISPL. CMP BIN12,BIN13 BG A250 END OF STRING REACHED MOVE BIN7,W19 MATCH VALSTR,BIN7,W1,BPOOL(BIN11),BIN12,W1 NEXT BYTE... BNOK B120 B395 B B100 * 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 DEACCU REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-03-05/DALI«, t00=0x0000, t01=0x002c}
0x0040…004a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0044}
0x004a…009a Head {h00=0x004c, h01=0x004c, 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…012e Head {h00=0x003e, h01=0x0039, text=»* AFTER ENTERING A PICTURE (I.E. RECORD) THIS MODULE «, t00=0x0000, t01=0x00f0}
0x012e…016c Head {h00=0x003a, h01=0x0036, text=»* SEARCHES FOR AND EXECUTES THE "FACC"-STRINGS IN«, t00=0x0000, t01=0x0132}
0x016c…0186 Head {h00=0x0016, h01=0x0012, text=»* THE FORMAT.«, t00=0x0000, t01=0x0170}
0x0186…0190 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x018a}
0x0190…01d0 (1, 0, 400) Head {h00=0x003c, h01=0x0037, text=»* AT DELETION OF A RECORD THIS MODULE REVERSES THE «, t00=0x0001, t01=0x0004}
0x01d0…0202 Head {h00=0x002e, h01=0x0029, text=»* ACCUMULATIONS DONE BY THAT RECORD. «, t00=0x0001, t01=0x0044}
0x0202…020c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0076}
0x020c…0246 Head {h00=0x0036, h01=0x0050, text=»* THE MODULE IS ENTERED WHITH THE STATEMENT: «, t00=0x0001, t01=0x0080}
0x0246…0250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ba}
0x0250…0278 Head {h00=0x0024, h01=0x0050, text=»* * PERF DEACC,OPTION * «, t00=0x0001, t01=0x00c4}
0x0278…0282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ec}
0x0282…0298 Head {h00=0x0012, h01=0x0050, text=»* WHERE: «, t00=0x0001, t01=0x00f6}
0x0298…02a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x010c}
0x02a2…02de Head {h00=0x0038, h01=0x0050, text=»* - OPTION = BIN-ITEM TELLING WANTED FACILITY«, t00=0x0001, t01=0x0116}
0x02de…0302 Head {h00=0x0020, h01=0x0050, text=»* - 0 = NORMAL ACC «, t00=0x0001, t01=0x0152}
0x0302…0328 Head {h00=0x0022, h01=0x0050, text=»* - 1 = REVERSED ACC «, t00=0x0001, t01=0x0176}
0x0328…035c Head {h00=0x0030, h01=0x0050, text=»* -2 = CORRECTION,IGNORE ZEROIZING «, t00=0x0002, t01=0x000c}
0x035c…03ac Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0002, t01=0x0040}
0x03ac…03b6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0090}
0x03b6…03ca Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0002, t01=0x009a}
0x03ca…03d8 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0002, t01=0x00ae}
0x03d8…03e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00bc}
0x03e2…03ec Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00c6}
0x03ec…0402 Head {h00=0x0012, h01=0x000e, text=»***** ENTRIES«, t00=0x0002, t01=0x00d0}
0x0402…040c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00e6}
0x040c…0420 Head {h00=0x0010, h01=0x0050, text=» ENTRY DEACC«, t00=0x0002, t01=0x00f0}
0x0420…0436 Head {h00=0x0012, h01=0x0050, text=» ENTRY SETERR «, t00=0x0002, t01=0x0104}
0x0436…0440 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x011a}
0x0440…044a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0124}
0x044a…0462 Head {h00=0x0014, h01=0x0010, text=»***** EXTERNALS«, t00=0x0002, t01=0x012e}
0x0462…046c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0146}
0x046c…0480 Head {h00=0x0010, h01=0x000b, text=» EXT GETACC «, t00=0x0002, t01=0x0150}
0x0480…0494 Head {h00=0x0010, h01=0x0050, text=» EXT MSKOUT «, t00=0x0002, t01=0x0164}
0x0494…04a8 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0002, t01=0x0178}
0x04a8…04bc Head {h00=0x0010, h01=0x0050, text=» EXT GETFWD «, t00=0x0002, t01=0x018c}
0x04bc…04d0 Head {h00=0x0010, h01=0x0050, text=» EXT ADJUST «, t00=0x0003, t01=0x0010}
0x04d0…04f2 Head {h00=0x001e, h01=0x0050, text=» EXT CMPIND COMPARE INDEX «, t00=0x0003, t01=0x0024}
0x04f2…0506 Head {h00=0x0010, h01=0x0050, text=» EXT DENVAL «, t00=0x0003, t01=0x0046}
0x0506…051e Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0003, t01=0x005a}
0x051e…052c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0003, t01=0x0072}
0x052c…0536 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0080}
0x0536…0586 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0003, t01=0x008a}
0x0586…0590 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00da}
0x0590…05bc Head {h00=0x0028, h01=0x0024, text=»* MAIN-ROUTINE FOR ACCUMULATION«, t00=0x0003, t01=0x00e4}
0x05bc…05c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0110}
0x05c6…0616 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0003, t01=0x011a}
0x0616…0620 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x016a}
0x0620…063a Head {h00=0x0016, h01=0x0050, text=»DEACC PROC OPTION «, t00=0x0003, t01=0x0174}
0x063a…0646 Head {h00=0x0008, h01=0x0004, text=»A000«, t00=0x0003, t01=0x018e}
0x0646…065a Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL9«, t00=0x0004, t01=0x000a}
0x065a…0688 Head {h00=0x002a, h01=0x0026, text=» MOVE BCD2A,='0' CLEAR ERROR-INDICATOR«, t00=0x0004, t01=0x001e}
0x0688…06b4 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN2,W0 CLEAR CURRENT-FIELD-NR«, t00=0x0004, t01=0x004c}
0x06b4…06e0 Head {h00=0x0028, h01=0x0050, text=» TBF DBOACC,A900 NO ACC IN FORMAT ? «, t00=0x0004, t01=0x0078}
0x06e0…0706 Head {h00=0x0022, h01=0x0050, text=» SET BOOL1 INDICATE NORMAL ACC«, t00=0x0004, t01=0x00a4}
0x0706…0722 Head {h00=0x0018, h01=0x0050, text=» IB OPTION,A100,A050«, t00=0x0004, t01=0x00ca}
0x0722…072e Head {h00=0x0008, h01=0x0050, text=»A050«, t00=0x0004, t01=0x00e6}
0x072e…0758 Head {h00=0x0026, h01=0x0050, text=» CLEAR BOOL1 INDICATE REVERSED ACC«, t00=0x0004, t01=0x00f2}
0x0758…0762 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x011c}
0x0762…076c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0126}
0x076c…0792 Head {h00=0x0022, h01=0x001e, text=»***** SEARCH ACC-FIELD *****«, t00=0x0004, t01=0x0130}
0x0792…079c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0156}
0x079c…07a8 Head {h00=0x0008, h01=0x0004, text=»A100«, t00=0x0004, t01=0x0160}
0x07a8…07d6 Head {h00=0x002a, h01=0x0050, text=» ADD BIN2,W1 INCREASE CURRENT-FIELD-NR«, t00=0x0004, t01=0x016c}
0x07d6…0812 Head {h00=0x0038, h01=0x0050, text=» CALL GETFWD,DEBINW4,3,BIN2,BIN11 GET NEXT ACC-FIELD«, t00=0x0005, t01=0x000a}
0x0812…082e Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DEBINW4«, t00=0x0005, t01=0x0046}
0x082e…0850 Head {h00=0x001e, h01=0x001a, text=» BERR A900 END OF FORMAT ?«, t00=0x0005, t01=0x0062}
0x0850…0876 Head {h00=0x0022, h01=0x0050, text=» ..."CURRENT-FIELD" CURRENT «, t00=0x0005, t01=0x0084}
0x0876…0880 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00aa}
0x0880…088a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00b4}
0x088a…08ae Head {h00=0x0020, h01=0x001c, text=»***** GET ACC-STRING *****«, t00=0x0005, t01=0x00be}
0x08ae…08b8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x00e2}
0x08b8…08c4 Head {h00=0x0008, h01=0x0050, text=»A200«, t00=0x0005, t01=0x00ec}
0x08c4…08f4 Head {h00=0x002c, h01=0x0050, text=» CALL GETACC,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x0005, t01=0x00f8}
0x08f4…091a Head {h00=0x0022, h01=0x001d, text=» BNOK A800 STRING NOT FOUND ? «, t00=0x0005, t01=0x0128}
0x091a…0932 Head {h00=0x0014, h01=0x0050, text=» TBF BOOL9,A210 «, t00=0x0005, t01=0x014e}
0x0932…095a Head {h00=0x0024, h01=0x0050, text=» CALL GETFWD,DEBINW4,0,BIN2,BIN7«, t00=0x0005, t01=0x0166}
0x095a…0976 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DEBINW4«, t00=0x0005, t01=0x018e}
0x0976…098a Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL9«, t00=0x0006, t01=0x001a}
0x098a…0996 Head {h00=0x0008, h01=0x0050, text=»A210«, t00=0x0006, t01=0x002e}
0x0996…09b4 Head {h00=0x001a, h01=0x0050, text=» CALL EMPTYT,:FMTITEM «, t00=0x0006, t01=0x003a}
0x09b4…09d4 Head {h00=0x001c, h01=0x0050, text=» BNZ A800 IF EMPTY FIELD«, t00=0x0006, t01=0x0058}
0x09d4…09de Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0078}
0x09de…09e8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0082}
0x09e8…0a10 Head {h00=0x0024, h01=0x0020, text=»***** EXECUTE ACC-STRING *****«, t00=0x0006, t01=0x008c}
0x0a10…0a1a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x00b4}
0x0a1a…0a38 Head {h00=0x001a, h01=0x0050, text=» B EXACC "PERF" EXACC «, t00=0x0006, t01=0x00be}
0x0a38…0a44 Head {h00=0x0008, h01=0x0050, text=»A250«, t00=0x0006, t01=0x00dc}
0x0a44…0a76 Head {h00=0x002e, h01=0x0050, text=» CBE BIN1,W0,A100 NO DUPL IN LAST STRING ?«, t00=0x0006, t01=0x00e8}
0x0a76…0a88 Head {h00=0x000e, h01=0x0050, text=» SET BOOL9«, t00=0x0006, t01=0x011a}
0x0a88…0a92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x012c}
0x0a92…0ad4 Head {h00=0x003e, h01=0x0050, text=» CALL GETFWD,DEBINW4,0,BIN1,BIN7 MAKE DUPPL-FIELD CURRENT «, t00=0x0006, t01=0x0136}
0x0ad4…0af0 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DEBINW4«, t00=0x0006, t01=0x0178}
0x0af0…0b14 (7, 0, 400) Head {h00=0x0020, h01=0x0050, text=» BOK A200 'DUPL-FIELD' FOUND«, t00=0x0007, t01=0x0004}
0x0b14…0b22 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0007, t01=0x0028}
0x0b22…0b2c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0036}
0x0b2c…0b36 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0040}
0x0b36…0b5a Head {h00=0x0020, h01=0x001c, text=»***** SET ERROR-CODE *****«, t00=0x0007, t01=0x004a}
0x0b5a…0b64 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x006e}
0x0b64…0b70 Head {h00=0x0008, h01=0x0004, text=»A800«, t00=0x0007, t01=0x0078}
0x0b70…0b96 Head {h00=0x0022, h01=0x001e, text=» PERF SETERR,W2 ERROR-CODE = 2«, t00=0x0007, t01=0x0084}
0x0b96…0ba6 Head {h00=0x000c, h01=0x0007, text=» B A100 «, t00=0x0007, t01=0x00aa}
0x0ba6…0bb0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00ba}
0x0bb0…0bba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00c4}
0x0bba…0bc4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00ce}
0x0bc4…0bf2 Head {h00=0x002a, h01=0x0026, text=»***** RETURN TO CALLING MODULE *****«, t00=0x0007, t01=0x00d8}
0x0bf2…0bfc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0106}
0x0bfc…0c08 Head {h00=0x0008, h01=0x0004, text=»A900«, t00=0x0007, t01=0x0110}
0x0c08…0c34 Head {h00=0x0028, h01=0x0023, text=» ADD BCD2A,BCD2A SET CONDITION-CODE «, t00=0x0007, t01=0x011c}
0x0c34…0c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0148}
0x0c3e…0c4a Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0007, t01=0x0152}
0x0c4a…0c58 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0007, t01=0x015e}
0x0c58…0c62 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x016c}
0x0c62…0cb2 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0007, t01=0x0176}
0x0cb2…0cbc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0036}
0x0cbc…0d06 Head {h00=0x0046, h01=0x0042, text=»* SUB-ROUTINE FOR EXAMINATION AND EXECUTION OF THE ACC-STRING«, t00=0x0008, t01=0x0040}
0x0d06…0d10 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x008a}
0x0d10…0d60 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0008, t01=0x0094}
0x0d60…0d6a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x00e4}
0x0d6a…0d78 Head {h00=0x000a, h01=0x0050, text=»EXACC «, t00=0x0008, t01=0x00ee}
0x0d78…0d84 Head {h00=0x0008, h01=0x0050, text=»B000«, t00=0x0008, t01=0x00fc}
0x0d84…0da8 Head {h00=0x0020, h01=0x0050, text=» SUB BIN12,W1 ADJUST DISPL. «, t00=0x0008, t01=0x0108}
0x0da8…0dde Head {h00=0x0032, h01=0x0050, text=» ADD BIN13,BIN12 DISPL. FOR LAST BYTE IN BIN13«, t00=0x0008, t01=0x012c}
0x0dde…0de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0162}
0x0de8…0e12 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,W0 CLEAR DUPL-FIELD-NR «, t00=0x0008, t01=0x016c}
0x0e12…0e20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0008}
0x0e20…0e2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0016}
0x0e2a…0e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0020}
0x0e34…0e5a Head {h00=0x0022, h01=0x0050, text=»*****GET ACCUMULATOR-NR *****«, t00=0x0009, t01=0x002a}
0x0e5a…0e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0050}
0x0e64…0e70 Head {h00=0x0008, h01=0x0050, text=»B100«, t00=0x0009, t01=0x005a}
0x0e70…0e96 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0009, t01=0x0066}
0x0e96…0ec4 Head {h00=0x002a, h01=0x0050, text=» CBG BIN12,BIN13,A250 END OF STRING ? «, t00=0x0009, t01=0x008c}
0x0ec4…0ece Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ba}
0x0ece…0eda Head {h00=0x0008, h01=0x0050, text=»B103«, t00=0x0009, t01=0x00c4}
0x0eda…0efc Head {h00=0x001e, h01=0x0050, text=» MOVE BIN6,W0 CLEAR ACC-NR«, t00=0x0009, t01=0x00d0}
0x0efc…0f12 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W0 «, t00=0x0009, t01=0x00f2}
0x0f12…0f2e Head {h00=0x0018, h01=0x0050, text=» MOVE STR6A,=C'MDA' «, t00=0x0009, t01=0x0108}
0x0f2e…0f6e Head {h00=0x003c, h01=0x0050, text=» MATCH STR6A,BIN7,W3,BPOOL(BIN11),BIN12,W1 NEXT BYTE...«, t00=0x0009, t01=0x0124}
0x0f6e…0f9a Head {h00=0x0028, h01=0x0050, text=» BNOK B120 ...NOT D OR A ?«, t00=0x0009, t01=0x0164}
0x0f9a…0fb4 Head {h00=0x0016, h01=0x0050, text=» IB BIN7,B105,B105«, t00=0x0009, t01=0x0190}
0x0fb4…0fc2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x001a}
0x0fc2…0fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0028}
0x0fcc…0ff6 Head {h00=0x0026, h01=0x0050, text=»* HANDLE CONDITIONAL ACCUMULATION «, t00=0x000a, t01=0x0032}
0x0ff6…1000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005c}
0x1000…102c Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW1,W0 SET INPUTLENGT = 0 «, t00=0x000a, t01=0x0066}
0x102c…1058 Head {h00=0x0028, h01=0x0050, text=» SUB BIN13,BIN12 PUT DISP INTO BIN13«, t00=0x000a, t01=0x0092}
0x1058…1088 Head {h00=0x002c, h01=0x0050, text=» PERF DENVAL,W1 EXECUTE VALIDATIONSTRING«, t00=0x000a, t01=0x00be}
0x1088…10a8 Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOLB ERROR-FLAG «, t00=0x000a, t01=0x00ee}
0x10a8…10ca Head {h00=0x001e, h01=0x0050, text=» BNZ B120 ERROR IN FORMAT «, t00=0x000a, t01=0x010e}
0x10ca…10f0 Head {h00=0x0022, h01=0x0050, text=» GET THE ACCUMULATION STRING«, t00=0x000a, t01=0x0130}
0x10f0…111e Head {h00=0x002a, h01=0x0050, text=» XCOPY BIN12,W1,W1,BIN3,W1 STARTPOINT «, t00=0x000a, t01=0x0156}
0x111e…1150 Head {h00=0x002e, h01=0x0050, text=» MOVE BIN3,W0 GET THE LENGTH OF ACC.STRING«, t00=0x000a, t01=0x0184}
0x1150…117c Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN3,W1,W1,BPOOL(BIN11),BIN12«, t00=0x000b, t01=0x0026}
0x117c…1196 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=X'3F'«, t00=0x000b, t01=0x0052}
0x1196…11b6 Head {h00=0x001c, h01=0x0050, text=» CALL MSKOUT,BIN13,BIN3 «, t00=0x000b, t01=0x006c}
0x11b6…11ec Head {h00=0x0032, h01=0x0050, text=» ADD BIN13,BIN12 PUT END OF ACC.STRING INTO 13«, t00=0x000b, t01=0x008c}
0x11ec…11fc Head {h00=0x000c, h01=0x0050, text=» B B100 «, t00=0x000b, t01=0x00c2}
0x11fc…1208 Head {h00=0x0008, h01=0x0050, text=»B105«, t00=0x000b, t01=0x00d2}
0x1208…1212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00de}
0x1212…1238 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x000b, t01=0x00e8}
0x1238…1278 Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN6,W1,W1,BPOOL(BIN11),BIN12 GET ACC-/DUPL-NR «, t00=0x000b, t01=0x010e}
0x1278…12a4 Head {h00=0x0028, h01=0x0050, text=» CBL BIN6,W1,B120 ACC-/DUPL-NR < 1 ?«, t00=0x000b, t01=0x014e}
0x12a4…12ca Head {h00=0x0022, h01=0x0050, text=» CBE BIN7,W1,B140 DUPL-FIELD ?«, t00=0x000b, t01=0x017a}
0x12ca…12d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0010}
0x12d4…12f8 Head {h00=0x0020, h01=0x0050, text=» CBNE BIN7,W2,B120 NOT ACC ?«, t00=0x000c, t01=0x001a}
0x12f8…131a Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN6,ACK(W1) «, t00=0x000c, t01=0x003e}
0x131a…133a Head {h00=0x001c, h01=0x0050, text=» BNOK B120 OUT OF RANGE «, t00=0x000c, t01=0x0060}
0x133a…1344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0080}
0x1344…136c Head {h00=0x0024, h01=0x0050, text=» CLEAR BOOL2 INDICATE PLUS-SIGN «, t00=0x000c, t01=0x008a}
0x136c…139c Head {h00=0x002c, h01=0x0050, text=» CLEAR BOOL6 INDICATE NO ABSOLUTE-VALUE «, t00=0x000c, t01=0x00b2}
0x139c…13ca Head {h00=0x002a, h01=0x0050, text=» CLEAR BOOL8 INDICATE DEFAULT NOT USED«, t00=0x000c, t01=0x00e2}
0x13ca…13d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0110}
0x13d8…13e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011e}
0x13e2…13ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0128}
0x13ec…140a Head {h00=0x001a, h01=0x0050, text=»***** EXAMINE ***** «, t00=0x000c, t01=0x0132}
0x140a…1414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0150}
0x1414…1420 Head {h00=0x0008, h01=0x0050, text=»B110«, t00=0x000c, t01=0x015a}
0x1420…1446 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x000c, t01=0x0166}
0x1446…1474 Head {h00=0x002a, h01=0x0050, text=» CBG BIN12,BIN13,B190 END OF STRING ? «, t00=0x000c, t01=0x018c}
0x1474…148a Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W7 «, t00=0x000d, t01=0x002a}
0x148a…14ce Head {h00=0x0040, h01=0x0050, text=» MATCH VALSTR,BIN7,W18,BPOOL(BIN11),BIN12,W1 NEXT BYTE = ?«, t00=0x000d, t01=0x0040}
0x14ce…14f2 Head {h00=0x0020, h01=0x0050, text=» BNOK B250 LITTERAL PREFIX ?«, t00=0x000d, t01=0x0084}
0x14f2…1514 Head {h00=0x001e, h01=0x0050, text=» SUB BIN7,W6 ADJUST INDEX «, t00=0x000d, t01=0x00a8}
0x1514…1528 Head {h00=0x0010, h01=0x0050, text=» IB BIN7 C «, t00=0x000d, t01=0x00ca}
0x1528…1552 Head {h00=0x0026, h01=0x0050, text=» B160,B120,B120,B120 "!,A,S,U" C «, t00=0x000d, t01=0x00de}
0x1552…157c Head {h00=0x0026, h01=0x0050, text=» B200,B120,B120,B120 "F,T,C,E" C «, t00=0x000d, t01=0x0108}
0x157c…15a6 Head {h00=0x0026, h01=0x0050, text=» B175,B170,B120,B120 "+,-,*,:" C «, t00=0x000d, t01=0x0132}
0x15a6…15d0 Head {h00=0x0026, h01=0x0050, text=» B190,B120,B120,B120 ";,&,V,?" C «, t00=0x000d, t01=0x015c}
0x15d0…15ea Head {h00=0x0016, h01=0x0050, text=» B120,B180 "',Z" «, t00=0x000d, t01=0x0186}
0x15ea…15f4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0010}
0x15f4…15fe Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x001a}
0x15fe…162a Head {h00=0x0028, h01=0x0023, text=»***** FORMAT-ERROR DETECTED ***** «, t00=0x000e, t01=0x0024}
0x162a…1634 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0050}
0x1634…1640 Head {h00=0x0008, h01=0x0050, text=»B120«, t00=0x000e, t01=0x005a}
0x1640…166a Head {h00=0x0026, h01=0x0022, text=» PERF SETERR,W2 SET ERROR-CODE = 2«, t00=0x000e, t01=0x0066}
0x166a…1674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0090}
0x1674…167e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x009a}
0x167e…16a6 Head {h00=0x0024, h01=0x0050, text=»***** DUPLICATE-FIELD-NR *****«, t00=0x000e, t01=0x00a4}
0x16a6…16b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16b0…16bc Head {h00=0x0008, h01=0x0050, text=»B140«, t00=0x000e, t01=0x00d6}
0x16bc…16e8 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN1,BIN6 UPDATE DUPL-FIELD-NR«, t00=0x000e, t01=0x00e2}
0x16e8…16f8 Head {h00=0x000c, h01=0x0050, text=» B A250 «, t00=0x000e, t01=0x010e}
0x16f8…1706 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x011e}
0x1706…1710 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012c}
0x1710…171a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0136}
0x171a…173e Head {h00=0x0020, h01=0x0050, text=»***** ABSOLUTE-VALUE *****«, t00=0x000e, t01=0x0140}
0x173e…1748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0164}
0x1748…1754 Head {h00=0x0008, h01=0x0050, text=»B160«, t00=0x000e, t01=0x016e}
0x1754…177e Head {h00=0x0026, h01=0x0050, text=» SET BOOL6 INDICATE ABSOLUTE-VALUE«, t00=0x000e, t01=0x017a}
0x177e…178e Head {h00=0x000c, h01=0x0050, text=» B B110 «, t00=0x000f, t01=0x0014}
0x178e…1798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0024}
0x1798…17a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002e}
0x17a2…17c2 Head {h00=0x001c, h01=0x0050, text=»***** MINUS-SIGN *****«, t00=0x000f, t01=0x0038}
0x17c2…17cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0058}
0x17cc…17d8 Head {h00=0x0008, h01=0x0050, text=»B170«, t00=0x000f, t01=0x0062}
0x17d8…17fe Head {h00=0x0022, h01=0x0050, text=» SET BOOL2 INDICATE MINUS-SIGN«, t00=0x000f, t01=0x006e}
0x17fe…1808 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0094}
0x1808…1812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009e}
0x1812…1832 Head {h00=0x001c, h01=0x0050, text=»***** PLUS-SIGN ***** «, t00=0x000f, t01=0x00a8}
0x1832…183c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c8}
0x183c…1848 Head {h00=0x0008, h01=0x0050, text=»B175«, t00=0x000f, t01=0x00d2}
0x1848…1858 Head {h00=0x000c, h01=0x0050, text=» B B110 «, t00=0x000f, t01=0x00de}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ee}
0x1862…186c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f8}
0x186c…188a Head {h00=0x001a, h01=0x0050, text=»***** ZEROISE ***** «, t00=0x000f, t01=0x0102}
0x188a…1894 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0120}
0x1894…18a0 Head {h00=0x0008, h01=0x0050, text=»B180«, t00=0x000f, t01=0x012a}
0x18a0…18c8 Head {h00=0x0024, h01=0x0050, text=» CBG OPTION,W0,B390 JUMP IF CORR«, t00=0x000f, t01=0x0136}
0x18c8…18f8 Head {h00=0x002c, h01=0x0050, text=» MOVE ACK(BIN6),='0' ZEROISE ACCUMULATOR«, t00=0x000f, t01=0x015e}
0x18f8…1908 Head {h00=0x000c, h01=0x0050, text=» B B390 «, t00=0x000f, t01=0x018e}
0x1908…1912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000e}
0x1912…191c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0018}
0x191c…193a Head {h00=0x001a, h01=0x0050, text=»***** DEFAULT ***** «, t00=0x0010, t01=0x0022}
0x193a…1944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0040}
0x1944…1950 Head {h00=0x0008, h01=0x0050, text=»B190«, t00=0x0010, t01=0x004a}
0x1950…1978 Head {h00=0x0024, h01=0x0050, text=» SET BOOL8 INDICATE DEFAULT USED«, t00=0x0010, t01=0x0056}
0x1978…1988 Head {h00=0x000c, h01=0x0050, text=» B B210 «, t00=0x0010, t01=0x007e}
0x1988…1996 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x008e}
0x1996…19a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009c}
0x19a0…19aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a6}
0x19aa…19cc Head {h00=0x001e, h01=0x0050, text=»***** FORMAT-FIELD *****«, t00=0x0010, t01=0x00b0}
0x19cc…19d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d2}
0x19d6…19e2 Head {h00=0x0008, h01=0x0050, text=»B200«, t00=0x0010, t01=0x00dc}
0x19e2…1a08 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0010, t01=0x00e8}
0x1a08…1a44 Head {h00=0x0038, h01=0x0050, text=» XCOPY BIN7,W1,W1,BPOOL(BIN11),BIN12 GET FIELDNUMBER«, t00=0x0010, t01=0x010e}
0x1a44…1a72 Head {h00=0x002a, h01=0x0050, text=» CBNE BIN7,W0,B220 JUMP IF NOT CURRENT«, t00=0x0010, t01=0x014a}
0x1a72…1a7e Head {h00=0x0008, h01=0x0050, text=»B210«, t00=0x0010, t01=0x0178}
0x1a7e…1aa4 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN7,BIN2 CURRENT FIELD «, t00=0x0010, t01=0x0184}
0x1aa4…1ab0 Head {h00=0x0008, h01=0x0050, text=»B220«, t00=0x0011, t01=0x001a}
0x1ab0…1ae6 Head {h00=0x0032, h01=0x0050, text=» CON X.MOVE,STR64A,X.PSEU1,X.PSEU2,X.WB10,BIN7«, t00=0x0011, t01=0x0026}
0x1ae6…1b06 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W1),STR64A «, t00=0x0011, t01=0x005c}
0x1b06…1b16 Head {h00=0x000c, h01=0x0050, text=» B B300 «, t00=0x0011, t01=0x007c}
0x1b16…1b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008c}
0x1b20…1b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0096}
0x1b2a…1b48 Head {h00=0x001a, h01=0x0050, text=»***** LITTERAL *****«, t00=0x0011, t01=0x00a0}
0x1b48…1b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00be}
0x1b52…1b5e Head {h00=0x0008, h01=0x0050, text=»B250«, t00=0x0011, t01=0x00c8}
0x1b5e…1ba4 Head {h00=0x0042, h01=0x0050, text=» XCOPY BIN7,W1,W1,BPOOL(BIN11),BIN12 MOVE PREFIX TO WORKITEM«, t00=0x0011, t01=0x00d4}
0x1ba4…1bcc Head {h00=0x0024, h01=0x0050, text=» CBL BIN7,W64,B120 NO LITTERAL ?«, t00=0x0011, t01=0x011a}
0x1bcc…1bf0 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN9,=X'3F' REMOVE... «, t00=0x0011, t01=0x0142}
0x1bf0…1c18 Head {h00=0x0024, h01=0x0050, text=» CALL MSKOUT,BIN9,BIN7 ...FLAGGS«, t00=0x0011, t01=0x0166}
0x1c18…1c34 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0011, t01=0x018e}
0x1c34…1c5a Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0012, t01=0x001a}
0x1c5a…1c98 Head {h00=0x003a, h01=0x0050, text=» COPY DEINPUT,W0,BIN9,BPOOL(BIN11),BIN12 GET LITTERAL«, t00=0x0012, t01=0x0040}
0x1c98…1cca Head {h00=0x002e, h01=0x0050, text=» MOVE BCDI21(W1),DEINPUT MOVE TO WORKITEM «, t00=0x0012, t01=0x007e}
0x1cca…1cec Head {h00=0x001e, h01=0x0050, text=» SUB BIN9,W1 ADJUST INDEX «, t00=0x0012, t01=0x00b0}
0x1cec…1d14 Head {h00=0x0024, h01=0x0050, text=» ADD BIN12,BIN9 INCREASE DISPL. «, t00=0x0012, t01=0x00d2}
0x1d14…1d22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00fa}
0x1d22…1d2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0108}
0x1d2c…1d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0112}
0x1d36…1d60 Head {h00=0x0026, h01=0x0050, text=»***** EXECUTE ACCUMULATION *****«, t00=0x0012, t01=0x011c}
0x1d60…1d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0146}
0x1d6a…1d76 Head {h00=0x0008, h01=0x0050, text=»B300«, t00=0x0012, t01=0x0150}
0x1d76…1da2 Head {h00=0x0028, h01=0x0050, text=» TBF BOOL6,B310 NO ABSOLUTE-VALUE ? «, t00=0x0012, t01=0x015c}
0x1da2…1ddc Head {h00=0x0036, h01=0x0050, text=» COPY BCDI21(W1),W0,W1,D1,W0 PLUS-SIGN TO WORKITEM«, t00=0x0012, t01=0x0188}
0x1ddc…1de8 Head {h00=0x0008, h01=0x0050, text=»B310«, t00=0x0013, t01=0x0032}
0x1de8…1e0c Head {h00=0x0020, h01=0x0050, text=» TBT BOOL2,B330 MINUS-SIGN ?«, t00=0x0013, t01=0x003e}
0x1e0c…1e32 Head {h00=0x0022, h01=0x0050, text=» TBT BOOL1,B340 REVERSED ACC ?«, t00=0x0013, t01=0x0062}
0x1e32…1e3e Head {h00=0x0008, h01=0x0050, text=»B320«, t00=0x0013, t01=0x0088}
0x1e3e…1e72 Head {h00=0x0030, h01=0x0050, text=» ADD ACK(BIN6),BCDI21(W1) ADD TO ACCUMULATOR«, t00=0x0013, t01=0x0094}
0x1e72…1e82 Head {h00=0x000c, h01=0x0050, text=» B B350 «, t00=0x0013, t01=0x00c8}
0x1e82…1e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d8}
0x1e8c…1e98 Head {h00=0x0008, h01=0x0050, text=»B330«, t00=0x0013, t01=0x00e2}
0x1e98…1ebe Head {h00=0x0022, h01=0x0050, text=» TBT BOOL1,B320 REVERSED ACC ?«, t00=0x0013, t01=0x00ee}
0x1ebe…1eca Head {h00=0x0008, h01=0x0050, text=»B340«, t00=0x0013, t01=0x0114}
0x1eca…1f06 Head {h00=0x0038, h01=0x0050, text=» SUB ACK(BIN6),BCDI21(W1) SUBTRACT FROM ACCUMULATOR «, t00=0x0013, t01=0x0120}
0x1f06…1f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x015c}
0x1f10…1f1c Head {h00=0x0008, h01=0x0050, text=»B350«, t00=0x0013, t01=0x0166}
0x1f1c…1f2e Head {h00=0x000e, h01=0x0050, text=» BOFL B360«, t00=0x0013, t01=0x0172}
0x1f2e…1f3e Head {h00=0x000c, h01=0x0050, text=» B B380 «, t00=0x0013, t01=0x0184}
0x1f3e…1f4a (20, 0, 400) Head {h00=0x0008, h01=0x0050, text=»B360«, t00=0x0014, t01=0x0004}
0x1f4a…1f74 Head {h00=0x0026, h01=0x0050, text=» PERF SETERR,W3 SET ERROR-CODE = 3«, t00=0x0014, t01=0x0010}
0x1f74…1f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003a}
0x1f7e…1f8a Head {h00=0x0008, h01=0x0050, text=»B380«, t00=0x0014, t01=0x0044}
0x1f8a…1fb0 Head {h00=0x0022, h01=0x0050, text=» TBT BOOL8,B395 DEFAULT USED ?«, t00=0x0014, t01=0x0050}
0x1fb0…1fbc Head {h00=0x0008, h01=0x0050, text=»B390«, t00=0x0014, t01=0x0076}
0x1fbc…1fe2 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0014, t01=0x0082}
0x1fe2…1ffa Head {h00=0x0014, h01=0x0050, text=» CMP BIN12,BIN13«, t00=0x0014, t01=0x00a8}
0x1ffa…2020 Head {h00=0x0022, h01=0x0050, text=» BG A250 END OF STRING REACHED«, t00=0x0014, t01=0x00c0}
0x2020…2036 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W19«, t00=0x0014, t01=0x00e6}
0x2036…207a Head {h00=0x0040, h01=0x0050, text=» MATCH VALSTR,BIN7,W1,BPOOL(BIN11),BIN12,W1 NEXT BYTE... «, t00=0x0014, t01=0x00fc}
0x207a…208c Head {h00=0x000e, h01=0x0050, text=» BNOK B120«, t00=0x0014, t01=0x0140}
0x208c…2098 Head {h00=0x0008, h01=0x0050, text=»B395«, t00=0x0014, t01=0x0152}
0x2098…20a8 Head {h00=0x000c, h01=0x0050, text=» B B100 «, t00=0x0014, t01=0x015e}
0x20a8…20b2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x016e}
0x20b2…20c0 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0014, t01=0x0178}
0x20c0…20ce Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0014, t01=0x0186}
0x20ce…20d8 (21, 0, 398) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0004}
0x20d8…2128 Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0015, t01=0x000e}
0x2128…2132 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x005e}
0x2132…2168 Head {h00=0x0032, h01=0x002d, text=»* SUB-ROUTINE FOR SETTING THE ERROR-CODE «, t00=0x0015, t01=0x0068}
0x2168…2172 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x009e}
0x2172…21c2 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0015, t01=0x00a8}
0x21c2…21cc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00f8}
0x21cc…21e6 Head {h00=0x0016, h01=0x0012, text=»SETERR PROC ERRIND«, t00=0x0015, t01=0x0102}
0x21e6…21f2 Head {h00=0x0008, h01=0x0004, text=»X000«, t00=0x0015, t01=0x011c}
0x21f2…2214 Head {h00=0x001e, h01=0x0019, text=» IB ERRIND,X100,X200,X300 «, t00=0x0015, t01=0x0128}
0x2214…221e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x014a}
0x221e…222a Head {h00=0x0008, h01=0x0004, text=»X100«, t00=0x0015, t01=0x0154}
0x222a…2250 Head {h00=0x0022, h01=0x0050, text=» MOVE BCD2A,D1 UNDEFINED ERROR«, t00=0x0015, t01=0x0160}
0x2250…2260 Head {h00=0x000c, h01=0x0007, text=» B X900 «, t00=0x0015, t01=0x0186}
0x2260…226a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0008}
0x226a…2276 Head {h00=0x0008, h01=0x0004, text=»X200«, t00=0x0016, t01=0x0012}
0x2276…229c Head {h00=0x0022, h01=0x001e, text=» MOVE BCD2A,='-1' FORMAT-ERROR«, t00=0x0016, t01=0x001e}
0x229c…22ac Head {h00=0x000c, h01=0x0007, text=» B X900 «, t00=0x0016, t01=0x0044}
0x22ac…22b6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0054}
0x22b6…22c2 Head {h00=0x0008, h01=0x0004, text=»X300«, t00=0x0016, t01=0x005e}
0x22c2…22e4 Head {h00=0x001e, h01=0x0019, text=» MOVE BCD2A,='9' OVERFLOW «, t00=0x0016, t01=0x006a}
0x22e4…22ee Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x008c}
0x22ee…22f8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0096}
0x22f8…2304 Head {h00=0x0008, h01=0x0004, text=»X900«, t00=0x0016, t01=0x00a0}
0x2304…2310 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0016, t01=0x00ac}
0x2310…231a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00b8}
0x231a…2328 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0016, t01=0x00c2}
0x2328…2332 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00d0}
0x2332…233e Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0016, t01=0x00da}
0x233e…2342 Head {h00=0x4004, h01=0x0000}
0x2342…2346 00 16 00 e6 ┆ ┆
0x2346…234e (23, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0x234e…235a (24, 0, 12) 38 30 30 32 30 38 00 10 02 6a 02 63 ┆800208 j c┆
0x235a…23aa (25, 0, 400) 00 d2 44 45 52 52 4f 52 00 0d 00 0a 00 0a 38 30 30 32 30 38 00 00 00 00 02 04 c8 24 24 24 54 52 41 44 05 1d 88 43 41 4e 43 4f 00 64 c8 44 45 43 48 4b 31 41 00 9f c8 44 45 43 48 4b 32 30 00 9f c8 44 45 43 48 4b 33 31 00 9f c8 44 45 43 48 4b ┆ DERROR 800208 $$$TRAD CANCO d DECHK1A DECHK20 DECHK31 DECHK┆
0x23aa…23fa 34 30 00 9f c8 44 45 43 48 4b 35 20 00 9f 05 19 c8 44 45 43 48 4b 36 44 00 9f c8 44 45 43 48 4b 37 43 00 9f c8 44 45 52 52 4f 52 4b 00 00 c8 44 45 53 54 41 54 00 00 9f c8 44 45 54 43 48 4b 44 00 9f 02 1b c8 54 3a 44 49 53 50 64 c8 54 3a 44 ┆40 DECHK5 DECHK6D DECHK7C DERRORK DESTAT DETCHKD T:DISPd T:D┆
0x23fa…244a 53 43 31 41 c8 54 3a 45 44 57 52 4b c8 54 3a 45 52 41 53 43 c8 54 3a 47 45 54 41 44 a8 54 3a 4e 4b 49 c8 54 3a 53 45 54 43 4b 07 04 00 00 00 20 00 a1 00 00 00 c2 52 45 4f 52 47 53 00 17 00 09 00 08 38 30 30 32 30 38 00 00 00 00 02 04 c8 24 ┆SC1A T:EDWRK T:ERASC T:GETAD T:NKI T:SETCK REORGS 800208 $┆
0x244a…249a 24 24 54 52 41 4f 05 05 c8 52 45 4f 52 47 53 00 00 00 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 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 ┆$$TRAO REORGS CHANFCO CHVOL CLOFIL DECLRA2 DECLRN1 DEDISC DEPOOL1 DERRL┆
0x249a…24ea 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 c8 54 3a 41 53 53 49 00 c8 54 3a 41 54 54 46 00 c8 54 3a 44 49 53 50 00 02 08 c8 54 3a 44 53 43 30 4f c8 54 3a 54 48 4f 4d 43 07 04 ┆ DISUG DSKERR NOFFRE OPCL REFSP T:ASSI T:ATTF T:DISP T:DSC0O T:THOMC ┆
0x24ea…253a (26, 0, 400) 00 00 00 20 02 66 00 00 00 54 57 52 49 54 31 32 00 20 00 2b 00 03 38 30 30 32 30 38 00 00 00 00 02 04 c8 24 24 24 54 52 41 49 05 08 88 52 45 43 31 00 00 00 88 52 45 43 32 00 00 5b 02 0b c8 44 53 4b 45 52 52 49 88 53 45 54 42 54 c8 54 3a 52 ┆ f TWRIT12 + 800208 $$$TRAI REC1 REC2 [ DSKERRI SETBT T:R┆
0x253a…258a 57 52 49 20 07 04 00 00 01 7b 01 7f 00 00 00 36 42 49 44 41 43 52 00 4b 00 02 00 02 38 30 30 32 30 38 00 00 00 00 05 04 bc 42 49 44 41 43 00 1a 05 05 dc 42 49 44 41 43 52 00 00 68 07 04 00 00 00 00 00 ac 00 00 00 4a 42 49 4e 41 43 52 00 4d ┆WRI { 6BIDACR K 800208 BIDAC BIDACR h JBINACR M┆
0x258a…25da 00 02 00 02 38 30 30 32 30 38 00 00 00 00 02 04 c2 44 53 55 4d 4f 44 00 02 04 c2 41 44 44 4d 4f 44 00 05 04 bc 42 49 4e 41 43 00 2c 05 05 dc 42 49 4e 41 43 52 00 00 c2 07 04 00 00 00 00 01 04 00 00 00 2c 41 44 44 4d 4f 44 00 4f 00 01 00 01 ┆ 800208 DSUMOD ADDMOD BINAC , BINACR ,ADDMOD O ┆
0x25da…262a 38 30 30 32 30 38 00 00 00 00 05 05 dc 41 44 44 4d 4f 44 00 00 00 07 04 00 00 00 00 00 4a 00 00 00 2c 44 53 55 4d 4f 44 00 50 00 01 00 01 38 30 30 32 30 38 00 00 00 00 05 05 dc 44 53 55 4d 4f 44 00 00 00 07 04 00 00 00 00 00 56 00 00 00 6c ┆800208 ADDMOD J ,DSUMOD P 800208 DSUMOD V l┆
0x262a…267a 44 53 4b 45 52 52 00 51 00 54 00 06 38 30 30 32 30 38 00 00 00 00 02 04 c8 24 24 24 54 52 41 4b 05 08 68 41 50 50 00 0e c8 44 53 4b 45 52 52 00 00 00 02 17 c8 43 48 41 4e 46 43 4b c8 43 4c 4f 46 49 4c 41 88 44 45 52 52 20 c8 47 45 54 56 4f ┆DSKERR Q T 800208 $$$TRAK hAPP DSKERR CHANFCK CLOFILA DERR GETVO┆
0x267a…26ca (27, 0, 400) 4c 30 c8 54 3a 44 49 53 50 31 c8 54 3a 45 52 41 53 20 07 04 00 00 02 56 02 59 00 00 01 82 44 45 4e 54 45 52 00 a5 00 0d 00 09 38 30 30 32 30 38 00 00 00 00 02 04 c8 24 24 24 54 52 41 4e 05 18 c8 44 45 43 4c 52 41 00 00 00 c8 44 45 43 4c 52 ┆L0 T:DISP1 T:ERAS V Y DENTER 800208 $$$TRAN DECLRA DECLR┆
0x26ca…271a 44 44 00 0f c8 44 45 43 4c 52 4e 43 00 0a c8 44 45 43 4c 52 53 00 00 05 88 44 45 52 52 00 00 14 02 1d 68 41 50 50 88 43 41 4e 43 45 c8 44 45 43 48 4b 31 34 c8 44 45 43 48 4b 32 30 c8 44 45 43 48 4b 33 20 c8 44 45 43 48 4b 34 52 c8 44 45 43 ┆DD DECLRNC DECLRS DERR hAPP CANCE DECHK14 DECHK20 DECHK3 DECHK4R DEC┆
0x271a…276a 48 4b 35 37 c8 44 45 43 48 4b 36 20 02 1f c8 44 45 43 48 4b 37 00 c8 44 45 52 52 4f 52 52 c8 44 45 53 54 41 54 43 c8 44 45 54 43 48 4b 44 c8 45 4d 50 54 59 54 05 88 4d 41 53 4b 00 c8 54 3a 44 49 53 50 00 c8 54 3a 44 55 50 4c 00 02 1c c8 54 ┆HK57 DECHK6 DECHK7 DERRORR DESTATC DETCHKD EMPTYT MASK T:DISP T:DUPL T┆
0x276a…27ba 3a 44 59 4b 49 4e c8 54 3a 45 44 46 4c 4b c8 54 3a 45 44 57 52 4b c8 54 3a 45 52 41 53 4b c8 54 3a 47 45 54 41 4b c8 54 3a 47 45 54 43 4b c8 54 3a 47 45 54 46 4b 02 1f a8 54 3a 4e 4b 49 c8 54 3a 50 52 49 4e 4f c8 54 3a 53 45 54 43 41 c8 54 ┆:DYKIN T:EDFLK T:EDWRK T:ERASK T:GETAK T:GETCK T:GETFK T:NKI T:PRINO T:SETCA T┆
0x27ba…280a 3a 54 42 57 44 48 c8 54 3a 54 44 4f 57 59 c8 54 3a 54 46 57 44 00 c8 54 3a 54 48 4f 4d 00 c8 54 3a 54 4c 44 4f 00 02 17 c8 54 3a 54 4c 45 46 4e c8 54 3a 54 52 49 47 4b c8 54 3a 54 53 54 43 4b a8 54 3a 54 55 50 c8 54 3a 55 50 44 46 54 c8 54 ┆:TBWDH T:TDOWY T:TFWD T:THOM T:TLDO T:TLEFN T:TRIGK T:TSTCK T:TUP T:UPDFT T┆
0x280a…285a (28, 0, 400) 3a 58 53 54 41 54 07 04 00 00 00 20 02 29 00 00 00 4c 44 45 50 4f 4f 4c 00 b2 00 0b 00 05 38 30 30 32 30 38 00 00 00 00 02 04 c8 24 24 24 54 52 41 50 05 05 c8 44 45 50 4f 4f 4c 00 00 00 02 0a c8 43 4d 50 49 4e 44 50 88 53 45 54 42 54 a8 54 ┆:XSTAT ) LDEPOOL 800208 $$$TRAP DEPOOL CMPINDP SETBT T┆
0x285a…28aa 45 53 54 42 07 04 00 00 03 00 03 65 00 00 00 86 52 45 4f 52 47 55 00 bd 00 18 00 08 38 30 30 32 30 38 00 00 00 00 02 04 c8 24 24 24 54 52 41 4f 05 05 c8 52 45 4f 52 47 55 00 00 00 02 1e c8 43 48 41 4e 46 43 4f a8 43 48 56 4f 4c c8 44 45 43 ┆ESTB e REORGU 800208 $$$TRAO REORGU CHANFCO CHVOL DEC┆
0x28aa…28fa 4c 52 4e 20 88 44 49 53 55 2d c8 44 53 4b 45 52 52 31 c8 46 52 45 45 53 50 4c c8 47 45 54 56 4f 4c 39 c8 54 3a 41 53 53 49 4c 02 08 c8 54 3a 41 54 54 46 00 c8 54 3a 44 53 43 30 00 07 04 00 00 00 20 02 c1 00 00 00 82 43 52 45 53 55 44 00 d5 ┆LRN DISU- DSKERR1 FREESPL GETVOL9 T:ASSIL T:ATTF T:DSC0 CRESUD ┆
0x28fa…294a 00 1d 00 08 38 30 30 32 30 38 00 00 00 00 02 04 c8 24 24 24 54 52 41 45 05 05 c8 43 52 45 53 55 44 00 00 00 02 1c c8 43 48 56 4e 41 4d 45 c8 43 4c 4f 46 49 4c 41 c8 43 52 45 46 49 4c 39 c8 44 45 43 4c 52 41 46 c8 44 53 4b 45 52 52 20 c8 52 ┆ 800208 $$$TRAE CRESUD CHVNAME CLOFILA CREFIL9 DECLRAF DSKERR R┆
0x294a…299a 44 53 45 43 54 2e c8 54 3a 41 53 53 49 2d 02 08 c8 54 3a 41 54 54 46 00 c8 54 3a 45 52 41 53 00 07 04 00 00 00 20 01 0c 00 00 01 0c 54 3a 41 54 31 30 00 f2 00 03 00 02 38 30 30 32 30 38 00 00 00 00 05 05 c8 54 3a 41 54 31 30 41 00 a0 02 1c ┆DSECT. T:ASSI- T:ATTF T:ERAS T:AT10 800208 T:AT10A ┆