Artifact 6b44fe4a126fc92593ea405b07278e8893a1765342504fa0c71cab5af2292671:
- File
psl-1983/3-1/kernel/20/error.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: 9618) [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 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