Artifact fa40098f523e611784ac6ca71e90b9a9778d70c909e6be7ff90899841b5b7908:

• File psl-1983/3-1/kernel/20/eval.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: 22680) [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
	extern L1256
	extern L1825
L1828:	29
	byte(7)84,111,111,32,109,97,110,121,32,97,114,103,117,109,101,110,116,115,32,116,111,32,102,117,110,99,116,105,111,110,0
	2
; (!*ENTRY CODEAPPLY EXPR 2)
L1829:	intern L1829
 MOVE 6,1
 TLZ 6,262080
 MOVE 7,2
 HRRZI 8,1
L1830: LDB 11,L1826
 CAIE 11,9
 JRST 0(6)
 MOVE 9,0(7)
 MOVEM 9,0(8)
 MOVE 7,1(7)
 AOS 8
 CAIN 8,6
 XMOVEI 8,L0002
 CAIG 8,9+L0002
 JRST L1830
 MOVE 1,L1827
 JRST SYMFNC+156
L1826:	point 6,7,5
L1827:	<4_30>+<1_18>+L1828
L1835:	29
	byte(7)84,111,111,32,109,97,110,121,32,97,114,103,117,109,101,110,116,115,32,116,111,32,102,117,110,99,116,105,111,110,0
	2
; (!*ENTRY CODEEVALAPPLY EXPR 2)
L1836:	intern L1836
 PUSH 15,1
 PUSH 15,L1831
L1837: LDB 11,L1832
 CAIE 11,9
 JRST L1838
 MOVE 6,0(15)
 CAMGE 6,L1833
 JRST L1839
 MOVE 1,0(2)
 MOVE 2,1(2)
 PUSH 15,2
 PUSHJ 15,SYMFNC+261
 POP 15,2
 POP 15,3
 SOS 3
 PUSH 15,1
 PUSH 15,3
 JRST L1837
L1838: POP 15,3
 JRST L1840(3)
 POP 15,L0002+9
 POP 15,L0002+8
 POP 15,L0002+7
 POP 15,L0002+6
 POP 15,L0002+5
 POP 15,L0002+4
 POP 15,L0002+3
 POP 15,L0002+2
 POP 15,L0002+1
 POP 15,L0002+0
 POP 15,5
 POP 15,4
 POP 15,3
 POP 15,2
 POP 15,1
L1840: POP 15,6
 TLZ 6,262080
 JRST 0(6)
L1839: MOVE 1,L1834
 JRST SYMFNC+156
L1831:	0
L1832:	point 6,2,5
L1833:	-15
L1834:	<4_30>+<1_18>+L1835
	2
; (!*ENTRY BINDEVAL EXPR 2)
L1844:	intern L1844
 PUSH 15,L1841
 SETZM 4
 MOVE 3,1
L1845: LDB 11,L1842
 CAIE 11,9
 JRST L1846
 MOVE 1,0(2)
 MOVE 2,1(2)
 PUSH 15,3
 PUSH 15,2
 PUSHJ 15,SYMFNC+261
 POP 15,2
 POP 15,3
 POP 15,4
 LDB 11,L1843
 CAIE 11,9
 JRST L1847
 AOS 4
 MOVE 5,0(3)
 MOVE 3,1(3)
 PUSH 15,1
 PUSH 15,5
 PUSH 15,4
 JRST L1845
L1847: LSH 4,1
 HRL 4,4
 SUB 15,4
 SETOM 1
 POPJ 15,0
L1846: ADJSP 15,-1
 LDB 11,L1843
 CAIN 11,9
 JRST L1847
 MOVE 3,4
L1848: JUMPE 3,L1849
 POP 15,1
 POP 15,2
 PUSH 15,3
 PUSH 15,4
 PUSHJ 15,SYMFNC+511
 POP 15,4
 POP 15,3
 SOJA 3,L1848
L1849: MOVE 1,4
 POPJ 15,0
L1841:	0
L1842:	point 6,2,5
L1843:	point 6,3,5
L1854:	61
	byte(7)73,110,116,101,114,110,97,108,32,101,114,114,111,114,32,105,110,32,102,117,110,99,116,105,111,110,32,99,97,108,108,105,110,103,32,109,101,99,104,97,110,105,115,109,59,32,99,111,110,115,117,108,116,32,97,32,119,105,122,97,114,100,0
	0
; (!*ENTRY COMPILEDCALLINGINTERPRETED EXPR 0)
L1855:	intern L1855
 MOVE 6,10
 SUBI 6,SYMFNC+1
 TLZ 6,258048
 TLO 6,114688
 PUSH 15,6
 HRRZ 6,6
 MOVE 6,SYMPRP(6)
L1856: LDB 11,L1850
 CAIE 11,9
 JRST L1857
 MOVE 7,0(6)
 MOVE 6,1(6)
 LDB 11,L1851
 CAIE 11,9
 JRST L1856
 MOVE 8,0(7)
 CAME 8,L1852
 JRST L1856
 MOVE 7,1(7)
; (!*ENTRY FASTLAMBDAAPPLY EXPR 0)
L1858:	intern L1858
 MOVE 7,1(7)
 MOVE 6,1(7)
 MOVE 7,0(7)
 HRRZI 8,1
 MOVE 9,L1256
 PUSH 15,9
L1859: LDB 11,L1851
 CAIE 11,9
 JRST L1860
 ADDI 9,2
 CAML 9,L1825
 JRST SYMFNC+513
 MOVE 10,0(7)
 HRRZM 10,-1(9)
 MOVE 11,SYMVAL(10)
 MOVEM 11,0(9)
 MOVE 11,0(8)
 MOVEM 11,SYMVAL(10)
 MOVE 7,1(7)
 AOS 8
 CAIN 8,6
 MOVEI 8,L0002
 JRST L1859
L1860: MOVEM 9,L1256
 MOVE 1,6
 PUSHJ 15,SYMFNC+265
 EXCH 1,0(15)
 PUSHJ 15,SYMFNC+514
 POP 15,1
 ADJSP 15,-1
 POPJ 15,0
L1857: MOVE 1,L1853
 JRST SYMFNC+156
L1850:	point 6,6,5
L1851:	point 6,7,5
L1853:	<4_30>+<1_18>+L1854
L1852:	<30_30>+515
L1864:	34
	byte(7)73,108,108,101,103,97,108,32,102,117,110,99,116,105,111,110,97,108,32,102,111,114,109,32,37,114,32,105,110,32,65,112,112,108,121,0
	0
; (!*ENTRY FASTAPPLY EXPR 0)
L1865:	intern L1865
 LDB 7,L1861
 TLZ 6,262080
 CAIN 7,30
 JRST SYMFNC(6)
 CAIN 7,15
 JRST 0(6)
 CAIE 7,9
 JRST L1866
 MOVE 7,0(6)
 CAME 7,L1862
 JRST L1866
 MOVE 7,6
 PUSH 15,0
 JRST L1858
L1866: MOVE 1,L1863
 MOVE 2,6
 PUSHJ 15,SYMFNC+155
 JRST SYMFNC+156
L1861:	point 6,6,5
L1863:	<4_30>+<1_18>+L1864
L1862:	<30_30>+253
L1868:	46
	byte(7)85,110,100,101,102,105,110,101,100,32,102,117,110,99,116,105,111,110,32,37,114,32,99,97,108,108,101,100,32,102,114,111,109,32,99,111,109,112,105,108,101,100,32,99,111,100,101,0
	0
; (!*ENTRY UNDEFINEDFUNCTION EXPR 0)
L1869:	intern L1869
 SOS 10
 PUSH 15,10
 PUSH 15,1
 PUSH 15,2
 PUSH 15,3
 PUSH 15,4
 PUSH 15,5
 PUSH 15,L0002+0
 PUSH 15,L0002+1
 PUSH 15,L0002+2
 PUSH 15,L0002+3
 PUSH 15,L0002+4
 PUSH 15,L0002+5
 PUSH 15,L0002+6
 PUSH 15,L0002+7
 PUSH 15,L0002+8
 PUSH 15,L0002+9
 SUBI 10,SYMFNC
 HRLI 10,122880
 MOVE 2,10
 MOVE 1,L1867
 PUSHJ 15,SYMFNC+155
 MOVE 2,1
 SETZM 1
 MOVE 3,0
 PUSHJ 15,SYMFNC+236
 POP 15,L0002+9
 POP 15,L0002+8
 POP 15,L0002+7
 POP 15,L0002+6
 POP 15,L0002+5
 POP 15,L0002+4
 POP 15,L0002+3
 POP 15,L0002+2
 POP 15,L0002+1
 POP 15,L0002+0
 POP 15,5
 POP 15,4
 POP 15,3
 POP 15,2
 POP 15,1
 POPJ 15,0
L1867:	<4_30>+<1_18>+L1868
L1875:	23
	byte(7)65,114,103,117,109,101,110,116,32,110,117,109,98,101,114,32,109,105,115,109,97,116,99,104,0
L1876:	29
	byte(7)73,108,108,45,102,111,114,109,101,100,32,102,117,110,99,116,105,111,110,32,101,120,112,114,101,115,115,105,111,110,0
; (!*ENTRY LAMBDAEVALAPPLY EXPR 2)
L1877:	intern L1877
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 LDB 11,L1870
 CAIE 11,9
 JRST L1878
 MOVE 6,L1871
 CAMN 6,0(1)
 JRST L1879
L1878: PUSHJ 15,SYMFNC+151
 MOVE 3,1
 MOVE 2,L1872
 HRRZI 1,1103
 ADJSP 15,-4
 JRST SYMFNC+236
L1879: MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVE 1,1(1)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+510
 MOVEM 1,-2(15)
 CAME 1,L1873
 JRST L1880
 MOVE 2,-1(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+151
 MOVE 3,1
 MOVE 2,L1874
 HRRZI 1,1203
 ADJSP 15,-4
 JRST SYMFNC+236
L1880: MOVE 1,0(15)
 MOVE 1,1(1)
 MOVE 1,1(1)
 PUSHJ 15,SYMFNC+265
 MOVEM 1,-3(15)
 SKIPN -2(15)
 JRST L1881
 MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+517
L1881: MOVE 1,-3(15)
 ADJSP 15,-4
 POPJ 15,0
L1870:	point 6,1,5
L1873:	-1
L1874:	<4_30>+<1_18>+L1875
L1872:	<4_30>+<1_18>+L1876
L1871:	<30_30>+253
L1890:	23
	byte(7)65,114,103,117,109,101,110,116,32,110,117,109,98,101,114,32,109,105,115,109,97,116,99,104,0
L1891:	29
	byte(7)73,108,108,45,102,111,114,109,101,100,32,102,117,110,99,116,105,111,110,32,101,120,112,114,101,115,115,105,111,110,0
; (!*ENTRY LAMBDAAPPLY EXPR 2)
L1892:	intern L1892
 ADJSP 15,9
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 LDB 11,L1882
 CAIE 11,9
 JRST L1893
 MOVE 6,L1883
 CAMN 6,0(1)
 JRST L1894
L1893: MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVEM 2,-2(15)
 LDB 11,L1884
 CAIN 11,9
 JRST L1895
 MOVE 1,0
 JRST L1896
L1895: MOVE 1,0(2)
 MOVEM 1,-5(15)
 PUSHJ 15,SYMFNC+234
 PUSHJ 15,SYMFNC+172
 MOVE 3,1
 MOVEM 3,-4(15)
 MOVEM 3,-3(15)
L1897: MOVE 1,-2(15)
 MOVE 1,1(1)
 MOVEM 1,-2(15)
 LDB 11,L1882
 CAIN 11,9
 JRST L1898
 MOVE 1,-3(15)
 JRST L1896
L1898: MOVE 1,0(1)
 MOVEM 1,-5(15)
 PUSHJ 15,SYMFNC+234
 PUSHJ 15,SYMFNC+172
 MOVE 7,-4(15)
 MOVEM 1,1(7)
 MOVE 2,-4(15)
 MOVE 2,1(2)
 MOVEM 2,-4(15)
 JRST L1897
L1896: MOVE 2,0(15)
 PUSHJ 15,SYMFNC+278
 MOVE 3,1
 MOVE 2,L1885
 HRRZI 1,1104
 ADJSP 15,-9
 JRST SYMFNC+236
L1894: MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVE 3,1(1)
 MOVE 3,0(3)
 MOVEM 3,-2(15)
 SETZM -3(15)
L1899: LDB 11,L1886
 CAIE 11,9
 JRST L1900
 LDB 11,L1887
 CAIE 11,9
 JRST L1900
 MOVE 2,-1(15)
 MOVE 2,0(2)
 MOVE 1,-2(15)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+511
 MOVE 1,-2(15)
 MOVE 1,1(1)
 MOVEM 1,-2(15)
 MOVE 2,-1(15)
 MOVE 2,1(2)
 MOVEM 2,-1(15)
 AOS -3(15)
 JRST L1899
L1900: LDB 11,L1886
 CAIN 11,9
 JRST L1901
 LDB 11,L1887
 CAIE 11,9
 JRST L1902
L1901: MOVEM 0,-5(15)
 MOVEM 0,-6(15)
 MOVEM 0,-7(15)
 MOVE 6,-1(15)
 MOVEM 6,-5(15)
 LDB 11,L1888
 CAIN 11,9
 JRST L1903
 MOVE 1,0
 JRST L1904
L1903: MOVE 1,-5(15)
 MOVE 1,0(1)
 MOVEM 1,-8(15)
 PUSHJ 15,SYMFNC+234
 PUSHJ 15,SYMFNC+172
 MOVEM 1,-7(15)
 MOVEM 1,-6(15)
L1905: MOVE 1,-5(15)
 MOVE 1,1(1)
 MOVEM 1,-5(15)
 LDB 11,L1882
 CAIN 11,9
 JRST L1906
 MOVE 1,-6(15)
 JRST L1904
L1906: MOVE 1,0(1)
 MOVEM 1,-8(15)
 PUSHJ 15,SYMFNC+234
 PUSHJ 15,SYMFNC+172
 MOVE 7,-7(15)
 MOVEM 1,1(7)
 MOVE 2,-7(15)
 MOVE 2,1(2)
 MOVEM 2,-7(15)
 JRST L1905
L1904: MOVE 2,0(15)
 PUSHJ 15,SYMFNC+278
 MOVE 3,1
 MOVE 2,L1889
 HRRZI 1,1204
 ADJSP 15,-9
 JRST SYMFNC+236
L1902: MOVE 1,0(15)
 MOVE 1,1(1)
 MOVE 1,1(1)
 PUSHJ 15,SYMFNC+265
 MOVEM 1,-4(15)
 SKIPN -3(15)
 JRST L1907
 MOVE 1,-3(15)
 PUSHJ 15,SYMFNC+517
L1907: MOVE 1,-4(15)
 ADJSP 15,-9
 POPJ 15,0
L1882:	point 6,1,5
L1884:	point 6,2,5
L1886:	point 6,-2(15),5
L1887:	point 6,-1(15),5
L1888:	point 6,-5(15),5
L1889:	<4_30>+<1_18>+L1890
L1885:	<4_30>+<1_18>+L1891
L1883:	<30_30>+253
L1915:	29
	byte(7)73,108,108,45,102,111,114,109,101,100,32,102,117,110,99,116,105,111,110,32,101,120,112,114,101,115,115,105,111,110,0
L1916:	26
	byte(7)37,114,32,105,115,32,97,110,32,117,110,100,101,102,105,110,101,100,32,102,117,110,99,116,105,111,110,0
	2
; (!*ENTRY APPLY EXPR 2)
APPLY:	intern APPLY
 ADJSP 15,9
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 LDB 11,L1908
 CAIE 11,30
 JRST L1917
 MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 PUSHJ 15,SYMFNC+519
 CAMN 1,0
 JRST L1918
 MOVE 2,0(15)
 MOVE 1,L1909
 PUSHJ 15,SYMFNC+155
 MOVEM 1,-4(15)
 MOVEM 0,-5(15)
 MOVEM 0,-6(15)
 MOVEM 0,-7(15)
 MOVE 6,-1(15)
 MOVEM 6,-5(15)
 LDB 11,L1910
 CAIN 11,9
 JRST L1919
 MOVE 1,0
 JRST L1920
L1919: MOVE 1,-5(15)
 MOVE 1,0(1)
 MOVEM 1,-8(15)
 PUSHJ 15,SYMFNC+234
 PUSHJ 15,SYMFNC+172
 MOVE 2,1
 MOVEM 2,-7(15)
 MOVEM 2,-6(15)
L1921: MOVE 1,-5(15)
 MOVE 1,1(1)
 MOVEM 1,-5(15)
 LDB 11,L1908
 CAIN 11,9
 JRST L1922
 MOVE 1,-6(15)
 JRST L1920
L1922: MOVE 1,0(1)
 MOVEM 1,-8(15)
 PUSHJ 15,SYMFNC+234
 PUSHJ 15,SYMFNC+172
 MOVE 7,-7(15)
 MOVEM 1,1(7)
 MOVE 2,-7(15)
 MOVE 2,1(2)
 MOVEM 2,-7(15)
 JRST L1921
L1920: MOVE 2,0(15)
 PUSHJ 15,SYMFNC+278
 MOVE 3,1
 MOVE 2,-4(15)
 HRRZI 1,1002
 JRST L1923
L1918: MOVE 2,0(15)
 TLZ 2,258048
 TLZ 2,258048
 TLO 2,114688
 MOVEM 2,-2(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+520
 CAMN 1,0
 JRST L1924
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+521
 MOVE 2,-1(15)
 PUSHJ 15,SYMFNC+508
 JRST L1925
L1924: MOVE 2,L1911
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+522
 MOVE 2,-1(15)
 PUSHJ 15,L1892
L1925: MOVEM 1,-3(15)
 JRST L1926
L1917: LDB 11,L1908
 CAIE 11,15
 JRST L1927
 ADJSP 15,-9
 JRST SYMFNC+508
L1927: LDB 11,L1908
 CAIE 11,9
 JRST L1928
 MOVE 6,L1912
 CAME 6,0(1)
 JRST L1928
 ADJSP 15,-9
 JRST L1892
L1928: MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVEM 2,-2(15)
 LDB 11,L1913
 CAIN 11,9
 JRST L1929
 MOVE 1,0
 JRST L1930
L1929: MOVE 1,0(2)
 MOVEM 1,-5(15)
 PUSHJ 15,SYMFNC+234
 PUSHJ 15,SYMFNC+172
 MOVE 3,1
 MOVEM 3,-4(15)
 MOVEM 3,-3(15)
L1931: MOVE 1,-2(15)
 MOVE 1,1(1)
 MOVEM 1,-2(15)
 LDB 11,L1908
 CAIN 11,9
 JRST L1932
 MOVE 1,-3(15)
 JRST L1930
L1932: MOVE 1,0(1)
 MOVEM 1,-5(15)
 PUSHJ 15,SYMFNC+234
 PUSHJ 15,SYMFNC+172
 MOVE 7,-4(15)
 MOVEM 1,1(7)
 MOVE 2,-4(15)
 MOVE 2,1(2)
 MOVEM 2,-4(15)
 JRST L1931
L1930: MOVE 2,0(15)
 PUSHJ 15,SYMFNC+278
 MOVE 3,1
 MOVE 2,L1914
 HRRZI 1,1102
L1923: ADJSP 15,-9
 JRST SYMFNC+236
L1926: ADJSP 15,-9
 POPJ 15,0
L1908:	point 6,1,5
L1910:	point 6,-5(15),5
L1913:	point 6,2,5
L1914:	<4_30>+<1_18>+L1915
L1912:	<30_30>+253
L1911:	<30_30>+515
L1909:	<4_30>+<1_18>+L1916
L1943:	31
	byte(7)73,108,108,45,102,111,114,109,101,100,32,101,120,112,114,101,115,115,105,111,110,32,105,110,32,69,118,97,108,32,37,114,0
L1944:	23
	byte(7)85,110,107,110,111,119,110,32,102,117,110,99,116,105,111,110,32,116,121,112,101,32,37,114,0
L1945:	26
	byte(7)37,114,32,105,115,32,97,110,32,117,110,100,101,102,105,110,101,100,32,102,117,110,99,116,105,111,110,0
	1
; (!*ENTRY EVAL EXPR 1)
EVAL:	intern EVAL
 ADJSP 15,5
 MOVEM 1,0(15)
 LDB 11,L1933
 CAIN 11,9
 JRST L1946
 LDB 11,L1933
 CAIE 11,30
 JRST L1947
 ADJSP 15,-5
 JRST SYMFNC+523
L1946: MOVEM 0,-1(15)
 MOVE 2,0(1)
 MOVEM 2,-1(15)
 LDB 11,L1934
 CAIE 11,30
 JRST L1948
 MOVE 1,2
 PUSHJ 15,SYMFNC+519
 CAMN 1,0
 JRST L1949
 MOVE 2,-1(15)
 MOVE 1,L1935
 PUSHJ 15,SYMFNC+155
 MOVE 3,0(15)
 MOVE 2,1
 HRRZI 1,1300
 ADJSP 15,-5
 JRST SYMFNC+236
L1949: MOVEM 0,-2(15)
 MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+524
 MOVEM 1,-2(15)
 MOVE 2,-1(15)
 TLZ 2,258048
 TLZ 2,258048
 TLO 2,114688
 MOVEM 2,-3(15)
 CAME 1,0
 JRST L1950
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+520
 CAMN 1,0
 JRST L1951
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+521
 MOVE 2,0(15)
 MOVE 2,1(2)
 PUSHJ 15,SYMFNC+509
 JRST L1952
L1951: MOVE 2,L1936
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+522
 MOVE 2,0(15)
 MOVE 2,1(2)
 PUSHJ 15,L1877
 JRST L1952
L1950: CAME 1,L1937
 JRST L1953
 MOVE 2,-1(15)
 MOVE 1,0(15)
 MOVE 1,1(1)
 TLZ 2,258048
 PUSHJ 15,SYMFNC(2)
 JRST L1952
L1953: CAME 1,L1938
 JRST L1954
 MOVE 1,0(15)
 MOVE 1,1(1)
 PUSHJ 15,SYMFNC+245
 MOVE 2,-1(15)
 TLZ 2,258048
 PUSHJ 15,SYMFNC(2)
 JRST L1952
L1954: CAME 1,L1939
 JRST L1955
 MOVE 2,-1(15)
 MOVE 1,0(15)
 TLZ 2,258048
 PUSHJ 15,SYMFNC(2)
 PUSHJ 15,EVAL
 JRST L1952
L1955: MOVE 2,1
 MOVE 1,L1940
 PUSHJ 15,SYMFNC+155
 MOVE 3,0(15)
 MOVE 2,1
 HRRZI 1,1301
 PUSHJ 15,SYMFNC+236
L1952: MOVEM 1,-4(15)
 JRST L1947
L1948: LDB 11,L1934
 CAIE 11,15
 JRST L1956
 MOVE 2,1(1)
 MOVE 1,-1(15)
 ADJSP 15,-5
 JRST SYMFNC+509
L1956: LDB 11,L1934
 CAIE 11,9
 JRST L1957
 MOVE 6,L1941
 CAME 6,0(2)
 JRST L1957
 MOVE 2,1(1)
 MOVE 1,-1(15)
 ADJSP 15,-5
 JRST L1877
L1957: MOVE 2,1
 MOVE 1,L1942
 PUSHJ 15,SYMFNC+155
 MOVE 3,0(15)
 MOVE 2,1
 HRRZI 1,1302
 ADJSP 15,-5
 JRST SYMFNC+236
L1947: ADJSP 15,-5
 POPJ 15,0
L1933:	point 6,1,5
L1934:	point 6,2,5
L1942:	<4_30>+<1_18>+L1943
L1941:	<30_30>+253
L1940:	<4_30>+<1_18>+L1944
L1939:	<30_30>+256
L1938:	<30_30>+258
L1937:	<30_30>+254
L1936:	<30_30>+515
L1935:	<4_30>+<1_18>+L1945
L1966:	<30_30>+525
	<30_30>+128
L1967:	<30_30>+84
	<9_30>+<1_18>+L1966
L1968:	<30_30>+244
	<9_30>+<1_18>+L1969
L1969:	<30_30>+526
	<9_30>+<1_18>+L1966
	1
; (!*ENTRY CATCH!-ALL MACRO 1)
L1970:	intern L1970
 ADJSP 15,2
 MOVE 2,1(1)
 MOVE 2,1(2)
 MOVE 1,1(1)
 MOVE 1,0(1)
 MOVEM 2,0(15)
 MOVE 3,L1958
 MOVE 2,1
 MOVE 1,L1959
 PUSHJ 15,SYMFNC+235
 MOVE 2,1
 MOVE 1,L1960
 PUSHJ 15,SYMFNC+249
 MOVE 3,L1961
 MOVE 2,1
 MOVE 1,L1962
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,L1963
 MOVE 1,L1964
 PUSHJ 15,SYMFNC+235
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 MOVE 1,0
 PUSHJ 15,SYMFNC+151
 MOVE 2,L1965
 PUSHJ 15,SYMFNC+278
 MOVE 2,1
 MOVE 1,-1(15)
 ADJSP 15,-2
 JRST SYMFNC+249
L1965:	<30_30>+498
L1964:	<30_30>+253
L1963:	<9_30>+<1_18>+L1966
L1962:	<30_30>+270
L1961:	<9_30>+<1_18>+L1967
L1960:	<30_30>+500
L1959:	<30_30>+518
L1958:	<9_30>+<1_18>+L1968
L1976:	<30_30>+525
	<30_30>+128
L1977:	<30_30>+244
	<9_30>+<1_18>+L1978
L1978:	<9_30>+<1_18>+L1979
	<9_30>+<1_18>+L1976
L1979:	<30_30>+266
	<9_30>+<1_18>+L1980
L1980:	<30_30>+500
	<9_30>+<1_18>+L1981
L1981:	<30_30>+526
	<30_30>+128
	1
; (!*ENTRY UNWIND!-ALL MACRO 1)
L1982:	intern L1982
 ADJSP 15,2
 MOVE 2,1(1)
 MOVE 2,1(2)
 MOVE 1,1(1)
 MOVE 1,0(1)
 MOVEM 2,0(15)
 MOVE 3,L1971
 MOVE 2,1
 MOVE 1,L1972
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,L1973
 MOVE 1,L1974
 PUSHJ 15,SYMFNC+235
 MOVEM 1,-1(15)
 MOVE 2,0(15)
 MOVE 1,0
 PUSHJ 15,SYMFNC+151
 MOVE 2,L1975
 PUSHJ 15,SYMFNC+278
 MOVE 2,1
 MOVE 1,-1(15)
 ADJSP 15,-2
 JRST SYMFNC+249
L1975:	<30_30>+498
L1974:	<30_30>+253
L1973:	<9_30>+<1_18>+L1976
L1972:	<30_30>+518
L1971:	<9_30>+<1_18>+L1977
L1991:	<30_30>+246
	<9_30>+<1_18>+L1996
L1992:	<30_30>+525
	<30_30>+128
L1993:	<30_30>+500
	<9_30>+<1_18>+L1997
L1994:	<30_30>+529
	<9_30>+<1_18>+L1998
L1995:	<30_30>+270
	<9_30>+<1_18>+L1999
L1996:	<30_30>+530
	<30_30>+128
L1997:	<30_30>+526
	<30_30>+128
L1998:	<30_30>+531
	<30_30>+128
L1999:	<9_30>+<1_18>+L2000
	<9_30>+<1_18>+L2001
L2000:	<30_30>+529
	<9_30>+<1_18>+L2002
L2001:	<9_30>+<1_18>+L2003
	<30_30>+128
L2002:	<9_30>+<1_18>+L2004
	<30_30>+128
L2003:	<30_30>+84
	<9_30>+<1_18>+L1992
L2004:	<30_30>+532
	<9_30>+<1_18>+L2005
L2005:	<30_30>+531
	<9_30>+<1_18>+L1992
	1
; (!*ENTRY UNWIND!-PROTECT MACRO 1)
L2006:	intern L2006
 ADJSP 15,2
 MOVE 2,1(1)
 MOVE 2,1(2)
 MOVE 1,1(1)
 MOVE 1,0(1)
 MOVEM 1,0(15)
 MOVE 1,L1983
 PUSHJ 15,SYMFNC+151
 MOVE 4,L1984
 MOVE 3,1
 MOVE 2,L1985
 MOVE 1,L1986
 PUSHJ 15,SYMFNC+250
 MOVE 2,L1987
 PUSHJ 15,SYMFNC+151
 MOVE 3,1
 MOVE 2,L1988
 MOVE 1,L1986
 PUSHJ 15,SYMFNC+235
 MOVEM 1,-1(15)
 MOVE 3,0(15)
 MOVE 2,L1989
 MOVE 1,L1990
 PUSHJ 15,SYMFNC+235
 MOVE 2,1
 MOVE 1,-1(15)
 ADJSP 15,-2
 JRST SYMFNC+249
L1990:	<30_30>+498
L1989:	<9_30>+<1_18>+L1991
L1988:	<9_30>+<1_18>+L1992
L1987:	<9_30>+<1_18>+L1993
L1986:	<30_30>+253
L1985:	<9_30>+<1_18>+L1994
L1984:	<9_30>+<1_18>+L1995
L1983:	<30_30>+264
	1
; (!*ENTRY CATCH FEXPR 1)
CATCH:	intern CATCH
 ADJSP 15,3
 MOVE 2,1(1)
 MOVE 1,0(1)
 MOVEM 2,0(15)
 PUSHJ 15,SYMFNC+261
 PUSHJ 15,SYMFNC+499
 MOVEM 1,-1(15)
 CAME 0,SYMVAL+500
 JRST L2007
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+265
 MOVEM 1,-2(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+501
 MOVE 1,-2(15)
L2007: ADJSP 15,-3
 POPJ 15,0
	1
; (!*ENTRY !*CATCH MACRO 1)
L2009:	intern L2009
 MOVE 2,1(1)
 MOVE 1,L2008
 JRST SYMFNC+151
L2008:	<30_30>+498
	2
; (!*ENTRY !*THROW EXPR 2)
L2010:	intern L2010
 JRST SYMFNC+495
	extern L2011
	extern L2012
	1
; (!*ENTRY CATCHSETUP EXPR 1)
L2013:	intern L2013
 MOVE 2,0(15)
 MOVE 3,15
 JRST L2014
L2017:	19
	byte(7)67,97,116,99,104,32,115,116,97,99,107,32,111,118,101,114,102,108,111,119,0
L2018:	35
	byte(7)67,97,116,99,104,45,116,104,114,111,119,32,115,116,97,99,107,32,111,118,101,114,102,108,111,119,32,40,119,97,114,110,105,110,103,41,0
; (!*ENTRY CATCHSETUPAUX EXPR 3)
L2014:	intern L2014
 ADJSP 15,4
 MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVEM 3,-2(15)
 MOVE 6,L2012
 MOVEM 6,-3(15)
 HRRZI 7,4
 ADDM 7,L2012
 SETZM 4
 ADDI 4,1580+L2011
 CAMLE 4,L2012
 JRST L2019
 CAME 4,L2012
 JRST L2020
 MOVE 3,0
 MOVE 2,L2015
 HRRZI 1,99
 PUSHJ 15,SYMFNC+236
L2020: SETZM 1
 ADDI 1,1600+L2011
 CAMLE 1,L2012
 JRST L2019
 MOVE 6,L2016
 MOVEM 6,SYMVAL+483
 PUSHJ 15,SYMFNC+536
L2019: MOVE 7,L2012
 MOVE 6,0(15)
 MOVEM 6,0(7)
 MOVE 2,L2012
 MOVE 6,-1(15)
 MOVEM 6,1(2)
 MOVE 6,-2(15)
 MOVEM 6,2(2)
 PUSHJ 15,SYMFNC+537
 MOVE 3,L2012
 MOVEM 1,3(3)
 MOVE 2,0
 MOVEM 2,SYMVAL+500
 MOVE 1,-3(15)
 ADJSP 15,-4
 POPJ 15,0
L2016:	<4_30>+<1_18>+L2017
L2015:	<4_30>+<1_18>+L2018
	1
; (!*ENTRY !%UNCATCH EXPR 1)
L2021:	intern L2021
 MOVEM 1,L2012
 MOVE 1,0
 MOVEM 1,SYMVAL+500
 POPJ 15,0
	0
; (!*ENTRY !%CLEAR!-CATCH!-STACK EXPR 0)
L2022:	intern L2022
 SETZM 1
 ADDI 1,L2011
 MOVEM 1,L2012
 POPJ 15,0
	2
; (!*ENTRY !%THROW EXPR 2)
%THROW:	intern %THROW
 ADJSP 15,5
L2024: MOVEM 1,0(15)
 MOVEM 2,-1(15)
 MOVE 6,L2012
 MOVE 6,0(6)
 MOVEM 6,-2(15)
 CAMN 0,-2(15)
 JRST L2025
 MOVE 6,-2(15)
 CAMN 6,L2023
 JRST L2025
 CAMN 1,-2(15)
 JRST L2025
 MOVNI 7,4
 ADDM 7,L2012
 JRST L2024
L2025: MOVEM 0,-3(15)
 MOVEM 0,-4(15)
 MOVE 4,L2012
 MOVE 6,1(4)
 MOVEM 6,-3(15)
 MOVE 6,2(4)
 MOVEM 6,-4(15)
 MOVE 1,3(4)
 PUSHJ 15,SYMFNC+514
 MOVNI 7,4
 ADDM 7,L2012
 MOVE 6,SYMVAL+84
 MOVEM 6,SYMVAL+500
 MOVE 6,0(15)
 MOVEM 6,SYMVAL+526
 MOVE 3,-4(15)
 MOVE 2,-3(15)
 MOVE 1,-1(15)
 ADJSP 15,-5
 JRST L2026
L2023:	<30_30>+530
; (!*ENTRY THROWAUX EXPR 3)
L2026:	intern L2026
 MOVE 15,3
 MOVEM 2,0(15)
 POPJ 15,0
	2
; (!*ENTRY THROW EXPR 2)
THROW:	intern THROW
 MOVE 3,L2012
 JRST L2027
L2032:	24
	byte(7)69,114,114,111,114,32,110,111,116,32,119,105,116,104,105,110,32,69,114,114,111,114,83,101,116,0
L2033:	30
	byte(7)67,97,116,99,104,32,116,97,103,32,37,114,32,110,111,116,32,102,111,117,110,100,32,105,110,32,84,104,114,111,119,0
; (!*ENTRY FINDCATCHMARKANDTHROW EXPR 3)
L2027:	intern L2027
 ADJSP 15,4
L2034: MOVEM 1,0(15)
 MOVEM 2,-1(15)
 SETZM 4
 ADDI 4,L2011
 CAME 3,4
 JRST L2035
 CAMN 1,L2028
 JRST L2036
 MOVE 2,1
 MOVE 1,L2029
 PUSHJ 15,SYMFNC+155
 MOVEM 1,-2(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+234
 MOVEM 1,-3(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+234
 MOVE 3,1
 MOVE 2,-3(15)
 MOVE 1,L2030
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,-2(15)
 HRRZI 1,99
 ADJSP 15,-4
 JRST SYMFNC+236
L2036: MOVE 1,L2031
 ADJSP 15,-4
 JRST SYMFNC+380
L2035: CAMN 0,0(3)
 JRST L2037
 CAME 1,0(3)
 JRST L2038
L2037: ADJSP 15,-4
 JRST SYMFNC+532
L2038: SUBI 3,4
 JRST L2034
L2031:	<4_30>+<1_18>+L2032
L2030:	<30_30>+495
L2029:	<4_30>+<1_18>+L2033
L2028:	<30_30>+496
	1
; (!*ENTRY PROG FEXPR 1)
PROG:	intern PROG
 ADJSP 15,4
 JSP 10,SYMFNC+443
	byte(18)1,539
 MOVEM 0,0(15)
 MOVEM 0,-1(15)
 JSP 10,SYMFNC+443
	byte(18)0,540
 LDB 11,L2039
 CAIN 11,9
 JRST L2044
 MOVE 1,0
 JRST L2045
L2044: SETZM 0(15)
 MOVE 2,SYMVAL+539
 MOVE 2,0(2)
 MOVEM 2,-2(15)
L2046: LDB 11,L2040
 CAIE 11,9
 JRST L2047
 MOVE 1,-2(15)
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+542
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+241
 MOVEM 1,0(15)
 MOVE 2,-2(15)
 MOVE 2,1(2)
 MOVEM 2,-2(15)
 JRST L2046
L2047: MOVE 1,SYMVAL+539
 MOVE 1,1(1)
 MOVEM 1,SYMVAL+539
 MOVEM 1,-2(15)
L2048: LDB 11,L2040
 CAIE 11,9
 JRST L2049
 MOVE 1,-2(15)
 LDB 11,L2041
 CAIE 11,30
 JRST L2050
 MOVE 2,SYMVAL+540
 PUSHJ 15,SYMFNC+151
 MOVEM 1,SYMVAL+540
L2050: MOVE 1,-2(15)
 MOVE 1,1(1)
 MOVEM 1,-2(15)
 JRST L2048
L2049: LDB 11,L2039
 CAIE 11,9
 JRST L2051
 MOVE 6,SYMVAL+539
 LDB 11,L2042
 CAIN 11,30
 JRST L2052
L2051: MOVE 1,0
 JRST L2053
L2052: MOVE 1,SYMVAL+539
 MOVE 1,1(1)
 MOVEM 1,SYMVAL+539
 JRST L2049
L2053: MOVE 1,SYMVAL+84
 LDB 11,L2039
 CAIN 11,9
 JRST L2054
 MOVE 1,0
L2054: CAMN 1,0
 JRST L2055
 MOVE 1,L2043
 PUSHJ 15,SYMFNC+499
 MOVEM 1,-2(15)
 CAME 0,SYMVAL+500
 JRST L2056
 MOVE 1,SYMVAL+539
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+261
 MOVEM 1,-3(15)
 MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+501
 MOVE 1,-3(15)
L2056: MOVEM 1,-1(15)
 CAME 0,SYMVAL+500
 JRST L2049
 MOVE 1,0
 MOVEM 1,-1(15)
 MOVE 2,SYMVAL+539
 MOVE 2,1(2)
 MOVEM 2,SYMVAL+539
 JRST L2049
L2055: MOVE 1,0(15)
 PUSHJ 15,SYMFNC+517
 MOVE 1,-1(15)
L2045: JSP 10,SYMFNC+447
	1
 JSP 10,SYMFNC+447
	1
 ADJSP 15,-4
 POPJ 15,0
L2039:	point 6,<SYMVAL+539>,5
L2040:	point 6,-2(15),5
L2041:	point 6,0(1),5
L2042:	point 6,0(6),5
L2043:	<30_30>+543
L2061:	39
	byte(7)71,79,32,97,116,116,101,109,112,116,101,100,32,111,117,116,115,105,100,101,32,116,104,101,32,115,99,111,112,101,32,111,102,32,97,32,80,82,79,71,0
L2062:	41
	byte(7)37,114,32,105,115,32,110,111,116,32,97,32,108,97,98,101,108,32,119,105,116,104,105,110,32,116,104,101,32,99,117,114,114,101,110,116,32,115,99,111,112,101,0
	1
; (!*ENTRY GO FEXPR 1)
GO:	intern GO
 ADJSP 15,3
 MOVEM 1,0(15)
 MOVEM 0,-1(15)
 CAMN 0,SYMVAL+539
 JRST L2063
 MOVE 2,SYMVAL+540
 MOVE 1,0(1)
 PUSHJ 15,SYMFNC+335
 MOVEM 1,-1(15)
 CAME 1,0
 JRST L2064
 MOVE 2,0(15)
 MOVE 2,0(2)
 MOVE 1,L2057
 PUSHJ 15,SYMFNC+155
 MOVEM 1,-2(15)
 MOVE 2,0(15)
 MOVE 1,L2058
 PUSHJ 15,SYMFNC+151
 MOVE 3,1
 MOVE 2,-2(15)
 HRRZI 1,3001
 ADJSP 15,-3
 JRST SYMFNC+236
L2064: MOVEM 1,SYMVAL+539
 MOVE 2,0
 MOVE 1,L2059
 ADJSP 15,-3
 JRST SYMFNC+535
L2063: MOVE 2,L2058
 PUSHJ 15,SYMFNC+278
 MOVE 3,1
 MOVE 2,L2060
 HRRZI 1,3101
 ADJSP 15,-3
 JRST SYMFNC+236
L2060:	<4_30>+<1_18>+L2061
L2059:	<30_30>+543
L2058:	<30_30>+544
L2057:	<4_30>+<1_18>+L2062
L2068:	43
	byte(7)82,69,84,85,82,78,32,97,116,116,101,109,112,116,101,100,32,111,117,116,115,105,100,101,32,116,104,101,32,115,99,111,112,101,32,111,102,32,97,32,80,82,79,71,0
	1
; (!*ENTRY RETURN EXPR 1)
RETURN:	intern RETURN
 CAMN 0,SYMVAL+539
 JRST L2069
 MOVE 2,0
 MOVEM 2,SYMVAL+539
 MOVE 2,1
 MOVE 1,L2065
 JRST SYMFNC+535
L2069: PUSHJ 15,SYMFNC+234
 MOVE 2,1
 MOVE 1,L2066
 PUSHJ 15,SYMFNC+249
 MOVE 3,1
 MOVE 2,L2067
 HRRZI 1,3102
 JRST SYMFNC+236
L2067:	<4_30>+<1_18>+L2068
L2066:	<30_30>+545
L2065:	<30_30>+543
	end