Mercurial > hg > Members > kono > nitros9-code

view lib/kreiderclib/setbase.as @ 3083:f631d26d4913

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
level1: Rename "coco1" DriveWire modules to "38400" Better reflects the fact that only the baud rate is different in these modules.
author Tormod Volden <debian.tormod@gmail.com>
date Sun, 26 Jul 2015 10:38:59 +0200
parents 1647f1874cdf
children
line wrap: on
line source

* Disassembly by Os9disasm of setbase.r

 section code

_setbase: pshs  u 
 ldu   4,s 
 ldb   7,u 
 bitb  #$c0 
 bne   L0029 
 leas  -32,s 
 leax  ,s 
 ldd   8,u 
 pshs  d,x 
 clra   
 clrb   
 pshs  d 
 lbsr  getstat 
 ldb   #$40 
 lda   6,s 
 beq   L0022 
 ldb   #$80 
L0022 leas  38,s 
 orb   7,u 
 stb   7,u 
L0029 lda   6,u 
 ora   #$80 
 sta   6,u 
 andb  #$0c 
 bne   L006c 
 ldd   11,u 
 bne   L003c 
 ldd   #$0100 
 std   11,u 
L003c ldd   2,u 
 bne   L0051 
 ldd   11,u 
 pshs  d 
 lbsr  ibrk 
 leas  2,s 
 std   2,u 
 cmpd  #-1 
 beq   L0055 
L0051 ldb   #8 
 bra   L0060 
L0055 leax  10,u 
 stx   2,u 
 ldd   #1 
 std   11,u 
 ldb   #4 
L0060 orb   7,u 
 stb   7,u 
 ldd   2,u 
 addd  11,u 
 std   4,u 
 std   ,u 
L006c puls  u,pc 

 endsect