chiark - git - mdw - ssr/blob - StraySrc/Dynamite/dynamite/sh/dynAnchor

   1 ;
   2 ; dynAnchor.sh
   3 ;
   4 ; Useful handle RMA allocation for dynamite
   5 ;
   6 ; © 1994 Straylight
   7 ;
   8
   9 ;----- Overview -------------------------------------------------------------
  10 ;
  11 ; Functions provided:
  12 ;
  13 ;   danc_alloc
  14 ;   danc_free
  15 ;   danc_quit
  16
  17 ; --- danc_alloc ---
  18 ;
  19 ; On entry:     --
  20 ;
  21 ; On exit:      R0 == pointer to block allocated, or V set and pointer to
  22 ;                     error
  23 ;
  24 ; Use:          Allocates an anchor to use with dynamite from the RMA,
  25 ;               in a very quick way indeed.
  26
  27                 IMPORT  danc_alloc
  28
  29 ; --- danc_free ---
  30 ;
  31 ; On entry:     R0 == pointer to block
  32 ;
  33 ; On exit:      Registers preserved
  34 ;
  35 ; Use:          Frees an anchor allocated using danc_alloc.
  36
  37                 IMPORT  danc_free
  38
  39 ; --- danc_quit ---
  40 ;
  41 ; On entry:     --
  42 ;
  43 ; On exit:      --
  44 ;
  45 ; Use:          Frees everyone's anchors nicely when the module quits.
  46
  47                 IMPORT  danc_quit
  48
  49 ;----- That's all, folks ----------------------------------------------------
  50
  51                 END