; USER.MAC - 6/13/85 - Skeleton user routine.

; This routine is called every n seconds while the MailBox
; is in idle mode. n is specified in config.tnc.
; When the routine is called, character I/O may be directed
; anywhere. Make sure to direct it where you want with a
; macro call: TNCA, TNCB, or CONSOLE.
; A reasonable stack is available. Make sure you balance push/pop.
; No disk files are open except the mail file.
; Files can be read / written using OPENR, OPENW, OPENA, Etc.
; Make sure any files opened are closed before returning.

	.z80
	maclib	TNC.LIB

	entry user

	external	curtime,date,time

	asciictl
	tncdefs

	dseg
first:	db	true

; Put your data here.

	cseg
user:	cmpm	first,true
	mvim	first,false
	jr	nz,usera

; Do initialization here.

usera:

; Do whatever it is you do here.

	ret
	end