The Microcontroller Idea Book - Jan Axelson's Lakeview Research

Appendix B
Listing B-2 (page 3 of 4).
rem Store the data in RAM
1500 FOR I=SOURCE TO SOURCE + COUNT-1 : XBY(ADDR)=XBY(I)
rem Now verify that stored data is readable as code
1505 if XBY(I) CBY(ADDR) THEN GOTO 3130
1508 ADDR = ADDR+1 : NEXT
1510 RETURN
rem Store the data in EPROM or RDY/BUSY EEPROM
rem First load the source address registers
1520 DBY (1BH) = SOURCE/256 : DBY (19H) = SOURCE .AND. 0FFH
rem Now load the destination address registers
1530 DBY (1AH) = (ADDR-1)/256 : DBY (18H) = (ADDR - 1)
.AND. 0FFH
rem Now load the number of bytes to program
1540 DBY (1Fh) = COUNT/256 : DBY (1Eh) = COUNT .AND. 0FFh
rem Program the data into the part
1550 PGM : IF DBY (1Fh) .OR. DBY (1Eh) 0 THEN GOTO 3060
1560 RETURN
1570 FOR I=SOURCE TO SOURCE + COUNT-1 : XBY (ADDR) = XBY
(I)
1580 time = 0 : dby (47h) = 0 : clock1 : do : until time >=
delay
1590 if xby (addr) xby (i) goto 3100
1600 addr = addr + 1: clock0 : next : clock0 : return
rem Convert the ASCII text to numbers
2000 C = ASC($(0),I) : IF (C=65) THEN C = C -
55 ELSE C = C - 48
2020 CH = C * 16 : C = ASC($(0),I + 1)
2040 IF (C=65) THEN C = C - 55 ELSE C = C - 48
2050 CH = CH + C : RETURN
rem Here when we are going to load the data into EEPROM.
2100 WAIT = 0.0005 : RETURN
rem Here for Intelligent programming
2110 WAIT = 0.001 : RETURN
268 The Microcontroller Idea Book