?login_element?

Subversion Repositories NedoOS

Rev

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

  1.        if 0
  2. DrawMASK
  3.         ld e,3+128 ;+128=keep
  4.         OS_SETGFX ;e=0:EGA, e=2:MC, e=3:6912, e=6:text ;+SET FOCUS ;e=-1: disable gfx (out: e=old gfxmode)
  5.         call getuser_scr_high_cur
  6.         SETPG4000
  7.         ld hl,0x5800
  8.         ld de,0x5801
  9.         ld bc,767
  10.         ld (hl),7
  11.         ldir
  12.        
  13.        call SetPgMask
  14.         ld hl,(MOUSEX)
  15.         ld a,l
  16.         srl h
  17.         rra
  18.         srl h
  19.         rra
  20.         srl h
  21.         rra
  22.         srl h
  23.         rra
  24.         ld de,0x4000;SCRTOP
  25.         ld hl,MASK
  26.        cp MASKWID-30;SCRWID
  27.        jr c,$+4
  28.        ld a,MASKWID-30;SCRWID
  29.         ld c,a
  30.         ld b,0
  31.         add hl,bc
  32.         ld b,MASKHGT;SCRHGT
  33. DrawMASK0
  34.         push bc
  35.         push de
  36.         ld bc,30;SCRWID
  37.         ldir
  38.         ld bc,MASKWID-30;SCRWID
  39.         add hl,bc
  40.         pop de
  41.         call DDE
  42.         pop bc
  43.         djnz DrawMASK0
  44.         jr $;ret
  45. DDE
  46.         INC D
  47.         LD A,D
  48.         AND 7
  49.         RET NZ
  50.         LD A,E
  51.         ADD A,32
  52.         LD E,A
  53.         RET C
  54.         LD A,D
  55.         ADD A,-8
  56.         LD D,A
  57.         RET
  58.        endif
  59.  
  60. DrawMapGfx
  61.        if 0
  62.         ld a,0xfe
  63.         in a,(0xfe)
  64.         rra
  65.         jp nc,DrawMASK
  66.        endif
  67.  
  68.         ld hl,1024-(SCRWID*8)-4;-8;maxXwin
  69.         ld de,(MOUSEX)
  70.         xor a
  71.         sbc hl,de
  72.         ex de,hl
  73.         ;ld bc,SCRHGT-1;maxYwin
  74.         ld hl,(MOUSEY)
  75.         ld h,a;0
  76.         ;add hl,bc
  77.          ;ld a,h
  78.          ;and +(UVSCROLL_HGT/256)*(UVSCROLL_WID/512)-1
  79.          ;ld h,a ;hl=y ;de=x
  80.         call uvscroll_setscroll
  81.  
  82.         call uvscroll_draw
  83.         call setpgsscr40008000
  84.         xor a
  85.         ld (uvscroll_scrbase-40),a
  86.         ld (uvscroll_scrbase+0x2000-40),a
  87.         ld (uvscroll_scrbase+0x4000-40),a
  88.         ld (uvscroll_scrbase+0x6000-40),a
  89.         jp setpgsmain40008000
  90.        
  91. DrawWater_Amhgt_DEgfx
  92.  
  93.  
  94. ;TODO
  95.  
  96.         ret