Mercurial > hg > Members > kono > nitros9-code
annotate lib/kreiderclib/clshifts.as @ 2824:1647f1874cdf lwtools-port
Added Kreidier C library
| author | Boisy Pitre <boisy.pitre@nuance.com> |
|---|---|
| date | Thu, 23 May 2013 05:49:13 -0500 |
| parents | |
| children |
| rev | line source |
|---|---|
| 2824 | 1 * Disassembly by Os9disasm of clshifts.r |
| 2 | |
| 3 section code | |
| 4 | |
| 5 _lshl: ldx 2,s | |
| 6 pshs b | |
| 7 lbsr _ltoacc | |
| 8 puls b | |
| 9 tstb | |
| 10 beq L0017 | |
| 11 L000c asl 3,x | |
| 12 rol 2,x | |
| 13 rol 1,x | |
| 14 rol ,x | |
| 15 decb | |
| 16 bne L000c | |
| 17 L0017 puls d | |
| 18 std ,s | |
| 19 rts | |
| 20 _lshr: ldx 2,s | |
| 21 pshs b | |
| 22 lbsr _ltoacc | |
| 23 puls b | |
| 24 tstb | |
| 25 beq L0033 | |
| 26 L0028 asr ,x | |
| 27 ror 1,x | |
| 28 ror 2,x | |
| 29 ror 3,x | |
| 30 decb | |
| 31 bne L0028 | |
| 32 L0033 puls d | |
| 33 std ,s | |
| 34 rts | |
| 35 | |
| 36 endsect | |
| 37 |