?login_element?

Subversion Repositories NedoOS

Rev

Rev 1386 | Blame | Compare with Previous | Last modification | View Log | Download

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