MESS

* SUBR MESS REVB 2/11/70 P PAGE 1

0001 * SUBR MESS REVB 2/11/70 P 0002 * PRINT A MESSAGE 0003 * ENTER THIS ROUTINE WITH 0004 * TWO ASCII CHARACTERS 0005 * THE ADDRESS OF THE BCI 0006 * INSTRUCTION IN -A- 0007 * NO ADDITIONAL LINE FEEDS 0008 * OR RETURNS ARE TYPED 0009 SUBR MESS 0010 REL 0011 00000 0 000000 MESS DAC ** 0012 00001 101400 SMI 0013 00002 0 01 00005 JMP *+3 CHECK FOR ASCII 0014 00003 0 04 00037 STA CHAR 0015 00004 0 02 00041 LDA CHA! 0016 00005 0 04 00036 STA MN STORE ADDRESS OF TABLE 0017 00006 140040 CRA 0018 00007 74 0020 SMK '20 INH. ASR INTERRUPTS 0019 00010 34 0104 SKS '104 SKIP IF ASR NOT BUSY 0020 00011 0 01 00010 JMP *-1 0021 00012 14 0104 OCP '104 ASR IN OUTPUT MODE 0022 00013 -0 02 00036 7MES LDA* MN GET ADDRESS 0023 00014 0 07 00040 SUB EOM END OF MESSAGE 0024 00015 101040 SNZ 0025 00016 0 01 00030 JMP EXIT READY 0026 00017 -0 02 00036 LDA* MN 0027 00020 0416 70 ALR 8 0028 00021 74 0004 OTA 4 0029 00022 0 01 00021 JMP *-1 0030 00023 0416 70 ALR 8 0031 00024 74 0004 OTA 4 0032 00025 0 01 00024 JMP *-1 0033 00026 0 12 00036 IRS MN 0034 00027 0 01 00013 JMP 7MES 0035 00030 34 0104 EXIT SKS '104 0036 00031 0 01 00030 JMP *-1 0037 00032 14 0004 OCP 4 ASR IN INPUT MODE 0038 00033 0 02 00042 LDA ='40 0039 00034 74 0020 SMK '20 ENABLE INTERRUPTS 0040 00035 -0 01 00000 JMP* MESS 0041 00036 000000 MN BSZ 1 0042 00037 000000 CHAR BSZ 1 ASCII CHARACHTERS 0043 00040 140300 EOM BCI 1,@@ 0044 00041 0 000037 CHA! DAC CHAR 0045 00042 000040 END 7MES 000013 CHA! 000041 CHAR 000037 EOM 000040 EXIT 000030 MESS 000000 MN 000036