93 lines
1.4 KiB
ArmAsm
93 lines
1.4 KiB
ArmAsm
/ $Header$
|
|
.text
|
|
.globl trp~,fat~
|
|
.globl trppc~,trpim~,savearea,retar
|
|
write=4.
|
|
|
|
fat~:
|
|
jsr pc,trp~
|
|
4
|
|
|
|
trp~:
|
|
mov r0,-(sp)
|
|
mov 04(sp),r0
|
|
mov 02(sp),04(sp)
|
|
mov (sp),02(sp)
|
|
mov r1,(sp)
|
|
cmp r0,$16.
|
|
jhis 0f
|
|
mov $01,r1
|
|
ashc r0,r1
|
|
bit r1,trpim~
|
|
bne 8f
|
|
0: mov r2,-(sp)
|
|
mov r3,-(sp)
|
|
mov r4,-(sp)
|
|
movf r0,-(sp)
|
|
movf r1,-(sp)
|
|
movf r2,-(sp)
|
|
movf r3,-(sp)
|
|
stfps -(sp)
|
|
mov $savearea,r2
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov $retar,r2
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov (r2)+,-(sp)
|
|
mov r0,-(sp)
|
|
mov trppc~,r0
|
|
beq 9f
|
|
clr trppc~
|
|
jsr pc,(r0)
|
|
tst (sp)+
|
|
mov $retar+16.,r2
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
mov $savearea+12.,r2
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
mov (sp)+,-(r2)
|
|
ldfps (sp)+
|
|
movf (sp)+,r3
|
|
movf (sp)+,r2
|
|
movf (sp)+,r1
|
|
movf (sp)+,r0
|
|
mov (sp)+,r4
|
|
mov (sp)+,r3
|
|
mov (sp)+,r2
|
|
8: mov (sp)+,r1
|
|
mov (sp)+,r0
|
|
rts pc
|
|
9: mov (sp)+,r0
|
|
mov $buf+11,r1
|
|
mov $4,r2
|
|
1: mov r0,r3
|
|
bic $177770,r3
|
|
bisb r3,-(r1)
|
|
ash $-3,r0
|
|
sob r2,1b
|
|
mov $2,r0
|
|
sys write;buf;11.
|
|
4
|
|
|
|
.data
|
|
buf: <err 00000\n>
|