C210-001-6601 (FRTN) 3C NO.180463000 REV. D

* C210-001-6601 (FRTN) 3C NO.180463000 REV. D PAGE 28

1306 02343 0 04 00607 STA TC SET .NOT. OPERATOR (TC=5) 1307 02344 140040 CRA 1308 02345 0 04 00653 STA IM IM=0 = UNDEFINED 1309 02346 0 01 01773 JMP DN68 1310 02347 DNX1 BSS 3 1311 02352 0 000000 DNX2 DAC ** OVERFLOW FLAG 1312 02353 -0 01 02352 JMP* *-1 1313 * 1314 * 1315 * ************ 1316 * *INPUT ITEM* 1317 * ************ 1318 * INPUTS AND ASSIGNS ITEM (IF ONE EXISTS) 1319 * 1320 02354 0 000000 II00 DAC ** 1321 02355 0 10 01521 JST DN00 INPUT DNA 1322 02356 101040 SNZ IF (A) = 0 1323 02357 -0 01 02354 JMP* II00 RETURN 1324 02360 0 10 03241 JST AS00 NO, ASSIGN ITEM 1325 02361 0 02 00653 LDA IM 1326 02362 -0 01 02354 JMP* II00 RETURN (A) = IM 1327 * 1328 * 1329 * *************** 1330 * *INPUT OPERAND* 1331 * *************** 1332 * EXIT WITH ITEM MODE IN A (TC SET TO . IF NO 1333 * OPERAND) 1334 * 1335 02363 0 000000 OP00 DAC ** INPUT OPERAND 1336 02364 0 10 02354 JST II00 INPUT ITEM 1337 02365 100040 SZE IF IM = 0, SKIP 1338 02366 -0 01 02363 JMP* OP00 ELSE (A) = IM, RETURN 1339 02367 0 02 00675 LDA K10 TC = . 1340 02370 0 04 00607 STA TC (A) = 0 1341 02371 140040 CRA 1342 02372 -0 01 02363 JMP* OP00 RETURN 1343 * 1344 * 1345 * ************ 1346 * *INPUT NAME* 1347 * ************ 1348 * INPUT OPERAND AND ENSURE THAT IT IS A NAME 1349 * 1350 02373 0 000000 NA00 DAC ** INPUT NAME 1351 02374 0 10 02363 JST OP00 INPUT OPERAND 1352 02375 0 02 00573 LDA NT IF NT = 1, 1353 02376 101040 SNZ 1354 02377 0 01 02402 JMP NA10 1355 02400 0 10 03116 JST ER00