|
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: 11104 (0x2b60)
Notes: pts_type(SC)
Names: »DEDISU.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DEDISU.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DEDISU.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DEDISU.SC«
IDENT DEDISU PRR 1.0 79-06-19/AST * * ************************************************************************ * * * THIS MODULE CONTENTS ALL SUBROUTINES, USED BY * * D E D I S C * * ************************************************************************ * * DDUM DDINIT PDIV EXT DISU EXT DEPOOL EXT GETFRE EXT SETFRE EXT SETOCC EXT REFSP EXT WRFSP EXT CHANFC EXT COND EXT RDDS ENTRY POOL ENTRY MATCH ENTRY NOFFRE ENTRY NOFFRE ENTRY WAIT ENTRY RELEAS ENTRY FREESP ENTRY SCHPOO ENTRY DLRCCH ENTRY RD ENTRY WR ENTRY RFRSP ENTRY OFRSP ENTRY SFMTCH ENTRY LOCKE ENTRY RDACC ENTRY WRACC ENTRY POOL ENTRY READJB ENTRY MATCH ENTRY ENTR ENTRY ALGO ATTACH EQU X'0E' DETACH EQU X'0F' EJECT 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 * * WAIT PROC SUBROUTINE WAIT TBT SWITWT,WARE MOVE DEBINW4,W0 CLEAR SWIT08 MOVE DKBIN1,=X'D0' CALL CHANFC,DISK,DKBIN1 DSC1 DISK,ATTACH,W128 BNERR WARE2 MOVE DEBINW4,W3 WARE PERF COND RET WARE2 SET SWITWT SWITCH B WARE * * PEND RELEAS PROC SUBROUTINE RELEAS CLEAR SWITWT BZ RELRET MOVE DKBIN1,=X'D0' CALL CHANFC,DISK,DKBIN1 DSC1 DISK,DETACH,W0 RELRET RET PEND * * SUBR FREESP, GET RECORDNUMBER OF NEXT FREE RECORD IN FILE * * FREESP PROC RECN,INDEX MOVE DEBINW4,W0 CLEAR SWIT06 CLEAR SWIT07 FREE01 MOVE DKBIN1,FINDEXPO(INDEX) CALL GETFRE,BPOOL(DKBIN1),RPOOL(DKBIN1),RECN CBE RECN,W0,NOFN SUB FNOOFREC(INDEX),W1 CBG FNOOFREC(INDEX),F95PROC(INDEX),FND SET SW95PR B FND NOFN XCOPY DKBIN3,W0,W2,RPOOL(DKBIN1),W13 CBE DKBIN3,W0,EOFCHN FSP02 PERF SAVESB PERF WRFSP,INDEX BERR RESSY PERF REFSP,DKBIN3,INDEX BERR RESSY PERF RESTSB B FREE01 RESSY PERF RESTSB B FND B FND EOFCHN TBT SWIT06,NOFSP SET SWIT06 MOVE DKBIN3,W2 B FSP02 NOFSP MOVE DEBINW4,W10 FND CBG INDEX,W1,NEFE SET SWITFS NEFE PERF COND RET PEND * * SUBROUTINE SCHPOO, SEARCH POOL * SCHPOO PROC $IND,STRG,WX MOVE STRG10A,$IND COPY STRG10A,W1,W6,STRG,W0 PERF DEPOOL,WX,DEBIN3,DEBIN4,STRG10A RET PEND * * SUBROUTINE DLRCCH, REMOVE RECORD FROM CHAIN. SWIT04 ON: USERFILE * DLRCCH PROC BUF CLEAR BOOL8 CLEAR BOOL9 XCOPY DEBIN2,W0,W2,BUF,W2 XCOPY DEBIN1,W0,W2,BUF,W4 CBNE DEBIN1,W0,DL001 SET BOOL9 B RREPRE DL001 PERF RD,DEBIN1,BUF XCOPY DEBIN5,W0,W2,BUF,W2 XCOPY BUF,W2,W2,DEBIN2,W0 CBNE DEBIN2,W0,DL004 PERF WR,DEBIN5,BUF MOVE DEBIN5,DEBIN1 B RREPRE DL004 PERF WR,DEBIN1,BUF RREPRE CBNE DEBIN2,W0,DL008 SET BOOL8 TBT BOOL9,DLRET B DLR2 DL008 PERF RD,DEBIN2,BUF BERR DLRET XCOPY DEBIN5,W0,W2,BUF,W4 XCOPY BUF,W4,W2,DEBIN1,W0 PERF WR,DEBIN2,BUF BERR DLRET DLR2 MOVE DEBIN1,FILINDUS TBT SWIT04,DLR1 MOVE DEBIN1,W1 DLR1 PERF RFRSP,DEBIN5,DEBIN1 DLRET PERF COND RET PEND RD PROC BIN,BUF TBT SWIT04,US01 PERF DISU,W1,BIN,BUF B DRET US01 PERF DISU,W3,BIN,BUF DRET RET PEND WR PROC BIN,BUF TBT SWIT04,US02 PERF DISU,W2,BIN,BUF B DRET US02 PERF DISU,W4,BIN,BUF B DRET PEND * * SUBROUTINE RFRSP, FREE RECORDS ARE PASSED TO * FREESPACE-TABLE. RECORDNUMBER IN PM RECNO. * RFRSP PROC RECNO,INDEX PERF GFRSPR,RECNO,INDEX GET FSP-REC WITH RECNO IN IT CALL SETFRE,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO ADD FNOOFREC(INDEX),W1 PERF COND RET PEND * * SUBROUTINE GFRSPR * GET FREESPACE-RECORD WITH RECORDNUMBER ACCORDING * TO RECNO IN IT * * SYNTAX: PERF GFRSPR,RECNO,INDEX * INDEX = INDEX TO CURRENT FILE * GFRSPR PROC RECNO,INDEX ANFANG MOVE DKBIN1,W1 CBE INDEX,W1,SYSFLE MOVE DKBIN1,USELEN DIV DKBIN1,SECLEN GET NO OF SCTRS/REC SYSFLE MOVE DEBIN4,FINDEXPO(INDEX) GET INDEX TO FREESP-POOL XCOPY DKBIN2,W0,W2,RPOOL(DEBIN4),W15 OCC SPACE SUB DKBIN2,W12 MUL DKBIN2,W8 DIV DKBIN2,DKBIN1 MUL DKBIN2,DKBIN1 GET RID OF UNUSED BITS XCOPY DKBIN1,W0,W2,RPOOL(DEBIN4),W17 1ST INDICATED RNR MOVE DKBIN3,DKBIN1 SAVE 1ST INDICATED RNR ADD DKBIN1,DKBIN2 GET LAST INDICATED RNR SUB DKBIN1,W1 CBG RECNO,DKBIN1,NEXT CBL RECNO,DKBIN3,PREV GFRET MOVE DEBIN4,FINDEXPO(INDEX) RET NEXT GET NEXT FREESP-RECORD MOVE DKBIN1,W13 READ XCOPY DEBIN4,W0,W2,RPOOL(DEBIN4),DKBIN1 GET LINK CBE DEBIN4,W0,GFRET PERF SAVESB PERF WRFSP,INDEX BERR GFREST PERF REFSP,DEBIN4,INDEX BERR GFREST PERF RESTSB B ANFANG GFREST PERF RESTSB B GFRET PREV MOVE DKBIN1,W11 B READ PEND * * * SUBROUTINE OFRSP * SET RECORD ACCORDING TO RECNO OCCUPIED * OFRSP PROC RECNO,INDEX PERF GFRSPR,RECNO,INDEX CALL SETOCC,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO RET PEND * * 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 PERF MATCH,BUF,DEBIN2,DKBIN1,STR6A,STEG BNERR FOND 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 * * * LOCKE PROC MOVE DEBIN1,W0 XCOPY DEBIN1,W1,W1,RPOOL(DEBIN3),W0 ADD DEBIN1,W128 XCOPY RPOOL(DEBIN3),W0,W1,DEBIN1,W1 RET PEND * * SUBROUTINE RDACC, READ ACCUMULATORS * RDACC PROC PERF WAIT PERF DISU,W3,DEBIN1,SYSBUF BERR RDARET COPY BPOOL(PINACC),W0,W188,SYSBUF,W10 XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 RDARET PERF COND RET PEND * * SUBROUTINE WRACC, WRITE ACCUMULATORS * WRACC PROC PERF WAIT MOVE SYSBUF,=X'414300' COPY SYSBUF,W10,W188,BPOOL(PINACC),W0 XCOPY DEBIN1,W0,W2,RPOOL(PINACC),W9 PERF DISU,W4,DEBIN1,SYSBUF PERF COND RET PEND * * SUBR POOL, GET ONE BUFFER, LOCKED * POOL PROC MOVE DKBIN1,W1 MOVE DKBIN2,W1 PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A RET PEND * * READJB PROC MOVE DEBIN4,W3 REDJCH MOVE DEBIN3,DEBIN4 PERF DISU,W1,DEBIN3,SYSBUF BERR RETRED MOVE DEBIN5,=W'92' COPY STR6A,W0,W6,SYSBUF,DEBIN5 CBE STR6A,JOBNAME,RETRED XCOPY DEBIN4,W0,W2,SYSBUF,W4 CBNE DEBIN4,W0,REDJCH MOVE DEBINW4,W9 RETRED PERF COND RET PEND * MATCH PROC BUF1,START,END,KEY,STEP MTCH MATCH BUF1,START,W6,KEY,W0,W6 BNERR MTCHED ADD START,STEP SUB START,W1 CBNG START,END,MTCH MOVE DEBINW4,W9 MTCHED PERF COND RET PEND * * ENTR PROC ITEM XCOPY RBUF,DEBIN2,W2,W0,W0 ADD DEBIN2,W2 COPY RBUF,DEBIN2,W6,ITEM,W0 ADD DEBIN2,W6 RET PEND * * 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 SAVESB PROC SAVE SYSBUF TO POOL MOVE FLIND(W20),DEBINW4 SAVPOO PERF POOL BNERR SAVOK SWITCH B SAVPOO SAVOK MOVE FLIND(W21),DKBIN1 COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 MOVE DEBINW4,FLIND(W20) RET PEND * * RESTSB PROC RESTORE SYSBUF FROM POOL MOVE DKBIN1,FLIND(W21) COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A RET PEND END
0x0000…002a (0, 0, 398) Head {h00=0x0026, h01=0x0050, text=» IDENT DEDISU PRR 1.0 79-06-19/AST«, t00=0x0000, t01=0x0004}
0x002a…0034 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x002e}
0x0034…003e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0038}
0x003e…008e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0042}
0x008e…0098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0092}
0x0098…00a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x009c}
0x00a2…00e2 Head {h00=0x003c, h01=0x0050, text=»* THIS MODULE CONTENTS ALL SUBROUTINES, USED BY«, t00=0x0000, t01=0x00a6}
0x00e2…00ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e6}
0x00ec…011a Head {h00=0x002a, h01=0x0050, text=»* D E D I S C«, t00=0x0000, t01=0x00f0}
0x011a…0124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011e}
0x0124…012e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…017e Head {h00=0x004c, h01=0x0050, text=»************************************************************************«, t00=0x0000, t01=0x0132}
0x017e…0188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0182}
0x0188…0192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018c}
0x0192…01a6 Head {h00=0x0010, h01=0x0050, text=» DDUM DDINIT«, t00=0x0001, t01=0x0008}
0x01a6…01b4 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0001, t01=0x001c}
0x01b4…01c6 Head {h00=0x000e, h01=0x0050, text=» EXT DISU «, t00=0x0001, t01=0x002a}
0x01c6…01da Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0001, t01=0x003c}
0x01da…01ee Head {h00=0x0010, h01=0x0050, text=» EXT GETFRE «, t00=0x0001, t01=0x0050}
0x01ee…0202 Head {h00=0x0010, h01=0x0050, text=» EXT SETFRE «, t00=0x0001, t01=0x0064}
0x0202…0216 Head {h00=0x0010, h01=0x0050, text=» EXT SETOCC «, t00=0x0001, t01=0x0078}
0x0216…0228 Head {h00=0x000e, h01=0x0050, text=» EXT REFSP«, t00=0x0001, t01=0x008c}
0x0228…023a Head {h00=0x000e, h01=0x0050, text=» EXT WRFSP«, t00=0x0001, t01=0x009e}
0x023a…024e Head {h00=0x0010, h01=0x0050, text=» EXT CHANFC «, t00=0x0001, t01=0x00b0}
0x024e…0260 Head {h00=0x000e, h01=0x0050, text=» EXT COND «, t00=0x0001, t01=0x00c4}
0x0260…0272 Head {h00=0x000e, h01=0x0050, text=» EXT RDDS «, t00=0x0001, t01=0x00d6}
0x0272…0286 Head {h00=0x0010, h01=0x0050, text=» ENTRY POOL «, t00=0x0001, t01=0x00e8}
0x0286…029a Head {h00=0x0010, h01=0x0050, text=» ENTRY MATCH«, t00=0x0001, t01=0x00fc}
0x029a…02b0 Head {h00=0x0012, h01=0x0050, text=» ENTRY NOFFRE «, t00=0x0001, t01=0x0110}
0x02b0…02c6 Head {h00=0x0012, h01=0x0050, text=» ENTRY NOFFRE «, t00=0x0001, t01=0x0126}
0x02c6…02da Head {h00=0x0010, h01=0x0050, text=» ENTRY WAIT «, t00=0x0001, t01=0x013c}
0x02da…02f0 Head {h00=0x0012, h01=0x0050, text=» ENTRY RELEAS «, t00=0x0001, t01=0x0150}
0x02f0…0306 Head {h00=0x0012, h01=0x0050, text=» ENTRY FREESP «, t00=0x0001, t01=0x0166}
0x0306…031c Head {h00=0x0012, h01=0x0050, text=» ENTRY SCHPOO «, t00=0x0001, t01=0x017c}
0x031c…0332 (2, 0, 398) Head {h00=0x0012, h01=0x0050, text=» ENTRY DLRCCH «, t00=0x0002, t01=0x0004}
0x0332…0344 Head {h00=0x000e, h01=0x0050, text=» ENTRY RD «, t00=0x0002, t01=0x001a}
0x0344…0356 Head {h00=0x000e, h01=0x0050, text=» ENTRY WR «, t00=0x0002, t01=0x002c}
0x0356…036a Head {h00=0x0010, h01=0x0050, text=» ENTRY RFRSP«, t00=0x0002, t01=0x003e}
0x036a…037e Head {h00=0x0010, h01=0x0050, text=» ENTRY OFRSP«, t00=0x0002, t01=0x0052}
0x037e…0394 Head {h00=0x0012, h01=0x0050, text=» ENTRY SFMTCH «, t00=0x0002, t01=0x0066}
0x0394…03a8 Head {h00=0x0010, h01=0x0050, text=» ENTRY LOCKE«, t00=0x0002, t01=0x007c}
0x03a8…03bc Head {h00=0x0010, h01=0x0050, text=» ENTRY RDACC«, t00=0x0002, t01=0x0090}
0x03bc…03d0 Head {h00=0x0010, h01=0x0050, text=» ENTRY WRACC«, t00=0x0002, t01=0x00a4}
0x03d0…03e4 Head {h00=0x0010, h01=0x0050, text=» ENTRY POOL «, t00=0x0002, t01=0x00b8}
0x03e4…03fa Head {h00=0x0012, h01=0x0050, text=» ENTRY READJB «, t00=0x0002, t01=0x00cc}
0x03fa…040e Head {h00=0x0010, h01=0x0050, text=» ENTRY MATCH«, t00=0x0002, t01=0x00e2}
0x040e…0422 Head {h00=0x0010, h01=0x0050, text=» ENTRY ENTR «, t00=0x0002, t01=0x00f6}
0x0422…0436 Head {h00=0x0010, h01=0x0050, text=» ENTRY ALGO «, t00=0x0002, t01=0x010a}
0x0436…044e Head {h00=0x0014, h01=0x0050, text=»ATTACH EQU X'0E'«, t00=0x0002, t01=0x011e}
0x044e…0466 Head {h00=0x0014, h01=0x0050, text=»DETACH EQU X'0F'«, t00=0x0002, t01=0x0136}
0x0466…0474 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x014e}
0x0474…04aa Head {h00=0x0032, h01=0x0050, text=»NOFFRE PROC CNTR,INDFIL GET NO OF FREE RECORDS«, t00=0x0002, t01=0x015c}
0x04aa…04c0 (3, 0, 398) Head {h00=0x0012, h01=0x0050, text=» MOVE CNTR,W0 «, t00=0x0003, t01=0x0004}
0x04c0…04d8 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN5,W2 «, t00=0x0003, t01=0x001a}
0x04d8…04ee Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT04 «, t00=0x0003, t01=0x0032}
0x04ee…04fc Head {h00=0x000a, h01=0x0050, text=»US002 «, t00=0x0003, t01=0x0048}
0x04fc…0518 Head {h00=0x0018, h01=0x0050, text=» CBL INDFIL,W2,US001«, t00=0x0003, t01=0x0056}
0x0518…052c Head {h00=0x0010, h01=0x0050, text=» SET SWIT04 «, t00=0x0003, t01=0x0072}
0x052c…053a Head {h00=0x000a, h01=0x0050, text=»US001 «, t00=0x0003, t01=0x0086}
0x053a…0556 Head {h00=0x0018, h01=0x0050, text=» PERF RD,DEBIN5,RBUF«, t00=0x0003, t01=0x0094}
0x0556…056a Head {h00=0x0010, h01=0x0050, text=» BERR NOFRET«, t00=0x0003, t01=0x00b0}
0x056a…058e Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,RBUF,W4 «, t00=0x0003, t01=0x00c4}
0x058e…05b2 Head {h00=0x0020, h01=0x0050, text=» XCOPY DEBIN4,W0,W2,RBUF,W10«, t00=0x0003, t01=0x00e8}
0x05b2…05ca Head {h00=0x0014, h01=0x0050, text=» ADD CNTR,DEBIN4«, t00=0x0003, t01=0x010c}
0x05ca…05e8 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN5,W0,US002 «, t00=0x0003, t01=0x0124}
0x05e8…060c Head {h00=0x0020, h01=0x0050, text=» MOVE FNOOFREC(INDFIL),CNTR «, t00=0x0003, t01=0x0142}
0x060c…061a Head {h00=0x000a, h01=0x0050, text=»NOFRET«, t00=0x0003, t01=0x0166}
0x061a…062c Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0003, t01=0x0174}
0x062c…0638 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0003, t01=0x0186}
0x0638…0646 (4, 0, 400) Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0004, t01=0x0004}
0x0646…0650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0012}
0x0650…065a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x001c}
0x065a…067c Head {h00=0x001e, h01=0x0050, text=»WAIT PROC SUBROUTINE WAIT«, t00=0x0004, t01=0x0026}
0x067c…0694 Head {h00=0x0014, h01=0x0050, text=» TBT SWITWT,WARE«, t00=0x0004, t01=0x0048}
0x0694…06ac Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0004, t01=0x0060}
0x06ac…06c2 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT08 «, t00=0x0004, t01=0x0078}
0x06c2…06de Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN1,=X'D0' «, t00=0x0004, t01=0x008e}
0x06de…06fe Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,DKBIN1«, t00=0x0004, t01=0x00aa}
0x06fe…071c Head {h00=0x001a, h01=0x0050, text=» DSC1 DISK,ATTACH,W128«, t00=0x0004, t01=0x00ca}
0x071c…0730 Head {h00=0x0010, h01=0x0050, text=» BNERR WARE2«, t00=0x0004, t01=0x00e8}
0x0730…0748 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W3«, t00=0x0004, t01=0x00fc}
0x0748…0754 Head {h00=0x0008, h01=0x0050, text=»WARE«, t00=0x0004, t01=0x0114}
0x0754…0766 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0004, t01=0x0120}
0x0766…0772 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0004, t01=0x0132}
0x0772…0780 Head {h00=0x000a, h01=0x0050, text=»WARE2 «, t00=0x0004, t01=0x013e}
0x0780…0794 Head {h00=0x0010, h01=0x0050, text=» SET SWITWT «, t00=0x0004, t01=0x014c}
0x0794…07a4 Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x0004, t01=0x0160}
0x07a4…07b4 Head {h00=0x000c, h01=0x0050, text=» B WARE «, t00=0x0004, t01=0x0170}
0x07b4…07be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0180}
0x07be…07c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x018a}
0x07c8…07d6 (5, 0, 398) Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x0004}
0x07d6…07fe Head {h00=0x0024, h01=0x0050, text=»RELEAS PROC SUBROUTINE RELEAS «, t00=0x0005, t01=0x0012}
0x07fe…0814 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWITWT «, t00=0x0005, t01=0x003a}
0x0814…0826 Head {h00=0x000e, h01=0x0050, text=» BZ RELRET«, t00=0x0005, t01=0x0050}
0x0826…0842 Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN1,=X'D0' «, t00=0x0005, t01=0x0062}
0x0842…0862 Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,DKBIN1«, t00=0x0005, t01=0x007e}
0x0862…087e Head {h00=0x0018, h01=0x0050, text=» DSC1 DISK,DETACH,W0«, t00=0x0005, t01=0x009e}
0x087e…088c Head {h00=0x000a, h01=0x0050, text=»RELRET«, t00=0x0005, t01=0x00ba}
0x088c…0898 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0005, t01=0x00c8}
0x0898…08a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0005, t01=0x00d4}
0x08a6…08b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e2}
0x08b0…08f6 Head {h00=0x0042, h01=0x0050, text=»* SUBR FREESP, GET RECORDNUMBER OF NEXT FREE RECORD IN FILE «, t00=0x0005, t01=0x00ec}
0x08f6…0900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0132}
0x0900…090a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013c}
0x090a…0928 Head {h00=0x001a, h01=0x0050, text=»FREESP PROC RECN,INDEX«, t00=0x0005, t01=0x0146}
0x0928…0940 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0005, t01=0x0164}
0x0940…0956 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT06 «, t00=0x0005, t01=0x017c}
0x0956…096c (6, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CLEAR SWIT07 «, t00=0x0006, t01=0x0004}
0x096c…097a Head {h00=0x000a, h01=0x0050, text=»FREE01«, t00=0x0006, t01=0x001a}
0x097a…099e Head {h00=0x0020, h01=0x0050, text=» MOVE DKBIN1,FINDEXPO(INDEX)«, t00=0x0006, t01=0x0028}
0x099e…09d4 Head {h00=0x0032, h01=0x0050, text=» CALL GETFRE,BPOOL(DKBIN1),RPOOL(DKBIN1),RECN «, t00=0x0006, t01=0x004c}
0x09d4…09ee Head {h00=0x0016, h01=0x0050, text=» CBE RECN,W0,NOFN «, t00=0x0006, t01=0x0082}
0x09ee…0a0e Head {h00=0x001c, h01=0x0050, text=» SUB FNOOFREC(INDEX),W1 «, t00=0x0006, t01=0x009c}
0x0a0e…0a3e Head {h00=0x002c, h01=0x0050, text=» CBG FNOOFREC(INDEX),F95PROC(INDEX),FND «, t00=0x0006, t01=0x00bc}
0x0a3e…0a52 Head {h00=0x0010, h01=0x0050, text=» SET SW95PR «, t00=0x0006, t01=0x00ec}
0x0a52…0a60 Head {h00=0x000a, h01=0x0050, text=» B FND«, t00=0x0006, t01=0x0100}
0x0a60…0a6c Head {h00=0x0008, h01=0x0050, text=»NOFN«, t00=0x0006, t01=0x010e}
0x0a6c…0a9a Head {h00=0x002a, h01=0x0050, text=» XCOPY DKBIN3,W0,W2,RPOOL(DKBIN1),W13 «, t00=0x0006, t01=0x011a}
0x0a9a…0ab8 Head {h00=0x001a, h01=0x0050, text=» CBE DKBIN3,W0,EOFCHN «, t00=0x0006, t01=0x0148}
0x0ab8…0ac6 Head {h00=0x000a, h01=0x0050, text=»FSP02 «, t00=0x0006, t01=0x0166}
0x0ac6…0ada Head {h00=0x0010, h01=0x0050, text=» PERF SAVESB«, t00=0x0006, t01=0x0174}
0x0ada…0af4 Head {h00=0x0016, h01=0x0050, text=» PERF WRFSP,INDEX «, t00=0x0006, t01=0x0188}
0x0af4…0b08 Head {h00=0x0010, h01=0x0050, text=» BERR RESSY «, t00=0x0007, t01=0x0012}
0x0b08…0b28 Head {h00=0x001c, h01=0x0050, text=» PERF REFSP,DKBIN3,INDEX«, t00=0x0007, t01=0x0026}
0x0b28…0b3c Head {h00=0x0010, h01=0x0050, text=» BERR RESSY «, t00=0x0007, t01=0x0046}
0x0b3c…0b50 Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x0007, t01=0x005a}
0x0b50…0b62 Head {h00=0x000e, h01=0x0050, text=» B FREE01 «, t00=0x0007, t01=0x006e}
0x0b62…0b70 Head {h00=0x000a, h01=0x0050, text=»RESSY «, t00=0x0007, t01=0x0080}
0x0b70…0b84 Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x0007, t01=0x008e}
0x0b84…0b92 Head {h00=0x000a, h01=0x0050, text=» B FND«, t00=0x0007, t01=0x00a2}
0x0b92…0ba0 Head {h00=0x000a, h01=0x0050, text=» B FND«, t00=0x0007, t01=0x00b0}
0x0ba0…0bae Head {h00=0x000a, h01=0x0050, text=»EOFCHN«, t00=0x0007, t01=0x00be}
0x0bae…0bc8 Head {h00=0x0016, h01=0x0050, text=» TBT SWIT06,NOFSP «, t00=0x0007, t01=0x00cc}
0x0bc8…0bdc Head {h00=0x0010, h01=0x0050, text=» SET SWIT06 «, t00=0x0007, t01=0x00e6}
0x0bdc…0bf4 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN3,W2 «, t00=0x0007, t01=0x00fa}
0x0bf4…0c04 Head {h00=0x000c, h01=0x0050, text=» B FSP02«, t00=0x0007, t01=0x0112}
0x0c04…0c12 Head {h00=0x000a, h01=0x0050, text=»NOFSP «, t00=0x0007, t01=0x0122}
0x0c12…0c2c Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W10 «, t00=0x0007, t01=0x0130}
0x0c2c…0c38 Head {h00=0x0008, h01=0x0050, text=»FND «, t00=0x0007, t01=0x014a}
0x0c38…0c52 Head {h00=0x0016, h01=0x0050, text=» CBG INDEX,W1,NEFE«, t00=0x0007, t01=0x0156}
0x0c52…0c66 Head {h00=0x0010, h01=0x0050, text=» SET SWITFS «, t00=0x0007, t01=0x0170}
0x0c66…0c72 Head {h00=0x0008, h01=0x0050, text=»NEFE«, t00=0x0007, t01=0x0184}
0x0c72…0c84 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0007, t01=0x0190}
0x0c84…0c90 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x0012}
0x0c90…0c9e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x001e}
0x0c9e…0ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002c}
0x0ca8…0cd4 Head {h00=0x0028, h01=0x0050, text=»* SUBROUTINE SCHPOO, SEARCH POOL«, t00=0x0008, t01=0x0036}
0x0cd4…0cde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0062}
0x0cde…0cfe Head {h00=0x001c, h01=0x0050, text=»SCHPOO PROC $IND,STRG,WX«, t00=0x0008, t01=0x006c}
0x0cfe…0d18 Head {h00=0x0016, h01=0x0050, text=» MOVE STRG10A,$IND«, t00=0x0008, t01=0x008c}
0x0d18…0d3c Head {h00=0x0020, h01=0x0050, text=» COPY STRG10A,W1,W6,STRG,W0 «, t00=0x0008, t01=0x00a6}
0x0d3c…0d6a Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,WX,DEBIN3,DEBIN4,STRG10A «, t00=0x0008, t01=0x00ca}
0x0d6a…0d76 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0008, t01=0x00f8}
0x0d76…0d84 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0008, t01=0x0104}
0x0d84…0d8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0112}
0x0d8e…0dda Head {h00=0x0048, h01=0x0050, text=»* SUBROUTINE DLRCCH, REMOVE RECORD FROM CHAIN. SWIT04 ON: USERFILE«, t00=0x0008, t01=0x011c}
0x0dda…0de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0168}
0x0de4…0dfc Head {h00=0x0014, h01=0x0050, text=»DLRCCH PROC BUF «, t00=0x0008, t01=0x0172}
0x0dfc…0e10 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL8«, t00=0x0008, t01=0x018a}
0x0e10…0e24 Head {h00=0x0010, h01=0x0050, text=» CLEAR BOOL9«, t00=0x0009, t01=0x000e}
0x0e24…0e46 Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN2,W0,W2,BUF,W2«, t00=0x0009, t01=0x0022}
0x0e46…0e68 Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,BUF,W4«, t00=0x0009, t01=0x0044}
0x0e68…0e86 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN1,W0,DL001 «, t00=0x0009, t01=0x0066}
0x0e86…0e98 Head {h00=0x000e, h01=0x0050, text=» SET BOOL9«, t00=0x0009, t01=0x0084}
0x0e98…0eaa Head {h00=0x000e, h01=0x0050, text=» B RREPRE «, t00=0x0009, t01=0x0096}
0x0eaa…0eb8 Head {h00=0x000a, h01=0x0050, text=»DL001 «, t00=0x0009, t01=0x00a8}
0x0eb8…0ed4 Head {h00=0x0018, h01=0x0050, text=» PERF RD,DEBIN1,BUF «, t00=0x0009, t01=0x00b6}
0x0ed4…0ef6 Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,BUF,W2«, t00=0x0009, t01=0x00d2}
0x0ef6…0f18 Head {h00=0x001e, h01=0x0050, text=» XCOPY BUF,W2,W2,DEBIN2,W0«, t00=0x0009, t01=0x00f4}
0x0f18…0f36 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN2,W0,DL004 «, t00=0x0009, t01=0x0116}
0x0f36…0f52 Head {h00=0x0018, h01=0x0050, text=» PERF WR,DEBIN5,BUF «, t00=0x0009, t01=0x0134}
0x0f52…0f6e Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN5,DEBIN1 «, t00=0x0009, t01=0x0150}
0x0f6e…0f80 Head {h00=0x000e, h01=0x0050, text=» B RREPRE «, t00=0x0009, t01=0x016c}
0x0f80…0f8e Head {h00=0x000a, h01=0x0050, text=»DL004 «, t00=0x0009, t01=0x017e}
0x0f8e…0faa Head {h00=0x0018, h01=0x0050, text=» PERF WR,DEBIN1,BUF «, t00=0x0009, t01=0x018c}
0x0faa…0fb8 Head {h00=0x000a, h01=0x0050, text=»RREPRE«, t00=0x000a, t01=0x0018}
0x0fb8…0fd6 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN2,W0,DL008 «, t00=0x000a, t01=0x0026}
0x0fd6…0fe8 Head {h00=0x000e, h01=0x0050, text=» SET BOOL8«, t00=0x000a, t01=0x0044}
0x0fe8…1000 Head {h00=0x0014, h01=0x0050, text=» TBT BOOL9,DLRET«, t00=0x000a, t01=0x0056}
0x1000…1010 Head {h00=0x000c, h01=0x0050, text=» B DLR2 «, t00=0x000a, t01=0x006e}
0x1010…101e Head {h00=0x000a, h01=0x0050, text=»DL008 «, t00=0x000a, t01=0x007e}
0x101e…103a Head {h00=0x0018, h01=0x0050, text=» PERF RD,DEBIN2,BUF «, t00=0x000a, t01=0x008c}
0x103a…104e Head {h00=0x0010, h01=0x0050, text=» BERR DLRET «, t00=0x000a, t01=0x00a8}
0x104e…1070 Head {h00=0x001e, h01=0x0050, text=» XCOPY DEBIN5,W0,W2,BUF,W4«, t00=0x000a, t01=0x00bc}
0x1070…1092 Head {h00=0x001e, h01=0x0050, text=» XCOPY BUF,W4,W2,DEBIN1,W0«, t00=0x000a, t01=0x00de}
0x1092…10ae Head {h00=0x0018, h01=0x0050, text=» PERF WR,DEBIN2,BUF «, t00=0x000a, t01=0x0100}
0x10ae…10c2 Head {h00=0x0010, h01=0x0050, text=» BERR DLRET «, t00=0x000a, t01=0x011c}
0x10c2…10ce Head {h00=0x0008, h01=0x0050, text=»DLR2«, t00=0x000a, t01=0x0130}
0x10ce…10ec Head {h00=0x001a, h01=0x0050, text=» MOVE DEBIN1,FILINDUS «, t00=0x000a, t01=0x013c}
0x10ec…1104 Head {h00=0x0014, h01=0x0050, text=» TBT SWIT04,DLR1«, t00=0x000a, t01=0x015a}
0x1104…111c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W1 «, t00=0x000a, t01=0x0172}
0x111c…1128 Head {h00=0x0008, h01=0x0050, text=»DLR1«, t00=0x000a, t01=0x018a}
0x1128…114a Head {h00=0x001e, h01=0x0050, text=» PERF RFRSP,DEBIN5,DEBIN1 «, t00=0x000b, t01=0x0008}
0x114a…1158 Head {h00=0x000a, h01=0x0050, text=»DLRET «, t00=0x000b, t01=0x002a}
0x1158…116a Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000b, t01=0x0038}
0x116a…1176 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x004a}
0x1176…1184 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0056}
0x1184…119c Head {h00=0x0014, h01=0x0050, text=»RD PROC BIN,BUF «, t00=0x000b, t01=0x0064}
0x119c…11b4 Head {h00=0x0014, h01=0x0050, text=» TBT SWIT04,US01«, t00=0x000b, t01=0x007c}
0x11b4…11d2 Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W1,BIN,BUF «, t00=0x000b, t01=0x0094}
0x11d2…11e2 Head {h00=0x000c, h01=0x0050, text=» B DRET «, t00=0x000b, t01=0x00b2}
0x11e2…11ee Head {h00=0x0008, h01=0x0050, text=»US01«, t00=0x000b, t01=0x00c2}
0x11ee…120c Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W3,BIN,BUF «, t00=0x000b, t01=0x00ce}
0x120c…1218 Head {h00=0x0008, h01=0x0050, text=»DRET«, t00=0x000b, t01=0x00ec}
0x1218…1224 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000b, t01=0x00f8}
0x1224…1232 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000b, t01=0x0104}
0x1232…124a Head {h00=0x0014, h01=0x0050, text=»WR PROC BIN,BUF «, t00=0x000b, t01=0x0112}
0x124a…1262 Head {h00=0x0014, h01=0x0050, text=» TBT SWIT04,US02«, t00=0x000b, t01=0x012a}
0x1262…1280 Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W2,BIN,BUF «, t00=0x000b, t01=0x0142}
0x1280…1290 Head {h00=0x000c, h01=0x0050, text=» B DRET «, t00=0x000b, t01=0x0160}
0x1290…129c Head {h00=0x0008, h01=0x0050, text=»US02«, t00=0x000b, t01=0x0170}
0x129c…12ba Head {h00=0x001a, h01=0x0050, text=» PERF DISU,W4,BIN,BUF «, t00=0x000b, t01=0x017c}
0x12ba…12ca Head {h00=0x000c, h01=0x0050, text=» B DRET «, t00=0x000c, t01=0x000a}
0x12ca…12d8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x001a}
0x12d8…12e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0028}
0x12e2…131a Head {h00=0x0034, h01=0x0050, text=»* SUBROUTINE RFRSP, FREE RECORDS ARE PASSED TO«, t00=0x000c, t01=0x0032}
0x131a…1350 Head {h00=0x0032, h01=0x0050, text=»* FREESPACE-TABLE. RECORDNUMBER IN PM RECNO.«, t00=0x000c, t01=0x006a}
0x1350…135a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a0}
0x135a…1378 Head {h00=0x001a, h01=0x0050, text=»RFRSP PROC RECNO,INDEX«, t00=0x000c, t01=0x00aa}
0x1378…13b6 Head {h00=0x003a, h01=0x0050, text=» PERF GFRSPR,RECNO,INDEX GET FSP-REC WITH RECNO IN IT «, t00=0x000c, t01=0x00c8}
0x13b6…13ec Head {h00=0x0032, h01=0x0050, text=» CALL SETFRE,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO«, t00=0x000c, t01=0x0106}
0x13ec…140c Head {h00=0x001c, h01=0x0050, text=» ADD FNOOFREC(INDEX),W1 «, t00=0x000c, t01=0x013c}
0x140c…141e Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x000c, t01=0x015c}
0x141e…142a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000c, t01=0x016e}
0x142a…1438 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000c, t01=0x017a}
0x1438…1442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0188}
0x1442…1460 (13, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* SUBROUTINE GFRSPR «, t00=0x000d, t01=0x0004}
0x1460…149c Head {h00=0x0038, h01=0x0050, text=»* GET FREESPACE-RECORD WITH RECORDNUMBER ACCORDING«, t00=0x000d, t01=0x0022}
0x149c…14b6 Head {h00=0x0016, h01=0x0050, text=»* TO RECNO IN IT«, t00=0x000d, t01=0x005e}
0x14b6…14c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0078}
0x14c0…14f0 Head {h00=0x002c, h01=0x0050, text=»* SYNTAX: PERF GFRSPR,RECNO,INDEX «, t00=0x000d, t01=0x0082}
0x14f0…1526 Head {h00=0x0032, h01=0x0050, text=»* INDEX = INDEX TO CURRENT FILE«, t00=0x000d, t01=0x00b2}
0x1526…1530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e8}
0x1530…1550 Head {h00=0x001c, h01=0x0050, text=»GFRSPR PROC RECNO,INDEX «, t00=0x000d, t01=0x00f2}
0x1550…155e Head {h00=0x000a, h01=0x0050, text=»ANFANG«, t00=0x000d, t01=0x0112}
0x155e…1576 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W1 «, t00=0x000d, t01=0x0120}
0x1576…1592 Head {h00=0x0018, h01=0x0050, text=» CBE INDEX,W1,SYSFLE«, t00=0x000d, t01=0x0138}
0x1592…15ae Head {h00=0x0018, h01=0x0050, text=» MOVE DKBIN1,USELEN «, t00=0x000d, t01=0x0154}
0x15ae…15dc Head {h00=0x002a, h01=0x0050, text=» DIV DKBIN1,SECLEN GET NO OF SCTRS/REC«, t00=0x000d, t01=0x0170}
0x15dc…15ea Head {h00=0x000a, h01=0x0050, text=»SYSFLE«, t00=0x000e, t01=0x000e}
0x15ea…1628 Head {h00=0x003a, h01=0x0050, text=» MOVE DEBIN4,FINDEXPO(INDEX) GET INDEX TO FREESP-POOL «, t00=0x000e, t01=0x001c}
0x1628…1660 Head {h00=0x0034, h01=0x0050, text=» XCOPY DKBIN2,W0,W2,RPOOL(DEBIN4),W15 OCC SPACE «, t00=0x000e, t01=0x005a}
0x1660…1678 Head {h00=0x0014, h01=0x0050, text=» SUB DKBIN2,W12 «, t00=0x000e, t01=0x0092}
0x1678…168e Head {h00=0x0012, h01=0x0050, text=» MUL DKBIN2,W8«, t00=0x000e, t01=0x00aa}
0x168e…16a8 Head {h00=0x0016, h01=0x0050, text=» DIV DKBIN2,DKBIN1«, t00=0x000e, t01=0x00c0}
0x16a8…16da Head {h00=0x002e, h01=0x0050, text=» MUL DKBIN2,DKBIN1 GET RID OF UNUSED BITS«, t00=0x000e, t01=0x00da}
0x16da…171a Head {h00=0x003c, h01=0x0050, text=» XCOPY DKBIN1,W0,W2,RPOOL(DEBIN4),W17 1ST INDICATED RNR «, t00=0x000e, t01=0x010c}
0x171a…174c Head {h00=0x002e, h01=0x0050, text=» MOVE DKBIN3,DKBIN1 SAVE 1ST INDICATED RNR«, t00=0x000e, t01=0x014c}
0x174c…177e Head {h00=0x002e, h01=0x0050, text=» ADD DKBIN1,DKBIN2 GET LAST INDICATED RNR «, t00=0x000e, t01=0x017e}
0x177e…1794 Head {h00=0x0012, h01=0x0050, text=» SUB DKBIN1,W1«, t00=0x000f, t01=0x0020}
0x1794…17b2 Head {h00=0x001a, h01=0x0050, text=» CBG RECNO,DKBIN1,NEXT«, t00=0x000f, t01=0x0036}
0x17b2…17d0 Head {h00=0x001a, h01=0x0050, text=» CBL RECNO,DKBIN3,PREV«, t00=0x000f, t01=0x0054}
0x17d0…17de Head {h00=0x000a, h01=0x0050, text=»GFRET «, t00=0x000f, t01=0x0072}
0x17de…1802 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBIN4,FINDEXPO(INDEX)«, t00=0x000f, t01=0x0080}
0x1802…180e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x00a4}
0x180e…1834 Head {h00=0x0022, h01=0x0050, text=»NEXT GET NEXT FREESP-RECORD «, t00=0x000f, t01=0x00b0}
0x1834…184c Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W13«, t00=0x000f, t01=0x00d6}
0x184c…1858 Head {h00=0x0008, h01=0x0050, text=»READ«, t00=0x000f, t01=0x00ee}
0x1858…1892 Head {h00=0x0036, h01=0x0050, text=» XCOPY DEBIN4,W0,W2,RPOOL(DEBIN4),DKBIN1 GET LINK «, t00=0x000f, t01=0x00fa}
0x1892…18ae Head {h00=0x0018, h01=0x0050, text=» CBE DEBIN4,W0,GFRET«, t00=0x000f, t01=0x0134}
0x18ae…18c2 Head {h00=0x0010, h01=0x0050, text=» PERF SAVESB«, t00=0x000f, t01=0x0150}
0x18c2…18dc Head {h00=0x0016, h01=0x0050, text=» PERF WRFSP,INDEX «, t00=0x000f, t01=0x0164}
0x18dc…18f0 Head {h00=0x0010, h01=0x0050, text=» BERR GFREST«, t00=0x000f, t01=0x017e}
0x18f0…1910 (16, 0, 400) Head {h00=0x001c, h01=0x0050, text=» PERF REFSP,DEBIN4,INDEX«, t00=0x0010, t01=0x0004}
0x1910…1924 Head {h00=0x0010, h01=0x0050, text=» BERR GFREST«, t00=0x0010, t01=0x0024}
0x1924…1938 Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x0010, t01=0x0038}
0x1938…194a Head {h00=0x000e, h01=0x0050, text=» B ANFANG «, t00=0x0010, t01=0x004c}
0x194a…1958 Head {h00=0x000a, h01=0x0050, text=»GFREST«, t00=0x0010, t01=0x005e}
0x1958…196c Head {h00=0x0010, h01=0x0050, text=» PERF RESTSB«, t00=0x0010, t01=0x006c}
0x196c…197c Head {h00=0x000c, h01=0x0050, text=» B GFRET«, t00=0x0010, t01=0x0080}
0x197c…1988 Head {h00=0x0008, h01=0x0050, text=»PREV«, t00=0x0010, t01=0x0090}
0x1988…19a0 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W11«, t00=0x0010, t01=0x009c}
0x19a0…19b0 Head {h00=0x000c, h01=0x0050, text=» B READ «, t00=0x0010, t01=0x00b4}
0x19b0…19be Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x00c4}
0x19be…19c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d2}
0x19c8…19d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00dc}
0x19d2…19f0 Head {h00=0x001a, h01=0x0050, text=»* SUBROUTINE OFRSP«, t00=0x0010, t01=0x00e6}
0x19f0…1a24 Head {h00=0x0030, h01=0x0050, text=»* SET RECORD ACCORDING TO RECNO OCCUPIED«, t00=0x0010, t01=0x0104}
0x1a24…1a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0138}
0x1a2e…1a4c Head {h00=0x001a, h01=0x0050, text=»OFRSP PROC RECNO,INDEX«, t00=0x0010, t01=0x0142}
0x1a4c…1a6c Head {h00=0x001c, h01=0x0050, text=» PERF GFRSPR,RECNO,INDEX«, t00=0x0010, t01=0x0160}
0x1a6c…1aa2 Head {h00=0x0032, h01=0x0050, text=» CALL SETOCC,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO«, t00=0x0010, t01=0x0180}
0x1aa2…1aae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0026}
0x1aae…1abc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x0032}
0x1abc…1ac6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0040}
0x1ac6…1b06 Head {h00=0x003c, h01=0x0050, text=»* SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON: USERFILE«, t00=0x0011, t01=0x004a}
0x1b06…1b10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008a}
0x1b10…1b30 Head {h00=0x001c, h01=0x0050, text=»SFMTCH PROC WX,BUF,STEG «, t00=0x0011, t01=0x0094}
0x1b30…1b48 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,WX «, t00=0x0011, t01=0x00b4}
0x1b48…1b54 Head {h00=0x0008, h01=0x0050, text=»RID0«, t00=0x0011, t01=0x00cc}
0x1b54…1b6c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W10«, t00=0x0011, t01=0x00d8}
0x1b6c…1b84 Head {h00=0x0014, h01=0x0050, text=» TBF SWIT04,RID3«, t00=0x0011, t01=0x00f0}
0x1b84…1b9e Head {h00=0x0016, h01=0x0050, text=» PERF RDDS,DEBIN1 «, t00=0x0011, t01=0x0108}
0x1b9e…1bae Head {h00=0x000c, h01=0x0050, text=» B BNERR«, t00=0x0011, t01=0x0122}
0x1bae…1bba Head {h00=0x0008, h01=0x0050, text=»RID3«, t00=0x0011, t01=0x0132}
0x1bba…1bd6 Head {h00=0x0018, h01=0x0050, text=» PERF RD,DEBIN1,BUF «, t00=0x0011, t01=0x013e}
0x1bd6…1be4 Head {h00=0x000a, h01=0x0050, text=»BNERR «, t00=0x0011, t01=0x015a}
0x1be4…1bf8 Head {h00=0x0010, h01=0x0050, text=» BNERR RID1 «, t00=0x0011, t01=0x0168}
0x1bf8…1c18 Head {h00=0x001c, h01=0x0050, text=» CBE DEBINW4,=W'30',RID2«, t00=0x0011, t01=0x017c}
0x1c18…1c28 Head {h00=0x000c, h01=0x0050, text=» B RETR «, t00=0x0012, t01=0x000c}
0x1c28…1c34 Head {h00=0x0008, h01=0x0050, text=»RID1«, t00=0x0012, t01=0x001c}
0x1c34…1c4a Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN2,W2«, t00=0x0012, t01=0x0028}
0x1c4a…1c6c Head {h00=0x001e, h01=0x0050, text=» XCOPY DKBIN1,W0,W2,BUF,W6«, t00=0x0012, t01=0x003e}
0x1c6c…1c9c Head {h00=0x002c, h01=0x0050, text=» PERF MATCH,BUF,DEBIN2,DKBIN1,STR6A,STEG«, t00=0x0012, t01=0x0060}
0x1c9c…1cb0 Head {h00=0x0010, h01=0x0050, text=» BNERR FOND «, t00=0x0012, t01=0x0090}
0x1cb0…1cc8 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0012, t01=0x00a4}
0x1cc8…1cea Head {h00=0x001e, h01=0x0050, text=» XCOPY DKBIN1,W0,W2,BUF,W4«, t00=0x0012, t01=0x00bc}
0x1cea…1d06 Head {h00=0x0018, h01=0x0050, text=» CBE DKBIN1,W0,RID2 «, t00=0x0012, t01=0x00de}
0x1d06…1d22 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,DKBIN1 «, t00=0x0012, t01=0x00fa}
0x1d22…1d32 Head {h00=0x000c, h01=0x0050, text=» B RID0 «, t00=0x0012, t01=0x0116}
0x1d32…1d3e Head {h00=0x0008, h01=0x0050, text=»RID2«, t00=0x0012, t01=0x0126}
0x1d3e…1d6e Head {h00=0x002c, h01=0x0050, text=» MOVE DEBINW4,W9 INDICATE 'NOT IN CHAIN'«, t00=0x0012, t01=0x0132}
0x1d6e…1d7e Head {h00=0x000c, h01=0x0050, text=» B RETR «, t00=0x0012, t01=0x0162}
0x1d7e…1d8a Head {h00=0x0008, h01=0x0050, text=»FOND«, t00=0x0012, t01=0x0172}
0x1d8a…1da0 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN2,W6«, t00=0x0012, t01=0x017e}
0x1da0…1dc6 (19, 0, 400) Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN3,W0,W2,BUF,DEBIN2«, t00=0x0013, t01=0x0004}
0x1dc6…1dd2 Head {h00=0x0008, h01=0x0050, text=»RETR«, t00=0x0013, t01=0x002a}
0x1dd2…1de4 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0013, t01=0x0036}
0x1de4…1df0 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x0048}
0x1df0…1dfe Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x0054}
0x1dfe…1e08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0062}
0x1e08…1e12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x006c}
0x1e12…1e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0076}
0x1e1c…1e2e Head {h00=0x000e, h01=0x0050, text=»LOCKE PROC«, t00=0x0013, t01=0x0080}
0x1e2e…1e46 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W0 «, t00=0x0013, t01=0x0092}
0x1e46…1e72 Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBIN1,W1,W1,RPOOL(DEBIN3),W0«, t00=0x0013, t01=0x00aa}
0x1e72…1e8a Head {h00=0x0014, h01=0x0050, text=» ADD DEBIN1,W128«, t00=0x0013, t01=0x00d6}
0x1e8a…1eb6 Head {h00=0x0028, h01=0x0050, text=» XCOPY RPOOL(DEBIN3),W0,W1,DEBIN1,W1«, t00=0x0013, t01=0x00ee}
0x1eb6…1ec2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0013, t01=0x011a}
0x1ec2…1ed0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0013, t01=0x0126}
0x1ed0…1eda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0134}
0x1eda…1f0a Head {h00=0x002c, h01=0x0050, text=»* SUBROUTINE RDACC, READ ACCUMULATORS«, t00=0x0013, t01=0x013e}
0x1f0a…1f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x016e}
0x1f14…1f26 Head {h00=0x000e, h01=0x0050, text=»RDACC PROC«, t00=0x0013, t01=0x0178}
0x1f26…1f38 Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0013, t01=0x018a}
0x1f38…1f5c Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W3,DEBIN1,SYSBUF «, t00=0x0014, t01=0x000c}
0x1f5c…1f70 Head {h00=0x0010, h01=0x0050, text=» BERR RDARET«, t00=0x0014, t01=0x0030}
0x1f70…1f9e Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(PINACC),W0,W188,SYSBUF,W10«, t00=0x0014, t01=0x0044}
0x1f9e…1fca Head {h00=0x0028, h01=0x0050, text=» XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0«, t00=0x0014, t01=0x0072}
0x1fca…1fd8 Head {h00=0x000a, h01=0x0050, text=»RDARET«, t00=0x0014, t01=0x009e}
0x1fd8…1fea Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0014, t01=0x00ac}
0x1fea…1ff6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0014, t01=0x00be}
0x1ff6…2004 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0014, t01=0x00ca}
0x2004…200e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d8}
0x200e…2040 Head {h00=0x002e, h01=0x0050, text=»* SUBROUTINE WRACC, WRITE ACCUMULATORS «, t00=0x0014, t01=0x00e2}
0x2040…204a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0114}
0x204a…205c Head {h00=0x000e, h01=0x0050, text=»WRACC PROC«, t00=0x0014, t01=0x011e}
0x205c…206e Head {h00=0x000e, h01=0x0050, text=» PERF WAIT«, t00=0x0014, t01=0x0130}
0x206e…208e Head {h00=0x001c, h01=0x0050, text=» MOVE SYSBUF,=X'414300' «, t00=0x0014, t01=0x0142}
0x208e…20bc Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(PINACC),W0«, t00=0x0014, t01=0x0162}
0x20bc…20e8 Head {h00=0x0028, h01=0x0050, text=» XCOPY DEBIN1,W0,W2,RPOOL(PINACC),W9«, t00=0x0014, t01=0x0190}
0x20e8…210c Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W4,DEBIN1,SYSBUF «, t00=0x0015, t01=0x002c}
0x210c…211e Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0015, t01=0x0050}
0x211e…212a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x0062}
0x212a…2138 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x006e}
0x2138…2142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x007c}
0x2142…2170 Head {h00=0x002a, h01=0x0050, text=»* SUBR POOL, GET ONE BUFFER, LOCKED «, t00=0x0015, t01=0x0086}
0x2170…217a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b4}
0x217a…218c Head {h00=0x000e, h01=0x0050, text=»POOL PROC «, t00=0x0015, t01=0x00be}
0x218c…21a4 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W1 «, t00=0x0015, t01=0x00d0}
0x21a4…21bc Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN2,W1 «, t00=0x0015, t01=0x00e8}
0x21bc…21ea Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A «, t00=0x0015, t01=0x0100}
0x21ea…21f6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0015, t01=0x012e}
0x21f6…2204 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0015, t01=0x013a}
0x2204…220e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0148}
0x220e…2218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0152}
0x2218…222c Head {h00=0x0010, h01=0x0050, text=»READJB PROC «, t00=0x0015, t01=0x015c}
0x222c…2244 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN4,W3 «, t00=0x0015, t01=0x0170}
0x2244…2252 Head {h00=0x000a, h01=0x0050, text=»REDJCH«, t00=0x0015, t01=0x0188}
0x2252…226e Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN3,DEBIN4 «, t00=0x0016, t01=0x0008}
0x226e…2292 Head {h00=0x0020, h01=0x0050, text=» PERF DISU,W1,DEBIN3,SYSBUF «, t00=0x0016, t01=0x0024}
0x2292…22a6 Head {h00=0x0010, h01=0x0050, text=» BERR RETRED«, t00=0x0016, t01=0x0048}
0x22a6…22c2 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN5,=W'92' «, t00=0x0016, t01=0x005c}
0x22c2…22ea Head {h00=0x0024, h01=0x0050, text=» COPY STR6A,W0,W6,SYSBUF,DEBIN5 «, t00=0x0016, t01=0x0078}
0x22ea…230c Head {h00=0x001e, h01=0x0050, text=» CBE STR6A,JOBNAME,RETRED «, t00=0x0016, t01=0x00a0}
0x230c…2332 Head {h00=0x0022, h01=0x0050, text=» XCOPY DEBIN4,W0,W2,SYSBUF,W4 «, t00=0x0016, t01=0x00c2}
0x2332…2350 Head {h00=0x001a, h01=0x0050, text=» CBNE DEBIN4,W0,REDJCH«, t00=0x0016, t01=0x00e8}
0x2350…2368 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W9«, t00=0x0016, t01=0x0106}
0x2368…2376 Head {h00=0x000a, h01=0x0050, text=»RETRED«, t00=0x0016, t01=0x011e}
0x2376…2388 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0016, t01=0x012c}
0x2388…2394 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0016, t01=0x013e}
0x2394…23a2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0016, t01=0x014a}
0x23a2…23ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0158}
0x23ac…23b4 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0162}
0x23b4…23de Head {h00=0x0026, h01=0x0050, text=»MATCH PROC BUF1,START,END,KEY,STEP«, t00=0x0016, t01=0x016a}
0x23de…23ea (23, 0, 400) Head {h00=0x0008, h01=0x0050, text=»MTCH«, t00=0x0017, t01=0x0004}
0x23ea…2410 Head {h00=0x0022, h01=0x0050, text=» MATCH BUF1,START,W6,KEY,W0,W6«, t00=0x0017, t01=0x0010}
0x2410…2426 Head {h00=0x0012, h01=0x0050, text=» BNERR MTCHED «, t00=0x0017, t01=0x0036}
0x2426…243e Head {h00=0x0014, h01=0x0050, text=» ADD START,STEP «, t00=0x0017, t01=0x004c}
0x243e…2454 Head {h00=0x0012, h01=0x0050, text=» SUB START,W1 «, t00=0x0017, t01=0x0064}
0x2454…2470 Head {h00=0x0018, h01=0x0050, text=» CBNG START,END,MTCH«, t00=0x0017, t01=0x007a}
0x2470…2488 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W9«, t00=0x0017, t01=0x0096}
0x2488…2496 Head {h00=0x000a, h01=0x0050, text=»MTCHED«, t00=0x0017, t01=0x00ae}
0x2496…24a8 Head {h00=0x000e, h01=0x0050, text=» PERF COND«, t00=0x0017, t01=0x00bc}
0x24a8…24b4 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x00ce}
0x24b4…24c2 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0017, t01=0x00da}
0x24c2…24cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e8}
0x24cc…24d4 Head {h00=0x0004, h01=0x0050, t00=0x0017, t01=0x00f2}
0x24d4…24de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00fa}
0x24de…24f4 Head {h00=0x0012, h01=0x0050, text=»ENTR PROC ITEM«, t00=0x0017, t01=0x0104}
0x24f4…2518 Head {h00=0x0020, h01=0x0050, text=» XCOPY RBUF,DEBIN2,W2,W0,W0 «, t00=0x0017, t01=0x011a}
0x2518…252e Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN2,W2«, t00=0x0017, t01=0x013e}
0x252e…2552 Head {h00=0x0020, h01=0x0050, text=» COPY RBUF,DEBIN2,W6,ITEM,W0«, t00=0x0017, t01=0x0154}
0x2552…2568 Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN2,W6«, t00=0x0017, t01=0x0178}
0x2568…2574 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0017, t01=0x018e}
0x2574…2582 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x000a}
0x2582…258c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0018}
0x258c…25da Head {h00=0x004a, h01=0x0050, text=»* SUBROUTINE ALGO: SET OR CHECK FORMAT-IDENTIFICATION ON DESCRIPTOR- «, t00=0x0018, t01=0x0022}
0x25da…2612 Head {h00=0x0034, h01=0x0050, text=»* RECORD FOR DIRECT DISC-ACCESS IN 'GET FORMAT'«, t00=0x0018, t01=0x0070}
0x2612…263a Head {h00=0x0024, h01=0x0050, text=»* FC = 1 FOR SET (ENTER FORMAT)«, t00=0x0018, t01=0x00a8}
0x263a…2688 Head {h00=0x004a, h01=0x0050, text=»* FC = 2 FOR GET (GET FORMAT) IN THIS CASE, THE CONDITIONREGISTER IS «, t00=0x0018, t01=0x00d0}
0x2688…26ba Head {h00=0x002e, h01=0x0050, text=»* SET TO 0 IF IDENTIFICATION OKAY «, t00=0x0018, t01=0x011e}
0x26ba…26f0 Head {h00=0x0032, h01=0x0050, text=»* SET TO 2 IF IDENTIFICATION NOT OKAY «, t00=0x0018, t01=0x0150}
0x26f0…26fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0186}
0x26fa…270e Head {h00=0x0010, h01=0x0050, text=»ALGO PROC FC«, t00=0x0018, t01=0x0190}
0x270e…2726 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN3,W0 «, t00=0x0019, t01=0x0014}
0x2726…273e Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W0 «, t00=0x0019, t01=0x002c}
0x273e…274c Head {h00=0x000a, h01=0x0050, text=»XCALGO«, t00=0x0019, t01=0x0044}
0x274c…2774 Head {h00=0x0024, h01=0x0050, text=» XCOPY DKBIN2,W0,W2,STR6A,DKBIN1«, t00=0x0019, t01=0x0052}
0x2774…278e Head {h00=0x0016, h01=0x0050, text=» ADD DKBIN3,DKBIN2«, t00=0x0019, t01=0x007a}
0x278e…27a4 Head {h00=0x0012, h01=0x0050, text=» ADD DKBIN1,W2«, t00=0x0019, t01=0x0094}
0x27a4…27c2 Head {h00=0x001a, h01=0x0050, text=» CBNE DKBIN1,W6,XCALGO«, t00=0x0019, t01=0x00aa}
0x27c2…27d4 Head {h00=0x000e, h01=0x0050, text=» IB FC C «, t00=0x0019, t01=0x00c8}
0x27d4…27e6 Head {h00=0x000e, h01=0x0050, text=» ALTO C «, t00=0x0019, t01=0x00da}
0x27e6…27f6 Head {h00=0x000c, h01=0x0050, text=» ALFRO «, t00=0x0019, t01=0x00ec}
0x27f6…2802 Head {h00=0x0008, h01=0x0050, text=»ALTO«, t00=0x0019, t01=0x00fc}
0x2802…2828 Head {h00=0x0022, h01=0x0050, text=» XCOPY SYSBUF,W0,W2,DKBIN3,W0 «, t00=0x0019, t01=0x0108}
0x2828…2834 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x012e}
0x2834…2842 Head {h00=0x000a, h01=0x0050, text=»ALFRO «, t00=0x0019, t01=0x013a}
0x2842…2868 Head {h00=0x0022, h01=0x0050, text=» XCOPY DKBIN2,W0,W2,SYSBUF,W0 «, t00=0x0019, t01=0x0148}
0x2868…2888 Head {h00=0x001c, h01=0x0050, text=» CBE DKBIN2,DKBIN3,NOERR«, t00=0x0019, t01=0x016e}
0x2888…289a Head {h00=0x000e, h01=0x0050, text=» CMP W1,W2«, t00=0x0019, t01=0x018e}
0x289a…28a6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x0010}
0x28a6…28b4 Head {h00=0x000a, h01=0x0050, text=»NOERR «, t00=0x001a, t01=0x001c}
0x28b4…28c6 Head {h00=0x000e, h01=0x0050, text=» CMP W1,W1«, t00=0x001a, t01=0x002a}
0x28c6…28d2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001a, t01=0x003c}
0x28d2…28e0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001a, t01=0x0048}
0x28e0…2908 Head {h00=0x0024, h01=0x0050, text=»SAVESB PROC SAVE SYSBUF TO POOL«, t00=0x001a, t01=0x0056}
0x2908…2928 Head {h00=0x001c, h01=0x0050, text=» MOVE FLIND(W20),DEBINW4«, t00=0x001a, t01=0x007e}
0x2928…2936 Head {h00=0x000a, h01=0x0050, text=»SAVPOO«, t00=0x001a, t01=0x009e}
0x2936…2948 Head {h00=0x000e, h01=0x0050, text=» PERF POOL«, t00=0x001a, t01=0x00ac}
0x2948…295c Head {h00=0x0010, h01=0x0050, text=» BNERR SAVOK«, t00=0x001a, t01=0x00be}
0x295c…296c Head {h00=0x000c, h01=0x0050, text=» SWITCH «, t00=0x001a, t01=0x00d2}
0x296c…297e Head {h00=0x000e, h01=0x0050, text=» B SAVPOO «, t00=0x001a, t01=0x00e2}
0x297e…298c Head {h00=0x000a, h01=0x0050, text=»SAVOK «, t00=0x001a, t01=0x00f4}
0x298c…29ac Head {h00=0x001c, h01=0x0050, text=» MOVE FLIND(W21),DKBIN1 «, t00=0x001a, t01=0x0102}
0x29ac…29d8 Head {h00=0x0028, h01=0x0050, text=» COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0«, t00=0x001a, t01=0x0122}
0x29d8…2a06 Head {h00=0x002a, h01=0x0050, text=» COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10«, t00=0x001a, t01=0x014e}
0x2a06…2a26 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW4,FLIND(W20)«, t00=0x001a, t01=0x017c}
0x2a26…2a32 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x000c}
0x2a32…2a40 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x0018}
0x2a40…2a4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0026}
0x2a4a…2a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0030}
0x2a54…2a82 Head {h00=0x002a, h01=0x0050, text=»RESTSB PROC RESTORE SYSBUF FROM POOL «, t00=0x001b, t01=0x003a}
0x2a82…2aa2 Head {h00=0x001c, h01=0x0050, text=» MOVE DKBIN1,FLIND(W21) «, t00=0x001b, t01=0x0068}
0x2aa2…2ace Head {h00=0x0028, h01=0x0050, text=» COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9«, t00=0x001b, t01=0x0088}
0x2ace…2afc Head {h00=0x002a, h01=0x0050, text=» COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0«, t00=0x001b, t01=0x00b4}
0x2afc…2b2a Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A «, t00=0x001b, t01=0x00e2}
0x2b2a…2b36 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001b, t01=0x0110}
0x2b36…2b44 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001b, t01=0x011c}
0x2b44…2b50 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001b, t01=0x012a}
0x2b50…2b54 Head {h00=0x4004, h01=0x0000}
0x2b54…2b58 00 1b 01 36 ┆ 6┆
0x2b58…2b60 (28, 1, 8) 20 04 00 00 00 1c 00 04 ┆ ┆