DataMuseum.dk

top - metrics - download

    Length: 7844 (0x1ea4)
    Notes: pts_type(SC)
    Names: »WUCRV.SC«

└─⟦f45ea3bc3⟧ Bits:30009713 Philips computer tape "WSM"
    └─⟦this⟧ »WSM:UTIL/WUCRV.SC« 

PTS(SC)

	IDENT	WUCRV	REL=2.3,850910,870155940230
**************************************
*  WORK STATION MANAGEMENT           *
*  UTILITY PROGRAMS                  *
*  1  CREATE VOLUME                  *
*                                    *
**************************************
	DDUM	WUDIV 


** HISTORY: 
** 85-09-10/CJ    SUPPORT OF NEW WCH PTS-6793 AND PTS-6794. 
** 85-08-08/CJ    CHANGE IN FORMAT FCRV FROM DISC TO DISK.
** 85-01-25/CJ    SUPPORT OF 12.8 MB WCH PTS-6794 FOR PTS-6923. 
** 84-07-12/MAER  ADAPTION FOR 35 MB WINCHESTER DISK PTS-6963 FOR 
**                CONNECTION TO PTS-6910. 
**                MAX NO OF FILES EXTENDED TO 999.
** 84-06-01/MAER  ADAPTION FOR 5 1/4" FLOPPY DISK, TOSS REL 12.2. 
** 83-10-06/MAER  WSM SUPPORT OF DISK TYPES CLOSED AGAIN!!!!! 
**                (RESIGNERA...)
**                PTS-6964: ",FIX" ADDED. 
**                PTS-6973 NO MORE SUPPORTED (35 MB WINCH.) 
** 83-09-27/MAER  WSM SUPPORT OF DISK TYPES CLOSED AGAIN!!!!! 
**                (MAN UPPHOER ALDRIG ATT FOERVAANAS...)
** 83-09-27/MAER  CORRECTION OF CRV FOR DISKS WITH DVER (DISK VERSION). 
** 83-09-13/MAER  WSM SUPPORT OF DISK TYPES CLOSED. 
** 83-06-30/MAER  DISK TYPES 16 - 19 ADDED. 
** 83-05-11/MAER  CHANGED DECORATIONS.
** 82-07-26/DALI  NO OF FILES SET TO 1 IF 0 ENTERED, APPL=4 
** 81-11-04/DALI  CREATION
	EJECT

********************************************************************* 
* HOW TO ADD A NEW DISK TYPE IN WSM UTILITIES:                      * 
* 1. WUDIV, THE DATA DIVISION:                                      * 
*    CHANGE DMAX - HIGHEST VALID DISK TYPE NUMBER                   * 
*    CHANGE DTYPES - THE CONVERTED VALUE WHICH IS TRANSFERRED TO    * 
*                    TOSS UTILITIES IN THE PARAMETER BLOCK.         * 
* 2. WUCRV, THIS MODULE: CHANGE THE SCREEN FORMAT.                  * 
* 3. COMPILE: WUDIV AND WUCRV.                                      * 
* 4. CHECK THAT THE TOSSUT LOADMODULE UTL13D SUPPORTS THE NEW TYPE. * 
* 5. LINK A NEW LOAD MODULE IN USER WSM:LMU.                        * 
********************************************************************* 
	PDIV 
	ENTRY	WUCRV
* 
	EXPROC	DECLRA	CRE= SCREEN ROUTINE
	EXPROC	DECLRN	CRE= SCREEN ROUTINE
	EXPROC	DISERR
	EXPROC	DSKERR,PBIN 
	EXPROC	HALT
	EXT	CREVOL	ASS= CREATE VOLUME
	EJECT
WUCRV	PROC
********************* 
*  1  CREATE VOLUME * 
********************* 
CRV000
	ATTFMT	FCRV	UNIT & VOL-NAME
	SET	DEPROMPT 
CRV050
	PERF	DECLRA
CRV150
	IB	DEBINW2,CRV050,RETUR,CRV300 
	PERF	DSKERR,W0	'BELL'
	B	CRV150 
CRV300
	XCOPY	PBLOCK,W6,W1,W0,W0	SOP PANEL F.C.
	XCOPY	PBLOCK,W7,W1,FCOD,W1	FC4:DISK-FILE CODE
	XCOPY	PBLOCK,W8,W6,COPNAM,W0	VOLUME-NAME 
	MOVE	BIN1,RSIZE
	XCOPY	PBLOCK,W14,W2,BIN1,W0	VTOCR
	XCOPY	PBLOCK,W16,W1,DTYP,W1	DTYP 
	XCOPY	PBLOCK,W17,W1,W1,W1	APL
	XCOPY	PBLOCK,W19,W1,DTEST,W0 
	CBG	DTYP,W2,CRV325	SOME DISK TYPES REQUIRE 
	ATTFMT	FDVER	ALSO PACKED/UNPACKED INFORMATION! 
	SET	DEPROMPT 
