24 lines
237 B
ArmAsm
24 lines
237 B
ArmAsm
/
|
|
/
|
|
|
|
/ fxf -- format statements
|
|
|
|
.globl sform
|
|
.globl sdata
|
|
|
|
.globl ptemp
|
|
.globl error
|
|
|
|
sform:
|
|
cmp progt,$6 / block data
|
|
bne 1f
|
|
jsr r5,error; 50.
|
|
1:
|
|
jsr r5,ptemp; 'f; efno; line
|
|
rts r5
|
|
|
|
sdata:
|
|
jsr r5,ptemp; 'd; efno; line
|
|
rts r5
|
|
|