;
; GENERAL DEVICE HANDLER
;
; 00.00 04/08/78 RLR
; 00.01 05/16/78 RLR
; 00.02 05/24/78 RLR
; 02.28 10/04/80 KRS NEW CALL LOGIC
; 02.36 10/18/81 DEW NEWER CALL LOGIC: no pushes/pops
;			       Vector generator moved to CPLOAD
; 02.37 02/??/82 krs MAKD JUMP VECTOR 'REAL'
;
	NAM	dev237
;
; DEFINES ALL SYSTEM DEVICES
;
	ENT	CINIT,C0STAT,C0IND,CRDY,C0OUTD		;02.37
	ENT	CSET,CIN,COUT
	ENT	RINIT,RSTAT,R0IN			;02.37
	ENT	PINIT,PRDY,P0OUT			;02.37
	ENT	LINIT,L0RDY,L0OUT			;02.37
	ENT	SCLK,RDCLK,CLKCB,clkcb3			;02.36
;
; STANDARD ROUTINES
;
CINIT:	jmp	0
	jmp	0
C0STAT	EQU	$-2		;02.37
	jmp	0
C0IND	EQU	$-2		;02.37
CRDY:	jmp	0
	jmp	0
C0OUTD	EQU	$-2		;02.37
;
CSET:	jmp	0
CIN:	jmp	0
COUT:	jmp	0
;
RINIT:	jmp	0
RSTAT:	jmp	0
	jmp	0
R0IN	EQU	$-2		;02.37
;
PINIT:	jmp	0
PRDY:	jmp	0
	jmp	0
P0OUT	EQU	$-2		;02.37
;
LINIT:	jmp	0
	jmp	0
L0RDY	EQU	$-2		;02.37
	jmp	0
L0OUT	EQU	$-2		;02.37
;
SCLK:	jmp	0
RDCLK:	jmp	0
;
CLKCB:	DB	0,0,0,0,0,0	; CLK CTRL BLK
CLKCB3	EQU	CLKCB+3
;
	END
