;
; GENERAL DEVICE HANDLER
;
; 	REV 00.00 4/8/78 RLR
;	REV 00.01 5/16/78 RLR
;	REV 00.02 5/24/78 RLR
;	REV 02.28 10/4/80 KRS NEW CALL LOGIC
;	rev 02.36 10/18/81 DEW NEWER CALL LOGIC: no pushes/pops
;			       Vector generator moved to CPLOAD
;	rev 02.37 2/82	krs MAKD JUMP VECTOR 'REAL'
;       rev 02.41 10/29/82 blc ROMable version.
;
	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
;
        ram                     ;02.41
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
