home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / dropbox-1.1.lha / DropBox / src / dbase.a < prev    next >
Encoding:
Text File  |  1993-06-28  |  558 b   |  30 lines
  1.     SECTION CODE "Test"
  2.     CSECT    _RemoveDBNode
  3.  
  4. _AbsExecBase    EQU    4
  5.     XREF    _LVORemove
  6.     XREF    _LVORemTail
  7.     XREF    _DataBase
  8.     
  9. _RemoveDBNode    link    a5,#0        ; move a5 to stack to save it
  10.         move.l    a7,a5         ; move a7 to a5 to establish stack frame
  11.         link    a7,#0        ; link a7 to get local data space
  12.         move.l     $8(a5),a1
  13.         cmp        #0,a1    ; compare passed value with 0
  14.         bne    rem        ; if not equal remove tail
  15.         
  16.         move.l    _AbsExecBase,a6
  17.         jsr        _LVORemove(a6)
  18.         jmp     cool
  19.         
  20. rem    move.l    _DataBase,a0
  21.         move.l    _AbsExecBase,a6
  22.         jsr        _LVORemTail(a6)
  23.         
  24. cool    unlk    a7
  25.         unlk    a5
  26.         rts
  27.         
  28.     
  29.     END
  30.