Prog_eep:
        mov dptr,#File_str ;Print "send file now" string
        lcall outstr ;

        ; get Chars, convert to hex, store in NVRam
        lcall load1
;so now all of the file that was read by the serial port    is in
;ram @ addr 4000h, very last address saved in
;filesizeH, FilesizeL

        mov dptr,#Prog_str
        lcall outstr ;print string "programming eeprom"

        mov dptr,#4000h
        mov addrhi,#0
        mov addrlo,#0

Prog_Loop: