BASIC-PTLB

* NAME BASIC-PTLB DOC. ??????????? REV. ? PAGE 5

0138 * 0139 * 0140 * OUTPUT ONE CHARACTER ROUTINE 0141 * 0142 * CALLING SEQUENCE: 0143 * 0144 * JST OTA1 CHARACTER IN A REGISTER 0145 * ......RETURN 0146 * 0147 * 0148 * THE CHARACTER IS SAVED, AND THE LIST MODE FLAG IS TESTED TO 0149 * DETERMINE IF OUTPUT IS BEING SENT TO THE ASR OR THE HIGH SPEED 0150 * PAPER TAPE PUNCH. THE CHARACTER IS RETRIEVED AND SENT TO THE 0151 * SELECTED OUTPUT DEVICE. 'CPOS', WHICH RECORDS THE CURRENT 0152 * CARRIAGE POSITION, IS INCREMENTED AND 'BRKC' CALLED TO CHECK 0153 * WHETHER THE BREAK FLAG HAS BEEN SET, BEFORe THE ROUTINE 0154 * RETURNS. 0155 * 0156 * 0157 00051 0 000000 OTA1 DAC ** 0158 00052 0 04 00073 STA OT03 SAVE CHARACTER 0159 00053 0 02 00000 LDA LSTF LIST MODE FLAG. ASR? 0160 00054 100040 SZE YES - SKIP TO OUTPUT ON ASR 0161 00055 0 01 00067 JMP OT02 JUMP TO PUNCH OUTPUT 0162 00056 0 02 00073 LDA OT03 RECOVER CHARACTER 0163 00057 34 0104 SKS '0104 WAIT UNTIL ASR NOT BUSY 0164 00060 0 01 00057 JMP *-1 0165 00061 14 0104 OCP '0104 ENABLE ASR IN OUTPUT MODE 0166 00062 74 0004 OTA '0004 OUTPUT CHARACTER 0167 00063 0 01 00062 JMP *-1 0168 00064 0 12 00000 OT01 IRS CPOS INCREMENT CARRIAGE POSITION COUNTER 0169 00065 0 10 00117 JST BRKC CHECK BREAK FLAG 0170 00066 -0 01 00051 JMP* OTA1 0171 * 0172 00067 0 02 00073 OT02 LDA OT03 RECOVER CHARACTER 0173 00070 74 0002 OTA '0002 OUTPUT TO PUNCH 0174 00071 0 01 00070 JMP *-1 0175 00072 0 01 00064 JMP OT01 0176 * 0177 00073 000000 OT03 BSZ 1 0178 EJCT