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

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 strass.r

 section code

_strass: pshs  y,u 
 ldu   6,s 
 ldy   8,s 
 ldd   10,s 
 lsra   
 rorb   
 tfr   d,x 
 bcc   L0013 
 lda   ,y+ 
 sta   ,u+ 
L0013 stx   -2,s 
 beq   L001f 
L0017 ldd   ,y++ 
 std   ,u++ 
 leax  -1,x 
 bne   L0017 
L001f puls  y,u,pc 

 endsect