|
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: 23748 (0x5cc4)
Notes: pts_type(SC)
Names: »WUCOP.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WUCOP.SC«
IDENT WUCOP REL=2.3,841203,870155940230 ************************************** * WORK STATION MANAGEMENT * * * * 4 COPY VOLUME/FILE (REORGANIZE) * * * ************************************** ** HISTORY: ** 84-12-03 /CJ MUL&DIV NOW FROM ASS.ROUTINE ** 84-10-23 /CJ TOSSUT REL13 NEW DIALOUGE IMPLEMENTED ** 84-07-12 /MAER CALCULATION OF "PROGRAM LENGTH" FOR L-FILES ** (LOAD MODULES) CORRECTED (ROUNDING, NOT TRUNC.). ** "FILE NAME UNKNOWN" DISPLAYED INSTEAD OF ** "I/O ERROR 0000" IF INPUT FILE NOT PRESENT. ** DISPLAY OF COPIED ELEMENT TYPES AND NAMES WHEN ** ANSWERING "Y" TO THE QUESTION "WHOLE FILE ?". ** COPY F TO F, FILE SIZE CALCULATION CORRECTED ** (SECTOR LENGTH 255 FOR S,D,I-FILES, OTHERS 256). ** MAX SECTION SIZE DISPLAYED (FORMAT FCOPY). ** 83-06-30 /MAER DUPLICATION OF DESTINATION UNIT NOW ALLOWED. ** 83-06-20 /MAER COPY FORMS OF TFP ADDED. ** 83-06-17 /MAER COPY SPECIFIC SECTION / DEFINITION INTRODUCED. ** 83-05-11 /MAER SOP-PANEL F.C. := ZERO (EARLIER 20 => BAD ** READ-REQUEST ON VD82 FOR COPY DISC TO DISC). ** CHANGED DECORATIONS. ** 82-10-20 /MAER VOLUME-NAME CHANGE COMPLETED. ** 82-07-26 /DALI VOLUME-NAME IS CHANGED BEFORE COPY ** 81-11-04 /DALI CREATION DDUM WUDIV PDIV ENTRY WUCOP * EXPROC DECLRA CRE= SCREEN ROUTINE EXPROC DECLRN CRE= SCREEN ROUTINE EXPROC DISERR CRE= ERROR ROUTINE EXPROC UFERR CRE= ERROR ROUTINE EXPROC DSKERR,PBIN CRE= ERROR ROUTINE EXPROC CHVNAM,PSTRG,PBIN CRE= CHANGE VOLUMENAME EXPROC HALT * EXT COPYDD ASS= COPY DISC TO DISC EXT OPENF ASS= OPEN FILE EXT CLOSEF ASS= CLOSE FILE EXT RDSECT ASS= READ ONE SECTOR EXT BINBCD ASS= TWO BINARY ITEMS TO BCD EXT BCDBIN ASS= BCD TO TWO BINARY ITEMS EXT CREFIL ASS= CREATE FILE EXT DELFIL ASS= DELETE FILE EXT READDK ASS= READ A RECORD EXT WRITDK ASS= WRITE A RECORD EXT CHANFC ASS= CHANGE FILECODE EXT PREAD ASS= WSM-READ EXT PWRITE ASS= WSM-WRITE EXT PCLOSE ASS= WSM-CLOSE EXT WXMUL ASS= MULTIPLICATION EXT WXDIV ASS= DIVISION EXT GETIND ASS= GET DIMENSION EJECT WUCOP PROC ************************************* * 4 COPY VOLUME/FILE (REORGANIZE) * ************************************* COP000 CLEAR BOOL2 USED IN FORMAT FIO ATTFMT FCOPY SET DEPROMPT COP100 PERF DECLRA COP150 IB DEBINW2,COP100,RETUR,COP200 PERF DSKERR,W0 'BELL' B COP150 RETUR RET COP200 IB DTYP,COP500,COP700 COPY FILE,COPY WSM EJECT ********************* * COPY DISC TO DISC * ********************* * COP250 ATTFMT FCOPV SET DEPROMPT COP300 PERF DECLRA COP350 IB DEBINW2,COP300,COP000,COP400 PERF DSKERR,W0 'BELL' B COP350 COP400 XCOPY PBLOCK,W6,W1,FCOD1,W1 FC3 = SOURCE DISC XCOPY PBLOCK,W7,W1,FCOD2,W1 FC4 = DEST. DISC XCOPY PBLOCK,W14,W6,COPNAM,W0 VOL.NAME DEST DISC XCOPY PBLOCK,W22,W1,W3,W1 OPTION=3 NEW DIALOUGE XCOPY PBLOCK,W23,W1,W0,W0 SOP-PANEL F.C. NOT USED (:=0) CALL COPYDD,PBLOCK,BPOOL(W1),BPOOL(W18),RETCOD BPOOL(W1) = BUF1 = 2048 WORDS BPOOL(W18)= BUF2 = 200 WORDS CBE RETCOD,W0,COP450 CBE RETCOD,W9,COP000 OPERATOR ABORTED COP420 PERF DISERR B COP350 COP450 PERF HALT B COP000 EJECT ********************* * COPY FILE TO FILE * ********************* COP500 ATTFMT FCOPF SET DEPROMPT SET BOOL2 COP510 PERF DECLRA COP520 IB DEBINW2,COP510,COP000,COP540 PERF DSKERR,W0 'BELL' B COP520 COP540 CLEAR BOOL5 FILE PRESENCE INDICATOR MOVE NOREC,=D'00' PERF CHVNAM,VOLEX1,FCOD1 CHANGE NAME BNOK COP546 PERF CHVNAM,VOLEX2,FCOD2 CHANGE NAME BNOK COP544 SET BOOL5 "FILE NAME UNKNOWN" CBE FCOD1,FCOD2,COP541 CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD B COP542 COP541 CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX2,RETCOD COP542 BNOK COP543 CLEAR BOOL5 "FILE NAME KNOWN..." CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD BOK COP548 COP543 PERF CHVNAM,COPNAM,FCOD2 CHANGE NAME BNOK COP546 CBE FCOD1,FCOD2,COP546 COP544 PERF CHVNAM,VOLNAM,FCOD1 CHANGE NAME COP546 TBT BOOL5,COP547 FILE NOT PRESENT PERF DISERR B COP520 COP547 PERF DSKERR,W12 "FILE NAME UNKNOWN" B COP520 COP548 CALL OPENF,DISK,FILECODE(W3),SYSBUF,COPFIL,VOLEX2,RETCOD BNOK COP550 CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD BNOK COP543 COP550 MOVE BCDI21(W2),=D'00' USED FOR NO. OF RECS MOVE BIN5,W0 NO. OF EXTENTS MOVE BIN1,W0 SECTOR NO. CALL CHANFC,DISK,FCOD1 CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ VOLUME-LABEL BNOK COP543 XCOPY BIN1,W0,W2,SYSBUF,W10 FSAT BASE MOVE DKBIN2,=W'46' FSAT-LENGTH DISPLACEMENT XCOPY DKBIN1,W0,W2,SYSBUF,DKBIN2 FSAT-LENGTH XCOPY DKBIN2,W0,W2,SYSBUF,W6 ADM-LENGTH XCOPY DKBIN3,W0,W2,SYSBUF,W12 VTOC-REC-LEGTH ADD DKBIN3,W1 OCCUPYED BYTE SUB DKBIN2,DKBIN1 GET NO. OF VTOC RECS ADD BIN1,DKBIN1 START OF VTOC COP590 CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ ONESECTOR BNOK COP543 MOVE BIN4,W0 DISP TO FILENAME COP600 MOVE BIN3,W0 MATCH FILNAM,BIN3,W8,SYSBUF,BIN4,W8 BOK COP640 FILENAME FOUND COP610 ADD BIN4,DKBIN3 GET NEXT VTOC ENTRY CBL BIN4,=W'240',COP600 ALL ENTRIES HANDLED SUB DKBIN2,W1 MORE VTOC RECORDS BNZ COP620 YES CBNE BCDI21(W2),=D'00',COP680 FILE HANDLED PERF DSKERR,W12 B COP543 COP620 ADD BIN1,W1 READ NEXT VTOC RECORD B COP590 COP640 CBNE BIN5,W0,COP660 NO. OF EXTENTS MOVE BIN12,=W'40' NO. OF EXTENTS ADD BIN12,BIN4 DISP IN VTOC-RECORD XCOPY BIN5,W1,W1,SYSBUF,BIN12 XCOPY BPOOL(W20),W0,DKBIN3,SYSBUF,BIN4 SAVE ENTRY CBNE BIN5,W0,COP660 AT LEAST ONE ENTRY MOVE BIN5,=X'7FFF' COP660 MOVE BIN2,=W'27' F.ORG DISPL. XCOPY STR1A,W0,W1,BPOOL(W20),BIN2 MOVE BIN2,W12 FILE EXT 1 ADD BIN2,BIN4 DISP IN VTOC-RECORD CBNE STR1A,=C'L',COP670 BRANCH IF NOT L-FILE ADD BIN2,W8 USE LAST RECORD NO WHEN L-FILES. COP670 XCOPY BIN10,W0,W2,SYSBUF,BIN2 FILE EXTENT 1 ADD BIN2,W2 XCOPY BIN11,W0,W2,SYSBUF,BIN2 FILE EXTENT 2 CALL BINBCD,BIN10,BIN11,BCDI21(W1) ADD BCDI21(W2),BCDI21(W1) SUB BIN5,W1 MORE EXTENTS BP COP610 YES COP680 ERASE 0,W1,W6 XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG XCOPY PBLOCK,W8,W8,COPFIL,W0 FILE-NAME XCOPY PBLOCK,W16,W6,VOLEX2,W0 VOL-NAME 1 COP682 CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD BOK COP682 CALL DELFIL,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG XCOPY PBLOCK,W8,W8,COPFIL,W0 FILE-NAME COPY PBLOCK,W16,W6,VOLEX2,W0 VOL-NAME 1 MOVE BIN1,=W'40' MOVE BIN2,=W'28' CRD + RP XCOPY PBLOCK,BIN1,W9,BPOOL(W20),BIN2 REL + RET.PERIOD MOVE BIN1,=W'49' MOVE BIN2,=W'26' BF XCOPY PBLOCK,BIN1,W1,BPOOL(W20),BIN2 BF MOVE BIN4,W0 XCOPY BIN4,W1,W1,BPOOL(W20),BIN2 BF MOVE BIN1,=W'50' MOVE BIN2,W24 XCOPY PBLOCK,BIN1,W2,BPOOL(W20),BIN2 RECORD LENGTH XCOPY BIN3,W0,W2,BPOOL(W20),BIN2 RECORD LENGTH MOVE NOREC,BCDI21(W2) SAVE NO. OF RECS MOVE BIN1,=W'52' CBNE STR1A,=C'L',COP684 JUMP IF NOT L-FILE XCOPY PBLOCK,BIN1,W2,BPOOL(W20),W8 MON + SOP MOVE BIN7,BCDI21(W2) NO. OF SECTORS CALL WXDIV,BIN7,W16,BIN7 PROGRAM USES 240 BYTES MOVE BCDI21(W1),BIN7 PER SECTOR SUB BCDI21(W2),BCDI21(W1) MOVE BCDI21(W3),BCDI21(W2) SAVE NO OF RECORDS MOVE BIN1,BCDI21(W2) CALL WXDIV,BIN1,W4,BIN1 GET PROGRAM LENGTH MOVE BCDI21(W2),BIN1 MOVE BIN1,=W'54' MOVE BCDI21(W1),BCDI21(W2) IF REMAINDER EXISTS => MUL BCDI21(W1),=D'+4' => YET ANOTHER CBE BCDI21(W1),BCDI21(W3),COP683 SECTOR IS NEEDED. ADD BCDI21(W2),=D'+1' COP683 CALL BCDBIN,BCDI21(W2),BIN10,BIN11 XCOPY PBLOCK,BIN1,W2,BIN11,W0 PROGRAM LENGTH B COP687 COP684 CALL WXMUL,BIN4,BIN3,BIN4 MOVE BIN6,BIN4 MOVE BIN5,W0 COP685 MOVE BIN7,BUFLEN ASSUME BUFFER LENGTH 255 CBE STR1A,=C'S',COP686 WHICH IS TRUE FOR 'S'-... CBE STR1A,=C'D',COP686 ...'D'-...AND... CBE STR1A,=C'I',COP686 ...'I'-FILES (DATA MANAGM.). MOVE BIN7,SECLEN OTHERS USE SECTOR LENGTH 256 BYTES. COP686 ADD BIN5,W1 SUB BIN6,BIN7 BP COP686 MOVE BIN1,BCDI21(W2) CALL WXDIV,BIN1,BIN5,BIN1 CALL WXDIV,BIN4,BIN3,BIN4 MOVE BCD5A,BIN4 CALL WXMUL,BIN1,BIN4,BIN1 MOVE BCDI21(W2),BIN1 CALL BCDBIN,BCDI21(W2),BIN10,BIN11 MOVE BIN1,=W'52' XCOPY PBLOCK,BIN1,W2,BIN10,W0 NO. OF RECORDS MOVE BIN1,=W'54' XCOPY PBLOCK,BIN1,W2,BIN11,W0 NO. OF RECORDS MOVE BIN1,=W'56' XCOPY PBLOCK,BIN1,W2,W0,W0 KA MOVE BIN1,=W'58' XCOPY PBLOCK,BIN1,W2,W0,W0 NIF COP687 CALL CREFIL,PBLOCK,BPOOL(W12),BPOOL(W1),RETCOD CMP RETCOD,W0 'I/O-ERROR' BNZ COP543 CBE FCOD1,FCOD2,COP688 CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD B COP689 COP688 CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX2,RETCOD COP689 BNOK COP543 CALL OPENF,DISK,FILECODE(W3),SYSBUF,COPFIL,VOLEX2,RETCOD BNOK COP698 COP690 MOVE RECNUM,=D'+1' XCOPY BIN10,W0,W2,BPOOL(W20),W20 SAVE LRN XCOPY BIN11,W0,W2,BPOOL(W20),W22 COP692 CALL CHANFC,DISK,FCOD1 CALL READDK,DISK,FILECODE(W1),BPOOL(W1),SECLEN,RECNUM,RETCOD BNOK COP696 CALL CHANFC,DISK,FCOD2 CALL WRITDK,DISK,FILECODE(W3),BPOOL(W1),SECLEN,RECNUM,RETCOD BNOK COP696 CBE RECNUM,NOREC,COP693 ADD RECNUM,=D'+1' B COP692 COP693 CALL BINBCD,BIN10,BIN11,NOREC GET LRN INTO NOREC CALL CHANFC,DISK,FCOD1 CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD BOK COP694 MOVE NOREC,=D'00' CALL CHANFC,DISK,FCOD1 CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,DEBINW4 B COP543 COP694 CALL CHANFC,DISK,FCOD2 CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD BNOK COP543 PERF CHVNAM,COPNAM,FCOD2 CHANGE NAME BNOK COP546 CBE FCOD1,FCOD2,COP695 PERF CHVNAM,VOLNAM,FCOD1 CHANGE NAME BNOK COP546 COP695 B COP000 COP696 MOVE NOREC,=D'00' CALL CHANFC,DISK,FCOD2 CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,DEBINW4 COP698 MOVE NOREC,=D'00' CALL CHANFC,DISK,FCOD1 CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,DEBINW4 B COP543 EJECT COP700 ************************ * COPY WSM SYSTEM-FILE * ************************ ATTFMT FCOPW SET DEPROMPT SET BOOL2 COP710 PERF DECLRA COP720 IB DEBINW2,COP710,COP000,COP730 PERF DSKERR,W0 'BELL' B COP720 COP730 MOVE NOREC,=D'00' PERF CHVNAM,VOLEX1,FCOD1 CHANGE NAME BNOK COP737 PERF CHVNAM,VOLEX2,FCOD2 CHANGE NAME BNOK COP734 CBE FCOD1,FCOD2,COP731 CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD B COP732 COP731 CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX2,RETCOD COP732 BOK COP738 COP733 PERF CHVNAM,COPNAM,FCOD2 CHANGE NAME BNOK COP737 COP734 PERF CHVNAM,VOLNAM,FCOD1 CHANGE NAME COP737 PERF DSKERR,W12 'FILE NAME UNKNOWN' B COP720 COP738 CALL OPENF,DISK,FILECODE(W3),SYSBUF,COPFIL,VOLEX2,RETCOD BNOK COP733 WSM FILE NOT CREATED CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD BNOK COP733 EJECT ******************************************************* ** ATTACH FORMAT - PERFORM INPUT (WHOLE FILE (Y/N/S) ** ******************************************************* ATTFMT FCOPA COP739 SET DEPROMPT COP740 PERF DECLRA COP741 IB DEBINW2,COP740,COP810,COP742 PERF DSKERR,W0 'BELL' B COP741 COP742 CBNE COPY,='S',COP746 BRANCH IF NOT "SPECIFIC" **************************************************** ** COPY SPECIFIC SECTION/DEFINITION/TFP-FORMAT ** **************************************************** ATTFMT FCOPC ATTACH FORMAT 'TYPE & NAME' SET DEPROMPT COP743 ERASE 2,W1,W2 ERASE INPUT FIELDS PERF DECLRN COP744 IB DEBINW2,COP743,COP810,COP745 PERF DSKERR,W0 'BELL' B COP744 COP745 XCOPY RBUF,W0,W1,ANSW,W0 COPY TYPE TO RBUF XCOPY RBUF,W1,W6,STR6B,W0 COPY NAME TO RBUF MOVE BIN1,W0 B COP792 COP746 EJECT **************************************************** ** COPY ELEMENT BY ELEMENT ** **************************************************** MOVE BIN12,=X'0101' SET LINE/COL ERASE 0,W1,W1 ERASE LINE 01 MOVE DTEST,=C'D' 1. 'D' WSM DEFINITIONS 2. 'F' TFP FORMS 3. 'S' WSM SECTIONS COP747 MOVE BIN5,W10 START OF FIRST CHAIN COP748 MOVE RECNUM,BIN5 READ A CHAINRECORD COP749 CALL CHANFC,DISK,FCOD1 CALL READDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD BOK COP751 PERF DISERR COP750 IB DEBINW2,COP740,COP810,COP749 PERF DSKERR,W0 'BELL' B COP750 COP751 MOVE BIN1,W14 DISP TO FIRST ENTRY MOVE BIN2,W24 NO. OF ENTRIES COP752 MOVE BIN3,W0 MATCH DTEST,BIN3,W1,RBUF,BIN1,W1 LOOK IF SAME TYPE BNOK COP795 NO * CBE COPY,=C'N',COP754 * ATTFMT FHEX 83-06-22 / MAER * B COP792 COP754 MOVE BIN4,BIN1 ADD BIN4,W1 DISP TO NAME XCOPY STR6B,W0,W6,RBUF,BIN4 CBE COPY,=C'N',COP756 BRANCH IF ONE BY ONE PERF DISPYE DISPLAY WHEN ANSWER 'YES' B COP792 COP756 CBE DTEST,=C'S',COP758 CBE DTEST,=C'F',COP757 TFP FORMS ATTFMT FCOPD B COP760 COP757 ATTFMT FCOPFO B COP760 COP758 ATTFMT FCOPS COP760 SET DEPROMPT COP780 ERASE 2,W2,W2 ERASE ANSWER PERF DECLRN COP785 IB DEBINW2,COP780,COP810,COP790 PERF DSKERR,W0 'BELL' B COP785 COP790 CBNE ANSW,=C'Y',COP795 NOT THIS ONE COP792 XCOPY PBLOCK,W5,W7,RBUF,BIN1 TYPE AND NAME CALL GETIND,BPOOL(W1),BIN7,BIN6 XCOPY PBLOCK,W14,W2,BIN6,W0 MOVE BIN6,=W'26' XCOPY PBLOCK,BIN6,W8,FILNAM,W0 ADD BIN6,W8 XCOPY PBLOCK,BIN6,W6,VOLEX1,W0 SEND DEFAULT VOL = VOLEX1 CBNE FCOD1,FCOD2,COP793 DIFF. UNITS => BRANCH XCOPY PBLOCK,BIN6,W6,VOLEX2,W0 ELSE USE UNIT 2 TEMP NAME COP793 CALL PREAD,PBLOCK,BPOOL(W1) WSM-READ BNOK COP794 XCOPY PBLOCK,W5,W7,RBUF,BIN1 TYPE AND NAME XCOPY PBLOCK,W12,W1,W2,W1 FILECODE MOVE BIN6,=W'26' XCOPY PBLOCK,BIN6,W8,COPFIL,W0 ADD BIN6,W8 XCOPY PBLOCK,BIN6,W6,VOLEX2,W0 DEST. VOLUME IS ALWAYS VOLEX2 CALL PWRITE,PBLOCK,BPOOL(W1) WSM-WRITE BOK COP795 COP794 XCOPY RETCOD,W0,W2,PBLOCK,W20 PERF UFERR CBNE COPY,='S',COP785 BRANCH IF NOT "SPECIFIC" B COP744 COP795 CBNE COPY,='S',COP796 COPY "SPECIFIC" ? B COP743 -YES COP796 SUB BIN2,W1 NO, DECREASE NO. OF ENTRIES BZ COP800 ALL HANDLED ADD BIN1,W10 TAKE NEXT B COP752 COP800 XCOPY BIN10,W0,W2,RBUF,W2 LINK NEXT XCOPY BIN11,W0,W2,RBUF,W4 CALL BINBCD,BIN10,BIN11,RECNUM CBNE BIN11,W0,COP801 LINK FWD CBE BIN10,W0,COP802 COP801 B COP749 COP802 ADD BIN5,W1 MOVE BIN6,=W'26' CBE BIN5,BIN6,COP805 B COP748 COP805 CBE DTEST,=C'S',COP810 CBE DTEST,=C'F',COP807 MOVE DTEST,=C'F' B COP808 COP807 MOVE DTEST,=C'S' COP808 B COP747 COP810 MOVE NOREC,=D'00' CALL CHANFC,DISK,FCOD1 CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD BNOK COP816 CALL CHANFC,DISK,FCOD2 CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD * BNOK COP818 83-06-20 CALL PCLOSE,PBLOCK,BPOOL(W1) PERF CHVNAM,VOLNAM,FCOD1 CHANGE NAME BNOK COP737 PERF CHVNAM,COPNAM,FCOD2 CHANGE NAME BNOK COP737 COP815 B COP000 COP816 MOVE NOREC,=D'00' CALL CHANFC,DISK,FCOD2 CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,DEBINW4 COP818 B COP733 PEND EJECT DISPYE PROC DSC1 DEDSSCRN,6,BIN12 SET CURSOR EDWRT DEDSSCRN,FINFO WRITE LINE ADD BIN12,SECLEN LINE := LINE + 1 CBL BIN12,=X'1901',DISP50 BRANCH IF LINE < 25 XCOPY BIN12,W0,W1,W1,W1 LINE := 01 ADD BIN12,W11 COL := COL + 11 CBL BIN12,=X'014A',DISP50 BRANCH IF COL < 74 PAGE IS FULL: MOVE BIN12,=X'0101' LINE/COL := 0101 DISP50 RET PEND EJECT **************** * FINFO FRMT FSL FATTR .HIGH FCOPY DTEST FTAB 3 FCOPY STR6B FMEND FCOPY FRMT FSL FATTR .HIGH FATTR .INV FCOPY =C'COPY ' FCOPY =C'VOLUME/FILE' FNL FATTR .HIGH FTEXT 'TYPE OF COPY:' FKI 14,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=8 FCOPY STR1A FNL FATTR .HIGH FTEXT 'V = VOLUME' FNL FATTR .HIGH FTEXT 'F = FILE' FNL FATTR .HIGH FTEXT 'W = WSM SYSTEM-FILE' FTAB 21 FTEXT '(MAX SIZE OF ONE SECTION: ' FMEL 'ZZ9',NOOFPO FTAB 51 FTEXT 'SECTORS)' FMEND * FCOPV FRMT FSL FATTR .HIGH FATTR .INV FCOPY =C'COPY VOLUME TO VOLUME' FLINK FIO FMEND * FCOPF FRMT FSL FATTR .HIGH FATTR .INV FTEXT 'COPY FILE TO FILE' FLINK FIO FMEND * FCOPW FRMT FSL FATTR .HIGH FATTR .INV FTEXT 'COPY AND REORGANIZE WSM SYSTEM FILE' FLINK FIO FMEND * FCOPA FRMT FSL FATTR .HIGH FCOPY =C'WHOLE FILE ? Y/N/S:' FKI 21,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 FCOPY COPY FLINK FHEX FMEND * FCOPD FRMT FSL FATTR .HIGH FCOPY =C'COPY DEFINITION:' FATTR .INV FINP 17 FCOPY STR6B FLINK FANSW FMEND * FCOPS FRMT FSL FATTR .HIGH FCOPY =C'COPY SECTION:' FATTR .INV FINP 14 FCOPY STR6B FLINK FANSW FMEND * FCOPFO FRMT FSL FATTR .HIGH FCOPY =C'COPY FORMAT:' FATTR .INV FINP 13 FCOPY STR6B FLINK FANSW FMEND FCOPT FRMT FSL FATTR .HIGH FTEXT 'COPY TABLE T' FATTR .INV FINP 14 FMEL '999',BCD3A FLINK FANSW FMEND * FCOPC FRMT FSL FATTR .HIGH FATTR .INV FCOPY =C'COPY SPECIFIC:' FNL FATTR .HIGH FCOPY =C'TYPE:' FKI 6,MINL=1,MAXL=1,ME,NEOI,ALPHA FCOPY ANSW FATTR .HIGH FTAB 8 FATTR .HIGH FCOPY =C'NAME:' FKI 13,MINL=1,MAXL=6,ME,NEOI,ALPHA,APPL=18 FCOPY STR6B FLINK FHEX FMEND FANSW FRMT FNL FATTR .HIGH FCOPY =C'Y/N' FKI 5,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 FCOPY ANSW FMEND * FIO FRMT FNL FATTR .HIGH FCOPY =C'INPUT' FATTR .HIGH FTAB 7 FCOPY =C'UNIT:' FKI 12,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=9 FCOPY INUNIT FATTR .HIGH FTAB 20 FCOPY =C'VOLUME-NAME:' FINP 33 FCOPY VOLNAM FBF BOOL2,FIODD FATTR .HIGH FTAB 42 FCOPY =C'FILENAME:' FKI 51,MINL=1,MAXL=8,ME,NEOI,REWRT,ALPHA,APPL=6 FCOPY FILNAM FIODD FNL FATTR .HIGH FCOPY =C'OUTPUT' FATTR .HIGH FTAB 8 FCOPY =C'UNIT:' FKI 13,MINL=3,MAXL=3,ME,ALPHA,NEOI,REWRT,APPL=10,DUPL=INUNIT FCOPY UTUNIT FATTR .HIGH FTAB 20 FCOPY =C'VOLUME-NAME:' FINP 33 FCOPY COPNAM FBF BOOL2,FIOD2 FATTR .HIGH FTAB 42 FCOPY =C'FILENAME:' FKI 51,MINL=1,MAXL=8,ME,NEOI,REWRT,ALPHA,APPL=6,DUPL=FILNAM FCOPY COPFIL FIOD2 FLINK FHEX FMEND * FHEX FRMT FNL FKI 1,MINL=0,MAXL=0 FCOPY HEX00 FMEND * END
0x0000…0030 (0, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IDENT WUCOP REL=2.3,841203,870155940230«, t00=0x0000, t01=0x0004}
0x0030…005e Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0000, t01=0x0034}
0x005e…008c Head {h00=0x002a, h01=0x0050, text=»* WORK STATION MANAGEMENT *«, t00=0x0000, t01=0x0062}
0x008c…00ba Head {h00=0x002a, h01=0x0050, text=»* *«, t00=0x0000, t01=0x0090}
0x00ba…00e8 Head {h00=0x002a, h01=0x0050, text=»* 4 COPY VOLUME/FILE (REORGANIZE) *«, t00=0x0000, t01=0x00be}
0x00e8…0116 Head {h00=0x002a, h01=0x0050, text=»* *«, t00=0x0000, t01=0x00ec}
0x0116…0144 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0000, t01=0x011a}
0x0144…014c Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0148}
0x014c…0154 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0150}
0x0154…0168 Head {h00=0x0010, h01=0x0050, text=»** HISTORY:«, t00=0x0000, t01=0x0158}
0x0168…0170 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x016c}
0x0170…01aa Head {h00=0x0036, h01=0x0050, text=»** 84-12-03 /CJ MUL&DIV NOW FROM ASS.ROUTINE «, t00=0x0000, t01=0x0174}
0x01aa…01ec Head {h00=0x003e, h01=0x0050, text=»** 84-10-23 /CJ TOSSUT REL13 NEW DIALOUGE IMPLEMENTED«, t00=0x0001, t01=0x001e}
0x01ec…0234 Head {h00=0x0044, h01=0x0050, text=»** 84-07-12 /MAER CALCULATION OF "PROGRAM LENGTH" FOR L-FILES«, t00=0x0001, t01=0x0060}
0x0234…0282 Head {h00=0x004a, h01=0x0050, text=»** (LOAD MODULES) CORRECTED (ROUNDING, NOT TRUNC.). «, t00=0x0001, t01=0x00a8}
0x0282…02c8 Head {h00=0x0042, h01=0x0050, text=»** "FILE NAME UNKNOWN" DISPLAYED INSTEAD OF «, t00=0x0001, t01=0x00f6}
0x02c8…0310 Head {h00=0x0044, h01=0x0050, text=»** "I/O ERROR 0000" IF INPUT FILE NOT PRESENT.«, t00=0x0001, t01=0x013c}
0x0310…035c Head {h00=0x0048, h01=0x0050, text=»** DISPLAY OF COPIED ELEMENT TYPES AND NAMES WHEN «, t00=0x0001, t01=0x0184}
0x035c…03a6 Head {h00=0x0046, h01=0x0050, text=»** ANSWERING "Y" TO THE QUESTION "WHOLE FILE ?".«, t00=0x0002, t01=0x0040}
0x03a6…03f0 Head {h00=0x0046, h01=0x0050, text=»** COPY F TO F, FILE SIZE CALCULATION CORRECTED «, t00=0x0002, t01=0x008a}
0x03f0…043e Head {h00=0x004a, h01=0x0050, text=»** (SECTOR LENGTH 255 FOR S,D,I-FILES, OTHERS 256). «, t00=0x0002, t01=0x00d4}
0x043e…0486 Head {h00=0x0044, h01=0x0050, text=»** MAX SECTION SIZE DISPLAYED (FORMAT FCOPY). «, t00=0x0002, t01=0x0122}
0x0486…04d0 Head {h00=0x0046, h01=0x0050, text=»** 83-06-30 /MAER DUPLICATION OF DESTINATION UNIT NOW ALLOWED. «, t00=0x0002, t01=0x016a}
0x04d0…0506 Head {h00=0x0032, h01=0x0050, text=»** 83-06-20 /MAER COPY FORMS OF TFP ADDED. «, t00=0x0003, t01=0x0024}
0x0506…0552 Head {h00=0x0048, h01=0x0050, text=»** 83-06-17 /MAER COPY SPECIFIC SECTION / DEFINITION INTRODUCED. «, t00=0x0003, t01=0x005a}
0x0552…0598 Head {h00=0x0042, h01=0x0050, text=»** 83-05-11 /MAER SOP-PANEL F.C. := ZERO (EARLIER 20 => BAD«, t00=0x0003, t01=0x00a6}
0x0598…05e2 Head {h00=0x0046, h01=0x0050, text=»** READ-REQUEST ON VD82 FOR COPY DISC TO DISC). «, t00=0x0003, t01=0x00ec}
0x05e2…0614 Head {h00=0x002e, h01=0x0050, text=»** CHANGED DECORATIONS. «, t00=0x0003, t01=0x0136}
0x0614…064e Head {h00=0x0036, h01=0x0050, text=»** 82-10-20 /MAER VOLUME-NAME CHANGE COMPLETED.«, t00=0x0003, t01=0x0168}
0x064e…068e Head {h00=0x003c, h01=0x0050, text=»** 82-07-26 /DALI VOLUME-NAME IS CHANGED BEFORE COPY «, t00=0x0004, t01=0x0012}
0x068e…06b4 Head {h00=0x0022, h01=0x0050, text=»** 81-11-04 /DALI CREATION «, t00=0x0004, t01=0x0052}
0x06b4…06bc Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0078}
0x06bc…06c4 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0080}
0x06c4…06d8 Head {h00=0x0010, h01=0x0050, text=» DDUM WUDIV «, t00=0x0004, t01=0x0088}
0x06d8…06e6 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0004, t01=0x009c}
0x06e6…06fa Head {h00=0x0010, h01=0x0050, text=» ENTRY WUCOP«, t00=0x0004, t01=0x00aa}
0x06fa…0704 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00be}
0x0704…072e Head {h00=0x0026, h01=0x0050, text=» EXPROC DECLRA CRE= SCREEN ROUTINE«, t00=0x0004, t01=0x00c8}
0x072e…0758 Head {h00=0x0026, h01=0x0050, text=» EXPROC DECLRN CRE= SCREEN ROUTINE«, t00=0x0004, t01=0x00f2}
0x0758…0782 Head {h00=0x0026, h01=0x0050, text=» EXPROC DISERR CRE= ERROR ROUTINE «, t00=0x0004, t01=0x011c}
0x0782…07aa Head {h00=0x0024, h01=0x0050, text=» EXPROC UFERR CRE= ERROR ROUTINE«, t00=0x0004, t01=0x0146}
0x07aa…07d8 Head {h00=0x002a, h01=0x0050, text=» EXPROC DSKERR,PBIN CRE= ERROR ROUTINE«, t00=0x0004, t01=0x016e}
0x07d8…0810 Head {h00=0x0034, h01=0x0050, text=» EXPROC CHVNAM,PSTRG,PBIN CRE= CHANGE VOLUMENAME«, t00=0x0005, t01=0x000c}
0x0810…0824 Head {h00=0x0010, h01=0x0050, text=» EXPROC HALT«, t00=0x0005, t01=0x0044}
0x0824…082e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0058}
0x082e…0858 Head {h00=0x0026, h01=0x0050, text=» EXT COPYDD ASS= COPY DISC TO DISC«, t00=0x0005, t01=0x0062}
0x0858…087a Head {h00=0x001e, h01=0x0050, text=» EXT OPENF ASS= OPEN FILE «, t00=0x0005, t01=0x008c}
0x087a…089e Head {h00=0x0020, h01=0x0050, text=» EXT CLOSEF ASS= CLOSE FILE «, t00=0x0005, t01=0x00ae}
0x089e…08c6 Head {h00=0x0024, h01=0x0050, text=» EXT RDSECT ASS= READ ONE SECTOR«, t00=0x0005, t01=0x00d2}
0x08c6…08f6 Head {h00=0x002c, h01=0x0050, text=» EXT BINBCD ASS= TWO BINARY ITEMS TO BCD«, t00=0x0005, t01=0x00fa}
0x08f6…0926 Head {h00=0x002c, h01=0x0050, text=» EXT BCDBIN ASS= BCD TO TWO BINARY ITEMS«, t00=0x0005, t01=0x012a}
0x0926…094a Head {h00=0x0020, h01=0x0050, text=» EXT CREFIL ASS= CREATE FILE«, t00=0x0005, t01=0x015a}
0x094a…096e Head {h00=0x0020, h01=0x0050, text=» EXT DELFIL ASS= DELETE FILE«, t00=0x0005, t01=0x017e}
0x096e…0994 Head {h00=0x0022, h01=0x0050, text=» EXT READDK ASS= READ A RECORD«, t00=0x0006, t01=0x0012}
0x0994…09bc Head {h00=0x0024, h01=0x0050, text=» EXT WRITDK ASS= WRITE A RECORD «, t00=0x0006, t01=0x0038}
0x09bc…09e4 Head {h00=0x0024, h01=0x0050, text=» EXT CHANFC ASS= CHANGE FILECODE«, t00=0x0006, t01=0x0060}
0x09e4…0a04 Head {h00=0x001c, h01=0x0050, text=» EXT PREAD ASS= WSM-READ«, t00=0x0006, t01=0x0088}
0x0a04…0a26 Head {h00=0x001e, h01=0x0050, text=» EXT PWRITE ASS= WSM-WRITE«, t00=0x0006, t01=0x00a8}
0x0a26…0a48 Head {h00=0x001e, h01=0x0050, text=» EXT PCLOSE ASS= WSM-CLOSE«, t00=0x0006, t01=0x00ca}
0x0a48…0a6e Head {h00=0x0022, h01=0x0050, text=» EXT WXMUL ASS= MULTIPLICATION«, t00=0x0006, t01=0x00ec}
0x0a6e…0a8e Head {h00=0x001c, h01=0x0050, text=» EXT WXDIV ASS= DIVISION«, t00=0x0006, t01=0x0112}
0x0a8e…0ab4 Head {h00=0x0022, h01=0x0050, text=» EXT GETIND ASS= GET DIMENSION«, t00=0x0006, t01=0x0132}
0x0ab4…0ac2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0158}
0x0ac2…0ad4 Head {h00=0x000e, h01=0x0050, text=»WUCOP PROC«, t00=0x0006, t01=0x0166}
0x0ad4…0b02 Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0006, t01=0x0178}
0x0b02…0b30 Head {h00=0x002a, h01=0x0050, text=»* 4 COPY VOLUME/FILE (REORGANIZE) * «, t00=0x0007, t01=0x0016}
0x0b30…0b5e Head {h00=0x002a, h01=0x0050, text=»************************************* «, t00=0x0007, t01=0x0044}
0x0b5e…0b6c Head {h00=0x000a, h01=0x0050, text=»COP000«, t00=0x0007, t01=0x0072}
0x0b6c…0b94 Head {h00=0x0024, h01=0x0050, text=» CLEAR BOOL2 USED IN FORMAT FIO «, t00=0x0007, t01=0x0080}
0x0b94…0baa Head {h00=0x0012, h01=0x0050, text=» ATTFMT FCOPY «, t00=0x0007, t01=0x00a8}
0x0baa…0bc0 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0007, t01=0x00be}
0x0bc0…0bce Head {h00=0x000a, h01=0x0050, text=»COP100«, t00=0x0007, t01=0x00d4}
0x0bce…0be2 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0007, t01=0x00e2}
0x0be2…0bf0 Head {h00=0x000a, h01=0x0050, text=»COP150«, t00=0x0007, t01=0x00f6}
0x0bf0…0c18 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,COP100,RETUR,COP200 «, t00=0x0007, t01=0x0104}
0x0c18…0c36 Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0007, t01=0x012c}
0x0c36…0c48 Head {h00=0x000e, h01=0x0050, text=» B COP150 «, t00=0x0007, t01=0x014a}
0x0c48…0c56 Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0007, t01=0x015c}
0x0c56…0c62 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0007, t01=0x016a}
0x0c62…0c70 Head {h00=0x000a, h01=0x0050, text=»COP200«, t00=0x0007, t01=0x0176}
0x0c70…0ca2 Head {h00=0x002e, h01=0x0050, text=» IB DTYP,COP500,COP700 COPY FILE,COPY WSM «, t00=0x0007, t01=0x0184}
0x0ca2…0cb0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0026}
0x0cb0…0cce Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x0034}
0x0cce…0cec Head {h00=0x001a, h01=0x0050, text=»* COPY DISC TO DISC * «, t00=0x0008, t01=0x0052}
0x0cec…0d0a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x0070}
0x0d0a…0d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008e}
0x0d14…0d22 Head {h00=0x000a, h01=0x0050, text=»COP250«, t00=0x0008, t01=0x0098}
0x0d22…0d38 Head {h00=0x0012, h01=0x0050, text=» ATTFMT FCOPV «, t00=0x0008, t01=0x00a6}
0x0d38…0d4e Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0008, t01=0x00bc}
0x0d4e…0d5c Head {h00=0x000a, h01=0x0050, text=»COP300«, t00=0x0008, t01=0x00d2}
0x0d5c…0d70 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0008, t01=0x00e0}
0x0d70…0d7e Head {h00=0x000a, h01=0x0050, text=»COP350«, t00=0x0008, t01=0x00f4}
0x0d7e…0da6 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,COP300,COP000,COP400«, t00=0x0008, t01=0x0102}
0x0da6…0dc4 Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0008, t01=0x012a}
0x0dc4…0dd6 Head {h00=0x000e, h01=0x0050, text=» B COP350 «, t00=0x0008, t01=0x0148}
0x0dd6…0de4 Head {h00=0x000a, h01=0x0050, text=»COP400«, t00=0x0008, t01=0x015a}
0x0de4…0e1a Head {h00=0x0032, h01=0x0050, text=» XCOPY PBLOCK,W6,W1,FCOD1,W1 FC3 = SOURCE DISC«, t00=0x0008, t01=0x0168}
0x0e1a…0e50 Head {h00=0x0032, h01=0x0050, text=» XCOPY PBLOCK,W7,W1,FCOD2,W1 FC4 = DEST. DISC «, t00=0x0009, t01=0x000e}
0x0e50…0e8a Head {h00=0x0036, h01=0x0050, text=» XCOPY PBLOCK,W14,W6,COPNAM,W0 VOL.NAME DEST DISC «, t00=0x0009, t01=0x0044}
0x0e8a…0ec2 Head {h00=0x0034, h01=0x0050, text=» XCOPY PBLOCK,W22,W1,W3,W1 OPTION=3 NEW DIALOUGE«, t00=0x0009, t01=0x007e}
0x0ec2…0f02 Head {h00=0x003c, h01=0x0050, text=» XCOPY PBLOCK,W23,W1,W0,W0 SOP-PANEL F.C. NOT USED (:=0)«, t00=0x0009, t01=0x00b6}
0x0f02…0f3a Head {h00=0x0034, h01=0x0050, text=» CALL COPYDD,PBLOCK,BPOOL(W1),BPOOL(W18),RETCOD «, t00=0x0009, t01=0x00f6}
0x0f3a…0f62 Head {h00=0x0024, h01=0x0050, text=» BPOOL(W1) = BUF1 = 2048 WORDS«, t00=0x0009, t01=0x012e}
0x0f62…0f8a Head {h00=0x0024, h01=0x0050, text=» BPOOL(W18)= BUF2 = 200 WORDS«, t00=0x0009, t01=0x0156}
0x0f8a…0fa8 Head {h00=0x001a, h01=0x0050, text=» CBE RETCOD,W0,COP450 «, t00=0x0009, t01=0x017e}
0x0fa8…0fd6 Head {h00=0x002a, h01=0x0050, text=» CBE RETCOD,W9,COP000 OPERATOR ABORTED«, t00=0x000a, t01=0x000c}
0x0fd6…0fe4 Head {h00=0x000a, h01=0x0050, text=»COP420«, t00=0x000a, t01=0x003a}
0x0fe4…0ff8 Head {h00=0x0010, h01=0x0050, text=» PERF DISERR«, t00=0x000a, t01=0x0048}
0x0ff8…100a Head {h00=0x000e, h01=0x0050, text=» B COP350 «, t00=0x000a, t01=0x005c}
0x100a…1018 Head {h00=0x000a, h01=0x0050, text=»COP450«, t00=0x000a, t01=0x006e}
0x1018…102a Head {h00=0x000e, h01=0x0050, text=» PERF HALT«, t00=0x000a, t01=0x007c}
0x102a…103c Head {h00=0x000e, h01=0x0050, text=» B COP000 «, t00=0x000a, t01=0x008e}
0x103c…104a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00a0}
0x104a…1068 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000a, t01=0x00ae}
0x1068…1086 Head {h00=0x001a, h01=0x0050, text=»* COPY FILE TO FILE * «, t00=0x000a, t01=0x00cc}
0x1086…10a4 Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x000a, t01=0x00ea}
0x10a4…10b2 Head {h00=0x000a, h01=0x0050, text=»COP500«, t00=0x000a, t01=0x0108}
0x10b2…10c8 Head {h00=0x0012, h01=0x0050, text=» ATTFMT FCOPF «, t00=0x000a, t01=0x0116}
0x10c8…10de Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x000a, t01=0x012c}
0x10de…10f0 Head {h00=0x000e, h01=0x0050, text=» SET BOOL2«, t00=0x000a, t01=0x0142}
0x10f0…10fe Head {h00=0x000a, h01=0x0050, text=»COP510«, t00=0x000a, t01=0x0154}
0x10fe…1112 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x000a, t01=0x0162}
0x1112…1120 Head {h00=0x000a, h01=0x0050, text=»COP520«, t00=0x000a, t01=0x0176}
0x1120…1148 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,COP510,COP000,COP540«, t00=0x000a, t01=0x0184}
0x1148…1166 Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x000b, t01=0x001c}
0x1166…1178 Head {h00=0x000e, h01=0x0050, text=» B COP520 «, t00=0x000b, t01=0x003a}
0x1178…1186 Head {h00=0x000a, h01=0x0050, text=»COP540«, t00=0x000b, t01=0x004c}
0x1186…11b2 Head {h00=0x0028, h01=0x0050, text=» CLEAR BOOL5 FILE PRESENCE INDICATOR«, t00=0x000b, t01=0x005a}
0x11b2…11cc Head {h00=0x0016, h01=0x0050, text=» MOVE NOREC,=D'00'«, t00=0x000b, t01=0x0086}
0x11cc…11fa Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,VOLEX1,FCOD1 CHANGE NAME «, t00=0x000b, t01=0x00a0}
0x11fa…120e Head {h00=0x0010, h01=0x0050, text=» BNOK COP546«, t00=0x000b, t01=0x00ce}
0x120e…123c Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,VOLEX2,FCOD2 CHANGE NAME «, t00=0x000b, t01=0x00e2}
0x123c…1250 Head {h00=0x0010, h01=0x0050, text=» BNOK COP544«, t00=0x000b, t01=0x0110}
0x1250…1276 Head {h00=0x0022, h01=0x0050, text=» SET BOOL5 "FILE NAME UNKNOWN"«, t00=0x000b, t01=0x0124}
0x1276…1296 Head {h00=0x001c, h01=0x0050, text=» CBE FCOD1,FCOD2,COP541 «, t00=0x000b, t01=0x014a}
0x1296…12d8 Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD «, t00=0x000b, t01=0x016a}
0x12d8…12ea Head {h00=0x000e, h01=0x0050, text=» B COP542 «, t00=0x000c, t01=0x001c}
0x12ea…12f8 Head {h00=0x000a, h01=0x0050, text=»COP541«, t00=0x000c, t01=0x002e}
0x12f8…133a Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX2,RETCOD «, t00=0x000c, t01=0x003c}
0x133a…1348 Head {h00=0x000a, h01=0x0050, text=»COP542«, t00=0x000c, t01=0x007e}
0x1348…135c Head {h00=0x0010, h01=0x0050, text=» BNOK COP543«, t00=0x000c, t01=0x008c}
0x135c…1386 Head {h00=0x0026, h01=0x0050, text=» CLEAR BOOL5 "FILE NAME KNOWN..." «, t00=0x000c, t01=0x00a0}
0x1386…13be Head {h00=0x0034, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD«, t00=0x000c, t01=0x00ca}
0x13be…13d2 Head {h00=0x0010, h01=0x0050, text=» BOK COP548 «, t00=0x000c, t01=0x0102}
0x13d2…13e0 Head {h00=0x000a, h01=0x0050, text=»COP543«, t00=0x000c, t01=0x0116}
0x13e0…140e Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,COPNAM,FCOD2 CHANGE NAME «, t00=0x000c, t01=0x0124}
0x140e…1422 Head {h00=0x0010, h01=0x0050, text=» BNOK COP546«, t00=0x000c, t01=0x0152}
0x1422…1442 Head {h00=0x001c, h01=0x0050, text=» CBE FCOD1,FCOD2,COP546 «, t00=0x000c, t01=0x0166}
0x1442…1450 Head {h00=0x000a, h01=0x0050, text=»COP544«, t00=0x000c, t01=0x0186}
0x1450…147e (13, 0, 400) Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,VOLNAM,FCOD1 CHANGE NAME «, t00=0x000d, t01=0x0004}
0x147e…148c Head {h00=0x000a, h01=0x0050, text=»COP546«, t00=0x000d, t01=0x0032}
0x148c…14b6 Head {h00=0x0026, h01=0x0050, text=» TBT BOOL5,COP547 FILE NOT PRESENT«, t00=0x000d, t01=0x0040}
0x14b6…14ca Head {h00=0x0010, h01=0x0050, text=» PERF DISERR«, t00=0x000d, t01=0x006a}
0x14ca…14dc Head {h00=0x000e, h01=0x0050, text=» B COP520 «, t00=0x000d, t01=0x007e}
0x14dc…14ea Head {h00=0x000a, h01=0x0050, text=»COP547«, t00=0x000d, t01=0x0090}
0x14ea…1516 Head {h00=0x0028, h01=0x0050, text=» PERF DSKERR,W12 "FILE NAME UNKNOWN"«, t00=0x000d, t01=0x009e}
0x1516…1528 Head {h00=0x000e, h01=0x0050, text=» B COP520 «, t00=0x000d, t01=0x00ca}
0x1528…1536 Head {h00=0x000a, h01=0x0050, text=»COP548«, t00=0x000d, t01=0x00dc}
0x1536…1578 Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W3),SYSBUF,COPFIL,VOLEX2,RETCOD «, t00=0x000d, t01=0x00ea}
0x1578…158c Head {h00=0x0010, h01=0x0050, text=» BNOK COP550«, t00=0x000d, t01=0x012c}
0x158c…15c4 Head {h00=0x0034, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD«, t00=0x000d, t01=0x0140}
0x15c4…15d8 Head {h00=0x0010, h01=0x0050, text=» BNOK COP543«, t00=0x000d, t01=0x0178}
0x15d8…15e6 Head {h00=0x000a, h01=0x0050, text=»COP550«, t00=0x000d, t01=0x018c}
0x15e6…161a Head {h00=0x0030, h01=0x0050, text=» MOVE BCDI21(W2),=D'00' USED FOR NO. OF RECS«, t00=0x000e, t01=0x000a}
0x161a…163e Head {h00=0x0020, h01=0x0050, text=» MOVE BIN5,W0 NO. OF EXTENTS«, t00=0x000e, t01=0x003e}
0x163e…165e Head {h00=0x001c, h01=0x0050, text=» MOVE BIN1,W0 SECTOR NO.«, t00=0x000e, t01=0x0062}
0x165e…167e Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD1 «, t00=0x000e, t01=0x0082}
0x167e…16bc Head {h00=0x003a, h01=0x0050, text=» CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ VOLUME-LABEL«, t00=0x000e, t01=0x00a2}
0x16bc…16d0 Head {h00=0x0010, h01=0x0050, text=» BNOK COP543«, t00=0x000e, t01=0x00e0}
0x16d0…16fe Head {h00=0x002a, h01=0x0050, text=» XCOPY BIN1,W0,W2,SYSBUF,W10 FSAT BASE«, t00=0x000e, t01=0x00f4}
0x16fe…1732 Head {h00=0x0030, h01=0x0050, text=» MOVE DKBIN2,=W'46' FSAT-LENGTH DISPLACEMENT«, t00=0x000e, t01=0x0122}
0x1732…1768 Head {h00=0x0032, h01=0x0050, text=» XCOPY DKBIN1,W0,W2,SYSBUF,DKBIN2 FSAT-LENGTH «, t00=0x000e, t01=0x0156}
0x1768…1798 Head {h00=0x002c, h01=0x0050, text=» XCOPY DKBIN2,W0,W2,SYSBUF,W6 ADM-LENGTH«, t00=0x000e, t01=0x018c}
0x1798…17ce Head {h00=0x0032, h01=0x0050, text=» XCOPY DKBIN3,W0,W2,SYSBUF,W12 VTOC-REC-LEGTH «, t00=0x000f, t01=0x002c}
0x17ce…17f2 Head {h00=0x0020, h01=0x0050, text=» ADD DKBIN3,W1 OCCUPYED BYTE«, t00=0x000f, t01=0x0062}
0x17f2…1822 Head {h00=0x002c, h01=0x0050, text=» SUB DKBIN2,DKBIN1 GET NO. OF VTOC RECS «, t00=0x000f, t01=0x0086}
0x1822…1848 Head {h00=0x0022, h01=0x0050, text=» ADD BIN1,DKBIN1 START OF VTOC«, t00=0x000f, t01=0x00b6}
0x1848…1856 Head {h00=0x000a, h01=0x0050, text=»COP590«, t00=0x000f, t01=0x00dc}
0x1856…1892 Head {h00=0x0038, h01=0x0050, text=» CALL RDSECT,DISK,BIN1,SYSBUF,RETCOD READ ONESECTOR «, t00=0x000f, t01=0x00ea}
0x1892…18a6 Head {h00=0x0010, h01=0x0050, text=» BNOK COP543«, t00=0x000f, t01=0x0126}
0x18a6…18cc Head {h00=0x0022, h01=0x0050, text=» MOVE BIN4,W0 DISP TO FILENAME«, t00=0x000f, t01=0x013a}
0x18cc…18da Head {h00=0x000a, h01=0x0050, text=»COP600«, t00=0x000f, t01=0x0160}
0x18da…18f0 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x000f, t01=0x016e}
0x18f0…191c Head {h00=0x0028, h01=0x0050, text=» MATCH FILNAM,BIN3,W8,SYSBUF,BIN4,W8«, t00=0x000f, t01=0x0184}
0x191c…193e Head {h00=0x001e, h01=0x0050, text=» BOK COP640 FILENAME FOUND«, t00=0x0010, t01=0x0020}
0x193e…194c Head {h00=0x000a, h01=0x0050, text=»COP610«, t00=0x0010, t01=0x0042}
0x194c…1978 Head {h00=0x0028, h01=0x0050, text=» ADD BIN4,DKBIN3 GET NEXT VTOC ENTRY«, t00=0x0010, t01=0x0050}
0x1978…19ac Head {h00=0x0030, h01=0x0050, text=» CBL BIN4,=W'240',COP600 ALL ENTRIES HANDLED«, t00=0x0010, t01=0x007c}
0x19ac…19d4 Head {h00=0x0024, h01=0x0050, text=» SUB DKBIN2,W1 MORE VTOC RECORDS«, t00=0x0010, t01=0x00b0}
0x19d4…19ec Head {h00=0x0014, h01=0x0050, text=» BNZ COP620 YES «, t00=0x0010, t01=0x00d8}
0x19ec…1a20 Head {h00=0x0030, h01=0x0050, text=» CBNE BCDI21(W2),=D'00',COP680 FILE HANDLED «, t00=0x0010, t01=0x00f0}
0x1a20…1a38 Head {h00=0x0014, h01=0x0050, text=» PERF DSKERR,W12«, t00=0x0010, t01=0x0124}
0x1a38…1a4a Head {h00=0x000e, h01=0x0050, text=» B COP543 «, t00=0x0010, t01=0x013c}
0x1a4a…1a58 Head {h00=0x000a, h01=0x0050, text=»COP620«, t00=0x0010, t01=0x014e}
0x1a58…1a82 Head {h00=0x0026, h01=0x0050, text=» ADD BIN1,W1 READ NEXT VTOC RECORD«, t00=0x0010, t01=0x015c}
0x1a82…1a94 Head {h00=0x000e, h01=0x0050, text=» B COP590 «, t00=0x0010, t01=0x0186}
0x1a94…1aa2 Head {h00=0x000a, h01=0x0050, text=»COP640«, t00=0x0011, t01=0x0008}
0x1aa2…1ace Head {h00=0x0028, h01=0x0050, text=» CBNE BIN5,W0,COP660 NO. OF EXTENTS «, t00=0x0011, t01=0x0016}
0x1ace…1af8 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN12,=W'40' NO. OF EXTENTS «, t00=0x0011, t01=0x0042}
0x1af8…1b24 Head {h00=0x0028, h01=0x0050, text=» ADD BIN12,BIN4 DISP IN VTOC-RECORD «, t00=0x0011, t01=0x006c}
0x1b24…1b4a Head {h00=0x0022, h01=0x0050, text=» XCOPY BIN5,W1,W1,SYSBUF,BIN12«, t00=0x0011, t01=0x0098}
0x1b4a…1b84 Head {h00=0x0036, h01=0x0050, text=» XCOPY BPOOL(W20),W0,DKBIN3,SYSBUF,BIN4 SAVE ENTRY«, t00=0x0011, t01=0x00be}
0x1b84…1bb4 Head {h00=0x002c, h01=0x0050, text=» CBNE BIN5,W0,COP660 AT LEAST ONE ENTRY «, t00=0x0011, t01=0x00f8}
0x1bb4…1bd0 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN5,=X'7FFF' «, t00=0x0011, t01=0x0128}
0x1bd0…1bde Head {h00=0x000a, h01=0x0050, text=»COP660«, t00=0x0011, t01=0x0144}
0x1bde…1c04 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN2,=W'27' F.ORG DISPL.«, t00=0x0011, t01=0x0152}
0x1c04…1c2e Head {h00=0x0026, h01=0x0050, text=» XCOPY STR1A,W0,W1,BPOOL(W20),BIN2«, t00=0x0011, t01=0x0178}
0x1c2e…1c50 Head {h00=0x001e, h01=0x0050, text=» MOVE BIN2,W12 FILE EXT 1 «, t00=0x0012, t01=0x0012}
0x1c50…1c7a Head {h00=0x0026, h01=0x0050, text=» ADD BIN2,BIN4 DISP IN VTOC-RECORD«, t00=0x0012, t01=0x0034}
0x1c7a…1cb0 Head {h00=0x0032, h01=0x0050, text=» CBNE STR1A,=C'L',COP670 BRANCH IF NOT L-FILE «, t00=0x0012, t01=0x005e}
0x1cb0…1ce6 Head {h00=0x0032, h01=0x0050, text=» ADD BIN2,W8 USE LAST RECORD NO WHEN L-FILES. «, t00=0x0012, t01=0x0094}
0x1ce6…1cf4 Head {h00=0x000a, h01=0x0050, text=»COP670«, t00=0x0012, t01=0x00ca}
0x1cf4…1d28 Head {h00=0x0030, h01=0x0050, text=» XCOPY BIN10,W0,W2,SYSBUF,BIN2 FILE EXTENT 1«, t00=0x0012, t01=0x00d8}
0x1d28…1d3c Head {h00=0x0010, h01=0x0050, text=» ADD BIN2,W2«, t00=0x0012, t01=0x010c}
0x1d3c…1d70 Head {h00=0x0030, h01=0x0050, text=» XCOPY BIN11,W0,W2,SYSBUF,BIN2 FILE EXTENT 2«, t00=0x0012, t01=0x0120}
0x1d70…1d9c Head {h00=0x0028, h01=0x0050, text=» CALL BINBCD,BIN10,BIN11,BCDI21(W1) «, t00=0x0012, t01=0x0154}
0x1d9c…1dbe Head {h00=0x001e, h01=0x0050, text=» ADD BCDI21(W2),BCDI21(W1)«, t00=0x0012, t01=0x0180}
0x1dbe…1de0 Head {h00=0x001e, h01=0x0050, text=» SUB BIN5,W1 MORE EXTENTS «, t00=0x0013, t01=0x0012}
0x1de0…1df6 Head {h00=0x0012, h01=0x0050, text=» BP COP610 YES«, t00=0x0013, t01=0x0034}
0x1df6…1e04 Head {h00=0x000a, h01=0x0050, text=»COP680«, t00=0x0013, t01=0x004a}
0x1e04…1e1a Head {h00=0x0012, h01=0x0050, text=» ERASE 0,W1,W6«, t00=0x0013, t01=0x0058}
0x1e1a…1e44 Head {h00=0x0026, h01=0x0050, text=» XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG«, t00=0x0013, t01=0x006e}
0x1e44…1e74 Head {h00=0x002c, h01=0x0050, text=» XCOPY PBLOCK,W8,W8,COPFIL,W0 FILE-NAME «, t00=0x0013, t01=0x0098}
0x1e74…1ea6 Head {h00=0x002e, h01=0x0050, text=» XCOPY PBLOCK,W16,W6,VOLEX2,W0 VOL-NAME 1 «, t00=0x0013, t01=0x00c8}
0x1ea6…1eb4 Head {h00=0x000a, h01=0x0050, text=»COP682«, t00=0x0013, t01=0x00fa}
0x1eb4…1eec Head {h00=0x0034, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD«, t00=0x0013, t01=0x0108}
0x1eec…1f00 Head {h00=0x0010, h01=0x0050, text=» BOK COP682 «, t00=0x0013, t01=0x0140}
0x1f00…1f38 Head {h00=0x0034, h01=0x0050, text=» CALL DELFIL,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD «, t00=0x0013, t01=0x0154}
0x1f38…1f62 Head {h00=0x0026, h01=0x0050, text=» XCOPY PBLOCK,W7,W1,STR1A,W0 F.ORG«, t00=0x0013, t01=0x018c}
0x1f62…1f92 Head {h00=0x002c, h01=0x0050, text=» XCOPY PBLOCK,W8,W8,COPFIL,W0 FILE-NAME «, t00=0x0014, t01=0x0026}
0x1f92…1fc2 Head {h00=0x002c, h01=0x0050, text=» COPY PBLOCK,W16,W6,VOLEX2,W0 VOL-NAME 1«, t00=0x0014, t01=0x0056}
0x1fc2…1fdc Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'40' «, t00=0x0014, t01=0x0086}
0x1fdc…1ffe Head {h00=0x001e, h01=0x0050, text=» MOVE BIN2,=W'28' CRD + RP«, t00=0x0014, t01=0x00a0}
0x1ffe…203c Head {h00=0x003a, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W9,BPOOL(W20),BIN2 REL + RET.PERIOD«, t00=0x0014, t01=0x00c2}
0x203c…2056 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'49' «, t00=0x0014, t01=0x0100}
0x2056…2072 Head {h00=0x0018, h01=0x0050, text=» MOVE BIN2,=W'26' BF«, t00=0x0014, t01=0x011a}
0x2072…20a2 Head {h00=0x002c, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W1,BPOOL(W20),BIN2 BF«, t00=0x0014, t01=0x0136}
0x20a2…20b8 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN4,W0 «, t00=0x0014, t01=0x0166}
0x20b8…20e4 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN4,W1,W1,BPOOL(W20),BIN2 BF«, t00=0x0014, t01=0x017c}
0x20e4…20fe Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'50' «, t00=0x0015, t01=0x0018}
0x20fe…2114 Head {h00=0x0012, h01=0x0050, text=» MOVE BIN2,W24«, t00=0x0015, t01=0x0032}
0x2114…2150 Head {h00=0x0038, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W2,BPOOL(W20),BIN2 RECORD LENGTH «, t00=0x0015, t01=0x0048}
0x2150…2188 Head {h00=0x0034, h01=0x0050, text=» XCOPY BIN3,W0,W2,BPOOL(W20),BIN2 RECORD LENGTH «, t00=0x0015, t01=0x0084}
0x2188…21b8 Head {h00=0x002c, h01=0x0050, text=» MOVE NOREC,BCDI21(W2) SAVE NO. OF RECS «, t00=0x0015, t01=0x00bc}
0x21b8…21d2 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'52' «, t00=0x0015, t01=0x00ec}
0x21d2…2206 Head {h00=0x0030, h01=0x0050, text=» CBNE STR1A,=C'L',COP684 JUMP IF NOT L-FILE «, t00=0x0015, t01=0x0106}
0x2206…223c Head {h00=0x0032, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W2,BPOOL(W20),W8 MON + SOP «, t00=0x0015, t01=0x013a}
0x223c…2268 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN7,BCDI21(W2) NO. OF SECTORS«, t00=0x0015, t01=0x0170}
0x2268…22a0 Head {h00=0x0034, h01=0x0050, text=» CALL WXDIV,BIN7,W16,BIN7 PROGRAM USES 240 BYTES«, t00=0x0016, t01=0x000c}
0x22a0…22c8 Head {h00=0x0024, h01=0x0050, text=» MOVE BCDI21(W1),BIN7 PER SECTOR«, t00=0x0016, t01=0x0044}
0x22c8…22ea Head {h00=0x001e, h01=0x0050, text=» SUB BCDI21(W2),BCDI21(W1)«, t00=0x0016, t01=0x006c}
0x22ea…2320 Head {h00=0x0032, h01=0x0050, text=» MOVE BCDI21(W3),BCDI21(W2) SAVE NO OF RECORDS«, t00=0x0016, t01=0x008e}
0x2320…233e Head {h00=0x001a, h01=0x0050, text=» MOVE BIN1,BCDI21(W2) «, t00=0x0016, t01=0x00c4}
0x233e…2372 Head {h00=0x0030, h01=0x0050, text=» CALL WXDIV,BIN1,W4,BIN1 GET PROGRAM LENGTH «, t00=0x0016, t01=0x00e2}
0x2372…2390 Head {h00=0x001a, h01=0x0050, text=» MOVE BCDI21(W2),BIN1 «, t00=0x0016, t01=0x0116}
0x2390…23aa Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'54' «, t00=0x0016, t01=0x0134}
0x23aa…23e4 Head {h00=0x0036, h01=0x0050, text=» MOVE BCDI21(W1),BCDI21(W2) IF REMAINDER EXISTS =>«, t00=0x0016, t01=0x014e}
0x23e4…2412 Head {h00=0x002a, h01=0x0050, text=» MUL BCDI21(W1),=D'+4' => YET ANOTHER «, t00=0x0016, t01=0x0188}
0x2412…244e Head {h00=0x0038, h01=0x0050, text=» CBE BCDI21(W1),BCDI21(W3),COP683 SECTOR IS NEEDED. «, t00=0x0017, t01=0x0026}
0x244e…246c Head {h00=0x001a, h01=0x0050, text=» ADD BCDI21(W2),=D'+1'«, t00=0x0017, t01=0x0062}
0x246c…247a Head {h00=0x000a, h01=0x0050, text=»COP683«, t00=0x0017, t01=0x0080}
0x247a…24a6 Head {h00=0x0028, h01=0x0050, text=» CALL BCDBIN,BCDI21(W2),BIN10,BIN11 «, t00=0x0017, t01=0x008e}
0x24a6…24dc Head {h00=0x0032, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W2,BIN11,W0 PROGRAM LENGTH «, t00=0x0017, t01=0x00ba}
0x24dc…24ee Head {h00=0x000e, h01=0x0050, text=» B COP687 «, t00=0x0017, t01=0x00f0}
0x24ee…24fc Head {h00=0x000a, h01=0x0050, text=»COP684«, t00=0x0017, t01=0x0102}
0x24fc…251e Head {h00=0x001e, h01=0x0050, text=» CALL WXMUL,BIN4,BIN3,BIN4«, t00=0x0017, t01=0x0110}
0x251e…2536 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN6,BIN4 «, t00=0x0017, t01=0x0132}
0x2536…254c Head {h00=0x0012, h01=0x0050, text=» MOVE BIN5,W0 «, t00=0x0017, t01=0x014a}
0x254c…255a Head {h00=0x000a, h01=0x0050, text=»COP685«, t00=0x0017, t01=0x0160}
0x255a…258c Head {h00=0x002e, h01=0x0050, text=» MOVE BIN7,BUFLEN ASSUME BUFFER LENGTH 255«, t00=0x0017, t01=0x016e}
0x258c…25c6 Head {h00=0x0036, h01=0x0050, text=» CBE STR1A,=C'S',COP686 WHICH IS TRUE FOR 'S'-... «, t00=0x0018, t01=0x0010}
0x25c6…25f6 Head {h00=0x002c, h01=0x0050, text=» CBE STR1A,=C'D',COP686 ...'D'-...AND...«, t00=0x0018, t01=0x004a}
0x25f6…2632 Head {h00=0x0038, h01=0x0050, text=» CBE STR1A,=C'I',COP686 ...'I'-FILES (DATA MANAGM.).«, t00=0x0018, t01=0x007a}
0x2632…2670 Head {h00=0x003a, h01=0x0050, text=» MOVE BIN7,SECLEN OTHERS USE SECTOR LENGTH 256 BYTES. «, t00=0x0018, t01=0x00b6}
0x2670…267e Head {h00=0x000a, h01=0x0050, text=»COP686«, t00=0x0018, t01=0x00f4}
0x267e…2692 Head {h00=0x0010, h01=0x0050, text=» ADD BIN5,W1«, t00=0x0018, t01=0x0102}
0x2692…26a8 Head {h00=0x0012, h01=0x0050, text=» SUB BIN6,BIN7«, t00=0x0018, t01=0x0116}
0x26a8…26ba Head {h00=0x000e, h01=0x0050, text=» BP COP686«, t00=0x0018, t01=0x012c}
0x26ba…26d8 Head {h00=0x001a, h01=0x0050, text=» MOVE BIN1,BCDI21(W2) «, t00=0x0018, t01=0x013e}
0x26d8…26fa Head {h00=0x001e, h01=0x0050, text=» CALL WXDIV,BIN1,BIN5,BIN1«, t00=0x0018, t01=0x015c}
0x26fa…271c Head {h00=0x001e, h01=0x0050, text=» CALL WXDIV,BIN4,BIN3,BIN4«, t00=0x0018, t01=0x017e}
0x271c…2734 Head {h00=0x0014, h01=0x0050, text=» MOVE BCD5A,BIN4«, t00=0x0019, t01=0x0010}
0x2734…2756 Head {h00=0x001e, h01=0x0050, text=» CALL WXMUL,BIN1,BIN4,BIN1«, t00=0x0019, t01=0x0028}
0x2756…2774 Head {h00=0x001a, h01=0x0050, text=» MOVE BCDI21(W2),BIN1 «, t00=0x0019, t01=0x004a}
0x2774…27a0 Head {h00=0x0028, h01=0x0050, text=» CALL BCDBIN,BCDI21(W2),BIN10,BIN11 «, t00=0x0019, t01=0x0068}
0x27a0…27ba Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'52' «, t00=0x0019, t01=0x0094}
0x27ba…27f0 Head {h00=0x0032, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W2,BIN10,W0 NO. OF RECORDS «, t00=0x0019, t01=0x00ae}
0x27f0…280a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'54' «, t00=0x0019, t01=0x00e4}
0x280a…2840 Head {h00=0x0032, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W2,BIN11,W0 NO. OF RECORDS «, t00=0x0019, t01=0x00fe}
0x2840…285a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'56' «, t00=0x0019, t01=0x0134}
0x285a…2880 Head {h00=0x0022, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W2,W0,W0 KA«, t00=0x0019, t01=0x014e}
0x2880…289a Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,=W'58' «, t00=0x0019, t01=0x0174}
0x289a…28c2 Head {h00=0x0024, h01=0x0050, text=» XCOPY PBLOCK,BIN1,W2,W0,W0 NIF «, t00=0x0019, t01=0x018e}
0x28c2…28d0 Head {h00=0x000a, h01=0x0050, text=»COP687«, t00=0x001a, t01=0x0026}
0x28d0…2908 Head {h00=0x0034, h01=0x0050, text=» CALL CREFIL,PBLOCK,BPOOL(W12),BPOOL(W1),RETCOD «, t00=0x001a, t01=0x0034}
0x2908…292a Head {h00=0x001e, h01=0x0050, text=» CMP RETCOD,W0 'I/O-ERROR'«, t00=0x001a, t01=0x006c}
0x292a…293e Head {h00=0x0010, h01=0x0050, text=» BNZ COP543 «, t00=0x001a, t01=0x008e}
0x293e…295e Head {h00=0x001c, h01=0x0050, text=» CBE FCOD1,FCOD2,COP688 «, t00=0x001a, t01=0x00a2}
0x295e…29a0 Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD «, t00=0x001a, t01=0x00c2}
0x29a0…29b2 Head {h00=0x000e, h01=0x0050, text=» B COP689 «, t00=0x001a, t01=0x0104}
0x29b2…29c0 Head {h00=0x000a, h01=0x0050, text=»COP688«, t00=0x001a, t01=0x0116}
0x29c0…2a02 Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX2,RETCOD «, t00=0x001a, t01=0x0124}
0x2a02…2a10 Head {h00=0x000a, h01=0x0050, text=»COP689«, t00=0x001a, t01=0x0166}
0x2a10…2a24 Head {h00=0x0010, h01=0x0050, text=» BNOK COP543«, t00=0x001a, t01=0x0174}
0x2a24…2a66 Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W3),SYSBUF,COPFIL,VOLEX2,RETCOD «, t00=0x001a, t01=0x0188}
0x2a66…2a7a Head {h00=0x0010, h01=0x0050, text=» BNOK COP698«, t00=0x001b, t01=0x003a}
0x2a7a…2a88 Head {h00=0x000a, h01=0x0050, text=»COP690«, t00=0x001b, t01=0x004e}
0x2a88…2aa4 Head {h00=0x0018, h01=0x0050, text=» MOVE RECNUM,=D'+1' «, t00=0x001b, t01=0x005c}
0x2aa4…2ad6 Head {h00=0x002e, h01=0x0050, text=» XCOPY BIN10,W0,W2,BPOOL(W20),W20 SAVE LRN«, t00=0x001b, t01=0x0078}
0x2ad6…2b00 Head {h00=0x0026, h01=0x0050, text=» XCOPY BIN11,W0,W2,BPOOL(W20),W22 «, t00=0x001b, t01=0x00aa}
0x2b00…2b0e Head {h00=0x000a, h01=0x0050, text=»COP692«, t00=0x001b, t01=0x00d4}
0x2b0e…2b2e Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD1 «, t00=0x001b, t01=0x00e2}
0x2b2e…2b74 Head {h00=0x0042, h01=0x0050, text=» CALL READDK,DISK,FILECODE(W1),BPOOL(W1),SECLEN,RECNUM,RETCOD «, t00=0x001b, t01=0x0102}
0x2b74…2b88 Head {h00=0x0010, h01=0x0050, text=» BNOK COP696«, t00=0x001b, t01=0x0148}
0x2b88…2ba8 Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD2 «, t00=0x001b, t01=0x015c}
0x2ba8…2bee Head {h00=0x0042, h01=0x0050, text=» CALL WRITDK,DISK,FILECODE(W3),BPOOL(W1),SECLEN,RECNUM,RETCOD «, t00=0x001b, t01=0x017c}
0x2bee…2c02 Head {h00=0x0010, h01=0x0050, text=» BNOK COP696«, t00=0x001c, t01=0x0032}
0x2c02…2c22 Head {h00=0x001c, h01=0x0050, text=» CBE RECNUM,NOREC,COP693«, t00=0x001c, t01=0x0046}
0x2c22…2c3c Head {h00=0x0016, h01=0x0050, text=» ADD RECNUM,=D'+1'«, t00=0x001c, t01=0x0066}
0x2c3c…2c4e Head {h00=0x000e, h01=0x0050, text=» B COP692 «, t00=0x001c, t01=0x0080}
0x2c4e…2c5c Head {h00=0x000a, h01=0x0050, text=»COP693«, t00=0x001c, t01=0x0092}
0x2c5c…2c96 Head {h00=0x0036, h01=0x0050, text=» CALL BINBCD,BIN10,BIN11,NOREC GET LRN INTO NOREC «, t00=0x001c, t01=0x00a0}
0x2c96…2cb6 Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD1 «, t00=0x001c, t01=0x00da}
0x2cb6…2cee Head {h00=0x0034, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD«, t00=0x001c, t01=0x00fa}
0x2cee…2d02 Head {h00=0x0010, h01=0x0050, text=» BOK COP694 «, t00=0x001c, t01=0x0132}
0x2d02…2d1c Head {h00=0x0016, h01=0x0050, text=» MOVE NOREC,=D'00'«, t00=0x001c, t01=0x0146}
0x2d1c…2d3c Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD1 «, t00=0x001c, t01=0x0160}
0x2d3c…2d76 Head {h00=0x0036, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,DEBINW4 «, t00=0x001c, t01=0x0180}
0x2d76…2d88 Head {h00=0x000e, h01=0x0050, text=» B COP543 «, t00=0x001d, t01=0x002a}
0x2d88…2d96 Head {h00=0x000a, h01=0x0050, text=»COP694«, t00=0x001d, t01=0x003c}
0x2d96…2db6 Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD2 «, t00=0x001d, t01=0x004a}
0x2db6…2dee Head {h00=0x0034, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD«, t00=0x001d, t01=0x006a}
0x2dee…2e02 Head {h00=0x0010, h01=0x0050, text=» BNOK COP543«, t00=0x001d, t01=0x00a2}
0x2e02…2e30 Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,COPNAM,FCOD2 CHANGE NAME «, t00=0x001d, t01=0x00b6}
0x2e30…2e44 Head {h00=0x0010, h01=0x0050, text=» BNOK COP546«, t00=0x001d, t01=0x00e4}
0x2e44…2e64 Head {h00=0x001c, h01=0x0050, text=» CBE FCOD1,FCOD2,COP695 «, t00=0x001d, t01=0x00f8}
0x2e64…2e92 Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,VOLNAM,FCOD1 CHANGE NAME «, t00=0x001d, t01=0x0118}
0x2e92…2ea6 Head {h00=0x0010, h01=0x0050, text=» BNOK COP546«, t00=0x001d, t01=0x0146}
0x2ea6…2eb4 Head {h00=0x000a, h01=0x0050, text=»COP695«, t00=0x001d, t01=0x015a}
0x2eb4…2ec6 Head {h00=0x000e, h01=0x0050, text=» B COP000 «, t00=0x001d, t01=0x0168}
0x2ec6…2ed4 Head {h00=0x000a, h01=0x0050, text=»COP696«, t00=0x001d, t01=0x017a}
0x2ed4…2eee Head {h00=0x0016, h01=0x0050, text=» MOVE NOREC,=D'00'«, t00=0x001d, t01=0x0188}
0x2eee…2f0e Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD2 «, t00=0x001e, t01=0x0012}
0x2f0e…2f48 Head {h00=0x0036, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,DEBINW4 «, t00=0x001e, t01=0x0032}
0x2f48…2f56 Head {h00=0x000a, h01=0x0050, text=»COP698«, t00=0x001e, t01=0x006c}
0x2f56…2f70 Head {h00=0x0016, h01=0x0050, text=» MOVE NOREC,=D'00'«, t00=0x001e, t01=0x007a}
0x2f70…2f90 Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD1 «, t00=0x001e, t01=0x0094}
0x2f90…2fca Head {h00=0x0036, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,DEBINW4 «, t00=0x001e, t01=0x00b4}
0x2fca…2fdc Head {h00=0x000e, h01=0x0050, text=» B COP543 «, t00=0x001e, t01=0x00ee}
0x2fdc…2fea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0100}
0x2fea…2ff8 Head {h00=0x000a, h01=0x0050, text=»COP700«, t00=0x001e, t01=0x010e}
0x2ff8…3018 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x001e, t01=0x011c}
0x3018…3038 Head {h00=0x001c, h01=0x0050, text=»* COPY WSM SYSTEM-FILE *«, t00=0x001e, t01=0x013c}
0x3038…3058 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x001e, t01=0x015c}
0x3058…306e Head {h00=0x0012, h01=0x0050, text=» ATTFMT FCOPW «, t00=0x001e, t01=0x017c}
0x306e…3084 (31, 0, 400) Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x001f, t01=0x0004}
0x3084…3096 Head {h00=0x000e, h01=0x0050, text=» SET BOOL2«, t00=0x001f, t01=0x001a}
0x3096…30a4 Head {h00=0x000a, h01=0x0050, text=»COP710«, t00=0x001f, t01=0x002c}
0x30a4…30b8 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x001f, t01=0x003a}
0x30b8…30c6 Head {h00=0x000a, h01=0x0050, text=»COP720«, t00=0x001f, t01=0x004e}
0x30c6…30ee Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,COP710,COP000,COP730«, t00=0x001f, t01=0x005c}
0x30ee…310c Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x001f, t01=0x0084}
0x310c…311e Head {h00=0x000e, h01=0x0050, text=» B COP720 «, t00=0x001f, t01=0x00a2}
0x311e…312c Head {h00=0x000a, h01=0x0050, text=»COP730«, t00=0x001f, t01=0x00b4}
0x312c…3146 Head {h00=0x0016, h01=0x0050, text=» MOVE NOREC,=D'00'«, t00=0x001f, t01=0x00c2}
0x3146…3174 Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,VOLEX1,FCOD1 CHANGE NAME «, t00=0x001f, t01=0x00dc}
0x3174…3188 Head {h00=0x0010, h01=0x0050, text=» BNOK COP737«, t00=0x001f, t01=0x010a}
0x3188…31b6 Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,VOLEX2,FCOD2 CHANGE NAME «, t00=0x001f, t01=0x011e}
0x31b6…31ca Head {h00=0x0010, h01=0x0050, text=» BNOK COP734«, t00=0x001f, t01=0x014c}
0x31ca…31ea Head {h00=0x001c, h01=0x0050, text=» CBE FCOD1,FCOD2,COP731 «, t00=0x001f, t01=0x0160}
0x31ea…322c Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX1,RETCOD «, t00=0x001f, t01=0x0180}
0x322c…323e Head {h00=0x000e, h01=0x0050, text=» B COP732 «, t00=0x0020, t01=0x0032}
0x323e…324c Head {h00=0x000a, h01=0x0050, text=»COP731«, t00=0x0020, t01=0x0044}
0x324c…328e Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,VOLEX2,RETCOD «, t00=0x0020, t01=0x0052}
0x328e…329c Head {h00=0x000a, h01=0x0050, text=»COP732«, t00=0x0020, t01=0x0094}
0x329c…32b0 Head {h00=0x0010, h01=0x0050, text=» BOK COP738 «, t00=0x0020, t01=0x00a2}
0x32b0…32be Head {h00=0x000a, h01=0x0050, text=»COP733«, t00=0x0020, t01=0x00b6}
0x32be…32ec Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,COPNAM,FCOD2 CHANGE NAME «, t00=0x0020, t01=0x00c4}
0x32ec…3300 Head {h00=0x0010, h01=0x0050, text=» BNOK COP737«, t00=0x0020, t01=0x00f2}
0x3300…330e Head {h00=0x000a, h01=0x0050, text=»COP734«, t00=0x0020, t01=0x0106}
0x330e…333c Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,VOLNAM,FCOD1 CHANGE NAME «, t00=0x0020, t01=0x0114}
0x333c…334a Head {h00=0x000a, h01=0x0050, text=»COP737«, t00=0x0020, t01=0x0142}
0x334a…3376 Head {h00=0x0028, h01=0x0050, text=» PERF DSKERR,W12 'FILE NAME UNKNOWN'«, t00=0x0020, t01=0x0150}
0x3376…3388 Head {h00=0x000e, h01=0x0050, text=» B COP720 «, t00=0x0020, t01=0x017c}
0x3388…3396 Head {h00=0x000a, h01=0x0050, text=»COP738«, t00=0x0020, t01=0x018e}
0x3396…33d8 Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W3),SYSBUF,COPFIL,VOLEX2,RETCOD «, t00=0x0021, t01=0x000c}
0x33d8…3402 Head {h00=0x0026, h01=0x0050, text=» BNOK COP733 WSM FILE NOT CREATED «, t00=0x0021, t01=0x004e}
0x3402…343a Head {h00=0x0034, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD«, t00=0x0021, t01=0x0078}
0x343a…344e Head {h00=0x0010, h01=0x0050, text=» BNOK COP733«, t00=0x0021, t01=0x00b0}
0x344e…345c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00c4}
0x345c…349c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0021, t01=0x00d2}
0x349c…34dc Head {h00=0x003c, h01=0x0050, text=»** ATTACH FORMAT - PERFORM INPUT (WHOLE FILE (Y/N/S) ** «, t00=0x0021, t01=0x0112}
0x34dc…351c Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0021, t01=0x0152}
0x351c…3532 (34, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ATTFMT FCOPA «, t00=0x0022, t01=0x0004}
0x3532…3540 Head {h00=0x000a, h01=0x0050, text=»COP739«, t00=0x0022, t01=0x001a}
0x3540…3556 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0022, t01=0x0028}
0x3556…3564 Head {h00=0x000a, h01=0x0050, text=»COP740«, t00=0x0022, t01=0x003e}
0x3564…3578 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0022, t01=0x004c}
0x3578…3586 Head {h00=0x000a, h01=0x0050, text=»COP741«, t00=0x0022, t01=0x0060}
0x3586…35ae Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,COP740,COP810,COP742«, t00=0x0022, t01=0x006e}
0x35ae…35cc Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0022, t01=0x0096}
0x35cc…35de Head {h00=0x000e, h01=0x0050, text=» B COP741 «, t00=0x0022, t01=0x00b4}
0x35de…35ec Head {h00=0x000a, h01=0x0050, text=»COP742«, t00=0x0022, t01=0x00c6}
0x35ec…3624 Head {h00=0x0034, h01=0x0050, text=» CBNE COPY,='S',COP746 BRANCH IF NOT "SPECIFIC" «, t00=0x0022, t01=0x00d4}
0x3624…3660 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0022, t01=0x010c}
0x3660…369c Head {h00=0x0038, h01=0x0050, text=»** COPY SPECIFIC SECTION/DEFINITION/TFP-FORMAT **«, t00=0x0022, t01=0x0148}
0x369c…36d8 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0022, t01=0x0184}
0x36d8…370a Head {h00=0x002e, h01=0x0050, text=» ATTFMT FCOPC ATTACH FORMAT 'TYPE & NAME' «, t00=0x0023, t01=0x0030}
0x370a…3720 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0023, t01=0x0062}
0x3720…372e Head {h00=0x000a, h01=0x0050, text=»COP743«, t00=0x0023, t01=0x0078}
0x372e…3758 Head {h00=0x0026, h01=0x0050, text=» ERASE 2,W1,W2 ERASE INPUT FIELDS «, t00=0x0023, t01=0x0086}
0x3758…376c Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0023, t01=0x00b0}
0x376c…377a Head {h00=0x000a, h01=0x0050, text=»COP744«, t00=0x0023, t01=0x00c4}
0x377a…37a2 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,COP743,COP810,COP745«, t00=0x0023, t01=0x00d2}
0x37a2…37c0 Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0023, t01=0x00fa}
0x37c0…37d2 Head {h00=0x000e, h01=0x0050, text=» B COP744 «, t00=0x0023, t01=0x0118}
0x37d2…37e0 Head {h00=0x000a, h01=0x0050, text=»COP745«, t00=0x0023, t01=0x012a}
0x37e0…3814 Head {h00=0x0030, h01=0x0050, text=» XCOPY RBUF,W0,W1,ANSW,W0 COPY TYPE TO RBUF «, t00=0x0023, t01=0x0138}
0x3814…3848 Head {h00=0x0030, h01=0x0050, text=» XCOPY RBUF,W1,W6,STR6B,W0 COPY NAME TO RBUF«, t00=0x0023, t01=0x016c}
0x3848…385e Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W0 «, t00=0x0024, t01=0x0010}
0x385e…3870 Head {h00=0x000e, h01=0x0050, text=» B COP792 «, t00=0x0024, t01=0x0026}
0x3870…387e Head {h00=0x000a, h01=0x0050, text=»COP746«, t00=0x0024, t01=0x0038}
0x387e…388c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0046}
0x388c…38c8 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0024, t01=0x0054}
0x38c8…3904 Head {h00=0x0038, h01=0x0050, text=»** COPY ELEMENT BY ELEMENT **«, t00=0x0024, t01=0x0090}
0x3904…3940 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0024, t01=0x00cc}
0x3940…396a Head {h00=0x0026, h01=0x0050, text=» MOVE BIN12,=X'0101' SET LINE/COL «, t00=0x0024, t01=0x0108}
0x396a…398e Head {h00=0x0020, h01=0x0050, text=» ERASE 0,W1,W1 ERASE LINE 01«, t00=0x0024, t01=0x0132}
0x398e…39be Head {h00=0x002c, h01=0x0050, text=» MOVE DTEST,=C'D' 1. 'D' WSM DEFINITIONS«, t00=0x0024, t01=0x0156}
0x39be…39da Head {h00=0x0018, h01=0x0050, text=» 2. 'F' TFP FORMS «, t00=0x0024, t01=0x0186}
0x39da…39f8 Head {h00=0x001a, h01=0x0050, text=» 3. 'S' WSM SECTIONS«, t00=0x0025, t01=0x0012}
0x39f8…3a06 Head {h00=0x000a, h01=0x0050, text=»COP747«, t00=0x0025, t01=0x0030}
0x3a06…3a32 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN5,W10 START OF FIRST CHAIN «, t00=0x0025, t01=0x003e}
0x3a32…3a40 Head {h00=0x000a, h01=0x0050, text=»COP748«, t00=0x0025, t01=0x006a}
0x3a40…3a6c Head {h00=0x0028, h01=0x0050, text=» MOVE RECNUM,BIN5 READ A CHAINRECORD«, t00=0x0025, t01=0x0078}
0x3a6c…3a7a Head {h00=0x000a, h01=0x0050, text=»COP749«, t00=0x0025, t01=0x00a4}
0x3a7a…3a9a Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD1 «, t00=0x0025, t01=0x00b2}
0x3a9a…3ada Head {h00=0x003c, h01=0x0050, text=» CALL READDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM,RETCOD«, t00=0x0025, t01=0x00d2}
0x3ada…3aee Head {h00=0x0010, h01=0x0050, text=» BOK COP751 «, t00=0x0025, t01=0x0112}
0x3aee…3b02 Head {h00=0x0010, h01=0x0050, text=» PERF DISERR«, t00=0x0025, t01=0x0126}
0x3b02…3b10 Head {h00=0x000a, h01=0x0050, text=»COP750«, t00=0x0025, t01=0x013a}
0x3b10…3b38 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,COP740,COP810,COP749«, t00=0x0025, t01=0x0148}
0x3b38…3b56 Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0025, t01=0x0170}
0x3b56…3b68 Head {h00=0x000e, h01=0x0050, text=» B COP750 «, t00=0x0025, t01=0x018e}
0x3b68…3b76 Head {h00=0x000a, h01=0x0050, text=»COP751«, t00=0x0026, t01=0x0010}
0x3b76…3ba0 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,W14 DISP TO FIRST ENTRY«, t00=0x0026, t01=0x001e}
0x3ba0…3bc6 Head {h00=0x0022, h01=0x0050, text=» MOVE BIN2,W24 NO. OF ENTRIES «, t00=0x0026, t01=0x0048}
0x3bc6…3bd4 Head {h00=0x000a, h01=0x0050, text=»COP752«, t00=0x0026, t01=0x006e}
0x3bd4…3bea Head {h00=0x0012, h01=0x0050, text=» MOVE BIN3,W0 «, t00=0x0026, t01=0x007c}
0x3bea…3c26 Head {h00=0x0038, h01=0x0050, text=» MATCH DTEST,BIN3,W1,RBUF,BIN1,W1 LOOK IF SAME TYPE «, t00=0x0026, t01=0x0092}
0x3c26…3c3e Head {h00=0x0014, h01=0x0050, text=» BNOK COP795 NO «, t00=0x0026, t01=0x00ce}
0x3c3e…3c5e Head {h00=0x001c, h01=0x0050, text=»* CBE COPY,=C'N',COP754 «, t00=0x0026, t01=0x00e6}
0x3c5e…3c84 Head {h00=0x0022, h01=0x0050, text=»* ATTFMT FHEX 83-06-22 / MAER «, t00=0x0026, t01=0x0106}
0x3c84…3c96 Head {h00=0x000e, h01=0x0050, text=»* B COP792«, t00=0x0026, t01=0x012c}
0x3c96…3ca4 Head {h00=0x000a, h01=0x0050, text=»COP754«, t00=0x0026, t01=0x013e}
0x3ca4…3cbc Head {h00=0x0014, h01=0x0050, text=» MOVE BIN4,BIN1 «, t00=0x0026, t01=0x014c}
0x3cbc…3cde Head {h00=0x001e, h01=0x0050, text=» ADD BIN4,W1 DISP TO NAME «, t00=0x0026, t01=0x0164}
0x3cde…3d02 Head {h00=0x0020, h01=0x0050, text=» XCOPY STR6B,W0,W6,RBUF,BIN4«, t00=0x0026, t01=0x0186}
0x3d02…3d36 Head {h00=0x0030, h01=0x0050, text=» CBE COPY,=C'N',COP756 BRANCH IF ONE BY ONE «, t00=0x0027, t01=0x001a}
0x3d36…3d64 Head {h00=0x002a, h01=0x0050, text=» PERF DISPYE DISPLAY WHEN ANSWER 'YES'«, t00=0x0027, t01=0x004e}
0x3d64…3d76 Head {h00=0x000e, h01=0x0050, text=» B COP792 «, t00=0x0027, t01=0x007c}
0x3d76…3d84 Head {h00=0x000a, h01=0x0050, text=»COP756«, t00=0x0027, t01=0x008e}
0x3d84…3da4 Head {h00=0x001c, h01=0x0050, text=» CBE DTEST,=C'S',COP758 «, t00=0x0027, t01=0x009c}
0x3da4…3dce Head {h00=0x0026, h01=0x0050, text=» CBE DTEST,=C'F',COP757 TFP FORMS «, t00=0x0027, t01=0x00bc}
0x3dce…3de4 Head {h00=0x0012, h01=0x0050, text=» ATTFMT FCOPD «, t00=0x0027, t01=0x00e6}
0x3de4…3df6 Head {h00=0x000e, h01=0x0050, text=» B COP760 «, t00=0x0027, t01=0x00fc}
0x3df6…3e04 Head {h00=0x000a, h01=0x0050, text=»COP757«, t00=0x0027, t01=0x010e}
0x3e04…3e1a Head {h00=0x0012, h01=0x0050, text=» ATTFMT FCOPFO«, t00=0x0027, t01=0x011c}
0x3e1a…3e2c Head {h00=0x000e, h01=0x0050, text=» B COP760 «, t00=0x0027, t01=0x0132}
0x3e2c…3e3a Head {h00=0x000a, h01=0x0050, text=»COP758«, t00=0x0027, t01=0x0144}
0x3e3a…3e50 Head {h00=0x0012, h01=0x0050, text=» ATTFMT FCOPS «, t00=0x0027, t01=0x0152}
0x3e50…3e5e Head {h00=0x000a, h01=0x0050, text=»COP760«, t00=0x0027, t01=0x0168}
0x3e5e…3e74 Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0027, t01=0x0176}
0x3e74…3e82 Head {h00=0x000a, h01=0x0050, text=»COP780«, t00=0x0027, t01=0x018c}
0x3e82…3ea6 Head {h00=0x0020, h01=0x0050, text=» ERASE 2,W2,W2 ERASE ANSWER «, t00=0x0028, t01=0x000a}
0x3ea6…3eba Head {h00=0x0010, h01=0x0050, text=» PERF DECLRN«, t00=0x0028, t01=0x002e}
0x3eba…3ec8 Head {h00=0x000a, h01=0x0050, text=»COP785«, t00=0x0028, t01=0x0042}
0x3ec8…3ef0 Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,COP780,COP810,COP790«, t00=0x0028, t01=0x0050}
0x3ef0…3f0e Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0028, t01=0x0078}
0x3f0e…3f20 Head {h00=0x000e, h01=0x0050, text=» B COP785 «, t00=0x0028, t01=0x0096}
0x3f20…3f2e Head {h00=0x000a, h01=0x0050, text=»COP790«, t00=0x0028, t01=0x00a8}
0x3f2e…3f5a Head {h00=0x0028, h01=0x0050, text=» CBNE ANSW,=C'Y',COP795 NOT THIS ONE«, t00=0x0028, t01=0x00b6}
0x3f5a…3f68 Head {h00=0x000a, h01=0x0050, text=»COP792«, t00=0x0028, t01=0x00e2}
0x3f68…3f9c Head {h00=0x0030, h01=0x0050, text=» XCOPY PBLOCK,W5,W7,RBUF,BIN1 TYPE AND NAME «, t00=0x0028, t01=0x00f0}
0x3f9c…3fc4 Head {h00=0x0024, h01=0x0050, text=» CALL GETIND,BPOOL(W1),BIN7,BIN6«, t00=0x0028, t01=0x0124}
0x3fc4…3fe8 Head {h00=0x0020, h01=0x0050, text=» XCOPY PBLOCK,W14,W2,BIN6,W0«, t00=0x0028, t01=0x014c}
0x3fe8…4002 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN6,=W'26' «, t00=0x0028, t01=0x0170}
0x4002…402a Head {h00=0x0024, h01=0x0050, text=» XCOPY PBLOCK,BIN6,W8,FILNAM,W0 «, t00=0x0028, t01=0x018a}
0x402a…403e Head {h00=0x0010, h01=0x0050, text=» ADD BIN6,W8«, t00=0x0029, t01=0x0022}
0x403e…4080 Head {h00=0x003e, h01=0x0050, text=» XCOPY PBLOCK,BIN6,W6,VOLEX1,W0 SEND DEFAULT VOL = VOLEX1 «, t00=0x0029, t01=0x0036}
0x4080…40b6 Head {h00=0x0032, h01=0x0050, text=» CBNE FCOD1,FCOD2,COP793 DIFF. UNITS => BRANCH«, t00=0x0029, t01=0x0078}
0x40b6…40f8 Head {h00=0x003e, h01=0x0050, text=» XCOPY PBLOCK,BIN6,W6,VOLEX2,W0 ELSE USE UNIT 2 TEMP NAME «, t00=0x0029, t01=0x00ae}
0x40f8…4106 Head {h00=0x000a, h01=0x0050, text=»COP793«, t00=0x0029, t01=0x00f0}
0x4106…4134 Head {h00=0x002a, h01=0x0050, text=» CALL PREAD,PBLOCK,BPOOL(W1) WSM-READ «, t00=0x0029, t01=0x00fe}
0x4134…4148 Head {h00=0x0010, h01=0x0050, text=» BNOK COP794«, t00=0x0029, t01=0x012c}
0x4148…417c Head {h00=0x0030, h01=0x0050, text=» XCOPY PBLOCK,W5,W7,RBUF,BIN1 TYPE AND NAME «, t00=0x0029, t01=0x0140}
0x417c…41a8 Head {h00=0x0028, h01=0x0050, text=» XCOPY PBLOCK,W12,W1,W2,W1 FILECODE «, t00=0x0029, t01=0x0174}
0x41a8…41c2 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN6,=W'26' «, t00=0x002a, t01=0x0010}
0x41c2…41ea Head {h00=0x0024, h01=0x0050, text=» XCOPY PBLOCK,BIN6,W8,COPFIL,W0 «, t00=0x002a, t01=0x002a}
0x41ea…41fe Head {h00=0x0010, h01=0x0050, text=» ADD BIN6,W8«, t00=0x002a, t01=0x0052}
0x41fe…4244 Head {h00=0x0042, h01=0x0050, text=» XCOPY PBLOCK,BIN6,W6,VOLEX2,W0 DEST. VOLUME IS ALWAYS VOLEX2 «, t00=0x002a, t01=0x0066}
0x4244…4274 Head {h00=0x002c, h01=0x0050, text=» CALL PWRITE,PBLOCK,BPOOL(W1) WSM-WRITE «, t00=0x002a, t01=0x00ac}
0x4274…4288 Head {h00=0x0010, h01=0x0050, text=» BOK COP795 «, t00=0x002a, t01=0x00dc}
0x4288…4296 Head {h00=0x000a, h01=0x0050, text=»COP794«, t00=0x002a, t01=0x00f0}
0x4296…42bc Head {h00=0x0022, h01=0x0050, text=» XCOPY RETCOD,W0,W2,PBLOCK,W20«, t00=0x002a, t01=0x00fe}
0x42bc…42d0 Head {h00=0x0010, h01=0x0050, text=» PERF UFERR «, t00=0x002a, t01=0x0124}
0x42d0…4308 Head {h00=0x0034, h01=0x0050, text=» CBNE COPY,='S',COP785 BRANCH IF NOT "SPECIFIC" «, t00=0x002a, t01=0x0138}
0x4308…431a Head {h00=0x000e, h01=0x0050, text=» B COP744 «, t00=0x002a, t01=0x0170}
0x431a…4328 Head {h00=0x000a, h01=0x0050, text=»COP795«, t00=0x002a, t01=0x0182}
0x4328…4358 Head {h00=0x002c, h01=0x0050, text=» CBNE COPY,='S',COP796 COPY "SPECIFIC" ?«, t00=0x002a, t01=0x0190}
0x4358…436e Head {h00=0x0012, h01=0x0050, text=» B COP743 -YES«, t00=0x002b, t01=0x0030}
0x436e…437c Head {h00=0x000a, h01=0x0050, text=»COP796«, t00=0x002b, t01=0x0046}
0x437c…43ac Head {h00=0x002c, h01=0x0050, text=» SUB BIN2,W1 NO, DECREASE NO. OF ENTRIES«, t00=0x002b, t01=0x0054}
0x43ac…43ca Head {h00=0x001a, h01=0x0050, text=» BZ COP800 ALL HANDLED«, t00=0x002b, t01=0x0084}
0x43ca…43ea Head {h00=0x001c, h01=0x0050, text=» ADD BIN1,W10 TAKE NEXT «, t00=0x002b, t01=0x00a2}
0x43ea…43fc Head {h00=0x000e, h01=0x0050, text=» B COP752 «, t00=0x002b, t01=0x00c2}
0x43fc…440a Head {h00=0x000a, h01=0x0050, text=»COP800«, t00=0x002b, t01=0x00d4}
0x440a…4436 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN10,W0,W2,RBUF,W2 LINK NEXT«, t00=0x002b, t01=0x00e2}
0x4436…4458 Head {h00=0x001e, h01=0x0050, text=» XCOPY BIN11,W0,W2,RBUF,W4«, t00=0x002b, t01=0x010e}
0x4458…4480 Head {h00=0x0024, h01=0x0050, text=» CALL BINBCD,BIN10,BIN11,RECNUM «, t00=0x002b, t01=0x0130}
0x4480…44a6 Head {h00=0x0022, h01=0x0050, text=» CBNE BIN11,W0,COP801 LINK FWD«, t00=0x002b, t01=0x0158}
0x44a6…44c2 Head {h00=0x0018, h01=0x0050, text=» CBE BIN10,W0,COP802«, t00=0x002b, t01=0x017e}
0x44c2…44d0 Head {h00=0x000a, h01=0x0050, text=»COP801«, t00=0x002c, t01=0x000a}
0x44d0…44e2 Head {h00=0x000e, h01=0x0050, text=» B COP749 «, t00=0x002c, t01=0x0018}
0x44e2…44f0 Head {h00=0x000a, h01=0x0050, text=»COP802«, t00=0x002c, t01=0x002a}
0x44f0…4504 Head {h00=0x0010, h01=0x0050, text=» ADD BIN5,W1«, t00=0x002c, t01=0x0038}
0x4504…451e Head {h00=0x0016, h01=0x0050, text=» MOVE BIN6,=W'26' «, t00=0x002c, t01=0x004c}
0x451e…453c Head {h00=0x001a, h01=0x0050, text=» CBE BIN5,BIN6,COP805 «, t00=0x002c, t01=0x0066}
0x453c…454e Head {h00=0x000e, h01=0x0050, text=» B COP748 «, t00=0x002c, t01=0x0084}
0x454e…455c Head {h00=0x000a, h01=0x0050, text=»COP805«, t00=0x002c, t01=0x0096}
0x455c…457c Head {h00=0x001c, h01=0x0050, text=» CBE DTEST,=C'S',COP810 «, t00=0x002c, t01=0x00a4}
0x457c…459c Head {h00=0x001c, h01=0x0050, text=» CBE DTEST,=C'F',COP807 «, t00=0x002c, t01=0x00c4}
0x459c…45b6 Head {h00=0x0016, h01=0x0050, text=» MOVE DTEST,=C'F' «, t00=0x002c, t01=0x00e4}
0x45b6…45c8 Head {h00=0x000e, h01=0x0050, text=» B COP808 «, t00=0x002c, t01=0x00fe}
0x45c8…45d6 Head {h00=0x000a, h01=0x0050, text=»COP807«, t00=0x002c, t01=0x0110}
0x45d6…45f0 Head {h00=0x0016, h01=0x0050, text=» MOVE DTEST,=C'S' «, t00=0x002c, t01=0x011e}
0x45f0…45fe Head {h00=0x000a, h01=0x0050, text=»COP808«, t00=0x002c, t01=0x0138}
0x45fe…4610 Head {h00=0x000e, h01=0x0050, text=» B COP747 «, t00=0x002c, t01=0x0146}
0x4610…461e Head {h00=0x000a, h01=0x0050, text=»COP810«, t00=0x002c, t01=0x0158}
0x461e…4638 Head {h00=0x0016, h01=0x0050, text=» MOVE NOREC,=D'00'«, t00=0x002c, t01=0x0166}
0x4638…4658 Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD1 «, t00=0x002c, t01=0x0180}
0x4658…4690 Head {h00=0x0034, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W1),RBUF,NOREC,RETCOD«, t00=0x002d, t01=0x0010}
0x4690…46a4 Head {h00=0x0010, h01=0x0050, text=» BNOK COP816«, t00=0x002d, t01=0x0048}
0x46a4…46c4 Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD2 «, t00=0x002d, t01=0x005c}
0x46c4…46fc Head {h00=0x0034, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,RETCOD«, t00=0x002d, t01=0x007c}
0x46fc…471a Head {h00=0x001a, h01=0x0050, text=»* BNOK COP818 83-06-20«, t00=0x002d, t01=0x00b4}
0x471a…4740 Head {h00=0x0022, h01=0x0050, text=» CALL PCLOSE,PBLOCK,BPOOL(W1) «, t00=0x002d, t01=0x00d2}
0x4740…476e Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,VOLNAM,FCOD1 CHANGE NAME «, t00=0x002d, t01=0x00f8}
0x476e…4782 Head {h00=0x0010, h01=0x0050, text=» BNOK COP737«, t00=0x002d, t01=0x0126}
0x4782…47b0 Head {h00=0x002a, h01=0x0050, text=» PERF CHVNAM,COPNAM,FCOD2 CHANGE NAME «, t00=0x002d, t01=0x013a}
0x47b0…47c4 Head {h00=0x0010, h01=0x0050, text=» BNOK COP737«, t00=0x002d, t01=0x0168}
0x47c4…47d2 Head {h00=0x000a, h01=0x0050, text=»COP815«, t00=0x002d, t01=0x017c}
0x47d2…47e4 Head {h00=0x000e, h01=0x0050, text=» B COP000 «, t00=0x002d, t01=0x018a}
0x47e4…47f2 Head {h00=0x000a, h01=0x0050, text=»COP816«, t00=0x002e, t01=0x000c}
0x47f2…480c Head {h00=0x0016, h01=0x0050, text=» MOVE NOREC,=D'00'«, t00=0x002e, t01=0x001a}
0x480c…482c Head {h00=0x001c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD2 «, t00=0x002e, t01=0x0034}
0x482c…4866 Head {h00=0x0036, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W3),RBUF,NOREC,DEBINW4 «, t00=0x002e, t01=0x0054}
0x4866…4874 Head {h00=0x000a, h01=0x0050, text=»COP818«, t00=0x002e, t01=0x008e}
0x4874…4886 Head {h00=0x000e, h01=0x0050, text=» B COP733 «, t00=0x002e, t01=0x009c}
0x4886…4894 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002e, t01=0x00ae}
0x4894…48a2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00bc}
0x48a2…48b6 Head {h00=0x0010, h01=0x0050, text=»DISPYE PROC «, t00=0x002e, t01=0x00ca}
0x48b6…48e0 Head {h00=0x0026, h01=0x0050, text=» DSC1 DEDSSCRN,6,BIN12 SET CURSOR «, t00=0x002e, t01=0x00de}
0x48e0…4908 Head {h00=0x0024, h01=0x0050, text=» EDWRT DEDSSCRN,FINFO WRITE LINE«, t00=0x002e, t01=0x0108}
0x4908…4932 Head {h00=0x0026, h01=0x0050, text=» ADD BIN12,SECLEN LINE := LINE + 1«, t00=0x002e, t01=0x0130}
0x4932…4968 Head {h00=0x0032, h01=0x0050, text=» CBL BIN12,=X'1901',DISP50 BRANCH IF LINE < 25«, t00=0x002e, t01=0x015a}
0x4968…4994 Head {h00=0x0028, h01=0x0050, text=» XCOPY BIN12,W0,W1,W1,W1 LINE := 01 «, t00=0x002e, t01=0x0190}
0x4994…49ba Head {h00=0x0022, h01=0x0050, text=» ADD BIN12,W11 COL := COL + 11«, t00=0x002f, t01=0x002c}
0x49ba…49f0 Head {h00=0x0032, h01=0x0050, text=» CBL BIN12,=X'014A',DISP50 BRANCH IF COL < 74 «, t00=0x002f, t01=0x0052}
0x49f0…4a08 Head {h00=0x0014, h01=0x0050, text=» PAGE IS FULL:«, t00=0x002f, t01=0x0088}
0x4a08…4a36 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN12,=X'0101' LINE/COL := 0101 «, t00=0x002f, t01=0x00a0}
0x4a36…4a44 Head {h00=0x000a, h01=0x0050, text=»DISP50«, t00=0x002f, t01=0x00ce}
0x4a44…4a50 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x002f, t01=0x00dc}
0x4a50…4a5e Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x002f, t01=0x00e8}
0x4a5e…4a6c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00f6}
0x4a6c…4a84 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x002f, t01=0x0104}
0x4a84…4a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x011c}
0x4a8e…4aa0 Head {h00=0x000e, h01=0x0050, text=»FINFO FRMT«, t00=0x002f, t01=0x0126}
0x4aa0…4aac Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x002f, t01=0x0138}
0x4aac…4ac0 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x002f, t01=0x0144}
0x4ac0…4ad4 Head {h00=0x0010, h01=0x0050, text=» FCOPY DTEST«, t00=0x002f, t01=0x0158}
0x4ad4…4ae4 Head {h00=0x000c, h01=0x0050, text=» FTAB 3 «, t00=0x002f, t01=0x016c}
0x4ae4…4af8 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6B«, t00=0x002f, t01=0x017c}
0x4af8…4b06 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x002f, t01=0x0190}
0x4b06…4b18 Head {h00=0x000e, h01=0x0050, text=»FCOPY FRMT«, t00=0x0030, t01=0x000e}
0x4b18…4b24 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0030, t01=0x0020}
0x4b24…4b38 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0030, t01=0x002c}
0x4b38…4b4c Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x0030, t01=0x0040}
0x4b4c…4b64 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'COPY '«, t00=0x0030, t01=0x0054}
0x4b64…4b82 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'VOLUME/FILE'«, t00=0x0030, t01=0x006c}
0x4b82…4b8e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0030, t01=0x008a}
0x4b8e…4ba2 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0030, t01=0x0096}
0x4ba2…4bc0 Head {h00=0x001a, h01=0x0050, text=» FTEXT 'TYPE OF COPY:'«, t00=0x0030, t01=0x00aa}
0x4bc0…4bf2 Head {h00=0x002e, h01=0x0050, text=» FKI 14,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=8«, t00=0x0030, t01=0x00c8}
0x4bf2…4c06 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR1A«, t00=0x0030, t01=0x00fa}
0x4c06…4c12 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0030, t01=0x010e}
0x4c12…4c26 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0030, t01=0x011a}
0x4c26…4c42 Head {h00=0x0018, h01=0x0050, text=» FTEXT 'V = VOLUME' «, t00=0x0030, t01=0x012e}
0x4c42…4c4e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0030, t01=0x014a}
0x4c4e…4c62 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0030, t01=0x0156}
0x4c62…4c7c Head {h00=0x0016, h01=0x0050, text=» FTEXT 'F = FILE' «, t00=0x0030, t01=0x016a}
0x4c7c…4c88 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0030, t01=0x0184}
0x4c88…4c9c Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0030, t01=0x0190}
0x4c9c…4cc0 Head {h00=0x0020, h01=0x0050, text=» FTEXT 'W = WSM SYSTEM-FILE'«, t00=0x0031, t01=0x0014}
0x4cc0…4cd0 Head {h00=0x000c, h01=0x0050, text=» FTAB 21«, t00=0x0031, t01=0x0038}
0x4cd0…4cfc Head {h00=0x0028, h01=0x0050, text=» FTEXT '(MAX SIZE OF ONE SECTION: ' «, t00=0x0031, t01=0x0048}
0x4cfc…4d16 Head {h00=0x0016, h01=0x0050, text=» FMEL 'ZZ9',NOOFPO«, t00=0x0031, t01=0x0074}
0x4d16…4d26 Head {h00=0x000c, h01=0x0050, text=» FTAB 51«, t00=0x0031, t01=0x008e}
0x4d26…4d40 Head {h00=0x0016, h01=0x0050, text=» FTEXT 'SECTORS)' «, t00=0x0031, t01=0x009e}
0x4d40…4d4e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0031, t01=0x00b8}
0x4d4e…4d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00c6}
0x4d58…4d6a Head {h00=0x000e, h01=0x0050, text=»FCOPV FRMT«, t00=0x0031, t01=0x00d0}
0x4d6a…4d76 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0031, t01=0x00e2}
0x4d76…4d8a Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0031, t01=0x00ee}
0x4d8a…4d9e Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x0031, t01=0x0102}
0x4d9e…4dc6 Head {h00=0x0024, h01=0x0050, text=» FCOPY =C'COPY VOLUME TO VOLUME'«, t00=0x0031, t01=0x0116}
0x4dc6…4dd8 Head {h00=0x000e, h01=0x0050, text=» FLINK FIO«, t00=0x0031, t01=0x013e}
0x4dd8…4de6 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0031, t01=0x0150}
0x4de6…4df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x015e}
0x4df0…4e02 Head {h00=0x000e, h01=0x0050, text=»FCOPF FRMT«, t00=0x0031, t01=0x0168}
0x4e02…4e0e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0031, t01=0x017a}
0x4e0e…4e22 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0031, t01=0x0186}
0x4e22…4e36 Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x0032, t01=0x000a}
0x4e36…4e58 Head {h00=0x001e, h01=0x0050, text=» FTEXT 'COPY FILE TO FILE'«, t00=0x0032, t01=0x001e}
0x4e58…4e6a Head {h00=0x000e, h01=0x0050, text=» FLINK FIO«, t00=0x0032, t01=0x0040}
0x4e6a…4e78 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0032, t01=0x0052}
0x4e78…4e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0060}
0x4e82…4e94 Head {h00=0x000e, h01=0x0050, text=»FCOPW FRMT«, t00=0x0032, t01=0x006a}
0x4e94…4ea0 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0032, t01=0x007c}
0x4ea0…4eb4 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0032, t01=0x0088}
0x4eb4…4ec8 Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x0032, t01=0x009c}
0x4ec8…4efc Head {h00=0x0030, h01=0x0050, text=» FTEXT 'COPY AND REORGANIZE WSM SYSTEM FILE'«, t00=0x0032, t01=0x00b0}
0x4efc…4f0e Head {h00=0x000e, h01=0x0050, text=» FLINK FIO«, t00=0x0032, t01=0x00e4}
0x4f0e…4f1c Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0032, t01=0x00f6}
0x4f1c…4f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0104}
0x4f26…4f38 Head {h00=0x000e, h01=0x0050, text=»FCOPA FRMT«, t00=0x0032, t01=0x010e}
0x4f38…4f44 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0032, t01=0x0120}
0x4f44…4f58 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0032, t01=0x012c}
0x4f58…4f80 Head {h00=0x0024, h01=0x0050, text=» FCOPY =C'WHOLE FILE ? Y/N/S:' «, t00=0x0032, t01=0x0140}
0x4f80…4fb2 Head {h00=0x002e, h01=0x0050, text=» FKI 21,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1«, t00=0x0032, t01=0x0168}
0x4fb2…4fc6 Head {h00=0x0010, h01=0x0050, text=» FCOPY COPY «, t00=0x0033, t01=0x000a}
0x4fc6…4fda Head {h00=0x0010, h01=0x0050, text=» FLINK FHEX «, t00=0x0033, t01=0x001e}
0x4fda…4fe8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0033, t01=0x0032}
0x4fe8…4ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0040}
0x4ff2…5004 Head {h00=0x000e, h01=0x0050, text=»FCOPD FRMT«, t00=0x0033, t01=0x004a}
0x5004…5010 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0033, t01=0x005c}
0x5010…5024 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0033, t01=0x0068}
0x5024…5048 Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'COPY DEFINITION:' «, t00=0x0033, t01=0x007c}
0x5048…505c Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x0033, t01=0x00a0}
0x505c…506c Head {h00=0x000c, h01=0x0050, text=» FINP 17«, t00=0x0033, t01=0x00b4}
0x506c…5080 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6B«, t00=0x0033, t01=0x00c4}
0x5080…5094 Head {h00=0x0010, h01=0x0050, text=» FLINK FANSW«, t00=0x0033, t01=0x00d8}
0x5094…50a2 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0033, t01=0x00ec}
0x50a2…50ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00fa}
0x50ac…50be Head {h00=0x000e, h01=0x0050, text=»FCOPS FRMT«, t00=0x0033, t01=0x0104}
0x50be…50ca Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0033, t01=0x0116}
0x50ca…50de Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0033, t01=0x0122}
0x50de…50fe Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'COPY SECTION:'«, t00=0x0033, t01=0x0136}
0x50fe…5112 Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x0033, t01=0x0156}
0x5112…5122 Head {h00=0x000c, h01=0x0050, text=» FINP 14«, t00=0x0033, t01=0x016a}
0x5122…5136 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6B«, t00=0x0033, t01=0x017a}
0x5136…514a Head {h00=0x0010, h01=0x0050, text=» FLINK FANSW«, t00=0x0033, t01=0x018e}
0x514a…5158 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0034, t01=0x0012}
0x5158…5162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0020}
0x5162…5176 Head {h00=0x0010, h01=0x0050, text=»FCOPFO FRMT «, t00=0x0034, t01=0x002a}
0x5176…5182 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0034, t01=0x003e}
0x5182…5196 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0034, t01=0x004a}
0x5196…51b6 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'COPY FORMAT:' «, t00=0x0034, t01=0x005e}
0x51b6…51ca Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x0034, t01=0x007e}
0x51ca…51da Head {h00=0x000c, h01=0x0050, text=» FINP 13«, t00=0x0034, t01=0x0092}
0x51da…51ee Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6B«, t00=0x0034, t01=0x00a2}
0x51ee…5202 Head {h00=0x0010, h01=0x0050, text=» FLINK FANSW«, t00=0x0034, t01=0x00b6}
0x5202…5210 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0034, t01=0x00ca}
0x5210…5222 Head {h00=0x000e, h01=0x0050, text=»FCOPT FRMT«, t00=0x0034, t01=0x00d8}
0x5222…522e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0034, t01=0x00ea}
0x522e…5242 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0034, t01=0x00f6}
0x5242…5260 Head {h00=0x001a, h01=0x0050, text=» FTEXT 'COPY TABLE T' «, t00=0x0034, t01=0x010a}
0x5260…5274 Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x0034, t01=0x0128}
0x5274…5284 Head {h00=0x000c, h01=0x0050, text=» FINP 14«, t00=0x0034, t01=0x013c}
0x5284…529e Head {h00=0x0016, h01=0x0050, text=» FMEL '999',BCD3A «, t00=0x0034, t01=0x014c}
0x529e…52b2 Head {h00=0x0010, h01=0x0050, text=» FLINK FANSW«, t00=0x0034, t01=0x0166}
0x52b2…52c0 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0034, t01=0x017a}
0x52c0…52ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0188}
0x52ca…52dc (53, 0, 400) Head {h00=0x000e, h01=0x0050, text=»FCOPC FRMT«, t00=0x0035, t01=0x0004}
0x52dc…52e8 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0035, t01=0x0016}
0x52e8…52fc Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0035, t01=0x0022}
0x52fc…5310 Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x0035, t01=0x0036}
0x5310…5332 Head {h00=0x001e, h01=0x0050, text=» FCOPY =C'COPY SPECIFIC:' «, t00=0x0035, t01=0x004a}
0x5332…533e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0035, t01=0x006c}
0x533e…5352 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0035, t01=0x0078}
0x5352…536a Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'TYPE:'«, t00=0x0035, t01=0x008c}
0x536a…5394 Head {h00=0x0026, h01=0x0050, text=» FKI 6,MINL=1,MAXL=1,ME,NEOI,ALPHA«, t00=0x0035, t01=0x00a4}
0x5394…53a8 Head {h00=0x0010, h01=0x0050, text=» FCOPY ANSW «, t00=0x0035, t01=0x00ce}
0x53a8…53bc Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0035, t01=0x00e2}
0x53bc…53cc Head {h00=0x000c, h01=0x0050, text=» FTAB 8 «, t00=0x0035, t01=0x00f6}
0x53cc…53e0 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0035, t01=0x0106}
0x53e0…53f8 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'NAME:'«, t00=0x0035, t01=0x011a}
0x53f8…542c Head {h00=0x0030, h01=0x0050, text=» FKI 13,MINL=1,MAXL=6,ME,NEOI,ALPHA,APPL=18 «, t00=0x0035, t01=0x0132}
0x542c…5440 Head {h00=0x0010, h01=0x0050, text=» FCOPY STR6B«, t00=0x0035, t01=0x0166}
0x5440…5454 Head {h00=0x0010, h01=0x0050, text=» FLINK FHEX «, t00=0x0035, t01=0x017a}
0x5454…5462 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0035, t01=0x018e}
0x5462…546a Head {h00=0x0004, h01=0x0050, t00=0x0036, t01=0x000c}
0x546a…547c Head {h00=0x000e, h01=0x0050, text=»FANSW FRMT«, t00=0x0036, t01=0x0014}
0x547c…5488 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0036, t01=0x0026}
0x5488…549c Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0036, t01=0x0032}
0x549c…54b2 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'Y/N'«, t00=0x0036, t01=0x0046}
0x54b2…54e4 Head {h00=0x002e, h01=0x0050, text=» FKI 5,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 «, t00=0x0036, t01=0x005c}
0x54e4…54f8 Head {h00=0x0010, h01=0x0050, text=» FCOPY ANSW «, t00=0x0036, t01=0x008e}
0x54f8…5506 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0036, t01=0x00a2}
0x5506…5510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00b0}
0x5510…5520 Head {h00=0x000c, h01=0x0050, text=»FIO FRMT«, t00=0x0036, t01=0x00ba}
0x5520…552c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0036, t01=0x00ca}
0x552c…5540 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0036, t01=0x00d6}
0x5540…5558 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'INPUT'«, t00=0x0036, t01=0x00ea}
0x5558…556c Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0036, t01=0x0102}
0x556c…557c Head {h00=0x000c, h01=0x0050, text=» FTAB 7 «, t00=0x0036, t01=0x0116}
0x557c…5594 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT:'«, t00=0x0036, t01=0x0126}
0x5594…55c6 Head {h00=0x002e, h01=0x0050, text=» FKI 12,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=9«, t00=0x0036, t01=0x013e}
0x55c6…55dc Head {h00=0x0012, h01=0x0050, text=» FCOPY INUNIT «, t00=0x0036, t01=0x0170}
0x55dc…55f0 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0036, t01=0x0186}
0x55f0…5600 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x0037, t01=0x000a}
0x5600…5620 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'VOLUME-NAME:' «, t00=0x0037, t01=0x001a}
0x5620…5630 Head {h00=0x000c, h01=0x0050, text=» FINP 33«, t00=0x0037, t01=0x003a}
0x5630…5646 Head {h00=0x0012, h01=0x0050, text=» FCOPY VOLNAM «, t00=0x0037, t01=0x004a}
0x5646…565e Head {h00=0x0014, h01=0x0050, text=» FBF BOOL2,FIODD«, t00=0x0037, t01=0x0060}
0x565e…5672 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0037, t01=0x0078}
0x5672…5682 Head {h00=0x000c, h01=0x0050, text=» FTAB 42«, t00=0x0037, t01=0x008c}
0x5682…569e Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'FILENAME:'«, t00=0x0037, t01=0x009c}
0x569e…56d6 Head {h00=0x0034, h01=0x0050, text=» FKI 51,MINL=1,MAXL=8,ME,NEOI,REWRT,ALPHA,APPL=6«, t00=0x0037, t01=0x00b8}
0x56d6…56ec Head {h00=0x0012, h01=0x0050, text=» FCOPY FILNAM «, t00=0x0037, t01=0x00f0}
0x56ec…56fa Head {h00=0x000a, h01=0x0050, text=»FIODD «, t00=0x0037, t01=0x0106}
0x56fa…5706 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0037, t01=0x0114}
0x5706…571a Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0037, t01=0x0120}
0x571a…5734 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'OUTPUT' «, t00=0x0037, t01=0x0134}
0x5734…5748 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0037, t01=0x014e}
0x5748…5758 Head {h00=0x000c, h01=0x0050, text=» FTAB 8 «, t00=0x0037, t01=0x0162}
0x5758…5770 Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT:'«, t00=0x0037, t01=0x0172}
0x5770…57b6 Head {h00=0x0042, h01=0x0050, text=» FKI 13,MINL=3,MAXL=3,ME,ALPHA,NEOI,REWRT,APPL=10,DUPL=INUNIT «, t00=0x0037, t01=0x018a}
0x57b6…57cc Head {h00=0x0012, h01=0x0050, text=» FCOPY UTUNIT «, t00=0x0038, t01=0x0040}
0x57cc…57e0 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0038, t01=0x0056}
0x57e0…57f0 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x0038, t01=0x006a}
0x57f0…5810 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'VOLUME-NAME:' «, t00=0x0038, t01=0x007a}
0x5810…5820 Head {h00=0x000c, h01=0x0050, text=» FINP 33«, t00=0x0038, t01=0x009a}
0x5820…5836 Head {h00=0x0012, h01=0x0050, text=» FCOPY COPNAM «, t00=0x0038, t01=0x00aa}
0x5836…584e Head {h00=0x0014, h01=0x0050, text=» FBF BOOL2,FIOD2«, t00=0x0038, t01=0x00c0}
0x584e…5862 Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0038, t01=0x00d8}
0x5862…5872 Head {h00=0x000c, h01=0x0050, text=» FTAB 42«, t00=0x0038, t01=0x00ec}
0x5872…588e Head {h00=0x0018, h01=0x0050, text=» FCOPY =C'FILENAME:'«, t00=0x0038, t01=0x00fc}
0x588e…58d2 Head {h00=0x0040, h01=0x0050, text=» FKI 51,MINL=1,MAXL=8,ME,NEOI,REWRT,ALPHA,APPL=6,DUPL=FILNAM«, t00=0x0038, t01=0x0118}
0x58d2…58e8 Head {h00=0x0012, h01=0x0050, text=» FCOPY COPFIL «, t00=0x0038, t01=0x015c}
0x58e8…58f6 Head {h00=0x000a, h01=0x0050, text=»FIOD2 «, t00=0x0038, t01=0x0172}
0x58f6…590a Head {h00=0x0010, h01=0x0050, text=» FLINK FHEX «, t00=0x0038, t01=0x0180}
0x590a…5918 (57, 2, 146) Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0039, t01=0x0004}
0x5918…5922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0012}
0x5922…5934 Head {h00=0x000e, h01=0x0050, text=»FHEX FRMT «, t00=0x0039, t01=0x001c}
0x5934…5940 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0039, t01=0x002e}
0x5940…595c Head {h00=0x0018, h01=0x0050, text=» FKI 1,MINL=0,MAXL=0«, t00=0x0039, t01=0x003a}
0x595c…5970 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0039, t01=0x0056}
0x5970…597e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0039, t01=0x006a}
0x597e…5988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0078}
0x5988…5994 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0039, t01=0x0082}
0x5994…5998 Head {h00=0x4004, h01=0x0000}
0x5998…599c 00 39 00 8e ┆ 9 ┆
0x599c…59a4 (58, 1, 8) 20 04 00 00 00 3a 00 04 ┆ : ┆
0x59a4…59f4 (59, 0, 400) 5c 43 42 4e 45 5c 43 4f 50 59 2c 3d 27 53 27 2c 43 4f 50 37 39 36 5c 43 4f 50 59 20 22 53 50 45 43 49 46 49 43 22 20 3f 00 2a 01 90 00 12 00 50 5c 42 5c 43 4f 50 37 34 33 5c 2d 59 45 53 00 2b 00 30 00 0a 00 50 43 4f 50 37 39 36 00 2b 00 46 ┆ CBNE COPY,='S',COP796 COPY "SPECIFIC" ? * P B COP743 -YES + 0 PCOP796 + F┆
0x59f4…5a44 00 2c 00 50 5c 53 55 42 5c 42 49 4e 32 2c 57 31 5c 4e 4f 2c 20 44 45 43 52 45 41 53 45 20 4e 4f 2e 20 4f 46 20 45 4e 54 52 49 45 53 00 2b 00 54 00 1a 00 50 5c 42 5a 5c 43 4f 50 38 30 30 5c 41 4c 4c 20 48 41 4e 44 4c 45 44 00 2b 00 84 00 1c ┆ , P SUB BIN2,W1 NO, DECREASE NO. OF ENTRIES + T P BZ COP800 ALL HANDLED + ┆
0x5a44…5a94 00 50 5c 41 44 44 5c 42 49 4e 31 2c 57 31 30 5c 54 41 4b 45 20 4e 45 58 54 20 00 2b 00 a2 00 0e 00 50 5c 42 5c 43 4f 50 37 35 32 20 00 2b 00 c2 00 0a 00 50 43 4f 50 38 30 30 00 2b 00 d4 00 28 00 50 5c 58 43 4f 50 59 5c 42 49 4e 31 30 2c 57 ┆ P ADD BIN1,W10 TAKE NEXT + P B COP752 + PCOP800 + ( P XCOPY BIN10,W┆
0x5a94…5ae4 30 2c 57 32 2c 52 42 55 46 2c 57 32 5c 4c 49 4e 4b 20 4e 45 58 54 00 2b 00 e2 00 1e 00 50 5c 58 43 4f 50 59 5c 42 49 4e 31 31 2c 57 30 2c 57 32 2c 52 42 55 46 2c 57 34 00 2b 01 0e 00 24 00 50 5c 43 41 4c 4c 5c 42 49 4e 42 43 44 2c 42 49 4e ┆0,W2,RBUF,W2 LINK NEXT + P XCOPY BIN11,W0,W2,RBUF,W4 + $ P CALL BINBCD,BIN┆
0x5ae4…5b34 31 30 2c 42 49 4e 31 31 2c 52 45 43 4e 55 4d 20 00 2b 01 30 00 22 00 50 5c 43 42 4e 45 5c 42 49 4e 31 31 2c 57 30 2c 43 4f 50 38 30 31 5c 4c 49 4e 4b 20 46 57 44 00 2b 01 58 00 18 00 50 5c 43 42 45 5c 42 49 4e 31 30 2c 57 30 2c 43 4f 50 38 ┆10,BIN11,RECNUM + 0 " P CBNE BIN11,W0,COP801 LINK FWD + X P CBE BIN10,W0,COP8┆
0x5b34…5b84 (60, 0, 400) 30 32 00 2b 01 7e 00 0a 00 50 43 4f 50 38 30 31 00 2c 00 0a 00 0e 00 50 5c 42 5c 43 4f 50 37 34 39 20 00 2c 00 18 00 0a 00 50 43 4f 50 38 30 32 00 2c 00 2a 00 10 00 50 5c 41 44 44 5c 42 49 4e 35 2c 57 31 00 2c 00 38 00 16 00 50 5c 4d 4f 56 ┆02 + ~ PCOP801 , P B COP749 , PCOP802 , * P ADD BIN5,W1 , 8 P MOV┆
0x5b84…5bd4 45 5c 42 49 4e 36 2c 3d 57 27 32 36 27 20 00 2c 00 4c 00 1a 00 50 5c 43 42 45 5c 42 49 4e 35 2c 42 49 4e 36 2c 43 4f 50 38 30 35 20 00 2c 00 66 00 0e 00 50 5c 42 5c 43 4f 50 37 34 38 20 00 2c 00 84 00 0a 00 50 43 4f 50 38 30 35 00 2c 00 96 ┆E BIN6,=W'26' , L P CBE BIN5,BIN6,COP805 , f P B COP748 , PCOP805 , ┆
0x5bd4…5c24 00 1c 00 50 5c 43 42 45 5c 44 54 45 53 54 2c 3d 43 27 53 27 2c 43 4f 50 38 31 30 20 00 2c 00 a4 00 1c 00 50 5c 43 42 45 5c 44 54 45 53 54 2c 3d 43 27 46 27 2c 43 4f 50 38 30 37 20 00 2c 00 c4 00 16 00 50 5c 4d 4f 56 45 5c 44 54 45 53 54 2c ┆ P CBE DTEST,=C'S',COP810 , P CBE DTEST,=C'F',COP807 , P MOVE DTEST,┆
0x5c24…5c74 3d 43 27 46 27 20 00 2c 00 e4 00 0e 00 50 5c 42 5c 43 4f 50 38 30 38 20 00 2c 00 fe 00 0a 00 50 43 4f 50 38 30 37 00 2c 01 10 00 16 00 50 5c 4d 4f 56 45 5c 44 54 45 53 54 2c 3d 43 27 53 27 20 00 2c 01 1e 00 0a 00 50 43 4f 50 38 30 38 00 2c ┆=C'F' , P B COP808 , PCOP807 , P MOVE DTEST,=C'S' , PCOP808 ,┆
0x5c74…5cc4 01 38 00 0e 00 50 5c 42 5c 43 4f 50 37 34 37 20 00 2c 01 46 00 0a 00 50 43 4f 50 38 31 30 00 2c 01 58 00 16 00 50 5c 4d 4f 56 45 5c 4e 4f 52 45 43 2c 3d 44 27 30 30 27 00 2c 01 66 00 1c 00 50 5c 43 41 4c 4c 5c 43 48 41 4e 46 43 2c 44 49 53 ┆ 8 P B COP747 , F PCOP810 , X P MOVE NOREC,=D'00' , f P CALL CHANFC,DIS┆