O16-DPT9 rev B

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

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