|
2824
|
1 * Disassembly by Os9disasm of create.r
|
|
|
2
|
|
|
3 section code
|
|
|
4
|
|
|
5 * OS-9 system function equates
|
|
|
6
|
|
|
7 I$Create equ $83
|
|
|
8 I$Open equ $84
|
|
|
9 I$Delete equ $87
|
|
|
10 I$SetStt equ $8e
|
|
|
11 I$Close equ $8f
|
|
|
12
|
|
|
13 creat: ldx 2,s
|
|
|
14 lda 5,s
|
|
|
15 tfr a,b
|
|
|
16 andb #$24
|
|
|
17 orb #$0b
|
|
|
18 os9 I$Create
|
|
|
19 bcc L005d
|
|
|
20 cmpb #$da
|
|
|
21 bne L0039
|
|
|
22 lda 5,s
|
|
|
23 bita #$80
|
|
|
24 bne L0039
|
|
|
25 anda #7
|
|
|
26 ldx 2,s
|
|
|
27 os9 I$Open
|
|
|
28 bcs L0039
|
|
|
29 pshs a,u
|
|
|
30 ldx #0
|
|
|
31 leau ,x
|
|
|
32 ldb #2
|
|
|
33 os9 I$SetStt
|
|
|
34 puls a,u
|
|
|
35 bcc L005d
|
|
|
36 pshs b
|
|
|
37 os9 I$Close
|
|
|
38 puls b
|
|
|
39 L0039 lbra _os9err
|
|
|
40 create: ldx 2,s
|
|
|
41 lda 5,s
|
|
|
42 ldb 7,s
|
|
|
43 os9 I$Create
|
|
|
44 bcs L0039
|
|
|
45 bra L005d
|
|
|
46 L0049 cmpb #$da
|
|
|
47 bne L0039
|
|
|
48 os9 I$Delete
|
|
|
49 bcs L0039
|
|
|
50 ocreat: ldx 2,s
|
|
|
51 lda 5,s
|
|
|
52 ldb 7,s
|
|
|
53 os9 I$Create
|
|
|
54 bcs L0049
|
|
|
55 L005d tfr a,b
|
|
|
56 clra
|
|
|
57 rts
|
|
|
58
|
|
|
59 endsect
|
|
|
60
|
