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

Subversion Repositories z80soc

[/] [z80soc/] [tags/] [z80soc05c/] [S3E/] [rom/] [lcd_demo2.z8a] - Blame information for rev 31

Line No.	Rev	Author	Line
1	11	rrred
2			`ld a,5AH`
3			`ld (2010h),a`
4			`ld (3FE0h),a`
5			`LD A,38H`
6			`ld (2011h),a`
7			`ld (3FE1h),a`
8			`LD A,30H`
9			`ld (2012h),a`
10			`ld (3FE2h),a`
11			`LD A,20H`
12			`ld (2013h),a`
13			`ld (3FE3h),a`
14			`LD A,53H`
15			`LD (2014H),A`
16			`ld (3FE4h),a`
17			`LD A,6FH`
18			`LD (2015H),A`
19			`ld (3FE5h),a`
20			`LD A,43H`
21			`LD (2016H),A`
22			`ld (3FE6h),a`
23			`readkey:`
24			`in a,(30h)`
25			`out (01h),a`
26			`cp 01H`
27			`jr NZ,readkey`
28			`release:`
29			`in a,(30h)`
30			`cp 01h`
31			`jr z,release`
32			`kbd0:`
33			`in a,(20h)`
34			`out (01h),a`
35			`ld h,3Fh`
36			`ld l,0F0h`
37			`kbd1:`
38			`in a,(80h)`
39			`or a`
40			`jr z,kbd1`
41			`ld (hl),a`
42			`inc l`
43			`ld a,l`
44			`cp 00`
45			`jr nz,kbd1`
46			`jr kbd0`