|
2824
|
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
|
