?login_element?

Subversion Repositories NedoOS

Rev

Rev 1287 | Blame | Compare with Previous | Last modification | View Log | Download

  1. ;----------------------------------------------------------------------
  2. ; Вход: A(символ)
  3. ; Печать символа в поток
  4. ; ----------------------------------------------------------------------
  5.  
  6. print_char: push    af
  7.             ;push    bc
  8.             ;push    de
  9.             push    hl
  10.             ld      hl, (video_cursor)
  11.             ;cp      10
  12.             ;jr      z, .pc2                 ; Код переноса на другую строку
  13.             ld (hl),a                 ; Записать 8 бит
  14.             inc hl
  15.             ld (video_cursor),hl
  16.             ; ------------
  17.             ld      hl, _param_cnt
  18.             inc     (hl)
  19.             ; ------------
  20.             pop     hl
  21.             ;pop     de
  22.             ;pop     bc
  23.             pop     af
  24.             ret
  25.