|
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: 14226 (0x3792)
Notes: pts_type(SC)
Names: »DEREC2.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DEREC2.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DEREC2.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DEREC2.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DEREC2.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DEREC2.SC«
IDENT DEREC2 REL 10.0 80-04-11 80-04-14/DALI DDUM DEDDIV PDIV ENTRY DEREC2 ENTRY DEOPBC OPEN BATCH-ROUTINE * * EXTERNAL REFERENCES TO SCREEN * EXT DECLRA EXT DECLRD EXT DERR EXT DERROR * * EXTERNAL REFERENCES FOR DISC-ROUTINES EXT DEDISC EXT RESTOR EXT DERECS EXT DEREFO EXT UPDBOL EXT UPDBIN EXT DEACC EXT DELAST EXT ATTWB EXT SAVE EXT DEPOOL EXT OPCL EXT OFRSP EXT DEPRUT GET PROGRAMNUMBER EXT CLEARB EXT CMPIND EXT SETB EXT TESTB EXT EMPTYT INCLUDE DELITT EJECT DEOPBC PROC FC ************************************** * HANDLE BATCHHEAD FORMAT * THESE ROUTINES USE THE DENTER-SCREEN ************************************** IB FC,RETUBC,ERRBC CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV BZ OPBC00 MOVE DEBINW4,=W'37' RECOVERY RUNNING B REC060 OPBC00 PERF DERECS,W11 BOK OPBC09 CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV. BZ REC060 EJECT * * START RECOVERY OF THIS USERFILE * SET DOOL3 BNZ REC060 AN OTHER TERMINAL HAS ALREADY OPENED THIS USERFILE FOR RECOVERY. PERF DELAST,W10,DEKTAB6 MOVE JOBNAME,HEX00 REC050 MOVE BATCH,HEX00 PERF DEDISC,W21 GET NEXT JOBNAME BOK REC100 MOVE BCDI21(W3),W0 CLOBBERED BY RECOVERY MOVE JOBNAME,STSAVE(W1) MOVE BATCH,STSAVE(W2) CBE DEBINW4,W9,REC075 NOT FOUND CALL CLEARB,RECFIL,FILINDUS REC060 MOVE BIN3,DEBINW4 SAVE ERRORCODE MOVE DEBINW1,W0 MOVE DEBINW2,W4 B REBC20 REC075 RELEASE BUFFERS PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A CALL CLEARB,RECFIL,FILINDUS B OPBC00 REC100 PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A REC110 PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 MOVE BIN3,=W'34' GET NEXT BATCHNAME PERF DEDISC,BIN3 BNOK REC050 MOVE BCDI21(W3),W0 PERF DERECS,W11 BNOK REC110 CLEAR DOOL1 BZ REC110 MOVE BIN3,W1 REC150 MOVE ACK(BIN3),=D'0' ADD BIN3,W1 CALL CMPIND,BIN3,ACK(W1) BOK REC150 CALL UPDBOL,BDSTAT MOVE BDPOIN(W2),W0 PERF DERECS,W5 GET CURRENT BOK REC400 REC230 CLEAR BDAACT CALL UPDBIN,BDSTAT CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 PERF DEDISC,W18 CLOSE BATCH B REC110 REC400 CBE BIN3,W10,REC230 JUMP IF EMTY BATCH PERF DELAST,W7,DEKTAB6 OPBC05 PERF DEACC,W0 NORMAL ACCUMULATION ADD BCDI21(W3),=D'1' INCREASE WANTED RECNO PERF DERECS,W4 GET NEXT BNOK REC500 PERF DERECS,W13 B OPBC05 REC500 PERF DERECS,W3 ENTER LAST SECTOR B REC230 EJECT * * OPEN ROUTINE * OPBC09 CLEAR DOOL4 DELETE BATCH BZ OPBC10 CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 SET DOOL4 MOVE BIN13,=W'27' PERF DEDISC,BIN13 DELETE BATCH B REBC03 OPBC10 SET SOOL1 STATUSLINE DISPLAY OPBC20 CLEAR DECHANGE OPBC30 MOVE DEBINW2,W0 RET RETUBC CLEAR BDAACT CALL UPDBIN,BDSTAT CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 PERF DEDISC,W18 WRITE ACCUMULATORS REBC03 BNERR REBC10 ERRBC PERF DERROR,DEKTAB6 REBC10 CLEAR SOOL1 CLEAR SOOL2 CLEAR DENOCHAN SET DOOL5 MOVE DEBINW2,W3 REBC20 PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A PERF DEPRUT,PRNUM,BIN1,BIN2 SET BOOL2 CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO WORKBLOCKS AND DESCRIPTORS MOVE DEBINW4,BIN3 RET PEND EJECT DEREC2 PROC FC IB FC,DELREC,INSREC,INSREC,OPENBC,ENTINS DELREC MOVE BIN12,CURSEC SAVE CURRENT SECTOR DLETE RBUF,PRECCUR,RECLNTH XCOPY BIN14,W0,W2,RBUF,W6 GET USED SPACE SUB BIN14,RECLNTH AND DECREASE IT WITH XCOPY RBUF,W6,W2,BIN14,W0 DELETED RECLNTH CBE BIN14,W10,DELR20 JUMP IF EMPTY SECTOR DELR10 MOVE BIN14,W23 B DELR40 GET PREVIOUS RECORD DELR20 CBNE CURSEC,BDPOIN(W1),DELR30 XCOPY BDPOIN(W1),W0,W2,RBUF,W2 DELR30 MOVE BIN14,W17 DELR40 PERF DEDISC,BIN14 DELETE CURRENT SECTOR BERR DRNO00 HANDLE ERROR SUB BDPOIN(W2),W1 DECREASE NUMBER OF RECORDS TBF DBOFOR,DELR50 SUB BDPOIN(W4),W1 DELR50 MOVE BCD13A,NUMBER TEST DBOMVR BZ DROK00 TEST DBOVER VERIFIED RECORD BNZ DROK00 YES SUB BDPOIN(W5),W1 B DROK00 EJECT ****************************** * RESERV SPACE FOR INSERTION * * OF A NEW DATARECORD. * ****************************** INSREC FC= 9 XCOPY BIN14,W0,W2,RBUF,W6 MOVE PRECPR,PRECCUR ADD PRECCUR,RECLNTH XCOPY BIN10,W0,W2,RBUF,W4 LINK TO NEXT XCOPY RBUF,W6,W2,PRECCUR,W0 ADJUST USED SPACE PERF DEDISC,W14 ENTER FIRST PART OF BERR DRNO00 CURRENT SECTOR MOVE BIN7,PRECPR SUB BIN7,W10 DLETE RBUF,W10,BIN7 COPY LAST ENTERED MOVE BIN8,CURSEC SAVE CURRENT SECTOR CBL PRECCUR,BIN14,INSR10 JUMP IF MORE IN SECTOR MOVE BIN9,BIN8 INSR05 XCOPY RBUF,W4,W2,BIN10,W0 LINK TO NEXT SECTOR MOVE BIN14,W23 PERF DEDISC,BIN14 WRITE CURRENT SECTOR BERR DRNO00 B INSR20 INSR10 PERF DEDISC,W14 ENTER NEW SECTOR BERR DRNO00 MOVE BIN9,CURSEC DLETE RBUF,W10,RECLNTH SUB BIN14,PRECCUR ADD BIN14,W10 XCOPY RBUF,W6,W2,BIN14,W0 USED SPACE PART TWO B INSR05 INSR20 CBE BIN10,W0,INSR30 JUMP IF LAST SECTOR MOVE CURSEC,BIN10 MOVE BIN13,=W'33' PERF DEDISC,BIN13 BERR DRNO00 XCOPY RBUF,W2,W2,BIN9,W0 LINK TO PREV MOVE BIN14,W23 PERF DEDISC,BIN14 WRITE CURRENT SECTOR BERR DRNO00 B INSR40 INSR30 XCOPY BDPOIN(W1),W0,W2,CURSEC,W0 LAST ENTERED RECORD INSR40 MOVE CURSEC,BIN8 MOVE BIN13,=W'33' PERF DEDISC,BIN13 BERR DRNO00 MOVE PRECPR,W10 MOVE PRECCUR,W10 XCOPY RBUF,PRECCUR,W1,BPOOL(PINDFR),W0 B DROK00 EJECT ************************************** * * READ IN CURRENT JOBDEFINITION AND * OPEN WANTED BATCH. * ************************************** OPENBC FC=11 MOVE DEBINW4,W0 PERF DEPRUT,PRNUM,BIN11,BIN12 CBNE BIN11,W7,OPE030 JUMP IF NOT CALL EMPTYT,JOBNAME CONVERSION BZ OPE050 NOT EMPTY B OPE100 OPE030 CBNE BIN11,W4,OPE035 JUMP IF NOT ENTRY CBNE BIN12,W5,OPE050 JUMP IF NOT DELETE B OPE040 OPE035 CBNE BIN11,W5,OPE050 CBE BIN12,W3,OPE050 RECORD-LEVEL OPE040 CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY BZ OPE100 OPE050 CBNE PJOBCUR,W0,OPE100 JUMP IF ALREADY A JOBDEFINITION IN POOL MOVE DEINPUT,HEX00 COPY DEINPUT,W0,W6,JOBNAME,W0 PERF DEDISC,W2 GET JOB-DEFINITION BNERR OPE100 GETFLD 0,W2,BIN3 FILED JOBNAME B DRNO00 OPE100 TBT DOOL3,OPE250 JUMP IF USERFILE OPEN PERF OPCL,W3 OPEN USERFILE BOK OPE200 BERR OPE150 CALL SETB,RECFIL,FILINDUS OPE150 GETFLD 0,W3,BIN3 FIELD BATCHNAME COPY DEINPUT,W0,W6,BATCH,W0 OPE170 B OPE700 OPE200 SET DOOL3 USERFILE OPENED CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY BZ OPE260 JUMP IF NOT MOVE BIN3,=W'37' ERROR REC.RUN PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A B OPE760 OPE250 CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY BNZ OPE300 JUMP IF RUNNING OPE260 LOOK IF BATCHDATA AND BATCHHEADER ARE TO BE USED CBNE BIN11,W7,OPE265 NOT CONVERSION CBE PJOBCUR,W0,OPE270 OPEN USERFILE ONLY MOVE BIN12,W0 ADJUST RETURNPOINT IN DERECS. B OPE280 OPE265 CBNE BIN11,W5,OPE290 JUMP IF NOT SEARCH IB BIN12,OPE270,OPE280,OPE300 OPE270 MOVE BIN12,W1 ADJUST RETURNPOINT IN DERECS. B DROK00 OPE280 MOVE STR6A,HEX00 CBE BATCH,STR6A,OPE270 B OPE300 OPE290 TBF DOOL8,OPE300 PERF DEDISC,W6 OPEN NEW BOK OPE380 B OPE690 OPE300 PERF DEDISC,W7 OPEN OLD BNOK OPE350 XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE CBNE BIN13,W10,OPE380 NOT EMPTY BATCH! MOVE DEBINW4,W9 NOT FOUND B OPE695 DELETE BATCH OPE350 CBNE DEBINW4,=W'27',OPE170 B OPE700 CBNE BIN11,W5,OPE170 JUMP IF NOT SEARCH CBE BIN12,W3,OPE170 RECORD-LEVEL B DROK00 OPE380 CALL ATTWB,BPOOL(PINACC),W2,W13 CALL UPDBOL,BDSTAT CALL TESTB,RECFIL,FILINDUS BZ OPE400 JUMP IF NOT RECOVERY TBT BDAACT,OPE560 JUMP IF BATCH IS TO BE RECOVERED B DROK00 BATCH WILL NOT BE OPENED OPE400 THOS IS A NORMAL OPEN CBNE BIN11,W5,OPE410 JUMP IF NOT SEARCH CBE BIN12,W3,OPE550 RECORD-LEVEL TBF BDAACT,OPE405 SET DOOL1 OPE405 B DROK00 OPE410 CBNE BIN11,W4,OPE415 JUMP IF NOT ENTRY CBNE BIN12,W5,OPE415 AND NOT DELETE MOVE BIN11,BIN12 B OPE270 OPE415 TBF DOOL8,OPE420 JUMP IF OPEN OLD TBF DOOL7,OPE540 JUMP IF NOT TESTBATCH SET BDATES B OPE540 OPE420 TBT DOOL7,OPE460 JUMP IF TESTENTERING TBF BDATES,OPE500 JUMP IF NOT TESTBATCH OPE440 MOVE DEBINW4,=W'33' ERROR B OPE710 OPE460 TBT BDATES,OPE540 JUMP IF TESTBATCH MOVE DEBINW4,=W'34' ERROR B OPE710 OPE500 TBF VERIFM,OPE540 TBT BDAMVR,OPE540 OPE520 MOVE DEBINW4,W8 B OPE710 OPE540 CBE BIN11,W7,OPE580 CONVERSION OPE550 SET BDAACT BATCH DURING ENTERING BZ OPE580 OPE560 RECOVERYOPENED BATCH SET DOOL1 B OPE680 OPE580 CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV. BNZ DROK00 CBNE BIN11,W7,OPE620 JUMP IF NOT MOVE BIN12,W4 RETURN TO DROK00 IN DERECS B OPE680 OPE600 MOVE DEBINW4,W4 B OPE710 OPE620 TBT DOOL8,OPE640 JUMP IF OPEN NEW OPE630 TBT BDAFRO,OPE600 FROZEN BATCH OPE640 CLEAR BDABAL CALL UPDBIN,BDSTAT CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 PERF DEDISC,W18 WITE BATCHDATA BNOK OPE690 TBF DOOL8,OPE660 JUMP IF OPEN OLD MOVE BIN13,W23 WRITE CURR.SECTOR MOVE RBUF,HEX00 XCOPY RBUF,W6,W2,W10,W0 USED SPACE B OPE670 OPE660 MOVE BIN13,=W'33' READ CURR.SECTOR OPE670 PERF DEDISC,BIN13 BNOK OPE690 OPE680 CALL ATTWB,BPOOL(PJOBCUR),W0,W12 MOVE PINDFR,W0 CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV. BNZ OPE681 YES! CBE BIN11,W5,OPE683 SEARCH RECORD-LEVEL OPE681 MOVE DEINPUT,FORTAB(W20) GET NAME OF BATCHHEAD MOVE FRMTPNTR,SYMREC(W10) PERF DEDISC,W10 GET FORMAT BNOK OPE690 MOVE FORMAT,FORTAB(W20) SAVE BATCHHEADNAME B OPE684 OPE683 MOVE FORMAT,HEX00 SEARCH STRART OPE684 MOVE PRECCUR,W10 START IN RBUF CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV. BNZ OPE686 YES! CBE BIN11,W5,OPE688 SEARCH RECORD-LEVEL OPE686 TBT DOOL8,OPE685 PERF DEREFO BOFL OPE710 OPE685 MOVE SYMREC(W10),FRMTPNTR OPE688 SET DEPROMPT CALL ATTWB,BPOOL(PINACC),W2,W13 MOVE PRECPR,PRECCUR MOVE NUMBER,W0 CALL UPDBIN,BIN1 B DROK00 OPE690 TBF DOOL8,OPE710 JUMP IF OPEN OLD CBE DEBINW4,W8,OPE700 JUMP IF ERROR IS ALREADY DEFINED IF SO DELETE CURRENT BATCH OPE695 MOVE BIN3,DEBINW4 MOVE BIN13,=W'27' PERF DEDISC,BIN13 DELETE BATCH MOVE DEBINW4,BIN3 OPE700 MOVE BIN4,W3 MOVE BIN3,DEBINW4 SAVE ERRORCODE B OPE720 OPE710 MOVE BIN4,W0 MOVE BIN3,DEBINW4 SAVE ERRORCODE PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A OPE720 GETFLD 0,BIN4,DEBINW4 GET LAST FIELD CBE BIN11,W7,OPE760 CALL TESTB,RECFIL,FILINDUS RECOVERY? BNZ OPE760 YES! PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A CLEAR DOOL3 BZ OPE760 PERF OPCL,W4 CLOSE USERFILE OPE760 CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 MOVE DEBINW4,BIN3 * B DRNO00 EJECT ENTINS FC=12 ADD PRECCUR,RECLNTH XCOPY RBUF,W6,W2,PRECCUR,W0 STORE USED SPACE MOVE PRECCUR,W10 DROK00 CMP W1,W1 RET DRNO00 CMP W1,W0 RET PEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DEREC2 REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0040 Head {h00=0x0014, h01=0x0050, text=» 80-04-14/DALI«, t00=0x0000, t01=0x002c}
0x0040…0054 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0044}
0x0054…0062 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0058}
0x0062…0078 Head {h00=0x0012, h01=0x0050, text=» ENTRY DEREC2 «, t00=0x0000, t01=0x0066}
0x0078…00a0 Head {h00=0x0024, h01=0x0020, text=» ENTRY DEOPBC OPEN BATCH-ROUTINE«, t00=0x0000, t01=0x007c}
0x00a0…00aa Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00a4}
0x00aa…00d8 Head {h00=0x002a, h01=0x002a, text=»* EXTERNAL REFERENCES TO SCREEN«, t00=0x0000, t01=0x00ae}
0x00d8…00e2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x00dc}
0x00e2…00f6 Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0000, t01=0x00e6}
0x00f6…010a Head {h00=0x0010, h01=0x0050, text=» EXT DECLRD «, t00=0x0000, t01=0x00fa}
0x010a…011c Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0000, t01=0x010e}
0x011c…0130 Head {h00=0x0010, h01=0x0050, text=» EXT DERROR «, t00=0x0000, t01=0x0120}
0x0130…013a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0134}
0x013a…0170 Head {h00=0x0032, h01=0x0050, text=»* EXTERNAL REFERENCES FOR DISC-ROUTINES«, t00=0x0000, t01=0x013e}
0x0170…0184 Head {h00=0x0010, h01=0x0050, text=» EXT DEDISC «, t00=0x0000, t01=0x0174}
0x0184…0198 Head {h00=0x0010, h01=0x0050, text=» EXT RESTOR «, t00=0x0000, t01=0x0188}
0x0198…01ac Head {h00=0x0010, h01=0x0050, text=» EXT DERECS «, t00=0x0001, t01=0x000c}
0x01ac…01c0 Head {h00=0x0010, h01=0x0050, text=» EXT DEREFO «, t00=0x0001, t01=0x0020}
0x01c0…01d4 Head {h00=0x0010, h01=0x0050, text=» EXT UPDBOL «, t00=0x0001, t01=0x0034}
0x01d4…01e8 Head {h00=0x0010, h01=0x0050, text=» EXT UPDBIN «, t00=0x0001, t01=0x0048}
0x01e8…01fa Head {h00=0x000e, h01=0x0050, text=» EXT DEACC«, t00=0x0001, t01=0x005c}
0x01fa…020e Head {h00=0x0010, h01=0x0050, text=» EXT DELAST «, t00=0x0001, t01=0x006e}
0x020e…0220 Head {h00=0x000e, h01=0x000a, text=» EXT ATTWB«, t00=0x0001, t01=0x0082}
0x0220…0232 Head {h00=0x000e, h01=0x0009, text=» EXT SAVE «, t00=0x0001, t01=0x0094}
0x0232…0246 Head {h00=0x0010, h01=0x000b, text=» EXT DEPOOL «, t00=0x0001, t01=0x00a6}
0x0246…0258 Head {h00=0x000e, h01=0x0050, text=» EXT OPCL «, t00=0x0001, t01=0x00ba}
0x0258…026a Head {h00=0x000e, h01=0x0050, text=» EXT OFRSP«, t00=0x0001, t01=0x00cc}
0x026a…0290 Head {h00=0x0022, h01=0x0050, text=» EXT DEPRUT GET PROGRAMNUMBER «, t00=0x0001, t01=0x00de}
0x0290…02a4 Head {h00=0x0010, h01=0x0050, text=» EXT CLEARB «, t00=0x0001, t01=0x0104}
0x02a4…02b8 Head {h00=0x0010, h01=0x0050, text=» EXT CMPIND «, t00=0x0001, t01=0x0118}
0x02b8…02ca Head {h00=0x000e, h01=0x0050, text=» EXT SETB «, t00=0x0001, t01=0x012c}
0x02ca…02dc Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0001, t01=0x013e}
0x02dc…02f0 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0001, t01=0x0150}
0x02f0…0308 Head {h00=0x0014, h01=0x0050, text=» INCLUDE DELITT «, t00=0x0001, t01=0x0164}
0x0308…0316 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0001, t01=0x017c}
0x0316…032c Head {h00=0x0012, h01=0x0050, text=»DEOPBC PROC FC«, t00=0x0001, t01=0x018a}
0x032c…035a Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0002, t01=0x0010}
0x035a…037c Head {h00=0x001e, h01=0x0050, text=»* HANDLE BATCHHEAD FORMAT «, t00=0x0002, t01=0x003e}
0x037c…03aa Head {h00=0x002a, h01=0x0050, text=»* THESE ROUTINES USE THE DENTER-SCREEN«, t00=0x0002, t01=0x0060}
0x03aa…03d8 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0002, t01=0x008e}
0x03d8…03f4 Head {h00=0x0018, h01=0x0050, text=» IB FC,RETUBC,ERRBC «, t00=0x0002, t01=0x00bc}
0x03f4…0426 Head {h00=0x002e, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV «, t00=0x0002, t01=0x00d8}
0x0426…0438 Head {h00=0x000e, h01=0x0050, text=» BZ OPBC00«, t00=0x0002, t01=0x010a}
0x0438…0466 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,=W'37' RECOVERY RUNNING «, t00=0x0002, t01=0x011c}
0x0466…0478 Head {h00=0x000e, h01=0x0050, text=» B REC060 «, t00=0x0002, t01=0x014a}
0x0478…0486 Head {h00=0x000a, h01=0x0050, text=»OPBC00«, t00=0x0002, t01=0x015c}
0x0486…049e Head {h00=0x0014, h01=0x0050, text=» PERF DERECS,W11«, t00=0x0002, t01=0x016a}
0x049e…04b2 Head {h00=0x0010, h01=0x0050, text=» BOK OPBC09 «, t00=0x0002, t01=0x0182}
0x04b2…04e4 Head {h00=0x002e, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV.«, t00=0x0003, t01=0x0008}
0x04e4…04f6 Head {h00=0x000e, h01=0x0050, text=» BZ REC060«, t00=0x0003, t01=0x003a}
0x04f6…0504 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x004c}
0x0504…050e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x005a}
0x050e…0538 Head {h00=0x0026, h01=0x0050, text=»* START RECOVERY OF THIS USERFILE «, t00=0x0003, t01=0x0064}
0x0538…0542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x008e}
0x0542…0554 Head {h00=0x000e, h01=0x0050, text=» SET DOOL3«, t00=0x0003, t01=0x0098}
0x0554…057e Head {h00=0x0026, h01=0x0050, text=» BNZ REC060 AN OTHER TERMINAL HAS «, t00=0x0003, t01=0x00aa}
0x057e…05a6 Head {h00=0x0024, h01=0x0050, text=» ALREADY OPENED THIS USERFILE «, t00=0x0003, t01=0x00d4}
0x05a6…05be Head {h00=0x0014, h01=0x0050, text=» FOR RECOVERY.«, t00=0x0003, t01=0x00fc}
0x05be…05de Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W10,DEKTAB6«, t00=0x0003, t01=0x0114}
0x05de…05fa Head {h00=0x0018, h01=0x0050, text=» MOVE JOBNAME,HEX00 «, t00=0x0003, t01=0x0134}
0x05fa…0608 Head {h00=0x000a, h01=0x0050, text=»REC050«, t00=0x0003, t01=0x0150}
0x0608…0622 Head {h00=0x0016, h01=0x0050, text=» MOVE BATCH,HEX00 «, t00=0x0003, t01=0x015e}
0x0622…064c Head {h00=0x0026, h01=0x0050, text=» PERF DEDISC,W21 GET NEXT JOBNAME «, t00=0x0003, t01=0x0178}
0x064c…0660 Head {h00=0x0010, h01=0x0050, text=» BOK REC100 «, t00=0x0004, t01=0x0012}
0x0660…0692 Head {h00=0x002e, h01=0x0050, text=» MOVE BCDI21(W3),W0 CLOBBERED BY RECOVERY «, t00=0x0004, t01=0x0026}
0x0692…06b2 Head {h00=0x001c, h01=0x0050, text=» MOVE JOBNAME,STSAVE(W1)«, t00=0x0004, t01=0x0058}
0x06b2…06d0 Head {h00=0x001a, h01=0x0050, text=» MOVE BATCH,STSAVE(W2)«, t00=0x0004, t01=0x0078}
0x06d0…06f8 Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW4,W9,REC075 NOT FOUND«, t00=0x0004, t01=0x0096}
0x06f8…071c Head {h00=0x0020, h01=0x0050, text=» CALL CLEARB,RECFIL,FILINDUS«, t00=0x0004, t01=0x00be}
0x071c…072a Head {h00=0x000a, h01=0x0050, text=»REC060«, t00=0x0004, t01=0x00e2}
0x072a…0754 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN3,DEBINW4 SAVE ERRORCODE «, t00=0x0004, t01=0x00f0}
0x0754…076c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x0004, t01=0x011a}
0x076c…0784 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W4«, t00=0x0004, t01=0x0132}
0x0784…0796 Head {h00=0x000e, h01=0x0050, text=» B REBC20 «, t00=0x0004, t01=0x014a}
0x0796…07a4 Head {h00=0x000a, h01=0x0050, text=»REC075«, t00=0x0004, t01=0x015c}
0x07a4…07be Head {h00=0x0016, h01=0x0050, text=» RELEASE BUFFERS«, t00=0x0004, t01=0x016a}
0x07be…07ee Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x0004, t01=0x0184}
0x07ee…081c Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x0005, t01=0x0024}
0x081c…084a Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x0005, t01=0x0052}
0x084a…086e Head {h00=0x0020, h01=0x0050, text=» CALL CLEARB,RECFIL,FILINDUS«, t00=0x0005, t01=0x0080}
0x086e…0880 Head {h00=0x000e, h01=0x0050, text=» B OPBC00 «, t00=0x0005, t01=0x00a4}
0x0880…088e Head {h00=0x000a, h01=0x0050, text=»REC100«, t00=0x0005, t01=0x00b6}
0x088e…08be Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x0005, t01=0x00c4}
0x08be…08cc Head {h00=0x000a, h01=0x0050, text=»REC110«, t00=0x0005, t01=0x00f4}
0x08cc…08fa Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x0005, t01=0x0102}
0x08fa…0928 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x0005, t01=0x0130}
0x0928…095c Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0005, t01=0x015e}
0x095c…0988 (6, 0, 400) Head {h00=0x0028, h01=0x0050, text=» MOVE BIN3,=W'34' GET NEXT BATCHNAME«, t00=0x0006, t01=0x0004}
0x0988…09a2 Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN3 «, t00=0x0006, t01=0x0030}
0x09a2…09b6 Head {h00=0x0010, h01=0x0050, text=» BNOK REC050«, t00=0x0006, t01=0x004a}
0x09b6…09d2 Head {h00=0x0018, h01=0x0050, text=» MOVE BCDI21(W3),W0 «, t00=0x0006, t01=0x005e}
0x09d2…09ea Head {h00=0x0014, h01=0x0050, text=» PERF DERECS,W11«, t00=0x0006, t01=0x007a}
0x09ea…09fe Head {h00=0x0010, h01=0x0050, text=» BNOK REC110«, t00=0x0006, t01=0x0092}
0x09fe…0a12 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL1«, t00=0x0006, t01=0x00a6}
0x0a12…0a24 Head {h00=0x000e, h01=0x0050, text=» BZ REC110«, t00=0x0006, t01=0x00ba}
0x0a24…0a3a Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W1 «, t00=0x0006, t01=0x00cc}
0x0a3a…0a48 Head {h00=0x000a, h01=0x0050, text=»REC150«, t00=0x0006, t01=0x00e2}
0x0a48…0a66 Head {h00=0x001a, h01=0x0050, text=» MOVE ACK(BIN3),=D'0' «, t00=0x0006, t01=0x00f0}
0x0a66…0a7a Head {h00=0x0010, h01=0x0050, text=» ADD BIN3,W1«, t00=0x0006, t01=0x010e}
0x0a7a…0a9c Head {h00=0x001e, h01=0x0050, text=» CALL CMPIND,BIN3,ACK(W1) «, t00=0x0006, t01=0x0122}
0x0a9c…0ab0 Head {h00=0x0010, h01=0x0050, text=» BOK REC150 «, t00=0x0006, t01=0x0144}
0x0ab0…0acc Head {h00=0x0018, h01=0x0050, text=» CALL UPDBOL,BDSTAT «, t00=0x0006, t01=0x0158}
0x0acc…0ae8 Head {h00=0x0018, h01=0x0050, text=» MOVE BDPOIN(W2),W0 «, t00=0x0006, t01=0x0174}
0x0ae8…0b0c Head {h00=0x0020, h01=0x0050, text=» PERF DERECS,W5 GET CURRENT «, t00=0x0006, t01=0x0190}
0x0b0c…0b20 Head {h00=0x0010, h01=0x0050, text=» BOK REC400 «, t00=0x0007, t01=0x0024}
0x0b20…0b2e Head {h00=0x000a, h01=0x0050, text=»REC230«, t00=0x0007, t01=0x0038}
0x0b2e…0b44 Head {h00=0x0012, h01=0x0050, text=» CLEAR BDAACT «, t00=0x0007, t01=0x0046}
0x0b44…0b60 Head {h00=0x0018, h01=0x0050, text=» CALL UPDBIN,BDSTAT «, t00=0x0007, t01=0x005c}
0x0b60…0b94 Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0007, t01=0x0078}
0x0b94…0bb8 Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W18 CLOSE BATCH«, t00=0x0007, t01=0x00ac}
0x0bb8…0bca Head {h00=0x000e, h01=0x0050, text=» B REC110 «, t00=0x0007, t01=0x00d0}
0x0bca…0bd8 Head {h00=0x000a, h01=0x0050, text=»REC400«, t00=0x0007, t01=0x00e2}
0x0bd8…0c08 Head {h00=0x002c, h01=0x0050, text=» CBE BIN3,W10,REC230 JUMP IF EMTY BATCH «, t00=0x0007, t01=0x00f0}
0x0c08…0c28 Head {h00=0x001c, h01=0x0050, text=» PERF DELAST,W7,DEKTAB6 «, t00=0x0007, t01=0x0120}
0x0c28…0c36 Head {h00=0x000a, h01=0x0050, text=»OPBC05«, t00=0x0007, t01=0x0140}
0x0c36…0c60 Head {h00=0x0026, h01=0x0050, text=» PERF DEACC,W0 NORMAL ACCUMULATION«, t00=0x0007, t01=0x014e}
0x0c60…0c94 Head {h00=0x0030, h01=0x0050, text=» ADD BCDI21(W3),=D'1' INCREASE WANTED RECNO «, t00=0x0007, t01=0x0178}
0x0c94…0cb4 Head {h00=0x001c, h01=0x0050, text=» PERF DERECS,W4 GET NEXT«, t00=0x0008, t01=0x001c}
0x0cb4…0cc8 Head {h00=0x0010, h01=0x0050, text=» BNOK REC500«, t00=0x0008, t01=0x003c}
0x0cc8…0ce0 Head {h00=0x0014, h01=0x0050, text=» PERF DERECS,W13«, t00=0x0008, t01=0x0050}
0x0ce0…0cf2 Head {h00=0x000e, h01=0x0050, text=» B OPBC05 «, t00=0x0008, t01=0x0068}
0x0cf2…0d00 Head {h00=0x000a, h01=0x0050, text=»REC500«, t00=0x0008, t01=0x007a}
0x0d00…0d2a Head {h00=0x0026, h01=0x0050, text=» PERF DERECS,W3 ENTER LAST SECTOR «, t00=0x0008, t01=0x0088}
0x0d2a…0d3c Head {h00=0x000e, h01=0x0050, text=» B REC230 «, t00=0x0008, t01=0x00b2}
0x0d3c…0d4a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00c4}
0x0d4a…0d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d2}
0x0d54…0d6a Head {h00=0x0012, h01=0x0050, text=»* OPEN ROUTINE«, t00=0x0008, t01=0x00dc}
0x0d6a…0d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f2}
0x0d74…0d82 Head {h00=0x000a, h01=0x0050, text=»OPBC09«, t00=0x0008, t01=0x00fc}
0x0d82…0da4 Head {h00=0x001e, h01=0x0050, text=» CLEAR DOOL4 DELETE BATCH «, t00=0x0008, t01=0x010a}
0x0da4…0db6 Head {h00=0x000e, h01=0x0050, text=» BZ OPBC10«, t00=0x0008, t01=0x012c}
0x0db6…0dea Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0008, t01=0x013e}
0x0dea…0dfc Head {h00=0x000e, h01=0x0050, text=» SET DOOL4«, t00=0x0008, t01=0x0172}
0x0dfc…0e16 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=W'27'«, t00=0x0008, t01=0x0184}
0x0e16…0e3e Head {h00=0x0024, h01=0x0050, text=» PERF DEDISC,BIN13 DELETE BATCH «, t00=0x0009, t01=0x000e}
0x0e3e…0e50 Head {h00=0x000e, h01=0x0050, text=» B REBC03 «, t00=0x0009, t01=0x0036}
0x0e50…0e5e Head {h00=0x000a, h01=0x0050, text=»OPBC10«, t00=0x0009, t01=0x0048}
0x0e5e…0e84 Head {h00=0x0022, h01=0x0050, text=» SET SOOL1 STATUSLINE DISPLAY «, t00=0x0009, t01=0x0056}
0x0e84…0ea2 Head {h00=0x001a, h01=0x0050, text=»OPBC20 CLEAR DECHANGE «, t00=0x0009, t01=0x007c}
0x0ea2…0eb0 Head {h00=0x000a, h01=0x0050, text=»OPBC30«, t00=0x0009, t01=0x009a}
0x0eb0…0ec8 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W0«, t00=0x0009, t01=0x00a8}
0x0ec8…0ed4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x00c0}
0x0ed4…0ee2 Head {h00=0x000a, h01=0x0050, text=»RETUBC«, t00=0x0009, t01=0x00cc}
0x0ee2…0ef8 Head {h00=0x0012, h01=0x0050, text=» CLEAR BDAACT «, t00=0x0009, t01=0x00da}
0x0ef8…0f14 Head {h00=0x0018, h01=0x0050, text=» CALL UPDBIN,BDSTAT «, t00=0x0009, t01=0x00f0}
0x0f14…0f48 Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0009, t01=0x010c}
0x0f48…0f74 Head {h00=0x0028, h01=0x0050, text=» PERF DEDISC,W18 WRITE ACCUMULATORS «, t00=0x0009, t01=0x0140}
0x0f74…0f82 Head {h00=0x000a, h01=0x0050, text=»REBC03«, t00=0x0009, t01=0x016c}
0x0f82…0f98 Head {h00=0x0012, h01=0x0050, text=» BNERR REBC10 «, t00=0x0009, t01=0x017a}
0x0f98…0fa6 Head {h00=0x000a, h01=0x0050, text=»ERRBC «, t00=0x0009, t01=0x0190}
0x0fa6…0fc2 Head {h00=0x0018, h01=0x0050, text=» PERF DERROR,DEKTAB6«, t00=0x000a, t01=0x000e}
0x0fc2…0fd0 Head {h00=0x000a, h01=0x0050, text=»REBC10«, t00=0x000a, t01=0x002a}
0x0fd0…0fe4 Head {h00=0x0010, h01=0x0050, text=» CLEAR SOOL1«, t00=0x000a, t01=0x0038}
0x0fe4…0ff8 Head {h00=0x0010, h01=0x0050, text=» CLEAR SOOL2«, t00=0x000a, t01=0x004c}
0x0ff8…1010 Head {h00=0x0014, h01=0x0050, text=» CLEAR DENOCHAN «, t00=0x000a, t01=0x0060}
0x1010…1022 Head {h00=0x000e, h01=0x0050, text=» SET DOOL5«, t00=0x000a, t01=0x0078}
0x1022…103a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW2,W3«, t00=0x000a, t01=0x008a}
0x103a…1048 Head {h00=0x000a, h01=0x0050, text=»REBC20«, t00=0x000a, t01=0x00a2}
0x1048…1076 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A«, t00=0x000a, t01=0x00b0}
0x1076…10a6 Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x000a, t01=0x00de}
0x10a6…10d4 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x000a, t01=0x010e}
0x10d4…10f8 Head {h00=0x0020, h01=0x0050, text=» PERF DEPRUT,PRNUM,BIN1,BIN2«, t00=0x000a, t01=0x013c}
0x10f8…110a Head {h00=0x000e, h01=0x0050, text=» SET BOOL2«, t00=0x000a, t01=0x0160}
0x110a…114a Head {h00=0x003c, h01=0x0050, text=» CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO«, t00=0x000a, t01=0x0172}
0x114a…1170 Head {h00=0x0022, h01=0x0050, text=» WORKBLOCKS AND DESCRIPTORS «, t00=0x000b, t01=0x0022}
0x1170…118a Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,BIN3«, t00=0x000b, t01=0x0048}
0x118a…1196 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0062}
0x1196…11a4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x006e}
0x11a4…11b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x007c}
0x11b2…11c8 Head {h00=0x0012, h01=0x0050, text=»DEREC2 PROC FC«, t00=0x000b, t01=0x008a}
0x11c8…11fa Head {h00=0x002e, h01=0x0050, text=» IB FC,DELREC,INSREC,INSREC,OPENBC,ENTINS «, t00=0x000b, t01=0x00a0}
0x11fa…1208 Head {h00=0x000a, h01=0x0050, text=»DELREC«, t00=0x000b, t01=0x00d2}
0x1208…1236 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN12,CURSEC SAVE CURRENT SECTOR«, t00=0x000b, t01=0x00e0}
0x1236…125a Head {h00=0x0020, h01=0x0050, text=» DLETE RBUF,PRECCUR,RECLNTH «, t00=0x000b, t01=0x010e}
0x125a…128c Head {h00=0x002e, h01=0x0050, text=» XCOPY BIN14,W0,W2,RBUF,W6 GET USED SPACE «, t00=0x000b, t01=0x0132}
0x128c…12bc Head {h00=0x002c, h01=0x0050, text=» SUB BIN14,RECLNTH AND DECREASE IT WITH «, t00=0x000b, t01=0x0164}
0x12bc…12ee (12, 0, 398) Head {h00=0x002e, h01=0x0050, text=» XCOPY RBUF,W6,W2,BIN14,W0 DELETED RECLNTH«, t00=0x000c, t01=0x0004}
0x12ee…1320 Head {h00=0x002e, h01=0x0050, text=» CBE BIN14,W10,DELR20 JUMP IF EMPTY SECTOR«, t00=0x000c, t01=0x0036}
0x1320…132e Head {h00=0x000a, h01=0x0050, text=»DELR10«, t00=0x000c, t01=0x0068}
0x132e…1346 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN14,W23 «, t00=0x000c, t01=0x0076}
0x1346…136c Head {h00=0x0022, h01=0x0050, text=» B DELR40 GET PREVIOUS RECORD «, t00=0x000c, t01=0x008e}
0x136c…137a Head {h00=0x000a, h01=0x0050, text=»DELR20«, t00=0x000c, t01=0x00b4}
0x137a…13a0 Head {h00=0x0022, h01=0x0050, text=» CBNE CURSEC,BDPOIN(W1),DELR30«, t00=0x000c, t01=0x00c2}
0x13a0…13c8 Head {h00=0x0024, h01=0x0050, text=» XCOPY BDPOIN(W1),W0,W2,RBUF,W2 «, t00=0x000c, t01=0x00e8}
0x13c8…13d6 Head {h00=0x000a, h01=0x0050, text=»DELR30«, t00=0x000c, t01=0x0110}
0x13d6…13ee Head {h00=0x0014, h01=0x0050, text=» MOVE BIN14,W17 «, t00=0x000c, t01=0x011e}
0x13ee…13fc Head {h00=0x000a, h01=0x0050, text=»DELR40«, t00=0x000c, t01=0x0136}
0x13fc…142c Head {h00=0x002c, h01=0x0050, text=» PERF DEDISC,BIN14 DELETE CURRENT SECTOR«, t00=0x000c, t01=0x0144}
0x142c…144e Head {h00=0x001e, h01=0x0050, text=» BERR DRNO00 HANDLE ERROR «, t00=0x000c, t01=0x0174}
0x144e…1484 Head {h00=0x0032, h01=0x0050, text=» SUB BDPOIN(W2),W1 DECREASE NUMBER OF RECORDS «, t00=0x000d, t01=0x0008}
0x1484…149e Head {h00=0x0016, h01=0x0050, text=» TBF DBOFOR,DELR50«, t00=0x000d, t01=0x003e}
0x149e…14b8 Head {h00=0x0016, h01=0x0050, text=» SUB BDPOIN(W4),W1«, t00=0x000d, t01=0x0058}
0x14b8…14c6 Head {h00=0x000a, h01=0x0050, text=»DELR50«, t00=0x000d, t01=0x0072}
0x14c6…14e2 Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,NUMBER «, t00=0x000d, t01=0x0080}
0x14e2…14f6 Head {h00=0x0010, h01=0x0050, text=» TEST DBOMVR«, t00=0x000d, t01=0x009c}
0x14f6…1508 Head {h00=0x000e, h01=0x0050, text=» BZ DROK00«, t00=0x000d, t01=0x00b0}
0x1508…152c Head {h00=0x0020, h01=0x0050, text=» TEST DBOVER VERIFIED RECORD«, t00=0x000d, t01=0x00c2}
0x152c…1544 Head {h00=0x0014, h01=0x0050, text=» BNZ DROK00 YES «, t00=0x000d, t01=0x00e6}
0x1544…155e Head {h00=0x0016, h01=0x0050, text=» SUB BDPOIN(W5),W1«, t00=0x000d, t01=0x00fe}
0x155e…1570 Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x000d, t01=0x0118}
0x1570…157e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x012a}
0x157e…15a4 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000d, t01=0x0138}
0x15a4…15ca Head {h00=0x0022, h01=0x0050, text=»* RESERV SPACE FOR INSERTION *«, t00=0x000d, t01=0x015e}
0x15ca…15f0 Head {h00=0x0022, h01=0x0050, text=»* OF A NEW DATARECORD. *«, t00=0x000d, t01=0x0184}
0x15f0…1616 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000e, t01=0x001a}
0x1616…162c Head {h00=0x0012, h01=0x0050, text=»INSREC FC= 9«, t00=0x000e, t01=0x0040}
0x162c…164e Head {h00=0x001e, h01=0x0050, text=» XCOPY BIN14,W0,W2,RBUF,W6«, t00=0x000e, t01=0x0056}
0x164e…166a Head {h00=0x0018, h01=0x0050, text=» MOVE PRECPR,PRECCUR«, t00=0x000e, t01=0x0078}
0x166a…1686 Head {h00=0x0018, h01=0x0050, text=» ADD PRECCUR,RECLNTH«, t00=0x000e, t01=0x0094}
0x1686…16b6 Head {h00=0x002c, h01=0x0050, text=» XCOPY BIN10,W0,W2,RBUF,W4 LINK TO NEXT «, t00=0x000e, t01=0x00b0}
0x16b6…16ec Head {h00=0x0032, h01=0x0050, text=» XCOPY RBUF,W6,W2,PRECCUR,W0 ADJUST USED SPACE«, t00=0x000e, t01=0x00e0}
0x16ec…1718 Head {h00=0x0028, h01=0x0050, text=» PERF DEDISC,W14 ENTER FIRST PART OF«, t00=0x000e, t01=0x0116}
0x1718…173c Head {h00=0x0020, h01=0x0050, text=» BERR DRNO00 CURRENT SECTOR «, t00=0x000e, t01=0x0142}
0x173c…1756 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN7,PRECPR «, t00=0x000e, t01=0x0166}
0x1756…176c Head {h00=0x0012, h01=0x0050, text=» SUB BIN7,W10 «, t00=0x000e, t01=0x0180}
0x176c…179a Head {h00=0x002a, h01=0x0050, text=» DLETE RBUF,W10,BIN7 COPY LAST ENTERED«, t00=0x000f, t01=0x0008}
0x179a…17c8 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN8,CURSEC SAVE CURRENT SECTOR «, t00=0x000f, t01=0x0036}
0x17c8…1800 Head {h00=0x0034, h01=0x0050, text=» CBL PRECCUR,BIN14,INSR10 JUMP IF MORE IN SECTOR«, t00=0x000f, t01=0x0064}
0x1800…1818 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN9,BIN8 «, t00=0x000f, t01=0x009c}
0x1818…1826 Head {h00=0x000a, h01=0x0050, text=»INSR05«, t00=0x000f, t01=0x00b4}
0x1826…185c Head {h00=0x0032, h01=0x0050, text=» XCOPY RBUF,W4,W2,BIN10,W0 LINK TO NEXT SECTOR«, t00=0x000f, t01=0x00c2}
0x185c…1874 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN14,W23 «, t00=0x000f, t01=0x00f8}
0x1874…18a4 Head {h00=0x002c, h01=0x0050, text=» PERF DEDISC,BIN14 WRITE CURRENT SECTOR «, t00=0x000f, t01=0x0110}
0x18a4…18b8 Head {h00=0x0010, h01=0x0050, text=» BERR DRNO00«, t00=0x000f, t01=0x0140}
0x18b8…18ca Head {h00=0x000e, h01=0x0050, text=» B INSR20 «, t00=0x000f, t01=0x0154}
0x18ca…18d8 Head {h00=0x000a, h01=0x0050, text=»INSR10«, t00=0x000f, t01=0x0166}
0x18d8…1902 Head {h00=0x0026, h01=0x0050, text=» PERF DEDISC,W14 ENTER NEW SECTOR «, t00=0x000f, t01=0x0174}
0x1902…1916 Head {h00=0x0010, h01=0x0050, text=» BERR DRNO00«, t00=0x0010, t01=0x000e}
0x1916…1930 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN9,CURSEC «, t00=0x0010, t01=0x0022}
0x1930…1950 Head {h00=0x001c, h01=0x0050, text=» DLETE RBUF,W10,RECLNTH «, t00=0x0010, t01=0x003c}
0x1950…196a Head {h00=0x0016, h01=0x0050, text=» SUB BIN14,PRECCUR«, t00=0x0010, t01=0x005c}
0x196a…1980 Head {h00=0x0012, h01=0x0050, text=» ADD BIN14,W10«, t00=0x0010, t01=0x0076}
0x1980…19b6 Head {h00=0x0032, h01=0x0050, text=» XCOPY RBUF,W6,W2,BIN14,W0 USED SPACE PART TWO«, t00=0x0010, t01=0x008c}
0x19b6…19c8 Head {h00=0x000e, h01=0x0050, text=» B INSR05 «, t00=0x0010, t01=0x00c2}
0x19c8…19d6 Head {h00=0x000a, h01=0x0050, text=»INSR20«, t00=0x0010, t01=0x00d4}
0x19d6…1a06 Head {h00=0x002c, h01=0x0050, text=» CBE BIN10,W0,INSR30 JUMP IF LAST SECTOR«, t00=0x0010, t01=0x00e2}
0x1a06…1a20 Head {h00=0x0016, h01=0x0050, text=» MOVE CURSEC,BIN10«, t00=0x0010, t01=0x0112}
0x1a20…1a3a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=W'33'«, t00=0x0010, t01=0x012c}
0x1a3a…1a54 Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN13«, t00=0x0010, t01=0x0146}
0x1a54…1a68 Head {h00=0x0010, h01=0x0050, text=» BERR DRNO00«, t00=0x0010, t01=0x0160}
0x1a68…1a96 Head {h00=0x002a, h01=0x0050, text=» XCOPY RBUF,W2,W2,BIN9,W0 LINK TO PREV«, t00=0x0010, t01=0x0174}
0x1a96…1aae Head {h00=0x0014, h01=0x0050, text=» MOVE BIN14,W23 «, t00=0x0011, t01=0x0012}
0x1aae…1ade Head {h00=0x002c, h01=0x0050, text=» PERF DEDISC,BIN14 WRITE CURRENT SECTOR «, t00=0x0011, t01=0x002a}
0x1ade…1af2 Head {h00=0x0010, h01=0x0050, text=» BERR DRNO00«, t00=0x0011, t01=0x005a}
0x1af2…1b04 Head {h00=0x000e, h01=0x0050, text=» B INSR40 «, t00=0x0011, t01=0x006e}
0x1b04…1b12 Head {h00=0x000a, h01=0x0050, text=»INSR30«, t00=0x0011, t01=0x0080}
0x1b12…1b50 Head {h00=0x003a, h01=0x0050, text=» XCOPY BDPOIN(W1),W0,W2,CURSEC,W0 LAST ENTERED RECORD «, t00=0x0011, t01=0x008e}
0x1b50…1b5e Head {h00=0x000a, h01=0x0050, text=»INSR40«, t00=0x0011, t01=0x00cc}
0x1b5e…1b78 Head {h00=0x0016, h01=0x0050, text=» MOVE CURSEC,BIN8 «, t00=0x0011, t01=0x00da}
0x1b78…1b92 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=W'33'«, t00=0x0011, t01=0x00f4}
0x1b92…1bac Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN13«, t00=0x0011, t01=0x010e}
0x1bac…1bc0 Head {h00=0x0010, h01=0x0050, text=» BERR DRNO00«, t00=0x0011, t01=0x0128}
0x1bc0…1bd8 Head {h00=0x0014, h01=0x0050, text=» MOVE PRECPR,W10«, t00=0x0011, t01=0x013c}
0x1bd8…1bf2 Head {h00=0x0016, h01=0x0050, text=» MOVE PRECCUR,W10 «, t00=0x0011, t01=0x0154}
0x1bf2…1c22 Head {h00=0x002c, h01=0x0050, text=» XCOPY RBUF,PRECCUR,W1,BPOOL(PINDFR),W0 «, t00=0x0011, t01=0x016e}
0x1c22…1c34 Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x0012, t01=0x000e}
0x1c34…1c42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0020}
0x1c42…1c70 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0012, t01=0x002e}
0x1c70…1c7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005c}
0x1c7a…1ca6 Head {h00=0x0028, h01=0x0050, text=»* READ IN CURRENT JOBDEFINITION AND «, t00=0x0012, t01=0x0066}
0x1ca6…1cc2 Head {h00=0x0018, h01=0x0050, text=»* OPEN WANTED BATCH.«, t00=0x0012, t01=0x0092}
0x1cc2…1ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ae}
0x1ccc…1cfa Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0012, t01=0x00b8}
0x1cfa…1d10 Head {h00=0x0012, h01=0x0050, text=»OPENBC FC=11«, t00=0x0012, t01=0x00e6}
0x1d10…1d28 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0012, t01=0x00fc}
0x1d28…1d4e Head {h00=0x0022, h01=0x0050, text=» PERF DEPRUT,PRNUM,BIN11,BIN12«, t00=0x0012, t01=0x0114}
0x1d4e…1d78 Head {h00=0x0026, h01=0x0050, text=» CBNE BIN11,W7,OPE030 JUMP IF NOT «, t00=0x0012, t01=0x013a}
0x1d78…1da0 Head {h00=0x0024, h01=0x0050, text=» CALL EMPTYT,JOBNAME CONVERSION «, t00=0x0012, t01=0x0164}
0x1da0…1dbc Head {h00=0x0018, h01=0x0050, text=» BZ OPE050 NOT EMPTY«, t00=0x0012, t01=0x018c}
0x1dbc…1dce Head {h00=0x000e, h01=0x0050, text=» B OPE100 «, t00=0x0013, t01=0x0018}
0x1dce…1ddc Head {h00=0x000a, h01=0x0050, text=»OPE030«, t00=0x0013, t01=0x002a}
0x1ddc…1e0c Head {h00=0x002c, h01=0x0050, text=» CBNE BIN11,W4,OPE035 JUMP IF NOT ENTRY «, t00=0x0013, t01=0x0038}
0x1e0c…1e3c Head {h00=0x002c, h01=0x0050, text=» CBNE BIN12,W5,OPE050 JUMP IF NOT DELETE«, t00=0x0013, t01=0x0068}
0x1e3c…1e4e Head {h00=0x000e, h01=0x0050, text=» B OPE040 «, t00=0x0013, t01=0x0098}
0x1e4e…1e5c Head {h00=0x000a, h01=0x0050, text=»OPE035«, t00=0x0013, t01=0x00aa}
0x1e5c…1e7a Head {h00=0x001a, h01=0x0050, text=» CBNE BIN11,W5,OPE050 «, t00=0x0013, t01=0x00b8}
0x1e7a…1ea4 Head {h00=0x0026, h01=0x0050, text=» CBE BIN12,W3,OPE050 RECORD-LEVEL «, t00=0x0013, t01=0x00d6}
0x1ea4…1eb2 Head {h00=0x000a, h01=0x0050, text=»OPE040«, t00=0x0013, t01=0x0100}
0x1eb2…1ee6 Head {h00=0x0030, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY«, t00=0x0013, t01=0x010e}
0x1ee6…1ef8 Head {h00=0x000e, h01=0x0050, text=» BZ OPE100«, t00=0x0013, t01=0x0142}
0x1ef8…1f06 Head {h00=0x000a, h01=0x0050, text=»OPE050«, t00=0x0013, t01=0x0154}
0x1f06…1f36 Head {h00=0x002c, h01=0x0050, text=» CBNE PJOBCUR,W0,OPE100 JUMP IF ALREADY «, t00=0x0013, t01=0x0162}
0x1f36…1f58 (20, 0, 400) Head {h00=0x001e, h01=0x0050, text=» A JOBDEFINITION IN POOL«, t00=0x0014, t01=0x0004}
0x1f58…1f74 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,HEX00 «, t00=0x0014, t01=0x0026}
0x1f74…1f9a Head {h00=0x0022, h01=0x0050, text=» COPY DEINPUT,W0,W6,JOBNAME,W0«, t00=0x0014, t01=0x0042}
0x1f9a…1fc4 Head {h00=0x0026, h01=0x0050, text=» PERF DEDISC,W2 GET JOB-DEFINITION«, t00=0x0014, t01=0x0068}
0x1fc4…1fda Head {h00=0x0012, h01=0x0050, text=» BNERR OPE100 «, t00=0x0014, t01=0x0092}
0x1fda…2002 Head {h00=0x0024, h01=0x0050, text=» GETFLD 0,W2,BIN3 FILED JOBNAME «, t00=0x0014, t01=0x00a8}
0x2002…2014 Head {h00=0x000e, h01=0x0050, text=» B DRNO00 «, t00=0x0014, t01=0x00d0}
0x2014…2022 Head {h00=0x000a, h01=0x0050, text=»OPE100«, t00=0x0014, t01=0x00e2}
0x2022…2052 Head {h00=0x002c, h01=0x0050, text=» TBT DOOL3,OPE250 JUMP IF USERFILE OPEN «, t00=0x0014, t01=0x00f0}
0x2052…2076 Head {h00=0x0020, h01=0x0050, text=» PERF OPCL,W3 OPEN USERFILE «, t00=0x0014, t01=0x0120}
0x2076…208a Head {h00=0x0010, h01=0x0050, text=» BOK OPE200 «, t00=0x0014, t01=0x0144}
0x208a…209e Head {h00=0x0010, h01=0x0050, text=» BERR OPE150«, t00=0x0014, t01=0x0158}
0x209e…20c0 Head {h00=0x001e, h01=0x0050, text=» CALL SETB,RECFIL,FILINDUS«, t00=0x0014, t01=0x016c}
0x20c0…20f0 Head {h00=0x002c, h01=0x0050, text=»OPE150 GETFLD 0,W3,BIN3 FIELD BATCHNAME «, t00=0x0014, t01=0x018e}
0x20f0…2114 Head {h00=0x0020, h01=0x0050, text=» COPY DEINPUT,W0,W6,BATCH,W0«, t00=0x0015, t01=0x002e}
0x2114…2122 Head {h00=0x000a, h01=0x0050, text=»OPE170«, t00=0x0015, t01=0x0052}
0x2122…2134 Head {h00=0x000e, h01=0x0050, text=» B OPE700 «, t00=0x0015, t01=0x0060}
0x2134…215c Head {h00=0x0024, h01=0x0050, text=»OPE200 SET DOOL3 USERFILE OPENED«, t00=0x0015, t01=0x0072}
0x215c…2190 Head {h00=0x0030, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY«, t00=0x0015, t01=0x009a}
0x2190…21ae Head {h00=0x001a, h01=0x0050, text=» BZ OPE260 JUMP IF NOT«, t00=0x0015, t01=0x00ce}
0x21ae…21d6 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN3,=W'37' ERROR REC.RUN «, t00=0x0015, t01=0x00ec}
0x21d6…2206 Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x0015, t01=0x0114}
0x2206…2218 Head {h00=0x000e, h01=0x0050, text=» B OPE760 «, t00=0x0015, t01=0x0144}
0x2218…2226 Head {h00=0x000a, h01=0x0050, text=»OPE250«, t00=0x0015, t01=0x0156}
0x2226…225a Head {h00=0x0030, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY«, t00=0x0015, t01=0x0164}
0x225a…227e Head {h00=0x0020, h01=0x0050, text=» BNZ OPE300 JUMP IF RUNNING «, t00=0x0016, t01=0x0008}
0x227e…22a4 Head {h00=0x0022, h01=0x0050, text=»OPE260 LOOK IF BATCHDATA AND«, t00=0x0016, t01=0x002c}
0x22a4…22ca Head {h00=0x0022, h01=0x0050, text=» BATCHHEADER ARE TO BE USED «, t00=0x0016, t01=0x0052}
0x22ca…22f6 Head {h00=0x0028, h01=0x0050, text=» CBNE BIN11,W7,OPE265 NOT CONVERSION«, t00=0x0016, t01=0x0078}
0x22f6…2328 Head {h00=0x002e, h01=0x0050, text=» CBE PJOBCUR,W0,OPE270 OPEN USERFILE ONLY «, t00=0x0016, t01=0x00a4}
0x2328…2352 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN12,W0 ADJUST RETURNPOINT «, t00=0x0016, t01=0x00d6}
0x2352…2368 Head {h00=0x0012, h01=0x0050, text=» IN DERECS. «, t00=0x0016, t01=0x0100}
0x2368…237a Head {h00=0x000e, h01=0x0050, text=» B OPE280 «, t00=0x0016, t01=0x0116}
0x237a…2388 Head {h00=0x000a, h01=0x0050, text=»OPE265«, t00=0x0016, t01=0x0128}
0x2388…23b8 Head {h00=0x002c, h01=0x0050, text=» CBNE BIN11,W5,OPE290 JUMP IF NOT SEARCH«, t00=0x0016, t01=0x0136}
0x23b8…23de Head {h00=0x0022, h01=0x0050, text=» IB BIN12,OPE270,OPE280,OPE300«, t00=0x0016, t01=0x0166}
0x23de…23ec Head {h00=0x000a, h01=0x0050, text=»OPE270«, t00=0x0016, t01=0x018c}
0x23ec…2416 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN12,W1 ADJUST RETURNPOINT «, t00=0x0017, t01=0x000a}
0x2416…242c Head {h00=0x0012, h01=0x0050, text=» IN DERECS. «, t00=0x0017, t01=0x0034}
0x242c…243e Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x0017, t01=0x004a}
0x243e…244c Head {h00=0x000a, h01=0x0050, text=»OPE280«, t00=0x0017, t01=0x005c}
0x244c…2466 Head {h00=0x0016, h01=0x0050, text=» MOVE STR6A,HEX00 «, t00=0x0017, t01=0x006a}
0x2466…2486 Head {h00=0x001c, h01=0x0050, text=» CBE BATCH,STR6A,OPE270 «, t00=0x0017, t01=0x0084}
0x2486…2498 Head {h00=0x000e, h01=0x0050, text=» B OPE300 «, t00=0x0017, t01=0x00a4}
0x2498…24a6 Head {h00=0x000a, h01=0x0050, text=»OPE290«, t00=0x0017, t01=0x00b6}
0x24a6…24c0 Head {h00=0x0016, h01=0x0050, text=» TBF DOOL8,OPE300 «, t00=0x0017, t01=0x00c4}
0x24c0…24e0 Head {h00=0x001c, h01=0x0050, text=» PERF DEDISC,W6 OPEN NEW«, t00=0x0017, t01=0x00de}
0x24e0…24f4 Head {h00=0x0010, h01=0x0050, text=» BOK OPE380 «, t00=0x0017, t01=0x00fe}
0x24f4…2506 Head {h00=0x000e, h01=0x0050, text=» B OPE690 «, t00=0x0017, t01=0x0112}
0x2506…2514 Head {h00=0x000a, h01=0x0050, text=»OPE300«, t00=0x0017, t01=0x0124}
0x2514…2534 Head {h00=0x001c, h01=0x0050, text=» PERF DEDISC,W7 OPEN OLD«, t00=0x0017, t01=0x0132}
0x2534…2548 Head {h00=0x0010, h01=0x0050, text=» BNOK OPE350«, t00=0x0017, t01=0x0152}
0x2548…257a Head {h00=0x002e, h01=0x0029, text=» XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE «, t00=0x0017, t01=0x0166}
0x257a…25aa Head {h00=0x002c, h01=0x0050, text=» CBNE BIN13,W10,OPE380 NOT EMPTY BATCH! «, t00=0x0018, t01=0x0008}
0x25aa…25cc Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW4,W9 NOT FOUND«, t00=0x0018, t01=0x0038}
0x25cc…25ea Head {h00=0x001a, h01=0x0050, text=» B OPE695 DELETE BATCH«, t00=0x0018, t01=0x005a}
0x25ea…25f8 Head {h00=0x000a, h01=0x0050, text=»OPE350«, t00=0x0018, t01=0x0078}
0x25f8…2624 Head {h00=0x0028, h01=0x0050, text=» CBNE DEBINW4,=W'27',OPE170 B OPE700«, t00=0x0018, t01=0x0086}
0x2624…2654 Head {h00=0x002c, h01=0x0050, text=» CBNE BIN11,W5,OPE170 JUMP IF NOT SEARCH«, t00=0x0018, t01=0x00b2}
0x2654…267e Head {h00=0x0026, h01=0x0050, text=» CBE BIN12,W3,OPE170 RECORD-LEVEL «, t00=0x0018, t01=0x00e2}
0x267e…2690 Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x0018, t01=0x010c}
0x2690…269e Head {h00=0x000a, h01=0x0050, text=»OPE380«, t00=0x0018, t01=0x011e}
0x269e…26c6 Head {h00=0x0024, h01=0x0050, text=» CALL ATTWB,BPOOL(PINACC),W2,W13«, t00=0x0018, t01=0x012c}
0x26c6…26e2 Head {h00=0x0018, h01=0x0050, text=» CALL UPDBOL,BDSTAT «, t00=0x0018, t01=0x0154}
0x26e2…2706 Head {h00=0x0020, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS «, t00=0x0018, t01=0x0170}
0x2706…272e (25, 0, 400) Head {h00=0x0024, h01=0x0050, text=» BZ OPE400 JUMP IF NOT RECOVERY «, t00=0x0019, t01=0x0004}
0x272e…275c Head {h00=0x002a, h01=0x0050, text=» TBT BDAACT,OPE560 JUMP IF BATCH IS TO«, t00=0x0019, t01=0x002c}
0x275c…2774 Head {h00=0x0014, h01=0x0050, text=» BE RECOVERED «, t00=0x0019, t01=0x005a}
0x2774…279e Head {h00=0x0026, h01=0x0050, text=» B DROK00 BATCH WILL NOT BE OPENED«, t00=0x0019, t01=0x0072}
0x279e…27c4 Head {h00=0x0022, h01=0x0050, text=»OPE400 THOS IS A NORMAL OPEN«, t00=0x0019, t01=0x009c}
0x27c4…27f4 Head {h00=0x002c, h01=0x0050, text=» CBNE BIN11,W5,OPE410 JUMP IF NOT SEARCH«, t00=0x0019, t01=0x00c2}
0x27f4…281e Head {h00=0x0026, h01=0x0050, text=» CBE BIN12,W3,OPE550 RECORD-LEVEL «, t00=0x0019, t01=0x00f2}
0x281e…2838 Head {h00=0x0016, h01=0x0050, text=» TBF BDAACT,OPE405«, t00=0x0019, t01=0x011c}
0x2838…284a Head {h00=0x000e, h01=0x0050, text=» SET DOOL1«, t00=0x0019, t01=0x0136}
0x284a…2858 Head {h00=0x000a, h01=0x0050, text=»OPE405«, t00=0x0019, t01=0x0148}
0x2858…286a Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x0019, t01=0x0156}
0x286a…2878 Head {h00=0x000a, h01=0x0050, text=»OPE410«, t00=0x0019, t01=0x0168}
0x2878…28a8 Head {h00=0x002c, h01=0x0050, text=» CBNE BIN11,W4,OPE415 JUMP IF NOT ENTRY «, t00=0x0019, t01=0x0176}
0x28a8…28d4 Head {h00=0x0028, h01=0x0050, text=» CBNE BIN12,W5,OPE415 AND NOT DELETE«, t00=0x001a, t01=0x0016}
0x28d4…28ee Head {h00=0x0016, h01=0x0050, text=» MOVE BIN11,BIN12 «, t00=0x001a, t01=0x0042}
0x28ee…2900 Head {h00=0x000e, h01=0x0050, text=» B OPE270 «, t00=0x001a, t01=0x005c}
0x2900…290e Head {h00=0x000a, h01=0x0050, text=»OPE415«, t00=0x001a, t01=0x006e}
0x290e…2938 Head {h00=0x0026, h01=0x0050, text=» TBF DOOL8,OPE420 JUMP IF OPEN OLD«, t00=0x001a, t01=0x007c}
0x2938…2968 Head {h00=0x002c, h01=0x0050, text=» TBF DOOL7,OPE540 JUMP IF NOT TESTBATCH «, t00=0x001a, t01=0x00a6}
0x2968…297c Head {h00=0x0010, h01=0x0050, text=» SET BDATES «, t00=0x001a, t01=0x00d6}
0x297c…298e Head {h00=0x000e, h01=0x0050, text=» B OPE540 «, t00=0x001a, t01=0x00ea}
0x298e…299c Head {h00=0x000a, h01=0x0050, text=»OPE420«, t00=0x001a, t01=0x00fc}
0x299c…29ca Head {h00=0x002a, h01=0x0050, text=» TBT DOOL7,OPE460 JUMP IF TESTENTERING«, t00=0x001a, t01=0x010a}
0x29ca…29fa Head {h00=0x002c, h01=0x0050, text=» TBF BDATES,OPE500 JUMP IF NOT TESTBATCH«, t00=0x001a, t01=0x0138}
0x29fa…2a08 Head {h00=0x000a, h01=0x0050, text=»OPE440«, t00=0x001a, t01=0x0168}
0x2a08…2a2a Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW4,=W'33' ERROR«, t00=0x001a, t01=0x0176}
0x2a2a…2a3c Head {h00=0x000e, h01=0x0050, text=» B OPE710 «, t00=0x001b, t01=0x0008}
0x2a3c…2a4a Head {h00=0x000a, h01=0x0050, text=»OPE460«, t00=0x001b, t01=0x001a}
0x2a4a…2a76 Head {h00=0x0028, h01=0x0050, text=» TBT BDATES,OPE540 JUMP IF TESTBATCH«, t00=0x001b, t01=0x0028}
0x2a76…2a98 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW4,=W'34' ERROR«, t00=0x001b, t01=0x0054}
0x2a98…2aaa Head {h00=0x000e, h01=0x0050, text=» B OPE710 «, t00=0x001b, t01=0x0076}
0x2aaa…2ab8 Head {h00=0x000a, h01=0x0050, text=»OPE500«, t00=0x001b, t01=0x0088}
0x2ab8…2ad2 Head {h00=0x0016, h01=0x0050, text=» TBF VERIFM,OPE540«, t00=0x001b, t01=0x0096}
0x2ad2…2aec Head {h00=0x0016, h01=0x0050, text=» TBT BDAMVR,OPE540«, t00=0x001b, t01=0x00b0}
0x2aec…2afa Head {h00=0x000a, h01=0x0050, text=»OPE520«, t00=0x001b, t01=0x00ca}
0x2afa…2b12 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W8«, t00=0x001b, t01=0x00d8}
0x2b12…2b24 Head {h00=0x000e, h01=0x0050, text=» B OPE710 «, t00=0x001b, t01=0x00f0}
0x2b24…2b32 Head {h00=0x000a, h01=0x0050, text=»OPE540«, t00=0x001b, t01=0x0102}
0x2b32…2b5a Head {h00=0x0024, h01=0x0050, text=» CBE BIN11,W7,OPE580 CONVERSION «, t00=0x001b, t01=0x0110}
0x2b5a…2b68 Head {h00=0x000a, h01=0x0050, text=»OPE550«, t00=0x001b, t01=0x0138}
0x2b68…2b92 Head {h00=0x0026, h01=0x0050, text=» SET BDAACT BATCH DURING ENTERING «, t00=0x001b, t01=0x0146}
0x2b92…2ba4 Head {h00=0x000e, h01=0x0050, text=» BZ OPE580«, t00=0x001b, t01=0x0170}
0x2ba4…2bca Head {h00=0x0022, h01=0x0050, text=»OPE560 RECOVERYOPENED BATCH «, t00=0x001b, t01=0x0182}
0x2bca…2bdc Head {h00=0x000e, h01=0x0050, text=» SET DOOL1«, t00=0x001c, t01=0x0018}
0x2bdc…2bee Head {h00=0x000e, h01=0x0050, text=» B OPE680 «, t00=0x001c, t01=0x002a}
0x2bee…2bfc Head {h00=0x000a, h01=0x0050, text=»OPE580«, t00=0x001c, t01=0x003c}
0x2bfc…2c2e Head {h00=0x002e, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV.«, t00=0x001c, t01=0x004a}
0x2c2e…2c42 Head {h00=0x0010, h01=0x0050, text=» BNZ DROK00 «, t00=0x001c, t01=0x007c}
0x2c42…2c6c Head {h00=0x0026, h01=0x0050, text=» CBNE BIN11,W7,OPE620 JUMP IF NOT «, t00=0x001c, t01=0x0090}
0x2c6c…2c9e Head {h00=0x002e, h01=0x0050, text=» MOVE BIN12,W4 RETURN TO DROK00 IN DERECS «, t00=0x001c, t01=0x00ba}
0x2c9e…2cb0 Head {h00=0x000e, h01=0x0050, text=» B OPE680 «, t00=0x001c, t01=0x00ec}
0x2cb0…2cbe Head {h00=0x000a, h01=0x0050, text=»OPE600«, t00=0x001c, t01=0x00fe}
0x2cbe…2cd6 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W4«, t00=0x001c, t01=0x010c}
0x2cd6…2ce8 Head {h00=0x000e, h01=0x0050, text=» B OPE710 «, t00=0x001c, t01=0x0124}
0x2ce8…2cf6 Head {h00=0x000a, h01=0x0050, text=»OPE620«, t00=0x001c, t01=0x0136}
0x2cf6…2d20 Head {h00=0x0026, h01=0x0050, text=» TBT DOOL8,OPE640 JUMP IF OPEN NEW«, t00=0x001c, t01=0x0144}
0x2d20…2d2e Head {h00=0x000a, h01=0x0050, text=»OPE630«, t00=0x001c, t01=0x016e}
0x2d2e…2d56 Head {h00=0x0024, h01=0x0050, text=» TBT BDAFRO,OPE600 FROZEN BATCH «, t00=0x001c, t01=0x017c}
0x2d56…2d64 Head {h00=0x000a, h01=0x0050, text=»OPE640«, t00=0x001d, t01=0x0014}
0x2d64…2d7a Head {h00=0x0012, h01=0x0050, text=» CLEAR BDABAL «, t00=0x001d, t01=0x0022}
0x2d7a…2d96 Head {h00=0x0018, h01=0x0050, text=» CALL UPDBIN,BDSTAT «, t00=0x001d, t01=0x0038}
0x2d96…2dca Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x001d, t01=0x0054}
0x2dca…2df2 Head {h00=0x0024, h01=0x0050, text=» PERF DEDISC,W18 WITE BATCHDATA «, t00=0x001d, t01=0x0088}
0x2df2…2e06 Head {h00=0x0010, h01=0x0050, text=» BNOK OPE690«, t00=0x001d, t01=0x00b0}
0x2e06…2e30 Head {h00=0x0026, h01=0x0050, text=» TBF DOOL8,OPE660 JUMP IF OPEN OLD«, t00=0x001d, t01=0x00c4}
0x2e30…2e5a Head {h00=0x0026, h01=0x0050, text=» MOVE BIN13,W23 WRITE CURR.SECTOR «, t00=0x001d, t01=0x00ee}
0x2e5a…2e72 Head {h00=0x0014, h01=0x0050, text=» MOVE RBUF,HEX00«, t00=0x001d, t01=0x0118}
0x2e72…2e9e Head {h00=0x0028, h01=0x0050, text=» XCOPY RBUF,W6,W2,W10,W0 USED SPACE «, t00=0x001d, t01=0x0130}
0x2e9e…2eb0 Head {h00=0x000e, h01=0x0050, text=» B OPE670 «, t00=0x001d, t01=0x015c}
0x2eb0…2ebe Head {h00=0x000a, h01=0x0050, text=»OPE660«, t00=0x001d, t01=0x016e}
0x2ebe…2eea Head {h00=0x0028, h01=0x0050, text=» MOVE BIN13,=W'33' READ CURR.SECTOR «, t00=0x001d, t01=0x017c}
0x2eea…2ef8 Head {h00=0x000a, h01=0x0050, text=»OPE670«, t00=0x001e, t01=0x0018}
0x2ef8…2f12 Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN13«, t00=0x001e, t01=0x0026}
0x2f12…2f26 Head {h00=0x0010, h01=0x0050, text=» BNOK OPE690«, t00=0x001e, t01=0x0040}
0x2f26…2f34 Head {h00=0x000a, h01=0x0050, text=»OPE680«, t00=0x001e, t01=0x0054}
0x2f34…2f5e Head {h00=0x0026, h01=0x0050, text=» CALL ATTWB,BPOOL(PJOBCUR),W0,W12 «, t00=0x001e, t01=0x0062}
0x2f5e…2f76 Head {h00=0x0014, h01=0x0050, text=» MOVE PINDFR,W0 «, t00=0x001e, t01=0x008c}
0x2f76…2fa8 Head {h00=0x002e, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV.«, t00=0x001e, t01=0x00a4}
0x2fa8…2fc0 Head {h00=0x0014, h01=0x0050, text=» BNZ OPE681 YES!«, t00=0x001e, t01=0x00d6}
0x2fc0…2ff0 Head {h00=0x002c, h01=0x0050, text=» CBE BIN11,W5,OPE683 SEARCH RECORD-LEVEL«, t00=0x001e, t01=0x00ee}
0x2ff0…2ffe Head {h00=0x000a, h01=0x0050, text=»OPE681«, t00=0x001e, t01=0x011e}
0x2ffe…3036 Head {h00=0x0034, h01=0x0050, text=» MOVE DEINPUT,FORTAB(W20) GET NAME OF BATCHHEAD «, t00=0x001e, t01=0x012c}
0x3036…3058 Head {h00=0x001e, h01=0x0050, text=» MOVE FRMTPNTR,SYMREC(W10)«, t00=0x001e, t01=0x0164}
0x3058…307c Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W10 GET FORMAT «, t00=0x001e, t01=0x0186}
0x307c…3090 Head {h00=0x0010, h01=0x0050, text=» BNOK OPE690«, t00=0x001f, t01=0x001a}
0x3090…30c4 Head {h00=0x0030, h01=0x0050, text=» MOVE FORMAT,FORTAB(W20) SAVE BATCHHEADNAME «, t00=0x001f, t01=0x002e}
0x30c4…30d6 Head {h00=0x000e, h01=0x0050, text=» B OPE684 «, t00=0x001f, t01=0x0062}
0x30d6…30e4 Head {h00=0x000a, h01=0x0050, text=»OPE683«, t00=0x001f, t01=0x0074}
0x30e4…310c Head {h00=0x0024, h01=0x0050, text=» MOVE FORMAT,HEX00 SEARCH STRART«, t00=0x001f, t01=0x0082}
0x310c…311a Head {h00=0x000a, h01=0x0050, text=»OPE684«, t00=0x001f, t01=0x00aa}
0x311a…3142 Head {h00=0x0024, h01=0x0050, text=» MOVE PRECCUR,W10 START IN RBUF «, t00=0x001f, t01=0x00b8}
0x3142…3174 Head {h00=0x002e, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV.«, t00=0x001f, t01=0x00e0}
0x3174…318c Head {h00=0x0014, h01=0x0050, text=» BNZ OPE686 YES!«, t00=0x001f, t01=0x0112}
0x318c…31bc Head {h00=0x002c, h01=0x0050, text=» CBE BIN11,W5,OPE688 SEARCH RECORD-LEVEL«, t00=0x001f, t01=0x012a}
0x31bc…31ca Head {h00=0x000a, h01=0x0050, text=»OPE686«, t00=0x001f, t01=0x015a}
0x31ca…31e4 Head {h00=0x0016, h01=0x0050, text=» TBT DOOL8,OPE685 «, t00=0x001f, t01=0x0168}
0x31e4…31f8 Head {h00=0x0010, h01=0x0050, text=» PERF DEREFO«, t00=0x001f, t01=0x0182}
0x31f8…320c Head {h00=0x0010, h01=0x0050, text=» BOFL OPE710«, t00=0x0020, t01=0x0008}
0x320c…321a Head {h00=0x000a, h01=0x0050, text=»OPE685«, t00=0x0020, t01=0x001c}
0x321a…323c Head {h00=0x001e, h01=0x0050, text=» MOVE SYMREC(W10),FRMTPNTR«, t00=0x0020, t01=0x002a}
0x323c…324a Head {h00=0x000a, h01=0x0050, text=»OPE688«, t00=0x0020, t01=0x004c}
0x324a…3260 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0020, t01=0x005a}
0x3260…3288 Head {h00=0x0024, h01=0x0050, text=» CALL ATTWB,BPOOL(PINACC),W2,W13«, t00=0x0020, t01=0x0070}
0x3288…32a4 Head {h00=0x0018, h01=0x0050, text=» MOVE PRECPR,PRECCUR«, t00=0x0020, t01=0x0098}
0x32a4…32bc Head {h00=0x0014, h01=0x0050, text=» MOVE NUMBER,W0 «, t00=0x0020, t01=0x00b4}
0x32bc…32d6 Head {h00=0x0016, h01=0x0050, text=» CALL UPDBIN,BIN1 «, t00=0x0020, t01=0x00cc}
0x32d6…32e8 Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x0020, t01=0x00e6}
0x32e8…32f6 Head {h00=0x000a, h01=0x0050, text=»OPE690«, t00=0x0020, t01=0x00f8}
0x32f6…3320 Head {h00=0x0026, h01=0x0050, text=» TBF DOOL8,OPE710 JUMP IF OPEN OLD«, t00=0x0020, t01=0x0106}
0x3320…334c Head {h00=0x0028, h01=0x0050, text=» CBE DEBINW4,W8,OPE700 JUMP IF ERROR«, t00=0x0020, t01=0x0130}
0x334c…336a Head {h00=0x001a, h01=0x0050, text=» IS ALREADY DEFINED «, t00=0x0020, t01=0x015c}
0x336a…3390 Head {h00=0x0022, h01=0x0050, text=» IF SO DELETE CURRENT BATCH «, t00=0x0020, t01=0x017a}
0x3390…339e Head {h00=0x000a, h01=0x0050, text=»OPE695«, t00=0x0021, t01=0x0010}
0x339e…33b8 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN3,DEBINW4«, t00=0x0021, t01=0x001e}
0x33b8…33d2 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=W'27'«, t00=0x0021, t01=0x0038}
0x33d2…33fa Head {h00=0x0024, h01=0x0050, text=» PERF DEDISC,BIN13 DELETE BATCH «, t00=0x0021, t01=0x0052}
0x33fa…3414 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,BIN3«, t00=0x0021, t01=0x007a}
0x3414…3422 Head {h00=0x000a, h01=0x0050, text=»OPE700«, t00=0x0021, t01=0x0094}
0x3422…3438 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W3 «, t00=0x0021, t01=0x00a2}
0x3438…3462 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN3,DEBINW4 SAVE ERRORCODE «, t00=0x0021, t01=0x00b8}
0x3462…3474 Head {h00=0x000e, h01=0x0050, text=» B OPE720 «, t00=0x0021, t01=0x00e2}
0x3474…3482 Head {h00=0x000a, h01=0x0050, text=»OPE710«, t00=0x0021, t01=0x00f4}
0x3482…3498 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0021, t01=0x0102}
0x3498…34c2 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN3,DEBINW4 SAVE ERRORCODE «, t00=0x0021, t01=0x0118}
0x34c2…34f0 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x0021, t01=0x0142}
0x34f0…34fe Head {h00=0x000a, h01=0x0050, text=»OPE720«, t00=0x0021, t01=0x0170}
0x34fe…352c Head {h00=0x002a, h01=0x0050, text=» GETFLD 0,BIN4,DEBINW4 GET LAST FIELD «, t00=0x0021, t01=0x017e}
0x352c…3548 Head {h00=0x0018, h01=0x0050, text=» CBE BIN11,W7,OPE760«, t00=0x0022, t01=0x001c}
0x3548…3576 Head {h00=0x002a, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS RECOVERY? «, t00=0x0022, t01=0x0038}
0x3576…358e Head {h00=0x0014, h01=0x0050, text=» BNZ OPE760 YES!«, t00=0x0022, t01=0x0066}
0x358e…35be Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x0022, t01=0x007e}
0x35be…35d2 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL3«, t00=0x0022, t01=0x00ae}
0x35d2…35e4 Head {h00=0x000e, h01=0x0050, text=» BZ OPE760«, t00=0x0022, t01=0x00c2}
0x35e4…3608 Head {h00=0x0020, h01=0x0050, text=» PERF OPCL,W4 CLOSE USERFILE«, t00=0x0022, t01=0x00d4}
0x3608…3616 Head {h00=0x000a, h01=0x0050, text=»OPE760«, t00=0x0022, t01=0x00f8}
0x3616…364a Head {h00=0x0030, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 «, t00=0x0022, t01=0x0106}
0x364a…3664 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,BIN3«, t00=0x0022, t01=0x013a}
0x3664…366e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0154}
0x366e…3680 Head {h00=0x000e, h01=0x0050, text=» B DRNO00 «, t00=0x0022, t01=0x015e}
0x3680…368e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0170}
0x368e…36a4 Head {h00=0x0012, h01=0x0050, text=»ENTINS FC=12«, t00=0x0022, t01=0x017e}
0x36a4…36c0 (35, 2, 230) Head {h00=0x0018, h01=0x0014, text=» ADD PRECCUR,RECLNTH«, t00=0x0023, t01=0x0004}
0x36c0…36f6 Head {h00=0x0032, h01=0x0050, text=» XCOPY RBUF,W6,W2,PRECCUR,W0 STORE USED SPACE «, t00=0x0023, t01=0x0020}
0x36f6…3710 Head {h00=0x0016, h01=0x0050, text=» MOVE PRECCUR,W10 «, t00=0x0023, t01=0x0056}
0x3710…371e Head {h00=0x000a, h01=0x0050, text=»DROK00«, t00=0x0023, t01=0x0070}
0x371e…3730 Head {h00=0x000e, h01=0x0050, text=» CMP W1,W1«, t00=0x0023, t01=0x007e}
0x3730…373c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x0090}
0x373c…374a Head {h00=0x000a, h01=0x0050, text=»DRNO00«, t00=0x0023, t01=0x009c}
0x374a…375c Head {h00=0x000e, h01=0x0050, text=» CMP W1,W0«, t00=0x0023, t01=0x00aa}
0x375c…3768 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0023, t01=0x00bc}
0x3768…3776 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0023, t01=0x00c8}
0x3776…3782 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0023, t01=0x00d6}
0x3782…3786 Head {h00=0x4004, h01=0x0000}
0x3786…378a 00 23 00 e2 ┆ # ┆
0x378a…3792 (36, 1, 8) 20 04 00 00 00 24 00 04 ┆ $ ┆