MACRO &lab _GetNextEvent &lab ldx #$0A06 jsl $E10000 MEND MACRO &lab _MoveTo &lab ldx #$3A04 jsl $E10000 MEND MACRO &lab _SetForeColor &lab ldx #$A004 jsl $E10000 MEND MACRO &lab _DrawString &lab ldx #$A504 jsl $E10000 MEND MACRO &lab pushlong &addr,&offset &lab ANOP LCLC &C LCLC &REST &C AMID &addr,1,1 AIF "&C"="#",.immediate AIF "&C"="[",.zeropage AIF C:&offset=0,.nooffset AIF "&offset"="s",.stack pushword &addr+2,&offset pushword &addr,&offset MEXIT .nooffset pushword &addr+2 pushword &addr MEXIT .immediate &REST AMID &addr,2,L:&addr-1 dc I1'$F4',I2'(&REST)|-16' dc I1'$F4',I2'&REST' MEXIT .stack pushword &addr+2,s pushword &addr+2,s MEXIT .zeropage ldy #&offset+2 pushword &addr,y ldy #&offset pushword &addr,y MEND MACRO &lab pushword &sysopr &lab ANOP AIF c:&sysopr=0,.b LCLC &C LCLC &REST LCLA &BL &C AMID "&sysopr",1,1 &BL ASEARCH "&sysopr"," ",1 AIF &BL>0,.a &BL SETA L:&sysopr+1 .a &REST AMID "&sysopr",2,&BL-2 AIF ("&C"="#").AND.(S:LONGA),.immediate lda &sysopr pha MEXIT .b pha MEXIT .immediate dc I1'$F4',I2'&REST' MEND MACRO &lab str &string &lab dc i1'l:&string',c'&string' MEND MACRO &lab _SetPort &lab ldx #$1B04 jsl $E10000 MEND MACRO &lab _GetPort &lab ldx #$1C04 jsl $E10000 MEND MACRO &lab _SetSolidPenPat &lab ldx #$3704 jsl $E10000 MEND MACRO &lab _FrameRect &lab ldx #$5304 jsl $E10000 MEND MACRO &lab _PaintRect &lab ldx #$5404 jsl $E10000 MEND MACRO &lab _SetTextMode &lab ldx #$9C04 jsl $E10000 MEND MACRO &lab _HiliteControl &lab ldx #$1110 jsl $E10000 MEND MACRO &lab _GetControlDItem &lab ldx #$1E15 jsl $E10000 MEND MACRO &lab _Int2Dec &lab ldx #$260B jsl $E10000 MEND MACRO &lab _SetDItemValue &lab ldx #$2F15 jsl $E10000 MEND MACRO &lab _GetTextMode &lab ldx #$9D04 jsl $E10000 MEND MACRO &lab _GetForeColor &lab ldx #$A104 jsl $E10000 MEND MACRO &lab _GetIText &lab ldx #$1F15 jsl $E10000 MEND MACRO &lab _Dec2Int &lab ldx #$280B jsl $E10000 MEND MACRO &lab _NewModelessDialog &lab ldx #$0B15 jsl $E10000 MEND MACRO &lab _CloseDialog &lab ldx #$0C15 jsl $E10000 MEND MACRO &lab _DialogSelect &lab ldx #$1115 jsl $E10000 MEND MACRO &lab _GetNewDItem &lab ldx #$3315 jsl $E10000 MEND MACRO &lab _SetIText &lab ldx #$2015 jsl $E10000 MEND MACRO &lab _GetDItemValue &lab ldx #$2E15 jsl $E10000 MEND MACRO &lab _SetCtlParams &lab ldx #$1B10 jsl $E10000 MEND MACRO &lab _InvertRect &lab ldx #$5604 jsl $E10000 MEND