Mercurial > hg > Members > kono > nitros9-code
view lib/kreiderclib/read.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 (2013-05-23) |
parents | |
children |
line wrap: on
line source
* Disassembly by Os9disasm of read.r section code * OS-9 system function equates I$Read equ $89 I$ReadLn equ $8b read: pshs y ldx 6,s lda 5,s ldy 8,s pshs y os9 I$Read L000e bcc L001d cmpb #$d3 bne L0018 clra clrb puls x,y,pc L0018 puls x,y lbra _os9err L001d tfr y,d puls x,y,pc readln: pshs y lda 5,s ldx 6,s ldy 8,s pshs y os9 I$ReadLn bra L000e endsect