TITLE	"Z33RSEPB - Z3lib 4.0"
;=================================================================
;    Copyright (C) 1989 by Jay Sage.  Permission granted to
; Alpha Systems Corp. to distribute with The Libraries, Version 4
;-----------------------------------------------------------------
; Author  : Jay Sage
; Date    :
; Version : 1.0
; Module  : Z33SEPB
; Abstract: This module contains the routine RESEPB which resets
;	the External Program bit in the command status flag
; Revision:
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
; Module Entry Points

	PUBLIC		RESEPB

; External References

	EXT		RETCST

	.Z80
	CSEG
;===============================================================
; NAME - RESEPB
; Entry: - None
; Exit : - None
; Uses : - None
; Special Requirements: None
;===============================================================

RESEPB:	PUSH	HL
	CALL	RETCST		; Point to command status flag
	RES	3,(HL)		; Reset external program bit
	POP	HL
	RET

	END