BASIC-PTLB

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

0245 * 0246 * 0247 * ASR LINE ADVANCE ROUTINE 0248 * 0249 * CALLING SEQUENCE: 0250 * 0251 * JST LFCR 0252 * ......RETURN 0253 * 0254 * 0255 * THE LOAD MODE FLAG IS TESTED TO DETERMINE IF INPUT IS BEING 0256 * TAKEN FROM THE ASR OR THE HIGH SPEED PAPER TAPE READER. IF INPUT 0257 * IS FROM THE PAPER TAPE READER, THE ROUTINE'S ONLY ACTION IS TO 0258 * RESET THE CARRIAGE POSITION COUNTER, CPOS. OF INPUT IS FROM THE 0259 * ASR, THE ROUTINE TESTS THE LIST MODE FLAG TO DETERMINE IF OUTPUT IS 0260 * BEING SENT TO THE ASR OR THE HIGH SPEED PAPER TAPE PUNCH, SELECTING 0261 * THE APPROPRIATE END-OF-LINE SEQUENCE. FOR ASR: SIMPLY CR-LF, FOR 0262 * PAPER TAPE PUNCH: CR-STOP-DEL-LF. THE SELECTED SEQUENCE IS TYPED, 0263 * THE CARRIAGE POSITION COUNTER, CPOS, IS RESET AND THE ROUTINE 0264 * RETURNS. 0265 * 0266 * 0267 00124 0 000000 LFCR DAC ** 0268 00125 0 02 00000 LDA LODF TEST LOAD MODE FLAG - PAPERTAPE? 0269 00126 101040 SNZ NO - SKIP (INPUT FROM ASR) 0270 00127 0 01 00135 JMP LF01 IF INPUT FROM READER, DO NOTHING 0271 00130 0 35 00000 LDX LSTF LIST MODE FLAG 0272 00131 1 02 00137 LDA LF02,1 0273 00132 0 04 00134 STA *+2 0274 00133 0 10 00000 JST TYPE 0275 00134 0 00 00000 *** ** 0276 00135 0 04 00000 LF01 STA CPOS CURRENT CARRIAGE POSITION COUNTER 0277 00136 -0 01 00124 JMP* LFCR 0278 * 0279 00137 0 000144 LF02 DAC EOLA 0280 00140 0 000141 DAC EOLP 0281 * 0282 00141 106623 EOLP OCT 106623 CR-STOP 0283 00142 177612 OCT 177612 DEL-LF 0284 00143 000000 OCT 0 0285 * 0286 00144 106612 EOLA OCT 106612 CR-LF 0287 00145 000000 OCT 0 0288 EJCT