home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 287.lha / TY_v1.3 / projectsdir / segdamn.a < prev    next >
Encoding:
Text File  |  1989-09-07  |  1.0 KB  |  38 lines
  1.                 CSECT   text
  2.  
  3.                 XDEF    _myseg
  4.                 XDEF    _realLoadSeg
  5.                 XDEF    _realUnLoadSeg
  6.                 XDEF    _segname
  7.  
  8.                 XDEF    _mLoadSeg
  9.                 XDEF    _mUnLoadSeg
  10.  
  11. _mLoadSeg:      movea.l   d1,a0
  12.                 lea       _segname,a1
  13. lab2:           move.b    (a0)+,d0
  14.                 cmp.b     (a1)+,d0
  15.                 bne.b     lab1
  16.                 tst.b     d0
  17.                 bne.b     lab2
  18.                 move.l    _myseg,d0
  19.                 bra.b     lab3
  20. lab1:           movea.l   _realLoadSeg,a0       ; arg still in d1
  21.                 jsr       (a0)
  22. lab3:           rts
  23.  
  24.  
  25. _mUnLoadSeg:    move.l    _myseg,d0
  26.                 cmp.l     d1,d0
  27.                 beq.b     lab4
  28.                 movea.l   _realUnLoadSeg,a0
  29.                 jsr       (a0)                  ; arg still in d1
  30. lab4:           rts
  31.  
  32. _myseg:         dc.l    0
  33. _realLoadSeg:   dc.l    0
  34. _realUnLoadSeg: dc.l    0
  35. _segname:       dc.b    ':utilities/ty',0
  36.  
  37.             END
  38.