home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.E.po / NDA:CLOCKS:CLOCK / CLOCK.MAC.txt < prev   
Text File  |  2010-05-14  |  2KB  |  150 lines
  1.  MACRO
  2. &lab _SetPort
  3. &lab ldx #$1B04
  4.  jsl $E10000
  5.  MEND
  6.  MACRO
  7. &lab _GetPort
  8. &lab ldx #$1C04
  9.  jsl $E10000
  10.  MEND
  11.  MACRO
  12. &lab _GetPortRect
  13. &lab ldx #$2004
  14.  jsl $E10000
  15.  MEND
  16.  MACRO
  17. &lab _MoveTo
  18. &lab ldx #$3A04
  19.  jsl $E10000
  20.  MEND
  21.  MACRO
  22. &lab _PtInRect
  23. &lab ldx #$4F04
  24.  jsl $E10000
  25.  MEND
  26.  MACRO
  27. &lab _SetCursor
  28. &lab ldx #$8E04
  29.  jsl $E10000
  30.  MEND
  31.  MACRO
  32. &lab _GetCursorAdr
  33. &lab ldx #$8F04
  34.  jsl $E10000
  35.  MEND
  36.  MACRO
  37. &lab _DrawCString
  38. &lab ldx #$A604
  39.  jsl $E10000
  40.  MEND
  41.  MACRO
  42. &lab _GetMouse
  43. &lab ldx #$0C06
  44.  jsl $E10000
  45.  MEND
  46.  MACRO
  47. &lab _NewWindow
  48. &lab ldx #$090E
  49.  jsl $E10000
  50.  MEND
  51.  MACRO
  52. &lab _CloseWindow
  53. &lab ldx #$0B0E
  54.  jsl $E10000
  55.  MEND
  56.  MACRO
  57. &lab _BeginUpdate
  58. &lab ldx #$1E0E
  59.  jsl $E10000
  60.  MEND
  61.  MACRO
  62. &lab _EndUpdate
  63. &lab ldx #$1F0E
  64.  jsl $E10000
  65.  MEND
  66.  MACRO
  67. &lab _SetSysWindow
  68. &lab ldx #$4B0E
  69.  jsl $E10000
  70.  MEND
  71.  MACRO
  72. &LAB PushWord &Value
  73.  LCLC &CHAR
  74. &CHAR AMID &Value,1,1
  75.  AIF "&CHAR"="#",.IMMEDIATE
  76. &LAB LDA &Value
  77.  PHA
  78.  MEXIT
  79. .IMMEDIATE
  80. &CHAR AMID &Value,2,100
  81. &LAB PEA &CHAR
  82.  MEND
  83.  MACRO
  84. &lab PUSHLONG &Value
  85.  LCLC &CHAR
  86. &CHAR AMID &Value,1,1
  87.  AIF "&CHAR"="#",.IMMEDIATE
  88. &lab LDA &Value+2
  89.  PHA
  90.  LDA &Value
  91.  PHA
  92.  MEXIT
  93. .IMMEDIATE
  94. &CHAR AMID &Value,2,100
  95. &lab DC I1'$F4'
  96.  DC I2'(&CHAR)|-16'
  97.  DC I1'$F4'
  98.  DC I2'&CHAR'
  99.  MEND
  100.  MACRO
  101. &lab PushPtr &Label
  102. &lab DC i1'$F4'
  103.  DC i2'(&Label)|-16'
  104.  DC i1'$F4'
  105.  DC i2'&Label'
  106.  MEND
  107.  MACRO
  108. &lab PopLong &DataAddr
  109. &lab PLA
  110.  STA &DataAddr
  111.  PLA
  112.  STA &DataAddr+2
  113.  MEND
  114.  MACRO
  115. &LAB STR &String
  116. &LAB DC I1'L:&String'
  117.  DC C"&String"
  118.  MEND
  119.  MACRO
  120. &lab _ReadAsciiTime
  121. &lab ldx #$0F03
  122.  jsl $E10000
  123.  MEND
  124.  MACRO
  125. &lab _SetForeColor
  126. &lab ldx #$A004
  127.  jsl $E10000
  128.  MEND
  129.  MACRO
  130. &lab _GetForeColor
  131. &lab ldx #$A104
  132.  jsl $E10000
  133.  MEND
  134.  MACRO
  135. &lab PRINTG &text
  136. &lab PEA x&syscnt|-16
  137.  PEA x&syscnt
  138.  LDX #4+256*166
  139.  JSL $E10000
  140.  BRA end&syscnt
  141. x&syscnt DC C"&text"
  142.  DC i1'0'
  143. end&syscnt ANOP
  144.  MEND
  145.  MACRO
  146. &lab _ReadTimeHex
  147. &lab ldx #$0D03
  148.  jsl $E10000
  149.  MEND
  150.