File psl-1983/3-1/kernel/20/error.mac artifact 6b44fe4a12 part of check-in 3af273af29


	search monsym,macsym
	radix 10
	extern SYMNAM
	extern SYMVAL
	extern SYMFNC
	extern SYMPRP
	extern L0001
	extern L0002
	extern L0003
L1705:	20
	byte(7)42,42,42,42,42,32,70,97,116,97,108,32,101,114,114,111,114,58,32,37,115,0
	1
; (!*ENTRY FATALERROR EXPR 1)
L1706:	intern L1706
 PUSH 15,1
 MOVE 2,1
 MOVE 1,L1704
 PUSHJ 15,SYMFNC+418
L1707: PUSHJ 15,SYMFNC+471
 JRST L1707
L1704:	<4_30>+<1_18>+L1705
L1709:	33
	byte(7)73,110,100,101,120,32,37,114,32,111,117,116,32,111,102,32,114,97,110,103,101,32,102,111,114,32,37,112,32,105,110,32,37,112,0
	3
; (!*ENTRY RANGEERROR EXPR 3)
L1710:	intern L1710
 MOVE 4,3
 MOVE 3,1
 MOVE 1,L1708
 PUSHJ 15,SYMFNC+155
 JRST SYMFNC+156
L1708:	<4_30>+<1_18>+L1709
	1
; (!*ENTRY STDERROR EXPR 1)
L1711:	intern L1711
 MOVE 2,1
 HRRZI 1,99
 JRST SYMFNC+472
L1718:	<30_30>+451
	<30_30>+128
L1719:	<30_30>+78
	<9_30>+<1_18>+L1722
L1720:	<30_30>+89
	<9_30>+<1_18>+L1723
L1721:	12
	byte(7)63,37,108,32,40,89,32,111,114,32,78,41,32,0
L1722:	<30_30>+473
	<30_30>+128
L1723:	<30_30>+474
	<30_30>+128
	1
; (!*ENTRY YESP EXPR 1)
YESP:	intern YESP
 ADJSP 15,6
 MOVEM 1,0(15)
 MOVEM 0,-1(15)
 JSP 10,SYMFNC+443
	byte(18)0,442
 MOVE 1,0
 PUSHJ 15,SYMFNC+475
 MOVEM 1,-5(15)
 MOVE 1,SYMVAL+476
 PUSHJ 15,SYMFNC+477
 MOVEM 1,-4(15)
 MOVE 2,0(15)
 MOVE 1,L1712
 PUSHJ 15,SYMFNC+155
 MOVEM 1,SYMVAL+442
L1724: PUSHJ 15,SYMFNC+448
 MOVEM 1,-2(15)
 MOVE 2,L1713
 PUSHJ 15,SYMFNC+303
 MOVE 2,1
 MOVEM 2,-3(15)
 CAME 2,0
 JRST L1725
 MOVE 2,L1714
 MOVE 1,-2(15)
 PUSHJ 15,SYMFNC+303
 CAME 1,0
 JRST L1725
 MOVE 6,-2(15)
 CAME 6,L1715
 JRST L1726
 MOVE 3,0
 MOVE 2,0
 MOVE 1,L1716
 PUSHJ 15,SYMFNC+478
L1726: MOVE 6,SYMVAL+84
 MOVEM 6,-1(15)
 JRST L1724
L1725: MOVE 1,-4(15)
 PUSHJ 15,SYMFNC+477
 MOVE 1,-5(15)
 PUSHJ 15,SYMFNC+475
 MOVE 6,L1717
 MOVEM 6,SYMVAL+479
 MOVE 1,-3(15)
 JSP 10,SYMFNC+447
	1
 ADJSP 15,-6
 POPJ 15,0
L1717:	<30_30>+480
L1716:	<9_30>+<1_18>+L1718
L1715:	<30_30>+66
L1714:	<9_30>+<1_18>+L1719
L1713:	<9_30>+<1_18>+L1720
L1712:	<4_30>+<1_18>+L1721
L1732:	1
	byte(7)37,112,0
L1733:	38
	byte(7)42,42,42,42,42,32,67,111,110,116,105,110,117,97,98,108,101,32,101,114,114,111,114,44,32,114,101,116,114,121,32,102,111,114,109,32,105,115,58,0
L1734:	40
	byte(7)42,42,42,42,42,32,67,111,110,116,105,110,117,97,98,108,101,32,101,114,114,111,114,58,32,114,101,116,114,121,32,102,111,114,109,32,105,115,32,37,114,0
