|
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: 20706 (0x50e2)
Notes: pts_type(SC)
Names: »DERECS.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DERECS.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DERECS.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DERECS.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DERECS.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DERECS.SC«
IDENT DERECS REL 10.0 80-04-11 UPD 80-05-13/DALI 80-04-14/DALI DDUM DEDDIV PDIV ENTRY DERECS ENTRY DEREFO EXT ATTDB EXT ATTWB EXT RESTOR EXT SAVE EXT DEPOOL EXT DEDISC EXT OPCL EXT UPDBOL EXT UPDBIN EXT OFRSP EXT DEPRUT EXT DEREC2 EXT TESTB EXT MSKOUT EJECT DERECS PROC FC CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF XCOPY WORK(W10),W1,W1,RBUF,PRECCUR INITIAL STATUS CALL UPDBIN,BIN1 CLEAR BOOL9 MOVE BIN11,FC IB FC,ENTNEW,ENTOLD,ENTLST,GETNXT C GETCUR,GETPRE,GETLST B OTHERS EJECT ********************** * ENTER NEW DATARECORD ********************** ENTNEW FC= 1 XCOPY RBUF,PRECCUR,W1,BIN1,W1 REC.STATUS MOVE PRECPR,PRECCUR ADD PRECCUR,RECLNTH XCOPY RBUF,W6,W2,PRECCUR,W0 STORE USED SPACE CBE NUMBER,=D'0',DROK00 JUMP IF BATCHHEAD ENTN10 MOVE BIN14,PRECCUR ADD BIN14,RECLNTH LOOK IF SPACE FOR ONE MOORE CBG BIN14,USELEN,ENTN30 JUMP IF NOT SPACE CLEAR DOOL4 BNZ DROK00 ENTN20 CBNE FC,W7,ENTN25 JUMP IF NOT GETLST CBNE NUMBER,=D'0',ENTN25 JUMP IF NOT FIRST CLEAR BOOL9 B NEWR70 ENTN25 XCOPY RBUF,PRECCUR,RECLNTH,RBUF,PRECPR XCOPY RBUF,PRECCUR,W1,BPOOL(PINDFR),W0 B DROK00 ENTN30 PERF DEDISC,W14 ENTER NEW SECTOR BNERR ENTN40 MOVE PRECCUR,PRECPR XCOPY RBUF,W6,W2,PRECPR,W0 B DRNO00 ENTN40 XCOPY BDPOIN(W1),W0,W2,RBUF,W2 LAST ENTERED RECORD TBF DEPROMPT,ENT45 JUMP IF NOT NEW FORMAT CBE FC,W7,ENT45 JUMP IF GETLAST MOVE PRECPR,PRECCUR DELETE WHOLE SECTOR ENT45 XCOPY PRECCUR,W0,W2,RBUF,W6 USED SPACE CBE PRECPR,PRECCUR,ENTN55 ENTN50 SUB PRECPR,PRECCUR DLETE RBUF,PRECCUR,PRECPR ENTN55 XCOPY RBUF,PRECCUR,W1,BPOOL(PINDFR),W0 ENTN60 MOVE PRECPR,PRECCUR EJECT ********************** * RETURN FROM DERECS * ********************** DROK00 XCOPY BIN1,W1,W1,RBUF,PRECCUR CBNE FC,W5,DROK05 XCOPY BIN3,W0,W2,RBUF,W6 B DROK10 DROK05 CBNE FC,W7,DROK10 XCOPY BDPOIN(W1),W0,W2,RBUF,W2 LAST ENTERED RECORD DROK10 CBE PINDFR,W0,DROK20 NO CURR FORMAT CALL ATTDB,BPOOL(PINDFR),W4,W10 FORMAT DESCRIPTOR MOVE BIN14,FLIND(W1) ATTFMT BPOOL(BIN14) DROK20 CALL ATTWB,RBUF,PRECCUR,W10 FIX WORKBLOCK DROK30 IB FC C DROK40 ENTNEW C DROK45 ENTOLD C DROK70 ENTLST C DROK70 GETNXT C DROK70 GETCUR C DROK70 GETPRE C DROK65 GETLST C DROK70 DELREC C DROK65 INSREC C DROK70 NEWREC C DROK70 OPENBC C DROK40 ENTINS C DROK40 FREREC C DROK70 NEWFRM DROK40 ADD BDPOIN(W2),W1 DROK45 TBF DBOMVR,DROK56 JUMP IF NOT MUST VERIFY CALL TESTB,WORK(W10),W10 LOOK IF OLD VERIFIED BZ DROK52 NOT! TBT DBOVER,DROK56 JUMP IF NEW VERIFIED DROK50 RECORD TO VERIFY ENTERED ADD BDPOIN(W5),W1 INCREASE NUMBER TO VERIFY CLEAR BDAVER VERIFIED BATCH SET BDAMVR BATCH TO BE VERIFIED B DROK56 DROK52 TBT DBOVER,DROK54 JUMP IF RECORD VERIFIED NOW CBNE FC,W2,DROK50 JUMP IF NEW RECORD B DROK56 OLD RECORD DROK54 VERIFIED RECORD SUB BDPOIN(W5),W1 DECREASE NUMBERS TO VERIFY BNZ DROK56 ALL RECORDS NOT VERIFIED SET BDAVER VERIFIED BATCH CLEAR BDAMVR BATCH TO BE VERIFIED DROK56 LOOK IF FORCED RECORD CALL TESTB,WORK(W10),W12 OLD RECORD FORCED? BNZ DROK57 YES! TBF DBOFOR,DROK60 NEW RECORD NOT FORCED ADD BDPOIN(W4),W1 INCREASE NUMBER OF FORCED SET BDAFOR BATCH WITH FORCED RECORDS B DROK60 DROK57 TBT DBOFOR,DROK60 NEW RECORD FORCED SUB BDPOIN(W4),W1 DECREASE NUMBER OF FORCED BNZ DROK60 STILL FORCED RECORDS CLEAR BDAFOR BATCH WITHOUT FORCED RECORDS DROK60 CBE FC,W2,DROK70 JUMP IF ENTOLD DROK65 CBNL FC,W12,DROK70 JUMP IF RECORD INSERT ADD NUMBER,=D'1' ADJUST CURRENT REC.NO DROK70 CALL UPDBOL,BIN1 DROK71 MOVE BCDI21(W3),NUMBER CMP W1,W1 CONDITION = 0 RET DRNO00 CBE PINDFR,W0,DRNO10 NO CURR. FORMAT CALL ATTDB,BPOOL(PINDFR),W4,W10 FORMAT DESCRIPTOR DRNO10 CALL ATTWB,RBUF,PRECCUR,W10 FIX WORKBLOCK CBNE PINDFR,W0,DRNO20 CBE FC,W7,DRNO15 GETLST CBNE FC,W4,DRNO20 GETNXT DRNO15 ADD NUMBER,=D'1' DRNO20 CLEAR DOOL1 CMP W1,W2 CONDITION = 2 DRNO30 MOVE BCDI21(W3),NUMBER RET FREREC FC=13 CBNE PRECCUR,W10,DROK10 MOVE BDPOIN(W1),CURSEC SAVE LAST SECTOR PERF OFRSP,CURSEC,FILINDUS B DROK10 EJECT ************************************** * ENTER OLD RECORD AFTER CORRECTION. * ************************************** ENTOLD FC= 2 CALL UPDBIN,BIN1 XCOPY RBUF,PRECCUR,W1,BIN1,W1 MOVE BIN14,W23 PERF DEDISC,BIN14 WRITE CURRENT SECTOR BERR DRNO00 B DROK00 EJECT ************************* * ENTER LAST DATARECORD. ************************* ENTLST FC= 3 XCOPY BIN14,W0,W2,RBUF,W2 LINK TO PREV ENTL10 XCOPY PRECCUR,W0,W2,RBUF,W6 USED SPACE CBG PRECCUR,W10,ENTL20 CBNE BIN14,W0,ENTL15 JUMP IF NOT EMPTY BATCH MOVE BIN13,=W'27' PERF DEDISC,BIN13 DELETE BATCH BERR DRNO00 B DROK71 ENTL15 PERF DEDISC,W17 DELETE SECTOR BERR DRNO00 MOVE CURSEC,BIN14 B GETL05 ENTL20 MOVE BDPOIN(W1),CURSEC PERF DEDISC,W8 ENTER LAST BERR ENTL30 XCOPY RBUF,W2,W2,BIN14,W0 XCOPY RBUF,W6,W2,PRECCUR,W0 MOVE CURSEC,BDPOIN(W1) B GETL20 GET LAST RECORD ENTL30 MOVE BDPOIN(W1),BIN14 B DRNO00 EJECT *********************** * GET NEXT RECORD *********************** GETNXT FC= 4 XCOPY BIN14,W0,W2,RBUF,W6 MOVE PRECPR,PRECCUR MOVE BIN13,PRECCUR ADD BIN13,W7 GET RECLNTH IN DATRECORD XCOPY RECLNTH,W0,W2,RBUF,BIN13 ADD PRECCUR,RECLNTH MOVE BIN13,PRECCUR MOVE BIN12,CURSEC SAVE CURRENT SECTOR CBL PRECCUR,BIN14,GETN43 JUMP IF MOORE IN SECTOR GETN10 XCOPY BIN13,W0,W2,RBUF,W4 GET NEXT LINK CBNE BIN13,W0,GETN30 JUMP IF MOORE SECTORS GETN20 MOVE PRECCUR,PRECPR GETN25 MOVE CURSEC,BIN12 RESTORE CURRENT SECTOR MOVE BIN13,=W'33' PERF DEDISC,BIN13 CBNE DEBINW4,W0,DRNO00 GETN28 MOVE DEBINW4,W15 NO MOORE RECORDS B DRNO00 GETN30 PERF DEDISC,W15 READ NEXT SECTOR BERR DRNO00 XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE CBNE BIN13,W10,GETN40 JUMP IF NOT EMPTY PERF DEDISC,W17 DELETE SECTOR BERR GETN20 B GETN10 GETN40 MOVE BIN14,BIN13 MOVE PRECCUR,W10 MOVE PRECPR,PRECCUR * MOVE BIN13,PRECCUR GETN43 ADD BIN13,W7 GET RECLNTH IN DATRECORD XCOPY RECLNTH,W0,W2,RBUF,BIN13 GETN45 ADD NUMBER,=D'1' INCREASE CURR RECNO GETN50 CMP BCDI21(W3),NUMBER BG GETNXT READ NEXT DATARECORD BE GETN55 RECORD FOUND B GETPRE READ PREV DATASECTOR GETN55 MOVE BIN15,W0 XCOPY BIN15,W0,W1,RBUF,PRECCUR RECORDSTATUS CALL MSKOUT,BIN15,WORK(W12) MSK-WORD CBE BIN15,WORK(W11),GETN70 CBE FC,W6,GETN60 JUMP IF GETPREV CBE FC,W3,GETN60 OR ENTLST CBE FC,W8,GETN60 OR DELETE ADD BCDI21(W3),=D'1' INCREASE SEARCHNUMBER B GETNXT READ NEXT RECORD GETN60 CBE NUMBER,=D'0',GETN70 BATCHHEAD REACHED SUB BCDI21(W3),=D'1' B GETPRE GET PREVIOUS RECORD GETN70 MOVE BIN13,PRECCUR ADD BIN13,W1 B GETL90 EJECT ***************************** * GET CURRENT DATARECORD. ***************************** GETCUR FC= 5 TBT DOOL4,GETC60 JUMP IF CORRECTION CBE NUMBER,=D'0',GETC60 OR BATCHHEAD XCOPY BIN11,W0,W2,RBUF,W4 LINK TO NEXT CBNE PRECPR,PRECCUR,GETC10 JUMP IF NOT THE FIRST RECORD WITHIN SECTOR B GETP10 GET PREVIOUS RECORD GETC10 MOVE BIN13,W1 ADD BIN13,PRECPR LOOK FOR FORMATNAME GETC20 COPY STR6A,W0,W6,RBUF,BIN13 XCOPY BIN13,W0,W2,RBUF,W4 CBNE BIN13,W0,GETC40 JUMP IF NOT LAST ENTERED SECTOR CBNE STR6A,FORMAT,GETC30 CMP FC,W7 BZ ENTN10 JUMP IF GETLST B ENTN25 GETC30 SET DEPROMPT B DROK00 GETC40 XCOPY RBUF,W2,W2,CURSEC,W0 LINK PREV MOVE CURSEC,BIN13 XCOPY RBUF,W4,W2,BIN11,W0 LINK TO NEXT MOVE PRECCUR,W10 XCOPY RBUF,W6,W2,PRECCUR,W0 USED SPACE CBNE STR6A,FORMAT,GETC50 B ENTN50 GETC50 SET DEPROMPT B ENTN60 GETC60 MOVE BIN13,=W'33' PERF DEDISC,BIN13 BERR DRNO00 B DROK00 EJECT ***************************** * GET PREVIOUS DATARECORD. ***************************** GETPRE FC= 6 CBNL PRECPR,PRECCUR,GETP10 B GETL40 GETP10 CBE PRECCUR,W10,GETP20 B GETL20 GETP20 MOVE BIN12,CURSEC SAVE CURRENT SECTOR GETP30 XCOPY BIN13,W0,W2,RBUF,W2 LINK PREV CBNE BIN13,W0,GETP40 B GETN20 GETP40 XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE CBNE BIN13,W10,GETP45 CBE FC,W5,GETP45 MOVE BIN14,W17 DELETE SECTOR B GETP48 GETP45 MOVE BIN14,W16 GET PREVIOUS SECTOR GETP48 PERF DEDISC,BIN14 BERR GETN20 GETP50 XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE CBE BIN13,W10,GETP30 CBE BIN14,W17,GETL05 DELETED SECTOR B GETL15 EJECT ***************************** * GET THE LAST DATARECORD. ***************************** GETLST FC= 7 MOVE BIN12,CURSEC CBE BDPOIN(W1),W0,GETL05 LAST SECTORADRESS CBE CURSEC,BDPOIN(W1),GETL15 CURR.SEC IN RBUF MOVE CURSEC,BDPOIN(W1) GETL05 MOVE BIN14,=W'33' PERF DEDISC,BIN14 GETL10 BERR GETN25 GETL15 XCOPY PRECCUR,W0,W2,RBUF,W6 GETL20 MOVE BIN14,W17 MOVE PRECPR,W10 GETL25 XCOPY BIN13,W0,W2,RBUF,BIN14 CBE BIN13,W0,GETL27 ERROR IN SECTOR ADD PRECPR,BIN13 ADD BIN14,BIN13 CBL PRECPR,PRECCUR,GETL25 CBE PRECPR,PRECCUR,GETL30 LAST RECORD FOUND GETL27 SERIOUS ERROR XCOPY RBUF,W6,W2,PRECPR,W0 OCCUPIED SPACE MOVE PRECCUR,PRECPR B GETN28 GETL30 SUB PRECPR,BIN13 GETL40 MOVE BIN13,PRECPR ADD BIN13,W1 CBNE FC,W5,GETL50 JUMP BACK IF GET B GETC20 CURRENT RECOPRD GETL50 CBE FC,W7,GETL60 JUMP IF GETLST MOVE PRECCUR,PRECPR SUB NUMBER,=D'1' CBE FC,W3,GETL53 JUMP IF ENTLST CBNE FC,W8,GETL55 GETL53 MOVE BCDI21(W3),NUMBER ENT LAST RECORD GETL55 B GETN50 GETL60 MOVE NUMBER,BDPOIN(W2) GETL90 COPY DEINPUT,W0,W6,RBUF,BIN13 SET BOOL9 B NEWREC EJECT OTHERS SUB BIN11,W7 ADJUST FOR DEREC2 IB BIN11,DELREC,INSREC,NEWREC,OPENBC,ENTINS,FREREC C NEWFRM * DELETE CURRENT RECORD. * DELREC PERF DEREC2,BIN11 BERR GETN25 HANDLE ERROR DELR60 CBE BIN14,W17,GETP50 B GETPRE * RESERV SPACE FOR INSERTION * * OF A NEW DATARECORD. * INSREC FC= 9 PERF DEREC2,BIN11 BERR DRNO00 B DROK00 EJECT ******************** * CHANGE FORMAT PROG ******************** NEWREC FC=10 CBE FC,W4,NEWR05 JUMP IF GETNXT CBNE NUMBER,=D'0',NEWR05 JUMP IF NOT BATCHHEAD CBE FC,W7,NEWR07 JUMP IF GETLST MOVE BIN13,W20 B NEWR32 NEWR05 TBF DOOL8,NEWR10 NEWR07 MOVE BIN13,W1 B NEWR32 NEWFRM SET BOOL9 NEWR10 TBF BOOL9,NEWR15 MOVE BIN13,W1 MOVE DEBINW4,W10 B NEWR20 NEWR15 MOVE BIN13,W11 MOVE DEBINW4,W20 NEWR20 MOVE STR6A,DEINPUT NEWR25 CBE STR6A,FORTAB(BIN13),NEWR30 ADD BIN13,W1 CBNE BIN13,DEBINW4,NEWR25 TBF BOOL9,NEWR28 CBG BIN13,W10,NEWR28 MOVE BIN13,W0 B NEWR35 NEWR28 MOVE DEBINW4,W18 B DRNO00 NEWR30 TBT BOOL9,NEWR35 SUB BIN13,W10 NEWR32 MOVE STR6A,FORTAB(BIN13) NEWR35 CBNE FORMAT,STR6A,NEWR37 TBF BOOL9,NEWR34 CBE FC,W14,NEWR36 B NEWR74 NEWR34 TBF DOOL8,NEWR36 JUMP IF NOT BATCHHEAD B ENTN10 ENTRY NEW BATCHHEAD NEWR36 B DROK00 NEWR37 MOVE DEINPUT,HEX00 COPY DEINPUT,W0,W6,STR6A,W0 CBE FC,W4,NEWR40 JUMP IF GETNXT CBE FC,W7,NEWR40 JUMP IF GETLST CBNE NUMBER,=D'0',NEWR40 MOVE FRMTPNTR,SYMREC(W10) B NEWR45 NEWR40 CBNE BIN13,W0,NEWR43 MOVE FRMTPNTR,W0 B NEWR45 NEWR43 MOVE FRMTPNTR,SYMREC(BIN13) NEWR45 PERF DEDISC,W10 GET FORMAT BOK NEWR49 CBE DEBINW4,W13,NEWR46 NO BUFFERSPACE CBE PINDFR,W0,NEWR47 NO CURRENT FORMAT CBE DEBINW4,W9,NEWR28 NOT FOUND B DRNO00 NEWR46 ATTFMT FFETCH ATTACH DUMMYFORMAT DISPLAY 0,W1,W0 THOME CBNE PINDFR,W0,NEWR48 ATTACHED FORMAT NEWR47 MOVE BIN13,W7 ADD BIN13,PRECCUR CBNE FC,W7,NEWR44 NOT GETLST MOVE BIN14,W7 ADD BIN14,PRECPR XCOPY RBUF,BIN13,W2,RBUF,BIN14 NEWR44 XCOPY RECLNTH,W0,W2,RBUF,BIN13 B DRNO00 NEWR48 PERF DEPOOL,W6,PINDFR,BIN14,STRG10A MOVE FORMAT,HEX00 B NEWR35 NEWR49 MOVE FORMAT,DEINPUT CBE FC,W4,NEWR50 JUMP IF GETNXT CBE FC,W7,NEWR50 JUMP IF GETLST CBNE BIN13,W0,NEWR53 CLEAR BOOL9 B NEWR51 NEWR53 CBE NUMBER,=D'0',NEWR55 JUMP IF BATCHHEAD NEWR50 CBNE BIN13,W0,NEWR52 EXIST IN JOBDEFINITION NEWR51 MOVE SYMBOL,FORMAT NO SYMBOLIC B NEWR65 NEWR52 MOVE SYMREC(BIN13),FRMTPNTR ADD BIN13,W10 B NEWR60 NEWR55 MOVE SYMREC(W10),FRMTPNTR NEWR60 MOVE SYMBOL,FORTAB(BIN13) NEWR65 SET DEPROMPT NEWR70 MOVE BIN13,PRECCUR TBT BOOL9,NEWR77 NEWR75 XCOPY RBUF,BIN13,W1,BPOOL(PINDFR),W0 B NEWR80 NEWR77 CBE FC,W14,NEWR75 NEWR74 CBNE FC,W7,NEWR78 CBE NUMBER,=D'0',NEWR76 BATCHHEAD XCOPY RBUF,PRECCUR,W9,RBUF,PRECPR PERF DEREFO BNOK DRNO30 NEWR76 B ENTN10 NEWR78 PERF DEREFO BNOK DRNO30 B DROK00 NEWR80 ADD BIN13,W1 XCOPY RBUF,BIN13,W6,FORMAT,W0 ADD BIN13,W6 XCOPY RBUF,BIN13,W2,RECLNTH,W0 CBNE FC,W11,NEWR90 JUMP IF NOT OPEN BC B DROK00 NEWR90 SET DOOL4 B ENTN10 EJECT ************************************** * * READ IN CURRENT JOBDEFINITION AND * OPEN WANTED BATCH. * ************************************** OPENBC FC=11 PERF DEREC2,BIN11 BNOK DRNO20 CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY BZ OPBC05 JUMP IF NOT TEST DOOL1 LOOK IF THIS BATCH IS TO BE RECOVERED BZ DROK71 NOT RECOVERY B DROK00 RECOVERY OPBC05 CBE BIN11,W7,OPBC07 CBNE BIN11,W5,OPBC10 * SEARCH OR CONVERSION MODE OPBC07 IB BIN12,DROK71,DROK71,OPBC20,DROK00 OPBC10 TEST DOOL8 BZ DROK00 CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY BNZ DROK00 YES SUB BDPOIN(W2),W1 B NEWR70 OPBC20 PROGRAM 53 SEARCRECORD MOVE DEBINW3,BCDI21(W3) CMP DEBINW3,BDPOIN(W2) BNG GETN50 MOVE NUMBER,BDPOIN(W2) PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A MOVE DEBINW4,W9 B DRNO20 ENTINS FC=12 PERF DEREC2,BIN11 B ENTOLD PEND EJECT ********************************* * * THIS ROUTINE CHECKS THAT THE * OCCUPIED RECORDSIZE WITHIN THE * FORMAT NOT HAS BEEN CHANGED * SINCE THE RECORD WAS STORED ON * DISC. * BAD RESULT IS OVERFLOW. * ********************************* DEREFO PROC MOVE DEBINW4,W7 ADD DEBINW4,PRECCUR XCOPY DEBINW3,W0,W2,RBUF,DEBINW4 CBNE DEBINW3,RECLNTH,DEREF1 CMP W1,W1 CONDITION = 0 RET DEREF1 MOVE BCD13A,DEBINW3 MOVE DEBINW4,=W'38' DIV W0,W0 CONDITION =3 RET PEND FFETCH FRMT FSL FTEXT 'FETCHING FORMAT:' FCOPY DEINPUT FTEXT ' FROM DISC.' FNL FKI 1,ALPHA FCOPY HEX00 FMEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DERECS REL 10.0 80-04-11 «, t00=0x0000, t01=0x0004}
0x0028…0044 Head {h00=0x0018, h01=0x0050, text=» UPD 80-05-13/DALI«, t00=0x0000, t01=0x002c}
0x0044…005c Head {h00=0x0014, h01=0x0050, text=» 80-04-14/DALI«, t00=0x0000, t01=0x0048}
0x005c…0070 Head {h00=0x0010, h01=0x000c, text=» DDUM DEDDIV«, t00=0x0000, t01=0x0060}
0x0070…007e Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0074}
0x007e…0094 Head {h00=0x0012, h01=0x0050, text=» ENTRY DERECS «, t00=0x0000, t01=0x0082}
0x0094…00aa Head {h00=0x0012, h01=0x0050, text=» ENTRY DEREFO «, t00=0x0000, t01=0x0098}
0x00aa…00bc Head {h00=0x000e, h01=0x000a, text=» EXT ATTDB«, t00=0x0000, t01=0x00ae}
0x00bc…00ce Head {h00=0x000e, h01=0x000a, text=» EXT ATTWB«, t00=0x0000, t01=0x00c0}
0x00ce…00e2 Head {h00=0x0010, h01=0x000b, text=» EXT RESTOR «, t00=0x0000, t01=0x00d2}
0x00e2…00f4 Head {h00=0x000e, h01=0x0009, text=» EXT SAVE «, t00=0x0000, t01=0x00e6}
0x00f4…0108 Head {h00=0x0010, h01=0x000b, text=» EXT DEPOOL «, t00=0x0000, t01=0x00f8}
0x0108…011c Head {h00=0x0010, h01=0x0050, text=» EXT DEDISC «, t00=0x0000, t01=0x010c}
0x011c…012e Head {h00=0x000e, h01=0x0050, text=» EXT OPCL «, t00=0x0000, t01=0x0120}
0x012e…0142 Head {h00=0x0010, h01=0x0050, text=» EXT UPDBOL «, t00=0x0000, t01=0x0132}
0x0142…0156 Head {h00=0x0010, h01=0x0050, text=» EXT UPDBIN «, t00=0x0000, t01=0x0146}
0x0156…0168 Head {h00=0x000e, h01=0x0050, text=» EXT OFRSP«, t00=0x0000, t01=0x015a}
0x0168…017c Head {h00=0x0010, h01=0x0050, text=» EXT DEPRUT «, t00=0x0000, t01=0x016c}
0x017c…0190 Head {h00=0x0010, h01=0x0050, text=» EXT DEREC2 «, t00=0x0000, t01=0x0180}
0x0190…01a2 (1, 0, 400) Head {h00=0x000e, h01=0x0050, text=» EXT TESTB«, t00=0x0001, t01=0x0004}
0x01a2…01b6 Head {h00=0x0010, h01=0x0050, text=» EXT MSKOUT «, t00=0x0001, t01=0x0016}
0x01b6…01c4 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0001, t01=0x002a}
0x01c4…01da Head {h00=0x0012, h01=0x0050, text=»DERECS PROC FC«, t00=0x0001, t01=0x0038}
0x01da…0208 Head {h00=0x002a, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF«, t00=0x0001, t01=0x004e}
0x0208…0242 Head {h00=0x0036, h01=0x0050, text=» XCOPY WORK(W10),W1,W1,RBUF,PRECCUR INITIAL STATUS«, t00=0x0001, t01=0x007c}
0x0242…025c Head {h00=0x0016, h01=0x0050, text=» CALL UPDBIN,BIN1 «, t00=0x0001, t01=0x00b6}
0x025c…0270 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL9«, t00=0x0001, t01=0x00d0}
0x0270…0286 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN11,FC«, t00=0x0001, t01=0x00e4}
0x0286…02b4 Head {h00=0x002a, h01=0x0050, text=» IB FC,ENTNEW,ENTOLD,ENTLST,GETNXT C «, t00=0x0001, t01=0x00fa}
0x02b4…02d2 Head {h00=0x001a, h01=0x0050, text=» GETCUR,GETPRE,GETLST«, t00=0x0001, t01=0x0128}
0x02d2…02e4 Head {h00=0x000e, h01=0x0050, text=» B OTHERS «, t00=0x0001, t01=0x0146}
0x02e4…02f2 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0001, t01=0x0158}
0x02f2…0310 Head {h00=0x001a, h01=0x0016, text=»**********************«, t00=0x0001, t01=0x0166}
0x0310…032e Head {h00=0x001a, h01=0x0016, text=»* ENTER NEW DATARECORD«, t00=0x0001, t01=0x0184}
0x032e…034c Head {h00=0x001a, h01=0x0016, text=»**********************«, t00=0x0002, t01=0x0012}
0x034c…0362 Head {h00=0x0012, h01=0x0050, text=»ENTNEW FC= 1«, t00=0x0002, t01=0x0030}
0x0362…0394 Head {h00=0x002e, h01=0x0050, text=» XCOPY RBUF,PRECCUR,W1,BIN1,W1 REC.STATUS «, t00=0x0002, t01=0x0046}
0x0394…03b2 Head {h00=0x001a, h01=0x0016, text=» MOVE PRECPR,PRECCUR «, t00=0x0002, t01=0x0078}
0x03b2…03ce Head {h00=0x0018, h01=0x0014, text=» ADD PRECCUR,RECLNTH«, t00=0x0002, t01=0x0096}
0x03ce…0404 Head {h00=0x0032, h01=0x0050, text=» XCOPY RBUF,W6,W2,PRECCUR,W0 STORE USED SPACE «, t00=0x0002, t01=0x00b2}
0x0404…0436 Head {h00=0x002e, h01=0x0050, text=» CBE NUMBER,=D'0',DROK00 JUMP IF BATCHHEAD«, t00=0x0002, t01=0x00e8}
0x0436…0444 Head {h00=0x000a, h01=0x0050, text=»ENTN10«, t00=0x0002, t01=0x011a}
0x0444…0460 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN14,PRECCUR «, t00=0x0002, t01=0x0128}
0x0460…0496 Head {h00=0x0032, h01=0x002e, text=» ADD BIN14,RECLNTH LOOK IF SPACE FOR ONE MOORE«, t00=0x0002, t01=0x0144}
0x0496…04c8 Head {h00=0x002e, h01=0x0050, text=» CBG BIN14,USELEN,ENTN30 JUMP IF NOT SPACE«, t00=0x0002, t01=0x017a}
0x04c8…04dc Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL4«, t00=0x0003, t01=0x001c}
0x04dc…04f0 Head {h00=0x0010, h01=0x0050, text=» BNZ DROK00 «, t00=0x0003, t01=0x0030}
0x04f0…04fe Head {h00=0x000a, h01=0x0050, text=»ENTN20«, t00=0x0003, t01=0x0044}
0x04fe…052c Head {h00=0x002a, h01=0x0050, text=» CBNE FC,W7,ENTN25 JUMP IF NOT GETLST «, t00=0x0003, t01=0x0052}
0x052c…0560 Head {h00=0x0030, h01=0x0050, text=» CBNE NUMBER,=D'0',ENTN25 JUMP IF NOT FIRST «, t00=0x0003, t01=0x0080}
0x0560…0574 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL9«, t00=0x0003, t01=0x00b4}
0x0574…0586 Head {h00=0x000e, h01=0x0050, text=» B NEWR70 «, t00=0x0003, t01=0x00c8}
0x0586…0594 Head {h00=0x000a, h01=0x0050, text=»ENTN25«, t00=0x0003, t01=0x00da}
0x0594…05c4 Head {h00=0x002c, h01=0x0050, text=» XCOPY RBUF,PRECCUR,RECLNTH,RBUF,PRECPR «, t00=0x0003, t01=0x00e8}
0x05c4…05f4 Head {h00=0x002c, h01=0x0050, text=» XCOPY RBUF,PRECCUR,W1,BPOOL(PINDFR),W0 «, t00=0x0003, t01=0x0118}
0x05f4…0606 Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x0003, t01=0x0148}
0x0606…0636 Head {h00=0x002c, h01=0x0050, text=»ENTN30 PERF DEDISC,W14 ENTER NEW SECTOR «, t00=0x0003, t01=0x015a}
0x0636…064c Head {h00=0x0012, h01=0x0050, text=» BNERR ENTN40 «, t00=0x0003, t01=0x018a}
0x064c…0668 Head {h00=0x0018, h01=0x0050, text=» MOVE PRECCUR,PRECPR«, t00=0x0004, t01=0x0010}
0x0668…068c Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,W6,W2,PRECPR,W0 «, t00=0x0004, t01=0x002c}
0x068c…069e Head {h00=0x000e, h01=0x0050, text=» B DRNO00 «, t00=0x0004, t01=0x0050}
0x069e…06ac Head {h00=0x000a, h01=0x0050, text=»ENTN40«, t00=0x0004, t01=0x0062}
0x06ac…06e8 Head {h00=0x0038, h01=0x0050, text=» XCOPY BDPOIN(W1),W0,W2,RBUF,W2 LAST ENTERED RECORD «, t00=0x0004, t01=0x0070}
0x06e8…071a Head {h00=0x002e, h01=0x0050, text=» TBF DEPROMPT,ENT45 JUMP IF NOT NEW FORMAT«, t00=0x0004, t01=0x00ac}
0x071a…0742 Head {h00=0x0024, h01=0x0050, text=» CBE FC,W7,ENT45 JUMP IF GETLAST«, t00=0x0004, t01=0x00de}
0x0742…0772 Head {h00=0x002c, h01=0x0050, text=» MOVE PRECPR,PRECCUR DELETE WHOLE SECTOR«, t00=0x0004, t01=0x0106}
0x0772…0780 Head {h00=0x000a, h01=0x0050, text=»ENT45 «, t00=0x0004, t01=0x0136}
0x0780…07b0 Head {h00=0x002c, h01=0x0050, text=» XCOPY PRECCUR,W0,W2,RBUF,W6 USED SPACE «, t00=0x0004, t01=0x0144}
0x07b0…07d2 Head {h00=0x001e, h01=0x0050, text=» CBE PRECPR,PRECCUR,ENTN55«, t00=0x0004, t01=0x0174}
0x07d2…07f4 Head {h00=0x001e, h01=0x0050, text=»ENTN50 SUB PRECPR,PRECCUR «, t00=0x0005, t01=0x0008}
0x07f4…0816 Head {h00=0x001e, h01=0x0050, text=» DLETE RBUF,PRECCUR,PRECPR«, t00=0x0005, t01=0x002a}
0x0816…0824 Head {h00=0x000a, h01=0x0050, text=»ENTN55«, t00=0x0005, t01=0x004c}
0x0824…0854 Head {h00=0x002c, h01=0x0050, text=» XCOPY RBUF,PRECCUR,W1,BPOOL(PINDFR),W0 «, t00=0x0005, t01=0x005a}
0x0854…0862 Head {h00=0x000a, h01=0x0050, text=»ENTN60«, t00=0x0005, t01=0x008a}
0x0862…087e Head {h00=0x0018, h01=0x0050, text=» MOVE PRECPR,PRECCUR«, t00=0x0005, t01=0x0098}
0x087e…088c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00b4}
0x088c…08aa Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0005, t01=0x00c2}
0x08aa…08c8 Head {h00=0x001a, h01=0x0050, text=»* RETURN FROM DERECS *«, t00=0x0005, t01=0x00e0}
0x08c8…08e6 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0005, t01=0x00fe}
0x08e6…08f4 Head {h00=0x000a, h01=0x0050, text=»DROK00«, t00=0x0005, t01=0x011c}
0x08f4…091a Head {h00=0x0022, h01=0x0050, text=» XCOPY BIN1,W1,W1,RBUF,PRECCUR«, t00=0x0005, t01=0x012a}
0x091a…0934 Head {h00=0x0016, h01=0x0050, text=» CBNE FC,W5,DROK05«, t00=0x0005, t01=0x0150}
0x0934…0956 Head {h00=0x001e, h01=0x0050, text=» XCOPY BIN3,W0,W2,RBUF,W6 «, t00=0x0005, t01=0x016a}
0x0956…0968 Head {h00=0x000e, h01=0x0050, text=» B DROK10 «, t00=0x0005, t01=0x018c}
0x0968…0976 Head {h00=0x000a, h01=0x0050, text=»DROK05«, t00=0x0006, t01=0x000e}
0x0976…0990 Head {h00=0x0016, h01=0x0050, text=» CBNE FC,W7,DROK10«, t00=0x0006, t01=0x001c}
0x0990…09cc Head {h00=0x0038, h01=0x0050, text=» XCOPY BDPOIN(W1),W0,W2,RBUF,W2 LAST ENTERED RECORD «, t00=0x0006, t01=0x0036}
0x09cc…09da Head {h00=0x000a, h01=0x0050, text=»DROK10«, t00=0x0006, t01=0x0072}
0x09da…0a06 Head {h00=0x0028, h01=0x0050, text=» CBE PINDFR,W0,DROK20 NO CURR FORMAT«, t00=0x0006, t01=0x0080}
0x0a06…0a40 Head {h00=0x0036, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDFR),W4,W10 FORMAT DESCRIPTOR«, t00=0x0006, t01=0x00ac}
0x0a40…0a5e Head {h00=0x001a, h01=0x0050, text=» MOVE BIN14,FLIND(W1) «, t00=0x0006, t01=0x00e6}
0x0a5e…0a7a Head {h00=0x0018, h01=0x0050, text=» ATTFMT BPOOL(BIN14)«, t00=0x0006, t01=0x0104}
0x0a7a…0a88 Head {h00=0x000a, h01=0x0050, text=»DROK20«, t00=0x0006, t01=0x0120}
0x0a88…0aba Head {h00=0x002e, h01=0x0050, text=» CALL ATTWB,RBUF,PRECCUR,W10 FIX WORKBLOCK«, t00=0x0006, t01=0x012e}
0x0aba…0ac8 Head {h00=0x000a, h01=0x0050, text=»DROK30«, t00=0x0006, t01=0x0160}
0x0ac8…0ada Head {h00=0x000e, h01=0x0050, text=» IB FC C «, t00=0x0006, t01=0x016e}
0x0ada…0af4 Head {h00=0x0016, h01=0x0050, text=» DROK40 ENTNEW C «, t00=0x0006, t01=0x0180}
0x0af4…0b0e Head {h00=0x0016, h01=0x0050, text=» DROK45 ENTOLD C «, t00=0x0007, t01=0x000a}
0x0b0e…0b28 Head {h00=0x0016, h01=0x0050, text=» DROK70 ENTLST C «, t00=0x0007, t01=0x0024}
0x0b28…0b42 Head {h00=0x0016, h01=0x0050, text=» DROK70 GETNXT C «, t00=0x0007, t01=0x003e}
0x0b42…0b5c Head {h00=0x0016, h01=0x0050, text=» DROK70 GETCUR C «, t00=0x0007, t01=0x0058}
0x0b5c…0b76 Head {h00=0x0016, h01=0x0050, text=» DROK70 GETPRE C «, t00=0x0007, t01=0x0072}
0x0b76…0b90 Head {h00=0x0016, h01=0x0050, text=» DROK65 GETLST C «, t00=0x0007, t01=0x008c}
0x0b90…0baa Head {h00=0x0016, h01=0x0050, text=» DROK70 DELREC C «, t00=0x0007, t01=0x00a6}
0x0baa…0bc4 Head {h00=0x0016, h01=0x0050, text=» DROK65 INSREC C «, t00=0x0007, t01=0x00c0}
0x0bc4…0bde Head {h00=0x0016, h01=0x0050, text=» DROK70 NEWREC C «, t00=0x0007, t01=0x00da}
0x0bde…0bf8 Head {h00=0x0016, h01=0x0050, text=» DROK70 OPENBC C «, t00=0x0007, t01=0x00f4}
0x0bf8…0c12 Head {h00=0x0016, h01=0x0050, text=» DROK40 ENTINS C «, t00=0x0007, t01=0x010e}
0x0c12…0c2c Head {h00=0x0016, h01=0x0050, text=» DROK40 FREREC C «, t00=0x0007, t01=0x0128}
0x0c2c…0c44 Head {h00=0x0014, h01=0x0050, text=» DROK70 NEWFRM «, t00=0x0007, t01=0x0142}
0x0c44…0c52 Head {h00=0x000a, h01=0x0050, text=»DROK40«, t00=0x0007, t01=0x015a}
0x0c52…0c6c Head {h00=0x0016, h01=0x0050, text=» ADD BDPOIN(W2),W1«, t00=0x0007, t01=0x0168}
0x0c6c…0c7a Head {h00=0x000a, h01=0x0050, text=»DROK45«, t00=0x0007, t01=0x0182}
0x0c7a…0cac Head {h00=0x002e, h01=0x0050, text=» TBF DBOMVR,DROK56 JUMP IF NOT MUST VERIFY«, t00=0x0007, t01=0x0190}
0x0cac…0ce2 Head {h00=0x0032, h01=0x0050, text=» CALL TESTB,WORK(W10),W10 LOOK IF OLD VERIFIED«, t00=0x0008, t01=0x0032}
0x0ce2…0cfa Head {h00=0x0014, h01=0x0050, text=» BZ DROK52 NOT! «, t00=0x0008, t01=0x0068}
0x0cfa…0d2a Head {h00=0x002c, h01=0x0050, text=» TBT DBOVER,DROK56 JUMP IF NEW VERIFIED «, t00=0x0008, t01=0x0080}
0x0d2a…0d54 Head {h00=0x0026, h01=0x0050, text=»DROK50 RECORD TO VERIFY ENTERED «, t00=0x0008, t01=0x00b0}
0x0d54…0d88 Head {h00=0x0030, h01=0x0050, text=» ADD BDPOIN(W5),W1 INCREASE NUMBER TO VERIFY«, t00=0x0008, t01=0x00da}
0x0d88…0dac Head {h00=0x0020, h01=0x0050, text=» CLEAR BDAVER VERIFIED BATCH«, t00=0x0008, t01=0x010e}
0x0dac…0dd4 Head {h00=0x0024, h01=0x0050, text=» SET BDAMVR BATCH TO BE VERIFIED«, t00=0x0008, t01=0x0132}
0x0dd4…0de6 Head {h00=0x000e, h01=0x0050, text=» B DROK56 «, t00=0x0008, t01=0x015a}
0x0de6…0df4 Head {h00=0x000a, h01=0x0050, text=»DROK52«, t00=0x0008, t01=0x016c}
0x0df4…0e2a Head {h00=0x0032, h01=0x0050, text=» TBT DBOVER,DROK54 JUMP IF RECORD VERIFIED NOW«, t00=0x0008, t01=0x017a}
0x0e2a…0e58 Head {h00=0x002a, h01=0x0050, text=» CBNE FC,W2,DROK50 JUMP IF NEW RECORD «, t00=0x0009, t01=0x0020}
0x0e58…0e74 Head {h00=0x0018, h01=0x0050, text=» B DROK56 OLD RECORD«, t00=0x0009, t01=0x004e}
0x0e74…0e94 Head {h00=0x001c, h01=0x0050, text=»DROK54 VERIFIED RECORD«, t00=0x0009, t01=0x006a}
0x0e94…0eca Head {h00=0x0032, h01=0x0050, text=» SUB BDPOIN(W5),W1 DECREASE NUMBERS TO VERIFY «, t00=0x0009, t01=0x008a}
0x0eca…0ef6 Head {h00=0x0028, h01=0x0050, text=» BNZ DROK56 ALL RECORDS NOT VERIFIED«, t00=0x0009, t01=0x00c0}
0x0ef6…0f18 Head {h00=0x001e, h01=0x0050, text=» SET BDAVER VERIFIED BATCH«, t00=0x0009, t01=0x00ec}
0x0f18…0f42 Head {h00=0x0026, h01=0x0050, text=» CLEAR BDAMVR BATCH TO BE VERIFIED«, t00=0x0009, t01=0x010e}
0x0f42…0f68 Head {h00=0x0022, h01=0x0050, text=»DROK56 LOOK IF FORCED RECORD«, t00=0x0009, t01=0x0138}
0x0f68…0f9c Head {h00=0x0030, h01=0x0050, text=» CALL TESTB,WORK(W10),W12 OLD RECORD FORCED?«, t00=0x0009, t01=0x015e}
0x0f9c…0fb4 (10, 0, 398) Head {h00=0x0014, h01=0x0050, text=» BNZ DROK57 YES!«, t00=0x000a, t01=0x0004}
0x0fb4…0fe4 Head {h00=0x002c, h01=0x0050, text=» TBF DBOFOR,DROK60 NEW RECORD NOT FORCED«, t00=0x000a, t01=0x001c}
0x0fe4…1018 Head {h00=0x0030, h01=0x0050, text=» ADD BDPOIN(W4),W1 INCREASE NUMBER OF FORCED«, t00=0x000a, t01=0x004c}
0x1018…1046 Head {h00=0x002a, h01=0x0050, text=» SET BDAFOR BATCH WITH FORCED RECORDS «, t00=0x000a, t01=0x0080}
0x1046…1058 Head {h00=0x000e, h01=0x0050, text=» B DROK60 «, t00=0x000a, t01=0x00ae}
0x1058…1066 Head {h00=0x000a, h01=0x0050, text=»DROK57«, t00=0x000a, t01=0x00c0}
0x1066…1092 Head {h00=0x0028, h01=0x0050, text=» TBT DBOFOR,DROK60 NEW RECORD FORCED«, t00=0x000a, t01=0x00ce}
0x1092…10c6 Head {h00=0x0030, h01=0x0050, text=» SUB BDPOIN(W4),W1 DECREASE NUMBER OF FORCED«, t00=0x000a, t01=0x00fa}
0x10c6…10ee Head {h00=0x0024, h01=0x0050, text=» BNZ DROK60 STILL FORCED RECORDS«, t00=0x000a, t01=0x012e}
0x10ee…1120 Head {h00=0x002e, h01=0x0050, text=» CLEAR BDAFOR BATCH WITHOUT FORCED RECORDS«, t00=0x000a, t01=0x0156}
0x1120…112e Head {h00=0x000a, h01=0x0050, text=»DROK60«, t00=0x000a, t01=0x0188}
0x112e…1156 Head {h00=0x0024, h01=0x0050, text=» CBE FC,W2,DROK70 JUMP IF ENTOLD«, t00=0x000b, t01=0x0008}
0x1156…1164 Head {h00=0x000a, h01=0x0050, text=»DROK65«, t00=0x000b, t01=0x0030}
0x1164…1196 Head {h00=0x002e, h01=0x0050, text=» CBNL FC,W12,DROK70 JUMP IF RECORD INSERT «, t00=0x000b, t01=0x003e}
0x1196…11c6 Head {h00=0x002c, h01=0x0050, text=» ADD NUMBER,=D'1' ADJUST CURRENT REC.NO «, t00=0x000b, t01=0x0070}
0x11c6…11d4 Head {h00=0x000a, h01=0x0050, text=»DROK70«, t00=0x000b, t01=0x00a0}
0x11d4…11ee Head {h00=0x0016, h01=0x0050, text=» CALL UPDBOL,BIN1 «, t00=0x000b, t01=0x00ae}
0x11ee…11fc Head {h00=0x000a, h01=0x0050, text=»DROK71«, t00=0x000b, t01=0x00c8}
0x11fc…121c Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W3),NUMBER «, t00=0x000b, t01=0x00d6}
0x121c…123c Head {h00=0x001c, h01=0x0050, text=» CMP W1,W1 CONDITION = 0«, t00=0x000b, t01=0x00f6}
0x123c…1248 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x000b, t01=0x0116}
0x1248…1256 Head {h00=0x000a, h01=0x0050, text=»DRNO00«, t00=0x000b, t01=0x0122}
0x1256…1284 Head {h00=0x002a, h01=0x0050, text=» CBE PINDFR,W0,DRNO10 NO CURR. FORMAT «, t00=0x000b, t01=0x0130}
0x1284…12be Head {h00=0x0036, h01=0x0050, text=» CALL ATTDB,BPOOL(PINDFR),W4,W10 FORMAT DESCRIPTOR«, t00=0x000b, t01=0x015e}
0x12be…12cc Head {h00=0x000a, h01=0x0050, text=»DRNO10«, t00=0x000c, t01=0x0008}
0x12cc…12fe Head {h00=0x002e, h01=0x0050, text=» CALL ATTWB,RBUF,PRECCUR,W10 FIX WORKBLOCK«, t00=0x000c, t01=0x0016}
0x12fe…131c Head {h00=0x001a, h01=0x0050, text=» CBNE PINDFR,W0,DRNO20«, t00=0x000c, t01=0x0048}
0x131c…133c Head {h00=0x001c, h01=0x0050, text=» CBE FC,W7,DRNO15 GETLST«, t00=0x000c, t01=0x0066}
0x133c…135e Head {h00=0x001e, h01=0x0050, text=» CBNE FC,W4,DRNO20 GETNXT «, t00=0x000c, t01=0x0086}
0x135e…136c Head {h00=0x000a, h01=0x0050, text=»DRNO15«, t00=0x000c, t01=0x00a8}
0x136c…1386 Head {h00=0x0016, h01=0x0050, text=» ADD NUMBER,=D'1' «, t00=0x000c, t01=0x00b6}
0x1386…1394 Head {h00=0x000a, h01=0x0050, text=»DRNO20«, t00=0x000c, t01=0x00d0}
0x1394…13a8 Head {h00=0x0010, h01=0x0050, text=» CLEAR DOOL1«, t00=0x000c, t01=0x00de}
0x13a8…13c8 Head {h00=0x001c, h01=0x0050, text=» CMP W1,W2 CONDITION = 2«, t00=0x000c, t01=0x00f2}
0x13c8…13d6 Head {h00=0x000a, h01=0x0050, text=»DRNO30«, t00=0x000c, t01=0x0112}
0x13d6…13f6 Head {h00=0x001c, h01=0x0050, text=» MOVE BCDI21(W3),NUMBER «, t00=0x000c, t01=0x0120}
0x13f6…1402 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x000c, t01=0x0140}
0x1402…1418 Head {h00=0x0012, h01=0x0050, text=»FREREC FC=13«, t00=0x000c, t01=0x014c}
0x1418…1438 Head {h00=0x001c, h01=0x0050, text=» CBNE PRECCUR,W10,DROK10«, t00=0x000c, t01=0x0162}
0x1438…1468 Head {h00=0x002c, h01=0x0050, text=» MOVE BDPOIN(W1),CURSEC SAVE LAST SECTOR«, t00=0x000c, t01=0x0182}
0x1468…148c Head {h00=0x0020, h01=0x0050, text=» PERF OFRSP,CURSEC,FILINDUS «, t00=0x000d, t01=0x0022}
0x148c…149e Head {h00=0x000e, h01=0x0050, text=» B DROK10 «, t00=0x000d, t01=0x0046}
0x149e…14ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0058}
0x14ac…14da Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000d, t01=0x0066}
0x14da…1508 Head {h00=0x002a, h01=0x0050, text=»* ENTER OLD RECORD AFTER CORRECTION. *«, t00=0x000d, t01=0x0094}
0x1508…1536 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x000d, t01=0x00c2}
0x1536…154c Head {h00=0x0012, h01=0x0050, text=»ENTOLD FC= 2«, t00=0x000d, t01=0x00f0}
0x154c…1566 Head {h00=0x0016, h01=0x0050, text=» CALL UPDBIN,BIN1 «, t00=0x000d, t01=0x0106}
0x1566…158c Head {h00=0x0022, h01=0x0050, text=» XCOPY RBUF,PRECCUR,W1,BIN1,W1«, t00=0x000d, t01=0x0120}
0x158c…15a4 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN14,W23 «, t00=0x000d, t01=0x0146}
0x15a4…15d4 Head {h00=0x002c, h01=0x0050, text=» PERF DEDISC,BIN14 WRITE CURRENT SECTOR «, t00=0x000d, t01=0x015e}
0x15d4…15e8 Head {h00=0x0010, h01=0x0050, text=» BERR DRNO00«, t00=0x000d, t01=0x018e}
0x15e8…15fa Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x000e, t01=0x0012}
0x15fa…1608 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0024}
0x1608…162a Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000e, t01=0x0032}
0x162a…164a Head {h00=0x001c, h01=0x0050, text=»* ENTER LAST DATARECORD.«, t00=0x000e, t01=0x0054}
0x164a…166c Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x000e, t01=0x0074}
0x166c…1682 Head {h00=0x0012, h01=0x0050, text=»ENTLST FC= 3«, t00=0x000e, t01=0x0096}
0x1682…16b2 Head {h00=0x002c, h01=0x0050, text=» XCOPY BIN14,W0,W2,RBUF,W2 LINK TO PREV «, t00=0x000e, t01=0x00ac}
0x16b2…16c0 Head {h00=0x000a, h01=0x0050, text=»ENTL10«, t00=0x000e, t01=0x00dc}
0x16c0…16f0 Head {h00=0x002c, h01=0x0050, text=» XCOPY PRECCUR,W0,W2,RBUF,W6 USED SPACE «, t00=0x000e, t01=0x00ea}
0x16f0…1710 Head {h00=0x001c, h01=0x0050, text=» CBG PRECCUR,W10,ENTL20 «, t00=0x000e, t01=0x011a}
0x1710…1746 Head {h00=0x0032, h01=0x0050, text=» CBNE BIN14,W0,ENTL15 JUMP IF NOT EMPTY BATCH «, t00=0x000e, t01=0x013a}
0x1746…1760 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=W'27'«, t00=0x000e, t01=0x0170}
0x1760…1788 Head {h00=0x0024, h01=0x0050, text=» PERF DEDISC,BIN13 DELETE BATCH «, t00=0x000e, t01=0x018a}
0x1788…179c Head {h00=0x0010, h01=0x0050, text=» BERR DRNO00«, t00=0x000f, t01=0x0022}
0x179c…17ae Head {h00=0x000e, h01=0x0050, text=» B DROK71 «, t00=0x000f, t01=0x0036}
0x17ae…17bc Head {h00=0x000a, h01=0x0050, text=»ENTL15«, t00=0x000f, t01=0x0048}
0x17bc…17e2 Head {h00=0x0022, h01=0x0050, text=» PERF DEDISC,W17 DELETE SECTOR«, t00=0x000f, t01=0x0056}
0x17e2…17f6 Head {h00=0x0010, h01=0x0050, text=» BERR DRNO00«, t00=0x000f, t01=0x007c}
0x17f6…1810 Head {h00=0x0016, h01=0x0050, text=» MOVE CURSEC,BIN14«, t00=0x000f, t01=0x0090}
0x1810…1822 Head {h00=0x000e, h01=0x0050, text=» B GETL05 «, t00=0x000f, t01=0x00aa}
0x1822…1830 Head {h00=0x000a, h01=0x0050, text=»ENTL20«, t00=0x000f, t01=0x00bc}
0x1830…1850 Head {h00=0x001c, h01=0x0050, text=» MOVE BDPOIN(W1),CURSEC «, t00=0x000f, t01=0x00ca}
0x1850…1872 Head {h00=0x001e, h01=0x0050, text=» PERF DEDISC,W8 ENTER LAST«, t00=0x000f, t01=0x00ea}
0x1872…1886 Head {h00=0x0010, h01=0x0050, text=» BERR ENTL30«, t00=0x000f, t01=0x010c}
0x1886…18a8 Head {h00=0x001e, h01=0x0050, text=» XCOPY RBUF,W2,W2,BIN14,W0«, t00=0x000f, t01=0x0120}
0x18a8…18cc Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,W6,W2,PRECCUR,W0«, t00=0x000f, t01=0x0142}
0x18cc…18ec Head {h00=0x001c, h01=0x0050, text=» MOVE CURSEC,BDPOIN(W1) «, t00=0x000f, t01=0x0166}
0x18ec…190e Head {h00=0x001e, h01=0x0050, text=» B GETL20 GET LAST RECORD «, t00=0x000f, t01=0x0186}
0x190e…191c Head {h00=0x000a, h01=0x0050, text=»ENTL30«, t00=0x0010, t01=0x0018}
0x191c…193a Head {h00=0x001a, h01=0x0050, text=» MOVE BDPOIN(W1),BIN14«, t00=0x0010, t01=0x0026}
0x193a…194c Head {h00=0x000e, h01=0x0050, text=» B DRNO00 «, t00=0x0010, t01=0x0044}
0x194c…195a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0010, t01=0x0056}
0x195a…197a Head {h00=0x001c, h01=0x0017, text=»*********************** «, t00=0x0010, t01=0x0064}
0x197a…1994 Head {h00=0x0016, h01=0x0011, text=»* GET NEXT RECORD «, t00=0x0010, t01=0x0084}
0x1994…19b4 Head {h00=0x001c, h01=0x0017, text=»*********************** «, t00=0x0010, t01=0x009e}
0x19b4…19ca Head {h00=0x0012, h01=0x0050, text=»GETNXT FC= 4«, t00=0x0010, t01=0x00be}
0x19ca…19ec Head {h00=0x001e, h01=0x0050, text=» XCOPY BIN14,W0,W2,RBUF,W6«, t00=0x0010, t01=0x00d4}
0x19ec…1a08 Head {h00=0x0018, h01=0x0050, text=» MOVE PRECPR,PRECCUR«, t00=0x0010, t01=0x00f6}
0x1a08…1a24 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN13,PRECCUR «, t00=0x0010, t01=0x0112}
0x1a24…1a52 Head {h00=0x002a, h01=0x0050, text=» ADD BIN13,W7 GET RECLNTH IN DATRECORD«, t00=0x0010, t01=0x012e}
0x1a52…1a7a Head {h00=0x0024, h01=0x0050, text=» XCOPY RECLNTH,W0,W2,RBUF,BIN13 «, t00=0x0010, t01=0x015c}
0x1a7a…1a96 Head {h00=0x0018, h01=0x0050, text=» ADD PRECCUR,RECLNTH«, t00=0x0010, t01=0x0184}
0x1a96…1ab2 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN13,PRECCUR «, t00=0x0011, t01=0x0010}
0x1ab2…1ae0 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN12,CURSEC SAVE CURRENT SECTOR«, t00=0x0011, t01=0x002c}
0x1ae0…1b1a Head {h00=0x0036, h01=0x0050, text=» CBL PRECCUR,BIN14,GETN43 JUMP IF MOORE IN SECTOR «, t00=0x0011, t01=0x005a}
0x1b1a…1b28 Head {h00=0x000a, h01=0x0050, text=»GETN10«, t00=0x0011, t01=0x0094}
0x1b28…1b58 Head {h00=0x002c, h01=0x0028, text=» XCOPY BIN13,W0,W2,RBUF,W4 GET NEXT LINK«, t00=0x0011, t01=0x00a2}
0x1b58…1b8c Head {h00=0x0030, h01=0x0050, text=» CBNE BIN13,W0,GETN30 JUMP IF MOORE SECTORS «, t00=0x0011, t01=0x00d2}
0x1b8c…1b9a Head {h00=0x000a, h01=0x0050, text=»GETN20«, t00=0x0011, t01=0x0106}
0x1b9a…1bb6 Head {h00=0x0018, h01=0x0050, text=» MOVE PRECCUR,PRECPR«, t00=0x0011, t01=0x0114}
0x1bb6…1bc4 Head {h00=0x000a, h01=0x0050, text=»GETN25«, t00=0x0011, t01=0x0130}
0x1bc4…1bf6 Head {h00=0x002e, h01=0x0050, text=» MOVE CURSEC,BIN12 RESTORE CURRENT SECTOR «, t00=0x0011, t01=0x013e}
0x1bf6…1c10 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=W'33'«, t00=0x0011, t01=0x0170}
0x1c10…1c2a Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN13«, t00=0x0011, t01=0x018a}
0x1c2a…1c4a Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W0,DRNO00 «, t00=0x0012, t01=0x0014}
0x1c4a…1c58 Head {h00=0x000a, h01=0x0050, text=»GETN28«, t00=0x0012, t01=0x0034}
0x1c58…1c82 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,W15 NO MOORE RECORDS«, t00=0x0012, t01=0x0042}
0x1c82…1c94 Head {h00=0x000e, h01=0x0050, text=» B DRNO00 «, t00=0x0012, t01=0x006c}
0x1c94…1ca2 Head {h00=0x000a, h01=0x0050, text=»GETN30«, t00=0x0012, t01=0x007e}
0x1ca2…1ccc Head {h00=0x0026, h01=0x0021, text=» PERF DEDISC,W15 READ NEXT SECTOR «, t00=0x0012, t01=0x008c}
0x1ccc…1ce0 Head {h00=0x0010, h01=0x0050, text=» BERR DRNO00«, t00=0x0012, t01=0x00b6}
0x1ce0…1d12 Head {h00=0x002e, h01=0x0029, text=» XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE «, t00=0x0012, t01=0x00ca}
0x1d12…1d42 Head {h00=0x002c, h01=0x0050, text=» CBNE BIN13,W10,GETN40 JUMP IF NOT EMPTY«, t00=0x0012, t01=0x00fc}
0x1d42…1d68 Head {h00=0x0022, h01=0x0050, text=» PERF DEDISC,W17 DELETE SECTOR«, t00=0x0012, t01=0x012c}
0x1d68…1d7c Head {h00=0x0010, h01=0x0050, text=» BERR GETN20«, t00=0x0012, t01=0x0152}
0x1d7c…1d8e Head {h00=0x000e, h01=0x0050, text=» B GETN10 «, t00=0x0012, t01=0x0166}
0x1d8e…1dae Head {h00=0x001c, h01=0x0050, text=»GETN40 MOVE BIN14,BIN13 «, t00=0x0012, t01=0x0178}
0x1dae…1dc8 Head {h00=0x0016, h01=0x0050, text=» MOVE PRECCUR,W10 «, t00=0x0013, t01=0x0008}
0x1dc8…1de4 Head {h00=0x0018, h01=0x0050, text=» MOVE PRECPR,PRECCUR«, t00=0x0013, t01=0x0022}
0x1de4…1dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003e}
0x1dee…1e0a Head {h00=0x0018, h01=0x0050, text=» MOVE BIN13,PRECCUR «, t00=0x0013, t01=0x0048}
0x1e0a…1e18 Head {h00=0x000a, h01=0x0050, text=»GETN43«, t00=0x0013, t01=0x0064}
0x1e18…1e46 Head {h00=0x002a, h01=0x0050, text=» ADD BIN13,W7 GET RECLNTH IN DATRECORD«, t00=0x0013, t01=0x0072}
0x1e46…1e6e Head {h00=0x0024, h01=0x0050, text=» XCOPY RECLNTH,W0,W2,RBUF,BIN13 «, t00=0x0013, t01=0x00a0}
0x1e6e…1e7c Head {h00=0x000a, h01=0x0050, text=»GETN45«, t00=0x0013, t01=0x00c8}
0x1e7c…1eaa Head {h00=0x002a, h01=0x0050, text=» ADD NUMBER,=D'1' INCREASE CURR RECNO «, t00=0x0013, t01=0x00d6}
0x1eaa…1eb8 Head {h00=0x000a, h01=0x0050, text=»GETN50«, t00=0x0013, t01=0x0104}
0x1eb8…1ed6 Head {h00=0x001a, h01=0x0050, text=» CMP BCDI21(W3),NUMBER«, t00=0x0013, t01=0x0112}
0x1ed6…1efe Head {h00=0x0024, h01=0x0050, text=» BG GETNXT READ NEXT DATARECORD «, t00=0x0013, t01=0x0130}
0x1efe…1f1e Head {h00=0x001c, h01=0x0050, text=» BE GETN55 RECORD FOUND «, t00=0x0013, t01=0x0158}
0x1f1e…1f44 Head {h00=0x0022, h01=0x0050, text=» B GETPRE READ PREV DATASECTOR«, t00=0x0013, t01=0x0178}
0x1f44…1f52 Head {h00=0x000a, h01=0x0050, text=»GETN55«, t00=0x0014, t01=0x000e}
0x1f52…1f68 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN15,W0«, t00=0x0014, t01=0x001c}
0x1f68…1f9c Head {h00=0x0030, h01=0x0050, text=» XCOPY BIN15,W0,W1,RBUF,PRECCUR RECORDSTATUS«, t00=0x0014, t01=0x0032}
0x1f9c…1fca Head {h00=0x002a, h01=0x0050, text=» CALL MSKOUT,BIN15,WORK(W12) MSK-WORD «, t00=0x0014, t01=0x0066}
0x1fca…1fee Head {h00=0x0020, h01=0x0050, text=» CBE BIN15,WORK(W11),GETN70 «, t00=0x0014, t01=0x0094}
0x1fee…2018 Head {h00=0x0026, h01=0x0050, text=» CBE FC,W6,GETN60 JUMP IF GETPREV «, t00=0x0014, t01=0x00b8}
0x2018…203c Head {h00=0x0020, h01=0x0050, text=» CBE FC,W3,GETN60 OR ENTLST «, t00=0x0014, t01=0x00e2}
0x203c…2060 Head {h00=0x0020, h01=0x0050, text=» CBE FC,W8,GETN60 OR DELETE «, t00=0x0014, t01=0x0106}
0x2060…2094 Head {h00=0x0030, h01=0x0050, text=» ADD BCDI21(W3),=D'1' INCREASE SEARCHNUMBER «, t00=0x0014, t01=0x012a}
0x2094…20b6 Head {h00=0x001e, h01=0x0050, text=» B GETNXT READ NEXT RECORD«, t00=0x0014, t01=0x015e}
0x20b6…20c4 Head {h00=0x000a, h01=0x0050, text=»GETN60«, t00=0x0014, t01=0x0180}
0x20c4…20f6 Head {h00=0x002e, h01=0x0050, text=» CBE NUMBER,=D'0',GETN70 BATCHHEAD REACHED«, t00=0x0014, t01=0x018e}
0x20f6…2114 Head {h00=0x001a, h01=0x0050, text=» SUB BCDI21(W3),=D'1' «, t00=0x0015, t01=0x0030}
0x2114…213a Head {h00=0x0022, h01=0x0050, text=» B GETPRE GET PREVIOUS RECORD «, t00=0x0015, t01=0x004e}
0x213a…2148 Head {h00=0x000a, h01=0x0050, text=»GETN70«, t00=0x0015, t01=0x0074}
0x2148…2164 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN13,PRECCUR «, t00=0x0015, t01=0x0082}
0x2164…217a Head {h00=0x0012, h01=0x0050, text=» ADD BIN13,W1 «, t00=0x0015, t01=0x009e}
0x217a…218c Head {h00=0x000e, h01=0x0050, text=» B GETL90 «, t00=0x0015, t01=0x00b4}
0x218c…219a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00c6}
0x219a…21c0 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0015, t01=0x00d4}
0x21c0…21e2 Head {h00=0x001e, h01=0x0050, text=»* GET CURRENT DATARECORD. «, t00=0x0015, t01=0x00fa}
0x21e2…2208 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0015, t01=0x011c}
0x2208…221e Head {h00=0x0012, h01=0x0050, text=»GETCUR FC= 5«, t00=0x0015, t01=0x0142}
0x221e…224a Head {h00=0x0028, h01=0x0050, text=» TBT DOOL4,GETC60 JUMP IF CORRECTION«, t00=0x0015, t01=0x0158}
0x224a…2278 Head {h00=0x002a, h01=0x0050, text=» CBE NUMBER,=D'0',GETC60 OR BATCHHEAD «, t00=0x0015, t01=0x0184}
0x2278…22a8 Head {h00=0x002c, h01=0x0050, text=» XCOPY BIN11,W0,W2,RBUF,W4 LINK TO NEXT «, t00=0x0016, t01=0x0022}
0x22a8…22dc Head {h00=0x0030, h01=0x0050, text=» CBNE PRECPR,PRECCUR,GETC10 JUMP IF NOT THE «, t00=0x0016, t01=0x0052}
0x22dc…2302 Head {h00=0x0022, h01=0x0050, text=» FIRST RECORD WITHIN SECTOR «, t00=0x0016, t01=0x0086}
0x2302…2328 Head {h00=0x0022, h01=0x0050, text=» B GETP10 GET PREVIOUS RECORD «, t00=0x0016, t01=0x00ac}
0x2328…2336 Head {h00=0x000a, h01=0x0050, text=»GETC10«, t00=0x0016, t01=0x00d2}
0x2336…234c Head {h00=0x0012, h01=0x0050, text=» MOVE BIN13,W1«, t00=0x0016, t01=0x00e0}
0x234c…237a Head {h00=0x002a, h01=0x0050, text=» ADD BIN13,PRECPR LOOK FOR FORMATNAME «, t00=0x0016, t01=0x00f6}
0x237a…2388 Head {h00=0x000a, h01=0x0050, text=»GETC20«, t00=0x0016, t01=0x0124}
0x2388…23ac Head {h00=0x0020, h01=0x0050, text=» COPY STR6A,W0,W6,RBUF,BIN13«, t00=0x0016, t01=0x0132}
0x23ac…23ce Head {h00=0x001e, h01=0x0050, text=» XCOPY BIN13,W0,W2,RBUF,W4«, t00=0x0016, t01=0x0156}
0x23ce…23fc Head {h00=0x002a, h01=0x0050, text=» CBNE BIN13,W0,GETC40 JUMP IF NOT LAST«, t00=0x0016, t01=0x0178}
0x23fc…2416 Head {h00=0x0016, h01=0x0050, text=» ENTERED SECTOR «, t00=0x0017, t01=0x0016}
0x2416…2438 Head {h00=0x001e, h01=0x0050, text=» CBNE STR6A,FORMAT,GETC30 «, t00=0x0017, t01=0x0030}
0x2438…244a Head {h00=0x000e, h01=0x0050, text=» CMP FC,W7«, t00=0x0017, t01=0x0052}
0x244a…246c Head {h00=0x001e, h01=0x0050, text=» BZ ENTN10 JUMP IF GETLST «, t00=0x0017, t01=0x0064}
0x246c…247e Head {h00=0x000e, h01=0x0050, text=» B ENTN25 «, t00=0x0017, t01=0x0086}
0x247e…249a Head {h00=0x0018, h01=0x0050, text=»GETC30 SET DEPROMPT «, t00=0x0017, t01=0x0098}
0x249a…24ac Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x0017, t01=0x00b4}
0x24ac…24ba Head {h00=0x000a, h01=0x0050, text=»GETC40«, t00=0x0017, t01=0x00c6}
0x24ba…24e8 Head {h00=0x002a, h01=0x0050, text=» XCOPY RBUF,W2,W2,CURSEC,W0 LINK PREV «, t00=0x0017, t01=0x00d4}
0x24e8…2502 Head {h00=0x0016, h01=0x0050, text=» MOVE CURSEC,BIN13«, t00=0x0017, t01=0x0102}
0x2502…2532 Head {h00=0x002c, h01=0x0050, text=» XCOPY RBUF,W4,W2,BIN11,W0 LINK TO NEXT «, t00=0x0017, t01=0x011c}
0x2532…254c Head {h00=0x0016, h01=0x0050, text=» MOVE PRECCUR,W10 «, t00=0x0017, t01=0x014c}
0x254c…257c Head {h00=0x002c, h01=0x0050, text=» XCOPY RBUF,W6,W2,PRECCUR,W0 USED SPACE «, t00=0x0017, t01=0x0166}
0x257c…259e Head {h00=0x001e, h01=0x0050, text=» CBNE STR6A,FORMAT,GETC50 «, t00=0x0018, t01=0x0008}
0x259e…25b0 Head {h00=0x000e, h01=0x0050, text=» B ENTN50 «, t00=0x0018, t01=0x002a}
0x25b0…25be Head {h00=0x000a, h01=0x0050, text=»GETC50«, t00=0x0018, t01=0x003c}
0x25be…25d4 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0018, t01=0x004a}
0x25d4…25e6 Head {h00=0x000e, h01=0x0050, text=» B ENTN60 «, t00=0x0018, t01=0x0060}
0x25e6…25f4 Head {h00=0x000a, h01=0x0050, text=»GETC60«, t00=0x0018, t01=0x0072}
0x25f4…260e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN13,=W'33'«, t00=0x0018, t01=0x0080}
0x260e…2628 Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN13«, t00=0x0018, t01=0x009a}
0x2628…263c Head {h00=0x0010, h01=0x0050, text=» BERR DRNO00«, t00=0x0018, t01=0x00b4}
0x263c…264e Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x0018, t01=0x00c8}
0x264e…265c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00da}
0x265c…2682 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0018, t01=0x00e8}
0x2682…26a4 Head {h00=0x001e, h01=0x0050, text=»* GET PREVIOUS DATARECORD.«, t00=0x0018, t01=0x010e}
0x26a4…26ca Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0018, t01=0x0130}
0x26ca…26e0 Head {h00=0x0012, h01=0x0050, text=»GETPRE FC= 6«, t00=0x0018, t01=0x0156}
0x26e0…2704 Head {h00=0x0020, h01=0x0050, text=» CBNL PRECPR,PRECCUR,GETP10 «, t00=0x0018, t01=0x016c}
0x2704…2716 Head {h00=0x000e, h01=0x0050, text=» B GETL40 «, t00=0x0018, t01=0x0190}
0x2716…2724 Head {h00=0x000a, h01=0x0050, text=»GETP10«, t00=0x0019, t01=0x0012}
0x2724…2744 Head {h00=0x001c, h01=0x0050, text=» CBE PRECCUR,W10,GETP20 «, t00=0x0019, t01=0x0020}
0x2744…2756 Head {h00=0x000e, h01=0x0050, text=» B GETL20 «, t00=0x0019, t01=0x0040}
0x2756…2764 Head {h00=0x000a, h01=0x0050, text=»GETP20«, t00=0x0019, t01=0x0052}
0x2764…2792 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN12,CURSEC SAVE CURRENT SECTOR«, t00=0x0019, t01=0x0060}
0x2792…27a0 Head {h00=0x000a, h01=0x0050, text=»GETP30«, t00=0x0019, t01=0x008e}
0x27a0…27cc Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN13,W0,W2,RBUF,W2 LINK PREV«, t00=0x0019, t01=0x009c}
0x27cc…27ea Head {h00=0x001a, h01=0x0050, text=» CBNE BIN13,W0,GETP40 «, t00=0x0019, t01=0x00c8}
0x27ea…27fc Head {h00=0x000e, h01=0x0050, text=» B GETN20 «, t00=0x0019, t01=0x00e6}
0x27fc…280a Head {h00=0x000a, h01=0x0050, text=»GETP40«, t00=0x0019, t01=0x00f8}
0x280a…283c Head {h00=0x002e, h01=0x0029, text=» XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE «, t00=0x0019, t01=0x0106}
0x283c…285a Head {h00=0x001a, h01=0x0050, text=» CBNE BIN13,W10,GETP45«, t00=0x0019, t01=0x0138}
0x285a…2874 Head {h00=0x0016, h01=0x0050, text=» CBE FC,W5,GETP45 «, t00=0x0019, t01=0x0156}
0x2874…289a Head {h00=0x0022, h01=0x0050, text=» MOVE BIN14,W17 DELETE SECTOR «, t00=0x0019, t01=0x0170}
0x289a…28ac Head {h00=0x000e, h01=0x0050, text=» B GETP48 «, t00=0x001a, t01=0x0008}
0x28ac…28ba Head {h00=0x000a, h01=0x0050, text=»GETP45«, t00=0x001a, t01=0x001a}
0x28ba…28e6 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN14,W16 GET PREVIOUS SECTOR «, t00=0x001a, t01=0x0028}
0x28e6…28f4 Head {h00=0x000a, h01=0x0050, text=»GETP48«, t00=0x001a, t01=0x0054}
0x28f4…290e Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN14«, t00=0x001a, t01=0x0062}
0x290e…2922 Head {h00=0x0010, h01=0x0050, text=» BERR GETN20«, t00=0x001a, t01=0x007c}
0x2922…2930 Head {h00=0x000a, h01=0x0050, text=»GETP50«, t00=0x001a, t01=0x0090}
0x2930…2962 Head {h00=0x002e, h01=0x0029, text=» XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE «, t00=0x001a, t01=0x009e}
0x2962…2980 Head {h00=0x001a, h01=0x0050, text=» CBE BIN13,W10,GETP30 «, t00=0x001a, t01=0x00d0}
0x2980…29ac Head {h00=0x0028, h01=0x0050, text=» CBE BIN14,W17,GETL05 DELETED SECTOR«, t00=0x001a, t01=0x00ee}
0x29ac…29be Head {h00=0x000e, h01=0x0050, text=» B GETL15 «, t00=0x001a, t01=0x011a}
0x29be…29cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x012c}
0x29cc…29f2 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x001a, t01=0x013a}
0x29f2…2a14 Head {h00=0x001e, h01=0x0050, text=»* GET THE LAST DATARECORD.«, t00=0x001a, t01=0x0160}
0x2a14…2a3a Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x001a, t01=0x0182}
0x2a3a…2a50 Head {h00=0x0012, h01=0x0050, text=»GETLST FC= 7«, t00=0x001b, t01=0x0018}
0x2a50…2a6a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN12,CURSEC«, t00=0x001b, t01=0x002e}
0x2a6a…2a9e Head {h00=0x0030, h01=0x0050, text=» CBE BDPOIN(W1),W0,GETL05 LAST SECTORADRESS «, t00=0x001b, t01=0x0048}
0x2a9e…2ad4 Head {h00=0x0032, h01=0x0050, text=» CBE CURSEC,BDPOIN(W1),GETL15 CURR.SEC IN RBUF«, t00=0x001b, t01=0x007c}
0x2ad4…2af4 Head {h00=0x001c, h01=0x0050, text=» MOVE CURSEC,BDPOIN(W1) «, t00=0x001b, t01=0x00b2}
0x2af4…2b02 Head {h00=0x000a, h01=0x0050, text=»GETL05«, t00=0x001b, t01=0x00d2}
0x2b02…2b1c Head {h00=0x0016, h01=0x0050, text=» MOVE BIN14,=W'33'«, t00=0x001b, t01=0x00e0}
0x2b1c…2b36 Head {h00=0x0016, h01=0x0050, text=» PERF DEDISC,BIN14«, t00=0x001b, t01=0x00fa}
0x2b36…2b44 Head {h00=0x000a, h01=0x0050, text=»GETL10«, t00=0x001b, t01=0x0114}
0x2b44…2b58 Head {h00=0x0010, h01=0x0050, text=» BERR GETN25«, t00=0x001b, t01=0x0122}
0x2b58…2b82 Head {h00=0x0026, h01=0x0050, text=»GETL15 XCOPY PRECCUR,W0,W2,RBUF,W6«, t00=0x001b, t01=0x0136}
0x2b82…2b90 Head {h00=0x000a, h01=0x0050, text=»GETL20«, t00=0x001b, t01=0x0160}
0x2b90…2ba8 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN14,W17 «, t00=0x001b, t01=0x016e}
0x2ba8…2bc0 Head {h00=0x0014, h01=0x0050, text=» MOVE PRECPR,W10«, t00=0x001b, t01=0x0186}
0x2bc0…2bce Head {h00=0x000a, h01=0x0050, text=»GETL25«, t00=0x001c, t01=0x000e}
0x2bce…2bf4 Head {h00=0x0022, h01=0x0050, text=» XCOPY BIN13,W0,W2,RBUF,BIN14 «, t00=0x001c, t01=0x001c}
0x2bf4…2c20 Head {h00=0x0028, h01=0x0050, text=» CBE BIN13,W0,GETL27 ERROR IN SECTOR«, t00=0x001c, t01=0x0042}
0x2c20…2c3a Head {h00=0x0016, h01=0x0050, text=» ADD PRECPR,BIN13 «, t00=0x001c, t01=0x006e}
0x2c3a…2c52 Head {h00=0x0014, h01=0x0050, text=» ADD BIN14,BIN13«, t00=0x001c, t01=0x0088}
0x2c52…2c74 Head {h00=0x001e, h01=0x0050, text=» CBL PRECPR,PRECCUR,GETL25«, t00=0x001c, t01=0x00a0}
0x2c74…2ca8 Head {h00=0x0030, h01=0x0050, text=» CBE PRECPR,PRECCUR,GETL30 LAST RECORD FOUND«, t00=0x001c, t01=0x00c2}
0x2ca8…2cc6 Head {h00=0x001a, h01=0x0050, text=»GETL27 SERIOUS ERROR«, t00=0x001c, t01=0x00f6}
0x2cc6…2cf8 Head {h00=0x002e, h01=0x0050, text=» XCOPY RBUF,W6,W2,PRECPR,W0 OCCUPIED SPACE«, t00=0x001c, t01=0x0114}
0x2cf8…2d14 Head {h00=0x0018, h01=0x0050, text=» MOVE PRECCUR,PRECPR«, t00=0x001c, t01=0x0146}
0x2d14…2d26 Head {h00=0x000e, h01=0x0050, text=» B GETN28 «, t00=0x001c, t01=0x0162}
0x2d26…2d46 Head {h00=0x001c, h01=0x0050, text=»GETL30 SUB PRECPR,BIN13 «, t00=0x001c, t01=0x0174}
0x2d46…2d66 (29, 0, 400) Head {h00=0x001c, h01=0x0050, text=»GETL40 MOVE BIN13,PRECPR«, t00=0x001d, t01=0x0004}
0x2d66…2d7c Head {h00=0x0012, h01=0x0050, text=» ADD BIN13,W1 «, t00=0x001d, t01=0x0024}
0x2d7c…2da8 Head {h00=0x0028, h01=0x0050, text=» CBNE FC,W5,GETL50 JUMP BACK IF GET «, t00=0x001d, t01=0x003a}
0x2da8…2dca Head {h00=0x001e, h01=0x0050, text=» B GETC20 CURRENT RECOPRD «, t00=0x001d, t01=0x0066}
0x2dca…2dd8 Head {h00=0x000a, h01=0x0050, text=»GETL50«, t00=0x001d, t01=0x0088}
0x2dd8…2e00 Head {h00=0x0024, h01=0x0050, text=» CBE FC,W7,GETL60 JUMP IF GETLST«, t00=0x001d, t01=0x0096}
0x2e00…2e1c Head {h00=0x0018, h01=0x0050, text=» MOVE PRECCUR,PRECPR«, t00=0x001d, t01=0x00be}
0x2e1c…2e36 Head {h00=0x0016, h01=0x0050, text=» SUB NUMBER,=D'1' «, t00=0x001d, t01=0x00da}
0x2e36…2e5e Head {h00=0x0024, h01=0x0050, text=» CBE FC,W3,GETL53 JUMP IF ENTLST«, t00=0x001d, t01=0x00f4}
0x2e5e…2e78 Head {h00=0x0016, h01=0x0050, text=» CBNE FC,W8,GETL55«, t00=0x001d, t01=0x011c}
0x2e78…2e86 Head {h00=0x000a, h01=0x0050, text=»GETL53«, t00=0x001d, t01=0x0136}
0x2e86…2eb6 Head {h00=0x002c, h01=0x0050, text=» MOVE BCDI21(W3),NUMBER ENT LAST RECORD «, t00=0x001d, t01=0x0144}
0x2eb6…2ec4 Head {h00=0x000a, h01=0x0050, text=»GETL55«, t00=0x001d, t01=0x0174}
0x2ec4…2ed6 Head {h00=0x000e, h01=0x0050, text=» B GETN50 «, t00=0x001d, t01=0x0182}
0x2ed6…2ee4 (30, 0, 400) Head {h00=0x000a, h01=0x0050, text=»GETL60«, t00=0x001e, t01=0x0004}
0x2ee4…2f04 Head {h00=0x001c, h01=0x0050, text=» MOVE NUMBER,BDPOIN(W2) «, t00=0x001e, t01=0x0012}
0x2f04…2f12 Head {h00=0x000a, h01=0x0050, text=»GETL90«, t00=0x001e, t01=0x0032}
0x2f12…2f38 Head {h00=0x0022, h01=0x0050, text=» COPY DEINPUT,W0,W6,RBUF,BIN13«, t00=0x001e, t01=0x0040}
0x2f38…2f4a Head {h00=0x000e, h01=0x0050, text=» SET BOOL9«, t00=0x001e, t01=0x0066}
0x2f4a…2f5c Head {h00=0x000e, h01=0x0050, text=» B NEWREC «, t00=0x001e, t01=0x0078}
0x2f5c…2f6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x008a}
0x2f6a…2f78 Head {h00=0x000a, h01=0x0050, text=»OTHERS«, t00=0x001e, t01=0x0098}
0x2f78…2fa0 Head {h00=0x0024, h01=0x0050, text=» SUB BIN11,W7 ADJUST FOR DEREC2 «, t00=0x001e, t01=0x00a6}
0x2fa0…2fde Head {h00=0x003a, h01=0x0050, text=» IB BIN11,DELREC,INSREC,NEWREC,OPENBC,ENTINS,FREREC C«, t00=0x001e, t01=0x00ce}
0x2fde…2fee Head {h00=0x000c, h01=0x0050, text=» NEWFRM«, t00=0x001e, t01=0x010c}
0x2fee…3010 Head {h00=0x001e, h01=0x0050, text=»* DELETE CURRENT RECORD. *«, t00=0x001e, t01=0x011c}
0x3010…301e Head {h00=0x000a, h01=0x0050, text=»DELREC«, t00=0x001e, t01=0x013e}
0x301e…3038 Head {h00=0x0016, h01=0x0050, text=» PERF DEREC2,BIN11«, t00=0x001e, t01=0x014c}
0x3038…305a Head {h00=0x001e, h01=0x0050, text=» BERR GETN25 HANDLE ERROR «, t00=0x001e, t01=0x0166}
0x305a…307e Head {h00=0x0020, h01=0x0050, text=»DELR60 CBE BIN14,W17,GETP50 «, t00=0x001e, t01=0x0188}
0x307e…3090 Head {h00=0x000e, h01=0x0050, text=» B GETPRE «, t00=0x001f, t01=0x001c}
0x3090…30b6 Head {h00=0x0022, h01=0x0050, text=»* RESERV SPACE FOR INSERTION *«, t00=0x001f, t01=0x002e}
0x30b6…30dc Head {h00=0x0022, h01=0x0050, text=»* OF A NEW DATARECORD. *«, t00=0x001f, t01=0x0054}
0x30dc…30f2 Head {h00=0x0012, h01=0x0050, text=»INSREC FC= 9«, t00=0x001f, t01=0x007a}
0x30f2…310c Head {h00=0x0016, h01=0x0050, text=» PERF DEREC2,BIN11«, t00=0x001f, t01=0x0090}
0x310c…3120 Head {h00=0x0010, h01=0x0050, text=» BERR DRNO00«, t00=0x001f, t01=0x00aa}
0x3120…3132 Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x001f, t01=0x00be}
0x3132…3140 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00d0}
0x3140…315c Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x00de}
0x315c…3178 Head {h00=0x0018, h01=0x0050, text=»* CHANGE FORMAT PROG«, t00=0x001f, t01=0x00fa}
0x3178…3194 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x001f, t01=0x0116}
0x3194…31aa Head {h00=0x0012, h01=0x0050, text=»NEWREC FC=10«, t00=0x001f, t01=0x0132}
0x31aa…31d2 Head {h00=0x0024, h01=0x0050, text=» CBE FC,W4,NEWR05 JUMP IF GETNXT«, t00=0x001f, t01=0x0148}
0x31d2…320a Head {h00=0x0034, h01=0x0050, text=» CBNE NUMBER,=D'0',NEWR05 JUMP IF NOT BATCHHEAD «, t00=0x001f, t01=0x0170}
0x320a…3232 Head {h00=0x0024, h01=0x0050, text=» CBE FC,W7,NEWR07 JUMP IF GETLST«, t00=0x0020, t01=0x0018}
0x3232…324a Head {h00=0x0014, h01=0x0050, text=» MOVE BIN13,W20 «, t00=0x0020, t01=0x0040}
0x324a…325c Head {h00=0x000e, h01=0x0050, text=» B NEWR32 «, t00=0x0020, t01=0x0058}
0x325c…326a Head {h00=0x000a, h01=0x0050, text=»NEWR05«, t00=0x0020, t01=0x006a}
0x326a…3284 Head {h00=0x0016, h01=0x0050, text=» TBF DOOL8,NEWR10 «, t00=0x0020, t01=0x0078}
0x3284…3292 Head {h00=0x000a, h01=0x0050, text=»NEWR07«, t00=0x0020, t01=0x0092}
0x3292…32a8 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN13,W1«, t00=0x0020, t01=0x00a0}
0x32a8…32ba Head {h00=0x000e, h01=0x0050, text=» B NEWR32 «, t00=0x0020, t01=0x00b6}
0x32ba…32c8 Head {h00=0x000a, h01=0x0050, text=»NEWFRM«, t00=0x0020, t01=0x00c8}
0x32c8…32da Head {h00=0x000e, h01=0x0050, text=» SET BOOL9«, t00=0x0020, t01=0x00d6}
0x32da…32e8 Head {h00=0x000a, h01=0x0050, text=»NEWR10«, t00=0x0020, t01=0x00e8}
0x32e8…3302 Head {h00=0x0016, h01=0x0050, text=» TBF BOOL9,NEWR15 «, t00=0x0020, t01=0x00f6}
0x3302…3318 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN13,W1«, t00=0x0020, t01=0x0110}
0x3318…3332 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W10 «, t00=0x0020, t01=0x0126}
0x3332…3344 Head {h00=0x000e, h01=0x0050, text=» B NEWR20 «, t00=0x0020, t01=0x0140}
0x3344…3352 Head {h00=0x000a, h01=0x0050, text=»NEWR15«, t00=0x0020, t01=0x0152}
0x3352…336a Head {h00=0x0014, h01=0x0050, text=» MOVE BIN13,W11 «, t00=0x0020, t01=0x0160}
0x336a…3384 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W20 «, t00=0x0020, t01=0x0178}
0x3384…3392 (33, 0, 400) Head {h00=0x000a, h01=0x0050, text=»NEWR20«, t00=0x0021, t01=0x0004}
0x3392…33ae Head {h00=0x0018, h01=0x0050, text=» MOVE STR6A,DEINPUT «, t00=0x0021, t01=0x0012}
0x33ae…33dc Head {h00=0x002a, h01=0x0050, text=»NEWR25 CBE STR6A,FORTAB(BIN13),NEWR30 «, t00=0x0021, t01=0x002e}
0x33dc…33f2 Head {h00=0x0012, h01=0x0050, text=» ADD BIN13,W1 «, t00=0x0021, t01=0x005c}
0x33f2…3414 Head {h00=0x001e, h01=0x0050, text=» CBNE BIN13,DEBINW4,NEWR25«, t00=0x0021, t01=0x0072}
0x3414…342e Head {h00=0x0016, h01=0x0050, text=» TBF BOOL9,NEWR28 «, t00=0x0021, t01=0x0094}
0x342e…344c Head {h00=0x001a, h01=0x0050, text=» CBG BIN13,W10,NEWR28 «, t00=0x0021, t01=0x00ae}
0x344c…3462 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN13,W0«, t00=0x0021, t01=0x00cc}
0x3462…3474 Head {h00=0x000e, h01=0x0050, text=» B NEWR35 «, t00=0x0021, t01=0x00e2}
0x3474…3482 Head {h00=0x000a, h01=0x0050, text=»NEWR28«, t00=0x0021, t01=0x00f4}
0x3482…349c Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W18 «, t00=0x0021, t01=0x0102}
0x349c…34ae Head {h00=0x000e, h01=0x0050, text=» B DRNO00 «, t00=0x0021, t01=0x011c}
0x34ae…34bc Head {h00=0x000a, h01=0x0050, text=»NEWR30«, t00=0x0021, t01=0x012e}
0x34bc…34d6 Head {h00=0x0016, h01=0x0050, text=» TBT BOOL9,NEWR35 «, t00=0x0021, t01=0x013c}
0x34d6…34ec Head {h00=0x0012, h01=0x0050, text=» SUB BIN13,W10«, t00=0x0021, t01=0x0156}
0x34ec…34fa Head {h00=0x000a, h01=0x0050, text=»NEWR32«, t00=0x0021, t01=0x016c}
0x34fa…351c Head {h00=0x001e, h01=0x0050, text=» MOVE STR6A,FORTAB(BIN13) «, t00=0x0021, t01=0x017a}
0x351c…352a Head {h00=0x000a, h01=0x0050, text=»NEWR35«, t00=0x0022, t01=0x000c}
0x352a…354c Head {h00=0x001e, h01=0x0050, text=» CBNE FORMAT,STR6A,NEWR37 «, t00=0x0022, t01=0x001a}
0x354c…3566 Head {h00=0x0016, h01=0x0050, text=» TBF BOOL9,NEWR34 «, t00=0x0022, t01=0x003c}
0x3566…3580 Head {h00=0x0016, h01=0x0050, text=» CBE FC,W14,NEWR36«, t00=0x0022, t01=0x0056}
0x3580…3592 Head {h00=0x000e, h01=0x0050, text=» B NEWR74 «, t00=0x0022, t01=0x0070}
0x3592…35a0 Head {h00=0x000a, h01=0x0050, text=»NEWR34«, t00=0x0022, t01=0x0082}
0x35a0…35d0 Head {h00=0x002c, h01=0x0050, text=» TBF DOOL8,NEWR36 JUMP IF NOT BATCHHEAD «, t00=0x0022, t01=0x0090}
0x35d0…35f6 Head {h00=0x0022, h01=0x0050, text=» B ENTN10 ENTRY NEW BATCHHEAD «, t00=0x0022, t01=0x00c0}
0x35f6…3604 Head {h00=0x000a, h01=0x0050, text=»NEWR36«, t00=0x0022, t01=0x00e6}
0x3604…3616 Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x0022, t01=0x00f4}
0x3616…3638 Head {h00=0x001e, h01=0x0050, text=»NEWR37 MOVE DEINPUT,HEX00 «, t00=0x0022, t01=0x0106}
0x3638…365c Head {h00=0x0020, h01=0x0050, text=» COPY DEINPUT,W0,W6,STR6A,W0«, t00=0x0022, t01=0x0128}
0x365c…3684 Head {h00=0x0024, h01=0x0050, text=» CBE FC,W4,NEWR40 JUMP IF GETNXT«, t00=0x0022, t01=0x014c}
0x3684…36ac Head {h00=0x0024, h01=0x0050, text=» CBE FC,W7,NEWR40 JUMP IF GETLST«, t00=0x0022, t01=0x0174}
0x36ac…36ce Head {h00=0x001e, h01=0x0050, text=» CBNE NUMBER,=D'0',NEWR40 «, t00=0x0023, t01=0x000c}
0x36ce…36f0 Head {h00=0x001e, h01=0x0050, text=» MOVE FRMTPNTR,SYMREC(W10)«, t00=0x0023, t01=0x002e}
0x36f0…3702 Head {h00=0x000e, h01=0x0050, text=» B NEWR45 «, t00=0x0023, t01=0x0050}
0x3702…3710 Head {h00=0x000a, h01=0x0050, text=»NEWR40«, t00=0x0023, t01=0x0062}
0x3710…372e Head {h00=0x001a, h01=0x0050, text=» CBNE BIN13,W0,NEWR43 «, t00=0x0023, t01=0x0070}
0x372e…3748 Head {h00=0x0016, h01=0x0050, text=» MOVE FRMTPNTR,W0 «, t00=0x0023, t01=0x008e}
0x3748…375a Head {h00=0x000e, h01=0x0050, text=» B NEWR45 «, t00=0x0023, t01=0x00a8}
0x375a…3768 Head {h00=0x000a, h01=0x0050, text=»NEWR43«, t00=0x0023, t01=0x00ba}
0x3768…378c Head {h00=0x0020, h01=0x0050, text=» MOVE FRMTPNTR,SYMREC(BIN13)«, t00=0x0023, t01=0x00c8}
0x378c…379a Head {h00=0x000a, h01=0x0050, text=»NEWR45«, t00=0x0023, t01=0x00ec}
0x379a…37be Head {h00=0x0020, h01=0x0050, text=» PERF DEDISC,W10 GET FORMAT «, t00=0x0023, t01=0x00fa}
0x37be…37d2 Head {h00=0x0010, h01=0x0050, text=» BOK NEWR49 «, t00=0x0023, t01=0x011e}
0x37d2…3800 Head {h00=0x002a, h01=0x0050, text=» CBE DEBINW4,W13,NEWR46 NO BUFFERSPACE«, t00=0x0023, t01=0x0132}
0x3800…3830 Head {h00=0x002c, h01=0x0050, text=» CBE PINDFR,W0,NEWR47 NO CURRENT FORMAT «, t00=0x0023, t01=0x0160}
0x3830…3858 Head {h00=0x0024, h01=0x0050, text=» CBE DEBINW4,W9,NEWR28 NOT FOUND«, t00=0x0023, t01=0x0190}
0x3858…386a Head {h00=0x000e, h01=0x0050, text=» B DRNO00 «, t00=0x0024, t01=0x0028}
0x386a…3878 Head {h00=0x000a, h01=0x0050, text=»NEWR46«, t00=0x0024, t01=0x003a}
0x3878…38a2 Head {h00=0x0026, h01=0x0050, text=» ATTFMT FFETCH ATTACH DUMMYFORMAT «, t00=0x0024, t01=0x0048}
0x38a2…38ba Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0024, t01=0x0072}
0x38ba…38c8 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x0024, t01=0x008a}
0x38c8…38f6 Head {h00=0x002a, h01=0x0050, text=» CBNE PINDFR,W0,NEWR48 ATTACHED FORMAT«, t00=0x0024, t01=0x0098}
0x38f6…3904 Head {h00=0x000a, h01=0x0050, text=»NEWR47«, t00=0x0024, t01=0x00c6}
0x3904…391a Head {h00=0x0012, h01=0x0050, text=» MOVE BIN13,W7«, t00=0x0024, t01=0x00d4}
0x391a…3934 Head {h00=0x0016, h01=0x0050, text=» ADD BIN13,PRECCUR«, t00=0x0024, t01=0x00ea}
0x3934…395a Head {h00=0x0022, h01=0x0050, text=» CBNE FC,W7,NEWR44 NOT GETLST «, t00=0x0024, t01=0x0104}
0x395a…3970 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN14,W7«, t00=0x0024, t01=0x012a}
0x3970…398a Head {h00=0x0016, h01=0x0050, text=» ADD BIN14,PRECPR «, t00=0x0024, t01=0x0140}
0x398a…39b2 Head {h00=0x0024, h01=0x0050, text=» XCOPY RBUF,BIN13,W2,RBUF,BIN14 «, t00=0x0024, t01=0x015a}
0x39b2…39c0 Head {h00=0x000a, h01=0x0050, text=»NEWR44«, t00=0x0024, t01=0x0182}
0x39c0…39e8 Head {h00=0x0024, h01=0x0050, text=» XCOPY RECLNTH,W0,W2,RBUF,BIN13 «, t00=0x0024, t01=0x0190}
0x39e8…39fa Head {h00=0x000e, h01=0x0050, text=» B DRNO00 «, t00=0x0025, t01=0x0028}
0x39fa…3a08 Head {h00=0x000a, h01=0x0050, text=»NEWR48«, t00=0x0025, t01=0x003a}
0x3a08…3a34 Head {h00=0x0028, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,BIN14,STRG10A«, t00=0x0025, t01=0x0048}
0x3a34…3a4e Head {h00=0x0016, h01=0x0050, text=» MOVE FORMAT,HEX00«, t00=0x0025, t01=0x0074}
0x3a4e…3a60 Head {h00=0x000e, h01=0x0050, text=» B NEWR35 «, t00=0x0025, t01=0x008e}
0x3a60…3a6e Head {h00=0x000a, h01=0x0050, text=»NEWR49«, t00=0x0025, t01=0x00a0}
0x3a6e…3a8a Head {h00=0x0018, h01=0x0050, text=» MOVE FORMAT,DEINPUT«, t00=0x0025, t01=0x00ae}
0x3a8a…3ab2 Head {h00=0x0024, h01=0x0050, text=» CBE FC,W4,NEWR50 JUMP IF GETNXT«, t00=0x0025, t01=0x00ca}
0x3ab2…3ada Head {h00=0x0024, h01=0x0050, text=» CBE FC,W7,NEWR50 JUMP IF GETLST«, t00=0x0025, t01=0x00f2}
0x3ada…3af8 Head {h00=0x001a, h01=0x0050, text=» CBNE BIN13,W0,NEWR53 «, t00=0x0025, t01=0x011a}
0x3af8…3b0c Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL9«, t00=0x0025, t01=0x0138}
0x3b0c…3b1e Head {h00=0x000e, h01=0x0050, text=» B NEWR51 «, t00=0x0025, t01=0x014c}
0x3b1e…3b2c Head {h00=0x000a, h01=0x0050, text=»NEWR53«, t00=0x0025, t01=0x015e}
0x3b2c…3b5e Head {h00=0x002e, h01=0x0050, text=» CBE NUMBER,=D'0',NEWR55 JUMP IF BATCHHEAD«, t00=0x0025, t01=0x016c}
0x3b5e…3b6c Head {h00=0x000a, h01=0x0050, text=»NEWR50«, t00=0x0026, t01=0x000e}
0x3b6c…3ba0 Head {h00=0x0030, h01=0x0050, text=» CBNE BIN13,W0,NEWR52 EXIST IN JOBDEFINITION«, t00=0x0026, t01=0x001c}
0x3ba0…3bae Head {h00=0x000a, h01=0x0050, text=»NEWR51«, t00=0x0026, t01=0x0050}
0x3bae…3bd6 Head {h00=0x0024, h01=0x0050, text=» MOVE SYMBOL,FORMAT NO SYMBOLIC «, t00=0x0026, t01=0x005e}
0x3bd6…3be8 Head {h00=0x000e, h01=0x0050, text=» B NEWR65 «, t00=0x0026, t01=0x0086}
0x3be8…3bf6 Head {h00=0x000a, h01=0x0050, text=»NEWR52«, t00=0x0026, t01=0x0098}
0x3bf6…3c1a Head {h00=0x0020, h01=0x0050, text=» MOVE SYMREC(BIN13),FRMTPNTR«, t00=0x0026, t01=0x00a6}
0x3c1a…3c30 Head {h00=0x0012, h01=0x0050, text=» ADD BIN13,W10«, t00=0x0026, t01=0x00ca}
0x3c30…3c42 Head {h00=0x000e, h01=0x0050, text=» B NEWR60 «, t00=0x0026, t01=0x00e0}
0x3c42…3c50 Head {h00=0x000a, h01=0x0050, text=»NEWR55«, t00=0x0026, t01=0x00f2}
0x3c50…3c72 Head {h00=0x001e, h01=0x0050, text=» MOVE SYMREC(W10),FRMTPNTR«, t00=0x0026, t01=0x0100}
0x3c72…3c80 Head {h00=0x000a, h01=0x0050, text=»NEWR60«, t00=0x0026, t01=0x0122}
0x3c80…3ca2 Head {h00=0x001e, h01=0x0050, text=» MOVE SYMBOL,FORTAB(BIN13)«, t00=0x0026, t01=0x0130}
0x3ca2…3cb0 Head {h00=0x000a, h01=0x0050, text=»NEWR65«, t00=0x0026, t01=0x0152}
0x3cb0…3cc6 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0026, t01=0x0160}
0x3cc6…3cd4 Head {h00=0x000a, h01=0x0050, text=»NEWR70«, t00=0x0026, t01=0x0176}
0x3cd4…3cf0 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN13,PRECCUR «, t00=0x0026, t01=0x0184}
0x3cf0…3d0a Head {h00=0x0016, h01=0x0050, text=» TBT BOOL9,NEWR77 «, t00=0x0027, t01=0x0010}
0x3d0a…3d18 Head {h00=0x000a, h01=0x0050, text=»NEWR75«, t00=0x0027, t01=0x002a}
0x3d18…3d46 Head {h00=0x002a, h01=0x0050, text=» XCOPY RBUF,BIN13,W1,BPOOL(PINDFR),W0 «, t00=0x0027, t01=0x0038}
0x3d46…3d58 Head {h00=0x000e, h01=0x0050, text=» B NEWR80 «, t00=0x0027, t01=0x0066}
0x3d58…3d66 Head {h00=0x000a, h01=0x0050, text=»NEWR77«, t00=0x0027, t01=0x0078}
0x3d66…3d80 Head {h00=0x0016, h01=0x0050, text=» CBE FC,W14,NEWR75«, t00=0x0027, t01=0x0086}
0x3d80…3d8e Head {h00=0x000a, h01=0x0050, text=»NEWR74«, t00=0x0027, t01=0x00a0}
0x3d8e…3da8 Head {h00=0x0016, h01=0x0050, text=» CBNE FC,W7,NEWR78«, t00=0x0027, t01=0x00ae}
0x3da8…3dd2 Head {h00=0x0026, h01=0x0050, text=» CBE NUMBER,=D'0',NEWR76 BATCHHEAD«, t00=0x0027, t01=0x00c8}
0x3dd2…3dfc Head {h00=0x0026, h01=0x0050, text=» XCOPY RBUF,PRECCUR,W9,RBUF,PRECPR«, t00=0x0027, t01=0x00f2}
0x3dfc…3e10 Head {h00=0x0010, h01=0x0050, text=» PERF DEREFO«, t00=0x0027, t01=0x011c}
0x3e10…3e24 Head {h00=0x0010, h01=0x0050, text=» BNOK DRNO30«, t00=0x0027, t01=0x0130}
0x3e24…3e32 Head {h00=0x000a, h01=0x0050, text=»NEWR76«, t00=0x0027, t01=0x0144}
0x3e32…3e44 Head {h00=0x000e, h01=0x0050, text=» B ENTN10 «, t00=0x0027, t01=0x0152}
0x3e44…3e52 Head {h00=0x000a, h01=0x0050, text=»NEWR78«, t00=0x0027, t01=0x0164}
0x3e52…3e66 Head {h00=0x0010, h01=0x0050, text=» PERF DEREFO«, t00=0x0027, t01=0x0172}
0x3e66…3e7a Head {h00=0x0010, h01=0x0050, text=» BNOK DRNO30«, t00=0x0027, t01=0x0186}
0x3e7a…3e8c Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x0028, t01=0x000a}
0x3e8c…3e9a Head {h00=0x000a, h01=0x0050, text=»NEWR80«, t00=0x0028, t01=0x001c}
0x3e9a…3eb0 Head {h00=0x0012, h01=0x0050, text=» ADD BIN13,W1 «, t00=0x0028, t01=0x002a}
0x3eb0…3ed6 Head {h00=0x0022, h01=0x0050, text=» XCOPY RBUF,BIN13,W6,FORMAT,W0«, t00=0x0028, t01=0x0040}
0x3ed6…3eec Head {h00=0x0012, h01=0x0050, text=» ADD BIN13,W6 «, t00=0x0028, t01=0x0066}
0x3eec…3f14 Head {h00=0x0024, h01=0x0050, text=» XCOPY RBUF,BIN13,W2,RECLNTH,W0 «, t00=0x0028, t01=0x007c}
0x3f14…3f44 Head {h00=0x002c, h01=0x0050, text=» CBNE FC,W11,NEWR90 JUMP IF NOT OPEN BC «, t00=0x0028, t01=0x00a4}
0x3f44…3f56 Head {h00=0x000e, h01=0x0050, text=» B DROK00 «, t00=0x0028, t01=0x00d4}
0x3f56…3f64 Head {h00=0x000a, h01=0x0050, text=»NEWR90«, t00=0x0028, t01=0x00e6}
0x3f64…3f76 Head {h00=0x000e, h01=0x0050, text=» SET DOOL4«, t00=0x0028, t01=0x00f4}
0x3f76…3f88 Head {h00=0x000e, h01=0x0050, text=» B ENTN10 «, t00=0x0028, t01=0x0106}
0x3f88…3f96 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0118}
0x3f96…3fc4 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0028, t01=0x0126}
0x3fc4…3fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0154}
0x3fce…3ffa Head {h00=0x0028, h01=0x0050, text=»* READ IN CURRENT JOBDEFINITION AND «, t00=0x0028, t01=0x015e}
0x3ffa…4016 Head {h00=0x0018, h01=0x0050, text=»* OPEN WANTED BATCH.«, t00=0x0028, t01=0x018a}
0x4016…4020 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0016}
0x4020…404e Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0029, t01=0x0020}
0x404e…4064 Head {h00=0x0012, h01=0x0050, text=»OPENBC FC=11«, t00=0x0029, t01=0x004e}
0x4064…407e Head {h00=0x0016, h01=0x0050, text=» PERF DEREC2,BIN11«, t00=0x0029, t01=0x0064}
0x407e…4092 Head {h00=0x0010, h01=0x0050, text=» BNOK DRNO20«, t00=0x0029, t01=0x007e}
0x4092…40c6 Head {h00=0x0030, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY«, t00=0x0029, t01=0x0092}
0x40c6…40e4 Head {h00=0x001a, h01=0x0050, text=» BZ OPBC05 JUMP IF NOT«, t00=0x0029, t01=0x00c6}
0x40e4…410a Head {h00=0x0022, h01=0x0050, text=» TEST DOOL1 LOOK IF THIS BATCH«, t00=0x0029, t01=0x00e4}
0x410a…4128 Head {h00=0x001a, h01=0x0050, text=» IS TO BE RECOVERED «, t00=0x0029, t01=0x010a}
0x4128…4148 Head {h00=0x001c, h01=0x0050, text=» BZ DROK71 NOT RECOVERY «, t00=0x0029, t01=0x0128}
0x4148…4162 Head {h00=0x0016, h01=0x0050, text=» B DROK00 RECOVERY«, t00=0x0029, t01=0x0148}
0x4162…4170 Head {h00=0x000a, h01=0x0050, text=»OPBC05«, t00=0x0029, t01=0x0162}
0x4170…418c Head {h00=0x0018, h01=0x0050, text=» CBE BIN11,W7,OPBC07«, t00=0x0029, t01=0x0170}
0x418c…41aa Head {h00=0x001a, h01=0x0050, text=» CBNE BIN11,W5,OPBC10 «, t00=0x0029, t01=0x018c}
0x41aa…41ce Head {h00=0x0020, h01=0x0050, text=»* SEARCH OR CONVERSION MODE «, t00=0x002a, t01=0x001a}
0x41ce…41dc Head {h00=0x000a, h01=0x0050, text=»OPBC07«, t00=0x002a, t01=0x003e}
0x41dc…420a Head {h00=0x002a, h01=0x0050, text=» IB BIN12,DROK71,DROK71,OPBC20,DROK00 «, t00=0x002a, t01=0x004c}
0x420a…4218 Head {h00=0x000a, h01=0x0050, text=»OPBC10«, t00=0x002a, t01=0x007a}
0x4218…422c Head {h00=0x0010, h01=0x0050, text=» TEST DOOL8 «, t00=0x002a, t01=0x0088}
0x422c…423e Head {h00=0x000e, h01=0x0050, text=» BZ DROK00«, t00=0x002a, t01=0x009c}
0x423e…4272 Head {h00=0x0030, h01=0x0050, text=» CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY«, t00=0x002a, t01=0x00ae}
0x4272…428a Head {h00=0x0014, h01=0x0050, text=» BNZ DROK00 YES «, t00=0x002a, t01=0x00e2}
0x428a…42a4 Head {h00=0x0016, h01=0x0050, text=» SUB BDPOIN(W2),W1«, t00=0x002a, t01=0x00fa}
0x42a4…42b6 Head {h00=0x000e, h01=0x0050, text=» B NEWR70 «, t00=0x002a, t01=0x0114}
0x42b6…42de Head {h00=0x0024, h01=0x0050, text=»OPBC20 PROGRAM 53 SEARCRECORD «, t00=0x002a, t01=0x0126}
0x42de…42fe Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW3,BCDI21(W3)«, t00=0x002a, t01=0x014e}
0x42fe…431e Head {h00=0x001c, h01=0x0050, text=» CMP DEBINW3,BDPOIN(W2) «, t00=0x002a, t01=0x016e}
0x431e…4332 Head {h00=0x0010, h01=0x0050, text=» BNG GETN50 «, t00=0x002a, t01=0x018e}
0x4332…4352 Head {h00=0x001c, h01=0x0050, text=» MOVE NUMBER,BDPOIN(W2) «, t00=0x002b, t01=0x0012}
0x4352…4380 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A«, t00=0x002b, t01=0x0032}
0x4380…43b0 Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A «, t00=0x002b, t01=0x0060}
0x43b0…43c8 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W9«, t00=0x002b, t01=0x0090}
0x43c8…43da Head {h00=0x000e, h01=0x0050, text=» B DRNO20 «, t00=0x002b, t01=0x00a8}
0x43da…43f0 Head {h00=0x0012, h01=0x0050, text=»ENTINS FC=12«, t00=0x002b, t01=0x00ba}
0x43f0…440a Head {h00=0x0016, h01=0x0050, text=» PERF DEREC2,BIN11«, t00=0x002b, t01=0x00d0}
0x440a…441c Head {h00=0x000e, h01=0x0050, text=» B ENTOLD «, t00=0x002b, t01=0x00ea}
0x441c…442a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002b, t01=0x00fc}
0x442a…4438 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x010a}
0x4438…4462 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002b, t01=0x0118}
0x4462…446c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0142}
0x446c…4492 Head {h00=0x0022, h01=0x0050, text=»* THIS ROUTINE CHECKS THAT THE«, t00=0x002b, t01=0x014c}
0x4492…44ba Head {h00=0x0024, h01=0x0050, text=»* OCCUPIED RECORDSIZE WITHIN THE«, t00=0x002b, t01=0x0172}
0x44ba…44e0 Head {h00=0x0022, h01=0x0050, text=»* FORMAT NOT HAS BEEN CHANGED «, t00=0x002c, t01=0x000a}
0x44e0…4508 Head {h00=0x0024, h01=0x0050, text=»* SINCE THE RECORD WAS STORED ON«, t00=0x002c, t01=0x0030}
0x4508…4518 Head {h00=0x000c, h01=0x0050, text=»* DISC. «, t00=0x002c, t01=0x0058}
0x4518…453a Head {h00=0x001e, h01=0x0050, text=»* BAD RESULT IS OVERFLOW. «, t00=0x002c, t01=0x0068}
0x453a…4544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x008a}
0x4544…456e Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x002c, t01=0x0094}
0x456e…4582 Head {h00=0x0010, h01=0x0050, text=»DEREFO PROC «, t00=0x002c, t01=0x00be}
0x4582…459a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W7«, t00=0x002c, t01=0x00d2}
0x459a…45b6 Head {h00=0x0018, h01=0x0050, text=» ADD DEBINW4,PRECCUR«, t00=0x002c, t01=0x00ea}
0x45b6…45e0 Head {h00=0x0026, h01=0x0050, text=» XCOPY DEBINW3,W0,W2,RBUF,DEBINW4 «, t00=0x002c, t01=0x0106}
0x45e0…4604 Head {h00=0x0020, h01=0x0050, text=» CBNE DEBINW3,RECLNTH,DEREF1«, t00=0x002c, t01=0x0130}
0x4604…4624 Head {h00=0x001c, h01=0x0050, text=» CMP W1,W1 CONDITION = 0«, t00=0x002c, t01=0x0154}
0x4624…4630 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x002c, t01=0x0174}
0x4630…463e Head {h00=0x000a, h01=0x0050, text=»DEREF1«, t00=0x002c, t01=0x0180}
0x463e…465a Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,DEBINW3«, t00=0x002c, t01=0x018e}
0x465a…4676 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,=W'38'«, t00=0x002d, t01=0x001a}
0x4676…4696 Head {h00=0x001c, h01=0x0050, text=» DIV W0,W0 CONDITION =3 «, t00=0x002d, t01=0x0036}
0x4696…46a2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002d, t01=0x0056}
0x46a2…46b0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002d, t01=0x0062}
0x46b0…46c4 Head {h00=0x0010, h01=0x0050, text=»FFETCH FRMT «, t00=0x002d, t01=0x0070}
0x46c4…46d0 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x002d, t01=0x0084}
0x46d0…46f2 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'FETCHING FORMAT:' «, t00=0x002d, t01=0x0090}
0x46f2…4708 Head {h00=0x0012, h01=0x0050, text=» FCOPY DEINPUT«, t00=0x002d, t01=0x00b2}
0x4708…4724 Head {h00=0x0018, h01=0x0050, text=» FTEXT ' FROM DISC.'«, t00=0x002d, t01=0x00c8}
0x4724…4730 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x002d, t01=0x00e4}
0x4730…4744 Head {h00=0x0010, h01=0x0050, text=» FKI 1,ALPHA«, t00=0x002d, t01=0x00f0}
0x4744…4758 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x002d, t01=0x0104}
0x4758…4766 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002d, t01=0x0118}
0x4766…4772 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002d, t01=0x0126}
0x4772…4776 Head {h00=0x4004, h01=0x0000}
0x4776…477a 00 2d 01 32 ┆ - 2┆
0x477a…4782 (46, 1, 8) 20 04 00 00 00 2e 00 04 ┆ . ┆
0x4782…47d2 (47, 0, 400) 37 81 3a e0 c3 15 41 55 54 4f 4d 41 54 49 43 20 53 4b 49 50 2f 44 55 50 20 2a 4f da e5 06 c3 02 4e 2a d8 05 c3 03 46 46 2a e0 c9 c3 0c 52 45 43 4f 56 45 52 59 20 4f 46 20 c1 1a 81 3a c0 6b 81 20 c1 36 81 3a c0 6c c3 09 20 52 55 4e 4e 49 4e ┆7 : AUTOMATIC SKIP/DUP *O N* FF* RECOVERY OF : k 6 : l RUNNIN┆
0x47d2…4822 47 2e 1c 28 20 27 2c 21 2e 25 29 24 26 22 23 2d 2a 81 20 02 00 00 00 01 00 02 00 01 00 03 00 01 00 04 00 01 00 05 00 02 00 06 00 02 00 08 00 05 00 0a 00 06 00 0f 00 06 00 15 00 08 00 1b 00 08 00 23 00 09 00 2b 30 01 00 34 10 01 00 00 10 05 ┆G. ( ',!.%)$&"#-* # +0 4 ┆
0x4822…4872 00 01 00 02 00 00 00 03 00 02 00 03 00 05 00 03 00 08 00 03 00 0b 00 03 00 0e 00 04 00 11 00 05 00 15 00 07 00 1a 00 0a 00 21 00 0b 00 2b 00 0c 00 36 00 10 00 42 00 12 00 52 00 14 00 64 00 15 00 78 00 19 00 8d 00 19 00 a6 00 1a 00 bf 00 1b ┆ ! + 6 B R d x ┆
0x4872…48c2 00 d9 00 1d 00 f4 00 1e 01 11 00 1f 01 2f 00 26 01 4e 00 29 01 74 40 0f 01 9d 06 42 04 5a 06 7a 04 8f 06 82 04 95 88 b0 5f 55 00 93 22 34 00 00 93 23 34 00 00 93 24 34 00 14 00 08 00 06 01 33 00 06 01 3a 00 06 01 40 00 06 00 72 00 06 02 9c ┆ / & N ) t@ B Z z _U "4 #4 $4 3 : @ r ┆
0x48c2…4912 00 06 02 5a 00 06 01 fb 00 06 02 ab 00 07 00 06 01 f8 00 00 02 2b 00 06 01 48 00 08 00 0e 00 00 02 d5 00 18 02 ed 00 14 00 0e 00 50 2b 2d 3f 54 0a aa 0f aa 42 41 54 43 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ┆ Z + H P+-?T BATC ┆
0x4912…4962 (48, 0, 400) 06 ee 05 ca 05 d8 06 72 06 e2 06 e6 06 ea 00 87 20 00 82 20 40 67 40 69 40 6b 40 97 00 93 22 30 23 87 28 90 20 05 80 01 23 57 03 48 8c 06 00 e9 25 20 57 04 00 e9 25 90 00 83 90 00 6f 95 36 00 02 19 19 30 29 00 92 20 92 20 11 80 02 32 92 03 ┆ r @g@i@k@ "0# ( #W H % W % o 6 0) 2 ┆
0x4962…49b2 01 02 03 57 07 00 82 20 3f 02 41 97 00 92 87 02 8c 8b 57 06 00 95 6f 00 90 83 01 7e 37 00 84 20 68 7e 84 29 1b 8a 8b 21 50 4f 40 8e 3c 04 01 7e 36 00 88 20 68 7e 88 27 1b 8a 8b 21 3c 05 41 8e 02 8b 21 20 88 26 0a 6a 87 21 21 1b 8a 8b 02 8b ┆ W ? A W o ~7 h~ ) !PO@ < ~6 h~ ' !< A ! & j !! ┆
0x49b2…4a02 21 40 99 20 87 20 05 80 01 88 57 03 00 87 92 32 88 06 06 06 07 07 07 08 57 0b 30 3a 86 0b 00 0a 87 10 86 23 5b 41 99 5f 5f 32 84 08 09 0a 0a 0a 0b 0c 0d 0e 02 8b 21 6a 93 21 21 1b 8a 8b 00 82 8b 6a 82 20 21 8a 21 24 93 12 0a 01 88 30 30 0d ┆!@ W 2 W 0: #[A __2 !j !! j ! !$ 00 ┆
0x4a02…4a52 88 93 02 8b 88 02 8b 21 14 8b 8c 92 3f 0f 41 88 5f 0d 02 8b 21 41 8b 3c 0f 6a 87 21 21 1b 8a 8b 30 24 00 87 88 00 e9 26 8a 00 e9 27 8b 00 e9 28 8c 30 2c 1b 21 8a 8b 8c 3c 0f 5f cd 04 84 22 02 8b 21 00 85 20 01 7e 34 01 9f 21 39 68 7e 85 24 ┆ ! ? A _ !A < j !! 0$ & ' ( 0, ! < _ " ! ~4 !9h~ $┆
0x4a52…4aa2 1b 8a 8b 21 50 05 00 85 20 57 03 02 8b 21 00 88 20 01 7e 38 68 7e 88 2a 1b 8a 8b 21 50 05 00 88 2a 57 07 02 8b 21 2c 88 28 0a 6a 87 21 21 1b 8a 8b 02 8b 21 32 88 0a 10 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆ !P W ! ~8h~ * !P *W !, ( j !! !2 ┆
0x4aa2…4af2 (49, 0, 400) 11 12 12 13 14 15 16 17 18 06 90 87 3f 19 41 8d 5f 95 30 21 87 d3 21 3c 0f 00 9f 22 d3 87 3f 1a 04 88 23 40 8e 54 07 30 25 00 50 39 57 03 49 99 34 36 88 01 08 30 03 17 21 8e 89 57 06 30 03 d5 21 8e 89 06 89 87 3a 0f 00 89 20 36 88 01 0a 68 ┆ ? A _ 0! !< " ? #@ T 0% P9W I 46 0 ! W 0 ! : 6 h┆
0x4af2…4b42 95 89 8e 17 87 20 8e 57 08 68 95 89 8e d5 87 20 8e 38 1b 3f 1c 36 88 01 0e 30 21 87 17 21 3c 0f 00 9f 22 17 87 3f 1a 30 21 87 d5 21 3c 0f 00 9f 22 d5 87 3f 1a 28 87 20 03 00 87 92 30 3a 89 0b 00 0a 87 28 89 23 29 30 29 01 89 41 8b 00 86 20 ┆ W h 8 ? 6 0! !< " ? 0! !< " ? ( 0: ( #)0) A ┆
0x4b42…4b92 68 0b 00 0a 87 86 89 55 20 21 06 90 86 3c 1c 00 89 20 68 95 89 90 0b 00 0a 87 20 90 38 1b 3f 1c 00 9f 22 0b 00 0a 87 3f 1a 06 84 20 3c 0f 00 e8 20 00 97 87 00 88 20 01 99 31 68 99 88 21 1b 8a 8b 21 50 08 00 88 20 00 e0 21 57 10 02 8b 21 6a ┆h U ! < h 8 ? " ? < 1h ! !P !W !j┆
0x4b92…4be2 88 21 21 1b 8a 8b 02 8b 21 00 e0 88 00 e6 97 01 99 33 66 e6 20 22 64 e6 22 21 55 20 64 e6 20 21 99 20 80 03 38 50 0f 20 e1 20 06 80 04 26 e1 89 9d 06 20 21 3f 19 00 8e 20 30 38 1b e1 28 2b 30 39 1b e1 20 2b 6a 8f 21 21 19 e1 31 6a 8e 21 21 ┆ !! ! 3f "d "!U d ! 8P & !? 08 (+09 +j !! 1j !!┆
0x4be2…4c32 19 e1 32 04 e0 8f 02 e0 21 49 8e 07 30 25 00 50 2c 57 03 49 99 27 6a 87 21 21 1b e1 21 80 01 24 00 85 20 68 95 85 87 6f 20 87 50 18 18 88 20 55 02 e0 21 02 8f 21 06 8f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ┆ 2 !I 0% P,W I 'j !! ! $ h o P U ! ! ┆
0x4c32…4c82 (50, 0, 400) 8e 39 1d 5f 20 00 9f 22 b0 e0 57 fa 00 e8 8f 80 04 26 e1 89 9d 06 20 20 3f 19 80 05 87 3f 19 30 22 95 39 1b 3f 1c 00 9f 22 e8 57 da 40 67 40 6b 02 8b 21 41 69 6a 8d 21 21 1b 8a 8b 02 8b 21 3f 1e 00 93 24 40 6b 41 67 57 07 00 93 23 40 67 41 ┆ 9 _ " W & ? ? 0" 9 ? " W @g@k !Aij !! !? $@kAgW #@gA┆
0x4c82…4cd2 6b 40 69 02 8b 21 00 8f 20 6a 8f 21 21 1b 8a 8b 04 8f 12 02 8b 21 00 7f 93 55 6a 7f 93 20 8f 1b 8a 8b 02 8b 8f 3f 1e 01 88 30 30 0d 88 87 01 99 32 00 89 8b 68 1b 8a 89 90 99 20 21 54 3d 00 87 20 00 89 90 68 95 89 21 55 20 21 50 03 00 87 21 ┆k@i ! j !! ! Uj ? 00 2 h !T= h !U !P !┆
0x4cd2…4d22 02 88 8b 00 89 87 68 95 89 21 1b 8a 8b 21 54 0c 02 87 21 20 87 90 37 02 8b 21 5f 19 00 89 8b 68 1b 8a 89 21 99 20 21 58 19 57 23 40 8e 54 0e 30 25 00 50 21 20 90 88 08 02 8b 88 57 83 49 99 15 00 89 20 02 88 8b 68 95 89 90 1b 8a 8b 90 00 8b ┆ h ! !T ! 7 !_ h ! !X W#@ T 0% P! W I h ┆
0x4d22…4d72 88 50 a2 57 6b 00 7e 55 62 7e 20 88 1b 8a 8b 00 9f 22 7e 02 8b 88 40 8d 50 0a 30 17 9f 22 21 30 18 9f 22 22 36 85 03 07 0e 15 02 9f 21 9f 22 57 13 04 9f 21 9f 22 57 0c 08 9f 21 9f 22 57 05 0a 9f 21 9f 22 00 85 20 2c 8b 8c 0d 01 7e 34 68 7e ┆ P Wk ~Ub~ "~ @ P 0 "!0 ""6 ! "W ! "W ! "W ! " , ~4h~┆
0x4d72…4dc2 85 24 1b 8a 8b 21 38 1f 00 9f 22 95 06 9f 22 9f 21 36 84 02 04 08 50 3d 57 06 51 39 57 02 52 35 40 88 54 4c 20 e1 20 31 06 88 20 3c 20 02 e0 21 02 8f 21 22 8f 8e 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆ $ !8 " " !6 P=W Q9W R5@ TL 1 < ! !" ┆
0x4dc2…4e12 (51, 0, 400) 9f 21 b0 e0 5f 36 6a 8e 20 22 19 e1 2d 06 8e 20 38 20 00 e0 8f 80 04 26 e1 89 9d 3f 21 40 88 50 10 00 89 35 49 69 16 49 6b 13 49 67 10 41 7c 57 0c 20 e1 20 03 00 e8 8f 00 89 34 40 7c 40 8e 20 e1 20 06 80 04 26 e1 89 9d 2c 8b 8c b3 00 88 20 ┆ ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , ┆
0x4e12…4e62 01 8f 2f 68 5a 88 8f 1b 8a 8b 21 50 44 6a 87 21 21 1b 8a 8b 30 07 87 28 50 0a 01 88 30 30 0d 88 87 02 8b 88 02 8b 21 5f 3c 28 89 34 02 80 06 02 8b 21 2c 8b 8c 7a 00 88 20 01 9c 35 68 9c 88 24 1b 8a 8b 21 54 62 49 7c 67 32 88 03 0c 0d 0e 3f ┆ /hZ !PDj !! 0 (P 00 !_<( 4 !, z 5h $ !TbI|g2 ?┆
0x4e62…4eb2 0b 32 88 1c 22 22 22 22 22 23 22 23 23 23 23 23 23 22 22 22 22 22 24 25 25 22 22 22 23 26 26 22 02 8b 21 5f 68 28 88 89 05 02 8b 21 3f 1e 20 89 34 22 02 8b 21 5f 9a 02 8b 22 5f 9f 02 8b 21 00 8f 20 6a 8f 21 21 1b 8a 8b 04 8f 12 02 8b 21 02 ┆ 2 """""#"######"""""$%%"""#&&" !_h( !? 4" !_ "_ ! j !! ! ┆
0x4eb2…4f02 8b 8f 5f b7 80 06 5f bb 41 7c 00 93 22 00 89 20 40 8b 50 14 00 8a e9 26 00 8b e9 27 00 8c e9 28 02 8b 21 30 24 00 92 88 48 7c 04 20 93 22 04 10 89 34 2f 00 95 6f 00 92 67 20 92 20 0a 22 92 d1 22 07 40 66 49 89 02 40 6a 00 8a 20 6a 8a 21 21 ┆ _ _ A| " @ P & ' ( !0$ H| " 4/ o g " " @fI @j j !!┆
0x4f02…4f52 82 20 6a 82 20 21 20 20 40 97 54 05 00 92 20 57 03 00 92 21 34 01 00 89 20 49 69 08 49 6b 09 49 67 0a 34 00 41 68 34 00 41 6a 34 00 41 66 34 00 00 26 00 07 00 5a 00 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 ┆ j ! @ T W !4 Ii Ik Ig 4 Ah4 Aj4 Af4 & Z ┆
0x4f52…4fa2 (52, 0, 400) 05 bc 00 07 00 55 00 07 04 a5 00 07 04 a0 00 07 00 6a 00 07 00 ba 00 07 00 c5 00 07 00 fe 00 07 01 2c 00 07 01 02 00 07 03 1c 00 07 03 31 00 07 03 3a 00 07 05 60 00 07 01 86 00 07 01 8a 00 07 01 98 00 07 01 fd 00 07 02 41 00 07 03 0a 00 07 ┆ U j , 1 : ` A ┆
0x4fa2…4ff2 03 16 00 07 03 0f 00 07 03 67 00 07 04 41 00 07 03 f6 00 07 04 85 00 07 04 50 00 07 04 6e 00 07 00 64 00 07 01 4b 00 07 02 93 00 07 02 8a 00 07 05 3a 00 07 05 3f 00 07 04 e1 00 07 05 2d 00 07 05 44 00 06 00 06 01 48 00 18 02 a0 00 00 02 2b ┆ g A P n d K : ? - D H +┆
0x4ff2…5042 00 08 00 0e 00 18 02 a5 00 07 05 be 00 1d 00 3f 3a 3f 54 2b 2d 2a 3a 44 47 52 4e 41 53 55 46 46 46 58 4d 2f 3d 3e 3c 44 47 52 4e 4c 21 41 53 55 46 54 43 58 45 00 20 02 00 00 20 02 00 02 00 01 00 04 00 01 00 05 00 01 00 06 00 04 00 07 00 04 ┆ ?:?T+-*:DGRNASUFFFXM/=><DGRNL!ASUFTCXE ┆
0x5042…5092 00 0b 00 07 00 0f 00 09 00 16 00 0a 00 1f 30 01 00 29 06 b6 06 8c 06 e2 06 b6 06 e2 06 b6 21 30 18 9f 22 22 36 85 03 07 0e 15 02 9f 21 9f 22 57 13 04 9f 21 9f 22 57 0c 08 9f 21 9f 22 57 05 0a 9f 21 9f 22 00 85 20 2c 8b 8c 0d 01 7e 34 68 7e ┆ 0 ) !0 ""6 ! "W ! "W ! "W ! " , ~4h~┆
0x5092…50e2 85 24 1b 8a 8b 21 38 1f 00 9f 22 95 06 9f 22 9f 21 36 84 02 04 08 50 3d 57 06 51 39 57 02 52 35 40 88 54 4c 20 e1 20 31 06 88 20 3c 20 02 e0 21 02 8f 21 22 8f 8e 07 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 08 ┆ $ !8 " " !6 P=W Q9W R5@ TL 1 < ! !" ┆