O16-DPT9 rev A

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

0695 01507 101400 SMI TEST FOR NUMBER MORE THAN FORTY EIGHT 0696 01510 0 01 01460 JMP QST5 INPUT NUMBER > 48, REPEAT THE QUESTION 0697 01511 0 06 04413 ADD =49 RESTORE INPUT NUMBER 0698 01512 0 06 04415 ADD ='63 '63 = STANDARD INTERRUPT LOCATION 0699 01513 0 04 04331 STA INTL INTERRUPT LOCATION 0700 01514 0 07 04415 SUB ='63 REGA = PRIORITY INTERRUPT LINE 0701 01515 0 07 04417 SUB =17 0702 01516 100400 SPL DETERMINE PRIORITY INT MASK ASSIGNMENTS 0703 01517 0 01 01524 JMP Q501 PI LINE 01-16 0704 01520 0 07 04412 SUB =16 0705 01521 100400 SPL 0706 01522 100000 SKP PI LINE 17-32 0707 01523 0 07 04412 SUB =16 PI LINE 33-48 0708 01524 0 04 04324 Q501 STA CNTR BIT COUNTER 0709 01525 0 02 04416 LDA =1 SET BIT 16 0710 01526 100000 SKP 0711 01527 0414 77 LGL 1 0712 01530 0 12 04324 IRS CNTR INCREMENT BIT COUNTER 0713 01531 0 01 01527 JMP *-2 PROPER BIT YET TO BE SET 0714 01532 0 04 04337 STA MSKB MASK BIT FOR INTERRUPT 0715 01533 0 02 04315 LDA CHR1 FIRST INPUT CHARACTER 0716 01534 0414 70 LGL 8 0717 01535 0 05 04316 ERA CHR2 REGA = INPUT NUMBER (PRTY INTRPT LINE) 0718 01536 0 04 01474 STA PINT REPLACE LAST ANSWER BY THE PRESENT ONE 0719 * 0720 * 0721 * INITIALISATION 0722 * 0723 01537 140040 DPT0 CRA 0724 01540 0 04 04345 STA TMPB 0725 01541 0 02 04331 LDA INTL 0726 01542 0 07 04415 SUB ='63 REGA = INTERRUPT LINE 0727 01543 100040 SZE 0728 01544 0 12 04345 IRS TMPB PI LINE 01-16 0729 01545 0 07 04417 SUB =17 0730 01546 101400 SMI 0731 01547 0 12 04345 IRS TMPB PI LINE 17-32 0732 01550 0 07 04412 SUB =16 0733 01551 101400 SMI 0734 01552 0 12 04345 IRS TMPB PI LINE 33-48 0735 01553 0 02 04345 LDA TMPB 0736 01554 0414 72 LGL 6 0737 01555 0 05 04411 ERA ='170020 '170020 = SMK '0020 INSTRUCTION 0738 01556 0 04 01560 STA SMKI SMK '0X20 INSTRUCTION 0739 01557 140040 CRA 0740 01560 0 00 00000 SMKI *** ** PERFORM SMK '0X20 0741 * 0742 * TEST PLOTTER BUSY AND INTERRUPT FLIP-FLOPS 0743 01561 34 0127 DP01 SKS PLNB SKIP IF PLOTTER NOT BUSY 0744 01562 0 10 04150 JST ERRR