.title saval .globl saval ;save all registers co-routine .psect pur,ro .ident /21aug0/ ;+ ;Dec's save all registers, local so we can have r/o psect ;- saval: mov r4,-(sp) mov r3,-(sp) mov r2,-(sp) mov r1,-(sp) mov r0,-(sp) mov 12(sp),-(sp) mov r5,14(sp) jsr pc,@(sp)+ mov (sp)+,r0 mov (sp)+,r1 mov (sp)+,r2 mov (sp)+,r3 mov (sp)+,r4 mov (sp)+,r5 rts pc .end