| 704 | | ADD A, (IY+3) | ; ADD 4TH ENTRY |
| 705 | | LD L, A | ; PUT IN L REGISTER |
| 706 | | LD (STOR1), HL | ; SAVE THE ADDRESS |
| 707 | | RET | ; BACK TO ROUTINE |
| 708 | ; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * |
| 709 | ; MESSAGES USED BY THE ROUTINES |
| 710 | ; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * |
| 711 | TEXT1 | DEFM /EPROM PROGRAMMER/ |
| 712 | TEXT1A | DEFM /PRESS KEY 'A' FOR TYPE 2708 EPROM/ |
| 713 | TEXT1B | DEFM "KEY 'B' FOR TYPES 2516/2716" |
| 714 | TEXT2 | DEFM /PRESS P FOR ROUTINE TO PROGRAM EPROM/ |
| 715 | TEXT2A | DEFM /C TO COMPARE EPROM WITH MEMORY/ |
| 716 | TEXT2B | DEFM /T TO TRANSFER EPROM INTO MEMORY/ |
| 717 | TEXT2C | DEFM /E TO CHECK EPROM IS FULLY ERASED |
| 718 | TEXT2D | DEFM /D TO DUMP EPROM TO PRINTER |
| 719 | TEXT3 | DEFM /TURN OFF PROGRAMMERWHILE CHANGEING EPROM/ |
| 721 | TEXT4 | DEFM /PRESS C TO CONTINUE/ |
| 722 | TEXT5 | DEFM /ROM AND RAM DO NOT MATCH/ |
| 723 | TEXT6 | DEFM /ENTER START ADDR(HEX) OF/ |
| 724 | | DEFM / 1K OR2K BLOCK TO BE / |
| 725 | TEXT7 | DEFM /COPIED INTO EPROM/ |
| 726 | TEXT8 | DEFM /COMPARED TO EPROM/ |
| 727 | TEXT9 | DEFM /FILLED FROM EPROM/ |
| 728 | TEXT10 | DEFM /START ADDRESS ????/ |
| 729 | TEXT11 | DEFM /KEY -/ |
| 730 | TXT11A | DEFM "IS THIS CORRECT?-Y/N" |
| 731 | TEXT12 | DEFM /YOU MUST TYPE AN 'A' OR A 'B'/ |
| 732 | TXT13A | DEFM /TYPE – 2708 / |
| 733 | TXT13B | DEFM "TYPE – 2516/2716" |
| 734 | TEXT14 | DEFM /EPROM NOT FULLY ERASED/ |
| 735 | TEXT15 | DEFM /EPROM IS FULLY ERASED/ |
| 736 | TEXT16 | DEFM /COMPARISON OK. – NO ERRORS. / |
| 737 | TXT17A | DEFM "SAME EPROM – Y/N?" |
| 738 | TEXT18 | DEFM /NORMAL R.O.M. START ADDR.(HEX) – ?/ |
| 739 | TEXT19 | DEFM /ROUTINE COMPLETED/ |
| 740 | TEXT20 | DEFM /CAUTION :ONLY ONE EPROM AT A TIME./ |
| 741 | TEXT21 | DEFM /OBSERVER THE EPROM HANDLING PRECAUTIONS/ |
| 742 | ; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * |
| 743 | | .DEPHASE | |
| 744 | ; THIS DENOTES THE END OF A PROGRAM BLOCK IN |
| 745 | ; THE MACRO 80 ASSEMBLER |
| 746 | ; IT HAS NO EQUIVALENT IN ZEAP |
| 747 | ; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * |
| 748 | | .PHASE 0D00H | |
| 749 | ; THIS DENOTES THE START OF A NEW BLOCK |
| 750 | ; IT IS EQUIVALENT TO THE ORG PSEUDO-OP IN ZEAP |
| 751 | ; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * |
| 752 | ; PROGRAM WORKSPACE AREA |
| 753 | SCNFLG | DEFS 1 | ; JUMP BACK FLAG |
| 754 | ERFLG | DEFS 1 | ; ERROR FOUND FLAG |
| 755 | ROMFLG | DEFS 1 | ; 1K OR 2K ROM FLAG |
| 756 | STORE | DEFS 4 | ; STORE FOR KEY ENTRIES |
| 757 | STOR1 | DEFS 2 | ; MEMORY START ADDRESS |
| 758 | STORLN | DEFS 20H | ; TEMPORARY MESSAGE STORE |
| 759 | LINBUF | DEFS 10H | ; BUFFER FOR PRINTER O/P |
| 760 | | .DEPHASE | ; |
| 761 | ; * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * |