CSECT   text

                XDEF    _myseg
                XDEF    _realLoadSeg
                XDEF    _realUnLoadSeg
                XDEF    _segname

                XDEF    _mLoadSeg
                XDEF    _mUnLoadSeg

_mLoadSeg:      movea.l   d1,a0
                lea       _segname,a1
lab2:           move.b    (a0)+,d0
                cmp.b     (a1)+,d0
                bne.b     lab1
                tst.b     d0
                bne.b     lab2
                move.l    _myseg,d0
                bra.b     lab3
lab1:           movea.l   _realLoadSeg,a0       ; arg still in d1
                jsr       (a0)
lab3:           rts


_mUnLoadSeg:    move.l    _myseg,d0
                cmp.l     d1,d0
                beq.b     lab4
                movea.l   _realUnLoadSeg,a0
                jsr       (a0)                  ; arg still in d1
lab4:           rts

_myseg:         dc.l    0
_realLoadSeg:   dc.l    0
_realUnLoadSeg: dc.l    0
_segname:       dc.b    ':utilities/ty',0

            END