perm filename TMP[IL,LSP] blob sn#203442 filedate 1976-02-24 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TAGR01	(MOVE 1 0 P)			~GET CALL
C00004 ENDMK
CāŠ—;
TAGR01	(MOVE 1 0 P)			~GET CALL
	(CALL 1 (E GWD) S)		~ASSEMBLE IT
	(PUSH P 1)			~SAVE IT
	(MOVE 2 16)			~GET POINTER TO FULL WORD LIST
	(JUMPN 2 TAGR0)			~ARE THERE ANY
	(CALL 0 (E GC) S)		~ NO! THEN GARBAGE COLLECT
	(MOVE 2 16)			~GOT IT NOW!!
TAGR0   (PUSH P 2)			~SAVE POINTER
	(MOVE 16 0 2)			~UPDATE FULL WORD LIST
	(MOVE 1 -1 P)			~GET INSTRUCTION
	(MOVEM 1 0 2)			~SAVE IT IN FULL WORD
	(HRRZ@ 1 -2 P)			~GET CDR OF CALL
	(HRRZ 1 0 1)			~GET CDR OF THAT I.E ((E FUNCT))
	(HLRZ 1 0 1)			~GET CAR  -- (E FUNCT)
	(HRRZ 1 0 1)			~GET CDR  -- (FUNCT)          
	(HLRZ 1 0 1)			~GET CAR  -- FUNCT
	(HLRZ@ 3 -2 P)			~GET CALL OR JCALL
	(CALL 3 (E PUTPROP) S)		~(PUTPROP FUNCT INSTRUCTION (J)CALL)
	(POP P 1)			~RETURN POINTER TO INSTRUCTION IN FWS
	(MOVEI 2 (QUOTE FIXNUM))
	(CALL 2 (E MAKNUM))		~MAKE IT A LISP NUMBER
	(POP P 2)
	(JRST 0 TAG4)