DataMuseum.dk

top - download

    Length: 6144 (0x1800)
    Types: TextFile
    Notes: RCSL-43-GL-10382, RCSL-43-GL-10383, RCSL-43-GL-10384
    Names: »SCATW«

└─⟦a59f0a452⟧ Bits:30000472 DOMUS disk image
    └─ ⟦this⟧ »/SCATW« 

TextFile

;						RCSL:	43-GL10383
;						AUTHOR:	JHA
;						DATE:	80.06.27
















;			CWDD0













; KEYWORDS:	MUS, CAT78, DISCDESCRIPTION, UNITDESCRIPTION,
;		AREAPROCESS, LISTING.
;
; ABSTRACT:	CAT78 UNITDESCRIPTION PROGRAM,
;		CONTENT:
;			UNIT0:	DKP0 (FIRST)
;			UNIT1:	DKP0 (SECOND)
;			UNIT2:	DKP0 (THIRD)
;			UNIT3:	DKP0 (FOURTH)
;)			UNIT8:	FD0 (FIRST)
;			UNIT9:	FD0 (SECOND)
;			UNIT10:	MD0 (FIRST)
;
; NOTE:		THIS CATW PROGRAM MUST BE USED TOGETHER WITH
;		THE NEW CATALOG SYSTEM ( CAT10 OR CATI9 ). THE PRO-
;		GRAM WILL NOT WORK TOGETHER WITH THE OLD CATALOG
;		SYSTEM.
;
; ASCII PAPERTAPE:	RCSL:	43-GL10382
; REL. BIN. TAPE:	RCSL:	43-GL10384
«ff»
; CAT78, DISCDESCRIPTION, 78.05.10			PAGE 001
;
.TITL	CATW		    ;
.NREL			    ;
.TXTM	1		    ;
.RDX	10		    ;
;
			    ; PROGRAM:
DW0:	1B0+1B1+1	    ;   SPEC
	DW5		    ;   START
	0		    ;   CHAIN
	DW5-DW0		    ;   SIZE
.TXT	.CATW<0>.	    ;   NAME
DW1:	DW5		    ; FIRST AREAPROCESS
	DW5		    ; TOP AREAPROCESS
			    ;
DW51:	DHEAD-2		    ; HEAD(KITDESCRIPTION):
DHEAD:	DK0		    ; HEAD.CHAIN:
«ff»
; CAT78, DISCDESCRIPTION, 78.08.08			PAGE 002
			    ;
DK0:			    ; UNIT0:
	DKP0		    ;   REF(DRIVER PROCESS):
	0		    ;   UNIT NUMBER:
	DK1		    ;   CHAIN TO NEXT UNIT:
	DK1-DK0		    ;   SIZE
.TXT	.UNIT<0>.	    ;   CATALOG NAME:
DKP0:	.TXT	.DKP0<0>.   ;   OPTIONAL:
	0		    ;   KITDISPLACEMENT:
	0		    ;   - - - - - - - -
	.BLK	8	    ;   UNIT WORK (8 WORDS)
			    ;
DK1:		 	    ; UNIT1:
	DKP0		    ;   REF(DRIVER PROCESS):
	1		    ;   UNIT NUMBER:
	DK2		    ;   CHAIN TO NEXT UNIT:
	DK2-DK1		    ;   SIZE
.TXT	.UNIT<1>.	    ;   CATALOG NAME:
	.TXT	.DKP0<0>.   ;   OPTINAL:
	0		    ;   KITDISPLACEMENT:
	4872*1		    ;   - - - - - - - -
	.BLK	8	    ;   UNIT WORK (8 WORDS)
			    ;
DK2:			    ; UNIT2:
	DKP0		    ;   REF(DRIVER PROCESS):
	2		    ;   UNIT NUMBER:
	DK3		    ;   CHAIN TO NEXT UNIT:
	DK3-DK2		    ;   SIZE
.TXT	.UNIT<2>.	    ;   CATALOG NAME:
	.TXT	.DKP0<0>.   ;   OPTIONAL:
	0		    ;   KITDISPLACEMENT:
	4872*2		    ;   - - - - - - - -
	.BLK	8	    ;   UNIT WORK (8 WORDS)
«ff»
; CAT78, DISCDESCRIPTION, 80.06.27			PAGE 003
			    ;
DK3:			    ; UNIT3:
	DKP0		    ;   REF(DRIVER PROCESS):
	3		    ;   UNIT NUMBER:
	DK8		    ;   CHAIN TO NEXT UNIT:
	DK4-DK3		    ;   SIZE
.TXT	.UNIT<3>.	    ;   CATALOG NAME:
	.TXT	.DKP0<0>.   ;   OPTIONAL:
	0		    ;   KITDISPLACEMENT:
	4872*3		    ;   - - - - - - - -
	.BLK	8	    ;   UNIT WORK(8 WORDS)
DK4:

DK8:			    ; UNIT8:
	FD0		    ;	REF(DRIVER PROCESS):
	8		    ;	UNIT NUMBER:
	DK9		    ;	CHAIN TO NEXT UNIT:
	DK9-DK8		    ;	SIZE:
	.TXT	.UNIT<8>.   ;	CATALOG NAME:
