📄 128128.asm
字号:
RW BIT P3.6
DR BIT P3.7
CD BIT P2.0
CS BIT P2.7
RST BIT P2.3
FS BIT P3.5
COM EQU 20H
DAT1 EQU 21H
DAT2 EQU 22H
COUNT EQU 23H
COD EQU 24H
O_Y EQU 25H
O_X EQU 26H
ORG 0000H
JMP MAIN
ORG 0080H
MAIN:
CLR CS
CLR FS
CLR RST
SETB RST
MOV SP,#30H
LCALL INIT
MOV R2,#00H
LCALL CLEAR
MOV R2,#0AAH
LCALL BMP1
LCALL DEL500MS
MOV R2,#0FFH
LCALL CLEAR
LCALL DEL500MS
MOV R2,#00H
LCALL CLEAR
MOV COM,#94H
LCALL PR12
MOV COUNT,#7FH
LCALL CGRAM
MOV R0,#80H
MOV R1,#01H
MOV R2,#06H
MOV R3,#07H
BMP3:
MOV COD,R0
MOV O_X,R1
MOV O_Y,R2
LCALL WRI_CT
INC R1
INC R1
INC R0
INC R0
INC R0
INC R0
DJNZ R3,BMP3
INC R2
INC R2
MOV R1,#02H
MOV R3,#06H
BMP31:
MOV COD,R0
MOV O_X,R1
MOV O_Y,R2
LCALL WRI_CT
INC R1
INC R1
INC R0
INC R0
INC R0
INC R0
DJNZ R3,BMP31
MOV R1,#01H
MOV R2,#00H
MOV R3,#0EH
BMP41:
MOV COD,R0
MOV O_X,R1
MOV O_Y,R2
LCALL WRI_CT1
INC R1
DJNZ R3,BMP41
INC R0
MOV R1,#01H
MOV R2,#0FH
MOV R3,#0EH
BMP51:
MOV COD,R0
MOV O_X,R1
MOV O_Y,R2
LCALL WRI_CT1
INC R1
DJNZ R3,BMP51
INC R0
MOV R1,#00H
MOV R2,#01H
MOV R3,#0EH
BMP61:
MOV COD,R0
MOV O_X,R1
MOV O_Y,R2
LCALL WRI_CT1
INC R2
DJNZ R3,BMP61
INC R0
MOV R1,#0FH
MOV R2,#01H
MOV R3,#0FH
BMP71:
MOV COD,R0
MOV O_X,R1
MOV O_Y,R2
LCALL WRI_CT1
INC R2
DJNZ R3,BMP71
INC R0
MOV COD,R0
MOV O_X,#00H
MOV O_Y,#00H
LCALL WRI_CT1
INC R0
MOV COD,R0
MOV O_X,#0FH
MOV O_Y,#00H
LCALL WRI_CT1
INC R0
MOV COD,R0
MOV O_X,#00H
MOV O_Y,#0FH
LCALL WRI_CT1
INC R0
MOV COD,R0
MOV O_X,#0FH
MOV O_Y,#0FH
LCALL WRI_CT1
LCALL DEL500MS
JMP MAIN
INIT:
MOV DAT1,#00H
MOV DAT2,#00H
MOV COM,#40H
LCALL PR1
MOV DAT1,#10H
MOV DAT2,#00H
MOV COM,#41H
LCALL PR1
MOV DAT1,#00H
MOV DAT2,#00H
MOV COM,#42H
LCALL PR1
MOV DAT1,#10H
MOV DAT2,#00H
MOV COM,#43H
LCALL PR1
MOV COM,#0A7H
LCALL PR12
MOV COM,#80H
LCALL PR12
MOV COM,#98H
LCALL PR12
RET
BMP1:
MOV DAT1,#00H
MOV DAT2,#00H
MOV COM,#24H
LCALL PR1
MOV R3,#00H
MOV R4,#08H
MOV COM,#0B0H
LCALL PR12
MOV R5,#10H
BMP11:
LCALL ST3
MOV A,R2
MOV R2,A
LCALL PR13
DJNZ R5,BMP12
MOV A,R2
CPL A
MOV R2,A
MOV R5,#10H
BMP12:
DJNZ R3,BMP11
DJNZ R4,BMP11
MOV COM,#0B2H
LCALL PR12
RET
BMP2:
MOV DAT1,#10H
MOV DAT2,#00H
MOV COM,#24H
LCALL PR1
MOV R3,#08H
MOV R4,#01H
MOV COM,#0B0H
LCALL PR12
BMP21:
LCALL ST3
MOV A,R2
LCALL PR13
INC R2
DJNZ R3,BMP21
DJNZ R4,BMP21
MOV COM,#0B2H
LCALL PR12
RET
CLEAR:
MOV DAT1,#00H
MOV DAT2,#00H
MOV COM,#24H
LCALL PR1
MOV R3,#00H
MOV R4,#08H
MOV COM,#0B0H
LCALL PR12
CLEAR1:
LCALL ST3
MOV A,R2
LCALL PR13
DJNZ R3,CLEAR1
DJNZ R4,CLEAR1
MOV COM,#0B2H
LCALL PR12
RET
R_ST:
MOV P0,#0FFH
SETB CD
CLR DR
MOV A,P0
SETB DR
RET
ST1:
LCALL R_ST
JNB ACC.0,R_ST
JNB ACC.1,R_ST
RET
ST2:
LCALL R_ST
JNB ACC.2,ST2
RET
ST3:
LCALL R_ST
JNB ACC.3,ST3
RET
PR1:
LCALL ST1
MOV A,DAT1
LCALL PR13
PR11:
LCALL ST1
MOV A,DAT2
LCALL PR13
PR12:
LCALL ST1
MOV A,COM
LJMP PR14
PR13:
CLR CD
PR14:
MOV P0,A
CLR RW
SETB RW
RET
PR2:
LCALL ST1
CLR CD
MOV P0,#0FFH
CLR DR
MOV A,P0
SETB DR
MOV DAT2,A
RET
DEL20MS:
MOV R7,#20D
DD6:
MOV R6,#200D
DD5:
NOP
NOP
NOP
DJNZ R6,DD5
DJNZ R7,DD6
RET
DEL500MS:
MOV R7,#10D
DEL2:
MOV R6,#200D
DEL1:
MOV R5,#200D
DEL0:
DJNZ R5,DEL0
DJNZ R6,DEL1
DJNZ R7,DEL2
RET
CGRAM:
MOV DAT1,#10H
MOV DAT2,#00H
MOV COM,#22H
LCALL PR1
MOV DAT1,#00H
MOV DAT2,#84H
MOV COM,#24H
LCALL PR1
MOV COM,#0B0H
LCALL PR12
MOV A,COUNT
MOV B,#08H
MUL AB
MOV COUNT,A
INC B
MOV DPTR,#CGTAB
PUSH DPH
PUSH DPL
CGRAM1:
LCALL ST3
POP DPL
POP DPH
CLR A
MOVC A,@A+DPTR
INC DPTR
PUSH DPH
PUSH DPL
LCALL PR13
DJNZ COUNT,CGRAM1
DJNZ B,CGRAM1
MOV COM,#0B2H
LCALL PR12
POP ACC
POP ACC
RET
WRI_CT:
MOV A,O_Y
MOV B,#10H
MUL AB
ADD A,O_X
MOV O_X,A
MOV DAT1,A
MOV A,B
ADDC A,#00H
MOV O_Y,A
MOV DAT2,A
MOV COM,#24H
LCALL PR1
MOV A,COD
MOV DAT2,A
MOV COM,#0C0H
LCALL PR11
MOV A,COD
ADD A,#02H
MOV DAT2,A
LCALL PR11
MOV A,#10H
ADD A,O_X
MOV DAT1,A
CLR A
ADDC A,O_Y
MOV DAT2,A
MOV COM,#24H
LCALL PR1
MOV A,COD
INC A
MOV DAT2,A
MOV COM,#0C0H
LCALL PR11
MOV A,COD
ADD A,#03H
MOV DAT2,A
LCALL PR11
RET
WRI_CT1:
MOV A,O_Y
MOV B,#10H
MUL AB
ADD A,O_X
MOV O_X,A
MOV DAT1,A
MOV A,B
ADDC A,#00H
MOV O_Y,A
MOV DAT2,A
MOV COM,#24H
LCALL PR1
MOV A,COD
MOV DAT2,A
MOV COM,#0C0H
LCALL PR11
RET
CGTAB:
DB 000H,07FH,044H,047H,044H,04AH,071H,042H;图
DB 04CH,071H,040H,042H,041H,041H,07FH,040H
DB 000H,0FCH,004H,0E4H,044H,084H,004H,0C4H
DB 03CH,014H,084H,004H,084H,004H,0FCH,004H
DB 000H,07FH,012H,012H,012H,012H,0FFH,012H;形
DB 012H,012H,012H,012H,022H,022H,042H,080H
DB 004H,086H,00CH,010H,020H,008H,0CCH,018H
DB 020H,044H,086H,00CH,010H,020H,040H,080H
DB 001H,001H,001H,001H,001H,01FH,010H,010H;点
DB 010H,01FH,010H,001H,028H,024H,044H,000H
DB 000H,000H,0F8H,000H,010H,0F8H,010H,010H
DB 010H,0F0H,010H,010H,088H,044H,044H,000H
DB 000H,0F8H,088H,097H,0A1H,091H,08AH,08FH;阵
DB 088H,0A8H,097H,080H,080H,080H,080H,080H
DB 080H,080H,080H,0FCH,000H,040H,040H,0FCH
DB 040H,040H,0FEH,040H,040H,040H,040H,040H
DB 000H,000H,01EH,00CH,00CH,00CH,00CH,00CH;Ｌ
DB 00CH,00CH,00CH,00CH,00CH,01FH,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,008H,018H,0F8H,000H,000H
DB 000H,000H,003H,006H,00CH,018H,018H,018H;Ｃ
DB 018H,018H,018H,00CH,006H,003H,000H,000H
DB 000H,000H,0E0H,038H,018H,000H,000H,000H
DB 000H,000H,000H,008H,030H,0E0H,000H,000H
DB 000H,000H,038H,018H,01CH,016H,016H,013H;Ｍ
DB 013H,011H,011H,010H,010H,038H,000H,000H
DB 000H,000H,00EH,00CH,01CH,02CH,02CH,06CH
DB 04CH,04CH,0CCH,08CH,08CH,01EH,000H,000H
DB 000H,001H,003H,005H,001H,001H,001H,001H;１
DB 001H,001H,001H,001H,001H,001H,007H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,0C0H,000H
DB 000H,007H,008H,010H,010H,000H,000H,000H;２
DB 003H,004H,008H,010H,010H,010H,01FH,000H
DB 000H,0C0H,020H,010H,010H,010H,010H,0E0H
DB 000H,000H,000H,000H,010H,010H,0F0H,000H
DB 000H,007H,008H,010H,010H,010H,008H,007H;８ DB 088H
DB 008H,010H,010H,010H,010H,008H,007H,000H
DB 000H,0C0H,020H,010H,010H,010H,020H,0C0H
DB 020H,010H,010H,010H,010H,020H,0C0H,000H
DB 000H,001H,003H,005H,001H,001H,001H,001H;１
DB 001H,001H,001H,001H,001H,001H,007H,000H
DB 000H,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,0C0H,000H
DB 000H,007H,008H,010H,010H,000H,000H,000H;２
DB 003H,004H,008H,010H,010H,010H,01FH,000H
DB 000H,0C0H,020H,010H,010H,010H,010H,0E0H
DB 000H,000H,000H,000H,010H,010H,0F0H,000H
DB 000H,007H,008H,010H,010H,010H,008H,007H;８ DB 088H
DB 008H,010H,010H,010H,010H,008H,007H,000H
DB 000H,0C0H,020H,010H,010H,010H,020H,0C0H
DB 020H,010H,010H,010H,010H,020H,0C0H,000H
DB 0FFH,000H,000H,000H,000H,000H,000H,000H
DB 000H,000H,000H,000H,000H,000H,000H,0FFH
DB 080H,080H,080H,080H,080H,080H,080H,080H
DB 001H,001H,001H,001H,001H,001H,001H,001H
DB 0FFH,080H,080H,080H,080H,080H,080H,080H
DB 0FFH,001H,001H,001H,001H,001H,001H,001H
DB 080H,080H,080H,080H,080H,080H,080H,0FFH
DB 001H,001H,001H,001H,001H,001H,001H,0FFH
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -