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

Subversion Repositories z80soc

[/] [z80soc/] [tags/] [z80soc05c/] [S3E/] [rom/] [lcd_demo2.z8a] - Diff between revs 17 and 31

Only display areas with differences | Details | Blame | View Log

Rev 17 Rev 31
        ld      a,5AH
        ld      a,5AH
        ld      (2010h),a
        ld      (2010h),a
        ld      (3FE0h),a
        ld      (3FE0h),a
        LD      A,38H
        LD      A,38H
        ld      (2011h),a
        ld      (2011h),a
        ld      (3FE1h),a
        ld      (3FE1h),a
        LD      A,30H
        LD      A,30H
        ld      (2012h),a
        ld      (2012h),a
        ld      (3FE2h),a
        ld      (3FE2h),a
        LD      A,20H
        LD      A,20H
        ld      (2013h),a
        ld      (2013h),a
        ld      (3FE3h),a
        ld      (3FE3h),a
        LD      A,53H
        LD      A,53H
        LD      (2014H),A
        LD      (2014H),A
        ld      (3FE4h),a
        ld      (3FE4h),a
        LD      A,6FH
        LD      A,6FH
        LD      (2015H),A
        LD      (2015H),A
        ld      (3FE5h),a
        ld      (3FE5h),a
        LD      A,43H
        LD      A,43H
        LD      (2016H),A
        LD      (2016H),A
        ld      (3FE6h),a
        ld      (3FE6h),a
readkey:
readkey:
        in      a,(30h)
        in      a,(30h)
        out     (01h),a
        out     (01h),a
        cp      01H
        cp      01H
        jr      NZ,readkey
        jr      NZ,readkey
release:
release:
        in      a,(30h)
        in      a,(30h)
        cp      01h
        cp      01h
        jr      z,release
        jr      z,release
kbd0:
kbd0:
        in      a,(20h)
        in      a,(20h)
        out     (01h),a
        out     (01h),a
        ld      h,3Fh
        ld      h,3Fh
        ld      l,0F0h
        ld      l,0F0h
kbd1:
kbd1:
        in      a,(80h)
        in      a,(80h)
        or      a
        or      a
        jr      z,kbd1
        jr      z,kbd1
        ld      (hl),a
        ld      (hl),a
        inc     l
        inc     l
        ld      a,l
        ld      a,l
        cp      00
        cp      00
        jr      nz,kbd1
        jr      nz,kbd1
        jr      kbd0
        jr      kbd0
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.