.title	a

	$CRBDEF
	$DDBDEF
	$DYNDEF
	$IODEF
	$IPLDEF
	$IRPDEF
	$PCBDEF
	$PHDDEF
	$PRDEF
	$UCBDEF
	$VCBDEF
	$VECDEF

ssucb_k_length = 138
ss_k_devtype = 10
ss_k_def_bufsiz = 65535

	dptab -
		adapter = uba, -
		ucbsize = ssucb_k_length, -
		name = SSDRIVER

	dpt_store INIT
	dpt_store ucb, ucb$b_fipl, B, 8
	dpt_store ucb, ucb$b_dipl, B, 21
	dpt_store ucb, ucb$l_devchar, L, <dev$m_rtm ! dev$m_idv ! dev$m_odv ! dev$m_avl>
	dpt_store ucb, ucb$b_devclass, B, dc$_realtime
	dpt_store ucb, ucb$b_devtype, B, ss_k_devtype
	dpt_store ucb, ucb$w_devbufsiz, W, ss_k_def_bufsiz
	dpt_store REINIT
	dpt_store ddb, ddb$l_ddt, D, ss$ddt
	dpt_store crb, crb$l_intd+4, D, ss_devint
	dpt_store crb, vec$l_unitinit+crb$l_intd, D, ss_unit_init
	dpt_store END

	DDTAB	-
		DEVNAM = ss,-			; Driver Name
		CANCEL= cancel,-		; Cancel I/O routine
		FUNCTB = functable		; Function Decision Table Address

FUNCTABLE:				; FUNCTION DECISION TABLE
	FUNCTAB	,-			; LEGAL FUNCTIONS
		<READVBLK,-		; Read virtual block
		 READLBLK,-		; Read virtual block
		 READPBLK,-		; Read virtual block
		 WRITEVBLK,-		; Write virtual block
		 WRITELBLK,-		; Write virtual block
		 WRITEPBLK,-		; Write virtual block
		 SETMODE>		; Set mode

	FUNCTAB	,-			; BUFFERED I/O FUNCTIONS
		<READVBLK,-		; Read virtual block
		 READLBLK,-		; Read virtual block
		 READPBLK,-		; Read virtual block
		 WRITEVBLK,-		; Write virtual block
		 WRITELBLK,-		; Write virtual block
		 WRITEPBLK,-		; Write virtual block
		 SETMODE>		; Set mode


	FUNCTAB	READ_FDT,-
		 <READLBLK, -
		 READPBLK>

	FUNCTAB	WRITE_FDT,-		; Write logical block
		 <WRITELBLK, -
		 WRITEPBLK>

	FUNCTAB SETMODE_FDT, -		; SET MODE
		<SETMODE>

cancel:		.word	0
		movzbl	#1,r0
		ret
read_fdt:	.word	0
		movzbl	#1,r0
		ret
write_fdt:	.word	0
		movzbl	#1,r0
		ret
setmode_fdt:	.word	0
		movzbl	#1,r0
		ret
ss_unit_init:	.word	0
		movzbl	#1,r0
		ret
ss_devint:	.word	0
		movzbl	#1,r0
		ret


	.END ss_unit_init