*
* Module access system calls
*

shiftla macro
 rept \1
 lsla
 endr
 endm

 use ..../defs/os9defs.a
 psect mod_a,0,0,1,0,0

* modlink(modname,type,language)
modlink: pshs y,u save environment
 ldx 6,s get module name pointer
 lda 9,s get type
 shiftla 4 shift to m.s nibble
 ora 11,s and language

 os9 F$LINK call os9

* the only value returned is a pointer to the module
* other values can be found in the module itself
modcom
 tfr u,d C return value always in d reg.
 puls y,u restore environment
 lbcs _os9err
 rts

* modload(modname,type,language)
modload: pshs y,u save environment
 ldx 6,s get module name pointer
 lda 9,s get type
 shiftla 4
 ora 11,s and type

 os9 F$LOAD call os9

 bra modcom common code

* munlink(mod)
munlink: pshs u save register variable
 ldu 4,s get module pointer

 os9 F$UNLINK call os9
 puls u restore register variable
 lbra _sysret usual return
 endsect