Mercurial > hg > Members > kono > nitros9-code
annotate lib/kreiderclib/write.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 write.r |
| 2 | |
| 3 section code | |
| 4 | |
| 5 * OS-9 system function equates | |
| 6 | |
| 7 I$Write equ $8a | |
| 8 I$WritLn equ $8c | |
| 9 | |
| 10 write: pshs y | |
| 11 ldy 8,s | |
| 12 beq L0015 | |
| 13 lda 5,s | |
| 14 ldx 6,s | |
| 15 os9 I$Write | |
| 16 L000e bcc L0015 | |
| 17 puls y | |
| 18 lbra _os9err | |
| 19 L0015 tfr y,d | |
| 20 puls y,pc | |
| 21 writeln: pshs y | |
| 22 ldy 8,s | |
| 23 beq L0015 | |
| 24 lda 5,s | |
| 25 ldx 6,s | |
| 26 os9 I$WritLn | |
| 27 bra L000e | |
| 28 | |
| 29 endsect | |
| 30 |