易码技术论坛

 找回密码
 加入易码
搜索
查看: 165023|回复: 4

翻邮箱竟然翻出了点儿宝贝——BAS文件结构

[复制链接]
发表于 2005-7-1 20:16:00 | 显示全部楼层
啊!
我还在一一找呢!
谢谢啦!
顶!
发表于 2005-7-8 06:30:00 | 显示全部楼层
非常实用

VanillaMAI 该用户已被删除
发表于 2005-7-14 13:35:00 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2006-2-23 15:57:00 | 显示全部楼层
老东西了~
 楼主| 发表于 2005-6-30 23:18:09 | 显示全部楼层 |阅读模式
BAS文件结构
原来程序
10 FOR A=1 TO 100
20 PRINT A
30 NEXT A
.BAS 文件内容列表
$0000: 00 ;档案开始符号
$0001: 0E 01 ;行号 10 的 (a) ,行号 20 的起始位子 + 100H
$0003: 0A 00 ;行号 10 的 (b) ,说明本行为行号 10
$0005: 81 ;"FOR" 的保留字码
$0006: 41 ;"A" 的 ASCII 码
$0007: D1 ;"=" 的保留字码
$0008: 31 ;"1" 的 ASCII 码
$0009: C1 ;"TO" 的保留字码
$000A: 31 30 30 ;"100" 的 ASCII 码
$000D: 00 ;行号 10 结束符号
$000E: 15 01 ;行号 20 的 (a) ,行号 30 的起始位子 + 100H
$0010: 14 00 ;行号 20 的 (b) ,说明本行为行号 20
$0012: 98 ;"PRINT" 的保留字码
$0013: 41 ;"A" 的 ASCII 码
$0014: 00 ;行号 20 结束符号
$0015: 1C 01 ;行号 30 的 (a) ,档案结束符号位子 + 100H
$0017: 1E 00 ;行号 30 的 (b) ,说明本行为行号 30
$0019: 82 ;"NEXT" 的保留字码
$001A: 41 ;"A" 的 ASCII 码
$001B: 00 ;行号 30 结束符号
$001C: 00 00 ;档案结束符号
额外说明
(1) BASIC 程序储存方式和 APPLESOFT BASIC 非常类似
(2) 资料 > 80H为保留字
(3) 字串中有汉字的储存方法
例: "文曲星"
$0000: 22 ; " 的 ASCII 码
$0001: 1F ;指示下 2 BYTES 为汉字
$0002: A5 78 ;"文" 的 BIG5 码
$0004: 1F ;指示下 2 BYTES 为汉字
$0005: C6 57 ;"曲" 的 BIG5 码
$0007: 1F ;指示下 2 BYTES 为汉字
$0008: B0 EA ;"星" 的 BIG5 码
$000A: 22 ; " 的 ASCII 码
(4) 保留字码
$80: END
$81: FOR
$82: NEXT
$83: DATA
$84: INPUT
$85: DEL
$86: DIM
$87: READ
$88: SWAP
$89: TRACE
$8A: NOTRACE
$8B: POP
$8C: LET
$8D: GOTO
$8E: RUN
$8F: IF
$90: RESTORE
$91: GOSUB
$92: RETURN
$93: REM
$94: STOP
$95: ON
$96: DEF
$97: POKE
$98: PRINT
$99: CONT
$9A: LIST
$9B: CLEAR
$9C: NEW
$9D: TEXT
$9E: GRAPH
$9F: SYSTEM
$A0: NORMAL
$A1: INVERSE
$A2: FLASH
$A3: PLAY
$A4: BEEP
$A5: INKEY$
$A6: LOAD
$A7: SAVE
$A8: KILL
$A9: FILES
$AA: OPEN
$AB: CLOSE
$AC: WRITE
$AD: FIELD
$AE: GET
$AF: PUT
$B0: LSET
$B1: RSET
$B2: AUTO
$B3: LOCATE
$B4: DRAW
$B5: LINE
$B6: BOX
$B7: CIRCLE
$B8: ELLIPSE
$B9: CLS
$BA: EDIT
$BB: WHILE
$BC: WEND
$BD: CALL
$BE: RENAME
$BF: COPY
$C0: TAB
$C1: TO
$C2: FN
$C3: SPC
$C4: THEN
$C5: ELSE
$C6: AT
$C7: NOT
$C8: STEP
$C9: +
$CA: -
$CB: *
$CC: /
$CD: ^
$CE: AND
$CF: OR
$D0: >
$D1: =
$D2: <
$D3: SGN
$D4: INT
$D5: ABS
$D6: POS
$D7: SQR
$D8: RND
$D9: LOG
$DA: EXP
$DB: COS
$DC: SIN
$DD: TAN
$DE: ATN
$DF: PEEK
$E0: LEN
$E1: STR$
$E2: VAL
$E3: ASC
$E4: MKS$
$E5: MKI$
$E6: CVS$
$E7: CVI$
$E8: LOF
$E9: EOF
$EA: CHR$
$EB: LEFT$
$EC: RIGHT$
$ED: MID$
您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2025-8-24 11:53 , Processed in 0.008905 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表