Subversion Repositories NedoOS

        ;export _joystick
        ;export _keyboard
        ;export _mouse_apply_clip


       
;яюыєўхэшх XY фхы№Є фтшцхэш  ёЄЁхыъш ь√°ш

poll_mouse_delta
        ld a,(_mouse_prev_dx)
        ld e,a
        ld bc,#fbdf     ;фхы№Єр x
        in a,(c)
        ld d,a
        sub e
        ld (_mouse_dx),a
        ld a,d
        ld (_mouse_prev_dx),a

        ld a,(_mouse_prev_dy)
        ld b,#ff        ;фхы№Єр y
        in e,(c)
        sub e
        ld (_mouse_dy),a
        ld a,e
        ld (_mouse_prev_dy),a

        ret



;яЁшьхэхэшх чюэ√ ъышяяшэур ь√°ш, т√ч√трхЄё  яЁш шчьхэхэшш ъююЁфшэрЄ шыш чюэ√

_mouse_apply_clip
        ld hl,(_mouse_cx1)
        ld a,(_mouse_cx2)
        ld h,a
        ld a,(_mouse_x)
        cp l
        jr nc,$+3
        ld a,l
        cp h
        jr c,$+3
        ld a,h
        ld (_mouse_x),a

        ld hl,(_mouse_cy1)
        ld a,(_mouse_cy2)
        ld h,a
        ld a,(_mouse_y)
        cp l
        jr nc,$+3
        ld a,l
        cp h
        jr c,$+3
        ld a,h
        ld (_mouse_y),a

        ret



;ъюф юяЁюёр ь√°ш, шёяюы№чєхЄё  юфэюъЁрЄэю т юсЁрсюЄўшъх яЁхЁ√трэш 

        macro poll_mouse

        call poll_mouse_delta

        ld b,#fa        ;ъэюяъш ь√°ш
        in a,(c)
        cpl
        and #7
        ld (_mouse_btn),a

        ld a,(_mouse_cx1)
        ld e,a
        ld a,(_mouse_cx2)
        ld d,a

        ld a,(_mouse_dx)
        ld c,a
        srl a
        bit 7,c
        jr z,$+4
        or #80
        ld c,a
        ld a,(_mouse_x)
        add a,c
        rl c
        jp nc,.clipRight
.clipLeft
        cp d
        jr c,$+3
        ld a,e
        cp e
        jr nc,.clipHDone
        ld a,e
        jp .clipHDone
.clipRight
        cp d
        jr c,.clipHDone
        ld a,d
.clipHDone
        ld (_mouse_x),a

        ld a,(_mouse_cy1)
        ld e,a
        ld a,(_mouse_cy2)
        ld d,a

        ld a,(_mouse_dy)
        ld c,a
        ld a,(_mouse_y)
        add a,c
        rl c
        jp nc,.clipDown
.clipUp
        cp d
        jr c,$+3
        ld a,e
        cp e
        jr nc,.clipVDone
        ld a,e
        jp .clipVDone
.clipDown
        cp d
        jr c,.clipVDone
        ld a,d
.clipVDone
        ld (_mouse_y),a

        endm



;ЇєэъЎш  юяЁюёр фцющёЄшъют ш ъыртшрЄєЁ√
;юяЁр°штрхЄ Kempston ш Cursor+Space

_joystick
        ld l,0

        ld bc,#fefe             ;Ё ф cZXCV
        in a,(c)
        rra
        jr c,.noCaps    ;caps эх эрцрЄ

;cursor фцющёЄшъ

        ld b,#f7                ;Ё ф 12345
        in a,(c)
        and #10
        jr nz,$+4
        set 1,l
        ld b,#ef                ;09876
        in a,(c)
        rra
        jr c,$+4
        set 4,l
        rra
        rra
        jr c,$+4
        set 0,l
        rra
        jr c,$+4
        set 3,l
        rra
        jr c,$+4
        set 2,l
.noCaps
        ld b,#7f                ;Ё ф SpSymBNM
        in a,(c)
        rra
        jr c,$+4
        set 4,l
       
        if 0
        ld a,l
        or a
        ret nz

;kempston фцющёЄшъ
_kempston_joystick
        ld a,#83 ;basic48 switchable to dos
        ld bc,#3ff7
        push bc
        out (c),a
        ld a,%10101000 ;ega,turbo
        ld bc,#ff77 ;shadow ports off

        di
        out (c),a

        in a,(31)
        ld b,a
        and #e0
        jr nz,$+3 ;kempston joystick is absent
        ld l,b

        ld a,%10101000 ;ega,turbo
        ld b,#bd;#41 ;shadow ports and palette on
        call joystick_out_dos
        ei

        ld a,#7f ;RAM on, 7ffd off
        pop bc;ld bc,#3ff7
        out (c),a
        ld a,CC_PAGE0
        jp setSlot0
joystick_out_dos
        ld de,#2a53
        push de
        jp #3d2f
        else
        ret
        endif
       
       
;юяЁюё ъыртшрЄєЁ√, чряюыэ хЄ 40-срщЄэ√щ ьрёёшт Їырурьш ёюёЄю эш  ъыртш°

       
       
_keyboard
        push ix
        ex de,hl
        ld ix,keysPrevState
        ld bc,#fefe             ;cZXCV
keyboard_row0
        push bc
        in a,(c)
        cpl
        ld e,a
        ld b,5
.l0
        rr e
        sbc a,a
        ld c,a
        xor (ix)
        and c
        and 2
        ld (ix),c
        rr c
        jr nc,$+4
        or 1
        ld (hl),a
        inc ix
        inc hl
        djnz .l0
        pop bc
        rlc b
        jr c,keyboard_row0
        pop ix
        ret