home *** CD-ROM | disk | FTP | other *** search
/ ST-Computer Leser 2002 January / STC_CD_01_2002.iso / SYSTEM / XAAES936 / PURE_C / WIND_GET.S < prev   
Text File  |  2001-05-21  |  1KB  |  55 lines
  1. *    Created by TT-Digger v6.2
  2. *    Mon May 21 13:40:04 2001
  3.  
  4.     globl wind_get,_aes
  5.     text
  6. module wind_get
  7.      move     d1,-(a7)
  8.      movem     d0-d1,Gem_pb+60
  9.      move.l     #$68020500,d1
  10.      bsr     _aes
  11.      move.l     a2,d2
  12.      move     (a7)+,d1
  13.      lea     4(a7),a1
  14.      cmp     #'XA',d1            ; HR
  15.      bne    l2
  16.      moveq    #1,d1
  17.      bra.s    l1
  18.  
  19. l2:     and     #63,d1                ; HR
  20.      move.b     lx(pc,d1),d1
  21.      bra.s     l1
  22.  
  23. l0:     movea.l (a1)+,a2
  24.      move     (a0)+,(a2)
  25. l1:     dbf     d1,l0
  26.      movea.l d2,a2
  27.      rts
  28.  
  29. ;    HR    zero value: intout[0] only
  30. lx:     dc.b     0,0,0,0,4,4,4,4
  31.      dc.b     1,1,1,4,4,0
  32.      dc.b     2                    ; 14  WF_NEWDESK
  33.      dc.b     1,1,4,1,1
  34.      dc.b     1                    ; 20  WF_OWNER
  35.      dc.b     0
  36.      dc.b     0
  37.      dc.b     0
  38.      dc.b     4                    ; 24  WF_BEVENT
  39.      dc.b     1                    ; 25  WF_BOTTOM
  40.      dc.b     1                    ; 26  WF_ICONIFY
  41.      dc.b     4                    ; 27  WF_UNICONIFY
  42.      dc.b     0    
  43.      dc.b     0
  44.      dc.b     2                    ; 30  WF_TOOLBAR
  45.      dc.b     4                    ; 31  WF_FTOOLBAR
  46.  
  47.      dc.b     4                    ; 32  WF_NTOOLBAR
  48.      dc.b     0,0,0,0,0,0,0
  49.      dc.b     0,0,0,0,0,0,0,0
  50.      dc.b     0,0,0,0,0,0,0,0
  51.      dc.b     0,0,0,0,0,0,0,0
  52. endmod
  53.  
  54.     end
  55.