Mercurial > hg > Members > kono > nitros9-code
view lib/kreiderclib/dirutil.as @ 2866:854ef52e512f lwtools-port
3rdparty/packages/arcadepak: Resolve ia.fnt copy conflict
Smash and Thexter ship the same ia.fnt file so to avoid
"file already exists" errors when copying these files
to the disk image, use os9copy -r to overwrite.
| author | Tormod Volden <debian.tormod@gmail.com> |
|---|---|
| date | Tue, 01 Oct 2013 00:04:17 +0200 |
| 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