L1735:	23
	byte(7)42,42,42,42,42,32,67,111,110,116,105,110,117,97,98,108,101,32,101,114,114,111,114,46,0
L1736:	7
	byte(7)42,42,42,42,42,32,37,108,0
	3
; (!*ENTRY CONTINUABLEERROR EXPR 3)
L1737:	intern L1737
 PUSH 15,2
 PUSH 15,1
 JSP 10,SYMFNC+443
	byte(18)3,481
 JSP 10,SYMFNC+443
	byte(18)0,482
 MOVE 6,SYMVAL+84
 MOVEM 6,SYMVAL+482
 MOVEM 2,SYMVAL+483
 CAMN 0,SYMVAL+484
 JRST L1738
 CAMN 0,SYMVAL+485
 JRST L1738
 MOVE 2,SYMVAL+486
 MOVE 1,SYMVAL+487
 PUSHJ 15,SYMFNC+282
 CAMN 1,0
 JRST L1738
 MOVE 2,-1(15)
 MOVE 1,L1727
 PUSHJ 15,SYMFNC+418
 CAME 0,SYMVAL+481
 JRST L1739
 MOVE 1,L1728
 PUSHJ 15,SYMFNC+418
 JRST L1740
L1739: MOVE 1,SYMVAL+481
 PUSHJ 15,SYMFNC+488
 HRRZI 2,40
 PUSHJ 15,SYMFNC+282
 CAMN 1,0
 JRST L1741
 MOVE 2,SYMVAL+481
 MOVE 1,L1729
 JRST L1742
L1741: MOVE 1,L1730
 PUSHJ 15,SYMFNC+418
 MOVE 2,SYMVAL+481
 MOVE 1,L1731
L1742: PUSHJ 15,SYMFNC+418
L1740: PUSHJ 15,SYMFNC+451
 JRST L1743
L1738: MOVE 2,-1(15)
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+472
L1743: JSP 10,SYMFNC+447
	1
 JSP 10,SYMFNC+447
	1
 ADJSP 15,-2
 POPJ 15,0
L1731:	<4_30>+<1_18>+L1732
L1730:	<4_30>+<1_18>+L1733
L1729:	<4_30>+<1_18>+L1734
L1728:	<4_30>+<1_18>+L1735
L1727:	<4_30>+<1_18>+L1736
L1745:	50
	byte(7)65,110,32,97,116,116,101,109,112,116,32,119,97,115,32,109,97,100,101,32,116,111,32,100,111,32,37,112,32,111,110,32,37,114,44,32,119,104,105,99,104,32,105,115,32,110,111,116,32,37,119,0
	3
; (!*ENTRY TYPEERROR EXPR 3)
L1746:	intern L1746
 MOVE 4,3
 MOVE 3,1
 MOVE 1,L1744
 PUSHJ 15,SYMFNC+155
 JRST SYMFNC+156
L1744:	<4_30>+<1_18>+L1745
L1748:	60
	byte(7)65,110,32,97,116,116,101,109,112,116,32,119,97,115,32,109,97,100,101,32,116,111,32,117,115,101,32,37,114,32,97,115,32,37,119,32,105,110,32,37,112,44,32,119,104,101,114,101,32,37,119,32,105,115,32,110,101,101,100,101,100,0
	4
; (!*ENTRY USAGETYPEERROR EXPR 4)
L1749:	intern L1749
 PUSH 15,4
 MOVE 5,3
 MOVE 4,2
 MOVE 3,0(15)
 MOVE 2,1
 MOVE 1,L1747
 PUSHJ 15,SYMFNC+155
 ADJSP 15,-1
 JRST SYMFNC+156
L1747:	<4_30>+<1_18>+L1748
L1752:	9
	byte(7)97,110,32,105,110,116,101,103,101,114,0
L1753:	7
	byte(7)97,110,32,105,110,100,101,120,0
	2
; (!*ENTRY INDEXERROR EXPR 2)
L1754:	intern L1754
 MOVE 4,L1750
 MOVE 3,L1751
 JRST SYMFNC+489
L1751:	<4_30>+<1_18>+L1752
L1750:	<4_30>+<1_18>+L1753
L1756:	5
	byte(7)97,32,112,97,105,114,0
	2
; (!*ENTRY NONPAIRERROR EXPR 2)
L1757:	intern L1757
 MOVE 3,L1755
 JRST SYMFNC+132
L1755:	<4_30>+<1_18>+L1756
L1759:	12
	byte(7)97,110,32,105,100,101,110,116,105,102,105,101,114,0
	2
; (!*ENTRY NONIDERROR EXPR 2)
L1760:	intern L1760
 MOVE 3,L1758
 JRST SYMFNC+132
