home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 254a.lha / PCQ / Runtime / intuition.asm < prev    next >
Encoding:
Assembly Source File  |  1989-05-10  |  4.0 KB  |  220 lines
  1.  
  2. *    Intuition.asm (of PCQ Pascal runtime library)
  3. *    Copyright (c) 1989 Patrick Quaid
  4.  
  5. *    This simply implements the intuition routines.  Again you don't
  6. *    need to make a new pointer to the library, since we just use the
  7. *    one created by the start up code.
  8.  
  9.     XREF    _p%IntuitionBase
  10.  
  11.     section    one
  12.  
  13.     XDEF    _OpenWindow
  14. _OpenWindow
  15.     move.l    4(sp),a0
  16.     move.l    _p%IntuitionBase,a6
  17.     jsr    _LVOOpenWindow(a6)
  18.     rts
  19.  
  20.     XDEF    _CloseWindow
  21. _CloseWindow
  22.     move.l    4(sp),a0
  23.     move.l    _p%IntuitionBase,a6
  24.     jsr    _LVOCloseWindow(a6)
  25.     rts
  26.  
  27.     XDEF    _OpenScreen
  28. _OpenScreen
  29.     move.l    4(sp),a0
  30.     move.l    _p%IntuitionBase,a6
  31.     jsr    _LVOOpenScreen(a6)
  32.     rts
  33.  
  34.     XDEF    _CloseScreen
  35. _CloseScreen
  36.     move.l    4(sp),a0
  37.     move.l    _p%IntuitionBase,a6
  38.     jsr    _LVOCloseScreen(a6)
  39.     rts
  40.  
  41.     XDEF    _CurrentTime
  42. _CurrentTime
  43.     move.l    8(sp),d0
  44.     move.l    4(sp),d1
  45.     move.l    _p%IntuitionBase,a6
  46.     jsr    _LVOCurrentTime(a6)
  47.     rts
  48.  
  49.     XDEF    _MoveScreen
  50. _MoveScreen
  51.     move.l    12(sp),a0
  52.     move.l    8(sp),d0
  53.     move.l    4(sp),d1
  54.     move.l    _p%IntuitionBase,a6
  55.     jsr    _LVOMoveScreen(a6)
  56.     rts
  57.  
  58.     XDEF    _MoveWindow
  59. _MoveWindow
  60.     move.l    12(sp),a0
  61.     move.l    8(sp),d0
  62.     move.l    4(sp),d1
  63.     move.l    _p%IntuitionBase,a6
  64.     jsr    _LVOMoveWindow(a6)
  65.     rts
  66.  
  67.     XDEF    _ScreenToBack
  68. _ScreenToBack
  69.     move.l    4(sp),a0
  70.     move.l    _p%IntuitionBase,a6
  71.     jsr    _LVOScreenToBack(a6)
  72.     rts
  73.  
  74.     XDEF    _ScreenToFront
  75. _ScreenToFront
  76.     move.l    4(sp),a0
  77.     move.l    _p%IntuitionBase,a6
  78.     jsr    _LVOScreenToFront(a6)
  79.     rts
  80.  
  81.     XDEF    _SetWindowTitles
  82. _SetWindowTitles
  83.     move.l    a2,-(sp)
  84.     move.l    16(sp),a0
  85.     move.l    12(sp),a1
  86.     move.l    8(sp),a2
  87.     move.l    _p%IntuitionBase,a6
  88.     jsr    _LVOSetWindowTitles(a6)
  89.     move.l    (sp)+,a2
  90.     rts
  91.  
  92.     XDEF    _ShowTitle
  93. _ShowTitle
  94.     move.l    6(sp),a0
  95.     move.w    4(sp),d0
  96.     and.l    #$FF,d0
  97.     move.l    _p%IntuitionBase,a6
  98.     jsr    _LVOShowTitle(a6)
  99.     rts
  100.  
  101.     XDEF    _SizeWindow
  102. _SizeWindow
  103.     move.l    12(sp),a0
  104.     move.l    8(sp),d0
  105.     move.l    4(sp),d0
  106.     move.l    _p%IntuitionBase,a6
  107.     jsr    _LVOSizeWindow(a6)
  108.     rts
  109.  
  110.     XDEF    _ViewPortAddress
  111. _ViewPortAddress
  112.     move.l    4(sp),a0
  113.     move.l    _p%IntuitionBase,a6
  114.     jsr    _LVOViewPortAddress(a6)
  115.     rts
  116.  
  117.     XDEF    _WBenchToBack
  118. _WBenchToBack
  119.     move.l    _p%IntuitionBase,a6
  120.     jsr    _LVOWBenchToBack(a6)
  121.     rts
  122.  
  123.     XDEF    _WBenchToFront
  124. _WBenchToFront
  125.     move.l    _p%IntuitionBase,a6
  126.     jsr    _LVOWBenchToFront(a6)
  127.     rts
  128.  
  129.     XDEF    _WindowToBack
  130. _WindowToBack
  131.     move.l    4(sp),a0
  132.     move.l    _p%IntuitionBase,a6
  133.     jsr    _LVOWindowToBack(a6)
  134.     rts
  135.  
  136.     XDEF    _WindowToFront
  137. _WindowToFront
  138.     move.l    4(sp),a0
  139.     move.l    _p%IntuitionBase,a6
  140.     jsr    _LVOWindowToFront(a6)
  141.     rts
  142.  
  143.  
  144. *    XREF    _LVONewModifyProp
  145. *    XREF    _LVOActivateGadget
  146. *    XREF    _LVORefreshWindowFrame
  147. *    XREF    _LVOActivateWindow
  148. *    XREF    _LVORemoveGList
  149. *    XREF    _LVOAddGList
  150. *    XREF    _LVORefreshGList
  151. *    XREF    _LVOGetScreenData
  152. *    XREF    _LVOUnlockIBase
  153. *    XREF    _LVOLockIBase
  154. *    XREF    _LVOFreeRemember
  155. *    XREF    _LVOAlohaWorkbench
  156. *    XREF    _LVOAllocRemember
  157. *    XREF    _LVORethinkDisplay
  158. *    XREF    _LVORemakeDisplay
  159. *    XREF    _LVOMakeScreen
  160. *    XREF    _LVOFreeSysRequest
  161. *    XREF    _LVOEndRefresh
  162. *    XREF    _LVOBuildSysRequest
  163. *    XREF    _LVOBeginRefresh
  164. *    XREF    _LVOAutoRequest
  165.     XREF    _LVOWBenchToFront
  166.     XREF    _LVOWBenchToBack
  167. *    XREF    _LVOIntuiTextLength
  168. *    XREF    _LVOSetPrefs
  169. *    XREF    _LVOWindowLimits
  170.     XREF    _LVOWindowToFront
  171.     XREF    _LVOWindowToBack
  172.     XREF    _LVOViewPortAddress
  173. *    XREF    _LVOViewAddress
  174.     XREF    _LVOSizeWindow
  175.     XREF    _LVOShowTitle
  176.     XREF    _LVOSetWindowTitles
  177. *    XREF    _LVOSetPointer
  178. *    XREF    _LVOSetMenuStrip
  179. *    XREF    _LVOSetDMRequest
  180.     XREF    _LVOScreenToFront
  181.     XREF    _LVOScreenToBack
  182. *    XREF    _LVORequest
  183. *    XREF    _LVOReportMouse
  184. *    XREF    _LVORemoveGadget
  185. *    XREF    _LVORefreshGadgets
  186. *    XREF    _LVOPrintIText
  187. *    XREF    _LVOOpenWorkBench
  188.     XREF    _LVOOpenWindow
  189.     XREF    _LVOOpenScreen
  190. *    XREF    _LVOOnMenu
  191. *    XREF    _LVOOnGadget
  192. *    XREF    _LVOOffMenu
  193. *    XREF    _LVOOffGadget
  194.     XREF    _LVOMoveWindow
  195.     XREF    _LVOMoveScreen
  196. *    XREF    _LVOModifyProp
  197. *    XREF    _LVOModifyIDCMP
  198. *    XREF    _LVOItemAddress
  199. *    XREF    _LVOInitRequester
  200. *    XREF    _LVOGetPrefs
  201. *    XREF    _LVOGetDefPrefs
  202. *    XREF    _LVOEndRequest
  203. *    XREF    _LVODrawImage
  204. *    XREF    _LVODrawBorder
  205. *    XREF    _LVODoubleClick
  206. *    XREF    _LVODisplayBeep
  207. *    XREF    _LVODisplayAlert
  208.     XREF    _LVOCurrentTime
  209. *    XREF    _LVOCloseWorkBench
  210.     XREF    _LVOCloseWindow
  211.     XREF    _LVOCloseScreen
  212. *    XREF    _LVOClearPointer
  213. *    XREF    _LVOClearMenuStrip
  214. *    XREF    _LVOClearDMRequest
  215. *    XREF    _LVOAddGadget
  216. *    XREF    _LVOIntuition
  217. *    XREF    _LVOOpenIntuition
  218.  
  219.     end
  220.