O16-DPT9 rev A

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

0563 01305 0 02 04460 LDA =-3 NUMBER OF CHARACTERS TO BE INPUT 0564 01306 0 10 04050 JST IASR INPUT FROM ASR 0565 01307 0 001303 DAC DADD ADDRESS OF LAST ANSWER 0566 01310 0 01 01273 JMP QST2 CR NOT TYPED, REPEAT THE QUESTION 0567 * * NORMAL RETURN 0568 01311 0 02 04430 LDA =-2 NUMBER OF CHARACTERS TO BE TESTED 0569 01312 0 04 04324 STA CNTR CHARACTER COUNTER 0570 01313 0 02 04313 LDA CHRL CHARACTER LOCATION 0571 01314 0 04 04345 STA TMPB 0572 01315 -0 02 04345 TNC1 LDA* TMPB CHARACTER 0573 01316 0 12 04345 IRS TMPB NEXT CHARACTER 0574 01317 0 05 04427 ERA ='260 '260 = CHARACTER ZERO 0575 01320 100400 SPL TEST FOR VALIDITY OF CHARACTER 0576 01321 0 01 01273 JMP QST2 INVALID CHARACTER, REPEAT THE DDESTIDN 0577 01322 0 07 04426 SUB ='10 0578 01323 101400 SMI TEST FOR VALIDITY OF CHARACTER 0579 01324 0 01 01273 JMP QST2 INVALID CHARACTER, REPEAT THE OUESTIDN 0580 01325 0 12 04324 IRS CNTR INCREMENT CHARACTER COUNTER 0581 01326 0 01 01315 JMP TNC1 TEST NEXT CHARACTER 0582 01327 0 02 04315 LDA CHR1 MS DIGIT OF PLOTTER DEVICE ADDRESS 0583 01330 0 03 04425 ANA ='007 REMOVE '260 0584 01331 0414 75 LGL 3 0585 01332 0 06 04316 ADD CHR2 LS DIGIT OF PLOTTER DEVICE ADDRESS 0586 01333 0 07 04427 SUB ='260 REMOVE '260 0587 01334 0 04 04326 STA DPDA 0588 * 0589 * INSERT DEVICE ADDRESS IN PLOTTER INSTRUCTIONS 0590 01335 0 02 04314 LDA IATB INDIRECT ADDRESS OF TABLE 0591 01336 0 04 04345 STA TMPB 0592 01337 -0 02 04345 IDAI LDA* TMPB PLOTTER INSTRUCTION 0593 01340 101040 SNZ TEST FOR COMPLETION OF DEV ADDR INSERTION 0594 01341 0 01 01347 JMP DAII DEV ADDR INSERTED IN ALL PLOTTER INSTRCTNS 0595 01342 0 03 04424 ANA ='177700 CLEAR LS 6 BITS 0596 01343 0 05 04326 ERA DPDA 0597 01344 -0 04 04345 STA* TMPB PLOTTER INSTRUCTION 0598 01345 0 12 04345 IRS TMPB ADDRESS OF NEXT INSTRUCTION 0599 01346 0 01 01337 JMP IDAI INSERT DEV ADDR IN NEXT PLOTTER INSTRUCTION 0600 * 0601 01347 0 02 04315 DAII LDA CHR1 FIRST INPUT CHARACTER 0602 01350 0414 70 LGL 8 0603 01351 0 05 04316 ERA CHR2 REGA = INPUT NUMBER (DEV ADDR) 0604 01352 0 04 01303 STA DADD REPLACE LAST ANSNER BY THE PRESENT ONE 0605 * 0606 * QUESTION 3 - STANDARD INTERRUPT (Y 0R N) 0607 01353 0 02 04423 QST3 LDA =-10 NUMBER OF WORDS TO BE OUTPUT 0608 01354 0 10 04030 JST OASR OUTPUT TO ASR 0609 01355 106612 OCT 106612 CR/LF 0610 01356 151724 BCI 7,STAND INTRPT 01357 140716 01360 142240