home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / sillies / silly1 / !Rippler / s / system < prev    next >
Text File  |  1990-03-08  |  788b  |  50 lines
  1.         GET     $.Hdr.ListOpts  ; These first three must be in this order
  2.         GET     $.Hdr.Macros
  3.         GET     $.Hdr.System
  4.         GET     $.Hdr.Macros2
  5.  
  6.     
  7.     AREA |C$$code|, CODE, READONLY
  8.  
  9.  
  10. |x$codeseg|
  11.         IMPORT    VSync
  12.         EXPORT    InitVSync
  13.         EXPORT    CloseVSync
  14.  
  15. InitVSync    ROUT
  16.         MOV        r2, r0
  17.         MOV        r0, #EventV
  18.         ADRL    r1, MyEventHandler
  19.         SWI        OS_Claim
  20.         MOV        r0, #14
  21.         MOV        r1, #4
  22.         SWI        OS_Byte
  23.         MOVS    pc, r14
  24.  
  25.  
  26. CloseVSync    ROUT
  27.         MOV        r3,    r0
  28.         MOV        r0, #13
  29.         MOV        r1, #4
  30.         SWI        OS_Byte
  31.         MOV        r0, #EventV
  32.         ADRL    r1, MyEventHandler
  33.         MOV        r2, r3
  34.         SWI        OS_Release
  35.         MOVS    pc, r14
  36.         
  37.  
  38. MyEventHandler    ROUT
  39.         CMP        r0, #4
  40.         MOVNE    pc, r14            ; Don't claim
  41.         STMFD    r13!, {r0-r4, r12, r14}
  42. ;        LDR        r12, [r12]
  43. ;        BL        VSync
  44.         LDMFD    r13!, {r0-r4, r12, r14}
  45.         MOV        pc, r14
  46.  
  47.         END
  48.  
  49. eof s.system
  50.