Login

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

        MODULE cmd2ve
        PUBLIC cmd2ve
        #include "sysdefs.asm"
        RSEG CODE
cmd2ve: ;e=command       ╨▓╨╛╨╖╨▓╤А╨░╤Й╨░╨╡╨╝ ╤А╨╡╨╖╤Г╨╗╤М╤В╨░╤В ╨▓ A
                di
                push bc
                ld      bc,0x55FE               ;╨░╨┤╤А╨╡╤Б 8952
                in      a,(c)                   ;╨Я╨╡╤А╨╡╤Е╨╛╨┤ ╨▓ ╤А╨╡╨╢╨╕╨╝ ╨║╨╛╨╝╨░╨╜╨┤╤Л
                ld      b,e                             ;╨║╨╛╨╝╨░╨╜╨┤╨░ ╨╕╨╖ E ╨┐╨╡╤А╨╡╨╜╨╛c╨╕╨╝ ╨▓ B
                in      a,(c)                   ;╨▓╤Л╨┐╨╛╨╗╨╜╨╕╤В╤М ╨║╨╛╨╝╨░╨╜╨┤╤Г
                pop bc
                ei
                ret
        ENDMOD
       
        MODULE send2ve
        PUBLIC send2ve
        #include "sysdefs.asm"
        RSEG CODE
send2ve:        ;e=command b=data
                di
                ld d,c
                ld      bc,0x55FE               ;╨░╨┤╤А╨╡╤Б 8952
                in      a,(c)                   ;╨Я╨╡╤А╨╡╤Е╨╛╨┤ ╨▓ ╤А╨╡╨╢╨╕╨╝ ╨║╨╛╨╝╨░╨╜╨┤╤Л
                ld      b,e                             ;╨║╨╛╨╝╨░╨╜╨┤╨░
                IN      a,(c)
                ld      b,d                             ;╨Я╨░╤А╨░╨╝╨╡╤В╤А
                in      a,(c)
                ei
                ret
        ENDMOD
       
        END