; 11:36:44 SUNDAY AUG 19 198´ ‰0 ; *** 2758/2716/2732 **ª@ ; EPROM PROGRAMMER FOR SYM-±P ; BY PETER G. FONG SAÍ` ; AND PAUL L. BEAUPRÅp‰€ ; SINGLE LETTER COMMANDS ARE USED® ; TYPE IN LETTER COMMANDS FOLLOWEÄ ; BY EPROM TYPE, I.E. 2716, AND THEÎ ; MEMORY STARTING ADDRESS, FOLLOWED BÙ ; MEMORY ENDING ADDRESS AND THEN FOLLOWEÄ0 ; BY A CR. ALL ENTRIES ARE TO BE SEPARATEÄ@ ; BY COMMAS AS PER THE SYM-1 ENTRY MODÅP‰` ; >>> COMMANDS <<¼p ; B = BLANK TESÔ€ ; C = COPY EPROM TO MEMORY SPECIFIEÄ ; L = LIST EPROM BY LINES SPECIFIEÄ ; P = PROGRAM EPROM FROM MEMORY SPECIFIEÄ ; V = VERIFY CONTENTS OF EPROM TO MEMORÙ ; LOCATIONS SPECIFIEÄ0 ; RETURN KEY = RETURN TO MONITOÒ@ ; BREAK = BREAK FROM LIST OR PROGRAM ONLÙP‰`; ZERO PAGE LOCATIONÓp‰€TEMP1 .DE $FÅTEMP2 .DE $FÆ‰; MONITOR LOCATIONÓ ‰0MONITR .DE $800°@STOCOM .DE $812°PERMSG .DE $817±`P2SCR .DE $829ÃpOUTBYT .DE $82FÁ€OUTQM .DE $832°SPACE .DE $834²CRLF .DE $834ÄINSTAT .DE $838¶ INCHAR .DE $8A1Â0OUTCHR .DE $8A4·@ACCESS .DE $8B8¶PEPROM .DE $A64¶`‰p; SYSTEM I/O (6522 U-25©€‰PBD .DE $A00°PAD .DE $A00±PBDD .DE $A00² PADD .DE $A00³0‰@; SYSTEM RAM LOCATIONÓP‰`SIZE .DE $A64·pLSTCOM .DE $A65·€PARNR .DE $A64¹P3L .DE $A64ÁP3H .DE $A64ÂP2L .DE $A64Ã P2H .DE $A64Ä0P1L .DE $A64Å@P1H .DE $A64ÆP‰`; MISCELLANEOUS LOCATIONÓp‰€STATUS .DE $A40·T1024 .DE $A41Æ‰‰ .BA $9000 ; OR WHEREVER 0‰@START JSR ACCESÓPRESET LDA #$FÆ` STA PBDÄp LDA #$A°€ STA PBÄPROMPT JSR CRLÆ LDA #'ª JSR OUTCHÒ JSR OUTQÍ0 JSR SPACÅ@INCOM JSR INCHAÒP CMP #$0Ä` BNE OKCOÍp JMP MONITÒ€OKCOM JSR STOCOÍ CMP #$0Ä BNE OUTERÒ LDA PARNÒ ASL Á0 TAÙ@ LDA PARNR,ÙP CMP #$2·` BNE OUTERÒp DEÙ€ LDA PARNR,Ù CMP #$1¶ BNE SIZE4ËSIZE2K LDA #¸ STA SIZÅ0 LDA #°@ STA EPROÍP BEQ CHECË`SIZE4K CMP #$3²p BNE SIZE1Ë€ LDA #$1° STA EPROÍ STA SIZÅ BNE CHECË SIZE1K CMP #$5¸0 BNE OUTERÒ@ LDA #´P STA SIZÅ` BNE SIZE2K+µpOUTERR JSR ERMSG+²€ JMP PROMPÔCHECK JSR P2SCÒ LDA PARNÒ CMP #± BNE THREÅ0 LDA LSTCOÍ@ CMP #'ÂP BNE OUTERÒ` BEQ BLANËpTHREE CMP #³€ BNE OUTERÒ LDA LSTCOÍ CMP #'Ã BNE LISTPÒ BEQ COPÙ0LISTPR CMP #'Ì@ BNE PROÇP JMP LISÔ`PROG CMP #'Ðp BNE VEÒ€ JMP PROGRÍVER CMP #'Ö BNE OUTERÒ JMP VERIFÙ ‰0 ;BLANK TESÔ@‰PBLANK LDA #°` STA PADÄp TAÙ€ LDA EPROÍ STA PBÄ JSR DELAY ;ALLOWS RELAYS TO SETTLÅ LDA #$FÆ CHKBYT CMP PAÄ0 BNE ERROÒ@ INC PBÄP DEC PBÄ` INÙp BNE CHKBYÔ€ INØ CPX SIZÅ BNE CHKBYÔDONE JSR CRLÆ LDA #'Ï0 JSR OUTCHÒ@ LDA #'ËP JSR OUTCHÒ` JMP RESET+µp‰€ERROR JSR CRLÆ TXÁ JSR OUTBYÔ TYÁ JSR OUTBYÔ0 JSR SPACÅ@ LDA PAÄP JSR OUTBYÔ` JMP RESET+µp‰€ ; COPÙ‰COPY LDA #° STA PADÄ LDA EPROÍ0 STA PBÄ@ JSR DELAÙPGETCHR LDA PAÄ` STA (TEMP1,X©p INC PBÄ€ DEC PBÄ JSR COMPAÒ BCC GETCHÒ JMP DONÅ ‰0 ; LISÔ@‰PLIST LDA #°` STA PADÄp LDA EPROÍ€ STA PBÄ JSR DELAÙ NEWLIN JSR LOOË JSR CRLÆ LDY #°0 LDA TEMP²@ JSR OUTBYÔP LDA TEMP±` JSR OUTBYÔp JSR SPACÅ€ DATA JSR SPACÅ LDA PAÄ! JSR OUTBYÔ! INC PBÄ ! DEC PBÄ0! JSR COMPAÒ@! BCC CKCNTÒP! JMP RESET+µ`!CKCNTR INÙp! CPY #$1°€! BNE DATÁ! BEQ NEWLIÎ"‰" ; PROGRAÍ "‰0"PROGRM LDA #$FÆ@" STA PADÄP" LDA EPROÍ`" BEQ NOT4Ëp" LDA #$1Á€" STA PBÄ" BNE GÏ#NOT4K LDA #$Ã# STA PBÄ #GO JSR DELAÙ0#BURN JSR LOOË@# LDA (TEMP1,X©P# STA PAÄ`# NOÐp# NOÐ€# DEC PBÄ#TIMOUT JSR DELAÙ$ INC PBÄ$ JSR COMPAÒ $ BCC BURÎ0$ LDA #$8°@$ STA PBÄP$ JSR P2SCÒ`$‰p$ ; VERIFÙ€$‰$VERIFY LDA #°% STA PADÄ% LDA EPROÍ % STA PBÄ0% JSR DELAÙ@%NEXBYT LDA PAÄP% CMP (TEMP1,X©`% BNE ERRPTÒp% INC PBÄ€% DEC PBÄ% JSR COMPAÒ& BCC NEXBYÔ& JMP DONÅ &‰0& ; DISPLAY ERROR AS MEMORY LOCATION¬@& ; MEMORY DATA, EPROM CONTENTÓP&‰`&ERRPTR JSR CRLÆp& LDA *TEMP²€& JSR OUTBYÔ& LDA *TEMP±' JSR OUTBYÔ' JSR SPACÅ ' LDA (TEMP1,X©0' JSR OUTBYÔ@' JSR SPACÅP' LDA PAÄ`' JSR OUTBYÔp' JMP RESET+µ€'‰'DELAY LDA #$2F DELAY FOR 50 MÓ( STA T102´( LDA STATUÓ ( BPL DELAY+µ0( LDX #°@( RTÓP(‰`(COMPAR LDA *TEMP±p( CMP P3Ì€( BEQ TESTHÉ(UPLOW INC *TEMP±) BNE OUÔ) INC *TEMP² ) BNE OUÔ0)TESTHI LDA *TEMP²@) CMP P3ÈP) BNE UPLO×`) SEÃp) RTÓ€)OUT CLÃ) RTÓ0LOOK JSR INSTAÔ0 BCS CONÔ 0 RTÓ00CONT JMP RESET+µ@0‰P0 .EÎ