title	Module from library BASE_1 : SCBFUN
	name	('SCBFUN')
	maclib	baselib.lib

; Set or get System Control Block function

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0 May 1986

; ENTRY	The values in SCBPB

; EXIT	Accu holds byte, <HL> word on get mode

	entry	scbfun,scbpb

scbfun:
	push	bc
	push	de
	_OSCAL_	.scbfun,scbpb	; Do SCB access
	pop	de
	pop	bc
	ret

	dseg

scbpb:
	ds	1		; Offset within the SCB
				; (Range 00H ... 63H)
	db	0		; Mode byte
			 	; (00 Get value, default for care
				;  FE Set word
				;  FF Set byte)
	ds	2		; Value to be set (byte or word)

	end