|
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: 7596 (0x1dac)
Notes: pts_type(SC)
Names: »REORGS.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/REORGS.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/REORGS.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/REORGS.SC«
IDENT REORGS UPD 80-03-20/CHST UPD 80-03-17/CHST UPD 80-03-14/PEEN UPD 80-02-01/CHST ********************************** * * * REORGANISATION OF SYSTEMFILE * * * ********************************** DDUM DDINIT PDIV ENTRY REORGS * EXT DECLRN EXT DEPOOL EXT DECLRA EXT DEDISC EXT DERR EXT DSKERR EXT CLOFIL EXT OPCL EXT GETIND EXT NOFFRE EXT DISU EXT REFSP * EXT CHANFC EXT CHVOL EXT OPENF EXT CLOSEF * REORGS PROC **************** * OPEN FILES * **************** * MOVE FVOLNAME(W1),FVOLNAME(W2) PERF OPCL,W1 SYSVOL BERR ERROR MOVE FINDEXPO(W2),FINDEXPO(W1) MOVE FFSNR(W2),FFSNR(W1) MOVE FILECODE(W2),FILECODE(W1) MOVE FNOOFREC(W2),FNOOFREC(W1) MOVE FRINF(W2),FRINF(W1) MOVE F95PROC(W2),F95PROC(W1) MOVE STRG10A,=C'SYSFIL ' CALL OPENF,DISK,FILECODE(W3),RBUF,STRG10A,FVOLNAME(W3) BOK OPENSY02 OPENSY06 CALL CLOSEF,DISK,FILECODE(W3),SYSBUF,W0 CLEAR SWITSY MOVE DEBINW4,W20 SUB FCOUNTER(W1),W1 B ERROR OPENSY02 MOVE FILECODE(W1),FILECODE(W3) PERF NOFFRE,DEBIN1,W1 MOVE FNOOFREC(W1),DEBIN1 PERF DISU,W1,W1,SYSBUF XCOPY F95PROC(W1),W0,W2,SYSBUF,W5 XCOPY FRINF(W1),W0,W2,SYSBUF,W1 MOVE DKBIN1,W1 MOVE DKBIN2,W1 PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A BNOK OPENSY06 MOVE FINDEXPO(W1),DKBIN1 PERF REFSP,W2,W1 BNOK OPENSY06 OPENSY07 CLEAR BOOLA1 MOVE FINDEXPO(W3),FINDEXPO(W1) MOVE FFSNR(W3),FFSNR(W1) MOVE FNOOFREC(W3),FNOOFREC(W1) MOVE FRINF(W3),FRINF(W1) MOVE F95PROC(W3),F95PROC(W1) C05 CBE COPY,='Y',C06 ATTFMT SYSTEM SET DEPROMPT PERF DECLRA IB DEBINW2,C05,C90 CBE ANSW,='N',C09 IF NO COPY ************************** * COPY SYSTEMVARIABLES * ************************** C06 PERF DISKIO,W19,W2 GET BERR ERROR PERF DISKIO,W20,W3 ENTER BERR ERROR **************** * VALUE-SETS * **************** C09 MOVE TABLE,=X'5400' MOVE BIN1,W0 MOVE BIN2,=W'93' C12 MOVE ELMNO,W1 ADD BIN1,W1 CBG BIN1,BIN2,C20 MOVE BCD3A,BIN1 MOVE STR6A,BCD3A XCOPY TABLE,W1,W2,STR6A,W2 C14 PERF DISKIO,W24,W2 GET BNOK C12 BERR ERROR CBE COPY,='Y',C15 MOVE BCD3A,BIN1 MOVE ANSW,HEX00 ATTFMT VALUE SET DEPROMPT PERF DECLRN IB DEBINW2,C12,C90 CBE ANSW,='N',C12 C15 MOVE BIN3,=W'26' PERF DISKIO,BIN3,W3 ENTER BERR ERROR XCOPY BIN4,W0,W2,RPOOL(PINDTB),W13 LINK NEXT CBE BIN4,W0,C12 MOVE ELMNO,W0 XCOPY ELMNO,W1,W1,RPOOL(PINDTB),W18 ADD ELMNO,W1 NEXT ELEMENT NO. PERF DISKIO,W24,W2 BNOK C12 BERR ERROR B C15 C20 MOVE JOBNAME,=X'00' ************************* * COPY JOBDEFINITIONS * ************************* C30 MOVE BIN3,=W'29' PERF DISKIO,BIN3,W2 GET BNERR C32 CBE DEBINW4,W9,C60 B ERROR C32 CBE COPY,=C'Y',C36 MOVE ANSW,=X'00' ATTFMT JOB COPY JOB ? SET DEPROMPT C34 PERF DECLRN IB DEBINW2,C34,C90 CBE ANSW,=C'N',C30 C36 PERF DISKIO,W5,W3 DELETE BEFORE ENTRY PERF DISKIO,W1,W3 ENTER BERR ERROR B C30 ****************** * COPY FORMATS * ****************** C60 PERF DEPOOL,W6,PJOBCUR,PJOBCUR,STRG10A MOVE FORMAT,=X'00' C62 PERF DEPOOL,W6,PINDFR,PINDFR,STRG10A MOVE FRMTPNTR,W0 MOVE BIN3,=W'31' NEXFMT I DEDI02 PERF DISKIO,BIN3,W2 GET C63 BNERR C64 CBE DEBINW4,W9,C90 ATTFMT FORMT DISPLAY 0,W1,W0 THOME PERF DERR IB DEBINW2,C62,C90 CBE ANSW,='N',C62 PERF DISKIO,W10,W2 GET FORMAT AGAIN B C63 C64 CBE COPY,=C'Y',C68 MOVE ANSW,=X'00' ATTFMT FORMT COPY FORMAT ? SET DEPROMPT C66 PERF DECLRN IB DEBINW2,C66,C90 CBE ANSW,=C'N',C62 C68 PERF DISKIO,W13,W3 DELETE BEFORE ENTRY PERF DISKIO,W9,W3 ENTER - ENTFMT I DEDI02 BNERR C62 ATTFMT FORMT DISPLAY 0,W1,W0 THOME PERF DERR IB DEBINW2,C62,C90 CBE ANSW,='N',C62 B C68 ***************** * CLOSE FILES * ***************** C90 MOVE FVOLNAME(W1),FVOLNAME(W2) MOVE FILECODE(W1),FILECODE(W2) MOVE FINDEXPO(W1),FINDEXPO(W2) MOVE FFSNR(W1),FFSNR(W2) MOVE FNOOFREC(W1),FNOOFREC(W2) MOVE FRINF(W1),FRINF(W2) MOVE F95PROC(W1),F95PROC(W2) MOVE FCOUNTER(W1),W1 MOVE FILECODE(W1),FILECODE(W2) SET SWITSY PERF OPCL,W2 BERR ERROR MOVE FVOLNAME(W1),FVOLNAME(W3) MOVE FILECODE(W1),FILECODE(W3) MOVE FINDEXPO(W1),FINDEXPO(W3) MOVE FFSNR(W1),FFSNR(W3) MOVE FNOOFREC(W1),FNOOFREC(W3) MOVE FRINF(W1),FRINF(W3) MOVE F95PROC(W1),F95PROC(W3) MOVE FCOUNTER(W1),W1 MOVE FILECODE(W1),FILECODE(W3) SET SWITSY PERF OPCL,W2 BERR ERROR ************************************ * CHANGE VOLUME-NAME TO 'SYSVOL' * ************************************ C98 CALL CHANFC,DISK,FCOD2 CALL CHVOL,DISK,SYSBUF,SYSVOL C99 RET PEND EJECT DISKIO PROC FC,INDEX MOVE FILECODE(W1),FILECODE(INDEX) MOVE FINDEXPO(W1),FINDEXPO(INDEX) MOVE FFSNR(W1),FFSNR(INDEX) MOVE FNOOFREC(W1),FNOOFREC(INDEX) MOVE FRINF(W1),FRINF(INDEX) MOVE F95PROC(W1),F95PROC(INDEX) PERF DEDISC,FC RET PEND * * ERROR CBNE DEBINW4,W10,ERR90 MOVE DEBINW4,W17 'OUTPUT FILE TOO SMALL' ERR90 PERF DSKERR,DEBINW4 PERF CLOFIL B C98 EJECT JOB FRMT FSL FCOPY =C'COPY JOB:' FINP 11 FCOPY JOBNAME FLINK FANSW FMEND * FORMT FRMT FSL FCOPY =C'COPY FORMAT:' FINP 14 FCOPY FORMAT FLINK FANSW FMEND * FANSW FRMT FNL FCOPY =C'Y/N' FKI 5,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 FCOPY ANSW FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND * SYSTEM FRMT FSL FTEXT 'COPY SYSTEMVARIABLES ?' FLINK FANSW FMEND * VALUE FRMT FSL FTEXT 'COPY VALUE-SET T' FINP 17 FMEL '99',BCD3A FLINK FANSW FMEND * * END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT REORGS UPD 80-03-20/CHST «, t00=0x0000, t01=0x0004}
0x0028…0044 Head {h00=0x0018, h01=0x0050, text=» UPD 80-03-17/CHST«, t00=0x0000, t01=0x002c}
0x0044…0060 Head {h00=0x0018, h01=0x0050, text=» UPD 80-03-14/PEEN«, t00=0x0000, t01=0x0048}
0x0060…007c Head {h00=0x0018, h01=0x0050, text=» UPD 80-02-01/CHST«, t00=0x0000, t01=0x0064}
0x007c…00a6 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0000, t01=0x0080}
0x00a6…00d0 Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00aa}
0x00d0…00fa Head {h00=0x0026, h01=0x0050, text=»* REORGANISATION OF SYSTEMFILE *«, t00=0x0000, t01=0x00d4}
0x00fa…0124 Head {h00=0x0026, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00fe}
0x0124…014e Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x0000, t01=0x0128}
0x014e…0162 Head {h00=0x0010, h01=0x000c, text=» DDUM DDINIT«, t00=0x0000, t01=0x0152}
0x0162…0170 Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0166}
0x0170…0186 Head {h00=0x0012, h01=0x0050, text=» ENTRY REORGS «, t00=0x0000, t01=0x0174}
0x0186…0190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018a}
0x0190…01a4 (1, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXT DECLRN «, t00=0x0001, t01=0x0004}
0x01a4…01b8 Head {h00=0x0010, h01=0x0050, text=» EXT DEPOOL «, t00=0x0001, t01=0x0018}
0x01b8…01cc Head {h00=0x0010, h01=0x0050, text=» EXT DECLRA «, t00=0x0001, t01=0x002c}
0x01cc…01e0 Head {h00=0x0010, h01=0x0050, text=» EXT DEDISC «, t00=0x0001, t01=0x0040}
0x01e0…01f2 Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0001, t01=0x0054}
0x01f2…0206 Head {h00=0x0010, h01=0x0050, text=» EXT DSKERR «, t00=0x0001, t01=0x0066}
0x0206…021a Head {h00=0x0010, h01=0x0050, text=» EXT CLOFIL «, t00=0x0001, t01=0x007a}
0x021a…022c Head {h00=0x000e, h01=0x0050, text=» EXT OPCL «, t00=0x0001, t01=0x008e}
0x022c…0240 Head {h00=0x0010, h01=0x0050, text=» EXT GETIND «, t00=0x0001, t01=0x00a0}
0x0240…0254 Head {h00=0x0010, h01=0x0050, text=» EXT NOFFRE «, t00=0x0001, t01=0x00b4}
0x0254…0266 Head {h00=0x000e, h01=0x0050, text=» EXT DISU «, t00=0x0001, t01=0x00c8}
0x0266…0278 Head {h00=0x000e, h01=0x0050, text=» EXT REFSP«, t00=0x0001, t01=0x00da}
0x0278…0282 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ec}
0x0282…0296 Head {h00=0x0010, h01=0x0050, text=» EXT CHANFC «, t00=0x0001, t01=0x00f6}
0x0296…02a8 Head {h00=0x000e, h01=0x0050, text=» EXT CHVOL«, t00=0x0001, t01=0x010a}
0x02a8…02ba Head {h00=0x000e, h01=0x0050, text=» EXT OPENF«, t00=0x0001, t01=0x011c}
0x02ba…02ce Head {h00=0x0010, h01=0x0050, text=» EXT CLOSEF «, t00=0x0001, t01=0x012e}
0x02ce…02d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0142}
0x02d8…02ec Head {h00=0x0010, h01=0x0050, text=»REORGS PROC «, t00=0x0001, t01=0x014c}
0x02ec…0304 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0001, t01=0x0160}
0x0304…031c Head {h00=0x0014, h01=0x0050, text=»* OPEN FILES *«, t00=0x0001, t01=0x0178}
0x031c…0334 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0001, t01=0x0190}
0x0334…033e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0018}
0x033e…0366 Head {h00=0x0024, h01=0x0050, text=» MOVE FVOLNAME(W1),FVOLNAME(W2) «, t00=0x0002, t01=0x0022}
0x0366…0382 Head {h00=0x0018, h01=0x0050, text=» PERF OPCL,W1 SYSVOL«, t00=0x0002, t01=0x004a}
0x0382…0396 Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x0002, t01=0x0066}
0x0396…03be Head {h00=0x0024, h01=0x0050, text=» MOVE FINDEXPO(W2),FINDEXPO(W1) «, t00=0x0002, t01=0x007a}
0x03be…03e0 Head {h00=0x001e, h01=0x0050, text=» MOVE FFSNR(W2),FFSNR(W1) «, t00=0x0002, t01=0x00a2}
0x03e0…0408 Head {h00=0x0024, h01=0x0050, text=» MOVE FILECODE(W2),FILECODE(W1) «, t00=0x0002, t01=0x00c4}
0x0408…0430 Head {h00=0x0024, h01=0x0050, text=» MOVE FNOOFREC(W2),FNOOFREC(W1) «, t00=0x0002, t01=0x00ec}
0x0430…0452 Head {h00=0x001e, h01=0x0050, text=» MOVE FRINF(W2),FRINF(W1) «, t00=0x0002, t01=0x0114}
0x0452…0478 Head {h00=0x0022, h01=0x0050, text=» MOVE F95PROC(W2),F95PROC(W1) «, t00=0x0002, t01=0x0136}
0x0478…049a Head {h00=0x001e, h01=0x0050, text=» MOVE STRG10A,=C'SYSFIL ' «, t00=0x0002, t01=0x015c}
0x049a…04da Head {h00=0x003c, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W3),RBUF,STRG10A,FVOLNAME(W3) «, t00=0x0002, t01=0x017e}
0x04da…04f0 Head {h00=0x0012, h01=0x0050, text=» BOK OPENSY02 «, t00=0x0003, t01=0x002e}
0x04f0…0500 Head {h00=0x000c, h01=0x0050, text=»OPENSY06«, t00=0x0003, t01=0x0044}
0x0500…0530 Head {h00=0x002c, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W3),SYSBUF,W0«, t00=0x0003, t01=0x0054}
0x0530…0546 Head {h00=0x0012, h01=0x0050, text=» CLEAR SWITSY «, t00=0x0003, t01=0x0084}
0x0546…0560 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W20 «, t00=0x0003, t01=0x009a}
0x0560…057c Head {h00=0x0018, h01=0x0050, text=» SUB FCOUNTER(W1),W1«, t00=0x0003, t01=0x00b4}
0x057c…058c Head {h00=0x000c, h01=0x0050, text=» B ERROR«, t00=0x0003, t01=0x00d0}
0x058c…059c Head {h00=0x000c, h01=0x0050, text=»OPENSY02«, t00=0x0003, t01=0x00e0}
0x059c…05c4 Head {h00=0x0024, h01=0x0050, text=» MOVE FILECODE(W1),FILECODE(W3) «, t00=0x0003, t01=0x00f0}
0x05c4…05e2 Head {h00=0x001a, h01=0x0050, text=» PERF NOFFRE,DEBIN1,W1«, t00=0x0003, t01=0x0118}
0x05e2…0604 Head {h00=0x001e, h01=0x0050, text=» MOVE FNOOFREC(W1),DEBIN1 «, t00=0x0003, t01=0x0136}
0x0604…0624 Head {h00=0x001c, h01=0x0050, text=» PERF DISU,W1,W1,SYSBUF «, t00=0x0003, t01=0x0158}
0x0624…064e Head {h00=0x0026, h01=0x0050, text=» XCOPY F95PROC(W1),W0,W2,SYSBUF,W5«, t00=0x0003, t01=0x0178}
0x064e…0676 Head {h00=0x0024, h01=0x0050, text=» XCOPY FRINF(W1),W0,W2,SYSBUF,W1«, t00=0x0004, t01=0x0012}
0x0676…068e Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN1,W1 «, t00=0x0004, t01=0x003a}
0x068e…06a6 Head {h00=0x0014, h01=0x0050, text=» MOVE DKBIN2,W1 «, t00=0x0004, t01=0x0052}
0x06a6…06d4 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A «, t00=0x0004, t01=0x006a}
0x06d4…06ea Head {h00=0x0012, h01=0x0050, text=» BNOK OPENSY06«, t00=0x0004, t01=0x0098}
0x06ea…070c Head {h00=0x001e, h01=0x0050, text=» MOVE FINDEXPO(W1),DKBIN1 «, t00=0x0004, t01=0x00ae}
0x070c…0726 Head {h00=0x0016, h01=0x0050, text=» PERF REFSP,W2,W1 «, t00=0x0004, t01=0x00d0}
0x0726…073c Head {h00=0x0012, h01=0x0050, text=» BNOK OPENSY06«, t00=0x0004, t01=0x00ea}
0x073c…074c Head {h00=0x000c, h01=0x0050, text=»OPENSY07«, t00=0x0004, t01=0x0100}
0x074c…0762 Head {h00=0x0012, h01=0x0050, text=» CLEAR BOOLA1 «, t00=0x0004, t01=0x0110}
0x0762…078a Head {h00=0x0024, h01=0x0050, text=» MOVE FINDEXPO(W3),FINDEXPO(W1) «, t00=0x0004, t01=0x0126}
0x078a…07ac Head {h00=0x001e, h01=0x0050, text=» MOVE FFSNR(W3),FFSNR(W1) «, t00=0x0004, t01=0x014e}
0x07ac…07d4 Head {h00=0x0024, h01=0x0050, text=» MOVE FNOOFREC(W3),FNOOFREC(W1) «, t00=0x0004, t01=0x0170}
0x07d4…07f6 Head {h00=0x001e, h01=0x0050, text=» MOVE FRINF(W3),FRINF(W1) «, t00=0x0005, t01=0x0008}
0x07f6…081c Head {h00=0x0022, h01=0x0050, text=» MOVE F95PROC(W3),F95PROC(W1) «, t00=0x0005, t01=0x002a}
0x081c…0828 Head {h00=0x0008, h01=0x0050, text=»C05 «, t00=0x0005, t01=0x0050}
0x0828…0842 Head {h00=0x0016, h01=0x0050, text=» CBE COPY,='Y',C06«, t00=0x0005, t01=0x005c}
0x0842…0858 Head {h00=0x0012, h01=0x0050, text=» ATTFMT SYSTEM«, t00=0x0005, t01=0x0076}
0x0858…086e Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0005, t01=0x008c}
0x086e…0882 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0005, t01=0x00a2}
0x0882…089e Head {h00=0x0018, h01=0x0050, text=» IB DEBINW2,C05,C90 «, t00=0x0005, t01=0x00b6}
0x089e…08c4 Head {h00=0x0022, h01=0x0050, text=» CBE ANSW,='N',C09 IF NO COPY «, t00=0x0005, t01=0x00d2}
0x08c4…08e6 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0005, t01=0x00f8}
0x08e6…0908 Head {h00=0x001e, h01=0x0050, text=»* COPY SYSTEMVARIABLES *«, t00=0x0005, t01=0x011a}
0x0908…092a Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0005, t01=0x013c}
0x092a…0936 Head {h00=0x0008, h01=0x0050, text=»C06 «, t00=0x0005, t01=0x015e}
0x0936…0956 Head {h00=0x001c, h01=0x0050, text=» PERF DISKIO,W19,W2 GET «, t00=0x0005, t01=0x016a}
0x0956…096a Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x0005, t01=0x018a}
0x096a…098c Head {h00=0x001e, h01=0x0050, text=» PERF DISKIO,W20,W3 ENTER «, t00=0x0006, t01=0x000e}
0x098c…09a0 Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x0006, t01=0x0030}
0x09a0…09b8 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0006, t01=0x0044}
0x09b8…09d0 Head {h00=0x0014, h01=0x0050, text=»* VALUE-SETS *«, t00=0x0006, t01=0x005c}
0x09d0…09e8 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0006, t01=0x0074}
0x09e8…09f4 Head {h00=0x0008, h01=0x0050, text=»C09 «, t00=0x0006, t01=0x008c}
0x09f4…0a10 Head {h00=0x0018, h01=0x0050, text=» MOVE TABLE,=X'5400'«, t00=0x0006, t01=0x0098}
0x0a10…0a26 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x0006, t01=0x00b4}
0x0a26…0a40 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN2,=W'93' «, t00=0x0006, t01=0x00ca}
0x0a40…0a4c Head {h00=0x0008, h01=0x0050, text=»C12 «, t00=0x0006, t01=0x00e4}
0x0a4c…0a62 Head {h00=0x0012, h01=0x0050, text=» MOVE ELMNO,W1«, t00=0x0006, t01=0x00f0}
0x0a62…0a76 Head {h00=0x0010, h01=0x0050, text=» ADD BIN1,W1«, t00=0x0006, t01=0x0106}
0x0a76…0a90 Head {h00=0x0016, h01=0x0050, text=» CBG BIN1,BIN2,C20«, t00=0x0006, t01=0x011a}
0x0a90…0aa8 Head {h00=0x0014, h01=0x0050, text=» MOVE BCD3A,BIN1«, t00=0x0006, t01=0x0134}
0x0aa8…0ac2 Head {h00=0x0016, h01=0x0050, text=» MOVE STR6A,BCD3A «, t00=0x0006, t01=0x014c}
0x0ac2…0ae6 Head {h00=0x0020, h01=0x0050, text=» XCOPY TABLE,W1,W2,STR6A,W2 «, t00=0x0006, t01=0x0166}
0x0ae6…0af2 Head {h00=0x0008, h01=0x0050, text=»C14 «, t00=0x0006, t01=0x018a}
0x0af2…0b12 Head {h00=0x001c, h01=0x0050, text=» PERF DISKIO,W24,W2 GET «, t00=0x0007, t01=0x0008}
0x0b12…0b24 Head {h00=0x000e, h01=0x0050, text=» BNOK C12 «, t00=0x0007, t01=0x0028}
0x0b24…0b38 Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x0007, t01=0x003a}
0x0b38…0b52 Head {h00=0x0016, h01=0x0050, text=» CBE COPY,='Y',C15«, t00=0x0007, t01=0x004e}
0x0b52…0b6a Head {h00=0x0014, h01=0x0050, text=» MOVE BCD3A,BIN1«, t00=0x0007, t01=0x0068}
0x0b6a…0b82 Head {h00=0x0014, h01=0x0050, text=» MOVE ANSW,HEX00«, t00=0x0007, t01=0x0080}
0x0b82…0b98 Head {h00=0x0012, h01=0x0050, text=» ATTFMT VALUE «, t00=0x0007, t01=0x0098}
0x0b98…0bae Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0007, t01=0x00ae}
0x0bae…0bc2 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0007, t01=0x00c4}
0x0bc2…0bde Head {h00=0x0018, h01=0x0050, text=» IB DEBINW2,C12,C90 «, t00=0x0007, t01=0x00d8}
0x0bde…0bf8 Head {h00=0x0016, h01=0x0050, text=» CBE ANSW,='N',C12«, t00=0x0007, t01=0x00f4}
0x0bf8…0c04 Head {h00=0x0008, h01=0x0050, text=»C15 «, t00=0x0007, t01=0x010e}
0x0c04…0c1e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN3,=W'26' «, t00=0x0007, t01=0x011a}
0x0c1e…0c40 Head {h00=0x001e, h01=0x0050, text=» PERF DISKIO,BIN3,W3 ENTER«, t00=0x0007, t01=0x0134}
0x0c40…0c54 Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x0007, t01=0x0156}
0x0c54…0c8a Head {h00=0x0032, h01=0x0050, text=» XCOPY BIN4,W0,W2,RPOOL(PINDTB),W13 LINK NEXT «, t00=0x0007, t01=0x016a}
0x0c8a…0ca2 Head {h00=0x0014, h01=0x0050, text=» CBE BIN4,W0,C12«, t00=0x0008, t01=0x0010}
0x0ca2…0cb8 Head {h00=0x0012, h01=0x0050, text=» MOVE ELMNO,W0«, t00=0x0008, t01=0x0028}
0x0cb8…0ce4 Head {h00=0x0028, h01=0x0050, text=» XCOPY ELMNO,W1,W1,RPOOL(PINDTB),W18«, t00=0x0008, t01=0x003e}
0x0ce4…0d0a Head {h00=0x0022, h01=0x0050, text=» ADD ELMNO,W1 NEXT ELEMENT NO.«, t00=0x0008, t01=0x006a}
0x0d0a…0d26 Head {h00=0x0018, h01=0x0050, text=» PERF DISKIO,W24,W2 «, t00=0x0008, t01=0x0090}
0x0d26…0d38 Head {h00=0x000e, h01=0x0050, text=» BNOK C12 «, t00=0x0008, t01=0x00ac}
0x0d38…0d4c Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x0008, t01=0x00be}
0x0d4c…0d5a Head {h00=0x000a, h01=0x0050, text=» B C15«, t00=0x0008, t01=0x00d2}
0x0d5a…0d66 Head {h00=0x0008, h01=0x0050, text=»C20 «, t00=0x0008, t01=0x00e0}
0x0d66…0d82 Head {h00=0x0018, h01=0x0050, text=» MOVE JOBNAME,=X'00'«, t00=0x0008, t01=0x00ec}
0x0d82…0da4 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0008, t01=0x0108}
0x0da4…0dc6 Head {h00=0x001e, h01=0x0050, text=»* COPY JOBDEFINITIONS * «, t00=0x0008, t01=0x012a}
0x0dc6…0de8 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0008, t01=0x014c}
0x0de8…0df4 Head {h00=0x0008, h01=0x0050, text=»C30 «, t00=0x0008, t01=0x016e}
0x0df4…0e0e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN3,=W'29' «, t00=0x0008, t01=0x017a}
0x0e0e…0e2e (9, 0, 400) Head {h00=0x001c, h01=0x0050, text=» PERF DISKIO,BIN3,W2 GET«, t00=0x0009, t01=0x0004}
0x0e2e…0e40 Head {h00=0x000e, h01=0x0050, text=» BNERR C32«, t00=0x0009, t01=0x0024}
0x0e40…0e5c Head {h00=0x0018, h01=0x0050, text=» CBE DEBINW4,W9,C60 «, t00=0x0009, t01=0x0036}
0x0e5c…0e6c Head {h00=0x000c, h01=0x0050, text=» B ERROR«, t00=0x0009, t01=0x0052}
0x0e6c…0e78 Head {h00=0x0008, h01=0x0050, text=»C32 «, t00=0x0009, t01=0x0062}
0x0e78…0e94 Head {h00=0x0018, h01=0x0050, text=» CBE COPY,=C'Y',C36 «, t00=0x0009, t01=0x006e}
0x0e94…0eae Head {h00=0x0016, h01=0x0050, text=» MOVE ANSW,=X'00' «, t00=0x0009, t01=0x008a}
0x0eae…0ecc Head {h00=0x001a, h01=0x0050, text=» ATTFMT JOB COPY JOB ?«, t00=0x0009, t01=0x00a4}
0x0ecc…0ee2 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0009, t01=0x00c2}
0x0ee2…0eee Head {h00=0x0008, h01=0x0050, text=»C34 «, t00=0x0009, t01=0x00d8}
0x0eee…0f02 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0009, t01=0x00e4}
0x0f02…0f1e Head {h00=0x0018, h01=0x0050, text=» IB DEBINW2,C34,C90 «, t00=0x0009, t01=0x00f8}
0x0f1e…0f3a Head {h00=0x0018, h01=0x0050, text=» CBE ANSW,=C'N',C30 «, t00=0x0009, t01=0x0114}
0x0f3a…0f46 Head {h00=0x0008, h01=0x0050, text=»C36 «, t00=0x0009, t01=0x0130}
0x0f46…0f74 Head {h00=0x002a, h01=0x0050, text=» PERF DISKIO,W5,W3 DELETE BEFORE ENTRY«, t00=0x0009, t01=0x013c}
0x0f74…0f94 Head {h00=0x001c, h01=0x0050, text=» PERF DISKIO,W1,W3 ENTER«, t00=0x0009, t01=0x016a}
0x0f94…0fa8 Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x0009, t01=0x018a}
0x0fa8…0fb6 Head {h00=0x000a, h01=0x0050, text=» B C30«, t00=0x000a, t01=0x000e}
0x0fb6…0fd0 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000a, t01=0x001c}
0x0fd0…0fea Head {h00=0x0016, h01=0x0050, text=»* COPY FORMATS *«, t00=0x000a, t01=0x0036}
0x0fea…1004 Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x000a, t01=0x0050}
0x1004…1010 Head {h00=0x0008, h01=0x0050, text=»C60 «, t00=0x000a, t01=0x006a}
0x1010…1040 Head {h00=0x002c, h01=0x0050, text=» PERF DEPOOL,W6,PJOBCUR,PJOBCUR,STRG10A «, t00=0x000a, t01=0x0076}
0x1040…105c Head {h00=0x0018, h01=0x0050, text=» MOVE FORMAT,=X'00' «, t00=0x000a, t01=0x00a6}
0x105c…1068 Head {h00=0x0008, h01=0x0050, text=»C62 «, t00=0x000a, t01=0x00c2}
0x1068…1096 Head {h00=0x002a, h01=0x0050, text=» PERF DEPOOL,W6,PINDFR,PINDFR,STRG10A «, t00=0x000a, t01=0x00ce}
0x1096…10b0 Head {h00=0x0016, h01=0x0050, text=» MOVE FRMTPNTR,W0 «, t00=0x000a, t01=0x00fc}
0x10b0…10da Head {h00=0x0026, h01=0x0050, text=» MOVE BIN3,=W'31' NEXFMT I DEDI02 «, t00=0x000a, t01=0x0116}
0x10da…10fa Head {h00=0x001c, h01=0x0050, text=» PERF DISKIO,BIN3,W2 GET«, t00=0x000a, t01=0x0140}
0x10fa…1106 Head {h00=0x0008, h01=0x0050, text=»C63 «, t00=0x000a, t01=0x0160}
0x1106…1118 Head {h00=0x000e, h01=0x0050, text=» BNERR C64«, t00=0x000a, t01=0x016c}
0x1118…1134 Head {h00=0x0018, h01=0x0050, text=» CBE DEBINW4,W9,C90 «, t00=0x000a, t01=0x017e}
0x1134…114a Head {h00=0x0012, h01=0x0050, text=» ATTFMT FORMT «, t00=0x000b, t01=0x000a}
0x114a…1162 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x000b, t01=0x0020}
0x1162…1170 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x000b, t01=0x0038}
0x1170…1182 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x000b, t01=0x0046}
0x1182…119e Head {h00=0x0018, h01=0x0050, text=» IB DEBINW2,C62,C90 «, t00=0x000b, t01=0x0058}
0x119e…11b8 Head {h00=0x0016, h01=0x0050, text=» CBE ANSW,='N',C62«, t00=0x000b, t01=0x0074}
0x11b8…11e4 Head {h00=0x0028, h01=0x0050, text=» PERF DISKIO,W10,W2 GET FORMAT AGAIN«, t00=0x000b, t01=0x008e}
0x11e4…11f2 Head {h00=0x000a, h01=0x0050, text=» B C63«, t00=0x000b, t01=0x00ba}
0x11f2…11fe Head {h00=0x0008, h01=0x0050, text=»C64 «, t00=0x000b, t01=0x00c8}
0x11fe…121a Head {h00=0x0018, h01=0x0050, text=» CBE COPY,=C'Y',C68 «, t00=0x000b, t01=0x00d4}
0x121a…1234 Head {h00=0x0016, h01=0x0050, text=» MOVE ANSW,=X'00' «, t00=0x000b, t01=0x00f0}
0x1234…1258 Head {h00=0x0020, h01=0x0050, text=» ATTFMT FORMT COPY FORMAT ? «, t00=0x000b, t01=0x010a}
0x1258…126e Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x000b, t01=0x012e}
0x126e…127a Head {h00=0x0008, h01=0x0050, text=»C66 «, t00=0x000b, t01=0x0144}
0x127a…128e Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x000b, t01=0x0150}
0x128e…12aa Head {h00=0x0018, h01=0x0050, text=» IB DEBINW2,C66,C90 «, t00=0x000b, t01=0x0164}
0x12aa…12c6 Head {h00=0x0018, h01=0x0050, text=» CBE ANSW,=C'N',C62 «, t00=0x000b, t01=0x0180}
0x12c6…12d2 Head {h00=0x0008, h01=0x0050, text=»C68 «, t00=0x000c, t01=0x000c}
0x12d2…1302 Head {h00=0x002c, h01=0x0050, text=» PERF DISKIO,W13,W3 DELETE BEFORE ENTRY «, t00=0x000c, t01=0x0018}
0x1302…1336 Head {h00=0x0030, h01=0x0050, text=» PERF DISKIO,W9,W3 ENTER - ENTFMT I DEDI02 «, t00=0x000c, t01=0x0048}
0x1336…1348 Head {h00=0x000e, h01=0x0050, text=» BNERR C62«, t00=0x000c, t01=0x007c}
0x1348…135e Head {h00=0x0012, h01=0x0050, text=» ATTFMT FORMT «, t00=0x000c, t01=0x008e}
0x135e…1376 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x000c, t01=0x00a4}
0x1376…1384 Head {h00=0x000a, h01=0x0050, text=» THOME«, t00=0x000c, t01=0x00bc}
0x1384…1396 Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x000c, t01=0x00ca}
0x1396…13b2 Head {h00=0x0018, h01=0x0050, text=» IB DEBINW2,C62,C90 «, t00=0x000c, t01=0x00dc}
0x13b2…13cc Head {h00=0x0016, h01=0x0050, text=» CBE ANSW,='N',C62«, t00=0x000c, t01=0x00f8}
0x13cc…13da Head {h00=0x000a, h01=0x0050, text=» B C68«, t00=0x000c, t01=0x0112}
0x13da…13f4 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000c, t01=0x0120}
0x13f4…140e Head {h00=0x0016, h01=0x0050, text=»* CLOSE FILES * «, t00=0x000c, t01=0x013a}
0x140e…1428 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000c, t01=0x0154}
0x1428…1434 Head {h00=0x0008, h01=0x0050, text=»C90 «, t00=0x000c, t01=0x016e}
0x1434…145c Head {h00=0x0024, h01=0x0050, text=» MOVE FVOLNAME(W1),FVOLNAME(W2) «, t00=0x000c, t01=0x017a}
0x145c…1484 Head {h00=0x0024, h01=0x0050, text=» MOVE FILECODE(W1),FILECODE(W2) «, t00=0x000d, t01=0x0012}
0x1484…14ac Head {h00=0x0024, h01=0x0050, text=» MOVE FINDEXPO(W1),FINDEXPO(W2) «, t00=0x000d, t01=0x003a}
0x14ac…14ce Head {h00=0x001e, h01=0x0050, text=» MOVE FFSNR(W1),FFSNR(W2) «, t00=0x000d, t01=0x0062}
0x14ce…14f6 Head {h00=0x0024, h01=0x0050, text=» MOVE FNOOFREC(W1),FNOOFREC(W2) «, t00=0x000d, t01=0x0084}
0x14f6…1518 Head {h00=0x001e, h01=0x0050, text=» MOVE FRINF(W1),FRINF(W2) «, t00=0x000d, t01=0x00ac}
0x1518…153e Head {h00=0x0022, h01=0x0050, text=» MOVE F95PROC(W1),F95PROC(W2) «, t00=0x000d, t01=0x00ce}
0x153e…155c Head {h00=0x001a, h01=0x0050, text=» MOVE FCOUNTER(W1),W1 «, t00=0x000d, t01=0x00f4}
0x155c…1584 Head {h00=0x0024, h01=0x0050, text=» MOVE FILECODE(W1),FILECODE(W2) «, t00=0x000d, t01=0x0112}
0x1584…1598 Head {h00=0x0010, h01=0x0050, text=» SET SWITSY «, t00=0x000d, t01=0x013a}
0x1598…15ae Head {h00=0x0012, h01=0x0050, text=» PERF OPCL,W2 «, t00=0x000d, t01=0x014e}
0x15ae…15c2 Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x000d, t01=0x0164}
0x15c2…15ea Head {h00=0x0024, h01=0x0050, text=» MOVE FVOLNAME(W1),FVOLNAME(W3) «, t00=0x000d, t01=0x0178}
0x15ea…1612 Head {h00=0x0024, h01=0x0050, text=» MOVE FILECODE(W1),FILECODE(W3) «, t00=0x000e, t01=0x0010}
0x1612…163a Head {h00=0x0024, h01=0x0050, text=» MOVE FINDEXPO(W1),FINDEXPO(W3) «, t00=0x000e, t01=0x0038}
0x163a…165c Head {h00=0x001e, h01=0x0050, text=» MOVE FFSNR(W1),FFSNR(W3) «, t00=0x000e, t01=0x0060}
0x165c…1684 Head {h00=0x0024, h01=0x0050, text=» MOVE FNOOFREC(W1),FNOOFREC(W3) «, t00=0x000e, t01=0x0082}
0x1684…16a6 Head {h00=0x001e, h01=0x0050, text=» MOVE FRINF(W1),FRINF(W3) «, t00=0x000e, t01=0x00aa}
0x16a6…16cc Head {h00=0x0022, h01=0x0050, text=» MOVE F95PROC(W1),F95PROC(W3) «, t00=0x000e, t01=0x00cc}
0x16cc…16ea Head {h00=0x001a, h01=0x0050, text=» MOVE FCOUNTER(W1),W1 «, t00=0x000e, t01=0x00f2}
0x16ea…1712 Head {h00=0x0024, h01=0x0050, text=» MOVE FILECODE(W1),FILECODE(W3) «, t00=0x000e, t01=0x0110}
0x1712…1726 Head {h00=0x0010, h01=0x0050, text=» SET SWITSY «, t00=0x000e, t01=0x0138}
0x1726…173c Head {h00=0x0012, h01=0x0050, text=» PERF OPCL,W2 «, t00=0x000e, t01=0x014c}
0x173c…1750 Head {h00=0x0010, h01=0x0050, text=» BERR ERROR «, t00=0x000e, t01=0x0162}
0x1750…177c Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x000e, t01=0x0176}
0x177c…17a8 Head {h00=0x0028, h01=0x0050, text=»* CHANGE VOLUME-NAME TO 'SYSVOL' *«, t00=0x000f, t01=0x0012}
0x17a8…17d4 Head {h00=0x0028, h01=0x0050, text=»************************************«, t00=0x000f, t01=0x003e}
0x17d4…17e0 Head {h00=0x0008, h01=0x0050, text=»C98 «, t00=0x000f, t01=0x006a}
0x17e0…1800 Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD2 «, t00=0x000f, t01=0x0076}
0x1800…1826 Head {h00=0x0022, h01=0x0050, text=» CALL CHVOL,DISK,SYSBUF,SYSVOL«, t00=0x000f, t01=0x0096}
0x1826…1832 Head {h00=0x0008, h01=0x0050, text=»C99 «, t00=0x000f, t01=0x00bc}
0x1832…183e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x000f, t01=0x00c8}
0x183e…184c Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x000f, t01=0x00d4}
0x184c…185a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00e2}
0x185a…1876 Head {h00=0x0018, h01=0x0050, text=»DISKIO PROC FC,INDEX«, t00=0x000f, t01=0x00f0}
0x1876…18a0 Head {h00=0x0026, h01=0x0050, text=» MOVE FILECODE(W1),FILECODE(INDEX)«, t00=0x000f, t01=0x010c}
0x18a0…18ca Head {h00=0x0026, h01=0x0050, text=» MOVE FINDEXPO(W1),FINDEXPO(INDEX)«, t00=0x000f, t01=0x0136}
0x18ca…18ee Head {h00=0x0020, h01=0x0050, text=» MOVE FFSNR(W1),FFSNR(INDEX)«, t00=0x000f, t01=0x0160}
0x18ee…1918 Head {h00=0x0026, h01=0x0050, text=» MOVE FNOOFREC(W1),FNOOFREC(INDEX)«, t00=0x000f, t01=0x0184}
0x1918…193c Head {h00=0x0020, h01=0x0050, text=» MOVE FRINF(W1),FRINF(INDEX)«, t00=0x0010, t01=0x001e}
0x193c…1964 Head {h00=0x0024, h01=0x0050, text=» MOVE F95PROC(W1),F95PROC(INDEX)«, t00=0x0010, t01=0x0042}
0x1964…197c Head {h00=0x0014, h01=0x0050, text=» PERF DEDISC,FC «, t00=0x0010, t01=0x006a}
0x197c…1988 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0010, t01=0x0082}
0x1988…1996 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0010, t01=0x008e}
0x1996…19a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009c}
0x19a0…19aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a6}
0x19aa…19b8 Head {h00=0x000a, h01=0x0050, text=»ERROR «, t00=0x0010, t01=0x00b0}
0x19b8…19d8 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW4,W10,ERR90 «, t00=0x0010, t01=0x00be}
0x19d8…1a0a Head {h00=0x002e, h01=0x0050, text=» MOVE DEBINW4,W17 'OUTPUT FILE TOO SMALL' «, t00=0x0010, t01=0x00de}
0x1a0a…1a18 Head {h00=0x000a, h01=0x0050, text=»ERR90 «, t00=0x0010, t01=0x0110}
0x1a18…1a34 Head {h00=0x0018, h01=0x0050, text=» PERF DSKERR,DEBINW4«, t00=0x0010, t01=0x011e}
0x1a34…1a48 Head {h00=0x0010, h01=0x0050, text=» PERF CLOFIL«, t00=0x0010, t01=0x013a}
0x1a48…1a56 Head {h00=0x000a, h01=0x0050, text=» B C98«, t00=0x0010, t01=0x014e}
0x1a56…1a64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x015c}
0x1a64…1a74 Head {h00=0x000c, h01=0x0050, text=»JOB FRMT«, t00=0x0010, t01=0x016a}
0x1a74…1a80 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0010, t01=0x017a}
0x1a80…1a9c Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'COPY JOB:'«, t00=0x0010, t01=0x0186}
0x1a9c…1aac Head {h00=0x000c, h01=0x0050, text=» FINP 11«, t00=0x0011, t01=0x0012}
0x1aac…1ac2 Head {h00=0x0012, h01=0x0050, text=» FCOPY JOBNAME«, t00=0x0011, t01=0x0022}
0x1ac2…1ad6 Head {h00=0x0010, h01=0x0050, text=» FLINK FANSW«, t00=0x0011, t01=0x0038}
0x1ad6…1ae4 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0011, t01=0x004c}
0x1ae4…1aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x005a}
0x1aee…1b00 Head {h00=0x000e, h01=0x0050, text=»FORMT FRMT«, t00=0x0011, t01=0x0064}
0x1b00…1b0c Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0011, t01=0x0076}
0x1b0c…1b2c Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'COPY FORMAT:' «, t00=0x0011, t01=0x0082}
0x1b2c…1b3c Head {h00=0x000c, h01=0x0050, text=» FINP 14«, t00=0x0011, t01=0x00a2}
0x1b3c…1b52 Head {h00=0x0012, h01=0x0050, text=» FCOPY FORMAT «, t00=0x0011, t01=0x00b2}
0x1b52…1b66 Head {h00=0x0010, h01=0x0050, text=» FLINK FANSW«, t00=0x0011, t01=0x00c8}
0x1b66…1b74 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0011, t01=0x00dc}
0x1b74…1b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ea}
0x1b7e…1b90 Head {h00=0x000e, h01=0x0050, text=»FANSW FRMT«, t00=0x0011, t01=0x00f4}
0x1b90…1b9c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x0106}
0x1b9c…1bb2 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'Y/N'«, t00=0x0011, t01=0x0112}
0x1bb2…1be4 Head {h00=0x002e, h01=0x0050, text=» FKI 5,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 «, t00=0x0011, t01=0x0128}
0x1be4…1bf8 Head {h00=0x0010, h01=0x0050, text=» FCOPY ANSW «, t00=0x0011, t01=0x015a}
0x1bf8…1c04 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0011, t01=0x016e}
0x1c04…1c20 Head {h00=0x0018, h01=0x0050, text=» FKI 1,MINL=0,MAXL=0«, t00=0x0011, t01=0x017a}
0x1c20…1c34 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0012, t01=0x0008}
0x1c34…1c42 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0012, t01=0x001c}
0x1c42…1c4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002a}
0x1c4c…1c60 Head {h00=0x0010, h01=0x0050, text=»SYSTEM FRMT «, t00=0x0012, t01=0x0034}
0x1c60…1c6c Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0012, t01=0x0048}
0x1c6c…1c94 Head {h00=0x0024, h01=0x0050, text=» FTEXT 'COPY SYSTEMVARIABLES ?' «, t00=0x0012, t01=0x0054}
0x1c94…1ca8 Head {h00=0x0010, h01=0x0050, text=» FLINK FANSW«, t00=0x0012, t01=0x007c}
0x1ca8…1cb6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0012, t01=0x0090}
0x1cb6…1cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009e}
0x1cc0…1cd2 Head {h00=0x000e, h01=0x0050, text=»VALUE FRMT«, t00=0x0012, t01=0x00a8}
0x1cd2…1cde Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0012, t01=0x00ba}
0x1cde…1d00 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'COPY VALUE-SET T' «, t00=0x0012, t01=0x00c6}
0x1d00…1d10 Head {h00=0x000c, h01=0x0050, text=» FINP 17«, t00=0x0012, t01=0x00e8}
0x1d10…1d28 Head {h00=0x0014, h01=0x0050, text=» FMEL '99',BCD3A«, t00=0x0012, t01=0x00f8}
0x1d28…1d3c Head {h00=0x0010, h01=0x0050, text=» FLINK FANSW«, t00=0x0012, t01=0x0110}
0x1d3c…1d4a Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0012, t01=0x0124}
0x1d4a…1d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0132}
0x1d54…1d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013c}
0x1d5e…1d6a Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0012, t01=0x0146}
0x1d6a…1d6e Head {h00=0x4004, h01=0x0000}
0x1d6e…1d72 00 12 01 52 ┆ R┆
0x1d72…1d7a (19, 1, 8) 20 04 00 00 00 13 00 04 ┆ ┆
0x1d7a…1dac (20, 2, 50) 00 00 00 10 00 13 01 88 00 0c 00 08 04 03 00 00 00 3d 54 0a 00 14 00 0c 00 0e 00 0a 07 04 00 00 00 00 00 50 00 00 00 14 00 1c 40 04 00 00 00 14 00 2e ┆ =T P @ .┆