2824
|
1 * Disassembly by Os9disasm of gs2.r
|
|
2
|
|
3 section code
|
|
4
|
|
5 * OS-9 system function equates
|
|
6
|
|
7 I$GetStt equ $8d
|
|
8
|
|
9 _gs_rdy: ldb #1
|
|
10 lda 3,s
|
|
11 os9 I$GetStt
|
|
12 lblo _os9err
|
|
13 clra
|
|
14 rts
|
|
15 _gs_eof: ldb #6
|
|
16 bra L0015
|
|
17 _gs_opt: ldb #0
|
|
18 ldx 4,s
|
|
19 L0015 lda 3,s
|
|
20 os9 I$GetStt
|
|
21 bra L0042
|
|
22 _gs_devn: ldb #$0e
|
|
23 ldx 4,s
|
|
24 lda 3,s
|
|
25 os9 I$GetStt
|
|
26 bcs L0042
|
|
27 L0027 lda ,x+
|
|
28 bpl L0027
|
|
29 anda #$7f
|
|
30 sta -1,x
|
|
31 clr ,x
|
|
32 rts
|
|
33 _gs_gfd: pshs y
|
|
34 ldb #$0f
|
|
35 lda 5,s
|
|
36 ldx 6,s
|
|
37 ldy 8,s
|
|
38 os9 I$GetStt
|
|
39 puls y
|
|
40 L0042 lbra _sysret
|
|
41
|
|
42 endsect
|
|
43
|