Mercurial > hg > Members > kono > nitros9-code
view lib/kreiderclib/atol.as @ 3285:345ff5806dd7
Correct coco.d filename in shipped Defsfile files
It seems that 8 years ago in commit 2624:b8c7b7fbf3c9 the coco defs were put into a
new "coco.d" (from "systype"), and the various level*/<port>/defsfile were updated.
However, the level*/<port>/defs/Defsfile (that are copied to the disk images under
DEFS) were apparently wrongly updated.
| author | hpmachining <aur@hpminc.com> |
|---|---|
| date | Thu, 18 Jun 2020 20:29:32 +0200 |
| 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