Mercurial > hg > Members > kono > nitros9-code

diff lib/kreiderclib/dirutil.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/dirutil.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,92 @@
+* Disassembly by Os9disasm of dirutil.r
+
+* class D external label equates
+
+D001d equ $001d 
+D001e equ $001e 
+
+ section bss
+
+* Uninitialized data (class B)
+B0000 rmb 4 
+B0004 rmb 30 
+* Initialized Data (class G)
+
+ endsect 
+
+ section code
+
+closedir: ldx   2,s 
+ ldd   ,x 
+ pshs  d,x 
+ lbsr  close 
+ leas  2,s 
+ lbsr  free 
+ puls  x,pc 
+opendir: pshs  u 
+ ldd   #$0022 
+ pshs  d 
+ lbsr  malloc 
+ std   ,s 
+ beq   L0037 
+ ldx   #$0081 
+ ldd   6,s 
+ pshs  d,x 
+ lbsr  open 
+ leas  4,s 
+ std   [,s] 
+ bge   L0037 
+ ldd   ,s 
+ lbsr  free 
+ clra   
+ clrb   
+ std   ,s 
+L0037 puls  d,u,pc 
+readdir: pshs  u 
+ ldu   4,s 
+ leau  2,u 
+L003f ldd   #$0020 
+ pshs  d 
+ ldd   -2,u 
+ pshs  d,u 
+ lbsr  read 
+ leas  6,s 
+ std   -2,s 
+ bgt   L0055 
+ clra   
+ clrb   
+ puls  u,pc 
+L0055 ldb   ,u 
+ beq   L003f 
+ leax  B0004,y 
+ pshs  x,u 
+ lbsr  strhcpy 
+ leas  4,s 
+ leax  B0000,y 
+ clra   
+ ldb   D001d,u 
+ std   ,x 
+ ldd   D001e,u 
+ std   2,x 
+ tfr   x,d 
+ puls  u,pc 
+seekdir: clra   
+ clrb   
+ pshs  d 
+ ldd   8,s 
+ pshs  d 
+ ldd   8,s 
+ bra   L008b 
+telldir: ldd   #1 
+ pshs  d 
+ clrb   
+ pshs  d 
+L008b pshs  d 
+ ldd   [8,s] 
+ pshs  d 
+ lbsr  lseek 
+ leas  8,s 
+ rts    
+
+ endsect  
+