clrscr.src

来自「C51源码.其内文件包含spi」· SRC 代码 · 共 65 行

; CLRSCR.SRC generated from: CLRSCR.C

$NOMOD51

NAME    CLRSCR

;DPP     DATA    084H
P1      DATA    090H
DPL     DATA    082H
DPH     DATA    083H
B       DATA    0F0H
?PR?clrlcdram?CLRSCR SEGMENT CODE
?DT?clrlcdram?CLRSCR SEGMENT DATA
EXTRN   IDATA (a_bcolor)
PUBLIC  Clrlcdram

        RSEG  ?DT?clrlcdram?CLRSCR
?clrlcdram?BYTE:
p?02:                   DS  2

        RSEG  ?PR?clrlcdram?CLRSCR
        USING   0
Clrlcdram:
clrscr:
        push   6
        push   7
        push   dpl
        push   dph
        push   0
        mov    r6,  #215
        mov    r7,  #163
	
        ;mov    dpp, #0f7h
		SETB   P1.0
		CLR    P1.4
		
        mov    dptr,#0fffh
        mov    r0,#a_bcolor
        mov    a,@r0
        mov    b,a
        swap   a
        orl    a,b
clrloop:
		movx   @dptr,a
        inc    dph
        djnz   r6,clrloop
        mov    dph,#0fh
        inc    dpl
        mov    r6,#215
        djnz   r7, clrloop

;       mov    dpp,#0efh
		
		SETB   P1.4
        CLR    P1.0
		
        pop    0
        pop    dph
        pop    dpl
        pop    7
        pop    6
        RET

        END