URL https://opencores.org/ocsvn/z80soc/z80soc/trunk

Subversion Repositories z80soc

[/] [z80soc/] [trunk/] [V0.7/] [rom/] [V0.7-testb.z8a] - Blame information for rev 39

Line No.	Rev	Author	Line
1	34	rrred
2			`ld sp,BFFEH`
3			`call clear`
4			`; test if stack is set ok`
5			`ld hl,4142H`
6			`push hl`
7			`pop de`
8			`ld hl,FFE0H`
9			`ld a,d`
10			`; write AB to LCD`
11			`ld (hl),a`
12			`inc hl`
13			`ld a,e`
14			`ld (hl),a`
15			`inc hl`
16			`; test VRAM memory`
17			`ld a,43H`
18			`ld (4000H),a`
19			`ld a,20h`
20			`ld a,(4000H)`
21			`ld (hl),a`
22			`inc hl`
23			`ld a,44H`
24			`ld (4CF7H),a`
25			`ld a,20H`
26			`ld a,(4C7FH)`
27			`ld (hl),a`
28			`inc hl`
29			`; test charram`
30			`; Redefines char for ascci 1 to @`
31			`push hl`
32			`ld de,4c88h`
33			`ld hl,char`
34			`ld bc,8`
35			`ldir`
36			`ld a,1 ; new ascii code of @`
37			`ld (4013h),a ; print @ in the first line of video`
38			`pop hl`
39			`ld (hl),a`
40			`inc hl`
41			`; test main ram`
42			`ld a,45h`
43			`ld (6000h),a`
44			`ld a,20h`
45			`ld a,(6000h)`
46			`ld (hl),a`
47			`inc hl`
48			`ld a,46h`
49			`ld (dfffh),a`
50			`ld a,20h`
51			`ld a,(dfffh)`
52			`ld (hl),a`
53			`inc hl`
54			`ld a,47h`
55			`ld (hl),a`
56			`inc hl`
57			`ld a,4Bh`
58			`ld (4016h),a`
59			`ld (hl),a`
60			`ld a,1`
61			`out (01h),a`
62			`loop:`
63			`jp loop`
64			`clear:`
65			`ld hl,4000H`
66			`ld a,20H`
67			`ld (hl),a`
68			`ld de,4001H`
69			`ld bc,3199`
70			`ldir`
71			`ret`
72			`char: ; @`
73			`db 7CH`
74			`db C6H`
75			`db DEH`
76			`db DEH`
77			`db DEH`
78			`db C0H`
79			`db 78H`
80			`db 00H`