|
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: 11118 (0x2b6e)
Notes: pts_type(SC)
Names: »WUCRF.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WUCRF.SC«
IDENT WUCRF REL=2.3,841001,870155940230 ************************************** * WORK STATION MANAGEMENT * * UTILITY PROGRAMS * * 2 CREATE FILE * * * ************************************** ** HISTORY: ** 84-07-12 /MAER "CREATE WSM SYSTEM FILE". ** 83-05-11 /MAER NEW FILES GET RECORD LENGTH 256 INSTEAD OF 255. ** 83-04-06 /MAER NEW FILES ARE CREATED AS 'X'-FILES (NON-STANDARD) ** INSTEAD OF 'S'-FILES (STANDARD). ** 82-07-08 /DALI VOLUME-NAME IS CHANGED BEFORE CREATE ** 82-02-04 /DALI DISPLAY OF NO. OF RECS CHANGED FROM 5 TO 7 DIGITS ** 81-11-04 /DALI CREATION DDUM WUDIV PDIV ENTRY WUCRF * EXPROC DECLRA CRE= SCREEN ROUTINE EXPROC DISERR CRE= ERROR ROUTINE EXPROC DSKERR,PBIN CRE= ERROR ROUTINE EXPROC CHVNAM,PSTRG,PBIN CRE= CHANGE VOLUMENAME EXPROC HALT * EXT CREFIL ASS= CREATE FILE EXT RDSECT ASS= READ A SECTOR EXT WRITDK ASS= WRITE A SECTOR EXT BINBCD ASS= TWO BINARYS TO BCDITEM EXT BCDBIN ASS= BCDITEM TO TWO BINARYS EXT CHANFC ASS= CHANGE FILE-CODE EXT OPENF ASS= OPEN FILE EXT CLOSEF ASS= CLOSE FILE EJECT WUCRF PROC ******************* * 2 CREATE FILE * ******************* CRF000 ATTFMT FCRF SET DEPROMPT CRF100 PERF DECLRA CRF150 IB DEBINW2,CRF100,RETUR,CRF200 PERF DSKERR,W0 'BELL' B CRF150 CRF200 PERF CHVNAM,VOLEX1,FCOD CHANGE NAME BNOK CRF335 CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD BNOK CRF250 FILE DOESN'T EXIST PERF CLOFIL,W1 PERF CHVNAM,VOLNAM,FCOD CHANGE NAME PERF DSKERR,W7 'FILENAME ALREADY USED' B CRF150 CRF250 MOVE BCDI21(W2),=D'00' NUMBER OF FREE SECTORS MOVE BIN1,W0 SECTOR NO. CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ VOLUME-LABEL BNOK CRF330 XCOPY BIN1,W0,W2,SYSBUF,W10 FSAT BASE MOVE DKBIN2,=W'46' FSAT-LENGTH DISPLACEMENT XCOPY DKBIN1,W0,W2,SYSBUF,DKBIN2 FSAT-LENGTH CRF300 CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ ONESECTOR BOK CRF340 CRF330 PERF DISERR PERF CHVNAM,VOLNAM,FCOD CHANGE NAME BOK CRF150 CRF335 PERF DISERR B CRF150 EJECT CRF340 MOVE BIN6,W1 MOVE BIN5,W2 MOVE BIN3,W0 CRF350 XCOPY BIN10,W0,W2,SYSBUF,BIN3 1:ST WORD IN NO OF FS REC XCOPY BIN11,W0,W2,SYSBUF,BIN5 2:ST WORD IN NO OF FS REC CALL BINBCD,BIN10,BIN11,BCDI21(W1) ADD BCDI21(W2),BCDI21(W1) CBE BIN6,=W'32',CRF400 JUMP IF ALL ENTRIES HANDLED ADD BIN5,W8 ADD BIN6,W1 HANDLE NEXT ENTRY IN ADD BIN3,W8 CURRENT FSAT-RECORD B CRF350 CRF400 SUB DKBIN1,W1 FSAT-LENGTH BZ CRF550 JUMP IF ALL FSAT-RECORDS HANDLED ADD BIN1,W1 INCREMENT RECORDNUMBER TO B CRF300 NEXT FSAT-RECORD CRF550 ATTFMT FSYS SET DEPROMPT CRF650 PERF DECLRA CRF680 IB DEBINW2,CRF650,CRF790,CRF700 PERF DSKERR,W0 'BELL' B CRF680 CRF700 XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE CODE ERASE 0,W1,W5 MOVE STR1A,=C'X' XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME COPY PBLOCK,W16,W6,VOLEX1,W0 VOL-NAME 1 MOVE STRG10A,='R XXX WSM ' XCOPY STRG10A,W2,W3,RELNUM,W0 SET REL. NO MOVE BIN1,=W'40' XCOPY PBLOCK,BIN1,W9,STRG10A,W0 REL + RET.PERIOD MOVE BIN1,=W'49' XCOPY PBLOCK,BIN1,W1,W1,W1 BF MOVE BIN2,=W'50' XCOPY PBLOCK,BIN2,W2,SECLEN,W0 ***ME 830511 *** CALL BCDBIN,NOREC,BIN10,BIN11 MOVE BIN1,=W'52' XCOPY PBLOCK,BIN1,W2,BIN10,W0 NO. OF RECORDS MOVE BIN1,=W'54' XCOPY PBLOCK,BIN1,W2,BIN11,W0 NO. OF RECORDS MOVE BIN1,=W'56' XCOPY PBLOCK,BIN1,W2,W0,W0 KA MOVE BIN1,=W'58' XCOPY PBLOCK,BIN1,W2,W0,W0 NIF CALL CREFIL,PBLOCK,BPOOL(W12),BPOOL(W1),RETCOD CMP RETCOD,W0 'I/O-ERROR' BNZ CRF750 CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD BOK CRF800 CRF750 PERF DISERR 'I/O-ERROR' B CRF680 CRF790 PERF CHVNAM,VOLNAM,FCOD CHANGE NAME BOK CRF000 CRF795 ATTFMT FCRF SET DEPROMPT PERF DISERR 'I/O-ERROR' B CRF150 EJECT *************************************** * * * FOLLOWING WORK ITEMS ARE USED * * FOR INIALIZATION OF THE SYSWSM-FILE* * * * BIN1 = WORKITEM * * BIN2 = COUNTER IN BIN9 * * BIN3 = NO.OF SECTORS/RECORD * * BIN4 = NO.OF FREE-SPACE REC. * * BIN5 = NO.OF FS.IN LAST REC. * * BIN6 = INDEX * * BIN7 = NOT USED * * BIN8 = CONTER TO MATCH - FS-IND * * BIN9 = WORKITEM - FREE-SPACE IND. * * * * * * BIN12 = SIZE OF SECTORS * * * * BCD5A = NO.OF FS.IND PER FS. RECORD* * BCD13A = NO.OF RECORDS * *************************************** * *RECORD 1 CALLED FS, FREE SPACE * 2-4 TH, TABLE HEAD * 5-9 NU, NOT USED, RESERVED * 10-25 CH, FORMAT/DEFINITION CHAINS *************************************************** * EJECT ************************ * FREE-SPACE RECORDS * ************************ CRF800 MOVE RBUF,HEX00 MOVE FS,=C'FS' RECORD TYPE MOVE LNEXT1,W0 LINK NEXT1. MOVE LNEXT2,W0 LINK NEXT2. MOVE FRSTN1,W0 MOVE BCD13A,NOREC NO. OF RECORDS MOVE BCD5A,=D'+01920' NO. OF FS-IND. PER FS. REC. SUB BCD13A,=D'+024' SYSTEMFILE MOVE BIN4,W0 CRF810 ADD BIN4,W1 NO.OF FREE-SPACE RECORDS SUB BCD13A,=D'+1' SUB BCD13A,BCD5A CBG BCD13A,=D'00',CRF810 CHECK IF SPACE FOR 1 FS-REC ADD BCD13A,BCD5A MOVE BIN5,BCD13A BIN5 = NO. OF FREE-RECORD-IND. IN LAST FREE-SPACE RECORD MOVE FRSTN2,BIN4 1:ST RECORD NO. ADD FRSTN2,=W'25' CBE BIN4,W1,CRF830 ONLY 1 RECORD MOVE LNEXT2,=W'26' LINK NEXT2 CRF830 MOVE NOFREE,BCD5A NO. OF FREE = 1920 MOVE NOFREC,BCD5A MOVE BIN2,W1 RELREC CBNE BIN4,W1,CRF840 MOVE NOFREE,BIN5 IF LAST RECORD MOVE NOFREC,BIN5 CRF840 MOVE RECNUM,=D'+1' EJECT CRF850 ***************************************************** * FILL RECORD WITH FREE-SPACE-INDICATIONS : 1=FREE * ***************************************************** XCOPY RELREC,W0,W1,BIN2,W1 MOVE BIN1,NOFREE MOVE BIN6,W0 INDEX MOVE BIN8,W0 COUNTER TO MATCH - FS-IND. CRF860 ADD BIN6,W1 SUB BIN1,W8 8 RECORDS BN CRF870 MOVE FF(BIN6),=X'FF' CBE BIN1,W0,CRF880 B CRF860 CRF870 ADD BIN1,W8 CBE BIN1,W0,CRF882 MOVE FF(BIN6),HEXTAB(BIN1) CRF880 ADD BIN6,W1 CBG BIN6,=W'240',F80 CRF882 MOVE FF(BIN6),=X'00' B CRF880 ****************************** * WRITE FREE-SPACE RECORDS * ****************************** F80 CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD BNOK CRF990 SUB BIN4,W1 BZ CRF890 IF LAST RECORD CALL BINBCD,FRSTN1,FRSTN2,BCD13A ADD BCD13A,BCD5A CALL BCDBIN,BCD13A,FRSTN1,FRSTN2 ADD BIN2,W1 RELREC MOVE RECNUM,LNEXT2 ADD LNEXT2,W1 CBNE BIN4,W1,CRF850 MOVE LNEXT2,W0 LAST RECORD MOVE NOFREE,BIN5 B CRF850 CRF890 MOVE RECNUM,=D'+1' MOVE BIN1,W1 CRF905 IB BIN1,CRF920, REC 2 = TABLE HEAD C CRF910, REC 3 = TABLE HEAD C CRF910, REC 4 = TABLE HEAD C CRF930, REC 5 = NOT USED C CRF910, REC 6 = NOT USED C CRF910, REC 7 = NOT USED C CRF910, REC 8 = NOT USED C CRF910, REC 9 = NOT USED C CRF940 REC 10-25= CHAIN RECORD CRF910 ADD RECNUM,=D'+1' CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD BNOK CRF990 ADD BIN1,W1 CBNE BIN1,=W'25',CRF905 B CRF950 CRF920 MOVE RBUF,HEX00 MOVE FS,='TH' B CRF910 CRF930 MOVE FS,=X'0000' B CRF910 CRF940 MOVE FS,='CH' B CRF910 CRF950 PERF CLOFIL,W1 BNOK CRF750 PERF CHVNAM,VOLNAM,FCOD CHANGE NAME BNOK CRF795 PERF HALT B RETUR CRF990 PERF CLOFIL,W1 PERF DISERR B CRF680 RETUR RET PEND * * **************** * CLOSE FILE * **************** CLOFIL PROC FC PBIN FC CALL CLOSEF,DISK,FILECODE(FC),SYSBUF,W0,DEBINW4 CMP DEBINW4,W0 RET PEND FCRF FRMT FSL FATTR .INV INVERSE VIDEO FATTR .HIGH HIGH INTENSITY FCOPY =C'CREATE WSM SYSTEM FILE' FLINK FFILE FMEND * FFILE FRMT FNL FATTR .HIGH HIGH INTENSITY FCOPY =C'UNIT:' FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 FCOPY INUNIT FATTR .HIGH HIGH INTENSITY FTAB 12 FCOPY =C'VOLUME-NAME:' FINP 25 FCOPY VOLNAM FNL FATTR .HIGH HIGH INTENSITY FCOPY =C'FILENAME:' FKI 10,MINL=1,MAXL=8,ME,REWRT,APPL=6,ALPHA,NEOI FCOPY FILNAM FLINK FHEX FMEND FSYS FRMT SYSTEM-FILE FSL FATTR .HIGH HIGH INTENSITY FATTR .INV INVERSE VIDEO FCOPY =C'SYSTEM' FTAB 7 FCOPY =C'FILE' FNL FATTR .HIGH HIGH INTENSITY FCOPY =C'NO.' FTAB 5 FCOPY =C'OF RECORDS:' FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=3 NO. OF RECORDS FMEL 'TTTTTTX',NOREC FLINK FHEX FMEND * FHEX FRMT FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND * END
0x0000…0030 (0, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IDENT WUCRF REL=2.3,841001,870155940230«, t00=0x0000, t01=0x0004}
0x0030…005e Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0000, t01=0x0034}
0x005e…008c Head {h00=0x002a, h01=0x0050, text=»* WORK STATION MANAGEMENT *«, t00=0x0000, t01=0x0062}
0x008c…00ba Head {h00=0x002a, h01=0x0050, text=»* UTILITY PROGRAMS *«, t00=0x0000, t01=0x0090}
0x00ba…00e8 Head {h00=0x002a, h01=0x0050, text=»* 2 CREATE FILE *«, t00=0x0000, t01=0x00be}
0x00e8…0116 Head {h00=0x002a, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00ec}
0x0116…0144 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0000, t01=0x011a}
0x0144…014c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0148}
0x014c…0154 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0150}
0x0154…0168 Head {h00=0x0010, h01=0x0050, text=»** HISTORY:«, t00=0x0000, t01=0x0158}
0x0168…0170 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x016c}
0x0170…01a6 Head {h00=0x0032, h01=0x0050, text=»** 84-07-12 /MAER "CREATE WSM SYSTEM FILE".«, t00=0x0000, t01=0x0174}
0x01a6…01f2 Head {h00=0x0048, h01=0x0050, text=»** 83-05-11 /MAER NEW FILES GET RECORD LENGTH 256 INSTEAD OF 255.«, t00=0x0001, t01=0x001a}
0x01f2…0240 Head {h00=0x004a, h01=0x0050, text=»** 83-04-06 /MAER NEW FILES ARE CREATED AS 'X'-FILES (NON-STANDARD)«, t00=0x0001, t01=0x0066}
0x0240…027e Head {h00=0x003a, h01=0x0050, text=»** INSTEAD OF 'S'-FILES (STANDARD). «, t00=0x0001, t01=0x00b4}
0x027e…02c0 Head {h00=0x003e, h01=0x0050, text=»** 82-07-08 /DALI VOLUME-NAME IS CHANGED BEFORE CREATE «, t00=0x0001, t01=0x00f2}
0x02c0…030e Head {h00=0x004a, h01=0x0050, text=»** 82-02-04 /DALI DISPLAY OF NO. OF RECS CHANGED FROM 5 TO 7 DIGITS«, t00=0x0001, t01=0x0134}
0x030e…0334 Head {h00=0x0022, h01=0x0050, text=»** 81-11-04 /DALI CREATION «, t00=0x0001, t01=0x0182}
0x0334…033c Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0018}
0x033c…0344 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0020}
0x0344…0358 Head {h00=0x0010, h01=0x0050, text=» DDUM WUDIV «, t00=0x0002, t01=0x0028}
0x0358…0366 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0002, t01=0x003c}
0x0366…037a Head {h00=0x0010, h01=0x0050, text=» ENTRY WUCRF«, t00=0x0002, t01=0x004a}
0x037a…0384 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005e}
0x0384…03ae Head {h00=0x0026, h01=0x0050, text=» EXPROC DECLRA CRE= SCREEN ROUTINE«, t00=0x0002, t01=0x0068}
0x03ae…03d8 Head {h00=0x0026, h01=0x0050, text=» EXPROC DISERR CRE= ERROR ROUTINE «, t00=0x0002, t01=0x0092}
0x03d8…0406 Head {h00=0x002a, h01=0x0050, text=» EXPROC DSKERR,PBIN CRE= ERROR ROUTINE«, t00=0x0002, t01=0x00bc}
0x0406…043e Head {h00=0x0034, h01=0x0050, text=» EXPROC CHVNAM,PSTRG,PBIN CRE= CHANGE VOLUMENAME«, t00=0x0002, t01=0x00ea}
0x043e…0452 Head {h00=0x0010, h01=0x0050, text=» EXPROC HALT«, t00=0x0002, t01=0x0122}
0x0452…045c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0136}
0x045c…0480 Head {h00=0x0020, h01=0x0050, text=» EXT CREFIL ASS= CREATE FILE«, t00=0x0002, t01=0x0140}
0x0480…04a6 Head {h00=0x0022, h01=0x0050, text=» EXT RDSECT ASS= READ A SECTOR«, t00=0x0002, t01=0x0164}
0x04a6…04ce Head {h00=0x0024, h01=0x0050, text=» EXT WRITDK ASS= WRITE A SECTOR «, t00=0x0002, t01=0x018a}
0x04ce…04fe Head {h00=0x002c, h01=0x0050, text=» EXT BINBCD ASS= TWO BINARYS TO BCDITEM «, t00=0x0003, t01=0x0022}
0x04fe…052e Head {h00=0x002c, h01=0x0050, text=» EXT BCDBIN ASS= BCDITEM TO TWO BINARYS «, t00=0x0003, t01=0x0052}
0x052e…0558 Head {h00=0x0026, h01=0x0050, text=» EXT CHANFC ASS= CHANGE FILE-CODE «, t00=0x0003, t01=0x0082}
0x0558…057a Head {h00=0x001e, h01=0x0050, text=» EXT OPENF ASS= OPEN FILE «, t00=0x0003, t01=0x00ac}
0x057a…059e Head {h00=0x0020, h01=0x0050, text=» EXT CLOSEF ASS= CLOSE FILE «, t00=0x0003, t01=0x00ce}
0x059e…05ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x00f2}
0x05ac…05be Head {h00=0x000e, h01=0x0050, text=»WUCRF PROC«, t00=0x0003, t01=0x0100}
0x05be…05da Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0003, t01=0x0112}
0x05da…05f6 Head {h00=0x0018, h01=0x0050, text=»* 2 CREATE FILE * «, t00=0x0003, t01=0x012e}
0x05f6…0612 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0003, t01=0x014a}
0x0612…0620 Head {h00=0x000a, h01=0x0050, text=»CRF000«, t00=0x0003, t01=0x0166}
0x0620…0634 Head {h00=0x0010, h01=0x0050, text=» ATTFMT FCRF«, t00=0x0003, t01=0x0174}
0x0634…064a Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0003, t01=0x0188}
0x064a…0658 Head {h00=0x000a, h01=0x0050, text=»CRF100«, t00=0x0004, t01=0x000e}
0x0658…066c Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0004, t01=0x001c}
0x066c…067a Head {h00=0x000a, h01=0x0050, text=»CRF150«, t00=0x0004, t01=0x0030}
0x067a…06a2 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,CRF100,RETUR,CRF200 «, t00=0x0004, t01=0x003e}
0x06a2…06c0 Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0004, t01=0x0066}
0x06c0…06d2 Head {h00=0x000e, h01=0x0050, text=» B CRF150 «, t00=0x0004, t01=0x0084}
0x06d2…06e0 Head {h00=0x000a, h01=0x0050, text=»CRF200«, t00=0x0004, t01=0x0096}
0x06e0…070c Head {h00=0x0028, h01=0x0050, text=» PERF CHVNAM,VOLEX1,FCOD CHANGE NAME«, t00=0x0004, t01=0x00a4}
0x070c…0720 Head {h00=0x0010, h01=0x0050, text=» BNOK CRF335«, t00=0x0004, t01=0x00d0}
0x0720…0762 Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD «, t00=0x0004, t01=0x00e4}
0x0762…078a Head {h00=0x0024, h01=0x0050, text=» BNOK CRF250 FILE DOESN'T EXIST «, t00=0x0004, t01=0x0126}
0x078a…07a2 Head {h00=0x0014, h01=0x0050, text=» PERF CLOFIL,W1 «, t00=0x0004, t01=0x014e}
0x07a2…07ce Head {h00=0x0028, h01=0x0050, text=» PERF CHVNAM,VOLNAM,FCOD CHANGE NAME«, t00=0x0004, t01=0x0166}
0x07ce…07fe (5, 0, 398) Head {h00=0x002c, h01=0x0050, text=» PERF DSKERR,W7 'FILENAME ALREADY USED' «, t00=0x0005, t01=0x0004}
0x07fe…0810 Head {h00=0x000e, h01=0x0050, text=» B CRF150 «, t00=0x0005, t01=0x0034}
0x0810…081e Head {h00=0x000a, h01=0x0050, text=»CRF250«, t00=0x0005, t01=0x0046}
0x081e…0856 Head {h00=0x0034, h01=0x0050, text=» MOVE BCDI21(W2),=D'00' NUMBER OF FREE SECTORS «, t00=0x0005, t01=0x0054}
0x0856…0876 Head {h00=0x001c, h01=0x0050, text=» MOVE BIN1,W0 SECTOR NO.«, t00=0x0005, t01=0x008c}
0x0876…08b4 Head {h00=0x003a, h01=0x0050, text=» CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ VOLUME-LABEL«, t00=0x0005, t01=0x00ac}
0x08b4…08c8 Head {h00=0x0010, h01=0x0050, text=» BNOK CRF330«, t00=0x0005, t01=0x00ea}
0x08c8…08f6 Head {h00=0x002a, h01=0x0050, text=» XCOPY BIN1,W0,W2,SYSBUF,W10 FSAT BASE«, t00=0x0005, t01=0x00fe}
0x08f6…092a Head {h00=0x0030, h01=0x0050, text=» MOVE DKBIN2,=W'46' FSAT-LENGTH DISPLACEMENT«, t00=0x0005, t01=0x012c}
0x092a…0960 Head {h00=0x0032, h01=0x0050, text=» XCOPY DKBIN1,W0,W2,SYSBUF,DKBIN2 FSAT-LENGTH «, t00=0x0005, t01=0x0160}
0x0960…096e Head {h00=0x000a, h01=0x0050, text=»CRF300«, t00=0x0006, t01=0x0008}
0x096e…09aa Head {h00=0x0038, h01=0x0050, text=» CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ ONESECTOR «, t00=0x0006, t01=0x0016}
0x09aa…09be Head {h00=0x0010, h01=0x0050, text=» BOK CRF340 «, t00=0x0006, t01=0x0052}
0x09be…09cc Head {h00=0x000a, h01=0x0050, text=»CRF330«, t00=0x0006, t01=0x0066}
0x09cc…09e0 Head {h00=0x0010, h01=0x0050, text=» PERF DISERR«, t00=0x0006, t01=0x0074}
0x09e0…0a0c Head {h00=0x0028, h01=0x0050, text=» PERF CHVNAM,VOLNAM,FCOD CHANGE NAME«, t00=0x0006, t01=0x0088}
0x0a0c…0a20 Head {h00=0x0010, h01=0x0050, text=» BOK CRF150 «, t00=0x0006, t01=0x00b4}
0x0a20…0a2e Head {h00=0x000a, h01=0x0050, text=»CRF335«, t00=0x0006, t01=0x00c8}
0x0a2e…0a42 Head {h00=0x0010, h01=0x0050, text=» PERF DISERR«, t00=0x0006, t01=0x00d6}
0x0a42…0a54 Head {h00=0x000e, h01=0x0050, text=» B CRF150 «, t00=0x0006, t01=0x00ea}
0x0a54…0a62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x00fc}
0x0a62…0a70 Head {h00=0x000a, h01=0x0050, text=»CRF340«, t00=0x0006, t01=0x010a}
0x0a70…0a86 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN6,W1 «, t00=0x0006, t01=0x0118}
0x0a86…0a9c Head {h00=0x0012, h01=0x0050, text=» MOVE BIN5,W2 «, t00=0x0006, t01=0x012e}
0x0a9c…0ab2 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x0006, t01=0x0144}
0x0ab2…0ac0 Head {h00=0x000a, h01=0x0050, text=»CRF350«, t00=0x0006, t01=0x015a}
0x0ac0…0b00 Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN10,W0,W2,SYSBUF,BIN3 1:ST WORD IN NO OF FS REC«, t00=0x0006, t01=0x0168}
0x0b00…0b40 Head {h00=0x003c, h01=0x0050, text=» XCOPY BIN11,W0,W2,SYSBUF,BIN5 2:ST WORD IN NO OF FS REC«, t00=0x0007, t01=0x0018}
0x0b40…0b6c Head {h00=0x0028, h01=0x0050, text=» CALL BINBCD,BIN10,BIN11,BCDI21(W1) «, t00=0x0007, t01=0x0058}
0x0b6c…0b8e Head {h00=0x001e, h01=0x0050, text=» ADD BCDI21(W2),BCDI21(W1)«, t00=0x0007, t01=0x0084}
0x0b8e…0bca Head {h00=0x0038, h01=0x0050, text=» CBE BIN6,=W'32',CRF400 JUMP IF ALL ENTRIES HANDLED «, t00=0x0007, t01=0x00a6}
0x0bca…0bde Head {h00=0x0010, h01=0x0050, text=» ADD BIN5,W8«, t00=0x0007, t01=0x00e2}
0x0bde…0c08 Head {h00=0x0026, h01=0x0050, text=» ADD BIN6,W1 HANDLE NEXT ENTRY IN «, t00=0x0007, t01=0x00f6}
0x0c08…0c30 Head {h00=0x0024, h01=0x0050, text=» ADD BIN3,W8 CURRENT FSAT-RECORD«, t00=0x0007, t01=0x0120}
0x0c30…0c42 Head {h00=0x000e, h01=0x0050, text=» B CRF350 «, t00=0x0007, t01=0x0148}
0x0c42…0c50 Head {h00=0x000a, h01=0x0050, text=»CRF400«, t00=0x0007, t01=0x015a}
0x0c50…0c72 Head {h00=0x001e, h01=0x0050, text=» SUB DKBIN1,W1 FSAT-LENGTH«, t00=0x0007, t01=0x0168}
0x0c72…0c9e Head {h00=0x0028, h01=0x0050, text=» BZ CRF550 JUMP IF ALL FSAT-RECORDS «, t00=0x0007, t01=0x018a}
0x0c9e…0cb0 Head {h00=0x000e, h01=0x0050, text=» HANDLED«, t00=0x0008, t01=0x0026}
0x0cb0…0cde Head {h00=0x002a, h01=0x0050, text=» ADD BIN1,W1 INCREMENT RECORDNUMBER TO«, t00=0x0008, t01=0x0038}
0x0cde…0d00 Head {h00=0x001e, h01=0x0050, text=» B CRF300 NEXT FSAT-RECORD«, t00=0x0008, t01=0x0066}
0x0d00…0d0e Head {h00=0x000a, h01=0x0050, text=»CRF550«, t00=0x0008, t01=0x0088}
0x0d0e…0d22 Head {h00=0x0010, h01=0x0050, text=» ATTFMT FSYS«, t00=0x0008, t01=0x0096}
0x0d22…0d38 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0008, t01=0x00aa}
0x0d38…0d46 Head {h00=0x000a, h01=0x0050, text=»CRF650«, t00=0x0008, t01=0x00c0}
0x0d46…0d5a Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0008, t01=0x00ce}
0x0d5a…0d68 Head {h00=0x000a, h01=0x0050, text=»CRF680«, t00=0x0008, t01=0x00e2}
0x0d68…0d90 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,CRF650,CRF790,CRF700«, t00=0x0008, t01=0x00f0}
0x0d90…0dae Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0008, t01=0x0118}
0x0dae…0dc0 Head {h00=0x000e, h01=0x0050, text=» B CRF680 «, t00=0x0008, t01=0x0136}
0x0dc0…0dce Head {h00=0x000a, h01=0x0050, text=»CRF700«, t00=0x0008, t01=0x0148}
0x0dce…0e00 Head {h00=0x002e, h01=0x0050, text=» XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE CODE«, t00=0x0008, t01=0x0156}
0x0e00…0e16 Head {h00=0x0012, h01=0x0050, text=» ERASE 0,W1,W5«, t00=0x0008, t01=0x0188}
0x0e16…0e30 Head {h00=0x0016, h01=0x0050, text=» MOVE STR1A,=C'X' «, t00=0x0009, t01=0x000e}
0x0e30…0e5a Head {h00=0x0026, h01=0x0050, text=» XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG«, t00=0x0009, t01=0x0028}
0x0e5a…0e8a Head {h00=0x002c, h01=0x0050, text=» XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME «, t00=0x0009, t01=0x0052}
0x0e8a…0eba Head {h00=0x002c, h01=0x0050, text=» COPY PBLOCK,W16,W6,VOLEX1,W0 VOL-NAME 1«, t00=0x0009, t01=0x0082}
0x0eba…0ede Head {h00=0x0020, h01=0x0050, text=» MOVE STRG10A,='R XXX WSM ' «, t00=0x0009, t01=0x00b2}
0x0ede…0f10 Head {h00=0x002e, h01=0x0050, text=» XCOPY STRG10A,W2,W3,RELNUM,W0 SET REL. NO«, t00=0x0009, t01=0x00d6}
0x0f10…0f2a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'40' «, t00=0x0009, t01=0x0108}
0x0f2a…0f64 Head {h00=0x0036, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W9,STRG10A,W0 REL + RET.PERIOD «, t00=0x0009, t01=0x0122}
0x0f64…0f7e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'49' «, t00=0x0009, t01=0x015c}
0x0f7e…0fa4 Head {h00=0x0022, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W1,W1,W1 BF«, t00=0x0009, t01=0x0176}
0x0fa4…0fbe Head {h00=0x0016, h01=0x0050, text=» MOVE BIN2,=W'50' «, t00=0x000a, t01=0x000c}
0x0fbe…0ff6 Head {h00=0x0034, h01=0x0050, text=» XCOPY PBLOCK,BIN2,W2,SECLEN,W0 ***ME 830511 ***«, t00=0x000a, t01=0x0026}
0x0ff6…101c Head {h00=0x0022, h01=0x0050, text=» CALL BCDBIN,NOREC,BIN10,BIN11«, t00=0x000a, t01=0x005e}
0x101c…1036 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'52' «, t00=0x000a, t01=0x0084}
0x1036…106c Head {h00=0x0032, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W2,BIN10,W0 NO. OF RECORDS «, t00=0x000a, t01=0x009e}
0x106c…1086 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'54' «, t00=0x000a, t01=0x00d4}
0x1086…10bc Head {h00=0x0032, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W2,BIN11,W0 NO. OF RECORDS «, t00=0x000a, t01=0x00ee}
0x10bc…10d6 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'56' «, t00=0x000a, t01=0x0124}
0x10d6…10fc Head {h00=0x0022, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W2,W0,W0 KA«, t00=0x000a, t01=0x013e}
0x10fc…1116 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'58' «, t00=0x000a, t01=0x0164}
0x1116…113e Head {h00=0x0024, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W2,W0,W0 NIF «, t00=0x000a, t01=0x017e}
0x113e…1176 Head {h00=0x0034, h01=0x0050, text=» CALL CREFIL,PBLOCK,BPOOL(W12),BPOOL(W1),RETCOD «, t00=0x000b, t01=0x0016}
0x1176…1198 Head {h00=0x001e, h01=0x0050, text=» CMP RETCOD,W0 'I/O-ERROR'«, t00=0x000b, t01=0x004e}
0x1198…11ac Head {h00=0x0010, h01=0x0050, text=» BNZ CRF750 «, t00=0x000b, t01=0x0070}
0x11ac…11ee Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD «, t00=0x000b, t01=0x0084}
0x11ee…1202 Head {h00=0x0010, h01=0x0050, text=» BOK CRF800 «, t00=0x000b, t01=0x00c6}
0x1202…1210 Head {h00=0x000a, h01=0x0050, text=»CRF750«, t00=0x000b, t01=0x00da}
0x1210…1230 Head {h00=0x001c, h01=0x0050, text=» PERF DISERR 'I/O-ERROR'«, t00=0x000b, t01=0x00e8}
0x1230…1242 Head {h00=0x000e, h01=0x0050, text=» B CRF680 «, t00=0x000b, t01=0x0108}
0x1242…1250 Head {h00=0x000a, h01=0x0050, text=»CRF790«, t00=0x000b, t01=0x011a}
0x1250…127c Head {h00=0x0028, h01=0x0050, text=» PERF CHVNAM,VOLNAM,FCOD CHANGE NAME«, t00=0x000b, t01=0x0128}
0x127c…1290 Head {h00=0x0010, h01=0x0050, text=» BOK CRF000 «, t00=0x000b, t01=0x0154}
0x1290…129e Head {h00=0x000a, h01=0x0050, text=»CRF795«, t00=0x000b, t01=0x0168}
0x129e…12b2 Head {h00=0x0010, h01=0x0050, text=» ATTFMT FCRF«, t00=0x000b, t01=0x0176}
0x12b2…12c8 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x000b, t01=0x018a}
0x12c8…12e8 Head {h00=0x001c, h01=0x0050, text=» PERF DISERR 'I/O-ERROR'«, t00=0x000c, t01=0x0010}
0x12e8…12fa Head {h00=0x000e, h01=0x0050, text=» B CRF150 «, t00=0x000c, t01=0x0030}
0x12fa…1308 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0042}
0x1308…1338 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000c, t01=0x0050}
0x1338…1368 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0080}
0x1368…1398 Head {h00=0x002c, h01=0x0050, text=»* FOLLOWING WORK ITEMS ARE USED * «, t00=0x000c, t01=0x00b0}
0x1398…13c8 Head {h00=0x002c, h01=0x0050, text=»* FOR INIALIZATION OF THE SYSWSM-FILE* «, t00=0x000c, t01=0x00e0}
0x13c8…13f8 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x000c, t01=0x0110}
0x13f8…1428 Head {h00=0x002c, h01=0x0050, text=»* BIN1 = WORKITEM * «, t00=0x000c, t01=0x0140}
0x1428…1458 Head {h00=0x002c, h01=0x0050, text=»* BIN2 = COUNTER IN BIN9 * «, t00=0x000c, t01=0x0170}
0x1458…1488 Head {h00=0x002c, h01=0x0050, text=»* BIN3 = NO.OF SECTORS/RECORD * «, t00=0x000d, t01=0x0010}
0x1488…14b8 Head {h00=0x002c, h01=0x0050, text=»* BIN4 = NO.OF FREE-SPACE REC. * «, t00=0x000d, t01=0x0040}
0x14b8…14e8 Head {h00=0x002c, h01=0x0050, text=»* BIN5 = NO.OF FS.IN LAST REC. * «, t00=0x000d, t01=0x0070}
0x14e8…1518 Head {h00=0x002c, h01=0x0050, text=»* BIN6 = INDEX * «, t00=0x000d, t01=0x00a0}
0x1518…1548 Head {h00=0x002c, h01=0x0050, text=»* BIN7 = NOT USED * «, t00=0x000d, t01=0x00d0}
0x1548…1578 Head {h00=0x002c, h01=0x0050, text=»* BIN8 = CONTER TO MATCH - FS-IND * «, t00=0x000d, t01=0x0100}
0x1578…15a8 Head {h00=0x002c, h01=0x0050, text=»* BIN9 = WORKITEM - FREE-SPACE IND. * «, t00=0x000d, t01=0x0130}
0x15a8…15d8 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x000d, t01=0x0160}
0x15d8…1608 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x000d, t01=0x0190}
0x1608…1638 Head {h00=0x002c, h01=0x0050, text=»* BIN12 = SIZE OF SECTORS * «, t00=0x000e, t01=0x0030}
0x1638…1668 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x000e, t01=0x0060}
0x1668…1698 Head {h00=0x002c, h01=0x0050, text=»* BCD5A = NO.OF FS.IND PER FS. RECORD* «, t00=0x000e, t01=0x0090}
0x1698…16c8 Head {h00=0x002c, h01=0x0050, text=»* BCD13A = NO.OF RECORDS * «, t00=0x000e, t01=0x00c0}
0x16c8…16f8 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x000e, t01=0x00f0}
0x16f8…1702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0120}
0x1702…172e Head {h00=0x0028, h01=0x0050, text=»*RECORD 1 CALLED FS, FREE SPACE «, t00=0x000e, t01=0x012a}
0x172e…175a Head {h00=0x0028, h01=0x0050, text=»* 2-4 TH, TABLE HEAD «, t00=0x000e, t01=0x0156}
0x175a…178e Head {h00=0x0030, h01=0x0050, text=»* 5-9 NU, NOT USED, RESERVED «, t00=0x000e, t01=0x0182}
0x178e…17c8 Head {h00=0x0036, h01=0x0050, text=»* 10-25 CH, FORMAT/DEFINITION CHAINS «, t00=0x000f, t01=0x0026}
0x17c8…1804 Head {h00=0x0038, h01=0x0050, text=»*************************************************** «, t00=0x000f, t01=0x0060}
0x1804…180e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009c}
0x180e…181c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00a6}
0x181c…183c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000f, t01=0x00b4}
0x183c…185c Head {h00=0x001c, h01=0x0050, text=»* FREE-SPACE RECORDS *«, t00=0x000f, t01=0x00d4}
0x185c…187c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000f, t01=0x00f4}
0x187c…188a Head {h00=0x000a, h01=0x0050, text=»CRF800«, t00=0x000f, t01=0x0114}
0x188a…18a2 Head {h00=0x0014, h01=0x0050, text=» MOVE RBUF,HEX00«, t00=0x000f, t01=0x0122}
0x18a2…18c6 Head {h00=0x0020, h01=0x0050, text=» MOVE FS,=C'FS' RECORD TYPE «, t00=0x000f, t01=0x013a}
0x18c6…18ea Head {h00=0x0020, h01=0x0050, text=» MOVE LNEXT1,W0 LINK NEXT1. «, t00=0x000f, t01=0x015e}
0x18ea…190e Head {h00=0x0020, h01=0x0050, text=» MOVE LNEXT2,W0 LINK NEXT2. «, t00=0x000f, t01=0x0182}
0x190e…1926 Head {h00=0x0014, h01=0x0050, text=» MOVE FRSTN1,W0 «, t00=0x0010, t01=0x0016}
0x1926…1950 Head {h00=0x0026, h01=0x0050, text=» MOVE BCD13A,NOREC NO. OF RECORDS «, t00=0x0010, t01=0x002e}
0x1950…198a Head {h00=0x0036, h01=0x0050, text=» MOVE BCD5A,=D'+01920' NO. OF FS-IND. PER FS. REC.«, t00=0x0010, t01=0x0058}
0x198a…19b2 Head {h00=0x0024, h01=0x0050, text=» SUB BCD13A,=D'+024' SYSTEMFILE «, t00=0x0010, t01=0x0092}
0x19b2…19c8 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0010, t01=0x00ba}
0x19c8…19d6 Head {h00=0x000a, h01=0x0050, text=»CRF810«, t00=0x0010, t01=0x00d0}
0x19d6…1a04 Head {h00=0x002a, h01=0x0050, text=» ADD BIN4,W1 NO.OF FREE-SPACE RECORDS «, t00=0x0010, t01=0x00de}
0x1a04…1a1e Head {h00=0x0016, h01=0x0050, text=» SUB BCD13A,=D'+1'«, t00=0x0010, t01=0x010c}
0x1a1e…1a38 Head {h00=0x0016, h01=0x0050, text=» SUB BCD13A,BCD5A «, t00=0x0010, t01=0x0126}
0x1a38…1a76 Head {h00=0x003a, h01=0x0050, text=» CBG BCD13A,=D'00',CRF810 CHECK IF SPACE FOR 1 FS-REC «, t00=0x0010, t01=0x0140}
0x1a76…1a90 Head {h00=0x0016, h01=0x0050, text=» ADD BCD13A,BCD5A «, t00=0x0010, t01=0x017e}
0x1a90…1ac8 Head {h00=0x0034, h01=0x0050, text=» MOVE BIN5,BCD13A BIN5 = NO. OF FREE-RECORD-IND.«, t00=0x0011, t01=0x0008}
0x1ac8…1aec Head {h00=0x0020, h01=0x0050, text=» IN LAST FREE-SPACE RECORD«, t00=0x0011, t01=0x0040}
0x1aec…1b16 Head {h00=0x0026, h01=0x0050, text=» MOVE FRSTN2,BIN4 1:ST RECORD NO. «, t00=0x0011, t01=0x0064}
0x1b16…1b30 Head {h00=0x0016, h01=0x0050, text=» ADD FRSTN2,=W'25'«, t00=0x0011, t01=0x008e}
0x1b30…1b5a Head {h00=0x0026, h01=0x0050, text=» CBE BIN4,W1,CRF830 ONLY 1 RECORD «, t00=0x0011, t01=0x00a8}
0x1b5a…1b80 Head {h00=0x0022, h01=0x0050, text=» MOVE LNEXT2,=W'26' LINK NEXT2«, t00=0x0011, t01=0x00d2}
0x1b80…1b8e Head {h00=0x000a, h01=0x0050, text=»CRF830«, t00=0x0011, t01=0x00f8}
0x1b8e…1bbc Head {h00=0x002a, h01=0x0050, text=» MOVE NOFREE,BCD5A NO. OF FREE = 1920 «, t00=0x0011, t01=0x0106}
0x1bbc…1bd6 Head {h00=0x0016, h01=0x0050, text=» MOVE NOFREC,BCD5A«, t00=0x0011, t01=0x0134}
0x1bd6…1bf2 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN2,W1 RELREC«, t00=0x0011, t01=0x014e}
0x1bf2…1c0e Head {h00=0x0018, h01=0x0050, text=» CBNE BIN4,W1,CRF840«, t00=0x0011, t01=0x016a}
0x1c0e…1c36 Head {h00=0x0024, h01=0x0050, text=» MOVE NOFREE,BIN5 IF LAST RECORD«, t00=0x0011, t01=0x0186}
0x1c36…1c50 Head {h00=0x0016, h01=0x0050, text=» MOVE NOFREC,BIN5 «, t00=0x0012, t01=0x001e}
0x1c50…1c5e Head {h00=0x000a, h01=0x0050, text=»CRF840«, t00=0x0012, t01=0x0038}
0x1c5e…1c7a Head {h00=0x0018, h01=0x0050, text=» MOVE RECNUM,=D'+1' «, t00=0x0012, t01=0x0046}
0x1c7a…1c88 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0062}
0x1c88…1c96 Head {h00=0x000a, h01=0x0050, text=»CRF850«, t00=0x0012, t01=0x0070}
0x1c96…1cd4 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0012, t01=0x007e}
0x1cd4…1d12 Head {h00=0x003a, h01=0x0050, text=»* FILL RECORD WITH FREE-SPACE-INDICATIONS : 1=FREE * «, t00=0x0012, t01=0x00bc}
0x1d12…1d50 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x0012, t01=0x00fa}
0x1d50…1d74 Head {h00=0x0020, h01=0x0050, text=» XCOPY RELREC,W0,W1,BIN2,W1 «, t00=0x0012, t01=0x0138}
0x1d74…1d8e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,NOFREE «, t00=0x0012, t01=0x015c}
0x1d8e…1daa Head {h00=0x0018, h01=0x0050, text=» MOVE BIN6,W0 INDEX «, t00=0x0012, t01=0x0176}
0x1daa…1dda (19, 0, 400) Head {h00=0x002c, h01=0x0050, text=» MOVE BIN8,W0 COUNTER TO MATCH - FS-IND.«, t00=0x0013, t01=0x0004}
0x1dda…1de8 Head {h00=0x000a, h01=0x0050, text=»CRF860«, t00=0x0013, t01=0x0034}
0x1de8…1dfc Head {h00=0x0010, h01=0x0050, text=» ADD BIN6,W1«, t00=0x0013, t01=0x0042}
0x1dfc…1e1a Head {h00=0x001a, h01=0x0050, text=» SUB BIN1,W8 8 RECORDS«, t00=0x0013, t01=0x0056}
0x1e1a…1e2c Head {h00=0x000e, h01=0x0050, text=» BN CRF870«, t00=0x0013, t01=0x0074}
0x1e2c…1e4a Head {h00=0x001a, h01=0x0050, text=» MOVE FF(BIN6),=X'FF' «, t00=0x0013, t01=0x0086}
0x1e4a…1e66 Head {h00=0x0018, h01=0x0050, text=» CBE BIN1,W0,CRF880 «, t00=0x0013, t01=0x00a4}
0x1e66…1e78 Head {h00=0x000e, h01=0x0050, text=» B CRF860 «, t00=0x0013, t01=0x00c0}
0x1e78…1e86 Head {h00=0x000a, h01=0x0050, text=»CRF870«, t00=0x0013, t01=0x00d2}
0x1e86…1e9a Head {h00=0x0010, h01=0x0050, text=» ADD BIN1,W8«, t00=0x0013, t01=0x00e0}
0x1e9a…1eb6 Head {h00=0x0018, h01=0x0050, text=» CBE BIN1,W0,CRF882 «, t00=0x0013, t01=0x00f4}
0x1eb6…1eda Head {h00=0x0020, h01=0x0050, text=» MOVE FF(BIN6),HEXTAB(BIN1) «, t00=0x0013, t01=0x0110}
0x1eda…1ee8 Head {h00=0x000a, h01=0x0050, text=»CRF880«, t00=0x0013, t01=0x0134}
0x1ee8…1efc Head {h00=0x0010, h01=0x0050, text=» ADD BIN6,W1«, t00=0x0013, t01=0x0142}
0x1efc…1f1a Head {h00=0x001a, h01=0x0050, text=» CBG BIN6,=W'240',F80 «, t00=0x0013, t01=0x0156}
0x1f1a…1f28 Head {h00=0x000a, h01=0x0050, text=»CRF882«, t00=0x0013, t01=0x0174}
0x1f28…1f46 Head {h00=0x001a, h01=0x0050, text=» MOVE FF(BIN6),=X'00' «, t00=0x0013, t01=0x0182}
0x1f46…1f58 Head {h00=0x000e, h01=0x0050, text=» B CRF880 «, t00=0x0014, t01=0x0010}
0x1f58…1f7e Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0014, t01=0x0022}
0x1f7e…1fa4 Head {h00=0x0022, h01=0x0050, text=»* WRITE FREE-SPACE RECORDS *«, t00=0x0014, t01=0x0048}
0x1fa4…1fca Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0014, t01=0x006e}
0x1fca…1fd6 Head {h00=0x0008, h01=0x0050, text=»F80 «, t00=0x0014, t01=0x0094}
0x1fd6…2016 Head {h00=0x003c, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD«, t00=0x0014, t01=0x00a0}
0x2016…202a Head {h00=0x0010, h01=0x0050, text=» BNOK CRF990«, t00=0x0014, t01=0x00e0}
0x202a…203e Head {h00=0x0010, h01=0x0050, text=» SUB BIN4,W1«, t00=0x0014, t01=0x00f4}
0x203e…2060 Head {h00=0x001e, h01=0x0050, text=» BZ CRF890 IF LAST RECORD «, t00=0x0014, t01=0x0108}
0x2060…208a Head {h00=0x0026, h01=0x0050, text=» CALL BINBCD,FRSTN1,FRSTN2,BCD13A «, t00=0x0014, t01=0x012a}
0x208a…20a4 Head {h00=0x0016, h01=0x0050, text=» ADD BCD13A,BCD5A «, t00=0x0014, t01=0x0154}
0x20a4…20ce Head {h00=0x0026, h01=0x0050, text=» CALL BCDBIN,BCD13A,FRSTN1,FRSTN2 «, t00=0x0014, t01=0x016e}
0x20ce…20ea Head {h00=0x0018, h01=0x0050, text=» ADD BIN2,W1 RELREC «, t00=0x0015, t01=0x0008}
0x20ea…2106 Head {h00=0x0018, h01=0x0050, text=» MOVE RECNUM,LNEXT2 «, t00=0x0015, t01=0x0024}
0x2106…211c Head {h00=0x0012, h01=0x0050, text=» ADD LNEXT2,W1«, t00=0x0015, t01=0x0040}
0x211c…2138 Head {h00=0x0018, h01=0x0050, text=» CBNE BIN4,W1,CRF850«, t00=0x0015, t01=0x0056}
0x2138…215c Head {h00=0x0020, h01=0x0050, text=» MOVE LNEXT2,W0 LAST RECORD «, t00=0x0015, t01=0x0072}
0x215c…2176 Head {h00=0x0016, h01=0x0050, text=» MOVE NOFREE,BIN5 «, t00=0x0015, t01=0x0096}
0x2176…2188 Head {h00=0x000e, h01=0x0050, text=» B CRF850 «, t00=0x0015, t01=0x00b0}
0x2188…2196 Head {h00=0x000a, h01=0x0050, text=»CRF890«, t00=0x0015, t01=0x00c2}
0x2196…21b2 Head {h00=0x0018, h01=0x0050, text=» MOVE RECNUM,=D'+1' «, t00=0x0015, t01=0x00d0}
0x21b2…21c8 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W1 «, t00=0x0015, t01=0x00ec}
0x21c8…21d6 Head {h00=0x000a, h01=0x0050, text=»CRF905«, t00=0x0015, t01=0x0102}
0x21d6…2204 Head {h00=0x002a, h01=0x0050, text=» IB BIN1,CRF920, REC 2 = TABLE HEAD C «, t00=0x0015, t01=0x0110}
0x2204…222a Head {h00=0x0022, h01=0x0050, text=» CRF910, REC 3 = TABLE HEAD C«, t00=0x0015, t01=0x013e}
0x222a…2250 Head {h00=0x0022, h01=0x0050, text=» CRF910, REC 4 = TABLE HEAD C«, t00=0x0015, t01=0x0164}
0x2250…2274 Head {h00=0x0020, h01=0x0050, text=» CRF930, REC 5 = NOT USED C«, t00=0x0015, t01=0x018a}
0x2274…2298 Head {h00=0x0020, h01=0x0050, text=» CRF910, REC 6 = NOT USED C«, t00=0x0016, t01=0x001e}
0x2298…22bc Head {h00=0x0020, h01=0x0050, text=» CRF910, REC 7 = NOT USED C«, t00=0x0016, t01=0x0042}
0x22bc…22e0 Head {h00=0x0020, h01=0x0050, text=» CRF910, REC 8 = NOT USED C«, t00=0x0016, t01=0x0066}
0x22e0…2304 Head {h00=0x0020, h01=0x0050, text=» CRF910, REC 9 = NOT USED C«, t00=0x0016, t01=0x008a}
0x2304…232c Head {h00=0x0024, h01=0x0050, text=» CRF940 REC 10-25= CHAIN RECORD«, t00=0x0016, t01=0x00ae}
0x232c…233a Head {h00=0x000a, h01=0x0050, text=»CRF910«, t00=0x0016, t01=0x00d6}
0x233a…2354 Head {h00=0x0016, h01=0x0050, text=» ADD RECNUM,=D'+1'«, t00=0x0016, t01=0x00e4}
0x2354…2394 Head {h00=0x003c, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD«, t00=0x0016, t01=0x00fe}
0x2394…23a8 Head {h00=0x0010, h01=0x0050, text=» BNOK CRF990«, t00=0x0016, t01=0x013e}
0x23a8…23bc Head {h00=0x0010, h01=0x0050, text=» ADD BIN1,W1«, t00=0x0016, t01=0x0152}
0x23bc…23dc Head {h00=0x001c, h01=0x0050, text=» CBNE BIN1,=W'25',CRF905«, t00=0x0016, t01=0x0166}
0x23dc…23ee Head {h00=0x000e, h01=0x0050, text=» B CRF950 «, t00=0x0016, t01=0x0186}
0x23ee…23fc Head {h00=0x000a, h01=0x0050, text=»CRF920«, t00=0x0017, t01=0x0008}
0x23fc…2414 Head {h00=0x0014, h01=0x0050, text=» MOVE RBUF,HEX00«, t00=0x0017, t01=0x0016}
0x2414…242a Head {h00=0x0012, h01=0x0050, text=» MOVE FS,='TH'«, t00=0x0017, t01=0x002e}
0x242a…243c Head {h00=0x000e, h01=0x0050, text=» B CRF910 «, t00=0x0017, t01=0x0044}
0x243c…244a Head {h00=0x000a, h01=0x0050, text=»CRF930«, t00=0x0017, t01=0x0056}
0x244a…2464 Head {h00=0x0016, h01=0x0050, text=» MOVE FS,=X'0000' «, t00=0x0017, t01=0x0064}
0x2464…2476 Head {h00=0x000e, h01=0x0050, text=» B CRF910 «, t00=0x0017, t01=0x007e}
0x2476…2484 Head {h00=0x000a, h01=0x0050, text=»CRF940«, t00=0x0017, t01=0x0090}
0x2484…249a Head {h00=0x0012, h01=0x0050, text=» MOVE FS,='CH'«, t00=0x0017, t01=0x009e}
0x249a…24ac Head {h00=0x000e, h01=0x0050, text=» B CRF910 «, t00=0x0017, t01=0x00b4}
0x24ac…24ba Head {h00=0x000a, h01=0x0050, text=»CRF950«, t00=0x0017, t01=0x00c6}
0x24ba…24d2 Head {h00=0x0014, h01=0x0050, text=» PERF CLOFIL,W1 «, t00=0x0017, t01=0x00d4}
0x24d2…24e6 Head {h00=0x0010, h01=0x0050, text=» BNOK CRF750«, t00=0x0017, t01=0x00ec}
0x24e6…2512 Head {h00=0x0028, h01=0x0050, text=» PERF CHVNAM,VOLNAM,FCOD CHANGE NAME«, t00=0x0017, t01=0x0100}
0x2512…2526 Head {h00=0x0010, h01=0x0050, text=» BNOK CRF795«, t00=0x0017, t01=0x012c}
0x2526…2538 Head {h00=0x000e, h01=0x0050, text=» PERF HALT«, t00=0x0017, t01=0x0140}
0x2538…2548 Head {h00=0x000c, h01=0x0050, text=» B RETUR«, t00=0x0017, t01=0x0152}
0x2548…2556 Head {h00=0x000a, h01=0x0050, text=»CRF990«, t00=0x0017, t01=0x0162}
0x2556…256e Head {h00=0x0014, h01=0x0050, text=» PERF CLOFIL,W1 «, t00=0x0017, t01=0x0170}
0x256e…2582 Head {h00=0x0010, h01=0x0050, text=» PERF DISERR«, t00=0x0017, t01=0x0188}
0x2582…2594 Head {h00=0x000e, h01=0x0050, text=» B CRF680 «, t00=0x0018, t01=0x000c}
0x2594…25a2 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0018, t01=0x001e}
0x25a2…25ae Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x002c}
0x25ae…25bc Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0038}
0x25bc…25c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0046}
0x25c6…25d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0050}
0x25d0…25e8 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0018, t01=0x005a}
0x25e8…2600 Head {h00=0x0014, h01=0x0050, text=»* CLOSE FILE *«, t00=0x0018, t01=0x0072}
0x2600…2618 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0018, t01=0x008a}
0x2618…262e Head {h00=0x0012, h01=0x0050, text=»CLOFIL PROC FC«, t00=0x0018, t01=0x00a2}
0x262e…263e Head {h00=0x000c, h01=0x0050, text=» PBIN FC«, t00=0x0018, t01=0x00b8}
0x263e…2676 Head {h00=0x0034, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(FC),SYSBUF,W0,DEBINW4«, t00=0x0018, t01=0x00c8}
0x2676…268e Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW4,W0 «, t00=0x0018, t01=0x0100}
0x268e…269a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0118}
0x269a…26a8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x0124}
0x26a8…26ba Head {h00=0x000e, h01=0x0050, text=»FCRF FRMT «, t00=0x0018, t01=0x0132}
0x26ba…26c6 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0018, t01=0x0144}
0x26c6…26e8 Head {h00=0x001e, h01=0x0050, text=» FATTR .INV INVERSE VIDEO «, t00=0x0018, t01=0x0150}
0x26e8…270c Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0018, t01=0x0172}
0x270c…2736 Head {h00=0x0026, h01=0x0050, text=» FCOPY =C'CREATE WSM SYSTEM FILE' «, t00=0x0019, t01=0x0008}
0x2736…274a Head {h00=0x0010, h01=0x0050, text=» FLINK FFILE«, t00=0x0019, t01=0x0032}
0x274a…2758 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0019, t01=0x0046}
0x2758…2762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0054}
0x2762…2774 Head {h00=0x000e, h01=0x0050, text=»FFILE FRMT«, t00=0x0019, t01=0x005e}
0x2774…2780 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0019, t01=0x0070}
0x2780…27a4 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0019, t01=0x007c}
0x27a4…27bc Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT:'«, t00=0x0019, t01=0x00a0}
0x27bc…27ee Head {h00=0x002e, h01=0x0050, text=» FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 «, t00=0x0019, t01=0x00b8}
0x27ee…2804 Head {h00=0x0012, h01=0x0050, text=» FCOPY INUNIT «, t00=0x0019, t01=0x00ea}
0x2804…2828 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0019, t01=0x0100}
0x2828…2838 Head {h00=0x000c, h01=0x0050, text=» FTAB 12«, t00=0x0019, t01=0x0124}
0x2838…2858 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'VOLUME-NAME:' «, t00=0x0019, t01=0x0134}
0x2858…2868 Head {h00=0x000c, h01=0x0050, text=» FINP 25«, t00=0x0019, t01=0x0154}
0x2868…287e Head {h00=0x0012, h01=0x0050, text=» FCOPY VOLNAM «, t00=0x0019, t01=0x0164}
0x287e…288a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0019, t01=0x017a}
0x288a…28ae Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0019, t01=0x0186}
0x28ae…28ca Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'FILENAME:'«, t00=0x001a, t01=0x001a}
0x28ca…2902 Head {h00=0x0034, h01=0x0050, text=» FKI 10,MINL=1,MAXL=8,ME,REWRT,APPL=6,ALPHA,NEOI«, t00=0x001a, t01=0x0036}
0x2902…2918 Head {h00=0x0012, h01=0x0050, text=» FCOPY FILNAM «, t00=0x001a, t01=0x006e}
0x2918…292c Head {h00=0x0010, h01=0x0050, text=» FLINK FHEX «, t00=0x001a, t01=0x0084}
0x292c…293a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001a, t01=0x0098}
0x293a…2958 Head {h00=0x001a, h01=0x0050, text=»FSYS FRMT SYSTEM-FILE«, t00=0x001a, t01=0x00a6}
0x2958…2964 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x001a, t01=0x00c4}
0x2964…2988 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x001a, t01=0x00d0}
0x2988…29aa Head {h00=0x001e, h01=0x0050, text=» FATTR .INV INVERSE VIDEO «, t00=0x001a, t01=0x00f4}
0x29aa…29c4 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'SYSTEM' «, t00=0x001a, t01=0x0116}
0x29c4…29d4 Head {h00=0x000c, h01=0x0050, text=» FTAB 7 «, t00=0x001a, t01=0x0130}
0x29d4…29ec Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'FILE' «, t00=0x001a, t01=0x0140}
0x29ec…29f8 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001a, t01=0x0158}
0x29f8…2a1c Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x001a, t01=0x0164}
0x2a1c…2a32 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'NO.'«, t00=0x001a, t01=0x0188}
0x2a32…2a42 Head {h00=0x000c, h01=0x0050, text=» FTAB 5 «, t00=0x001b, t01=0x000e}
0x2a42…2a60 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'OF RECORDS:'«, t00=0x001b, t01=0x001e}
0x2a60…2aa2 Head {h00=0x003e, h01=0x0050, text=» FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=3 NO. OF RECORDS «, t00=0x001b, t01=0x003c}
0x2aa2…2ac0 Head {h00=0x001a, h01=0x0050, text=» FMEL 'TTTTTTX',NOREC «, t00=0x001b, t01=0x007e}
0x2ac0…2ad4 Head {h00=0x0010, h01=0x0050, text=» FLINK FHEX «, t00=0x001b, t01=0x009c}
0x2ad4…2ae2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001b, t01=0x00b0}
0x2ae2…2aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00be}
0x2aec…2afe Head {h00=0x000e, h01=0x0050, text=»FHEX FRMT «, t00=0x001b, t01=0x00c8}
0x2afe…2b0a Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x001b, t01=0x00da}
0x2b0a…2b26 Head {h00=0x0018, h01=0x0050, text=» FKI 1,MINL=0,MAXL=0«, t00=0x001b, t01=0x00e6}
0x2b26…2b3a Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x001b, t01=0x0102}
0x2b3a…2b48 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x001b, t01=0x0116}
0x2b48…2b52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0124}
0x2b52…2b5e Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001b, t01=0x012e}
0x2b5e…2b62 Head {h00=0x4004, h01=0x0000}
0x2b62…2b66 00 1b 01 3a ┆ :┆
0x2b66…2b6e (28, 1, 8) 20 04 00 00 00 1c 00 04 ┆ ┆