Mercurial > hg > Members > kono > nitros9-code

view lib/kreiderclib/gs2.as @ 3053:22122ff8bef3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
level 2/3 makefiles: Cosmetic/whitespace changes Basically making level 2 and 3 versions more similar. Eventually they should be merged to avoid unnecessary divergence.
author Tormod Volden <debian.tormod@gmail.com>
date Sun, 25 Jan 2015 22:36:01 +0100
parents 1647f1874cdf
children
line wrap: on
line source

* Disassembly by Os9disasm of gs2.r

 section code

* OS-9 system function equates

I$GetStt equ $8d 

_gs_rdy: ldb   #1 
 lda   3,s 
 os9 I$GetStt 
 lblo  _os9err 
 clra   
 rts    
_gs_eof: ldb   #6 
 bra   L0015 
_gs_opt: ldb   #0 
 ldx   4,s 
L0015 lda   3,s 
 os9 I$GetStt 
 bra   L0042 
_gs_devn: ldb   #$0e 
 ldx   4,s 
 lda   3,s 
 os9 I$GetStt 
 bcs   L0042 
L0027 lda   ,x+ 
 bpl   L0027 
 anda  #$7f 
 sta   -1,x 
 clr   ,x 
 rts    
_gs_gfd: pshs  y 
 ldb   #$0f 
 lda   5,s 
 ldx   6,s 
 ldy   8,s 
 os9 I$GetStt 
 puls  y 
L0042 lbra  _sysret 

 endsect