DataMuseum.dk

top - metrics - download

    Length: 14396 (0x383c)
    Notes: pts_type(SC)
    Names: »DEINIT.SC«

└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
    └─⟦this⟧ »S:DU/DEINIT.SC« 
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
    └─⟦this⟧ »S:DU/DEINIT.SC« 
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
    └─⟦this⟧ »S:DU/DEINIT.SC« 

PTS(SC)

	IDENT	DEINIT	UPD 80-03-31/CHST 
**************************************
*  PTS DATA-ENTRY UTILITIES          *
*  1  CREATE VOLUME                  *
*  2  CREATE FILE                    *
*  3  DELETE FILE                    *
*  4  COPY SYSFIL (REORGANIZE)       *
*  5  NOT USED                       *
*  6  COPY SYSVOL TO SYSVOL          *  NOT USED
*  7  CHANGE VOLUME-NAME             *
*  8  VOLUME-SURVEY                  *
*                                    *
*  USER = S:DU                       *
**************************************
	DDUM	DDINIT
	PDIV 
	ENTRY	START
	ENTRY	CLOFIL 
	ENTRY	CHVNAM 
* 
	EXT	DECLRA 
	EXT	DSKERR 
	EXT	REORGS 
	EXT	CRESUD 
	EXT	REC1 
	EXT	REC2 
	EXT	RECSYS 
* 
	EXT	CREVOL 
	EXT	DELFIL 
	EXT	COPYDD 
	EXT	CHANFC 
	EXT	CHVOL
	EXT	SURVEY 
	EXT	OPENF
	EXT	CLOSEF 
* 

ENT	EQU	X'8C'	ENTER 
* 
KTABEN	KTAB	ENT 
	EJECT
START 
	ATTFMT	FPROG 
	SET	DEPROMPT 
CANC1 
	PERF	DECLRA
	IB	DEBINW2,CANC1,START,C02 
	B	C12
C02 
	MOVE	VOLNAM,=X'00' 
	MOVE	COPNAM,=X'17' 
	MOVE	FVOLNAME(W3),COPNAM 
	MOVE	PBLOCK,=X'20' 
	MOVE	BIN1,=X'50' 
	XCOPY	PBLOCK,W5,W1,BIN1,W1	PRINT-DEVICE
* 
	MOVE	BIN1,PRNUM
* 
*      BIN1 = 1, CREATE VOLUME
*             2, CREATE FILE
*             3, DELETE FILE
*             4, COPY SYSFIL
*             5, NOT USED 
*             6, NOT USED 
*             7, CHANGE VOLUME NAME 
*             8, VOLUME SURVEY
*             9, NOT USED 
	IB	BIN1,C100,C20,C30,C40,C06,C06,C70,C80 
C06 
	B	START
	EJECT
******************
*  CREATE VOLUME
******************
C100
	ATTFMT	FCRV	UNIT & VOL-NAME
	SET	DEPROMPT 
CANC10
	PERF	DECLRA
	IB	DEBINW2,CANC10,START,C10
C12 
	PERF	DSKERR,W0	'BELL'
	B	START
C10 
	XCOPY	PBLOCK,W7,W1,FCOD,W1	DISK-FILE CODE
	XCOPY	PBLOCK,W8,W6,VOLNAM,W0	VOLUME-NAME 
	XCOPY	PBLOCK,W14,W2,W6,W0	VTOCR
	XCOPY	PBLOCK,W16,W1,DEBIN3,W1	DTYP 
	XCOPY	PBLOCK,W17,W1,W1,W1	APL
	XCOPY	PBLOCK,W18,W1,DEBIN2,W1	DVER 
	ERASE	0,W1,W17 
	CALL	CREVOL,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD 
	PERF	HALT
	CBE	RETCOD,W0,START
	CBE	RETCOD,W2,ERR19
	CBE	RETCOD,W3,ERR19
ERR3
	PERF	DSKERR,W3	'I/O-ERROR' 
	B	START