CRV310
	PERF	DECLRA
	IB	DEBINW2,CRV310,RETUR,CRV325 
	PERF	DSKERR,W0	BELL
	B	CRV150 
CRV325
	XCOPY	PBLOCK,W18,W1,DVER,W1	DVER 
	ERASE	0,W1,W23 
	CALL	CREVOL,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD 
	CBE	RETCOD,W0,CRV400 
	CBG	RETCOD,W0,CRV350	BRANCH IF POSITIVE RET.CODE 
	ATTFMT	FCRV	NEG. RC => OPERATOR ABORTED ("N")
	SET	DEPROMPT 
	PERF	DECLRN	RE-DISPLAY WITH CURRENT DATA 
	B	CRV150 
CRV350	PERF	DISERR
	B	CRV150 
CRV400
	PERF	HALT
RETUR 
	RET
	PEND 
	EJECT
* 
FCRV	FRMT 
	FSL
	FATTR	.HIGH
	FATTR	.INV 
	FCOPY	=C'CREATE VOLUME'
	FNL
	FATTR	.HIGH
	FCOPY	=C'UNIT:'
	FKI	6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 
	FCOPY	INUNIT 
	FATTR	.HIGH
	FTAB	12
	FCOPY	=C'VOLUME-NAME:' 
	FINP	25
	FCOPY	VOLNAM 
	FNL
	FATTR	.HIGH
	FCOPY	=C'VOLUME-NAME:' 
	FKI	14,MINL=1,MAXL=6,ALPHA,ME,NEOI,REWRT,APPL=6,DUPL=VOLNAM
	FCOPY	COPNAM 
	FATTR	.HIGH
	FTAB	24
	FCOPY	=C'NO. OF FILES:'
	FKI	37,MINL=1,MAXL=3,ME,NEOI,REWRT,APPL=4
	FMEL	'TTX',RSIZE 
	FNL
	FATTR	.HIGH
	FTEXT	'TYPE:'
	FKI	7,MINL=1,MAXL=2,ME,APPL=13,NEOI
	FMEL	'TX',DTYPB
	FNL
	FATTR	.HIGH
	FILLR	' ',5
	FTEXT	'POSSIBLE TYPES -  1 = 1/4 MB FLEXIBLE DISK  (PTS-6867)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'-  2 =  0,7 MB FLEXIBLE DISK  (PTS-6792  5 1/4")' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'-  3 =    1 MB FLEXIBLE DISK  (PTS-6791)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'-  4 =    5 MB CARTRIDGE, FIX (PTS-6876)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'-  5 =   16 MB CARTRIDGE, FIX (PTS-6961, PTS-6962)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'-  6 =   16 MB CARTRIDGE, FIX (PTS-6964)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'-  7 = 12.8 MB WINCHESTER     (PTS-6794)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'-  8 = 26.7 MB WINCHESTER     (PTS-6794)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'-  9 =   35 MB WINCHESTER     (PTS-6793)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'- 10 =   35 MB WINCHESTER     (PTS-6963)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'- 11 =   70 MB WINCHESTER     (PTS-6793)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'- 12 =  188 MB WINCHESTER     (PTS-6793)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'- 13 =   80 MB CARTRIDGE, FIX (PTS-6877, PTS-6962)' 
	FNL
	FATTR	.HIGH
	FILLR	' ',20 
	FTEXT	'- 14 =   80 MB FIX            (PTS-6964)' 
	FNL	3
	FATTR	.HIGH
	FTEXT	'TEST:'
	FKI	6,MINL=1,MAXL=1,ME,NEOI,APPL=2,ALPHA 
	FCOPY	DTEST
	FATTR	.HIGH
	FTAB	20
	FTEXT	'I  MEANS INITIAL WRITE/READ-TEST OF ALL SECTORS'
	FNL
	FATTR	.HIGH
	FTAB	20
	FTEXT	'A  MEANS ADDITIONAL WRITE/READ-TEST OF ALL SECTORS' 
	FNL
	FATTR	.HIGH
	FTAB	20
	FTEXT	'Q  MEANS SUPRESSION OF TEST WRITING/READING'
	FNL
	FLINK	FHEX 
	FMEND
* 
FHEX	FRMT 
	FNL
	FKI	1,MINL=0,MAXL=0
	FCOPY	HEX00
	FMEND
* 
	EJECT
FDVER	FRMT
	FSL
	FATTR	.HIGH
	FKI	7,MINL=1,MAXL=1,ME,NEOI,APPL=17
	FMEL	'X',PACKED
	FATTR	.HIGH
	FTAB	12
	FCOPY	=C'ENTER DISK VERSION - 1 = UNPACKED'
	FNL
	FATTR	.HIGH
	FTAB	31
	FCOPY	=C'- 2 = PACKED' 
	FNL
	FLINK	FHEX 
	FMEND
	END