Mercurial > hg > Members > kono > nitros9-code

comparison 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
comparison
equal deleted inserted replaced
2823:ad769d2a03e4 2824:1647f1874cdf
1 * Disassembly by Os9disasm of datmods.r
2
3 section code
4
5 * OS-9 system function equates
6
7 F$Link equ $00
8 F$Load equ $01
9 F$UnLink equ $02
10
11 lockdata: ldx 2,s
12 pshs cc
13 orcc #$10
14 inc ,x
15 beq L001d
16 ldb ,x
17 dec ,x
18 L000e sex
19 puls cc,pc
20 unlkdata: ldx 2,s
21 pshs cc
22 orcc #$10
23 ldb ,x
24 bne L000e
25 dec ,x
26 L001d clra
27 clrb
28 puls cc,pc
29 datlink: pshs y,u
30 clr ,-s
31 clr ,-s
32 ldx 8,s
33 lda #$40
34 os9 F$Link
35 bcc L0045
36 cmpb #$dd
37 beq L003a
38 coma
39 L0035 puls x,y,u
40 lbra _os9err
41 L003a ldx 8,s
42 lda #$40
43 os9 F$Load
44 bcs L0035
45 inc 1,s
46 L0045 pshs y
47 tfr u,d
48 subd ,s++
49 std ,y++
50 sty [10,s]
51 addd 2,u
52 subd #5
53 std [12,s]
54 ldd ,s
55 beq L0067
56 pshs y
57 bsr lockdata
58 std ,s++
59 beq L0067
60 clr 1,s
61 L0067 puls d,y,u,pc
62 dunlink: pshs u
63 ldu 4,s
64 ldd ,--u
65 leau d,u
66 os9 F$UnLink
67 puls u
68 lbra _sysret
69
70 endsect
71