Mercurial > hg > Members > kono > nitros9-code
view lib/kreiderclib/dirutil.as @ 2981:9550602c9a0b
sierra/objs_lsl/mnln.asm: Use division quotient, not remainder
It calls a routine twice to make a division (L125C) but doesn't check
the right register for the result. The result is returned in reg U and
the remainder in reg D but the procedure expect the result to be returned
in reg D. The divison routine seems to be correct because it is properly
used elsewhere in the code.
Patch by Guillaume Major and Robert Gault.
| author | Guillaume Major <guillaume.major@gmail.com> |
|---|---|
| date | Sat, 12 Apr 2014 15:30:03 +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