1: /
2: /
3:
4: / io1 -- I/O operators
5:
6:
7: .globl rerr
8: .globl endio
9: .globl rio4
10: .globl rio8
11: .globl iio2
12: .globl iio4
13: .globl lio2
14: .globl lio1
15: .globl cio8
16: .globl cio16
17: .globl ecvt
18: .globl fcvt
19: .globl _ndigit
20:
21: endio:
22: mov (sp)+,r5
23: rts r5
24:
25: cio8:
26: tst slcnt
27: bne 2f
28: inc slcnt
29: tst -(r4)
30: br rio4
31: 2:
32: clr slcnt
33: mov ilval,-(sp)
34: add $4,(sp)
35: br rio4
36:
37: cio16:
38: tst slcnt
39: bne 2f
40: inc slcnt
41: tst -(r4)
42: br rio8
43: 2:
44: clr slcnt
45: mov ilval,-(sp)
46: add $8,(sp)
47: br rio8
48:
49: rio8:
50: mov $8.\<8+'r,r0
51: br 1f
52:
53: rio4:
54: mov $4\<8+'r,r0
55: br 1f
56:
57: iio4:
58: mov $4\<8+'i,r0
59: br 1f
60:
61: iio2:
62: mov $2\<8+'i,r0
63: br 1f
64:
65: lio2:
66: mov $2\<8+'l,r0
67: br 1f
68:
69: lio1:
70: mov $1\<8+'l,r0
71:
72: 1:
73: mov r0,itype
74: mov (sp)+,ilval
75: mov (sp)+,r5
76: tst (r5)+
77: rts r5
Defined functions
cio16
declared in line
16; defined in line
37; used 1 times
cio8
declared in line
15; defined in line
25; used 1 times
endio
declared in line
8; defined in line
21; used 1 times
iio2
declared in line
11; defined in line
61; used 1 times
iio4
declared in line
12; defined in line
57; used 1 times
lio1
declared in line
14; defined in line
69; used 1 times
lio2
declared in line
13; defined in line
65; used 1 times
rio4
declared in line
9; defined in line
53; used 3 times
rio8
declared in line
10; defined in line
49; used 3 times