|
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: 10952 (0x2ac8)
Notes: pts_type(SC)
Names: »DSKERR.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/DSKERR.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/DSKERR.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/DSKERR.SC«
IDENT DSKERR UPD 80-03-24/CHST UPD 80-03-19/CHST *************************** * * * ERROR-MESSAGE ROUTINE * * APPL-ROUTINES * * * *************************** DDUM DDINIT PDIV ENTRY DSKERR ENTRY APP * EXT DERR EXT CLOFIL EXT GETVOL EXT CHANFC * DSKERR PROC ERRCODE MOVE DEBINW4,ERRCODE DISPLAY 0,W1,W0 PERF DERR PERF CLOFIL RET PEND EJECT APP PROC IB DEBINW3 APPL-VALUE C A1,A2,A3 C A4,A5,A6 C A7,A8,A9 C A10,A11,A12 C A13,A14,A15 MOVE DEBINW4,W2 'UNDEFINED ERROR' B ANOK **************** * APPL-ERRORS **************** A3E MOVE DEBINW4,W3 'I/O-ERROR' B ANOK A6E MOVE DEBINW4,W6 'ILLEGAL VALUE' B ANOK A11E MOVE DEBINW4,W11 'VOL-NAME MUST BE SYSVOL' ANOK MOVE DEBINW3,W3 NOT OK AERR RET PEND AOK MOVE DEBINW3,W0 OK B AERR EJECT A1 *************** * YES OR NO * *************** XCOPY STR1A,W0,W1,DEINPUT,W0 CBE STR1A,=C'Y',AA11 CBE STR1A,=C'N',AA11 B A6E AA11 MOVE DEBINW2,W17 ENT-KEY B AOK * * A2 XCOPY STR1A,W0,W1,DEINPUT,W0 APPL=2 CBE STR1A,=C'1',A21 SYSTEMFILE CBE STR1A,=C'2',AOK USERFILE CBE STR1A,=C'3',AOK USERDEFINED-FILE B A6E A21 CBE PRNUM,=D'3',AOK IF DELETE FILE CBE VOLNAM,SYSVOL,AOK B A11E 'VOL-NAME MUST BE "SYSVOL"' EJECT ******************************** * NO. OF RECORDS - SYSTEMFILE ******************************** A3 MOVE BCD13A,DEINPUT CBG BCD13A,=D'32767',A6E MAX.VALUE FOR BIN-FIELD MOVE BIN1,BCD13A CBE BIN1,W0,A32 CBL BIN1,W20,A6E A32 MOVE BIN2,FRESEC CBE BIN1,W0,A34 CBG BIN1,BIN2,A6E B AOK A34 MOVE NOREC,BIN2 MOVE DEINPUT,NOREC DISPLAY 1,W2,W2 B AOK EJECT ****************************** * NO. OF RECORDS - USERFILE + USERDEFINED FILE * ************************************************** A4 CBNE FTYPE,=D'3',A41 * USERDEFINED FILE * RSIZE = SIZE OF RECORDS * BLFACT = BLOCKING FACTOR * NOREC = NO. OF RECORDS * FRESEC = NO. OF FREE RECORDS ON SPEC. VOLUME * MOVE BIN1,RSIZE ADD BIN1,W1 MOVE BIN2,BLFACT MUL BIN1,BIN2 MOVE BIN3,W0 * A40 * ADD BIN3,W1 SUB BIN1,SECLEN BP A40 * * BIN3 = NO. OF RECORDS NEADED FOR EACH BLOCK * MOVE BIN1,FRESEC DIV BIN1,BIN3 * * BIN1 = MAX NO. OF BLOCKS TO BE CREATED ON SPEC VOLUME * MUL BIN2,BIN1 BP A411 BZ A411 * OVERFLOW... MOVE BIN2,=W'32767' * * BIN2 = MAX NO. OF RECORDS FOR SPEC FILE * B A411 A41 MOVE BIN2,FRESEC MOVE BIN3,BLFACT DIV BIN2,BIN3 USERFILE A411 MOVE BCD13A,DEINPUT CBG BCD13A,=D'32767',A6E MAX.VALUE FOR BIN-FIELD MOVE BIN1,BCD13A CBNE BIN1,W0,A45 MOVE NOREC,BIN2 MOVE DEINPUT,NOREC DISPLAY 1,W3,W3 USERFILE B AOK A45 CBL BIN1,W20,A6E CBG BIN1,BIN2,A6E B AOK EJECT ***************** * CREATE FILE * UNIT NO. 0-9 ***************** A5 MOVE BCD2A,DEINPUT MOVE FCOD,BCD2A PERF AUNIT ERASE 1,W2,W2 ERASE ON SCREEN CALL CHANFC,DISK,FCOD CHANGE FILE-CODE CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME CMP RETCOD,W0 BNE A3E DISPLAY 2,W1,W1 VOL-NAME B AOK EJECT * * FILE NAME MAX 8 CHAR. * LEADING SPACES ARE IGNORED A6 MOVE FILNAM,DEINPUT CBE FILNAM,SYSFIL,A6E CBE FILNAM,USEFIL,A6E A62 MOVE STR15A,=X'20' SPACE INSRT DEINPUT,DEBINW1,W8,STR15A,W0 A64 MOVE DEBIN4,W0 MATCH DEINPUT,DEBIN4,W1,STR15A,W0,W1 BNOK AOK NO LEADING SPACES DLETE DEINPUT,W0,W1 DELEATE LEADING SPACES B A64 EJECT ***************** * PROGRAM NO. * ***************** A7 MOVE DEBINW2,W17 IND. ENTER-KEY MOVE BCD2A,DEINPUT PROGRAM NO. MOVE BIN1,BCD2A IB BIN1,AOK,AOK,AOK,AOK,A6E,A6E,AOK,AOK,A6E B A6E EJECT ******************* * CREATE VOLUME * * UNIT NO. 0-9 * ******************* A8 MOVE BCD2A,DEINPUT MOVE FCOD,BCD2A PERF AUNIT CALL CHANFC,DISK,FCOD CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME ERASE 1,W2,W2 CBNE RETCOD,W0,A93 DISPLAY 2,W1,W1 FINP-FIELD B AOK EJECT *************************** * COPY DISK OR FILE : * * INPUT UNIT NO. * *************************** A9 MOVE BCD2A,DEINPUT MOVE FCOD,BCD2A PERF AUNIT ERASE 1,W2,W2 MOVE FCOD1,FCOD XCOPY PBLOCK,W6,W1,FCOD,W1 FC INPUT DISK CALL CHANFC,DISK,FCOD CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME CBNE RETCOD,W0,A93 DISPLAY 2,W1,W1 FINP-FIELD A91 CBE PRNUM,=D'5',A92 IF COPY USERFIL CBE PRNUM,=D'7',A92 IF CHANGE VOLUME-NAME * COPY SYSFIL OR SYSVOL * CBNE VOLNAM,SYSVOL,A94 A92 B AOK A93 B A3E A94 B A11E EJECT *************************** * COPY DISK OR FILE : * * OUTPUT UNIT NO. * *************************** A10 MOVE STR1A,DEINPUT CBNE STR1A,UNIT,A101 B A6E A101 MOVE BCD2A,STR1A MOVE FCOD,BCD2A PERF AUNIT ERASE 1,W4,W4 MOVE FCOD2,FCOD XCOPY PBLOCK,W7,W1,FCOD,W1 FC OUTPUT DISK CALL CHANFC,DISK,FCOD CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME CBNE RETCOD,W0,A93 DISPLAY 2,W2,W2 FINP-FIELD B A91 EJECT ******************************** * USERDEFINED FILE * * SIZE OF RECORDS * ******************************** A11 MOVE RSIZE,DEINPUT MOVE BIN1,RSIZE CBL BIN1,W1,A111 CBG BIN1,=W'2047',A111 * SIZE OF RECORDS IS IN THE INTERVAL 1-2047 B AOK A111 B A6E * ************************** * USERFILE * * NO.OF SECTORS/RECORD * ************************** A12 MOVE BLFACT,DEINPUT MOVE BIN1,BLFACT CBE BIN1,W0,A111 B AOK EJECT ************************ * DISC TYPE * ************************ * INPUT: DISC TYPE, 1-9 * OUTPUT: DISC TYPE IN DEBIN3 * STORAGE TYPE IN DEBIN2 * INPUT OUPPUT,DEBIN3 DEBIN2 * 1 PTS-6875,2.5MB,PACKED 1 3 * 2 PTS-6875,2.5MB,UNPACKED 1 2 * 3 PTS-6876,5MB,PACKED 2 3 * 4 PTS-6876,5MB,UNPACKED 2 2 * 5 PTS-8863,MINI FIX 3 - * 6 PTS-6877,80MB 4 - * 7 VACANT * 8 PTS-6879,0.25MB,FLEXIBLE DISC 8 - * 9 PTS- ,1MB,FLEXIBLE DISC 9 - * A13 MOVE ACK(W2),DEINPUT MOVE DEBIN3,ACK(W2) IB DEBIN3,A131,A132,A133,A134 C A135,A135,A6E,AOK,AOK B A6E A131 MOVE DEBIN3,W1 DISC TYPE MOVE DEBIN2,W3 PACKED B AOK A132 MOVE DEBIN3,W1 DISC TYPE MOVE DEBIN2,W2 UNPACKED B AOK A133 MOVE DEBIN3,W2 DISC TYPE MOVE DEBIN2,W3 PACKED B AOK A134 MOVE DEBIN3,W2 DISC TYPE MOVE DEBIN2,W2 UNPACKED B AOK A135 SUB DEBIN3,W2 DISC TYPE =3 OR 4 B AOK EJECT ***************** * VOLUME-NAME * ***************** A14 B A62 EJECT ***************************** * BLOCKING FACTOR 1-255 ***************************** A15 MOVE BLFACT,DEINPUT MOVE BIN1,BLFACT CBL BIN1,W1,A111 CBG BIN1,=W'255',A111 MOVE BIN2,RSIZE ADD BIN2,W1 MUL BIN2,BIN1 BP A151 B A111 A151 CBG BIN2,=W'2048',A111 * SIZE OF RECORDS 1-2047 * BLOCKING FACTOR 1-255 * (SIZE OF RECORDS + 1) * BLOCKING FACTOR 1-2048 B AOK EJECT ************************************** * THE CONECTION BETWEEN UNIT NO AND DISC * IS DONE IN DATA DIVISION AND IS DESCRIBED * IN SYSTEM GENERATION * UNIT NO. : 0-9 ************************************** * AUNIT PROC XCOPY FCOD,W1,W1,DUNIT,FCOD RET PEND END
0x0000…0028 (0, 0, 400) Head {h00=0x0024, h01=0x0050, text=» IDENT DSKERR UPD 80-03-24/CHST «, t00=0x0000, t01=0x0004}
0x0028…0044 Head {h00=0x0018, h01=0x0050, text=» UPD 80-03-19/CHST«, t00=0x0000, t01=0x002c}
0x0044…0068 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x0048}
0x0068…008c Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0000, t01=0x006c}
0x008c…00b0 Head {h00=0x0020, h01=0x0050, text=»* ERROR-MESSAGE ROUTINE * «, t00=0x0000, t01=0x0090}
0x00b0…00d4 Head {h00=0x0020, h01=0x0050, text=»* APPL-ROUTINES * «, t00=0x0000, t01=0x00b4}
0x00d4…00f8 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0000, t01=0x00d8}
0x00f8…011c Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0000, t01=0x00fc}
0x011c…0130 Head {h00=0x0010, h01=0x000c, text=» DDUM DDINIT«, t00=0x0000, t01=0x0120}
0x0130…013e Head {h00=0x000a, h01=0x0005, text=» PDIV «, t00=0x0000, t01=0x0134}
0x013e…0154 Head {h00=0x0012, h01=0x0050, text=» ENTRY DSKERR «, t00=0x0000, t01=0x0142}
0x0154…0166 Head {h00=0x000e, h01=0x0050, text=» ENTRY APP«, t00=0x0000, t01=0x0158}
0x0166…0170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016a}
0x0170…0182 Head {h00=0x000e, h01=0x0050, text=» EXT DERR «, t00=0x0000, t01=0x0174}
0x0182…0196 Head {h00=0x0010, h01=0x0050, text=» EXT CLOFIL «, t00=0x0000, t01=0x0186}
0x0196…01aa Head {h00=0x0010, h01=0x0050, text=» EXT GETVOL «, t00=0x0001, t01=0x000a}
0x01aa…01be Head {h00=0x0010, h01=0x0050, text=» EXT CHANFC «, t00=0x0001, t01=0x001e}
0x01be…01c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0032}
0x01c8…01e4 Head {h00=0x0018, h01=0x0050, text=»DSKERR PROC ERRCODE «, t00=0x0001, t01=0x003c}
0x01e4…0202 Head {h00=0x001a, h01=0x0050, text=» MOVE DEBINW4,ERRCODE «, t00=0x0001, t01=0x0058}
0x0202…021a Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x0001, t01=0x0076}
0x021a…022c Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x0001, t01=0x008e}
0x022c…0240 Head {h00=0x0010, h01=0x0050, text=» PERF CLOFIL«, t00=0x0001, t01=0x00a0}
0x0240…024c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0001, t01=0x00b4}
0x024c…025a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0001, t01=0x00c0}
0x025a…0268 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00ce}
0x0268…0278 Head {h00=0x000c, h01=0x0050, text=»APP PROC«, t00=0x0001, t01=0x00dc}
0x0278…0298 Head {h00=0x001c, h01=0x0050, text=» IB DEBINW3 APPL-VALUE C«, t00=0x0001, t01=0x00ec}
0x0298…02ae Head {h00=0x0012, h01=0x0050, text=» A1,A2,A3 C «, t00=0x0001, t01=0x010c}
0x02ae…02c4 Head {h00=0x0012, h01=0x0050, text=» A4,A5,A6 C «, t00=0x0001, t01=0x0122}
0x02c4…02da Head {h00=0x0012, h01=0x0050, text=» A7,A8,A9 C «, t00=0x0001, t01=0x0138}
0x02da…02f2 Head {h00=0x0014, h01=0x0050, text=» A10,A11,A12 C«, t00=0x0001, t01=0x014e}
0x02f2…0308 Head {h00=0x0012, h01=0x0050, text=» A13,A14,A15 «, t00=0x0001, t01=0x0166}
0x0308…0332 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,W2 'UNDEFINED ERROR'«, t00=0x0001, t01=0x017c}
0x0332…0342 Head {h00=0x000c, h01=0x0050, text=» B ANOK «, t00=0x0002, t01=0x0016}
0x0342…035a Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0002, t01=0x0026}
0x035a…0370 Head {h00=0x0012, h01=0x0050, text=»* APPL-ERRORS«, t00=0x0002, t01=0x003e}
0x0370…0388 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0002, t01=0x0054}
0x0388…0394 Head {h00=0x0008, h01=0x0050, text=»A3E «, t00=0x0002, t01=0x006c}
0x0394…03b8 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW4,W3 'I/O-ERROR'«, t00=0x0002, t01=0x0078}
0x03b8…03c8 Head {h00=0x000c, h01=0x0050, text=» B ANOK «, t00=0x0002, t01=0x009c}
0x03c8…03f4 Head {h00=0x0028, h01=0x0050, text=»A6E MOVE DEBINW4,W6 'ILLEGAL VALUE' «, t00=0x0002, t01=0x00ac}
0x03f4…0404 Head {h00=0x000c, h01=0x0050, text=» B ANOK «, t00=0x0002, t01=0x00d8}
0x0404…0410 Head {h00=0x0008, h01=0x0050, text=»A11E«, t00=0x0002, t01=0x00e8}
0x0410…0444 Head {h00=0x0030, h01=0x0050, text=» MOVE DEBINW4,W11 'VOL-NAME MUST BE SYSVOL' «, t00=0x0002, t01=0x00f4}
0x0444…0450 Head {h00=0x0008, h01=0x0050, text=»ANOK«, t00=0x0002, t01=0x0128}
0x0450…0470 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW3,W3 NOT OK «, t00=0x0002, t01=0x0134}
0x0470…047c Head {h00=0x0008, h01=0x0050, text=»AERR«, t00=0x0002, t01=0x0154}
0x047c…0488 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x0160}
0x0488…0496 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x016c}
0x0496…04b4 Head {h00=0x001a, h01=0x0050, text=»AOK MOVE DEBINW3,W0 OK«, t00=0x0002, t01=0x017a}
0x04b4…04c4 Head {h00=0x000c, h01=0x0050, text=» B AERR «, t00=0x0003, t01=0x0008}
0x04c4…04d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0018}
0x04d2…04dc Head {h00=0x0006, h01=0x0050, text=»A1«, t00=0x0003, t01=0x0026}
0x04dc…04f4 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0003, t01=0x0030}
0x04f4…050c Head {h00=0x0014, h01=0x0050, text=»* YES OR NO * «, t00=0x0003, t01=0x0048}
0x050c…0524 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0003, t01=0x0060}
0x0524…054a Head {h00=0x0022, h01=0x0050, text=» XCOPY STR1A,W0,W1,DEINPUT,W0 «, t00=0x0003, t01=0x0078}
0x054a…0568 Head {h00=0x001a, h01=0x0050, text=» CBE STR1A,=C'Y',AA11 «, t00=0x0003, t01=0x009e}
0x0568…0586 Head {h00=0x001a, h01=0x0050, text=» CBE STR1A,=C'N',AA11 «, t00=0x0003, t01=0x00bc}
0x0586…0594 Head {h00=0x000a, h01=0x0050, text=» B A6E«, t00=0x0003, t01=0x00da}
0x0594…05a0 Head {h00=0x0008, h01=0x0050, text=»AA11«, t00=0x0003, t01=0x00e8}
0x05a0…05c2 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW2,W17 ENT-KEY «, t00=0x0003, t01=0x00f4}
0x05c2…05d0 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0003, t01=0x0116}
0x05d0…05da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0124}
0x05da…05e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012e}
0x05e4…0612 Head {h00=0x002a, h01=0x0050, text=»A2 XCOPY STR1A,W0,W1,DEINPUT,W0 APPL=2«, t00=0x0003, t01=0x0138}
0x0612…063a Head {h00=0x0024, h01=0x0050, text=» CBE STR1A,=C'1',A21 SYSTEMFILE «, t00=0x0003, t01=0x0166}
0x063a…0660 Head {h00=0x0022, h01=0x0050, text=» CBE STR1A,=C'2',AOK USERFILE «, t00=0x0003, t01=0x018e}
0x0660…068e Head {h00=0x002a, h01=0x0050, text=» CBE STR1A,=C'3',AOK USERDEFINED-FILE «, t00=0x0004, t01=0x0024}
0x068e…069c Head {h00=0x000a, h01=0x0050, text=» B A6E«, t00=0x0004, t01=0x0052}
0x069c…06a8 Head {h00=0x0008, h01=0x0050, text=»A21 «, t00=0x0004, t01=0x0060}
0x06a8…06d4 Head {h00=0x0028, h01=0x0050, text=» CBE PRNUM,=D'3',AOK IF DELETE FILE «, t00=0x0004, t01=0x006c}
0x06d4…06f2 Head {h00=0x001a, h01=0x0050, text=» CBE VOLNAM,SYSVOL,AOK«, t00=0x0004, t01=0x0098}
0x06f2…071e Head {h00=0x0028, h01=0x0050, text=» B A11E 'VOL-NAME MUST BE "SYSVOL"' «, t00=0x0004, t01=0x00b6}
0x071e…072c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00e2}
0x072c…0754 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0004, t01=0x00f0}
0x0754…077a Head {h00=0x0022, h01=0x0050, text=»* NO. OF RECORDS - SYSTEMFILE«, t00=0x0004, t01=0x0118}
0x077a…07a2 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0004, t01=0x013e}
0x07a2…07ac Head {h00=0x0006, h01=0x0050, text=»A3«, t00=0x0004, t01=0x0166}
0x07ac…07c8 Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,DEINPUT«, t00=0x0004, t01=0x0170}
0x07c8…0802 Head {h00=0x0036, h01=0x0050, text=» CBG BCD13A,=D'32767',A6E MAX.VALUE FOR BIN-FIELD «, t00=0x0004, t01=0x018c}
0x0802…081c Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,BCD13A «, t00=0x0005, t01=0x0036}
0x081c…0834 Head {h00=0x0014, h01=0x0050, text=» CBE BIN1,W0,A32«, t00=0x0005, t01=0x0050}
0x0834…084e Head {h00=0x0016, h01=0x0050, text=» CBL BIN1,W20,A6E «, t00=0x0005, t01=0x0068}
0x084e…085a Head {h00=0x0008, h01=0x0050, text=»A32 «, t00=0x0005, t01=0x0082}
0x085a…0874 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN2,FRESEC «, t00=0x0005, t01=0x008e}
0x0874…088c Head {h00=0x0014, h01=0x0050, text=» CBE BIN1,W0,A34«, t00=0x0005, t01=0x00a8}
0x088c…08a6 Head {h00=0x0016, h01=0x0050, text=» CBG BIN1,BIN2,A6E«, t00=0x0005, t01=0x00c0}
0x08a6…08b4 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0005, t01=0x00da}
0x08b4…08c0 Head {h00=0x0008, h01=0x0050, text=»A34 «, t00=0x0005, t01=0x00e8}
0x08c0…08d8 Head {h00=0x0014, h01=0x0050, text=» MOVE NOREC,BIN2«, t00=0x0005, t01=0x00f4}
0x08d8…08f4 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,NOREC «, t00=0x0005, t01=0x010c}
0x08f4…090c Head {h00=0x0014, h01=0x0050, text=» DISPLAY 1,W2,W2«, t00=0x0005, t01=0x0128}
0x090c…091a Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0005, t01=0x0140}
0x091a…0928 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x014e}
0x0928…094e Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0005, t01=0x015c}
0x094e…0988 Head {h00=0x0036, h01=0x0050, text=»* NO. OF RECORDS - USERFILE + USERDEFINED FILE *«, t00=0x0005, t01=0x0182}
0x0988…09c2 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0006, t01=0x002c}
0x09c2…09cc Head {h00=0x0006, h01=0x0050, text=»A4«, t00=0x0006, t01=0x0066}
0x09cc…09ea Head {h00=0x001a, h01=0x0050, text=» CBNE FTYPE,=D'3',A41 «, t00=0x0006, t01=0x0070}
0x09ea…0a04 Head {h00=0x0016, h01=0x0050, text=»* USERDEFINED FILE«, t00=0x0006, t01=0x008e}
0x0a04…0a26 Head {h00=0x001e, h01=0x0050, text=»* RSIZE = SIZE OF RECORDS «, t00=0x0006, t01=0x00a8}
0x0a26…0a48 Head {h00=0x001e, h01=0x0050, text=»* BLFACT = BLOCKING FACTOR«, t00=0x0006, t01=0x00ca}
0x0a48…0a68 Head {h00=0x001c, h01=0x0050, text=»* NOREC = NO. OF RECORDS«, t00=0x0006, t01=0x00ec}
0x0a68…0a9e Head {h00=0x0032, h01=0x0050, text=»* FRESEC = NO. OF FREE RECORDS ON SPEC. VOLUME«, t00=0x0006, t01=0x010c}
0x0a9e…0aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0142}
0x0aa8…0ac0 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN1,RSIZE«, t00=0x0006, t01=0x014c}
0x0ac0…0ad4 Head {h00=0x0010, h01=0x0050, text=» ADD BIN1,W1«, t00=0x0006, t01=0x0164}
0x0ad4…0aee Head {h00=0x0016, h01=0x0050, text=» MOVE BIN2,BLFACT «, t00=0x0006, t01=0x0178}
0x0aee…0b04 (7, 0, 400) Head {h00=0x0012, h01=0x0050, text=» MUL BIN1,BIN2«, t00=0x0007, t01=0x0004}
0x0b04…0b1a Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x0007, t01=0x001a}
0x0b1a…0b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0030}
0x0b24…0b30 Head {h00=0x0008, h01=0x0050, text=»A40 «, t00=0x0007, t01=0x003a}
0x0b30…0b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0046}
0x0b3a…0b4e Head {h00=0x0010, h01=0x0050, text=» ADD BIN3,W1«, t00=0x0007, t01=0x0050}
0x0b4e…0b66 Head {h00=0x0014, h01=0x0050, text=» SUB BIN1,SECLEN«, t00=0x0007, t01=0x0064}
0x0b66…0b76 Head {h00=0x000c, h01=0x0050, text=» BP A40 «, t00=0x0007, t01=0x007c}
0x0b76…0b80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008c}
0x0b80…0bb6 Head {h00=0x0032, h01=0x0050, text=»* BIN3 = NO. OF RECORDS NEADED FOR EACH BLOCK «, t00=0x0007, t01=0x0096}
0x0bb6…0bc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00cc}
0x0bc0…0bda Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,FRESEC «, t00=0x0007, t01=0x00d6}
0x0bda…0bf0 Head {h00=0x0012, h01=0x0050, text=» DIV BIN1,BIN3«, t00=0x0007, t01=0x00f0}
0x0bf0…0bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x0bfa…0c3a Head {h00=0x003c, h01=0x0050, text=»* BIN1 = MAX NO. OF BLOCKS TO BE CREATED ON SPEC VOLUME «, t00=0x0007, t01=0x0110}
0x0c3a…0c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0150}
0x0c44…0c5a Head {h00=0x0012, h01=0x0050, text=» MUL BIN2,BIN1«, t00=0x0007, t01=0x015a}
0x0c5a…0c6a Head {h00=0x000c, h01=0x0050, text=» BP A411«, t00=0x0007, t01=0x0170}
0x0c6a…0c7a Head {h00=0x000c, h01=0x0050, text=» BZ A411«, t00=0x0007, t01=0x0180}
0x0c7a…0c90 Head {h00=0x0012, h01=0x0050, text=»* OVERFLOW... «, t00=0x0007, t01=0x0190}
0x0c90…0cac Head {h00=0x0018, h01=0x0050, text=» MOVE BIN2,=W'32767'«, t00=0x0008, t01=0x0016}
0x0cac…0cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0032}
0x0cb6…0ce8 Head {h00=0x002e, h01=0x0050, text=»* BIN2 = MAX NO. OF RECORDS FOR SPEC FILE «, t00=0x0008, t01=0x003c}
0x0ce8…0cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006e}
0x0cf2…0d02 Head {h00=0x000c, h01=0x0050, text=» B A411 «, t00=0x0008, t01=0x0078}
0x0d02…0d0e Head {h00=0x0008, h01=0x0050, text=»A41 «, t00=0x0008, t01=0x0088}
0x0d0e…0d28 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN2,FRESEC «, t00=0x0008, t01=0x0094}
0x0d28…0d42 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN3,BLFACT «, t00=0x0008, t01=0x00ae}
0x0d42…0d62 Head {h00=0x001c, h01=0x0050, text=» DIV BIN2,BIN3 USERFILE «, t00=0x0008, t01=0x00c8}
0x0d62…0d6e Head {h00=0x0008, h01=0x0050, text=»A411«, t00=0x0008, t01=0x00e8}
0x0d6e…0d8a Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,DEINPUT«, t00=0x0008, t01=0x00f4}
0x0d8a…0dc4 Head {h00=0x0036, h01=0x0050, text=» CBG BCD13A,=D'32767',A6E MAX.VALUE FOR BIN-FIELD «, t00=0x0008, t01=0x0110}
0x0dc4…0dde Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,BCD13A «, t00=0x0008, t01=0x014a}
0x0dde…0df8 Head {h00=0x0016, h01=0x0050, text=» CBNE BIN1,W0,A45 «, t00=0x0008, t01=0x0164}
0x0df8…0e10 Head {h00=0x0014, h01=0x0050, text=» MOVE NOREC,BIN2«, t00=0x0008, t01=0x017e}
0x0e10…0e2c Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,NOREC «, t00=0x0009, t01=0x0008}
0x0e2c…0e4e Head {h00=0x001e, h01=0x0050, text=» DISPLAY 1,W3,W3 USERFILE «, t00=0x0009, t01=0x0024}
0x0e4e…0e5c Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0009, t01=0x0046}
0x0e5c…0e68 Head {h00=0x0008, h01=0x0050, text=»A45 «, t00=0x0009, t01=0x0054}
0x0e68…0e82 Head {h00=0x0016, h01=0x0050, text=» CBL BIN1,W20,A6E «, t00=0x0009, t01=0x0060}
0x0e82…0e9c Head {h00=0x0016, h01=0x0050, text=» CBG BIN1,BIN2,A6E«, t00=0x0009, t01=0x007a}
0x0e9c…0eaa Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0009, t01=0x0094}
0x0eaa…0eb8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00a2}
0x0eb8…0ed2 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0009, t01=0x00b0}
0x0ed2…0ee8 Head {h00=0x0012, h01=0x0050, text=»* CREATE FILE«, t00=0x0009, t01=0x00ca}
0x0ee8…0f00 Head {h00=0x0014, h01=0x0050, text=»* UNIT NO. 0-9 «, t00=0x0009, t01=0x00e0}
0x0f00…0f1a Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0009, t01=0x00f8}
0x0f1a…0f24 Head {h00=0x0006, h01=0x0050, text=»A5«, t00=0x0009, t01=0x0112}
0x0f24…0f40 Head {h00=0x0018, h01=0x0050, text=» MOVE BCD2A,DEINPUT «, t00=0x0009, t01=0x011c}
0x0f40…0f58 Head {h00=0x0014, h01=0x0050, text=» MOVE FCOD,BCD2A«, t00=0x0009, t01=0x0138}
0x0f58…0f6c Head {h00=0x0010, h01=0x0050, text=» PERF AUNIT «, t00=0x0009, t01=0x0150}
0x0f6c…0f92 Head {h00=0x0022, h01=0x0050, text=» ERASE 1,W2,W2 ERASE ON SCREEN«, t00=0x0009, t01=0x0164}
0x0f92…0fc2 Head {h00=0x002c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD CHANGE FILE-CODE «, t00=0x0009, t01=0x018a}
0x0fc2…1000 Head {h00=0x003a, h01=0x0050, text=» CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME«, t00=0x000a, t01=0x002a}
0x1000…1016 Head {h00=0x0012, h01=0x0050, text=» CMP RETCOD,W0«, t00=0x000a, t01=0x0068}
0x1016…1026 Head {h00=0x000c, h01=0x0050, text=» BNE A3E«, t00=0x000a, t01=0x007e}
0x1026…1048 Head {h00=0x001e, h01=0x0050, text=» DISPLAY 2,W1,W1 VOL-NAME «, t00=0x000a, t01=0x008e}
0x1048…1056 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x000a, t01=0x00b0}
0x1056…1064 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00be}
0x1064…106e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00cc}
0x106e…1094 Head {h00=0x0022, h01=0x0050, text=»* FILE NAME MAX 8 CHAR.«, t00=0x000a, t01=0x00d6}
0x1094…10be Head {h00=0x0026, h01=0x0050, text=»* LEADING SPACES ARE IGNORED «, t00=0x000a, t01=0x00fc}
0x10be…10c8 Head {h00=0x0006, h01=0x0050, text=»A6«, t00=0x000a, t01=0x0126}
0x10c8…10e4 Head {h00=0x0018, h01=0x0050, text=» MOVE FILNAM,DEINPUT«, t00=0x000a, t01=0x0130}
0x10e4…1102 Head {h00=0x001a, h01=0x0050, text=» CBE FILNAM,SYSFIL,A6E«, t00=0x000a, t01=0x014c}
0x1102…1120 Head {h00=0x001a, h01=0x0050, text=» CBE FILNAM,USEFIL,A6E«, t00=0x000a, t01=0x016a}
0x1120…112c Head {h00=0x0008, h01=0x0050, text=»A62 «, t00=0x000a, t01=0x0188}
0x112c…114e (11, 0, 400) Head {h00=0x001e, h01=0x0050, text=» MOVE STR15A,=X'20' SPACE «, t00=0x000b, t01=0x0004}
0x114e…117a Head {h00=0x0028, h01=0x0050, text=» INSRT DEINPUT,DEBINW1,W8,STR15A,W0 «, t00=0x000b, t01=0x0026}
0x117a…1186 Head {h00=0x0008, h01=0x0050, text=»A64 «, t00=0x000b, t01=0x0052}
0x1186…119e Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN4,W0 «, t00=0x000b, t01=0x005e}
0x119e…11cc Head {h00=0x002a, h01=0x0050, text=» MATCH DEINPUT,DEBIN4,W1,STR15A,W0,W1 «, t00=0x000b, t01=0x0076}
0x11cc…11f0 Head {h00=0x0020, h01=0x0050, text=» BNOK AOK NO LEADING SPACES «, t00=0x000b, t01=0x00a4}
0x11f0…1224 Head {h00=0x0030, h01=0x0050, text=» DLETE DEINPUT,W0,W1 DELEATE LEADING SPACES «, t00=0x000b, t01=0x00c8}
0x1224…1232 Head {h00=0x000a, h01=0x0050, text=» B A64«, t00=0x000b, t01=0x00fc}
0x1232…1240 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x010a}
0x1240…125a Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000b, t01=0x0118}
0x125a…1274 Head {h00=0x0016, h01=0x0050, text=»* PROGRAM NO. * «, t00=0x000b, t01=0x0132}
0x1274…128e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000b, t01=0x014c}
0x128e…1298 Head {h00=0x0006, h01=0x0050, text=»A7«, t00=0x000b, t01=0x0166}
0x1298…12c0 Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW2,W17 IND. ENTER-KEY«, t00=0x000b, t01=0x0170}
0x12c0…12e8 Head {h00=0x0024, h01=0x0050, text=» MOVE BCD2A,DEINPUT PROGRAM NO. «, t00=0x000c, t01=0x0008}
0x12e8…1300 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN1,BCD2A«, t00=0x000c, t01=0x0030}
0x1300…1334 Head {h00=0x0030, h01=0x0050, text=» IB BIN1,AOK,AOK,AOK,AOK,A6E,A6E,AOK,AOK,A6E«, t00=0x000c, t01=0x0048}
0x1334…1342 Head {h00=0x000a, h01=0x0050, text=» B A6E«, t00=0x000c, t01=0x007c}
0x1342…1350 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x008a}
0x1350…136c Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x0098}
0x136c…1388 Head {h00=0x0018, h01=0x0050, text=»* CREATE VOLUME * «, t00=0x000c, t01=0x00b4}
0x1388…13a4 Head {h00=0x0018, h01=0x0050, text=»* UNIT NO. 0-9 * «, t00=0x000c, t01=0x00d0}
0x13a4…13c0 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x000c, t01=0x00ec}
0x13c0…13ca Head {h00=0x0006, h01=0x0050, text=»A8«, t00=0x000c, t01=0x0108}
0x13ca…13e6 Head {h00=0x0018, h01=0x0050, text=» MOVE BCD2A,DEINPUT «, t00=0x000c, t01=0x0112}
0x13e6…13fe Head {h00=0x0014, h01=0x0050, text=» MOVE FCOD,BCD2A«, t00=0x000c, t01=0x012e}
0x13fe…1412 Head {h00=0x0010, h01=0x0050, text=» PERF AUNIT «, t00=0x000c, t01=0x0146}
0x1412…1430 Head {h00=0x001a, h01=0x0050, text=» CALL CHANFC,DISK,FCOD«, t00=0x000c, t01=0x015a}
0x1430…146e Head {h00=0x003a, h01=0x0050, text=» CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME«, t00=0x000c, t01=0x0178}
0x146e…1484 Head {h00=0x0012, h01=0x0050, text=» ERASE 1,W2,W2«, t00=0x000d, t01=0x0026}
0x1484…14a0 Head {h00=0x0018, h01=0x0050, text=» CBNE RETCOD,W0,A93 «, t00=0x000d, t01=0x003c}
0x14a0…14c4 Head {h00=0x0020, h01=0x0050, text=» DISPLAY 2,W1,W1 FINP-FIELD «, t00=0x000d, t01=0x0058}
0x14c4…14d2 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x000d, t01=0x007c}
0x14d2…14e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x008a}
0x14e0…1504 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000d, t01=0x0098}
0x1504…1528 Head {h00=0x0020, h01=0x0050, text=»* COPY DISK OR FILE : * «, t00=0x000d, t01=0x00bc}
0x1528…154c Head {h00=0x0020, h01=0x0050, text=»* INPUT UNIT NO. * «, t00=0x000d, t01=0x00e0}
0x154c…1570 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000d, t01=0x0104}
0x1570…157a Head {h00=0x0006, h01=0x0050, text=»A9«, t00=0x000d, t01=0x0128}
0x157a…1596 Head {h00=0x0018, h01=0x0050, text=» MOVE BCD2A,DEINPUT «, t00=0x000d, t01=0x0132}
0x1596…15ae Head {h00=0x0014, h01=0x0050, text=» MOVE FCOD,BCD2A«, t00=0x000d, t01=0x014e}
0x15ae…15c2 Head {h00=0x0010, h01=0x0050, text=» PERF AUNIT «, t00=0x000d, t01=0x0166}
0x15c2…15d8 Head {h00=0x0012, h01=0x0050, text=» ERASE 1,W2,W2«, t00=0x000d, t01=0x017a}
0x15d8…15f0 Head {h00=0x0014, h01=0x0050, text=» MOVE FCOD1,FCOD«, t00=0x000d, t01=0x0190}
0x15f0…1622 Head {h00=0x002e, h01=0x0050, text=» XCOPY PBLOCK,W6,W1,FCOD,W1 FC INPUT DISK «, t00=0x000e, t01=0x0018}
0x1622…1640 Head {h00=0x001a, h01=0x0050, text=» CALL CHANFC,DISK,FCOD«, t00=0x000e, t01=0x004a}
0x1640…167e Head {h00=0x003a, h01=0x0050, text=» CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME«, t00=0x000e, t01=0x0068}
0x167e…169a Head {h00=0x0018, h01=0x0050, text=» CBNE RETCOD,W0,A93 «, t00=0x000e, t01=0x00a6}
0x169a…16be Head {h00=0x0020, h01=0x0050, text=» DISPLAY 2,W1,W1 FINP-FIELD «, t00=0x000e, t01=0x00c2}
0x16be…16ca Head {h00=0x0008, h01=0x0050, text=»A91 «, t00=0x000e, t01=0x00e6}
0x16ca…16f6 Head {h00=0x0028, h01=0x0050, text=» CBE PRNUM,=D'5',A92 IF COPY USERFIL«, t00=0x000e, t01=0x00f2}
0x16f6…1728 Head {h00=0x002e, h01=0x0050, text=» CBE PRNUM,=D'7',A92 IF CHANGE VOLUME-NAME«, t00=0x000e, t01=0x011e}
0x1728…174c Head {h00=0x0020, h01=0x0050, text=»* COPY SYSFIL OR SYSVOL * «, t00=0x000e, t01=0x0150}
0x174c…176c Head {h00=0x001c, h01=0x0050, text=» CBNE VOLNAM,SYSVOL,A94 «, t00=0x000e, t01=0x0174}
0x176c…1778 (15, 0, 400) Head {h00=0x0008, h01=0x0050, text=»A92 «, t00=0x000f, t01=0x0004}
0x1778…1786 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x000f, t01=0x0010}
0x1786…1792 Head {h00=0x0008, h01=0x0050, text=»A93 «, t00=0x000f, t01=0x001e}
0x1792…17a0 Head {h00=0x000a, h01=0x0050, text=» B A3E«, t00=0x000f, t01=0x002a}
0x17a0…17ac Head {h00=0x0008, h01=0x0050, text=»A94 «, t00=0x000f, t01=0x0038}
0x17ac…17bc Head {h00=0x000c, h01=0x0050, text=» B A11E «, t00=0x000f, t01=0x0044}
0x17bc…17ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0054}
0x17ca…17ee Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000f, t01=0x0062}
0x17ee…1812 Head {h00=0x0020, h01=0x0050, text=»* COPY DISK OR FILE : * «, t00=0x000f, t01=0x0086}
0x1812…1836 Head {h00=0x0020, h01=0x0050, text=»* OUTPUT UNIT NO. * «, t00=0x000f, t01=0x00aa}
0x1836…185a Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x000f, t01=0x00ce}
0x185a…1866 Head {h00=0x0008, h01=0x0050, text=»A10 «, t00=0x000f, t01=0x00f2}
0x1866…1882 Head {h00=0x0018, h01=0x0050, text=» MOVE STR1A,DEINPUT «, t00=0x000f, t01=0x00fe}
0x1882…18a0 Head {h00=0x001a, h01=0x0050, text=» CBNE STR1A,UNIT,A101 «, t00=0x000f, t01=0x011a}
0x18a0…18ae Head {h00=0x000a, h01=0x0050, text=» B A6E«, t00=0x000f, t01=0x0138}
0x18ae…18ba Head {h00=0x0008, h01=0x0050, text=»A101«, t00=0x000f, t01=0x0146}
0x18ba…18d4 Head {h00=0x0016, h01=0x0050, text=» MOVE BCD2A,STR1A «, t00=0x000f, t01=0x0152}
0x18d4…18ec Head {h00=0x0014, h01=0x0050, text=» MOVE FCOD,BCD2A«, t00=0x000f, t01=0x016c}
0x18ec…1900 Head {h00=0x0010, h01=0x0050, text=» PERF AUNIT «, t00=0x000f, t01=0x0184}
0x1900…1916 Head {h00=0x0012, h01=0x0050, text=» ERASE 1,W4,W4«, t00=0x0010, t01=0x0008}
0x1916…192e Head {h00=0x0014, h01=0x0050, text=» MOVE FCOD2,FCOD«, t00=0x0010, t01=0x001e}
0x192e…1960 Head {h00=0x002e, h01=0x0050, text=» XCOPY PBLOCK,W7,W1,FCOD,W1 FC OUTPUT DISK«, t00=0x0010, t01=0x0036}
0x1960…197e Head {h00=0x001a, h01=0x0050, text=» CALL CHANFC,DISK,FCOD«, t00=0x0010, t01=0x0068}
0x197e…19bc Head {h00=0x003a, h01=0x0050, text=» CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME«, t00=0x0010, t01=0x0086}
0x19bc…19d8 Head {h00=0x0018, h01=0x0050, text=» CBNE RETCOD,W0,A93 «, t00=0x0010, t01=0x00c4}
0x19d8…19fc Head {h00=0x0020, h01=0x0050, text=» DISPLAY 2,W2,W2 FINP-FIELD «, t00=0x0010, t01=0x00e0}
0x19fc…1a0a Head {h00=0x000a, h01=0x0050, text=» B A91«, t00=0x0010, t01=0x0104}
0x1a0a…1a18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0112}
0x1a18…1a40 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0010, t01=0x0120}
0x1a40…1a68 Head {h00=0x0024, h01=0x0050, text=»* USERDEFINED FILE *«, t00=0x0010, t01=0x0148}
0x1a68…1a90 Head {h00=0x0024, h01=0x0050, text=»* SIZE OF RECORDS *«, t00=0x0010, t01=0x0170}
0x1a90…1ab8 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0011, t01=0x0008}
0x1ab8…1ac4 Head {h00=0x0008, h01=0x0050, text=»A11 «, t00=0x0011, t01=0x0030}
0x1ac4…1ae0 Head {h00=0x0018, h01=0x0050, text=» MOVE RSIZE,DEINPUT «, t00=0x0011, t01=0x003c}
0x1ae0…1af8 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN1,RSIZE«, t00=0x0011, t01=0x0058}
0x1af8…1b12 Head {h00=0x0016, h01=0x0050, text=» CBL BIN1,W1,A111 «, t00=0x0011, t01=0x0070}
0x1b12…1b32 Head {h00=0x001c, h01=0x0050, text=» CBG BIN1,=W'2047',A111 «, t00=0x0011, t01=0x008a}
0x1b32…1b68 Head {h00=0x0032, h01=0x0050, text=»* SIZE OF RECORDS IS IN THE INTERVAL 1-2047«, t00=0x0011, t01=0x00aa}
0x1b68…1b76 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0011, t01=0x00e0}
0x1b76…1b82 Head {h00=0x0008, h01=0x0050, text=»A111«, t00=0x0011, t01=0x00ee}
0x1b82…1b90 Head {h00=0x000a, h01=0x0050, text=» B A6E«, t00=0x0011, t01=0x00fa}
0x1b90…1b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0108}
0x1b9a…1bbc Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0011, t01=0x0112}
0x1bbc…1bde Head {h00=0x001e, h01=0x0050, text=»* USERFILE *«, t00=0x0011, t01=0x0134}
0x1bde…1c00 Head {h00=0x001e, h01=0x0050, text=»* NO.OF SECTORS/RECORD *«, t00=0x0011, t01=0x0156}
0x1c00…1c22 Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0011, t01=0x0178}
0x1c22…1c2e Head {h00=0x0008, h01=0x0050, text=»A12 «, t00=0x0012, t01=0x000a}
0x1c2e…1c4a Head {h00=0x0018, h01=0x0050, text=» MOVE BLFACT,DEINPUT«, t00=0x0012, t01=0x0016}
0x1c4a…1c64 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,BLFACT «, t00=0x0012, t01=0x0032}
0x1c64…1c7e Head {h00=0x0016, h01=0x0050, text=» CBE BIN1,W0,A111 «, t00=0x0012, t01=0x004c}
0x1c7e…1c8c Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0012, t01=0x0066}
0x1c8c…1c9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0074}
0x1c9a…1cba Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0012, t01=0x0082}
0x1cba…1cda Head {h00=0x001c, h01=0x0050, text=»* DISC TYPE *«, t00=0x0012, t01=0x00a2}
0x1cda…1cfa Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0012, t01=0x00c2}
0x1cfa…1d20 Head {h00=0x0022, h01=0x0050, text=»* INPUT: DISC TYPE, 1-9 «, t00=0x0012, t01=0x00e2}
0x1d20…1d4a Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: DISC TYPE IN DEBIN3«, t00=0x0012, t01=0x0108}
0x1d4a…1d78 Head {h00=0x002a, h01=0x0050, text=»* STORAGE TYPE IN DEBIN2 «, t00=0x0012, t01=0x0132}
0x1d78…1db8 Head {h00=0x003c, h01=0x0050, text=»* INPUT OUPPUT,DEBIN3 DEBIN2 «, t00=0x0012, t01=0x0160}
0x1db8…1df2 Head {h00=0x0036, h01=0x0050, text=»* 1 PTS-6875,2.5MB,PACKED 1 3«, t00=0x0013, t01=0x0010}
0x1df2…1e2c Head {h00=0x0036, h01=0x0050, text=»* 2 PTS-6875,2.5MB,UNPACKED 1 2«, t00=0x0013, t01=0x004a}
0x1e2c…1e66 Head {h00=0x0036, h01=0x0050, text=»* 3 PTS-6876,5MB,PACKED 2 3«, t00=0x0013, t01=0x0084}
0x1e66…1ea0 Head {h00=0x0036, h01=0x0050, text=»* 4 PTS-6876,5MB,UNPACKED 2 2«, t00=0x0013, t01=0x00be}
0x1ea0…1eda Head {h00=0x0036, h01=0x0050, text=»* 5 PTS-8863,MINI FIX 3 -«, t00=0x0013, t01=0x00f8}
0x1eda…1f14 Head {h00=0x0036, h01=0x0050, text=»* 6 PTS-6877,80MB 4 -«, t00=0x0013, t01=0x0132}
0x1f14…1f2c Head {h00=0x0014, h01=0x0050, text=»* 7 VACANT«, t00=0x0013, t01=0x016c}
0x1f2c…1f66 Head {h00=0x0036, h01=0x0050, text=»* 8 PTS-6879,0.25MB,FLEXIBLE DISC 8 -«, t00=0x0013, t01=0x0184}
0x1f66…1fa0 Head {h00=0x0036, h01=0x0050, text=»* 9 PTS- ,1MB,FLEXIBLE DISC 9 -«, t00=0x0014, t01=0x002e}
0x1fa0…1faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0068}
0x1faa…1fb6 Head {h00=0x0008, h01=0x0050, text=»A13 «, t00=0x0014, t01=0x0072}
0x1fb6…1fd4 Head {h00=0x001a, h01=0x0050, text=» MOVE ACK(W2),DEINPUT «, t00=0x0014, t01=0x007e}
0x1fd4…1ff0 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN3,ACK(W2)«, t00=0x0014, t01=0x009c}
0x1ff0…201a Head {h00=0x0026, h01=0x0050, text=» IB DEBIN3,A131,A132,A133,A134 C «, t00=0x0014, t01=0x00b8}
0x201a…203a Head {h00=0x001c, h01=0x0050, text=» A135,A135,A6E,AOK,AOK «, t00=0x0014, t01=0x00e2}
0x203a…2048 Head {h00=0x000a, h01=0x0050, text=» B A6E«, t00=0x0014, t01=0x0102}
0x2048…2054 Head {h00=0x0008, h01=0x0050, text=»A131«, t00=0x0014, t01=0x0110}
0x2054…2076 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBIN3,W1 DISC TYPE «, t00=0x0014, t01=0x011c}
0x2076…2094 Head {h00=0x001a, h01=0x0050, text=» MOVE DEBIN2,W3 PACKED«, t00=0x0014, t01=0x013e}
0x2094…20a2 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0014, t01=0x015c}
0x20a2…20ae Head {h00=0x0008, h01=0x0050, text=»A132«, t00=0x0014, t01=0x016a}
0x20ae…20d0 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBIN3,W1 DISC TYPE «, t00=0x0014, t01=0x0176}
0x20d0…20f0 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBIN2,W2 UNPACKED«, t00=0x0015, t01=0x0008}
0x20f0…20fe Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0015, t01=0x0028}
0x20fe…210a Head {h00=0x0008, h01=0x0050, text=»A133«, t00=0x0015, t01=0x0036}
0x210a…212c Head {h00=0x001e, h01=0x0050, text=» MOVE DEBIN3,W2 DISC TYPE «, t00=0x0015, t01=0x0042}
0x212c…214a Head {h00=0x001a, h01=0x0050, text=» MOVE DEBIN2,W3 PACKED«, t00=0x0015, t01=0x0064}
0x214a…2158 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0015, t01=0x0082}
0x2158…2164 Head {h00=0x0008, h01=0x0050, text=»A134«, t00=0x0015, t01=0x0090}
0x2164…2186 Head {h00=0x001e, h01=0x0050, text=» MOVE DEBIN3,W2 DISC TYPE «, t00=0x0015, t01=0x009c}
0x2186…21a6 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBIN2,W2 UNPACKED«, t00=0x0015, t01=0x00be}
0x21a6…21b4 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0015, t01=0x00de}
0x21b4…21c0 Head {h00=0x0008, h01=0x0050, text=»A135«, t00=0x0015, t01=0x00ec}
0x21c0…21e8 Head {h00=0x0024, h01=0x0050, text=» SUB DEBIN3,W2 DISC TYPE =3 OR 4«, t00=0x0015, t01=0x00f8}
0x21e8…21f6 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0015, t01=0x0120}
0x21f6…2204 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x012e}
0x2204…221e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0015, t01=0x013c}
0x221e…2238 Head {h00=0x0016, h01=0x0050, text=»* VOLUME-NAME * «, t00=0x0015, t01=0x0156}
0x2238…2252 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0015, t01=0x0170}
0x2252…225e Head {h00=0x0008, h01=0x0050, text=»A14 «, t00=0x0015, t01=0x018a}
0x225e…226c Head {h00=0x000a, h01=0x0050, text=» B A62«, t00=0x0016, t01=0x0008}
0x226c…227a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0016}
0x227a…22a0 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0016, t01=0x0024}
0x22a0…22c8 Head {h00=0x0024, h01=0x0050, text=»* BLOCKING FACTOR 1-255«, t00=0x0016, t01=0x004a}
0x22c8…22ee Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0016, t01=0x0072}
0x22ee…22fa Head {h00=0x0008, h01=0x0050, text=»A15 «, t00=0x0016, t01=0x0098}
0x22fa…2316 Head {h00=0x0018, h01=0x0050, text=» MOVE BLFACT,DEINPUT«, t00=0x0016, t01=0x00a4}
0x2316…2330 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,BLFACT «, t00=0x0016, t01=0x00c0}
0x2330…234a Head {h00=0x0016, h01=0x0050, text=» CBL BIN1,W1,A111 «, t00=0x0016, t01=0x00da}
0x234a…2368 Head {h00=0x001a, h01=0x0050, text=» CBG BIN1,=W'255',A111«, t00=0x0016, t01=0x00f4}
0x2368…2380 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN2,RSIZE«, t00=0x0016, t01=0x0112}
0x2380…2394 Head {h00=0x0010, h01=0x0050, text=» ADD BIN2,W1«, t00=0x0016, t01=0x012a}
0x2394…23aa Head {h00=0x0012, h01=0x0050, text=» MUL BIN2,BIN1«, t00=0x0016, t01=0x013e}
0x23aa…23ba Head {h00=0x000c, h01=0x0050, text=» BP A151«, t00=0x0016, t01=0x0154}
0x23ba…23ca Head {h00=0x000c, h01=0x0050, text=» B A111 «, t00=0x0016, t01=0x0164}
0x23ca…23d6 Head {h00=0x0008, h01=0x0050, text=»A151«, t00=0x0016, t01=0x0174}
0x23d6…23f6 Head {h00=0x001c, h01=0x0050, text=» CBG BIN2,=W'2048',A111 «, t00=0x0016, t01=0x0180}
0x23f6…241e Head {h00=0x0024, h01=0x0050, text=»* SIZE OF RECORDS 1-2047«, t00=0x0017, t01=0x0010}
0x241e…2446 Head {h00=0x0024, h01=0x0050, text=»* BLOCKING FACTOR 1-255 «, t00=0x0017, t01=0x0038}
0x2446…2486 Head {h00=0x003c, h01=0x0050, text=»* (SIZE OF RECORDS + 1) * BLOCKING FACTOR 1-2048«, t00=0x0017, t01=0x0060}
0x2486…2494 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0017, t01=0x00a0}
0x2494…24a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00ae}
0x24a2…24d0 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0017, t01=0x00bc}
0x24d0…2504 Head {h00=0x0030, h01=0x0050, text=»* THE CONECTION BETWEEN UNIT NO AND DISC«, t00=0x0017, t01=0x00ea}
0x2504…253c Head {h00=0x0034, h01=0x0050, text=»* IS DONE IN DATA DIVISION AND IS DESCRIBED «, t00=0x0017, t01=0x011e}
0x253c…255e Head {h00=0x001e, h01=0x0050, text=»* IN SYSTEM GENERATION«, t00=0x0017, t01=0x0156}
0x255e…2578 Head {h00=0x0016, h01=0x0050, text=»* UNIT NO. : 0-9«, t00=0x0017, t01=0x0178}
0x2578…25a6 (24, 2, 156) Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0018, t01=0x0004}
0x25a6…25b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0032}
0x25b0…25c2 Head {h00=0x000e, h01=0x0050, text=»AUNIT PROC«, t00=0x0018, t01=0x003c}
0x25c2…25e6 Head {h00=0x0020, h01=0x0050, text=» XCOPY FCOD,W1,W1,DUNIT,FCOD«, t00=0x0018, t01=0x004e}
0x25e6…25f2 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x0072}
0x25f2…2600 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x007e}
0x2600…260c Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x0018, t01=0x008c}
0x260c…2610 Head {h00=0x4004, h01=0x0000}
0x2610…2614 00 18 00 98 ┆ ┆
0x2614…261c (25, 1, 8) 20 04 00 00 00 19 00 04 ┆ ┆
0x261c…266c (26, 0, 398) 00 19 01 58 00 08 00 50 5c 46 4e 4c 00 1a 00 08 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 30 20 00 1a 00 14 00 2c 00 50 5c 46 54 45 58 54 5c 27 2d 20 32 20 28 50 54 53 2d 36 38 37 35 29 20 20 32 2e 35 20 4d 42 20 55 4e 50 41 43 4b 45 ┆ X P FNL P FILLR ' ',20 , P FTEXT '- 2 (PTS-6875) 2.5 MB UNPACKE┆
0x266c…26bc 44 27 00 1a 00 2a 00 08 00 50 5c 46 4e 4c 00 1a 00 5a 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 30 20 00 1a 00 66 00 2a 00 50 5c 46 54 45 58 54 5c 27 2d 20 33 20 28 50 54 53 2d 36 38 37 36 29 20 20 35 20 20 20 4d 42 20 50 41 43 4b 45 ┆D' * P FNL Z P FILLR ' ',20 f * P FTEXT '- 3 (PTS-6876) 5 MB PACKE┆
0x26bc…270c 44 27 00 1a 00 7c 00 08 00 50 5c 46 4e 4c 00 1a 00 aa 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 30 20 00 1a 00 b6 00 2c 00 50 5c 46 54 45 58 54 5c 27 2d 20 34 20 28 50 54 53 2d 36 38 37 36 29 20 20 35 20 20 20 4d 42 20 55 4e 50 41 43 ┆D' | P FNL P FILLR ' ',20 , P FTEXT '- 4 (PTS-6876) 5 MB UNPAC┆
0x270c…275c 4b 45 44 27 00 1a 00 cc 00 08 00 50 5c 46 4e 4c 00 1a 00 fc 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 30 20 00 1a 01 08 00 2a 00 50 5c 46 54 45 58 54 5c 27 2d 20 35 20 28 50 54 53 2d 38 38 36 33 29 20 20 4d 49 4e 49 20 46 49 58 20 44 ┆KED' P FNL P FILLR ' ',20 * P FTEXT '- 5 (PTS-8863) MINI FIX D┆
0x275c…27aa 49 53 43 27 00 1a 01 1e 00 08 00 50 5c 46 4e 4c 00 1a 01 4c 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 30 20 00 1a 01 58 00 24 00 50 5c 46 54 45 58 54 5c 27 2d 20 36 20 28 50 54 53 2d 36 38 37 37 29 20 20 38 30 20 20 4d 42 27 20 ┆ISC' P FNL L P FILLR ' ',20 X $ P FTEXT '- 6 (PTS-6877) 80 MB' ┆
0x27aa…27fa (27, 0, 398) 00 1a 01 6e 00 08 00 50 5c 46 4e 4c 00 1b 00 08 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 30 20 00 1b 00 14 00 18 00 50 5c 46 54 45 58 54 5c 27 2d 20 37 20 56 41 43 41 4e 54 27 20 00 1b 00 2a 00 08 00 50 5c 46 4e 4c 00 1b 00 46 00 12 ┆ n P FNL P FILLR ' ',20 P FTEXT '- 7 VACANT' * P FNL F ┆
0x27fa…284a 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 30 20 00 1b 00 52 00 32 00 50 5c 46 54 45 58 54 5c 27 2d 20 38 20 28 50 54 53 2d 36 38 37 39 29 20 20 30 2e 32 35 4d 42 20 46 4c 45 58 49 42 4c 45 20 44 49 53 43 27 20 00 1b 00 68 00 08 00 50 5c 46 ┆ P FILLR ' ',20 R 2 P FTEXT '- 8 (PTS-6879) 0.25MB FLEXIBLE DISC' h P F┆
0x284a…289a 4e 4c 00 1b 00 9e 00 12 00 50 5c 46 49 4c 4c 52 5c 27 20 27 2c 32 30 20 00 1b 00 aa 00 32 00 50 5c 46 54 45 58 54 5c 27 2d 20 39 20 28 50 54 53 2d 20 20 20 20 29 20 20 31 20 20 20 4d 42 20 46 4c 45 58 49 42 4c 45 20 44 49 53 43 27 20 00 1b ┆NL P FILLR ' ',20 2 P FTEXT '- 9 (PTS- ) 1 MB FLEXIBLE DISC' ┆
0x289a…28ea 00 c0 00 0a 00 50 5c 46 4d 45 4e 44 00 1b 00 f6 00 06 00 50 2a 20 00 1b 01 04 00 0e 00 50 46 43 4f 50 53 5c 46 52 4d 54 00 1b 01 0e 00 08 00 50 5c 46 53 4c 00 1b 01 20 00 1a 00 50 5c 46 43 4f 50 59 5c 3d 43 27 43 4f 50 59 20 53 59 53 46 49 ┆ P FMEND P* PFCOPS FRMT P FSL P FCOPY =C'COPY SYSFI┆
0x28ea…2938 4c 27 00 1b 01 2c 00 0e 00 50 5c 46 4c 49 4e 4b 5c 46 49 4f 00 1b 01 4a 00 0a 00 50 5c 46 4d 45 4e 44 00 1b 01 5c 00 06 00 50 2a 20 00 1b 01 6a 00 0e 00 50 46 43 4f 50 55 5c 46 52 4d 54 00 1b 01 74 00 08 00 50 5c 46 53 4c 00 1b 01 86 ┆L' , P FLINK FIO J P FMEND P* j PFCOPU FRMT t P FSL ┆
0x2938…2988 (28, 0, 400) 00 1c 00 50 5c 46 43 4f 50 59 5c 3d 43 27 43 4f 50 59 20 55 53 45 52 46 49 4c 27 20 00 1c 00 04 00 0e 00 50 5c 46 4c 49 4e 4b 5c 46 49 4f 00 1c 00 24 00 0a 00 50 5c 46 4d 45 4e 44 00 1c 00 36 00 06 00 50 2a 20 00 1c 00 44 00 0e 00 50 43 4f ┆ P FCOPY =C'COPY USERFIL' P FLINK FIO $ P FMEND 6 P* D PCO┆
0x2988…29d8 50 59 53 5c 46 52 4d 54 00 1c 00 4e 00 08 00 50 5c 46 53 4c 00 1c 00 60 00 22 00 50 5c 46 43 4f 50 59 5c 3d 43 27 57 48 4f 4c 45 20 46 49 4c 45 20 3f 20 20 59 2f 4e 3a 27 20 00 1c 00 6c 00 2e 00 50 5c 46 4b 49 5c 31 39 2c 4d 49 4e 4c 3d 31 ┆PYS FRMT N P FSL ` " P FCOPY =C'WHOLE FILE ? Y/N:' l . P FKI 19,MINL=1┆
0x29d8…2a28 2c 4d 41 58 4c 3d 31 2c 4d 45 2c 4e 45 4f 49 2c 41 4c 50 48 41 2c 41 50 50 4c 3d 31 00 1c 00 92 00 10 00 50 5c 46 43 4f 50 59 5c 43 4f 50 59 20 00 1c 00 c4 00 10 00 50 5c 46 4c 49 4e 4b 5c 46 48 45 58 20 00 1c 00 d8 00 0a 00 50 5c 46 4d 45 ┆,MAXL=1,ME,NEOI,ALPHA,APPL=1 P FCOPY COPY P FLINK FHEX P FME┆
0x2a28…2a78 4e 44 00 1c 00 ec 00 06 00 50 2a 20 00 1c 00 fa 00 0e 00 50 46 43 4f 50 59 5c 46 52 4d 54 00 1c 01 04 00 08 00 50 5c 46 53 4c 00 1c 01 16 00 24 00 50 5c 46 43 4f 50 59 5c 3d 43 27 43 4f 50 59 20 53 59 53 56 4f 4c 20 54 4f 20 53 59 53 56 4f ┆ND P* PFCOPY FRMT P FSL $ P FCOPY =C'COPY SYSVOL TO SYSVO┆
0x2a78…2ac8 4c 27 00 1c 01 22 00 0e 00 50 5c 46 4c 49 4e 4b 5c 46 49 4f 00 1c 01 4a 00 0a 00 50 5c 46 4d 45 4e 44 00 1c 01 5c 00 06 00 50 2a 20 00 1c 01 6a 00 0c 00 50 46 49 4f 5c 46 52 4d 54 00 1c 01 74 00 08 00 50 5c 46 4e 4c 00 1c 01 84 00 14 00 50 ┆L' " P FLINK FIO J P FMEND P* j PFIO FRMT t P FNL P┆