?login_element?

Subversion Repositories NedoOS

Rev

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

  1.  
  2.         MODULE OSSETCOLOR
  3.         PUBLIC OS_SETCOLOR
  4.         EXTERN _OS_GFX_CALL
  5.         #include "sysdefs.asm"
  6.         RSEG CODE
  7. OS_SETCOLOR:
  8.         push bc
  9.         ld c,CMD_SETCOLOR
  10.         jp _OS_GFX_CALL
  11.         ENDMOD
  12.        
  13.         MODULE OS_PRATTR
  14.         PUBLIC OS_PRATTR
  15.         EXTERN _OS_GFX_CALL
  16.         #include "sysdefs.asm"
  17.         RSEG CODE
  18. OS_PRATTR:
  19.         push bc
  20.         ld c,CMD_PRATTR
  21.         jp _OS_GFX_CALL
  22.         ENDMOD
  23.        
  24.         MODULE OS_GETATTR
  25.         PUBLIC OS_GETATTR
  26.         EXTERN _OS_GFX_CALL
  27.         #include "sysdefs.asm"
  28.         RSEG CODE
  29. OS_GETATTR:
  30.         push bc
  31.         ld c,CMD_GETATTR
  32.         jp _OS_GFX_CALL
  33.         ENDMOD
  34.        
  35.         MODULE OSSETXY
  36.         PUBLIC OS_SETXY,OS_CLS,OS_SETGFX,OS_SCROLLUP
  37.         PUBLIC _OS_GFX_CALL,OS_SETXYW
  38.         #include "sysdefs.asm"
  39.         RSEG CODE
  40. OS_SCROLLUP:
  41.         push bc
  42.         ld h,b
  43.         ld l,c
  44.         ld c,CMD_SCROLLUP
  45.         jr label1
  46. OS_SETGFX:
  47.         push bc
  48.         ld c,CMD_SETGFX
  49.         jr label1
  50. OS_CLS:
  51.         push bc
  52.         ld c,CMD_CLS
  53.         jr label1
  54. OS_SETXYW:
  55.         push bc
  56.     jr os_setxyw1
  57. OS_SETXY:
  58.         push bc
  59.         ld d,c
  60. os_setxyw1
  61.         ld c,CMD_SETXY  ;de=yx ;SET CURSOR POSITION
  62. _OS_GFX_CALL
  63. label1:
  64.         push ix
  65.         push iy
  66.         call BDOS
  67.         pop iy
  68.         pop ix
  69.         pop bc
  70.         ret    
  71.         ENDMOD
  72.        
  73.         MODULE OSGETXY
  74.         PUBLIC OS_GETXY
  75.         #include "sysdefs.asm"
  76.         RSEG CODE
  77. OS_GETXY:
  78.         push bc
  79.         push de
  80.         ld c,CMD_GETXY  ;de=yx ;GET CURSOR POSITION
  81.         push ix
  82.         push iy
  83.         call BDOS
  84.         ex de,hl
  85.         pop iy
  86.         pop ix
  87.         pop de
  88.         pop bc
  89.         ret
  90.         ENDMOD
  91.        
  92.         MODULE BDOSPUTS
  93.         PUBLIC bdosputs
  94.         RSEG CODE
  95. bdosputs:
  96.         push ix
  97.         push iy
  98.         push de
  99. ploop:
  100.         pop hl
  101.         ld a,(hl)
  102.         or a
  103.         jr z,pexit
  104.         inc hl
  105.         push hl
  106.         rst 0x10
  107.         jr ploop
  108. pexit:
  109.         ld a,'\r'
  110.         rst 0x10
  111.         ld a,'\n'
  112.         rst 0x10
  113.         ld hl,0x0000
  114.         pop iy
  115.         pop ix
  116.         ret
  117.         ENDMOD
  118.                
  119.         MODULE BDOSPRINT
  120.         PUBLIC print
  121.         RSEG CODE
  122. print:
  123.     push bc
  124.         push ix
  125.         push iy
  126.         push de
  127. ploop:
  128.         pop hl
  129.         ld a,(hl)
  130.         or a
  131.         jr z,pexit
  132.         inc hl
  133.         push hl
  134.         rst 0x10
  135.         jr ploop
  136. pexit:
  137.         pop iy
  138.         pop ix
  139.     pop bc
  140.         ret
  141.         ENDMOD
  142.        
  143.         MODULE BDOSPRCHAR
  144.         PUBLIC bdosputchar
  145.         RSEG CODE
  146. bdosputchar:
  147.     push bc
  148.         push de
  149.         push ix
  150.         push iy
  151.         ld a,e
  152.         rst 0x10
  153.         pop iy
  154.         pop ix
  155.         pop hl
  156.     pop bc
  157.         ret
  158.         END
  159.