L1758:	<4_30>+<1_18>+L1759
L1762:	7
	byte(7)97,32,110,117,109,98,101,114,0
	2
; (!*ENTRY NONNUMBERERROR EXPR 2)
L1763:	intern L1763
 MOVE 3,L1761
 JRST SYMFNC+132
L1761:	<4_30>+<1_18>+L1762
L1765:	9
	byte(7)97,110,32,105,110,116,101,103,101,114,0
	2
; (!*ENTRY NONINTEGERERROR EXPR 2)
L1766:	intern L1766
 MOVE 3,L1764
 JRST SYMFNC+132
L1764:	<4_30>+<1_18>+L1765
L1768:	21
	byte(7)97,32,110,111,110,45,110,101,103,97,116,105,118,101,32,105,110,116,101,103,101,114,0
	2
; (!*ENTRY NONPOSITIVEINTEGERERROR EXPR 2)
L1769:	intern L1769
 MOVE 3,L1767
 JRST SYMFNC+132
L1767:	<4_30>+<1_18>+L1768
L1771:	10
	byte(7)97,32,99,104,97,114,97,99,116,101,114,0
	2
; (!*ENTRY NONCHARACTERERROR EXPR 2)
L1772:	intern L1772
 MOVE 3,L1770
 JRST SYMFNC+132
L1770:	<4_30>+<1_18>+L1771
L1774:	7
	byte(7)97,32,115,116,114,105,110,103,0
	2
; (!*ENTRY NONSTRINGERROR EXPR 2)
L1775:	intern L1775
 MOVE 3,L1773
 JRST SYMFNC+132
L1773:	<4_30>+<1_18>+L1774
L1777:	7
	byte(7)97,32,118,101,99,116,111,114,0
	2
; (!*ENTRY NONVECTORERROR EXPR 2)
L1778:	intern L1778
 MOVE 3,L1776
 JRST SYMFNC+132
L1776:	<4_30>+<1_18>+L1777
L1780:	13
	byte(7)97,32,119,111,114,100,115,32,118,101,99,116,111,114,0
	2
; (!*ENTRY NONWORDS EXPR 2)
L1781:	intern L1781
 MOVE 3,L1779
 JRST SYMFNC+132
L1779:	<4_30>+<1_18>+L1780
L1783:	9
	byte(7)97,32,115,101,113,117,101,110,99,101,0
	2
; (!*ENTRY NONSEQUENCEERROR EXPR 2)
L1784:	intern L1784
 MOVE 3,L1782
 JRST SYMFNC+132
L1782:	<4_30>+<1_18>+L1783
L1786:	18
	byte(7)97,32,108,101,103,97,108,32,73,47,79,32,99,104,97,110,110,101,108,0
	2
; (!*ENTRY NONIOCHANNELERROR EXPR 2)
L1787:	intern L1787
 MOVE 3,L1785
 JRST SYMFNC+132
L1785:	<4_30>+<1_18>+L1786
L1790:	7
	byte(7)42,42,42,42,42,32,37,108,0
	2
; (!*ENTRY ERROR EXPR 2)
ERROR:	intern ERROR
 PUSH 15,2
 PUSH 15,1
 JSP 10,SYMFNC+443
	byte(18)0,482
 MOVEM 2,SYMVAL+483
 CAMN 0,SYMVAL+485
 JRST L1791
 MOVE 1,L1788
 PUSHJ 15,SYMFNC+418
 CAMN 0,SYMVAL+484
 JRST L1791
 MOVE 2,SYMVAL+486
 MOVE 1,SYMVAL+487
 PUSHJ 15,SYMFNC+282
 CAMN 1,0
 JRST L1791
 PUSHJ 15,SYMFNC+451
 JRST L1792
L1791: CAMN 0,SYMVAL+494
 JRST L1793
 PUSHJ 15,SYMFNC+462
L1793: MOVE 2,0(15)
 MOVE 1,L1789
 PUSHJ 15,SYMFNC+495
L1792: JSP 10,SYMFNC+447
	1
 ADJSP 15,-2
 POPJ 15,0
L1789:	<30_30>+496
L1788:	<4_30>+<1_18>+L1790
L1799:	<30_30>+485
	<30_30>+128
L1800:	<30_30>+246
	<9_30>+<1_18>+L1801
L1801:	<30_30>+496
	<30_30>+128
	1
; (!*ENTRY ERRSET MACRO 1)
ERRSET:	intern ERRSET
 ADJSP 15,2
 MOVEM 1,0(15)
 MOVE 7,1(1)
 CAME 0,1(7)
 JRST L1802
 MOVE 1,SYMVAL+84
 JRST L1803
