飞思卡尔半导体公司
应用说明
清单2.基本纲领的个人电脑
1 ' ***********************************************************************
2 ' *
3 ' *
E9BUF.BAS - 一个程序来演示引导模式的使用
4 ' *
ON THE HC11通过编程AN HC711E9 WITH
5 ' *
BUFFALO 3.4
6 ' *
7 ' *
要求S-记录BUFFALO （ BUF34.S19 ）
8 ' *
可在同一个目录或文件夹
9 ' *
10 '*
这个方案是同时运行在MS- DOS计算机
11 '*
使用的QuickBasic 4.5和Macintosh电脑搭配使用
12 '*
的QuickBasic 1.0 。
14 '*
15 '************************************************************************
25 H $ = "0123456789ABCDEF"
“ STRING用于HEX CONVERSIONS
30 DEFINT B， I： CODESIZE ％ = 8192 ： ADRSTART = 57344 ！
35 BOOTCOUNT = 25
的字节BOOT代码' NUMBER
40 DIM CODE ％ （ CODESIZE ％ ）
“ BUFFALO 3.4为8K字节长
45启动代码$ = ""
'初始化启动代码$为NULL
49 REM *****读取并保存代码在启动时自动加载*****
50 FOR I = 1 TO BOOTCOUNT
'＃中的字节BOOT CODE
55读Q $
60 A $ = MID $ （Q $ ， 1 ， 1 ）
65 GOSUB 7000
“转换十六进制数字为十进制
70 TEMP = 16 * X
“挂在高位
75 A $ = MID $ （Q $ ， 2 ， 1 ）
80 GOSUB 7000
85 TEMP = TEMP + X
90启动代码$ = $引导代码+ CHR $ （ TEMP ）
“ BUILD BOOT CODE
95 NEXT I
96 REM ***** S- RECORD转换开始这里*****
97 FILNAM $ = "BUF34.S19"
“默认的文件名S-记录
CLS 100
105 PRINT要下载S- record文件"Filename.ext （ " ; FILNAM $ ; " ） " ;
107输入Q $
110当q $ <>"" THEN FILNAM $ = Q $
120 OPEN FILNAM $输入＃1
130打印：打印"Converting " ; FILNAM $ ; "为二进制... "
999 REM *****扫描“ S1 ”记载*****
1000 GOSUB 6000
“送一特性，从输入文件
1010 IF标志，那么1250
'标志EOF标志从子程序
1020如果一个<>美元"S" THEN 1000
1022 GOSUB 6000
1024如果一个<>美元"1" THEN 1000
1029 REM ***** S1符合条件的记录，接下来的2进制位是字节计数*****
1030 GOSUB 6000
1040 GOSUB 7000
'返回十进制X
飞思卡尔半导体公司...
AN1060 - 1.0版
240
摩托罗拉
欲了解更多有关该产品，
转到： www.freescale.com
