home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / arc / lino / src / xpklib.asm < prev    next >
Encoding:
Assembly Source File  |  1995-04-13  |  1.0 KB  |  57 lines
  1.  
  2. ; xpklib.c f. Aztec (as -md xpklib)
  3.  
  4.     XREF    _XpkSubBase
  5.     XDEF    _XpksPackerInfo
  6.     XDEF    _XpksPackChunk
  7.     XDEF    _XpksPackFree
  8.     XDEF    _XpksPackReset
  9.     XDEF    _XpksUnpackChunk
  10.     XDEF    _XpksUnpackFree
  11.  
  12.     SECTION CODE
  13. _XpksPackerInfo:
  14.     move.l  a6,-(a7)
  15.     movea.l _XpkSubBase,a6
  16.     jsr     -30(a6)
  17.     movea.l (a7)+,a6
  18.     rts
  19. _XpksPackChunk:
  20.     move.l  a6,-(a7)
  21.     movea.l _XpkSubBase,a6
  22.     movea.l 8(a7),a0
  23.     jsr     -36(a6)
  24.     movea.l (a7)+,a6
  25.     rts
  26. _XpksPackFree:
  27.     move.l  a6,-(a7)
  28.     movea.l _XpkSubBase,a6
  29.     movea.l 8(a7),a0
  30.     jsr     -42(a6)
  31.     movea.l (a7)+,a6
  32.     rts
  33. _XpksPackReset:
  34.     move.l  a6,-(a7)
  35.     movea.l _XpkSubBase,a6
  36.     movea.l 8(a7),a0
  37.     jsr     -48(a6)
  38.     movea.l (a7)+,a6
  39.     rts
  40. _XpksUnpackChunk:
  41.     move.l  a6,-(a7)
  42.     movea.l _XpkSubBase,a6
  43.     movea.l 8(a7),a0
  44.     jsr     -54(a6)
  45.     movea.l (a7)+,a6
  46.     rts
  47. _XpksUnpackFree:
  48.     move.l  a6,-(a7)
  49.     movea.l _XpkSubBase,a6
  50.     movea.l 8(a7),a0
  51.     jsr     -60(a6)
  52.     movea.l (a7)+,a6
  53.     rts
  54.  
  55.     end
  56.  
  57.