|
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: 10064 (0x2750)
Notes: pts_type(SC)
Names: »DEACCU.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DEACCU.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DEACCU.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DEACCU.SC«
IDENT DEACCU REL 10.0 80-04-11 UPD 80-10-28/DALI UPD 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 DEFIND FIELD ADRESS ROUTINE EXT DENVAL INCLUDE DELITT EJECT * ************************************************************************ * * MAIN-ROUTINE FOR ACCUMULATION * ************************************************************************ * DEACC PROC OPTION A000 CLEAR BOOL9 MOVE BCD2A,='0' CLEAR ERROR-INDICATOR MOVE DEBINW3,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 DEBINW3,W1 INCREASE CURRENT-FIELD-NR CALL GETFWD,DEBINW4,3,DEBINW3,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,DEBINW3,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 GETABX DEBINW3 MAKE ORIGINATE FIELD CURRENT AGAIN 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. PERF DEFIND,BIN6,DEBINW4 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. PERF DEFIND,BIN7,DEBINW4 CBNE BIN7,W0,B220 JUMP IF NOT CURRENT B210 MOVE BIN7,DEBINW3 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…0046 Head {h00=0x001a, h01=0x0050, text=» UPD 80-10-28/DALI «, t00=0x0000, t01=0x002c}
0x0046…0064 Head {h00=0x001a, h01=0x0050, text=» UPD 80-03-05/DALI «, t00=0x0000, t01=0x004a}
0x0064…006e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0068}
0x006e…00be Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0000, t01=0x0072}
0x00be…00c8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00c2}
0x00c8…0106 Head {h00=0x003a, h01=0x0036, text=»* SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800«, t00=0x0000, t01=0x00cc}
0x0106…0110 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x010a}
0x0110…0152 Head {h00=0x003e, h01=0x0039, text=»* AFTER ENTERING A PICTURE (I.E. RECORD) THIS MODULE «, t00=0x0000, t01=0x0114}
0x0152…0190 Head {h00=0x003a, h01=0x0036, text=»* SEARCHES FOR AND EXECUTES THE "FACC"-STRINGS IN«, t00=0x0000, t01=0x0156}
0x0190…01aa (1, 0, 400) Head {h00=0x0016, h01=0x0012, text=»* THE FORMAT.«, t00=0x0001, t01=0x0004}
0x01aa…01b4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x001e}
0x01b4…01f4 Head {h00=0x003c, h01=0x0037, text=»* AT DELETION OF A RECORD THIS MODULE REVERSES THE «, t00=0x0001, t01=0x0028}
0x01f4…0226 Head {h00=0x002e, h01=0x0029, text=»* ACCUMULATIONS DONE BY THAT RECORD. «, t00=0x0001, t01=0x0068}
0x0226…0230 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x009a}
0x0230…026a Head {h00=0x0036, h01=0x0050, text=»* THE MODULE IS ENTERED WHITH THE STATEMENT: «, t00=0x0001, t01=0x00a4}
0x026a…0274 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00de}
0x0274…029c Head {h00=0x0024, h01=0x0050, text=»* * PERF DEACC,OPTION * «, t00=0x0001, t01=0x00e8}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0110}
0x02a6…02bc Head {h00=0x0012, h01=0x0050, text=»* WHERE: «, t00=0x0001, t01=0x011a}
0x02bc…02c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0130}
0x02c6…0302 Head {h00=0x0038, h01=0x0050, text=»* - OPTION = BIN-ITEM TELLING WANTED FACILITY«, t00=0x0001, t01=0x013a}
0x0302…0326 Head {h00=0x0020, h01=0x0050, text=»* - 0 = NORMAL ACC «, t00=0x0001, t01=0x0176}
0x0326…034c Head {h00=0x0022, h01=0x0050, text=»* - 1 = REVERSED ACC «, t00=0x0002, t01=0x000a}
0x034c…0380 Head {h00=0x0030, h01=0x0050, text=»* -2 = CORRECTION,IGNORE ZEROIZING «, t00=0x0002, t01=0x0030}
0x0380…03d0 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0002, t01=0x0064}
0x03d0…03da Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00b4}
0x03da…03ee Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0002, t01=0x00be}
0x03ee…03fc Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0002, t01=0x00d2}
0x03fc…0406 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00e0}
0x0406…0410 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x00ea}
0x0410…0426 Head {h00=0x0012, h01=0x000e, text=»***** ENTRIES«, t00=0x0002, t01=0x00f4}
0x0426…0430 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x010a}
0x0430…0444 Head {h00=0x0010, h01=0x0050, text=» ENTRY DEACC«, t00=0x0002, t01=0x0114}
0x0444…045a Head {h00=0x0012, h01=0x0050, text=» ENTRY SETERR «, t00=0x0002, t01=0x0128}
0x045a…0464 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x013e}
0x0464…046e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x0148}
0x046e…0486 Head {h00=0x0014, h01=0x0010, text=»***** EXTERNALS«, t00=0x0002, t01=0x0152}
0x0486…0490 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0002, t01=0x016a}
0x0490…04a4 Head {h00=0x0010, h01=0x000b, text=» EXT GETACC «, t00=0x0002, t01=0x0174}
0x04a4…04b8 Head {h00=0x0010, h01=0x0050, text=» EXT MSKOUT «, t00=0x0002, t01=0x0188}
0x04b8…04cc Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0003, t01=0x000c}
0x04cc…04e0 Head {h00=0x0010, h01=0x0050, text=» EXT GETFWD «, t00=0x0003, t01=0x0020}
0x04e0…04f4 Head {h00=0x0010, h01=0x0050, text=» EXT ADJUST «, t00=0x0003, t01=0x0034}
0x04f4…0516 Head {h00=0x001e, h01=0x0050, text=» EXT CMPIND COMPARE INDEX «, t00=0x0003, t01=0x0048}
0x0516…0542 Head {h00=0x0028, h01=0x0050, text=» EXT DEFIND FIELD ADRESS ROUTINE «, t00=0x0003, t01=0x006a}
0x0542…0556 Head {h00=0x0010, h01=0x0050, text=» EXT DENVAL «, t00=0x0003, t01=0x0096}
0x0556…056e Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0003, t01=0x00aa}
0x056e…057c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0003, t01=0x00c2}
0x057c…0586 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x00d0}
0x0586…05d6 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0003, t01=0x00da}
0x05d6…05e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x012a}
0x05e0…060c Head {h00=0x0028, h01=0x0024, text=»* MAIN-ROUTINE FOR ACCUMULATION«, t00=0x0003, t01=0x0134}
0x060c…0616 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0003, t01=0x0160}
0x0616…0666 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0003, t01=0x016a}
0x0666…0670 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x002a}
0x0670…068a Head {h00=0x0016, h01=0x0050, text=»DEACC PROC OPTION «, t00=0x0004, t01=0x0034}
0x068a…0696 Head {h00=0x0008, h01=0x0004, text=»A000«, t00=0x0004, t01=0x004e}
0x0696…06aa Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL9«, t00=0x0004, t01=0x005a}
0x06aa…06d8 Head {h00=0x002a, h01=0x0026, text=» MOVE BCD2A,='0' CLEAR ERROR-INDICATOR«, t00=0x0004, t01=0x006e}
0x06d8…0708 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW3,W0 CLEAR CURRENT-FIELD-NR «, t00=0x0004, t01=0x009c}
0x0708…0734 Head {h00=0x0028, h01=0x0050, text=» TBF DBOACC,A900 NO ACC IN FORMAT ? «, t00=0x0004, t01=0x00cc}
0x0734…075a Head {h00=0x0022, h01=0x0050, text=» SET BOOL1 INDICATE NORMAL ACC«, t00=0x0004, t01=0x00f8}
0x075a…0776 Head {h00=0x0018, h01=0x0050, text=» IB OPTION,A100,A050«, t00=0x0004, t01=0x011e}
0x0776…0782 Head {h00=0x0008, h01=0x0050, text=»A050«, t00=0x0004, t01=0x013a}
0x0782…07ac Head {h00=0x0026, h01=0x0050, text=» CLEAR BOOL1 INDICATE REVERSED ACC«, t00=0x0004, t01=0x0146}
0x07ac…07b6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x0170}
0x07b6…07c0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0004, t01=0x017a}
0x07c0…07e6 Head {h00=0x0022, h01=0x001e, text=»***** SEARCH ACC-FIELD *****«, t00=0x0004, t01=0x0184}
0x07e6…07f0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x001a}
0x07f0…07fc Head {h00=0x0008, h01=0x0004, text=»A100«, t00=0x0005, t01=0x0024}
0x07fc…082e Head {h00=0x002e, h01=0x0050, text=» ADD DEBINW3,W1 INCREASE CURRENT-FIELD-NR «, t00=0x0005, t01=0x0030}
0x082e…086e Head {h00=0x003c, h01=0x0050, text=» CALL GETFWD,DEBINW4,3,DEBINW3,BIN11 GET NEXT ACC-FIELD «, t00=0x0005, t01=0x0062}
0x086e…088a Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DEBINW4«, t00=0x0005, t01=0x00a2}
0x088a…08ac Head {h00=0x001e, h01=0x001a, text=» BERR A900 END OF FORMAT ?«, t00=0x0005, t01=0x00be}
0x08ac…08d2 Head {h00=0x0022, h01=0x0050, text=» ..."CURRENT-FIELD" CURRENT «, t00=0x0005, t01=0x00e0}
0x08d2…08dc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0106}
0x08dc…08e6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x0110}
0x08e6…090a Head {h00=0x0020, h01=0x001c, text=»***** GET ACC-STRING *****«, t00=0x0005, t01=0x011a}
0x090a…0914 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0005, t01=0x013e}
0x0914…0920 Head {h00=0x0008, h01=0x0050, text=»A200«, t00=0x0005, t01=0x0148}
0x0920…0950 Head {h00=0x002c, h01=0x0050, text=» CALL GETACC,BPOOL(W1),BIN11,BIN12,BIN13«, t00=0x0005, t01=0x0154}
0x0950…0976 Head {h00=0x0022, h01=0x001d, text=» BNOK A800 STRING NOT FOUND ? «, t00=0x0005, t01=0x0184}
0x0976…098e Head {h00=0x0014, h01=0x0050, text=» TBF BOOL9,A210 «, t00=0x0006, t01=0x001a}
0x098e…09ba Head {h00=0x0028, h01=0x0050, text=» CALL GETFWD,DEBINW4,0,DEBINW3,BIN7 «, t00=0x0006, t01=0x0032}
0x09ba…09d6 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DEBINW4«, t00=0x0006, t01=0x005e}
0x09d6…09ea Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL9«, t00=0x0006, t01=0x007a}
0x09ea…09f6 Head {h00=0x0008, h01=0x0050, text=»A210«, t00=0x0006, t01=0x008e}
0x09f6…0a14 Head {h00=0x001a, h01=0x0050, text=» CALL EMPTYT,:FMTITEM «, t00=0x0006, t01=0x009a}
0x0a14…0a34 Head {h00=0x001c, h01=0x0050, text=» BNZ A800 IF EMPTY FIELD«, t00=0x0006, t01=0x00b8}
0x0a34…0a3e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x00d8}
0x0a3e…0a48 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x00e2}
0x0a48…0a70 Head {h00=0x0024, h01=0x0020, text=»***** EXECUTE ACC-STRING *****«, t00=0x0006, t01=0x00ec}
0x0a70…0a7a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0006, t01=0x0114}
0x0a7a…0a98 Head {h00=0x001a, h01=0x0050, text=» B EXACC "PERF" EXACC «, t00=0x0006, t01=0x011e}
0x0a98…0aa4 Head {h00=0x0008, h01=0x0050, text=»A250«, t00=0x0006, t01=0x013c}
0x0aa4…0ad6 Head {h00=0x002e, h01=0x0050, text=» CBE BIN1,W0,A100 NO DUPL IN LAST STRING ?«, t00=0x0006, t01=0x0148}
0x0ad6…0ae8 Head {h00=0x000e, h01=0x0050, text=» SET BOOL9«, t00=0x0006, t01=0x017a}
0x0ae8…0af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x018c}
0x0af2…0b34 Head {h00=0x003e, h01=0x0050, text=» CALL GETFWD,DEBINW4,0,BIN1,BIN7 MAKE DUPPL-FIELD CURRENT «, t00=0x0007, t01=0x0008}
0x0b34…0b50 Head {h00=0x0018, h01=0x0050, text=» CALL ADJUST,DEBINW4«, t00=0x0007, t01=0x004a}
0x0b50…0b74 Head {h00=0x0020, h01=0x0050, text=» BOK A200 'DUPL-FIELD' FOUND«, t00=0x0007, t01=0x0066}
0x0b74…0b82 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0007, t01=0x008a}
0x0b82…0b8c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0098}
0x0b8c…0b96 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00a2}
0x0b96…0bba Head {h00=0x0020, h01=0x001c, text=»***** SET ERROR-CODE *****«, t00=0x0007, t01=0x00ac}
0x0bba…0bc4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00d0}
0x0bc4…0bd0 Head {h00=0x0008, h01=0x0004, text=»A800«, t00=0x0007, t01=0x00da}
0x0bd0…0bf6 Head {h00=0x0022, h01=0x001e, text=» PERF SETERR,W2 ERROR-CODE = 2«, t00=0x0007, t01=0x00e6}
0x0bf6…0c06 Head {h00=0x000c, h01=0x0007, text=» B A100 «, t00=0x0007, t01=0x010c}
0x0c06…0c10 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x011c}
0x0c10…0c1a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0126}
0x0c1a…0c24 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0130}
0x0c24…0c52 Head {h00=0x002a, h01=0x0026, text=»***** RETURN TO CALLING MODULE *****«, t00=0x0007, t01=0x013a}
0x0c52…0c5c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0168}
0x0c5c…0c68 Head {h00=0x0008, h01=0x0004, text=»A900«, t00=0x0007, t01=0x0172}
0x0c68…0c94 Head {h00=0x0028, h01=0x0023, text=» ADD BCD2A,BCD2A SET CONDITION-CODE «, t00=0x0007, t01=0x017e}
0x0c94…0c9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001a}
0x0c9e…0caa Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0008, t01=0x0024}
0x0caa…0cb8 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0008, t01=0x0030}
0x0cb8…0cc2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x003e}
0x0cc2…0d12 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0008, t01=0x0048}
0x0d12…0d1c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0098}
0x0d1c…0d66 Head {h00=0x0046, h01=0x0042, text=»* SUB-ROUTINE FOR EXAMINATION AND EXECUTION OF THE ACC-STRING«, t00=0x0008, t01=0x00a2}
0x0d66…0d70 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x00ec}
0x0d70…0dc0 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0008, t01=0x00f6}
0x0dc0…0dca Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0146}
0x0dca…0dd8 Head {h00=0x000a, h01=0x0050, text=»EXACC «, t00=0x0008, t01=0x0150}
0x0dd8…0de4 Head {h00=0x0008, h01=0x0050, text=»B000«, t00=0x0008, t01=0x015e}
0x0de4…0e08 Head {h00=0x0020, h01=0x0050, text=» SUB BIN12,W1 ADJUST DISPL. «, t00=0x0008, t01=0x016a}
0x0e08…0e3e Head {h00=0x0032, h01=0x0050, text=» ADD BIN13,BIN12 DISPL. FOR LAST BYTE IN BIN13«, t00=0x0008, t01=0x018e}
0x0e3e…0e48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0034}
0x0e48…0e72 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,W0 CLEAR DUPL-FIELD-NR «, t00=0x0009, t01=0x003e}
0x0e72…0e80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0068}
0x0e80…0e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0076}
0x0e8a…0e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0080}
0x0e94…0eba Head {h00=0x0022, h01=0x0050, text=»*****GET ACCUMULATOR-NR *****«, t00=0x0009, t01=0x008a}
0x0eba…0ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b0}
0x0ec4…0ed0 Head {h00=0x0008, h01=0x0050, text=»B100«, t00=0x0009, t01=0x00ba}
0x0ed0…0ef6 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0009, t01=0x00c6}
0x0ef6…0f24 Head {h00=0x002a, h01=0x0050, text=» CBG BIN12,BIN13,A250 END OF STRING ? «, t00=0x0009, t01=0x00ec}
0x0f24…0f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x011a}
0x0f2e…0f3a Head {h00=0x0008, h01=0x0050, text=»B103«, t00=0x0009, t01=0x0124}
0x0f3a…0f5c Head {h00=0x001e, h01=0x0050, text=» MOVE BIN6,W0 CLEAR ACC-NR«, t00=0x0009, t01=0x0130}
0x0f5c…0f72 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W0 «, t00=0x0009, t01=0x0152}
0x0f72…0f8e Head {h00=0x0018, h01=0x0050, text=» MOVE STR6A,=C'MDA' «, t00=0x0009, t01=0x0168}
0x0f8e…0fce Head {h00=0x003c, h01=0x0050, text=» MATCH STR6A,BIN7,W3,BPOOL(BIN11),BIN12,W1 NEXT BYTE...«, t00=0x0009, t01=0x0184}
0x0fce…0ffa Head {h00=0x0028, h01=0x0050, text=» BNOK B120 ...NOT D OR A ?«, t00=0x000a, t01=0x0034}
0x0ffa…1014 Head {h00=0x0016, h01=0x0050, text=» IB BIN7,B105,B105«, t00=0x000a, t01=0x0060}
0x1014…1022 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x007a}
0x1022…102c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0088}
0x102c…1056 Head {h00=0x0026, h01=0x0050, text=»* HANDLE CONDITIONAL ACCUMULATION «, t00=0x000a, t01=0x0092}
0x1056…1060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00bc}
0x1060…108c Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW1,W0 SET INPUTLENGT = 0 «, t00=0x000a, t01=0x00c6}
0x108c…10b8 Head {h00=0x0028, h01=0x0050, text=» SUB BIN13,BIN12 PUT DISP INTO BIN13«, t00=0x000a, t01=0x00f2}
0x10b8…10e8 Head {h00=0x002c, h01=0x0050, text=» PERF DENVAL,W1 EXECUTE VALIDATIONSTRING«, t00=0x000a, t01=0x011e}
0x10e8…1114 Head {h00=0x0028, h01=0x0050, text=» GETABX DEBINW3 MAKE ORIGINATE FIELD«, t00=0x000a, t01=0x014e}
0x1114…112c Head {h00=0x0014, h01=0x0050, text=» CURRENT AGAIN«, t00=0x000a, t01=0x017a}
0x112c…114c (11, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CLEAR DOOLB ERROR-FLAG «, t00=0x000b, t01=0x0004}
0x114c…116e Head {h00=0x001e, h01=0x0050, text=» BNZ B120 ERROR IN FORMAT «, t00=0x000b, t01=0x0024}
0x116e…1194 Head {h00=0x0022, h01=0x0050, text=» GET THE ACCUMULATION STRING«, t00=0x000b, t01=0x0046}
0x1194…11c2 Head {h00=0x002a, h01=0x0050, text=» XCOPY BIN12,W1,W1,BIN3,W1 STARTPOINT «, t00=0x000b, t01=0x006c}
0x11c2…11f4 Head {h00=0x002e, h01=0x0050, text=» MOVE BIN3,W0 GET THE LENGTH OF ACC.STRING«, t00=0x000b, t01=0x009a}
0x11f4…1220 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN3,W1,W1,BPOOL(BIN11),BIN12«, t00=0x000b, t01=0x00cc}
0x1220…123a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=X'3F'«, t00=0x000b, t01=0x00f8}
0x123a…125a Head {h00=0x001c, h01=0x0050, text=» CALL MSKOUT,BIN13,BIN3 «, t00=0x000b, t01=0x0112}
0x125a…1290 Head {h00=0x0032, h01=0x0050, text=» ADD BIN13,BIN12 PUT END OF ACC.STRING INTO 13«, t00=0x000b, t01=0x0132}
0x1290…12a0 Head {h00=0x000c, h01=0x0050, text=» B B100 «, t00=0x000b, t01=0x0168}
0x12a0…12ac Head {h00=0x0008, h01=0x0050, text=»B105«, t00=0x000b, t01=0x0178}
0x12ac…12b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0184}
0x12b6…12dc Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x000b, t01=0x018e}
0x12dc…12fe Head {h00=0x001e, h01=0x0050, text=» PERF DEFIND,BIN6,DEBINW4 «, t00=0x000c, t01=0x0024}
0x12fe…132a Head {h00=0x0028, h01=0x0050, text=» CBL BIN6,W1,B120 ACC-/DUPL-NR < 1 ?«, t00=0x000c, t01=0x0046}
0x132a…1350 Head {h00=0x0022, h01=0x0050, text=» CBE BIN7,W1,B140 DUPL-FIELD ?«, t00=0x000c, t01=0x0072}
0x1350…135a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0098}
0x135a…137e Head {h00=0x0020, h01=0x0050, text=» CBNE BIN7,W2,B120 NOT ACC ?«, t00=0x000c, t01=0x00a2}
0x137e…13a0 Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN6,ACK(W1) «, t00=0x000c, t01=0x00c6}
0x13a0…13c0 Head {h00=0x001c, h01=0x0050, text=» BNOK B120 OUT OF RANGE «, t00=0x000c, t01=0x00e8}
0x13c0…13ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0108}
0x13ca…13f2 Head {h00=0x0024, h01=0x0050, text=» CLEAR BOOL2 INDICATE PLUS-SIGN «, t00=0x000c, t01=0x0112}
0x13f2…1422 Head {h00=0x002c, h01=0x0050, text=» CLEAR BOOL6 INDICATE NO ABSOLUTE-VALUE «, t00=0x000c, t01=0x013a}
0x1422…1450 Head {h00=0x002a, h01=0x0050, text=» CLEAR BOOL8 INDICATE DEFAULT NOT USED«, t00=0x000c, t01=0x016a}
0x1450…145e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0008}
0x145e…1468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0016}
0x1468…1472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0020}
0x1472…1490 Head {h00=0x001a, h01=0x0050, text=»***** EXAMINE ***** «, t00=0x000d, t01=0x002a}
0x1490…149a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0048}
0x149a…14a6 Head {h00=0x0008, h01=0x0050, text=»B110«, t00=0x000d, t01=0x0052}
0x14a6…14cc Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x000d, t01=0x005e}
0x14cc…14fa Head {h00=0x002a, h01=0x0050, text=» CBG BIN12,BIN13,B190 END OF STRING ? «, t00=0x000d, t01=0x0084}
0x14fa…1510 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W7 «, t00=0x000d, t01=0x00b2}
0x1510…1554 Head {h00=0x0040, h01=0x0050, text=» MATCH VALSTR,BIN7,W18,BPOOL(BIN11),BIN12,W1 NEXT BYTE = ?«, t00=0x000d, t01=0x00c8}
0x1554…1578 Head {h00=0x0020, h01=0x0050, text=» BNOK B250 LITTERAL PREFIX ?«, t00=0x000d, t01=0x010c}
0x1578…159a Head {h00=0x001e, h01=0x0050, text=» SUB BIN7,W6 ADJUST INDEX «, t00=0x000d, t01=0x0130}
0x159a…15ae Head {h00=0x0010, h01=0x0050, text=» IB BIN7 C «, t00=0x000d, t01=0x0152}
0x15ae…15d8 Head {h00=0x0026, h01=0x0050, text=» B160,B120,B120,B120 "!,A,S,U" C «, t00=0x000d, t01=0x0166}
0x15d8…1602 Head {h00=0x0026, h01=0x0050, text=» B200,B120,B120,B120 "F,T,C,E" C «, t00=0x000d, t01=0x0190}
0x1602…162c Head {h00=0x0026, h01=0x0050, text=» B175,B170,B120,B120 "+,-,*,:" C «, t00=0x000e, t01=0x002a}
0x162c…1656 Head {h00=0x0026, h01=0x0050, text=» B190,B120,B120,B120 ";,&,V,?" C «, t00=0x000e, t01=0x0054}
0x1656…1670 Head {h00=0x0016, h01=0x0050, text=» B120,B180 "',Z" «, t00=0x000e, t01=0x007e}
0x1670…167a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x0098}
0x167a…1684 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x00a2}
0x1684…16b0 Head {h00=0x0028, h01=0x0023, text=»***** FORMAT-ERROR DETECTED ***** «, t00=0x000e, t01=0x00ac}
0x16b0…16ba Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x00d8}
0x16ba…16c6 Head {h00=0x0008, h01=0x0050, text=»B120«, t00=0x000e, t01=0x00e2}
0x16c6…16f0 Head {h00=0x0026, h01=0x0022, text=» PERF SETERR,W2 SET ERROR-CODE = 2«, t00=0x000e, t01=0x00ee}
0x16f0…16fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0118}
0x16fa…1704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0122}
0x1704…172c Head {h00=0x0024, h01=0x0050, text=»***** DUPLICATE-FIELD-NR *****«, t00=0x000e, t01=0x012c}
0x172c…1736 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0154}
0x1736…1742 Head {h00=0x0008, h01=0x0050, text=»B140«, t00=0x000e, t01=0x015e}
0x1742…176e Head {h00=0x0028, h01=0x0050, text=» MOVE BIN1,BIN6 UPDATE DUPL-FIELD-NR«, t00=0x000e, t01=0x016a}
0x176e…177e Head {h00=0x000c, h01=0x0050, text=» B A250 «, t00=0x000f, t01=0x0008}
0x177e…178c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0018}
0x178c…1796 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0026}
0x1796…17a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0030}
0x17a0…17c4 Head {h00=0x0020, h01=0x0050, text=»***** ABSOLUTE-VALUE *****«, t00=0x000f, t01=0x003a}
0x17c4…17ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005e}
0x17ce…17da Head {h00=0x0008, h01=0x0050, text=»B160«, t00=0x000f, t01=0x0068}
0x17da…1804 Head {h00=0x0026, h01=0x0050, text=» SET BOOL6 INDICATE ABSOLUTE-VALUE«, t00=0x000f, t01=0x0074}
0x1804…1814 Head {h00=0x000c, h01=0x0050, text=» B B110 «, t00=0x000f, t01=0x009e}
0x1814…181e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ae}
0x181e…1828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b8}
0x1828…1848 Head {h00=0x001c, h01=0x0050, text=»***** MINUS-SIGN *****«, t00=0x000f, t01=0x00c2}
0x1848…1852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e2}
0x1852…185e Head {h00=0x0008, h01=0x0050, text=»B170«, t00=0x000f, t01=0x00ec}
0x185e…1884 Head {h00=0x0022, h01=0x0050, text=» SET BOOL2 INDICATE MINUS-SIGN«, t00=0x000f, t01=0x00f8}
0x1884…188e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011e}
0x188e…1898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0128}
0x1898…18b8 Head {h00=0x001c, h01=0x0050, text=»***** PLUS-SIGN ***** «, t00=0x000f, t01=0x0132}
0x18b8…18c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0152}
0x18c2…18ce Head {h00=0x0008, h01=0x0050, text=»B175«, t00=0x000f, t01=0x015c}
0x18ce…18de Head {h00=0x000c, h01=0x0050, text=» B B110 «, t00=0x000f, t01=0x0168}
0x18de…18e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0178}
0x18e8…18f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0182}
0x18f2…1910 Head {h00=0x001a, h01=0x0050, text=»***** ZEROISE ***** «, t00=0x000f, t01=0x018c}
0x1910…191a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001a}
0x191a…1926 Head {h00=0x0008, h01=0x0050, text=»B180«, t00=0x0010, t01=0x0024}
0x1926…194e Head {h00=0x0024, h01=0x0050, text=» CBG OPTION,W0,B390 JUMP IF CORR«, t00=0x0010, t01=0x0030}
0x194e…197e Head {h00=0x002c, h01=0x0050, text=» MOVE ACK(BIN6),='0' ZEROISE ACCUMULATOR«, t00=0x0010, t01=0x0058}
0x197e…198e Head {h00=0x000c, h01=0x0050, text=» B B390 «, t00=0x0010, t01=0x0088}
0x198e…1998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0098}
0x1998…19a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a2}
0x19a2…19c0 Head {h00=0x001a, h01=0x0050, text=»***** DEFAULT ***** «, t00=0x0010, t01=0x00ac}
0x19c0…19ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ca}
0x19ca…19d6 Head {h00=0x0008, h01=0x0050, text=»B190«, t00=0x0010, t01=0x00d4}
0x19d6…19fe Head {h00=0x0024, h01=0x0050, text=» SET BOOL8 INDICATE DEFAULT USED«, t00=0x0010, t01=0x00e0}
0x19fe…1a0e Head {h00=0x000c, h01=0x0050, text=» B B210 «, t00=0x0010, t01=0x0108}
0x1a0e…1a1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0118}
0x1a1c…1a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0126}
0x1a26…1a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0130}
0x1a30…1a52 Head {h00=0x001e, h01=0x0050, text=»***** FORMAT-FIELD *****«, t00=0x0010, t01=0x013a}
0x1a52…1a5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015c}
0x1a5c…1a68 Head {h00=0x0008, h01=0x0050, text=»B200«, t00=0x0010, t01=0x0166}
0x1a68…1a8e Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0010, t01=0x0172}
0x1a8e…1ab0 Head {h00=0x001e, h01=0x0050, text=» PERF DEFIND,BIN7,DEBINW4 «, t00=0x0011, t01=0x0008}
0x1ab0…1ade Head {h00=0x002a, h01=0x0050, text=» CBNE BIN7,W0,B220 JUMP IF NOT CURRENT«, t00=0x0011, t01=0x002a}
0x1ade…1aea Head {h00=0x0008, h01=0x0050, text=»B210«, t00=0x0011, t01=0x0058}
0x1aea…1b12 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN7,DEBINW3 CURRENT FIELD«, t00=0x0011, t01=0x0064}
0x1b12…1b1e Head {h00=0x0008, h01=0x0050, text=»B220«, t00=0x0011, t01=0x008c}
0x1b1e…1b54 Head {h00=0x0032, h01=0x0050, text=» CON X.MOVE,STR64A,X.PSEU1,X.PSEU2,X.WB10,BIN7«, t00=0x0011, t01=0x0098}
0x1b54…1b74 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W1),STR64A «, t00=0x0011, t01=0x00ce}
0x1b74…1b84 Head {h00=0x000c, h01=0x0050, text=» B B300 «, t00=0x0011, t01=0x00ee}
0x1b84…1b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00fe}
0x1b8e…1b98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0108}
0x1b98…1bb6 Head {h00=0x001a, h01=0x0050, text=»***** LITTERAL *****«, t00=0x0011, t01=0x0112}
0x1bb6…1bc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0130}
0x1bc0…1bcc Head {h00=0x0008, h01=0x0050, text=»B250«, t00=0x0011, t01=0x013a}
0x1bcc…1c12 Head {h00=0x0042, h01=0x0050, text=» XCOPY BIN7,W1,W1,BPOOL(BIN11),BIN12 MOVE PREFIX TO WORKITEM«, t00=0x0011, t01=0x0146}
0x1c12…1c3a Head {h00=0x0024, h01=0x0050, text=» CBL BIN7,W64,B120 NO LITTERAL ?«, t00=0x0011, t01=0x018c}
0x1c3a…1c5e Head {h00=0x0020, h01=0x0050, text=» MOVE BIN9,=X'3F' REMOVE... «, t00=0x0012, t01=0x0024}
0x1c5e…1c86 Head {h00=0x0024, h01=0x0050, text=» CALL MSKOUT,BIN9,BIN7 ...FLAGGS«, t00=0x0012, t01=0x0048}
0x1c86…1ca2 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0012, t01=0x0070}
0x1ca2…1cc8 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0012, t01=0x008c}
0x1cc8…1d06 Head {h00=0x003a, h01=0x0050, text=» COPY DEINPUT,W0,BIN9,BPOOL(BIN11),BIN12 GET LITTERAL«, t00=0x0012, t01=0x00b2}
0x1d06…1d38 Head {h00=0x002e, h01=0x0050, text=» MOVE BCDI21(W1),DEINPUT MOVE TO WORKITEM «, t00=0x0012, t01=0x00f0}
0x1d38…1d5a Head {h00=0x001e, h01=0x0050, text=» SUB BIN9,W1 ADJUST INDEX «, t00=0x0012, t01=0x0122}
0x1d5a…1d82 Head {h00=0x0024, h01=0x0050, text=» ADD BIN12,BIN9 INCREASE DISPL. «, t00=0x0012, t01=0x0144}
0x1d82…1d90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x016c}
0x1d90…1d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x017a}
0x1d9a…1da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0184}
0x1da4…1dce Head {h00=0x0026, h01=0x0050, text=»***** EXECUTE ACCUMULATION *****«, t00=0x0012, t01=0x018e}
0x1dce…1dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0028}
0x1dd8…1de4 Head {h00=0x0008, h01=0x0050, text=»B300«, t00=0x0013, t01=0x0032}
0x1de4…1e10 Head {h00=0x0028, h01=0x0050, text=» TBF BOOL6,B310 NO ABSOLUTE-VALUE ? «, t00=0x0013, t01=0x003e}
0x1e10…1e4a Head {h00=0x0036, h01=0x0050, text=» COPY BCDI21(W1),W0,W1,D1,W0 PLUS-SIGN TO WORKITEM«, t00=0x0013, t01=0x006a}
0x1e4a…1e56 Head {h00=0x0008, h01=0x0050, text=»B310«, t00=0x0013, t01=0x00a4}
0x1e56…1e7a Head {h00=0x0020, h01=0x0050, text=» TBT BOOL2,B330 MINUS-SIGN ?«, t00=0x0013, t01=0x00b0}
0x1e7a…1ea0 Head {h00=0x0022, h01=0x0050, text=» TBT BOOL1,B340 REVERSED ACC ?«, t00=0x0013, t01=0x00d4}
0x1ea0…1eac Head {h00=0x0008, h01=0x0050, text=»B320«, t00=0x0013, t01=0x00fa}
0x1eac…1ee0 Head {h00=0x0030, h01=0x0050, text=» ADD ACK(BIN6),BCDI21(W1) ADD TO ACCUMULATOR«, t00=0x0013, t01=0x0106}
0x1ee0…1ef0 Head {h00=0x000c, h01=0x0050, text=» B B350 «, t00=0x0013, t01=0x013a}
0x1ef0…1efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014a}
0x1efa…1f06 Head {h00=0x0008, h01=0x0050, text=»B330«, t00=0x0013, t01=0x0154}
0x1f06…1f2c Head {h00=0x0022, h01=0x0050, text=» TBT BOOL1,B320 REVERSED ACC ?«, t00=0x0013, t01=0x0160}
0x1f2c…1f38 Head {h00=0x0008, h01=0x0050, text=»B340«, t00=0x0013, t01=0x0186}
0x1f38…1f74 (20, 0, 400) Head {h00=0x0038, h01=0x0050, text=» SUB ACK(BIN6),BCDI21(W1) SUBTRACT FROM ACCUMULATOR «, t00=0x0014, t01=0x0004}
0x1f74…1f7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0040}
0x1f7e…1f8a Head {h00=0x0008, h01=0x0050, text=»B350«, t00=0x0014, t01=0x004a}
0x1f8a…1f9c Head {h00=0x000e, h01=0x0050, text=» BOFL B360«, t00=0x0014, t01=0x0056}
0x1f9c…1fac Head {h00=0x000c, h01=0x0050, text=» B B380 «, t00=0x0014, t01=0x0068}
0x1fac…1fb8 Head {h00=0x0008, h01=0x0050, text=»B360«, t00=0x0014, t01=0x0078}
0x1fb8…1fe2 Head {h00=0x0026, h01=0x0050, text=» PERF SETERR,W3 SET ERROR-CODE = 3«, t00=0x0014, t01=0x0084}
0x1fe2…1fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ae}
0x1fec…1ff8 Head {h00=0x0008, h01=0x0050, text=»B380«, t00=0x0014, t01=0x00b8}
0x1ff8…201e Head {h00=0x0022, h01=0x0050, text=» TBT BOOL8,B395 DEFAULT USED ?«, t00=0x0014, t01=0x00c4}
0x201e…202a Head {h00=0x0008, h01=0x0050, text=»B390«, t00=0x0014, t01=0x00ea}
0x202a…2050 Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W1 INCREASE DISPL. «, t00=0x0014, t01=0x00f6}
0x2050…2068 Head {h00=0x0014, h01=0x0050, text=» CMP BIN12,BIN13«, t00=0x0014, t01=0x011c}
0x2068…208e Head {h00=0x0022, h01=0x0050, text=» BG A250 END OF STRING REACHED«, t00=0x0014, t01=0x0134}
0x208e…20a4 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN7,W19«, t00=0x0014, t01=0x015a}
0x20a4…20e8 Head {h00=0x0040, h01=0x0050, text=» MATCH VALSTR,BIN7,W1,BPOOL(BIN11),BIN12,W1 NEXT BYTE... «, t00=0x0014, t01=0x0170}
0x20e8…20fa Head {h00=0x000e, h01=0x0050, text=» BNOK B120«, t00=0x0015, t01=0x0024}
0x20fa…2106 Head {h00=0x0008, h01=0x0050, text=»B395«, t00=0x0015, t01=0x0036}
0x2106…2116 Head {h00=0x000c, h01=0x0050, text=» B B100 «, t00=0x0015, t01=0x0042}
0x2116…2120 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0052}
0x2120…212e Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0015, t01=0x005c}
0x212e…213c Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0015, t01=0x006a}
0x213c…2146 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0078}
0x2146…2196 Head {h00=0x004c, h01=0x004d, text=»************************************************************************«, t00=0x0015, t01=0x0082}
0x2196…21a0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x00d2}
0x21a0…21d6 Head {h00=0x0032, h01=0x002d, text=»* SUB-ROUTINE FOR SETTING THE ERROR-CODE «, t00=0x0015, t01=0x00dc}
0x21d6…21e0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x0112}
0x21e0…2230 Head {h00=0x004c, h01=0x004c, text=»************************************************************************«, t00=0x0015, t01=0x011c}
0x2230…223a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0015, t01=0x016c}
0x223a…2254 Head {h00=0x0016, h01=0x0012, text=»SETERR PROC ERRIND«, t00=0x0015, t01=0x0176}
0x2254…2260 Head {h00=0x0008, h01=0x0004, text=»X000«, t00=0x0015, t01=0x0190}
0x2260…2282 Head {h00=0x001e, h01=0x0019, text=» IB ERRIND,X100,X200,X300 «, t00=0x0016, t01=0x000c}
0x2282…228c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x002e}
0x228c…2298 Head {h00=0x0008, h01=0x0004, text=»X100«, t00=0x0016, t01=0x0038}
0x2298…22be Head {h00=0x0022, h01=0x0050, text=» MOVE BCD2A,D1 UNDEFINED ERROR«, t00=0x0016, t01=0x0044}
0x22be…22ce Head {h00=0x000c, h01=0x0007, text=» B X900 «, t00=0x0016, t01=0x006a}
0x22ce…22d8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x007a}
0x22d8…22e4 Head {h00=0x0008, h01=0x0004, text=»X200«, t00=0x0016, t01=0x0084}
0x22e4…230a Head {h00=0x0022, h01=0x001e, text=» MOVE BCD2A,='-1' FORMAT-ERROR«, t00=0x0016, t01=0x0090}
0x230a…231a Head {h00=0x000c, h01=0x0007, text=» B X900 «, t00=0x0016, t01=0x00b6}
0x231a…2324 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00c6}
0x2324…2330 Head {h00=0x0008, h01=0x0004, text=»X300«, t00=0x0016, t01=0x00d0}
0x2330…2352 Head {h00=0x001e, h01=0x0019, text=» MOVE BCD2A,='9' OVERFLOW «, t00=0x0016, t01=0x00dc}
0x2352…235c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x00fe}
0x235c…2366 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0108}
0x2366…2372 Head {h00=0x0008, h01=0x0004, text=»X900«, t00=0x0016, t01=0x0112}
0x2372…237e Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0016, t01=0x011e}
0x237e…2388 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x012a}
0x2388…2396 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0016, t01=0x0134}
0x2396…23a0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0016, t01=0x0142}
0x23a0…23ac Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0016, t01=0x014c}
0x23ac…23b0 Head {h00=0x4004, h01=0x0000}
0x23b0…23b4 00 16 01 58 ┆ X┆
0x23b4…23bc (23, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0x23bc…240c (24, 0, 88) 00 08 00 03 53 43 52 20 00 00 00 04 00 12 00 0d 24 54 52 41 20 53 3d 44 45 4e 56 41 4c 20 00 00 00 10 00 12 00 0d 24 54 52 41 20 53 3d 44 45 4e 54 30 32 20 00 00 00 26 00 08 00 03 53 43 52 20 00 00 00 3c 00 10 00 0c 41 53 47 20 2f 45 30 2c ┆ SCR $TRA S=DENVAL $TRA S=DENT02 & SCR < ASG /E0,┆
0x240c…2414 54 59 31 30 00 00 00 48 ┆TY10 H┆
0x2414…241c (25, 1, 8) 20 04 00 00 00 01 00 04 ┆ ┆
0x241c…2430 (26, 2, 20) 00 08 00 48 4e 4f 44 20 00 b2 00 04 40 04 00 00 00 b2 00 10 ┆ HNOD @ ┆
0x2430…2480 (27, 0, 400) 00 1a 00 18 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 50 3a 53 30 32 30 20 00 b3 00 04 00 2a 00 26 03 12 00 00 00 0f 00 00 00 91 21 31 28 92 17 06 93 20 50 9e 51 05 03 93 2f 55 38 30 09 00 38 38 06 93 12 52 2a 6a 00 b3 00 22 00 2a 00 26 ┆ IDENT P:S020 * & !1( P Q /U80 88 R*j " * &┆
0x2480…24d0 03 12 00 00 00 2d 00 00 91 21 21 1b 8a 82 00 6f 55 01 92 31 30 0d 92 91 02 92 21 6a 6f 21 92 1b 8a 82 01 92 32 6a 00 b3 00 50 00 2a 00 26 03 12 00 00 00 4b 00 00 6f 20 22 92 20 31 28 92 16 57 0c 25 93 30 03 00 93 22 31 28 92 48 93 30 26 57 ┆ - !! oU 10 !jo! 2j P * & K o " 1( W % 0 "1( H 0&W┆
0x24d0…2520 04 31 28 92 00 b3 00 7e 00 2a 00 26 03 12 00 00 00 69 00 00 17 00 92 21 30 27 91 99 00 92 91 80 01 21 91 36 92 03 16 02 1d 57 22 30 12 11 92 30 1b 92 00 b3 00 ac 00 2a 00 26 03 12 00 00 00 87 00 00 11 5c 20 18 93 24 28 20 91 23 10 5f 2e 30 ┆ 1( ~ * & i !0' ! 6 W"0 0 * & $( # _.0┆
0x2520…2570 0c 00 21 20 5f 79 18 93 24 35 00 91 21 28 91 2a 00 b3 00 da 00 2a 00 26 03 12 00 00 00 a5 00 00 0b 40 e5 80 02 2e 00 00 91 21 34 01 00 92 38 30 09 00 92 92 34 01 20 90 20 19 00 95 0c 01 00 b3 01 08 00 2a 00 26 03 12 00 00 00 c3 00 00 6f 33 ┆ ! _y $5 !( * * & @ . !4 80 4 * & o3┆
0x2570…25c0 00 0c 6f 30 23 93 30 09 0a 93 93 36 91 02 05 09 00 0c 95 34 00 41 6d 34 00 00 0c 95 00 b3 01 36 00 16 00 12 03 08 00 00 00 e1 00 00 30 23 93 30 0c 01 93 93 34 00 00 b3 01 64 00 2a 00 26 03 12 00 00 00 eb 00 00 00 02 00 00 02 d5 00 06 01 f8 ┆ o0# 0 6 4 Am4 6 0# 0 4 d * & ┆
0x25c0…2610 (28, 0, 400) 00 33 00 38 00 3f 20 2b 31 00 42 41 54 43 48 20 49 4e 20 55 00 b3 01 7e 00 2a 00 26 03 12 00 00 01 09 00 00 53 45 53 59 4d 42 4f 4c 49 43 56 41 4c 55 45 2d 53 45 54 58 58 58 58 54 54 54 39 54 54 54 00 b4 00 1c 00 2a 00 26 03 12 00 00 01 27 ┆ 3 8 ? +1 BATCH IN U ~ * & SESYMBOLICVALUE-SETXXXXTTT9TTT * & '┆
0x2610…2660 00 00 54 39 58 58 58 58 58 2d c0 6f e0 81 07 e0 c1 35 e0 df 2a e0 c1 1a 81 3a c0 6b c1 35 e0 c1 00 b4 00 4a 00 2a 00 26 03 12 00 00 01 45 00 00 37 81 3a c0 e6 c1 35 e0 c1 22 81 3a c0 9b c1 35 e0 c3 04 4e 4f 54 20 df 2a e0 c3 08 54 49 00 b4 ┆ T9XXXXX- o 5 * : k 5 J * & E 7 : 5 " : 5 NOT * TI ┆
0x2660…26b0 00 78 00 2a 00 26 03 12 00 00 01 63 00 00 4d 45 2d 4f 55 54 e0 c3 09 43 44 56 2d 45 52 52 4f 52 e0 c3 09 4e 4f 54 20 46 4f 55 4e 44 00 b4 00 a6 00 2a 00 26 03 12 00 00 01 81 00 00 e0 c3 09 49 2f 4f 2d 45 52 52 4f 52 e0 c3 0a 44 41 54 45 20 ┆ x * & c ME-OUT CDV-ERROR NOT FOUND * & I/O-ERROR DATE ┆
0x26b0…2700 45 52 52 4f 52 e0 c3 0c 46 4f 00 b4 00 d4 00 2a 00 26 03 12 00 00 01 9f 00 00 55 4e 44 20 4c 4f 43 4b 45 44 e0 c3 0d 4e 4f 20 44 49 53 43 20 53 50 41 43 45 e0 c3 0d 49 00 b4 01 02 00 2a 00 26 03 12 00 00 01 bd 00 00 4c 4c 45 47 41 4c 20 56 ┆ERROR FO * & UND LOCKED NO DISC SPACE I * & LLEGAL V┆
0x2700…2750 41 4c 55 45 e0 c3 0e 49 4e 56 41 4c 49 44 20 4e 55 4d 42 45 52 e0 00 b4 01 30 00 2a 00 26 03 12 00 00 01 db 00 00 c3 0f 43 48 41 4e 47 45 20 43 41 53 53 45 54 54 45 e0 c3 0f 4e 4f 20 52 45 43 4f 52 44 20 00 b4 01 5e 00 2a 00 26 03 12 00 00 ┆ALUE INVALID NUMBER 0 * & CHANGE CASSETTE NO RECORD ^ * & ┆