?login_element?

Subversion Repositories NedoOS

Rev

Rev 1601 | Go to most recent revision | 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. ; HL - string pointer
  11. print70Text:
  12.     ld b, LINE_LIMIT
  13. .loop
  14.     ld a, (hl)
  15.     and a : ret z
  16.     cp 13 : ret z
  17.     cp 10 : ret z
  18.     push bc
  19.     push hl
  20.     call TextMode.putC
  21.     pop hl
  22.     inc hl
  23.     pop bc
  24.     dec b
  25.     ld a, b : and a: ret z
  26.     jp .loop
  27.  
  28. ; HL - string pointer
  29. print70Goph:
  30.     ld b, LINE_LIMIT
  31. .loop
  32.     ld a, (hl) : cp 09 : ret z
  33.     and a : ret z
  34.     push bc
  35.     push hl
  36.     call TextMode.putC
  37.     pop hl
  38.     inc hl
  39.     pop bc
  40.     dec b
  41.     ld a, b : and a: ret z
  42.     jp .loop