|
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: 14006 (0x36b6)
Notes: pts_type(SC)
Names: »DKRUT1.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DKRUT1.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DKRUT1.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DKRUT1.SC«
IDENT DKRUT1 UPD 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 DDINIT 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…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DKRUT1 UPD 80 01 18/CHST «, t00=0x0000, t01=0x0004}
0x0028…0032 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x002c}
0x0032…0074 Head {h00=0x003e, h01=0x003a, text=»**********************************************************«, t00=0x0000, t01=0x0036}
0x0074…007e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0000, t01=0x0078}
0x007e…00b8 Head {h00=0x0036, h01=0x0032, text=»* THIS MODULE HANDLES ALL DISC IN- AND OUTPUT.«, t00=0x0000, t01=0x0082}
0x00b8…00c2 Head {h00=0x0006, h01=0x0002, text=»* «, t00=0x0000, t01=0x00bc}
0x00c2…0106 Head {h00=0x0040, h01=0x0050, text=»* AFTER EXECUTION, THE DATA-ITEM DEBINW4 WILL BE SET AS «, t00=0x0000, t01=0x00c6}
0x0106…011c Head {h00=0x0012, h01=0x000e, text=»* FOLLOWS:«, t00=0x0000, t01=0x010a}
0x011c…0140 Head {h00=0x0020, h01=0x001c, text=»* 0 = NO ERROR«, t00=0x0000, t01=0x0120}
0x0140…0174 Head {h00=0x0030, h01=0x002b, text=»* 20 = NO SYSTEMDISC IN SYSTEM «, t00=0x0000, t01=0x0144}
0x0174…01aa Head {h00=0x0032, h01=0x0050, text=»* 21 = NO DISC IN SPECIFIED UNIT «, t00=0x0000, t01=0x0178}
0x01aa…01d4 Head {h00=0x0026, h01=0x0050, text=»* 22 = DISC I/0-ERROR«, t00=0x0001, t01=0x001e}
0x01d4…0202 Head {h00=0x002a, h01=0x0050, text=»* 23 = DISC NOT OPERABLE «, t00=0x0001, t01=0x0048}
0x0202…020c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0001, t01=0x0076}
0x020c…0250 Head {h00=0x0040, h01=0x003b, text=»*********************************************************** «, t00=0x0001, t01=0x0080}
0x0250…0264 Head {h00=0x0010, h01=0x0050, text=» DDUM DDINIT«, t00=0x0001, t01=0x00c4}
0x0264…0272 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x00d8}
0x0272…0284 Head {h00=0x000e, h01=0x0050, text=» EXT WAIT «, t00=0x0001, t01=0x00e6}
0x0284…0298 Head {h00=0x0010, h01=0x0050, text=» EXT RELEAS «, t00=0x0001, t01=0x00f8}
0x0298…02ac Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0001, t01=0x010c}
0x02ac…02be Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0001, t01=0x0120}
0x02be…02d2 Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0001, t01=0x0132}
0x02d2…02e6 Head {h00=0x0010, h01=0x0050, text=» EXT GETFRE «, t00=0x0001, t01=0x0146}
0x02e6…02fa Head {h00=0x0010, h01=0x0050, text=» EXT SETFRE «, t00=0x0001, t01=0x015a}
0x02fa…030e Head {h00=0x0010, h01=0x0050, text=» EXT SETOCC «, t00=0x0001, t01=0x016e}
0x030e…0322 Head {h00=0x0010, h01=0x0050, text=» EXT RETURN «, t00=0x0001, t01=0x0182}
0x0322…0334 Head {h00=0x000e, h01=0x0050, text=» EXT ATTWB«, t00=0x0002, t01=0x0008}
0x0334…0348 Head {h00=0x0010, h01=0x0050, text=» EXT RESTOR «, t00=0x0002, t01=0x001a}
0x0348…035a Head {h00=0x000e, h01=0x0050, text=» EXT COND «, t00=0x0002, t01=0x002e}
0x035a…036e Head {h00=0x0010, h01=0x0050, text=» EXT READDK «, t00=0x0002, t01=0x0040}
0x036e…0382 Head {h00=0x0010, h01=0x0050, text=» EXT WRITDK «, t00=0x0002, t01=0x0054}
0x0382…0396 Head {h00=0x0010, h01=0x0050, text=» ENTRY RDDS «, t00=0x0002, t01=0x0068}
0x0396…03aa Head {h00=0x0010, h01=0x0050, text=» ENTRY WRDS «, t00=0x0002, t01=0x007c}
0x03aa…03be Head {h00=0x0010, h01=0x0050, text=» ENTRY DISU «, t00=0x0002, t01=0x0090}
0x03be…03d2 Head {h00=0x0010, h01=0x0050, text=» ENTRY WRFSP«, t00=0x0002, t01=0x00a4}
0x03d2…03e6 Head {h00=0x0010, h01=0x0050, text=» ENTRY REFSP«, t00=0x0002, t01=0x00b8}
0x03e6…03fc Head {h00=0x0012, h01=0x0050, text=» ENTRY WRIACC «, t00=0x0002, t01=0x00cc}
0x03fc…0412 Head {h00=0x0012, h01=0x0050, text=» ENTRY WRICUR «, t00=0x0002, t01=0x00e2}
0x0412…0428 Head {h00=0x0012, h01=0x0050, text=» ENTRY FREESP «, t00=0x0002, t01=0x00f8}
0x0428…043c Head {h00=0x0010, h01=0x0050, text=» ENTRY WRTCO«, t00=0x0002, t01=0x010e}
0x043c…0452 Head {h00=0x0012, h01=0x0050, text=» ENTRY CLSBTH «, t00=0x0002, t01=0x0122}
0x0452…0468 Head {h00=0x0012, h01=0x0050, text=» ENTRY RECURR «, t00=0x0002, t01=0x0138}
0x0468…047a Head {h00=0x000e, h01=0x0050, text=» ENTRY RD «, t00=0x0002, t01=0x014e}
0x047a…048c Head {h00=0x000e, h01=0x0050, text=» ENTRY WR «, t00=0x0002, t01=0x0160}
0x048c…04a0 Head {h00=0x0010, h01=0x0050, text=» ENTRY RFRSP«, t00=0x0002, t01=0x0172}
0x04a0…04b4 Head {h00=0x0010, h01=0x0050, text=» ENTRY RDACC«, t00=0x0002, t01=0x0186}
0x04b4…04c8 Head {h00=0x0010, h01=0x0050, text=» ENTRY OFRSP«, t00=0x0003, t01=0x000a}
0x04c8…04de Head {h00=0x0012, h01=0x0050, text=» ENTRY GTNEXT «, t00=0x0003, t01=0x001e}
0x04de…04f4 Head {h00=0x0012, h01=0x0050, text=» ENTRY GTPREV «, t00=0x0003, t01=0x0034}
0x04f4…050a Head {h00=0x0012, h01=0x0050, text=» ENTRY DLCURR «, t00=0x0003, t01=0x004a}
0x050a…0520 Head {h00=0x0012, h01=0x0050, text=» ENTRY DLRCCH «, t00=0x0003, t01=0x0060}
0x0520…052e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0003, t01=0x0076}
0x052e…054e Head {h00=0x001c, h01=0x0050, text=»DISU PROC FUZ,RECNO,BUF «, t00=0x0003, t01=0x0084}
0x054e…0560 Head {h00=0x000e, h01=0x0050, text=» PBIN FUZ «, t00=0x0003, t01=0x00a4}
0x0560…0574 Head {h00=0x0010, h01=0x0050, text=» PBIN RECNO «, t00=0x0003, t01=0x00b6}
0x0574…0586 Head {h00=0x000e, h01=0x0050, text=» PSTRG BUF«, t00=0x0003, t01=0x00ca}
0x0586…0598 Head {h00=0x000e, h01=0x0050, text=» IB FUZ C«, t00=0x0003, t01=0x00dc}
0x0598…05ac Head {h00=0x0010, h01=0x0050, text=» READSY C «, t00=0x0003, t01=0x00ee}
0x05ac…05c0 Head {h00=0x0010, h01=0x0050, text=» WRITSY C «, t00=0x0003, t01=0x0102}
0x05c0…05d4 Head {h00=0x0010, h01=0x0050, text=» READUS C «, t00=0x0003, t01=0x0116}
0x05d4…05e4 Head {h00=0x000c, h01=0x0050, text=» WRITUS«, t00=0x0003, t01=0x012a}
0x05e4…05f2 Head {h00=0x000a, h01=0x0050, text=»READSY«, t00=0x0003, t01=0x013a}
0x05f2…062a Head {h00=0x0034, h01=0x0050, text=» CALL READDK,DISK,FILECODE(W1),BUF,SECLEN,RECNO «, t00=0x0003, t01=0x0148}
0x062a…0640 Head {h00=0x0012, h01=0x0050, text=» BOK READSY01 «, t00=0x0003, t01=0x0180}
0x0640…0652 Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x0004, t01=0x0008}
0x0652…066c Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,READSY«, t00=0x0004, t01=0x001a}
0x066c…067c Head {h00=0x000c, h01=0x0050, text=»READSY01«, t00=0x0004, t01=0x0034}
0x067c…068e Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0004, t01=0x0044}
0x068e…069a Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0004, t01=0x0056}
0x069a…06a8 Head {h00=0x000a, h01=0x0050, text=»WRITSY«, t00=0x0004, t01=0x0062}
0x06a8…06e0 Head {h00=0x0034, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(W1),BUF,SECLEN,RECNO «, t00=0x0004, t01=0x0070}
0x06e0…06f6 Head {h00=0x0012, h01=0x0050, text=» BOK WRITSY01 «, t00=0x0004, t01=0x00a8}
0x06f6…0708 Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x0004, t01=0x00be}
0x0708…0722 Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,WRITSY«, t00=0x0004, t01=0x00d0}
0x0722…0732 Head {h00=0x000c, h01=0x0050, text=»WRITSY01«, t00=0x0004, t01=0x00ea}
0x0732…0744 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0004, t01=0x00fa}
0x0744…0750 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0004, t01=0x010c}
0x0750…075e Head {h00=0x000a, h01=0x0050, text=»READUS«, t00=0x0004, t01=0x0118}
0x075e…079c Head {h00=0x003a, h01=0x0050, text=» CALL READDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO «, t00=0x0004, t01=0x0126}
0x079c…07b2 Head {h00=0x0012, h01=0x0050, text=» BOK READUS01 «, t00=0x0004, t01=0x0164}
0x07b2…07c4 Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x0004, t01=0x017a}
0x07c4…07de Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,READUS«, t00=0x0004, t01=0x018c}
0x07de…07ee Head {h00=0x000c, h01=0x0050, text=»READUS01«, t00=0x0005, t01=0x0016}
0x07ee…0800 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0005, t01=0x0026}
0x0800…080c Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0005, t01=0x0038}
0x080c…081a Head {h00=0x000a, h01=0x0050, text=»WRITUS«, t00=0x0005, t01=0x0044}
0x081a…0858 Head {h00=0x003a, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO «, t00=0x0005, t01=0x0052}
0x0858…086e Head {h00=0x0012, h01=0x0050, text=» BOK WRITUS01 «, t00=0x0005, t01=0x0090}
0x086e…0880 Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x0005, t01=0x00a6}
0x0880…089a Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,WRITUS«, t00=0x0005, t01=0x00b8}
0x089a…08aa Head {h00=0x000c, h01=0x0050, text=»WRITUS01«, t00=0x0005, t01=0x00d2}
0x08aa…08bc Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0005, t01=0x00e2}
0x08bc…08c8 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0005, t01=0x00f4}
0x08c8…08d6 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0005, t01=0x0100}
0x08d6…08e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x010e}
0x08e4…08ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011c}
0x08ee…093e Head {h00=0x004c, h01=0x0050, text=»* SUBROUTINE RDDS AND WRDS: READ AND WRITE D/E-RECORDS WITH A LENGTH O«, t00=0x0005, t01=0x0126}
0x093e…098e Head {h00=0x004c, h01=0x0050, text=»* MORE DATASECTORS ON DISC. THE LENGTH OF THE D/E-RECORD IS GIVEN BY '«, t00=0x0005, t01=0x0176}
0x098e…09de Head {h00=0x004c, h01=0x0050, text=»* 'USELEN' IS SET AFTER FILE-ASSIGNMENT FOR RESP. TASK DEPENDING ON A «, t00=0x0006, t01=0x0036}
0x09de…0a08 Head {h00=0x0026, h01=0x0050, text=»* FIRST RECORD OF THE USERFILE. «, t00=0x0006, t01=0x0086}
0x0a08…0a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b0}
0x0a12…0a28 Head {h00=0x0012, h01=0x0050, text=»RDDS PROC RNR «, t00=0x0006, t01=0x00ba}
0x0a28…0a3a Head {h00=0x000e, h01=0x0050, text=» PBIN RNR «, t00=0x0006, t01=0x00d0}
0x0a3a…0a76 Head {h00=0x0038, h01=0x0050, text=» CALL READDK,DISK,FILECODE(FILINDUS),RBUF,USELEN,RNR«, t00=0x0006, t01=0x00e2}
0x0a76…0a88 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0006, t01=0x011e}
0x0a88…0a94 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0130}
0x0a94…0aa2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x013c}
0x0aa2…0aac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x014a}
0x0aac…0ac2 Head {h00=0x0012, h01=0x0050, text=»WRDS PROC RNR «, t00=0x0006, t01=0x0154}
0x0ac2…0ad4 Head {h00=0x000e, h01=0x0050, text=» PBIN RNR «, t00=0x0006, t01=0x016a}
0x0ad4…0b10 Head {h00=0x0038, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(FILINDUS),RBUF,USELEN,RNR«, t00=0x0006, t01=0x017c}
0x0b10…0b22 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0007, t01=0x0028}
0x0b22…0b2e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x003a}
0x0b2e…0b3c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0007, t01=0x0046}
0x0b3c…0b4a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0007, t01=0x0054}
0x0b4a…0b8e Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0007, t01=0x0062}
0x0b8e…0b98 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00a6}
0x0b98…0bb6 Head {h00=0x001a, h01=0x0015, text=»* SUBROUTINE DKER «, t00=0x0007, t01=0x00b0}
0x0bb6…0bc0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x00ce}
0x0bc0…0bee Head {h00=0x002a, h01=0x0025, text=»* PURPOSE: SPECIFIES DISK-ERROR «, t00=0x0007, t01=0x00d8}
0x0bee…0bf8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0106}
0x0bf8…0c2c Head {h00=0x0030, h01=0x0050, text=»* CHANGED ITEMS: DKBIN1,DKBIN2,DEBINW4 «, t00=0x0007, t01=0x0110}
0x0c2c…0c36 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0007, t01=0x0144}
0x0c36…0c7a Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0007, t01=0x014e}
0x0c7a…0c84 (8, 0, 400) Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0008, t01=0x0004}
0x0c84…0c96 Head {h00=0x000e, h01=0x0009, text=»DKER PROC «, t00=0x0008, t01=0x000e}
0x0c96…0cac Head {h00=0x0012, h01=0x0050, text=» CLEAR NEWVOL «, t00=0x0008, t01=0x0020}
0x0cac…0cc6 Head {h00=0x0016, h01=0x0050, text=» XSTAT DISK,DKBIN1«, t00=0x0008, t01=0x0036}
0x0cc6…0ce2 Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,DKBIN1 «, t00=0x0008, t01=0x0050}
0x0ce2…0d00 Head {h00=0x001a, h01=0x0050, text=» MOVE DKBIN2,=X'8022' «, t00=0x0008, t01=0x006c}
0x0d00…0d20 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0008, t01=0x008a}
0x0d20…0d32 Head {h00=0x000e, h01=0x0050, text=» BZ DKER10«, t00=0x0008, t01=0x00aa}
0x0d32…0d56 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW4,W22 I/O-ERROR «, t00=0x0008, t01=0x00bc}
0x0d56…0d62 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x00e0}
0x0d62…0d70 Head {h00=0x000a, h01=0x0050, text=»DKER10«, t00=0x0008, t01=0x00ec}
0x0d70…0d8c Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN2,=X'800'«, t00=0x0008, t01=0x00fa}
0x0d8c…0dac Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0008, t01=0x0116}
0x0dac…0dbe Head {h00=0x000e, h01=0x0050, text=» BZ DKER20«, t00=0x0008, t01=0x0136}
0x0dbe…0de2 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW4,=W'30' NO DATA«, t00=0x0008, t01=0x0148}
0x0de2…0dee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x016c}
0x0dee…0dfc Head {h00=0x000a, h01=0x0050, text=»DKER20«, t00=0x0008, t01=0x0178}
0x0dfc…0e16 Head {h00=0x0016, h01=0x0050, text=» MOVE DKBIN2,W128 «, t00=0x0008, t01=0x0186}
0x0e16…0e36 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0009, t01=0x0010}
0x0e36…0e48 Head {h00=0x000e, h01=0x0050, text=» BZ DKER30«, t00=0x0009, t01=0x0030}
0x0e48…0e6e Head {h00=0x0022, h01=0x0050, text=» SET NEWVOL NEW VOLUME LOADED «, t00=0x0009, t01=0x0042}
0x0e6e…0e7a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0068}
0x0e7a…0e88 Head {h00=0x000a, h01=0x0050, text=»DKER30«, t00=0x0009, t01=0x0074}
0x0e88…0ea0 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN2,W1 «, t00=0x0009, t01=0x0082}
0x0ea0…0ec0 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0009, t01=0x009a}
0x0ec0…0ed2 Head {h00=0x000e, h01=0x0050, text=» BZ DKER40«, t00=0x0009, t01=0x00ba}
0x0ed2…0f00 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,=W'23' DISC NOT OPERABLE«, t00=0x0009, t01=0x00cc}
0x0f00…0f0e Head {h00=0x000a, h01=0x0050, text=»DKER40«, t00=0x0009, t01=0x00fa}
0x0f0e…0f1a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0009, t01=0x0108}
0x0f1a…0f28 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0009, t01=0x0114}
0x0f28…0f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0122}
0x0f32…0f54 Head {h00=0x001e, h01=0x0050, text=»* WRITE FREESPACE-RECORD«, t00=0x0009, t01=0x012c}
0x0f54…0f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x014e}
0x0f5e…0f74 Head {h00=0x0012, h01=0x0050, text=»WRFSP PROC MAX«, t00=0x0009, t01=0x0158}
0x0f74…0f86 Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0009, t01=0x016e}
0x0f86…0fa8 Head {h00=0x001e, h01=0x0050, text=» MOVE DKBIN1,FINDEXPO(MAX)«, t00=0x0009, t01=0x0180}
0x0fa8…0fd4 Head {h00=0x0028, h01=0x0050, text=» COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9«, t00=0x000a, t01=0x0012}
0x0fd4…1002 Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0«, t00=0x000a, t01=0x003e}
0x1002…1022 Head {h00=0x001c, h01=0x0050, text=» MOVE DKBIN1,FFSNR(MAX) «, t00=0x000a, t01=0x006c}
0x1022…105e Head {h00=0x0038, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(MAX),SYSBUF,SECLEN,DKBIN1«, t00=0x000a, t01=0x008c}
0x105e…1074 Head {h00=0x0012, h01=0x0050, text=» BNERR WRFRET «, t00=0x000a, t01=0x00c8}
0x1074…1086 Head {h00=0x000e, h01=0x0050, text=» PERF DKER«, t00=0x000a, t01=0x00de}
0x1086…1094 Head {h00=0x000a, h01=0x0050, text=»WRFRET«, t00=0x000a, t01=0x00f0}
0x1094…10a6 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000a, t01=0x00fe}
0x10a6…10b2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000a, t01=0x0110}
0x10b2…10c0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000a, t01=0x011c}
0x10c0…10ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012a}
0x10ca…10d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0134}
0x10d4…10de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x013e}
0x10de…10fc Head {h00=0x001a, h01=0x0050, text=»REFSP PROC FSRNR,FIND «, t00=0x000a, t01=0x0148}
0x10fc…110e Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x000a, t01=0x0166}
0x110e…111c Head {h00=0x000a, h01=0x0050, text=»REFS01«, t00=0x000a, t01=0x0178}
0x111c…1158 Head {h00=0x0038, h01=0x0050, text=» CALL READDK,DISK,FILECODE(FIND),SYSBUF,SECLEN,FSRNR«, t00=0x000a, t01=0x0186}
0x1158…116e Head {h00=0x0012, h01=0x0050, text=» BNERR REFCOP «, t00=0x000b, t01=0x0032}
0x116e…1180 Head {h00=0x000e, h01=0x0050, text=» PERF DKER«, t00=0x000b, t01=0x0048}
0x1180…119a Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,REFS01«, t00=0x000b, t01=0x005a}
0x119a…11a8 Head {h00=0x000a, h01=0x0050, text=»REFCOP«, t00=0x000b, t01=0x0074}
0x11a8…11cc Head {h00=0x0020, h01=0x0050, text=» MOVE DKBIN1,FINDEXPO(FIND) «, t00=0x000b, t01=0x0082}
0x11cc…11ec Head {h00=0x001c, h01=0x0050, text=» MOVE FFSNR(FIND),FSRNR «, t00=0x000b, t01=0x00a6}
0x11ec…1218 Head {h00=0x0028, h01=0x0050, text=» COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0«, t00=0x000b, t01=0x00c6}
0x1218…1246 Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10«, t00=0x000b, t01=0x00f2}
0x1246…1254 Head {h00=0x000a, h01=0x0050, text=»REFEND«, t00=0x000b, t01=0x0120}
0x1254…1266 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000b, t01=0x012e}
0x1266…1272 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x0140}
0x1272…1280 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x014c}
0x1280…128e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x015a}
0x128e…1298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0168}
0x1298…12b0 Head {h00=0x0014, h01=0x0050, text=»RD PROC BIN,BUF «, t00=0x000b, t01=0x0172}
0x12b0…12c8 Head {h00=0x0014, h01=0x0050, text=» TBT SWIT04,US01«, t00=0x000b, t01=0x018a}
0x12c8…12e6 Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W1,BIN,BUF «, t00=0x000c, t01=0x0012}
0x12e6…12f6 Head {h00=0x000c, h01=0x0050, text=» B DRET «, t00=0x000c, t01=0x0030}
0x12f6…1302 Head {h00=0x0008, h01=0x0050, text=»US01«, t00=0x000c, t01=0x0040}
0x1302…1320 Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W3,BIN,BUF «, t00=0x000c, t01=0x004c}
0x1320…132c Head {h00=0x0008, h01=0x0050, text=»DRET«, t00=0x000c, t01=0x006a}
0x132c…1338 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x0076}
0x1338…1346 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0082}
0x1346…135e Head {h00=0x0014, h01=0x0050, text=»WR PROC BIN,BUF «, t00=0x000c, t01=0x0090}
0x135e…1376 Head {h00=0x0014, h01=0x0050, text=» TBT SWIT04,US02«, t00=0x000c, t01=0x00a8}
0x1376…1394 Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W2,BIN,BUF «, t00=0x000c, t01=0x00c0}
0x1394…13a4 Head {h00=0x000c, h01=0x0050, text=» B DRET «, t00=0x000c, t01=0x00de}
0x13a4…13b0 Head {h00=0x0008, h01=0x0050, text=»US02«, t00=0x000c, t01=0x00ee}
0x13b0…13ce Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W4,BIN,BUF «, t00=0x000c, t01=0x00fa}
0x13ce…13de Head {h00=0x000c, h01=0x0050, text=» B DRET «, t00=0x000c, t01=0x0118}
0x13de…13ec Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x0128}
0x13ec…13fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0136}
0x13fa…1404 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0144}
0x1404…140e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x014e}
0x140e…143e Head {h00=0x002c, h01=0x0050, text=»* SUBROUTINE RDACC, READ ACCUMULATORS«, t00=0x000c, t01=0x0158}
0x143e…1448 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0188}
0x1448…145a (13, 0, 400) Head {h00=0x000e, h01=0x0050, text=»RDACC PROC«, t00=0x000d, t01=0x0004}
0x145a…146c Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x000d, t01=0x0016}
0x146c…1490 Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W3,DEBIN1,SYSBUF «, t00=0x000d, t01=0x0028}
0x1490…14a4 Head {h00=0x0010, h01=0x0050, text=» BERR RDARET«, t00=0x000d, t01=0x004c}
0x14a4…14d2 Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(PINACC),W0,W188,SYSBUF,W10«, t00=0x000d, t01=0x0060}
0x14d2…14fe Head {h00=0x0028, h01=0x0050, text=» XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0«, t00=0x000d, t01=0x008e}
0x14fe…150c Head {h00=0x000a, h01=0x0050, text=»RDARET«, t00=0x000d, t01=0x00ba}
0x150c…151e Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000d, t01=0x00c8}
0x151e…152a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000d, t01=0x00da}
0x152a…1538 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000d, t01=0x00e6}
0x1538…1542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f4}
0x1542…1574 Head {h00=0x002e, h01=0x0050, text=»* SUBROUTINE WRACC, WRITE ACCUMULATORS «, t00=0x000d, t01=0x00fe}
0x1574…157e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0130}
0x157e…1590 Head {h00=0x000e, h01=0x0050, text=»WRACC PROC«, t00=0x000d, t01=0x013a}
0x1590…15a2 Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x000d, t01=0x014c}
0x15a2…15c2 Head {h00=0x001c, h01=0x0050, text=» MOVE SYSBUF,=X'414300' «, t00=0x000d, t01=0x015e}
0x15c2…15f0 Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(PINACC),W0«, t00=0x000d, t01=0x017e}
0x15f0…161c Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,RPOOL(PINACC),W9«, t00=0x000e, t01=0x001c}
0x161c…1640 Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W4,DEBIN1,SYSBUF «, t00=0x000e, t01=0x0048}
0x1640…1652 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000e, t01=0x006c}
0x1652…165e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x007e}
0x165e…166c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x008a}
0x166c…1676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0098}
0x1676…1684 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x00a2}
0x1684…168e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b0}
0x168e…1698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ba}
0x1698…16b0 Head {h00=0x0014, h01=0x0050, text=»DUMPROC PROC FC «, t00=0x000e, t01=0x00c4}
0x16b0…16be Head {h00=0x000a, h01=0x0050, text=»WRICUR«, t00=0x000e, t01=0x00dc}
0x16be…16e2 Head {h00=0x0020, h01=0x0050, text=» PERF FREESP,DEBIN1,FILINDUS«, t00=0x000e, t01=0x00ea}
0x16e2…16f8 Head {h00=0x0012, h01=0x0050, text=» BNERR WRIT01 «, t00=0x000e, t01=0x010e}
0x16f8…1726 Head {h00=0x002a, h01=0x0050, text=» SET SWIT01 NO MORE SECTORS AVAILABLE «, t00=0x000e, t01=0x0124}
0x1726…1734 Head {h00=0x000a, h01=0x0050, text=»WRIT01«, t00=0x000e, t01=0x0152}
0x1734…1750 Head {h00=0x0018, h01=0x0050, text=» MOVE STR2A,=X'4453'«, t00=0x000e, t01=0x0160}
0x1750…1772 Head {h00=0x001e, h01=0x0050, text=» COPY RBUF,W0,W2,STR2A,W0 «, t00=0x000e, t01=0x017c}
0x1772…1796 Head {h00=0x0020, h01=0x0050, text=» PTR NEXT SCTR TO CURR REC«, t00=0x000f, t01=0x000e}
0x1796…17ba Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,W4,W2,DEBIN1,W0 «, t00=0x000f, t01=0x0032}
0x17ba…17c8 Head {h00=0x000a, h01=0x0050, text=»WRIT05«, t00=0x000f, t01=0x0056}
0x17c8…17f2 Head {h00=0x0026, h01=0x0050, text=» PERF WRDS,CURSEC WRITE RECORDAREA«, t00=0x000f, t01=0x0064}
0x17f2…1808 Head {h00=0x0012, h01=0x0050, text=» BNERR WRIT02 «, t00=0x000f, t01=0x008e}
0x1808…1812 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a4}
0x1812…182e Head {h00=0x0018, h01=0x0050, text=»* WRITING - ERROR «, t00=0x000f, t01=0x00ae}
0x182e…1838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ca}
0x1838…186c Head {h00=0x0030, h01=0x0050, text=» PERF FREESP,DEBIN2,FILINDUS GET NEW FREESP «, t00=0x000f, t01=0x00d4}
0x186c…18a4 Head {h00=0x0034, h01=0x0050, text=» MOVE CURSEC,DEBIN2 NEW FREESP = CURRENT SCTRNO «, t00=0x000f, t01=0x0108}
0x18a4…18c2 Head {h00=0x001a, h01=0x0050, text=» GET LINK PREV SCTR «, t00=0x000f, t01=0x0140}
0x18c2…18e6 Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN3,W0,W2,RBUF,W2 «, t00=0x000f, t01=0x015e}
0x18e6…1912 Head {h00=0x0028, h01=0x0050, text=» CBE DEBIN3,W0,ENDERR FIRST RECORD? «, t00=0x000f, t01=0x0182}
0x1912…1940 Head {h00=0x002a, h01=0x0050, text=» PERF RDDS,DEBIN3 READ PREV RECORD(S) «, t00=0x0010, t01=0x001e}
0x1940…1954 Head {h00=0x0010, h01=0x0050, text=» BERR ENDERR«, t00=0x0010, t01=0x004c}
0x1954…197c Head {h00=0x0024, h01=0x0050, text=» SET CONTINUATION IN PREV SCTR«, t00=0x0010, t01=0x0060}
0x197c…19a0 Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,W4,W2,CURSEC,W0 «, t00=0x0010, t01=0x0088}
0x19a0…19ce Head {h00=0x002a, h01=0x0050, text=» PERF WRDS,DEBIN3 WRITE PREV RECORD(S)«, t00=0x0010, t01=0x00ac}
0x19ce…19e4 Head {h00=0x0012, h01=0x0050, text=» BNERR WRIT05 «, t00=0x0010, t01=0x00da}
0x19e4…1a04 Head {h00=0x001c, h01=0x0050, text=» GET LINK PREV OF PREV«, t00=0x0010, t01=0x00f0}
0x1a04…1a2a Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN3,W0,W2,SYSBUF,W2 «, t00=0x0010, t01=0x0110}
0x1a2a…1a56 Head {h00=0x0028, h01=0x0050, text=» CBE DEBIN3,W0,ENDERR FIRST RECORD? «, t00=0x0010, t01=0x0136}
0x1a56…1a82 Head {h00=0x0028, h01=0x0050, text=» PERF RDDS,DEBIN3 READ PREV OF PREV «, t00=0x0010, t01=0x0162}
0x1a82…1a96 Head {h00=0x0010, h01=0x0050, text=» BERR ENDERR«, t00=0x0010, t01=0x018e}
0x1a96…1abc Head {h00=0x0022, h01=0x0050, text=» PREV OF PREV = END OF CHAIN«, t00=0x0011, t01=0x0012}
0x1abc…1adc Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W4,W2,W0,W0 «, t00=0x0011, t01=0x0038}
0x1adc…1b08 Head {h00=0x0028, h01=0x0050, text=» PERF WRDS,DEBIN3 WRITE PREV OF PREV«, t00=0x0011, t01=0x0058}
0x1b08…1b16 Head {h00=0x000a, h01=0x0050, text=»ENDERR«, t00=0x0011, t01=0x0084}
0x1b16…1b44 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,W21 INDICATE DISC-ERROR «, t00=0x0011, t01=0x0092}
0x1b44…1b56 Head {h00=0x000e, h01=0x0050, text=» B WRIT07 «, t00=0x0011, t01=0x00c0}
0x1b56…1b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d2}
0x1b60…1b72 Head {h00=0x000e, h01=0x0050, text=»* OKAY «, t00=0x0011, t01=0x00dc}
0x1b72…1b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ee}
0x1b7c…1b8a Head {h00=0x000a, h01=0x0050, text=»WRIT02«, t00=0x0011, t01=0x00f8}
0x1b8a…1ba8 Head {h00=0x001a, h01=0x0050, text=» SET LINK PREV SCTR «, t00=0x0011, t01=0x0106}
0x1ba8…1bcc Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,W2,W2,CURSEC,W0 «, t00=0x0011, t01=0x0124}
0x1bcc…1bfc Head {h00=0x002c, h01=0x0050, text=» XCOPY RBUF,W4,W2,W0,W0 LINK TO NEXT = 0«, t00=0x0011, t01=0x0148}
0x1bfc…1c1a Head {h00=0x001a, h01=0x0050, text=» SET NO OF OCC BYTES«, t00=0x0011, t01=0x0178}
0x1c1a…1c3a Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W6,W2,W10,W0«, t00=0x0012, t01=0x0008}
0x1c3a…1c68 Head {h00=0x002a, h01=0x0050, text=» MOVE CURSEC,DEBIN1 SET CURRENT SCTRNO«, t00=0x0012, t01=0x0028}
0x1c68…1c82 Head {h00=0x0016, h01=0x0050, text=» TBF SWIT01,WRIT07«, t00=0x0012, t01=0x0056}
0x1c82…1cb4 Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W10 'NO MORE SPACE ON DISC' «, t00=0x0012, t01=0x0070}
0x1cb4…1cc2 Head {h00=0x000a, h01=0x0050, text=»WRIT07«, t00=0x0012, t01=0x00a2}
0x1cc2…1cd4 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0012, t01=0x00b0}
0x1cd4…1cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c2}
0x1cde…1ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00cc}
0x1ce8…1cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d6}
0x1cf2…1cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e0}
0x1cfc…1d0a Head {h00=0x000a, h01=0x0050, text=»WRIACC«, t00=0x0012, t01=0x00ea}
0x1d0a…1d1e Head {h00=0x0010, h01=0x0050, text=» PERF WRACC «, t00=0x0012, t01=0x00f8}
0x1d1e…1d3a Head {h00=0x0018, h01=0x0050, text=» PERF WRFSP,FILINDUS«, t00=0x0012, t01=0x010c}
0x1d3a…1d4c Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0012, t01=0x0128}
0x1d4c…1d56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013a}
0x1d56…1d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0144}
0x1d60…1d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014e}
0x1d6a…1d78 Head {h00=0x000a, h01=0x0050, text=»WRTCO «, t00=0x0012, t01=0x0158}
0x1d78…1da2 Head {h00=0x0026, h01=0x0050, text=» PERF WRDS,CURSEC WRITE SECTOR(S) «, t00=0x0012, t01=0x0166}
0x1da2…1db4 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0012, t01=0x0190}
0x1db4…1dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0012}
0x1dbe…1dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001c}
0x1dc8…1dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0026}
0x1dd2…1dee Head {h00=0x0018, h01=0x0050, text=»CLSBTH CLOSE BATCH«, t00=0x0013, t01=0x0030}
0x1dee…1e06 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W0 «, t00=0x0013, t01=0x004c}
0x1e06…1e18 Head {h00=0x000e, h01=0x0050, text=» B WRIT01 «, t00=0x0013, t01=0x0064}
0x1e18…1e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0076}
0x1e22…1e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0080}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x008a}
0x1e36…1e44 Head {h00=0x000a, h01=0x0050, text=»RECURR«, t00=0x0013, t01=0x0094}
0x1e44…1e6a Head {h00=0x0022, h01=0x0050, text=» PERF RDDS,CURSEC READ SCTR(S)«, t00=0x0013, t01=0x00a2}
0x1e6a…1e8e Head {h00=0x0020, h01=0x0050, text=» CBNE DEBINW4,=W'30',BRETTA «, t00=0x0013, t01=0x00c8}
0x1e8e…1ea6 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0013, t01=0x00ec}
0x1ea6…1eb4 Head {h00=0x000a, h01=0x0050, text=»BRETTA«, t00=0x0013, t01=0x0104}
0x1eb4…1ec6 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0013, t01=0x0112}
0x1ec6…1ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0124}
0x1ed0…1eda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012e}
0x1eda…1ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0138}
0x1ee4…1ef2 Head {h00=0x000a, h01=0x0050, text=»GTNEXT«, t00=0x0013, t01=0x0142}
0x1ef2…1f16 Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,RBUF,W4 «, t00=0x0013, t01=0x0150}
0x1f16…1f24 Head {h00=0x000a, h01=0x0050, text=»GT001 «, t00=0x0013, t01=0x0174}
0x1f24…1f4c Head {h00=0x0024, h01=0x0050, text=» PERF RDDS,DEBIN1 READ SECTOR(S)«, t00=0x0013, t01=0x0182}
0x1f4c…1f60 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0014, t01=0x001a}
0x1f60…1f8a Head {h00=0x0026, h01=0x0050, text=» CBE FC,W16,GT003 JUMP IF GETPREV «, t00=0x0014, t01=0x002e}
0x1f8a…1fae Head {h00=0x0020, h01=0x0050, text=» GET LINK PREV FOR CONTROL«, t00=0x0014, t01=0x0058}
0x1fae…1fd2 Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN2,W0,W2,RBUF,W2 «, t00=0x0014, t01=0x007c}
0x1fd2…1fee Head {h00=0x0018, h01=0x0050, text=» CBE DEBIN2,W0,GT002«, t00=0x0014, t01=0x00a0}
0x1fee…200e Head {h00=0x001c, h01=0x0050, text=» CBE CURSEC,DEBIN2,GT003«, t00=0x0014, t01=0x00bc}
0x200e…2034 Head {h00=0x0022, h01=0x0050, text=» IF NOT OK, ZEROISE LINK TO «, t00=0x0014, t01=0x00dc}
0x2034…205c Head {h00=0x0024, h01=0x0050, text=» NEXT SCTR(S) IN CURRENT ONE. «, t00=0x0014, t01=0x0102}
0x205c…207c Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W4,W2,W0,W0 «, t00=0x0014, t01=0x012a}
0x207c…2096 Head {h00=0x0016, h01=0x0050, text=» PERF WRDS,DEBIN1 «, t00=0x0014, t01=0x014a}
0x2096…20a4 Head {h00=0x000a, h01=0x0050, text=»GT002 «, t00=0x0014, t01=0x0164}
0x20a4…20bc Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W9«, t00=0x0014, t01=0x0172}
0x20bc…20ce Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0014, t01=0x018a}
0x20ce…20dc Head {h00=0x000a, h01=0x0050, text=»GT003 «, t00=0x0015, t01=0x000c}
0x20dc…210c Head {h00=0x002c, h01=0x0050, text=» MOVE CURSEC,DEBIN1 CURRENT SECTORNUMBER«, t00=0x0015, t01=0x001a}
0x210c…211e Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0015, t01=0x004a}
0x211e…2128 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005c}
0x2128…2132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0066}
0x2132…213c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0070}
0x213c…214a Head {h00=0x000a, h01=0x0050, text=»GTPREV«, t00=0x0015, t01=0x007a}
0x214a…216e Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,RBUF,W2 «, t00=0x0015, t01=0x0088}
0x216e…217e Head {h00=0x000c, h01=0x0050, text=» B GT001«, t00=0x0015, t01=0x00ac}
0x217e…2188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00bc}
0x2188…2192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c6}
0x2192…219c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d0}
0x219c…21aa Head {h00=0x000a, h01=0x0050, text=»DLCURR«, t00=0x0015, t01=0x00da}
0x21aa…21be Head {h00=0x0010, h01=0x0050, text=» SET SWIT04 «, t00=0x0015, t01=0x00e8}
0x21be…21d8 Head {h00=0x0016, h01=0x0050, text=» PERF DLRCCH,RBUF «, t00=0x0015, t01=0x00fc}
0x21d8…21f4 Head {h00=0x0018, h01=0x0050, text=» MOVE CURSEC,DEBIN2 «, t00=0x0015, t01=0x0116}
0x21f4…2206 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0015, t01=0x0132}
0x2206…2210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0144}
0x2210…221a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014e}
0x221a…2224 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0158}
0x2224…2232 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x0162}
0x2232…2240 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0170}
0x2240…224a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017e}
0x224a…2254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0188}
0x2254…229a (22, 0, 398) Head {h00=0x0042, h01=0x0050, text=»* SUBR FREESP, GET RECORDNUMBER OF NEXT FREE RECORD IN FILE «, t00=0x0016, t01=0x0004}
0x229a…22a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004a}
0x22a4…22ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0054}
0x22ae…22cc Head {h00=0x001a, h01=0x0050, text=»FREESP PROC RECN,INDEX«, t00=0x0016, t01=0x005e}
0x22cc…22e4 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0016, t01=0x007c}
0x22e4…22fa Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT06 «, t00=0x0016, t01=0x0094}
0x22fa…2310 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT07 «, t00=0x0016, t01=0x00aa}
0x2310…231e Head {h00=0x000a, h01=0x0050, text=»FREE01«, t00=0x0016, t01=0x00c0}
0x231e…2342 Head {h00=0x0020, h01=0x0050, text=» MOVE DKBIN1,FINDEXPO(INDEX)«, t00=0x0016, t01=0x00ce}
0x2342…2378 Head {h00=0x0032, h01=0x0050, text=» CALL GETFRE,BPOOL(DKBIN1),RPOOL(DKBIN1),RECN «, t00=0x0016, t01=0x00f2}
0x2378…2392 Head {h00=0x0016, h01=0x0050, text=» CBE RECN,W0,NOFN «, t00=0x0016, t01=0x0128}
0x2392…23b2 Head {h00=0x001c, h01=0x0050, text=» SUB FNOOFREC(INDEX),W1 «, t00=0x0016, t01=0x0142}
0x23b2…23e2 Head {h00=0x002c, h01=0x0050, text=» CBG FNOOFREC(INDEX),F95PROC(INDEX),FND «, t00=0x0016, t01=0x0162}
0x23e2…23f6 (23, 0, 400) Head {h00=0x0010, h01=0x0050, text=» SET SW95PR «, t00=0x0017, t01=0x0004}
0x23f6…2404 Head {h00=0x000a, h01=0x0050, text=» B FND«, t00=0x0017, t01=0x0018}
0x2404…2410 Head {h00=0x0008, h01=0x0050, text=»NOFN«, t00=0x0017, t01=0x0026}
0x2410…243e Head {h00=0x002a, h01=0x0050, text=» XCOPY DKBIN3,W0,W2,RPOOL(DKBIN1),W13 «, t00=0x0017, t01=0x0032}
0x243e…245c Head {h00=0x001a, h01=0x0050, text=» CBE DKBIN3,W0,EOFCHN «, t00=0x0017, t01=0x0060}
0x245c…246a Head {h00=0x000a, h01=0x0050, text=»FSP02 «, t00=0x0017, t01=0x007e}
0x246a…247e Head {h00=0x0010, h01=0x0050, text=» PERF SAVESB«, t00=0x0017, t01=0x008c}
0x247e…2498 Head {h00=0x0016, h01=0x0050, text=» PERF WRFSP,INDEX «, t00=0x0017, t01=0x00a0}
0x2498…24ac Head {h00=0x0010, h01=0x0050, text=» BERR RESSY «, t00=0x0017, t01=0x00ba}
0x24ac…24cc Head {h00=0x001c, h01=0x0050, text=» PERF REFSP,DKBIN3,INDEX«, t00=0x0017, t01=0x00ce}
0x24cc…24e0 Head {h00=0x0010, h01=0x0050, text=» BERR RESSY «, t00=0x0017, t01=0x00ee}
0x24e0…24f4 Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x0017, t01=0x0102}
0x24f4…2506 Head {h00=0x000e, h01=0x0050, text=» B FREE01 «, t00=0x0017, t01=0x0116}
0x2506…2514 Head {h00=0x000a, h01=0x0050, text=»RESSY «, t00=0x0017, t01=0x0128}
0x2514…2528 Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x0017, t01=0x0136}
0x2528…2536 Head {h00=0x000a, h01=0x0050, text=» B FND«, t00=0x0017, t01=0x014a}
0x2536…2544 Head {h00=0x000a, h01=0x0050, text=»EOFCHN«, t00=0x0017, t01=0x0158}
0x2544…255e Head {h00=0x0016, h01=0x0050, text=» TBT SWIT06,NOFSP «, t00=0x0017, t01=0x0166}
0x255e…2572 Head {h00=0x0010, h01=0x0050, text=» SET SWIT06 «, t00=0x0017, t01=0x0180}
0x2572…258a (24, 0, 400) Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN3,W2 «, t00=0x0018, t01=0x0004}
0x258a…259a Head {h00=0x000c, h01=0x0050, text=» B FSP02«, t00=0x0018, t01=0x001c}
0x259a…25a8 Head {h00=0x000a, h01=0x0050, text=»NOFSP «, t00=0x0018, t01=0x002c}
0x25a8…25c2 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W10 «, t00=0x0018, t01=0x003a}
0x25c2…25ce Head {h00=0x0008, h01=0x0050, text=»FND «, t00=0x0018, t01=0x0054}
0x25ce…25e8 Head {h00=0x0016, h01=0x0050, text=» CBG INDEX,W1,NEFE«, t00=0x0018, t01=0x0060}
0x25e8…25fc Head {h00=0x0010, h01=0x0050, text=» SET SWITFS «, t00=0x0018, t01=0x007a}
0x25fc…2608 Head {h00=0x0008, h01=0x0050, text=»NEFE«, t00=0x0018, t01=0x008e}
0x2608…261a Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0018, t01=0x009a}
0x261a…2626 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x00ac}
0x2626…2634 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x00b8}
0x2634…263e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c6}
0x263e…2648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00d0}
0x2648…2680 Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE RFRSP, FREE RECORDS ARE PASSED TO«, t00=0x0018, t01=0x00da}
0x2680…26b6 Head {h00=0x0032, h01=0x0050, text=»* FREESPACE-TABLE. RECORDNUMBER IN PM RECNO.«, t00=0x0018, t01=0x0112}
0x26b6…26c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0148}
0x26c0…26de Head {h00=0x001a, h01=0x0050, text=»RFRSP PROC RECNO,INDEX«, t00=0x0018, t01=0x0152}
0x26de…271c Head {h00=0x003a, h01=0x0050, text=» PERF GFRSPR,RECNO,INDEX GET FSP-REC WITH RECNO IN IT «, t00=0x0018, t01=0x0170}
0x271c…2752 Head {h00=0x0032, h01=0x0050, text=» CALL SETFRE,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO«, t00=0x0019, t01=0x001e}
0x2752…2772 Head {h00=0x001c, h01=0x0050, text=» ADD FNOOFREC(INDEX),W1 «, t00=0x0019, t01=0x0054}
0x2772…279c Head {h00=0x0026, h01=0x0050, text=» CBNE INDEX,W1,RFRSP1 JUMP IF NOT «, t00=0x0019, t01=0x0074}
0x279c…27ba Head {h00=0x001a, h01=0x0050, text=» SET SWITFS SYSTEMFILE«, t00=0x0019, t01=0x009e}
0x27ba…27c8 Head {h00=0x000a, h01=0x0050, text=»RFRSP1«, t00=0x0019, t01=0x00bc}
0x27c8…27da Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0019, t01=0x00ca}
0x27da…27e6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x00dc}
0x27e6…27f4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x00e8}
0x27f4…27fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f6}
0x27fe…281c Head {h00=0x001a, h01=0x0050, text=»* SUBROUTINE GFRSPR «, t00=0x0019, t01=0x0100}
0x281c…2858 Head {h00=0x0038, h01=0x0050, text=»* GET FREESPACE-RECORD WITH RECORDNUMBER ACCORDING«, t00=0x0019, t01=0x011e}
0x2858…2872 Head {h00=0x0016, h01=0x0050, text=»* TO RECNO IN IT«, t00=0x0019, t01=0x015a}
0x2872…287c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0174}
0x287c…28ac Head {h00=0x002c, h01=0x0050, text=»* SYNTAX: PERF GFRSPR,RECNO,INDEX «, t00=0x0019, t01=0x017e}
0x28ac…28e2 Head {h00=0x0032, h01=0x0050, text=»* INDEX = INDEX TO CURRENT FILE«, t00=0x001a, t01=0x001e}
0x28e2…28ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0054}
0x28ec…290c Head {h00=0x001c, h01=0x0050, text=»GFRSPR PROC RECNO,INDEX «, t00=0x001a, t01=0x005e}
0x290c…291a Head {h00=0x000a, h01=0x0050, text=»ANFANG«, t00=0x001a, t01=0x007e}
0x291a…2932 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W1 «, t00=0x001a, t01=0x008c}
0x2932…294e Head {h00=0x0018, h01=0x0050, text=» CBE INDEX,W1,SYSFLE«, t00=0x001a, t01=0x00a4}
0x294e…296a Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN1,USELEN «, t00=0x001a, t01=0x00c0}
0x296a…2998 Head {h00=0x002a, h01=0x0050, text=» DIV DKBIN1,SECLEN GET NO OF SCTRS/REC«, t00=0x001a, t01=0x00dc}
0x2998…29a6 Head {h00=0x000a, h01=0x0050, text=»SYSFLE«, t00=0x001a, t01=0x010a}
0x29a6…29e4 Head {h00=0x003a, h01=0x0050, text=» MOVE DEBIN4,FINDEXPO(INDEX) GET INDEX TO FREESP-POOL «, t00=0x001a, t01=0x0118}
0x29e4…2a1c Head {h00=0x0034, h01=0x0050, text=» XCOPY DKBIN2,W0,W2,RPOOL(DEBIN4),W15 OCC SPACE «, t00=0x001a, t01=0x0156}
0x2a1c…2a34 Head {h00=0x0014, h01=0x0050, text=» SUB DKBIN2,W12 «, t00=0x001a, t01=0x018e}
0x2a34…2a4a Head {h00=0x0012, h01=0x0050, text=» MUL DKBIN2,W8«, t00=0x001b, t01=0x0016}
0x2a4a…2a64 Head {h00=0x0016, h01=0x0050, text=» DIV DKBIN2,DKBIN1«, t00=0x001b, t01=0x002c}
0x2a64…2a96 Head {h00=0x002e, h01=0x0050, text=» MUL DKBIN2,DKBIN1 GET RID OF UNUSED BITS«, t00=0x001b, t01=0x0046}
0x2a96…2ad6 Head {h00=0x003c, h01=0x0050, text=» XCOPY DKBIN1,W0,W2,RPOOL(DEBIN4),W17 1ST INDICATED RNR «, t00=0x001b, t01=0x0078}
0x2ad6…2b08 Head {h00=0x002e, h01=0x0050, text=» MOVE DKBIN3,DKBIN1 SAVE 1ST INDICATED RNR«, t00=0x001b, t01=0x00b8}
0x2b08…2b3a Head {h00=0x002e, h01=0x0050, text=» ADD DKBIN1,DKBIN2 GET LAST INDICATED RNR «, t00=0x001b, t01=0x00ea}
0x2b3a…2b50 Head {h00=0x0012, h01=0x0050, text=» SUB DKBIN1,W1«, t00=0x001b, t01=0x011c}
0x2b50…2b6e Head {h00=0x001a, h01=0x0050, text=» CBG RECNO,DKBIN1,NEXT«, t00=0x001b, t01=0x0132}
0x2b6e…2b8c Head {h00=0x001a, h01=0x0050, text=» CBL RECNO,DKBIN3,PREV«, t00=0x001b, t01=0x0150}
0x2b8c…2b9a Head {h00=0x000a, h01=0x0050, text=»GFRET «, t00=0x001b, t01=0x016e}
0x2b9a…2bbe Head {h00=0x0020, h01=0x0050, text=» MOVE DEBIN4,FINDEXPO(INDEX)«, t00=0x001b, t01=0x017c}
0x2bbe…2bca Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001c, t01=0x0010}
0x2bca…2bf0 Head {h00=0x0022, h01=0x0050, text=»NEXT GET NEXT FREESP-RECORD «, t00=0x001c, t01=0x001c}
0x2bf0…2c08 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W13«, t00=0x001c, t01=0x0042}
0x2c08…2c14 Head {h00=0x0008, h01=0x0050, text=»READ«, t00=0x001c, t01=0x005a}
0x2c14…2c4e Head {h00=0x0036, h01=0x0050, text=» XCOPY DEBIN4,W0,W2,RPOOL(DEBIN4),DKBIN1 GET LINK «, t00=0x001c, t01=0x0066}
0x2c4e…2c6a Head {h00=0x0018, h01=0x0050, text=» CBE DEBIN4,W0,GFRET«, t00=0x001c, t01=0x00a0}
0x2c6a…2c7e Head {h00=0x0010, h01=0x0050, text=» PERF SAVESB«, t00=0x001c, t01=0x00bc}
0x2c7e…2c98 Head {h00=0x0016, h01=0x0050, text=» PERF WRFSP,INDEX «, t00=0x001c, t01=0x00d0}
0x2c98…2cac Head {h00=0x0010, h01=0x0050, text=» BERR GFREST«, t00=0x001c, t01=0x00ea}
0x2cac…2ccc Head {h00=0x001c, h01=0x0050, text=» PERF REFSP,DEBIN4,INDEX«, t00=0x001c, t01=0x00fe}
0x2ccc…2ce0 Head {h00=0x0010, h01=0x0050, text=» BERR GFREST«, t00=0x001c, t01=0x011e}
0x2ce0…2cf4 Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x001c, t01=0x0132}
0x2cf4…2d06 Head {h00=0x000e, h01=0x0050, text=» B ANFANG «, t00=0x001c, t01=0x0146}
0x2d06…2d14 Head {h00=0x000a, h01=0x0050, text=»GFREST«, t00=0x001c, t01=0x0158}
0x2d14…2d28 Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x001c, t01=0x0166}
0x2d28…2d38 Head {h00=0x000c, h01=0x0050, text=» B GFRET«, t00=0x001c, t01=0x017a}
0x2d38…2d44 Head {h00=0x0008, h01=0x0050, text=»PREV«, t00=0x001c, t01=0x018a}
0x2d44…2d5c Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W11«, t00=0x001d, t01=0x0008}
0x2d5c…2d6c Head {h00=0x000c, h01=0x0050, text=» B READ «, t00=0x001d, t01=0x0020}
0x2d6c…2d7a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x0030}
0x2d7a…2d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x003e}
0x2d84…2d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0048}
0x2d8e…2dac Head {h00=0x001a, h01=0x0050, text=»* SUBROUTINE OFRSP«, t00=0x001d, t01=0x0052}
0x2dac…2de0 Head {h00=0x0030, h01=0x0050, text=»* SET RECORD ACCORDING TO RECNO OCCUPIED«, t00=0x001d, t01=0x0070}
0x2de0…2dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00a4}
0x2dea…2e08 Head {h00=0x001a, h01=0x0050, text=»OFRSP PROC RECNO,INDEX«, t00=0x001d, t01=0x00ae}
0x2e08…2e28 Head {h00=0x001c, h01=0x0050, text=» PERF GFRSPR,RECNO,INDEX«, t00=0x001d, t01=0x00cc}
0x2e28…2e5e Head {h00=0x0032, h01=0x0050, text=» CALL SETOCC,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO«, t00=0x001d, t01=0x00ec}
0x2e5e…2e6a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x0122}
0x2e6a…2e78 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x012e}
0x2e78…2e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x013c}
0x2e82…2e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0146}
0x2e8c…2eb4 Head {h00=0x0024, h01=0x0050, text=»SAVESB PROC SAVE SYSBUF TO POOL«, t00=0x001d, t01=0x0150}
0x2eb4…2ed2 Head {h00=0x001a, h01=0x0050, text=» MOVE WORK(W1),DEBINW4«, t00=0x001d, t01=0x0178}
0x2ed2…2ee0 Head {h00=0x000a, h01=0x0050, text=»SAVPOO«, t00=0x001e, t01=0x0008}
0x2ee0…2ef8 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W1 «, t00=0x001e, t01=0x0016}
0x2ef8…2f10 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN2,W1 «, t00=0x001e, t01=0x002e}
0x2f10…2f3e Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A «, t00=0x001e, t01=0x0046}
0x2f3e…2f52 Head {h00=0x0010, h01=0x0050, text=» BNERR SAVOK«, t00=0x001e, t01=0x0074}
0x2f52…2f62 Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x001e, t01=0x0088}
0x2f62…2f74 Head {h00=0x000e, h01=0x0050, text=» B SAVPOO «, t00=0x001e, t01=0x0098}
0x2f74…2f82 Head {h00=0x000a, h01=0x0050, text=»SAVOK «, t00=0x001e, t01=0x00aa}
0x2f82…2fa0 Head {h00=0x001a, h01=0x0050, text=» MOVE WORK(W2),DKBIN1 «, t00=0x001e, t01=0x00b8}
0x2fa0…2fcc Head {h00=0x0028, h01=0x0050, text=» COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0«, t00=0x001e, t01=0x00d6}
0x2fcc…2ffa Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10«, t00=0x001e, t01=0x0102}
0x2ffa…3018 Head {h00=0x001a, h01=0x0050, text=» MOVE DEBINW4,WORK(W1)«, t00=0x001e, t01=0x0130}
0x3018…3024 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x014e}
0x3024…3032 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001e, t01=0x015a}
0x3032…303c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0168}
0x303c…3046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0172}
0x3046…3074 Head {h00=0x002a, h01=0x0050, text=»RESTSB PROC RESTORE SYSBUF FROM POOL «, t00=0x001e, t01=0x017c}
0x3074…3092 Head {h00=0x001a, h01=0x0050, text=» MOVE DKBIN1,WORK(W2) «, t00=0x001f, t01=0x001a}
0x3092…30be Head {h00=0x0028, h01=0x0050, text=» COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9«, t00=0x001f, t01=0x0038}
0x30be…30ec Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0«, t00=0x001f, t01=0x0064}
0x30ec…311a Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A «, t00=0x001f, t01=0x0092}
0x311a…3126 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x00c0}
0x3126…3134 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x00cc}
0x3134…3142 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00da}
0x3142…314c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e8}
0x314c…3198 Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINE DLRCCH, REMOVE RECORD FROM CHAIN. SWIT04 ON: USERFILE«, t00=0x001f, t01=0x00f2}
0x3198…31a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013e}
0x31a2…31ba Head {h00=0x0014, h01=0x0050, text=»DLRCCH PROC BUF «, t00=0x001f, t01=0x0148}
0x31ba…31ce Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL8«, t00=0x001f, t01=0x0160}
0x31ce…31e2 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL9«, t00=0x001f, t01=0x0174}
0x31e2…3204 Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN2,W0,W2,BUF,W2«, t00=0x001f, t01=0x0188}
0x3204…3226 Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,BUF,W4«, t00=0x0020, t01=0x001a}
0x3226…3244 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN1,W0,DL001 «, t00=0x0020, t01=0x003c}
0x3244…3256 Head {h00=0x000e, h01=0x0050, text=» SET BOOL9«, t00=0x0020, t01=0x005a}
0x3256…3268 Head {h00=0x000e, h01=0x0050, text=» B RREPRE «, t00=0x0020, t01=0x006c}
0x3268…3276 Head {h00=0x000a, h01=0x0050, text=»DL001 «, t00=0x0020, t01=0x007e}
0x3276…3292 Head {h00=0x0018, h01=0x0050, text=» PERF RD,DEBIN1,BUF «, t00=0x0020, t01=0x008c}
0x3292…32a6 Head {h00=0x0010, h01=0x0050, text=» BERR DLRET «, t00=0x0020, t01=0x00a8}
0x32a6…32c8 Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,BUF,W2«, t00=0x0020, t01=0x00bc}
0x32c8…32ea Head {h00=0x001e, h01=0x0050, text=» XCOPY BUF,W2,W2,DEBIN2,W0«, t00=0x0020, t01=0x00de}
0x32ea…3308 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN2,W0,DL004 «, t00=0x0020, t01=0x0100}
0x3308…3324 Head {h00=0x0018, h01=0x0050, text=» PERF WR,DEBIN5,BUF «, t00=0x0020, t01=0x011e}
0x3324…3358 Head {h00=0x0030, h01=0x0050, text=» XCOPY DEBIN2,W0,W2,BUF,W4 GET LINK FORWARD «, t00=0x0020, t01=0x013a}
0x3358…3388 Head {h00=0x002c, h01=0x0050, text=» CBE DEBIN2,W0,DL003 IF NO MORE IN CHAIN«, t00=0x0020, t01=0x016e}
0x3388…33b4 Head {h00=0x0028, h01=0x0050, text=» PERF RD,DEBIN2,BUF READ NEXT RECORD«, t00=0x0021, t01=0x000e}
0x33b4…33c8 Head {h00=0x0010, h01=0x0050, text=» BERR DLRET «, t00=0x0021, t01=0x003a}
0x33c8…33fc Head {h00=0x0030, h01=0x0050, text=» XCOPY BUF,W2,W2,DEBIN5,W0 SET LINK BACKWARD«, t00=0x0021, t01=0x004e}
0x33fc…3430 Head {h00=0x0030, h01=0x0050, text=» PERF WR,DEBIN2,BUF WRITE WITH UPDATED LINK «, t00=0x0021, t01=0x0082}
0x3430…343e Head {h00=0x000a, h01=0x0050, text=»DL003 «, t00=0x0021, t01=0x00b6}
0x343e…345a Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN5,DEBIN1 «, t00=0x0021, t01=0x00c4}
0x345a…346a Head {h00=0x000c, h01=0x0050, text=» B DL006«, t00=0x0021, t01=0x00e0}
0x346a…3478 Head {h00=0x000a, h01=0x0050, text=»DL004 «, t00=0x0021, t01=0x00f0}
0x3478…3494 Head {h00=0x0018, h01=0x0050, text=» PERF WR,DEBIN1,BUF «, t00=0x0021, t01=0x00fe}
0x3494…34a2 Head {h00=0x000a, h01=0x0050, text=»RREPRE«, t00=0x0021, t01=0x011a}
0x34a2…34c0 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN2,W0,DL008 «, t00=0x0021, t01=0x0128}
0x34c0…34ce Head {h00=0x000a, h01=0x0050, text=»DL006 «, t00=0x0021, t01=0x0146}
0x34ce…34e0 Head {h00=0x000e, h01=0x0050, text=» SET BOOL8«, t00=0x0021, t01=0x0154}
0x34e0…34f8 Head {h00=0x0014, h01=0x0050, text=» TBT BOOL9,DLRET«, t00=0x0021, t01=0x0166}
0x34f8…3508 Head {h00=0x000c, h01=0x0050, text=» B DLR2 «, t00=0x0021, t01=0x017e}
0x3508…3516 Head {h00=0x000a, h01=0x0050, text=»DL008 «, t00=0x0021, t01=0x018e}
0x3516…3532 Head {h00=0x0018, h01=0x0050, text=» PERF RD,DEBIN2,BUF «, t00=0x0022, t01=0x000c}
0x3532…3546 Head {h00=0x0010, h01=0x0050, text=» BERR DLRET «, t00=0x0022, t01=0x0028}
0x3546…3568 Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,BUF,W4«, t00=0x0022, t01=0x003c}
0x3568…358a Head {h00=0x001e, h01=0x0050, text=» XCOPY BUF,W4,W2,DEBIN1,W0«, t00=0x0022, t01=0x005e}
0x358a…35a6 Head {h00=0x0018, h01=0x0050, text=» PERF WR,DEBIN2,BUF «, t00=0x0022, t01=0x0080}
0x35a6…35ba Head {h00=0x0010, h01=0x0050, text=» BERR DLRET «, t00=0x0022, t01=0x009c}
0x35ba…35c6 Head {h00=0x0008, h01=0x0050, text=»DLR2«, t00=0x0022, t01=0x00b0}
0x35c6…35e4 Head {h00=0x001a, h01=0x0050, text=» MOVE DEBIN1,FILINDUS «, t00=0x0022, t01=0x00bc}
0x35e4…35fc Head {h00=0x0014, h01=0x0050, text=» TBT SWIT04,DLR1«, t00=0x0022, t01=0x00da}
0x35fc…3614 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W1 «, t00=0x0022, t01=0x00f2}
0x3614…3620 Head {h00=0x0008, h01=0x0050, text=»DLR1«, t00=0x0022, t01=0x010a}
0x3620…3642 Head {h00=0x001e, h01=0x0050, text=» PERF RFRSP,DEBIN5,DEBIN1 «, t00=0x0022, t01=0x0116}
0x3642…3650 Head {h00=0x000a, h01=0x0050, text=»DLRET «, t00=0x0022, t01=0x0138}
0x3650…3662 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0022, t01=0x0146}
0x3662…366e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0022, t01=0x0158}
0x366e…367c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x0164}
0x367c…3686 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0172}
0x3686…3690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x017c}
0x3690…369a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0186}
0x369a…36a6 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0022, t01=0x0190}
0x36a6…36aa Head {h00=0x4004, h01=0x0000}
0x36aa…36ae 00 23 00 0c ┆ # ┆
0x36ae…36b6 (36, 1, 8) 20 04 00 00 00 24 00 04 ┆ $ ┆