view lib/kreiderclib/read.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 read.r

 section code

* OS-9 system function equates

I$Read equ $89 
I$ReadLn equ $8b 

read: pshs  y 
 ldx   6,s 
 lda   5,s 
 ldy   8,s 
 pshs  y 
 os9 I$Read 
L000e bcc   L001d 
 cmpb  #$d3 
 bne   L0018 
 clra   
 clrb   
 puls  x,y,pc 
L0018 puls  x,y 
 lbra  _os9err 
L001d tfr   y,d 
 puls  x,y,pc 
readln: pshs  y 
 lda   5,s 
 ldx   6,s 
 ldy   8,s 
 pshs  y 
 os9 I$ReadLn 
 bra   L000e 

 endsect