O16-DPT9 rev B

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

01300 140704 01301 142322 01302 120240 0566 01303 131267 DADD BCI 1,27 LAST ANSWER (PROBABLE ANSHER IS 27) 0567 01304 127640 BCI 1,/ 0568 * 0569 01305 0 02 04510 LDA =-3 NUMBER OF CHARACTERS TO BE INPUT 0570 01306 0 10 04076 JST IASR INPUT FROM ASR 0571 01307 0 001303 DAC DADD ADDRESS OF LAST ANSWER 0572 01310 0 01 01273 JMP QST2 CR NOT TYPED, REPEAT THE QUESTION 0573 * * NORMAL RETURN 0574 01311 0 02 04460 LDA =-2 NUMBER OF CHARACTERS TO BE TESTED 0575 01312 0 04 04352 STA CNTR CHARACTER COUNTER 0576 01313 0 02 04341 LDA CHRL CHARACTER LOCATION 0577 01314 0 04 04373 STA TMPB 0578 01315 -0 02 04373 TNC1 LDA* TMPB CHARACTER 0579 01316 0 12 04373 IRS TMPB NEXT CHARACTER 0580 01317 0 05 04457 ERA ='260 '260 = CHARACTER ZERO 0581 01320 100400 SPL TEST FOR VALIDITY OF CHARACTER 0582 01321 0 01 01273 JMP QST2 INVALID CHARACTER, REPEAT THE DDESTIDN 0583 01322 0 07 04456 SUB ='10 0584 01323 101400 SMI TEST FOR VALIDITY OF CHARACTER 0585 01324 0 01 01273 JMP QST2 INVALID CHARACTER, REPEAT THE OUESTIDN 0586 01325 0 12 04352 IRS CNTR INCREMENT CHARACTER COUNTER 0587 01326 0 01 01315 JMP TNC1 TEST NEXT CHARACTER 0588 01327 0 02 04343 LDA CHR1 MS DIGIT OF PLOTTER DEVICE ADDRESS 0589 01330 0 03 04455 ANA ='007 REMOVE '260 0590 01331 0414 75 LGL 3 0591 01332 0 06 04344 ADD CHR2 LS DIGIT OF PLOTTER DEVICE ADDRESS 0592 01333 0 07 04457 SUB ='260 REMOVE '260 0593 01334 0 04 04354 STA DPDA 0594 * 0595 * INSERT DEVICE ADDRESS IN PLOTTER INSTRUCTIONS 0596 01335 0 02 04342 LDA IATB INDIRECT ADDRESS OF TABLE 0597 01336 0 04 04373 STA TMPB 0598 01337 -0 02 04373 IDAI LDA* TMPB PLOTTER INSTRUCTION 0599 01340 101040 SNZ TEST FOR COMPLETION OF DEV ADDR INSERTION 0600 01341 0 01 01347 JMP DAII DEV ADDR INSERTED IN ALL PLOTTER INSTRCTNS 0601 01342 0 03 04454 ANA ='177700 CLEAR LS 6 BITS 0602 01343 0 05 04354 ERA DPDA 0603 01344 -0 04 04373 STA* TMPB PLOTTER INSTRUCTION 0604 01345 0 12 04373 IRS TMPB ADDRESS OF NEXT INSTRUCTION 0605 01346 0 01 01337 JMP IDAI INSERT DEV ADDR IN NEXT PLOTTER INSTRUCTION 0606 * 0607 01347 0 02 04343 DAII LDA CHR1 FIRST INPUT CHARACTER 0608 01350 0414 70 LGL 8 0609 01351 0 05 04344 ERA CHR2 REGA = INPUT NUMBER (DEV ADDR) 0610 01352 0 04 01303 STA DADD REPLACE LAST ANSNER BY THE PRESENT ONE 0611 * 0612 * QUESTION 3 - STANDARD INTERRUPT (Y 0R N)