chiark - git - mdw - ssr/blob - StraySrc/Libraries/Sapphire/sail/_sh/stracc

   1 ;
   2 ; stracc.sh
   3 ;
   4 ; String accululator management
   5 ;
   6 ; © 1995 Straylight
   7 ;
   8
   9 ;----- Overview -------------------------------------------------------------
  10 ;
  11 ; Functions provided:
  12 ;
  13 ;  stracc_ensure
  14 ;  stracc_added
  15 ;  stracc_free
  16
  17                 [       :LNOT::DEF:stracc__dfn
  18                 GBLL    stracc__dfn
  19
  20 ; --- stracc_ensure ---
  21 ;
  22 ; On entry:     --
  23 ;
  24 ; On exit:      R0 == address of string to use
  25 ;               R1 == offset of string from stracc, in upper 24 bits
  26 ;
  27 ; Use:          Ensures tha there are at least 256 bytes available in stracc,
  28 ;               and then returns a pointer to them.
  29
  30                 IMPORT  stracc_ensure
  31
  32 ; --- stracc_added ---
  33 ;
  34 ; On entry:     R0 == rvalue of string added
  35 ;
  36 ; On exit:      --
  37 ;
  38 ; Use:          Informs stracc that a new string has been added.
  39
  40                 IMPORT  stracc_added
  41
  42 ; --- stracc_free ---
  43 ;
  44 ; On entry:     R0 == rvalue of string no longer needed
  45 ;
  46 ; On exit:      --
  47 ;
  48 ; Use:          Tells stracc that a string is no longer needed.
  49
  50                 IMPORT  stracc_free
  51
  52                 ]
  53
  54 ;----- That's all, folks ----------------------------------------------------
  55
  56                 END