|
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: 11072 (0x2b40)
Notes: pts_type(SC)
Names: »DISC.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DISC.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DISC.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DISC.SC«
IDENT DISC PRR 1.0 79-06-19/AST * ********************************************************** * * 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 CHANFC EXT WAIT EXT RELEAS EXT EMPTYT EXT MASK EXT DEPOOL EXT GETIND EXT DEDISC EXT NOFFRE EXT POOL EXT ATTWB EXT RESTOR ENTRY RDDS ENTRY WRDS ENTRY DISU ENTRY OPCL ENTRY COND ENTRY WRFSP ENTRY REFSP WEOF EQU 3 CLOSE FILE EJECT OPCL PROC FUCO MOVE DEBINW4,W0 IB FUCO C OPENSY C CLOSSY C OPENUS C CLOSUS OPENSY TBF BOOLA1,GOON SWITCH B OPENSY GOON SET SWITSY BNZ OPENSY04 SET BOOLA1 CLEAR SWIT04 INCREASE DISC-COUNTER ADD FCOUNTER(W1),W1 ALREADY ASSIGNED? CBG FCOUNTER(W1),W1,OPENSY04 CALL CHANFC,DISK,FILECODE(W1) MOVE STRG10A,=C'SYSFIL ' MOVE JOBNAME,FVOLNAME(W1) ASSIGN DISK,0,DEBINW4,STRG10A,JOBNAME BOK OPENSY02 OPENSY06 DSC0 DISK,WEOF CLEAR SWITSY MOVE DEBINW4,W20 SUB FCOUNTER(W1),W1 B OPENSY04 OPENSY02 MOVE LRUQUE,HEX00 MOVE DKBIN1,W1 DES1 MOVE RPOOL(DKBIN1),=X'5800' ADD DKBIN1,W1 CBNE DKBIN1,W21,DES1 PERF NOFFRE,DEBIN1,W1 MOVE FNOOFREC(W1),DEBIN1 PERF DISU,W1,W1,SYSBUF XCOPY F95PROC(W1),W0,W2,SYSBUF,W5 XCOPY FRINF(W1),W0,W2,SYSBUF,W1 PERF POOL BNOK OPENSY06 MOVE FINDEXPO(W1),DKBIN1 PERF REFSP,W2,W1 BOK OPENSY07 MOVE DKBIN2,FINDEXPO(W1) PERF DEPOOL,W6,DKBIN2,DKBIN2,STRG10A B OPENSY06 OPENSY07 READ SYSTEM VARIABLES PERF DEDISC,W19 OPENSY04 CLEAR BOOLA1 PERF COND SET CONDITION-REG RET CLOSSY TBF SWITSY,CLOSSY02 CLEAR SWITSY SUB FCOUNTER(W1),W1 CBG FCOUNTER(W1),W0,CLOSSY02 PERF WRFSP,W1 BNOK CLOSSY01 PERF DISU,W1,W1,SYSBUF BNOK CLOSSY01 PERF DISU,W2,W1,SYSBUF BNOK CLOSSY01 RELEASE FREESPACE-POOL MOVE DKBIN2,FINDEXPO(W1) PERF DEPOOL,W6,DKBIN2,DKBIN2,STRG10A CLOSSY01 CALL CHANFC,DISK,FILECODE(W1) DSC0 DISK,WEOF CLOSE FILE CLOSSY02 PERF COND RET OPENUS TBF BOOLA2,GOONN SWITCH B OPENUS OPENUS0E PERF DISU,W3,W1,RBUF BERR OPENUS03 PERF SETUSE BERR OPENUS03 B OPENUS01 GOONN SET SWITUS BNZ OPENUS0C SET BOOLA2 CLEAR SWIT01 ADD FCOUNTER(FILINDUS),W1 CBG FCOUNTER(FILINDUS),W1,OPENUS0E CALL CHANFC,DISK,FILECODE(FILINDUS) MOVE STRG10A,=C'PTS-DE ' MOVE STR6A,FVOLNAME(FILINDUS) ASSIGN DISK,0,DEBINW4,STRG10A,STR6A BNOK OPENUS02 PERF NOFFRE,DEBIN1,FILINDUS BOK OPENUS0D SET SWIT01 OPENUS0D MOVE FNOOFREC(FILINDUS),DEBIN1 PERF DISU,W3,W1,RBUF BERR OPENUS02 OPENUS0A XCOPY F95PROC(FILINDUS),W0,W2,RBUF,W5 GET FILESTATUS MOVE DKBIN1,W0 XCOPY DKBIN1,W1,W1,RBUF,W0 XCOPY FRINF(FILINDUS),W0,W2,RBUF,W1 FILE CLOSED? CBE DKBIN1,W0,USCLS SET SWIT01 USCLS XCOPY RBUF,W0,W1,W7,W1 PERF DISU,W4,W1,RBUF BOK OPENUS0B SET SWIT01 OPENUS0B PERF SETUSE BERR OPENUS02 MOVE DKBIN3,W1 MOVE DKBIN2,W1 PERF DEPOOL,W2,DKBIN3,DKBIN2,STRG10A BNOK OPENUS02 MOVE FINDEXPO(FILINDUS),DKBIN3 PERF REFSP,W2,FILINDUS PERF RELEAS BOK OPENUS01 MOVE DKBIN1,FINDEXPO(FILINDUS) PERF DEPOOL,W6,DKBIN1,DKBIN2,STRG10A OPENUS02 DSC0 DISK,WEOF MOVE DEBINW4,W21 OPENUS03 CLEAR SWITUS SUB FCOUNTER(FILINDUS),W1 B OPENUS0C OPENUS01 TBF SWIT01,OPENUS0C MOVE DEBINW4,=W'-2' OPENUS0C CLEAR BOOLA2 PERF COND RET CLOSUS TBF SWITUS,CLOSUS01 CLEAR SWITUS SUB FCOUNTER(FILINDUS),W1 BP CLOSUS01 PERF WRFSP,FILINDUS PERF RELEAS BNOK CLOSUS02 MOVE DKBIN1,FINDEXPO(FILINDUS) PERF DEPOOL,W6,DKBIN1,DKBIN2,STRG10A PERF DISU,W3,W1,RBUF BNOK CLOSUS02 XCOPY RBUF,W0,W1,W0,W1 PERF DISU,W4,W1,RBUF BNOK CLOSUS02 CALL CHANFC,DISK,FILECODE(FILINDUS) CLOSUS02 DSC0 DISK,WEOF CLOSUS01 PERF COND RET PEND SETUSE PROC XCOPY SECLEN,W0,W2,RBUF,W9 CBNE SECLEN,W0,SETCOP MOVE SECLEN,=W'399' SETCOP XCOPY DKBIN1,W0,W2,RBUF,W7 CBNE DKBIN1,W0,SETNOZ MOVE DKBIN1,W1 SETNOZ MUL DKBIN1,SECLEN CALL GETIND,RBUF,DKBIN2,DKBIN3 CBNG DKBIN1,DKBIN2,SETOKA MOVE DEBINW4,W22 MOVE BCD13A,=D'0' B SETRET SETOKA MOVE USELEN,DKBIN1 SUB DKBIN1,W15 MOVE MAXOCC,DKBIN1 SETRET PERF COND RET PEND EJECT DISU PROC FUZ,RECNO,BUF IB FUZ C READSY C WRITSY C READUS C WRITUS READSY CALL CHANFC,DISK,FILECODE(W1) MOVE DKBIN1,SYSLEN RREAD .NEA,DISK,BUF,DKBIN1,RECNO BOK READSY01 PERF DKER TBT NEWVOL,READSY READSY01 CBNE DEBINW4,W0,ROUT CALL EMPTYT,SYSBUF BZ ROUT MOVE DEBINW4,=W'30' ROUT PERF COND RET WRITSY CALL CHANFC,DISK,FILECODE(W1) RWRITE DISK,BUF,RECNO BOK WRITSY01 PERF DKER TBT NEWVOL,WRITSY WRITSY01 PERF COND RET READUS CALL CHANFC,DISK,FILECODE(FILINDUS) MOVE DKBIN1,SECLEN RREAD .NEA,DISK,BUF,DKBIN1,RECNO BOK READUS01 PERF DKER TBT NEWVOL,READUS READUS01 PERF COND RET WRITUS CALL CHANFC,DISK,FILECODE(FILINDUS) RWRITE DISK,BUF,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 MOVE FLIND(W20),BIN13 MOVE BIN13,W3 RDDS02 MOVE FLIND(W21),BIN14 MOVE FLIND(W22),USELEN MOVE BIN14,RNR RDDS01 PERF DISU,BIN13,BIN14,RBUF BERR READY SUB FLIND(W22),SECLEN BNP READY CALL ATTWB,RBUF,SECLEN,W10 ADD BIN14,W1 B RDDS01 READY CALL RESTOR,W0,W4,PWBDB4 MOVE BIN13,FLIND(W20) MOVE BIN14,FLIND(W21) PERF COND RET PEND * WRDS PROC RNR MOVE FLIND(W20),BIN13 MOVE BIN13,W4 B RDDS02 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 EJECT * * SET CONDITION-REGISTER * COND PROC CBL DEBINW4,W0,CON1 CBE DEBINW4,W0,CON0 CMP W1,W2 RET CON1 CMP W2,W1 RET CON0 CMP W1,W1 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 CHANFC,DISK,FILECODE(MAX) RWRITE DISK,SYSBUF,DKBIN1 BNERR WRFRET PERF DKER WRFRET PERF COND RET PEND * * * REFSP PROC FSRNR,FIND PERF WAIT CALL CHANFC,DISK,FILECODE(FIND) REFS01 MOVE DKBIN1,SYSLEN RREAD .NEA,DISK,SYSBUF,DKBIN1,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 END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DISC PRR 1.0 79-06-19/AST«, 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…0286 Head {h00=0x0010, h01=0x000b, text=» EXT CHANFC «, t00=0x0001, t01=0x00e6}
0x0286…0298 Head {h00=0x000e, h01=0x0050, text=» EXT WAIT «, t00=0x0001, t01=0x00fa}
0x0298…02ac Head {h00=0x0010, h01=0x0050, text=» EXT RELEAS «, t00=0x0001, t01=0x010c}
0x02ac…02c0 Head {h00=0x0010, h01=0x0050, text=» EXT EMPTYT «, t00=0x0001, t01=0x0120}
0x02c0…02d2 Head {h00=0x000e, h01=0x0050, text=» EXT MASK «, t00=0x0001, t01=0x0134}
0x02d2…02e6 Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0001, t01=0x0146}
0x02e6…02fa Head {h00=0x0010, h01=0x0050, text=» EXT GETIND «, t00=0x0001, t01=0x015a}
0x02fa…030e Head {h00=0x0010, h01=0x0050, text=» EXT DEDISC «, t00=0x0001, t01=0x016e}
0x030e…0322 Head {h00=0x0010, h01=0x0050, text=» EXT NOFFRE «, t00=0x0001, t01=0x0182}
0x0322…0334 Head {h00=0x000e, h01=0x0050, text=» EXT POOL «, t00=0x0002, t01=0x0008}
0x0334…0346 Head {h00=0x000e, h01=0x0050, text=» EXT ATTWB«, t00=0x0002, t01=0x001a}
0x0346…035a Head {h00=0x0010, h01=0x0050, text=» EXT RESTOR «, t00=0x0002, t01=0x002c}
0x035a…036e Head {h00=0x0010, h01=0x0050, text=» ENTRY RDDS «, t00=0x0002, t01=0x0040}
0x036e…0382 Head {h00=0x0010, h01=0x0050, text=» ENTRY WRDS «, t00=0x0002, t01=0x0054}
0x0382…0396 Head {h00=0x0010, h01=0x0050, text=» ENTRY DISU «, t00=0x0002, t01=0x0068}
0x0396…03aa Head {h00=0x0010, h01=0x0050, text=» ENTRY OPCL «, t00=0x0002, t01=0x007c}
0x03aa…03be Head {h00=0x0010, h01=0x0050, text=» ENTRY COND «, 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…03ee Head {h00=0x0004, h01=0x0003, t00=0x0002, t01=0x00cc}
0x03ee…040c Head {h00=0x001a, h01=0x0015, text=»WEOF EQU 3 CLOSE FILE «, t00=0x0002, t01=0x00d4}
0x040c…041a Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0002, t01=0x00f2}
0x041a…0430 Head {h00=0x0012, h01=0x0050, text=»OPCL PROC FUCO«, t00=0x0002, t01=0x0100}
0x0430…0448 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0002, t01=0x0116}
0x0448…045c Head {h00=0x0010, h01=0x0050, text=» IB FUCO C «, t00=0x0002, t01=0x012e}
0x045c…0470 Head {h00=0x0010, h01=0x0050, text=» OPENSY C «, t00=0x0002, t01=0x0142}
0x0470…0484 Head {h00=0x0010, h01=0x0050, text=» CLOSSY C «, t00=0x0002, t01=0x0156}
0x0484…0498 Head {h00=0x0010, h01=0x0050, text=» OPENUS C «, t00=0x0002, t01=0x016a}
0x0498…04a8 Head {h00=0x000c, h01=0x0050, text=» CLOSUS«, t00=0x0002, t01=0x017e}
0x04a8…04b6 Head {h00=0x000a, h01=0x0050, text=»OPENSY«, t00=0x0002, t01=0x018e}
0x04b6…04ce Head {h00=0x0014, h01=0x0050, text=» TBF BOOLA1,GOON«, t00=0x0003, t01=0x000c}
0x04ce…04de Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x0003, t01=0x0024}
0x04de…04f0 Head {h00=0x000e, h01=0x0050, text=» B OPENSY «, t00=0x0003, t01=0x0034}
0x04f0…04fc Head {h00=0x0008, h01=0x0050, text=»GOON«, t00=0x0003, t01=0x0046}
0x04fc…0510 Head {h00=0x0010, h01=0x0050, text=» SET SWITSY «, t00=0x0003, t01=0x0052}
0x0510…0526 Head {h00=0x0012, h01=0x0050, text=» BNZ OPENSY04 «, t00=0x0003, t01=0x0066}
0x0526…053a Head {h00=0x0010, h01=0x0050, text=» SET BOOLA1 «, t00=0x0003, t01=0x007c}
0x053a…0550 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT04 «, t00=0x0003, t01=0x0090}
0x0550…0570 Head {h00=0x001c, h01=0x0050, text=» INCREASE DISC-COUNTER«, t00=0x0003, t01=0x00a6}
0x0570…058c Head {h00=0x0018, h01=0x0050, text=» ADD FCOUNTER(W1),W1«, t00=0x0003, t01=0x00c6}
0x058c…05a8 Head {h00=0x0018, h01=0x0050, text=» ALREADY ASSIGNED?«, t00=0x0003, t01=0x00e2}
0x05a8…05ce Head {h00=0x0022, h01=0x0050, text=» CBG FCOUNTER(W1),W1,OPENSY04 «, t00=0x0003, t01=0x00fe}
0x05ce…05f4 Head {h00=0x0022, h01=0x0050, text=» CALL CHANFC,DISK,FILECODE(W1)«, t00=0x0003, t01=0x0124}
0x05f4…0616 Head {h00=0x001e, h01=0x0050, text=» MOVE STRG10A,=C'SYSFIL ' «, t00=0x0003, t01=0x014a}
0x0616…0638 Head {h00=0x001e, h01=0x0050, text=» MOVE JOBNAME,FVOLNAME(W1)«, t00=0x0003, t01=0x016c}
0x0638…0666 Head {h00=0x002a, h01=0x0050, text=» ASSIGN DISK,0,DEBINW4,STRG10A,JOBNAME«, t00=0x0003, t01=0x018e}
0x0666…067c Head {h00=0x0012, h01=0x0050, text=» BOK OPENSY02 «, t00=0x0004, t01=0x002c}
0x067c…068c Head {h00=0x000c, h01=0x0050, text=»OPENSY06«, t00=0x0004, t01=0x0042}
0x068c…06a4 Head {h00=0x0014, h01=0x0050, text=» DSC0 DISK,WEOF «, t00=0x0004, t01=0x0052}
0x06a4…06ba Head {h00=0x0012, h01=0x0050, text=» CLEAR SWITSY «, t00=0x0004, t01=0x006a}
0x06ba…06d4 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W20 «, t00=0x0004, t01=0x0080}
0x06d4…06f0 Head {h00=0x0018, h01=0x0050, text=» SUB FCOUNTER(W1),W1«, t00=0x0004, t01=0x009a}
0x06f0…0704 Head {h00=0x0010, h01=0x0050, text=» B OPENSY04 «, t00=0x0004, t01=0x00b6}
0x0704…0714 Head {h00=0x000c, h01=0x0050, text=»OPENSY02«, t00=0x0004, t01=0x00ca}
0x0714…072e Head {h00=0x0016, h01=0x0050, text=» MOVE LRUQUE,HEX00«, t00=0x0004, t01=0x00da}
0x072e…0736 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00f4}
0x0736…074e Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W1 «, t00=0x0004, t01=0x00fc}
0x074e…075a Head {h00=0x0008, h01=0x0050, text=»DES1«, t00=0x0004, t01=0x0114}
0x075a…077e Head {h00=0x0020, h01=0x0050, text=» MOVE RPOOL(DKBIN1),=X'5800'«, t00=0x0004, t01=0x0120}
0x077e…0794 Head {h00=0x0012, h01=0x0050, text=» ADD DKBIN1,W1«, t00=0x0004, t01=0x0144}
0x0794…07b2 Head {h00=0x001a, h01=0x0050, text=» CBNE DKBIN1,W21,DES1 «, t00=0x0004, t01=0x015a}
0x07b2…07d0 Head {h00=0x001a, h01=0x0050, text=» PERF NOFFRE,DEBIN1,W1«, t00=0x0004, t01=0x0178}
0x07d0…07f2 Head {h00=0x001e, h01=0x0050, text=» MOVE FNOOFREC(W1),DEBIN1 «, t00=0x0005, t01=0x0008}
0x07f2…0812 Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W1,W1,SYSBUF «, t00=0x0005, t01=0x002a}
0x0812…083c Head {h00=0x0026, h01=0x0050, text=» XCOPY F95PROC(W1),W0,W2,SYSBUF,W5«, t00=0x0005, t01=0x004a}
0x083c…0864 Head {h00=0x0024, h01=0x0050, text=» XCOPY FRINF(W1),W0,W2,SYSBUF,W1«, t00=0x0005, t01=0x0074}
0x0864…0876 Head {h00=0x000e, h01=0x0050, text=» PERF POOL«, t00=0x0005, t01=0x009c}
0x0876…088c Head {h00=0x0012, h01=0x0050, text=» BNOK OPENSY06«, t00=0x0005, t01=0x00ae}
0x088c…08ae Head {h00=0x001e, h01=0x0050, text=» MOVE FINDEXPO(W1),DKBIN1 «, t00=0x0005, t01=0x00c4}
0x08ae…08c8 Head {h00=0x0016, h01=0x0050, text=» PERF REFSP,W2,W1 «, t00=0x0005, t01=0x00e6}
0x08c8…08de Head {h00=0x0012, h01=0x0050, text=» BOK OPENSY07 «, t00=0x0005, t01=0x0100}
0x08de…0900 Head {h00=0x001e, h01=0x0050, text=» MOVE DKBIN2,FINDEXPO(W1) «, t00=0x0005, t01=0x0116}
0x0900…092e Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,DKBIN2,DKBIN2,STRG10A «, t00=0x0005, t01=0x0138}
0x092e…0942 Head {h00=0x0010, h01=0x0050, text=» B OPENSY06 «, t00=0x0005, t01=0x0166}
0x0942…0952 Head {h00=0x000c, h01=0x0050, text=»OPENSY07«, t00=0x0005, t01=0x017a}
0x0952…0972 Head {h00=0x001c, h01=0x0050, text=» READ SYSTEM VARIABLES«, t00=0x0005, t01=0x018a}
0x0972…098a Head {h00=0x0014, h01=0x0050, text=» PERF DEDISC,W19«, t00=0x0006, t01=0x001a}
0x098a…099a Head {h00=0x000c, h01=0x0050, text=»OPENSY04«, t00=0x0006, t01=0x0032}
0x099a…09b0 Head {h00=0x0012, h01=0x0050, text=» CLEAR BOOLA1 «, t00=0x0006, t01=0x0042}
0x09b0…09d4 Head {h00=0x0020, h01=0x0050, text=» PERF COND SET CONDITION-REG«, t00=0x0006, t01=0x0058}
0x09d4…09e0 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0006, t01=0x007c}
0x09e0…09ee Head {h00=0x000a, h01=0x0050, text=»CLOSSY«, t00=0x0006, t01=0x0088}
0x09ee…0a0a Head {h00=0x0018, h01=0x0050, text=» TBF SWITSY,CLOSSY02«, t00=0x0006, t01=0x0096}
0x0a0a…0a20 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWITSY «, t00=0x0006, t01=0x00b2}
0x0a20…0a3c Head {h00=0x0018, h01=0x0050, text=» SUB FCOUNTER(W1),W1«, t00=0x0006, t01=0x00c8}
0x0a3c…0a62 Head {h00=0x0022, h01=0x0050, text=» CBG FCOUNTER(W1),W0,CLOSSY02 «, t00=0x0006, t01=0x00e4}
0x0a62…0a78 Head {h00=0x0012, h01=0x0050, text=» PERF WRFSP,W1«, t00=0x0006, t01=0x010a}
0x0a78…0a8e Head {h00=0x0012, h01=0x0050, text=» BNOK CLOSSY01«, t00=0x0006, t01=0x0120}
0x0a8e…0aae Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W1,W1,SYSBUF «, t00=0x0006, t01=0x0136}
0x0aae…0ac4 Head {h00=0x0012, h01=0x0050, text=» BNOK CLOSSY01«, t00=0x0006, t01=0x0156}
0x0ac4…0ae4 Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W2,W1,SYSBUF «, t00=0x0006, t01=0x016c}
0x0ae4…0afa Head {h00=0x0012, h01=0x0050, text=» BNOK CLOSSY01«, t00=0x0006, t01=0x018c}
0x0afa…0b1c Head {h00=0x001e, h01=0x0050, text=» RELEASE FREESPACE-POOL «, t00=0x0007, t01=0x0012}
0x0b1c…0b3e Head {h00=0x001e, h01=0x0050, text=» MOVE DKBIN2,FINDEXPO(W1) «, t00=0x0007, t01=0x0034}
0x0b3e…0b6c Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,DKBIN2,DKBIN2,STRG10A «, t00=0x0007, t01=0x0056}
0x0b6c…0b7c Head {h00=0x000c, h01=0x0050, text=»CLOSSY01«, t00=0x0007, t01=0x0084}
0x0b7c…0ba2 Head {h00=0x0022, h01=0x0050, text=» CALL CHANFC,DISK,FILECODE(W1)«, t00=0x0007, t01=0x0094}
0x0ba2…0bc4 Head {h00=0x001e, h01=0x0050, text=» DSC0 DISK,WEOF CLOSE FILE«, t00=0x0007, t01=0x00ba}
0x0bc4…0bd4 Head {h00=0x000c, h01=0x0050, text=»CLOSSY02«, t00=0x0007, t01=0x00dc}
0x0bd4…0be6 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0007, t01=0x00ec}
0x0be6…0bf2 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0007, t01=0x00fe}
0x0bf2…0c00 Head {h00=0x000a, h01=0x0050, text=»OPENUS«, t00=0x0007, t01=0x010a}
0x0c00…0c1a Head {h00=0x0016, h01=0x0050, text=» TBF BOOLA2,GOONN «, t00=0x0007, t01=0x0118}
0x0c1a…0c2a Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x0007, t01=0x0132}
0x0c2a…0c3c Head {h00=0x000e, h01=0x0050, text=» B OPENUS «, t00=0x0007, t01=0x0142}
0x0c3c…0c4c Head {h00=0x000c, h01=0x0050, text=»OPENUS0E«, t00=0x0007, t01=0x0154}
0x0c4c…0c6a Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W3,W1,RBUF «, t00=0x0007, t01=0x0164}
0x0c6a…0c80 Head {h00=0x0012, h01=0x0050, text=» BERR OPENUS03«, t00=0x0007, t01=0x0182}
0x0c80…0c94 Head {h00=0x0010, h01=0x0050, text=» PERF SETUSE«, t00=0x0008, t01=0x0008}
0x0c94…0caa Head {h00=0x0012, h01=0x0050, text=» BERR OPENUS03«, t00=0x0008, t01=0x001c}
0x0caa…0cbe Head {h00=0x0010, h01=0x0050, text=» B OPENUS01 «, t00=0x0008, t01=0x0032}
0x0cbe…0ccc Head {h00=0x000a, h01=0x0050, text=»GOONN «, t00=0x0008, t01=0x0046}
0x0ccc…0ce0 Head {h00=0x0010, h01=0x0050, text=» SET SWITUS «, t00=0x0008, t01=0x0054}
0x0ce0…0cf6 Head {h00=0x0012, h01=0x0050, text=» BNZ OPENUS0C «, t00=0x0008, t01=0x0068}
0x0cf6…0d0a Head {h00=0x0010, h01=0x0050, text=» SET BOOLA2 «, t00=0x0008, t01=0x007e}
0x0d0a…0d20 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT01 «, t00=0x0008, t01=0x0092}
0x0d20…0d42 Head {h00=0x001e, h01=0x0050, text=» ADD FCOUNTER(FILINDUS),W1«, t00=0x0008, t01=0x00a8}
0x0d42…0d6e Head {h00=0x0028, h01=0x0050, text=» CBG FCOUNTER(FILINDUS),W1,OPENUS0E «, t00=0x0008, t01=0x00ca}
0x0d6e…0d9a Head {h00=0x0028, h01=0x0050, text=» CALL CHANFC,DISK,FILECODE(FILINDUS)«, t00=0x0008, t01=0x00f6}
0x0d9a…0dbc Head {h00=0x001e, h01=0x0050, text=» MOVE STRG10A,=C'PTS-DE ' «, t00=0x0008, t01=0x0122}
0x0dbc…0de2 Head {h00=0x0022, h01=0x0050, text=» MOVE STR6A,FVOLNAME(FILINDUS)«, t00=0x0008, t01=0x0144}
0x0de2…0e0e Head {h00=0x0028, h01=0x0050, text=» ASSIGN DISK,0,DEBINW4,STRG10A,STR6A«, t00=0x0008, t01=0x016a}
0x0e0e…0e24 Head {h00=0x0012, h01=0x0050, text=» BNOK OPENUS02«, t00=0x0009, t01=0x0008}
0x0e24…0e48 Head {h00=0x0020, h01=0x0050, text=» PERF NOFFRE,DEBIN1,FILINDUS«, t00=0x0009, t01=0x001e}
0x0e48…0e5e Head {h00=0x0012, h01=0x0050, text=» BOK OPENUS0D «, t00=0x0009, t01=0x0042}
0x0e5e…0e72 Head {h00=0x0010, h01=0x0050, text=» SET SWIT01 «, t00=0x0009, t01=0x0058}
0x0e72…0e82 Head {h00=0x000c, h01=0x0050, text=»OPENUS0D«, t00=0x0009, t01=0x006c}
0x0e82…0eaa Head {h00=0x0024, h01=0x0050, text=» MOVE FNOOFREC(FILINDUS),DEBIN1 «, t00=0x0009, t01=0x007c}
0x0eaa…0ec8 Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W3,W1,RBUF «, t00=0x0009, t01=0x00a4}
0x0ec8…0ede Head {h00=0x0012, h01=0x0050, text=» BERR OPENUS02«, t00=0x0009, t01=0x00c2}
0x0ede…0eee Head {h00=0x000c, h01=0x0050, text=»OPENUS0A«, t00=0x0009, t01=0x00d8}
0x0eee…0f1c Head {h00=0x002a, h01=0x0050, text=» XCOPY F95PROC(FILINDUS),W0,W2,RBUF,W5«, t00=0x0009, t01=0x00e8}
0x0f1c…0f36 Head {h00=0x0016, h01=0x0050, text=» GET FILESTATUS «, t00=0x0009, t01=0x0116}
0x0f36…0f4e Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W0 «, t00=0x0009, t01=0x0130}
0x0f4e…0f72 Head {h00=0x0020, h01=0x0050, text=» XCOPY DKBIN1,W1,W1,RBUF,W0 «, t00=0x0009, t01=0x0148}
0x0f72…0f9e Head {h00=0x0028, h01=0x0050, text=» XCOPY FRINF(FILINDUS),W0,W2,RBUF,W1«, t00=0x0009, t01=0x016c}
0x0f9e…0fb6 Head {h00=0x0014, h01=0x0050, text=» FILE CLOSED? «, t00=0x000a, t01=0x0008}
0x0fb6…0fd2 Head {h00=0x0018, h01=0x0050, text=» CBE DKBIN1,W0,USCLS«, t00=0x000a, t01=0x0020}
0x0fd2…0fe6 Head {h00=0x0010, h01=0x0050, text=» SET SWIT01 «, t00=0x000a, t01=0x003c}
0x0fe6…0ff4 Head {h00=0x000a, h01=0x0050, text=»USCLS «, t00=0x000a, t01=0x0050}
0x0ff4…1014 Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W0,W1,W7,W1 «, t00=0x000a, t01=0x005e}
0x1014…1032 Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W4,W1,RBUF «, t00=0x000a, t01=0x007e}
0x1032…1048 Head {h00=0x0012, h01=0x0050, text=» BOK OPENUS0B «, t00=0x000a, t01=0x009c}
0x1048…105c Head {h00=0x0010, h01=0x0050, text=» SET SWIT01 «, t00=0x000a, t01=0x00b2}
0x105c…106c Head {h00=0x000c, h01=0x0050, text=»OPENUS0B«, t00=0x000a, t01=0x00c6}
0x106c…1080 Head {h00=0x0010, h01=0x0050, text=» PERF SETUSE«, t00=0x000a, t01=0x00d6}
0x1080…1096 Head {h00=0x0012, h01=0x0050, text=» BERR OPENUS02«, t00=0x000a, t01=0x00ea}
0x1096…10ae Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN3,W1 «, t00=0x000a, t01=0x0100}
0x10ae…10c6 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN2,W1 «, t00=0x000a, t01=0x0118}
0x10c6…10f4 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W2,DKBIN3,DKBIN2,STRG10A «, t00=0x000a, t01=0x0130}
0x10f4…110a Head {h00=0x0012, h01=0x0050, text=» BNOK OPENUS02«, t00=0x000a, t01=0x015e}
0x110a…1132 Head {h00=0x0024, h01=0x0050, text=» MOVE FINDEXPO(FILINDUS),DKBIN3 «, t00=0x000a, t01=0x0174}
0x1132…1152 Head {h00=0x001c, h01=0x0050, text=» PERF REFSP,W2,FILINDUS «, t00=0x000b, t01=0x000c}
0x1152…1166 Head {h00=0x0010, h01=0x0050, text=» PERF RELEAS«, t00=0x000b, t01=0x002c}
0x1166…117c Head {h00=0x0012, h01=0x0050, text=» BOK OPENUS01 «, t00=0x000b, t01=0x0040}
0x117c…11a4 Head {h00=0x0024, h01=0x0050, text=» MOVE DKBIN1,FINDEXPO(FILINDUS) «, t00=0x000b, t01=0x0056}
0x11a4…11d2 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,DKBIN1,DKBIN2,STRG10A «, t00=0x000b, t01=0x007e}
0x11d2…11e2 Head {h00=0x000c, h01=0x0008, text=»OPENUS02«, t00=0x000b, t01=0x00ac}
0x11e2…11fa Head {h00=0x0014, h01=0x0050, text=» DSC0 DISK,WEOF «, t00=0x000b, t01=0x00bc}
0x11fa…1214 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W21 «, t00=0x000b, t01=0x00d4}
0x1214…1224 Head {h00=0x000c, h01=0x0050, text=»OPENUS03«, t00=0x000b, t01=0x00ee}
0x1224…123a Head {h00=0x0012, h01=0x0050, text=» CLEAR SWITUS «, t00=0x000b, t01=0x00fe}
0x123a…125c Head {h00=0x001e, h01=0x0050, text=» SUB FCOUNTER(FILINDUS),W1«, t00=0x000b, t01=0x0114}
0x125c…1270 Head {h00=0x0010, h01=0x0050, text=» B OPENUS0C «, t00=0x000b, t01=0x0136}
0x1270…1280 Head {h00=0x000c, h01=0x0008, text=»OPENUS01«, t00=0x000b, t01=0x014a}
0x1280…129c Head {h00=0x0018, h01=0x0050, text=» TBF SWIT01,OPENUS0C«, t00=0x000b, t01=0x015a}
0x129c…12b8 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,=W'-2'«, t00=0x000b, t01=0x0176}
0x12b8…12c8 (12, 0, 400) Head {h00=0x000c, h01=0x0050, text=»OPENUS0C«, t00=0x000c, t01=0x0004}
0x12c8…12de Head {h00=0x0012, h01=0x0050, text=» CLEAR BOOLA2 «, t00=0x000c, t01=0x0014}
0x12de…12f0 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000c, t01=0x002a}
0x12f0…12fc Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x000c, t01=0x003c}
0x12fc…130a Head {h00=0x000a, h01=0x0050, text=»CLOSUS«, t00=0x000c, t01=0x0048}
0x130a…1326 Head {h00=0x0018, h01=0x0050, text=» TBF SWITUS,CLOSUS01«, t00=0x000c, t01=0x0056}
0x1326…133c Head {h00=0x0012, h01=0x0050, text=» CLEAR SWITUS «, t00=0x000c, t01=0x0072}
0x133c…135e Head {h00=0x001e, h01=0x0050, text=» SUB FCOUNTER(FILINDUS),W1«, t00=0x000c, t01=0x0088}
0x135e…1372 Head {h00=0x0010, h01=0x0050, text=» BP CLOSUS01«, t00=0x000c, t01=0x00aa}
0x1372…138e Head {h00=0x0018, h01=0x0050, text=» PERF WRFSP,FILINDUS«, t00=0x000c, t01=0x00be}
0x138e…13a2 Head {h00=0x0010, h01=0x0050, text=» PERF RELEAS«, t00=0x000c, t01=0x00da}
0x13a2…13b8 Head {h00=0x0012, h01=0x0050, text=» BNOK CLOSUS02«, t00=0x000c, t01=0x00ee}
0x13b8…13e0 Head {h00=0x0024, h01=0x0050, text=» MOVE DKBIN1,FINDEXPO(FILINDUS) «, t00=0x000c, t01=0x0104}
0x13e0…140e Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,DKBIN1,DKBIN2,STRG10A «, t00=0x000c, t01=0x012c}
0x140e…142c Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W3,W1,RBUF «, t00=0x000c, t01=0x015a}
0x142c…1442 Head {h00=0x0012, h01=0x0050, text=» BNOK CLOSUS02«, t00=0x000c, t01=0x0178}
0x1442…1462 Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W0,W1,W0,W1 «, t00=0x000c, t01=0x018e}
0x1462…1480 Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W4,W1,RBUF «, t00=0x000d, t01=0x001e}
0x1480…1496 Head {h00=0x0012, h01=0x0050, text=» BNOK CLOSUS02«, t00=0x000d, t01=0x003c}
0x1496…14c2 Head {h00=0x0028, h01=0x0050, text=» CALL CHANFC,DISK,FILECODE(FILINDUS)«, t00=0x000d, t01=0x0052}
0x14c2…14d2 Head {h00=0x000c, h01=0x0050, text=»CLOSUS02«, t00=0x000d, t01=0x007e}
0x14d2…14ea Head {h00=0x0014, h01=0x000f, text=» DSC0 DISK,WEOF «, t00=0x000d, t01=0x008e}
0x14ea…14fa Head {h00=0x000c, h01=0x0008, text=»CLOSUS01«, t00=0x000d, t01=0x00a6}
0x14fa…150c Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000d, t01=0x00b6}
0x150c…1518 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x000d, t01=0x00c8}
0x1518…1526 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x000d, t01=0x00d4}
0x1526…153a Head {h00=0x0010, h01=0x0050, text=»SETUSE PROC «, t00=0x000d, t01=0x00e2}
0x153a…155e Head {h00=0x0020, h01=0x0050, text=» XCOPY SECLEN,W0,W2,RBUF,W9 «, t00=0x000d, t01=0x00f6}
0x155e…157c Head {h00=0x001a, h01=0x0050, text=» CBNE SECLEN,W0,SETCOP«, t00=0x000d, t01=0x011a}
0x157c…1598 Head {h00=0x0018, h01=0x0050, text=» MOVE SECLEN,=W'399'«, t00=0x000d, t01=0x0138}
0x1598…15a6 Head {h00=0x000a, h01=0x0050, text=»SETCOP«, t00=0x000d, t01=0x0154}
0x15a6…15ca Head {h00=0x0020, h01=0x0050, text=» XCOPY DKBIN1,W0,W2,RBUF,W7 «, t00=0x000d, t01=0x0162}
0x15ca…15e8 Head {h00=0x001a, h01=0x0050, text=» CBNE DKBIN1,W0,SETNOZ«, t00=0x000d, t01=0x0186}
0x15e8…1600 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W1 «, t00=0x000e, t01=0x0014}
0x1600…160e Head {h00=0x000a, h01=0x0050, text=»SETNOZ«, t00=0x000e, t01=0x002c}
0x160e…1628 Head {h00=0x0016, h01=0x0050, text=» MUL DKBIN1,SECLEN«, t00=0x000e, t01=0x003a}
0x1628…1650 Head {h00=0x0024, h01=0x0050, text=» CALL GETIND,RBUF,DKBIN2,DKBIN3 «, t00=0x000e, t01=0x0054}
0x1650…1672 Head {h00=0x001e, h01=0x0050, text=» CBNG DKBIN1,DKBIN2,SETOKA«, t00=0x000e, t01=0x007c}
0x1672…168c Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W22 «, t00=0x000e, t01=0x009e}
0x168c…16a6 Head {h00=0x0016, h01=0x0050, text=» MOVE BCD13A,=D'0'«, t00=0x000e, t01=0x00b8}
0x16a6…16b8 Head {h00=0x000e, h01=0x0050, text=» B SETRET «, t00=0x000e, t01=0x00d2}
0x16b8…16da Head {h00=0x001e, h01=0x0050, text=»SETOKA MOVE USELEN,DKBIN1 «, t00=0x000e, t01=0x00e4}
0x16da…16f2 Head {h00=0x0014, h01=0x0050, text=» SUB DKBIN1,W15 «, t00=0x000e, t01=0x0106}
0x16f2…170e Head {h00=0x0018, h01=0x0050, text=» MOVE MAXOCC,DKBIN1 «, t00=0x000e, t01=0x011e}
0x170e…171c Head {h00=0x000a, h01=0x0050, text=»SETRET«, t00=0x000e, t01=0x013a}
0x171c…172e Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000e, t01=0x0148}
0x172e…173a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000e, t01=0x015a}
0x173a…1748 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000e, t01=0x0166}
0x1748…1756 Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x000e, t01=0x0174}
0x1756…1776 Head {h00=0x001c, h01=0x0050, text=»DISU PROC FUZ,RECNO,BUF «, t00=0x000e, t01=0x0182}
0x1776…1788 Head {h00=0x000e, h01=0x0050, text=» IB FUZ C«, t00=0x000f, t01=0x0012}
0x1788…179c Head {h00=0x0010, h01=0x0050, text=» READSY C «, t00=0x000f, t01=0x0024}
0x179c…17b0 Head {h00=0x0010, h01=0x0050, text=» WRITSY C «, t00=0x000f, t01=0x0038}
0x17b0…17c4 Head {h00=0x0010, h01=0x0050, text=» READUS C «, t00=0x000f, t01=0x004c}
0x17c4…17d4 Head {h00=0x000c, h01=0x0050, text=» WRITUS«, t00=0x000f, t01=0x0060}
0x17d4…17e2 Head {h00=0x000a, h01=0x0050, text=»READSY«, t00=0x000f, t01=0x0070}
0x17e2…1808 Head {h00=0x0022, h01=0x0050, text=» CALL CHANFC,DISK,FILECODE(W1)«, t00=0x000f, t01=0x007e}
0x1808…1824 Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN1,SYSLEN «, t00=0x000f, t01=0x00a4}
0x1824…184e Head {h00=0x0026, h01=0x0050, text=» RREAD .NEA,DISK,BUF,DKBIN1,RECNO «, t00=0x000f, t01=0x00c0}
0x184e…1864 Head {h00=0x0012, h01=0x0050, text=» BOK READSY01 «, t00=0x000f, t01=0x00ea}
0x1864…1876 Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x000f, t01=0x0100}
0x1876…1890 Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,READSY«, t00=0x000f, t01=0x0112}
0x1890…18a0 Head {h00=0x000c, h01=0x0050, text=»READSY01«, t00=0x000f, t01=0x012c}
0x18a0…18be Head {h00=0x001a, h01=0x0050, text=» CBNE DEBINW4,W0,ROUT «, t00=0x000f, t01=0x013c}
0x18be…18da Head {h00=0x0018, h01=0x0050, text=» CALL EMPTYT,SYSBUF «, t00=0x000f, t01=0x015a}
0x18da…18ea Head {h00=0x000c, h01=0x0050, text=» BZ ROUT«, t00=0x000f, t01=0x0176}
0x18ea…1906 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,=W'30'«, t00=0x000f, t01=0x0186}
0x1906…1912 Head {h00=0x0008, h01=0x0050, text=»ROUT«, t00=0x0010, t01=0x0012}
0x1912…1924 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0010, t01=0x001e}
0x1924…1930 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0010, t01=0x0030}
0x1930…193e Head {h00=0x000a, h01=0x0050, text=»WRITSY«, t00=0x0010, t01=0x003c}
0x193e…1964 Head {h00=0x0022, h01=0x0050, text=» CALL CHANFC,DISK,FILECODE(W1)«, t00=0x0010, t01=0x004a}
0x1964…1982 Head {h00=0x001a, h01=0x0050, text=» RWRITE DISK,BUF,RECNO«, t00=0x0010, t01=0x0070}
0x1982…1998 Head {h00=0x0012, h01=0x0050, text=» BOK WRITSY01 «, t00=0x0010, t01=0x008e}
0x1998…19aa Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x0010, t01=0x00a4}
0x19aa…19c4 Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,WRITSY«, t00=0x0010, t01=0x00b6}
0x19c4…19d4 Head {h00=0x000c, h01=0x0050, text=»WRITSY01«, t00=0x0010, t01=0x00d0}
0x19d4…19e6 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0010, t01=0x00e0}
0x19e6…19f2 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0010, t01=0x00f2}
0x19f2…1a00 Head {h00=0x000a, h01=0x0050, text=»READUS«, t00=0x0010, t01=0x00fe}
0x1a00…1a2c Head {h00=0x0028, h01=0x0050, text=» CALL CHANFC,DISK,FILECODE(FILINDUS)«, t00=0x0010, t01=0x010c}
0x1a2c…1a48 Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN1,SECLEN «, t00=0x0010, t01=0x0138}
0x1a48…1a72 Head {h00=0x0026, h01=0x0050, text=» RREAD .NEA,DISK,BUF,DKBIN1,RECNO «, t00=0x0010, t01=0x0154}
0x1a72…1a88 Head {h00=0x0012, h01=0x0050, text=» BOK READUS01 «, t00=0x0010, t01=0x017e}
0x1a88…1a9a (17, 0, 400) Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x0011, t01=0x0004}
0x1a9a…1ab4 Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,READUS«, t00=0x0011, t01=0x0016}
0x1ab4…1ac4 Head {h00=0x000c, h01=0x0050, text=»READUS01«, t00=0x0011, t01=0x0030}
0x1ac4…1ad6 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0011, t01=0x0040}
0x1ad6…1ae2 Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0011, t01=0x0052}
0x1ae2…1af0 Head {h00=0x000a, h01=0x0050, text=»WRITUS«, t00=0x0011, t01=0x005e}
0x1af0…1b1c Head {h00=0x0028, h01=0x0050, text=» CALL CHANFC,DISK,FILECODE(FILINDUS)«, t00=0x0011, t01=0x006c}
0x1b1c…1b3a Head {h00=0x001a, h01=0x0016, text=» RWRITE DISK,BUF,RECNO«, t00=0x0011, t01=0x0098}
0x1b3a…1b50 Head {h00=0x0012, h01=0x0050, text=» BOK WRITUS01 «, t00=0x0011, t01=0x00b6}
0x1b50…1b62 Head {h00=0x000e, h01=0x000a, text=» PERF DKER«, t00=0x0011, t01=0x00cc}
0x1b62…1b7c Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,WRITUS«, t00=0x0011, t01=0x00de}
0x1b7c…1b8c Head {h00=0x000c, h01=0x0050, text=»WRITUS01«, t00=0x0011, t01=0x00f8}
0x1b8c…1b9e Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0011, t01=0x0108}
0x1b9e…1baa Head {h00=0x0008, h01=0x0004, text=» RET«, t00=0x0011, t01=0x011a}
0x1baa…1bb8 Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0011, t01=0x0126}
0x1bb8…1bc6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0134}
0x1bc6…1bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0142}
0x1bd0…1c20 Head {h00=0x004c, h01=0x0050, text=»* SUBROUTINE RDDS AND WRDS: READ AND WRITE D/E-RECORDS WITH A LENGTH O«, t00=0x0011, t01=0x014c}
0x1c20…1c70 Head {h00=0x004c, h01=0x0050, text=»* MORE DATASECTORS ON DISC. THE LENGTH OF THE D/E-RECORD IS GIVEN BY '«, t00=0x0012, t01=0x000c}
0x1c70…1cc0 Head {h00=0x004c, h01=0x0050, text=»* 'USELEN' IS SET AFTER FILE-ASSIGNMENT FOR RESP. TASK DEPENDING ON A «, t00=0x0012, t01=0x005c}
0x1cc0…1cea Head {h00=0x0026, h01=0x0050, text=»* FIRST RECORD OF THE USERFILE. «, t00=0x0012, t01=0x00ac}
0x1cea…1cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00d6}
0x1cf4…1d0a Head {h00=0x0012, h01=0x0050, text=»RDDS PROC RNR «, t00=0x0012, t01=0x00e0}
0x1d0a…1d28 Head {h00=0x001a, h01=0x0050, text=» MOVE FLIND(W20),BIN13«, t00=0x0012, t01=0x00f6}
0x1d28…1d3e Head {h00=0x0012, h01=0x0050, text=» MOVE BIN13,W3«, t00=0x0012, t01=0x0114}
0x1d3e…1d4c Head {h00=0x000a, h01=0x0050, text=»RDDS02«, t00=0x0012, t01=0x012a}
0x1d4c…1d6a Head {h00=0x001a, h01=0x0050, text=» MOVE FLIND(W21),BIN14«, t00=0x0012, t01=0x0138}
0x1d6a…1d8a Head {h00=0x001c, h01=0x0050, text=» MOVE FLIND(W22),USELEN «, t00=0x0012, t01=0x0156}
0x1d8a…1da2 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN14,RNR «, t00=0x0012, t01=0x0176}
0x1da2…1db0 Head {h00=0x000a, h01=0x0050, text=»RDDS01«, t00=0x0012, t01=0x018e}
0x1db0…1dd4 Head {h00=0x0020, h01=0x0050, text=» PERF DISU,BIN13,BIN14,RBUF «, t00=0x0013, t01=0x000c}
0x1dd4…1de8 Head {h00=0x0010, h01=0x0050, text=» BERR READY «, t00=0x0013, t01=0x0030}
0x1de8…1e06 Head {h00=0x001a, h01=0x0050, text=» SUB FLIND(W22),SECLEN«, t00=0x0013, t01=0x0044}
0x1e06…1e18 Head {h00=0x000e, h01=0x0050, text=» BNP READY«, t00=0x0013, t01=0x0062}
0x1e18…1e3c Head {h00=0x0020, h01=0x0050, text=» CALL ATTWB,RBUF,SECLEN,W10 «, t00=0x0013, t01=0x0074}
0x1e3c…1e52 Head {h00=0x0012, h01=0x0050, text=» ADD BIN14,W1 «, t00=0x0013, t01=0x0098}
0x1e52…1e64 Head {h00=0x000e, h01=0x0050, text=» B RDDS01 «, t00=0x0013, t01=0x00ae}
0x1e64…1e72 Head {h00=0x000a, h01=0x0050, text=»READY «, t00=0x0013, t01=0x00c0}
0x1e72…1e94 Head {h00=0x001e, h01=0x0050, text=» CALL RESTOR,W0,W4,PWBDB4 «, t00=0x0013, t01=0x00ce}
0x1e94…1eb2 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN13,FLIND(W20)«, t00=0x0013, t01=0x00f0}
0x1eb2…1ed0 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN14,FLIND(W21)«, t00=0x0013, t01=0x010e}
0x1ed0…1ee2 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0013, t01=0x012c}
0x1ee2…1eee Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x013e}
0x1eee…1efc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x014a}
0x1efc…1f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0158}
0x1f06…1f1c Head {h00=0x0012, h01=0x0050, text=»WRDS PROC RNR «, t00=0x0013, t01=0x0162}
0x1f1c…1f3a Head {h00=0x001a, h01=0x0050, text=» MOVE FLIND(W20),BIN13«, t00=0x0013, t01=0x0178}
0x1f3a…1f50 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN13,W4«, t00=0x0014, t01=0x0008}
0x1f50…1f62 Head {h00=0x000e, h01=0x0050, text=» B RDDS02 «, t00=0x0014, t01=0x001e}
0x1f62…1f70 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x0030}
0x1f70…1f7e Head {h00=0x000a, h01=0x0006, text=» EJECT«, t00=0x0014, t01=0x003e}
0x1f7e…1fc2 Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0014, t01=0x004c}
0x1fc2…1fcc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0090}
0x1fcc…1fea Head {h00=0x001a, h01=0x0015, text=»* SUBROUTINE DKER «, t00=0x0014, t01=0x009a}
0x1fea…1ff4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x00b8}
0x1ff4…2022 Head {h00=0x002a, h01=0x0025, text=»* PURPOSE: SPECIFIES DISK-ERROR «, t00=0x0014, t01=0x00c2}
0x2022…202c Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x00f0}
0x202c…2060 Head {h00=0x0030, h01=0x0050, text=»* CHANGED ITEMS: DKBIN1,DKBIN2,DEBINW4 «, t00=0x0014, t01=0x00fa}
0x2060…206a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x012e}
0x206a…20ae Head {h00=0x0040, h01=0x003c, text=»************************************************************«, t00=0x0014, t01=0x0138}
0x20ae…20b8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x017c}
0x20b8…20ca Head {h00=0x000e, h01=0x0009, text=»DKER PROC «, t00=0x0014, t01=0x0186}
0x20ca…20e0 Head {h00=0x0012, h01=0x0050, text=» CLEAR NEWVOL «, t00=0x0015, t01=0x0008}
0x20e0…20fa Head {h00=0x0016, h01=0x0050, text=» XSTAT DISK,DKBIN1«, t00=0x0015, t01=0x001e}
0x20fa…2116 Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,DKBIN1 «, t00=0x0015, t01=0x0038}
0x2116…2134 Head {h00=0x001a, h01=0x0050, text=» MOVE DKBIN2,=X'8022' «, t00=0x0015, t01=0x0054}
0x2134…2154 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0015, t01=0x0072}
0x2154…2166 Head {h00=0x000e, h01=0x0050, text=» BZ DKER10«, t00=0x0015, t01=0x0092}
0x2166…218a Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW4,W22 I/O-ERROR «, t00=0x0015, t01=0x00a4}
0x218a…2196 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x00c8}
0x2196…21a4 Head {h00=0x000a, h01=0x0050, text=»DKER10«, t00=0x0015, t01=0x00d4}
0x21a4…21c0 Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN2,=X'800'«, t00=0x0015, t01=0x00e2}
0x21c0…21e0 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0015, t01=0x00fe}
0x21e0…21f2 Head {h00=0x000e, h01=0x0050, text=» BZ DKER20«, t00=0x0015, t01=0x011e}
0x21f2…2216 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW4,=W'30' NO DATA«, t00=0x0015, t01=0x0130}
0x2216…2222 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x0154}
0x2222…2230 Head {h00=0x000a, h01=0x0050, text=»DKER20«, t00=0x0015, t01=0x0160}
0x2230…224a Head {h00=0x0016, h01=0x0050, text=» MOVE DKBIN2,W128 «, t00=0x0015, t01=0x016e}
0x224a…226a Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0015, t01=0x0188}
0x226a…227c Head {h00=0x000e, h01=0x0050, text=» BZ DKER30«, t00=0x0016, t01=0x0018}
0x227c…22a2 Head {h00=0x0022, h01=0x0050, text=» SET NEWVOL NEW VOLUME LOADED «, t00=0x0016, t01=0x002a}
0x22a2…22ae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x0050}
0x22ae…22bc Head {h00=0x000a, h01=0x0050, text=»DKER30«, t00=0x0016, t01=0x005c}
0x22bc…22d4 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN2,W1 «, t00=0x0016, t01=0x006a}
0x22d4…22f4 Head {h00=0x001c, h01=0x0050, text=» CALL MASK,DKBIN1,DKBIN2«, t00=0x0016, t01=0x0082}
0x22f4…2306 Head {h00=0x000e, h01=0x0050, text=» BZ DKER40«, t00=0x0016, t01=0x00a2}
0x2306…2334 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,=W'23' DISC NOT OPERABLE«, t00=0x0016, t01=0x00b4}
0x2334…2342 Head {h00=0x000a, h01=0x0050, text=»DKER40«, t00=0x0016, t01=0x00e2}
0x2342…234e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x00f0}
0x234e…235c Head {h00=0x000a, h01=0x0005, text=» PEND «, t00=0x0016, t01=0x00fc}
0x235c…236a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x010a}
0x236a…2374 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0118}
0x2374…2396 Head {h00=0x001e, h01=0x0050, text=»* SET CONDITION-REGISTER«, t00=0x0016, t01=0x0122}
0x2396…23a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0144}
0x23a0…23b2 Head {h00=0x000e, h01=0x0050, text=»COND PROC «, t00=0x0016, t01=0x014e}
0x23b2…23ce Head {h00=0x0018, h01=0x0050, text=» CBL DEBINW4,W0,CON1«, t00=0x0016, t01=0x0160}
0x23ce…23ea Head {h00=0x0018, h01=0x0050, text=» CBE DEBINW4,W0,CON0«, t00=0x0016, t01=0x017c}
0x23ea…23fc Head {h00=0x000e, h01=0x0050, text=» CMP W1,W2«, t00=0x0017, t01=0x0008}
0x23fc…2408 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x001a}
0x2408…2414 Head {h00=0x0008, h01=0x0050, text=»CON1«, t00=0x0017, t01=0x0026}
0x2414…2426 Head {h00=0x000e, h01=0x0050, text=» CMP W2,W1«, t00=0x0017, t01=0x0032}
0x2426…2432 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0044}
0x2432…243e Head {h00=0x0008, h01=0x0050, text=»CON0«, t00=0x0017, t01=0x0050}
0x243e…2450 Head {h00=0x000e, h01=0x0050, text=» CMP W1,W1«, t00=0x0017, t01=0x005c}
0x2450…245c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x006e}
0x245c…246a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x007a}
0x246a…2474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0088}
0x2474…2496 Head {h00=0x001e, h01=0x0050, text=»* WRITE FREESPACE-RECORD«, t00=0x0017, t01=0x0092}
0x2496…24a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b4}
0x24a0…24b6 Head {h00=0x0012, h01=0x0050, text=»WRFSP PROC MAX«, t00=0x0017, t01=0x00be}
0x24b6…24c8 Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0017, t01=0x00d4}
0x24c8…24ea Head {h00=0x001e, h01=0x0050, text=» MOVE DKBIN1,FINDEXPO(MAX)«, t00=0x0017, t01=0x00e6}
0x24ea…2516 Head {h00=0x0028, h01=0x0050, text=» COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9«, t00=0x0017, t01=0x0108}
0x2516…2544 Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0«, t00=0x0017, t01=0x0134}
0x2544…2564 Head {h00=0x001c, h01=0x0050, text=» MOVE DKBIN1,FFSNR(MAX) «, t00=0x0017, t01=0x0162}
0x2564…258c Head {h00=0x0024, h01=0x0050, text=» CALL CHANFC,DISK,FILECODE(MAX) «, t00=0x0017, t01=0x0182}
0x258c…25ae Head {h00=0x001e, h01=0x0050, text=» RWRITE DISK,SYSBUF,DKBIN1«, t00=0x0018, t01=0x001a}
0x25ae…25c4 Head {h00=0x0012, h01=0x0050, text=» BNERR WRFRET «, t00=0x0018, t01=0x003c}
0x25c4…25d6 Head {h00=0x000e, h01=0x0050, text=» PERF DKER«, t00=0x0018, t01=0x0052}
0x25d6…25e4 Head {h00=0x000a, h01=0x0050, text=»WRFRET«, t00=0x0018, t01=0x0064}
0x25e4…25f6 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0018, t01=0x0072}
0x25f6…2602 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0084}
0x2602…2610 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0090}
0x2610…261a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x009e}
0x261a…2624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a8}
0x2624…262e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b2}
0x262e…264c Head {h00=0x001a, h01=0x0050, text=»REFSP PROC FSRNR,FIND «, t00=0x0018, t01=0x00bc}
0x264c…265e Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0018, t01=0x00da}
0x265e…2686 Head {h00=0x0024, h01=0x0050, text=» CALL CHANFC,DISK,FILECODE(FIND)«, t00=0x0018, t01=0x00ec}
0x2686…2694 Head {h00=0x000a, h01=0x0050, text=»REFS01«, t00=0x0018, t01=0x0114}
0x2694…26b0 Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN1,SYSLEN «, t00=0x0018, t01=0x0122}
0x26b0…26dc Head {h00=0x0028, h01=0x0050, text=» RREAD .NEA,DISK,SYSBUF,DKBIN1,FSRNR«, t00=0x0018, t01=0x013e}
0x26dc…26f2 Head {h00=0x0012, h01=0x0050, text=» BNERR REFCOP «, t00=0x0018, t01=0x016a}
0x26f2…2704 Head {h00=0x000e, h01=0x0050, text=» PERF DKER«, t00=0x0018, t01=0x0180}
0x2704…271e (25, 2, 276) Head {h00=0x0016, h01=0x0050, text=» TBT NEWVOL,REFS01«, t00=0x0019, t01=0x0004}
0x271e…272c Head {h00=0x000a, h01=0x0050, text=»REFCOP«, t00=0x0019, t01=0x001e}
0x272c…2750 Head {h00=0x0020, h01=0x0050, text=» MOVE DKBIN1,FINDEXPO(FIND) «, t00=0x0019, t01=0x002c}
0x2750…2770 Head {h00=0x001c, h01=0x0050, text=» MOVE FFSNR(FIND),FSRNR «, t00=0x0019, t01=0x0050}
0x2770…279c Head {h00=0x0028, h01=0x0050, text=» COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0«, t00=0x0019, t01=0x0070}
0x279c…27ca Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10«, t00=0x0019, t01=0x009c}
0x27ca…27d8 Head {h00=0x000a, h01=0x0050, text=»REFEND«, t00=0x0019, t01=0x00ca}
0x27d8…27ea Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0019, t01=0x00d8}
0x27ea…27f6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x00ea}
0x27f6…2804 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x00f6}
0x2804…2810 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0019, t01=0x0104}
0x2810…2814 Head {h00=0x4004, h01=0x0000}
0x2814…2818 00 19 01 10 ┆ ┆
0x2818…2820 (26, 1, 8) 20 04 00 00 00 1a 00 04 ┆ ┆
0x2820…2870 (27, 0, 400) 03 12 00 00 01 ef 00 00 8f 6a 53 34 32 c8 30 80 01 34 ca 53 52 7a 01 53 4f 6a 53 32 32 ca 30 00 ca c8 5f 47 80 03 00 62 01 90 00 2a 00 26 03 12 00 00 02 0d 00 00 c8 31 52 6e 6a 9f 38 32 c8 30 80 03 cf 31 52 62 6a 9f 3a 32 cf 30 62 53 cc 3c ┆ jS42 0 4 SRz SOjS22 0 _G b * & 1Rnj 82 0 1Rbj :2 0bS <┆
0x2870…28c0 9f 30 02 cc 00 63 00 2e 00 2a 00 26 03 12 00 00 02 2b 00 00 3c 6a 53 36 32 cc 30 80 01 34 ca 53 52 3e 80 04 5f ea 00 d6 30 80 01 35 32 10 52 30 62 10 00 63 00 5c 00 2a 00 26 03 12 00 00 02 49 00 00 30 3a b3 31 39 62 10 3a 4c b1 31 30 80 01 ┆ 0 c . * & + <jS62 0 4 SR> _ 0 52 R0b c * & I 0: 19b :L 10 ┆
0x28c0…2910 34 32 10 52 1b 30 06 10 61 30 07 90 03 30 06 10 00 63 00 8a 00 2a 00 26 03 12 00 00 02 67 00 00 62 30 07 90 03 30 06 10 60 30 05 10 e0 51 34 00 00 d6 33 80 05 d6 5f 23 00 d6 41 5f 0a 80 00 63 00 b8 00 2a 00 26 03 12 00 00 02 85 00 00 01 33 ┆42 R 0 a0 0 c * & g b0 0 `0 Q4 3 _# A_ c * & 3┆
0x2910…2960 c4 53 5a 14 80 01 34 c8 53 5a 1b 00 c8 30 00 cd 30 20 c5 30 32 80 01 33 c5 53 5a 2c 00 63 00 e6 00 2a 00 26 03 12 00 00 02 a3 00 00 6a c5 30 32 53 34 20 c5 30 0c 80 03 c8 31 5a 34 6a 53 34 32 c8 30 6a 53 32 32 cd 30 80 01 00 63 01 14 00 2a ┆ SZ 4 SZ 0 0 02 3 SZ, c * & j 02S4 0 1Z4jS42 0jS22 0 c *┆
0x2960…29b0 00 26 03 12 00 00 02 c1 00 00 34 cf 53 5a 4f 00 cd cf 00 cf c8 5f 36 34 00 00 64 30 00 c0 30 30 2c 10 c0 e0 6a c0 30 32 00 63 01 42 00 2a 00 26 03 12 00 00 02 df 00 00 e0 3c 30 2c 10 c0 e0 00 c5 31 00 c4 34 57 0a 02 c4 38 02 c5 31 23 c5 46 ┆ & 4 SZO _64 d0 00, j 02 c B * & <0, 1 4W 8 1# F┆
0x29b0…2a00 (28, 0, 400) 0b 6a c6 30 32 e0 00 63 01 70 00 2a 00 26 03 12 00 00 02 fd 00 00 c4 02 64 c6 5f 15 21 54 3d 1b 21 54 3e 12 00 5b 5d 31 01 24 41 d0 80 06 32 d4 03 06 07 08 00 64 00 0e 00 2a 00 26 03 12 00 00 03 1b 00 00 5f 0c 31 01 25 5f 11 80 07 30 04 10 ┆ j 02 c p * & d _ !T= !T> []1 $A 2 d * & _ 1 %_ 0 ┆
0x2a00…2a50 00 b6 5d 01 58 50 05 06 58 59 50 a1 80 07 00 5b 5c 31 00 64 00 3c 00 2a 00 26 03 12 00 00 03 39 00 00 01 23 41 d0 80 06 32 d4 03 09 07 08 5f 14 80 08 5a 6a 52 37 31 60 31 30 02 00 31 35 01 9a 00 64 00 6a 00 2a 00 26 03 12 00 00 03 57 00 00 ┆ ] XP XYP [ 1 d < * & 9 #A 2 _ ZjR71`10 15 d j * & W ┆
0x2a50…2aa0 19 6a 52 36 31 9a 30 6a 52 38 38 5b 30 62 52 40 36 5a 30 01 c0 45 6a 52 c0 31 31 31 01 c1 00 64 00 98 00 2a 00 26 03 12 00 00 03 75 00 00 46 6a 52 c1 32 4e 30 21 54 3d 24 6a 52 c0 31 32 31 6a 52 c1 32 4d 30 21 54 3c 17 00 c2 68 00 64 00 c6 ┆ jR61 0jR88[0bR@6Z0 EjR 111 d * & u FjR 2N0!T=$jR 121jR 2M0!T< h d ┆
0x2aa0…2af0 00 2a 00 26 03 12 00 00 03 93 00 00 6a 52 c0 31 c2 31 00 c2 67 6a 52 c1 32 c2 30 57 03 08 69 68 01 c0 49 00 c2 69 6a 52 c0 32 00 64 00 f4 00 2a 00 26 03 12 00 00 03 b1 00 00 c2 30 01 c0 48 6a 52 c0 32 30 30 01 c0 47 6a 52 c0 32 30 30 30 2d ┆ * & jR 1 1 gjR 2 0W ih I ijR 2 d * & 0 HjR 200 GjR 2000-┆
0x2af0…2b40 52 e0 53 b6 29 54 3d 03 00 64 01 22 00 1a 00 16 03 0a 00 00 03 cf 00 00 0a 69 68 34 00 80 05 39 00 d6 4a 5f 0a 47 00 64 01 50 00 2a 00 26 03 12 00 00 03 dd 00 00 00 09 00 07 02 76 00 07 02 3c 00 07 00 c3 00 07 02 7e 00 07 01 a2 00 07 03 12 ┆R S )T= d " ih4 9 J_ G d P * & v < ~ ┆