MOV B, #94
MUL AB
ADD A, 25H
MOV 25H, A
CLR A
ADDC A, B
MOV 24H, A
CLR C
RRC A
CLR C
RRC A
MOV P1, A
LCALL RL245
CLR 24H.7
MOV DPH, 24H
MOV DPL, 25H
MOV R2, #32
MOV R1, #0C0H
DPHZ2: MOVX A, @DPTR
INC DPTR
MOV @R1, A
INC R1
DJNZ R2, DPHZ2
RET
RL245: MOV R7, #05 24H25H 左移5 位
RLL1: CLR C
MOV A, 25H
RLC A
MOV 25H,A
MOV A, 24H
RLC A
MOV 24H, A
DJNZ R7, RLL1
RET
R_ST: MOV DPTR, #C_ADD 读状态
MOVX A, @DPTR
RET
ST01: LCALL R_ST 读写一数据前
JNB ACC.0, ST01
JNB ACC.1, ST01
RET
ST2: LCALL R_ST 连续读前
JNB ACC.2, ST2
RET
ST3: LCALL R_ST 连续写前
JNB ACC.3, ST3
RET
ST6: LCALL R_ST
JB ACC.6, ERR
RET
ERR: LJMP ST6
PR1: LCALL ST01
MOV A, DAT1
LCALL PR13
PR11: LCALL ST01
MOV A, DAT2
LCALL PR13
PR12: LCALL ST01
MOV A, COM
LJMP PR14
PR13: MOV DPTR, #D_ADD
PR14: MOVX @DPTR, A
RET
PR2: LCALL ST01
MOV DPTR, #D_ADD
MOVX A, @DPTR
MOV DAT2, A
RET
INT: MOV DAT1, #00H 初始化设置子程序
MOV DAT2, #00H
MOV COM, #40H
LCALL PR1
MOV DAT1, #20H
MOV DAT2, #00H
MOV COM, #41H
LCALL PR1
MOV DAT1, #00H
MOV DAT2, #08H
MOV COM, #42H
LCALL PR1
MOV DAT1, #20H
MOV DAT2, #00H
MOV COM, #43H
LCALL PR1
MOV COM, #0A7H
LCALL PR12
MOV COM, #80H
LCALL PR12
MOV COM, #9CH
LCALL PR12
RET
CLEAR: MOV DAT1, #00H 设置显示存储器首地址
MOV DAT2, #00H
MOV COM, #24H
LCALL PR1
MOV R3, #00H 设置循环量8K 字节
MOV R4, #20H
MOV COM, #0B0H 设置自动写方式
LCALL PR12
CLEAR1: LCALL ST3 判状态位S2
MOV A, #00H 置数据0
LCALL PR13 写入数据
DJNZ R3, CLEAR1 循环
DJNZ R4, CLEAR1
MOV COM, #0B2H 设置自动写结束指令
LCALL PR12
RET
WRI_CC: PUSH O_X 将字模数据送出显示
PUSH O_Y
MOV A, O_Y
MOV B, #20H
MUL AB
ADD A, O_X
MOV O_X, A
MOV A, B
ADDC A, #08H
MOV O_Y, A
MOV R0, #0C0H
MOV COUNT, #10H
WRI_CC1:MOV DAT1, O_X
MOV DAT2, O_Y
MOV COM, #24H
LCALL PR1
MOV A, @R0
MOV DAT2,A
INC R0
MOV A, @R0
INC R0
MOV DAT1, A
MOV COM, #0C0H
LCALL PR11
MOV DAT2, DAT1
LCALL PR11
MOV A, #20H
ADD A, O_X
MOV O_X, A
CLR A
ADDC A, O_Y
MOV O_Y, A
DJNZ COUNT, WRI_CC1
POP O_Y
POP O_X
RET
DL1MS: MOV R4,#0C0H
DLY1: NOP
DJNZ R4,DLY1
RET
DL10MS: CALL DL1MS
CALL DL1MS
CALL DL1MS
CALL DL1MS
CALL DL1MS
CALL DL1MS
CALL DL1MS
CALL DL1MS
CALL DL1MS
CALL DL1MS
RET
DELAY: MOV R5,#0C8H ;延时1 秒
DL5MS: MOV R4,#0FAH
DLY: NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
DJNZ R4,DLY
DJNZ R5,DL5MS
RET
INCLUDE 'MENG.ASM'
END
MENG.ASM 的开头部分如下所示由于该篇科幻小说太长故只列出了开头每行为15 个汉字标点
符号全部采用全角
TABLE: DB ' 第一章单杰圣士'
DB ' 邦托乌是矗立大地的最伟'
DB '大的都会地球上历史最悠久的城'
DB '市自三千二百五十年前地球上'
DB '所有的民族由经济共同体发展至政'
DB '治大统一的国家代表中央权力核'
DB '心的联邦政府便在这从未有过的'
DB '宏伟都会里成立'
DB ' 邦托乌的存在代表了旧'
DB '有文明的消失再没有国界宗教'
DB ' 民族这类使人世纷争永无休止的'
DB '因素存在着'
DB ' 经过毁灭性的战争后联邦国'
DB '象浴火后的凤凰获得新的生命'
DB '在联邦政府强有力的统治下这饱'
DB '经劫难的星球终于出现了前所未'
DB '有的长治久安'
DB ' 邦托乌外还有四十八个大'
DB '城市全球二十多亿人便聚居在这'
DB '些城市里城市外是受到核污染和'
DB '宇宙射线侵袭的废墟据联邦政府'
DB '的宣告它们已不适合任何生命的'
DB '繁衍邦托乌里最著名的建筑物'
DB '是联邦政府元首和部长们办公的'
DB '三角大楼这与众不同的建筑物'
DB ' 是世界上最高的建筑物亦是人'
DB '类建筑技术的顶尖杰作联邦政府'
DB '的建筑法令内明文规定不准'
DB '建造比她更高的建筑物使她永背'
DB '着最伟大的美誉'
DB ' 人们都唤她作金字塔'
DB ' 她代表一个伟大时代的产生'
DB '象征古老智慧变成被嘲弄和讪笑对'
DB '象的年代君临大地'
只要遵守该格式将全部内容录入经汇编无误后,将生成的BIN 文件写入P89C51RD2 并保证整个硬件
电路正确那么上电复位后就请欣赏您的科幻小说吧
1.部分资源来自网络,经ET电子归类整理,旨在服务电子爱好者并无商业目的,不保证正确性与完整性.
2.如果您觉得本站资源对您有用,请告知您的好友,用搜索引擎搜"ET电子"即可.