EQU  MR_SERIALPORT       0
EQU  MR_SERIALBITS       1
EQU  MR_PARALLELPORT     2
EQU  MR_PARALLELBITS     3

EQU  NUMMRTYPES          4

{s MiscResource
    struct  34 mr_Library       ( { Library=34;exec/libraries )
    LONGS   4  mr_AllocArray
   s}

\\        LIBINIT LIB_BASE
\\        LIBDEF  MR_ALLOCMISCRESOURCE
\\        LIBDEF  MR_FREEMISCRESOURCE

: MISCNAME   " misc.resource"  drop  ;

libindex: >Misc

>Misc ^ -6  (r A1 D0 r)  GetMiscResource  (s name unit# -- CurrentUser )
>Misc   -12 (r D0 r)     FreeMiscResource (s unit# -- )