1 2 / INTERRUPT ROUTINE CINET-BASIC 3 / PATCH BY KLEMENS KRAUSE 4 / REMOVE MEM-PARITY STOP 5 / MAKE ENTRY BIT-7 INDEPENDENT 6 7 CHAR=2723 8 9 *2605 10 02605 0000 AC, 0000 11 02606 0000 LINK, 0000 12 02607 7775 M0003, 7775 13 / 14 02610 3205 INTRPT, DCA AC / SAVE AC 15 02611 7010 RAR 16 02612 3206 DCA LINK / SAVE LINK 17 02613 6031 KSF 18 02614 5234 JMP NOTKBD 19 02615 6036 KRB 20 02616 0026 AND 0026 / 0177 21 02617 3323 DCA CHAR 22 02620 1323 TAD CHAR 23 02621 7450 SNA 24 02622 5234 JMP NOTKBD 25 02623 1207 TAD 2607 / 7775 26 02624 7650 SNA CLA 27 02625 5357 JMP 2757 / CTL-C ? 28 02626 1266 TAD 2666 29 02627 7640 SZA CLA 30 02630 4534 JMS I 0134 31 02631 1323 TAD CHAR 32 02632 1261 TAD P0200 33 02633 3266 DCA 2666 34 02634 6041 NOTKBD, TSF 35 02635 5253 JMP NOTPRT 36 02636 6042 TCF / CLEAR TELEPRINTER FLAG 37 02637 3262 DCA 2662 38 02640 1665 TAD I 2665 39 02641 7450 SNA 40 02642 5253 JMP NOTPRT 41 02643 6044 TPC / LOAD TELEPRINTER PRINT 42 02644 3262 DCA 2662 43 02645 3665 DCA I 2665 44 02646 1265 TAD 2665 45 02647 7001 IAC / INC OUT_POINTER 46 02650 0031 AND 0031 / 0017 47 02651 1263 TAD 2663 48 02652 3265 DCA 2665 49 02653 6244 NOTPRT, RMF / RESTORE MEM-FIELD 50 02654 1206 TAD LINK 51 02655 7104 CLL RAL 52 02656 1205 TAD AC 53 02657 6001 ION 54 02660 5400 JMP I 0000 / RET FROM INTERRUPT 55 02661 0200 P0200, 0200 56 / 57 02662 0000 0000 58 02663 3220 3220 / OBFR 59 02664 3237 3237 60 02665 3237 3237 61 02666 0000 0000 62 02667 2471 2471 63 $ AC 2605 CHAR 2723 INTRPT 2610 unreferenced LINK 2606 M0003 2607 unreferenced NOTKBD 2634 NOTPRT 2653 P0200 2661