;**************************************************
;*                                                *
;*            EFMUILib Version 1.5                *
;*                                                *
;* (c) 1997-1998 by VIVID Imagination             *
;**************************************************
;
;History:
;~~~~~~~~
;
;Version 1.5 (08.03.98)
;~~~~~~~~~~~
;. MUIGetxxx commands added
;. MUISetxxx commands added
;
;Version 1.4a (13.02.98) (not released)
;~~~~~~~~~~~~
;. Enforcer Hits removed for functions
;  MUIHSpace and MUIVSpace.
;
;Version 1.4 (01.02.98)
;~~~~~~~~~~~
;. MUIChangeBitmap and MUIChangeShape added
;. MUIRedraw added
;. MUIList changed (now works)
;. MUIListHook and MUIChangeList added
;. MUIShapeObject bug removed
;
;Version 1.3 (22.01.98) (not released)
;~~~~~~~~~~~
;. MUIBitmapObject added
;. MUIShapeObject added
;. MUICreateWindow ID bug removed
;
;
;Version 1.2 (12.12.97)
;~~~~~~~~~~~
;. MUIBalanceObject added
;. MUINotifyApp added
;. MUIAddObjsXXX added
;
;
;Version 1.1a (11.12.97) (not released)
;~~~~~~~~~~~~
;. MUIImageButton bug fixed.
;
;
;Version 1.1 (07.12.97) :
;~~~~~~~~~~~
;. MUIApplicationxxx bugs removed
;. MUIDoMethod is now a command
;. Menu support added :
;    MUICreateMenu
;    MUISetMenu
;    MUIFindUData
;. Max objects set to 50 by default
;
;
;Version 1.0 (24.11.97) :
;~~~~~~~~~~~
;. First release
;
;
;Commands list:
;~~~~~~~~~~~~~~
;
;MUISetMaximumTags max
;
;MUIApplicationTitle title$
;MUIApplicationVersion version$
;MUIApplicationCopyright copyright$
;MUIApplicationAuthor author$
;MUIApplicationDescription description$
;MUIApplicationBase base$
;MUIAddApplicationTags &TagList | Tag,Value [,Tag,Value...]
;MUICreateApplication
;MUIRemoveApplication
;MUIApplicationLoc
;MUIApplicationObj To MUIObject#
;MUIAddSubWindow MUIObject#
;
;MUIFreeObject MUIObject#
;
;MUICreateWindow MUIObject#,title$ [,id$ [,MUIObject#] ]
;MUIOpenWindow MUIObject#
;MUICloseWindow MUIObject#
;
;MUICreateMenu MUIObject#,GTMenuList#,Flags [,TitleUData1 [,...]]
;MUISetMenu To MUIObject#,MUIObject#
;
;MUIObjLoc (MUIObject#)
;
;MUIRequest To MUIObject#,Flags,Title$,Gadgets$,Format$  [,Param...]
;
;MUIAddTags MUIObject#,&TagList | MUIObject#,Tag,Value [,Tag,Value...]
;
;MUINewObject MUIObject#,Class$,&TagList | MUIObject#,Class$,Tag,Value [,Tag,Value...]
;MUIMakeObject MUIObject#,Type,&TagList | MUIObject#,Type,Tag,Value [,Tag,Value...]
;
;MUIHVSpace MUIObject#
;MUIHSpace MUIObject#,x
;MUIVSpace MUIObject#,x
;MUIString MUIObject#,Contents$,MaxLen
;MUIKeyString MUIObject#,Contents,MaxLen,ControlChar$
;MUICheckMark MUIObject#,Selected
;MUIKeyCheckMark MUIObject#,Selected,ControlChar$
;MUISimpleButton MUIObject#,Name$
;MUIKeyButton MUIObject#,Name$,Key$
;MUICycle MUIObject#,  Entry$ [,Entry$...] | *Array
;MUIKeyCycle MUIObject#,Key$,  Entry$ [,Entry$...] | *Array
;MUIRadio MUIObject#,Name$,  Entry$ [,Entry$...] | *Array
;MUIKeyRadio MUIObject#,Key$,Name$,  Entry$ [,Entry$...] | *Array
;MUISlider MUIObject#,Min,Max,Level
;MUIKeySlider MUIObject#,Min,Max,Level,Key$
;MUILabel MUIObject#,Label$,Flags
;MUINumericButton MUIObject#,Format$,Min,Max
;MUIListHook On|Off
;MUIList MUIObject#,Format$,Array$()
;MUIChangeList MUIObject# [,Array$(),Position]
;MUIListview To MUIObject#,MUIObject#
;MUIPopButton MUIObject#,Image
;MUIImageButton MUIObject#,Shape#
;MUIBalanceObject MUIObject#
;MUIBitmapObject MUIObject#,BitMap# [,Palette#]
;MUIShapeObject MUIObject#,Shape# [,Palette#]
;
;MUIChangeBitmap MUIObject#,Bitmap# [,Palette#]
;MUIChangeShape MUIObject#,Shape# [,Palette#]
;
;MUIAddObjHGroup To MUIObject#,MUIObject#
;MUICreateHGroup MUIObject#
;MUIAddObjVGroup To MUIObject#,MUIObject#
;MUICreateVGroup MUIObject#
;MUIAddObjPage To MUIObject#,MUIObject#
;MUICreatePage MUIObject#  ,Page1$ [,Page2$...] | &Page$(0)
;
;MUIAddObjsHGroup To MUIObject#,MUIObject# [,MUIObject# [,...]]
;MUIAddObjsVGroup To MUIObject#,MUIObject# [,MUIObject# [,...]]
;MUIAddObjsPage To MUIObject#,MUIObject# [,MUIObject# [,...]]
;
;MUIInsertSingle MUIObject#,Position,  Entry$ [,Entry$...] | *Array
;MUIRemoveSingle MUIObject#,Position
;MUIRedrawSingle MUIObject#,Position
;MUIListTitle MUIObject#,  Title$ [,Title$...] | *Array
;
;MUISet MUIObject#,&TagList | MUIObject#,Attr,Value [,Attr,Value...]
;MUIGet (MUIObject#,Attribute)
;MUIRedraw MUIObject#,Flags
;
;MUIDoMethod MUIObject#,  Method,Tag [,Tag] | &TagList
;MUINotify MUIObject#,Tag,Value,MUIObject#,  Tag [,Tag...] | &TagList
;MUINotifyApp MUIObject#,Tag,Value,Return_ID
;MUIEvent
;MUIWaitEvent
;MUIFindUData To MUIObject#,MUIObject#,UserData
;
;MUIGetCM (MUIObject#)
;MUIGetCycle (MUIObject#)
;MUIGetString$ (MUIObject#)
;
;MUISetCM MUIObject#,Selected
;MUISetCycle MUIObject#,Selected
;MUISetString MUIObject#,String$
;

;*************
;*** TO DO ***
;*************

;
; - Another command : MUIGetString$ (and perhaps set...)
;

;************
;*** BUGS ***
;************

;
; - Some problems reported with 68060
;
; - Some problems with MUIChangeShape and MUIChangeBitmap
;

;****************
;*** Lib Init ***
;****************

.libinit:

#First_Compile=0   ;Set it to 1 if EFMUILib is not installed yet.

#rigtmenulib=37
#bbmuilib=8        ;Change it if 8 is not a free lib number

!libheader{#bbmuilib,init,0,finit,0}

!dumtoke{"MUIObject","A MUI object",_toke}

!astatement
!args        {#long}
!libs
!subs        {_setmaxtags,0,0}
!name        {"MUISetMaximumTags","max"}

!astatement
!args        {#string}
!libs
!subs        {_apptitle,0,0}
!name        {"MUIApplicationTitle","title$"}

!astatement
!args        {#string}
!libs
!subs        {_appver,0,0}
!name        {"MUIApplicationVersion","ver$"}

!astatement
!args        {#string}
!libs
!subs        {_appcr,0,0}
!name        {"MUIApplicationCopyright","copyright$"}

!astatement
!args        {#string}
!libs
!subs        {_appauthor,0,0}
!name        {"MUIApplicationAuthor","author$"}

!astatement
!args        {#string}
!libs
!subs        {_appdesc,0,0}
!name        {"MUIApplicationDescription","desc$"}

!astatement
!args        {#string}
!libs
!subs        {_appbase,0,0}
!name        {"MUIApplicationBase","base$"}


!astatement
;
!repargs     {0,1,#long}
!libs
!subs        {_addapptags,0,0}
;
!args        {#long}
!libs
!subs        {_addapptagsa,0,0}
;
!name        {"MUIAddApplicationTags","&TagList | Tag,Value [,Tag,Value...]"}


!acommand    {#long}
!args
!libs
!subs        {_createapp,0,0}
!name        {"MUICreateApplication",""}

!astatement
!args
!libs
!subs        {_removeapp,0,0}
!name        {"MUIRemoveApplication",""}

!afunction   {#long}
!args
!libs
!subs        {_apploc,0,0}
!name        {"MUIApplicationLoc",""}

!acommand    {#long}
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_appobj,0,0}
!name        {"MUIApplicationObj","To MUIObject#"}


!acommand    {#long}
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_appwin,0,0}
!name        {"MUIAddSubWindow","MUIObject#"}

!astatement
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_freeobj,0,0}
!name        {"MUIFreeObject","MUIObject#"}


!acommand    {#long}
;
!args        {#word,#string,#string,#word}
!libs        {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia0|#pd3}
!subs        {_createwin,0,0}
;
!args        {#word,#string,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_createwin1,0,0}
;
!args        {#word,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_createwin2,0,0}
;
!name        {"MUICreateWindow","MUIObject#,title$ [,id$ [,MUIObject#]]"}

!acommand    {#word}
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_openwin,0,0}
!name        {"MUIOpenWindow","MUIObject#"}

!acommand    {#word}
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_closewin,0,0}
!name        {"MUICloseWindow","MUIObject#"}

!astatement
;
!repargs     {1,1,#word,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_addobjtags,0,0}
;
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_addobjtagsa,0,0}
;
!name        {"MUIAddTags","MUIObject#,&TagList | MUIObject#,Tag,Value [,Tag,Value...]"}


!acommand    {#long}
;
!repargs     {2,1,#word,#string,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_muinewobj,0,0}
;
!args        {#word,#string,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_muinewobja,0,0}
;
!name        {"MUINewObject","MUIObject#,Class$,&TagList | MUIObject#,Class$,Tag,Value [,Tag,Value...]"}

!acommand    {#long}
;
!repargs     {2,1,#word,#long,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_muimakeobj,0,0}
;
!args        {#word,#long,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_muimakeobja,0,0}
;
!name        {"MUIMakeObject","MUIObject#,Type,&TagList | MUIObject#,Type,Tag,Value [,Tag,Value...]"}

!acommand    {#long}
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_hvspace,0,0}
!name        {"MUIHVSpace","MUIObject#"}

!acommand    {#long}
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_hspace,0,0}
!name        {"MUIHSpace","MUIObject#,x"}

!acommand    {#long}
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_vspace,0,0}
!name        {"MUIVSpace","MUIObject#,x"}

!acommand    {#long}
!args        {#word,#string,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_string,0,0}
!name        {"MUIString","MUIObject#,Contents$,MaxLen"}

!acommand    {#long}
!args        {#word,#string,#long,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_keystring,0,0}
!name        {"MUIKeyString","MUIObject#,Contents$,MaxLen,ControlChar$"}

!acommand    {#long}
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_checkmark,0,0}
!name        {"MUICheckMark","MUIObject#,Selected"}

!acommand    {#long}
!args        {#word,#long,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_keycheckmark,0,0}
!name        {"MUIKeyCheckMark","MUIObject#,Selected,ControlChar$"}

!acommand    {#long}
!args        {#word,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_simplebutton,0,0}
!name        {"MUISimpleButton","MUIObject#,Name$"}

!acommand    {#long}
!args        {#word,#string,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_keybutton,0,0}
!name        {"MUIKeyButton","MUIObject#,Name$,Key$"}

!acommand    {#long}
;
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_cyclea,0,0}
;
!repargs     {1,1,#word,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_cycle,0,0}
;
!name        {"MUICycle","MUIObject#,  Entry$ [,Entry$...] | *Array"}

!acommand    {#long}
;
!args        {#word,#string,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_keycyclea,0,0}
;
!repargs     {2,1,#word,#string,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_keycycle,0,0}
;
!name        {"MUIKeyCycle","MUIObject#,Key$,  Entry$ [,Entry$...] | *Array"}

!acommand    {#long}
;
!args        {#word,#string,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_radioa,0,0}
;
!repargs     {2,1,#word,#string,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_radio,0,0}
;
!name        {"MUIRadio","MUIObject#,Name$,  Entry$ [,Entry$...] | *Array"}

!acommand    {#long}
;
!args        {#word,#string,#string,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_keyradioa,0,0}
;
!repargs     {3,1,#word,#string,#string,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_keyradio,0,0}
;
!name        {"MUIKeyRadio","MUIObject#,Name$,Key$,  Entry$ [,Entry$...] | *Array"}

!acommand    {#long}
!args        {#word,#long,#long,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_slider,0,0}
!name        {"MUISlider","MUIObject#,Min,Max,Level"}

!acommand    {#long}
!args        {#word,#long,#long,#long,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_keyslider,0,0}
!name        {"MUIKeySlider","MUIObject#,Min,Max,Level,Key$"}

!acommand    {#long}
!args        {#word,#string,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_label,0,0}
!name        {"MUILabel","MUIObject#,Label$,Flags"}


!acommand    {#long}
!args        {#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia2|#pd1}
!subs        {_addobjhgroup,0,0}
!name        {"MUIAddObjHGroup","To MUIObject#,MUIObject#"}

!acommand    {#long}
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_createhgroup,0,0}
!name        {"MUICreateHGroup","MUIObject#"}

!acommand    {#long}
!args        {#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia2|#pd1}
!subs        {_addobjvgroup,0,0}
!name        {"MUIAddObjVGroup","To MUIObject#,MUIObject#"}

!acommand    {#long}
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_createvgroup,0,0}
!name        {"MUICreateVGroup","MUIObject#"}


!astatement
;
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_muiseta,0,0}
;
!repargs     {1,1,#word,#long}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_muiset,0,0}
;
!name        {"MUISet","MUIObject#,&TagList | MUIObject#,Attr,Value [,Attr,Value...]"}

!afunction   {#long}
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_muiget,0,0}
!name        {"MUIGet","(MUIObject#,Attribute)"}


!acommand    {#long}
;
!repargs     {2,1,#word,#long,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_dmethod,0,0}
;
!args        {#word,#long,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_dmethoda,0,0}
;
!name        {"MUIDoMethod","MUIObject#,Method,  Tag [,Tag...] | &TagList"}


!astatement
;
!repargs     {4,1,#word,#long,#long,#word,#long}
!libs        {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia0|#pd3}
!subs        {_notify,0,0}
;
!args        {#word,#long,#long,#word,#long}
!libs        {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia0|#pd3}
!subs        {_notifya,0,0}
;
!name        {"MUINotify","MUIObject#,Tag,Value,MUIObject#,  Tag [,Tag...] | &TagList"}

!afunction   {#long}
!args
!libs
!subs        {_event,0,0}
!name        {"MUIEvent",""}

!afunction   {#long}
!args
!libs
!subs        {_waitevent,0,0}
!name        {"MUIWaitEvent",""}

!acommand    {#long}
!args        {#word,#string,#long,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_numbutton,0,0}
!name        {"MUINumericButton","MUIObject#,Format$,Min,Max"}

!acommand    {#long}
!args        {#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia2|#pd1}
!subs        {_addobjpage,0,0}
!name        {"MUIAddObjPage","To MUIObject#,MUIObject#"}

!acommand    {#long}
;
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_createpagea,0,0}
;
!repargs     {1,1,#word,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_createpage,0,0}
;
!name        {"MUICreatePage","MUIObject#  ,Page1$ [,Page2$...] | &Page$(0)"}

!acommand    {#long}
;
!args        {#word,#string,#array}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_list,0,0}
;
!name        {"MUIList","MUIObject#,Format$,Array$()"}

!acommand    {#long}
!args        {#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia0|#pd1}
!subs        {_listview,0,0}
!name        {"MUIListView","To MUIObject#,MUIObject#"}

!afunction   {#long}
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_objloc,0,0}
!name        {"MUIObjLoc","(MUIObject#)"}

!acommand    {#long}
;
!args        {#word,#long,#string,#string,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_request,0,0}
;
!repargs     {5,1,#word,#long,#string,#string,#string,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_request,0,0}
;
!name        {"MUIRequest","To MUIObject#,Flags,Title$,Gadgets$,Format$  [,Param...]"}

!acommand    {#long}
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_popbutton,0,0}
!name        {"MUIPopButton","MUIObject#,Image"}

!acommand    {#long}
!args        {#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#shapeslib,#ia0|#pd1}
!subs        {_imagebutton,0,0}
!name        {"MUIImageButton","MUIObject#,Shape#"}

!acommand    {#long}
;
!args        {#word,#long,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_insertsinglea,0,0}
;
!repargs     {2,1,#word,#long,#string}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_insertsingle,0,0}
;
!name        {"MUIInsertSingle","MUIObject#,Position,  Entry$ [,Entry$...] | *Array"}

!acommand    {#long}
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_removesingle,0,0}
!name        {"MUIRemoveSingle","MUIObject#,Position"}

!acommand    {#long}
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_redrawsingle,0,0}
!name        {"MUIRedrawSingle","MUIObject#,Position"}

!acommand    {#long}
;
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_listtitlea,0,0}
;
!repargs     {1,1,#word,#string}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_listtitle,0,0}
;
!name        {"MUIListTitle","MUIObject#,  Title$ [,Title$...] | *Array"}

!acommand    {#long}
;
!args        {#word,#word,#long}
!libs        {#bbmuilib,#ia3|#pd0,#rigtmenulib,#ia2|#pd1}
!subs        {_createmenu,0,0}
;
!repargs     {3,1,#word,#word,#long,#long}
!libs        {#bbmuilib,#ia3|#pd0,#rigtmenulib,#ia1|#pd1}
!subs        {_createmenud,0,0}
;
!name        {"MUICreateMenu","MUIObject#,GTMenuList#,Flags [,TitleUData1 [,...]]"}

!acommand    {#long}
!args        {#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia2|#pd1}
!subs        {_setmenu,0,0}
!name        {"MUISetMenu","To MUIObject#,MUIObject#"}

!acommand    {#long}
!args        {#word,#word,#long}
!libs        {#bbmuilib,#ia3|#pd0,#bbmuilib,#ia2|#pd1}
!subs        {_findudata,0,0}
!name        {"MUIFindUData","To MUIObject#,MUIObject#,UserData"}

!acommand    {#long}
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_balance,0,0}
!name        {"MUIBalanceObject","MUIObject#"}

!astatement
!args        {#word,#long,#long,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_notifyapp,0,0}
!name        {"MUINotifyApp","MUIObject#,Tag,Value,ReturnID"}

CNIF #First_Compile=0

!astatement
!repargs     {1,1,#word,#word}
!libs
!subs        {_addobjh,0,0}
!name        {"MUIAddObjsHGroup","To MUIObject#,MUIObject# [,MUIObject# [,...]]"}

!astatement
!repargs     {1,1,#word,#word}
!libs
!subs        {_addobjv,0,0}
!name        {"MUIAddObjsVGroup","To MUIObject#,MUIObject# [,MUIObject# [,...]]"}

!astatement
!repargs     {1,1,#word,#word}
!libs
!subs        {_addobjp,0,0}
!name        {"MUIAddObjsPage","To MUIObject#,MUIObject# [,MUIObject# [,...]]"}

CEND

!acommand    {#long}
;
!args        {#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#bitmaplib,#ia2|#pd1}
!subs        {_bitmap,0,0}
;
!args        {#word,#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#bitmaplib,#ia2|#pd1,#palettelib,#ia0|#pd2}
!subs        {_bitmappal,0,0}
;
!name        {"MUIBitmapObject","MUIObject#,BitMap# [,Palette#]"}

!acommand    {#long}
;
!args        {#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#shapeslib,#ia2|#pd1}
!subs        {_shape,0,0}
;
!args        {#word,#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#shapeslib,#ia2|#pd1,#palettelib,#ia0|#pd2}
!subs        {_shapepal,0,0}
;
!name        {"MUIShapeObject","MUIObject#,Shape# [,Palette#]"}

!acommand    {#long}
;
!args        {#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#bitmaplib,#ia2|#pd1,#intuitionlib,#la6}
!subs        {_chbitmap,0,0}
;
!args        {#word,#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#bitmaplib,#ia2|#pd1,#palettelib,#ia0|#pd2,#intuitionlib,#la6}
!subs        {_chbitmappal,0,0}
;
!name        {"MUIChangeBitmap","MUIObject#,BitMap# [,Palette#]"}

!acommand    {#long}
;
!args        {#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#shapeslib,#ia2|#pd1,#intuitionlib,#la6}
!subs        {_chshape,0,0}
;
!args        {#word,#word,#word}
!libs        {#bbmuilib,#ia3|#pd0,#shapeslib,#ia2|#pd1,#palettelib,#ia0|#pd2,#intuitionlib,#la6}
!subs        {_chshapepal,0,0}
;
!name        {"MUIChangeShape","MUIObject#,Shape# [,Palette#]"}

!acommand    {#long}
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_redraw,0,0}
!name        {"MUIRedraw","MUIObject#,Flags"}

!astatement
!args        {#long}
!libs
!subs        {_listhook,0,0}
!name        {"MUIListHook","On|Off"}

!acommand    {#long}
;
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_chlist,0,0}
;
!args        {#word,#array,#long}
!libs        {#bbmuilib,#ia3|#pd0}
!subs        {_chlista,0,0}
;
!name        {"MUIChangeList","MUIObject# [,Array$(),Position]"}

!afunction   {#long}
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_getcm,0,0}
!name        {"MUIGetCM","(MUIObject#)"}

!afunction   {#long}
!args        {#word}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_getcyc,0,0}
!name        {"MUIGetCycle","(MUIObject#)"}

!afunction   {#string}
!args        {#word}
!libs        {#bbmuilib,#ia2|#pd0,#intuitionlib,#la6}
!subs        {_getstr,0,0}
!name        {"MUIGetString$","(MUIObject#)"}

!acommand    {#long}
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_setcm,0,0}
!name        {"MUISetCM","MUIObject#,Selected"}

!acommand    {#long}
!args        {#word,#long}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_setcyc,0,0}
!name        {"MUISetCycle","MUIObject#,Selected"}

!acommand    {#long}
!args        {#word,#string}
!libs        {#bbmuilib,#ia3|#pd0,#intuitionlib,#la6}
!subs        {_setstr,0,0}
!name        {"MUISetString","MUIObject#,String$"}

_load:!nullsub{0,0,0}
_save:!nullsub{0,0,0}
_use:!nullsub{0,0,0}
_free:!nullsub{_freeobj,0,0}

init:!nullsub{_codeinit,0,0}
finit:!nullsub{_codefinit,0,0}

!libfin{_toke,_load,_save,_use,_free,50,5}

.libfinit

;***************
;*** DEFINES ***
;***************


#_LVOOpenLibrary=-552
#_LVOCloseLibrary=-414

Macro   CALLEXEC
        MOVEA.l 4,a6
        JSR     _LVO`1(a6)
End Macro

#_LVOMUI_NewObjectA=-30         ;(class,tags)(a0,a1)
#_LVOMUI_DisposeObject=-36      ;(obj)(a0)
#_LVOMUI_RequestA=-42           ;(app,win,flags,title,gadgets,format,params)(d0,d1,d2,a0,a1,a2,a3)
#_LVOMUI_AllocAslRequest=-48    ;(type,tags)(d0,a0)
#_LVOMUI_AslRequest=-54         ;(req,tags)(a0,a1)
#_LVOMUI_FreeAslRequest=-60     ;(req)(a0)
#_LVOMUI_Error=-66              ;()()
#_LVOMUI_SetError=-72           ;(errnum)(d0)
#_LVOMUI_GetClass=-78           ;(name)(a0)
#_LVOMUI_FreeClass=-84          ;(cl)(a0)
#_LVOMUI_RequestIDCMP=-90       ;(obj,flags)(a0,d0)
#_LVOMUI_RejectIDCMP=-96        ;(obj,flags)(a0,d0)
#_LVOMUI_Redraw=-102            ;(obj,flags)(a0,d0)
#_LVOMUI_CreateCustomClass=-108 ;(base,supername,supermcc,datasize,dispatcher)(a0,a1,a2,d0,a3)
#_LVOMUI_DeleteCustomClass=-114 ;(mcc)(a0)
#_LVOMUI_MakeObjectA=-120       ;(Type,params)(d0,a0)
#_LVOMUI_Layout=-126            ;(obj,l,t,w,h,flags)(a0,d0,d1,d2,d3,d4)
#_LVOMUI_ObtainPen=-156         ;(mri,spec,flags)(a0,a1,d0)
#_LVOMUI_ReleasePen=-162        ;(mri,pen)(a0,d0)
#_LVOMUI_AddClipping=-168       ;(mri,l,t,w,h)(a0,d0,d1,d2,d3)
#_LVOMUI_RemoveClipping=-174    ;(mri,h)(a0,a1)
#_LVOMUI_AddClipRegion=-180     ;(mri,region)(a0,a1)
#_LVOMUI_RemoveClipRegion=-186  ;(mri,region)(a0,a1)
#_LVOMUI_BeginRefresh=-192      ;(mri,flags)(a0,d0)
#_LVOMUI_EndRefresh=-198        ;(mri,flags)(a0,d0)

Macro CALLMUI
        MOVEA.l _MUIBase(pc),a6
        JSR     _LVO`1(a6)
End Macro

Macro MUINAME
        Dc.b    "muimaster.library",0
End Macro

Macro OPENLIB
        LEA     `1(pc),a1
        MOVEQ   #0,d0
        !CALLEXEC       {OpenLibrary}
        MOVE.l  d0,`2
End Macro

Macro CLOSELIB
        MOVEA.l `1(pc),a1
        !CALLEXEC       {CloseLibrary}
End Macro


NEWTYPE.MUIObject
  adr.l            ;0:Address of the object
  kind.w           ;4:Kind of the object
  tagl.l           ;6:Address of the taglist
  tagp.w           ;10:Pointer of the taglist
  size.w           ;12:Size of the taglist
  special.l        ;14:Special Info
  spesize.w        ;18:Special Info size
  spe2.l           ;20:Special Info 2 (Hook)
  spe2size.w       ;24:Special Info 2 size
End NEWTYPE        ;26:sizeof

#kind_nothing=-1
#kind_app=0
#kind_win=1
#kind_menu=2
#kind_gadget=3
#kind_label=4
#kind_other=5

Macro s
  SizeOf.MUIObject\`1(a3)
End Macro

Macro t
  SizeOf.MUIObject\`1(a2)
End Macro

Macro u
  SizeOf.MUIObject\`1(a0)
End Macro

NEWTYPE.SubStruct
  *NextSub.SubStruct
  *Name.b
  pad1.l
  Flags.w
  *Key.b
  pad2.l
  MutualExclude.l
  *UserData.b
End NEWTYPE

NEWTYPE.ItemStruct
  *_NextItem.ItemStruct
  *Name.b
  pad1.l
  Flags.w
  *Key.b
  *FirstSub.SubStruct
  MutualExclude.l
  *UserData.b
End NEWTYPE

NEWTYPE.TitleStruct
  *NextTitle.TitleStruct
  *Name.b
  *_FirstItem.ItemStruct
End NEWTYPE

NEWTYPE.GTMenuList
  *_MenuList.l
  *MenuLookup.TitleStruct
  numitems.w
End NEWTYPE

Macro gl
  SizeOf.GTMenuList\`1(a2)
End Macro

Macro ggl
  SizeOf.GTMenuList\`1(a1)
End Macro

Macro ts
  SizeOf.TitleStruct\`1(a2)
End Macro

Macro tts
  SizeOf.TitleStruct\`1(a3)
End Macro

Macro is
  SizeOf.ItemStruct\`1(a0)
End Macro

Macro ss
  SizeOf.SubStruct\`1(a0)
End Macro



;************
;*** CODE ***
;************

.
._codeinit:
        MOVEM.l d0-d1/a1/a6,-(a7)
        LEA     muiname(pc),a1
        MOVEQ   #0,d0
        MOVEA.l 4,a6
        JSR     _LVOOpenLibrary(a6)
        MOVE.l  d0,_MUIBase
        BEQ     initerr
        MOVE.l  #160,d0
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,apptags
        BEQ     initerr
'ok:    MOVE.w  #0,apptap
        MOVEM.l (a7)+,d0-d1/a1/a6
        RTS

._codefinit:
        MOVEM.l d0/a1/a6,-(a7)
        BSR     _removeapp
        MOVE.l  _MUIBase(pc),d0
        BEQ     'nolib
        MOVEA.l d0,a1
        MOVEA.l 4,a6
        JSR     _LVOCloseLibrary(a6)
        CLR.l   _MUIBase
'nolib: MOVEM.l (a7)+,d0/a1/a6
        RTS


muiname:  Dc.b  "muimaster.library",0

        Even


_setmaxtags:
        MOVE.l  d0,maxt
        RTS
.
_apptitle:
        MOVEA.l apptags(pc),a1
        MOVE.w  apptap(pc),d2
        ADDA.w  d2,a1
        MOVE.l  #MUIA_Application_Title,(a1)+
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,(a1)+
        ADDQ.w  #8,d2
        MOVE.w  d2,apptap
        RTS

_appver:
        MOVEA.l apptags(pc),a1
        MOVE.w  apptap(pc),d2
        ADDA.w  d2,a1
        MOVE.l  #MUIA_Application_Version,(a1)+
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,(a1)+
        ADDQ.w  #8,d2
        MOVE.w  d2,apptap
        RTS

_appcr:
        MOVEA.l apptags(pc),a1
        MOVE.w  apptap(pc),d2
        ADDA.w  d2,a1
        MOVE.l  #MUIA_Application_Copyright,(a1)+
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,(a1)+
        ADDQ.w  #8,d2
        MOVE.w  d2,apptap
        RTS

_appauthor:
        MOVEA.l apptags(pc),a1
        MOVE.w  apptap(pc),d2
        ADDA.w  d2,a1
        MOVE.l  #MUIA_Application_Author,(a1)+
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,(a1)+
        ADDQ.w  #8,d2
        MOVE.w  d2,apptap
        RTS

_appdesc:
        MOVEA.l apptags(pc),a1
        MOVE.w  apptap(pc),d2
        ADDA.w  d2,a1
        MOVE.l  #MUIA_Application_Description,(a1)+
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,(a1)+
        ADDQ.w  #8,d2
        MOVE.w  d2,apptap
        RTS

_appbase:
        MOVEA.l apptags(pc),a1
        MOVE.w  apptap(pc),d2
        ADDA.w  d2,a1
        MOVE.l  #MUIA_Application_Base,(a1)+
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,(a1)+
        ADDQ.w  #8,d2
        MOVE.w  d2,apptap
        RTS

_apploc:
        MOVE.l  #appstruct,d0
        RTS

_appobj:
        MOVE.l  apptags(pc),!s{tagl}
        MOVE.w  apptap(pc),!s{tagp}
        MOVE.l  appaddr(pc),!s{adr}
        MOVE.w  #kind_app,!s{kind}
        MOVE.l  #160,!s{size}
        RTS


_appwin:                        ;a3=MUIObject=>Window
        TST.l   !s{adr}
        BEQ     'nowin
        MOVEQ   #0,d0
        CMP.w   #kind_win,!s{kind}
        BNE     'nowin
        MOVEA.l apptags(pc),a1
        MOVE.w  apptap(pc),d0
        ADDA.w  d0,a1
        MOVE.l  #SubWindow,(a1)+
        MOVE.l  !s{adr},(a1)+
        ADDQ.w  #8,d0
        MOVE.w  d0,apptap
        MOVE.l  #-1,d0
'nowin: RTS

._addapptags:
        MOVEA.l apptags(pc),a1
        MOVE.w  apptap(pc),d0
        ADDA.w  d0,a1
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),(a1)+
        ADDQ.w  #4,d0
        DBF     d7,'loop
        MOVE.w  d0,apptap
        RTS

_addapptagsa:                   ;d0=&taglist
        MOVEA.l d0,a0
        BEQ     'notags
        MOVEA.l apptags(pc),a1
        MOVE.l  a1,d0
        MOVE.w  apptap(pc),d1
        ADDA.w  d1,a1
'loop:  MOVE.l  (a0)+,(a1)+
        BNE     'loop
        SUBA.l  d0,a1
        MOVE.w  d0,apptap
'notags:RTS

._createapp:
        LEA     appclass(pc),a0
        MOVE.l  apptags(pc),d0
        BEQ     'noapp
        MOVEA.l d0,a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,appaddr
        BEQ     'noapp
        MOVE.l  #-1,d0
'noapp: RTS

._removeapp:
        MOVE.l  appaddr(pc),d0
        BEQ     'noapp
        MOVEA.l d0,a0
        !CALLMUI        {MUI_DisposeObject}
        CLR.l   appaddr
'noapp: RTS



.
_createwin2:
        MOVEQ   #0,d2
_createwin1:
        SUBA.l  a0,a0
._createwin:                    ;d1=title$ d2=id$ a0=MUIObject# (WindowsContents)
        TST.l   6(a3)
        BEQ     'notl
        MOVEA.l 6(a3),a1
        MOVE.w  10(a3),d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Window_Title,(a1)+
        MOVE.l  d1,d0
        MOVE.l  -4(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,(a1)+
        ADDQ.w  #8,d6
        TST.l   d2
        BEQ     'noid
        MOVE.l  #MUIA_Window_ID,(a1)+
        MOVE.l  a0,-(a7)
        MOVE.l  d2,a0
        MOVE.l  (a0),d2
        MOVE.l  d2,(a1)+
        MOVEA.l (a7)+,a0
        ADDQ.w  #8,d6
'noid:  TST.l   (a0)
        BEQ     'noobj
        MOVE.l  #WindowContents,(a1)+
        MOVE.l  (a0),(a1)+
        ADDQ.w  #8,d6
'noobj: MOVEA.l !s{tagl},a1
        MOVE.w  d6,10(a3)
        MOVEQ   #0,d0
        LEA     winclass(pc),a0
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,(a3)
        BEQ     'nowin
        MOVE.w  #kind_win,!s{kind}
        MOVE.l  #-1,d0
        BRA     'nowin
'notl:
        TST.l   (a0)
        BEQ     'nowin
        MOVEM.l d1-d2/a2-a3,-(a7)
        MOVE.l  maxt(pc),d0
        LSL.l   #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVEM.l (a7)+,d1-d2/a2-a3
        MOVE.l  d0,6(a3)
        BEQ     'nowin
        MOVEA.l d0,a1
        MOVE.l  #MUIA_Window_Title,(a1)+
        MOVE.l  d1,d0
        MOVE.l  -4(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,(a1)+
        MOVE.l  #MUIA_Window_ID,(a1)+
        MOVE.l  a0,-(a7)
        MOVE.l  d2,a0
        MOVE.l  (a0),d2
        MOVE.l  d2,(a1)+
        MOVEA.l (a7)+,a0
        MOVE.l  #WindowContents,(a1)+
        MOVE.l  (a0),(a1)+
        MOVE.w  #24,10(a3)
        MOVEA.l 6(a3),a1
        LEA     winclass(pc),a0
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,(a3)
        BEQ     'nowin
        MOVE.w  #kind_win,4(a3)
        MOVE.l  #-1,d0
'nowin:
        RTS

._openwin:
        MOVE.l  a6,_IntuiBase
        MOVEQ   #0,d0
        CMP.w   #kind_win,4(a3)
        BNE     'nowin
        MOVE.l  (a3),d0
        BEQ     'nowin
        MOVE.l  #MUIA_Window_Open,d1
        MOVEQ   #1,d2
        BSR     _set
        MOVE.l  #-1,d0
'nowin: RTS

._closewin:
        MOVE.l  a6,_IntuiBase
        MOVEQ   #0,d0
        CMP.w   #kind_win,4(a3)
        BNE     'nowin
        MOVE.l  (a3),d0
        BEQ     'nowin
        MOVE.l  #MUIA_Window_Open,d1
        MOVEQ   #0,d2
        BSR     _set
        MOVE.l  #-1,d0
'nowin: RTS

.
._createmenu: ;a2=gtml a3=mo d2=f
        BSR     _freeobj
        MOVE.w  !gl{numitems},d0
        ADDQ.w  #1,d0
        MULU.w  #20,d0
        MOVE.w  d0,!s{spesize}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{special}
        BEQ     'noobj
        MOVEA.l d0,a1
        MOVEA.l !gl{MenuLookup},a2
'tit:   MOVE.b  #1,(a1)
        MOVE.l  !ts{Name},2(a1)
        ADDA.l  #20,a1
        TST.l   !ts{_FirstItem}
        BEQ     'nxtti
        MOVEA.l !ts{_FirstItem},a0
'ite:   MOVE.b  #2,(a1)
        MOVE.l  !is{Name},2(a1)
        MOVE.l  !is{Key},6(a1)
        MOVE.w  !is{Flags},10(a1)
        MOVE.l  !is{MutualExclude},12(a1)
        MOVE.l  !is{UserData},16(a1)
        ADDA.l  #20,a1
        TST.l   !is{FirstSub}
        BEQ     'nxtit
        MOVE.l  a0,-(a7)
        MOVEA.l !is{FirstSub},a0
'su:    MOVE.b  #3,(a1)
        MOVE.l  !ss{Name},2(a1)
        MOVE.l  !ss{Key},6(a1)
        MOVE.w  !ss{Flags},10(a1)
        MOVE.l  !ss{MutualExclude},12(a1)
        MOVE.l  !ss{UserData},16(a1)
        ADDA.l  #20,a1
        TST.l   !ss{NextSub}
        BEQ     'nxti
        MOVEA.l !ss{NextSub},a0
        BRA     'su
'nxti:  MOVEA.l (a7)+,a0
'nxtit: TST.l   !is{_NextItem}
        BEQ     'nxtti
        MOVEA.l !is{_NextItem},a0
        BRA     'ite
'nxtti: MOVE.l  !ts{NextTitle},d0
        BEQ     'fin
        MOVEA.l d0,a2
        BRA     'tit
'fin:   MOVE.b  #0,(a1)
        LEA     args(pc),a0
        MOVE.l  a0,d1
        MOVE.l  !s{special},(a0)+
        MOVE.l  d2,(a0)+
        MOVE.l  #0,(a0)+
        MOVEA.l d1,a0
        MOVE.l  #MUIO_MenustripNM,d0
        !CALLMUI        {MUI_MakeObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        CLR.l   !s{tagl}
        CLR.w   !s{size}
        MOVE.w  #kind_menu,!s{kind}
        MOVE.l  #-1,d0
'noobj:
        RTS


_createmenud: ;a1=gtml a3=mo d2=f (a2)=ud
        BSR     _freeobj
        MOVE.w  !ggl{numitems},d0
        ADDQ.w  #1,d0
        MULU.w  #20,d0
        MOVE.w  d0,!s{spesize}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{special}
        BEQ     'noobj
        MOVE.l  a3,-(a7)
        MOVEA.l !ggl{MenuLookup},a3
        MOVEA.l d0,a1
'tit:   MOVE.b  #1,(a1)
        MOVE.l  !tts{Name},2(a1)
        MOVE.l  -(a2),16(a1)
        ADDA.l  #20,a1
        TST.l   !tts{_FirstItem}
        BEQ     'nxtti
        MOVEA.l !tts{_FirstItem},a0
'ite:   MOVE.b  #2,(a1)
        MOVE.l  !is{Name},2(a1)
        MOVE.l  !is{Key},6(a1)
        MOVE.w  !is{Flags},10(a1)
        MOVE.l  !is{MutualExclude},12(a1)
        MOVE.l  !is{UserData},16(a1)
        ADDA.l  #20,a1
        TST.l   !is{FirstSub}
        BEQ     'nxtit
        MOVE.l  a0,-(a7)
        MOVEA.l !is{FirstSub},a0
'su:    MOVE.b  #3,(a1)
        MOVE.l  !ss{Name},2(a1)
        MOVE.l  !ss{Key},6(a1)
        MOVE.w  !ss{Flags},10(a1)
        MOVE.l  !ss{MutualExclude},12(a1)
        MOVE.l  !ss{UserData},16(a1)
        ADDA.l  #20,a1
        TST.l   !ss{NextSub}
        BEQ     'nxti
        MOVEA.l !ss{NextSub},a0
        BRA     'su
'nxti:  MOVEA.l (a7)+,a0
'nxtit: TST.l   !is{_NextItem}
        BEQ     'nxtti
        MOVEA.l !is{_NextItem},a0
        BRA     'ite
'nxtti: MOVE.l  !tts{NextTitle},d0
        BEQ     'fin
        MOVEA.l d0,a3
        BRA     'tit
'fin:   MOVEA.l (a7)+,a3
        MOVE.b  #0,(a1)
        LEA     args(pc),a0
        MOVE.l  a0,d1
        MOVE.l  !s{special},(a0)+
        MOVE.l  d2,(a0)+
        MOVE.l  #0,(a0)+
        MOVEA.l d1,a0
        MOVE.l  #MUIO_MenustripNM,d0
        !CALLMUI        {MUI_MakeObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        CLR.l   !s{tagl}
        CLR.w   !s{size}
        MOVE.w  #kind_menu,!s{kind}
        MOVE.l  #-1,d0
'noobj:
        RTS

._setmenu: ;a3=win a2=menu
        TST.l   !s{adr}
        BNE     'noobj
        TST.l   !t{adr}
        BEQ     'noobj
        CMP.w   #kind_menu,!t{kind}
        BNE     'noobj
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL.l   #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Window_Menustrip,(a1)+
        MOVE.l  !t{adr},(a1)+
        ADD.w   #8,d6
        MOVE.w  d6,!s{tagp}
'noobj: RTS
.
._objloc:
        MOVE.l  !s{adr},d0
        RTS

.
._request:  ;(win,flags,&title$,&gadget$,&format$,params)(a3,d1,d2,d3,d4,-12(a2))
        MOVEQ   #0,d0
        TST.l   appaddr
        BEQ     'noobj
        TST.l   !s{adr}
        BEQ     'noobj
        CMP.w   #kind_win,!s{kind}
        BNE     'noobj
        MOVE.l  d1,d5
        MOVE.l  d2,d0
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVEA.l d0,a0
        MOVE.l  d0,s0
        MOVE.l  d3,d0
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVEA.l d0,a1
        MOVE.l  d0,s1
        MOVE.l  d4,d0
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,s2
        MOVE.l  !s{adr},d1
        MOVE.l  d5,d2
        SUBA.l  a3,a3
        TST.w   d7
        BLE     'noparams
        LEA     args(pc),a3
        MOVE.l  a3,d6
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),(a3)+
        DBF     d7,'loop
        MOVE.l  #0,(a3)+
        MOVEA.l d6,a3
'noparams:
        MOVEA.l s2,a2
        MOVE.l  appaddr(pc),d0
        !CALLMUI        {MUI_RequestA}    ;(app,win,flags,title,gadgets,format,params)(d0,d1,d2,a0,a1,a2,a3)
        MOVE.l  d0,d5
        MOVE.l  s0,d0
        ALibJsr $cf02
        MOVE.l  s1,d0
        ALibJsr $cf02
        MOVE.l  s2,d0
        ALibJsr $cf02
        MOVE.l  d5,d0
'noobj: RTS

.
._addobjtags:
        TST.l   6(a3)
        BEQ     'notl
        MOVEA.l 6(a3),a1
        MOVE.w  10(a3),d0
        ADDA.w  d0,a1
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),(a1)+
        ADDQ.w  #4,d0
        DBF     d7,'loop
        MOVE.w  d0,10(a3)
        BRA     'nomem
'notl:  MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,6(a3)
        BEQ     'nomem
        MOVE.w  #0,10(a3)
        MOVEA.l d0,a1
        MOVEQ   #0,d0
        SUBQ    #1,d7
'loop1: MOVE.l  -(a2),(a1)+
        ADDQ.w  #4,d0
        DBF     d7,'loop1
        MOVE.w  d0,10(a3)
'nomem: RTS

_addobjtagsa:
        TST.l   !s{tagl}
        BEQ     'notl
        MOVEA.l !s{tagl},a1
        ADDA.w  d0,a1
        MOVEA.l d1,a0
        MOVEA.l (a0),a0
'loop:  MOVE.l  (a0)+,(a1)+
        BNE     'loop
        MOVE.l  !s{tagl},d0
        SUBA.l  d0,a1
        MOVE.w  d0,!s{tagp}
        BRA     'nomem
'notl:  MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  d1,-(a7)
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  (a7)+,d1
        MOVE.l  d0,!s{tagl}
        BEQ     'nomem
        MOVEA.l d0,a1
        MOVEA.l d1,a0
        MOVEA.l (a0),a0
'loop1: MOVE.l  (a0)+,(a1)+
        BNE     'loop1
        MOVE.l  !s{tagl},d0
        SUBA.l  d0,a1
        MOVE.w  !s{tagp},d1
        ADD.w   d0,d1
        MOVE.w  d1,!s{tagp}
'nomem: RTS


.
._muinewobj:
        MOVEA.l d1,a0
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'err
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        SUBQ    #1,d7
        TST.l   -(a2)
'loop:  MOVE.l  -(a2),(a1)+
        ADDQ.w  #4,d6
        DBF     d7,'loop
        MOVE.w  d6,!s{tagp}
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'err
        MOVE.l  #-1,d0
'err:   RTS


_muinewobja:
        MOVEA.l d1,a0
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'err
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVEA.l d2,a2
'loop:  MOVE.l  (a2)+,(a1)+
        BNE     'loop
        MOVE.l  !s{tagl},d6
        SUBA.l  d6,a1
        MOVE.w  d6,!s{tagp}
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'err
        MOVE.l  #-1,d0
'err:   RTS

._muimakeobj:
        MOVE.l  d1,-(a7)
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'err
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),(a1)+
        ADDQ.w  #4,d6
        DBF     d7,'loop
        MOVE.w  d6,!s{tagp}
        MOVE.l  (a7)+,d0
        MOVEA.l !s{tagl},a0
        !CALLMUI        {MUI_MakeObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'err
        MOVE.l  #-1,d0
'err:   RTS



_muimakeobja:
        MOVE.l  d1,-(a7)
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'err
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVEA.l d2,a2
'loop:  MOVE.l  (a2)+,(a1)+
        BNE     'loop
        MOVE.l  !s{tagl},d6
        SUBA.l  d6,a1
        MOVE.w  d6,!s{tagp}
        MOVE.l  (a7)+,d0
        MOVEA.l !s{tagl},a0
        !CALLMUI        {MUI_MakeObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'err
        MOVE.l  #-1,d0
'err:   RTS


.
._muimacros:


_hvspace:
        LEA     rectangleclass(pc),a0
        SUBA.l  a1,a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        CLR.l   !s{tagl}
        CLR.l   !s{size}
        MOVE.w  #kind_other,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_hspace:
        MOVE.l  #MUIO_HSpace,d0
        LEA     args(pc),a0
        MOVE.l  d1,(a0)
        MOVE.l  #0,4(a0)
        !CALLMUI        {MUI_MakeObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        CLR.l   !s{tagl}
        CLR.w   !s{size}
        MOVE.w  #kind_other,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

._vspace:
        MOVE.l  #MUIO_VSpace,d0
        LEA     args(pc),a0
        MOVE.l  d1,(a0)
        MOVE.l  #0,4(a0)
        !CALLMUI        {MUI_MakeObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        CLR.l   !s{tagl}
        CLR.w   !s{size}
        MOVE.w  #kind_other,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS


_string:
        MOVE.l  d1,d5
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Frame,(a1)+
        MOVE.l  #MUIV_Frame_String,(a1)+
        MOVE.l  #MUIA_String_MaxLen,(a1)+
        MOVE.l  d2,(a1)+
        MOVE.l  #MUIA_String_Contents,(a1)+
        MOVE.l  d5,(a1)+
        ADD.w   #24,d6
        MOVE.w  d6,!s{tagp}
        LEA     stringclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_keystring:
        MOVE.l  d1,d5
        MOVEA.l d3,a0
        MOVEQ   #0,d3
        MOVE.b  (a0),d3
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Frame,(a1)+
        MOVE.l  #MUIV_Frame_String,(a1)+
        MOVE.l  #MUIA_ControlChar,(a1)+
        MOVE.l  d3,(a1)+
        MOVE.l  #MUIA_String_MaxLen,(a1)+
        MOVE.l  d2,(a1)+
        MOVE.l  #MUIA_String_Contents,(a1)+
        MOVE.l  d5,(a1)+
        ADD.w   #32,d6
        MOVE.w  d6,!s{tagp}
        LEA     stringclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_checkmark:
        MOVE.l  d1,d5
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Frame,(a1)+
        MOVE.l  #MUIV_Frame_ImageButton,(a1)+
        MOVE.l  #MUIA_InputMode,(a1)+
        MOVE.l  #MUIV_InputMode_Toggle,(a1)+
        MOVE.l  #MUIA_Image_Spec,(a1)+
        MOVE.l  #MUII_CheckMark,(a1)+
        MOVE.l  #MUIA_Image_FreeVert,(a1)+
        MOVE.l  #1,(a1)+
        MOVE.l  #MUIA_Selected,(a1)+
        MOVE.l  d5,(a1)+
        MOVE.l  #MUIA_Background,(a1)+
        MOVE.l  #MUII_ButtonBack,(a1)+
        MOVE.l  #MUIA_ShowSelState,(a1)+
        MOVE.l  #0,(a1)+
        ADD.w   #56,d6
        MOVE.w  d6,!s{tagp}
        LEA     imageclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_keycheckmark:
        MOVE.l  d1,d5
        MOVEA.l d2,a0
        MOVEQ   #0,d2
        MOVE.b  (a0),d2
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Frame,(a1)+
        MOVE.l  #MUIV_Frame_ImageButton,(a1)+
        MOVE.l  #MUIA_InputMode,(a1)+
        MOVE.l  #MUIV_InputMode_Toggle,(a1)+
        MOVE.l  #MUIA_Image_Spec,(a1)+
        MOVE.l  #MUII_CheckMark,(a1)+
        MOVE.l  #MUIA_Image_FreeVert,(a1)+
        MOVE.l  #1,(a1)+
        MOVE.l  #MUIA_Selected,(a1)+
        MOVE.l  d5,(a1)+
        MOVE.l  #MUIA_Background,(a1)+
        MOVE.l  #MUII_ButtonBack,(a1)+
        MOVE.l  #MUIA_ShowSelState,(a1)+
        MOVE.l  #0,(a1)+
        MOVE.l  #MUIA_ControlChar,(a1)+
        MOVE.l  d2,(a1)+
        ADD.w   #64,d6
        MOVE.w  d6,!s{tagp}
        LEA     imageclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS


_simplebutton:
        MOVE.l  d1,str
        BSR     _freeobj
        LEA     str(pc),a0
        MOVE.l  #MUIO_Button,d0
        !CALLMUI        {MUI_MakeObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        CLR.l   !s{tagl}
        CLR.w   !s{size}
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_keybutton:
        MOVE.l  d1,d0
        MOVE.l  -4(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,d5
        MOVEA.l d2,a0
        MOVEQ   #0,d2
        MOVE.b  (a0),d2
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Frame,(a1)+
        MOVE.l  #MUIV_Frame_Button,(a1)+
        MOVE.l  #MUIA_Font,(a1)+
        MOVE.l  #MUIV_Font_Button,(a1)+
        MOVE.l  #MUIA_Text_Contents,(a1)+
        MOVE.l  d5,(a1)+
        MOVE.l  #MUIA_Text_PreParse,(a1)+
        LEA     cenc(pc),a0
        MOVE.l  a0,d0
        MOVE.l  #4,d1
        ALibJsr $cf01
        MOVE.l  d0,(a1)+
        MOVE.l  #MUIA_Text_HiChar,(a1)+
        MOVE.l  d2,(a1)+
        MOVE.l  #MUIA_ControlChar,(a1)+
        MOVE.l  d2,(a1)+
        MOVE.l  #MUIA_InputMode,(a1)+
        MOVE.l  #MUIV_InputMode_RelVerify,(a1)+
        MOVE.l  #MUIA_Background,(a1)+
        MOVE.l  #MUII_ButtonBack,(a1)+
        ADD.w   #64,d6
        MOVE.w  d6,!s{tagp}
        LEA     textclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS


_cycle:
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #20,d0
        LSL     #2,d0
        MOVE.w  d0,!s{spesize}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{special}
        BEQ     'noobj
        MOVEA.l d0,a0
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),d1
        MOVE.l  -(a2),d0
        ALibJsr $cf01
        MOVE.l  d0,(a0)+
        DBF     d7,'loop
        MOVE.l  #0,(a0)
        MOVE.l  #MUIA_Font,(a1)+
        MOVE.l  #MUIV_Font_Button,(a1)+
        MOVE.l  #MUIA_Cycle_Entries,(a1)+
        MOVE.l  !s{special},(a1)+
        ADD.w   #16,d6
        MOVE.w  d6,!s{tagp}
        LEA     cycleclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_cyclea:
        MOVE.l  d1,d5
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        CLR.w   !s{tagp}
'tlok:
        MOVEA.l !s{tagl},a1
        MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Font,(a1)+
        MOVE.l  #MUIV_Font_Button,(a1)+
        MOVE.l  #MUIA_Cycle_Entries,(a1)+
        MOVE.l  d5,(a1)+
        ADD.w   #16,d6
        MOVE.w  d6,!s{tagp}
        LEA     cycleclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS


_keycycle:
        MOVEA.l d1,a0
        MOVEQ   #0,d5
        MOVE.b  (a0),d5
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #20,d0
        LSL     #2,d0
        MOVE.w  d0,!s{spesize}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{special}
        BEQ     'noobj
        MOVEA.l d0,a0
        SUBQ    #1,d7
        TST.l   -(a2)
'loop:  MOVE.l  -(a2),d1
        MOVE.l  -(a2),d0
        ALibJsr $cf01
        MOVE.l  d0,(a0)+
        DBF     d7,'loop
        MOVE.l  #0,(a0)+
        MOVE.l  #MUIA_Font,(a1)+
        MOVE.l  #MUIV_Font_Button,(a1)+
        MOVE.l  #MUIA_Cycle_Entries,(a1)+
        MOVE.l  !s{special},(a1)+
        MOVE.l  #MUIA_ControlChar,(a1)+
        MOVE.l  d5,(a1)+
        ADD.w   #24,d6
        MOVE.w  d6,!s{tagp}
        LEA     cycleclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_keycyclea:
        MOVEA.l d1,a0
        MOVEQ   #0,d5
        MOVE.b  (a0),d5
        MOVE.l  d2,d4
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        CLR.w   !s{tagp}
'tlok:
        MOVEA.l !s{tagl},a1
        MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Font,(a1)+
        MOVE.l  #MUIV_Font_Button,(a1)+
        MOVE.l  #MUIA_Cycle_Entries,(a1)+
        MOVE.l  d4,(a1)+
        MOVE.l  #MUIA_ControlChar,(a1)+
        MOVE.l  d5,(a1)+
        ADD.w   #24,d6
        MOVE.w  d6,!s{tagp}
        LEA     cycleclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_radio:
        MOVE.l  d1,d0
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,d4
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #20,d0
        LSL     #2,d0
        MOVE.w  d0,!s{spesize}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{special}
        BEQ     'noobj
        MOVEA.l d0,a0
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),d1
        MOVE.l  -(a2),d0
        ALibJsr $cf01
        MOVE.l  d0,(a0)+
        DBF     d7,'loop
        MOVE.l  #0,(a0)+
        MOVE.l  #MUIA_Frame,(a1)+
        MOVE.l  #MUIV_Frame_Group,(a1)+
        MOVE.l  #MUIA_FrameTitle,(a1)+
        MOVE.l  d4,(a1)+
        MOVE.l  #MUIA_Background,(a1)+
        MOVE.l  #MUII_GroupBack,(a1)+
        MOVE.l  #MUIA_Radio_Entries,(a1)+
        MOVE.l  !s{special},(a1)+
        ADD.w   #32,d6
        MOVE.w  d6,!s{tagp}
        LEA     radioclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_radioa:
        MOVE.l  d1,d4
        MOVE.l  d2,d5
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:
        MOVEA.l !s{tagl},a1
        MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Frame,(a1)+
        MOVE.l  #MUIV_Frame_Group,(a1)+
        MOVE.l  #MUIA_FrameTitle,(a1)+
        MOVE.l  d4,(a1)+
        MOVE.l  #MUIA_Background,(a1)+
        MOVE.l  #MUII_GroupBack,(a1)+
        MOVE.l  #MUIA_Radio_Entries,(a1)+
        MOVE.l  d5,(a1)+
        ADD.w   #32,d6
        MOVE.w  d6,!s{tagp}
        LEA     radioclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS


_keyradio:
        MOVE.l  d1,d0
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,d4
        MOVEA.l d2,a0
        MOVEQ   #0,d5
        MOVE.b  (a0),d5
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #20,d0
        LSL     #2,d0
        MOVE.w  d0,!s{spesize}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{special}
        BEQ     'noobj
        MOVEA.l d0,a0
        SUBQ    #1,d7
        TST.l   -(a2)
'loop:  MOVE.l  -(a2),d1
        MOVE.l  -(a2),d0
        ALibJsr $cf01
        MOVE.l  d0,(a0)+
        DBF     d7,'loop
        MOVE.l  #0,(a0)+
        MOVE.l  #MUIA_Frame,(a1)+
        MOVE.l  #MUIV_Frame_Group,(a1)+
        MOVE.l  #MUIA_FrameTitle,(a1)+
        MOVE.l  d4,(a1)+
        MOVE.l  #MUIA_Background,(a1)+
        MOVE.l  #MUII_GroupBack,(a1)+
        MOVE.l  #MUIA_Radio_Entries,(a1)+
        MOVE.l  !s{special},(a1)+
        MOVE.l  #MUIA_ControlChar,(a1)+
        MOVE.l  d5,(a1)+
        ADD.w   #40,d6
        MOVE.w  d6,!s{tagp}
        LEA     radioclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_keyradioa:
        MOVE.l  d1,d4
        MOVEA.l d2,a0
        MOVEQ   #0,d5
        MOVE.b  (a0),d5
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        CLR.w   !s{tagp}
'tlok:
        MOVEA.l !s{tagl},a1
        MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Frame,(a1)+
        MOVE.l  #MUIV_Frame_Group,(a1)+
        MOVE.l  #MUIA_FrameTitle,(a1)+
        MOVE.l  d4,(a1)+
        MOVE.l  #MUIA_Background,(a1)+
        MOVE.l  #MUII_GroupBack,(a1)+
        MOVE.l  #MUIA_Radio_Entries,(a1)+
        MOVE.l  d3,(a1)+
        MOVE.l  #MUIA_ControlChar,(a1)+
        MOVE.l  d5,(a1)+
        ADD.w   #40,d6
        MOVE.w  d6,!s{tagp}
        LEA     radioclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS


_slider:
        MOVE.l  d1,d5
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Numeric_Min,(a1)+
        MOVE.l  d5,(a1)+
        MOVE.l  #MUIA_Numeric_Max,(a1)+
        MOVE.l  d2,(a1)+
        MOVE.l  #MUIA_Numeric_Value,(a1)+
        MOVE.l  d3,(a1)+
        ADD.w   #24,d6
        MOVE.w  d6,!s{tagp}
        LEA     sliderclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_keyslider:
        MOVE.l  d1,d5
        MOVE.l  d4,a0
        MOVEQ   #0,d4
        MOVE.b  (a0),d4
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Numeric_Min,(a1)+
        MOVE.l  d5,(a1)+
        MOVE.l  #MUIA_Numeric_Max,(a1)+
        MOVE.l  d2,(a1)+
        MOVE.l  #MUIA_Numeric_Value,(a1)+
        MOVE.l  d3,(a1)+
        MOVE.l  #MUIA_ControlChar,(a1)+
        MOVE.l  d4,(a1)+
        ADD.w   #32,d6
        MOVE.w  d6,!s{tagp}
        LEA     sliderclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS


_label:
        BSR     _freeobj
        LEA     args(pc),a1
        MOVE.l  a1,d3
        MOVE.l  d1,d0
        MOVE.l  -4(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,(a1)+
        MOVE.l  d2,(a1)+
        MOVE.l  #0,(a1)+
        MOVEA.l d3,a0
        MOVE.l  #MUIO_Label,d0
        !CALLMUI        {MUI_MakeObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        CLR.l   !s{tagl}
        CLR.w   !s{size}
        MOVE.w  #kind_label,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS


_numbutton:  ;MUIObject,&format$,min,max (a3,d1,d2,d3)
        BSR     _freeobj
        MOVEQ   #0,d0
        LEA     args(pc),a0
        MOVE.l  a0,d5
        MOVE.l  #0,(a0)+
        MOVE.l  d2,(a0)+
        MOVE.l  d3,(a0)+
        MOVE.l  d1,d0
        MOVE.l  -4(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,(a0)+
        MOVE.l  #0,(a0)+
        MOVEA.l d5,a0
        MOVE.l  #MUIO_NumericButton,d0
        !CALLMUI        {MUI_MakeObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        CLR.l   !s{tagl}
        CLR.w   !s{size}
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS
                                                                                                                        
_listhook:
        MOVE.l  d0,uhook
        RTS

._list: ;d1=f$ d2=arr$
        MOVEQ   #0,d0
        MOVE.l  d2,d4
        MOVE.l  d1,d0
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,d3
        MOVEQ   #0,d0
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        TST.l   uhook
        BEQ     'nocol
        MOVE.l  #MUIA_List_DisplayHook,(a1)+
        MOVE.l  #27,d2                    ;max col = 20
        LSL     #2,d2
        MOVE.w  d2,!s{spe2size}
        MOVE.l  d2,d0
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{spe2}
        BEQ     'noobj
        LEA     DHook(pc),a0
        MOVE.l  a1,-(a7)
        MOVEA.l !s{spe2},a1
'looph: MOVE.l  (a0)+,(a1)+
        BNE     'looph
        MOVE.l  #SizeOf.Hook,d0
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,a0
        BEQ     'noobj
        MOVE.l  !s{spe2},SizeOf.Hook\h_Entry(a0)
        MOVEA.l (a7)+,a1
        MOVE.l  a0,(a1)+
        ADDQ.w  #8,d6
'nocol: MOVE.l  #MUIA_List_Format,(a1)+
        MOVE.l  d3,(a1)+
        MOVE.l  #MUIA_List_SourceArray,(a1)+
        MOVE.l  d4,(a1)+
        ADD.w   #16,d6
        MOVE.w  d6,!s{tagp}
        LEA     listclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.l  #-1,d0
'noobj: RTS

_chlista:
        MOVEQ   #0,d0
        MOVE.l  d1,d5
        MOVE.l  d2,d6
        TST.l   !s{adr}
        BEQ     'noobj
        BSR     _chlist
        MOVE.l  !s{adr},d0
        LEA     args(pc),a0
        MOVE.l  a0,d1
        MOVE.l  #MUIM_List_Insert,(a0)+
        MOVE.l  d5,(a0)+
        MOVE.l  #-1,(a0)+
        MOVE.l  d6,(a0)+
        BSR     _domethoda
'noobj: RTS


._chlist:
        MOVEQ   #0,d0
        TST.l   !s{adr}
        BEQ     'noobj
        MOVE.l  !s{adr},d0
        LEA     args(pc),a0
        MOVE.l  a0,d1
        MOVE.l  #MUIM_List_Clear,(a0)+
        MOVE.l  #0,(a0)+
        BSR     _domethoda
'noobj: RTS




_listview:
        MOVEQ   #0,d0
        TST.l   !u{adr}
        BEQ     'noobj
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Listview_List,(a1)+
        MOVE.l  !u{adr},(a1)+
        ADDQ.w  #8,d6
        MOVE.w  d6,!s{tagp}
        LEA     listviewclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.l  #-1,d0
'noobj: RTS

_popbutton:
        BSR     _freeobj
        MOVEQ   #0,d0
        LEA     args(pc),a0
        MOVE.l  a0,d5
        MOVE.l  d1,(a0)+
        MOVE.l  #0,(a0)+
        MOVEA.l d5,a0
        MOVE.l  #MUIO_PopButton,d0
        !CALLMUI        {MUI_MakeObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        CLR.l   !s{tagl}
        CLR.w   !s{size}
        MOVE.w  #kind_gadget,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_imagebutton:
        MOVEQ   #0,d0
        TST.l   0(a0)
        BEQ     'noobj
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #SizeOf.Image,d0
        MOVE.w  d0,!s{spesize}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{special}
        BEQ     'noobj
        MOVEA.l d0,a2
        MOVE.l  (a0),4(a2)
        MOVE.w  4(a0),8(a2)
        MOVE.l  14(a0),10(a2)
        MOVEQ   #1,d0
        MOVE.w  4(a0),d1
        LSL     d1,d0
        SUBQ    #1,d0
        MOVE.b  d0,14(a2)
        MOVE.l  #MUIA_Image_OldImage,(a1)+
        MOVE.l  !s{special},(a1)+
        ADD.w   #8,d6
        MOVE.w  d6,!s{tagp}
        LEA     imageclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.l  #-1,d0
'noobj: RTS

_balance:
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #0,(a1)
        LEA     balanceclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_other,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

._bitmap:
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Bitmap_Bitmap,(a1)+
        MOVE.l  a2,(a1)+
        MOVE.l  #MUIA_Bitmap_Width,(a1)+
        MOVEQ   #0,d0
        MOVE.w  (a2),d0
        LSL.w   #3,d0
        MOVE.l  d0,(a1)+
        MOVE.l  #MUIA_Bitmap_Height,(a1)+
        MOVE.w  #0,(a1)+
        MOVE.w  2(a2),(a1)+
        ADDI.w  #24,d6
        MOVE.w  d6,!s{tagp}
        LEA     bitmapclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_other,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

._bitmappal:
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #MUIA_Bitmap_Bitmap,(a1)+
        MOVE.l  a2,(a1)+
        MOVE.l  #MUIA_Bitmap_Width,(a1)+
        MOVEQ   #0,d0
        MOVE.w  (a2),d0
        LSL.w   #3,d0
        MOVE.l  d0,(a1)+
        MOVE.l  #MUIA_Bitmap_Height,(a1)+
        MOVE.w  #0,(a1)+
        MOVE.w  2(a2),(a1)+
        MOVE.l  #MUIA_Bitmap_SourceColors,(a1)+
        MOVEA.l (a0),a0
        LEA     4(a0),a0
        MOVE.l  a0,(a1)+
        ADDI.w  #32,d6
        MOVE.w  d6,!s{tagp}
        LEA     bitmapclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_other,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

._shape:
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #SizeOf.BitMap,d0
        MOVE.w  d0,!s{spesize}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{special}
        BEQ     'noobj
        MOVEA.l d0,a0
        MOVE.w  6(a2),(a0)
        MOVE.w  2(a2),2(a0)
        MOVE.w  4(a2),4(a0)
        MOVEQ   #0,d7
        MOVEQ   #0,d0
        MOVE.w  4(a2),d7
        SUBQ    #1,d7
        MOVE.w  22(a2),d1
        MOVE.l  a1,-(a7)
'loop:  MOVE.l  d7,d0
        MOVE.l  d7,d2
        LSL     #2,d2
        MULU    d1,d0
        MOVEA.l 14(a2),a1
        ADDA.l  d0,a1
        MOVE.l  a1,8(a0,d2.l)
        DBF     d7,'loop
        MOVEA.l (a7)+,a1
        MOVE.l  #MUIA_Bitmap_Bitmap,(a1)+
        MOVE.l  a0,(a1)+
        MOVE.l  #MUIA_Bitmap_Width,(a1)+
        MOVE.w  #0,(a1)+
        MOVE.w  (a2),(a1)+
        MOVE.l  #MUIA_Bitmap_Height,(a1)+
        MOVE.w  #0,(a1)+
        MOVE.w  2(a2),(a1)+
        ADDI.w  #24,d6
        MOVE.w  d6,!s{tagp}
        LEA     bitmapclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_other,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS

_shapepal:
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #SizeOf.BitMap,d0
        MOVE.w  d0,!s{spesize}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{special}
        BEQ     'noobj
        MOVEM.l a0-a1,-(a7)
        MOVEA.l d0,a0
        MOVE.w  6(a2),(a0)
        MOVE.w  2(a2),2(a0)
        MOVE.w  4(a2),4(a0)
        MOVEQ   #0,d7
        MOVEQ   #0,d0
        MOVE.w  4(a2),d7
        SUBQ    #1,d7
        MOVE.w  22(a2),d1
'loop:  MOVE.l  d7,d0
        MOVE.l  d7,d2
        LSL     #2,d2
        MULU    d1,d0
        MOVEA.l 14(a2),a1
        ADDA.l  d0,a1
        MOVE.l  a1,8(a0,d2.l)
        DBF     d7,'loop
        MOVEM.l (a7)+,a0-a1
        MOVE.l  #MUIA_Bitmap_Bitmap,(a1)+
        MOVE.l  !s{special},(a1)+
        MOVE.l  #MUIA_Bitmap_Width,(a1)+
        MOVE.w  #0,(a1)+
        MOVE.w  (a2),(a1)+
        MOVE.l  #MUIA_Bitmap_Height,(a1)+
        MOVE.w  #0,(a1)+
        MOVE.w  2(a2),(a1)+
        MOVE.l  #MUIA_Bitmap_SourceColors,(a1)+
        MOVEA.l (a0),a0
        LEA     4(a0),a0
        MOVE.l  a0,(a1)
        ADDI.w  #32,d6
        MOVE.w  d6,!s{tagp}
        LEA     bitmapclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.w  #kind_other,!s{kind}
        MOVE.l  #-1,d0
'noobj: RTS


._chbitmap:
        TST.l   !s{adr}
        BEQ     'noobj
        LEA     args(pc),a1
        MOVE.l  a1,d3
        MOVE.l  #MUIA_Bitmap_Bitmap,(a1)+
        MOVE.l  a2,(a1)+
        MOVE.l  #MUIA_Bitmap_Width,(a1)+
        MOVEQ   #0,d0
        MOVE.w  (a2),d0
        LSL.w   #3,d0
        MOVE.l  d0,(a1)+
        MOVE.l  #MUIA_Bitmap_Height,(a1)+
        MOVE.w  #0,(a1)+
        MOVE.w  2(a2),(a1)+
        MOVE.l  #TAG_DONE,(a1)+
        MOVEA.l d3,a1
        MOVEA.l !s{adr},a0
        JSR     -648(a6)
'noobj: RTS

._chbitmappal:
        TST.l   !s{adr}
        BEQ     'noobj
        LEA     args(pc),a1
        MOVE.l  a1,d3
        MOVE.l  #MUIA_Bitmap_Bitmap,(a1)+
        MOVE.l  a2,(a1)+
        MOVE.l  #MUIA_Bitmap_Width,(a1)+
        MOVEQ   #0,d0
        MOVE.w  (a2),d0
        LSL.w   #3,d0
        MOVE.l  d0,(a1)+
        MOVE.l  #MUIA_Bitmap_Height,(a1)+
        MOVE.w  #0,(a1)+
        MOVE.w  2(a2),(a1)+
        MOVE.l  #MUIA_Bitmap_SourceColors,(a1)+
        MOVEA.l (a0),a0
        LEA     4(a0),a0
        MOVE.l  a0,(a1)+
        MOVE.l  #TAG_DONE,(a1)+
        MOVEA.l d3,a1
        MOVEA.l !s{adr},a0
        JSR     -648(a6)
'noobj: RTS

_chshape:
        TST.l   !s{adr}
        BEQ     'noobj
        MOVE.l  !s{special},a0
        MOVE.w  6(a2),(a0)
        MOVE.w  2(a2),2(a0)
        MOVE.w  4(a2),4(a0)
        MOVEQ   #0,d7
        MOVEQ   #0,d0
        MOVE.w  4(a2),d7
        SUBQ    #1,d7
        MOVE.w  22(a2),d1
'loop:  MOVE.l  d7,d0
        MOVE.l  d7,d2
        LSL     #2,d2
        MULU    d1,d0
        MOVEA.l 14(a2),a1
        ADDA.l  d0,a1
        MOVE.l  a1,8(a0,d2.l)
        DBF     d7,'loop
        MOVE.l  !s{adr},d0
        LEA     args(pc),a1
        MOVE.l  a1,d3
        MOVE.l  #MUIA_Bitmap_Bitmap,(a1)+
        MOVE.l  a0,(a1)+
        MOVE.l  #MUIA_Bitmap_Width,(a1)+
        MOVEQ   #0,d0
        MOVE.w  (a0),d0
        LSL.w   #3,d0
        MOVE.l  d0,(a1)+
        MOVE.l  #MUIA_Bitmap_Height,(a1)+
        MOVE.w  #0,(a1)+
        MOVE.w  2(a0),(a1)+
        MOVE.l  #0,(a1)
        MOVEA.l d3,a1
        MOVEA.l !s{adr},a0
        JSR     -648(a6)
'noobj: RTS

_chshapepal:
        MOVE.l  a6,_IntuiBase
        TST.l   !s{adr}
        BEQ     'noobj
        MOVE.l  a0,-(a7)
        MOVE.l  !s{special},a0
        MOVE.w  6(a2),(a0)
        MOVE.w  2(a2),2(a0)
        MOVE.w  4(a2),4(a0)
        MOVEQ   #0,d7
        MOVEQ   #0,d0
        MOVE.w  4(a2),d7
        SUBQ    #1,d7
        MOVE.w  22(a2),d1
'loop:  MOVE.l  d7,d0
        MOVE.l  d7,d2
        LSL     #2,d2
        MULU    d1,d0
        MOVEA.l 14(a2),a1
        ADDA.l  d0,a1
        MOVE.l  a1,8(a0,d2.l)
        DBF     d7,'loop
        MOVE.l  !s{adr},d0
        LEA     args(pc),a1
        MOVE.l  a1,d3
        MOVE.l  #MUIA_Bitmap_Bitmap,(a1)+
        MOVE.l  a0,(a1)+
        MOVE.l  #MUIA_Bitmap_Width,(a1)+
        MOVEQ   #0,d0
        MOVE.w  (a0),d0
        LSL.w   #3,d0
        MOVE.l  d0,(a1)+
        MOVE.l  #MUIA_Bitmap_Height,(a1)+
        MOVE.w  #0,(a1)+
        MOVE.w  2(a0),(a1)+
        MOVEA.l (a7)+,a0
        MOVE.l  #MUIA_Bitmap_SourceColors,(a1)+
        MOVEA.l (a0),a0
        LEA     4(a0),a0
        MOVE.l  a0,(a1)+
        MOVE.l  #0,(a1)
        MOVEA.l d3,a1
        MOVEA.l !s{adr},a0
        JSR     -648(a6)
'noobj: RTS

.
._addobjhgroup:
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        MOVE.l  #MUIA_Group_Horiz,(a1)+
        MOVE.l  #1,(a1)+
        MOVE.w  #8,!s{tagp}
        MOVEA.l d0,a1
'tlok:  TST.l   !t{adr}
        BEQ     'noobj
        MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #Child,(a1)+
        MOVE.l  !t{adr},(a1)
        ADDQ.w  #8,d6
        MOVE.w  d6,!s{tagp}
        MOVE.l  #-1,d0
'noobj: RTS

._createhgroup:
        MOVEQ   #0,d0
        TST.l   !s{tagl}
        BEQ     'noobj
        LEA     groupclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.l  #-1,d0
'noobj: RTS

._addobjvgroup:
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  TST.l   !t{adr}
        BEQ     'noobj
        MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #Child,(a1)+
        MOVE.l  !t{adr},(a1)
        ADDQ.w  #8,d6
        MOVE.w  d6,!s{tagp}
        MOVE.l  #-1,d0
'noobj: RTS

._createvgroup:
        MOVEQ   #0,d0
        TST.l   !s{tagl}
        BEQ     'noobj
        LEA     groupclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.l  #-1,d0
'noobj: RTS

._addobjpage:
        MOVEA.l !s{tagl},a1
        TST.l   !s{tagl}
        BNE     'tlok
        MOVE.l  maxt(pc),d0
        LSL     #2,d0
        MOVE.w  d0,!s{size}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $C002
        MOVE.l  d0,!s{tagl}
        BEQ     'noobj
        MOVEA.l d0,a1
        CLR.w   !s{tagp}
'tlok:  TST.l   !t{adr}
        BEQ     'noobj
        MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #Child,(a1)+
        MOVE.l  !t{adr},(a1)
        ADDQ.w  #8,d6
        MOVE.w  d6,!s{tagp}
        MOVE.l  #-1,d0
'noobj: RTS

._createpage:
        MOVEQ   #0,d0
        TST.l   !s{tagl}
        BEQ     'noobj
        MOVEA.l !s{tagl},a1
        MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.w  #20,d0
        LSL.w   #2,d0
        MOVE.w  d0,!s{spesize}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $c002
        MOVE.l  d0,!s{special}
        BEQ     'noobj
        MOVEA.l d0,a0
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),d1
        MOVE.l  -(a2),d0
        ALibJsr $cf01
        MOVE.l  d0,(a0)+
        DBF     d7,'loop
        MOVE.l  #0,(a0)+
        MOVE.l  #MUIA_Register_Titles,(a1)+
        MOVE.l  !s{special},(a1)+
        ADDQ.w  #8,d6
        MOVE.w  d6,!s{tagp}
        LEA     registerclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.l  #-1,d0
'noobj: RTS

_createpagea:
        MOVEQ   #0,d0
        TST.l   !s{tagl}
        BEQ     'noobj
        MOVE.l  d1,d3
        MOVE.l  #20,d0
        LSL     #2,d0
        MOVE.w  d0,!s{spesize}
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $c002
        MOVE.l  d0,!s{special}
        BEQ     'noobj
        MOVEA.l d0,a0
        MOVEA.l d3,a2
'loop:  MOVE.l  (a2)+,a1
        MOVE.l  a1,d0
        MOVEQ   #-1,d1
'loops: ADDQ    #1,d1
        TST.b   (a1)+
        BNE     'loops
        ALibJsr $cf01
        MOVE.l  d0,(a0)+
        BNE     'loop
        MOVEA.l !s{tagl},a1
        MOVE.w  !s{tagp},d6
        ADDA.w  d6,a1
        MOVE.l  #0,(a0)+
        MOVE.l  #MUIA_Register_Titles,(a1)+
        MOVE.l  !s{special},(a1)+
        ADDQ.w  #8,d6
        MOVE.w  d6,!s{tagp}
        LEA     registerclass(pc),a0
        MOVEA.l !s{tagl},a1
        !CALLMUI        {MUI_NewObjectA}
        MOVE.l  d0,!s{adr}
        BEQ     'noobj
        MOVE.l  #-1,d0
'noobj: RTS


CNIF    #First_Compile=0

_addobjh:
        SUBQ    #1,d7
'loop:  MOVE.w  -(a2),d1
        MOVEM.l d0/d7/a2,-(a7)
        ALibJsr MUIAddObjHGroup
        MOVEM.l (a7)+,d0/d7/a2
        DBF     d7,'loop
        RTS


_addobjv:
        SUBQ    #1,d7
'loop:  MOVE.w  -(a2),d1
        MOVEM.l d0/d7/a2,-(a7)
        ALibJsr MUIAddObjVGroup
        MOVEM.l (a7)+,d0/d7/a2
        DBF     d7,'loop
        RTS


_addobjp:
        SUBQ    #1,d7
'loop:  MOVE.w  -(a2),d1
        MOVEM.l d0/d7/a2,-(a7)
        ALibJsr MUIAddObjPage
        MOVEM.l (a7)+,d0/d7/a2
        DBF     d7,'loop
        RTS

CEND

.
._insertsingle:
        MOVEQ   #0,d0
        TST.l   !s{adr}
        BEQ     'noobj
        MOVE.l  d1,d4
        CMP.w   #1,d7
        BGT     'col
        MOVE.l  -(a2),d1
        MOVE.l  -(a2),d0
        ALibJsr $cf01
        MOVE.l  d0,d2
        BRA     'nocol
'col:   MOVE.w  d7,d0
        ADDQ    #1,d0
        LSL     #2,d0
        MOVE.l  #MEMF_PUBLIC|MEMF_CLEAR,d1
        ALibJsr $c002
        MOVE.l  d0,d2
        BEQ     'noobj
        MOVEA.l d2,a0
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),d1
        MOVE.l  -(a2),d0
        ALibJsr $cf01
        MOVE.l  d0,(a0)+
        DBF     d7,'loop
        MOVE.l  #0,(a0)+
'nocol: MOVE.l  !s{adr},d0
        LEA     args(pc),a0
        MOVE.l  a0,d1
        MOVE.l  #MUIM_List_InsertSingle,(a0)+
        MOVE.l  d2,(a0)+
        MOVE.l  d4,(a0)+
        MOVE.l  #0,(a0)+
        BSR     _domethoda
'noobj: RTS



_insertsinglea:
        MOVEQ   #0,d0
        TST.l   !s{adr}
        BEQ     'noobj
        MOVE.l  d1,d4
        MOVE.l  !s{adr},d0
        LEA     args(pc),a0
        MOVE.l  a0,d1
        MOVE.l  #MUIM_List_InsertSingle,(a0)+
        MOVE.l  d2,(a0)+
        MOVE.l  d4,(a0)+
        MOVE.l  #0,(a0)+
        BSR     _domethoda
'noobj: RTS

._removesingle:
        MOVEQ   #0,d0
        MOVE.l  !s{adr},d0
        BEQ     'noobj
        LEA     args(pc),a0
        MOVE.l  a0,d2
        MOVE.l  #MUIM_List_Remove,(a0)+
        MOVE.l  d1,(a0)+
        MOVE.l  #0,(a0)+
        MOVE.l  d2,d1
        BSR     _domethoda
'noobj: RTS

._redrawsingle:
        MOVEQ   #0,d0
        MOVE.l  !s{adr},d0
        BEQ     'noobj
        LEA     args(pc),a0
        MOVE.l  a0,d2
        MOVE.l  #MUIM_List_Redraw,(a0)+
        MOVE.l  d1,(a0)+
        MOVE.l  #0,(a0)+
        MOVE.l  d2,d1
        BSR     _domethoda
'noobj: RTS

._listtitle:
        MOVE.l  a6,_IntuiBase
        MOVEQ   #0,d0
        TST.l   !s{adr}
        BEQ     'noobj
        CMP.w   #1,d7
        BGT     'col
        MOVE.l  -(a2),d1
        MOVE.l  -(a2),d0
        ALibJsr $cf01
        MOVE.l  d0,d2
        MOVE.l  !s{adr},d0
        MOVE.l  #MUIA_List_Title,d1
        BSR     _set
        BRA     'noobj
'col:   MOVEA.l !s{spe2},a0
        ADDA.l  #24,a0
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),d1
        MOVE.l  -(a2),d0
        ALibJsr $cf01
        MOVE.l  d0,(a0)+
        DBF     d7,'loop
        MOVE.l  #0,(a0)+
        MOVE.l  !s{adr},d0
        MOVE.l  #MUIA_List_Title,d1
        MOVEQ.l #1,d2
        BSR     _set
'noobj: RTS

_listtitlea:
        MOVE.l  a6,_IntuiBase
        MOVEQ   #0,d0
        TST.l   !s{adr}
        BEQ     'noobj
        MOVEA.l !s{spe2},a0
        ADDA.l  #24,a0
        MOVEA.l d1,a1
'loop:  MOVE.l  (a1)+,(a0)+
        BNE     'loop
        MOVE.l  #0,(a0)+
        MOVE.l  !s{adr},d0
        MOVE.l  #MUIA_List_Title,d1
        MOVEQ.l #1,d2
        BSR     _set
'noobj: RTS

.
._muiset:
        TST     !s{adr}
        BEQ     'noobj
        MOVEA.l !s{adr},a0
        LEA     args(pc),a1
        MOVE.l  a1,d0
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),(a1)+
        DBF     d7,'loop
        MOVE.l  #0,(a1)+
        MOVEA.l d0,a1
        JSR     -648(a6)
'noobj: RTS

_muiseta:
        TST     !s{adr}
        BEQ     'noobj
        MOVEA.l !s{adr},a0
        MOVEA.l d1,a1
        JSR     -648(a6)
'noobj: RTS

._muiget:
        MOVEA.l !s{adr},a0
        MOVE.l  d1,d0
        LEA     stp(pc),a1
        JSR     -654(a6)
        MOVE.l  stp(pc),d0
'noobj: RTS

._redraw:
        TST.l   !s{adr}
        BEQ     'noobj
        MOVEA.l !s{adr},a0
        MOVE.l  d1,d0
        !CALLMUI        {MUI_Redraw}
        MOVEQ   #-1,d0
'noobj: RTS


._dmethod:
        MOVEQ   #0,d0
        TST.l   !s{adr}
        BEQ     'noobj
        MOVE.l  !s{adr},d0
        LEA     args(pc),a1
        MOVE.l  a1,d3
        MOVE.l  d1,(a1)+
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),(a1)+
        DBF     d7,'loop
        MOVE.l  d3,d1
        BSR     _domethoda
'noobj: RTS

_dmethoda:
        MOVEQ   #0,d0
        TST.l   !s{adr}
        BEQ     'noobj
        MOVE.l  !s{adr},d0
        LEA     args(pc),a1
        MOVE.l  a1,d3
        MOVE.l  d1,(a1)+
        MOVE.l  d2,a2
'loop:  MOVE.l  (a2)+,(a1)+
        BNE     'loop
        MOVE.l  d3,d1
        BSR     _domethoda
'noobj: RTS

._notify:
        TST.l   !s{adr}
        BEQ     'noobj
        TST.l   !u{adr}
        BEQ     'noobj
        LEA     args(pc),a1
        MOVE.l  a1,d3
        MOVE.l  #MUIM_Notify,(a1)+
        MOVE.l  d1,(a1)+
        MOVE.l  d2,(a1)+
        MOVE.l  !u{adr},(a1)+
        MOVE.w  #0,(a1)+
        MOVE.w  d7,(a1)+
        SUBQ    #1,d7
'loop:  MOVE.l  -(a2),(a1)+
        DBF     d7,'loop
        MOVE.l  d3,d1
        MOVE.l  !s{adr},d0
        BSR     _domethoda
'noobj: RTS


_notifya:
        TST.l   !s{adr}
        BEQ     'noobj
        TST.l   !u{adr}
        BEQ     'noobj
        LEA     args(pc),a1
        MOVE.l  a1,d3
        MOVE.l  #MUIM_Notify,(a1)+
        MOVE.l  d1,(a1)+
        MOVE.l  d2,(a1)+
        MOVE.l  !u{adr},(a1)+
        MOVEA.l d4,a2
        MOVEQ   #-1,d7
'loop1: ADDQ    #1,d7
        TST.l   (a2)+
        BNE     'loop1
        MOVE.l  d7,(a1)+
        MOVEA.l d4,a2
'loop2: MOVE.l  (a2)+,(a1)+
        BNE     'loop2
        MOVE.l  d3,d1
        MOVE.l  !s{adr},d0
        BSR     _domethoda
'noobj: RTS

_notifyapp:
        TST.l   !s{adr}
        BEQ     'noobj
        TST.l   appaddr
        BEQ     'noobj
        LEA     args(pc),a1
        MOVE.l  a1,d4
        MOVE.l  #MUIM_Notify,(a1)+
        MOVE.l  d1,(a1)+
        MOVE.l  d2,(a1)+
        MOVE.l  appaddr(pc),(a1)+
        MOVE.l  #2,(a1)+
        MOVE.l  #MUIM_Application_ReturnID,(a1)+
        MOVE.l  d3,(a1)+
        MOVE.l  #0,(a1)
        MOVE.l  d4,d1
        MOVE.l  !s{adr},d0
        BSR     _domethoda
'noobj: RTS


._event:
        TST.l   appaddr
        BEQ     'noapp
        MOVE.l  appaddr(pc),d0
        LEA     args(pc),a0
        MOVE.l  a0,d1
        MOVE.l  #MUIM_Application_NewInput,(a0)+
        LEA     sigs(pc),a1
        MOVE.l  a1,(a0)+
        BSR     _domethoda
'noapp: RTS

._waitevent:
        TST.l   appaddr
        BEQ     'noapp
        MOVE.l  sigs(pc),d0
        BEQ     'nosigs
        MOVE.l  4,a6
        JSR     -318(a6)
'nosigs:BRA     _event
'noapp: RTS

._findudata:
        TST.l   !t{adr}
        BEQ     'noobj
        LEA     args(pc),a0
        MOVE.l  a0,d1
        MOVE.l  #MUIM_FindUData,(a0)+
        MOVE.l  d2,(a0)+
        MOVE.l  #0,(a0)
        MOVE.l  !t{adr},d0
        BSR     _domethoda
        MOVE.l  d0,!s{adr}
        CLR.l   !s{tagl}
        CLR.l   !s{special}
        MOVE.l  #-1,d0
'noobj: RTS

.
._gets

_getcm:
        MOVEA.l !s{adr},a0
        MOVE.l  #MUIA_Selected,d0
        LEA     stp(pc),a1
        JSR     -654(a6)
        MOVE.l  stp(pc),d0
'noobj: RTS


_getcyc:
        MOVEA.l !s{adr},a0
        MOVE.l  #MUIA_Cycle_Active,d0
        LEA     stp(pc),a1
        JSR     -654(a6)
        MOVE.l  stp(pc),d0
'noobj: RTS


_getstr:
        MOVEA.l !t{adr},a0
        MOVE.l  #MUIA_String_Contents,d0
        LEA     stp(pc),a1
        JSR     -654(a6)
        MOVEA.l stp(pc),a0
        MOVEQ.l #-1,d0
'loop:  ADDQ.l  #1,d0
        MOVE.b  (a0)+,(a3)+
        BNE     'loop
'noobj: RTS


._sets

_setcm:
        MOVE.l  a6,_IntuiBase
        MOVE.l  !s{adr},d0
        MOVE.l  d1,d2
        MOVE.l  #MUIA_Selected,d1
        BSR     _set
'noobj: RTS


_setcyc:
        MOVE.l  a6,_IntuiBase
        MOVE.l  !s{adr},d0
        MOVE.l  d1,d2
        MOVE.l  #MUIA_Cycle_Active,d1
        BSR     _set
'noobj: RTS


_setstr:
        MOVE.l  a6,_IntuiBase
        MOVE.l  d1,d0
        MOVE.l  -(a2),d1
        ALibJsr $cf01
        MOVE.l  d0,d2
        MOVE.l  !s{adr},d0
        MOVE.l  #MUIA_String_Contents,d1
        BSR     _set
'noobj: RTS


.
._freeobj:
        MOVEM.l d0-d1/a1,-(a7)
        CMP.w   #kind_app,!s{kind}
        BEQ     'nospe2
        MOVE.l  !s{size},d0
        BEQ     'notl
        MOVE.l  !s{tagl},d1
        BEQ     'notl
        MOVEA.l d1,a1
        ALibJsr $c003
'notl:  MOVE.l  !s{spesize},d0
        BEQ     'nospe
        MOVE.l  !s{special},d1
        BEQ     'nospe
        MOVEA.l d1,a1
        ALibJsr $c003
'nospe: MOVE.l  !s{spe2size},d0
        BEQ     'nospe2
        MOVE.l  !s{spe2},d1
        BEQ     'nospe2
        MOVEA.l d1,a1
        ALibJsr $c003
'nospe2:MOVEM.l (a7)+,d0-d1/a1
        RTS



_domethoda: ;DoMethodA(obj,msg)(d0/d1)
        TST.l   d0
        BEQ.b   cmnullreturn
        MOVE.l  d0,a2
        MOVE.l  d1,a1
        MOVE.l  -4(a2),a0
cminvoke:
        PEA.l   cmreturn(pc)
        MOVE.l  8(a0),-(a7)
        RTS

cmnullreturn:
        MOVEQ   #0,d0
cmreturn:
        RTS

_set:   ;set(obj,attr,value)(d0/d1/d2)
        MOVEM.l a0-a1/a6,-(a7)
        MOVEA.l _IntuiBase(pc),a6
        MOVEA.l d0,a0
        LEA     args(pc),a1
        MOVE.l  a1,d0
        MOVE.l  d1,(a1)+
        MOVE.l  d2,(a1)+
        MOVE.l  #0,(a1)+
        MOVEA.l d0,a1
        JSR     -648(a6)
        MOVEM.l (a7)+,a0-a1/a6
        RTS

        Even

DHook:
        Dc.l  $B3FC0000   ;
        Dc.w  $0000       ;        cmpa.l  #0,a1
        Dc.w  $6706       ;        beq.s   .titles
        Dc.w  $24D9       ;.loop   move.l  (a1)+,(a2)+
        Dc.w  $66FC       ;        bne.s   .loop
        Dc.w  $6008       ;        bra.s   .end
        Dc.l  $43FA0008   ;.titles lea     tit(pc),a1
        Dc.w  $24D9       ;.loop2  move.l  (a1)+,(a2)+
        Dc.w  $66FC       ;        bne.s   .loop2
        Dc.w  $4E75       ;.end    rts
        Dc.l  0           ;tit     dc.l    0
        Even

_MUIBase:   Dc.l  0
_IntuiBase: Dc.l  0

s0:       Dc.l  0
s1:       Dc.l  0
s2:       Dc.l  0

tits:     Dc.l  0

stp:      Dc.l  0

sigs:     Dc.l  0

str:      Dc.l  0,0

args:     Dcb.l 40,0
;temp:     Dcb.l 20,0

Even

appstruct:
appaddr:        Dc.l    0
appkind:        Dc.w    4
apptags:        Dc.l    0
apptap:         Dc.w    0
appsize:        Dc.w    160
appspecial:     Dc.l    0
appspesize:     Dc.w    0

Even


;************************************************************
;*                        ERRORS                            *
;************************************************************
.
.errors:
err1:   MOVEQ.l #1,d0
        TRAP    #0

Even

initerr:
        MOVE.l  #MUI_INIT_ERR,d0
        TRAP    #0

Even

MUI_INIT_ERR:
        Dc.b    "MUILib INIT ERROR!!!",0
        Even


;************************************************************
;*                         DATAS                            *
;************************************************************

uhook:          Dc.l    0

maxt:           Dc.l    51

cenc:           Dc.b    $1B,$63,$00,$1B

        Even

appclass:       Dc.b    "Application.mui",0
winclass:       Dc.b    "Window.mui",0
groupclass:     Dc.b    "Group.mui",0
imageclass:     Dc.b    "Image.mui",0
rectangleclass: Dc.b    "Rectangle.mui",0
stringclass:    Dc.b    "String.mui",0
textclass:      Dc.b    "Text.mui",0
cycleclass:     Dc.b    "Cycle.mui",0
radioclass:     Dc.b    "Radio.mui",0
sliderclass:    Dc.b    "Slider.mui",0
registerclass:  Dc.b    "Register.mui",0
listclass:      Dc.b    "List.mui",0
listviewclass:  Dc.b    "Listview.mui",0
balanceclass:   Dc.b    "Balance.mui",0
bitmapclass:    Dc.b    "Bitmap.mui",0

        Even
ver:            Dc.b    "%VER: EFMUILib version 1.5 (08.03.98) (C)opyRight 1997/1998 by Vivid Imagination",0
        Even