?login_element?

Subversion Repositories NedoOS

Rev

Rev 1609 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. LINE_LIMIT = 63
  2.  
  3.     IFDEF NEDOOS
  4. LINE_LIMIT = 79
  5.     ENDIF
  6.  
  7.     IFDEF TIMEX80
  8. LINE_LIMIT = 84
  9.     ENDIF
  10.  
  11.     IFDEF MSX
  12. LINE_LIMIT = 79
  13.     ENDIF
  14. ; HL - string pointer
  15. print70Text:
  16.     ld b, LINE_LIMIT
  17. .loop
  18.     ld a, (hl)
  19.     and a : ret z
  20.     cp 13 : ret z
  21.     cp 10 : ret z
  22.     push bc
  23.     push hl
  24.     call TextMode.putC
  25.     pop hl
  26.     inc hl
  27.     pop bc
  28.     dec b
  29.     ld a, b : and a: ret z
  30.     jp .loop
  31.  
  32. ; HL - string pointer
  33. print70Goph:
  34.     ld b, LINE_LIMIT
  35. .loop
  36.     ld a, (hl) : cp 09 : ret z
  37.     and a : ret z
  38.     push bc
  39.     push hl
  40.     call TextMode.putC
  41.     pop hl
  42.     inc hl
  43.     pop bc
  44.     dec b
  45.     ld a, b : and a: ret z
  46.     jp .loop