1 /********************************************************************
2 /********************************************************************
7 IHAND, DCA INTAC / SAVE AC
11 KSF / SKIP IF KEYBOARD FLAG SET
13 JMP TTIHAN / HANDLE TELETYPE INPUT
15 TSF / SKIP IF PRINTER FLAG SET
17 JMP TTOHAN / HANDLE TELETYPE OUTPUT
19 HLT / OH, AN UNKNOWN INTERRUPT!
21 IEND, CLA CLL / RESTORE LINK
24 TAD INTAC / RESTORE AC
25 ION / SWITCH ON INTERRUPT AGAIN
26 JMP I INTR / RETURN FROM INTERRUPT
28 / INTERRUPT TIME BACKUPS OF AC AND LINK
29 INTAC, 0 / INTERRUPT BACKUP AC
30 INTLNK, 0 / INTERRUPT BACKUP OF LINK
32 /********************************************************************
33 / TELETYPE INPUT HANDLER
36 KRB / READ AND CLEAR FLAG
37 AND K177 / MASK TO 7 BITS - I HATE PARITY!
38 DCA KBCHAR / SAVE FOR USE
43 JMS I XDUMPS / SOURCE DUMP (DEBUG)
49 JMS I XDUMPT / TARGET DUMP (DEBUG)
55 JMS I XDUMP / NORMAL DUMP