diff lib/kreiderclib/fread.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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/kreiderclib/fread.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,32 @@
+* Disassembly by Os9disasm of fread.r
+
+ section code
+
+fread: pshs  d,x,u 
+ ldu   8,s 
+ clra   
+ clrb   
+ bra   L002b 
+L0008 ldd   10,s 
+ bra   L0022 
+L000c ldd   14,s 
+ pshs  d 
+ lbsr  getc 
+ leas  2,s 
+ cmpd  #-1 
+ beq   L0032 
+ stb   ,u+ 
+ ldd   ,s 
+ subd  #1 
+L0022 std   ,s 
+ bne   L000c 
+ ldd   2,s 
+ addd  #1 
+L002b std   2,s 
+ cmpd  12,s 
+ blt   L0008 
+L0032 leas  2,s 
+ puls  d,u,pc 
+
+ endsect  
+