DataMuseum.dk

Presents historical artifacts from the history of:

Philips Data Systems

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Philips Data Systems

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦92bab3ed5⟧

    Length: 1848 (0x738)
    Notes: pts_type(SC)
    Names: »WUCVN.SC«

Derivation

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

PTS(SC)

	IDENT	WUCVN	REL=2.3,841001,870155940230
**************************************
*  WORK STATION MANAGEMENT           *
*  UTILITY PROGRAMS                  *
*  7  CHANGE VOLUME-NAME             *
*                                    *
**************************************
	DDUM	WUDIV 
	PDIV 
	ENTRY	WUCVN
* 
	EXPROC	DECLRA	CRE= SCREEN ROUTINE
	EXPROC	DERR	CRE= ERROR ROUTINE 
	EXPROC	DISERR
	EXPROC	DSKERR,PBIN 
	EXPROC	HALT
* 
	EXT	CHVOL	ASS= CHANGE VOLUME NAME
	EXT	CHANFC	ASS= CHANGE FILE-CODE 
	EJECT
WUCVN	PROC
************************* 
*  7 CHANGE VOLUME-NAME * 
************************* 
CVN000
	ATTFMT	FCHANGE 
	SET	DEPROMPT 
CVN100
	PERF	DECLRA
CVN150
	IB	DEBINW2,CVN100,RETUR,CVN300 
	PERF	DSKERR,W0	'BELL'
	B	CVN150 
CVN300
	CALL	CHANFC,DISK,FCOD
	CALL	CHVOL,DISK,SYSBUF,COPNAM,RETCOD 
	BOK	RETUR
	PERF	DISERR
	B	CVN150 
RETUR 
	RET
	PEND 
	EJECT
* 
FCHANGE	FRMT
	FSL
	FATTR	.HIGH
	FATTR	.INV 
	FCOPY	=C'CHANGE VOLUME-NAME' 
	FNL
	FATTR	.HIGH
	FCOPY	=C'UNIT:'
	FKI	6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 
	FCOPY	INUNIT 
	FATTR	.HIGH
	FTAB	20
	FCOPY	=C'VOLUME-NAME:' 
	FINP	33
	FCOPY	VOLNAM 
	FNL
	FATTR	.HIGH
	FCOPY	=C'NEW'
	FTAB	5 
	FCOPY	=C'VOLUME-NAME:' 
	FKI	19,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=6
	FCOPY	COPNAM 
	FLINK	FHEX 
	FMEND
FHEX	FRMT 
	FNL
	FKI	1,MINL=0,MAXL=0
	FCOPY	HEX00
	FMEND
* 
	END

HexDump

