Previous File Previous Page Single Page Next Page Next File

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

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