O16-DPT9 rev A

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

0653 01433 0 10 04117 JST DCML TEST INPUT DECIMAL 00-99 0654 01434 0 01 01415 JMP QST4 INVALID CHARACTER, REPEAT THE QUESTION 0655 * *NORMAL RETURN 0656 01435 101040 SNZ TEST FOR ZERO 0657 01436 0 01 01415 JMP QST4 INPUT NUMBER = 0, REPEAT THE OUESTION 0658 01437 0 07 04417 SUB =17 0659 01440 101400 SMI TEST FOR NUMBER MORE THAN SIXTEEN 0660 01441 0 01 01415 JMP QST4 INPUT NUMBER > 16, REPEAT THE OUESTION 0661 01442 0 04 04324 STA CNTR BIT COUNTER 0662 01443 0 02 04416 LDA =1 SET BIT 16 0663 01444 100000 SKP 0664 01445 0414 77 LGL 1 0665 01446 0 12 04324 IRS CNTR INCREMENT BIT COUNTER 0666 01447 0 01 01445 JMP *-2 PROPER BIT YET TO BE SET 0667 01450 0 04 04337 STA MSKB MASK BIT FOR INTERRUPT 0668 01451 0 02 04415 LDA ='63 '63 = STANDARD INTERRUPT LOCATION 0669 01452 0 04 04331 STA INTL INTERRUPT LOCATION 0670 01453 0 02 04315 LDA CHR1 FIRST INPUT CHARACTER 0671 01454 0414 70 LGL 8 0672 01455 0 05 04316 ERA CHR2 REGA = INPUT NUMBER (MASK BIT) 0673 01456 0 04 01425 STA MBIT REPLACE LAST ANSWER BY THE PRESENT ONE 0674 01457 0 01 01537 JMP DPT0 START INITIALISATION (05 NOT POSED) 0675 * 0676 * QUESTION 5 - PRIORITY INTERRUPT LINE (2 DIGIT DECIMAL NUMBER) 0677 01460 0 02 04414 QST5 LDA =-12 NUMBER OF WORDS TO BE OUTPUT 0678 01461 0 10 04030 JST OASR OUTPUT TO ASR 0679 01462 106612 OCT 106612 CR/LF 0680 01463 150322 BCI 9,PRTY INTRPT LINE 01464 152331 01465 120311 01466 147324 01467 151320 01470 152240 01471 146311 01472 147305 01473 120240 0681 01474 130261 PINT BCI 1,01 LAST ANSNER (PROBABLE ANSWER IS 01) 0682 01475 127640 BCI 1,/ 0683 * 0684 01476 0 02 04460 LDA =-3 NUMBER OF CHARACTERS TO BE INPUT 0685 01477 0 10 04050 JST IASR INPUT FROM ASR 0686 01500 0 001474 DAC PINT ADDRESS OF LAST ANSWER 0687 01501 0 01 01460 JMP QST5 CR NOT TYPED, REPEAT THE QUESTION 0688 * * NORMAL RETURN 0689 01502 0 10 04117 JST DCML TEST INPUT DECIMAL 00-99 0690 01503 0 01 01460 JMP QST5 INVALID CHARACTER, REPEAT THE QUESTION 0691 * * NORMAL RETURN 0692 01504 101040 SNZ TEST FOR ZERO 0693 01505 0 01 01460 JMP QST5 INPUT NUMBER = O, REPEAT THE QUESTION 0694 01506 0 07 04413 SUB =49