|
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: 14028 (0x36cc)
Notes: pts_type(SC)
Names: »DKRUT1.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DE/DKRUT1.SC«
└─⟦5c22ed822⟧ Bits:30009675 Philips computer tape "600209"
└─⟦this⟧ »DEN10/DKRUT1.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DE/DKRUT1.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »DEN10/DKRUT1.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DE/DKRUT1.SC«
IDENT DKRUT1 REL10.0 80-04-11 80-01-18/CHST * ********************************************************** * * THIS MODULE HANDLES ALL DISC IN- AND OUTPUT. * * AFTER EXECUTION, THE DATA-ITEM DEBINW4 WILL BE SET AS * FOLLOWS: * 0 = NO ERROR * 20 = NO SYSTEMDISC IN SYSTEM * 21 = NO DISC IN SPECIFIED UNIT * 22 = DISC I/0-ERROR * 23 = DISC NOT OPERABLE * *********************************************************** DDUM DEDDIV PDIV EXT WAIT EXT RELEAS EXT EMPTYT EXT MASK EXT DEPOOL EXT GETFRE EXT SETFRE EXT SETOCC EXT RETURN EXT ATTWB EXT RESTOR EXT COND EXT READDK EXT WRITDK ENTRY RDDS ENTRY WRDS ENTRY DISU ENTRY WRFSP ENTRY REFSP ENTRY WRIACC ENTRY WRICUR ENTRY FREESP ENTRY WRTCO ENTRY CLSBTH ENTRY RECURR ENTRY RD ENTRY WR ENTRY RFRSP ENTRY RDACC ENTRY OFRSP ENTRY GTNEXT ENTRY GTPREV ENTRY DLCURR ENTRY DLRCCH EJECT DISU PROC FUZ,RECNO,BUF PBIN FUZ PBIN RECNO PSTRG BUF IB FUZ C READSY C WRITSY C READUS C WRITUS READSY CALL READDK,DISK,FILECODE(W1),BUF,SECLEN,RECNO BOK READSY01 PERF DKER TBT NEWVOL,READSY READSY01 PERF COND RET WRITSY CALL WRITDK,DISK,FILECODE(W1),BUF,SECLEN,RECNO BOK WRITSY01 PERF DKER TBT NEWVOL,WRITSY WRITSY01 PERF COND RET READUS CALL READDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO BOK READUS01 PERF DKER TBT NEWVOL,READUS READUS01 PERF COND RET WRITUS CALL WRITDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO BOK WRITUS01 PERF DKER TBT NEWVOL,WRITUS WRITUS01 PERF COND RET PEND EJECT * * SUBROUTINE RDDS AND WRDS: READ AND WRITE D/E-RECORDS WITH A LENGTH O * MORE DATASECTORS ON DISC. THE LENGTH OF THE D/E-RECORD IS GIVEN BY ' * 'USELEN' IS SET AFTER FILE-ASSIGNMENT FOR RESP. TASK DEPENDING ON A * FIRST RECORD OF THE USERFILE. * RDDS PROC RNR PBIN RNR CALL READDK,DISK,FILECODE(FILINDUS),RBUF,USELEN,RNR PERF COND RET PEND * WRDS PROC RNR PBIN RNR CALL WRITDK,DISK,FILECODE(FILINDUS),RBUF,USELEN,RNR PERF COND RET PEND EJECT ************************************************************ * * SUBROUTINE DKER * * PURPOSE: SPECIFIES DISK-ERROR * * CHANGED ITEMS: DKBIN1,DKBIN2,DEBINW4 * ************************************************************ * DKER PROC CLEAR NEWVOL XSTAT DISK,DKBIN1 MOVE BCD13A,DKBIN1 MOVE DKBIN2,=X'8022' CALL MASK,DKBIN1,DKBIN2 BZ DKER10 MOVE DEBINW4,W22 I/O-ERROR RET DKER10 MOVE DKBIN2,=X'800' CALL MASK,DKBIN1,DKBIN2 BZ DKER20 MOVE DEBINW4,=W'30' NO DATA RET DKER20 MOVE DKBIN2,W128 CALL MASK,DKBIN1,DKBIN2 BZ DKER30 SET NEWVOL NEW VOLUME LOADED RET DKER30 MOVE DKBIN2,W1 CALL MASK,DKBIN1,DKBIN2 BZ DKER40 MOVE DEBINW4,=W'23' DISC NOT OPERABLE DKER40 RET PEND * * WRITE FREESPACE-RECORD * WRFSP PROC MAX PERF WAIT MOVE DKBIN1,FINDEXPO(MAX) COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 MOVE DKBIN1,FFSNR(MAX) CALL WRITDK,DISK,FILECODE(MAX),SYSBUF,SECLEN,DKBIN1 BNERR WRFRET PERF DKER WRFRET PERF COND RET PEND * * * REFSP PROC FSRNR,FIND PERF WAIT REFS01 CALL READDK,DISK,FILECODE(FIND),SYSBUF,SECLEN,FSRNR BNERR REFCOP PERF DKER TBT NEWVOL,REFS01 REFCOP MOVE DKBIN1,FINDEXPO(FIND) MOVE FFSNR(FIND),FSRNR COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 REFEND PERF COND RET PEND EJECT * RD PROC BIN,BUF TBT SWIT04,US01 PERF DISU,W1,BIN,BUF B DRET US01 PERF DISU,W3,BIN,BUF DRET RET PEND WR PROC BIN,BUF TBT SWIT04,US02 PERF DISU,W2,BIN,BUF B DRET US02 PERF DISU,W4,BIN,BUF B DRET PEND EJECT * * * SUBROUTINE RDACC, READ ACCUMULATORS * RDACC PROC PERF WAIT PERF DISU,W3,DEBIN1,SYSBUF BERR RDARET COPY BPOOL(PINACC),W0,W188,SYSBUF,W10 XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 RDARET PERF COND RET PEND * * SUBROUTINE WRACC, WRITE ACCUMULATORS * WRACC PROC PERF WAIT MOVE SYSBUF,=X'414300' COPY SYSBUF,W10,W188,BPOOL(PINACC),W0 XCOPY DEBIN1,W0,W2,RPOOL(PINACC),W9 PERF DISU,W4,DEBIN1,SYSBUF PERF COND RET PEND * EJECT * * DUMPROC PROC FC WRICUR PERF FREESP,DEBIN1,FILINDUS BNERR WRIT01 SET SWIT01 NO MORE SECTORS AVAILABLE WRIT01 MOVE STR2A,=X'4453' COPY RBUF,W0,W2,STR2A,W0 PTR NEXT SCTR TO CURR REC XCOPY RBUF,W4,W2,DEBIN1,W0 WRIT05 PERF WRDS,CURSEC WRITE RECORDAREA BNERR WRIT02 * * WRITING - ERROR * PERF FREESP,DEBIN2,FILINDUS GET NEW FREESP MOVE CURSEC,DEBIN2 NEW FREESP = CURRENT SCTRNO GET LINK PREV SCTR XCOPY DEBIN3,W0,W2,RBUF,W2 CBE DEBIN3,W0,ENDERR FIRST RECORD? PERF RDDS,DEBIN3 READ PREV RECORD(S) BERR ENDERR SET CONTINUATION IN PREV SCTR XCOPY RBUF,W4,W2,CURSEC,W0 PERF WRDS,DEBIN3 WRITE PREV RECORD(S) BNERR WRIT05 GET LINK PREV OF PREV XCOPY DEBIN3,W0,W2,SYSBUF,W2 CBE DEBIN3,W0,ENDERR FIRST RECORD? PERF RDDS,DEBIN3 READ PREV OF PREV BERR ENDERR PREV OF PREV = END OF CHAIN XCOPY RBUF,W4,W2,W0,W0 PERF WRDS,DEBIN3 WRITE PREV OF PREV ENDERR MOVE DEBINW4,W21 INDICATE DISC-ERROR B WRIT07 * * OKAY * WRIT02 SET LINK PREV SCTR XCOPY RBUF,W2,W2,CURSEC,W0 XCOPY RBUF,W4,W2,W0,W0 LINK TO NEXT = 0 SET NO OF OCC BYTES XCOPY RBUF,W6,W2,W10,W0 MOVE CURSEC,DEBIN1 SET CURRENT SCTRNO TBF SWIT01,WRIT07 MOVE DEBINW4,W10 'NO MORE SPACE ON DISC' WRIT07 B RETURN * * * * WRIACC PERF WRACC PERF WRFSP,FILINDUS B RETURN * * * WRTCO PERF WRDS,CURSEC WRITE SECTOR(S) B RETURN * * * CLSBTH CLOSE BATCH MOVE DEBIN1,W0 B WRIT01 * * * RECURR PERF RDDS,CURSEC READ SCTR(S) CBNE DEBINW4,=W'30',BRETTA MOVE DEBINW4,W0 BRETTA B RETURN * * * GTNEXT XCOPY DEBIN1,W0,W2,RBUF,W4 GT001 PERF RDDS,DEBIN1 READ SECTOR(S) BERR RETURN CBE FC,W16,GT003 JUMP IF GETPREV GET LINK PREV FOR CONTROL XCOPY DEBIN2,W0,W2,RBUF,W2 CBE DEBIN2,W0,GT002 CBE CURSEC,DEBIN2,GT003 IF NOT OK, ZEROISE LINK TO NEXT SCTR(S) IN CURRENT ONE. XCOPY RBUF,W4,W2,W0,W0 PERF WRDS,DEBIN1 GT002 MOVE DEBINW4,W9 B RETURN GT003 MOVE CURSEC,DEBIN1 CURRENT SECTORNUMBER B RETURN * * * GTPREV XCOPY DEBIN1,W0,W2,RBUF,W2 B GT001 * * * DLCURR SET SWIT04 PERF DLRCCH,RBUF MOVE CURSEC,DEBIN2 B RETURN * * * PEND EJECT * * * SUBR FREESP, GET RECORDNUMBER OF NEXT FREE RECORD IN FILE * * FREESP PROC RECN,INDEX MOVE DEBINW4,W0 CLEAR SWIT06 CLEAR SWIT07 FREE01 MOVE DKBIN1,FINDEXPO(INDEX) CALL GETFRE,BPOOL(DKBIN1),RPOOL(DKBIN1),RECN CBE RECN,W0,NOFN SUB FNOOFREC(INDEX),W1 CBG FNOOFREC(INDEX),F95PROC(INDEX),FND SET SW95PR B FND NOFN XCOPY DKBIN3,W0,W2,RPOOL(DKBIN1),W13 CBE DKBIN3,W0,EOFCHN FSP02 PERF SAVESB PERF WRFSP,INDEX BERR RESSY PERF REFSP,DKBIN3,INDEX BERR RESSY PERF RESTSB B FREE01 RESSY PERF RESTSB B FND EOFCHN TBT SWIT06,NOFSP SET SWIT06 MOVE DKBIN3,W2 B FSP02 NOFSP MOVE DEBINW4,W10 FND CBG INDEX,W1,NEFE SET SWITFS NEFE PERF COND RET PEND * * * SUBROUTINE RFRSP, FREE RECORDS ARE PASSED TO * FREESPACE-TABLE. RECORDNUMBER IN PM RECNO. * RFRSP PROC RECNO,INDEX PERF GFRSPR,RECNO,INDEX GET FSP-REC WITH RECNO IN IT CALL SETFRE,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO ADD FNOOFREC(INDEX),W1 CBNE INDEX,W1,RFRSP1 JUMP IF NOT SET SWITFS SYSTEMFILE RFRSP1 PERF COND RET PEND * * SUBROUTINE GFRSPR * GET FREESPACE-RECORD WITH RECORDNUMBER ACCORDING * TO RECNO IN IT * * SYNTAX: PERF GFRSPR,RECNO,INDEX * INDEX = INDEX TO CURRENT FILE * GFRSPR PROC RECNO,INDEX ANFANG MOVE DKBIN1,W1 CBE INDEX,W1,SYSFLE MOVE DKBIN1,USELEN DIV DKBIN1,SECLEN GET NO OF SCTRS/REC SYSFLE MOVE DEBIN4,FINDEXPO(INDEX) GET INDEX TO FREESP-POOL XCOPY DKBIN2,W0,W2,RPOOL(DEBIN4),W15 OCC SPACE SUB DKBIN2,W12 MUL DKBIN2,W8 DIV DKBIN2,DKBIN1 MUL DKBIN2,DKBIN1 GET RID OF UNUSED BITS XCOPY DKBIN1,W0,W2,RPOOL(DEBIN4),W17 1ST INDICATED RNR MOVE DKBIN3,DKBIN1 SAVE 1ST INDICATED RNR ADD DKBIN1,DKBIN2 GET LAST INDICATED RNR SUB DKBIN1,W1 CBG RECNO,DKBIN1,NEXT CBL RECNO,DKBIN3,PREV GFRET MOVE DEBIN4,FINDEXPO(INDEX) RET NEXT GET NEXT FREESP-RECORD MOVE DKBIN1,W13 READ XCOPY DEBIN4,W0,W2,RPOOL(DEBIN4),DKBIN1 GET LINK CBE DEBIN4,W0,GFRET PERF SAVESB PERF WRFSP,INDEX BERR GFREST PERF REFSP,DEBIN4,INDEX BERR GFREST PERF RESTSB B ANFANG GFREST PERF RESTSB B GFRET PREV MOVE DKBIN1,W11 B READ PEND * * * SUBROUTINE OFRSP * SET RECORD ACCORDING TO RECNO OCCUPIED * OFRSP PROC RECNO,INDEX PERF GFRSPR,RECNO,INDEX CALL SETOCC,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO RET PEND * * SAVESB PROC SAVE SYSBUF TO POOL MOVE WORK(W1),DEBINW4 SAVPOO MOVE DKBIN1,W1 MOVE DKBIN2,W1 PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A BNERR SAVOK SWITCH B SAVPOO SAVOK MOVE WORK(W2),DKBIN1 COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 MOVE DEBINW4,WORK(W1) RET PEND * * RESTSB PROC RESTORE SYSBUF FROM POOL MOVE DKBIN1,WORK(W2) COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A RET PEND EJECT * * SUBROUTINE DLRCCH, REMOVE RECORD FROM CHAIN. SWIT04 ON: USERFILE * DLRCCH PROC BUF CLEAR BOOL8 CLEAR BOOL9 XCOPY DEBIN2,W0,W2,BUF,W2 XCOPY DEBIN1,W0,W2,BUF,W4 CBNE DEBIN1,W0,DL001 SET BOOL9 B RREPRE DL001 PERF RD,DEBIN1,BUF BERR DLRET XCOPY DEBIN5,W0,W2,BUF,W2 XCOPY BUF,W2,W2,DEBIN2,W0 CBNE DEBIN2,W0,DL004 PERF WR,DEBIN5,BUF XCOPY DEBIN2,W0,W2,BUF,W4 GET LINK FORWARD CBE DEBIN2,W0,DL003 IF NO MORE IN CHAIN PERF RD,DEBIN2,BUF READ NEXT RECORD BERR DLRET XCOPY BUF,W2,W2,DEBIN5,W0 SET LINK BACKWARD PERF WR,DEBIN2,BUF WRITE WITH UPDATED LINK DL003 MOVE DEBIN5,DEBIN1 B DL006 DL004 PERF WR,DEBIN1,BUF RREPRE CBNE DEBIN2,W0,DL008 DL006 SET BOOL8 TBT BOOL9,DLRET B DLR2 DL008 PERF RD,DEBIN2,BUF BERR DLRET XCOPY DEBIN5,W0,W2,BUF,W4 XCOPY BUF,W4,W2,DEBIN1,W0 PERF WR,DEBIN2,BUF BERR DLRET DLR2 MOVE DEBIN1,FILINDUS TBT SWIT04,DLR1 MOVE DEBIN1,W1 DLR1 PERF RFRSP,DEBIN5,DEBIN1 DLRET PERF COND RET PEND * * * END
0x0000…0026 (0, 0, 400) Head {h00=0x0022, h01=0x0050, text=» IDENT DKRUT1 REL10.0 80-04-11«, t00=0x0000, t01=0x0004}
0x0026…003e Head {h00=0x0014, h01=0x0050, text=» 80-01-18/CHST«, t00=0x0000, t01=0x002a}
0x003e…0048 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0042}
0x0048…008a Head {h00=0x003e, h01=0x003a, text=»**********************************************************«, t00=0x0000, t01=0x004c}
0x008a…0094 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x008e}
0x0094…00ce Head {h00=0x0036, h01=0x0032, text=»* THIS MODULE HANDLES ALL DISC IN- AND OUTPUT.«, t00=0x0000, t01=0x0098}
0x00ce…00d8 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0000, t01=0x00d2}
0x00d8…011c Head {h00=0x0040, h01=0x0050, text=»* AFTER EXECUTION, THE DATA-ITEM DEBINW4 WILL BE SET AS «, t00=0x0000, t01=0x00dc}
0x011c…0132 Head {h00=0x0012, h01=0x000e, text=»* FOLLOWS:«, t00=0x0000, t01=0x0120}
0x0132…0156 Head {h00=0x0020, h01=0x001c, text=»* 0 = NO ERROR«, t00=0x0000, t01=0x0136}
0x0156…018a Head {h00=0x0030, h01=0x002b, text=»* 20 = NO SYSTEMDISC IN SYSTEM «, t00=0x0000, t01=0x015a}
0x018a…01c0 Head {h00=0x0032, h01=0x0050, text=»* 21 = NO DISC IN SPECIFIED UNIT «, t00=0x0000, t01=0x018e}
0x01c0…01ea Head {h00=0x0026, h01=0x0050, text=»* 22 = DISC I/0-ERROR«, t00=0x0001, t01=0x0034}
0x01ea…0218 Head {h00=0x002a, h01=0x0050, text=»* 23 = DISC NOT OPERABLE «, t00=0x0001, t01=0x005e}
0x0218…0222 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x008c}
0x0222…0266 Head {h00=0x0040, h01=0x003b, text=»*********************************************************** «, t00=0x0001, t01=0x0096}
0x0266…027a Head {h00=0x0010, h01=0x0050, text=» DDUM DEDDIV«, t00=0x0001, t01=0x00da}
0x027a…0288 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x00ee}
0x0288…029a Head {h00=0x000e, h01=0x0050, text=» EXT WAIT «, t00=0x0001, t01=0x00fc}
0x029a…02ae Head {h00=0x0010, h01=0x0050, text=» EXT RELEAS «, t00=0x0001, t01=0x010e}
0x02ae…02c2 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0001, t01=0x0122}
0x02c2…02d4 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0001, t01=0x0136}
0x02d4…02e8 Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0001, t01=0x0148}
0x02e8…02fc Head {h00=0x0010, h01=0x0050, text=» EXT GETFRE «, t00=0x0001, t01=0x015c}
0x02fc…0310 Head {h00=0x0010, h01=0x0050, text=» EXT SETFRE «, t00=0x0001, t01=0x0170}
0x0310…0324 Head {h00=0x0010, h01=0x0050, text=» EXT SETOCC «, t00=0x0001, t01=0x0184}
0x0324…0338 Head {h00=0x0010, h01=0x0050, text=» EXT RETURN «, t00=0x0002, t01=0x0008}
0x0338…034a Head {h00=0x000e, h01=0x0050, text=» EXT ATTWB«, t00=0x0002, t01=0x001c}
0x034a…035e Head {h00=0x0010, h01=0x0050, text=» EXT RESTOR «, t00=0x0002, t01=0x002e}
0x035e…0370 Head {h00=0x000e, h01=0x0050, text=» EXT COND «, t00=0x0002, t01=0x0042}
0x0370…0384 Head {h00=0x0010, h01=0x0050, text=» EXT READDK «, t00=0x0002, t01=0x0054}
0x0384…0398 Head {h00=0x0010, h01=0x0050, text=» EXT WRITDK «, t00=0x0002, t01=0x0068}
0x0398…03ac Head {h00=0x0010, h01=0x0050, text=» ENTRY RDDS «, t00=0x0002, t01=0x007c}
0x03ac…03c0 Head {h00=0x0010, h01=0x0050, text=» ENTRY WRDS «, t00=0x0002, t01=0x0090}
0x03c0…03d4 Head {h00=0x0010, h01=0x0050, text=» ENTRY DISU «, t00=0x0002, t01=0x00a4}
0x03d4…03e8 Head {h00=0x0010, h01=0x0050, text=» ENTRY WRFSP«, t00=0x0002, t01=0x00b8}
0x03e8…03fc Head {h00=0x0010, h01=0x0050, text=» ENTRY REFSP«, t00=0x0002, t01=0x00cc}
0x03fc…0412 Head {h00=0x0012, h01=0x0050, text=» ENTRY WRIACC «, t00=0x0002, t01=0x00e0}
0x0412…0428 Head {h00=0x0012, h01=0x0050, text=» ENTRY WRICUR «, t00=0x0002, t01=0x00f6}
0x0428…043e Head {h00=0x0012, h01=0x0050, text=» ENTRY FREESP «, t00=0x0002, t01=0x010c}
0x043e…0452 Head {h00=0x0010, h01=0x0050, text=» ENTRY WRTCO«, t00=0x0002, t01=0x0122}
0x0452…0468 Head {h00=0x0012, h01=0x0050, text=» ENTRY CLSBTH «, t00=0x0002, t01=0x0136}
0x0468…047e Head {h00=0x0012, h01=0x0050, text=» ENTRY RECURR «, t00=0x0002, t01=0x014c}
0x047e…0490 Head {h00=0x000e, h01=0x0050, text=» ENTRY RD «, t00=0x0002, t01=0x0162}
0x0490…04a2 Head {h00=0x000e, h01=0x0050, text=» ENTRY WR «, t00=0x0002, t01=0x0174}
0x04a2…04b6 Head {h00=0x0010, h01=0x0050, text=» ENTRY RFRSP«, t00=0x0002, t01=0x0186}
0x04b6…04ca Head {h00=0x0010, h01=0x0050, text=» ENTRY RDACC«, t00=0x0003, t01=0x000a}
0x04ca…04de Head {h00=0x0010, h01=0x0050, text=» ENTRY OFRSP«, t00=0x0003, t01=0x001e}
0x04de…04f4 Head {h00=0x0012, h01=0x0050, text=» ENTRY GTNEXT «, t00=0x0003, t01=0x0032}
0x04f4…050a Head {h00=0x0012, h01=0x0050, text=» ENTRY GTPREV «, t00=0x0003, t01=0x0048}
0x050a…0520 Head {h00=0x0012, h01=0x0050, text=» ENTRY DLCURR «, t00=0x0003, t01=0x005e}
0x0520…0536 Head {h00=0x0012, h01=0x0050, text=» ENTRY DLRCCH «, t00=0x0003, t01=0x0074}
0x0536…0544 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0003, t01=0x008a}
0x0544…0564 Head {h00=0x001c, h01=0x0050, text=»DISU PROC FUZ,RECNO,BUF «, t00=0x0003, t01=0x0098}
0x0564…0576 Head {h00=0x000e, h01=0x0050, text=» PBIN FUZ «, t00=0x0003, t01=0x00b8}
0x0576…058a Head {h00=0x0010, h01=0x0050, text=» PBIN RECNO «, t00=0x0003, t01=0x00ca}
0x058a…059c Head {h00=0x000e, h01=0x0050, text=» PSTRG BUF«, t00=0x0003, t01=0x00de}
0x059c…05ae Head {h00=0x000e, h01=0x0050, text=» IB FUZ C«, t00=0x0003, t01=0x00f0}
0x05ae…05c2 Head {h00=0x0010, h01=0x0050, text=» READSY C «, t00=0x0003, t01=0x0102}
0x05c2…05d6 Head {h00=0x0010, h01=0x0050, text=» WRITSY C «, t00=0x0003, t01=0x0116}
0x05d6…05ea Head {h00=0x0010, h01=0x0050, text=» READUS C «, t00=0x0003, t01=0x012a}
0x05ea…05fa Head {h00=0x000c, h01=0x0050, text=» WRITUS«, t00=0x0003, t01=0x013e}
0x05fa…0608 Head {h00=0x000a, h01=0x0050, text=»READSY«, t00=0x0003, t01=0x014e}
0x0608…0640 Head {h00=0x0034, h01=0x0050, text=» CALL READDK,DISK,FILECODE(W1),BUF,SECLEN,RECNO «, t00=0x0003, t01=0x015c}
0x0640…0656 (4, 0, 400) Head {h00=0x0012, h01=0x0050, text=» BOK READSY01 «, t00=0x0004, t01=0x0004}
0x0656…0668 Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x0004, t01=0x001a}
0x0668…0682 Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,READSY«, t00=0x0004, t01=0x002c}
0x0682…0692 Head {h00=0x000c, h01=0x0050, text=»READSY01«, t00=0x0004, t01=0x0046}
0x0692…06a4 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0004, t01=0x0056}
0x06a4…06b0 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0004, t01=0x0068}
0x06b0…06be Head {h00=0x000a, h01=0x0050, text=»WRITSY«, t00=0x0004, t01=0x0074}
0x06be…06f6 Head {h00=0x0034, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(W1),BUF,SECLEN,RECNO «, t00=0x0004, t01=0x0082}
0x06f6…070c Head {h00=0x0012, h01=0x0050, text=» BOK WRITSY01 «, t00=0x0004, t01=0x00ba}
0x070c…071e Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x0004, t01=0x00d0}
0x071e…0738 Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,WRITSY«, t00=0x0004, t01=0x00e2}
0x0738…0748 Head {h00=0x000c, h01=0x0050, text=»WRITSY01«, t00=0x0004, t01=0x00fc}
0x0748…075a Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0004, t01=0x010c}
0x075a…0766 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0004, t01=0x011e}
0x0766…0774 Head {h00=0x000a, h01=0x0050, text=»READUS«, t00=0x0004, t01=0x012a}
0x0774…07b2 Head {h00=0x003a, h01=0x0050, text=» CALL READDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO «, t00=0x0004, t01=0x0138}
0x07b2…07c8 Head {h00=0x0012, h01=0x0050, text=» BOK READUS01 «, t00=0x0004, t01=0x0176}
0x07c8…07da Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x0004, t01=0x018c}
0x07da…07f4 Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,READUS«, t00=0x0005, t01=0x000e}
0x07f4…0804 Head {h00=0x000c, h01=0x0050, text=»READUS01«, t00=0x0005, t01=0x0028}
0x0804…0816 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0005, t01=0x0038}
0x0816…0822 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0005, t01=0x004a}
0x0822…0830 Head {h00=0x000a, h01=0x0050, text=»WRITUS«, t00=0x0005, t01=0x0056}
0x0830…086e Head {h00=0x003a, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO «, t00=0x0005, t01=0x0064}
0x086e…0884 Head {h00=0x0012, h01=0x0050, text=» BOK WRITUS01 «, t00=0x0005, t01=0x00a2}
0x0884…0896 Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x0005, t01=0x00b8}
0x0896…08b0 Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,WRITUS«, t00=0x0005, t01=0x00ca}
0x08b0…08c0 Head {h00=0x000c, h01=0x0050, text=»WRITUS01«, t00=0x0005, t01=0x00e4}
0x08c0…08d2 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0005, t01=0x00f4}
0x08d2…08de Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0005, t01=0x0106}
0x08de…08ec Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0005, t01=0x0112}
0x08ec…08fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0120}
0x08fa…0904 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x012e}
0x0904…0954 Head {h00=0x004c, h01=0x0050, text=»* SUBROUTINE RDDS AND WRDS: READ AND WRITE D/E-RECORDS WITH A LENGTH O«, t00=0x0005, t01=0x0138}
0x0954…09a4 Head {h00=0x004c, h01=0x0050, text=»* MORE DATASECTORS ON DISC. THE LENGTH OF THE D/E-RECORD IS GIVEN BY '«, t00=0x0005, t01=0x0188}
0x09a4…09f4 Head {h00=0x004c, h01=0x0050, text=»* 'USELEN' IS SET AFTER FILE-ASSIGNMENT FOR RESP. TASK DEPENDING ON A «, t00=0x0006, t01=0x0048}
0x09f4…0a1e Head {h00=0x0026, h01=0x0050, text=»* FIRST RECORD OF THE USERFILE. «, t00=0x0006, t01=0x0098}
0x0a1e…0a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c2}
0x0a28…0a3e Head {h00=0x0012, h01=0x0050, text=»RDDS PROC RNR «, t00=0x0006, t01=0x00cc}
0x0a3e…0a50 Head {h00=0x000e, h01=0x0050, text=» PBIN RNR «, t00=0x0006, t01=0x00e2}
0x0a50…0a8c Head {h00=0x0038, h01=0x0050, text=» CALL READDK,DISK,FILECODE(FILINDUS),RBUF,USELEN,RNR«, t00=0x0006, t01=0x00f4}
0x0a8c…0a9e Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0006, t01=0x0130}
0x0a9e…0aaa Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0142}
0x0aaa…0ab8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x014e}
0x0ab8…0ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015c}
0x0ac2…0ad8 Head {h00=0x0012, h01=0x0050, text=»WRDS PROC RNR «, t00=0x0006, t01=0x0166}
0x0ad8…0aea Head {h00=0x000e, h01=0x0050, text=» PBIN RNR «, t00=0x0006, t01=0x017c}
0x0aea…0b26 Head {h00=0x0038, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(FILINDUS),RBUF,USELEN,RNR«, t00=0x0006, t01=0x018e}
0x0b26…0b38 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0007, t01=0x003a}
0x0b38…0b44 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x004c}
0x0b44…0b52 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0058}
0x0b52…0b60 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0007, t01=0x0066}
0x0b60…0ba4 Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0007, t01=0x0074}
0x0ba4…0bae Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00b8}
0x0bae…0bcc Head {h00=0x001a, h01=0x0015, text=»* SUBROUTINE DKER «, t00=0x0007, t01=0x00c2}
0x0bcc…0bd6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00e0}
0x0bd6…0c04 Head {h00=0x002a, h01=0x0025, text=»* PURPOSE: SPECIFIES DISK-ERROR «, t00=0x0007, t01=0x00ea}
0x0c04…0c0e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0118}
0x0c0e…0c42 Head {h00=0x0030, h01=0x0050, text=»* CHANGED ITEMS: DKBIN1,DKBIN2,DEBINW4 «, t00=0x0007, t01=0x0122}
0x0c42…0c4c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0156}
0x0c4c…0c90 Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0007, t01=0x0160}
0x0c90…0c9a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0014}
0x0c9a…0cac Head {h00=0x000e, h01=0x0009, text=»DKER PROC «, t00=0x0008, t01=0x001e}
0x0cac…0cc2 Head {h00=0x0012, h01=0x0050, text=» CLEAR NEWVOL «, t00=0x0008, t01=0x0030}
0x0cc2…0cdc Head {h00=0x0016, h01=0x0050, text=» XSTAT DISK,DKBIN1«, t00=0x0008, t01=0x0046}
0x0cdc…0cf8 Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,DKBIN1 «, t00=0x0008, t01=0x0060}
0x0cf8…0d16 Head {h00=0x001a, h01=0x0050, text=» MOVE DKBIN2,=X'8022' «, t00=0x0008, t01=0x007c}
0x0d16…0d36 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0008, t01=0x009a}
0x0d36…0d48 Head {h00=0x000e, h01=0x0050, text=» BZ DKER10«, t00=0x0008, t01=0x00ba}
0x0d48…0d6c Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW4,W22 I/O-ERROR «, t00=0x0008, t01=0x00cc}
0x0d6c…0d78 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x00f0}
0x0d78…0d86 Head {h00=0x000a, h01=0x0050, text=»DKER10«, t00=0x0008, t01=0x00fc}
0x0d86…0da2 Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN2,=X'800'«, t00=0x0008, t01=0x010a}
0x0da2…0dc2 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0008, t01=0x0126}
0x0dc2…0dd4 Head {h00=0x000e, h01=0x0050, text=» BZ DKER20«, t00=0x0008, t01=0x0146}
0x0dd4…0df8 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW4,=W'30' NO DATA«, t00=0x0008, t01=0x0158}
0x0df8…0e04 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x017c}
0x0e04…0e12 Head {h00=0x000a, h01=0x0050, text=»DKER20«, t00=0x0008, t01=0x0188}
0x0e12…0e2c Head {h00=0x0016, h01=0x0050, text=» MOVE DKBIN2,W128 «, t00=0x0009, t01=0x0008}
0x0e2c…0e4c Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0009, t01=0x0022}
0x0e4c…0e5e Head {h00=0x000e, h01=0x0050, text=» BZ DKER30«, t00=0x0009, t01=0x0042}
0x0e5e…0e84 Head {h00=0x0022, h01=0x0050, text=» SET NEWVOL NEW VOLUME LOADED «, t00=0x0009, t01=0x0054}
0x0e84…0e90 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x007a}
0x0e90…0e9e Head {h00=0x000a, h01=0x0050, text=»DKER30«, t00=0x0009, t01=0x0086}
0x0e9e…0eb6 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN2,W1 «, t00=0x0009, t01=0x0094}
0x0eb6…0ed6 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0009, t01=0x00ac}
0x0ed6…0ee8 Head {h00=0x000e, h01=0x0050, text=» BZ DKER40«, t00=0x0009, t01=0x00cc}
0x0ee8…0f16 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,=W'23' DISC NOT OPERABLE«, t00=0x0009, t01=0x00de}
0x0f16…0f24 Head {h00=0x000a, h01=0x0050, text=»DKER40«, t00=0x0009, t01=0x010c}
0x0f24…0f30 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x011a}
0x0f30…0f3e Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0009, t01=0x0126}
0x0f3e…0f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0134}
0x0f48…0f6a Head {h00=0x001e, h01=0x0050, text=»* WRITE FREESPACE-RECORD«, t00=0x0009, t01=0x013e}
0x0f6a…0f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0160}
0x0f74…0f8a Head {h00=0x0012, h01=0x0050, text=»WRFSP PROC MAX«, t00=0x0009, t01=0x016a}
0x0f8a…0f9c Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0009, t01=0x0180}
0x0f9c…0fbe (10, 0, 400) Head {h00=0x001e, h01=0x0050, text=» MOVE DKBIN1,FINDEXPO(MAX)«, t00=0x000a, t01=0x0004}
0x0fbe…0fea Head {h00=0x0028, h01=0x0050, text=» COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9«, t00=0x000a, t01=0x0026}
0x0fea…1018 Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0«, t00=0x000a, t01=0x0052}
0x1018…1038 Head {h00=0x001c, h01=0x0050, text=» MOVE DKBIN1,FFSNR(MAX) «, t00=0x000a, t01=0x0080}
0x1038…1074 Head {h00=0x0038, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(MAX),SYSBUF,SECLEN,DKBIN1«, t00=0x000a, t01=0x00a0}
0x1074…108a Head {h00=0x0012, h01=0x0050, text=» BNERR WRFRET «, t00=0x000a, t01=0x00dc}
0x108a…109c Head {h00=0x000e, h01=0x0050, text=» PERF DKER«, t00=0x000a, t01=0x00f2}
0x109c…10aa Head {h00=0x000a, h01=0x0050, text=»WRFRET«, t00=0x000a, t01=0x0104}
0x10aa…10bc Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000a, t01=0x0112}
0x10bc…10c8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0124}
0x10c8…10d6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x0130}
0x10d6…10e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x013e}
0x10e0…10ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0148}
0x10ea…10f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0152}
0x10f4…1112 Head {h00=0x001a, h01=0x0050, text=»REFSP PROC FSRNR,FIND «, t00=0x000a, t01=0x015c}
0x1112…1124 Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x000a, t01=0x017a}
0x1124…1132 Head {h00=0x000a, h01=0x0050, text=»REFS01«, t00=0x000a, t01=0x018c}
0x1132…116e Head {h00=0x0038, h01=0x0050, text=» CALL READDK,DISK,FILECODE(FIND),SYSBUF,SECLEN,FSRNR«, t00=0x000b, t01=0x000a}
0x116e…1184 Head {h00=0x0012, h01=0x0050, text=» BNERR REFCOP «, t00=0x000b, t01=0x0046}
0x1184…1196 Head {h00=0x000e, h01=0x0050, text=» PERF DKER«, t00=0x000b, t01=0x005c}
0x1196…11b0 Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,REFS01«, t00=0x000b, t01=0x006e}
0x11b0…11be Head {h00=0x000a, h01=0x0050, text=»REFCOP«, t00=0x000b, t01=0x0088}
0x11be…11e2 Head {h00=0x0020, h01=0x0050, text=» MOVE DKBIN1,FINDEXPO(FIND) «, t00=0x000b, t01=0x0096}
0x11e2…1202 Head {h00=0x001c, h01=0x0050, text=» MOVE FFSNR(FIND),FSRNR «, t00=0x000b, t01=0x00ba}
0x1202…122e Head {h00=0x0028, h01=0x0050, text=» COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0«, t00=0x000b, t01=0x00da}
0x122e…125c Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10«, t00=0x000b, t01=0x0106}
0x125c…126a Head {h00=0x000a, h01=0x0050, text=»REFEND«, t00=0x000b, t01=0x0134}
0x126a…127c Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000b, t01=0x0142}
0x127c…1288 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0154}
0x1288…1296 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0160}
0x1296…12a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x016e}
0x12a4…12ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x017c}
0x12ae…12c6 Head {h00=0x0014, h01=0x0050, text=»RD PROC BIN,BUF «, t00=0x000b, t01=0x0186}
0x12c6…12de Head {h00=0x0014, h01=0x0050, text=» TBT SWIT04,US01«, t00=0x000c, t01=0x000e}
0x12de…12fc Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W1,BIN,BUF «, t00=0x000c, t01=0x0026}
0x12fc…130c Head {h00=0x000c, h01=0x0050, text=» B DRET «, t00=0x000c, t01=0x0044}
0x130c…1318 Head {h00=0x0008, h01=0x0050, text=»US01«, t00=0x000c, t01=0x0054}
0x1318…1336 Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W3,BIN,BUF «, t00=0x000c, t01=0x0060}
0x1336…1342 Head {h00=0x0008, h01=0x0050, text=»DRET«, t00=0x000c, t01=0x007e}
0x1342…134e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x008a}
0x134e…135c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0096}
0x135c…1374 Head {h00=0x0014, h01=0x0050, text=»WR PROC BIN,BUF «, t00=0x000c, t01=0x00a4}
0x1374…138c Head {h00=0x0014, h01=0x0050, text=» TBT SWIT04,US02«, t00=0x000c, t01=0x00bc}
0x138c…13aa Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W2,BIN,BUF «, t00=0x000c, t01=0x00d4}
0x13aa…13ba Head {h00=0x000c, h01=0x0050, text=» B DRET «, t00=0x000c, t01=0x00f2}
0x13ba…13c6 Head {h00=0x0008, h01=0x0050, text=»US02«, t00=0x000c, t01=0x0102}
0x13c6…13e4 Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W4,BIN,BUF «, t00=0x000c, t01=0x010e}
0x13e4…13f4 Head {h00=0x000c, h01=0x0050, text=» B DRET «, t00=0x000c, t01=0x012c}
0x13f4…1402 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x013c}
0x1402…1410 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x014a}
0x1410…141a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0158}
0x141a…1424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0162}
0x1424…1454 Head {h00=0x002c, h01=0x0050, text=»* SUBROUTINE RDACC, READ ACCUMULATORS«, t00=0x000c, t01=0x016c}
0x1454…145e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x000c}
0x145e…1470 Head {h00=0x000e, h01=0x0050, text=»RDACC PROC«, t00=0x000d, t01=0x0016}
0x1470…1482 Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x000d, t01=0x0028}
0x1482…14a6 Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W3,DEBIN1,SYSBUF «, t00=0x000d, t01=0x003a}
0x14a6…14ba Head {h00=0x0010, h01=0x0050, text=» BERR RDARET«, t00=0x000d, t01=0x005e}
0x14ba…14e8 Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(PINACC),W0,W188,SYSBUF,W10«, t00=0x000d, t01=0x0072}
0x14e8…1514 Head {h00=0x0028, h01=0x0050, text=» XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0«, t00=0x000d, t01=0x00a0}
0x1514…1522 Head {h00=0x000a, h01=0x0050, text=»RDARET«, t00=0x000d, t01=0x00cc}
0x1522…1534 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000d, t01=0x00da}
0x1534…1540 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00ec}
0x1540…154e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00f8}
0x154e…1558 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0106}
0x1558…158a Head {h00=0x002e, h01=0x0050, text=»* SUBROUTINE WRACC, WRITE ACCUMULATORS «, t00=0x000d, t01=0x0110}
0x158a…1594 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0142}
0x1594…15a6 Head {h00=0x000e, h01=0x0050, text=»WRACC PROC«, t00=0x000d, t01=0x014c}
0x15a6…15b8 Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x000d, t01=0x015e}
0x15b8…15d8 Head {h00=0x001c, h01=0x0050, text=» MOVE SYSBUF,=X'414300' «, t00=0x000d, t01=0x0170}
0x15d8…1606 Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(PINACC),W0«, t00=0x000d, t01=0x0190}
0x1606…1632 Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,RPOOL(PINACC),W9«, t00=0x000e, t01=0x002e}
0x1632…1656 Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W4,DEBIN1,SYSBUF «, t00=0x000e, t01=0x005a}
0x1656…1668 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000e, t01=0x007e}
0x1668…1674 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x0090}
0x1674…1682 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x009c}
0x1682…168c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00aa}
0x168c…169a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00b4}
0x169a…16a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c2}
0x16a4…16ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00cc}
0x16ae…16c6 Head {h00=0x0014, h01=0x0050, text=»DUMPROC PROC FC «, t00=0x000e, t01=0x00d6}
0x16c6…16d4 Head {h00=0x000a, h01=0x0050, text=»WRICUR«, t00=0x000e, t01=0x00ee}
0x16d4…16f8 Head {h00=0x0020, h01=0x0050, text=» PERF FREESP,DEBIN1,FILINDUS«, t00=0x000e, t01=0x00fc}
0x16f8…170e Head {h00=0x0012, h01=0x0050, text=» BNERR WRIT01 «, t00=0x000e, t01=0x0120}
0x170e…173c Head {h00=0x002a, h01=0x0050, text=» SET SWIT01 NO MORE SECTORS AVAILABLE «, t00=0x000e, t01=0x0136}
0x173c…174a Head {h00=0x000a, h01=0x0050, text=»WRIT01«, t00=0x000e, t01=0x0164}
0x174a…1766 Head {h00=0x0018, h01=0x0050, text=» MOVE STR2A,=X'4453'«, t00=0x000e, t01=0x0172}
0x1766…1788 Head {h00=0x001e, h01=0x0050, text=» COPY RBUF,W0,W2,STR2A,W0 «, t00=0x000e, t01=0x018e}
0x1788…17ac Head {h00=0x0020, h01=0x0050, text=» PTR NEXT SCTR TO CURR REC«, t00=0x000f, t01=0x0020}
0x17ac…17d0 Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,W4,W2,DEBIN1,W0 «, t00=0x000f, t01=0x0044}
0x17d0…17de Head {h00=0x000a, h01=0x0050, text=»WRIT05«, t00=0x000f, t01=0x0068}
0x17de…1808 Head {h00=0x0026, h01=0x0050, text=» PERF WRDS,CURSEC WRITE RECORDAREA«, t00=0x000f, t01=0x0076}
0x1808…181e Head {h00=0x0012, h01=0x0050, text=» BNERR WRIT02 «, t00=0x000f, t01=0x00a0}
0x181e…1828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b6}
0x1828…1844 Head {h00=0x0018, h01=0x0050, text=»* WRITING - ERROR «, t00=0x000f, t01=0x00c0}
0x1844…184e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00dc}
0x184e…1882 Head {h00=0x0030, h01=0x0050, text=» PERF FREESP,DEBIN2,FILINDUS GET NEW FREESP «, t00=0x000f, t01=0x00e6}
0x1882…18ba Head {h00=0x0034, h01=0x0050, text=» MOVE CURSEC,DEBIN2 NEW FREESP = CURRENT SCTRNO «, t00=0x000f, t01=0x011a}
0x18ba…18d8 Head {h00=0x001a, h01=0x0050, text=» GET LINK PREV SCTR «, t00=0x000f, t01=0x0152}
0x18d8…18fc Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN3,W0,W2,RBUF,W2 «, t00=0x000f, t01=0x0170}
0x18fc…1928 (16, 0, 400) Head {h00=0x0028, h01=0x0050, text=» CBE DEBIN3,W0,ENDERR FIRST RECORD? «, t00=0x0010, t01=0x0004}
0x1928…1956 Head {h00=0x002a, h01=0x0050, text=» PERF RDDS,DEBIN3 READ PREV RECORD(S) «, t00=0x0010, t01=0x0030}
0x1956…196a Head {h00=0x0010, h01=0x0050, text=» BERR ENDERR«, t00=0x0010, t01=0x005e}
0x196a…1992 Head {h00=0x0024, h01=0x0050, text=» SET CONTINUATION IN PREV SCTR«, t00=0x0010, t01=0x0072}
0x1992…19b6 Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,W4,W2,CURSEC,W0 «, t00=0x0010, t01=0x009a}
0x19b6…19e4 Head {h00=0x002a, h01=0x0050, text=» PERF WRDS,DEBIN3 WRITE PREV RECORD(S)«, t00=0x0010, t01=0x00be}
0x19e4…19fa Head {h00=0x0012, h01=0x0050, text=» BNERR WRIT05 «, t00=0x0010, t01=0x00ec}
0x19fa…1a1a Head {h00=0x001c, h01=0x0050, text=» GET LINK PREV OF PREV«, t00=0x0010, t01=0x0102}
0x1a1a…1a40 Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN3,W0,W2,SYSBUF,W2 «, t00=0x0010, t01=0x0122}
0x1a40…1a6c Head {h00=0x0028, h01=0x0050, text=» CBE DEBIN3,W0,ENDERR FIRST RECORD? «, t00=0x0010, t01=0x0148}
0x1a6c…1a98 Head {h00=0x0028, h01=0x0050, text=» PERF RDDS,DEBIN3 READ PREV OF PREV «, t00=0x0010, t01=0x0174}
0x1a98…1aac Head {h00=0x0010, h01=0x0050, text=» BERR ENDERR«, t00=0x0011, t01=0x0010}
0x1aac…1ad2 Head {h00=0x0022, h01=0x0050, text=» PREV OF PREV = END OF CHAIN«, t00=0x0011, t01=0x0024}
0x1ad2…1af2 Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W4,W2,W0,W0 «, t00=0x0011, t01=0x004a}
0x1af2…1b1e Head {h00=0x0028, h01=0x0050, text=» PERF WRDS,DEBIN3 WRITE PREV OF PREV«, t00=0x0011, t01=0x006a}
0x1b1e…1b2c Head {h00=0x000a, h01=0x0050, text=»ENDERR«, t00=0x0011, t01=0x0096}
0x1b2c…1b5a Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,W21 INDICATE DISC-ERROR «, t00=0x0011, t01=0x00a4}
0x1b5a…1b6c Head {h00=0x000e, h01=0x0050, text=» B WRIT07 «, t00=0x0011, t01=0x00d2}
0x1b6c…1b76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e4}
0x1b76…1b88 Head {h00=0x000e, h01=0x0050, text=»* OKAY «, t00=0x0011, t01=0x00ee}
0x1b88…1b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0100}
0x1b92…1ba0 Head {h00=0x000a, h01=0x0050, text=»WRIT02«, t00=0x0011, t01=0x010a}
0x1ba0…1bbe Head {h00=0x001a, h01=0x0050, text=» SET LINK PREV SCTR «, t00=0x0011, t01=0x0118}
0x1bbe…1be2 Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,W2,W2,CURSEC,W0 «, t00=0x0011, t01=0x0136}
0x1be2…1c12 Head {h00=0x002c, h01=0x0050, text=» XCOPY RBUF,W4,W2,W0,W0 LINK TO NEXT = 0«, t00=0x0011, t01=0x015a}
0x1c12…1c30 Head {h00=0x001a, h01=0x0050, text=» SET NO OF OCC BYTES«, t00=0x0011, t01=0x018a}
0x1c30…1c50 Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W6,W2,W10,W0«, t00=0x0012, t01=0x0018}
0x1c50…1c7e Head {h00=0x002a, h01=0x0050, text=» MOVE CURSEC,DEBIN1 SET CURRENT SCTRNO«, t00=0x0012, t01=0x0038}
0x1c7e…1c98 Head {h00=0x0016, h01=0x0050, text=» TBF SWIT01,WRIT07«, t00=0x0012, t01=0x0066}
0x1c98…1cca Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W10 'NO MORE SPACE ON DISC' «, t00=0x0012, t01=0x0080}
0x1cca…1cd8 Head {h00=0x000a, h01=0x0050, text=»WRIT07«, t00=0x0012, t01=0x00b2}
0x1cd8…1cea Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0012, t01=0x00c0}
0x1cea…1cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d2}
0x1cf4…1cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00dc}
0x1cfe…1d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e6}
0x1d08…1d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f0}
0x1d12…1d20 Head {h00=0x000a, h01=0x0050, text=»WRIACC«, t00=0x0012, t01=0x00fa}
0x1d20…1d34 Head {h00=0x0010, h01=0x0050, text=» PERF WRACC «, t00=0x0012, t01=0x0108}
0x1d34…1d50 Head {h00=0x0018, h01=0x0050, text=» PERF WRFSP,FILINDUS«, t00=0x0012, t01=0x011c}
0x1d50…1d62 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0012, t01=0x0138}
0x1d62…1d6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014a}
0x1d6c…1d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0154}
0x1d76…1d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x015e}
0x1d80…1d8e Head {h00=0x000a, h01=0x0050, text=»WRTCO «, t00=0x0012, t01=0x0168}
0x1d8e…1db8 Head {h00=0x0026, h01=0x0050, text=» PERF WRDS,CURSEC WRITE SECTOR(S) «, t00=0x0012, t01=0x0176}
0x1db8…1dca Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0013, t01=0x0010}
0x1dca…1dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0022}
0x1dd4…1dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002c}
0x1dde…1de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0036}
0x1de8…1e04 Head {h00=0x0018, h01=0x0050, text=»CLSBTH CLOSE BATCH«, t00=0x0013, t01=0x0040}
0x1e04…1e1c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W0 «, t00=0x0013, t01=0x005c}
0x1e1c…1e2e Head {h00=0x000e, h01=0x0050, text=» B WRIT01 «, t00=0x0013, t01=0x0074}
0x1e2e…1e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0086}
0x1e38…1e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0090}
0x1e42…1e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009a}
0x1e4c…1e5a Head {h00=0x000a, h01=0x0050, text=»RECURR«, t00=0x0013, t01=0x00a4}
0x1e5a…1e80 Head {h00=0x0022, h01=0x0050, text=» PERF RDDS,CURSEC READ SCTR(S)«, t00=0x0013, t01=0x00b2}
0x1e80…1ea4 Head {h00=0x0020, h01=0x0050, text=» CBNE DEBINW4,=W'30',BRETTA «, t00=0x0013, t01=0x00d8}
0x1ea4…1ebc Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0013, t01=0x00fc}
0x1ebc…1eca Head {h00=0x000a, h01=0x0050, text=»BRETTA«, t00=0x0013, t01=0x0114}
0x1eca…1edc Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0013, t01=0x0122}
0x1edc…1ee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0134}
0x1ee6…1ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013e}
0x1ef0…1efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0148}
0x1efa…1f08 Head {h00=0x000a, h01=0x0050, text=»GTNEXT«, t00=0x0013, t01=0x0152}
0x1f08…1f2c Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,RBUF,W4 «, t00=0x0013, t01=0x0160}
0x1f2c…1f3a Head {h00=0x000a, h01=0x0050, text=»GT001 «, t00=0x0013, t01=0x0184}
0x1f3a…1f62 (20, 0, 400) Head {h00=0x0024, h01=0x0050, text=» PERF RDDS,DEBIN1 READ SECTOR(S)«, t00=0x0014, t01=0x0004}
0x1f62…1f76 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0014, t01=0x002c}
0x1f76…1fa0 Head {h00=0x0026, h01=0x0050, text=» CBE FC,W16,GT003 JUMP IF GETPREV «, t00=0x0014, t01=0x0040}
0x1fa0…1fc4 Head {h00=0x0020, h01=0x0050, text=» GET LINK PREV FOR CONTROL«, t00=0x0014, t01=0x006a}
0x1fc4…1fe8 Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN2,W0,W2,RBUF,W2 «, t00=0x0014, t01=0x008e}
0x1fe8…2004 Head {h00=0x0018, h01=0x0050, text=» CBE DEBIN2,W0,GT002«, t00=0x0014, t01=0x00b2}
0x2004…2024 Head {h00=0x001c, h01=0x0050, text=» CBE CURSEC,DEBIN2,GT003«, t00=0x0014, t01=0x00ce}
0x2024…204a Head {h00=0x0022, h01=0x0050, text=» IF NOT OK, ZEROISE LINK TO «, t00=0x0014, t01=0x00ee}
0x204a…2072 Head {h00=0x0024, h01=0x0050, text=» NEXT SCTR(S) IN CURRENT ONE. «, t00=0x0014, t01=0x0114}
0x2072…2092 Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W4,W2,W0,W0 «, t00=0x0014, t01=0x013c}
0x2092…20ac Head {h00=0x0016, h01=0x0050, text=» PERF WRDS,DEBIN1 «, t00=0x0014, t01=0x015c}
0x20ac…20ba Head {h00=0x000a, h01=0x0050, text=»GT002 «, t00=0x0014, t01=0x0176}
0x20ba…20d2 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W9«, t00=0x0014, t01=0x0184}
0x20d2…20e4 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0015, t01=0x000c}
0x20e4…20f2 Head {h00=0x000a, h01=0x0050, text=»GT003 «, t00=0x0015, t01=0x001e}
0x20f2…2122 Head {h00=0x002c, h01=0x0050, text=» MOVE CURSEC,DEBIN1 CURRENT SECTORNUMBER«, t00=0x0015, t01=0x002c}
0x2122…2134 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0015, t01=0x005c}
0x2134…213e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006e}
0x213e…2148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0078}
0x2148…2152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0082}
0x2152…2160 Head {h00=0x000a, h01=0x0050, text=»GTPREV«, t00=0x0015, t01=0x008c}
0x2160…2184 Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,RBUF,W2 «, t00=0x0015, t01=0x009a}
0x2184…2194 Head {h00=0x000c, h01=0x0050, text=» B GT001«, t00=0x0015, t01=0x00be}
0x2194…219e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00ce}
0x219e…21a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d8}
0x21a8…21b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e2}
0x21b2…21c0 Head {h00=0x000a, h01=0x0050, text=»DLCURR«, t00=0x0015, t01=0x00ec}
0x21c0…21d4 Head {h00=0x0010, h01=0x0050, text=» SET SWIT04 «, t00=0x0015, t01=0x00fa}
0x21d4…21ee Head {h00=0x0016, h01=0x0050, text=» PERF DLRCCH,RBUF «, t00=0x0015, t01=0x010e}
0x21ee…220a Head {h00=0x0018, h01=0x0050, text=» MOVE CURSEC,DEBIN2 «, t00=0x0015, t01=0x0128}
0x220a…221c Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0015, t01=0x0144}
0x221c…2226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0156}
0x2226…2230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0160}
0x2230…223a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016a}
0x223a…2248 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x0174}
0x2248…2256 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0182}
0x2256…2260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0190}
0x2260…226a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000a}
0x226a…22b0 Head {h00=0x0042, h01=0x0050, text=»* SUBR FREESP, GET RECORDNUMBER OF NEXT FREE RECORD IN FILE «, t00=0x0016, t01=0x0014}
0x22b0…22ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x005a}
0x22ba…22c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0064}
0x22c4…22e2 Head {h00=0x001a, h01=0x0050, text=»FREESP PROC RECN,INDEX«, t00=0x0016, t01=0x006e}
0x22e2…22fa Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0016, t01=0x008c}
0x22fa…2310 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT06 «, t00=0x0016, t01=0x00a4}
0x2310…2326 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT07 «, t00=0x0016, t01=0x00ba}
0x2326…2334 Head {h00=0x000a, h01=0x0050, text=»FREE01«, t00=0x0016, t01=0x00d0}
0x2334…2358 Head {h00=0x0020, h01=0x0050, text=» MOVE DKBIN1,FINDEXPO(INDEX)«, t00=0x0016, t01=0x00de}
0x2358…238e Head {h00=0x0032, h01=0x0050, text=» CALL GETFRE,BPOOL(DKBIN1),RPOOL(DKBIN1),RECN «, t00=0x0016, t01=0x0102}
0x238e…23a8 Head {h00=0x0016, h01=0x0050, text=» CBE RECN,W0,NOFN «, t00=0x0016, t01=0x0138}
0x23a8…23c8 Head {h00=0x001c, h01=0x0050, text=» SUB FNOOFREC(INDEX),W1 «, t00=0x0016, t01=0x0152}
0x23c8…23f8 Head {h00=0x002c, h01=0x0050, text=» CBG FNOOFREC(INDEX),F95PROC(INDEX),FND «, t00=0x0016, t01=0x0172}
0x23f8…240c Head {h00=0x0010, h01=0x0050, text=» SET SW95PR «, t00=0x0017, t01=0x0012}
0x240c…241a Head {h00=0x000a, h01=0x0050, text=» B FND«, t00=0x0017, t01=0x0026}
0x241a…2426 Head {h00=0x0008, h01=0x0050, text=»NOFN«, t00=0x0017, t01=0x0034}
0x2426…2454 Head {h00=0x002a, h01=0x0050, text=» XCOPY DKBIN3,W0,W2,RPOOL(DKBIN1),W13 «, t00=0x0017, t01=0x0040}
0x2454…2472 Head {h00=0x001a, h01=0x0050, text=» CBE DKBIN3,W0,EOFCHN «, t00=0x0017, t01=0x006e}
0x2472…2480 Head {h00=0x000a, h01=0x0050, text=»FSP02 «, t00=0x0017, t01=0x008c}
0x2480…2494 Head {h00=0x0010, h01=0x0050, text=» PERF SAVESB«, t00=0x0017, t01=0x009a}
0x2494…24ae Head {h00=0x0016, h01=0x0050, text=» PERF WRFSP,INDEX «, t00=0x0017, t01=0x00ae}
0x24ae…24c2 Head {h00=0x0010, h01=0x0050, text=» BERR RESSY «, t00=0x0017, t01=0x00c8}
0x24c2…24e2 Head {h00=0x001c, h01=0x0050, text=» PERF REFSP,DKBIN3,INDEX«, t00=0x0017, t01=0x00dc}
0x24e2…24f6 Head {h00=0x0010, h01=0x0050, text=» BERR RESSY «, t00=0x0017, t01=0x00fc}
0x24f6…250a Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x0017, t01=0x0110}
0x250a…251c Head {h00=0x000e, h01=0x0050, text=» B FREE01 «, t00=0x0017, t01=0x0124}
0x251c…252a Head {h00=0x000a, h01=0x0050, text=»RESSY «, t00=0x0017, t01=0x0136}
0x252a…253e Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x0017, t01=0x0144}
0x253e…254c Head {h00=0x000a, h01=0x0050, text=» B FND«, t00=0x0017, t01=0x0158}
0x254c…255a Head {h00=0x000a, h01=0x0050, text=»EOFCHN«, t00=0x0017, t01=0x0166}
0x255a…2574 Head {h00=0x0016, h01=0x0050, text=» TBT SWIT06,NOFSP «, t00=0x0017, t01=0x0174}
0x2574…2588 Head {h00=0x0010, h01=0x0050, text=» SET SWIT06 «, t00=0x0017, t01=0x018e}
0x2588…25a0 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN3,W2 «, t00=0x0018, t01=0x0012}
0x25a0…25b0 Head {h00=0x000c, h01=0x0050, text=» B FSP02«, t00=0x0018, t01=0x002a}
0x25b0…25be Head {h00=0x000a, h01=0x0050, text=»NOFSP «, t00=0x0018, t01=0x003a}
0x25be…25d8 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W10 «, t00=0x0018, t01=0x0048}
0x25d8…25e4 Head {h00=0x0008, h01=0x0050, text=»FND «, t00=0x0018, t01=0x0062}
0x25e4…25fe Head {h00=0x0016, h01=0x0050, text=» CBG INDEX,W1,NEFE«, t00=0x0018, t01=0x006e}
0x25fe…2612 Head {h00=0x0010, h01=0x0050, text=» SET SWITFS «, t00=0x0018, t01=0x0088}
0x2612…261e Head {h00=0x0008, h01=0x0050, text=»NEFE«, t00=0x0018, t01=0x009c}
0x261e…2630 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0018, t01=0x00a8}
0x2630…263c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x00ba}
0x263c…264a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x00c6}
0x264a…2654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d4}
0x2654…265e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00de}
0x265e…2696 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE RFRSP, FREE RECORDS ARE PASSED TO«, t00=0x0018, t01=0x00e8}
0x2696…26cc Head {h00=0x0032, h01=0x0050, text=»* FREESPACE-TABLE. RECORDNUMBER IN PM RECNO.«, t00=0x0018, t01=0x0120}
0x26cc…26d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0156}
0x26d6…26f4 Head {h00=0x001a, h01=0x0050, text=»RFRSP PROC RECNO,INDEX«, t00=0x0018, t01=0x0160}
0x26f4…2732 Head {h00=0x003a, h01=0x0050, text=» PERF GFRSPR,RECNO,INDEX GET FSP-REC WITH RECNO IN IT «, t00=0x0018, t01=0x017e}
0x2732…2768 Head {h00=0x0032, h01=0x0050, text=» CALL SETFRE,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO«, t00=0x0019, t01=0x002c}
0x2768…2788 Head {h00=0x001c, h01=0x0050, text=» ADD FNOOFREC(INDEX),W1 «, t00=0x0019, t01=0x0062}
0x2788…27b2 Head {h00=0x0026, h01=0x0050, text=» CBNE INDEX,W1,RFRSP1 JUMP IF NOT «, t00=0x0019, t01=0x0082}
0x27b2…27d0 Head {h00=0x001a, h01=0x0050, text=» SET SWITFS SYSTEMFILE«, t00=0x0019, t01=0x00ac}
0x27d0…27de Head {h00=0x000a, h01=0x0050, text=»RFRSP1«, t00=0x0019, t01=0x00ca}
0x27de…27f0 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0019, t01=0x00d8}
0x27f0…27fc Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x00ea}
0x27fc…280a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x00f6}
0x280a…2814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0104}
0x2814…2832 Head {h00=0x001a, h01=0x0050, text=»* SUBROUTINE GFRSPR «, t00=0x0019, t01=0x010e}
0x2832…286e Head {h00=0x0038, h01=0x0050, text=»* GET FREESPACE-RECORD WITH RECORDNUMBER ACCORDING«, t00=0x0019, t01=0x012c}
0x286e…2888 Head {h00=0x0016, h01=0x0050, text=»* TO RECNO IN IT«, t00=0x0019, t01=0x0168}
0x2888…2892 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0182}
0x2892…28c2 Head {h00=0x002c, h01=0x0050, text=»* SYNTAX: PERF GFRSPR,RECNO,INDEX «, t00=0x0019, t01=0x018c}
0x28c2…28f8 Head {h00=0x0032, h01=0x0050, text=»* INDEX = INDEX TO CURRENT FILE«, t00=0x001a, t01=0x002c}
0x28f8…2902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0062}
0x2902…2922 Head {h00=0x001c, h01=0x0050, text=»GFRSPR PROC RECNO,INDEX «, t00=0x001a, t01=0x006c}
0x2922…2930 Head {h00=0x000a, h01=0x0050, text=»ANFANG«, t00=0x001a, t01=0x008c}
0x2930…2948 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W1 «, t00=0x001a, t01=0x009a}
0x2948…2964 Head {h00=0x0018, h01=0x0050, text=» CBE INDEX,W1,SYSFLE«, t00=0x001a, t01=0x00b2}
0x2964…2980 Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN1,USELEN «, t00=0x001a, t01=0x00ce}
0x2980…29ae Head {h00=0x002a, h01=0x0050, text=» DIV DKBIN1,SECLEN GET NO OF SCTRS/REC«, t00=0x001a, t01=0x00ea}
0x29ae…29bc Head {h00=0x000a, h01=0x0050, text=»SYSFLE«, t00=0x001a, t01=0x0118}
0x29bc…29fa Head {h00=0x003a, h01=0x0050, text=» MOVE DEBIN4,FINDEXPO(INDEX) GET INDEX TO FREESP-POOL «, t00=0x001a, t01=0x0126}
0x29fa…2a32 Head {h00=0x0034, h01=0x0050, text=» XCOPY DKBIN2,W0,W2,RPOOL(DEBIN4),W15 OCC SPACE «, t00=0x001a, t01=0x0164}
0x2a32…2a4a Head {h00=0x0014, h01=0x0050, text=» SUB DKBIN2,W12 «, t00=0x001b, t01=0x000c}
0x2a4a…2a60 Head {h00=0x0012, h01=0x0050, text=» MUL DKBIN2,W8«, t00=0x001b, t01=0x0024}
0x2a60…2a7a Head {h00=0x0016, h01=0x0050, text=» DIV DKBIN2,DKBIN1«, t00=0x001b, t01=0x003a}
0x2a7a…2aac Head {h00=0x002e, h01=0x0050, text=» MUL DKBIN2,DKBIN1 GET RID OF UNUSED BITS«, t00=0x001b, t01=0x0054}
0x2aac…2aec Head {h00=0x003c, h01=0x0050, text=» XCOPY DKBIN1,W0,W2,RPOOL(DEBIN4),W17 1ST INDICATED RNR «, t00=0x001b, t01=0x0086}
0x2aec…2b1e Head {h00=0x002e, h01=0x0050, text=» MOVE DKBIN3,DKBIN1 SAVE 1ST INDICATED RNR«, t00=0x001b, t01=0x00c6}
0x2b1e…2b50 Head {h00=0x002e, h01=0x0050, text=» ADD DKBIN1,DKBIN2 GET LAST INDICATED RNR «, t00=0x001b, t01=0x00f8}
0x2b50…2b66 Head {h00=0x0012, h01=0x0050, text=» SUB DKBIN1,W1«, t00=0x001b, t01=0x012a}
0x2b66…2b84 Head {h00=0x001a, h01=0x0050, text=» CBG RECNO,DKBIN1,NEXT«, t00=0x001b, t01=0x0140}
0x2b84…2ba2 Head {h00=0x001a, h01=0x0050, text=» CBL RECNO,DKBIN3,PREV«, t00=0x001b, t01=0x015e}
0x2ba2…2bb0 Head {h00=0x000a, h01=0x0050, text=»GFRET «, t00=0x001b, t01=0x017c}
0x2bb0…2bd4 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBIN4,FINDEXPO(INDEX)«, t00=0x001b, t01=0x018a}
0x2bd4…2be0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x001e}
0x2be0…2c06 Head {h00=0x0022, h01=0x0050, text=»NEXT GET NEXT FREESP-RECORD «, t00=0x001c, t01=0x002a}
0x2c06…2c1e Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W13«, t00=0x001c, t01=0x0050}
0x2c1e…2c2a Head {h00=0x0008, h01=0x0050, text=»READ«, t00=0x001c, t01=0x0068}
0x2c2a…2c64 Head {h00=0x0036, h01=0x0050, text=» XCOPY DEBIN4,W0,W2,RPOOL(DEBIN4),DKBIN1 GET LINK «, t00=0x001c, t01=0x0074}
0x2c64…2c80 Head {h00=0x0018, h01=0x0050, text=» CBE DEBIN4,W0,GFRET«, t00=0x001c, t01=0x00ae}
0x2c80…2c94 Head {h00=0x0010, h01=0x0050, text=» PERF SAVESB«, t00=0x001c, t01=0x00ca}
0x2c94…2cae Head {h00=0x0016, h01=0x0050, text=» PERF WRFSP,INDEX «, t00=0x001c, t01=0x00de}
0x2cae…2cc2 Head {h00=0x0010, h01=0x0050, text=» BERR GFREST«, t00=0x001c, t01=0x00f8}
0x2cc2…2ce2 Head {h00=0x001c, h01=0x0050, text=» PERF REFSP,DEBIN4,INDEX«, t00=0x001c, t01=0x010c}
0x2ce2…2cf6 Head {h00=0x0010, h01=0x0050, text=» BERR GFREST«, t00=0x001c, t01=0x012c}
0x2cf6…2d0a Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x001c, t01=0x0140}
0x2d0a…2d1c Head {h00=0x000e, h01=0x0050, text=» B ANFANG «, t00=0x001c, t01=0x0154}
0x2d1c…2d2a Head {h00=0x000a, h01=0x0050, text=»GFREST«, t00=0x001c, t01=0x0166}
0x2d2a…2d3e Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x001c, t01=0x0174}
0x2d3e…2d4e Head {h00=0x000c, h01=0x0050, text=» B GFRET«, t00=0x001c, t01=0x0188}
0x2d4e…2d5a Head {h00=0x0008, h01=0x0050, text=»PREV«, t00=0x001d, t01=0x0008}
0x2d5a…2d72 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W11«, t00=0x001d, t01=0x0014}
0x2d72…2d82 Head {h00=0x000c, h01=0x0050, text=» B READ «, t00=0x001d, t01=0x002c}
0x2d82…2d90 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x003c}
0x2d90…2d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004a}
0x2d9a…2da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0054}
0x2da4…2dc2 Head {h00=0x001a, h01=0x0050, text=»* SUBROUTINE OFRSP«, t00=0x001d, t01=0x005e}
0x2dc2…2df6 Head {h00=0x0030, h01=0x0050, text=»* SET RECORD ACCORDING TO RECNO OCCUPIED«, t00=0x001d, t01=0x007c}
0x2df6…2e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00b0}
0x2e00…2e1e Head {h00=0x001a, h01=0x0050, text=»OFRSP PROC RECNO,INDEX«, t00=0x001d, t01=0x00ba}
0x2e1e…2e3e Head {h00=0x001c, h01=0x0050, text=» PERF GFRSPR,RECNO,INDEX«, t00=0x001d, t01=0x00d8}
0x2e3e…2e74 Head {h00=0x0032, h01=0x0050, text=» CALL SETOCC,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO«, t00=0x001d, t01=0x00f8}
0x2e74…2e80 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x012e}
0x2e80…2e8e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x013a}
0x2e8e…2e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0148}
0x2e98…2ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0152}
0x2ea2…2eca Head {h00=0x0024, h01=0x0050, text=»SAVESB PROC SAVE SYSBUF TO POOL«, t00=0x001d, t01=0x015c}
0x2eca…2ee8 Head {h00=0x001a, h01=0x0050, text=» MOVE WORK(W1),DEBINW4«, t00=0x001d, t01=0x0184}
0x2ee8…2ef6 Head {h00=0x000a, h01=0x0050, text=»SAVPOO«, t00=0x001e, t01=0x0012}
0x2ef6…2f0e Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W1 «, t00=0x001e, t01=0x0020}
0x2f0e…2f26 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN2,W1 «, t00=0x001e, t01=0x0038}
0x2f26…2f54 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A «, t00=0x001e, t01=0x0050}
0x2f54…2f68 Head {h00=0x0010, h01=0x0050, text=» BNERR SAVOK«, t00=0x001e, t01=0x007e}
0x2f68…2f78 Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x001e, t01=0x0092}
0x2f78…2f8a Head {h00=0x000e, h01=0x0050, text=» B SAVPOO «, t00=0x001e, t01=0x00a2}
0x2f8a…2f98 Head {h00=0x000a, h01=0x0050, text=»SAVOK «, t00=0x001e, t01=0x00b4}
0x2f98…2fb6 Head {h00=0x001a, h01=0x0050, text=» MOVE WORK(W2),DKBIN1 «, t00=0x001e, t01=0x00c2}
0x2fb6…2fe2 Head {h00=0x0028, h01=0x0050, text=» COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0«, t00=0x001e, t01=0x00e0}
0x2fe2…3010 Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10«, t00=0x001e, t01=0x010c}
0x3010…302e Head {h00=0x001a, h01=0x0050, text=» MOVE DEBINW4,WORK(W1)«, t00=0x001e, t01=0x013a}
0x302e…303a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x0158}
0x303a…3048 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x0164}
0x3048…3052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0172}
0x3052…305c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x017c}
0x305c…308a Head {h00=0x002a, h01=0x0050, text=»RESTSB PROC RESTORE SYSBUF FROM POOL «, t00=0x001e, t01=0x0186}
0x308a…30a8 Head {h00=0x001a, h01=0x0050, text=» MOVE DKBIN1,WORK(W2) «, t00=0x001f, t01=0x0024}
0x30a8…30d4 Head {h00=0x0028, h01=0x0050, text=» COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9«, t00=0x001f, t01=0x0042}
0x30d4…3102 Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0«, t00=0x001f, t01=0x006e}
0x3102…3130 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A «, t00=0x001f, t01=0x009c}
0x3130…313c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x00ca}
0x313c…314a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x00d6}
0x314a…3158 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00e4}
0x3158…3162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f2}
0x3162…31ae Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINE DLRCCH, REMOVE RECORD FROM CHAIN. SWIT04 ON: USERFILE«, t00=0x001f, t01=0x00fc}
0x31ae…31b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0148}
0x31b8…31d0 Head {h00=0x0014, h01=0x0050, text=»DLRCCH PROC BUF «, t00=0x001f, t01=0x0152}
0x31d0…31e4 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL8«, t00=0x001f, t01=0x016a}
0x31e4…31f8 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL9«, t00=0x001f, t01=0x017e}
0x31f8…321a (32, 0, 400) Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN2,W0,W2,BUF,W2«, t00=0x0020, t01=0x0004}
0x321a…323c Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,BUF,W4«, t00=0x0020, t01=0x0026}
0x323c…325a Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN1,W0,DL001 «, t00=0x0020, t01=0x0048}
0x325a…326c Head {h00=0x000e, h01=0x0050, text=» SET BOOL9«, t00=0x0020, t01=0x0066}
0x326c…327e Head {h00=0x000e, h01=0x0050, text=» B RREPRE «, t00=0x0020, t01=0x0078}
0x327e…328c Head {h00=0x000a, h01=0x0050, text=»DL001 «, t00=0x0020, t01=0x008a}
0x328c…32a8 Head {h00=0x0018, h01=0x0050, text=» PERF RD,DEBIN1,BUF «, t00=0x0020, t01=0x0098}
0x32a8…32bc Head {h00=0x0010, h01=0x0050, text=» BERR DLRET «, t00=0x0020, t01=0x00b4}
0x32bc…32de Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,BUF,W2«, t00=0x0020, t01=0x00c8}
0x32de…3300 Head {h00=0x001e, h01=0x0050, text=» XCOPY BUF,W2,W2,DEBIN2,W0«, t00=0x0020, t01=0x00ea}
0x3300…331e Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN2,W0,DL004 «, t00=0x0020, t01=0x010c}
0x331e…333a Head {h00=0x0018, h01=0x0050, text=» PERF WR,DEBIN5,BUF «, t00=0x0020, t01=0x012a}
0x333a…336e Head {h00=0x0030, h01=0x0050, text=» XCOPY DEBIN2,W0,W2,BUF,W4 GET LINK FORWARD «, t00=0x0020, t01=0x0146}
0x336e…339e Head {h00=0x002c, h01=0x0050, text=» CBE DEBIN2,W0,DL003 IF NO MORE IN CHAIN«, t00=0x0020, t01=0x017a}
0x339e…33ca Head {h00=0x0028, h01=0x0050, text=» PERF RD,DEBIN2,BUF READ NEXT RECORD«, t00=0x0021, t01=0x001a}
0x33ca…33de Head {h00=0x0010, h01=0x0050, text=» BERR DLRET «, t00=0x0021, t01=0x0046}
0x33de…3412 Head {h00=0x0030, h01=0x0050, text=» XCOPY BUF,W2,W2,DEBIN5,W0 SET LINK BACKWARD«, t00=0x0021, t01=0x005a}
0x3412…3446 Head {h00=0x0030, h01=0x0050, text=» PERF WR,DEBIN2,BUF WRITE WITH UPDATED LINK «, t00=0x0021, t01=0x008e}
0x3446…3454 Head {h00=0x000a, h01=0x0050, text=»DL003 «, t00=0x0021, t01=0x00c2}
0x3454…3470 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN5,DEBIN1 «, t00=0x0021, t01=0x00d0}
0x3470…3480 Head {h00=0x000c, h01=0x0050, text=» B DL006«, t00=0x0021, t01=0x00ec}
0x3480…348e Head {h00=0x000a, h01=0x0050, text=»DL004 «, t00=0x0021, t01=0x00fc}
0x348e…34aa Head {h00=0x0018, h01=0x0050, text=» PERF WR,DEBIN1,BUF «, t00=0x0021, t01=0x010a}
0x34aa…34b8 Head {h00=0x000a, h01=0x0050, text=»RREPRE«, t00=0x0021, t01=0x0126}
0x34b8…34d6 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN2,W0,DL008 «, t00=0x0021, t01=0x0134}
0x34d6…34e4 Head {h00=0x000a, h01=0x0050, text=»DL006 «, t00=0x0021, t01=0x0152}
0x34e4…34f6 Head {h00=0x000e, h01=0x0050, text=» SET BOOL8«, t00=0x0021, t01=0x0160}
0x34f6…350e Head {h00=0x0014, h01=0x0050, text=» TBT BOOL9,DLRET«, t00=0x0021, t01=0x0172}
0x350e…351e Head {h00=0x000c, h01=0x0050, text=» B DLR2 «, t00=0x0021, t01=0x018a}
0x351e…352c Head {h00=0x000a, h01=0x0050, text=»DL008 «, t00=0x0022, t01=0x000a}
0x352c…3548 Head {h00=0x0018, h01=0x0050, text=» PERF RD,DEBIN2,BUF «, t00=0x0022, t01=0x0018}
0x3548…355c Head {h00=0x0010, h01=0x0050, text=» BERR DLRET «, t00=0x0022, t01=0x0034}
0x355c…357e Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,BUF,W4«, t00=0x0022, t01=0x0048}
0x357e…35a0 Head {h00=0x001e, h01=0x0050, text=» XCOPY BUF,W4,W2,DEBIN1,W0«, t00=0x0022, t01=0x006a}
0x35a0…35bc Head {h00=0x0018, h01=0x0050, text=» PERF WR,DEBIN2,BUF «, t00=0x0022, t01=0x008c}
0x35bc…35d0 Head {h00=0x0010, h01=0x0050, text=» BERR DLRET «, t00=0x0022, t01=0x00a8}
0x35d0…35dc Head {h00=0x0008, h01=0x0050, text=»DLR2«, t00=0x0022, t01=0x00bc}
0x35dc…35fa Head {h00=0x001a, h01=0x0050, text=» MOVE DEBIN1,FILINDUS «, t00=0x0022, t01=0x00c8}
0x35fa…3612 Head {h00=0x0014, h01=0x0050, text=» TBT SWIT04,DLR1«, t00=0x0022, t01=0x00e6}
0x3612…362a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W1 «, t00=0x0022, t01=0x00fe}
0x362a…3636 Head {h00=0x0008, h01=0x0050, text=»DLR1«, t00=0x0022, t01=0x0116}
0x3636…3658 Head {h00=0x001e, h01=0x0050, text=» PERF RFRSP,DEBIN5,DEBIN1 «, t00=0x0022, t01=0x0122}
0x3658…3666 Head {h00=0x000a, h01=0x0050, text=»DLRET «, t00=0x0022, t01=0x0144}
0x3666…3678 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0022, t01=0x0152}
0x3678…3684 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x0164}
0x3684…3692 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x0170}
0x3692…369c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x017e}
0x369c…36a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0188}
0x36a6…36b0 (35, 2, 30) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0004}
0x36b0…36bc Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0023, t01=0x000e}
0x36bc…36c0 Head {h00=0x4004, h01=0x0000}
0x36c0…36c4 00 23 00 1a ┆ # ┆
0x36c4…36cc (36, 1, 8) 20 04 00 00 00 24 00 04 ┆ $ ┆