📄 gm246401.asm
字号:
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#11000000B
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
DJNZ R1,XDASH20_P2
DJNZ R2,XDASH20_P3
RET
;============================================
YDASH1O:
CALL GPADR0
MOV R2,T_2
YDASH10_P2:
MOV R1,T_1
YDASH10_P1:
MOV A,#10101010B
CALL CS2
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#11000000B
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
DJNZ R1,YDASH10_P1
DJNZ R2,YDASH10_P2
RET
;============================================
YDASH2O:
CALL GPADR0
MOV R2,T_2
YDASH20_P2:
MOV R1,T_1
YDASH20_P1:
MOV A,#01010101B
CALL CS2
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#11000000B
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
DJNZ R1,YDASH20_P1
DJNZ R2,YDASH20_P2
RET
;============================================
YDASH3O:
CALL GPADR0
MOV R2,T_2
YDASH30_P2:
MOV R1,T_1
YDASH30_P1:
MOV A,#11001100B
CALL CS2
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#11000000B
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
DJNZ R1,YDASH30_P1
DJNZ R2,YDASH30_P2
RET
;============================================
YDASH4O:
CALL GPADR0
MOV R2,T_2
YDASH40_P2:
MOV R1,T_1
YDASH40_P1:
MOV A,#00110011B
CALL CS2
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#11000000B
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
DJNZ R1,YDASH40_P1
DJNZ R2,YDASH40_P2
RET
;============================================
SQUAR1O:
CALL GPADR0
MOV R2,T_2
MOV A,R2
RR A
MOV R2,A
SQUAR10_P3:
MOV R1,T_1
SQUAR10_P1:
MOV A,#10101010B
CALL CS2
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#11000000B
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
DJNZ R1,SQUAR10_P1
MOV R1,T_1
SQUAR10_P2:
MOV A,#01010101B
CALL CS2
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#11000000B
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
DJNZ R1,SQUAR10_P2
DJNZ R2,SQUAR10_P3
RET
;============================================
SQUAR2O:
CALL GPADR0
MOV R2,T_2
MOV A,R2
RR A
MOV R2,A
SQUAR20_P3:
MOV R1,T_1
SQUAR20_P1:
MOV A,#01010101B
CALL CS2
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#11000000B
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
DJNZ R1,SQUAR20_P1
MOV R1,T_1
SQUAR20_P2:
MOV A,#10101010B
CALL CS2
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#11000000B
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
DJNZ R1,SQUAR20_P2
DJNZ R2,SQUAR20_P3
RET
;============================================
GPAREA:
CALL CS2
MOV R0,#DAT63C
MOV A,XRAM2；设置图形范围低8位参数，此处是30，30*8=240
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#0；设置图形范围高8位参数，默认为00H
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV R0,#COM63C
MOV A,#01000011B；设置图形范围
MOVX @R0,A
CALL CS2_OFF
RET
GPHOME:
CALL CS2
MOV R0,#DAT63C
MOV A,#00；图形存放地址的低8位是00H
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#08；图形存放地址的高8位是#08H
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV R0,#COM63C
MOV A,#01000010B；设置图形存放地址
MOVX @R0,A
CALL CS2_OFF
RET
TXTADR0:
MOV R3,#0
MOV R4,#0
CALL SETADR
RET
GPADR0:
MOV R3,#00
MOV R4,#08
CALL SETADR
RET
TXAREA:
CALL CS2
MOV R0,#DAT63C
MOV A,XRAM2；设置字形范围的低8位参数，此处是30；30*8=240
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#0；设置字形范围的高8位参数，默认为00H
MOVX @R0,A
MOV R0,#COM63C
CALL CS2_OFF
CALL CS2
MOV A,#01000001B；设置字形范围
MOVX @R0,A
CALL CS2_OFF
RET
TXHOME:
CALL CS2
MOV R0,#DAT63C
MOV A,#0；设置字形存放地址低8位参数，此处为00H
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#0；设置字形存放地址高8位参数，此处为00H
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV R0,#COM63C
MOV A,#01000000B；
MOVX @R0,A
CALL CS2_OFF
RET
TONGON:
CALL CS2
MOV A,#10011100B；设置显示状态为图形开，文字开
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
RET
TOFGON:
CALL CS2
MOV A,#10011010B
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
RET
TONGOF:
CALL CS2
MOV A,#10010100B
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
RET
ORMOD:
CALL CS2
MOV R0,#COM63C
MOV A,#10000000B;启用CGROM中的字符，模式为‘或’模式
MOVX @R0,A
CALL CS2_OFF
RET
SETADR:
CALL CS2
MOV A,R3
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,R4
MOV R0,#DAT63C
MOVX @R0,A
CALL CS2_OFF
CALL CS2
MOV A,#00100100B；设置指针地址
MOV R0,#COM63C
MOVX @R0,A
CALL CS2_OFF
RET
;==================================================
DLY100N:
MOV R6,#20
DLYNLP:
DJNZ R6,DLYNLP
RET
DLY1M:
MOV R7,#1
JMP DLYLOOP
DLY10M:
MOV R7,#10
JMP DLYLOOP
DLY50M:
MOV R7,#50
JMP DLYLOOP
DLY100M:
MOV R7,#100
JMP DLYLOOP
DLY250M:
MOV R7,#250
JMP DLYLOOP
DLYLOOP:
MOV R6,#0
W4DLP: DJNZ R6,W4DLP
DJNZ R7,W4DLP
RET
DLY1SEC:
CALL DLY250M ; WAIT FOR 0.25 SECOND
CALL DLY250M ; WAIT FOR 0.25 SECOND
CALL DLY250M ; WAIT FOR 0.25 SECOND
CALL DLY250M ; WAIT FOR 0.25 SECOND
CALL DLY250M ; WAIT FOR 0.25 SECOND
CALL DLY250M ; WAIT FOR 0.25 SECOND
CALL DLY250M ; WAIT FOR 0.25 SECOND
RET
DLY2SEC:
CALL DLY1SEC ; WAIT FOR 0.25 SECOND
CALL DLY1SEC ; WAIT FOR 0.25 SECOND
RET
GPH01:
;=============================================
; FILE NAME : C:\GM246402\240X64_1.bmp
; BIT7...BIT0 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -