;
; Test file for D52.
; This, with the associated test.ctl file, demonstrates the
; use of control file directives.
;
accum	equ	0e0h
;
	org	0
;
start:	nop
	ajmp	main
	ljmp	subrt
;
main:	rr	a
	inc	accum
	inc	12h
	inc	@r0
	inc	@r1
	inc	r0
	jbc	acc.3,label
	acall	subrt
	lcall	subrt
label:	rrc	a
	dec	a
	dec	10h
	dec	@r0
	dec	@r1
	dec	r0
	cjne	a,#12h,label
	mov	dptr,#vectbl
	jmp	@a+dptr
;
subrt:	nop
	nop
	nop
	nop
	nop
	ret
;
vectbl:	dw	subrt
	dw	0
;
mesg:	db	'This is text',0
;
bindat:	db	0,1,2,3
wordat:	dw	10h,20h,30h
;
; random junk to fake out the disassembler
;
	db	80h,29h,44h,33h
;
; valid code:
;
delay:	mov	r0,#5
delay1:	clr	20h
	djnz	r0,delay1
	ret
;
	end
;