BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 76

2883 03141 0 04 00076 STA TMP1 SAVE TARGET WORD POINTER 2884 03142 -0 02 00076 LDA* TMP1 GET CURRENT CONTENTS OF TARGET WORD 2885 03143 101001 SSC PUT TARGET BYTE IN A(9-16) 2886 03144 141340 ICA X 2887 03145 141044 CAR CLEAR POSITION FOR NEW BYTE 2888 03146 0 05 00075 ERA LCHR INSERT THE NEW CHARACETR 2889 03147 101001 SSC REPOSITIDN THE BYTES IF NECESSARY 2890 03150 141340 ICA X 2891 03151 -0 04 00076 STA* TMP1 RESTORE THE BYTE PAIR 2892 03152 0 12 00040 IRS DBP INCREMENT THE DESTINATION BYTE POINTER 2893 03153 0 02 00077 LDA TMP2 RESTORE A 2894 03154 -0 01 03133 JMP* SCHR AND EXIT 2895 * 2896 * 2897 EJCT