F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 30

1213 * LOOK AT THE CHARACTER AT [CADDR+T1] 1214 * RETURN TO ONE OF THE FOLLOWING THREE LOCATIONS 1215 * IN PRIORITY ORDER: 1216 * +1 - CHARACTER IS NULL (T1 NOT INCREMENTED) 1217 * +2 - CHARACTER IS DELIMITER (T2) 1218 * +3 - OTHER CHARACTER 1219 * 1220 * T1 IS RETURNED IN THE A REGISTER 1221 00566 0 000000 ENCC DAC ** 1222 00567 0 02 00104 LDA T1 GET CHARACTER POINTER 1223 00570 1 06 00004 ADD 4,1 ADD BASE ADDRESS 1224 00571 0 10 00166 JST CHGT GET THE CHARACTER 1225 00572 101040 SNZ 1226 00573 0 01 00602 JMP ENCX NULL EXIT 1227 00574 0 12 00104 IRS T1 NON-NULL EXITS STEP T1 1228 00575 0 12 00566 IRS ENCC 1229 00576 0 11 00105 CAS T2 1230 00577 100000 SKP 1231 00600 0 01 00602 JMP ENCX DELIMITER EXIT 1232 00601 0 12 00566 IRS ENCC FALL THROUGH FOR NORMAL EXIT 1233 00602 0 02 00104 ENCX LDA T1 1234 00603 -0 01 00566 JMP* ENCC 1235 EJCT