Mercurial > hg > Members > kono > nitros9-code

view lib/kreiderclib/setbase.as @ 2981:9550602c9a0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 setbase.r

 section code

_setbase: pshs  u 
 ldu   4,s 
 ldb   7,u 
 bitb  #$c0 
 bne   L0029 
 leas  -32,s 
 leax  ,s 
 ldd   8,u 
 pshs  d,x 
 clra   
 clrb   
 pshs  d 
 lbsr  getstat 
 ldb   #$40 
 lda   6,s 
 beq   L0022 
 ldb   #$80 
L0022 leas  38,s 
 orb   7,u 
 stb   7,u 
L0029 lda   6,u 
 ora   #$80 
 sta   6,u 
 andb  #$0c 
 bne   L006c 
 ldd   11,u 
 bne   L003c 
 ldd   #$0100 
 std   11,u 
L003c ldd   2,u 
 bne   L0051 
 ldd   11,u 
 pshs  d 
 lbsr  ibrk 
 leas  2,s 
 std   2,u 
 cmpd  #-1 
 beq   L0055 
L0051 ldb   #8 
 bra   L0060 
L0055 leax  10,u 
 stx   2,u 
 ldd   #1 
 std   11,u 
 ldb   #4 
L0060 orb   7,u 
 stb   7,u 
 ldd   2,u 
 addd  11,u 
 std   4,u 
 std   ,u 
L006c puls  u,pc 

 endsect