ERR19 
	PERF	DSKERR,W19	'DISK NOT USABLE'
	B	START
	EJECT
***************** 
*  CREATE FILES * 
***************** 
C20 
	ATTFMT	FCRF
	SET	DEPROMPT 
CANC20
	PERF	DECLRA
	IB	DEBINW2,CANC20,START,C21
	B	C12
C21 
	PERF	CRESUD	CREATE SYSTEM-,USER
			OR DC-FILE 
	CBE	DEBINW4,W99,START	IF ERROR OR RETURN-KEY 
	CBE	RETCOD,W3,ERR10
	CBE	RETCOD,W7,ERR7 
	CBNE	RETCOD,W0,ERR32	'I/O-ERROR' 
	CBE	FTYPE,=D'3',C22	IF UD-FILE 
	CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,COPNAM
	BNOK	ERR32 
	PERF	REC2
	PERF	REC1
*       IF SYSFIL  =>   WRITE REC  3,4,5,7
*       IF USERFIL =>   WRITE REC  3
	PERF	RECSYS
	MOVE	BIN2,NOREC
	CBE	FTYPE,=D'1',C210	BRANCH IF SYSFIL
	MOVE	BIN1,BLFACT 
	MUL	BIN2,BIN1
C210
	CALL	CLOSEF,DISK,FILECODE(W1),SYSBUF,BIN2
C22 
	PERF	CHVNAM,VOLNAM	CHANGE TO ORIG.VOL-NAME 
	B	START
* 
* 
ERR32 
	PERF	DSKERR,W3	'I/O-ERROR' 
	B	ERR90
ERR7
	PERF	DSKERR,W7	'FILENAME ALREADY USED' 
	B	ERR90
ERR10 
	PERF	DSKERR,W10	'DISK OVERFLOW'
ERR90 
	PERF	CLOFIL
	PERF	CHVNAM,VOLNAM	CHANGE TO ORIG.VOL-NAME 
	B	START
	EJECT
************************
*  CHANGE VOLUME-NAME  *
************************
CHVNAM	PROC	VOLYM 
	PERF	CHFCOD,FCOD 
	CALL	CHVOL,DISK,SYSBUF,VOLYM 
	RET
	PEND 
**********************
*  CHANGE FILE-CODE  *
**********************
CHFCOD	PROC	FC
	CALL	CHANFC,DISK,FC
	RET
	PEND 
****************
*  CLOSE FILE  *
****************
CLOFIL	PROC 
	CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,W0
	CALL	CLOSEF,DISK,FILECODE(W2),SYSBUF,W0
	CALL	CLOSEF,DISK,FILECODE(W3),SYSBUF,W0
	RET
	PEND 
	EJECT
****************
*  DELETE FILE
****************
C30 
	ATTFMT	FDEL
	SET	DEPROMPT 
CANC30
	PERF	DECLRA
	IB	DEBINW2,CANC30,START,C32
	B	C12
C32 
	CBE	FTYPE,=D'3',C36	IF USERDEFINED FILE
	MOVE	FILNAM,USEFIL 
	CBE	FTYPE,=D'2',C36A	IF USERFILE 
	MOVE	FILNAM,SYSFIL 
	B	C36A 
C36 
	ATTFMT	DUF 
	SET	DEPROMPT 
CANC36
	PERF	DECLRA
	IB	DEBINW2,CANC36,CANC30,C36A
	B	C12
C36A
************************* 
*  CHANGE VOLUME-NAME   * 
*  TO:X'171717171717'   * 
************************* 
	PERF	CHVNAM,COPNAM 
	XCOPY	PBLOCK,W7,W1,FCOD,W1	DISK-FILE CODE
	MOVE	STR1A,=C'S' 
	XCOPY	PBLOCK,W6,W1,STR1A,W0	F.ORG='S'
	XCOPY	PBLOCK,W8,W8,FILNAM,W0	FILE-NAME 
	XCOPY	PBLOCK,W16,W6,COPNAM,W0	VOL-NAME 1 
	ERASE	0,W1,W6
	PERF	CLOFIL
	CALL	DELFIL,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD 
	IB	RETCOD		C 
		ERR33,ERR33,C37,C37		C
		ERR33 
