|
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: 11132 (0x2b7c)
Notes: pts_type(SC)
Names: »DKRUT3.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DKRUT3.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DKRUT3.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DKRUT3.SC«
IDENT DKRUT3 UPD 80-01-21/CHST * * ************************************************************************ * * * ALL COMMENTS TO DKRUT3 ARE FOUND IN MODULE * * D E D I C O M M * * ************************************************************************ * * DDUM DDINIT PDIV ENTRY NXPRFM EXT COND EXT DISU EXT DEPOOL EXT WRFSP EXT WAIT EXT RELEAS EXT FREESP EXT SCHPOO ENTRY GETSYS ENTRY ENTSYS ENTRY NOFFRE ENTRY GETFMT ENTRY SCHFMT ENTRY SFMTCH EXT STRT01 EXT RETURN EXT RFRSP EXT RD ENTRY ALGO ENTRY GETTBL ENTRY DELTBL ENTRY ENTTBL EXT RDDS EJECT DUMPROC PROC FC GETFMT GET FORMAT MOVE RNRFMCH,W0 MOVE STR6A,DEINPUT PERF WAIT BERR RETURN NXPRFM PERF SCHPOO,=C'F ',STR6A,W7 IB DEBIN4,GOTFFR,FLOCKE SEARCH ON DISC RDDK MOVE DEBINW4,W0 CBNE FRMTPNTR,W0,MAXI CLEAR SWIT04 PERF SFMTCH,W4,SYSBUF,W10 BERR RETURN RDDK98 TEST SWIT02 BNZ RETURN READ 1ST REC OF FMT MOVE SYSBUF,HEX00 PERF DISU,W1,DEBIN3,SYSBUF PERF ALGO,W2 BNERR CHOK RDDK99 MOVE FRMTPNTR,W0 CBE FC,=W'31',RDDK100 IF GETNEXT CBE FC,=W'32',RDDK100 IF GETPREV SET SWIT07 BNZ SETER RDDK100 PERF RELEAS B STRT01 SETER MOVE DEBINW4,W9 B RETURN CHOK MOVE FRMTPNTR,DEBIN3 SET FRMTPNTR GET LINK NEXT XCOPY DEBIN5,W0,W2,SYSBUF,W4 GET NO OF REC MOVE DEBIN3,W0 XCOPY DEBIN3,W1,W1,SYSBUF,W8 MOVE DEBIN1,DEBIN3 MOVE DEBIN4,W0 GET NO OF CONSEC XCOPY DEBIN4,W1,W1,SYSBUF,W9 PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A BNERR GET21 MOVE DEBINW4,W13 'NO BUFFERS FREE' B RETURN MAXI MOVE DEBIN3,FRMTPNTR B RDDK98 GET21 MOVE DEBIN4,DEBIN3 GET20 XCOPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 XCOPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 SUB DEBIN1,W1 CBE DEBIN1,W0,TBFAL PERF DISU,W1,DEBIN5,SYSBUF BNERR GET25 PERF DEPOOL,W6,DEBIN4,DEBIN3,STRG10A B RDDK99 GET25 GET LINK NEXT XCOPY DEBIN5,W0,W2,SYSBUF,W4 XCOPY DEBIN3,W1,W1,RPOOL(DEBIN3),W8 B GET20 TBFALL MOVE DEBIN4,DEBIN3 TBFAL PERF DEPOOL,W4,DEBIN4,DEBIN1,STRG10A PERF DEPOOL,W6,PINDFR,DEBIN1,STRG10A SETPFR MOVE PINDFR,DEBIN4 B RETURN FLOCKE MOVE DEBINW4,W24 'LOCKED' B RETURN GOTFFR TBF SWIT02,FGETUN IF NOT SEARCH MOVE DEBIN1,W0 XCOPY DEBIN1,W1,W1,RPOOL(DEBIN3),W7 CBL DEBIN1,W1,FUT NOT USED INDUSE B FLOCKE FUT B RETURN FGETUN PERF SCHPOO,=C'F ',STR6A,W5 SET B TBFALL SCHFMT SEARCH FORMAT SET SWIT02 B GETFMT * * ENTSYS PERF WAIT BERR RETURN MOVE SYSBUF,=X'535600' MOVE DEBIN1,W10 MOVE DEBIN2,W1 CENT COPY SYSBUF,DEBIN1,W17,SYSV(DEBIN2),W0 ADD DEBIN1,W17 ADD DEBIN2,W1 CBL DEBIN2,W11,CENT PERF DISU,W2,W5,SYSBUF B RETURN * * GETSYS PERF WAIT BERR RETURN PERF DISU,W1,W5,SYSBUF BOK NNODA MOVE SYSBUF,HEX00 MOVE DEBINW4,W0 NNODA MOVE DEBIN1,W10 MOVE DEBIN2,W1 CGET COPY SYSV(DEBIN2),W0,W17,SYSBUF,DEBIN1 ADD DEBIN1,W17 ADD DEBIN2,W1 CBL DEBIN2,W11,CGET B RETURN * * EJECT * * ENTTBL SET SWIT01 B GETT01 ENTT01 MOVE SYSBUF,=X'5400' ENTCOR COPY SYSBUF,W8,W2,RPOOL(PINDTB),W17 COPY SYSBUF,W10,W188,BPOOL(PINDTB),W0 PERF DISU,W2,DEBIN4,SYSBUF B RETURN ENTT03 PERF FREESP,DEBIN2,W1 BERR RETURN XCOPY SYSBUF,W4,W2,DEBIN2,W0 PERF DISU,W2,DEBIN4,SYSBUF BERR RETURN MOVE DEBIN4,DEBIN2 B ENTT01 * * * DELTBL SET SWIT02 B GETT01 DELT01 XCOPY SYSBUF,DEBIN5,W2,W0,W0 PERF DISU,W2,W7,SYSBUF BNOK RETURN DELT02 PERF DISU,W1,DEBIN1,SYSBUF BNOK RETURN XCOPY DEBIN2,W0,W2,SYSBUF,W4 PERF RFRSP,DEBIN1,W1 BNOK RETURN CBE DEBIN2,W0,RETUR MOVE DEBIN1,DEBIN2 B DELT02 * * * * * GETTBL PERF SCHPOO,=C'T ',TABLE,W5 IB DEBIN4,GTF,LCK NOT IN POOL, READ GETT01 PERF WAIT BERR RETURN COPY STR2A,W0,W2,TABLE,W1 GET TABLE-NO MOVE BCD13A,STR2A MOVE DEBIN5,BCD13A CONVERT TO BINARY CBL DEBIN5,=W'95',DKTBL MOVE DEBINW4,W1 INDICATE ERROR RETUR B RETURN DKTBL PERF DISU,W1,W7,SYSBUF READ TABLE-PTR-REC BOK MUL CMP DEBINW4,=W'30' BNE RETURN MOVE DEBINW4,W0 TBF SWIT01,NOINSY MOVE SYSBUF,=X'544300' PERF DISU,W2,W7,SYSBUF BERR RETURN MUL MUL DEBIN5,W2 ADD DEBIN5,W10 XCOPY DEBIN1,W0,W2,SYSBUF,DEBIN5 CBNE DEBIN1,W0,DT002 TBF SWIT01,NOINSY PERF FREESP,DEBIN1,W1 BERR RETURN XCOPY SYSBUF,DEBIN5,W2,DEBIN1,W0 PERF DISU,W2,W7,SYSBUF BERR RETURN MOVE DEBIN4,DEBIN1 B ENTT01 DT002 TEST SWIT02 BNZ DELT01 RDN PERF DISU,W1,DEBIN1,SYSBUF BNOK RETURN MOVE DEBIN4,DEBIN1 MOVE DEBIN1,W0 XCOPY DEBIN1,W1,W1,SYSBUF,W9 LAST ELEMENT-NO CBNG ELMNO,DEBIN1,FNDTBL XCOPY DEBIN1,W0,W2,SYSBUF,W4 GET LINK NEXT CBG DEBIN1,W0,RDN READ NEXT RECORD TBF SWIT01,NOINSY JUMP IF NOT ENTER MOVE DEBIN2,W17 MATCH RPOOL(PINDTB),DEBIN2,W1,SYSBUF,W8,W1 BOK ENTT01 INSERT IN CURRENT SECTOR B ENTT03 INSERT NEW SECTOR NOINSY MOVE DEBINW4,W9 'NOT IN SYSTEM' B RETURN FNDTBL TEST SWIT01 BNZ ENTCOR MOVE DEBIN3,W1 MOVE DEBIN2,W1 PERF DEPOOL,W1,DEBIN3,DEBIN2,STRG10A BNOK RETURN COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 GTF PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A PERF DEPOOL,W6,PINDTB,DEBIN2,STRG10A RELEASE BUFFER MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,=W'25' B RETURN * PEND * * SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON: USERFILE * SFMTCH PROC WX,BUF,STEG MOVE DEBIN1,WX RID0 MOVE DEBIN2,W10 TBF SWIT04,RID3 PERF RDDS,DEBIN1 B BNERR RID3 PERF RD,DEBIN1,BUF BNERR BNERR RID1 CBE DEBINW4,=W'30',RID2 B RETR RID1 ADD DEBIN2,W2 XCOPY DKBIN1,W0,W2,BUF,W6 MTCH MATCH BUF,DEBIN2,W6,STR6A,W0,W6 BNERR FOND ADD DEBIN2,STEG SUB DEBIN2,W1 CBNG DEBIN2,DKBIN1,MTCH MOVE DEBINW4,W0 XCOPY DKBIN1,W0,W2,BUF,W4 CBE DKBIN1,W0,RID2 MOVE DEBIN1,DKBIN1 B RID0 RID2 MOVE DEBINW4,W9 INDICATE 'NOT IN CHAIN' B RETR FOND ADD DEBIN2,W6 XCOPY DEBIN3,W0,W2,BUF,DEBIN2 RETR PERF COND RET PEND * NOFFRE PROC CNTR,INDFIL GET NO OF FREE RECORDS MOVE CNTR,W0 MOVE DEBIN5,W2 CLEAR SWIT04 US002 CBL INDFIL,W2,US001 SET SWIT04 US001 PERF RD,DEBIN5,RBUF BERR NOFRET XCOPY DEBIN5,W0,W2,RBUF,W4 XCOPY DEBIN4,W0,W2,RBUF,W10 ADD CNTR,DEBIN4 CBNE DEBIN5,W0,US002 MOVE FNOOFREC(INDFIL),CNTR NOFRET PERF COND RET PEND * * EJECT * * SUBROUTINE ALGO: SET OR CHECK FORMAT-IDENTIFICATION ON DESCRIPTOR- * RECORD FOR DIRECT DISC-ACCESS IN 'GET FORMAT' * FC = 1 FOR SET (ENTER FORMAT) * FC = 2 FOR GET (GET FORMAT) IN THIS CASE, THE CONDITIONREGISTER IS * SET TO 0 IF IDENTIFICATION OKAY * SET TO 2 IF IDENTIFICATION NOT OKAY * ALGO PROC FC MOVE DKBIN3,W0 MOVE DKBIN1,W0 XCALGO XCOPY DKBIN2,W0,W2,STR6A,DKBIN1 ADD DKBIN3,DKBIN2 ADD DKBIN1,W2 CBNE DKBIN1,W6,XCALGO IB FC C ALTO C ALFRO ALTO XCOPY SYSBUF,W0,W2,DKBIN3,W0 RET ALFRO XCOPY DKBIN2,W0,W2,SYSBUF,W0 CBE DKBIN2,DKBIN3,NOERR CMP W1,W2 RET NOERR CMP W1,W1 RET PEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DKRUT3 UPD 80-01-21/CHST «, t00=0x0000, t01=0x0004}
0x0028…0032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x002c}
0x0032…003c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0036}
0x003c…008c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0040}
0x008c…0096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0090}
0x0096…00a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009a}
0x00a0…00de Head {h00=0x003a, h01=0x0050, text=»* ALL COMMENTS TO DKRUT3 ARE FOUND IN MODULE «, t00=0x0000, t01=0x00a4}
0x00de…00e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e2}
0x00e8…0118 Head {h00=0x002c, h01=0x0050, text=»* D E D I C O M M «, t00=0x0000, t01=0x00ec}
0x0118…0122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011c}
0x0122…012c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0126}
0x012c…017c Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0130}
0x017c…0186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x0186…0190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018a}
0x0190…01a4 (1, 0, 398) Head {h00=0x0010, h01=0x0050, text=» DDUM DDINIT«, t00=0x0001, t01=0x0004}
0x01a4…01b2 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x0018}
0x01b2…01c8 Head {h00=0x0012, h01=0x0050, text=» ENTRY NXPRFM «, t00=0x0001, t01=0x0026}
0x01c8…01da Head {h00=0x000e, h01=0x0050, text=» EXT COND «, t00=0x0001, t01=0x003c}
0x01da…01ec Head {h00=0x000e, h01=0x0050, text=» EXT DISU «, t00=0x0001, t01=0x004e}
0x01ec…0200 Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0001, t01=0x0060}
0x0200…0212 Head {h00=0x000e, h01=0x0050, text=» EXT WRFSP«, t00=0x0001, t01=0x0074}
0x0212…0224 Head {h00=0x000e, h01=0x0050, text=» EXT WAIT «, t00=0x0001, t01=0x0086}
0x0224…0238 Head {h00=0x0010, h01=0x0050, text=» EXT RELEAS «, t00=0x0001, t01=0x0098}
0x0238…024c Head {h00=0x0010, h01=0x0050, text=» EXT FREESP «, t00=0x0001, t01=0x00ac}
0x024c…0260 Head {h00=0x0010, h01=0x0050, text=» EXT SCHPOO «, t00=0x0001, t01=0x00c0}
0x0260…0276 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETSYS «, t00=0x0001, t01=0x00d4}
0x0276…028c Head {h00=0x0012, h01=0x0050, text=» ENTRY ENTSYS «, t00=0x0001, t01=0x00ea}
0x028c…02a2 Head {h00=0x0012, h01=0x0050, text=» ENTRY NOFFRE «, t00=0x0001, t01=0x0100}
0x02a2…02b8 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETFMT «, t00=0x0001, t01=0x0116}
0x02b8…02ce Head {h00=0x0012, h01=0x0050, text=» ENTRY SCHFMT «, t00=0x0001, t01=0x012c}
0x02ce…02e4 Head {h00=0x0012, h01=0x0050, text=» ENTRY SFMTCH «, t00=0x0001, t01=0x0142}
0x02e4…02f8 Head {h00=0x0010, h01=0x0050, text=» EXT STRT01 «, t00=0x0001, t01=0x0158}
0x02f8…030c Head {h00=0x0010, h01=0x0050, text=» EXT RETURN «, t00=0x0001, t01=0x016c}
0x030c…031e Head {h00=0x000e, h01=0x0050, text=» EXT RFRSP«, t00=0x0001, t01=0x0180}
0x031e…032e (2, 0, 400) Head {h00=0x000c, h01=0x0050, text=» EXT RD «, t00=0x0002, t01=0x0004}
0x032e…0342 Head {h00=0x0010, h01=0x0050, text=» ENTRY ALGO «, t00=0x0002, t01=0x0014}
0x0342…0358 Head {h00=0x0012, h01=0x0050, text=» ENTRY GETTBL «, t00=0x0002, t01=0x0028}
0x0358…036e Head {h00=0x0012, h01=0x0050, text=» ENTRY DELTBL «, t00=0x0002, t01=0x003e}
0x036e…0384 Head {h00=0x0012, h01=0x0050, text=» ENTRY ENTTBL «, t00=0x0002, t01=0x0054}
0x0384…0396 Head {h00=0x000e, h01=0x0050, text=» EXT RDDS «, t00=0x0002, t01=0x006a}
0x0396…03a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x007c}
0x03a4…03bc Head {h00=0x0014, h01=0x0050, text=»DUMPROC PROC FC «, t00=0x0002, t01=0x008a}
0x03bc…03d8 Head {h00=0x0018, h01=0x0050, text=»GETFMT GET FORMAT «, t00=0x0002, t01=0x00a2}
0x03d8…03f0 Head {h00=0x0014, h01=0x0050, text=» MOVE RNRFMCH,W0«, t00=0x0002, t01=0x00be}
0x03f0…040c Head {h00=0x0018, h01=0x0050, text=» MOVE STR6A,DEINPUT «, t00=0x0002, t01=0x00d6}
0x040c…041e Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0002, t01=0x00f2}
0x041e…0432 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0002, t01=0x0104}
0x0432…0440 Head {h00=0x000a, h01=0x0050, text=»NXPRFM«, t00=0x0002, t01=0x0118}
0x0440…0464 Head {h00=0x0020, h01=0x0050, text=» PERF SCHPOO,=C'F ',STR6A,W7«, t00=0x0002, t01=0x0126}
0x0464…0484 Head {h00=0x001c, h01=0x0050, text=» IB DEBIN4,GOTFFR,FLOCKE«, t00=0x0002, t01=0x014a}
0x0484…049e Head {h00=0x0016, h01=0x0050, text=» SEARCH ON DISC «, t00=0x0002, t01=0x016a}
0x049e…04aa Head {h00=0x0008, h01=0x0050, text=»RDDK«, t00=0x0002, t01=0x0184}
0x04aa…04c2 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0002, t01=0x0190}
0x04c2…04e0 Head {h00=0x001a, h01=0x0050, text=» CBNE FRMTPNTR,W0,MAXI«, t00=0x0003, t01=0x0018}
0x04e0…04f6 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT04 «, t00=0x0003, t01=0x0036}
0x04f6…0518 Head {h00=0x001e, h01=0x0050, text=» PERF SFMTCH,W4,SYSBUF,W10«, t00=0x0003, t01=0x004c}
0x0518…052c Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0003, t01=0x006e}
0x052c…053a Head {h00=0x000a, h01=0x0050, text=»RDDK98«, t00=0x0003, t01=0x0082}
0x053a…054e Head {h00=0x0010, h01=0x0050, text=» TEST SWIT02«, t00=0x0003, t01=0x0090}
0x054e…0562 Head {h00=0x0010, h01=0x0050, text=» BNZ RETURN «, t00=0x0003, t01=0x00a4}
0x0562…0580 Head {h00=0x001a, h01=0x0050, text=» READ 1ST REC OF FMT«, t00=0x0003, t01=0x00b8}
0x0580…059a Head {h00=0x0016, h01=0x0050, text=» MOVE SYSBUF,HEX00«, t00=0x0003, t01=0x00d6}
0x059a…05be Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W1,DEBIN3,SYSBUF «, t00=0x0003, t01=0x00f0}
0x05be…05d4 Head {h00=0x0012, h01=0x0050, text=» PERF ALGO,W2 «, t00=0x0003, t01=0x0114}
0x05d4…05e8 Head {h00=0x0010, h01=0x0050, text=» BNERR CHOK «, t00=0x0003, t01=0x012a}
0x05e8…05f6 Head {h00=0x000a, h01=0x0050, text=»RDDK99«, t00=0x0003, t01=0x013e}
0x05f6…0610 Head {h00=0x0016, h01=0x0050, text=» MOVE FRMTPNTR,W0 «, t00=0x0003, t01=0x014c}
0x0610…063a Head {h00=0x0026, h01=0x0050, text=» CBE FC,=W'31',RDDK100 IF GETNEXT «, t00=0x0003, t01=0x0166}
0x063a…0664 Head {h00=0x0026, h01=0x0050, text=» CBE FC,=W'32',RDDK100 IF GETPREV «, t00=0x0003, t01=0x0190}
0x0664…0678 Head {h00=0x0010, h01=0x0050, text=» SET SWIT07 «, t00=0x0004, t01=0x002a}
0x0678…068a Head {h00=0x000e, h01=0x0050, text=» BNZ SETER«, t00=0x0004, t01=0x003e}
0x068a…069a Head {h00=0x000c, h01=0x0050, text=»RDDK100 «, t00=0x0004, t01=0x0050}
0x069a…06ae Head {h00=0x0010, h01=0x0050, text=» PERF RELEAS«, t00=0x0004, t01=0x0060}
0x06ae…06c0 Head {h00=0x000e, h01=0x0050, text=» B STRT01 «, t00=0x0004, t01=0x0074}
0x06c0…06ce Head {h00=0x000a, h01=0x0050, text=»SETER «, t00=0x0004, t01=0x0086}
0x06ce…06e6 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W9«, t00=0x0004, t01=0x0094}
0x06e6…06f8 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0004, t01=0x00ac}
0x06f8…0704 Head {h00=0x0008, h01=0x0050, text=»CHOK«, t00=0x0004, t01=0x00be}
0x0704…072e Head {h00=0x0026, h01=0x0050, text=» MOVE FRMTPNTR,DEBIN3 SET FRMTPNTR«, t00=0x0004, t01=0x00ca}
0x072e…0746 Head {h00=0x0014, h01=0x0050, text=» GET LINK NEXT«, t00=0x0004, t01=0x00f4}
0x0746…076c Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,SYSBUF,W4 «, t00=0x0004, t01=0x010c}
0x076c…0784 Head {h00=0x0014, h01=0x0050, text=» GET NO OF REC«, t00=0x0004, t01=0x0132}
0x0784…079c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN3,W0 «, t00=0x0004, t01=0x014a}
0x079c…07c2 Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN3,W1,W1,SYSBUF,W8 «, t00=0x0004, t01=0x0162}
0x07c2…07de Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,DEBIN3 «, t00=0x0004, t01=0x0188}
0x07de…07f6 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN4,W0 «, t00=0x0005, t01=0x0014}
0x07f6…0812 Head {h00=0x0018, h01=0x0050, text=» GET NO OF CONSEC «, t00=0x0005, t01=0x002c}
0x0812…0838 Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN4,W1,W1,SYSBUF,W9 «, t00=0x0005, t01=0x0048}
0x0838…0866 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A «, t00=0x0005, t01=0x006e}
0x0866…087a Head {h00=0x0010, h01=0x0050, text=» BNERR GET21«, t00=0x0005, t01=0x009c}
0x087a…08a6 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW4,W13 'NO BUFFERS FREE' «, t00=0x0005, t01=0x00b0}
0x08a6…08ae Head {h00=0x0004, h01=0x0050, t00=0x0005, t01=0x00dc}
0x08ae…08c0 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0005, t01=0x00e4}
0x08c0…08cc Head {h00=0x0008, h01=0x0050, text=»MAXI«, t00=0x0005, t01=0x00f6}
0x08cc…08ea Head {h00=0x001a, h01=0x0050, text=» MOVE DEBIN3,FRMTPNTR «, t00=0x0005, t01=0x0102}
0x08ea…08fc Head {h00=0x000e, h01=0x0050, text=» B RDDK98 «, t00=0x0005, t01=0x0120}
0x08fc…090a Head {h00=0x000a, h01=0x0050, text=»GET21 «, t00=0x0005, t01=0x0132}
0x090a…0926 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN4,DEBIN3 «, t00=0x0005, t01=0x0140}
0x0926…0934 Head {h00=0x000a, h01=0x0050, text=»GET20 «, t00=0x0005, t01=0x015c}
0x0934…0964 Head {h00=0x002c, h01=0x0050, text=» XCOPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 «, t00=0x0005, t01=0x016a}
0x0964…0992 Head {h00=0x002a, h01=0x0050, text=» XCOPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 «, t00=0x0006, t01=0x000a}
0x0992…09a8 Head {h00=0x0012, h01=0x0050, text=» SUB DEBIN1,W1«, t00=0x0006, t01=0x0038}
0x09a8…09c4 Head {h00=0x0018, h01=0x0050, text=» CBE DEBIN1,W0,TBFAL«, t00=0x0006, t01=0x004e}
0x09c4…09e8 Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W1,DEBIN5,SYSBUF «, t00=0x0006, t01=0x006a}
0x09e8…09fc Head {h00=0x0010, h01=0x0050, text=» BNERR GET25«, t00=0x0006, t01=0x008e}
0x09fc…0a2a Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,DEBIN4,DEBIN3,STRG10A «, t00=0x0006, t01=0x00a2}
0x0a2a…0a3c Head {h00=0x000e, h01=0x0050, text=» B RDDK99 «, t00=0x0006, t01=0x00d0}
0x0a3c…0a4a Head {h00=0x000a, h01=0x0050, text=»GET25 «, t00=0x0006, t01=0x00e2}
0x0a4a…0a62 Head {h00=0x0014, h01=0x0050, text=» GET LINK NEXT«, t00=0x0006, t01=0x00f0}
0x0a62…0a88 Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,SYSBUF,W4 «, t00=0x0006, t01=0x0108}
0x0a88…0ab4 Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBIN3,W1,W1,RPOOL(DEBIN3),W8«, t00=0x0006, t01=0x012e}
0x0ab4…0ac4 Head {h00=0x000c, h01=0x0050, text=» B GET20«, t00=0x0006, t01=0x015a}
0x0ac4…0ad2 Head {h00=0x000a, h01=0x0050, text=»TBFALL«, t00=0x0006, t01=0x016a}
0x0ad2…0aee Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN4,DEBIN3 «, t00=0x0006, t01=0x0178}
0x0aee…0afc (7, 0, 400) Head {h00=0x000a, h01=0x0050, text=»TBFAL «, t00=0x0007, t01=0x0004}
0x0afc…0b2a Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W4,DEBIN4,DEBIN1,STRG10A «, t00=0x0007, t01=0x0012}
0x0b2a…0b58 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,DEBIN1,STRG10A «, t00=0x0007, t01=0x0040}
0x0b58…0b66 Head {h00=0x000a, h01=0x0050, text=»SETPFR«, t00=0x0007, t01=0x006e}
0x0b66…0b82 Head {h00=0x0018, h01=0x0050, text=» MOVE PINDFR,DEBIN4 «, t00=0x0007, t01=0x007c}
0x0b82…0b94 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0007, t01=0x0098}
0x0b94…0ba2 Head {h00=0x000a, h01=0x0050, text=»FLOCKE«, t00=0x0007, t01=0x00aa}
0x0ba2…0bc4 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW4,W24 'LOCKED'«, t00=0x0007, t01=0x00b8}
0x0bc4…0bd6 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0007, t01=0x00da}
0x0bd6…0be4 Head {h00=0x000a, h01=0x0050, text=»GOTFFR«, t00=0x0007, t01=0x00ec}
0x0be4…0c0c Head {h00=0x0024, h01=0x0050, text=» TBF SWIT02,FGETUN IF NOT SEARCH«, t00=0x0007, t01=0x00fa}
0x0c0c…0c24 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W0 «, t00=0x0007, t01=0x0122}
0x0c24…0c50 Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBIN1,W1,W1,RPOOL(DEBIN3),W7«, t00=0x0007, t01=0x013a}
0x0c50…0c74 Head {h00=0x0020, h01=0x0050, text=» CBL DEBIN1,W1,FUT NOT USED «, t00=0x0007, t01=0x0166}
0x0c74…0c82 Head {h00=0x000a, h01=0x0050, text=»INDUSE«, t00=0x0007, t01=0x018a}
0x0c82…0c94 Head {h00=0x000e, h01=0x0050, text=» B FLOCKE «, t00=0x0008, t01=0x0008}
0x0c94…0ca0 Head {h00=0x0008, h01=0x0050, text=»FUT «, t00=0x0008, t01=0x001a}
0x0ca0…0cb2 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0008, t01=0x0026}
0x0cb2…0cc0 Head {h00=0x000a, h01=0x0050, text=»FGETUN«, t00=0x0008, t01=0x0038}
0x0cc0…0ce8 Head {h00=0x0024, h01=0x0050, text=» PERF SCHPOO,=C'F ',STR6A,W5 SET«, t00=0x0008, t01=0x0046}
0x0ce8…0cfa Head {h00=0x000e, h01=0x0050, text=» B TBFALL «, t00=0x0008, t01=0x006e}
0x0cfa…0d18 Head {h00=0x001a, h01=0x0050, text=»SCHFMT SEARCH FORMAT«, t00=0x0008, t01=0x0080}
0x0d18…0d2c Head {h00=0x0010, h01=0x0050, text=» SET SWIT02 «, t00=0x0008, t01=0x009e}
0x0d2c…0d3e Head {h00=0x000e, h01=0x0050, text=» B GETFMT «, t00=0x0008, t01=0x00b2}
0x0d3e…0d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00c4}
0x0d48…0d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ce}
0x0d52…0d60 Head {h00=0x000a, h01=0x0050, text=»ENTSYS«, t00=0x0008, t01=0x00d8}
0x0d60…0d72 Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0008, t01=0x00e6}
0x0d72…0d86 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0008, t01=0x00f8}
0x0d86…0da6 Head {h00=0x001c, h01=0x0050, text=» MOVE SYSBUF,=X'535600' «, t00=0x0008, t01=0x010c}
0x0da6…0dbe Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W10«, t00=0x0008, t01=0x012c}
0x0dbe…0dd6 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W1 «, t00=0x0008, t01=0x0144}
0x0dd6…0de2 Head {h00=0x0008, h01=0x0050, text=»CENT«, t00=0x0008, t01=0x015c}
0x0de2…0e12 Head {h00=0x002c, h01=0x0050, text=» COPY SYSBUF,DEBIN1,W17,SYSV(DEBIN2),W0 «, t00=0x0008, t01=0x0168}
0x0e12…0e2a Head {h00=0x0014, h01=0x0050, text=» ADD DEBIN1,W17 «, t00=0x0009, t01=0x0008}
0x0e2a…0e40 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN2,W1«, t00=0x0009, t01=0x0020}
0x0e40…0e5c Head {h00=0x0018, h01=0x0050, text=» CBL DEBIN2,W11,CENT«, t00=0x0009, t01=0x0036}
0x0e5c…0e7c Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W2,W5,SYSBUF «, t00=0x0009, t01=0x0052}
0x0e7c…0e8e Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x0009, t01=0x0072}
0x0e8e…0e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0084}
0x0e98…0ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x008e}
0x0ea2…0eb0 Head {h00=0x000a, h01=0x0050, text=»GETSYS«, t00=0x0009, t01=0x0098}
0x0eb0…0ec2 Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0009, t01=0x00a6}
0x0ec2…0ed6 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x0009, t01=0x00b8}
0x0ed6…0ef6 Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W1,W5,SYSBUF «, t00=0x0009, t01=0x00cc}
0x0ef6…0f08 Head {h00=0x000e, h01=0x0050, text=» BOK NNODA«, t00=0x0009, t01=0x00ec}
0x0f08…0f22 Head {h00=0x0016, h01=0x0050, text=» MOVE SYSBUF,HEX00«, t00=0x0009, t01=0x00fe}
0x0f22…0f3a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0009, t01=0x0118}
0x0f3a…0f48 Head {h00=0x000a, h01=0x0050, text=»NNODA «, t00=0x0009, t01=0x0130}
0x0f48…0f60 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W10«, t00=0x0009, t01=0x013e}
0x0f60…0f78 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W1 «, t00=0x0009, t01=0x0156}
0x0f78…0f84 Head {h00=0x0008, h01=0x0050, text=»CGET«, t00=0x0009, t01=0x016e}
0x0f84…0fb4 Head {h00=0x002c, h01=0x0050, text=» COPY SYSV(DEBIN2),W0,W17,SYSBUF,DEBIN1 «, t00=0x0009, t01=0x017a}
0x0fb4…0fcc Head {h00=0x0014, h01=0x0050, text=» ADD DEBIN1,W17 «, t00=0x000a, t01=0x001a}
0x0fcc…0fe2 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN2,W1«, t00=0x000a, t01=0x0032}
0x0fe2…0ffe Head {h00=0x0018, h01=0x0050, text=» CBL DEBIN2,W11,CGET«, t00=0x000a, t01=0x0048}
0x0ffe…1010 Head {h00=0x000e, h01=0x0050, text=» B RETURN «, t00=0x000a, t01=0x0064}
0x1010…101a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0076}
0x101a…1024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0080}
0x1024…1032 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x008a}
0x1032…103c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0098}
0x103c…1046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a2}
0x1046…1054 Head {h00=0x000a, h01=0x0006, text=»ENTTBL«, t00=0x000a, t01=0x00ac}
0x1054…1068 Head {h00=0x0010, h01=0x000b, text=» SET SWIT01 «, t00=0x000a, t01=0x00ba}
0x1068…107a Head {h00=0x000e, h01=0x0009, text=» B GETT01 «, t00=0x000a, t01=0x00ce}
0x107a…1088 Head {h00=0x000a, h01=0x0006, text=»ENTT01«, t00=0x000a, t01=0x00e0}
0x1088…10a6 Head {h00=0x001a, h01=0x0050, text=» MOVE SYSBUF,=X'5400' «, t00=0x000a, t01=0x00ee}
0x10a6…10b4 Head {h00=0x000a, h01=0x0050, text=»ENTCOR«, t00=0x000a, t01=0x010c}
0x10b4…10e0 Head {h00=0x0028, h01=0x0050, text=» COPY SYSBUF,W8,W2,RPOOL(PINDTB),W17«, t00=0x000a, t01=0x011a}
0x10e0…110e Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(PINDTB),W0«, t00=0x000a, t01=0x0146}
0x110e…1132 Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W2,DEBIN4,SYSBUF «, t00=0x000a, t01=0x0174}
0x1132…1144 Head {h00=0x000e, h01=0x0009, text=» B RETURN «, t00=0x000b, t01=0x0008}
0x1144…1152 Head {h00=0x000a, h01=0x0006, text=»ENTT03«, t00=0x000b, t01=0x001a}
0x1152…1170 Head {h00=0x001a, h01=0x0016, text=» PERF FREESP,DEBIN2,W1«, t00=0x000b, t01=0x0028}
0x1170…1184 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000b, t01=0x0046}
0x1184…11aa Head {h00=0x0022, h01=0x0050, text=» XCOPY SYSBUF,W4,W2,DEBIN2,W0 «, t00=0x000b, t01=0x005a}
0x11aa…11ce Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W2,DEBIN4,SYSBUF «, t00=0x000b, t01=0x0080}
0x11ce…11e2 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000b, t01=0x00a4}
0x11e2…11fe Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN4,DEBIN2 «, t00=0x000b, t01=0x00b8}
0x11fe…1210 Head {h00=0x000e, h01=0x0009, text=» B ENTT01 «, t00=0x000b, t01=0x00d4}
0x1210…121a Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x00e6}
0x121a…1224 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x00f0}
0x1224…122e Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x00fa}
0x122e…123c Head {h00=0x000a, h01=0x0050, text=»DELTBL«, t00=0x000b, t01=0x0104}
0x123c…1250 Head {h00=0x0010, h01=0x000b, text=» SET SWIT02 «, t00=0x000b, t01=0x0112}
0x1250…1262 Head {h00=0x000e, h01=0x0009, text=» B GETT01 «, t00=0x000b, t01=0x0126}
0x1262…1270 Head {h00=0x000a, h01=0x0006, text=»DELT01«, t00=0x000b, t01=0x0138}
0x1270…1296 Head {h00=0x0022, h01=0x0050, text=» XCOPY SYSBUF,DEBIN5,W2,W0,W0 «, t00=0x000b, t01=0x0146}
0x1296…12b6 Head {h00=0x001c, h01=0x0017, text=» PERF DISU,W2,W7,SYSBUF «, t00=0x000b, t01=0x016c}
0x12b6…12ca Head {h00=0x0010, h01=0x000c, text=» BNOK RETURN«, t00=0x000b, t01=0x018c}
0x12ca…12d8 Head {h00=0x000a, h01=0x0006, text=»DELT02«, t00=0x000c, t01=0x0010}
0x12d8…12fc Head {h00=0x0020, h01=0x001b, text=» PERF DISU,W1,DEBIN1,SYSBUF «, t00=0x000c, t01=0x001e}
0x12fc…1310 Head {h00=0x0010, h01=0x000c, text=» BNOK RETURN«, t00=0x000c, t01=0x0042}
0x1310…1336 Head {h00=0x0022, h01=0x001d, text=» XCOPY DEBIN2,W0,W2,SYSBUF,W4 «, t00=0x000c, t01=0x0056}
0x1336…1354 Head {h00=0x001a, h01=0x0015, text=» PERF RFRSP,DEBIN1,W1 «, t00=0x000c, t01=0x007c}
0x1354…1368 Head {h00=0x0010, h01=0x000c, text=» BNOK RETURN«, t00=0x000c, t01=0x009a}
0x1368…1384 Head {h00=0x0018, h01=0x0050, text=» CBE DEBIN2,W0,RETUR«, t00=0x000c, t01=0x00ae}
0x1384…13a0 Head {h00=0x0018, h01=0x0013, text=» MOVE DEBIN1,DEBIN2 «, t00=0x000c, t01=0x00ca}
0x13a0…13b2 Head {h00=0x000e, h01=0x0009, text=» B DELT02 «, t00=0x000c, t01=0x00e6}
0x13b2…13bc Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x00f8}
0x13bc…13c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x0102}
0x13c6…13d0 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000c, t01=0x010c}
0x13d0…13da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0116}
0x13da…13e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0120}
0x13e4…13f2 Head {h00=0x000a, h01=0x0006, text=»GETTBL«, t00=0x000c, t01=0x012a}
0x13f2…1416 Head {h00=0x0020, h01=0x0050, text=» PERF SCHPOO,=C'T ',TABLE,W5«, t00=0x000c, t01=0x0138}
0x1416…1430 Head {h00=0x0016, h01=0x0012, text=» IB DEBIN4,GTF,LCK«, t00=0x000c, t01=0x015c}
0x1430…144e Head {h00=0x001a, h01=0x0015, text=» NOT IN POOL, READ «, t00=0x000c, t01=0x0176}
0x144e…145c (13, 0, 400) Head {h00=0x000a, h01=0x0006, text=»GETT01«, t00=0x000d, t01=0x0004}
0x145c…146e Head {h00=0x000e, h01=0x000a, text=» PERF WAIT«, t00=0x000d, t01=0x0012}
0x146e…1482 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000d, t01=0x0024}
0x1482…14b2 Head {h00=0x002c, h01=0x0027, text=» COPY STR2A,W0,W2,TABLE,W1 GET TABLE-NO «, t00=0x000d, t01=0x0038}
0x14b2…14cc Head {h00=0x0016, h01=0x0050, text=» MOVE BCD13A,STR2A«, t00=0x000d, t01=0x0068}
0x14cc…14fa Head {h00=0x002a, h01=0x0050, text=» MOVE DEBIN5,BCD13A CONVERT TO BINARY «, t00=0x000d, t01=0x0082}
0x14fa…151a Head {h00=0x001c, h01=0x0018, text=» CBL DEBIN5,=W'95',DKTBL«, t00=0x000d, t01=0x00b0}
0x151a…1542 Head {h00=0x0024, h01=0x001f, text=» MOVE DEBINW4,W1 INDICATE ERROR «, t00=0x000d, t01=0x00d0}
0x1542…1550 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x000d, t01=0x00f8}
0x1550…1562 Head {h00=0x000e, h01=0x0009, text=» B RETURN «, t00=0x000d, t01=0x0106}
0x1562…1570 Head {h00=0x000a, h01=0x0005, text=»DKTBL «, t00=0x000d, t01=0x0118}
0x1570…15a2 Head {h00=0x002e, h01=0x002a, text=» PERF DISU,W1,W7,SYSBUF READ TABLE-PTR-REC«, t00=0x000d, t01=0x0126}
0x15a2…15b2 Head {h00=0x000c, h01=0x0050, text=» BOK MUL«, t00=0x000d, t01=0x0158}
0x15b2…15ce Head {h00=0x0018, h01=0x0050, text=» CMP DEBINW4,=W'30' «, t00=0x000d, t01=0x0168}
0x15ce…15e2 Head {h00=0x0010, h01=0x0050, text=» BNE RETURN «, t00=0x000d, t01=0x0184}
0x15e2…15fa Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x000e, t01=0x0008}
0x15fa…1614 Head {h00=0x0016, h01=0x0050, text=» TBF SWIT01,NOINSY«, t00=0x000e, t01=0x0020}
0x1614…1634 Head {h00=0x001c, h01=0x0050, text=» MOVE SYSBUF,=X'544300' «, t00=0x000e, t01=0x003a}
0x1634…1654 Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W2,W7,SYSBUF «, t00=0x000e, t01=0x005a}
0x1654…1668 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000e, t01=0x007a}
0x1668…1674 Head {h00=0x0008, h01=0x0050, text=»MUL «, t00=0x000e, t01=0x008e}
0x1674…168a Head {h00=0x0012, h01=0x000e, text=» MUL DEBIN5,W2«, t00=0x000e, t01=0x009a}
0x168a…16a2 Head {h00=0x0014, h01=0x000f, text=» ADD DEBIN5,W10 «, t00=0x000e, t01=0x00b0}
0x16a2…16cc Head {h00=0x0026, h01=0x0021, text=» XCOPY DEBIN1,W0,W2,SYSBUF,DEBIN5 «, t00=0x000e, t01=0x00c8}
0x16cc…16ea Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN1,W0,DT002 «, t00=0x000e, t01=0x00f2}
0x16ea…1704 Head {h00=0x0016, h01=0x0050, text=» TBF SWIT01,NOINSY«, t00=0x000e, t01=0x0110}
0x1704…1722 Head {h00=0x001a, h01=0x0050, text=» PERF FREESP,DEBIN1,W1«, t00=0x000e, t01=0x012a}
0x1722…1736 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000e, t01=0x0148}
0x1736…1760 Head {h00=0x0026, h01=0x0050, text=» XCOPY SYSBUF,DEBIN5,W2,DEBIN1,W0 «, t00=0x000e, t01=0x015c}
0x1760…1780 Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W2,W7,SYSBUF «, t00=0x000e, t01=0x0186}
0x1780…1794 Head {h00=0x0010, h01=0x0050, text=» BERR RETURN«, t00=0x000f, t01=0x0016}
0x1794…17b0 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN4,DEBIN1 «, t00=0x000f, t01=0x002a}
0x17b0…17c2 Head {h00=0x000e, h01=0x0050, text=» B ENTT01 «, t00=0x000f, t01=0x0046}
0x17c2…17d0 Head {h00=0x000a, h01=0x0050, text=»DT002 «, t00=0x000f, t01=0x0058}
0x17d0…17e4 Head {h00=0x0010, h01=0x0050, text=» TEST SWIT02«, t00=0x000f, t01=0x0066}
0x17e4…17f8 Head {h00=0x0010, h01=0x0050, text=» BNZ DELT01 «, t00=0x000f, t01=0x007a}
0x17f8…1804 Head {h00=0x0008, h01=0x0003, text=»RDN «, t00=0x000f, t01=0x008e}
0x1804…1828 Head {h00=0x0020, h01=0x001b, text=» PERF DISU,W1,DEBIN1,SYSBUF «, t00=0x000f, t01=0x009a}
0x1828…183c Head {h00=0x0010, h01=0x0050, text=» BNOK RETURN«, t00=0x000f, t01=0x00be}
0x183c…1858 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN4,DEBIN1 «, t00=0x000f, t01=0x00d2}
0x1858…1870 Head {h00=0x0014, h01=0x000f, text=» MOVE DEBIN1,W0 «, t00=0x000f, t01=0x00ee}
0x1870…18a6 Head {h00=0x0032, h01=0x002d, text=» XCOPY DEBIN1,W1,W1,SYSBUF,W9 LAST ELEMENT-NO «, t00=0x000f, t01=0x0106}
0x18a6…18c8 Head {h00=0x001e, h01=0x0019, text=» CBNG ELMNO,DEBIN1,FNDTBL «, t00=0x000f, t01=0x013c}
0x18c8…18fc Head {h00=0x0030, h01=0x002b, text=» XCOPY DEBIN1,W0,W2,SYSBUF,W4 GET LINK NEXT «, t00=0x000f, t01=0x015e}
0x18fc…1928 (16, 0, 400) Head {h00=0x0028, h01=0x0023, text=» CBG DEBIN1,W0,RDN READ NEXT RECORD «, t00=0x0010, t01=0x0004}
0x1928…1954 Head {h00=0x0028, h01=0x0050, text=» TBF SWIT01,NOINSY JUMP IF NOT ENTER«, t00=0x0010, t01=0x0030}
0x1954…196c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W17«, t00=0x0010, t01=0x005c}
0x196c…19a0 Head {h00=0x0030, h01=0x0050, text=» MATCH RPOOL(PINDTB),DEBIN2,W1,SYSBUF,W8,W1 «, t00=0x0010, t01=0x0074}
0x19a0…19cc Head {h00=0x0028, h01=0x0050, text=» BOK ENTT01 INSERT IN CURRENT SECTOR«, t00=0x0010, t01=0x00a8}
0x19cc…19f0 Head {h00=0x0020, h01=0x0050, text=» B ENTT03 INSERT NEW SECTOR «, t00=0x0010, t01=0x00d4}
0x19f0…19fe Head {h00=0x000a, h01=0x0050, text=»NOINSY«, t00=0x0010, t01=0x00f8}
0x19fe…1a26 Head {h00=0x0024, h01=0x0020, text=» MOVE DEBINW4,W9 'NOT IN SYSTEM'«, t00=0x0010, t01=0x0106}
0x1a26…1a38 Head {h00=0x000e, h01=0x0009, text=» B RETURN «, t00=0x0010, t01=0x012e}
0x1a38…1a46 Head {h00=0x000a, h01=0x0006, text=»FNDTBL«, t00=0x0010, t01=0x0140}
0x1a46…1a5a Head {h00=0x0010, h01=0x0050, text=» TEST SWIT01«, t00=0x0010, t01=0x014e}
0x1a5a…1a6e Head {h00=0x0010, h01=0x0050, text=» BNZ ENTCOR«, t00=0x0010, t01=0x0162}
0x1a6e…1a86 Head {h00=0x0014, h01=0x000f, text=» MOVE DEBIN3,W1 «, t00=0x0010, t01=0x0176}
0x1a86…1a9e Head {h00=0x0014, h01=0x000f, text=» MOVE DEBIN2,W1 «, t00=0x0010, t01=0x018e}
0x1a9e…1acc Head {h00=0x002a, h01=0x0025, text=» PERF DEPOOL,W1,DEBIN3,DEBIN2,STRG10A «, t00=0x0011, t01=0x0016}
0x1acc…1ae0 Head {h00=0x0010, h01=0x000c, text=» BNOK RETURN«, t00=0x0011, t01=0x0044}
0x1ae0…1b0c Head {h00=0x0028, h01=0x0024, text=» COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0«, t00=0x0011, t01=0x0058}
0x1b0c…1b3a Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10«, t00=0x0011, t01=0x0084}
0x1b3a…1b46 Head {h00=0x0008, h01=0x0003, text=»GTF «, t00=0x0011, t01=0x00b2}
0x1b46…1b74 Head {h00=0x002a, h01=0x0025, text=» PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A «, t00=0x0011, t01=0x00be}
0x1b74…1bb0 Head {h00=0x0038, h01=0x0050, text=» PERF DEPOOL,W6,PINDTB,DEBIN2,STRG10A RELEASE BUFFER«, t00=0x0011, t01=0x00ec}
0x1bb0…1bcc Head {h00=0x0018, h01=0x0013, text=» MOVE PINDTB,DEBIN3 «, t00=0x0011, t01=0x0128}
0x1bcc…1bde Head {h00=0x000e, h01=0x0009, text=» B RETURN «, t00=0x0011, t01=0x0144}
0x1bde…1bea Head {h00=0x0008, h01=0x0003, text=»LCK «, t00=0x0011, t01=0x0156}
0x1bea…1c06 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,=W'25'«, t00=0x0011, t01=0x0162}
0x1c06…1c18 Head {h00=0x000e, h01=0x0009, text=» B RETURN «, t00=0x0011, t01=0x017e}
0x1c18…1c22 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x0190}
0x1c22…1c30 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0012, t01=0x000a}
0x1c30…1c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0018}
0x1c3a…1c7a Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON: USERFILE«, t00=0x0012, t01=0x0022}
0x1c7a…1c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0062}
0x1c84…1ca4 Head {h00=0x001c, h01=0x0050, text=»SFMTCH PROC WX,BUF,STEG «, t00=0x0012, t01=0x006c}
0x1ca4…1cbc Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,WX «, t00=0x0012, t01=0x008c}
0x1cbc…1cc8 Head {h00=0x0008, h01=0x0050, text=»RID0«, t00=0x0012, t01=0x00a4}
0x1cc8…1ce0 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W10«, t00=0x0012, t01=0x00b0}
0x1ce0…1cf8 Head {h00=0x0014, h01=0x0050, text=» TBF SWIT04,RID3«, t00=0x0012, t01=0x00c8}
0x1cf8…1d12 Head {h00=0x0016, h01=0x0050, text=» PERF RDDS,DEBIN1 «, t00=0x0012, t01=0x00e0}
0x1d12…1d22 Head {h00=0x000c, h01=0x0050, text=» B BNERR«, t00=0x0012, t01=0x00fa}
0x1d22…1d2e Head {h00=0x0008, h01=0x0050, text=»RID3«, t00=0x0012, t01=0x010a}
0x1d2e…1d4a Head {h00=0x0018, h01=0x0050, text=» PERF RD,DEBIN1,BUF «, t00=0x0012, t01=0x0116}
0x1d4a…1d58 Head {h00=0x000a, h01=0x0050, text=»BNERR «, t00=0x0012, t01=0x0132}
0x1d58…1d6c Head {h00=0x0010, h01=0x0050, text=» BNERR RID1 «, t00=0x0012, t01=0x0140}
0x1d6c…1d8c Head {h00=0x001c, h01=0x0050, text=» CBE DEBINW4,=W'30',RID2«, t00=0x0012, t01=0x0154}
0x1d8c…1d9c Head {h00=0x000c, h01=0x0050, text=» B RETR «, t00=0x0012, t01=0x0174}
0x1d9c…1da8 Head {h00=0x0008, h01=0x0050, text=»RID1«, t00=0x0012, t01=0x0184}
0x1da8…1dbe Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN2,W2«, t00=0x0012, t01=0x0190}
0x1dbe…1de0 Head {h00=0x001e, h01=0x0050, text=» XCOPY DKBIN1,W0,W2,BUF,W6«, t00=0x0013, t01=0x0016}
0x1de0…1dec Head {h00=0x0008, h01=0x0050, text=»MTCH«, t00=0x0013, t01=0x0038}
0x1dec…1e14 Head {h00=0x0024, h01=0x0050, text=» MATCH BUF,DEBIN2,W6,STR6A,W0,W6«, t00=0x0013, t01=0x0044}
0x1e14…1e28 Head {h00=0x0010, h01=0x0050, text=» BNERR FOND «, t00=0x0013, t01=0x006c}
0x1e28…1e40 Head {h00=0x0014, h01=0x0050, text=» ADD DEBIN2,STEG«, t00=0x0013, t01=0x0080}
0x1e40…1e56 Head {h00=0x0012, h01=0x0050, text=» SUB DEBIN2,W1«, t00=0x0013, t01=0x0098}
0x1e56…1e76 Head {h00=0x001c, h01=0x0050, text=» CBNG DEBIN2,DKBIN1,MTCH«, t00=0x0013, t01=0x00ae}
0x1e76…1e8e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0013, t01=0x00ce}
0x1e8e…1eb0 Head {h00=0x001e, h01=0x0050, text=» XCOPY DKBIN1,W0,W2,BUF,W4«, t00=0x0013, t01=0x00e6}
0x1eb0…1ecc Head {h00=0x0018, h01=0x0050, text=» CBE DKBIN1,W0,RID2 «, t00=0x0013, t01=0x0108}
0x1ecc…1ee8 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,DKBIN1 «, t00=0x0013, t01=0x0124}
0x1ee8…1ef8 Head {h00=0x000c, h01=0x0050, text=» B RID0 «, t00=0x0013, t01=0x0140}
0x1ef8…1f04 Head {h00=0x0008, h01=0x0050, text=»RID2«, t00=0x0013, t01=0x0150}
0x1f04…1f34 Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW4,W9 INDICATE 'NOT IN CHAIN'«, t00=0x0013, t01=0x015c}
0x1f34…1f44 Head {h00=0x000c, h01=0x0050, text=» B RETR «, t00=0x0013, t01=0x018c}
0x1f44…1f50 Head {h00=0x0008, h01=0x0050, text=»FOND«, t00=0x0014, t01=0x000c}
0x1f50…1f66 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN2,W6«, t00=0x0014, t01=0x0018}
0x1f66…1f8c Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN3,W0,W2,BUF,DEBIN2«, t00=0x0014, t01=0x002e}
0x1f8c…1f98 Head {h00=0x0008, h01=0x0050, text=»RETR«, t00=0x0014, t01=0x0054}
0x1f98…1faa Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0014, t01=0x0060}
0x1faa…1fb6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x0072}
0x1fb6…1fc4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x007e}
0x1fc4…1fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008c}
0x1fce…2004 Head {h00=0x0032, h01=0x0050, text=»NOFFRE PROC CNTR,INDFIL GET NO OF FREE RECORDS«, t00=0x0014, t01=0x0096}
0x2004…201a Head {h00=0x0012, h01=0x0050, text=» MOVE CNTR,W0 «, t00=0x0014, t01=0x00cc}
0x201a…2032 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN5,W2 «, t00=0x0014, t01=0x00e2}
0x2032…2048 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT04 «, t00=0x0014, t01=0x00fa}
0x2048…2056 Head {h00=0x000a, h01=0x0050, text=»US002 «, t00=0x0014, t01=0x0110}
0x2056…2072 Head {h00=0x0018, h01=0x0050, text=» CBL INDFIL,W2,US001«, t00=0x0014, t01=0x011e}
0x2072…2086 Head {h00=0x0010, h01=0x0050, text=» SET SWIT04 «, t00=0x0014, t01=0x013a}
0x2086…2094 Head {h00=0x000a, h01=0x0050, text=»US001 «, t00=0x0014, t01=0x014e}
0x2094…20b0 Head {h00=0x0018, h01=0x0050, text=» PERF RD,DEBIN5,RBUF«, t00=0x0014, t01=0x015c}
0x20b0…20c4 Head {h00=0x0010, h01=0x0050, text=» BERR NOFRET«, t00=0x0014, t01=0x0178}
0x20c4…20e8 Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,RBUF,W4 «, t00=0x0014, t01=0x018c}
0x20e8…210c Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN4,W0,W2,RBUF,W10«, t00=0x0015, t01=0x0020}
0x210c…2124 Head {h00=0x0014, h01=0x0050, text=» ADD CNTR,DEBIN4«, t00=0x0015, t01=0x0044}
0x2124…2142 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN5,W0,US002 «, t00=0x0015, t01=0x005c}
0x2142…2166 Head {h00=0x0020, h01=0x0050, text=» MOVE FNOOFREC(INDFIL),CNTR «, t00=0x0015, t01=0x007a}
0x2166…2174 Head {h00=0x000a, h01=0x0050, text=»NOFRET«, t00=0x0015, t01=0x009e}
0x2174…2186 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0015, t01=0x00ac}
0x2186…2192 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x00be}
0x2192…21a0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x00ca}
0x21a0…21aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d8}
0x21aa…21b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e2}
0x21b4…21c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00ec}
0x21c2…21cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fa}
0x21cc…221a Head {h00=0x004a, h01=0x0050, text=»* SUBROUTINE ALGO: SET OR CHECK FORMAT-IDENTIFICATION ON DESCRIPTOR- «, t00=0x0015, t01=0x0104}
0x221a…2252 Head {h00=0x0034, h01=0x0050, text=»* RECORD FOR DIRECT DISC-ACCESS IN 'GET FORMAT'«, t00=0x0015, t01=0x0152}
0x2252…227a Head {h00=0x0024, h01=0x0050, text=»* FC = 1 FOR SET (ENTER FORMAT)«, t00=0x0015, t01=0x018a}
0x227a…22c8 Head {h00=0x004a, h01=0x0050, text=»* FC = 2 FOR GET (GET FORMAT) IN THIS CASE, THE CONDITIONREGISTER IS «, t00=0x0016, t01=0x0022}
0x22c8…22fa Head {h00=0x002e, h01=0x0050, text=»* SET TO 0 IF IDENTIFICATION OKAY «, t00=0x0016, t01=0x0070}
0x22fa…2330 Head {h00=0x0032, h01=0x0050, text=»* SET TO 2 IF IDENTIFICATION NOT OKAY «, t00=0x0016, t01=0x00a2}
0x2330…233a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d8}
0x233a…234e Head {h00=0x0010, h01=0x0050, text=»ALGO PROC FC«, t00=0x0016, t01=0x00e2}
0x234e…2366 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN3,W0 «, t00=0x0016, t01=0x00f6}
0x2366…237e Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W0 «, t00=0x0016, t01=0x010e}
0x237e…238c Head {h00=0x000a, h01=0x0050, text=»XCALGO«, t00=0x0016, t01=0x0126}
0x238c…23b4 Head {h00=0x0024, h01=0x0050, text=» XCOPY DKBIN2,W0,W2,STR6A,DKBIN1«, t00=0x0016, t01=0x0134}
0x23b4…23ce Head {h00=0x0016, h01=0x0050, text=» ADD DKBIN3,DKBIN2«, t00=0x0016, t01=0x015c}
0x23ce…23e4 Head {h00=0x0012, h01=0x0050, text=» ADD DKBIN1,W2«, t00=0x0016, t01=0x0176}
0x23e4…2402 Head {h00=0x001a, h01=0x0050, text=» CBNE DKBIN1,W6,XCALGO«, t00=0x0016, t01=0x018c}
0x2402…2414 Head {h00=0x000e, h01=0x0050, text=» IB FC C «, t00=0x0017, t01=0x001a}
0x2414…2426 Head {h00=0x000e, h01=0x0050, text=» ALTO C «, t00=0x0017, t01=0x002c}
0x2426…2436 Head {h00=0x000c, h01=0x0050, text=» ALFRO «, t00=0x0017, t01=0x003e}
0x2436…2442 Head {h00=0x0008, h01=0x0050, text=»ALTO«, t00=0x0017, t01=0x004e}
0x2442…2468 Head {h00=0x0022, h01=0x0050, text=» XCOPY SYSBUF,W0,W2,DKBIN3,W0 «, t00=0x0017, t01=0x005a}
0x2468…2474 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x0080}
0x2474…2482 Head {h00=0x000a, h01=0x0050, text=»ALFRO «, t00=0x0017, t01=0x008c}
0x2482…24a8 Head {h00=0x0022, h01=0x0050, text=» XCOPY DKBIN2,W0,W2,SYSBUF,W0 «, t00=0x0017, t01=0x009a}
0x24a8…24c8 Head {h00=0x001c, h01=0x0050, text=» CBE DKBIN2,DKBIN3,NOERR«, t00=0x0017, t01=0x00c0}
0x24c8…24da Head {h00=0x000e, h01=0x0050, text=» CMP W1,W2«, t00=0x0017, t01=0x00e0}
0x24da…24e6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x00f2}
0x24e6…24f4 Head {h00=0x000a, h01=0x0050, text=»NOERR «, t00=0x0017, t01=0x00fe}
0x24f4…2506 Head {h00=0x000e, h01=0x0050, text=» CMP W1,W1«, t00=0x0017, t01=0x010c}
0x2506…2512 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x011e}
0x2512…2520 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x012a}
0x2520…252c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0017, t01=0x0138}
0x252c…2530 Head {h00=0x4004, h01=0x0000}
0x2530…2534 00 17 01 44 ┆ D┆
0x2534…253c (24, 1, 8) 20 04 00 00 00 18 00 04 ┆ ┆
0x253c…258c (25, 0, 400) 4f 56 45 20 44 45 42 49 4e 32 2c 57 31 20 00 10 01 8e 00 2a 00 25 20 50 45 52 46 20 44 45 50 4f 4f 4c 2c 57 31 2c 44 45 42 49 4e 33 2c 44 45 42 49 4e 32 2c 53 54 52 47 31 30 41 20 00 11 00 16 00 10 00 0c 20 42 4e 4f 4b 20 52 45 54 55 52 4e ┆OVE DEBIN2,W1 * % PERF DEPOOL,W1,DEBIN3,DEBIN2,STRG10A BNOK RETURN┆
0x258c…25dc 00 11 00 44 00 28 00 24 20 43 4f 50 59 20 52 50 4f 4f 4c 28 44 45 42 49 4e 33 29 2c 57 39 2c 57 31 30 2c 53 59 53 42 55 46 2c 57 30 00 11 00 58 00 2a 00 50 20 43 4f 50 59 20 42 50 4f 4f 4c 28 44 45 42 49 4e 33 29 2c 57 30 2c 57 31 38 38 2c ┆ D ( $ COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 X * P COPY BPOOL(DEBIN3),W0,W188,┆
0x25dc…262c 53 59 53 42 55 46 2c 57 31 30 00 11 00 84 00 08 00 03 47 54 46 20 00 11 00 b2 00 2a 00 25 20 50 45 52 46 20 44 45 50 4f 4f 4c 2c 57 34 2c 44 45 42 49 4e 33 2c 44 45 42 49 4e 32 2c 53 54 52 47 31 30 41 20 00 11 00 be 00 38 00 50 20 50 45 52 ┆SYSBUF,W10 GTF * % PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A 8 P PER┆
0x262c…267c 46 20 44 45 50 4f 4f 4c 2c 57 36 2c 50 49 4e 44 54 42 2c 44 45 42 49 4e 32 2c 53 54 52 47 31 30 41 5c 52 45 4c 45 41 53 45 20 42 55 46 46 45 52 00 11 00 ec 00 18 00 13 20 4d 4f 56 45 20 50 49 4e 44 54 42 2c 44 45 42 49 4e 33 20 00 11 01 28 ┆F DEPOOL,W6,PINDTB,DEBIN2,STRG10A RELEASE BUFFER MOVE PINDTB,DEBIN3 (┆
0x267c…26cc 00 0e 00 09 20 42 20 52 45 54 55 52 4e 20 00 11 01 44 00 08 00 03 4c 43 4b 20 00 11 01 56 00 18 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 34 2c 3d 57 27 32 35 27 00 11 01 62 00 0e 00 09 20 42 20 52 45 54 55 52 4e 20 00 11 01 7e 00 06 00 03 ┆ B RETURN D LCK V P MOVE DEBINW4,=W'25' b B RETURN ~ ┆
0x26cc…271c (26, 0, 400) 2a 20 00 11 01 90 00 0a 00 50 5c 50 45 4e 44 20 00 12 00 0a 00 06 00 50 2a 20 00 12 00 18 00 3c 00 50 2a 20 20 20 53 55 42 52 4f 55 54 49 4e 52 20 53 46 4d 54 43 48 2c 20 53 45 41 52 43 48 20 43 48 41 49 4e 2e 20 53 57 49 54 30 34 20 4f 4e ┆* P PEND P* < P* SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON┆
0x271c…276c 3a 20 55 53 45 52 46 49 4c 45 00 12 00 22 00 06 00 50 2a 20 00 12 00 62 00 1c 00 50 53 46 4d 54 43 48 20 50 52 4f 43 20 57 58 2c 42 55 46 2c 53 54 45 47 20 00 12 00 6c 00 14 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 31 2c 57 58 20 00 12 00 8c ┆: USERFILE " P* b PSFMTCH PROC WX,BUF,STEG l P MOVE DEBIN1,WX ┆
0x276c…27bc 00 08 00 50 52 49 44 30 00 12 00 a4 00 14 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 32 2c 57 31 30 00 12 00 b0 00 14 00 50 20 54 42 46 20 53 57 49 54 30 34 2c 52 49 44 33 00 12 00 c8 00 16 00 50 20 50 45 52 46 20 52 44 44 53 2c 44 45 42 49 4e ┆ PRID0 P MOVE DEBIN2,W10 P TBF SWIT04,RID3 P PERF RDDS,DEBIN┆
0x27bc…280c 31 20 00 12 00 e0 00 0c 00 50 20 42 20 42 4e 45 52 52 00 12 00 fa 00 08 00 50 52 49 44 33 00 12 01 0a 00 18 00 50 20 50 45 52 46 20 52 44 2c 44 45 42 49 4e 31 2c 42 55 46 20 00 12 01 16 00 0a 00 50 42 4e 45 52 52 20 00 12 01 32 00 10 00 50 ┆1 P B BNERR PRID3 P PERF RD,DEBIN1,BUF PBNERR 2 P┆
0x280c…285c 20 42 4e 45 52 52 20 52 49 44 31 20 00 12 01 40 00 1c 00 50 20 43 42 45 20 44 45 42 49 4e 57 34 2c 3d 57 27 33 30 27 2c 52 49 44 32 00 12 01 54 00 0c 00 50 20 42 20 52 45 54 52 20 00 12 01 74 00 08 00 50 52 49 44 31 00 12 01 84 00 12 00 50 ┆ BNERR RID1 @ P CBE DEBINW4,=W'30',RID2 T P B RETR t PRID1 P┆
0x285c…28ac (27, 0, 400) 20 41 44 44 20 44 45 42 49 4e 32 2c 57 32 00 12 01 90 00 1e 00 50 20 58 43 4f 50 59 20 44 4b 42 49 4e 31 2c 57 30 2c 57 32 2c 42 55 46 2c 57 36 00 13 00 16 00 08 00 50 4d 54 43 48 00 13 00 38 00 24 00 50 5c 4d 41 54 43 48 5c 42 55 46 2c 44 ┆ ADD DEBIN2,W2 P XCOPY DKBIN1,W0,W2,BUF,W6 PMTCH 8 $ P MATCH BUF,D┆
0x28ac…28fc 45 42 49 4e 32 2c 57 36 2c 53 54 52 36 41 2c 57 30 2c 57 36 00 13 00 44 00 10 00 50 5c 42 4e 45 52 52 5c 46 4f 4e 44 20 00 13 00 6c 00 14 00 50 5c 41 44 44 5c 44 45 42 49 4e 32 2c 53 54 45 47 00 13 00 80 00 12 00 50 5c 53 55 42 5c 44 45 42 ┆EBIN2,W6,STR6A,W0,W6 D P BNERR FOND l P ADD DEBIN2,STEG P SUB DEB┆
0x28fc…294c 49 4e 32 2c 57 31 00 13 00 98 00 1c 00 50 5c 43 42 4e 47 5c 44 45 42 49 4e 32 2c 44 4b 42 49 4e 31 2c 4d 54 43 48 00 13 00 ae 00 14 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 34 2c 57 30 00 13 00 ce 00 1e 00 50 20 58 43 4f 50 59 20 44 4b 42 ┆IN2,W1 P CBNG DEBIN2,DKBIN1,MTCH P MOVE DEBINW4,W0 P XCOPY DKB┆
0x294c…299c 49 4e 31 2c 57 30 2c 57 32 2c 42 55 46 2c 57 34 00 13 00 e6 00 18 00 50 20 43 42 45 20 44 4b 42 49 4e 31 2c 57 30 2c 52 49 44 32 20 00 13 01 08 00 18 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 31 2c 44 4b 42 49 4e 31 20 00 13 01 24 00 0c 00 50 ┆IN1,W0,W2,BUF,W4 P CBE DKBIN1,W0,RID2 P MOVE DEBIN1,DKBIN1 $ P┆
0x299c…29ec 20 42 20 52 49 44 30 20 00 13 01 40 00 08 00 50 52 49 44 32 00 13 01 50 00 2c 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 57 34 2c 57 39 20 49 4e 44 49 43 41 54 45 20 27 4e 4f 54 20 49 4e 20 43 48 41 49 4e 27 00 13 01 5c 00 0c 00 50 20 42 20 52 ┆ B RID0 @ PRID2 P , P MOVE DEBINW4,W9 INDICATE 'NOT IN CHAIN' P B R┆
0x29ec…2a3c (28, 0, 400) 45 54 52 20 00 13 01 8c 00 08 00 50 46 4f 4e 44 00 14 00 0c 00 12 00 50 20 41 44 44 20 44 45 42 49 4e 32 2c 57 36 00 14 00 18 00 22 00 50 20 58 43 4f 50 59 20 44 45 42 49 4e 33 2c 57 30 2c 57 32 2c 42 55 46 2c 44 45 42 49 4e 32 00 14 00 2e ┆ETR PFOND P ADD DEBIN2,W6 " P XCOPY DEBIN3,W0,W2,BUF,DEBIN2 .┆
0x2a3c…2a8c 00 08 00 50 52 45 54 52 00 14 00 54 00 0e 00 50 20 50 45 52 46 20 43 4f 4e 44 00 14 00 60 00 08 00 50 20 52 45 54 00 14 00 72 00 0a 00 50 20 50 45 4e 44 20 00 14 00 7e 00 06 00 50 2a 20 00 14 00 8c 00 32 00 50 4e 4f 46 46 52 45 20 50 52 4f ┆ PRETR T P PERF COND ` P RET r P PEND ~ P* 2 PNOFFRE PRO┆
0x2a8c…2adc 43 20 43 4e 54 52 2c 49 4e 44 46 49 4c 5c 47 45 54 20 4e 4f 20 4f 46 20 46 52 45 45 20 52 45 43 4f 52 44 53 00 14 00 96 00 12 00 50 20 4d 4f 56 45 20 43 4e 54 52 2c 57 30 20 00 14 00 cc 00 14 00 50 20 4d 4f 56 45 20 44 45 42 49 4e 35 2c 57 ┆C CNTR,INDFIL GET NO OF FREE RECORDS P MOVE CNTR,W0 P MOVE DEBIN5,W┆
0x2adc…2b2c 32 20 00 14 00 e2 00 12 00 50 20 43 4c 45 41 52 20 53 57 49 54 30 34 20 00 14 00 fa 00 0a 00 50 55 53 30 30 32 20 00 14 01 10 00 18 00 50 20 43 42 4c 20 49 4e 44 46 49 4c 2c 57 32 2c 55 53 30 30 31 00 14 01 1e 00 10 00 50 20 53 45 54 20 53 ┆2 P CLEAR SWIT04 PUS002 P CBL INDFIL,W2,US001 P SET S┆
0x2b2c…2b7c 57 49 54 30 34 20 00 14 01 3a 00 0a 00 50 55 53 30 30 31 20 00 14 01 4e 00 18 00 50 20 50 45 52 46 20 52 44 2c 44 45 42 49 4e 35 2c 52 42 55 46 00 14 01 5c 00 10 00 50 20 42 45 52 52 20 4e 4f 46 52 45 54 00 14 01 78 00 20 00 50 20 58 43 4f ┆WIT04 : PUS001 N P PERF RD,DEBIN5,RBUF P BERR NOFRET x P XCO┆