Previous File Previous Page Single Page Next Page Next File

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

0179 * 0180 * 0181 * INPUT ONE CHARACTER ROUTINE 0182 * 0183 * CALLING SEQUENCE: 0184 * 0185 * JST INA1 0186 * ......RETURN CHARACTER IN A REGISTER 0187 * 0188 * 0189 * THE LOAD MODE FLAG IS TESTED TO DETERMINE IF INPUT IS BEING 0190 * TAKEN FROM THE ASR OR THE HIGH SPEED PAPER TAPE READER. IF INPUT 0191 * IS FROM THE ASR, THE ASR IS ENABLED IN INPUT MODE AND THE CHARACTER 0192 * IS READ. EACH TIME THAT THE CHARACTER IS NOT AVAILABLE FROM THE 0193 * ASR, THE 'BRKC' ROUTINE IS CALLED TO CHECK THE BREAK FLAG. IF INPUT 0194 * IS FROM THE PAPER TAPE READER, SENSE SWITCH 2 IS TESTED, IF IT IS 0195 * SET THEN INPUT FROM THE TAPE READER IS ABANDONED, THE LOAD MODE 0196 * FLAG IS SET SO THAT SUBSEQUENT INPUT IS FROM THE ASR, AND THE 0197 * READER IS STOPPED, AND THE ROUTINE JUMPS BACK INTO THE 'IPUT' 0198 * ROUTINE. IN THE NORMAL CASE (WHEN NEITHER THE BREAK FLAG OR SS2 0199 * ARE SET) THE ROUTINE EXITS WITH THE CHARACTER THAT HAS BEEN READ IN 0200 * THE A REGISTER. 0201 * 0202 * 0203 00074 0 000000 INA1 DAC ** 0204 00075 0 02 00000 LDA LODF TEST LOAD MODE FLAG - PAPERTAPE? 0205 00076 101040 SNZ NO - SKIP TO INPUT FROM ASR 0206 00077 0 01 00107 JMP IN01 JUMP TO INPUT FROM READER 0207 00100 34 0104 SKS '0104 WAIT UNTIL ASR NOT BUSY 0208 00101 0 01 00100 JMP *-1 0209 00102 14 0004 OCP '0004 ENABLE ASR IN INPUT MODE 0210 00103 0 10 00117 JST BRKC 0211 00104 54 1004 INA '1004 CLEAR A AND INPUT FROM ASR 0212 00105 0 01 00103 JMP *-2 0213 00106 -0 01 00074 JMP* INA1 0214 00107 100010 IN01 SR2 SENSE SWITCH 2 SET? 0215 00110 0 01 00114 JMP IN02 YES - JUMP TO STOP READER 0216 00111 54 1001 INA '1001 CLEAR A AND INPUT FROM READER 0217 00112 0 01 00107 JMP *-3 0218 00113 -0 01 00074 JMP* INA1 0219 * 0220 00114 0 12 00000 IN02 IRS LODF 0221 00115 14 0101 OCP '0101 STOP READER 0222 00116 0 01 00002 JMP IP01 JUMP BACK INTO IPUT ROUTINE 0223 EJCT
Previous File Previous Page Single Page Next Page Next File