Mercurial > hg > Members > kono > nitros9-code

diff lib/kreiderclib/write.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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/kreiderclib/write.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,30 @@
+* Disassembly by Os9disasm of write.r
+
+ section code
+
+* OS-9 system function equates
+
+I$Write equ $8a 
+I$WritLn equ $8c 
+
+write: pshs  y 
+ ldy   8,s 
+ beq   L0015 
+ lda   5,s 
+ ldx   6,s 
+ os9 I$Write 
+L000e bcc   L0015 
+ puls  y 
+ lbra  _os9err 
+L0015 tfr   y,d 
+ puls  y,pc 
+writeln: pshs  y 
+ ldy   8,s 
+ beq   L0015 
+ lda   5,s 
+ ldx   6,s 
+ os9 I$WritLn 
+ bra   L000e 
+
+ endsect  
+