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

* class D external label equates

D0000 equ $0000 

* class X external label equates

X0000 equ $0000 

 section bss

* Uninitialized data (class B)
B0000 rmb 12 
* Initialized Data (class G)

 endsect 

 section code

getdrive: pshs  u 
 leas  -7,s 
 clra   
 clrb   
 pshs  d 
 ldd   #$000c 
 pshs  d 
 leax  >L0061,pcr 
 pshs  x 
 lbsr  modlink 
 leas  6,s 
 std   ,s 
 cmpd  #-1 
 beq   L005b 
 ldd   ,s 
 ldx   ,s 
 addd  16,x 
 std   5,s 
 leau  B0000,y 
 bra   L0033 
L002f ldb   4,s 
 stb   ,u+ 
L0033 ldx   5,s 
 leax  1,x 
 stx   5,s 
 ldb   -1,x 
 stb   4,s 
 bgt   L002f 
 ldb   4,s 
 clra   
 andb  #$7f 
 stb   ,u+ 
 clra   
 clrb   
 stb   ,u 
 ldd   ,s 
 pshs  d 
 lbsr  munlink 
 leas  2,s 
 leax  B0000,y 
 tfr   x,d 
 bra   L005d 
L005b clra   
 clrb   
L005d leas  7,s 
 puls  u,pc 
L0061 rola   
 jmp   9,s 
 fcb $74 
 fcb $00 

 endsect