Mercurial > hg > Members > kono > nitros9-code

comparison lib/kreiderclib/read.as @ 2824:1647f1874cdf lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Kreidier C library
author Boisy Pitre <boisy.pitre@nuance.com>
date Thu, 23 May 2013 05:49:13 -0500
parents
children
comparison
equal deleted inserted replaced
2823:ad769d2a03e4 2824:1647f1874cdf
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