Artifact c4d31de54c70972c60ddf983f17bf73a5caba60f41cb1265e82a67dd5dd449c4:

• File psl-1983/20-tests/sub20.mac — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 915) [annotate] [blame] [check-ins using] [more...]

	search monsym
	radix 10
	extern SYMNAM
	extern SYMVAL
	extern SYMFNC
	extern SYMPRP
	extern L0001
	extern L0002
	extern ARG1
	extern ARG2
	extern ARG3
	extern ARG4
	extern ARG5
	extern ARG6
	extern ARG7
	extern ARG8
	extern ARG9
	extern ARG10
	extern ARG11
	extern ARG12
	extern ARG13
	extern ARG14
	extern ARG15
; (!*ENTRY INIT EXPR 0)
INIT:	intern INIT
	SETZM 1
	JRST INIT20
; (!*ENTRY GETC EXPR 0)
GETC:	intern GETC
	SETZM 1
	JRST GETC20
; (!*ENTRY TIMC EXPR 0)
TIMC:	intern TIMC
	SETZM 1
	JRST TIMC20
; (!*ENTRY PUTC EXPR 1)
PUTC:	intern PUTC
	JRST PUTC20
; (!*ENTRY QUIT EXPR 0)
QUIT:	intern QUIT
	SETZM 1
	JRST QUIT20
; (!*ENTRY PUTINT EXPR 1)
PUTINT:	intern PUTINT
	JRST PUTI20
; (!*ENTRY UNDEFINEDFUNCTION EXPR 1)
L0003:	intern L0003
	HRRZI 1,1
	PUSHJ 15,ERR20
; (!*ENTRY FLAG EXPR 2)
FLAG:	intern FLAG
	HRRZI 1,2
	PUSHJ 15,ERR20
; (!*ENTRY !*WTIMES32 EXPR 2)
L0004:	intern L0004
	IMUL 1,2
	POPJ 15,0
	end