Mercurial > hg > Members > kono > nitros9-code

diff lib/kreiderclib/datmods.as @ 2824:1647f1874cdf lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Kreidier C library
author Boisy Pitre <boisy.pitre@nuance.com>
date Thu, 23 May 2013 05:49:13 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lib/kreiderclib/datmods.as	Thu May 23 05:49:13 2013 -0500
@@ -0,0 +1,71 @@
+* 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
+