00700 / low core 00701 00702 .data 00703 ZERO: 00704 00705 br4 = 200 00706 br5 = 240 00707 br6 = 300 00708 br7 = 340 00709 00710 . = ZERO+0 00711 br 1f 00712 4 00713 00714 / trap vectors 00715 trap; br7+0. / bus error 00716 trap; br7+1. / illegal instruction 00717 trap; br7+2. / bpt-trace trap 00718 trap; br7+3. / iot trap 00719 trap; br7+4. / power fail 00720 trap; br7+5. / emulator trap 00721 start;br7+6. / system (overlaid by 'trap') 00722 00723 . = ZERO+40 00724 .globl start, dump 00725 1: jmp start 00726 jmp dump 00727 00728 00729 . = ZERO+60 00730 klin; br4 00731 klou; br4 00732 00733 . = ZERO+100 00734 kwlp; br6 00735 kwlp; br6 00736 00737 . = ZERO+114 00738 trap; br7+7. / 11/70 parity 00739 00740 . = ZERO+220 00741 rkio; br5 00742 00743 . = ZERO+224 00744 htio; br5 00745 00746 . = ZERO+240 00747 trap; br7+7. / programmed interrupt 00748 trap; br7+8. / floating point 00749 trap; br7+9. / segmentation violation 00750 00751 ////////////////////////////////////////////////////// 00752 / interface code to C 00753 ////////////////////////////////////////////////////// 00754 00755 .text 00756 .globl call, trap 00757 00758 .globl _klrint 00759 klin: jsr r0,call; jmp _klrint 00760 .globl _klxint 00761 klou: jsr r0,call; jmp _klxint 00762 00763 .globl _clock 00764 kwlp: jsr r0,call; jmp _clock 00765 00766 00767 .globl _rkintr 00768 rkio: jsr r0,call; jmp _rkintr 00769 00770 .globl _htintr 00771 htio: jsr r0,call; jmp _htintr 00772 00773 00774 00775 00776 00777 00778 00779 00780 00781 00782 00783 00784 00785 00786 00787 00788 00789 00790 00791 00792 00793 00794 00795 00796 00797 00798 00799