/EDUC-8 Octal Display Program by Steven S. Pietrobon 2 Dec 2007 / /This program allows you to enter and examine programs using the EDUC-8 Keypad /and Octal Display. Set the Octal Display to 737. All program data is entered /in 737 format, from left to right. The Keypad is connected to ID0 and the /Octal Display to OD0. /Data Inputs: 0 to 7 for left and right digits. 0 to 3 for middile digit. /Commands: / Enter Deposit / + Load Address / - Clear display / x Examine / /The program uses 7 pages (110 words) and is programmed from address 420. /Execution is from address 425. The Octal Display shows the data. The /accumulator (AC) shows the address the data will be entered into. The address /automatically increments when data is deposited or examined. After a program /has been entered, halt the current program, load the address for the new /program, and then run the new program. 420 ADDRESS0, ADDRESS 704 421 TEMP, VAR 0 422 DISPLAY, VAR 0 423 CHARNUM, "-3" 735 424 CHAR, VAR 0 425 START, CLA 710 426 ADDRESSI, DCA I ADDRESS0 320 427 TEMPI, DCA TEMP 301 430 DISPLAYI, DCA DISPLAY 302 431 CHARI, TAD CHARNUM 103 432 DCA CHAR 304 433 TAD TEMP 101 434 OUTPUT, TAD DISPLAY 102 434 OUTPUTI, DCA DISPLAY 302 436 TAD DISPLAY 102 437 LDS 0 622 500 DISPLAYAD, TAD I ADDRESS1 136 501 READ, SKF 0 601 502 JMP READ 501 503 KRB 0 606 504 DCA I TEMP1 335 505 TAD I TEMP1 135 506 AND CLEAR0A1 014 507 SZA 730 510 JMP I NOTNUM1 533 511 JMP END1 517 512 CHAR1, CHAR 424 513 NOTNUM1, NOTNUM 632 514 CLEAR0A1, #730 730 515 TEMP1, TEMP 421 516 ADDRESS1, ADDRESS 704 517 END1, ISZ I CHAR1 232 520 JMP FIRSTORSCD 512 521 THIRD, TAD I DISPLAY2 124 522 AND CLEAR0A2 005 523 JMP I DISPLAYI2 526 524 DISPLAY2, DISPLAY 422 525 CLEAR0A2 #730 730 526 DISPLAYI2, DISPLAYI 430 527 CHAR2, CHAR 424 530 SECOND2, SECOND 613 531 CLEAR2A2, #037 037 532 FIRSTORSCD, CLA.IAC 711 533 AND I CHAR2 027 534 SZA 730 535 JMP I SECOND2 530 536 FIRST, TAD I DISPLAY2 124 537 AND CLEAR2A2 011 600 DCA I DISPLAY3 326 601 TAD I TEMP3 127 602 RAR 722 603 RAR 722 604 RAR 722 605 JMP I OUTPUT3 530 606 DISPLAY3, DISPLAY 422 607 TEMP3, TEMP 421 610 OUTPUT3, OUTPUT 434 611 CLEAR1A3, #707 707 612 SELECT3A3, #003 003 613 SECOND, CLA 710 614 TAD I DISPLAY3 126 615 AND CLEAR1A3 011 616 DCA I DISPLAY3 326 617 TAD SELECT3A3 112 620 AND I TEMP4 025 621 RAL 702 622 RAL 702 623 RAL 702 624 JMP I OUTPUT4 526 625 TEMP4, TEMP 421 626 OUTPUT4, OUTPUT 434 627 DEPOSITN, NEG(#712) 026 630 EXAMTEST4, EXAMTEST 711 631 DISPLAY4, DISPLAY 422 632 NOTNUM, CLA 710 633 TAD I TEMP4 125 634 TAD DEPOSITN 107 635 SZA 730 636 JMP I EXAMTEST4 530 637 DEPOSIT, TAD I DISPLAY4 131 700 DCA I ADDRESS 324 701 ISZ ADDRESS 204 702 DCA I TEMP5 325 703 JMP I CHARI5 526 704 ADDRESS, VAR 0 705 TEMP5, TEMP 421 706 CHARI5, CHARI 431 707 MINUS2A5, "-2" 736 710 OUTPUTI5, OUTPUTI 435 711 EXAMTEST, TAD MINUS2A5 107 712 SZA 730 713 JMP LATEST 517 714 EXAM, TAD I ADDRESS 124 715 ISZ ADDRESS 204 716 JMP I OUTPUTI5 530 717 LATEST, IAC 701 720 SZA 730 721 JMP CLEARTEST 504 722 LA, TAD I DISPLAY6 132 723 JMP I ADDRESSI6 533 724 CLEARTEST, TAD MINUS2A6 114 725 SZA 730 726 JMP BADINPUT 510 727 CLEAR, JMP I TEMPI6 535 730 BADINPUT, CLA 710 731 JMP I DISPLAYAD6 536 732 DISPLAY6, DISPLAY 422 733 ADDRESSI6, ADDRESSI 426 734 MINUS2A6, "-2" 736 735 TEMPI6, TEMPI 427 736 DISPLAYAD6, DISPLAYAD 500 737