?login_element?

Subversion Repositories NedoOS

Rev

Rev 1004 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

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