?login_element?

Subversion Repositories NedoOS

Rev

Rev 581 | Rev 604 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.         DEVICE ZXSPECTRUM128
  2.         include "../_sdk/sys_h.asm"
  3.  
  4.         org PROGSTART
  5. begin
  6.         ;ld e,6 ;textmode
  7.         ;OS_SETGFX
  8.         call initstdio
  9.        
  10.         ld hl,thello
  11.         call prtext
  12.        
  13.         QUIT
  14.  
  15. prtext
  16. prtext0
  17.         ld a,(hl)
  18.         or a
  19.         ret z
  20.         cp 8
  21.         jr c,prtext_color
  22.         push hl
  23.         ;PRCHAR
  24.         PRCHAR_
  25.         pop hl
  26.         inc hl
  27.         jr prtext0
  28. prtext_color
  29.         push hl
  30.         ld e,a
  31.         ;OS_SETCOLOR
  32.         ld d,0
  33.         SETCOLOR_
  34.         pop hl
  35.         inc hl
  36.         jr prtext0
  37.  
  38. thello
  39.         db "Hello, ",3,"world!",0x0d,0x0a,0
  40.        
  41.         include "../_sdk/stdio.asm"
  42. end
  43.         savebin "hello.com",begin,end-begin
  44.  
  45.         LABELSLIST "../../us/user.l"
  46.