;----------------------------------------------------------------
; This is a module in the PL/I-80 utility library.
;
; This module has all the common declarations and entry
; points for the other routines
;
;	Written By		Richard Holmes	08-12-84
;	Last update		Richard Holmes  08-12-84
;----------------------------------------------------------------
;
	name	'plicomm'
	public	getp1,getp2,clrfcb
	public	fcb,dmabuf,?ver,libver
;
	maclib	z80
;
version	equ	0101h		; version 1 release 1
;
libver:
	lxi	h,version
	mov	a,l
	ret
;
clrfcb:
	lxi	h,fcb
	mvi	m,00
	mov	e,l
	mov	d,h
	inx	d
	lxi	b,35
	ldir
	ret
;
; Return a single parameter in E
;
getp1:
	mov	e,m
	inx	h
	mov	d,m
	xchg
	mov	e,m
	ret
;
; Return a double byte in DE
;
getp2:
	call	getp1
	inx	h
	mov	d,m
	inx	h			; update to point to next byte in mem
	ret
;
	dseg
?ver	db	00			; operating system version #
fcb	ds	36			; FCB for internal operations
dmabuf	ds	80			; Dma buffer

	end