?login_element?

Subversion Repositories NedoOS

Rev

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

  1.  
  2.     MODULE TextMode
  3. pg4     defb 0
  4. pg0     defb 0
  5. pgC     defb 0
  6. pg8     defb 0
  7. init
  8.         ld c,nos.CMD_HIDEFROMPARENT
  9.         call nos.BDOS
  10.         ld e,0x86
  11.         ld c,nos.CMD_SETGFX
  12.         call nos.BDOS
  13.         ld c,nos.CMD_YIELD
  14.         call nos.BDOS
  15.         ld c,nos.CMD_GETMAINPAGES
  16.         call nos.BDOS
  17.         ld (pg4),de
  18.         ld (pgC),hl
  19.         jp cls
  20.        
  21. printZ
  22.         ld a,(hl)
  23.         or a
  24.         ret z
  25.         inc hl
  26.         push hl
  27.         rst 0x10
  28.         pop hl
  29.         jr printZ
  30.        
  31. cls    
  32.         ld e,7
  33.         ld c,nos.CMD_CLS
  34.         jp nos.BDOS
  35.        
  36. putC
  37.         jp 0x0010
  38.        
  39. gotoXY
  40.         push hl
  41.         ld c,nos.CMD_SETXY
  42.         call nos.BDOS
  43.         pop hl
  44.         ret
  45.        
  46. fillLine:
  47.     ld d, h, e, 0 : call gotoXY
  48.     ld b, 80
  49. .loop
  50.     push af, bc
  51.     rst 0x10
  52.     pop bc, af
  53.     djnz .loop
  54.     ret
  55.        
  56. usualLine
  57.         ld d,a
  58.         ld e,0
  59. .mloop
  60.         push de
  61.         ld c,nos.CMD_SETXY
  62.         call nos.BDOS
  63.         ld e,7
  64.         ld c,nos.CMD_PRATTR
  65.         call nos.BDOS
  66.         pop de
  67.         inc e
  68.         ld a,e
  69.         cp 80
  70.         jr nz,.mloop
  71.         ret
  72.  
  73. highlightLine  
  74.         ld d,a
  75.         ld e,0
  76. .mloop
  77.         push de
  78.         ld c,nos.CMD_SETXY
  79.         call nos.BDOS
  80.         ld e,79
  81.         ld c,nos.CMD_PRATTR
  82.         call nos.BDOS
  83.         pop de
  84.         inc e
  85.         ld a,e
  86.         cp 80
  87.         jr nz,.mloop
  88.         ret
  89.     ENDMODULE
  90.