?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     IFNDEF LINE_LIMIT
  2. LINE_LIMIT = 80
  3.     ENDIF
  4. ; HL - string pointer
  5. print70Text:
  6.     ld b, LINE_LIMIT
  7. .loop
  8.     ld a, (hl)
  9.     and a : ret z
  10.     cp 13 : ret z
  11.     cp 10 : ret z
  12.     push bc
  13.     push hl
  14.     call TextMode.putC
  15.     pop hl
  16.     inc hl
  17.     pop bc
  18.     dec b
  19.     ld a, b : and a: ret z
  20.     jp .loop
  21.  
  22. ; HL - string pointer
  23. print70Goph:
  24.     ld b, LINE_LIMIT
  25. .loop
  26.     ld a, (hl) : cp 09 : ret z
  27.     and a : ret z
  28.     push bc
  29.     push hl
  30.     call TextMode.putC
  31.     pop hl
  32.     inc hl
  33.     pop bc
  34.     dec b
  35.     ld a, b : and a: ret z
  36.     jp .loop