BASIC-PTLB

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

0063 * 0064 * 0065 * INPUT ROUTINE 0066 * 0067 * CALLING SEQUENCE: 0068 * 0069 * JST IPUT PREFIX CHARACTER IN A REGISTER 0070 * DAC BUF ADDRESS OF THE INPUT BUFFER 0071 * ......RETURN INPUT LINE PLACED IN BUFFER WITH SBP 0072 * SET TO START OF BUFFER 0073 * 0074 * 0075 * THE PREFIX CHARACTER IS SAVED, AND THE LOAD MODE FLAG IS 0076 * TESTED TO DETERMINE IF INPUT IS BEING TAKEN FROM THE ASR OR THE 0077 * HIGH SPEED PAPER TAPE READER. IF INPUT IS FROM THE ASR, THE PRE- 0078 * FIX CHARACTER IS RETRIEVED AND PRINTED, OTHERWISE (INPUT IS FROM 0079 * THE READER) THE PAPER TAPE READER IS STARTED. THE BUFFER ADDRESS 0080 * ARGUMENT IS LOADED AND THE BYTE POINTERS DBP, USED TO PLACE CHAR- 0081 * ACTERS INTO THE BUFFER (VIA 'SCHR'), AND SBP, USED TO READ CHAR- 0082 * ACTERS FROM THE BUFFER, ARE INITIALIZED. CHARACTERS ARE READ USING 0083 * THE 'INA1' ROUTINE AND ARE TESTED: IF THE CHARACTER IS AN 'AT' 0084 * SYMBOL, THEN THE WHOLE LINE READ SO FAR IS DISCARDED AND THE 0085 * ROUTINE CALLS 'LFCR' TO MOVE TO A NEW LINE, AND LOOPS TO READ A NEW 0086 * INPUT LINE. IF THE CHARACTER IS A 'LEFT-ARROW' CHARACTER, THEN THE 0087 * PREVIOUS CHARACTER IS DISCARDED. IF THE CHARACTER IS 'CARRIAGE- 0088 * RETURN' IT IS PLACED IN THE BUFFER, THE TAPE READER IS STOPPED, AND 0089 * 'LFCR' CALLED TO MOVE TO A NEW LINE BEFORE THE ROUTINE RETURNS. 0090 * OTHERWISE, THE CHARACTER IS PLACED IN THE BUFFER, AND THE ROUTINE 0091 * LOOPS FOR THE NEXT CHARACTER. 0092 * 0093 * 0094 00000 0 000000 IPUT DAC ** 0095 00001 000201 IAB SAVE PREFIX CHARACTER 0096 00002 0 02 00000 IP01 LDA LODF TEST LOAD MODE FLAG - PAPERTAPE? 0097 00003 101040 SNZ NO - SKIP TO INPUT FROM ASR 0098 00004 0 01 00047 JMP IP09 JUMP TO START TAPE READER 0099 00005 000201 IAB RECOVER PREFIX CHARACTER 0100 00006 0 10 00051 JST OTA1 PRINT IT 0101 00007 100000 SKP AVOID NEWLINE ON FIRST ATTEMPT 0102 00010 0 10 00124 IP02 JST LFCR 0103 00011 -0 02 00000 IP03 LDA* IPUT GET BUFFER ADDRESS 0104 00012 0414 77 LGL 1 CONVERT TO BYTE ADDRESS 0105 00013 0 04 00000 STA SBP INITIALIZE FETCH POINTER 0106 00014 0 04 00000 IP04 STA DBP SAVE STORE POINTER 0107 00015 0 10 00074 IP05 JST INA1 0108 00016 0 03 00167 ANA C177 IGNORE PARITY BIT 0109 00017 0 05 00166 ERA C200 FORCE PARITY TO ONE 0110 00020 0 11 00000 CAS C215 CARRIAGE-RETURN? 0111 00021 0 01 00024 JMP IP06 NO - GO TO NEXT TEST 0112 00022 0 01 00042 JMP IP08 YES - FINISH UP AND RETURN