Mercurial > hg > Members > kono > nitros9-code

view lib/kreiderclib/dirutil.as @ 3226:9749d0dfc4a2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed a puls PC to rts to save cycles
author David Ladd <drencor-xeen@users.sourceforge.net>
date Sat, 20 Jan 2018 19:32:22 -0600
parents 1647f1874cdf
children
line wrap: on
line source

* 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