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

Subversion Repositories z80soc

[/] [z80soc/] [trunk/] [V0.7/] [rom/] [V0.7-V40x80.z8a] - Blame information for rev 34

Line No.	Rev	Author	Line
1	34	rrred
2			`ld sp,BFFEH`
3			`call clear`
4			`; test VRAM memory`
5			`ld hl,4000h ;base addres of video`
6			`ld a,(cols) ;number of columns`
7			`ld b,0`
8			`ld c,a`
9			`ld a,41h`
10			`ld (hl),a ;print "A" on 0x0`
11			`dec bc`
12			`add hl,bc`
13			`ld (hl),a ;print "A" on 0x79`
14			`inc bc`
15			`ld hl,4000h ;base address again`
16			`ld a,(lines)`
17			`skipLine:`
18			`dec a`
19			`or a`
20			`jr z,printLastLine`
21			`add hl,bc ;calc next line of video`
22			`jr skipLine`
23			`printLastLine:`
24			`ld a,41h`
25			`ld (hl),a`
26			`dec bc`
27			`add hl,bc`
28			`ld (hl),a`
29			`out (01h),a`
30			`loop:`
31			`jp loop`
32			`clear:`
33			`ld hl,4000H`
34			`ld a,20H`
35			`ld (hl),a`
36			`ld de,4001H`
37			`ld bc,3199`
38			`ldir`
39			`ret`
40			`lines:`
41			`DB 30`
42			`cols:`
43			`DB 40`