Mercurial > hg > Members > kono > nitros9-code

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 datmods.r

 section code

* OS-9 system function equates

F$Link equ $00 
F$Load equ $01 
F$UnLink equ $02 

lockdata: ldx   2,s 
 pshs  cc 
 orcc  #$10 
 inc   ,x 
 beq   L001d 
 ldb   ,x 
 dec   ,x 
L000e sex    
 puls  cc,pc 
unlkdata: ldx   2,s 
 pshs  cc 
 orcc  #$10 
 ldb   ,x 
 bne   L000e 
 dec   ,x 
L001d clra   
 clrb   
 puls  cc,pc 
datlink: pshs  y,u 
 clr   ,-s 
 clr   ,-s 
 ldx   8,s 
 lda   #$40 
 os9 F$Link 
 bcc   L0045 
 cmpb  #$dd 
 beq   L003a 
 coma   
L0035 puls  x,y,u 
 lbra  _os9err 
L003a ldx   8,s 
 lda   #$40 
 os9 F$Load 
 bcs   L0035 
 inc   1,s 
L0045 pshs  y 
 tfr   u,d 
 subd  ,s++ 
 std   ,y++ 
 sty   [10,s] 
 addd  2,u 
 subd  #5 
 std   [12,s] 
 ldd   ,s 
 beq   L0067 
 pshs  y 
 bsr   lockdata 
 std   ,s++ 
 beq   L0067 
 clr   1,s 
L0067 puls  d,y,u,pc 
dunlink: pshs  u 
 ldu   4,s 
 ldd   ,--u 
 leau  d,u 
 os9 F$UnLink 
 puls  u 
 lbra  _sysret 

 endsect