C37 
	PERF	CHVNAM,VOLNAM	CHANGE TO ORIG.VOL-NAME 
	CBE	RETCOD,W3,ERR12
	B	START
* 
* 
ERR33 
	PERF	CHVNAM,VOLNAM	CHANGE TO ORIG.VOL-NAME 
	PERF	DSKERR,W3	'I/O-ERROR' 
	B	START
ERR12 
	PERF	DSKERR,W12	'FILE NAME UNKNOWN'
	B	START
	EJECT
******************************
*  COPY SYSFIL (REORGANIZE)  *
******************************
C40 
	ATTFMT	FCOPS	INP.+OUTP. UNIT NO. 
	SET	DEPROMPT 
CANC40
	PERF	DECLRA
	IB	DEBINW2,CANC40,START,C41
	B	C12
C41 
************************* 
*  CHANGE VOLUME-NAME   * 
*  TO:X'171717171717'   * 
************************* 
	ATTFMT	COPYS	WHOLE FILE ?
	SET	DEPROMPT 
CANC41
	PERF	DECLRA
	IB	DEBINW2,CANC41,START,C44
	B	C12
C44 
	PERF	CHVNAM,COPNAM 
	MOVE	COPY,=X'00' 
	PERF	REORGS
	B	START
	EJECT
*************************** 
*  COPY SYSVOL TO SYSVOL  * 
*************************** 
C60 
	ATTFMT	FCOPY 
	SET	DEPROMPT 
CANC60
	PERF	DECLRA
	IB	DEBINW2,CANC60,START,C62
	B	C12
C62 
	XCOPY	PBLOCK,W8,W6,SYSVOL,W0	INPUT  VOLUME 
	XCOPY	PBLOCK,W14,W6,SYSVOL,W0	OUTPUT VOLUME
	XCOPY	PBLOCK,W21,W1,W0,W1	NO REORG.
* 
	CALL	COPYDD,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD 
	CBE	RETCOD,W4,ERR8 
	CMP	RETCOD,W0
	BNE	ERR3 
	B	START
ERR8
	PERF	DSKERR,W8	'OUTPUT DISK NOT EMPTY' 
	B	START
	EJECT
*********************** 
*  CHANGE VOLUME-NAME  *
*********************** 
C70 
	ATTFMT	FCHANGE 
	SET	DEPROMPT 
C72 
	PERF	DECLRA
	IB	DEBINW2,C72,START,C74 
	B	C12
C74 
	PERF	CHVNAM,STR6A
	B	START
	EJECT
******************* 
*  VOLUME SURVEY  * 
******************* 
C80 
	ATTFMT	FSURVEY 
	SET	DEPROMPT 
C81 
	PERF	DECLRA
	IB	DEBINW2,C81,START,C82 
	B	C81
C82 
	MOVE	BIN1,=X'50' 
	XCOPY	PBLOCK,W6,W1,BIN1,W1	PRINT-DEVICE
	XCOPY	PBLOCK,W7,W1,FCOD,W1	DISK-FILE-CODE
	CALL	SURVEY,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD 
	PERF	HALT
	CBE	RETCOD,W1,ERR18
	CMP	RETCOD,W0
	BNE	ERR3 
	B	START
ERR18 
	PERF	DSKERR,W18	'DISK NOT OPERABLE'
	B	START
	EJECT
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 
	CBNE	BIN2,W1,H10 
	RET
	PEND 
	EJECT
