home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / sillies / silly1 / !Rippler / s / event < prev    next >
Text File  |  1990-04-10  |  937b  |  67 lines
  1. a1 RN 0
  2. a2 RN 1
  3. a3 RN 2
  4. a4 RN 3
  5. v1 RN 4
  6. v2 RN 5
  7. v3 RN 6
  8. v4 RN 7
  9. v5 RN 8
  10. v6 RN 9
  11. sl RN 10
  12. fp RN 11
  13. ip RN 12
  14. sp RN 13
  15. lr RN 14
  16. pc RN 15
  17.  
  18. R0 RN 0
  19. R1 RN 1
  20. R2 RN 2
  21. R3 RN 3
  22. R4 RN 4
  23. R5 RN 5
  24. R6 RN 6
  25. R7 RN 7
  26. R8 RN 8
  27. R9 RN 9
  28. R10 RN 10
  29. R11 RN 11
  30. R12 RN 12
  31. R13 RN 13
  32. R14 RN 14
  33. PC RN 15
  34.  
  35.     AREA |C$$code|, CODE, READONLY
  36.  
  37. |x$codeseg|
  38.  
  39.         IMPORT  Event_Handler
  40.         EXPORT  EventEntry
  41. EventEntry
  42.         STMDB   R13!,{R0-R11,R14}
  43.         MOV     R0,R13
  44.         MOV     R6,PC
  45.         BIC     R3,R6,#3
  46.         TEQP    R3,#3
  47.         MOV     R2,#0
  48.         MOV     R7,R14
  49.         MOV     R10,R13,LSR #20
  50.         MOV     R10,R10,LSL #20
  51.         LDMIA   R10,{R4,R5}
  52.         MOV     R1,R12
  53.         LDR     R12,[R12],#0
  54.         LDMIB   R12,{R11,R12}
  55.         STMIA   R10,{R11,R12}
  56.         ADD     R10,R10,#&021C                 ; =540
  57.         BL        Event_Handler
  58.         SUB     R10,R10,#&021C                 ; =540
  59.         STMIA   R10,{R4,R5}
  60.         MOV     R14,R7
  61.         TEQP    R6,#0
  62.         CMP     R0,#0
  63.         LDMEQIA R13!,{R0-R11,R14,PC}^
  64.         LDMNEIA R13!,{R0-R11,PC}^
  65.  
  66.         END
  67.