; 00001
.INCLUDE "LB:[MACROS]MACROS.MAC"
.INCLUDE "C.MAC"

MODULE CSaveAndRestore, MNAME=CSV, VER=01, COMM=<>

  EXPORT QUALIFIED C$SAV, C$RET, C$RETS

  PROCEDURE C$SAV
  BEGIN
    MOV  R5,R0
    MOV  SP,R5
    PUSH <R4, R3, R2, #0>
    JMP  (R0)
  END C$SAV

  PROCEDURE C$RET
  BEGIN
    MOV  R5,R2
    MOV  -(R2),R4
    MOV  -(R2),R3
    MOV  -(R2),R2

C$RETS:

    MOV  R5,SP
    POP  R5
    RETURN
  END C$RET

END CSaveAndRestore

.END