Subversion Repositories z80soc

        ld      sp,bffeh
        Call    clear
        ; test if stack is set ok
        ld      hl,4142h
        push    hl
        pop     de
        ld      hl,ffe0h
        ld      a,d
        ; write AB to LCD
        ld      (hl),a
        inc     hl
        ld      a,e
        ld      (hl),a
        inc     hl
        ; test VRAM memory
        ld      a,43h
        ld      (4000h),a
        ld      a,20h
        ld      a,(4000h)
        ld      (hl),a
        inc     hl
        ld      a,44h
        ld      (4c7fh),a
        ld      a,20h
        ld      a,(4c7fh)
        ld      (hl),a
        inc     hl
        ; test charram
        ; Redefines char for ascci 1 to @
        push    hl
        ld      de,4c88h
        ld      hl,char
        ld      bc,8
        ldir
        ld      a,1       ; new ascii code of @
        ld      (4013h),a ; print @ in the first line of video
        pop     hl
        ld      (hl),a
        inc     hl
        ; test main ram
        ld      a,45h
        ld      (6000h),a
        ld      a,20h
        ld      a,(6000h)
        ld      (hl),a
        inc     hl
        ld      a,46h
        ld      (dfffh),a
        ld      a,20h
        ld      a,(dfffh)
        ld      (hl),a
        inc     hl
        ld      a,47h
        ld      (hl),a
        inc     hl
        ld      a,4Bh
        ld      (4016h),a
        ld      (hl),a
        ld      a,1
        out     (01h),a
loop:
        jp      loop
clear:
        ld      hl,4000h
        ld      a,20h
        ld      (hl),a
        ld      de,4001h
        ld      bc,3199
        ldir
        ret
char:   ; @
        db      7CH
        db      C6H
        db      DEH
        db      DEH
        db      DEH
        db      C0H
        db      78H
        db      00H