BASIC-PTLB

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

0113 00023 0 01 00015 JMP IP05 0114 00024 0 11 00000 IP06 CAS C300 IS IT THE 'AT' SYMBOL? 0115 00025 100000 SKP NO 0116 00026 0 01 00010 JMP IP02 YES - DISCARD INPUT SO FAR AND START AGAIN 0117 00027 0 11 00000 CAS C337 IS IT LEFT-ARROW? 0118 00030 0 01 00015 JMP IP05 NO, IT'S GREATER - IGNORE CHARACTER 0119 00031 0 01 00036 JMP IP07 YES - DELETE LAST CHARACTER 0120 00032 0 11 00000 CAS C240 IS IT GREATER THAN OR EQUAL TO SPACE? 0121 00033 101000 NOP YES (GREATER) 0122 00034 0 10 00000 JST SCHR YES - STORE THE CHARACTER 0123 00035 0 01 00015 JMP IP05 LOOP FOR NEXT CHARACTER 0124 00036 0 02 00000 IP07 LDA DBP LOAD CURRENT POINTER 0125 00037 0 11 00000 CAS SBP IS BEYOND START OF BUFFER? 0126 00040 0 07 00000 SUB C1 YES - DECREMENT 0127 00041 0 01 00014 JMP IP04 LOOP FOR NEXT CHARACTER 0128 * 0129 00042 0 10 00000 IP08 JST SCHR SAVE FINAL CARRIAGE-RETURN 0130 00043 14 0101 OCP '0101 STOP TAPE READER 0131 00044 0 10 00124 JST LFCR PRINT NEWLINE 0132 00045 0 12 00000 IRS IPUT SET-UP RETURN ADDRESS 0133 00046 -0 01 00000 JMP* IPUT RETURN 0134 * 0135 00047 14 0001 IP09 OCP '0001 START TAPE READER 0136 00050 0 01 00011 JMP IP03 JUMP TO INITIALIZE BUFFER 0137 EJCT