|
2824
|
1 * Disassembly by Os9disasm of getc.r
|
|
|
2
|
|
|
3 section code
|
|
|
4
|
|
|
5 getc: pshs u
|
|
|
6 ldu 4,s
|
|
|
7 beq L005f
|
|
|
8 lda 6,u
|
|
|
9 anda #1
|
|
|
10 bne L005f
|
|
|
11 ldx ,u
|
|
|
12 cmpx 4,u
|
|
|
13 bcc L0064
|
|
|
14 L0012 ldb ,x+
|
|
|
15 L0014 stx ,u
|
|
|
16 clra
|
|
|
17 puls u,pc
|
|
|
18 ungetc: pshs u
|
|
|
19 ldu 6,s
|
|
|
20 beq L005f
|
|
|
21 ldb 7,u
|
|
|
22 andb #1
|
|
|
23 beq L005f
|
|
|
24 ldd 4,s
|
|
|
25 cmpd #-1
|
|
|
26 beq L005f
|
|
|
27 ldx ,u
|
|
|
28 cmpx 2,u
|
|
|
29 beq L005f
|
|
|
30 stb ,-x
|
|
|
31 bra L0014
|
|
|
32 getw: pshs u
|
|
|
33 ldu 4,s
|
|
|
34 pshs u,pc
|
|
|
35 bsr getc
|
|
|
36 std 2,s
|
|
|
37 cmpd #-1
|
|
|
38 beq L0051
|
|
|
39 bsr getc
|
|
|
40 cmpd #-1
|
|
|
41 beq L0051
|
|
|
42 lda 3,s
|
|
|
43 L0051 leas 4,s
|
|
|
44 puls u,pc
|
|
|
45 L0055 ldb #$10
|
|
|
46 bra L005b
|
|
|
47 L0059 ldb #$20
|
|
|
48 L005b orb 7,u
|
|
|
49 stb 7,u
|
|
|
50 L005f ldd #-1
|
|
|
51 puls u,pc
|
|
|
52 L0064 ldd 6,u
|
|
|
53 anda #$80
|
|
|
54 andb #$31
|
|
|
55 cmpb #1
|
|
|
56 bne L005f
|
|
|
57 cmpa #$80
|
|
|
58 beq L0079
|
|
|
59 pshs u
|
|
|
60 lbsr _setbase
|
|
|
61 leas 2,s
|
|
|
62 L0079 leax _iob,y
|
|
|
63 pshs x
|
|
|
64 cmpu ,s++
|
|
|
65 bne L0095
|
|
|
66 ldb 7,u
|
|
|
67 andb #$40
|
|
|
68 beq L0095
|
|
|
69 leax _iob+13,y
|
|
|
70 pshs x
|
|
|
71 lbsr fflush
|
|
|
72 leas 2,s
|
|
|
73 L0095 ldb 7,u
|
|
|
74 andb #8
|
|
|
75 beq L00b0
|
|
|
76 ldd 11,u
|
|
|
77 pshs d
|
|
|
78 ldx 2,u
|
|
|
79 ldd 8,u
|
|
|
80 pshs d,x
|
|
|
81 ldb 7,u
|
|
|
82 andb #$40
|
|
|
83 beq L00bd
|
|
|
84 lbsr readln
|
|
|
85 bra L00c0
|
|
|
86 L00b0 ldd #1
|
|
|
87 pshs d
|
|
|
88 leax 10,u
|
|
|
89 stx 2,u
|
|
|
90 ldd 8,u
|
|
|
91 pshs d,x
|
|
|
92 L00bd lbsr read
|
|
|
93 L00c0 leas 6,s
|
|
|
94 std -2,s
|
|
|
95 beq L0055
|
|
|
96 bmi L0059
|
|
|
97 ldx 2,u
|
|
|
98 leax d,x
|
|
|
99 stx 4,u
|
|
|
100 ldx 2,u
|
|
|
101 lbra L0012
|
|
|
102
|
|
|
103 endsect
|
|
|
104
|
