?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.         MODULE cmd2ve
  2.         PUBLIC cmd2ve
  3.         #include "sysdefs.asm"
  4.         RSEG CODE
  5. cmd2ve: ;e=command       возвращаем результат в A
  6.                 di
  7.                 push bc
  8.                 ld      bc,0x55FE               ;адрес 8952
  9.                 in      a,(c)                   ;Переход в режим команды
  10.                 ld      b,e                             ;команда из E переноcим в B
  11.                 in      a,(c)                   ;выполнить команду
  12.                 pop bc
  13.                 ei
  14.                 ret
  15.         ENDMOD
  16.        
  17.         MODULE send2ve
  18.         PUBLIC send2ve
  19.         #include "sysdefs.asm"
  20.         RSEG CODE
  21. send2ve:        ;e=command b=data
  22.                 di
  23.                 ld d,c
  24.                 ld      bc,0x55FE               ;адрес 8952
  25.                 in      a,(c)                   ;Переход в режим команды
  26.                 ld      b,e                             ;команда
  27.                 IN      a,(c)
  28.                 ld      b,d                             ;Параметр
  29.                 in      a,(c)
  30.                 ei
  31.                 ret
  32.         ENDMOD
  33.        
  34.         END
  35.