; vbios for VAX based CP/M
MSIZE	EQU	64
BIAS	EQU	(MSIZE-20)*1024
CCP	EQU	3400H+BIAS
BDOS	EQU	CCP+806H
BIOS	EQU	CCP+1600H
;
	ORG	BIOS
	JMP	BOOT
WBOOTE:	JMP	WBOOT
	JMP	CONST
	JMP	CONIN
	JMP	CONOUT
	JMP	LIST
	JMP	PUNCH
	JMP	READER
	JMP	HOME
	JMP	SELDSK
	JMP	SETTRK
	JMP	SETSEC
	JMP	SETDMA
	JMP	READ
	JMP	WRITE
	JMP	LISTST
	JMP	SECTRAN
;
BOOT:	IN	1
	RET
WBOOT:	IN	2
	RET
CONST:	IN	3
	RET
CONIN:	IN	4
	RET
CONOUT:	IN	5
	RET
LIST:	IN	6
	RET
PUNCH:	IN	7
	RET
READER:	IN	8
	RET
HOME:	IN	9
	RET
SELDSK:	IN	10
	RET
SETTRK:	IN	11
	RET
SETSEC:	IN	12
	RET
SETDMA:	IN	13
	RET
READ:	IN	14
	RET
WRITE:	IN	15
	RET
LISTST:	IN	16
	RET
SECTRAN:	IN	17
	RET
DPBASE:
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK0,ALL0
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK1,ALL1
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK2,ALL2
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK3,ALL3
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK4,ALL4
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK5,ALL5
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK6,ALL6
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK7,ALL7
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK8,ALL8
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK9,ALL9
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK10,ALL10
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK11,ALL11
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK12,ALL12
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK13,ALL13
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK14,ALL14
	DW	TRANS,0H
	DW	0H,0H
	DW	DIRBF,DPBLK
	DW	CHK15,ALL15
TRANS:
	DB	1,7,13,19
	DB	25,5,11,17
	DB	23,3,9,15
	DB	21,2,8,14
	DB	20,26,6,12
	DB	18,24,4,10
	DB	16,22
DPBLK:
	DW	26
	DB	3
	DB	7
	DB	0
	DW	242
	DW	63
	DB	192
	DB	0
	DW	16
	DW	2
DIRBF:	DS	128
ALL0:	DS	31
ALL1:	DS	31
ALL2:	DS	31
ALL3:	DS	31
ALL4:	DS	31
ALL5:	DS	31
ALL6:	DS	31
ALL7:	DS	31
ALL8:	DS	31
ALL9:	DS	31
ALL10:	DS	31
ALL11:	DS	31
ALL12:	DS	31
ALL13:	DS	31
ALL14:	DS	31
ALL15:	DS	31
CHK0:	DS	16
CHK1:	DS	16
CHK2:	DS	16
CHK3:	DS	16
CHK4:	DS	16
CHK5:	DS	16
CHK6:	DS	16
CHK7:	DS	16
CHK8:	DS	16
CHK9:	DS	16
CHK10:	DS	16
CHK11:	DS	16
CHK12:	DS	16
CHK13:	DS	16
CHK14:	DS	16
CHK15:	DS	16
	END
