MACRO
&lab _AcceptRequests
&lab ldx #$1B01
 jsl $E10000
 MEND
 MACRO
&lab _QDVersion
&lab ldx #$0404
 jsl $E10000
 MEND
 macro
&lab pStr &text
&lab dc i1'L:&text'
 dc c"&text"
 mend
 MACRO
&lab _SendRequest
&lab ldx #$1C01
 jsl $E10000
 MEND
 MACRO
&lab _DisableMItem
&lab ldx #$310F
 jsl $E10000
 MEND
 macro
&l ~DisableMItem &p1
&l ph2 &p1
 ldx #$310F
 jsl $E10000
 mend
 macro
&l ~EnableMItem &p1
&l ph2 &p1
 ldx #$300F
 jsl $E10000
 mend
 macro
&l ph2 &n1
&l anop
 aif "&n1"="*",.f
 lclc &c
&c amid &n1,1,1
 aif "&c"="#",.d
 aif s:longa=1,.a
 rep #%00100000
.a
 aif "&c"<>"{",.b
&c amid &n1,l:&n1,1
 aif "&c"<>"}",.g
&n1 amid &n1,2,l:&n1-2
 lda (&n1)
 pha
 ago .e
.b
 aif "&c"="<",.c
 lda &n1
 pha
 ago .e
.c
&n1 amid &n1,2,l:&n1-1
 pei &n1
 ago .e
.d
&n1 amid &n1,2,l:&n1-1
 pea &n1
 ago .f
.e
 aif s:longa=1,.f
 sep #%00100000
.f
 mexit
.g
 mnote "Missing closing '}'",16
 mend
 MACRO
&lab _BlockMove
&lab ldx #$2B02
 jsl $E10000
 MEND
 MACRO
&lab _NewHandle
&lab ldx #$0902
 jsl $E10000
 MEND
 macro
&l ~GetHandleSize &p1
&l ph4 &p1
 ldx #$1802
 jsl $E10000
 mend
 macro
&l ~HLock &p1
&l ph4 &p1
 ldx #$2002
 jsl $E10000
 mend
 macro
&l ph4 &n1
&l anop
 aif "&n1"="*",.f
 lclc &c
&c amid &n1,1,1
 aif "&c"="#",.d
 aif s:longa=1,.a
 rep #%00100000
.a
 aif "&c"<>"{",.b
&c amid &n1,l:&n1,1
 aif "&c"<>"}",.g
&n1 amid &n1,2,l:&n1-2
 ldy #2
 lda (&n1),y
 pha
 lda (&n1)
 pha
 ago .e
.b
 aif "&c"<>"[",.c
 ldy #2
 lda &n1,y
 pha
 lda &n1
 pha
 ago .e
.c
 aif "&c"<>"<",.c1
&n1 amid &n1,2,l:&n1-1
 pei &n1+2
 pei &n1
 ago .e
.c1
 lda &n1+2
 pha
 lda &n1
 pha
 ago .e
.d
&n1 amid &n1,2,l:&n1-1
 pea +(&n1)|-16
 pea &n1
 ago .f
.e
 aif s:longa=1,.f
 sep #%00100000
.f
 mexit
.g
 mnote "Missing closing '}'",16
 mend
 macro
&l ~DisposeHandle &p1
&l ph4 &p1
 ldx #$1002
 jsl $E10000
 mend
 macro
&l ~HUnlock &p1
&l ph4 &p1
 ldx #$2202
 jsl $E10000
 mend
 macro
&l ~MessageCenter &p1,&p2,&p3
&l ph2 &p1
 ph2 &p2
 ph4 &p3
 ldx #$1501
 jsl $E10000
 mend
 MACRO
&lab _HLock
&lab ldx #$2002
 jsl $E10000
 MEND
 macro
&l ~AcceptRequests &p1,&p2,&p3
&l ph4 &p1
 ph2 &p2
 ph4 &p3
 ldx #$1B01
 jsl $E10000
 mend