Mercurial > hg > Members > kono > nitros9-code
annotate lib/kreiderclib/read.as @ 3083:f631d26d4913
level1: Rename "coco1" DriveWire modules to "38400"
Better reflects the fact that only the baud rate is different in
these modules.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Sun, 26 Jul 2015 10:38:59 +0200 |
| parents | 1647f1874cdf |
| children |
| rev | line source |
|---|---|
| 2824 | 1 * Disassembly by Os9disasm of read.r |
| 2 | |
| 3 section code | |
| 4 | |
| 5 * OS-9 system function equates | |
| 6 | |
| 7 I$Read equ $89 | |
| 8 I$ReadLn equ $8b | |
| 9 | |
| 10 read: pshs y | |
| 11 ldx 6,s | |
| 12 lda 5,s | |
| 13 ldy 8,s | |
| 14 pshs y | |
| 15 os9 I$Read | |
| 16 L000e bcc L001d | |
| 17 cmpb #$d3 | |
| 18 bne L0018 | |
| 19 clra | |
| 20 clrb | |
| 21 puls x,y,pc | |
| 22 L0018 puls x,y | |
| 23 lbra _os9err | |
| 24 L001d tfr y,d | |
| 25 puls x,y,pc | |
| 26 readln: pshs y | |
| 27 lda 5,s | |
| 28 ldx 6,s | |
| 29 ldy 8,s | |
| 30 pshs y | |
| 31 os9 I$ReadLn | |
| 32 bra L000e | |
| 33 | |
| 34 endsect | |
| 35 |