| ; These are the patches needed to make | |
| ; SOAP II to run with IT | |
| ; (patches on original listing are for SOAP I) | |
| ; free address 1993, using 1945 instead | |
| dep 0954 65 1986 1945 | |
| dep 1945 15 1596 1732 | |
| dep 0961 65 1986 1945 | |
| dep 0964 65 1986 1945 | |
| dep 0959 65 1986 1945 | |
| ; set jump address for new redefined card types 1,3,4 and 5 | |
| ; that IT needs | |
| ; card type 1 was comment now is blr (reserve block) | |
| ; card type 3 was undef now is reg (reserve regional block) | |
| ; card type 4 was undef now is syn (reserve symbol) | |
| ; card type 5 was undef now is comment | |
| dep 1991 00 0000 1002 | |
| dep 1993 00 0000 1004 | |
| dep 1994 00 0000 1006 | |
| dep 1995 60 1950 1405 | |
| ; make first card type 4 to define region u0001 9999 (but not reserved) | |
| ; use free addresses at 1738, 1744, 1746, 1748, 1790, 1794, 1795, 1796, 1798 | |
| ; set card type 4 to jump to 1738 to store 90 0000 0001 in 1044 and reset | |
| ; 1994 to value 00 0000 1006 | |
| dep 1994 00 0000 1746 | |
| ; consts: regu, card4 | |
| dep 1738 90 0000 0001 | |
| dep 1744 00 0000 1006 | |
| ; ldd regu | |
| ; std 1044 | |
| ; ldd card4 | |
| ; std 1994 1994 | |
| dep 1746 69 1738 1748 | |
| dep 1748 24 1044 1790 | |
| dep 1790 69 1744 1794 | |
| dep 1794 24 1994 1994 | |