Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	universal	crcsym
	search	monsym,macsym
	.require sys:macrel
	t1==1
	t2==2
	t3==3
	t4==4
	q1==5
	q2==6
	q3==7
	q4==10
	p1==11
	p2==12
	p3==13
	p4==14
	p5==15
	cx==16
	 p==17
	slen==^d20
define	begin	<
stack:	block	slen
start:	reset%
	move	p,[iowd	slen,stack]		;set up stack pointer
>
;
;	Macro to define offsets for a fortran argument list
;
;	FORARG<arg1,arg2,arg3>
;	defines arg1=0
;		arg2==1, etc.
;	Also defines cleararg to purge all the rest, and does this before each
;	setup.
;

	DEFINE FORARG(ARGLST),<

IFDEF	$ARGCNT,	<NOARGS>	;;clear previous argument definitions
	DEFINE	NOARGS, <PURGE ARGLST> ;;set up a new clear macro

	$ARGCNT==0		;;initialize count of arguments

	IRP ARGLST,<$FARG ARGLST>
		>	;now define the arguments

	DEFINE	$FARG(ARG),<
	ARG==$ARGCNT
	$ARGCNT==$ARGCNT+1>
;
;	Define macro for the MOVSLJ extended instruction.
;
DEFINE	MOVCHA (acc,filcha<" ">,skop<nop>),<
	extend	acc,	[movslj	0,0
				filcha ]
	 skop					;;ignore truncation if nop
	>
;
	END