Previous File Previous Page Single Page Next Page Next File

* 0520-001-H002 (O16-DPT9) DRAWING NO. 41285751-001-02 PAGE 14

0613 01353 0 02 04453 QST3 LDA =-10 NUMBER OF WORDS TO BE OUTPUT 0614 01354 0 10 04056 JST OASR OUTPUT TO ASR 0615 01355 106612 OCT 106612 CR/LF 0616 01356 151724 BCI 7,STAND INTRPT 01357 140716 01360 142240 01361 144716 01362 152322 01363 150324 01364 120240 0617 01365 154640 SINT BCI 1,Y LAST ANSWER (PROBABLE ANSNER IS Y) 0618 01366 127640 BCI 1,/ 0619 * 0620 01367 0 02 04460 LDA =-2 NUMBER OF CHARACTERS TO BE INPUT 0621 01370 0 10 04076 JST IASR INPUT FROM ASR 0622 01371 0 001365 DAC SINT ADDRESS OF LAST ANSWER 0623 01372 0 01 01353 JMP QST3 CR NOT TYPED, REPEAT THE OUESTION 0624 * NORMAL RETURN 0625 01373 0 02 04343 LDA CHR1 FIRST INPUT CHARACTER 0626 01374 0 11 04452 CAS ='331 '331 = CHARACTER Y 0627 01375 0 01 01353 JMP QST3 INVALID CHARACTER. REPEAT THE QUESTION 0628 01376 0 01 01403 JMP YES3 FIRST INPUT CHARACTER IS Y 0629 01377 0 05 04451 ERA ='316 '316 = CHARACTER N 0630 01400 100040 SZE TEST FOR CHARACTER N 0631 01401 0 01 01353 JMP QST3 INVALID CHARACTER, REPEAT THE OUESTION 0632 01402 0 01 01410 JMP NO03 FIRST INPUT CHARACTER IS N 0633 * 0634 01403 0 02 04343 YES3 LDA CHR1 FIRST INPUT CHARACTER 0635 01404 0414 70 LGL 8 CHARACTER IN MS HALF OF REGA 0636 01405 0 05 04450 ERA ='240 INSERT SPACE IN LS HALF 0637 01406 0 04 01365 STA SINT REPLACE LAST ANSWER BY THE PRESENT ONE 0638 01407 0 01 01415 JMP QST4 ASK QUESTION 4 (Q5 IS NOT POSED) 0639 * 0640 01410 0 02 04343 NO03 LDA CHR1 FIRST INPUT CHARACTER 0641 01411 0414 70 LGL 8 CHARACTER IN MS HALF OF REGA 0642 01412 0 05 04450 ERA ='240 INSERT SPACE IN LS HALF 0643 01413 0 04 01365 STA SINT REPLACE LAST ANSNER BY THE PRESENT ONE 0644 01414 0 01 01460 JMP QST5 ASK QUESTION 5 (04 IS NOT POSED) 0645 * 0646 * QUESTION 4 - MASK BIT (2 DIGIT DECIMAL NUMBER) 0647 01415 0 02 04461 QST4 LDA =-8 NUMBER OF WORDS TO BE OUTPUT 0648 01416 0 10 04056 JST OASR OUTPUT TO ASR 0649 01417 106612 OCT 106612 CR/LF 0650 01420 146701 BCI 5,MASK BIT 01421 151713 01422 120302 01423 144724 01424 120240 0651 01425 130663 MBIT BCI 1,13 LAST ANSWER (PROBABLE ANSWER IS 13) 0652 01426 127640 BCI 1,/
Previous File Previous Page Single Page Next Page Next File