.TITLE MRKT
	.IDENT /102083/

;	File:[22,310]MRKT.MAC
;	Author: Jim Bostwick 20-Oct-83 (from P2util)
;	History: JMB 20-Oct-83 -- cloned from P2util version
;
;	Last Edit:
;

.REM |

Procedure MRKT(EFN:Event_Flag; 
		Count:Integer; 
		Units:Time_Unit
	);External;

{*USER*
 Pascal-3 procedure which first clears EFN, then sets it Count Units later.
.NOTE
Control returns immediately.
.END NOTE
 Directive Status is available in $DSW on return.
} 

|

;
; Assemble with PASMAC.MAC as prefix file.
;
; j.m.b. 102083
;

	.MCALL MRKT$S
	
	PROC MRKT
	PARAM EFN, CHAR
	PARAM COUNT, INTEGER
	PARAM UNITS, SCALAR	;Pascal scalar used as number
	SAVE <R0,R1,R2 >
	BEGIN
	MOVB EFN(SP), R0
	MOV COUNT(SP),R1
	MOVB UNITS(SP),R2
	INC R2			;MACRO SEES TICKS AS 1
	MRKT$S R0,R1,R2	
	ENDPR
	.END