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