summaryrefslogtreecommitdiff
path: root/system/d52/tests/test.asm
blob: 7313e33c0f737f89dc8ea472dd80e81a4525bd82 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
;
; 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
;