view lib/kreiderclib/atol.as @ 3141:717ced83b885

coco3: Build SD card device descriptors for CoCo3FPGA Added "CC3FPGAFLAGS = $(AFLAGS) -DCC3FPGA=1 $(FLAGS)" to "level2/coco3/modules/makefile" for flagging Coco3FPGA specific features in modules sources. Added "llcoco3fpga", "ddsd0_coco3fpga", "sd0_coco3fpga", and "sd1_coco3fpga" to the "coco3/modules/makefile" - RBF section, which also now adds all to the "NITROS9/MODULES/RBF" on all disk images for building new Coco3FPGA disks from NitrOS9. Added new descriptor section to the "level2/coco3/modules/makefile" reflecting the new Coco3FPGA SD card descriptors and their flags.
author Bill Pierce <merlinious999@gmail.com>
date Sat, 04 Feb 2017 11:06:28 +0100
parents 1647f1874cdf
children
line wrap: on
line source

* Disassembly by Os9disasm of atol.r

 section code

* class D external label equates

D0000 equ $0000 
D000a equ $000a 

atol: pshs  u 
 ldu   4,s 
 clra   
 clrb   
 pshs  b 
 pshs  d 
 pshs  d 
L000c ldb   ,u+ 
 cmpb  #$20 
 beq   L000c 
 cmpb  #9 
 beq   L000c 
 cmpb  #$2d 
 bne   L001e 
 stb   4,s 
 bra   L0045 
L001e cmpb  #$2b 
 bne   L0047 
 bra   L0045 
L0024 ldd   2,s 
 pshs  d 
 ldd   2,s 
 pshs  d 
 leax  >L006c,pcr 
 lbsr  _lmul 
 ldb   -1,u 
 clra   
 subb  #$30 
 addd  2,x 
 std   2,s 
 ldd   #0 
 adcb  1,x 
 adca  ,x 
 std   ,s 
L0045 ldb   ,u+ 
L0047 clra   
 leax  _chcodes,y 
 ldb   d,x 
 andb  #8 
 bne   L0024 
 tst   4,s 
 beq   L005d 
 leax  ,s 
 lbsr  _lneg 
 bra   L005f 
L005d leax  ,s 
L005f leau  _flacc,y 
 pshs  u 
 lbsr  _lmove 
 leas  5,s 
 puls  u,pc 
L006c neg   D0000 
 neg   D000a 

 endsect