The Microcontroller Idea Book - Jan Axelson's Lakeview Research

Appendix B
Listing B-2 (page 1 of 4). HEXLOAD.BAS copies an Intel Hex file into RAM,
EEPROM, or EPROM in an 8052-BASIC system.
1 STRING 82, 80
2 PRINT TAB(22),"HEX FILE LOADING PROGRAM 1.2"
3 PRINT TAB(14), “(C) 1990,1991 Systronix Inc. All rights
reserved.” : PRINT
4 PRINT “This program accepts as input, an Intel format hex
file and stores”
5 PRINT “it in RAM, EPROM, or EEPROM at the addresses specified.”
: PRINT
6 PRINT : PRINT “Select the destination device type:” :
PRINT
7 PRINT TAB(10), “[1] RAM” : PRINT TAB(10), “[2] Timed
EEPROM”
8 PRINT TAB(10), “[3] EPROM (Intelligent algorithm)”
9 PRINT TAB(10), “[4] EPROM (50mS algorithm)”
10 PRINT TAB(10), “[5] EEPROM (RDY/BUSY type)”
11 INPUT “Select Device Type (1, 2, 3, 4, 5) >> ”, TYPE
12 IF (TYPE < 1) .OR. (TYPE 5) THEN PRINT CHR(7) : GOTO 11
20 TYPE=TYPE-1 : IF TYPE = 0 THEN GOTO 1300
21 if type = 1 then goto 22 else goto 30
22 INPUT “Delay between writes >> ”, delay : goto 1300
30 ON (TYPE) GOSUB 2100, 2100, 2110, 2120, 2100
40 IF TYPE = 2 THEN DBY(38) = DBY(38) .OR. 8 ELSE DBY(38) =
DBY(38) .AND. 0f7H
rem Calculate and store pulse width
50 WAIT = 65536-WAIT*XTAL/12 : DBY(40H) = WAIT/256 :
DBY(41H) = WAIT.AND.0ffH
1300 PRINT “Ready to receive the input file one line at a
time. Set your”
1310 PRINT “communication software to send a line when when
it receives”
1320 PRINT “the ’>’ prompt.” : PRINT
1330 SOURCE = MTOP - FREE + 1
1340 LINE = LINE + 1 : INPUT">", $(0) : PRINT “Validating
input buffer ...”,
1350 I = 1 : C = ASC($(0),1) : IF C58 THEN GOTO 3000 :
REM if not “:”
266 The Microcontroller Idea Book