Mercurial > hg > Members > kono > nitros9-code

view lib/kreiderclib/gs2.as @ 2833:0f3030598435 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Really fix level 1 builds: Do not use os9 dcopy Bugs in os9 dcopy make it run into infinite recursion before it eventually dies of buffer overflow. Instead use os9 makdir and copy, which was already used some places.
author Tormod Volden <debian.tormod@gmail.com>
date Wed, 10 Jul 2013 19:09:05 +0200
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