csv.s

/ C register save and restore -- version 7/75

.globl  csv
.globl  cret

csv:
    mov r5,r0
    mov sp,r5
    mov r4,-(sp)
    mov r3,-(sp)
    mov r2,-(sp)
    tst     -(sp)           / äÌÑ ÓÏ×ÍÅÓÔÉÍÏÓÔÉ Ó Ï×ÅÒÌÅÅÍ
    jsr pc,(r0)     / jsr part is sub $2,sp

cret:
    mov r5,r2
    mov -(r2),r4
    mov -(r2),r3
    mov -(r2),r2
    mov r5,sp
    mov (sp)+,r5
    rts pc