MACRO
&lab _SetPort
&lab ldx #$1B04
 jsl $E10000
 MEND
 MACRO
&lab _GetPort
&lab ldx #$1C04
 jsl $E10000
 MEND
 MACRO
&lab _GetPortRect
&lab ldx #$2004
 jsl $E10000
 MEND
 MACRO
&lab _MoveTo
&lab ldx #$3A04
 jsl $E10000
 MEND
 MACRO
&lab _PtInRect
&lab ldx #$4F04
 jsl $E10000
 MEND
 MACRO
&lab _SetCursor
&lab ldx #$8E04
 jsl $E10000
 MEND
 MACRO
&lab _GetCursorAdr
&lab ldx #$8F04
 jsl $E10000
 MEND
 MACRO
&lab _DrawCString
&lab ldx #$A604
 jsl $E10000
 MEND
 MACRO
&lab _GetMouse
&lab ldx #$0C06
 jsl $E10000
 MEND
 MACRO
&lab _NewWindow
&lab ldx #$090E
 jsl $E10000
 MEND
 MACRO
&lab _CloseWindow
&lab ldx #$0B0E
 jsl $E10000
 MEND
 MACRO
&lab _BeginUpdate
&lab ldx #$1E0E
 jsl $E10000
 MEND
 MACRO
&lab _EndUpdate
&lab ldx #$1F0E
 jsl $E10000
 MEND
 MACRO
&lab _SetSysWindow
&lab ldx #$4B0E
 jsl $E10000
 MEND
 MACRO
&LAB PushWord &Value
 LCLC &CHAR
&CHAR AMID &Value,1,1
 AIF "&CHAR"="#",.IMMEDIATE
&LAB LDA &Value
 PHA
 MEXIT
.IMMEDIATE
&CHAR AMID &Value,2,100
&LAB PEA &CHAR
 MEND
 MACRO
&lab PUSHLONG &Value
 LCLC &CHAR
&CHAR AMID &Value,1,1
 AIF "&CHAR"="#",.IMMEDIATE
&lab LDA &Value+2
 PHA
 LDA &Value
 PHA
 MEXIT
.IMMEDIATE
&CHAR AMID &Value,2,100
&lab DC I1'$F4'
 DC I2'(&CHAR)|-16'
 DC I1'$F4'
 DC I2'&CHAR'
 MEND
 MACRO
&lab PushPtr &Label
&lab DC i1'$F4'
 DC i2'(&Label)|-16'
 DC i1'$F4'
 DC i2'&Label'
 MEND
 MACRO
&lab PopLong &DataAddr
&lab PLA
 STA &DataAddr
 PLA
 STA &DataAddr+2
 MEND
 MACRO
&LAB STR &String
&LAB DC I1'L:&String'
 DC C"&String"
 MEND
 MACRO
&lab _ReadAsciiTime
&lab ldx #$0F03
 jsl $E10000
 MEND
 MACRO
&lab _SetForeColor
&lab ldx #$A004
 jsl $E10000
 MEND
 MACRO
&lab _GetForeColor
&lab ldx #$A104
 jsl $E10000
 MEND
 MACRO
&lab PRINTG &text
&lab PEA x&syscnt|-16
 PEA x&syscnt
 LDX #4+256*166
 JSL $E10000
 BRA end&syscnt
x&syscnt DC C"&text"
 DC i1'0'
end&syscnt ANOP
 MEND
 MACRO
&lab _ReadTimeHex
&lab ldx #$0D03
 jsl $E10000
 MEND