O16-DPT9 rev B

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

0695 01502 0 10 04145 JST DCML TEST INPUT DECIMAL 00-99 0696 01503 0 01 01460 JMP QST5 INVALID CHARACTER, REPEAT THE QUESTION 0697 * * NORMAL RETURN 0698 01504 101040 SNZ TEST FOR ZERO 0699 01505 0 01 01460 JMP QST5 INPUT NUMBER = O, REPEAT THE QUESTION 0700 01506 0 07 04443 SUB =49 0701 01507 101400 SMI TEST FOR NUMBER MORE THAN FORTY EIGHT 0702 01510 0 01 01460 JMP QST5 INPUT NUMBER > 48, REPEAT THE QUESTION 0703 01511 0 06 04443 ADD =49 RESTORE INPUT NUMBER 0704 01512 0 06 04445 ADD ='63 '63 = STANDARD INTERRUPT LOCATION 0705 01513 0 04 04357 STA INTL INTERRUPT LOCATION 0706 01514 0 07 04445 SUB ='63 REGA = PRIORITY INTERRUPT LINE 0707 01515 0 07 04447 SUB =17 0708 01516 100400 SPL DETERMINE PRIORITY INT MASK ASSIGNMENTS 0709 01517 0 01 01524 JMP Q501 PI LINE 01-16 0710 01520 0 07 04442 SUB =16 0711 01521 100400 SPL 0712 01522 100000 SKP PI LINE 17-32 0713 01523 0 07 04442 SUB =16 PI LINE 33-48 0714 01524 0 04 04352 Q501 STA CNTR BIT COUNTER 0715 01525 0 02 04446 LDA =1 SET BIT 16 0716 01526 100000 SKP 0717 01527 0414 77 LGL 1 0718 01530 0 12 04352 IRS CNTR INCREMENT BIT COUNTER 0719 01531 0 01 01527 JMP *-2 PROPER BIT YET TO BE SET 0720 01532 0 04 04365 STA MSKB MASK BIT FOR INTERRUPT 0721 01533 0 02 04343 LDA CHR1 FIRST INPUT CHARACTER 0722 01534 0414 70 LGL 8 0723 01535 0 05 04344 ERA CHR2 REGA = INPUT NUMBER (PRTY INTRPT LINE) 0724 01536 0 04 01474 STA PINT REPLACE LAST ANSWER BY THE PRESENT ONE 0725 * 0726 * 0727 * INITIALISATION 0728 * 0729 01537 140040 DPT0 CRA 0730 01540 0 04 04373 STA TMPB 0731 01541 0 02 04357 LDA INTL 0732 01542 0 07 04445 SUB ='63 REGA = INTERRUPT LINE 0733 01543 100040 SZE 0734 01544 0 12 04373 IRS TMPB PI LINE 01-16 0735 01545 0 07 04447 SUB =17 0736 01546 101400 SMI 0737 01547 0 12 04373 IRS TMPB PI LINE 17-32 0738 01550 0 07 04442 SUB =16 0739 01551 101400 SMI 0740 01552 0 12 04373 IRS TMPB PI LINE 33-48 0741 01553 0 02 04373 LDA TMPB 0742 01554 0414 72 LGL 6 0743 01555 0 05 04441 ERA ='170020 '170020 = SMK '0020 INSTRUCTION 0744 01556 0 04 01560 STA SMKI SMK '0X20 INSTRUCTION