Artifact 7ac1960ca2df68d313a4e2a154d143b4f39e8e790bd41fd287a46b84d3d09fa6:

• File psl-1983/3-1/kernel/20/extra.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: 2660) [annotate] [blame] [check-ins using] [more...]

	search monsym,macsym
	radix 10
	extern SYMNAM
	extern SYMVAL
	extern SYMFNC
	extern SYMPRP
	extern L0001
	extern L0002
	extern L0003
	0
; (!*ENTRY TIMC EXPR 0)
TIMC:	intern TIMC
 MOVNI 1,5
 RUNTM
 POPJ 15,0
L2071:	8
	byte(7)67,111,110,116,105,110,117,101,100,0
	0
; (!*ENTRY QUIT EXPR 0)
QUIT:	intern QUIT
 HALTF
 MOVE 1,L2070
 POPJ 15,0
L2070:	<4_30>+<1_18>+L2071
	0
; (!*ENTRY DATE EXPR 0)
DATE:	intern DATE
 HRRZI 1,8
 PUSHJ 15,SYMFNC+145
 MOVE 4,1
 AOS 1
 TLO 1,200704
 SETOM 2
 HRLZI 3,1
 ODTIM
 MOVE 1,4
 TLZ 1,258048
 TLO 1,16384
 POPJ 15,0
	1
; (!*ENTRY RETURNADDRESSP EXPR 1)
L2072:	intern L2072
 MOVE 5,1
 XMOVEI 2,SYMFNC
 HRRZ 2,2
 MOVE 3,2
 HLRZ 1,1
 CAIN 1,102400
 JRST L2073
 MOVE 1,0
 JRST L2074
L2073: MOVE 1,SYMVAL+84
L2074: CAMN 1,0
 JRST L2075
 HLRZ 1,-1(5)
 CAIN 1,90592
 JRST L2076
 MOVE 1,0
 JRST L2077
L2076: MOVE 1,SYMVAL+84
L2077: CAMN 1,0
 JRST L2075
 HRRZ 1,-1(5)
 SUB 1,2
 MOVE 4,1
 JUMPG 1,L2078
 MOVE 1,0
 JRST L2079
L2078: MOVE 1,SYMVAL+84
L2079: CAMN 1,0
 JRST L2075
 MOVE 1,SYMVAL+84
 CAIGE 4,8000
 JRST L2080
 MOVE 1,0
L2080: CAMN 1,0
 JRST L2075
 MOVE 1,4
 HRLI 1,122880
L2075: POPJ 15,0
	extern L1080
	extern L1082
	extern L1110
	extern L1111
	extern L2081
L2084:	36
	byte(7)68,117,109,112,108,105,115,112,32,114,101,113,117,105,114,101,115,32,97,32,102,105,108,101,110,97,109,101,32,97,114,103,117,109,101,110,116,0
	1
; (!*ENTRY DUMPLISP EXPR 1)
L2085:	intern L2085
 PUSH 15,1
 LDB 11,L2082
 CAIN 11,4
 JRST L2086
 MOVE 1,L2083
 PUSHJ 15,SYMFNC+156
L2086: PUSHJ 15,SYMFNC+390
 MOVE 2,L1082
 MOVE 1,L1080
 PUSHJ 15,SYMFNC+420
 MOVE 2,L1111
 MOVE 1,L1110
 PUSHJ 15,SYMFNC+420
 MOVE 2,L2081
 HRRZ 1,15
 IOR 1,[262144]
 ADDI 1,10
 PUSHJ 15,SYMFNC+420
 MOVE 1,0(15)
 ADJSP 15,-1
 JRST L2087
L2082:	point 6,1,5
L2083:	<4_30>+<1_18>+L2084
	2
; (!*ENTRY UNMAP!-SPACE EXPR 2)
L2088:	intern L2088
 ADJSP 15,3
 MOVEM 1,-2(15)
 MOVEM 2,-1(15)
 MOVE 3,1
 ADDI 3,511
 LSH 3,-9
 MOVEM 3,0(15)
 MOVE 4,2
 SUBI 4,512
 LSH 4,-9
 MOVE 5,4
 CAML 3,4
 JRST L2089
 MOVE 2,4
 SUB 2,3
 MOVE 1,3
 ADJSP 15,-3
 JRST L2090
L2089: MOVE 1,0
 ADJSP 15,-3
 POPJ 15,0
; (!*ENTRY UNMAP!-PAGES EXPR 2)
L2090:	intern L2090
 HRLZI 3,131072
 HRR 3,2
 HRLZI 2,131072
 HRR 2,1
 SETOM 1
 PMAP
 POPJ 15,0
L2092:	31
	byte(7)67,111,117,108,100,110,39,116,32,71,84,74,70,78,32,96,37,119,39,32,102,111,114,32,68,117,109,112,108,105,115,112,0
; (!*ENTRY SAVE!-INTO!-FILE EXPR 1)
L2087:	intern L2087
 MOVE 5,1
 MOVE 2,1
 TLZ 2,258048
 TLO 2,221184
 HRLZI 1,131073
 GTJFN
 JRST L2093
 HRLI 1,131072
 HRRZI 2,176128
 TLO 2,131072
 HRRZI 3,512
 SSAVE
 SETZM 1
 POPJ 15,0
L2093: MOVE 1,L2091
 MOVE 2,5
 PUSHJ 15,SYMFNC+155
 JRST SYMFNC+156
L2091:	<4_30>+<1_18>+L2092
	end