; Mini-gerador de formas de onda: leitura dos botões P1.[7..4]

public	selfreq
extrn	data(fME,fE,fB,fMB)
 
self	segment	code            ; self = seleccionar frequência
	rseg	self

selfreq:
	jb	p1.3,segue1
	mov	th0,#fME
segue1: jb	p1.2,segue2
	mov	th0,#fE
segue2: jb	p1.1,segue3
	mov	th0,#fB
segue3: jb	p1.0,fim
	mov	th0,#fMB
fim:    ret

	end