z.as
600 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
.globl readInt
.globl writeInt
.globl readBool
.globl writeBool
.globl readReal
.globl writeReal
.globl readString
.globl writeString
.globl writeChar
.globl program
.text
program:
Lp_1:
# args: 0 bytes
# result: 0 bytes
# locals: 0 bytes
# temps: 4 bytes
#
#
movl sp, fp
subl2 $4, sp
pushr $0x3800
movaf -4(fp), r11
movab (fp), ap
jsb readReal
popr $0x3800
divf3 $0f3.0, -4(fp), r0
mulf2 $0f3.0, r0
movb $1, r1
cmpf r0, $0f1.0
jeql Lro_1
movb $0, r1
Lro_1:
movb r1, -4(fp)
pushr $0x3800
movab (fp), r11
movab -4(fp), ap
jsb writeBool
popr $0x3800
movl fp, sp
rsb