Bram Moolenaar | 071d427 | 2004-06-13 20:20:40 +0000 | [diff] [blame] | 1 | ; Thomas Leonard |
| 2 | ; 24/5/98 |
| 3 | |
| 4 | ar0 rn 0 |
| 5 | ar1 rn 1 |
| 6 | ar2 rn 2 |
| 7 | ar3 rn 3 |
| 8 | ar4 rn 4 |
| 9 | ar5 rn 5 |
| 10 | ar6 rn 6 |
| 11 | ar7 rn 7 |
| 12 | ar10 rn 10 |
| 13 | ar11 rn 11 |
| 14 | lk rn 14 |
| 15 | ar15 rn 15 |
| 16 | |
| 17 | AREA DATA |
| 18 | align 4 |
| 19 | |
| 20 | export |r0| |
| 21 | r0: dcd 0 |
| 22 | |
| 23 | export |r1| |
| 24 | r1: dcd 0 |
| 25 | |
| 26 | export |r2| |
| 27 | r2: dcd 0 |
| 28 | |
| 29 | export |r3| |
| 30 | r3: dcd 0 |
| 31 | |
| 32 | export |r4| |
| 33 | r4: dcd 0 |
| 34 | |
| 35 | export |r5| |
| 36 | r5: dcd 0 |
| 37 | |
| 38 | export |r6| |
| 39 | r6: dcd 0 |
| 40 | |
| 41 | export |r7| |
| 42 | r7: dcd 0 |
| 43 | |
| 44 | export |time_of_last_poll| |
| 45 | time_of_last_poll: dcd 0 |
| 46 | |
| 47 | AREA CODE, READONLY |
| 48 | align 4 |
| 49 | import |r0| |
| 50 | export |swi| |
| 51 | = "swi" |
| 52 | align 4 |
| 53 | swi: |
| 54 | ; r0 = swi number |
| 55 | stmfd sp!,{ar4-ar10,lk} |
| 56 | orr ar10,ar0,#1<<17 ;always use the X form |
| 57 | mov ar0,ar1 |
| 58 | mov ar1,ar2 |
| 59 | mov ar2,ar3 |
| 60 | add ar3,sp,#4*8 |
| 61 | ldmia ar3,{ar3-ar7} |
| 62 | swi 0x6f ; OS_CallASWI |
| 63 | ldr ar10,regs_addr |
| 64 | stmia ar10,{ar0-ar7} |
| 65 | ldmvcfd sp!,{ar4-ar10,pc}^ |
| 66 | ; report the error and quit on Cancel |
| 67 | mov r1,#0x17 |
| 68 | adr r2,s_title |
| 69 | swi 0x400df ; Wimp_ReportError |
| 70 | cmp r1,#1 ;OK selected? |
| 71 | ldmeqfd sp!,{ar4-ar10,pc}^ ;yes - try to continue |
| 72 | swi 0x11 ;no - die (OS_Exit) |
| 73 | s_title: |
| 74 | = "Nasty error - Cancel to quit" |
| 75 | = 0 |
| 76 | |
| 77 | align 4 |
| 78 | export |xswi| |
| 79 | = "xswi" |
| 80 | align 4 |
| 81 | xswi: |
| 82 | ; r0 = swi number |
| 83 | stmfd sp!,{ar4-ar10,lk} |
| 84 | orr ar10,ar0,#1<<17 ;always use the X form |
| 85 | mov ar0,ar1 |
| 86 | mov ar1,ar2 |
| 87 | mov ar2,ar3 |
| 88 | add ar3,sp,#4*8 |
| 89 | ldmia ar3,{ar3-ar7} |
| 90 | swi 0x6f ; OS_CallASWI |
| 91 | ldr ar10,regs_addr |
| 92 | stmia ar10,{ar0-ar7} |
| 93 | mov ar0,#0 |
| 94 | orr ar0,ar0,ar15 |
| 95 | ldmfd sp!,{ar4-ar10,pc}^ |
| 96 | |
| 97 | regs_addr: |
| 98 | dcd r0 |
| 99 | |
| 100 | ; The Wimp_Poll swis have to be done specially because, |
| 101 | ; for some reason, r13 sometimes gets corrupted by Wimp_Poll |
| 102 | ; (eg when running FileFind) |
| 103 | AREA CODE, READONLY |
| 104 | align 4 |
| 105 | import |time_of_last_poll| |
| 106 | export |wimp_poll| |
| 107 | = "wimp_poll" |
| 108 | align 4 |
| 109 | wimp_poll: |
| 110 | mov ar3,sp |
| 111 | swi 0x400c7 ; Wimp_Poll |
| 112 | mov sp,ar3 |
| 113 | |
| 114 | mov ar3,ar0 |
| 115 | swi 0x42 ; OS_ReadMonotonicTime |
| 116 | ldr ar2,addr_time |
| 117 | str ar0,[ar2] |
| 118 | mov ar0,ar3 |
| 119 | |
| 120 | mov ar2,#0 |
| 121 | wfs ar2 ; Write floating point status. Needed? |
| 122 | movs pc,lk |
| 123 | |
| 124 | align 4 |
| 125 | export |wimp_pollidle| |
| 126 | = "wimp_pollidle" |
| 127 | align 4 |
| 128 | wimp_pollidle: |
| 129 | mov ar3,sp |
| 130 | swi 0x400e1 ; Wimp_PollIdle |
| 131 | mov sp,ar3 |
| 132 | |
| 133 | mov ar3,ar0 |
| 134 | swi 0x42 ; OS_ReadMonotonicTime |
| 135 | ldr ar2,addr_time |
| 136 | str ar0,[ar2] |
| 137 | mov ar0,ar3 |
| 138 | |
| 139 | mov ar2,#0 |
| 140 | wfs ar2 ; Write floating point status. Needed? |
| 141 | movs pc,lk |
| 142 | |
| 143 | addr_time: dcd time_of_last_poll |