FPROG	FRMT
	FSL
	FCOPY	=C'PTS DATA-ENTRY UTILITIES  REL 10.0' 
	FNL
	FCOPY	=C'PROGRAM:' 
	FKI	9,MINL=1,MAXL=1,ME,NEOI,REWRT,APPL=7 
	FMEL	'X',PRNUM 
	FNL
	FCOPY	=C'1 ='
	FTAB	5 
	FCOPY	=C'CREATE VOLUME'
	FNL
	FCOPY	=C'2 ='
	FTAB	5 
	FCOPY	=C'CREATE FILE'
	FNL
	FCOPY	=C'3 ='
	FTAB	5 
	FCOPY	=C'DELETE' 
	FTAB	12
	FCOPY	=C'FILE' 
	FNL
	FCOPY	=C'4 ='
	FTAB	5 
	FCOPY	=C'COPY SYSFIL'
	FNL
	FCOPY	=C'5 ='
	FTAB	5 
	FCOPY	=C'NOT USED' 
	FNL
	FCOPY	=C'6 ='
	FTAB	5 
	FCOPY	=C'NOT USED' 
	FNL
	FCOPY	=C'7 ='
	FTAB	5 
	FCOPY	=C'CHANGE VOLUME-NAME' 
	FNL
	FCOPY	=C'8 ='
	FTAB	5 
	FCOPY	=C'VOLUME SURVEY'
	FNL
	FCOPY	=C'9 ='
	FTAB	5 
	FCOPY	=C'NOT USED' 
	FMEND
* 
FCRV	FRMT 
	FSL
	FCOPY	=C'CREATE VOLUME'
	FNL
	FCOPY	=C'UNIT: U'
	FKI	8,MINL=1,MAXL=1,ME,NEOI,APPL=8 
	FCOPY	UNIT 
	FTAB	12
	FCOPY	=C'VOLUME-NAME:' 
	FINP	25
	FCOPY	VOLNAM 
	FNL
	FCOPY	=C'VOLUME-NAME:' 
	FKI	14,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=14 
	FCOPY	VOLNAM	VOLUME-NAME 
	FNL
	FTEXT	'TYPE:'
	FKI	7,MINL=1,MAXL=1,ME,APPL=13,NEOI
	FMEL	'X',ACK(W1) 
	FNL
	FLINK	FHEX 
	FNL
	FILLR	' ',5
	FTEXT	'POSSIBLE TYPES - 1 (PTS-6875)  2.5 MB PACKED' 
	FNL
	FILLR	' ',20 
	FTEXT	'- 2 (PTS-6875)  2.5 MB UNPACKED'
	FNL
	FILLR	' ',20 
	FTEXT	'- 3 (PTS-6876)  5   MB PACKED'
	FNL
	FILLR	' ',20 
	FTEXT	'- 4 (PTS-6876)  5   MB UNPACKED'
	FNL
	FILLR	' ',20 
	FTEXT	'- 5 (PTS-8863)  MINI FIX DISC'
	FNL
	FILLR	' ',20 
	FTEXT	'- 6 (PTS-6877)  80  MB' 
	FNL
	FILLR	' ',20 
	FTEXT	'- 7 VACANT' 
	FNL
	FILLR	' ',20 
	FTEXT	'- 8 (PTS-6879)  0.25MB FLEXIBLE DISC' 
	FNL
	FILLR	' ',20 
	FTEXT	'- 9 (PTS-    )  1   MB FLEXIBLE DISC' 
	FMEND
* 
FCOPS	FRMT
	FSL
	FCOPY	=C'COPY SYSFIL'
	FLINK	FIO
	FMEND
* 
FCOPU	FRMT
	FSL
	FCOPY	=C'COPY USERFIL' 
	FLINK	FIO
	FMEND
* 
COPYS	FRMT
	FSL
	FCOPY	=C'WHOLE FILE ?  Y/N:' 
	FKI	19,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1
	FCOPY	COPY 
	FLINK	FHEX 
	FMEND
* 
FCOPY	FRMT
	FSL
	FCOPY	=C'COPY SYSVOL TO SYSVOL'
	FLINK	FIO
	FMEND
