home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / CloseW.ass < prev    next >
Encoding:
Text File  |  1980-04-24  |  879 b   |  57 lines
  1.     .text
  2.     .sdreg    r2
  3.     .align    2
  4. _CloseW:
  5. ###############################################################################
  6. # name           offset
  7. # args ###########################
  8. # window         0+0(r13)
  9.     mflr    r0
  10.     stw    r0,8(r1)
  11.     stwu    r1,-32(r1)
  12.     stw    r13,24(r1)
  13.     mr    r13,r1
  14.     stw    r3,0+28(r13)
  15. if0:
  16.     lwz    r3,_stdrast
  17.     lwz    r5,0+28(r13)
  18.     lwz    r4,50(r5)
  19.     cmpw    r3,r4
  20.     beq    $+12
  21.     li    r3,0
  22.     b    $+8
  23.     li    r3,-1
  24.     mr.    r3,r3
  25.     beq    end0
  26.     li    r3,0
  27.     stw    r3,_stdrast
  28. end0:
  29.     lwz    r3,0+28(r13)
  30.     bl    _CloseWindow    # CloseWindow
  31. CloseWend:
  32.     li    r3,0
  33. CloseWfinish:
  34.     lwz    r13,24(r1)
  35.     addi    r1,r1,32
  36.     lwz    r0,8(r1)
  37.     mtlr    r0
  38.     blr
  39.  
  40.     .global    _CloseW
  41.     .type    _CloseW,2
  42.     .size    _CloseW,$-_CloseW
  43. CloseW_local:
  44.     .global    @_CloseW_local
  45.     .extern    _CloseWindow
  46.     .tocd
  47.     .extern    _stdrast
  48.     .extern    _PowerPCBase
  49.     .extern    _stdin
  50.     .extern    _stdout
  51.     .extern    _arg
  52.     .extern    _GfxBase
  53.     .extern    _IntuitionBase
  54.     .extern    _DOSBase
  55.     .extern    _ExecBase
  56.     .data
  57.