|
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: 10918 (0x2aa6)
Notes: pts_type(SC)
Names: »WRIT12.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/WRIT12.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/WRIT12.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/WRIT12.SC«
IDENT WRIT12 UPD 80-03-10/CHST *************************************** * * * WRITES RECORD 1 AND * * FREE-SPACE RECORDS * * ON SYSTEM- AND USER-FILES * * * * BIN1 = WORKITEM * * BIN2 = NO.OF RECORDS * * BIN3 = NO.OF FREE RECORDS * * BIN4 = NO.OF FREE-SPACE REC. * * BIN5 = NO.OF FS.IN LAST REC. * * BIN6 = INDEX * * BIN7 = NO.OF USED RECORDS * * BIN8 = CONTER TO MATCH - FS-IND * * BIN9 = WORKITEM - FREE-SPACE IND. * * BIN10 = COUNTER IN BIN9 * * BIN11 = NO.OF SECTORS/RECORD * * BIN12 = SIZE OF SECTORS * * * *************************************** * * IF THE CREATED FILE IS A SYSTEM FILE THEN * THERE ARE WRITTEN 4 INITIAL RECORD MORE *RECORD 3 CALLED JD, JOB DEF * 4 FC, FORMAT CHAIN * 5 SV, SYSTEM VARIABLES * 7 TC, VALUE SETS * * IF THE CREATED FILE IS A USERFILE * THEN IT IS NESESARY TO INITIATE * RECORD 3,THE BEGINNING OF THE JOB CHAIN *RECORD 3 CALLED JC, JOB CHAIN * DDUM DDINIT PDIV ENTRY REC1 ENTRY REC2 ENTRY RECSYS * EXT DSKERR EXT SETB EXT WRITDK EJECT REC1 PROC ********************** * WRITE 1:ST RECORD * ********************** MOVE RBUF,=X'00' MOVE RECNUM,W1 RECORD NO MOVE BIN1,W0 MOVE BIN2,NOREC XCOPY RBUF,W0,W1,BIN1,W0 FILE OPEN/CLOSED XCOPY RBUF,W1,W2,BIN2,W0 NO.OF RECORDS IN FILE MOVE BIN3,NOREC MUL BIN3,BIN11 ADD BIN7,W1 ADD BIN7,BIN11 CBNE FTYPE,=D'1',RE10 IF NOT SYSTEMFILE ADD BIN7,W5 RE10 SUB BIN3,BIN7 - NO. OF USED RECORDS DIV BIN3,BIN11 XCOPY RBUF,W3,W2,BIN3,W0 NO. OF FREE RECORDS MOVE ACK(W1),NOREC CALC 5% OF MUL ACK(W1),=D'5' NO. OF RECORDS DIV ACK(W1),=D'100' MOVE BIN4,ACK(W1) XCOPY RBUF,W5,W2,BIN4,W0 * XCOPY RBUF,W7,W2,BIN11,W0 NO.OF SECTORS/RECORD XCOPY RBUF,W9,W2,SECLEN,W0 SECTOR LENGTH * CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM BERR ERROR RET PEND EJECT REC2 PROC ************************ * FREE-SPACE RECORDS * ************************ MOVE BIN7,W0 NO. OF USED RECORDS MOVE FS,=C'FS' MOVE LPREV,W0 LINK PREV. MOVE LNEXT,W0 LINK NEXT MOVE BIN2,NOREC MOVE BIN3,=W'1496' CBE FTYPE,=D'2',F10 IF USERFILE SUB BIN2,W8 SYSTEMFILE MOVE BIN11,W1 NO.OF SECTORS/RECORD B F20 F10 * *** USERFILE *** MOVE BIN11,BLFACT NO.OF SECTORS/RECORD MUL BIN2,BIN11 NO.OF SECTORS IN FILE SUB BIN2,W2 SUB BIN2,BIN11 DIV BIN3,BIN11 CALC.NO.OF FREE SPACE MUL BIN3,BIN11 INDICATIONS IN EACH FREE SPACR REC *********************************** * FREE RECORD INDICATION * * MAX. 187 X 8 = 1496 PER RECORD * CALCULATE NO. OF RECORDS (BIN4) * FOR FREE-RECORD INDICATION *********************************** F20 MOVE BIN4,W0 MOVE BIN5,W0 F25 ADD BIN4,W1 NO.OF FREE-SPACE RECORDS SUB BIN2,W1 SUB BIN2,BIN3 CBG BIN2,BIN11,F25 CHECK IF SPACE FOR 1 FS-REC * AND RECORDS CBNL BIN2,W0,F32 BZ F32 ADD BIN2,BIN3 ADD BIN2,W1 MOVE BIN5,BIN2 DIV BIN5,BIN11 * ********************************************* * BIN5 = NO. OF FREE-RECORD-IND. * IN LAST FREE-SPACE RECORD * * PREPARE RECORD 2 (1:ST FREE-SPACE REC) ********************************************* F32 MOVE FRSTNO,BIN4 1:ST RECORD NO. CBE FTYPE,=D'2',F34 IF USERFILE ADD FRSTNO,W8 B F35 F34 ADD FRSTNO,W2 RECORD 1+2 ADD FRSTNO,BIN11 F35 CBE BIN4,W1,F37 ONLY 1 RECORD MOVE LNEXT,W4 LINK NEXT CBE FTYPE,=D'2',F36 IF USERFILE MOVE LNEXT,W9 B F37 F36 * *** USERFILE *** ADD LNEXT,BIN11 SUB LNEXT,W1 F37 MOVE NOFREE,BIN3 NO. OF FREE = 1496 DIV NOFREE,BIN11 CBNE BIN4,W1,F40 MOVE NOFREE,BIN5 IF LAST RECORD F40 MOVE RECNUM,W2 EJECT F50 ***************************************************** * FILL RECORD WITH FREE-SPACE-INDICATIONS : 1=FREE * ***************************************************** MOVE BIN1,NOFREE MOVE BIN6,W0 INDEX MOVE BIN8,W0 COUNTER TO MATCH - FS-IND. MOVE NOOCCB,W12 NO. OF OCCUPIED BYTES * F55 ADD NOOCCB,W1 1 BYTE / 8 RECORDS ADD BIN6,W1 CBE FTYPE,=D'2',F60 **************** * SYSTEMFILE * **************** SUB BIN1,W8 8 RECORDS BN F57 MOVE FF(BIN6),=X'FF' CBE BIN1,W0,F70 B F55 F57 ADD BIN1,W8 MOVE FF(BIN6),HEXTAB(BIN1) B F70 ************** * USERFILE * ************** F60 MOVE BIN9,W0 WORKITEM - FREE-SPACE MOVE BIN10,W0 COUNTER IN BIN9 F62 ADD BIN8,W1 CBNE BIN8,W1,F63 CBE BIN1,W0,F63 CALL SETB,BIN9,BIN10 BIN10:POS.0-7 SUB BIN1,W1 F63 ADD BIN10,W1 CBNE BIN8,BIN11,F64 MOVE BIN8,W0 F64 CBNE BIN10,W8,F62 XCOPY FF(BIN6),W0,W1,BIN9,W0 CBE BIN1,W0,F70 B F55 * F70 ADD BIN6,W1 CBG BIN6,=W'187',F80 MOVE FF(BIN6),=X'00' B F70 ****************************** * WRITE FREE-SPACE RECORDS * ****************************** F80 CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM BERR ERROR ADD BIN7,W1 NO. OF USED RECORDS SUB BIN4,W1 BZ F99 IF LAST RECORD * ADD FRSTNO,BIN3 MOVE LPREV,RECNUM MOVE RECNUM,LNEXT ADD LNEXT,W1 CBNE BIN4,W1,F90 MOVE LNEXT,W0 LAST RECORD CBE BIN5,W0,F90 MOVE NOFREE,BIN5 F90 B F50 F99 RET PEND * * ERROR PERF DSKERR,W3 'I/O-ERROR' B F99 *********************************************** * * WRITE RECORDS NEADED IF THE CREATED FILE * IS A SYSTEM FILE * OR A USERFILE RECSYS MOVE RBUF,=X'00' XCOPY RBUF,W6,W2,W10,W0 MOVE BIN1,W1 CBNE FTYPE,=D'2',RECJD BRANCH IF SYSFIL * * USERFILE * JOB CHAIN * REC 3 * WORD 1 'JC' * 4 10 NO OF USED BYTES IN THIS FILE * MOVE RECNUM,W3 MOVE BIN6,=X'4A43' 'JC' MOVE BIN1,W10 WRITE ONLY THIS REC B RECWR * * JOB DEF * REC 3 * WORD 1 'JD' * 4 10 NO OF USED BYTES IN THIS RECORD * RECJD MOVE RECNUM,W3 MOVE BIN6,=X'4A44' ADD BIN1,W1 B RECWR * * FORMAT CHAIN * REC 4 * WORD 1 'FC' * 4 10 NO OF USED BYTES IN THIS RECORD RECFC MOVE RECNUM,W4 MOVE BIN6,=X'4643' ADD BIN1,W1 B RECWR * * SYSTEM VARIABLES * REC 5 * WORD 1 'SV' * 4 10 NO OF USED BYTES IN THIS RECORD RECSV MOVE RECNUM,W5 MOVE BIN6,=X'5356' ADD BIN1,W1 B RECWR * * VALUE SETS * REC 7 * WORD 1 'SV' * 4 10 NO OF USED BYTES IN THIS RECORD RECTC MOVE RECNUM,W7 MOVE BIN6,=X'5443' ADD BIN1,W1 * WRITE THE CREATED RECORD TO DISC RECWR XCOPY RBUF,W0,W2,BIN6,W0 CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM BERR ERROR IB BIN1,RECJD,RECFC,RECSV,RECTC B F99 * * END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT WRIT12 UPD 80-03-10/CHST «, t00=0x0000, t01=0x0004}
0x0028…0058 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0000, t01=0x002c}
0x0058…0088 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x005c}
0x0088…00b8 Head {h00=0x002c, h01=0x0050, text=»* WRITES RECORD 1 AND * «, t00=0x0000, t01=0x008c}
0x00b8…00e8 Head {h00=0x002c, h01=0x0050, text=»* FREE-SPACE RECORDS * «, t00=0x0000, t01=0x00bc}
0x00e8…0118 Head {h00=0x002c, h01=0x0050, text=»* ON SYSTEM- AND USER-FILES * «, t00=0x0000, t01=0x00ec}
0x0118…0148 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0000, t01=0x011c}
0x0148…0178 Head {h00=0x002c, h01=0x0050, text=»* BIN1 = WORKITEM * «, t00=0x0000, t01=0x014c}
0x0178…01a8 Head {h00=0x002c, h01=0x0050, text=»* BIN2 = NO.OF RECORDS * «, t00=0x0000, t01=0x017c}
0x01a8…01d8 Head {h00=0x002c, h01=0x0050, text=»* BIN3 = NO.OF FREE RECORDS * «, t00=0x0001, t01=0x001c}
0x01d8…0208 Head {h00=0x002c, h01=0x0050, text=»* BIN4 = NO.OF FREE-SPACE REC. * «, t00=0x0001, t01=0x004c}
0x0208…0238 Head {h00=0x002c, h01=0x0050, text=»* BIN5 = NO.OF FS.IN LAST REC. * «, t00=0x0001, t01=0x007c}
0x0238…0268 Head {h00=0x002c, h01=0x0050, text=»* BIN6 = INDEX * «, t00=0x0001, t01=0x00ac}
0x0268…0298 Head {h00=0x002c, h01=0x0050, text=»* BIN7 = NO.OF USED RECORDS * «, t00=0x0001, t01=0x00dc}
0x0298…02c8 Head {h00=0x002c, h01=0x0050, text=»* BIN8 = CONTER TO MATCH - FS-IND * «, t00=0x0001, t01=0x010c}
0x02c8…02f8 Head {h00=0x002c, h01=0x0050, text=»* BIN9 = WORKITEM - FREE-SPACE IND. * «, t00=0x0001, t01=0x013c}
0x02f8…0328 Head {h00=0x002c, h01=0x0050, text=»* BIN10 = COUNTER IN BIN9 * «, t00=0x0001, t01=0x016c}
0x0328…0358 Head {h00=0x002c, h01=0x0050, text=»* BIN11 = NO.OF SECTORS/RECORD * «, t00=0x0002, t01=0x000c}
0x0358…0388 Head {h00=0x002c, h01=0x0050, text=»* BIN12 = SIZE OF SECTORS * «, t00=0x0002, t01=0x003c}
0x0388…03b8 Head {h00=0x002c, h01=0x0050, text=»* * «, t00=0x0002, t01=0x006c}
0x03b8…03e8 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0002, t01=0x009c}
0x03e8…03f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00cc}
0x03f2…042c Head {h00=0x0036, h01=0x0050, text=»* IF THE CREATED FILE IS A SYSTEM FILE THEN «, t00=0x0002, t01=0x00d6}
0x042c…0464 Head {h00=0x0034, h01=0x0050, text=»* THERE ARE WRITTEN 4 INITIAL RECORD MORE «, t00=0x0002, t01=0x0110}
0x0464…048c Head {h00=0x0024, h01=0x0050, text=»*RECORD 3 CALLED JD, JOB DEF«, t00=0x0002, t01=0x0148}
0x048c…04ba Head {h00=0x002a, h01=0x0050, text=»* 4 FC, FORMAT CHAIN «, t00=0x0002, t01=0x0170}
0x04ba…04ec Head {h00=0x002e, h01=0x0050, text=»* 5 SV, SYSTEM VARIABLES «, t00=0x0003, t01=0x000e}
0x04ec…0518 Head {h00=0x0028, h01=0x0050, text=»* 7 TC, VALUE SETS «, t00=0x0003, t01=0x0040}
0x0518…0522 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x006c}
0x0522…0554 Head {h00=0x002e, h01=0x0050, text=»* IF THE CREATED FILE IS A USERFILE«, t00=0x0003, t01=0x0076}
0x0554…0584 Head {h00=0x002c, h01=0x0050, text=»* THEN IT IS NESESARY TO INITIATE«, t00=0x0003, t01=0x00a8}
0x0584…05bc Head {h00=0x0034, h01=0x0050, text=»* RECORD 3,THE BEGINNING OF THE JOB CHAIN«, t00=0x0003, t01=0x00d8}
0x05bc…05e6 Head {h00=0x0026, h01=0x0050, text=»*RECORD 3 CALLED JC, JOB CHAIN «, t00=0x0003, t01=0x0110}
0x05e6…05f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013a}
0x05f0…0604 Head {h00=0x0010, h01=0x000c, text=» DDUM DDINIT«, t00=0x0003, t01=0x0144}
0x0604…0612 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0003, t01=0x0158}
0x0612…0626 Head {h00=0x0010, h01=0x0050, text=» ENTRY REC1 «, t00=0x0003, t01=0x0166}
0x0626…063a Head {h00=0x0010, h01=0x0050, text=» ENTRY REC2 «, t00=0x0003, t01=0x017a}
0x063a…0650 Head {h00=0x0012, h01=0x0050, text=» ENTRY RECSYS «, t00=0x0003, t01=0x018e}
0x0650…065a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x065a…066e Head {h00=0x0010, h01=0x0050, text=» EXT DSKERR «, t00=0x0004, t01=0x001e}
0x066e…0680 Head {h00=0x000e, h01=0x0050, text=» EXT SETB «, t00=0x0004, t01=0x0032}
0x0680…0694 Head {h00=0x0010, h01=0x0050, text=» EXT WRITDK «, t00=0x0004, t01=0x0044}
0x0694…06a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0058}
0x06a2…06b4 Head {h00=0x000e, h01=0x0050, text=»REC1 PROC «, t00=0x0004, t01=0x0066}
0x06b4…06d2 Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0004, t01=0x0078}
0x06d2…06f0 Head {h00=0x001a, h01=0x0050, text=»* WRITE 1:ST RECORD *«, t00=0x0004, t01=0x0096}
0x06f0…070e Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0004, t01=0x00b4}
0x070e…0728 Head {h00=0x0016, h01=0x0050, text=» MOVE RBUF,=X'00' «, t00=0x0004, t01=0x00d2}
0x0728…074a Head {h00=0x001e, h01=0x0050, text=» MOVE RECNUM,W1 RECORD NO «, t00=0x0004, t01=0x00ec}
0x074a…0760 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x0004, t01=0x010e}
0x0760…0778 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN2,NOREC«, t00=0x0004, t01=0x0124}
0x0778…07aa Head {h00=0x002e, h01=0x0050, text=» XCOPY RBUF,W0,W1,BIN1,W0 FILE OPEN/CLOSED«, t00=0x0004, t01=0x013c}
0x07aa…07e2 Head {h00=0x0034, h01=0x0050, text=» XCOPY RBUF,W1,W2,BIN2,W0 NO.OF RECORDS IN FILE «, t00=0x0004, t01=0x016e}
0x07e2…07fa Head {h00=0x0014, h01=0x0050, text=» MOVE BIN3,NOREC«, t00=0x0005, t01=0x0016}
0x07fa…0812 Head {h00=0x0014, h01=0x0050, text=» MUL BIN3,BIN11 «, t00=0x0005, t01=0x002e}
0x0812…0826 Head {h00=0x0010, h01=0x0050, text=» ADD BIN7,W1«, t00=0x0005, t01=0x0046}
0x0826…083e Head {h00=0x0014, h01=0x0050, text=» ADD BIN7,BIN11 «, t00=0x0005, t01=0x005a}
0x083e…086e Head {h00=0x002c, h01=0x0050, text=» CBNE FTYPE,=D'1',RE10 IF NOT SYSTEMFILE«, t00=0x0005, t01=0x0072}
0x086e…0882 Head {h00=0x0010, h01=0x0050, text=» ADD BIN7,W5«, t00=0x0005, t01=0x00a2}
0x0882…088e Head {h00=0x0008, h01=0x0050, text=»RE10«, t00=0x0005, t01=0x00b6}
0x088e…08ba Head {h00=0x0028, h01=0x0050, text=» SUB BIN3,BIN7 - NO. OF USED RECORDS«, t00=0x0005, t01=0x00c2}
0x08ba…08d2 Head {h00=0x0014, h01=0x0050, text=» DIV BIN3,BIN11 «, t00=0x0005, t01=0x00ee}
0x08d2…0908 Head {h00=0x0032, h01=0x0050, text=» XCOPY RBUF,W3,W2,BIN3,W0 NO. OF FREE RECORDS «, t00=0x0005, t01=0x0106}
0x0908…092e Head {h00=0x0022, h01=0x0050, text=» MOVE ACK(W1),NOREC CALC 5% OF«, t00=0x0005, t01=0x013c}
0x092e…0958 Head {h00=0x0026, h01=0x0050, text=» MUL ACK(W1),=D'5' NO. OF RECORDS «, t00=0x0005, t01=0x0162}
0x0958…0974 Head {h00=0x0018, h01=0x0050, text=» DIV ACK(W1),=D'100'«, t00=0x0005, t01=0x018c}
0x0974…098e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN4,ACK(W1)«, t00=0x0006, t01=0x0018}
0x098e…09b0 Head {h00=0x001e, h01=0x0050, text=» XCOPY RBUF,W5,W2,BIN4,W0 «, t00=0x0006, t01=0x0032}
0x09b0…09ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0054}
0x09ba…09f2 Head {h00=0x0034, h01=0x0050, text=» XCOPY RBUF,W7,W2,BIN11,W0 NO.OF SECTORS/RECORD «, t00=0x0006, t01=0x005e}
0x09f2…0a24 Head {h00=0x002e, h01=0x0050, text=» XCOPY RBUF,W9,W2,SECLEN,W0 SECTOR LENGTH «, t00=0x0006, t01=0x0096}
0x0a24…0a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c8}
0x0a2e…0a68 Head {h00=0x0036, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM «, t00=0x0006, t01=0x00d2}
0x0a68…0a7c Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x0006, t01=0x010c}
0x0a7c…0a88 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0006, t01=0x0120}
0x0a88…0a96 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0006, t01=0x012c}
0x0a96…0aa4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x013a}
0x0aa4…0ab6 Head {h00=0x000e, h01=0x0050, text=»REC2 PROC «, t00=0x0006, t01=0x0148}
0x0ab6…0ad6 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0006, t01=0x015a}
0x0ad6…0af6 Head {h00=0x001c, h01=0x0050, text=»* FREE-SPACE RECORDS *«, t00=0x0006, t01=0x017a}
0x0af6…0b16 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0007, t01=0x000a}
0x0b16…0b40 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN7,W0 NO. OF USED RECORDS «, t00=0x0007, t01=0x002a}
0x0b40…0b58 Head {h00=0x0014, h01=0x0050, text=» MOVE FS,=C'FS' «, t00=0x0007, t01=0x0054}
0x0b58…0b7a Head {h00=0x001e, h01=0x0050, text=» MOVE LPREV,W0 LINK PREV. «, t00=0x0007, t01=0x006c}
0x0b7a…0b9a Head {h00=0x001c, h01=0x0050, text=» MOVE LNEXT,W0 LINK NEXT«, t00=0x0007, t01=0x008e}
0x0b9a…0bb2 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN2,NOREC«, t00=0x0007, t01=0x00ae}
0x0bb2…0bce Head {h00=0x0018, h01=0x0050, text=» MOVE BIN3,=W'1496' «, t00=0x0007, t01=0x00c6}
0x0bce…0bf6 Head {h00=0x0024, h01=0x0050, text=» CBE FTYPE,=D'2',F10 IF USERFILE«, t00=0x0007, t01=0x00e2}
0x0bf6…0c16 Head {h00=0x001c, h01=0x0050, text=» SUB BIN2,W8 SYSTEMFILE «, t00=0x0007, t01=0x010a}
0x0c16…0c42 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN11,W1 NO.OF SECTORS/RECORD «, t00=0x0007, t01=0x012a}
0x0c42…0c50 Head {h00=0x000a, h01=0x0050, text=» B F20«, t00=0x0007, t01=0x0156}
0x0c50…0c5c Head {h00=0x0008, h01=0x0050, text=»F10 «, t00=0x0007, t01=0x0164}
0x0c5c…0c78 Head {h00=0x0018, h01=0x0050, text=»* *** USERFILE *** «, t00=0x0007, t01=0x0170}
0x0c78…0ca8 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN11,BLFACT NO.OF SECTORS/RECORD «, t00=0x0007, t01=0x018c}
0x0ca8…0cd6 Head {h00=0x002a, h01=0x0050, text=» MUL BIN2,BIN11 NO.OF SECTORS IN FILE «, t00=0x0008, t01=0x002c}
0x0cd6…0cea Head {h00=0x0010, h01=0x0050, text=» SUB BIN2,W2«, t00=0x0008, t01=0x005a}
0x0cea…0d02 Head {h00=0x0014, h01=0x0050, text=» SUB BIN2,BIN11 «, t00=0x0008, t01=0x006e}
0x0d02…0d30 Head {h00=0x002a, h01=0x0050, text=» DIV BIN3,BIN11 CALC.NO.OF FREE SPACE «, t00=0x0008, t01=0x0086}
0x0d30…0d6a Head {h00=0x0036, h01=0x0050, text=» MUL BIN3,BIN11 INDICATIONS IN EACH FREE SPACR REC«, t00=0x0008, t01=0x00b4}
0x0d6a…0d96 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0008, t01=0x00ee}
0x0d96…0db8 Head {h00=0x001e, h01=0x0050, text=»* FREE RECORD INDICATION «, t00=0x0008, t01=0x011a}
0x0db8…0dc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013c}
0x0dc2…0dec Head {h00=0x0026, h01=0x0050, text=»* MAX. 187 X 8 = 1496 PER RECORD «, t00=0x0008, t01=0x0146}
0x0dec…0e16 Head {h00=0x0026, h01=0x0050, text=»* CALCULATE NO. OF RECORDS (BIN4)«, t00=0x0008, t01=0x0170}
0x0e16…0e3c Head {h00=0x0022, h01=0x0050, text=»* FOR FREE-RECORD INDICATION «, t00=0x0009, t01=0x000a}
0x0e3c…0e68 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x0009, t01=0x0030}
0x0e68…0e74 Head {h00=0x0008, h01=0x0050, text=»F20 «, t00=0x0009, t01=0x005c}
0x0e74…0e8a Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0009, t01=0x0068}
0x0e8a…0ea0 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN5,W0 «, t00=0x0009, t01=0x007e}
0x0ea0…0eac Head {h00=0x0008, h01=0x0050, text=»F25 «, t00=0x0009, t01=0x0094}
0x0eac…0eda Head {h00=0x002a, h01=0x0050, text=» ADD BIN4,W1 NO.OF FREE-SPACE RECORDS «, t00=0x0009, t01=0x00a0}
0x0eda…0eee Head {h00=0x0010, h01=0x0050, text=» SUB BIN2,W1«, t00=0x0009, t01=0x00ce}
0x0eee…0f04 Head {h00=0x0012, h01=0x0050, text=» SUB BIN2,BIN3«, t00=0x0009, t01=0x00e2}
0x0f04…0f3c Head {h00=0x0034, h01=0x0050, text=» CBG BIN2,BIN11,F25 CHECK IF SPACE FOR 1 FS-REC «, t00=0x0009, t01=0x00f8}
0x0f3c…0f7a Head {h00=0x003a, h01=0x0050, text=»* AND RECORDS «, t00=0x0009, t01=0x0130}
0x0f7a…0f94 Head {h00=0x0016, h01=0x0050, text=» CBNL BIN2,W0,F32 «, t00=0x0009, t01=0x016e}
0x0f94…0fa4 Head {h00=0x000c, h01=0x0050, text=» BZ F32 «, t00=0x0009, t01=0x0188}
0x0fa4…0fba Head {h00=0x0012, h01=0x0050, text=» ADD BIN2,BIN3«, t00=0x000a, t01=0x0008}
0x0fba…0fce Head {h00=0x0010, h01=0x0050, text=» ADD BIN2,W1«, t00=0x000a, t01=0x001e}
0x0fce…0fe6 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN5,BIN2 «, t00=0x000a, t01=0x0032}
0x0fe6…0ffe Head {h00=0x0014, h01=0x0050, text=» DIV BIN5,BIN11 «, t00=0x000a, t01=0x004a}
0x0ffe…1008 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0062}
0x1008…103e Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000a, t01=0x006c}
0x103e…1068 Head {h00=0x0026, h01=0x0050, text=»* BIN5 = NO. OF FREE-RECORD-IND. «, t00=0x000a, t01=0x00a2}
0x1068…1094 Head {h00=0x0028, h01=0x0050, text=»* IN LAST FREE-SPACE RECORD«, t00=0x000a, t01=0x00cc}
0x1094…109e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f8}
0x109e…10d0 Head {h00=0x002e, h01=0x0050, text=»* PREPARE RECORD 2 (1:ST FREE-SPACE REC) «, t00=0x000a, t01=0x0102}
0x10d0…1106 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x000a, t01=0x0134}
0x1106…1112 Head {h00=0x0008, h01=0x0050, text=»F32 «, t00=0x000a, t01=0x016a}
0x1112…113c Head {h00=0x0026, h01=0x0050, text=» MOVE FRSTNO,BIN4 1:ST RECORD NO. «, t00=0x000a, t01=0x0176}
0x113c…1164 Head {h00=0x0024, h01=0x0050, text=» CBE FTYPE,=D'2',F34 IF USERFILE«, t00=0x000b, t01=0x0010}
0x1164…117a Head {h00=0x0012, h01=0x0050, text=» ADD FRSTNO,W8«, t00=0x000b, t01=0x0038}
0x117a…1188 Head {h00=0x000a, h01=0x0050, text=» B F35«, t00=0x000b, t01=0x004e}
0x1188…1194 Head {h00=0x0008, h01=0x0050, text=»F34 «, t00=0x000b, t01=0x005c}
0x1194…11b6 Head {h00=0x001e, h01=0x0050, text=» ADD FRSTNO,W2 RECORD 1+2 «, t00=0x000b, t01=0x0068}
0x11b6…11d0 Head {h00=0x0016, h01=0x0050, text=» ADD FRSTNO,BIN11 «, t00=0x000b, t01=0x008a}
0x11d0…11dc Head {h00=0x0008, h01=0x0050, text=»F35 «, t00=0x000b, t01=0x00a4}
0x11dc…1202 Head {h00=0x0022, h01=0x0050, text=» CBE BIN4,W1,F37 ONLY 1 RECORD«, t00=0x000b, t01=0x00b0}
0x1202…1222 Head {h00=0x001c, h01=0x0050, text=» MOVE LNEXT,W4 LINK NEXT«, t00=0x000b, t01=0x00d6}
0x1222…124a Head {h00=0x0024, h01=0x0050, text=» CBE FTYPE,=D'2',F36 IF USERFILE«, t00=0x000b, t01=0x00f6}
0x124a…1260 Head {h00=0x0012, h01=0x0050, text=» MOVE LNEXT,W9«, t00=0x000b, t01=0x011e}
0x1260…126e Head {h00=0x000a, h01=0x0050, text=» B F37«, t00=0x000b, t01=0x0134}
0x126e…127a Head {h00=0x0008, h01=0x0050, text=»F36 «, t00=0x000b, t01=0x0142}
0x127a…1296 Head {h00=0x0018, h01=0x0050, text=»* *** USERFILE *** «, t00=0x000b, t01=0x014e}
0x1296…12ae Head {h00=0x0014, h01=0x0050, text=» ADD LNEXT,BIN11«, t00=0x000b, t01=0x016a}
0x12ae…12c4 Head {h00=0x0012, h01=0x0050, text=» SUB LNEXT,W1 «, t00=0x000b, t01=0x0182}
0x12c4…12d0 Head {h00=0x0008, h01=0x0050, text=»F37 «, t00=0x000c, t01=0x0008}
0x12d0…12fc Head {h00=0x0028, h01=0x0050, text=» MOVE NOFREE,BIN3 NO. OF FREE = 1496«, t00=0x000c, t01=0x0014}
0x12fc…1316 Head {h00=0x0016, h01=0x0050, text=» DIV NOFREE,BIN11 «, t00=0x000c, t01=0x0040}
0x1316…1330 Head {h00=0x0016, h01=0x0050, text=» CBNE BIN4,W1,F40 «, t00=0x000c, t01=0x005a}
0x1330…1358 Head {h00=0x0024, h01=0x0050, text=» MOVE NOFREE,BIN5 IF LAST RECORD«, t00=0x000c, t01=0x0074}
0x1358…1364 Head {h00=0x0008, h01=0x0050, text=»F40 «, t00=0x000c, t01=0x009c}
0x1364…137c Head {h00=0x0014, h01=0x0050, text=» MOVE RECNUM,W2 «, t00=0x000c, t01=0x00a8}
0x137c…138a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00c0}
0x138a…1396 Head {h00=0x0008, h01=0x0050, text=»F50 «, t00=0x000c, t01=0x00ce}
0x1396…13d4 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x000c, t01=0x00da}
0x13d4…1412 Head {h00=0x003a, h01=0x0050, text=»* FILL RECORD WITH FREE-SPACE-INDICATIONS : 1=FREE * «, t00=0x000c, t01=0x0118}
0x1412…1450 Head {h00=0x003a, h01=0x0050, text=»***************************************************** «, t00=0x000c, t01=0x0156}
0x1450…146a (13, 0, 400) Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,NOFREE «, t00=0x000d, t01=0x0004}
0x146a…1486 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN6,W0 INDEX «, t00=0x000d, t01=0x001e}
0x1486…14b6 Head {h00=0x002c, h01=0x0050, text=» MOVE BIN8,W0 COUNTER TO MATCH - FS-IND.«, t00=0x000d, t01=0x003a}
0x14b6…14e4 Head {h00=0x002a, h01=0x0050, text=» MOVE NOOCCB,W12 NO. OF OCCUPIED BYTES«, t00=0x000d, t01=0x006a}
0x14e4…14ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0098}
0x14ee…14fa Head {h00=0x0008, h01=0x0050, text=»F55 «, t00=0x000d, t01=0x00a2}
0x14fa…1524 Head {h00=0x0026, h01=0x0050, text=» ADD NOOCCB,W1 1 BYTE / 8 RECORDS «, t00=0x000d, t01=0x00ae}
0x1524…1538 Head {h00=0x0010, h01=0x0050, text=» ADD BIN6,W1«, t00=0x000d, t01=0x00d8}
0x1538…1554 Head {h00=0x0018, h01=0x0050, text=» CBE FTYPE,=D'2',F60«, t00=0x000d, t01=0x00ec}
0x1554…156c Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000d, t01=0x0108}
0x156c…1584 Head {h00=0x0014, h01=0x0050, text=»* SYSTEMFILE *«, t00=0x000d, t01=0x0120}
0x1584…159c Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x000d, t01=0x0138}
0x159c…15ba Head {h00=0x001a, h01=0x0050, text=» SUB BIN1,W8 8 RECORDS«, t00=0x000d, t01=0x0150}
0x15ba…15ca Head {h00=0x000c, h01=0x0050, text=» BN F57 «, t00=0x000d, t01=0x016e}
0x15ca…15e8 Head {h00=0x001a, h01=0x0050, text=» MOVE FF(BIN6),=X'FF' «, t00=0x000d, t01=0x017e}
0x15e8…1600 Head {h00=0x0014, h01=0x0050, text=» CBE BIN1,W0,F70«, t00=0x000e, t01=0x000c}
0x1600…160e Head {h00=0x000a, h01=0x0050, text=» B F55«, t00=0x000e, t01=0x0024}
0x160e…161a Head {h00=0x0008, h01=0x0050, text=»F57 «, t00=0x000e, t01=0x0032}
0x161a…162e Head {h00=0x0010, h01=0x0050, text=» ADD BIN1,W8«, t00=0x000e, t01=0x003e}
0x162e…1652 Head {h00=0x0020, h01=0x0050, text=» MOVE FF(BIN6),HEXTAB(BIN1) «, t00=0x000e, t01=0x0052}
0x1652…1660 Head {h00=0x000a, h01=0x0050, text=» B F70«, t00=0x000e, t01=0x0076}
0x1660…1676 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000e, t01=0x0084}
0x1676…168c Head {h00=0x0012, h01=0x0050, text=»* USERFILE *«, t00=0x000e, t01=0x009a}
0x168c…16a2 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000e, t01=0x00b0}
0x16a2…16ae Head {h00=0x0008, h01=0x0050, text=»F60 «, t00=0x000e, t01=0x00c6}
0x16ae…16da Head {h00=0x0028, h01=0x0050, text=» MOVE BIN9,W0 WORKITEM - FREE-SPACE «, t00=0x000e, t01=0x00d2}
0x16da…1700 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN10,W0 COUNTER IN BIN9«, t00=0x000e, t01=0x00fe}
0x1700…170c Head {h00=0x0008, h01=0x0050, text=»F62 «, t00=0x000e, t01=0x0124}
0x170c…1720 Head {h00=0x0010, h01=0x0050, text=» ADD BIN8,W1«, t00=0x000e, t01=0x0130}
0x1720…173a Head {h00=0x0016, h01=0x0050, text=» CBNE BIN8,W1,F63 «, t00=0x000e, t01=0x0144}
0x173a…1752 Head {h00=0x0014, h01=0x0050, text=» CBE BIN1,W0,F63«, t00=0x000e, t01=0x015e}
0x1752…177e Head {h00=0x0028, h01=0x0050, text=» CALL SETB,BIN9,BIN10 BIN10:POS.0-7 «, t00=0x000e, t01=0x0176}
0x177e…1792 Head {h00=0x0010, h01=0x0050, text=» SUB BIN1,W1«, t00=0x000f, t01=0x0012}
0x1792…179e Head {h00=0x0008, h01=0x0050, text=»F63 «, t00=0x000f, t01=0x0026}
0x179e…17b4 Head {h00=0x0012, h01=0x0050, text=» ADD BIN10,W1 «, t00=0x000f, t01=0x0032}
0x17b4…17d0 Head {h00=0x0018, h01=0x0050, text=» CBNE BIN8,BIN11,F64«, t00=0x000f, t01=0x0048}
0x17d0…17e6 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN8,W0 «, t00=0x000f, t01=0x0064}
0x17e6…17f2 Head {h00=0x0008, h01=0x0050, text=»F64 «, t00=0x000f, t01=0x007a}
0x17f2…180c Head {h00=0x0016, h01=0x0050, text=» CBNE BIN10,W8,F62«, t00=0x000f, t01=0x0086}
0x180c…1832 Head {h00=0x0022, h01=0x0050, text=» XCOPY FF(BIN6),W0,W1,BIN9,W0 «, t00=0x000f, t01=0x00a0}
0x1832…184a Head {h00=0x0014, h01=0x0050, text=» CBE BIN1,W0,F70«, t00=0x000f, t01=0x00c6}
0x184a…1858 Head {h00=0x000a, h01=0x0050, text=» B F55«, t00=0x000f, t01=0x00de}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ec}
0x1862…186e Head {h00=0x0008, h01=0x0050, text=»F70 «, t00=0x000f, t01=0x00f6}
0x186e…1882 Head {h00=0x0010, h01=0x0050, text=» ADD BIN6,W1«, t00=0x000f, t01=0x0102}
0x1882…18a0 Head {h00=0x001a, h01=0x0050, text=» CBG BIN6,=W'187',F80 «, t00=0x000f, t01=0x0116}
0x18a0…18be Head {h00=0x001a, h01=0x0050, text=» MOVE FF(BIN6),=X'00' «, t00=0x000f, t01=0x0134}
0x18be…18cc Head {h00=0x000a, h01=0x0050, text=» B F70«, t00=0x000f, t01=0x0152}
0x18cc…18f2 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x000f, t01=0x0160}
0x18f2…1918 Head {h00=0x0022, h01=0x0050, text=»* WRITE FREE-SPACE RECORDS *«, t00=0x000f, t01=0x0186}
0x1918…193e Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0010, t01=0x001c}
0x193e…194a Head {h00=0x0008, h01=0x0050, text=»F80 «, t00=0x0010, t01=0x0042}
0x194a…1984 Head {h00=0x0036, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM «, t00=0x0010, t01=0x004e}
0x1984…1998 Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x0010, t01=0x0088}
0x1998…19c0 Head {h00=0x0024, h01=0x0050, text=» ADD BIN7,W1 NO. OF USED RECORDS«, t00=0x0010, t01=0x009c}
0x19c0…19d4 Head {h00=0x0010, h01=0x0050, text=» SUB BIN4,W1«, t00=0x0010, t01=0x00c4}
0x19d4…19f2 Head {h00=0x001a, h01=0x0050, text=» BZ F99 IF LAST RECORD«, t00=0x0010, t01=0x00d8}
0x19f2…19fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f6}
0x19fc…1a14 Head {h00=0x0014, h01=0x0050, text=» ADD FRSTNO,BIN3«, t00=0x0010, t01=0x0100}
0x1a14…1a2e Head {h00=0x0016, h01=0x0050, text=» MOVE LPREV,RECNUM«, t00=0x0010, t01=0x0118}
0x1a2e…1a48 Head {h00=0x0016, h01=0x0050, text=» MOVE RECNUM,LNEXT«, t00=0x0010, t01=0x0132}
0x1a48…1a5e Head {h00=0x0012, h01=0x0050, text=» ADD LNEXT,W1 «, t00=0x0010, t01=0x014c}
0x1a5e…1a78 Head {h00=0x0016, h01=0x0050, text=» CBNE BIN4,W1,F90 «, t00=0x0010, t01=0x0162}
0x1a78…1a9a Head {h00=0x001e, h01=0x0050, text=» MOVE LNEXT,W0 LAST RECORD«, t00=0x0010, t01=0x017c}
0x1a9a…1ab2 Head {h00=0x0014, h01=0x0050, text=» CBE BIN5,W0,F90«, t00=0x0011, t01=0x000e}
0x1ab2…1acc Head {h00=0x0016, h01=0x0050, text=» MOVE NOFREE,BIN5 «, t00=0x0011, t01=0x0026}
0x1acc…1ad8 Head {h00=0x0008, h01=0x0050, text=»F90 «, t00=0x0011, t01=0x0040}
0x1ad8…1ae6 Head {h00=0x000a, h01=0x0050, text=» B F50«, t00=0x0011, t01=0x004c}
0x1ae6…1af2 Head {h00=0x0008, h01=0x0050, text=»F99 «, t00=0x0011, t01=0x005a}
0x1af2…1afe Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0011, t01=0x0066}
0x1afe…1b0c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0011, t01=0x0072}
0x1b0c…1b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0080}
0x1b16…1b20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x008a}
0x1b20…1b2e Head {h00=0x000a, h01=0x0050, text=»ERROR «, t00=0x0011, t01=0x0094}
0x1b2e…1b52 Head {h00=0x0020, h01=0x0050, text=» PERF DSKERR,W3 'I/O-ERROR' «, t00=0x0011, t01=0x00a2}
0x1b52…1b60 Head {h00=0x000a, h01=0x0050, text=» B F99«, t00=0x0011, t01=0x00c6}
0x1b60…1b98 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0011, t01=0x00d4}
0x1b98…1ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x1ba2…1bd8 Head {h00=0x0032, h01=0x0050, text=»* WRITE RECORDS NEADED IF THE CREATED FILE «, t00=0x0011, t01=0x0116}
0x1bd8…1bf6 Head {h00=0x001a, h01=0x0050, text=»* IS A SYSTEM FILE«, t00=0x0011, t01=0x014c}
0x1bf6…1c18 Head {h00=0x001e, h01=0x0050, text=»* OR A USERFILE «, t00=0x0011, t01=0x016a}
0x1c18…1c26 Head {h00=0x000a, h01=0x0050, text=»RECSYS«, t00=0x0011, t01=0x018c}
0x1c26…1c40 Head {h00=0x0016, h01=0x0050, text=» MOVE RBUF,=X'00' «, t00=0x0012, t01=0x000a}
0x1c40…1c60 Head {h00=0x001c, h01=0x0050, text=» XCOPY RBUF,W6,W2,W10,W0«, t00=0x0012, t01=0x0024}
0x1c60…1c76 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W1 «, t00=0x0012, t01=0x0044}
0x1c76…1ca6 Head {h00=0x002c, h01=0x0050, text=» CBNE FTYPE,=D'2',RECJD BRANCH IF SYSFIL«, t00=0x0012, t01=0x005a}
0x1ca6…1cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x008a}
0x1cb0…1cc8 Head {h00=0x0014, h01=0x0050, text=»* USERFILE «, t00=0x0012, t01=0x0094}
0x1cc8…1ce0 Head {h00=0x0014, h01=0x0050, text=»* JOB CHAIN«, t00=0x0012, t01=0x00ac}
0x1ce0…1cf4 Head {h00=0x0010, h01=0x0050, text=»* REC 3«, t00=0x0012, t01=0x00c4}
0x1cf4…1d14 Head {h00=0x001c, h01=0x0050, text=»* WORD 1 'JC' «, t00=0x0012, t01=0x00d8}
0x1d14…1d54 Head {h00=0x003c, h01=0x0050, text=»* 4 10 NO OF USED BYTES IN THIS FILE«, t00=0x0012, t01=0x00f8}
0x1d54…1d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0138}
0x1d5e…1d76 Head {h00=0x0014, h01=0x0050, text=» MOVE RECNUM,W3 «, t00=0x0012, t01=0x0142}
0x1d76…1d96 Head {h00=0x001c, h01=0x0050, text=» MOVE BIN6,=X'4A43' 'JC'«, t00=0x0012, t01=0x015a}
0x1d96…1dc0 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,W10 WRITE ONLY THIS REC«, t00=0x0012, t01=0x017a}
0x1dc0…1dd0 Head {h00=0x000c, h01=0x0050, text=» B RECWR«, t00=0x0013, t01=0x0014}
0x1dd0…1dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0024}
0x1dda…1df0 Head {h00=0x0012, h01=0x0050, text=»* JOB DEF «, t00=0x0013, t01=0x002e}
0x1df0…1e04 Head {h00=0x0010, h01=0x0050, text=»* REC 3 «, t00=0x0013, t01=0x0044}
0x1e04…1e22 Head {h00=0x001a, h01=0x0050, text=»* WORD 1 'JD'«, t00=0x0013, t01=0x0058}
0x1e22…1e66 Head {h00=0x0040, h01=0x0050, text=»* 4 10 NO OF USED BYTES IN THIS RECORD «, t00=0x0013, t01=0x0076}
0x1e66…1e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ba}
0x1e70…1e7e Head {h00=0x000a, h01=0x0050, text=»RECJD «, t00=0x0013, t01=0x00c4}
0x1e7e…1e96 Head {h00=0x0014, h01=0x0050, text=» MOVE RECNUM,W3 «, t00=0x0013, t01=0x00d2}
0x1e96…1eb2 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN6,=X'4A44' «, t00=0x0013, t01=0x00ea}
0x1eb2…1ec6 Head {h00=0x0010, h01=0x0050, text=» ADD BIN1,W1«, t00=0x0013, t01=0x0106}
0x1ec6…1ed6 Head {h00=0x000c, h01=0x0050, text=» B RECWR«, t00=0x0013, t01=0x011a}
0x1ed6…1ee0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x012a}
0x1ee0…1efa Head {h00=0x0016, h01=0x0050, text=»* FORMAT CHAIN«, t00=0x0013, t01=0x0134}
0x1efa…1f0e Head {h00=0x0010, h01=0x0050, text=»* REC 4 «, t00=0x0013, t01=0x014e}
0x1f0e…1f2c Head {h00=0x001a, h01=0x0050, text=»* WORD 1 'FC'«, t00=0x0013, t01=0x0162}
0x1f2c…1f6e Head {h00=0x003e, h01=0x0050, text=»* 4 10 NO OF USED BYTES IN THIS RECORD«, t00=0x0013, t01=0x0180}
0x1f6e…1f7c Head {h00=0x000a, h01=0x0050, text=»RECFC «, t00=0x0014, t01=0x0032}
0x1f7c…1f94 Head {h00=0x0014, h01=0x0050, text=» MOVE RECNUM,W4 «, t00=0x0014, t01=0x0040}
0x1f94…1fb0 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN6,=X'4643' «, t00=0x0014, t01=0x0058}
0x1fb0…1fc4 Head {h00=0x0010, h01=0x0050, text=» ADD BIN1,W1«, t00=0x0014, t01=0x0074}
0x1fc4…1fd4 Head {h00=0x000c, h01=0x0050, text=» B RECWR«, t00=0x0014, t01=0x0088}
0x1fd4…1fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0098}
0x1fde…1ffc Head {h00=0x001a, h01=0x0050, text=»* SYSTEM VARIABLES«, t00=0x0014, t01=0x00a2}
0x1ffc…2010 Head {h00=0x0010, h01=0x0050, text=»* REC 5 «, t00=0x0014, t01=0x00c0}
0x2010…202e Head {h00=0x001a, h01=0x0050, text=»* WORD 1 'SV'«, t00=0x0014, t01=0x00d4}
0x202e…2070 Head {h00=0x003e, h01=0x0050, text=»* 4 10 NO OF USED BYTES IN THIS RECORD «, t00=0x0014, t01=0x00f2}
0x2070…207e Head {h00=0x000a, h01=0x0050, text=»RECSV «, t00=0x0014, t01=0x0134}
0x207e…2096 Head {h00=0x0014, h01=0x0050, text=» MOVE RECNUM,W5 «, t00=0x0014, t01=0x0142}
0x2096…20b2 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN6,=X'5356' «, t00=0x0014, t01=0x015a}
0x20b2…20c6 Head {h00=0x0010, h01=0x0050, text=» ADD BIN1,W1«, t00=0x0014, t01=0x0176}
0x20c6…20d6 Head {h00=0x000c, h01=0x0050, text=» B RECWR«, t00=0x0014, t01=0x018a}
0x20d6…20e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x000a}
0x20e0…20f8 Head {h00=0x0014, h01=0x0050, text=»* VALUE SETS«, t00=0x0015, t01=0x0014}
0x20f8…210c Head {h00=0x0010, h01=0x0050, text=»* REC 7 «, t00=0x0015, t01=0x002c}
0x210c…212c Head {h00=0x001c, h01=0x0050, text=»* WORD 1 'SV' «, t00=0x0015, t01=0x0040}
0x212c…216e Head {h00=0x003e, h01=0x0050, text=»* 4 10 NO OF USED BYTES IN THIS RECORD «, t00=0x0015, t01=0x0060}
0x216e…217c Head {h00=0x000a, h01=0x0050, text=»RECTC «, t00=0x0015, t01=0x00a2}
0x217c…2194 Head {h00=0x0014, h01=0x0050, text=» MOVE RECNUM,W7 «, t00=0x0015, t01=0x00b0}
0x2194…21b0 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN6,=X'5443' «, t00=0x0015, t01=0x00c8}
0x21b0…21c4 Head {h00=0x0010, h01=0x0050, text=» ADD BIN1,W1«, t00=0x0015, t01=0x00e4}
0x21c4…21f4 Head {h00=0x002c, h01=0x0050, text=»* WRITE THE CREATED RECORD TO DISC «, t00=0x0015, t01=0x00f8}
0x21f4…2202 Head {h00=0x000a, h01=0x0050, text=»RECWR «, t00=0x0015, t01=0x0128}
0x2202…2224 Head {h00=0x001e, h01=0x0050, text=» XCOPY RBUF,W0,W2,BIN6,W0 «, t00=0x0015, t01=0x0136}
0x2224…225e Head {h00=0x0036, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM «, t00=0x0015, t01=0x0158}
0x225e…2272 (22, 2, 114) Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x0016, t01=0x0004}
0x2272…229a Head {h00=0x0024, h01=0x0050, text=» IB BIN1,RECJD,RECFC,RECSV,RECTC«, t00=0x0016, t01=0x0018}
0x229a…22a8 Head {h00=0x000a, h01=0x0050, text=» B F99«, t00=0x0016, t01=0x0040}
0x22a8…22b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004e}
0x22b2…22bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0058}
0x22bc…22c8 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0016, t01=0x0062}
0x22c8…22cc Head {h00=0x4004, h01=0x0000}
0x22cc…22d0 00 16 00 6e ┆ n┆
0x22d0…22d8 (23, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0x22d8…2328 (24, 0, 400) 00 40 00 48 20 49 44 45 4e 54 20 43 52 45 53 55 44 20 20 54 52 41 20 35 2e 30 20 20 38 30 2d 30 32 2d 32 39 20 46 31 20 4f 31 31 31 31 20 20 55 50 44 20 38 30 2d 30 32 2d 32 39 2f 43 48 53 54 00 00 00 04 00 0e 00 0a 01 04 c8 43 52 45 53 55 ┆ @ H IDENT CRESUD TRA 5.0 80-02-29 F1 O1111 UPD 80-02-29/CHST CRESU┆
0x2328…2378 44 00 00 00 00 48 00 0e 00 0a 02 04 c8 24 24 24 54 52 41 45 00 00 00 5a 00 10 00 0c 05 05 c8 43 52 45 53 55 44 00 00 00 00 00 00 6c 00 44 00 40 02 1f c8 43 48 56 4e 41 4d 45 c8 43 4c 4f 46 49 4c 41 c8 43 52 45 46 49 4c 30 c8 44 45 43 4c 52 ┆D H $$$TRAE Z CRESUD l D @ CHVNAME CLOFILA CREFIL0 DECLR┆
0x2378…23c8 41 46 c8 44 53 4b 45 52 52 20 a8 4f 50 45 4e 46 c8 52 44 53 45 43 54 2f c8 54 3a 41 54 54 46 20 00 00 00 80 00 0e 00 0a 02 04 c8 54 3a 45 52 41 53 00 00 00 00 c8 00 0c 00 08 00 03 05 06 00 07 00 0e 00 00 00 da 00 0e 00 0a 00 04 10 08 00 13 ┆AF DSKERR OPENF RDSECT/ T:ATTF T:ERAS ┆
0x23c8…2418 20 02 00 2e 00 00 00 ea 00 0c 00 08 00 03 05 06 00 1b 00 0e 00 00 00 fc 00 0e 00 0a 00 04 10 08 00 41 20 02 00 20 00 00 01 0c 00 4a 00 46 00 22 00 44 00 00 00 54 20 00 c0 20 30 52 10 c0 43 6a c0 20 22 43 2a 01 d1 4c 6a d0 20 22 43 d1 30 52 ┆ . A J F " D T 0R Cj "C* Lj "C 0R┆
0x2418…2468 10 c0 43 00 c5 21 00 c4 22 00 c2 20 6a c6 20 22 43 c2 28 c6 20 1c 6a c6 20 22 43 c4 02 54 c6 53 11 52 0f 21 00 00 01 1e 00 0e 00 0a 00 04 10 08 00 50 20 02 7f ff 00 00 01 6c 00 0e 00 09 00 04 14 07 00 5d 30 01 b2 ff 00 00 01 7e 00 0e 00 09 ┆ C ! " j "C ( j "C T S R ! P l ]0 ~ ┆
0x2468…24b8 (25, 0, 398) 00 04 14 07 00 61 30 01 b3 ff 00 00 01 90 00 0c 00 08 00 03 05 06 00 67 00 10 00 01 00 12 00 0c 00 08 00 03 08 06 00 68 00 00 00 01 00 22 00 0c 00 08 00 03 07 06 00 6c 00 08 00 01 00 32 00 0c 00 08 00 03 02 06 00 70 00 6b 00 01 00 42 00 0c ┆ a0 g h " l 2 p k B ┆
0x24b8…2508 00 08 00 03 02 06 00 71 01 24 00 01 00 52 00 0c 00 08 00 03 02 06 00 72 00 9f 00 01 00 62 00 0c 00 08 00 03 05 06 00 76 00 10 00 01 00 72 00 0c 00 08 00 03 08 06 00 77 00 0b 00 01 00 82 00 0c 00 08 00 03 07 06 00 7b 00 04 00 01 00 92 00 0c ┆ q $ R r b v r w { ┆
0x2508…2558 00 08 00 03 05 06 00 7d 00 0c 00 01 00 a2 00 4a 00 46 00 22 00 44 00 40 c5 4c 0e 02 c4 28 02 c5 21 02 c2 28 5f 26 01 54 4c 04 d0 21 50 05 02 c0 21 5f 41 21 44 4c 1b 21 44 4c 12 00 4b 4d 31 58 46 41 d0 80 52 32 d4 03 52 52 52 5f 0c 31 58 46 ┆ } J F " D @ L ( ! (_& TL !P !_A!DL !DL KM1XFA R2 RRR_ 1XF┆
0x2558…25a8 5f 11 80 52 30 52 10 66 00 01 00 b2 00 0c 00 08 00 03 07 06 00 8c 00 04 00 01 01 00 00 0c 00 08 00 03 05 06 00 91 00 10 00 01 01 10 00 0c 00 08 00 03 08 06 00 92 00 06 00 01 01 20 00 0c 00 08 00 03 07 06 00 96 00 08 00 01 01 30 00 0c 00 08 ┆_ R0R f 0 ┆
0x25a8…25f6 00 03 02 06 00 9a 00 95 00 01 01 40 00 0c 00 08 00 03 02 06 00 9b 01 24 00 01 01 50 00 0c 00 08 00 03 02 06 00 9c 00 9f 00 01 01 60 00 0e 00 0a 00 04 10 08 00 a1 20 02 00 ff 00 01 01 70 00 0c 00 08 00 03 07 06 00 a3 00 02 00 01 01 82 ┆ @ $ P ` p ┆
0x25f6…2646 (26, 0, 400) 00 0c 00 08 00 03 05 06 00 af 00 12 00 02 00 04 00 0e 00 09 00 04 14 07 00 b5 00 01 53 ff 00 02 00 14 00 4a 00 46 00 22 00 44 00 80 21 43 4d 48 50 05 06 48 49 50 96 80 52 00 4b 4c 31 58 46 41 d0 80 52 32 d4 03 52 52 52 5f 14 01 3e 4c 80 52 ┆ S J F " D !CMHP HIP R KL1XFA R2 RRR_ >L R┆
0x2646…2696 4a 00 c2 59 6a 42 27 21 50 21 30 58 00 21 25 01 8a 4c 6a 42 26 21 8a 20 6a 42 28 28 00 02 00 26 00 0e 00 0a 00 04 10 08 00 ca 20 02 00 31 00 02 00 74 00 0e 00 0a 00 04 10 08 00 d3 20 02 00 32 00 02 00 86 00 0e 00 09 00 04 14 07 00 dc 30 01 ┆J YjB'!P!0X !% LjB&! jB(( & 1 t 2 0 ┆
0x2696…26e6 b2 32 00 02 00 98 00 0e 00 09 00 04 14 07 00 e0 30 01 b1 32 00 02 00 aa 00 0e 00 0a 00 04 10 08 00 fe 20 02 00 38 00 02 00 bc 00 4a 00 46 00 22 00 44 00 c0 4b 20 62 42 30 26 4a 20 01 c0 4c 6a 42 c0 21 21 21 01 c1 4c 6a 42 c1 22 3e 20 21 44 ┆ 2 0 2 8 J F " D K bB0&J LjB !!! LjB "> !D┆
0x26e6…2736 4c 18 21 44 4c 1a 00 c3 58 6a 42 c0 21 c3 21 00 c3 57 6a 42 c1 22 c3 20 57 06 00 c0 58 08 c2 c0 01 c0 4c 6a 00 02 00 ce 00 0e 00 0a 00 04 10 08 01 07 20 02 00 36 00 02 01 1c 00 0e 00 0a 00 04 10 08 01 10 20 02 00 34 00 02 01 2e 00 0c 00 08 ┆L !DL XjB ! ! WjB " W X Lj 6 4 . ┆
0x2736…2786 00 03 05 06 01 18 00 06 00 02 01 40 00 0c 00 08 00 03 07 06 01 22 00 0a 00 02 01 50 00 0c 00 08 00 03 20 06 00 00 00 1e 00 02 01 60 00 0a 00 05 00 02 26 03 e0 00 00 02 01 70 00 12 00 0e 00 06 16 0c 00 01 00 06 53 59 53 54 45 4d 00 02 01 7e ┆ @ " P ` & p SYSTEM ~┆
0x2786…27d6 (27, 0, 400) 00 0c 00 07 00 03 24 05 c1 00 01 00 00 03 00 04 00 0a 00 06 00 02 26 04 c4 07 00 03 00 14 00 10 00 0c 00 05 16 0a 00 02 00 04 46 49 4c 45 00 03 00 22 00 0c 00 07 00 03 24 05 c1 00 02 00 00 03 00 36 00 0a 00 05 00 02 26 03 e1 00 00 03 00 46 ┆ $ & FILE " $ 6 & F┆
0x27d6…2826 00 10 00 0b 00 05 16 09 00 03 00 03 4e 4f 2e 00 00 03 00 54 00 0c 00 07 00 03 24 05 c1 00 03 00 00 03 00 68 00 0a 00 06 00 02 26 04 c4 05 00 03 00 78 00 18 00 13 00 09 16 11 00 04 00 0b 4f 46 20 52 45 43 4f 52 44 53 3a c0 00 03 00 86 00 0c ┆ NO. T $ h & x OF RECORDS: ┆
0x2826…2876 00 07 00 03 24 05 c1 00 04 00 00 03 00 a2 00 0e 00 0a 00 04 26 08 f2 11 03 81 85 80 00 03 00 b2 00 12 00 0d 00 06 1a 0b 00 05 10 05 5a 5a 5a 5a 58 00 00 03 00 c4 00 0c 00 07 00 03 22 05 00 05 59 81 00 03 00 da 00 0a 00 05 00 02 26 03 e1 05 ┆ $ & ZZZZX " Y & ┆
0x2876…28c6 00 03 00 ea 00 0e 00 09 00 04 26 07 f0 01 00 00 00 80 00 03 00 f8 00 0a 00 06 00 02 26 04 c0 5b 00 03 01 0a 00 08 00 04 00 01 28 02 00 03 01 18 00 0c 00 08 00 03 20 06 00 06 00 1c 00 03 01 24 00 0a 00 05 00 02 26 03 e0 5b 00 03 01 34 00 10 ┆ & & [ ( $ & [ 4 ┆
0x28c6…2916 00 0c 00 05 16 0a 00 07 00 04 55 53 45 52 00 03 01 42 00 0c 00 07 00 03 24 05 c1 00 07 00 00 03 01 56 00 0a 00 06 00 02 26 04 c4 05 00 03 01 66 00 10 00 0c 00 05 16 0a 00 08 00 04 46 49 4c 45 00 03 01 74 00 0c 00 07 00 03 24 05 c1 00 08 00 ┆ USER B $ V & f FILE t $ ┆
0x2916…2966 (28, 0, 400) 00 03 01 88 00 0a 00 05 00 02 26 03 e1 00 00 04 00 08 00 22 00 1e 00 0e 16 1c 00 09 00 16 4e 4f 2e 20 4f 46 20 53 45 43 54 4f 52 53 2f 52 45 43 4f 52 44 3a 00 04 00 16 00 0c 00 07 00 03 24 05 c1 00 09 00 00 04 00 3c 00 0e 00 0a 00 04 26 08 ┆ & " NO. OF SECTORS/RECORD: $ < & ┆
0x2966…29b6 f2 17 0c 81 81 80 00 04 00 4c 00 10 00 0b 00 05 1a 09 00 0a 10 03 5a 5a 58 00 00 04 00 5e 00 0c 00 07 00 03 22 05 00 0a 58 81 00 04 00 72 00 0c 00 07 00 03 24 05 df 00 15 81 00 04 00 82 00 0a 00 05 00 02 26 03 e1 00 00 04 00 92 00 0e 00 09 ┆ L ZZX ^ " X r $ & ┆
0x29b6…2a06 00 04 26 07 f0 01 00 00 00 80 00 04 00 a0 00 0a 00 06 00 02 26 04 c0 5b 00 04 00 b2 00 08 00 04 00 01 28 02 00 04 00 c0 00 0c 00 08 00 03 20 06 00 0b 00 3a 00 04 00 cc 00 0a 00 05 00 02 26 03 e0 5b 00 04 00 dc 00 18 00 13 00 09 16 11 00 0c ┆ & & [ ( : & [ ┆
0x2a06…2a56 00 0b 55 53 45 52 44 45 46 49 4e 45 44 4f 00 04 00 ea 00 0c 00 07 00 03 24 05 c1 00 0c 00 00 04 01 06 00 0a 00 06 00 02 26 04 c4 0d 00 04 01 16 00 10 00 0c 00 05 16 0a 00 0d 00 04 46 49 4c 45 00 04 01 24 00 0c 00 07 00 03 24 05 c1 00 0d 00 ┆ USERDEFINEDO $ & FILE $ $ ┆
0x2a56…2aa6 00 04 01 38 00 0a 00 05 00 02 26 03 e1 00 00 04 01 48 00 10 00 0c 00 05 16 0a 00 0e 00 04 46 49 4c 45 00 04 01 56 00 0c 00 07 00 03 24 05 c1 00 0e 00 00 04 01 6a 00 0a 00 06 00 02 26 04 c4 05 00 04 01 7a 00 12 00 0d 00 06 16 0b 00 0f 00 05 ┆ 8 & H FILE V $ j & z ┆