FD0:	.TXT	.FD0<0><0>. ;	OPTIONAL:
	0		    ;	KITDISPLACEMENT:
	16		    ;	- - - - - - - -
	.BLK	8	    ;	UNIT WORK (8 WORDS)

DK9:			    ; UNIT9:
	FD0		    ;	REF(DRIVER PROCESS):
	9		    ;	UNIT NUMBER:
	DK10		    ;	CHAIN TO NEXT UNIT:
	DK10-DK9	    ;	SIZE:
	.TXT	.UNIT<9>.   ;	CATALOG NAME:
	.TXT	.FD0<0><0>. ;	OPTIONAL:
	1		    ;	KITDISPLACEMENT:
	16		    ;	- - - - - - - -
	.BLK	8	    ;	UNIT WORK (8 WORDS)

«ff»
; CAT78, DISCDESCRIPTION, 80.06.27		PAGE 004

DK10:			    ; UNIT10:
	MD0		    ;	REF(DRIVER PROCESS):
	10		    ;	UNIT NUMBER:
	0		    ;	CHAIN TO NEXT UNIT:
	DK11-DK10	    ;	SIZE:
	.TXT	.UNIT<10>.  ;	CATALOG NAME:
MD0:	.TXT	.MD0<0><0>. ;	OPTIONAL:
	0		    ;	KITDISPLACEMENT:
	0		    ;	- - - - - - - -
	.BLK	8	    ;	UNIT WORK (8 WORDS)

DK11:
«ff»
; CAT78, DISCDESCRIPTION, 78.05.10			PAGE 005
;
CATWADR=RESERVER+15		    ;
DW5:			    ; PROCESS:
	0		    ;   NEXT
	0		    ;   PREV
	0		    ;   CHAIN
	DW6-DW5		    ;   SIZE
.TXT	.CATW<0>.	    ;   NAME
	DW5+EVENT	    ;   FIRST EVENT
	DW5+EVENT	    ;   LAST EVENT
	DW7		    ;   BUFFER
	DW0		    ;   PROGRAM
	0		    ;   STATE
	0		    ;   TIMER
	-1		    ;   PRIORITY
	DW4		    ;   BREAK ADDRESS
	DW5		    ;   AC0
	0		    ;   AC1
	DW5		    ;   AC2
	0		    ;   AC3
	DW4*2		    ;   PSW
	0		    ;   SAVE
	0		    ;   BUF
	0		    ;   ADDRESS
	0		    ;   COUNT
	0		    ;   RESERVER
	0		    ;   FATTR
	0		    ;   FLENGTH
	0		    ;   FSEGI
	0		    ;   FRESER
«ff»
; CAT78, DISCDESCRIPTION, 78.05.10			PAGE 006
;
	0		    ;   CATALOG SLICE
	0		    ;   MODE
	0		    ;   LINK1
	0		    ;   LINK2
	0		    ;   LINK3
	0		    ;   LINK4
	0		    ;   SAVE1
	0		    ;   SAVE2
	0		    ;   SAVE3
	0		    ;   SAVE4
	0		    ;   WORK1
	0		    ;   WORK4
	0		    ;   WORK SEGMNO(WSEGM)
	0		    ;   SAVE SEGMNO(SSEGM)
DW4:	LDA    2   CUR      ;   NEXT POSITION ENTRY
	LDA    0   PROCESS  ;   FIRST POSITION ENTRY
	LDA    1   AREAP    ;   - - - - - - - - - -
	RECHAIN             ;   - - - - - - - - - -
DW40:	LDA    1   PROCESS  ;   SECOND POSITION ENTRY
	LDA    2   DW50     ;   - - - - - - - - - - -
	SEARCHITEM          ;   - - - - - - - - - - -
	MOV    2,2 SNR      ;   THIRD POSITION ENTRY
	JMP        DW40     ;   - - - - - - - - - -
	LDA@   0   .DW51    ;   - - - - - - - - - -
	STA    0   CATWADR,2;   EXCL WRITER
	LDA    2   CUR      ;   NO OF USERS
	STOPPROCESS         ;   FIRST USER ENTRY
DW50:	.+1		    ;   - - - - - - - -
.TXT	.CAT<0><0>.	    ;   - - - - - - - -
			    ;   SECOND USER ENTRY
			    ;   - - - - - - - - -
.DW51:	DW51		    ;   - - - - - - - - -
	0		    ;   THIRD USER ENTRY
	0		    ;   - - - - - - - -
	0		    ;   - - - - - - - -
			    ;
DW7:			    ; MESSAGE BUFFER:
	DW7		    ;   NEXT
	DW7		    ;   PREV
	0		    ;   CHAIN
	BSIZE		    ;   SIZE
	DW5		    ;   SENDER
	0		    ;   RECEIVER
	0		    ;   MESS0:	OPERATION	STATUS
	0		    ;   MESS1:	COUNT		COUNT
	0		    ;   MESS2:	ADDRESS		FILE
	0		    ;   MESS3:	BLOCKNO		BLOCKNO
			    ;
DW6:
;
.END	DW5
«ff»
«nul»