0x000…030 (0, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IDENT WUCVN REL=2.3,841001,870155940230«, t00=0x0000, t01=0x0004}
0x030…05e             Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0000, t01=0x0034}
0x05e…08c             Head {h00=0x002a, h01=0x0050, text=»*  WORK STATION MANAGEMENT           *«, t00=0x0000, t01=0x0062}
0x08c…0ba             Head {h00=0x002a, h01=0x0050, text=»*  UTILITY PROGRAMS                  *«, t00=0x0000, t01=0x0090}
0x0ba…0e8             Head {h00=0x002a, h01=0x0050, text=»*  7  CHANGE VOLUME-NAME             *«, t00=0x0000, t01=0x00be}
0x0e8…116             Head {h00=0x002a, h01=0x0050, text=»*                                    *«, t00=0x0000, t01=0x00ec}
0x116…144             Head {h00=0x002a, h01=0x0050, text=»**************************************«, t00=0x0000, t01=0x011a}
0x144…158             Head {h00=0x0010, h01=0x0050, text=» DDUM WUDIV «, t00=0x0000, t01=0x0148}
0x158…166             Head {h00=0x000a, h01=0x0050, text=» PDIV «, t00=0x0000, t01=0x015c}
0x166…17a             Head {h00=0x0010, h01=0x0050, text=» ENTRY WUCVN«, t00=0x0000, t01=0x016a}
0x17a…184             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017e}
0x184…1ae             Head {h00=0x0026, h01=0x0050, text=» EXPROC DECLRA CRE= SCREEN ROUTINE«, t00=0x0000, t01=0x0188}
0x1ae…1d6             Head {h00=0x0024, h01=0x0050, text=» EXPROC DERR CRE= ERROR ROUTINE «, t00=0x0001, t01=0x0022}
0x1d6…1ec             Head {h00=0x0012, h01=0x0050, text=» EXPROC DISERR«, t00=0x0001, t01=0x004a}
0x1ec…208             Head {h00=0x0018, h01=0x0050, text=» EXPROC DSKERR,PBIN «, t00=0x0001, t01=0x0060}
0x208…21c             Head {h00=0x0010, h01=0x0050, text=» EXPROC HALT«, t00=0x0001, t01=0x007c}
0x21c…226             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0090}
0x226…250             Head {h00=0x0026, h01=0x0050, text=» EXT CHVOL ASS= CHANGE VOLUME NAME«, t00=0x0001, t01=0x009a}
0x250…27a             Head {h00=0x0026, h01=0x0050, text=» EXT CHANFC ASS= CHANGE FILE-CODE «, t00=0x0001, t01=0x00c4}
0x27a…288             Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0001, t01=0x00ee}
0x288…29a             Head {h00=0x000e, h01=0x0050, text=»WUCVN PROC«, t00=0x0001, t01=0x00fc}
0x29a…2bc             Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0001, t01=0x010e}
0x2bc…2de             Head {h00=0x001e, h01=0x0050, text=»*  7 CHANGE VOLUME-NAME * «, t00=0x0001, t01=0x0130}
0x2de…300             Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0001, t01=0x0152}
0x300…30e             Head {h00=0x000a, h01=0x0050, text=»CVN000«, t00=0x0001, t01=0x0174}
0x30e…326             Head {h00=0x0014, h01=0x0050, text=» ATTFMT FCHANGE «, t00=0x0001, t01=0x0182}
0x326…33c             Head {h00=0x0012, h01=0x0050, text=» SET DEPROMPT «, t00=0x0002, t01=0x000a}
0x33c…34a             Head {h00=0x000a, h01=0x0050, text=»CVN100«, t00=0x0002, t01=0x0020}
0x34a…35e             Head {h00=0x0010, h01=0x0050, text=» PERF DECLRA«, t00=0x0002, t01=0x002e}
0x35e…36c             Head {h00=0x000a, h01=0x0050, text=»CVN150«, t00=0x0002, t01=0x0042}
0x36c…394             Head {h00=0x0024, h01=0x0050, text=» IB DEBINW2,CVN100,RETUR,CVN300 «, t00=0x0002, t01=0x0050}
0x394…3b2             Head {h00=0x001a, h01=0x0050, text=» PERF DSKERR,W0 'BELL'«, t00=0x0002, t01=0x0078}
0x3b2…3c4             Head {h00=0x000e, h01=0x0050, text=» B CVN150 «, t00=0x0002, t01=0x0096}
0x3c4…3d2             Head {h00=0x000a, h01=0x0050, text=»CVN300«, t00=0x0002, t01=0x00a8}
0x3d2…3f0             Head {h00=0x001a, h01=0x0050, text=» CALL CHANFC,DISK,FCOD«, t00=0x0002, t01=0x00b6}
0x3f0…41e             Head {h00=0x002a, h01=0x0050, text=» CALL CHVOL,DISK,SYSBUF,COPNAM,RETCOD «, t00=0x0002, t01=0x00d4}
0x41e…430             Head {h00=0x000e, h01=0x0050, text=» BOK RETUR«, t00=0x0002, t01=0x0102}
0x430…444             Head {h00=0x0010, h01=0x0050, text=» PERF DISERR«, t00=0x0002, t01=0x0114}
0x444…456             Head {h00=0x000e, h01=0x0050, text=» B CVN150 «, t00=0x0002, t01=0x0128}
0x456…464             Head {h00=0x000a, h01=0x0050, text=»RETUR «, t00=0x0002, t01=0x013a}
0x464…470             Head {h00=0x0008, h01=0x0050, text=» RET«, t00=0x0002, t01=0x0148}
0x470…47e             Head {h00=0x000a, h01=0x0050, text=» PEND «, t00=0x0002, t01=0x0154}
0x47e…48c             Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0162}
0x48c…496             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0170}
0x496…4aa             Head {h00=0x0010, h01=0x0050, text=»FCHANGE FRMT«, t00=0x0002, t01=0x017a}
0x4aa…4b6             Head {h00=0x0008, h01=0x0050, text=» FSL«, t00=0x0002, t01=0x018e}
0x4b6…4ca             Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0003, t01=0x000a}
0x4ca…4de             Head {h00=0x0010, h01=0x0050, text=» FATTR .INV «, t00=0x0003, t01=0x001e}
0x4de…504             Head {h00=0x0022, h01=0x0050, text=» FCOPY =C'CHANGE VOLUME-NAME' «, t00=0x0003, t01=0x0032}
0x504…510             Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0003, t01=0x0058}
0x510…524             Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0003, t01=0x0064}
0x524…53c             Head {h00=0x0014, h01=0x0050, text=» FCOPY =C'UNIT:'«, t00=0x0003, t01=0x0078}
0x53c…56e             Head {h00=0x002e, h01=0x0050, text=» FKI 6,MINL=3,MAXL=3,ME,ALPHA,NEOI,APPL=5 «, t00=0x0003, t01=0x0090}
0x56e…584             Head {h00=0x0012, h01=0x0050, text=» FCOPY INUNIT «, t00=0x0003, t01=0x00c2}
0x584…598             Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0003, t01=0x00d8}
0x598…5a8             Head {h00=0x000c, h01=0x0050, text=» FTAB 20«, t00=0x0003, t01=0x00ec}
0x5a8…5c8             Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'VOLUME-NAME:' «, t00=0x0003, t01=0x00fc}
0x5c8…5d8             Head {h00=0x000c, h01=0x0050, text=» FINP 33«, t00=0x0003, t01=0x011c}
0x5d8…5ee             Head {h00=0x0012, h01=0x0050, text=» FCOPY VOLNAM «, t00=0x0003, t01=0x012c}
0x5ee…5fa             Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0003, t01=0x0142}
0x5fa…60e             Head {h00=0x0010, h01=0x0050, text=» FATTR .HIGH«, t00=0x0003, t01=0x014e}
0x60e…624             Head {h00=0x0012, h01=0x0050, text=» FCOPY =C'NEW'«, t00=0x0003, t01=0x0162}
0x624…634             Head {h00=0x000c, h01=0x0050, text=» FTAB 5 «, t00=0x0003, t01=0x0178}
0x634…654             Head {h00=0x001c, h01=0x0050, text=» FCOPY =C'VOLUME-NAME:' «, t00=0x0003, t01=0x0188}
0x654…686             Head {h00=0x002e, h01=0x0050, text=» FKI 19,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=6«, t00=0x0004, t01=0x0018}
0x686…69c             Head {h00=0x0012, h01=0x0050, text=» FCOPY COPNAM «, t00=0x0004, t01=0x004a}
0x69c…6b0             Head {h00=0x0010, h01=0x0050, text=» FLINK FHEX «, t00=0x0004, t01=0x0060}
0x6b0…6be             Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0004, t01=0x0074}
0x6be…6d0             Head {h00=0x000e, h01=0x0050, text=»FHEX FRMT «, t00=0x0004, t01=0x0082}
0x6d0…6dc             Head {h00=0x0008, h01=0x0050, text=» FNL«, t00=0x0004, t01=0x0094}
0x6dc…6f8             Head {h00=0x0018, h01=0x0050, text=» FKI 1,MINL=0,MAXL=0«, t00=0x0004, t01=0x00a0}
0x6f8…70c             Head {h00=0x0010, h01=0x0050, text=» FCOPY HEX00«, t00=0x0004, t01=0x00bc}
0x70c…71a             Head {h00=0x000a, h01=0x0050, text=» FMEND«, t00=0x0004, t01=0x00d0}
0x71a…724             Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00de}
0x724…730             Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0004, t01=0x00e8}
0x730…738             40 04 00 00 00 04 00 f4                                                                                                                                                                                                                           ┆@       ┆

Reduced view