* 
FIO	FRMT
	FNL
	FCOPY	=C'INPUT'
	FTAB	7 
	FCOPY	=C'UNIT : U' 
	FKI	15,MINL=1,MAXL=1,ME,NEOI,APPL=9
	FCOPY	UNIT 
	FTAB	20
	FCOPY	=C'VOLUME-NAME:' 
	FINP	33
	FCOPY	VOLNAM 
	FNL
	FCOPY	=C'OUTPUT' 
	FTAB	8 
	FCOPY	=C'UNIT : U' 
	FKI	16,MINL=1,MAXL=1,ME,NEOI,APPL=10 
	FCOPY	STR1A
	FTAB	20
	FCOPY	=C'VOLUME-NAME:' 
	FINP	33
	FCOPY	VOLNAM 
	FLINK	FHEX 
	FMEND
* 
FCHANGE	FRMT
	FSL
	FCOPY	=C'CHANGE VOLUME-NAME' 
	FNL
	FCOPY	=C'UNIT : U' 
	FKI	9,MINL=1,MAXL=1,ME,NEOI,APPL=9 
	FCOPY	UNIT 
	FTAB	20
	FCOPY	=C'VOLUME-NAME:' 
	FINP	33
	FCOPY	VOLNAM 
	FNL
	FCOPY	=C'NEW'
	FTAB	5 
	FCOPY	=C'VOLUME-NAME:' 
	FKI	19,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=14 
	FCOPY	STR6A
	FLINK	FHEX 
	FMEND
* 
FCRF	FRMT 
	FSL
	FCOPY	=C'CREATE FILE'
	FLINK	FFILE
	FMEND
* 
FDEL	FRMT 
	FSL
	FCOPY	=C'DELETE' 
	FTAB	8 
	FCOPY	=C'FILE' 
	FLINK	FFILE
	FMEND
* 
FFILE	FRMT
	FNL
	FCOPY	=C'UNIT: U'
	FKI	8,MINL=1,MAXL=1,ME,NEOI,APPL=5 
	FCOPY	UNIT 
	FTAB	12
	FCOPY	=C'VOLUME-NAME:' 
	FINP	25
	FCOPY	VOLNAM 
	FNL
	FCOPY	=C'FILE' 
	FTAB	5 
	FCOPY	=C':'
	FKI	6,MINL=1,MAXL=1,ME,NEOI,REWRT,APPL=2	FILE-TYPE 
	FMEL	'X',FTYPE 
	FNL
	FCOPY	=C'1 ='
	FTAB	5 
	FCOPY	=C'SYSTEM' 
	FTAB	11
	FCOPY	=C'FILE' 
	FNL
	FCOPY	=C'2 ='
	FTAB	5 
	FCOPY	=C'USER' 
	FTAB	9 
	FCOPY	=C'FILE' 
	FNL
	FCOPY	=C'3 ='
	FTAB	5 
	FCOPY	=C'USERDEFINED'
	FTAB	17
	FCOPY	=C'FILE' 
	FLINK	FHEX 
	FMEND
* 
DUF	FRMT
	FSL
	FCOPY	=C'DELETE' 
	FTAB	8 
	FCOPY	=C'USERDEFINED'
	FTAB	20
	FCOPY	=C'FILE' 
	FNL
	FCOPY	=C'FILE' 
	FTAB	5 
	FCOPY	=C'NAME:'
	FKI	11,MINL=1,MAXL=8,ALPHA,ME,NEOI,APPL=6
	FCOPY	FILNAM 
	FLINK	FHEX 
	FMEND
* 
FSURVEY	FRMT
	FSL
	FCOPY	=C'VOLUME SURVEY'
	FNL
	FCOPY	=C'UNIT: U'
	FKI	8,MINL=1,MAXL=1,ME,NEOI,APPL=8 
	FCOPY	UNIT 
	FTAB	12
	FCOPY	=C'VOLUME-NAME:' 
	FINP	25
	FCOPY	VOLNAM 
	FLINK	FHEX 
	FMEND
* 
FHALT	FRMT
	FSL
	FCOPY	=C'PRESS ENT TO CONTINUE'
	FMEND
* 
FHEX	FRMT 
	FNL
	FKI	1,MINL=0,MAXL=0
	FCOPY	HEX00
	FMEND
* 
	END