
.Claim_Event_Vector
   MOV      R0,#&10
   ADR      R1,Event_Handle
   MOV      R2,#0
   SWI      OS_Claim
   MOV      R15,R14

.Release_Event_Vector
   MOV      R0,#&10
   ADR      R1,Event_Handle
   MOV      R2,#0
   SWI      OS_Release
   MOV      R15,R14

.Enable_Escape_Event
   MOV      R0,#14
   MOV      R1,#6
   SWI      OS_Byte
   MOV      R15,R14

.Disable_Escape_Event
   MOV      R0,#13
   MOV      R1,#6
   SWI      OS_Byte
   MOV      R15,R14