L1802: MOVE 1,1(1)
 MOVE 1,1(1)
 MOVE 1,0(1)
L1803: MOVE 2,1
 MOVE 1,0(15)
 MOVE 1,1(1)
 MOVE 1,0(1)
 MOVEM 2,-1(15)
 MOVE 2,1
 MOVE 1,L1794
 PUSHJ 15,SYMFNC+249
 MOVE 3,1
 MOVE 2,L1795
 MOVE 1,L1796
 PUSHJ 15,SYMFNC+235
 MOVE 3,1
 MOVE 2,L1797
 MOVE 1,L1798
 PUSHJ 15,SYMFNC+235
 MOVE 2,-1(15)
 ADJSP 15,-2
 JRST SYMFNC+249
L1798:	<30_30>+253
L1797:	<9_30>+<1_18>+L1799
L1796:	<30_30>+498
L1795:	<9_30>+<1_18>+L1800
L1794:	<30_30>+172
	3
; (!*ENTRY ERRORSET EXPR 3)
L1805:	intern L1805
 ADJSP 15,3
 MOVEM 1,0(15)
 JSP 10,SYMFNC+443
	byte(18)3,494
	byte(18)2,485
 MOVE 1,L1804
 PUSHJ 15,SYMFNC+499
 MOVEM 1,-1(15)
 CAME 0,SYMVAL+500
 JRST L1806
 MOVE 1,0(15)
 PUSHJ 15,SYMFNC+261
 PUSHJ 15,SYMFNC+172
 MOVEM 1,-2(15)
 MOVE 1,-1(15)
 PUSHJ 15,SYMFNC+501
 MOVE 1,-2(15)
L1806: JSP 10,SYMFNC+447
	2
 ADJSP 15,-3
 POPJ 15,0
L1804:	<30_30>+496
L1808:	15
	byte(7)67,104,97,110,110,101,108,32,110,111,116,32,111,112,101,110,0
	2
; (!*ENTRY CHANNELNOTOPEN EXPR 2)
L1809:	intern L1809
 MOVE 2,L1807
 JRST SYMFNC+503
L1807:	<4_30>+<1_18>+L1808
L1811:	26
	byte(7)67,104,97,110,110,101,108,32,111,112,101,110,32,102,111,114,32,119,114,105,116,101,32,111,110,108,121,0
	1
; (!*ENTRY WRITEONLYCHANNEL EXPR 1)
L1812:	intern L1812
 MOVE 2,L1810
 JRST SYMFNC+503
L1810:	<4_30>+<1_18>+L1811
L1814:	25
	byte(7)67,104,97,110,110,101,108,32,111,112,101,110,32,102,111,114,32,114,101,97,100,32,111,110,108,121,0
	2
; (!*ENTRY READONLYCHANNEL EXPR 2)
L1815:	intern L1815
 MOVE 2,L1813
 JRST SYMFNC+503
L1813:	<4_30>+<1_18>+L1814
L1817:	32
	byte(7)73,108,108,101,103,97,108,32,116,111,32,99,108,111,115,101,32,115,116,97,110,100,97,114,100,32,99,104,97,110,110,101,108,0
	1
; (!*ENTRY ILLEGALSTANDARDCHANNELCLOSE EXPR 1)
L1818:	intern L1818
 MOVE 2,L1816
 JRST SYMFNC+503
L1816:	<4_30>+<1_18>+L1817
L1820:	12
	byte(7)73,47,79,32,69,114,114,111,114,58,32,37,115,0
	1
; (!*ENTRY IOERROR EXPR 1)
L1821:	intern L1821
 MOVE 2,1
 MOVE 1,L1819
 PUSHJ 15,SYMFNC+155
 JRST SYMFNC+156
L1819:	<4_30>+<1_18>+L1820
L1823:	26
	byte(7)73,47,79,32,69,114,114,111,114,32,111,110,32,99,104,97,110,110,101,108,32,37,100,58,32,37,115,0
	2
; (!*ENTRY CHANNELERROR EXPR 2)
L1824:	intern L1824
 MOVE 3,2
 MOVE 2,1
 MOVE 1,L1822
 PUSHJ 15,SYMFNC+155
 JRST SYMFNC+156
L1822:	<4_30>+<1_18>+L1823
	end


REDUCE Historical
REDUCE Sourceforge Project | Historical SVN Repository | GitHub Mirror | SourceHut Mirror | NotABug Mirror | Chisel Mirror | Chisel RSS ]