home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 3 / PDCD_3.iso / pocketbk / developmen / s3asm2 / WINIMG.ASM < prev   
Assembly Source File  |  1994-06-02  |  1KB  |  91 lines
  1.     include    \inc\win.inc
  2.     include    \inc\mem.inc
  3.  
  4.     image
  5.  
  6. windata    dw    $200    ;flags
  7.     dw    0    ;extent
  8.     dw    0
  9.     dw    240
  10.     dw    60
  11.     dw    0    ;mouse hdl
  12.     db    0    ;bckgnd
  13.     db    0    ;filler
  14.  
  15. winbitstruct
  16. bitid    dw    0    ;bitmap
  17.     dw    0    ;pos
  18.     dw    0
  19.     dw    0    ;rect
  20.     dw    0
  21.     dw    240
  22.     dw    60
  23.     dw    4    ;mode
  24.     dw    0    ;time
  25.     dw    0
  26.  
  27. bitstruct
  28. ppnt    dw    240
  29.     dw    60
  30. sname    db    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  31.  
  32. bitseg    dw    0
  33. drawpt    dw    0
  34. wid    dw    0
  35. fill    dw    $1
  36. wservpt    dw    0
  37.  
  38.  
  39.     code
  40. start
  41.     call    init
  42. loop    call    display
  43.     jmp    loop
  44.  
  45.  
  46. display    mov    di,[drawpt]
  47.     mov    cx,1800
  48.     mov    ax,[fill]
  49. dlp    stosw
  50.     loop    dlp
  51.  
  52.     segcopyto    [bitseg],3600,[drawpt],0,0
  53.     winvalidatewin    [wid]
  54.     wflush
  55.     ror    word ptr [fill],1
  56.     ret
  57.  
  58. err    xor    bx,bx
  59.     idiv    bx
  60.     ret
  61.  
  62.  
  63.  
  64. init
  65.     heapallocatecell    3600
  66.     jc    err
  67.     mov    [drawpt],ax
  68.  
  69.     heapallocatecell    1024
  70.     jc    err
  71.     mov    [wservpt],ax
  72.  
  73.     wconnect        [wservpt],0,$40
  74.  
  75.     gcreatebit        6,offset bitstruct,offset bitstruct
  76.     jc    err
  77.     mov    [bitid],ax
  78.  
  79.     wcreatewindow        0,$5200,offset windata,1
  80.     jc    err
  81.     mov    [wid],ax
  82.  
  83.     wsetwinbitmap        [wid],1,offset winbitstruct
  84.  
  85.     winitialisewindowtree    [wid]
  86.  
  87.     segopen    offset sname
  88.     mov    [bitseg],ax
  89.     ret
  90.  
  91.