home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Generous Efforts of Many
/
gemcd.zip
/
GEM.CD.E.po
/
NDA:CLOCKS:CLOCK
/
CLOCK.MAC.txt
< prev
Wrap
Text File
|
2010-05-14
|
2KB
|
150 lines
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