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

MODULE BuyBuffer, MNAME=BUYBUF, VER=01, COMM=<>

  FROM CSV  IMPORT C$SAV,  C$RET
  FROM FREE IMPORT ALLOC

  EXPORT QUALIFIED BUYBUF

  PROCEDURE BUYBUF
  BEGIN
    C$SAV
    TST  -(SP)
		;
		;   6(R5) - פעוגץוםבס הלימב
		;   4(R5) - בהעוף םבףףיקב, כןניעץוםןחן ק גץזוע
		;
		; -10(R5) - קעוםוממבס הלס נןלץ‏וממןחן בהעוףב
		;
		; ־ב קשטןהו R0 - בהעוף נןלץ‏וממןחן גץזועב ילי 0
		;

    MOV  4(R5), R4
    MOV  6(R5), R2
    CLR  (SP)
    PUSH R2
    CALL ALLOC
    POP
    MOV  R0, -10(R5)
    MOV  -10(R5), R3

    WHILE R2 NE #0 DO
      MOVB (R4)+, (R3)+
      DEC  R2
    END
    MOV  -10(R5), R0

    C$RET
  END BUYBUF

END BuyBuffer

.END