|
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: 29776 (0x7450)
Notes: pts_type(SC)
Names: »WUUTI.SC«
└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
└─⟦this⟧ »WSM:UTIL/WUUTI.SC«
IDENT WUUTI REL=2.3,850808,870155940230
**************************************
* W S M *
* WORK STATION MANAGEMENT *
* UTILITY PROGRAMS *
* 1 CREATE VOLUME *
* 2 CREATE FILE *
* 3 DELETE FILE *
* 4 COPY VOLUME/FILE (REORGANIZE) *
* 5 EXTEND FILE *
* 6 PRINT FILE *
* 7 CHANGE VOLUME-NAME *
* 8 PRINT VTOC *
* *
**************************************
** HISTORY:
** 85-08-08 /CRBE CHANGE IN ERR.MESS FROM DISC TO DISK.
** 84-12-04 /CRBE START/STOP BLOCKING IMPLEMENTED.
** 84-12-03 /CRBE MUL&DIV NOW FROM ASSRUT.
** 84-07-12 /MAER INTERTASK COMMUNICATION IMPLEMENTED.
** CHVNAM DOES NO MORE DESTROY RETCOD.
** 84-06-01 /MAER APPL. ROUTINE A13: THE NEW VARIABLE "DMAX" IS
** USED FOR CHECK OF ENTERED TYPE IN CRV.
** 83-10-15 /MAER CHANGE VOLUME NAME (CHVNAM) USES "RETCOD"
** INSTEAD OF DEBINW4.
** SUBROUTINE "DISERR" TAKES CARE OF ERROR 23 (NEW).
** RETURN-CODE "RETRIES PERFORMED" HANDLED AS OK
** (INITIAL ATTEMPT TO PRINT ON GP74).
** EXTENDED DELAY OF PRINTER (LP REQUIREMENT).
** (W10 INSTEAD OF W4).
** 83-09-27 /MAER A13, DISK TYPES FOR CRV, CHANGED.
** 83-09-12 /MAER A13, DISK TYPES FOR CRV, CHANGED.
** 83-08-02 /MAER UNIT-MNEMO MATCH ADAPTION (W66 INSTEAD OF W48).
** 83-07-04 /MAER SET BOOL3 IN A10 TO AVOID UPDFLD OF "OUTPUT UNIT".
** (REWRT SINCE DUPLICATION NOW ALLOWED.)
** 83-06-30 /MAER WUPRF WITH SECTOR-PRINTOUT FOR MENU OPTION '9' (A7).
** ( NOT FOR PUBLIC USE!!!).
** NEW DISK TYPES (NO 16-19) ADDED (APPL=A13).
** 83-06-22 /MAER A18 & UFERR ADDED.
** PROC "HALT" ALLOWES ALSO THE RETURN-KEY.
** 83-06-17 /MAER ANSWER = "S" ALLOWED IN APPL "A1"
** (COPY SPECIFIC SECTION / DEFINITION).
** 83-03-18 /MAER STEADY CURSOR.
** CHANGED DECORATIONS.
** 83-02-09 /MAER NEW TRAILING TEXT ON MENU.
** 82-08-18 /MAER ADAPTED TO VD82/83.
** 82-07-26 /DALI NO.OF FILES IN CRV USES APPL=4
** 82-07-08 /DALI VOLUME-NAME CHANGED FOR GETTING RIGHT UNIT
** (RETCOD IS NOT SET!)
** 82-02-04 /DALI NEW ERROR-MESSAGE "DISK OVERFLOW" WHEN CREATE OR EX
** 81-11-11 /DALI CREATION
DDUM WUDIV
PDIV
ENTRY WUUTI
ENTRY APP
ENTRY DISERR
ENTRY DSKERR
ENTRY UFERR
ENTRY HALT
ENTRY CONT
ENTRY CHVNAM CHANGE VOLUME-NAME
ENTRY STPBLK
ENTRY STABLK
*
EXPROC WUCRV CRE= CREATE VOLUME
EXPROC WUCRF CRE = CREATE FILE
EXPROC WUDLF CRE= DELETE FILE
EXPROC WUCOP CRE= COPY DISK,FILE
EXPROC WUEXT CRE= EXTEND FILE
EXPROC WUEXT1 CRE= EXTEND FILE,APPL.ROUT
EXPROC WUEXT2 CRE= EXTEND FILE,APPL.ROUT
EXPROC WUPRF CRE= PRINT FILE
EXPROC WUCVN CRE= CHANGE VOLUME NAME
EXPROC WUPRV CRE= PRINT VTOC
EXPROC DECLRA
EXPROC DERR
EXT CHANFC
EXT GETVOL
EXT GETIND GET IX & DIM OF ARRAY
EXT RCGET
EXT OPENF
EXT CLOSEF
EXT CHVOL CHANGE VOLUME-NAME
EXT GETCW GET CONTROL WORD 1 OF ECB
EXT WXMUL ---ASSRUT:MULTIPLICATION
EXT WXDIV ---ASSRUT:DIVISION
*
ENT EQU X'80' ENTER
RET EQU X'99' RETURN
*
KTABEN KTAB ENT,RET
TSTAT EQU X'07'
ATTACH EQU X'0E'
DETACH EQU X'0F'
****************************************************************
* *
* ORDER CODES *
* *
****************************************************************
BRD EQU X'81' BASIC READ
TRP EQU X'A7' TRANSFORM PARAMETER
GSS EQU X'AC' GET SCREEN SIZE
CED EQU X'B7' CHANGE ECHO DEVICE
TIMOUT EQU X'0B' SET TIME-OUT
****************************************************************
* *
* START & STOP BLOCKING *
* *
****************************************************************
STOPBLK EQU X'BE'
STARTBLK EQU X'BD'
EJECT
WUUTI PROC
****************************************************************
* *
* GET NUMBER OF POOL UNITS *
* *
****************************************************************
CALL GETIND,BPOOL(W1),BIN1,BIN2 BIN2 := NO OF ELEM.
MOVE NOOFPO,BIN2 MOVE TO BCD (USED IN WUCOP)
EJECT
****************************************************************
* *
* GET SCREEN TYPE *
* *
****************************************************************
STA000
MOVE BIN1,W0 WORKITEM := 0
MOVE BIN2,W80 BUFFER LENGTH := 80
BASIC READ OF THE SCREEN SIZE:
DSC DEDSSCRN,BRD,BIN1,STATSH,BIN2
BOK STA025 OK => VD82 IS USED
****************************************************************
* *
* VD46 IS USED *
* *
****************************************************************
MOVE SCRNFC,=X'50' SET FILE CODE VD46
CALL CHANFC,DEDSSCRN,SCRNFC CHANGE FILE CODE TO VD46
CALL CHANFC,DEDSSYSL,SCRNFC CHANGE FILE CODE SYSTEM LINE
MOVE SYSLFC,SCRNFC SET SYSTEM LINE FILE CODE
B STA030
EJECT
****************************************************************
* *
* VD82 IS USED *
* *
****************************************************************
STA025
SET VD82 INDICATE VD82 BY SETTING BOOLEAN
EJECT
STA030
*********************************
* TRY INTERTASK COMMUNICATION *
*********************************
MOVE BIN1,=X'FFFF' TIME OUT VALUE
DSC1 ITCIN,TIMOUT,BIN1 IN DATA SET
DSC1 ITCOUT,TIMOUT,BIN1 OUT DATA SET
STA037
CLEAR ICEXIT
MOVE ICLEN,W21 ITC REQUESTED LENGTH
RECEIVE ITCIN,ICPOOL,ICLEN UNADDR READ FROM ANY TASK
BNOK STA040 NO ONE CALLING (DOESN'T EXIST)
SET IC INDICATE THAT ITC IS RUNNING
CALL GETCW,ITCIN,ICTASK FETCH TASK-ID (STORED IN ITCIN)
EJECT
*********************************
* SET UP FOR VD82 SCREEN *
*********************************
STA040
*********************************
* GET LENGTH OF PHYSICAL SCREEN *
*********************************
CALL GETIND,PHYSCR,BIN2,BIN1
MOVE BIN1,=X'0C81'
*********************************
* DEFINE PHYSICAL SCREEN SIZE *
*********************************
DSC DEDSSYSL,TRP,BIN1,PHYSCR,BIN2
*********************************
* CHANGE ECHO DEVICE *
*********************************
DSC DEDSDYKB,CED,SCRNFC
EJECT
****************************************************************
* *
* ATTACH INIT. MENU, GET OPTION, ACTIVATE CORRECT SUBROUTINE *
* *
****************************************************************
STA050
PERF STABLK ***START BLOCKING
MOVE BIN1,=X'0081' BACKGROUND = WHITE
DSC DEDSSCRN,TRP,BIN1 SET SCREEN BACKGROUND = WHITE
ATTFMT FPROG
SET DEPROMPT
STA100
PERF DECLRA
STA150
IB DEBINW2,STA100,ESCAPE,STA200
PERF DSKERR,W0 'BELL'
B STA150
STA200
MOVE VOLNAM,=X'00'
MOVE COPNAM,=X'17'
MOVE PBLOCK,=X'20'
MOVE BIN1,SCRNFC
XCOPY PBLOCK,W5,W1,BIN1,W1 FC2:PRINT-DEVICE
MOVE BIN1,PRNUM
PERFI BIN1,WUCRV,WUCRF,WUDLF,WUCOP, C
WUEXT,WUPRF,WUCVN,WUPRV
B STA050
ESCAPE
TBF IC,STA050 ITC DOESN'T EXIST => END
SEND .ADDR,ITCOUT,ICPOOL,ICLEN,ICTASK SEND ANSWER
B STA037
RET
PEND
EJECT
*************************
* *
* CHANGE VOLUME NAME *
* VOLYM = VOLUME NAME *
* CODE = FILE CODE *
* *
*************************
*
CHVNAM PROC VOLYM,CODE
PSTRG VOLYM
PBIN CODE
CALL CHANFC,DISK,CODE
CALL CHVOL,DISK,SYSBUF,VOLYM,BIN1
BOK CHVRET
MOVE RETCOD,BIN1
CHVRET
RET
PEND
EJECT
***********************************************
* *
* USER FRIENDLINESS ERROR MESSAGE ROUTINE *
* TO BE USED AFTER POOL- & FILE-HANDLER CALLS *
* (INTRODUCED 83-06-22) *
* *
* INPUT: CONDITION > 0 = POOL ERROR *
* < 0 = DISK ERROR *
* RETCOD = ECB RETURN CODE ("BITS") *
* DESTR: BIN13 *
* *
***********************************************
UFERR PROC
BN UFER10 DISK ERRORS
BP UFER50 POOL ERRORS
MOVE BIN13,W3 RETCOD = ZERO => "I/O-ERROR"
B UFER90
UFER10 DISK ERRORS
CBE RETCOD,W1,UFER25 ECB-RC = "0001"
MOVE BIN13,W19 "DISK ERROR"
B UFER90
UFER25
MOVE BIN13,W18 "DISK NOT OPERABLE"
B UFER90
UFER50 POOL ERRORS
CBE RETCOD,W1,UFER75 ECB-RC = "0001"
MOVE BIN13,W64 CHECK IF FILE OVERFLOW
ADD BIN13,W64 BIN6 := 128 = ECB-RC "0080"
CBNE RETCOD,BIN13,UFER60 NO, NOT FILE OVERFLOW!
MOVE BIN13,W10 "DISK/FILE OVERFLOW"
B UFER90
UFER60
MOVE BIN13,W20 "POOL ERROR"
B UFER90
UFER75
MOVE BIN13,W21 "NOT FOUND"
UFER90
MOVE STR6A,HEX00
CALL RCGET,RETCOD,STR6A CONVERT RETCOD TO A STRING
PERF DSKERR,BIN13
RET
PEND
EJECT
***************************
* *
* ERROR-MESSAGE ROUTINE *
* *
***************************
*
DISERR PROC
MOVE STR6A,HEX00
CALL RCGET,RETCOD,STR6A
MOVE BIN13,W22 ASSUME I/O ERROR
CBNE RETCOD,W66,DISER2 IF NO TOSS-DISK...
MOVE BIN13,W23 ...USE ERROR TEXT 23.
DISER2
PERF DSKERR,BIN13
RET
PEND
DSKERR PROC ERRCODE
PBIN ERRCODE
MOVE DEBINW4,ERRCODE
DISPLAY 0,W1,W0
PERF DERR
RET
PEND
EJECT
***************************
* *
* PRESS ENT TO CONTINUE *
* *
***************************
*
HALT PROC
H10
ERASE 0,W1,W1 LINE 1
MOVE BIN1,=X'0101' LINE 1 / POS 1
DSC1 DEDSSCRN,6,BIN1 SET CURSOR
EDWRT DEDSSCRN,FHALT 'PRESS ENT TO CONTINUE'
MOVE BIN1,W1
NKI .NE,DEDSDYKB,DEINPUT,KTABEN,BIN1,BIN2
BERR H10
CBE BIN2,W1,H99 "ENTER"...
CBE BIN2,W2,H99 AND "RETURN" ARE ALLOWED.
B H10
H99
RET
PEND
EJECT
***************************
* *
* DISPLAY WAIT-TEXT *
* *
***************************
*
CONT PROC
CONT10 MOVE BIN1,=X'0101' LINE 1, COLUMN 1
DSC1 DEDSSCRN,6,BIN1 SET CURSOR ON FIRST LINE
EDWRT DEDSSCRN,FCONT DISPLAY WAIT-TEXT
RET
PEND
EJECT
***************************
* *
* APPL-ROUTINES *
* *
***************************
*
APP PROC
CBNE DEBINW1,W0,APP300
MOVE DEINPUT,:FMTITEM
APP300
IB DEBINW3, APPL-VALUE C
A1,A2,A3, C
A4,A5,A6,A7,A8,A9, C
A10,A11,A12, C
A13,A6,A15,A6,A17,A18
MOVE DEBINW4,W2 'UNDEFINED ERROR'
B ANOK
****************
* APPL-ERRORS *
****************
*
A3E
MOVE DEBINW4,W3 'I/O-ERROR'
B ANOK
A6E MOVE DEBINW4,W6 'ILLEGAL VALUE'
B ANOK
A10E MOVE DEBINW4,W10 'DISK OVERFLOW'
ANOK
MOVE DEBINW3,W3 NOT OK
AERR
RET
AOK MOVE DEBINW3,W0 OK
RET
EJECT
A1
*******************
* YES OR NO *
* WITH AUTO ENTER *
*******************
*
MOVE STR1A,DEINPUT
CBE STR1A,=C'Y',AA11
CBE STR1A,=C'N',AA11
CBE STR1A,=C'S',AA11
B A6E
AA11
MOVE DEBINW2,W17 ENT-KEY
B AOK
EJECT
A2
*****************************************
* *
* TEST TYPE USED IN CREATE VOLUME. *
* *
* POSSIBLE VALUES IS A, I, Q. *
* *
* Q IS NOT VALID WHEN DTYP IS =1 OR =2 *
* AND DVER IS =3. *
* *
*****************************************
*
MOVE STR15A,=C'QAI'
MOVE DEBINW4,W0
MATCH STR15A,DEBINW4,W3,DEINPUT,W0,W1
BNOK A6E
IB DEBINW4,AOK,AOK JUMP IF NOT "Q"
IB DTYP,A20,A20
B AA11 SET ENTER-KEY
A20
CBNE DVER,W3,AOK
B A6E
EJECT
*****************************
* NO. OF RECORDS - WSMFILE *
*****************************
*
A3
MOVE BCD13A,DEINPUT
CBE BCD13A,=D'00',A34
CBE DEBINW3,W15,A32
CBL BCD13A,=D'+027',A6E
B A33
A32
CBL BCD13A,=D'+3',A6E
A33
MOVE BIN1,BCD13A
CALL WXDIV,BIN1,W3,BIN1
CALL WXMUL,BIN1,W3,BIN1
MOVE BCD13A,BIN1
MOVE DEINPUT,BCD13A
CBG BCD13A,BCDI21(W2),A10E
B AOK
A34
MOVE NOREC,BCDI21(W2)
MOVE DEINPUT,NOREC
CBG NOREC,=D'+2',A3
B A10E
EJECT
************************
* NO.OF FILES IN CRV *
* REC.NO IN PRINT FILE *
************************
*
A4
MOVE BCD13A,DEINPUT
CBE BCD13A,=D'00',A44
B AOK
A44
MOVE NOREC,W1
MOVE DEINPUT,NOREC
B AOK
EJECT
******************
* CREATE VOLUME *
* CREATE FILE *
* UNIT DU1-DU4 *
* UNIT FD1-FD4 *
******************
*
A5
PERF AUNIT,VOLNAM
A55
CBE FCOD,W0,A6E
CBNE RETCOD,W0,A56
B AOK
A56
MOVE DEBINW4,RETCOD
B ANOK
EJECT
***********************************
* *
* FILE NAME MAX 8 CHAR. *
* LEADING SPACES ARE IGNORED *
* *
***********************************
*
A6
MOVE STR15A,=X'20' SPACE
INSRT DEINPUT,DEBINW1,W8,STR15A,W0
A64
MOVE DEBIN4,W0
MATCH DEINPUT,DEBIN4,W1,STR15A,W0,W1
BNOK A66
DLETE DEINPUT,W0,W1 DELEATE LEADING SPACES
B A64
A66
CBE DEBINW3,W14,A14
CBE DEBINW3,W16,A16
B AOK
EJECT
*****************
* PROGRAM NO. *
*****************
*
A7
CLEAR BOOL1 SETOFF THE PRINT-FILE OPTION INDICATOR
OPTION=ON => SECTOR PRINTOUT
OPTION=OFF => "ORDINARY" PRINTOUT
MOVE DEBINW2,W17 IND. ENTER-KEY
MOVE BCD2A,DEINPUT PROGRAM NO.
MOVE BIN1,BCD2A
IB BIN1,AOK,AOK,AOK,AOK,AOK,AOK,AOK,AOK
A71
B A6E
A73
SET BOOL1 MENU OPTION 9 => SECTOR PRINTOUT
B AOK
EJECT
***************************
* COPY DISK OR FILE : *
* INPUT TYPE = V,F,W *
* WITH AUTO ENTER *
***************************
*
A8
MOVE STR15A,=C'VFW'
MOVE DTYP,W0
MATCH STR15A,DTYP,W3,DEINPUT,W0,W1
BNOK A6E
MOVE DEBINW2,W17 ENT
B AOK
EJECT
***************************
* COPY DISK OR FILE : *
* INPUT UNIT NO. *
***************************
*
A9
PERF AUNIT,VOLNAM
MOVE FCOD1,FCOD
B A55
EJECT
***************************
* COPY DISK OR FILE : *
* OUTPUT UNIT NO. *
***************************
*
A10
SET BOOL3 NO UPDFLD, REWRT OF OUTPUT UNIT.
PERF AUNIT,COPNAM
MOVE FCOD2,FCOD
TBT BOOL2,A55
CBNE FCOD1,FCOD2,A55 COPY DISK TO DISC
AA105 B A6E
EJECT
********************************
* *
* PRINT FILE PRINT DEVICE *
* *
* WITH AUTO ENTER *
********************************
*
A11
MOVE STR2A,DEINPUT
CBNE STR2A,=C'OP',AA111
MOVE FCOD2,SCRNFC
MOVE BIN15,W24 PAGE-SIZE:=24
MOVE BIN14,W1 LINE-START:=1
B AA114
AA111
CBE STR2A,=C'LP',AA112
CBNE STR2A,=C'GP',A71 A6E
MOVE FCOD2,=X'0030'
B AA113
AA112
MOVE FCOD2,=X'0036'
AA113
MOVE BIN15,=W'44' PAGE-SIZE:=44
MOVE BIN14,W6 LINE-START:=6
PERF ATTDEV,FCOD2
BNZ ANOK ERROR
PERF DETDEV
AA114
MOVE DEBINW2,W17
B AOK
A12
B AOK
EJECT
************************
* DISK TYPE *
************************
* INPUT: DISK TYPE, 01-DMAX
* OUTPUT: DISK TYPE IN DTYP
* STORAGE TYPE (DVER) = 0
*
A13
MOVE DVER,W0
MOVE BCD3A,DEINPUT
MOVE DTYP,BCD3A
CBL DTYP,W1,AA105 CHECK THAT TYPE IS CORRECT
CBG DTYP,DMAX,AA105
SUB DTYP,W1
ADD DTYP,DTYP
XCOPY STR2A,W0,W2,DTYPES,DTYP COPY CORRESP. TOSS...
MOVE BCD3A,STR2A ...UTILITY DISK TYPE TO...
MOVE DTYP,BCD3A ...DTYP!
B AOK
EJECT
******************************
* EXTEND FILE *
* NO. OF RECORDS IN EXISTING *
* FILE WHEN NAME ENTERED *
******************************
*
A14
MOVE :FMTITEM,DEINPUT UPDATE FILENAME
PERF WUEXT1
CMP DEBINW4,W0
BNE ANOK
ERASE 1,W4,W4
DISPLAY 3,W4,W4
B AOK
EJECT
******************************
* EXTEND FILE *
* NO. OF RECORDS IN EXTENDED *
* FILE.
******************************
*
A15
PERF WUEXT2
CMP DEBINW4,W0
BNE ANOK
B A3
EJECT
********************************************
* CHECK IF FILE IS FOUND (WUPRF ONLY) *
* A16 IS ALWAYS ACTIVATED FROM A6. *
********************************************
A16
PERF CHVNAM,VOLEX1,FCOD CHANGE VOLNAME TO TEMP.
BNOK A165
CALL OPENF,DISK,FILECODE(W1),SYSBUF,DEINPUT,VOLEX1,RETCOD
BOK A169 JMP IF FILE IS FOUND
MOVE DEBINW4,RETCOD SAVE RETCOD, DESTR. BY CHVNAM
PERF CHVNAM,VOLNAM,FCOD CHANGE VOLNAME TO ORIG.
CBNE DEBINW4,W1,A168
A163
MOVE DEBINW4,W18 "DISK NOT OPERABLE"
B ANOK
A165
MOVE STR6A,HEX00
CALL RCGET,RETCOD,STR6A
MOVE DEBINW4,W22
CBNE RETCOD,W66,A166 BRANCH IF I/O-ERROR
MOVE DEBINW4,W23 "NOT A TOSS DISK!"
A166
B ANOK
A168
MOVE DEBINW4,W12 FILE NAME UNKNOWN
B ANOK
A169
CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,NOREC,RETCOD
PERF CHVNAM,VOLNAM,FCOD CHANGE VOLNAME TO ORIG.
B AOK
EJECT
********************************************************
* *
* CHECK DISK VERSION (UNPACKED OR PACKED) WHEN CRV FOR *
* 2,5MB OR 5MB CARTRIDGE/FIX DISK. *
* *
* INPUT: DISK VERSION = 1 (UNPACKED) OR = 2 (PACKED) *
* OUTPUT: DVER = 2 (UNPACKED) OR = 3 (PACKED) *
* *
********************************************************
A17
MOVE BCD2A,DEINPUT
MOVE DVER,BCD2A
CBL DVER,W1,AA105 CHECK LIMITS
CBG DVER,W2,AA105
ADD DVER,W1 ADD 1 TO KEYBOARD VALUE
B AOK
EJECT
***********************************************
* *
* FILL ENTERED FORM/SECT/DEF-NAME WITH *
* TRAILING BLANKS (COPY SPECIFIC) *
* *
***********************************************
A18
MOVE STR6B,=' ' STR6B := BLANKS
XCOPY STR6B,W0,DEBINW1,DEINPUT,W0 COPY NO OF ENTERED CHARACTERS
XCOPY DEINPUT,W0,W6,STR6B,W0 STORE IN INPUT BUFFER
B AOK
PEND
EJECT
*************************************************
* THE CONECTION BETWEEN UNIT NO AND DISK *
* IS DONE IN DATA DIVISION AND IS DESCRIBED *
* IN SYSTEM GENERATION *
*************************************************
*
AUNIT PROC VOLYM
PSTRG VOLYM
MOVE RETCOD,W0
MOVE FCOD,W0
MOVE DEBIN2,W0
AUN100
MOVE DEBIN1,DEBIN2
MATCH DUNIT,DEBIN1,W3,DEINPUT,W0,W3
BOK AUN200
ADD DEBIN2,W3
CBNE DEBIN2,W66,AUN100
RET
AUN200
CALL WXDIV,DEBIN2,W3,DEBIN2
XCOPY FCOD,W1,W1,DFCODS,DEBIN2
MOVE DEBIN1,W2
CBNE DEBINW3,W10,AUN250
MOVE DEBIN1,W4
TBF BOOL2,AUN250
MOVE DEBIN1,W5
AUN250
ERASE 1,DEBIN1,DEBIN1 ERASE ON SCREEN
CALL CHANFC,DISK,FCOD CHANGE FILE-CODE
CALL GETVOL,DISK,SYSBUF,VOLYM,RETCOD GET VOLUME-NAME
CALL WXDIV,DEBIN1,W2,DEBIN1
DISPLAY 2,DEBIN1,DEBIN1 VOL-NAME
CBE RETCOD,W0,AUN300
CBNE RETCOD,=X'20',AUN275
MOVE RETCOD,W11
B AUN300
AUN275
CBNE RETCOD,W1,AUN280
MOVE RETCOD,W18
B AUN300
AUN280
CMP RETCOD,=X'8000'
BNE AUN290
MOVE RETCOD,W13
B AUN300
AUN290
MOVE STR6A,HEX00
CALL RCGET,RETCOD,STR6A
MOVE RETCOD,W22
AUN300
MOVE DEBINW1,W0
MOVE :FMTITEM,DEINPUT
RET
PEND
EJECT
ATTDEV PROC FILCOD
PBIN FILCOD
CALL CHANFC,DEDSPRT,FILCOD
MOVE DEBINW4,W0
DSC0 .NW,DEDSPRT,TSTAT
DELAY W10 CHANGED FROM W4 TO W10 831015
TESTIO DEDSPRT
BNZ NOTOK
WAIT DEDSPRT
XSTAT DEDSPRT,DEBINW4
CBE DEBINW4,W0,ATTOK
CBE DEBINW4,SECLEN,ATTOK0 "RETRIES PERFORMED" = "OK"
B ATT100
NOTOK
ABORT DEDSPRT
B ATT100
ATTOK0
MOVE DEBINW4,W0 SET RETURN-CODE = 0 IF RETRIES PERF.
ATTOK
DSC1 DEDSPRT,ATTACH,W20
BOK ATTOUT
MOVE DEBINW4,W3
B ATTOUT
ATT100
MOVE DEBINW4,W3
ATTOUT
CMP DEBINW4,W0
RET
PEND
DETDEV PROC
DSC1 DEDSPRT,DETACH,W0
RET
PEND
EJECT
*
* STPBLK => PUT'S CURSOR ON AND STOP'S BLOCKING
*
STPBLK PROC
MOVE VD82CW,=X'0080' CURSOR ON
DSC DEDSSCRN,X'11',VD82CW
DSC DEDSSCRN,STOPBLK STOP BLOCKING
RET
PEND
*
* STABLK => START'S BLOCKING AND TURNS CURSOR OFF
*
STABLK PROC
DSC DEDSSCRN,STARTBLK START BLOCKING
MOVE VD82CW,=X'01C0' DISCONNECT CURSOR
DSC DEDSSCRN,X'11',VD82CW
MOVE VD82CW,=X'0180' INVISIBLE CURSOR
DSC DEDSSCRN,X'11',VD82CW
RET
PEND
EJECT
FPROG FRMT
FSL
FATTR .HIGH HIGH INTENSITY
FTEXT 'WSM REL '
FCOPY RELNUM
FTAB 20
FTEXT 'RELEASE DATE: '
FCOPY RELDAT
FNL
FNL
FATTR .HIGH HIGH INTENSITY
FTAB 3
FATTR .INV INVERSE VIDEO
FCOPY =C'WSM UTILITIES'
FNL
FNL
FATTR .HIGH HIGH INTENSITY
FCOPY =C' FUNCTION SELECTION:'
FKI 24,MINL=1,MAXL=1,ME,NEOI,REWRT,APPL=7
FMEL 'X',PRNUM
FATTR .HIGH HIGH INTENSITY
FTAB 26
FCOPY =C'1 ='
FTAB 31
FCOPY =C'CREATE VOLUME'
FNL
FATTR .HIGH HIGH INTENSITY
FTAB 26
FCOPY =C'2 ='
FTAB 31
FCOPY =C'CREATE WSM SYSTEM FILE'
FNL
FATTR .HIGH HIGH INTENSITY
FTAB 26
FCOPY =C'3 ='
FTAB 31
FCOPY =C'DELETE FILE'
FNL
FATTR .HIGH HIGH INTENSITY
FTAB 26
FCOPY =C'4 ='
FTAB 31
FCOPY =C'COPY VOLUME/FILE'
FNL
FATTR .HIGH HIGH INTENSITY
FTAB 26
FCOPY =C'5 ='
FTAB 31
FCOPY =C'EXTEND WSM SYSTEM FILE'
FNL
FATTR .HIGH HIGH INTENSITY
FTAB 26
FCOPY =C'6 ='
FTAB 31
FCOPY =C'PRINT FILE TABLE OF CONTENTS'
FNL
FATTR .HIGH HIGH INTENSITY
FTAB 26
FCOPY =C'7 ='
FTAB 31
FCOPY =C'CHANGE VOLUME-NAME'
FNL
FATTR .HIGH HIGH INTENSITY
FTAB 26
FCOPY =C'8 ='
FTAB 31
FCOPY =C'PRINT VTOC'
FNL 10
FATTR .HIGH HIGH INTENSITY
FATTR .INV INVERSE VIDEO
FCOPY =C'IMPORTANT: '
FCOPY =C'ALWAYS RETURN TO THIS MENU '
FCOPY =C'BEFORE UNLOADING ANY VOLUME!'
FMEND
*
FHALT FRMT
FSL
FATTR .HIGH HIGH INTENSITY
FATTR .INV INVERSE VIDEO
FATTR .FLASH BLINKING
FCOPY =C'PRESS ENT TO CONTINUE'
FMEND
*
FHEX FRMT
FNL
FKI 1,MINL=0,MAXL=0
FCOPY HEX00
FMEND
*
FCONT FRMT
FSL
FATTR .HIGH HIGH INTENSITY
FATTR .INV INVERSE VIDEO
FATTR .FLASH BLINKING
FCOPY =C'WAIT...'
FMEND
*
END
0x0000…0030 (0, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IDENT WUUTI REL=2.3,850808,870155940230«, t00=0x0000, t01=0x0004}
0x0030…0038 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0034}
0x0038…0066 Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0000, t01=0x003c}
0x0066…0094 Head {h00=0x002a, h01=0x0050, text=»* W S M *«, t00=0x0000, t01=0x006a}
0x0094…00c2 Head {h00=0x002a, h01=0x0050, text=»* WORK STATION MANAGEMENT *«, t00=0x0000, t01=0x0098}
0x00c2…00f0 Head {h00=0x002a, h01=0x0050, text=»* UTILITY PROGRAMS *«, t00=0x0000, t01=0x00c6}
0x00f0…011e Head {h00=0x002a, h01=0x0050, text=»* 1 CREATE VOLUME *«, t00=0x0000, t01=0x00f4}
0x011e…014c Head {h00=0x002a, h01=0x0050, text=»* 2 CREATE FILE *«, t00=0x0000, t01=0x0122}
0x014c…017a Head {h00=0x002a, h01=0x0050, text=»* 3 DELETE FILE *«, t00=0x0000, t01=0x0150}
0x017a…01a8 Head {h00=0x002a, h01=0x0050, text=»* 4 COPY VOLUME/FILE (REORGANIZE) *«, t00=0x0000, t01=0x017e}
0x01a8…01d6 Head {h00=0x002a, h01=0x0050, text=»* 5 EXTEND FILE *«, t00=0x0001, t01=0x001c}
0x01d6…0204 Head {h00=0x002a, h01=0x0050, text=»* 6 PRINT FILE *«, t00=0x0001, t01=0x004a}
0x0204…0232 Head {h00=0x002a, h01=0x0050, text=»* 7 CHANGE VOLUME-NAME *«, t00=0x0001, t01=0x0078}
0x0232…0260 Head {h00=0x002a, h01=0x0050, text=»* 8 PRINT VTOC *«, t00=0x0001, t01=0x00a6}
0x0260…028e Head {h00=0x002a, h01=0x0050, text=»* *«, t00=0x0001, t01=0x00d4}
0x028e…02bc Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0001, t01=0x0102}
0x02bc…02c4 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0130}
0x02c4…02cc Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0138}
0x02cc…02e0 Head {h00=0x0010, h01=0x0050, text=»** HISTORY:«, t00=0x0001, t01=0x0140}
0x02e0…02e8 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0154}
0x02e8…02f0 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x015c}
0x02f0…0332 Head {h00=0x003e, h01=0x0050, text=»** 85-08-08 /CRBE CHANGE IN ERR.MESS FROM DISC TO DISK.«, t00=0x0001, t01=0x0164}
0x0332…0370 Head {h00=0x003a, h01=0x0050, text=»** 84-12-04 /CRBE START/STOP BLOCKING IMPLEMENTED. «, t00=0x0002, t01=0x0016}
0x0370…03a6 Head {h00=0x0032, h01=0x0050, text=»** 84-12-03 /CRBE MUL&DIV NOW FROM ASSRUT. «, t00=0x0002, t01=0x0054}
0x03a6…03e8 Head {h00=0x003e, h01=0x0050, text=»** 84-07-12 /MAER INTERTASK COMMUNICATION IMPLEMENTED. «, t00=0x0002, t01=0x008a}
0x03e8…0428 Head {h00=0x003c, h01=0x0050, text=»** CHVNAM DOES NO MORE DESTROY RETCOD.«, t00=0x0002, t01=0x00cc}
0x0428…0472 Head {h00=0x0046, h01=0x0050, text=»** 84-06-01 /MAER APPL. ROUTINE A13: THE NEW VARIABLE "DMAX" IS«, t00=0x0002, t01=0x010c}
0x0472…04b6 Head {h00=0x0040, h01=0x0050, text=»** USED FOR CHECK OF ENTERED TYPE IN CRV. «, t00=0x0002, t01=0x0156}
0x04b6…04fc Head {h00=0x0042, h01=0x0050, text=»** 83-10-15 /MAER CHANGE VOLUME NAME (CHVNAM) USES "RETCOD"«, t00=0x0003, t01=0x000a}
0x04fc…052c Head {h00=0x002c, h01=0x0050, text=»** INSTEAD OF DEBINW4.«, t00=0x0003, t01=0x0050}
0x052c…057a Head {h00=0x004a, h01=0x0050, text=»** SUBROUTINE "DISERR" TAKES CARE OF ERROR 23 (NEW).«, t00=0x0003, t01=0x0080}
0x057a…05c4 Head {h00=0x0046, h01=0x0050, text=»** RETURN-CODE "RETRIES PERFORMED" HANDLED AS OK«, t00=0x0003, t01=0x00ce}
0x05c4…0604 Head {h00=0x003c, h01=0x0050, text=»** (INITIAL ATTEMPT TO PRINT ON GP74).«, t00=0x0003, t01=0x0118}
0x0604…064c Head {h00=0x0044, h01=0x0050, text=»** EXTENDED DELAY OF PRINTER (LP REQUIREMENT).«, t00=0x0003, t01=0x0158}
0x064c…067e Head {h00=0x002e, h01=0x0050, text=»** (W10 INSTEAD OF W4). «, t00=0x0004, t01=0x0010}
0x067e…06bc Head {h00=0x003a, h01=0x0050, text=»** 83-09-27 /MAER A13, DISK TYPES FOR CRV, CHANGED.«, t00=0x0004, t01=0x0042}
0x06bc…06fa Head {h00=0x003a, h01=0x0050, text=»** 83-09-12 /MAER A13, DISK TYPES FOR CRV, CHANGED.«, t00=0x0004, t01=0x0080}
0x06fa…0746 Head {h00=0x0048, h01=0x0050, text=»** 83-08-02 /MAER UNIT-MNEMO MATCH ADAPTION (W66 INSTEAD OF W48).«, t00=0x0004, t01=0x00be}
0x0746…0796 Head {h00=0x004c, h01=0x0050, text=»** 83-07-04 /MAER SET BOOL3 IN A10 TO AVOID UPDFLD OF "OUTPUT UNIT". «, t00=0x0004, t01=0x010a}
0x0796…07da Head {h00=0x0040, h01=0x0050, text=»** (REWRT SINCE DUPLICATION NOW ALLOWED.) «, t00=0x0004, t01=0x015a}
0x07da…082c Head {h00=0x004e, h01=0x0050, text=»** 83-06-30 /MAER WUPRF WITH SECTOR-PRINTOUT FOR MENU OPTION '9' (A7). «, t00=0x0005, t01=0x000e}
0x082c…0862 Head {h00=0x0032, h01=0x0050, text=»** ( NOT FOR PUBLIC USE!!!).«, t00=0x0005, t01=0x0060}
0x0862…08aa Head {h00=0x0044, h01=0x0050, text=»** NEW DISK TYPES (NO 16-19) ADDED (APPL=A13).«, t00=0x0005, t01=0x0096}
0x08aa…08da Head {h00=0x002c, h01=0x0050, text=»** 83-06-22 /MAER A18 & UFERR ADDED. «, t00=0x0005, t01=0x00de}
0x08da…0920 Head {h00=0x0042, h01=0x0050, text=»** PROC "HALT" ALLOWES ALSO THE RETURN-KEY. «, t00=0x0005, t01=0x010e}
0x0920…095e Head {h00=0x003a, h01=0x0050, text=»** 83-06-17 /MAER ANSWER = "S" ALLOWED IN APPL "A1"«, t00=0x0005, t01=0x0154}
0x095e…09a0 (6, 0, 400) Head {h00=0x003e, h01=0x0050, text=»** (COPY SPECIFIC SECTION / DEFINITION).«, t00=0x0006, t01=0x0004}
0x09a0…09cc Head {h00=0x0028, h01=0x0050, text=»** 83-03-18 /MAER STEADY CURSOR. «, t00=0x0006, t01=0x0046}
0x09cc…09fe Head {h00=0x002e, h01=0x0050, text=»** CHANGED DECORATIONS. «, t00=0x0006, t01=0x0072}
0x09fe…0a36 Head {h00=0x0034, h01=0x0050, text=»** 83-02-09 /MAER NEW TRAILING TEXT ON MENU. «, t00=0x0006, t01=0x00a4}
0x0a36…0a66 Head {h00=0x002c, h01=0x0050, text=»** 82-08-18 /MAER ADAPTED TO VD82/83.«, t00=0x0006, t01=0x00dc}
0x0a66…0aa2 Head {h00=0x0038, h01=0x0050, text=»** 82-07-26 /DALI NO.OF FILES IN CRV USES APPL=4 «, t00=0x0006, t01=0x010c}
0x0aa2…0aea Head {h00=0x0044, h01=0x0050, text=»** 82-07-08 /DALI VOLUME-NAME CHANGED FOR GETTING RIGHT UNIT «, t00=0x0006, t01=0x0148}
0x0aea…0b1c Head {h00=0x002e, h01=0x0050, text=»** (RETCOD IS NOT SET!) «, t00=0x0006, t01=0x0190}
0x0b1c…0b6c Head {h00=0x004c, h01=0x0050, text=»** 82-02-04 /DALI NEW ERROR-MESSAGE "DISK OVERFLOW" WHEN CREATE OR EX«, t00=0x0007, t01=0x0032}
0x0b6c…0b92 Head {h00=0x0022, h01=0x0050, text=»** 81-11-11 /DALI CREATION «, t00=0x0007, t01=0x0082}
0x0b92…0b9a Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00a8}
0x0b9a…0ba2 Head {h00=0x0004, h01=0x0050, t00=0x0007, t01=0x00b0}
0x0ba2…0bb6 Head {h00=0x0010, h01=0x0050, text=» DDUM WUDIV «, t00=0x0007, t01=0x00b8}
0x0bb6…0bc4 Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0007, t01=0x00cc}
0x0bc4…0bd8 Head {h00=0x0010, h01=0x0050, text=» ENTRY WUUTI«, t00=0x0007, t01=0x00da}
0x0bd8…0bea Head {h00=0x000e, h01=0x0050, text=» ENTRY APP«, t00=0x0007, t01=0x00ee}
0x0bea…0c00 Head {h00=0x0012, h01=0x0050, text=» ENTRY DISERR «, t00=0x0007, t01=0x0100}
0x0c00…0c16 Head {h00=0x0012, h01=0x0050, text=» ENTRY DSKERR «, t00=0x0007, t01=0x0116}
0x0c16…0c2a Head {h00=0x0010, h01=0x0050, text=» ENTRY UFERR«, t00=0x0007, t01=0x012c}
0x0c2a…0c3e Head {h00=0x0010, h01=0x0050, text=» ENTRY HALT «, t00=0x0007, t01=0x0140}
0x0c3e…0c52 Head {h00=0x0010, h01=0x0050, text=» ENTRY CONT «, t00=0x0007, t01=0x0154}
0x0c52…0c7a Head {h00=0x0024, h01=0x0050, text=» ENTRY CHVNAM CHANGE VOLUME-NAME«, t00=0x0007, t01=0x0168}
0x0c7a…0c90 Head {h00=0x0012, h01=0x0050, text=» ENTRY STPBLK «, t00=0x0007, t01=0x0190}
0x0c90…0ca6 Head {h00=0x0012, h01=0x0050, text=» ENTRY STABLK «, t00=0x0008, t01=0x0016}
0x0ca6…0cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002c}
0x0cb0…0cd8 Head {h00=0x0024, h01=0x0050, text=» EXPROC WUCRV CRE= CREATE VOLUME«, t00=0x0008, t01=0x0036}
0x0cd8…0d00 Head {h00=0x0024, h01=0x0050, text=» EXPROC WUCRF CRE = CREATE FILE «, t00=0x0008, t01=0x005e}
0x0d00…0d26 Head {h00=0x0022, h01=0x0050, text=» EXPROC WUDLF CRE= DELETE FILE«, t00=0x0008, t01=0x0086}
0x0d26…0d50 Head {h00=0x0026, h01=0x0050, text=» EXPROC WUCOP CRE= COPY DISK,FILE «, t00=0x0008, t01=0x00ac}
0x0d50…0d76 Head {h00=0x0022, h01=0x0050, text=» EXPROC WUEXT CRE= EXTEND FILE«, t00=0x0008, t01=0x00d6}
0x0d76…0da8 Head {h00=0x002e, h01=0x0050, text=» EXPROC WUEXT1 CRE= EXTEND FILE,APPL.ROUT «, t00=0x0008, t01=0x00fc}
0x0da8…0dda Head {h00=0x002e, h01=0x0050, text=» EXPROC WUEXT2 CRE= EXTEND FILE,APPL.ROUT «, t00=0x0008, t01=0x012e}
0x0dda…0e00 Head {h00=0x0022, h01=0x0050, text=» EXPROC WUPRF CRE= PRINT FILE «, t00=0x0008, t01=0x0160}
0x0e00…0e2e Head {h00=0x002a, h01=0x0050, text=» EXPROC WUCVN CRE= CHANGE VOLUME NAME «, t00=0x0008, t01=0x0186}
0x0e2e…0e54 Head {h00=0x0022, h01=0x0050, text=» EXPROC WUPRV CRE= PRINT VTOC «, t00=0x0009, t01=0x0024}
0x0e54…0e6a Head {h00=0x0012, h01=0x0050, text=» EXPROC DECLRA«, t00=0x0009, t01=0x004a}
0x0e6a…0e7e Head {h00=0x0010, h01=0x0050, text=» EXPROC DERR«, t00=0x0009, t01=0x0060}
0x0e7e…0e92 Head {h00=0x0010, h01=0x0050, text=» EXT CHANFC «, t00=0x0009, t01=0x0074}
0x0e92…0ea6 Head {h00=0x0010, h01=0x0050, text=» EXT GETVOL «, t00=0x0009, t01=0x0088}
0x0ea6…0ed0 Head {h00=0x0026, h01=0x0050, text=» EXT GETIND GET IX & DIM OF ARRAY «, t00=0x0009, t01=0x009c}
0x0ed0…0ee2 Head {h00=0x000e, h01=0x0050, text=» EXT RCGET«, t00=0x0009, t01=0x00c6}
0x0ee2…0ef4 Head {h00=0x000e, h01=0x0050, text=» EXT OPENF«, t00=0x0009, t01=0x00d8}
0x0ef4…0f08 Head {h00=0x0010, h01=0x0050, text=» EXT CLOSEF «, t00=0x0009, t01=0x00ea}
0x0f08…0f2e Head {h00=0x0022, h01=0x0050, text=» EXT CHVOL CHANGE VOLUME-NAME «, t00=0x0009, t01=0x00fe}
0x0f2e…0f5a Head {h00=0x0028, h01=0x0050, text=» EXT GETCW GET CONTROL WORD 1 OF ECB«, t00=0x0009, t01=0x0124}
0x0f5a…0f86 Head {h00=0x0028, h01=0x0050, text=» EXT WXMUL ---ASSRUT:MULTIPLICATION «, t00=0x0009, t01=0x0150}
0x0f86…0fac Head {h00=0x0022, h01=0x0050, text=» EXT WXDIV ---ASSRUT:DIVISION «, t00=0x0009, t01=0x017c}
0x0fac…0fb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0012}
0x0fb6…0fbe Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x001c}
0x0fbe…0fda Head {h00=0x0018, h01=0x0050, text=»ENT EQU X'80' ENTER «, t00=0x000a, t01=0x0024}
0x0fda…0ff6 Head {h00=0x0018, h01=0x0050, text=»RET EQU X'99' RETURN«, t00=0x000a, t01=0x0040}
0x0ff6…1000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005c}
0x1000…101c Head {h00=0x0018, h01=0x0050, text=»KTABEN KTAB ENT,RET «, t00=0x000a, t01=0x0066}
0x101c…1034 Head {h00=0x0014, h01=0x0050, text=»TSTAT EQU X'07' «, t00=0x000a, t01=0x0082}
0x1034…104c Head {h00=0x0014, h01=0x0050, text=»ATTACH EQU X'0E'«, t00=0x000a, t01=0x009a}
0x104c…1064 Head {h00=0x0014, h01=0x0050, text=»DETACH EQU X'0F'«, t00=0x000a, t01=0x00b2}
0x1064…106c Head {h00=0x0004, h01=0x0050, t00=0x000a, t01=0x00ca}
0x106c…10b4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000a, t01=0x00d2}
0x10b4…10fc Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000a, t01=0x011a}
0x10fc…1144 Head {h00=0x0044, h01=0x0050, text=»* ORDER CODES *«, t00=0x000a, t01=0x0162}
0x1144…118c Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000b, t01=0x001a}
0x118c…11d4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000b, t01=0x0062}
0x11d4…11dc Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x00aa}
0x11dc…11fc Head {h00=0x001c, h01=0x0050, text=»BRD EQU X'81' BASIC READ«, t00=0x000b, t01=0x00b2}
0x11fc…1226 Head {h00=0x0026, h01=0x0050, text=»TRP EQU X'A7' TRANSFORM PARAMETER «, t00=0x000b, t01=0x00d2}
0x1226…124c Head {h00=0x0022, h01=0x0050, text=»GSS EQU X'AC' GET SCREEN SIZE «, t00=0x000b, t01=0x00fc}
0x124c…1274 Head {h00=0x0024, h01=0x0050, text=»CED EQU X'B7' CHANGE ECHO DEVICE«, t00=0x000b, t01=0x0122}
0x1274…129a Head {h00=0x0022, h01=0x0050, text=»TIMOUT EQU X'0B' SET TIME-OUT «, t00=0x000b, t01=0x014a}
0x129a…12a2 Head {h00=0x0004, h01=0x0050, t00=0x000b, t01=0x0170}
0x12a2…12ea Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000b, t01=0x0178}
0x12ea…1332 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000c, t01=0x0030}
0x1332…137a Head {h00=0x0044, h01=0x0050, text=»* START & STOP BLOCKING *«, t00=0x000c, t01=0x0078}
0x137a…13c2 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000c, t01=0x00c0}
0x13c2…140a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000c, t01=0x0108}
0x140a…1412 Head {h00=0x0004, h01=0x0050, t00=0x000c, t01=0x0150}
0x1412…142c Head {h00=0x0016, h01=0x0050, text=»STOPBLK EQU X'BE' «, t00=0x000c, t01=0x0158}
0x142c…1446 Head {h00=0x0016, h01=0x0050, text=»STARTBLK EQU X'BD'«, t00=0x000c, t01=0x0172}
0x1446…1454 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x018c}
0x1454…1466 Head {h00=0x000e, h01=0x0050, text=»WUUTI PROC«, t00=0x000d, t01=0x000a}
0x1466…14ae Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000d, t01=0x001c}
0x14ae…14f6 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000d, t01=0x0064}
0x14f6…153e Head {h00=0x0044, h01=0x0050, text=»* GET NUMBER OF POOL UNITS *«, t00=0x000d, t01=0x00ac}
0x153e…1586 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000d, t01=0x00f4}
0x1586…15ce Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000d, t01=0x013c}
0x15ce…15d6 Head {h00=0x0004, h01=0x0050, t00=0x000d, t01=0x0184}
0x15d6…1612 Head {h00=0x0038, h01=0x0050, text=» CALL GETIND,BPOOL(W1),BIN1,BIN2 BIN2 := NO OF ELEM.«, t00=0x000d, t01=0x018c}
0x1612…1648 Head {h00=0x0032, h01=0x0050, text=» MOVE NOOFPO,BIN2 MOVE TO BCD (USED IN WUCOP) «, t00=0x000e, t01=0x0038}
0x1648…1650 Head {h00=0x0004, h01=0x0050, t00=0x000e, t01=0x006e}
0x1650…165e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0076}
0x165e…16a6 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000e, t01=0x0084}
0x16a6…16ee Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000e, t01=0x00cc}
0x16ee…1736 Head {h00=0x0044, h01=0x0050, text=»* GET SCREEN TYPE *«, t00=0x000e, t01=0x0114}
0x1736…177e Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000e, t01=0x015c}
0x177e…17c6 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000f, t01=0x0014}
0x17c6…17ce Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x005c}
0x17ce…17dc Head {h00=0x000a, h01=0x0050, text=»STA000«, t00=0x000f, t01=0x0064}
0x17dc…1800 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN1,W0 WORKITEM := 0 «, t00=0x000f, t01=0x0072}
0x1800…182a Head {h00=0x0026, h01=0x0050, text=» MOVE BIN2,W80 BUFFER LENGTH := 80«, t00=0x000f, t01=0x0096}
0x182a…1854 Head {h00=0x0026, h01=0x0050, text=» BASIC READ OF THE SCREEN SIZE: «, t00=0x000f, t01=0x00c0}
0x1854…187e Head {h00=0x0026, h01=0x0050, text=» DSC DEDSSCRN,BRD,BIN1,STATSH,BIN2«, t00=0x000f, t01=0x00ea}
0x187e…18a4 Head {h00=0x0022, h01=0x0050, text=» BOK STA025 OK => VD82 IS USED«, t00=0x000f, t01=0x0114}
0x18a4…18ac Head {h00=0x0004, h01=0x0050, t00=0x000f, t01=0x013a}
0x18ac…18f4 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x000f, t01=0x0142}
0x18f4…193c Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x000f, t01=0x018a}
0x193c…1984 Head {h00=0x0044, h01=0x0050, text=»* VD46 IS USED *«, t00=0x0010, t01=0x0042}
0x1984…19cc Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0010, t01=0x008a}
0x19cc…1a14 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0010, t01=0x00d2}
0x1a14…1a42 Head {h00=0x002a, h01=0x0050, text=» MOVE SCRNFC,=X'50' SET FILE CODE VD46«, t00=0x0010, t01=0x011a}
0x1a42…1a80 Head {h00=0x003a, h01=0x0050, text=» CALL CHANFC,DEDSSCRN,SCRNFC CHANGE FILE CODE TO VD46 «, t00=0x0010, t01=0x0148}
0x1a80…1ac2 Head {h00=0x003e, h01=0x0050, text=» CALL CHANFC,DEDSSYSL,SCRNFC CHANGE FILE CODE SYSTEM LINE «, t00=0x0010, t01=0x0186}
0x1ac2…1af8 Head {h00=0x0032, h01=0x0050, text=» MOVE SYSLFC,SCRNFC SET SYSTEM LINE FILE CODE «, t00=0x0011, t01=0x0038}
0x1af8…1b0a Head {h00=0x000e, h01=0x0050, text=» B STA030 «, t00=0x0011, t01=0x006e}
0x1b0a…1b18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0080}
0x1b18…1b20 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x008e}
0x1b20…1b68 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0011, t01=0x0096}
0x1b68…1bb0 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0011, t01=0x00de}
0x1bb0…1bf8 Head {h00=0x0044, h01=0x0050, text=»* VD82 IS USED *«, t00=0x0011, t01=0x0126}
0x1bf8…1c40 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0011, t01=0x016e}
0x1c40…1c88 Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0012, t01=0x0026}
0x1c88…1c90 Head {h00=0x0004, h01=0x0050, t00=0x0012, t01=0x006e}
0x1c90…1c9e Head {h00=0x000a, h01=0x0050, text=»STA025«, t00=0x0012, t01=0x0076}
0x1c9e…1cd0 Head {h00=0x002e, h01=0x0050, text=» SET VD82 INDICATE VD82 BY SETTING BOOLEAN«, t00=0x0012, t01=0x0084}
0x1cd0…1cde Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00b6}
0x1cde…1cec Head {h00=0x000a, h01=0x0050, text=»STA030«, t00=0x0012, t01=0x00c4}
0x1cec…1d16 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0012, t01=0x00d2}
0x1d16…1d40 Head {h00=0x0026, h01=0x0050, text=»* TRY INTERTASK COMMUNICATION * «, t00=0x0012, t01=0x00fc}
0x1d40…1d6a Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0012, t01=0x0126}
0x1d6a…1d94 Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,=X'FFFF' TIME OUT VALUE«, t00=0x0012, t01=0x0150}
0x1d94…1dc0 Head {h00=0x0028, h01=0x0050, text=» DSC1 ITCIN,TIMOUT,BIN1 IN DATA SET «, t00=0x0012, t01=0x017a}
0x1dc0…1dee Head {h00=0x002a, h01=0x0050, text=» DSC1 ITCOUT,TIMOUT,BIN1 OUT DATA SET «, t00=0x0013, t01=0x0016}
0x1dee…1dfc Head {h00=0x000a, h01=0x0050, text=»STA037«, t00=0x0013, t01=0x0044}
0x1dfc…1e12 Head {h00=0x0012, h01=0x0050, text=» CLEAR ICEXIT «, t00=0x0013, t01=0x0052}
0x1e12…1e3e Head {h00=0x0028, h01=0x0050, text=» MOVE ICLEN,W21 ITC REQUESTED LENGTH«, t00=0x0013, t01=0x0068}
0x1e3e…1e7c Head {h00=0x003a, h01=0x0050, text=» RECEIVE ITCIN,ICPOOL,ICLEN UNADDR READ FROM ANY TASK «, t00=0x0013, t01=0x0094}
0x1e7c…1eb0 Head {h00=0x0030, h01=0x0050, text=» BNOK STA040 NO ONE CALLING (DOESN'T EXIST) «, t00=0x0013, t01=0x00d2}
0x1eb0…1edc Head {h00=0x0028, h01=0x0050, text=» SET IC INDICATE THAT ITC IS RUNNING«, t00=0x0013, t01=0x0106}
0x1edc…1f1c Head {h00=0x003c, h01=0x0050, text=» CALL GETCW,ITCIN,ICTASK FETCH TASK-ID (STORED IN ITCIN)«, t00=0x0013, t01=0x0132}
0x1f1c…1f2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0172}
0x1f2a…1f54 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0013, t01=0x0180}
0x1f54…1f7e Head {h00=0x0026, h01=0x0050, text=»* SET UP FOR VD82 SCREEN * «, t00=0x0014, t01=0x001a}
0x1f7e…1fa8 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0014, t01=0x0044}
0x1fa8…1fb0 Head {h00=0x0004, h01=0x0050, t00=0x0014, t01=0x006e}
0x1fb0…1fbe Head {h00=0x000a, h01=0x0050, text=»STA040«, t00=0x0014, t01=0x0076}
0x1fbe…1fe8 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0014, t01=0x0084}
0x1fe8…2012 Head {h00=0x0026, h01=0x0050, text=»* GET LENGTH OF PHYSICAL SCREEN * «, t00=0x0014, t01=0x00ae}
0x2012…203c Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0014, t01=0x00d8}
0x203c…2062 Head {h00=0x0022, h01=0x0050, text=» CALL GETIND,PHYSCR,BIN2,BIN1 «, t00=0x0014, t01=0x0102}
0x2062…207e Head {h00=0x0018, h01=0x0050, text=» MOVE BIN1,=X'0C81' «, t00=0x0014, t01=0x0128}
0x207e…20a8 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0014, t01=0x0144}
0x20a8…20d2 Head {h00=0x0026, h01=0x0050, text=»* DEFINE PHYSICAL SCREEN SIZE * «, t00=0x0014, t01=0x016e}
0x20d2…20fc Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0015, t01=0x0008}
0x20fc…2126 Head {h00=0x0026, h01=0x0050, text=» DSC DEDSSYSL,TRP,BIN1,PHYSCR,BIN2«, t00=0x0015, t01=0x0032}
0x2126…2150 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0015, t01=0x005c}
0x2150…217a Head {h00=0x0026, h01=0x0050, text=»* CHANGE ECHO DEVICE * «, t00=0x0015, t01=0x0086}
0x217a…21a4 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0015, t01=0x00b0}
0x21a4…21c4 Head {h00=0x001c, h01=0x0050, text=» DSC DEDSDYKB,CED,SCRNFC«, t00=0x0015, t01=0x00da}
0x21c4…21d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x00fa}
0x21d2…221a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0015, t01=0x0108}
0x221a…2262 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0015, t01=0x0150}
0x2262…22aa Head {h00=0x0044, h01=0x0050, text=»* ATTACH INIT. MENU, GET OPTION, ACTIVATE CORRECT SUBROUTINE *«, t00=0x0016, t01=0x0008}
0x22aa…22f2 Head {h00=0x0044, h01=0x0050, text=»* *«, t00=0x0016, t01=0x0050}
0x22f2…233a Head {h00=0x0044, h01=0x0050, text=»****************************************************************«, t00=0x0016, t01=0x0098}
0x233a…2348 Head {h00=0x000a, h01=0x0050, text=»STA050«, t00=0x0016, t01=0x00e0}
0x2348…236e Head {h00=0x0022, h01=0x0050, text=» PERF STABLK ***START BLOCKING«, t00=0x0016, t01=0x00ee}
0x236e…239c Head {h00=0x002a, h01=0x0050, text=» MOVE BIN1,=X'0081' BACKGROUND = WHITE«, t00=0x0016, t01=0x0114}
0x239c…23d8 Head {h00=0x0038, h01=0x0050, text=» DSC DEDSSCRN,TRP,BIN1 SET SCREEN BACKGROUND = WHITE«, t00=0x0016, t01=0x0142}
0x23d8…23ee Head {h00=0x0012, h01=0x0050, text=» ATTFMT FPROG «, t00=0x0016, t01=0x017e}
0x23ee…2404 (23, 0, 400) Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0017, t01=0x0004}
0x2404…2412 Head {h00=0x000a, h01=0x0050, text=»STA100«, t00=0x0017, t01=0x001a}
0x2412…2426 Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0017, t01=0x0028}
0x2426…2434 Head {h00=0x000a, h01=0x0050, text=»STA150«, t00=0x0017, t01=0x003c}
0x2434…245c Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,STA100,ESCAPE,STA200«, t00=0x0017, t01=0x004a}
0x245c…247a Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0017, t01=0x0072}
0x247a…248c Head {h00=0x000e, h01=0x0050, text=» B STA150 «, t00=0x0017, t01=0x0090}
0x248c…249a Head {h00=0x000a, h01=0x0050, text=»STA200«, t00=0x0017, t01=0x00a2}
0x249a…24b6 Head {h00=0x0018, h01=0x0050, text=» MOVE VOLNAM,=X'00' «, t00=0x0017, t01=0x00b0}
0x24b6…24d2 Head {h00=0x0018, h01=0x0050, text=» MOVE COPNAM,=X'17' «, t00=0x0017, t01=0x00cc}
0x24d2…24ee Head {h00=0x0018, h01=0x0050, text=» MOVE PBLOCK,=X'20' «, t00=0x0017, t01=0x00e8}
0x24ee…2508 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,SCRNFC «, t00=0x0017, t01=0x0104}
0x2508…253c Head {h00=0x0030, h01=0x0050, text=» XCOPY PBLOCK,W5,W1,BIN1,W1 FC2:PRINT-DEVICE«, t00=0x0017, t01=0x011e}
0x253c…2554 Head {h00=0x0014, h01=0x0050, text=» MOVE BIN1,PRNUM«, t00=0x0017, t01=0x0152}
0x2554…2584 Head {h00=0x002c, h01=0x0050, text=» PERFI BIN1,WUCRV,WUCRF,WUDLF,WUCOP, C «, t00=0x0017, t01=0x016a}
0x2584…25a6 Head {h00=0x001e, h01=0x0050, text=» WUEXT,WUPRF,WUCVN,WUPRV «, t00=0x0018, t01=0x000a}
0x25a6…25b8 Head {h00=0x000e, h01=0x0050, text=» B STA050 «, t00=0x0018, t01=0x002c}
0x25b8…25c6 Head {h00=0x000a, h01=0x0050, text=»ESCAPE«, t00=0x0018, t01=0x003e}
0x25c6…25f6 Head {h00=0x002c, h01=0x0050, text=» TBF IC,STA050 ITC DOESN'T EXIST => END «, t00=0x0018, t01=0x004c}
0x25f6…2630 Head {h00=0x0036, h01=0x0050, text=» SEND .ADDR,ITCOUT,ICPOOL,ICLEN,ICTASK SEND ANSWER«, t00=0x0018, t01=0x007c}
0x2630…2642 Head {h00=0x000e, h01=0x0050, text=» B STA037 «, t00=0x0018, t01=0x00b6}
0x2642…264a Head {h00=0x0004, h01=0x0050, t00=0x0018, t01=0x00c8}
0x264a…2656 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0018, t01=0x00d0}
0x2656…2664 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0018, t01=0x00dc}
0x2664…2672 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00ea}
0x2672…2694 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0018, t01=0x00f8}
0x2694…26b6 Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0018, t01=0x011a}
0x26b6…26d8 Head {h00=0x001e, h01=0x0050, text=»* CHANGE VOLUME NAME * «, t00=0x0018, t01=0x013c}
0x26d8…26fa Head {h00=0x001e, h01=0x0050, text=»* VOLYM = VOLUME NAME * «, t00=0x0018, t01=0x015e}
0x26fa…271c Head {h00=0x001e, h01=0x0050, text=»* CODE = FILE CODE * «, t00=0x0018, t01=0x0180}
0x271c…273e Head {h00=0x001e, h01=0x0050, text=»* * «, t00=0x0019, t01=0x0012}
0x273e…2760 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0019, t01=0x0034}
0x2760…276a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0056}
0x276a…2788 Head {h00=0x001a, h01=0x0050, text=»CHVNAM PROC VOLYM,CODE«, t00=0x0019, t01=0x0060}
0x2788…279c Head {h00=0x0010, h01=0x0050, text=» PSTRG VOLYM«, t00=0x0019, t01=0x007e}
0x279c…27ae Head {h00=0x000e, h01=0x0050, text=» PBIN CODE«, t00=0x0019, t01=0x0092}
0x27ae…27cc Head {h00=0x001a, h01=0x0050, text=» CALL CHANFC,DISK,CODE«, t00=0x0019, t01=0x00a4}
0x27cc…27f6 Head {h00=0x0026, h01=0x0050, text=» CALL CHVOL,DISK,SYSBUF,VOLYM,BIN1«, t00=0x0019, t01=0x00c2}
0x27f6…280a Head {h00=0x0010, h01=0x0050, text=» BOK CHVRET «, t00=0x0019, t01=0x00ec}
0x280a…2824 Head {h00=0x0016, h01=0x0050, text=» MOVE RETCOD,BIN1 «, t00=0x0019, t01=0x0100}
0x2824…282c Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x011a}
0x282c…283a Head {h00=0x000a, h01=0x0050, text=»CHVRET«, t00=0x0019, t01=0x0122}
0x283a…2846 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0019, t01=0x0130}
0x2846…2854 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0019, t01=0x013c}
0x2854…2862 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x014a}
0x2862…286a Head {h00=0x0004, h01=0x0050, t00=0x0019, t01=0x0158}
0x286a…28a2 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0019, t01=0x0160}
0x28a2…28da Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x001a, t01=0x0008}
0x28da…2912 Head {h00=0x0034, h01=0x0050, text=»* USER FRIENDLINESS ERROR MESSAGE ROUTINE * «, t00=0x001a, t01=0x0040}
0x2912…294a Head {h00=0x0034, h01=0x0050, text=»* TO BE USED AFTER POOL- & FILE-HANDLER CALLS * «, t00=0x001a, t01=0x0078}
0x294a…2982 Head {h00=0x0034, h01=0x0050, text=»* (INTRODUCED 83-06-22) * «, t00=0x001a, t01=0x00b0}
0x2982…29ba Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x001a, t01=0x00e8}
0x29ba…29f2 Head {h00=0x0034, h01=0x0050, text=»* INPUT: CONDITION > 0 = POOL ERROR * «, t00=0x001a, t01=0x0120}
0x29f2…2a2a Head {h00=0x0034, h01=0x0050, text=»* < 0 = DISK ERROR * «, t00=0x001a, t01=0x0158}
0x2a2a…2a62 Head {h00=0x0034, h01=0x0050, text=»* RETCOD = ECB RETURN CODE ("BITS") * «, t00=0x001a, t01=0x0190}
0x2a62…2a9a Head {h00=0x0034, h01=0x0050, text=»* DESTR: BIN13 * «, t00=0x001b, t01=0x0038}
0x2a9a…2ad2 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x001b, t01=0x0070}
0x2ad2…2b0a Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x001b, t01=0x00a8}
0x2b0a…2b12 Head {h00=0x0004, h01=0x0050, t00=0x001b, t01=0x00e0}
0x2b12…2b24 Head {h00=0x000e, h01=0x0050, text=»UFERR PROC«, t00=0x001b, t01=0x00e8}
0x2b24…2b42 Head {h00=0x001a, h01=0x0050, text=» BN UFER10 DISK ERRORS«, t00=0x001b, t01=0x00fa}
0x2b42…2b60 Head {h00=0x001a, h01=0x0050, text=» BP UFER50 POOL ERRORS«, t00=0x001b, t01=0x0118}
0x2b60…2b94 Head {h00=0x0030, h01=0x0050, text=» MOVE BIN13,W3 RETCOD = ZERO => "I/O-ERROR" «, t00=0x001b, t01=0x0136}
0x2b94…2ba6 Head {h00=0x000e, h01=0x0050, text=» B UFER90 «, t00=0x001b, t01=0x016a}
0x2ba6…2bc2 Head {h00=0x0018, h01=0x0050, text=»UFER10 DISK ERRORS«, t00=0x001b, t01=0x017c}
0x2bc2…2bf0 Head {h00=0x002a, h01=0x0050, text=» CBE RETCOD,W1,UFER25 ECB-RC = "0001" «, t00=0x001c, t01=0x0008}
0x2bf0…2c14 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN13,W19 "DISK ERROR"«, t00=0x001c, t01=0x0036}
0x2c14…2c26 Head {h00=0x000e, h01=0x0050, text=» B UFER90 «, t00=0x001c, t01=0x005a}
0x2c26…2c34 Head {h00=0x000a, h01=0x0050, text=»UFER25«, t00=0x001c, t01=0x006c}
0x2c34…2c60 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN13,W18 "DISK NOT OPERABLE" «, t00=0x001c, t01=0x007a}
0x2c60…2c72 Head {h00=0x000e, h01=0x0050, text=» B UFER90 «, t00=0x001c, t01=0x00a6}
0x2c72…2c8e Head {h00=0x0018, h01=0x0050, text=»UFER50 POOL ERRORS«, t00=0x001c, t01=0x00b8}
0x2c8e…2cbc Head {h00=0x002a, h01=0x0050, text=» CBE RETCOD,W1,UFER75 ECB-RC = "0001" «, t00=0x001c, t01=0x00d4}
0x2cbc…2cea Head {h00=0x002a, h01=0x0050, text=» MOVE BIN13,W64 CHECK IF FILE OVERFLOW«, t00=0x001c, t01=0x0102}
0x2cea…2d1c Head {h00=0x002e, h01=0x0050, text=» ADD BIN13,W64 BIN6 := 128 = ECB-RC "0080"«, t00=0x001c, t01=0x0130}
0x2d1c…2d54 Head {h00=0x0034, h01=0x0050, text=» CBNE RETCOD,BIN13,UFER60 NO, NOT FILE OVERFLOW!«, t00=0x001c, t01=0x0162}
0x2d54…2d80 Head {h00=0x0028, h01=0x0050, text=» MOVE BIN13,W10 "DISK/FILE OVERFLOW"«, t00=0x001d, t01=0x000a}
0x2d80…2d92 Head {h00=0x000e, h01=0x0050, text=» B UFER90 «, t00=0x001d, t01=0x0036}
0x2d92…2da0 Head {h00=0x000a, h01=0x0050, text=»UFER60«, t00=0x001d, t01=0x0048}
0x2da0…2dc4 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN13,W20 "POOL ERROR"«, t00=0x001d, t01=0x0056}
0x2dc4…2dd6 Head {h00=0x000e, h01=0x0050, text=» B UFER90 «, t00=0x001d, t01=0x007a}
0x2dd6…2de4 Head {h00=0x000a, h01=0x0050, text=»UFER75«, t00=0x001d, t01=0x008c}
0x2de4…2e08 Head {h00=0x0020, h01=0x0050, text=» MOVE BIN13,W21 "NOT FOUND" «, t00=0x001d, t01=0x009a}
0x2e08…2e16 Head {h00=0x000a, h01=0x0050, text=»UFER90«, t00=0x001d, t01=0x00be}
0x2e16…2e30 Head {h00=0x0016, h01=0x0050, text=» MOVE STR6A,HEX00 «, t00=0x001d, t01=0x00cc}
0x2e30…2e6c Head {h00=0x0038, h01=0x0050, text=» CALL RCGET,RETCOD,STR6A CONVERT RETCOD TO A STRING «, t00=0x001d, t01=0x00e6}
0x2e6c…2e86 Head {h00=0x0016, h01=0x0050, text=» PERF DSKERR,BIN13«, t00=0x001d, t01=0x0122}
0x2e86…2e92 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001d, t01=0x013c}
0x2e92…2ea0 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001d, t01=0x0148}
0x2ea0…2eae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001d, t01=0x0156}
0x2eae…2ed2 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001d, t01=0x0164}
0x2ed2…2ef6 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x001d, t01=0x0188}
0x2ef6…2f1a Head {h00=0x0020, h01=0x0050, text=»* ERROR-MESSAGE ROUTINE * «, t00=0x001e, t01=0x001c}
0x2f1a…2f3e Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x001e, t01=0x0040}
0x2f3e…2f62 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001e, t01=0x0064}
0x2f62…2f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0088}
0x2f6c…2f80 Head {h00=0x0010, h01=0x0050, text=»DISERR PROC «, t00=0x001e, t01=0x0092}
0x2f80…2f9a Head {h00=0x0016, h01=0x0050, text=» MOVE STR6A,HEX00 «, t00=0x001e, t01=0x00a6}
0x2f9a…2fba Head {h00=0x001c, h01=0x0050, text=» CALL RCGET,RETCOD,STR6A«, t00=0x001e, t01=0x00c0}
0x2fba…2fe2 Head {h00=0x0024, h01=0x0050, text=» MOVE BIN13,W22 ASSUME I/O ERROR«, t00=0x001e, t01=0x00e0}
0x2fe2…3014 Head {h00=0x002e, h01=0x0050, text=» CBNE RETCOD,W66,DISER2 IF NO TOSS-DISK...«, t00=0x001e, t01=0x0108}
0x3014…3042 Head {h00=0x002a, h01=0x0050, text=» MOVE BIN13,W23 ...USE ERROR TEXT 23. «, t00=0x001e, t01=0x013a}
0x3042…3050 Head {h00=0x000a, h01=0x0050, text=»DISER2«, t00=0x001e, t01=0x0168}
0x3050…306a Head {h00=0x0016, h01=0x0050, text=» PERF DSKERR,BIN13«, t00=0x001e, t01=0x0176}
0x306a…3076 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001e, t01=0x0190}
0x3076…3084 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x000c}
0x3084…308c Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x001a}
0x308c…3094 Head {h00=0x0004, h01=0x0050, t00=0x001f, t01=0x0022}
0x3094…30b0 Head {h00=0x0018, h01=0x0050, text=»DSKERR PROC ERRCODE «, t00=0x001f, t01=0x002a}
0x30b0…30c6 Head {h00=0x0012, h01=0x0050, text=» PBIN ERRCODE «, t00=0x001f, t01=0x0046}
0x30c6…30e4 Head {h00=0x001a, h01=0x0050, text=» MOVE DEBINW4,ERRCODE «, t00=0x001f, t01=0x005c}
0x30e4…30fc Head {h00=0x0014, h01=0x0050, text=» DISPLAY 0,W1,W0«, t00=0x001f, t01=0x007a}
0x30fc…310e Head {h00=0x000e, h01=0x0050, text=» PERF DERR«, t00=0x001f, t01=0x0092}
0x310e…311a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x001f, t01=0x00a4}
0x311a…3128 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x001f, t01=0x00b0}
0x3128…3136 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00be}
0x3136…315a Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001f, t01=0x00cc}
0x315a…317e Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x001f, t01=0x00f0}
0x317e…31a2 Head {h00=0x0020, h01=0x0050, text=»* PRESS ENT TO CONTINUE * «, t00=0x001f, t01=0x0114}
0x31a2…31c6 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x001f, t01=0x0138}
0x31c6…31ea Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001f, t01=0x015c}
0x31ea…31f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0180}
0x31f4…3206 Head {h00=0x000e, h01=0x0050, text=»HALT PROC «, t00=0x001f, t01=0x018a}
0x3206…3212 Head {h00=0x0008, h01=0x0050, text=»H10 «, t00=0x0020, t01=0x000c}
0x3212…3230 Head {h00=0x001a, h01=0x0050, text=» ERASE 0,W1,W1 LINE 1 «, t00=0x0020, t01=0x0018}
0x3230…325a Head {h00=0x0026, h01=0x0050, text=» MOVE BIN1,=X'0101' LINE 1 / POS 1«, t00=0x0020, t01=0x0036}
0x325a…3282 Head {h00=0x0024, h01=0x0050, text=» DSC1 DEDSSCRN,6,BIN1 SET CURSOR«, t00=0x0020, t01=0x0060}
0x3282…32b8 Head {h00=0x0032, h01=0x0050, text=» EDWRT DEDSSCRN,FHALT 'PRESS ENT TO CONTINUE' «, t00=0x0020, t01=0x0088}
0x32b8…32ce Head {h00=0x0012, h01=0x0050, text=» MOVE BIN1,W1 «, t00=0x0020, t01=0x00be}
0x32ce…3300 Head {h00=0x002e, h01=0x0050, text=» NKI .NE,DEDSDYKB,DEINPUT,KTABEN,BIN1,BIN2«, t00=0x0020, t01=0x00d4}
0x3300…3312 Head {h00=0x000e, h01=0x0050, text=» BERR H10 «, t00=0x0020, t01=0x0106}
0x3312…3336 Head {h00=0x0020, h01=0x0050, text=» CBE BIN2,W1,H99 "ENTER"... «, t00=0x0020, t01=0x0118}
0x3336…3368 Head {h00=0x002e, h01=0x0050, text=» CBE BIN2,W2,H99 AND "RETURN" ARE ALLOWED.«, t00=0x0020, t01=0x013c}
0x3368…3376 Head {h00=0x000a, h01=0x0050, text=» B H10«, t00=0x0020, t01=0x016e}
0x3376…3382 Head {h00=0x0008, h01=0x0050, text=»H99 «, t00=0x0020, t01=0x017c}
0x3382…338e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0020, t01=0x0188}
0x338e…339c (33, 0, 400) Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0021, t01=0x0004}
0x339c…33aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x0012}
0x33aa…33ce Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0021, t01=0x0020}
0x33ce…33f2 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0021, t01=0x0044}
0x33f2…3416 Head {h00=0x0020, h01=0x0050, text=»* DISPLAY WAIT-TEXT * «, t00=0x0021, t01=0x0068}
0x3416…343a Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0021, t01=0x008c}
0x343a…345e Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0021, t01=0x00b0}
0x345e…3468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d4}
0x3468…347a Head {h00=0x000e, h01=0x0050, text=»CONT PROC «, t00=0x0021, t01=0x00de}
0x347a…34ac Head {h00=0x002e, h01=0x0050, text=»CONT10 MOVE BIN1,=X'0101' LINE 1, COLUMN 1«, t00=0x0021, t01=0x00f0}
0x34ac…34e2 Head {h00=0x0032, h01=0x0050, text=» DSC1 DEDSSCRN,6,BIN1 SET CURSOR ON FIRST LINE«, t00=0x0021, t01=0x0122}
0x34e2…3512 Head {h00=0x002c, h01=0x0050, text=» EDWRT DEDSSCRN,FCONT DISPLAY WAIT-TEXT «, t00=0x0021, t01=0x0158}
0x3512…351e Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0021, t01=0x0188}
0x351e…352c (34, 0, 398) Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0022, t01=0x0004}
0x352c…353a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0022, t01=0x0012}
0x353a…355e Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0022, t01=0x0020}
0x355e…3582 Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0022, t01=0x0044}
0x3582…35a6 Head {h00=0x0020, h01=0x0050, text=»* APPL-ROUTINES * «, t00=0x0022, t01=0x0068}
0x35a6…35ca Head {h00=0x0020, h01=0x0050, text=»* * «, t00=0x0022, t01=0x008c}
0x35ca…35ee Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x0022, t01=0x00b0}
0x35ee…35f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d4}
0x35f8…3608 Head {h00=0x000c, h01=0x0050, text=»APP PROC«, t00=0x0022, t01=0x00de}
0x3608…3628 Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW1,W0,APP300 «, t00=0x0022, t01=0x00ee}
0x3628…3646 Head {h00=0x001a, h01=0x0050, text=» MOVE DEINPUT,:FMTITEM«, t00=0x0022, t01=0x010e}
0x3646…3654 Head {h00=0x000a, h01=0x0050, text=»APP300«, t00=0x0022, t01=0x012c}
0x3654…3676 Head {h00=0x001e, h01=0x0050, text=» IB DEBINW3, APPL-VALUE C «, t00=0x0022, t01=0x013a}
0x3676…368c Head {h00=0x0012, h01=0x0050, text=» A1,A2,A3, C«, t00=0x0022, t01=0x015c}
0x368c…36ac Head {h00=0x001c, h01=0x0050, text=» A4,A5,A6,A7,A8,A9, C «, t00=0x0022, t01=0x0172}
0x36ac…36c6 (35, 0, 400) Head {h00=0x0016, h01=0x0050, text=» A10,A11,A12, C «, t00=0x0023, t01=0x0004}
0x36c6…36e6 Head {h00=0x001c, h01=0x0050, text=» A13,A6,A15,A6,A17,A18 «, t00=0x0023, t01=0x001e}
0x36e6…3710 Head {h00=0x0026, h01=0x0050, text=» MOVE DEBINW4,W2 'UNDEFINED ERROR'«, t00=0x0023, t01=0x003e}
0x3710…3720 Head {h00=0x000c, h01=0x0050, text=» B ANOK «, t00=0x0023, t01=0x0068}
0x3720…3738 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0023, t01=0x0078}
0x3738…3750 Head {h00=0x0014, h01=0x0050, text=»* APPL-ERRORS *«, t00=0x0023, t01=0x0090}
0x3750…3768 Head {h00=0x0014, h01=0x0050, text=»****************«, t00=0x0023, t01=0x00a8}
0x3768…3772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00c0}
0x3772…377e Head {h00=0x0008, h01=0x0050, text=»A3E «, t00=0x0023, t01=0x00ca}
0x377e…37a2 Head {h00=0x0020, h01=0x0050, text=» MOVE DEBINW4,W3 'I/O-ERROR'«, t00=0x0023, t01=0x00d6}
0x37a2…37b2 Head {h00=0x000c, h01=0x0050, text=» B ANOK «, t00=0x0023, t01=0x00fa}
0x37b2…37de Head {h00=0x0028, h01=0x0050, text=»A6E MOVE DEBINW4,W6 'ILLEGAL VALUE' «, t00=0x0023, t01=0x010a}
0x37de…37ee Head {h00=0x000c, h01=0x0050, text=» B ANOK «, t00=0x0023, t01=0x0136}
0x37ee…381c Head {h00=0x002a, h01=0x0050, text=»A10E MOVE DEBINW4,W10 'DISK OVERFLOW' «, t00=0x0023, t01=0x0146}
0x381c…3828 Head {h00=0x0008, h01=0x0050, text=»ANOK«, t00=0x0023, t01=0x0174}
0x3828…3848 Head {h00=0x001c, h01=0x0050, text=» MOVE DEBINW3,W3 NOT OK «, t00=0x0023, t01=0x0180}
0x3848…3854 Head {h00=0x0008, h01=0x0050, text=»AERR«, t00=0x0024, t01=0x0010}
0x3854…3860 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x001c}
0x3860…387e Head {h00=0x001a, h01=0x0050, text=»AOK MOVE DEBINW3,W0 OK«, t00=0x0024, t01=0x0028}
0x387e…388a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0024, t01=0x0046}
0x388a…3898 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0052}
0x3898…38a2 Head {h00=0x0006, h01=0x0050, text=»A1«, t00=0x0024, t01=0x0060}
0x38a2…38be Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0024, t01=0x006a}
0x38be…38da Head {h00=0x0018, h01=0x0050, text=»* YES OR NO * «, t00=0x0024, t01=0x0086}
0x38da…38f6 Head {h00=0x0018, h01=0x0050, text=»* WITH AUTO ENTER * «, t00=0x0024, t01=0x00a2}
0x38f6…3912 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0024, t01=0x00be}
0x3912…391c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00da}
0x391c…3938 Head {h00=0x0018, h01=0x0050, text=» MOVE STR1A,DEINPUT «, t00=0x0024, t01=0x00e4}
0x3938…3956 Head {h00=0x001a, h01=0x0050, text=» CBE STR1A,=C'Y',AA11 «, t00=0x0024, t01=0x0100}
0x3956…3974 Head {h00=0x001a, h01=0x0050, text=» CBE STR1A,=C'N',AA11 «, t00=0x0024, t01=0x011e}
0x3974…3992 Head {h00=0x001a, h01=0x0050, text=» CBE STR1A,=C'S',AA11 «, t00=0x0024, t01=0x013c}
0x3992…39a0 Head {h00=0x000a, h01=0x0050, text=» B A6E«, t00=0x0024, t01=0x015a}
0x39a0…39ac Head {h00=0x0008, h01=0x0050, text=»AA11«, t00=0x0024, t01=0x0168}
0x39ac…39ce Head {h00=0x001e, h01=0x0050, text=» MOVE DEBINW2,W17 ENT-KEY «, t00=0x0024, t01=0x0174}
0x39ce…39dc Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0025, t01=0x0008}
0x39dc…39ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0016}
0x39ea…39f4 Head {h00=0x0006, h01=0x0050, text=»A2«, t00=0x0025, t01=0x0024}
0x39f4…3a26 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0025, t01=0x002e}
0x3a26…3a58 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0060}
0x3a58…3a8a Head {h00=0x002e, h01=0x0050, text=»* TEST TYPE USED IN CREATE VOLUME. * «, t00=0x0025, t01=0x0092}
0x3a8a…3abc Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0025, t01=0x00c4}
0x3abc…3aee Head {h00=0x002e, h01=0x0050, text=»* POSSIBLE VALUES IS A, I, Q. * «, t00=0x0025, t01=0x00f6}
0x3aee…3b20 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0025, t01=0x0128}
0x3b20…3b52 Head {h00=0x002e, h01=0x0050, text=»* Q IS NOT VALID WHEN DTYP IS =1 OR =2 * «, t00=0x0025, t01=0x015a}
0x3b52…3b84 Head {h00=0x002e, h01=0x0050, text=»* AND DVER IS =3. * «, t00=0x0025, t01=0x018c}
0x3b84…3bb6 Head {h00=0x002e, h01=0x0050, text=»* * «, t00=0x0026, t01=0x002e}
0x3bb6…3be8 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0026, t01=0x0060}
0x3be8…3bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0092}
0x3bf2…3c0e Head {h00=0x0018, h01=0x0050, text=» MOVE STR15A,=C'QAI'«, t00=0x0026, t01=0x009c}
0x3c0e…3c26 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x0026, t01=0x00b8}
0x3c26…3c54 Head {h00=0x002a, h01=0x0050, text=» MATCH STR15A,DEBINW4,W3,DEINPUT,W0,W1«, t00=0x0026, t01=0x00d0}
0x3c54…3c66 Head {h00=0x000e, h01=0x0050, text=» BNOK A6E «, t00=0x0026, t01=0x00fe}
0x3c66…3c92 Head {h00=0x0028, h01=0x0050, text=» IB DEBINW4,AOK,AOK JUMP IF NOT "Q" «, t00=0x0026, t01=0x0110}
0x3c92…3caa Head {h00=0x0014, h01=0x0050, text=» IB DTYP,A20,A20«, t00=0x0026, t01=0x013c}
0x3caa…3cc8 Head {h00=0x001a, h01=0x0050, text=» B AA11 SET ENTER-KEY «, t00=0x0026, t01=0x0154}
0x3cc8…3cd4 Head {h00=0x0008, h01=0x0050, text=»A20 «, t00=0x0026, t01=0x0172}
0x3cd4…3cee Head {h00=0x0016, h01=0x0050, text=» CBNE DVER,W3,AOK «, t00=0x0026, t01=0x017e}
0x3cee…3cfc Head {h00=0x000a, h01=0x0050, text=» B A6E«, t00=0x0027, t01=0x0008}
0x3cfc…3d0a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0027, t01=0x0016}
0x3d0a…3d30 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0027, t01=0x0024}
0x3d30…3d56 Head {h00=0x0022, h01=0x0050, text=»* NO. OF RECORDS - WSMFILE * «, t00=0x0027, t01=0x004a}
0x3d56…3d7c Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0027, t01=0x0070}
0x3d7c…3d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0096}
0x3d86…3d90 Head {h00=0x0006, h01=0x0050, text=»A3«, t00=0x0027, t01=0x00a0}
0x3d90…3dac Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,DEINPUT«, t00=0x0027, t01=0x00aa}
0x3dac…3dca Head {h00=0x001a, h01=0x0050, text=» CBE BCD13A,=D'00',A34«, t00=0x0027, t01=0x00c6}
0x3dca…3de6 Head {h00=0x0018, h01=0x0050, text=» CBE DEBINW3,W15,A32«, t00=0x0027, t01=0x00e4}
0x3de6…3e06 Head {h00=0x001c, h01=0x0050, text=» CBL BCD13A,=D'+027',A6E«, t00=0x0027, t01=0x0100}
0x3e06…3e14 Head {h00=0x000a, h01=0x0050, text=» B A33«, t00=0x0027, t01=0x0120}
0x3e14…3e20 Head {h00=0x0008, h01=0x0050, text=»A32 «, t00=0x0027, t01=0x012e}
0x3e20…3e3e Head {h00=0x001a, h01=0x0050, text=» CBL BCD13A,=D'+3',A6E«, t00=0x0027, t01=0x013a}
0x3e3e…3e4a Head {h00=0x0008, h01=0x0050, text=»A33 «, t00=0x0027, t01=0x0158}
0x3e4a…3e64 Head {h00=0x0016, h01=0x0050, text=» MOVE BIN1,BCD13A «, t00=0x0027, t01=0x0164}
0x3e64…3e84 Head {h00=0x001c, h01=0x0050, text=» CALL WXDIV,BIN1,W3,BIN1«, t00=0x0027, t01=0x017e}
0x3e84…3ea4 Head {h00=0x001c, h01=0x0050, text=» CALL WXMUL,BIN1,W3,BIN1«, t00=0x0028, t01=0x000e}
0x3ea4…3ebe Head {h00=0x0016, h01=0x0050, text=» MOVE BCD13A,BIN1 «, t00=0x0028, t01=0x002e}
0x3ebe…3eda Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,BCD13A«, t00=0x0028, t01=0x0048}
0x3eda…3efe Head {h00=0x0020, h01=0x0050, text=» CBG BCD13A,BCDI21(W2),A10E «, t00=0x0028, t01=0x0064}
0x3efe…3f0c Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0028, t01=0x0088}
0x3f0c…3f18 Head {h00=0x0008, h01=0x0050, text=»A34 «, t00=0x0028, t01=0x0096}
0x3f18…3f36 Head {h00=0x001a, h01=0x0050, text=» MOVE NOREC,BCDI21(W2)«, t00=0x0028, t01=0x00a2}
0x3f36…3f52 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,NOREC «, t00=0x0028, t01=0x00c0}
0x3f52…3f6e Head {h00=0x0018, h01=0x0050, text=» CBG NOREC,=D'+2',A3«, t00=0x0028, t01=0x00dc}
0x3f6e…3f7e Head {h00=0x000c, h01=0x0050, text=» B A10E «, t00=0x0028, t01=0x00f8}
0x3f7e…3f8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0108}
0x3f8c…3fac Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0028, t01=0x0116}
0x3fac…3fcc Head {h00=0x001c, h01=0x0050, text=»* NO.OF FILES IN CRV *«, t00=0x0028, t01=0x0136}
0x3fcc…3fec Head {h00=0x001c, h01=0x0050, text=»* REC.NO IN PRINT FILE *«, t00=0x0028, t01=0x0156}
0x3fec…400c Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0028, t01=0x0176}
0x400c…4016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0008}
0x4016…4020 Head {h00=0x0006, h01=0x0050, text=»A4«, t00=0x0029, t01=0x0012}
0x4020…403c Head {h00=0x0018, h01=0x0050, text=» MOVE BCD13A,DEINPUT«, t00=0x0029, t01=0x001c}
0x403c…405a Head {h00=0x001a, h01=0x0050, text=» CBE BCD13A,=D'00',A44«, t00=0x0029, t01=0x0038}
0x405a…4068 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0029, t01=0x0056}
0x4068…4074 Head {h00=0x0008, h01=0x0050, text=»A44 «, t00=0x0029, t01=0x0064}
0x4074…408a Head {h00=0x0012, h01=0x0050, text=» MOVE NOREC,W1«, t00=0x0029, t01=0x0070}
0x408a…40a6 Head {h00=0x0018, h01=0x0050, text=» MOVE DEINPUT,NOREC «, t00=0x0029, t01=0x0086}
0x40a6…40b4 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0029, t01=0x00a2}
0x40b4…40c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00b0}
0x40c2…40dc Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0029, t01=0x00be}
0x40dc…40f6 Head {h00=0x0016, h01=0x0050, text=»* CREATE VOLUME *«, t00=0x0029, t01=0x00d8}
0x40f6…4110 Head {h00=0x0016, h01=0x0050, text=»* CREATE FILE *«, t00=0x0029, t01=0x00f2}
0x4110…412a Head {h00=0x0016, h01=0x0050, text=»* UNIT DU1-DU4 *«, t00=0x0029, t01=0x010c}
0x412a…4144 Head {h00=0x0016, h01=0x0050, text=»* UNIT FD1-FD4 *«, t00=0x0029, t01=0x0126}
0x4144…415e Head {h00=0x0016, h01=0x0050, text=»******************«, t00=0x0029, t01=0x0140}
0x415e…4168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x015a}
0x4168…4172 Head {h00=0x0006, h01=0x0050, text=»A5«, t00=0x0029, t01=0x0164}
0x4172…418c Head {h00=0x0016, h01=0x0050, text=» PERF AUNIT,VOLNAM«, t00=0x0029, t01=0x016e}
0x418c…4198 Head {h00=0x0008, h01=0x0050, text=»A55 «, t00=0x0029, t01=0x0188}
0x4198…41b0 (42, 0, 400) Head {h00=0x0014, h01=0x0050, text=» CBE FCOD,W0,A6E«, t00=0x002a, t01=0x0004}
0x41b0…41cc Head {h00=0x0018, h01=0x0050, text=» CBNE RETCOD,W0,A56 «, t00=0x002a, t01=0x001c}
0x41cc…41da Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x002a, t01=0x0038}
0x41da…41e6 Head {h00=0x0008, h01=0x0050, text=»A56 «, t00=0x002a, t01=0x0046}
0x41e6…4202 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBINW4,RETCOD«, t00=0x002a, t01=0x0052}
0x4202…4212 Head {h00=0x000c, h01=0x0050, text=» B ANOK «, t00=0x002a, t01=0x006e}
0x4212…4220 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x007e}
0x4220…424c Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x002a, t01=0x008c}
0x424c…4278 Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x002a, t01=0x00b8}
0x4278…42a4 Head {h00=0x0028, h01=0x0050, text=»* FILE NAME MAX 8 CHAR. * «, t00=0x002a, t01=0x00e4}
0x42a4…42d0 Head {h00=0x0028, h01=0x0050, text=»* LEADING SPACES ARE IGNORED * «, t00=0x002a, t01=0x0110}
0x42d0…42fc Head {h00=0x0028, h01=0x0050, text=»* * «, t00=0x002a, t01=0x013c}
0x42fc…4328 Head {h00=0x0028, h01=0x0050, text=»*********************************** «, t00=0x002a, t01=0x0168}
0x4328…4332 (43, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0004}
0x4332…433c Head {h00=0x0006, h01=0x0050, text=»A6«, t00=0x002b, t01=0x000e}
0x433c…435e Head {h00=0x001e, h01=0x0050, text=» MOVE STR15A,=X'20' SPACE «, t00=0x002b, t01=0x0018}
0x435e…438a Head {h00=0x0028, h01=0x0050, text=» INSRT DEINPUT,DEBINW1,W8,STR15A,W0 «, t00=0x002b, t01=0x003a}
0x438a…4396 Head {h00=0x0008, h01=0x0050, text=»A64 «, t00=0x002b, t01=0x0066}
0x4396…43ae Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN4,W0 «, t00=0x002b, t01=0x0072}
0x43ae…43dc Head {h00=0x002a, h01=0x0050, text=» MATCH DEINPUT,DEBIN4,W1,STR15A,W0,W1 «, t00=0x002b, t01=0x008a}
0x43dc…43ee Head {h00=0x000e, h01=0x0050, text=» BNOK A66 «, t00=0x002b, t01=0x00b8}
0x43ee…4422 Head {h00=0x0030, h01=0x0050, text=» DLETE DEINPUT,W0,W1 DELEATE LEADING SPACES «, t00=0x002b, t01=0x00ca}
0x4422…4430 Head {h00=0x000a, h01=0x0050, text=» B A64«, t00=0x002b, t01=0x00fe}
0x4430…443c Head {h00=0x0008, h01=0x0050, text=»A66 «, t00=0x002b, t01=0x010c}
0x443c…4458 Head {h00=0x0018, h01=0x0050, text=» CBE DEBINW3,W14,A14«, t00=0x002b, t01=0x0118}
0x4458…4474 Head {h00=0x0018, h01=0x0050, text=» CBE DEBINW3,W16,A16«, t00=0x002b, t01=0x0134}
0x4474…4482 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x002b, t01=0x0150}
0x4482…4490 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x015e}
0x4490…44aa Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002b, t01=0x016c}
0x44aa…44c4 Head {h00=0x0016, h01=0x0050, text=»* PROGRAM NO. * «, t00=0x002b, t01=0x0186}
0x44c4…44de Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x002c, t01=0x0010}
0x44de…44e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x002a}
0x44e8…44f2 Head {h00=0x0006, h01=0x0050, text=»A7«, t00=0x002c, t01=0x0034}
0x44f2…452e Head {h00=0x0038, h01=0x0050, text=» CLEAR BOOL1 SETOFF THE PRINT-FILE OPTION INDICATOR «, t00=0x002c, t01=0x003e}
0x452e…4556 Head {h00=0x0024, h01=0x0050, text=» OPTION=ON => SECTOR PRINTOUT«, t00=0x002c, t01=0x007a}
0x4556…4582 Head {h00=0x0028, h01=0x0050, text=» OPTION=OFF => "ORDINARY" PRINTOUT«, t00=0x002c, t01=0x00a2}
0x4582…45aa Head {h00=0x0024, h01=0x0050, text=» MOVE DEBINW2,W17 IND. ENTER-KEY«, t00=0x002c, t01=0x00ce}
0x45aa…45d2 Head {h00=0x0024, h01=0x0050, text=» MOVE BCD2A,DEINPUT PROGRAM NO. «, t00=0x002c, t01=0x00f6}
0x45d2…45ea Head {h00=0x0014, h01=0x0050, text=» MOVE BIN1,BCD2A«, t00=0x002c, t01=0x011e}
0x45ea…461a Head {h00=0x002c, h01=0x0050, text=» IB BIN1,AOK,AOK,AOK,AOK,AOK,AOK,AOK,AOK«, t00=0x002c, t01=0x0136}
0x461a…4626 Head {h00=0x0008, h01=0x0050, text=»A71 «, t00=0x002c, t01=0x0166}
0x4626…4634 Head {h00=0x000a, h01=0x0050, text=» B A6E«, t00=0x002c, t01=0x0172}
0x4634…463c Head {h00=0x0004, h01=0x0050, t00=0x002c, t01=0x0180}
0x463c…4648 Head {h00=0x0008, h01=0x0050, text=»A73 «, t00=0x002c, t01=0x0188}
0x4648…467c (45, 0, 400) Head {h00=0x0030, h01=0x0050, text=» SET BOOL1 MENU OPTION 9 => SECTOR PRINTOUT «, t00=0x002d, t01=0x0004}
0x467c…468a Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x002d, t01=0x0038}
0x468a…4698 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0046}
0x4698…46bc Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x002d, t01=0x0054}
0x46bc…46e0 Head {h00=0x0020, h01=0x0050, text=»* COPY DISK OR FILE : * «, t00=0x002d, t01=0x0078}
0x46e0…4704 Head {h00=0x0020, h01=0x0050, text=»* INPUT TYPE = V,F,W * «, t00=0x002d, t01=0x009c}
0x4704…4728 Head {h00=0x0020, h01=0x0050, text=»* WITH AUTO ENTER * «, t00=0x002d, t01=0x00c0}
0x4728…474c Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x002d, t01=0x00e4}
0x474c…4756 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0108}
0x4756…4760 Head {h00=0x0006, h01=0x0050, text=»A8«, t00=0x002d, t01=0x0112}
0x4760…477c Head {h00=0x0018, h01=0x0050, text=» MOVE STR15A,=C'VFW'«, t00=0x002d, t01=0x011c}
0x477c…4792 Head {h00=0x0012, h01=0x0050, text=» MOVE DTYP,W0 «, t00=0x002d, t01=0x0138}
0x4792…47be Head {h00=0x0028, h01=0x0050, text=» MATCH STR15A,DTYP,W3,DEINPUT,W0,W1 «, t00=0x002d, t01=0x014e}
0x47be…47d0 Head {h00=0x000e, h01=0x0050, text=» BNOK A6E «, t00=0x002d, t01=0x017a}
0x47d0…47ee Head {h00=0x001a, h01=0x0050, text=» MOVE DEBINW2,W17 ENT «, t00=0x002d, t01=0x018c}
0x47ee…47fc Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x002e, t01=0x001a}
0x47fc…480a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0028}
0x480a…482e Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x002e, t01=0x0036}
0x482e…4852 Head {h00=0x0020, h01=0x0050, text=»* COPY DISK OR FILE : * «, t00=0x002e, t01=0x005a}
0x4852…4876 Head {h00=0x0020, h01=0x0050, text=»* INPUT UNIT NO. * «, t00=0x002e, t01=0x007e}
0x4876…489a Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x002e, t01=0x00a2}
0x489a…48a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00c6}
0x48a4…48ae Head {h00=0x0006, h01=0x0050, text=»A9«, t00=0x002e, t01=0x00d0}
0x48ae…48c8 Head {h00=0x0016, h01=0x0050, text=» PERF AUNIT,VOLNAM«, t00=0x002e, t01=0x00da}
0x48c8…48e0 Head {h00=0x0014, h01=0x0050, text=» MOVE FCOD1,FCOD«, t00=0x002e, t01=0x00f4}
0x48e0…48ee Head {h00=0x000a, h01=0x0050, text=» B A55«, t00=0x002e, t01=0x010c}
0x48ee…48fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x011a}
0x48fc…4920 Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x002e, t01=0x0128}
0x4920…4944 Head {h00=0x0020, h01=0x0050, text=»* COPY DISK OR FILE : * «, t00=0x002e, t01=0x014c}
0x4944…4968 Head {h00=0x0020, h01=0x0050, text=»* OUTPUT UNIT NO. * «, t00=0x002e, t01=0x0170}
0x4968…498c (47, 0, 400) Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x002f, t01=0x0004}
0x498c…4996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0028}
0x4996…49a2 Head {h00=0x0008, h01=0x0050, text=»A10 «, t00=0x002f, t01=0x0032}
0x49a2…49d6 Head {h00=0x0030, h01=0x0050, text=» SET BOOL3 NO UPDFLD, REWRT OF OUTPUT UNIT. «, t00=0x002f, t01=0x003e}
0x49d6…49f0 Head {h00=0x0016, h01=0x0050, text=» PERF AUNIT,COPNAM«, t00=0x002f, t01=0x0072}
0x49f0…4a08 Head {h00=0x0014, h01=0x0050, text=» MOVE FCOD2,FCOD«, t00=0x002f, t01=0x008c}
0x4a08…4a1e Head {h00=0x0012, h01=0x0050, text=» TBT BOOL2,A55«, t00=0x002f, t01=0x00a4}
0x4a1e…4a4e Head {h00=0x002c, h01=0x0050, text=» CBNE FCOD1,FCOD2,A55 COPY DISK TO DISC «, t00=0x002f, t01=0x00ba}
0x4a4e…4a56 Head {h00=0x0004, h01=0x0050, t00=0x002f, t01=0x00ea}
0x4a56…4a6a Head {h00=0x0010, h01=0x0050, text=»AA105 B A6E «, t00=0x002f, t01=0x00f2}
0x4a6a…4a78 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0106}
0x4a78…4aa0 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x002f, t01=0x0114}
0x4aa0…4ac8 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x002f, t01=0x013c}
0x4ac8…4af0 Head {h00=0x0024, h01=0x0050, text=»* PRINT FILE PRINT DEVICE *«, t00=0x002f, t01=0x0164}
0x4af0…4b18 Head {h00=0x0024, h01=0x0050, text=»* *«, t00=0x002f, t01=0x018c}
0x4b18…4b40 Head {h00=0x0024, h01=0x0050, text=»* WITH AUTO ENTER *«, t00=0x0030, t01=0x0024}
0x4b40…4b68 Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0030, t01=0x004c}
0x4b68…4b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0074}
0x4b72…4b7e Head {h00=0x0008, h01=0x0050, text=»A11 «, t00=0x0030, t01=0x007e}
0x4b7e…4b9a Head {h00=0x0018, h01=0x0050, text=» MOVE STR2A,DEINPUT «, t00=0x0030, t01=0x008a}
0x4b9a…4bba Head {h00=0x001c, h01=0x0050, text=» CBNE STR2A,=C'OP',AA111«, t00=0x0030, t01=0x00a6}
0x4bba…4bd4 Head {h00=0x0016, h01=0x0050, text=» MOVE FCOD2,SCRNFC«, t00=0x0030, t01=0x00c6}
0x4bd4…4bfa Head {h00=0x0022, h01=0x0050, text=» MOVE BIN15,W24 PAGE-SIZE:=24 «, t00=0x0030, t01=0x00e0}
0x4bfa…4c1e Head {h00=0x0020, h01=0x0050, text=» MOVE BIN14,W1 LINE-START:=1«, t00=0x0030, t01=0x0106}
0x4c1e…4c2e Head {h00=0x000c, h01=0x0050, text=» B AA114«, t00=0x0030, t01=0x012a}
0x4c2e…4c3c Head {h00=0x000a, h01=0x0050, text=»AA111 «, t00=0x0030, t01=0x013a}
0x4c3c…4c5c Head {h00=0x001c, h01=0x0050, text=» CBE STR2A,=C'LP',AA112 «, t00=0x0030, t01=0x0148}
0x4c5c…4c7e Head {h00=0x001e, h01=0x0050, text=» CBNE STR2A,=C'GP',A71 A6E«, t00=0x0030, t01=0x0168}
0x4c7e…4c9a Head {h00=0x0018, h01=0x0050, text=» MOVE FCOD2,=X'0030'«, t00=0x0030, t01=0x018a}
0x4c9a…4caa Head {h00=0x000c, h01=0x0050, text=» B AA113«, t00=0x0031, t01=0x0016}
0x4caa…4cb8 Head {h00=0x000a, h01=0x0050, text=»AA112 «, t00=0x0031, t01=0x0026}
0x4cb8…4cd4 Head {h00=0x0018, h01=0x0050, text=» MOVE FCOD2,=X'0036'«, t00=0x0031, t01=0x0034}
0x4cd4…4ce2 Head {h00=0x000a, h01=0x0050, text=»AA113 «, t00=0x0031, t01=0x0050}
0x4ce2…4d0a Head {h00=0x0024, h01=0x0050, text=» MOVE BIN15,=W'44' PAGE-SIZE:=44«, t00=0x0031, t01=0x005e}
0x4d0a…4d2e Head {h00=0x0020, h01=0x0050, text=» MOVE BIN14,W6 LINE-START:=6«, t00=0x0031, t01=0x0086}
0x4d2e…4d48 Head {h00=0x0016, h01=0x0050, text=» PERF ATTDEV,FCOD2«, t00=0x0031, t01=0x00aa}
0x4d48…4d60 Head {h00=0x0014, h01=0x0050, text=» BNZ ANOK ERROR «, t00=0x0031, t01=0x00c4}
0x4d60…4d74 Head {h00=0x0010, h01=0x0050, text=» PERF DETDEV«, t00=0x0031, t01=0x00dc}
0x4d74…4d82 Head {h00=0x000a, h01=0x0050, text=»AA114 «, t00=0x0031, t01=0x00f0}
0x4d82…4d9c Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW2,W17 «, t00=0x0031, t01=0x00fe}
0x4d9c…4daa Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0031, t01=0x0118}
0x4daa…4db6 Head {h00=0x0008, h01=0x0050, text=»A12 «, t00=0x0031, t01=0x0126}
0x4db6…4dc4 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0031, t01=0x0132}
0x4dc4…4dd2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x0140}
0x4dd2…4df2 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0031, t01=0x014e}
0x4df2…4e12 Head {h00=0x001c, h01=0x0050, text=»* DISK TYPE *«, t00=0x0031, t01=0x016e}
0x4e12…4e32 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0031, t01=0x018e}
0x4e32…4e5c Head {h00=0x0026, h01=0x0050, text=»* INPUT: DISK TYPE, 01-DMAX «, t00=0x0032, t01=0x001e}
0x4e5c…4e84 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: DISK TYPE IN DTYP«, t00=0x0032, t01=0x0048}
0x4e84…4eb2 Head {h00=0x002a, h01=0x0050, text=»* STORAGE TYPE (DVER) = 0«, t00=0x0032, t01=0x0070}
0x4eb2…4ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x009e}
0x4ebc…4ec8 Head {h00=0x0008, h01=0x0050, text=»A13 «, t00=0x0032, t01=0x00a8}
0x4ec8…4ede Head {h00=0x0012, h01=0x0050, text=» MOVE DVER,W0 «, t00=0x0032, t01=0x00b4}
0x4ede…4efa Head {h00=0x0018, h01=0x0050, text=» MOVE BCD3A,DEINPUT «, t00=0x0032, t01=0x00ca}
0x4efa…4f12 Head {h00=0x0014, h01=0x0050, text=» MOVE DTYP,BCD3A«, t00=0x0032, t01=0x00e6}
0x4f12…4f48 Head {h00=0x0032, h01=0x0050, text=» CBL DTYP,W1,AA105 CHECK THAT TYPE IS CORRECT «, t00=0x0032, t01=0x00fe}
0x4f48…4f64 Head {h00=0x0018, h01=0x0050, text=» CBG DTYP,DMAX,AA105«, t00=0x0032, t01=0x0134}
0x4f64…4f78 Head {h00=0x0010, h01=0x0050, text=» SUB DTYP,W1«, t00=0x0032, t01=0x0150}
0x4f78…4f8e Head {h00=0x0012, h01=0x0050, text=» ADD DTYP,DTYP«, t00=0x0032, t01=0x0164}
0x4f8e…4fca Head {h00=0x0038, h01=0x0050, text=» XCOPY STR2A,W0,W2,DTYPES,DTYP COPY CORRESP. TOSS...«, t00=0x0032, t01=0x017a}
0x4fca…4ffe Head {h00=0x0030, h01=0x0050, text=» MOVE BCD3A,STR2A ...UTILITY DISK TYPE TO...«, t00=0x0033, t01=0x0026}
0x4ffe…5020 Head {h00=0x001e, h01=0x0050, text=» MOVE DTYP,BCD3A ...DTYP! «, t00=0x0033, t01=0x005a}
0x5020…5028 Head {h00=0x0004, h01=0x0050, t00=0x0033, t01=0x007c}
0x5028…5036 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0033, t01=0x0084}
0x5036…5044 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0092}
0x5044…506a Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0033, t01=0x00a0}
0x506a…5090 Head {h00=0x0022, h01=0x0050, text=»* EXTEND FILE *«, t00=0x0033, t01=0x00c6}
0x5090…50b6 Head {h00=0x0022, h01=0x0050, text=»* NO. OF RECORDS IN EXISTING *«, t00=0x0033, t01=0x00ec}
0x50b6…50dc Head {h00=0x0022, h01=0x0050, text=»* FILE WHEN NAME ENTERED *«, t00=0x0033, t01=0x0112}
0x50dc…5102 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0033, t01=0x0138}
0x5102…510c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x015e}
0x510c…5118 Head {h00=0x0008, h01=0x0050, text=»A14 «, t00=0x0033, t01=0x0168}
0x5118…5146 Head {h00=0x002a, h01=0x0050, text=» MOVE :FMTITEM,DEINPUT UPDATE FILENAME«, t00=0x0033, t01=0x0174}
0x5146…515a Head {h00=0x0010, h01=0x0050, text=» PERF WUEXT1«, t00=0x0034, t01=0x0012}
0x515a…5172 Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW4,W0 «, t00=0x0034, t01=0x0026}
0x5172…5184 Head {h00=0x000e, h01=0x0050, text=» BNE ANOK «, t00=0x0034, t01=0x003e}
0x5184…519a Head {h00=0x0012, h01=0x0050, text=» ERASE 1,W4,W4«, t00=0x0034, t01=0x0050}
0x519a…51b2 Head {h00=0x0014, h01=0x0050, text=» DISPLAY 3,W4,W4«, t00=0x0034, t01=0x0066}
0x51b2…51c0 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0034, t01=0x007e}
0x51c0…51ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x008c}
0x51ce…51f4 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0034, t01=0x009a}
0x51f4…521a Head {h00=0x0022, h01=0x0050, text=»* EXTEND FILE *«, t00=0x0034, t01=0x00c0}
0x521a…5240 Head {h00=0x0022, h01=0x0050, text=»* NO. OF RECORDS IN EXTENDED *«, t00=0x0034, t01=0x00e6}
0x5240…5250 Head {h00=0x000c, h01=0x0050, text=»* FILE. «, t00=0x0034, t01=0x010c}
0x5250…5276 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0034, t01=0x011c}
0x5276…5280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0142}
0x5280…528c Head {h00=0x0008, h01=0x0050, text=»A15 «, t00=0x0034, t01=0x014c}
0x528c…52a0 Head {h00=0x0010, h01=0x0050, text=» PERF WUEXT2«, t00=0x0034, t01=0x0158}
0x52a0…52b8 Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW4,W0 «, t00=0x0034, t01=0x016c}
0x52b8…52ca Head {h00=0x000e, h01=0x0050, text=» BNE ANOK «, t00=0x0034, t01=0x0184}
0x52ca…52d8 Head {h00=0x000a, h01=0x0050, text=» B A3 «, t00=0x0035, t01=0x0008}
0x52d8…52e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0016}
0x52e6…531a Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0035, t01=0x0024}
0x531a…534e Head {h00=0x0030, h01=0x0050, text=»* CHECK IF FILE IS FOUND (WUPRF ONLY) *«, t00=0x0035, t01=0x0058}
0x534e…5382 Head {h00=0x0030, h01=0x0050, text=»* A16 IS ALWAYS ACTIVATED FROM A6. *«, t00=0x0035, t01=0x008c}
0x5382…53b6 Head {h00=0x0030, h01=0x0050, text=»********************************************«, t00=0x0035, t01=0x00c0}
0x53b6…53be Head {h00=0x0004, h01=0x0050, t00=0x0035, t01=0x00f4}
0x53be…53ca Head {h00=0x0008, h01=0x0050, text=»A16 «, t00=0x0035, t01=0x00fc}
0x53ca…5402 Head {h00=0x0034, h01=0x0050, text=» PERF CHVNAM,VOLEX1,FCOD CHANGE VOLNAME TO TEMP.«, t00=0x0035, t01=0x0108}
0x5402…5414 Head {h00=0x000e, h01=0x0050, text=» BNOK A165«, t00=0x0035, t01=0x0140}
0x5414…5456 Head {h00=0x003e, h01=0x0050, text=» CALL OPENF,DISK,FILECODE(W1),SYSBUF,DEINPUT,VOLEX1,RETCOD«, t00=0x0035, t01=0x0152}
0x5456…547c (54, 0, 398) Head {h00=0x0022, h01=0x0050, text=» BOK A169 JMP IF FILE IS FOUND«, t00=0x0036, t01=0x0004}
0x547c…54b6 Head {h00=0x0036, h01=0x0050, text=» MOVE DEBINW4,RETCOD SAVE RETCOD, DESTR. BY CHVNAM«, t00=0x0036, t01=0x002a}
0x54b6…54ee Head {h00=0x0034, h01=0x0050, text=» PERF CHVNAM,VOLNAM,FCOD CHANGE VOLNAME TO ORIG.«, t00=0x0036, t01=0x0064}
0x54ee…550c Head {h00=0x001a, h01=0x0050, text=» CBNE DEBINW4,W1,A168 «, t00=0x0036, t01=0x009c}
0x550c…5518 Head {h00=0x0008, h01=0x0050, text=»A163«, t00=0x0036, t01=0x00ba}
0x5518…5546 Head {h00=0x002a, h01=0x0050, text=» MOVE DEBINW4,W18 "DISK NOT OPERABLE" «, t00=0x0036, t01=0x00c6}
0x5546…5556 Head {h00=0x000c, h01=0x0050, text=» B ANOK «, t00=0x0036, t01=0x00f4}
0x5556…5562 Head {h00=0x0008, h01=0x0050, text=»A165«, t00=0x0036, t01=0x0104}
0x5562…557c Head {h00=0x0016, h01=0x0050, text=» MOVE STR6A,HEX00 «, t00=0x0036, t01=0x0110}
0x557c…559c Head {h00=0x001c, h01=0x0050, text=» CALL RCGET,RETCOD,STR6A«, t00=0x0036, t01=0x012a}
0x559c…55b6 Head {h00=0x0016, h01=0x0050, text=» MOVE DEBINW4,W22 «, t00=0x0036, t01=0x014a}
0x55b6…55e8 Head {h00=0x002e, h01=0x0050, text=» CBNE RETCOD,W66,A166 BRANCH IF I/O-ERROR «, t00=0x0036, t01=0x0164}
0x55e8…5614 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW4,W23 "NOT A TOSS DISK!"«, t00=0x0037, t01=0x0008}
0x5614…5620 Head {h00=0x0008, h01=0x0050, text=»A166«, t00=0x0037, t01=0x0034}
0x5620…5630 Head {h00=0x000c, h01=0x0050, text=» B ANOK «, t00=0x0037, t01=0x0040}
0x5630…563c Head {h00=0x0008, h01=0x0050, text=»A168«, t00=0x0037, t01=0x0050}
0x563c…5668 Head {h00=0x0028, h01=0x0050, text=» MOVE DEBINW4,W12 FILE NAME UNKNOWN «, t00=0x0037, t01=0x005c}
0x5668…5678 Head {h00=0x000c, h01=0x0050, text=» B ANOK «, t00=0x0037, t01=0x0088}
0x5678…5684 Head {h00=0x0008, h01=0x0050, text=»A169«, t00=0x0037, t01=0x0098}
0x5684…56be Head {h00=0x0036, h01=0x0050, text=» CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,NOREC,RETCOD«, t00=0x0037, t01=0x00a4}
0x56be…56f6 Head {h00=0x0034, h01=0x0050, text=» PERF CHVNAM,VOLNAM,FCOD CHANGE VOLNAME TO ORIG.«, t00=0x0037, t01=0x00de}
0x56f6…5704 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0037, t01=0x0116}
0x5704…5712 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0124}
0x5712…5752 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0037, t01=0x0132}
0x5752…5792 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0037, t01=0x0172}
0x5792…57d2 Head {h00=0x003c, h01=0x0050, text=»* CHECK DISK VERSION (UNPACKED OR PACKED) WHEN CRV FOR *«, t00=0x0038, t01=0x0022}
0x57d2…5812 Head {h00=0x003c, h01=0x0050, text=»* 2,5MB OR 5MB CARTRIDGE/FIX DISK. *«, t00=0x0038, t01=0x0062}
0x5812…5852 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0038, t01=0x00a2}
0x5852…5892 Head {h00=0x003c, h01=0x0050, text=»* INPUT: DISK VERSION = 1 (UNPACKED) OR = 2 (PACKED) *«, t00=0x0038, t01=0x00e2}
0x5892…58d2 Head {h00=0x003c, h01=0x0050, text=»* OUTPUT: DVER = 2 (UNPACKED) OR = 3 (PACKED) *«, t00=0x0038, t01=0x0122}
0x58d2…5912 Head {h00=0x003c, h01=0x0050, text=»* *«, t00=0x0038, t01=0x0162}
0x5912…5952 Head {h00=0x003c, h01=0x0050, text=»********************************************************«, t00=0x0039, t01=0x0012}
0x5952…595a Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x0052}
0x595a…5966 Head {h00=0x0008, h01=0x0050, text=»A17 «, t00=0x0039, t01=0x005a}
0x5966…5982 Head {h00=0x0018, h01=0x0050, text=» MOVE BCD2A,DEINPUT «, t00=0x0039, t01=0x0066}
0x5982…599a Head {h00=0x0014, h01=0x0050, text=» MOVE DVER,BCD2A«, t00=0x0039, t01=0x0082}
0x599a…59c2 Head {h00=0x0024, h01=0x0050, text=» CBL DVER,W1,AA105 CHECK LIMITS «, t00=0x0039, t01=0x009a}
0x59c2…59dc Head {h00=0x0016, h01=0x0050, text=» CBG DVER,W2,AA105«, t00=0x0039, t01=0x00c2}
0x59dc…59e4 Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x00dc}
0x59e4…5a10 Head {h00=0x0028, h01=0x0050, text=» ADD DVER,W1 ADD 1 TO KEYBOARD VALUE«, t00=0x0039, t01=0x00e4}
0x5a10…5a1e Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x0039, t01=0x0110}
0x5a1e…5a2c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x011e}
0x5a2c…5a34 Head {h00=0x0004, h01=0x0050, t00=0x0039, t01=0x012c}
0x5a34…5a6c Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x0039, t01=0x0134}
0x5a6c…5aa4 Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x0039, t01=0x016c}
0x5aa4…5adc Head {h00=0x0034, h01=0x0050, text=»* FILL ENTERED FORM/SECT/DEF-NAME WITH * «, t00=0x003a, t01=0x0014}
0x5adc…5b14 Head {h00=0x0034, h01=0x0050, text=»* TRAILING BLANKS (COPY SPECIFIC) * «, t00=0x003a, t01=0x004c}
0x5b14…5b4c Head {h00=0x0034, h01=0x0050, text=»* * «, t00=0x003a, t01=0x0084}
0x5b4c…5b84 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x003a, t01=0x00bc}
0x5b84…5b8c Head {h00=0x0004, h01=0x0050, t00=0x003a, t01=0x00f4}
0x5b8c…5b98 Head {h00=0x0008, h01=0x0050, text=»A18 «, t00=0x003a, t01=0x00fc}
0x5b98…5bc0 Head {h00=0x0024, h01=0x0050, text=» MOVE STR6B,=' ' STR6B := BLANKS«, t00=0x003a, t01=0x0108}
0x5bc0…5c08 Head {h00=0x0044, h01=0x0050, text=» XCOPY STR6B,W0,DEBINW1,DEINPUT,W0 COPY NO OF ENTERED CHARACTERS«, t00=0x003a, t01=0x0130}
0x5c08…5c44 Head {h00=0x0038, h01=0x0050, text=» XCOPY DEINPUT,W0,W6,STR6B,W0 STORE IN INPUT BUFFER «, t00=0x003a, t01=0x0178}
0x5c44…5c52 Head {h00=0x000a, h01=0x0050, text=» B AOK«, t00=0x003b, t01=0x0024}
0x5c52…5c60 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003b, t01=0x0032}
0x5c60…5c6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x0040}
0x5c6e…5ca8 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x003b, t01=0x004e}
0x5ca8…5ce2 Head {h00=0x0036, h01=0x0050, text=»* THE CONECTION BETWEEN UNIT NO AND DISK * «, t00=0x003b, t01=0x0088}
0x5ce2…5d1c Head {h00=0x0036, h01=0x0050, text=»* IS DONE IN DATA DIVISION AND IS DESCRIBED * «, t00=0x003b, t01=0x00c2}
0x5d1c…5d56 Head {h00=0x0036, h01=0x0050, text=»* IN SYSTEM GENERATION * «, t00=0x003b, t01=0x00fc}
0x5d56…5d90 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x003b, t01=0x0136}
0x5d90…5d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0170}
0x5d9a…5db2 Head {h00=0x0014, h01=0x0050, text=»AUNIT PROC VOLYM«, t00=0x003b, t01=0x017a}
0x5db2…5dc6 (60, 0, 400) Head {h00=0x0010, h01=0x0050, text=» PSTRG VOLYM«, t00=0x003c, t01=0x0004}
0x5dc6…5dde Head {h00=0x0014, h01=0x0050, text=» MOVE RETCOD,W0 «, t00=0x003c, t01=0x0018}
0x5dde…5df4 Head {h00=0x0012, h01=0x0050, text=» MOVE FCOD,W0 «, t00=0x003c, t01=0x0030}
0x5df4…5e0c Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN2,W0 «, t00=0x003c, t01=0x0046}
0x5e0c…5e1a Head {h00=0x000a, h01=0x0050, text=»AUN100«, t00=0x003c, t01=0x005e}
0x5e1a…5e36 Head {h00=0x0018, h01=0x0050, text=» MOVE DEBIN1,DEBIN2 «, t00=0x003c, t01=0x006c}
0x5e36…5e62 Head {h00=0x0028, h01=0x0050, text=» MATCH DUNIT,DEBIN1,W3,DEINPUT,W0,W3«, t00=0x003c, t01=0x0088}
0x5e62…5e76 Head {h00=0x0010, h01=0x0050, text=» BOK AUN200 «, t00=0x003c, t01=0x00b4}
0x5e76…5e8c Head {h00=0x0012, h01=0x0050, text=» ADD DEBIN2,W3«, t00=0x003c, t01=0x00c8}
0x5e8c…5eac Head {h00=0x001c, h01=0x0050, text=» CBNE DEBIN2,W66,AUN100 «, t00=0x003c, t01=0x00de}
0x5eac…5eb8 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003c, t01=0x00fe}
0x5eb8…5ec6 Head {h00=0x000a, h01=0x0050, text=»AUN200«, t00=0x003c, t01=0x010a}
0x5ec6…5eea Head {h00=0x0020, h01=0x0050, text=» CALL WXDIV,DEBIN2,W3,DEBIN2«, t00=0x003c, t01=0x0118}
0x5eea…5f12 Head {h00=0x0024, h01=0x0050, text=» XCOPY FCOD,W1,W1,DFCODS,DEBIN2 «, t00=0x003c, t01=0x013c}
0x5f12…5f2a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W2 «, t00=0x003c, t01=0x0164}
0x5f2a…5f4a Head {h00=0x001c, h01=0x0050, text=» CBNE DEBINW3,W10,AUN250«, t00=0x003c, t01=0x017c}
0x5f4a…5f62 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W4 «, t00=0x003d, t01=0x000c}
0x5f62…5f7c Head {h00=0x0016, h01=0x0050, text=» TBF BOOL2,AUN250 «, t00=0x003d, t01=0x0024}
0x5f7c…5f94 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBIN1,W5 «, t00=0x003d, t01=0x003e}
0x5f94…5fa2 Head {h00=0x000a, h01=0x0050, text=»AUN250«, t00=0x003d, t01=0x0056}
0x5fa2…5fd0 Head {h00=0x002a, h01=0x0050, text=» ERASE 1,DEBIN1,DEBIN1 ERASE ON SCREEN«, t00=0x003d, t01=0x0064}
0x5fd0…6000 Head {h00=0x002c, h01=0x0050, text=» CALL CHANFC,DISK,FCOD CHANGE FILE-CODE «, t00=0x003d, t01=0x0092}
0x6000…603e Head {h00=0x003a, h01=0x0050, text=» CALL GETVOL,DISK,SYSBUF,VOLYM,RETCOD GET VOLUME-NAME «, t00=0x003d, t01=0x00c2}
0x603e…6062 Head {h00=0x0020, h01=0x0050, text=» CALL WXDIV,DEBIN1,W2,DEBIN1«, t00=0x003d, t01=0x0100}
0x6062…608c Head {h00=0x0026, h01=0x0050, text=» DISPLAY 2,DEBIN1,DEBIN1 VOL-NAME «, t00=0x003d, t01=0x0124}
0x608c…60aa Head {h00=0x001a, h01=0x0050, text=» CBE RETCOD,W0,AUN300 «, t00=0x003d, t01=0x014e}
0x60aa…60cc Head {h00=0x001e, h01=0x0050, text=» CBNE RETCOD,=X'20',AUN275«, t00=0x003d, t01=0x016c}
0x60cc…60e4 Head {h00=0x0014, h01=0x0050, text=» MOVE RETCOD,W11«, t00=0x003d, t01=0x018e}
0x60e4…60f6 Head {h00=0x000e, h01=0x0050, text=» B AUN300 «, t00=0x003e, t01=0x0016}
0x60f6…6104 Head {h00=0x000a, h01=0x0050, text=»AUN275«, t00=0x003e, t01=0x0028}
0x6104…6122 Head {h00=0x001a, h01=0x0050, text=» CBNE RETCOD,W1,AUN280«, t00=0x003e, t01=0x0036}
0x6122…613a Head {h00=0x0014, h01=0x0050, text=» MOVE RETCOD,W18«, t00=0x003e, t01=0x0054}
0x613a…614c Head {h00=0x000e, h01=0x0050, text=» B AUN300 «, t00=0x003e, t01=0x006c}
0x614c…615a Head {h00=0x000a, h01=0x0050, text=»AUN280«, t00=0x003e, t01=0x007e}
0x615a…6176 Head {h00=0x0018, h01=0x0050, text=» CMP RETCOD,=X'8000'«, t00=0x003e, t01=0x008c}
0x6176…618a Head {h00=0x0010, h01=0x0050, text=» BNE AUN290 «, t00=0x003e, t01=0x00a8}
0x618a…61a2 Head {h00=0x0014, h01=0x0050, text=» MOVE RETCOD,W13«, t00=0x003e, t01=0x00bc}
0x61a2…61b4 Head {h00=0x000e, h01=0x0050, text=» B AUN300 «, t00=0x003e, t01=0x00d4}
0x61b4…61c2 Head {h00=0x000a, h01=0x0050, text=»AUN290«, t00=0x003e, t01=0x00e6}
0x61c2…61dc Head {h00=0x0016, h01=0x0050, text=» MOVE STR6A,HEX00 «, t00=0x003e, t01=0x00f4}
0x61dc…61fc Head {h00=0x001c, h01=0x0050, text=» CALL RCGET,RETCOD,STR6A«, t00=0x003e, t01=0x010e}
0x61fc…6214 Head {h00=0x0014, h01=0x0050, text=» MOVE RETCOD,W22«, t00=0x003e, t01=0x012e}
0x6214…6222 Head {h00=0x000a, h01=0x0050, text=»AUN300«, t00=0x003e, t01=0x0146}
0x6222…623a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW1,W0«, t00=0x003e, t01=0x0154}
0x623a…6258 Head {h00=0x001a, h01=0x0050, text=» MOVE :FMTITEM,DEINPUT«, t00=0x003e, t01=0x016c}
0x6258…6264 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x003e, t01=0x018a}
0x6264…6272 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x003f, t01=0x0008}
0x6272…6280 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x0016}
0x6280…629a Head {h00=0x0016, h01=0x0050, text=»ATTDEV PROC FILCOD«, t00=0x003f, t01=0x0024}
0x629a…62ae Head {h00=0x0010, h01=0x0050, text=» PBIN FILCOD«, t00=0x003f, t01=0x003e}
0x62ae…62d2 Head {h00=0x0020, h01=0x0050, text=» CALL CHANFC,DEDSPRT,FILCOD «, t00=0x003f, t01=0x0052}
0x62d2…62ea Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W0«, t00=0x003f, t01=0x0076}
0x62ea…630a Head {h00=0x001c, h01=0x0050, text=» DSC0 .NW,DEDSPRT,TSTAT «, t00=0x003f, t01=0x008e}
0x630a…633a Head {h00=0x002c, h01=0x0050, text=» DELAY W10 CHANGED FROM W4 TO W10 831015«, t00=0x003f, t01=0x00ae}
0x633a…6352 Head {h00=0x0014, h01=0x0050, text=» TESTIO DEDSPRT «, t00=0x003f, t01=0x00de}
0x6352…6364 Head {h00=0x000e, h01=0x0050, text=» BNZ NOTOK«, t00=0x003f, t01=0x00f6}
0x6364…637a Head {h00=0x0012, h01=0x0050, text=» WAIT DEDSPRT «, t00=0x003f, t01=0x0108}
0x637a…6398 Head {h00=0x001a, h01=0x0050, text=» XSTAT DEDSPRT,DEBINW4«, t00=0x003f, t01=0x011e}
0x6398…63b6 Head {h00=0x001a, h01=0x0050, text=» CBE DEBINW4,W0,ATTOK «, t00=0x003f, t01=0x013c}
0x63b6…63f4 Head {h00=0x003a, h01=0x0050, text=» CBE DEBINW4,SECLEN,ATTOK0 "RETRIES PERFORMED" = "OK" «, t00=0x003f, t01=0x015a}
0x63f4…6406 Head {h00=0x000e, h01=0x0050, text=» B ATT100 «, t00=0x0040, t01=0x0008}
0x6406…6414 Head {h00=0x000a, h01=0x0050, text=»NOTOK «, t00=0x0040, t01=0x001a}
0x6414…642a Head {h00=0x0012, h01=0x0050, text=» ABORT DEDSPRT«, t00=0x0040, t01=0x0028}
0x642a…643c Head {h00=0x000e, h01=0x0050, text=» B ATT100 «, t00=0x0040, t01=0x003e}
0x643c…644a Head {h00=0x000a, h01=0x0050, text=»ATTOK0«, t00=0x0040, t01=0x0050}
0x644a…6488 Head {h00=0x003a, h01=0x0050, text=» MOVE DEBINW4,W0 SET RETURN-CODE = 0 IF RETRIES PERF. «, t00=0x0040, t01=0x005e}
0x6488…6496 Head {h00=0x000a, h01=0x0050, text=»ATTOK «, t00=0x0040, t01=0x009c}
0x6496…64b6 Head {h00=0x001c, h01=0x0050, text=» DSC1 DEDSPRT,ATTACH,W20«, t00=0x0040, t01=0x00aa}
0x64b6…64ca Head {h00=0x0010, h01=0x0050, text=» BOK ATTOUT «, t00=0x0040, t01=0x00ca}
0x64ca…64e2 Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W3«, t00=0x0040, t01=0x00de}
0x64e2…64f4 Head {h00=0x000e, h01=0x0050, text=» B ATTOUT «, t00=0x0040, t01=0x00f6}
0x64f4…6502 Head {h00=0x000a, h01=0x0050, text=»ATT100«, t00=0x0040, t01=0x0108}
0x6502…651a Head {h00=0x0014, h01=0x0050, text=» MOVE DEBINW4,W3«, t00=0x0040, t01=0x0116}
0x651a…6528 Head {h00=0x000a, h01=0x0050, text=»ATTOUT«, t00=0x0040, t01=0x012e}
0x6528…6540 Head {h00=0x0014, h01=0x0050, text=» CMP DEBINW4,W0 «, t00=0x0040, t01=0x013c}
0x6540…654c Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0040, t01=0x0154}
0x654c…655a Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0040, t01=0x0160}
0x655a…656e Head {h00=0x0010, h01=0x0050, text=»DETDEV PROC «, t00=0x0040, t01=0x016e}
0x656e…658e Head {h00=0x001c, h01=0x0050, text=» DSC1 DEDSPRT,DETACH,W0 «, t00=0x0040, t01=0x0182}
0x658e…659a Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0041, t01=0x0012}
0x659a…65a8 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0041, t01=0x001e}
0x65a8…65b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x002c}
0x65b6…65c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x003a}
0x65c0…65f8 Head {h00=0x0034, h01=0x0050, text=»* STPBLK => PUT'S CURSOR ON AND STOP'S BLOCKING«, t00=0x0041, t01=0x0044}
0x65f8…6602 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x007c}
0x6602…6616 Head {h00=0x0010, h01=0x0050, text=»STPBLK PROC «, t00=0x0041, t01=0x0086}
0x6616…663e Head {h00=0x0024, h01=0x0050, text=» MOVE VD82CW,=X'0080' CURSOR ON «, t00=0x0041, t01=0x009a}
0x663e…6660 Head {h00=0x001e, h01=0x0050, text=» DSC DEDSSCRN,X'11',VD82CW«, t00=0x0041, t01=0x00c2}
0x6660…668c Head {h00=0x0028, h01=0x0050, text=» DSC DEDSSCRN,STOPBLK STOP BLOCKING «, t00=0x0041, t01=0x00e4}
0x668c…6698 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0041, t01=0x0110}
0x6698…66a6 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0041, t01=0x011c}
0x66a6…66b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x012a}
0x66b0…66ec Head {h00=0x0038, h01=0x0050, text=»* STABLK => START'S BLOCKING AND TURNS CURSOR OFF «, t00=0x0041, t01=0x0134}
0x66ec…66f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0170}
0x66f6…670a Head {h00=0x0010, h01=0x0050, text=»STABLK PROC «, t00=0x0041, t01=0x017a}
0x670a…6738 Head {h00=0x002a, h01=0x0050, text=» DSC DEDSSCRN,STARTBLK START BLOCKING «, t00=0x0041, t01=0x018e}
0x6738…6768 Head {h00=0x002c, h01=0x0050, text=» MOVE VD82CW,=X'01C0' DISCONNECT CURSOR «, t00=0x0042, t01=0x002c}
0x6768…678a Head {h00=0x001e, h01=0x0050, text=» DSC DEDSSCRN,X'11',VD82CW«, t00=0x0042, t01=0x005c}
0x678a…67b8 Head {h00=0x002a, h01=0x0050, text=» MOVE VD82CW,=X'0180' INVISIBLE CURSOR«, t00=0x0042, t01=0x007e}
0x67b8…67da Head {h00=0x001e, h01=0x0050, text=» DSC DEDSSCRN,X'11',VD82CW«, t00=0x0042, t01=0x00ac}
0x67da…67e6 Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0042, t01=0x00ce}
0x67e6…67f4 Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0042, t01=0x00da}
0x67f4…6802 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0042, t01=0x00e8}
0x6802…6814 Head {h00=0x000e, h01=0x0050, text=»FPROG FRMT«, t00=0x0042, t01=0x00f6}
0x6814…6820 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0042, t01=0x0108}
0x6820…6844 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0042, t01=0x0114}
0x6844…685e Head {h00=0x0016, h01=0x0050, text=» FTEXT 'WSM REL ' «, t00=0x0042, t01=0x0138}
0x685e…6874 Head {h00=0x0012, h01=0x0050, text=» FCOPY RELNUM «, t00=0x0042, t01=0x0152}
0x6874…6884 Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x0042, t01=0x0168}
0x6884…68a4 Head {h00=0x001c, h01=0x0050, text=» FTEXT 'RELEASE DATE: ' «, t00=0x0042, t01=0x0178}
0x68a4…68ba Head {h00=0x0012, h01=0x0050, text=» FCOPY RELDAT «, t00=0x0043, t01=0x0008}
0x68ba…68c6 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0043, t01=0x001e}
0x68c6…68d2 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0043, t01=0x002a}
0x68d2…68f6 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0043, t01=0x0036}
0x68f6…6906 Head {h00=0x000c, h01=0x0050, text=» FTAB 3 «, t00=0x0043, t01=0x005a}
0x6906…6928 Head {h00=0x001e, h01=0x0050, text=» FATTR .INV INVERSE VIDEO «, t00=0x0043, t01=0x006a}
0x6928…6948 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'WSM UTILITIES'«, t00=0x0043, t01=0x008c}
0x6948…6954 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0043, t01=0x00ac}
0x6954…6960 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0043, t01=0x00b8}
0x6960…6984 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0043, t01=0x00c4}
0x6984…69ae Head {h00=0x0026, h01=0x0050, text=» FCOPY =C' FUNCTION SELECTION:' «, t00=0x0043, t01=0x00e8}
0x69ae…69e0 Head {h00=0x002e, h01=0x0050, text=» FKI 24,MINL=1,MAXL=1,ME,NEOI,REWRT,APPL=7«, t00=0x0043, t01=0x0112}
0x69e0…69f8 Head {h00=0x0014, h01=0x0050, text=» FMEL 'X',PRNUM «, t00=0x0043, t01=0x0144}
0x69f8…6a1c Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0043, t01=0x015c}
0x6a1c…6a2c Head {h00=0x000c, h01=0x0050, text=» FTAB 26«, t00=0x0043, t01=0x0180}
0x6a2c…6a42 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'1 ='«, t00=0x0043, t01=0x0190}
0x6a42…6a52 Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x0044, t01=0x0016}
0x6a52…6a72 Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'CREATE VOLUME'«, t00=0x0044, t01=0x0026}
0x6a72…6a7e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0044, t01=0x0046}
0x6a7e…6aa2 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0044, t01=0x0052}
0x6aa2…6ab2 Head {h00=0x000c, h01=0x0050, text=» FTAB 26«, t00=0x0044, t01=0x0076}
0x6ab2…6ac8 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'2 ='«, t00=0x0044, t01=0x0086}
0x6ac8…6ad8 Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x0044, t01=0x009c}
0x6ad8…6b02 Head {h00=0x0026, h01=0x0050, text=» FCOPY =C'CREATE WSM SYSTEM FILE' «, t00=0x0044, t01=0x00ac}
0x6b02…6b0e Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0044, t01=0x00d6}
0x6b0e…6b32 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0044, t01=0x00e2}
0x6b32…6b42 Head {h00=0x000c, h01=0x0050, text=» FTAB 26«, t00=0x0044, t01=0x0106}
0x6b42…6b58 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'3 ='«, t00=0x0044, t01=0x0116}
0x6b58…6b68 Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x0044, t01=0x012c}
0x6b68…6b86 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'DELETE FILE'«, t00=0x0044, t01=0x013c}
0x6b86…6b92 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0044, t01=0x015a}
0x6b92…6bb6 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0044, t01=0x0166}
0x6bb6…6bc6 Head {h00=0x000c, h01=0x0050, text=» FTAB 26«, t00=0x0044, t01=0x018a}
0x6bc6…6bdc Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'4 ='«, t00=0x0045, t01=0x000a}
0x6bdc…6bec Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x0045, t01=0x0020}
0x6bec…6c10 Head {h00=0x0020, h01=0x0050, text=» FCOPY =C'COPY VOLUME/FILE' «, t00=0x0045, t01=0x0030}
0x6c10…6c1c Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0045, t01=0x0054}
0x6c1c…6c40 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0045, t01=0x0060}
0x6c40…6c50 Head {h00=0x000c, h01=0x0050, text=» FTAB 26«, t00=0x0045, t01=0x0084}
0x6c50…6c66 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'5 ='«, t00=0x0045, t01=0x0094}
0x6c66…6c76 Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x0045, t01=0x00aa}
0x6c76…6ca0 Head {h00=0x0026, h01=0x0050, text=» FCOPY =C'EXTEND WSM SYSTEM FILE' «, t00=0x0045, t01=0x00ba}
0x6ca0…6cac Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0045, t01=0x00e4}
0x6cac…6cd0 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0045, t01=0x00f0}
0x6cd0…6ce0 Head {h00=0x000c, h01=0x0050, text=» FTAB 26«, t00=0x0045, t01=0x0114}
0x6ce0…6cf6 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'6 ='«, t00=0x0045, t01=0x0124}
0x6cf6…6d06 Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x0045, t01=0x013a}
0x6d06…6d36 Head {h00=0x002c, h01=0x0050, text=» FCOPY =C'PRINT FILE TABLE OF CONTENTS' «, t00=0x0045, t01=0x014a}
0x6d36…6d42 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0045, t01=0x017a}
0x6d42…6d66 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0045, t01=0x0186}
0x6d66…6d76 Head {h00=0x000c, h01=0x0050, text=» FTAB 26«, t00=0x0046, t01=0x001a}
0x6d76…6d8c Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'7 ='«, t00=0x0046, t01=0x002a}
0x6d8c…6d9c Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x0046, t01=0x0040}
0x6d9c…6dc2 Head {h00=0x0022, h01=0x0050, text=» FCOPY =C'CHANGE VOLUME-NAME' «, t00=0x0046, t01=0x0050}
0x6dc2…6dce Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0046, t01=0x0076}
0x6dce…6df2 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0046, t01=0x0082}
0x6df2…6e02 Head {h00=0x000c, h01=0x0050, text=» FTAB 26«, t00=0x0046, t01=0x00a6}
0x6e02…6e18 Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'8 ='«, t00=0x0046, t01=0x00b6}
0x6e18…6e28 Head {h00=0x000c, h01=0x0050, text=» FTAB 31«, t00=0x0046, t01=0x00cc}
0x6e28…6e46 Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'PRINT VTOC' «, t00=0x0046, t01=0x00dc}
0x6e46…6e56 Head {h00=0x000c, h01=0x0050, text=» FNL 10 «, t00=0x0046, t01=0x00fa}
0x6e56…6e7a Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0046, t01=0x010a}
0x6e7a…6e9c Head {h00=0x001e, h01=0x0050, text=» FATTR .INV INVERSE VIDEO «, t00=0x0046, t01=0x012e}
0x6e9c…6eba Head {h00=0x001a, h01=0x0050, text=» FCOPY =C'IMPORTANT: '«, t00=0x0046, t01=0x0150}
0x6eba…6ee8 Head {h00=0x002a, h01=0x0050, text=» FCOPY =C'ALWAYS RETURN TO THIS MENU '«, t00=0x0046, t01=0x016e}
0x6ee8…6f18 Head {h00=0x002c, h01=0x0050, text=» FCOPY =C'BEFORE UNLOADING ANY VOLUME!' «, t00=0x0047, t01=0x000c}
0x6f18…6f26 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0047, t01=0x003c}
0x6f26…6f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x004a}
0x6f30…6f42 Head {h00=0x000e, h01=0x0050, text=»FHALT FRMT«, t00=0x0047, t01=0x0054}
0x6f42…6f4e Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0047, t01=0x0066}
0x6f4e…6f72 Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0047, t01=0x0072}
0x6f72…6f94 Head {h00=0x001e, h01=0x0050, text=» FATTR .INV INVERSE VIDEO «, t00=0x0047, t01=0x0096}
0x6f94…6fb2 Head {h00=0x001a, h01=0x0050, text=» FATTR .FLASH BLINKING«, t00=0x0047, t01=0x00b8}
0x6fb2…6fda Head {h00=0x0024, h01=0x0050, text=» FCOPY =C'PRESS ENT TO CONTINUE'«, t00=0x0047, t01=0x00d6}
0x6fda…6fe8 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0047, t01=0x00fe}
0x6fe8…6ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x010c}
0x6ff2…7004 Head {h00=0x000e, h01=0x0050, text=»FHEX FRMT «, t00=0x0047, t01=0x0116}
0x7004…7010 Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0047, t01=0x0128}
0x7010…702c Head {h00=0x0018, h01=0x0050, text=» FKI 1,MINL=0,MAXL=0«, t00=0x0047, t01=0x0134}
0x702c…7040 Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0047, t01=0x0150}
0x7040…704e Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0047, t01=0x0164}
0x704e…7058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0172}
0x7058…706a Head {h00=0x000e, h01=0x0050, text=»FCONT FRMT«, t00=0x0047, t01=0x017c}
0x706a…7076 Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0047, t01=0x018e}
0x7076…709a Head {h00=0x0020, h01=0x0050, text=» FATTR .HIGH HIGH INTENSITY «, t00=0x0048, t01=0x000a}
0x709a…70bc Head {h00=0x001e, h01=0x0050, text=» FATTR .INV INVERSE VIDEO «, t00=0x0048, t01=0x002e}
0x70bc…70da Head {h00=0x001a, h01=0x0050, text=» FATTR .FLASH BLINKING«, t00=0x0048, t01=0x0050}
0x70da…70f4 Head {h00=0x0016, h01=0x0050, text=» FCOPY =C'WAIT...'«, t00=0x0048, t01=0x006e}
0x70f4…7102 Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0048, t01=0x0088}
0x7102…710c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0096}
0x710c…7118 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0048, t01=0x00a0}
0x7118…711c (73, 1, 8) Head {h00=0x2004, h01=0x0000}
0x711c…7120 00 49 00 04 ┆ I ┆
0x7120…7170 (74, 2, 206) 00 4a 00 48 20 49 44 45 4e 54 20 57 55 49 4e 54 20 20 20 54 52 41 20 31 33 2e 30 20 38 35 2d 30 37 2d 30 31 20 46 31 20 4f 31 31 31 31 20 20 52 45 4c 3d 33 2e 30 2c 38 34 31 30 30 31 2c 38 37 30 31 35 35 39 34 30 33 30 30 00 00 00 04 00 0c ┆ J H IDENT WUINT TRA 13.0 85-07-01 F1 O1111 REL=3.0,841001,870155940300 ┆
0x7170…71c0 00 08 01 03 a0 57 55 49 4e 54 00 00 00 52 00 0e 00 0a 05 04 a8 57 55 49 4e 54 00 00 00 00 00 62 00 0e 00 0a 02 04 c0 24 24 24 54 52 41 30 00 00 00 74 00 0c 00 08 02 03 a0 57 55 55 54 49 00 00 00 86 00 0c 00 08 00 03 07 06 00 01 00 02 00 00 ┆ WUINT R WUINT b $$$TRA0 t WUUTI ┆
0x71c0…71ee 00 96 00 0e 00 0a 00 04 00 08 00 00 80 00 5f 04 00 00 00 a6 00 0e 00 0a 07 04 00 00 00 00 00 04 00 00 00 00 00 b8 40 04 00 00 00 00 00 ca ┆ _ @ ┆
0x71ee…723e (75, 2, 210) 00 4a 00 48 20 49 44 45 4e 54 20 57 55 46 49 4c 20 20 20 54 52 41 20 31 33 2e 30 20 38 35 2d 30 37 2d 30 31 20 46 31 20 4f 31 31 31 31 20 20 52 45 4c 3d 33 2e 30 2c 38 34 31 30 30 31 2c 38 37 30 31 35 35 39 34 30 33 30 30 00 00 00 04 00 0e ┆ J H IDENT WUFIL TRA 13.0 85-07-01 F1 O1111 REL=3.0,841001,870155940300 ┆
0x723e…728e 00 0a 01 04 c0 46 55 54 41 53 4b 30 00 00 00 52 00 10 00 0c 05 05 c8 46 55 54 41 53 4b 30 00 00 00 00 00 64 00 0e 00 0a 02 04 c0 24 24 24 54 52 41 30 00 00 00 78 00 0c 00 08 02 03 a0 57 55 46 49 4c 00 00 00 8a 00 0c 00 08 00 03 05 06 00 01 ┆ FUTASK0 R FUTASK0 d $$$TRA0 x WUFIL ┆
0x728e…72c0 00 02 00 00 00 9a 00 0e 00 0a 00 04 00 08 00 00 30 00 5f 04 00 00 00 aa 00 0e 00 0a 07 04 00 00 00 00 00 04 00 00 00 00 00 bc 40 04 00 00 00 00 00 ce ┆ 0 _ @ ┆
0x72c0…7310 (76, 0, 400) 00 4a 00 48 20 49 44 45 4e 54 20 57 55 55 54 49 20 20 20 54 52 41 20 31 33 2e 30 20 38 35 2d 30 37 2d 30 31 20 46 31 20 4f 31 31 31 31 20 20 52 45 4c 3d 33 2e 30 2c 38 34 31 32 30 34 2c 38 37 30 31 35 35 39 34 30 33 30 30 00 00 00 04 00 42 ┆ J H IDENT WUUTI TRA 13.0 85-07-01 F1 O1111 REL=3.0,841204,870155940300 B┆
0x7310…7360 00 3e 01 1e a0 57 55 55 54 49 60 41 50 50 c0 44 49 53 45 52 52 30 c0 44 53 4b 45 52 52 30 a0 55 46 45 52 52 80 48 41 4c 54 30 80 43 4f 4e 54 30 c0 43 48 56 4e 41 4d 30 c0 53 54 50 42 4c 4b 30 00 00 00 52 00 0e 00 0a 01 04 c0 53 54 41 42 4c ┆ > WUUTI`APP DISERR0 DSKERR0 UFERR HALT0 CONT0 CHVNAM0 STPBLK0 R STABL┆
0x7360…73b0 4b 30 00 00 00 98 00 40 00 3c 05 1d a8 57 55 55 54 49 00 00 68 41 50 50 01 50 c8 44 49 53 45 52 52 30 00 f7 c8 44 53 4b 45 52 52 30 01 0d a8 55 46 45 52 52 00 b9 88 48 41 4c 54 30 01 19 88 43 4f 4e 54 30 01 42 00 00 00 aa 00 24 00 20 05 0f ┆K0 @ < WUUTI hAPP P DISERR0 DSKERR0 UFERR HALT0 CONT0 B $ ┆
0x73b0…7400 c8 43 48 56 4e 41 4d 30 00 a8 c8 53 54 50 42 4c 4b 30 04 3c c8 53 54 41 42 4c 4b 30 04 4a 00 00 00 ee 00 0e 00 0a 02 04 c0 24 24 24 54 52 41 30 00 00 01 16 00 40 00 3c 02 1d a0 57 55 43 52 56 a0 57 55 43 52 46 a0 57 55 44 4c 46 a0 57 55 43 ┆ CHVNAM0 STPBLK0 < STABLK0 J $$$TRA0 @ < WUCRV WUCRF WUDLF WUC┆
0x7400…7450 4f 50 a0 57 55 45 58 54 c0 57 55 45 58 54 31 30 c0 57 55 45 58 54 32 30 a0 57 55 50 52 46 a0 57 55 43 56 4e 00 00 01 28 00 46 00 42 02 20 a0 57 55 50 52 56 c0 44 45 43 4c 52 41 30 80 44 45 52 52 30 c0 43 48 41 4e 46 43 30 c0 47 45 54 56 4f ┆OP WUEXT WUEXT10 WUEXT20 WUPRF WUCVN ( F B WUPRV DECLRA0 DERR0 CHANFC0 GETVO┆