COMMENT * SIMULA specification;
OPTIONS(/E:QUICK,storebyte);
INTEGER PROCEDURE storebyte(b,bp,incr); INTEGER b,bp,incr;
COMMENT store the byte B via the standard byte pointer BP.
If incr = 0, use DPB, if incr = 1, use IDPB. If other values of incr are given,
modify before using  DPB.
The value of storebyte is the stored byte.
;

!*;! MACRO-10 code !*;!

	TITLE	storebyte
	ENTRY	storebyte
	SUBTTL	SIMULA utility, Lars Enderin Oct 1977

;!*** Copyright 1977 by the Swedish Defence Research Institute. ***
;!*** Copying is allowed.					***


	sall
	search	simmac,simmcr,simrpa
	macinit

	;! Local definitions ;!

	b==<result==0>
	bp=b+1
	incr=bp+1

storebyte:
	PROC
	L XIAC,b(XTAC)
	LD X0,bp(XTAC)
	IF JUMPN X1,FALSE
	THEN  DPB XIAC,
	ELSE
	  IF CAIE X1,1
	     GOTO FALSE
	  THEN IDPB XIAC,
	  ELSE ;!Modify byte pointer X1 bytes
	    LOOP
	      IBP
	    AS
	      SOJG  X1,TRUE
	    SA
	    DPB  XIAC,
	FI FI
	RET
	EPROC
	LIT
	END;