扩128.sdi

一个控制城市夜景霓虹灯的程序

0000,00,main,main:   nop
0001,12 00 75,,        lcall hy1         ;间隔亮10次
0004,12 00 38,,        lcall hy3         ;全灭
0007,12 00 93,,        lcall delay400ms  ;延时
000A,12 00 2B,,        lcall hy4         ;全亮
000D,12 00 93,,        lcall delay400ms  ;延时
0010,12 00 38,,        lcall hy3         ;全灭
0013,12 00 93,,        lcall delay400ms  ;延时
0016,12 00 2B,,        lcall hy4         ;全亮
0019,12 00 93,,        lcall delay400ms
001C,12 00 38,,        lcall hy3         ;全灭
001F,12 00 93,,        lcall delay400ms
0022,12 00 45,,        lcall hy2         ;从左到右亮，然后从右到左灭
0025,12 00 45,,        lcall hy2
0028,02 00 00,,        ljmp main         ;无限循环
,,,
002B,74 FF,hy4,hy4:    mov a,#0ffh       ;花样4全亮
002D,7E 0A,,        mov r6,#10
002F,90 00 00,hy41,hy41:   mov dptr,#0000h
0032,F0,hy4lp,hy4lp:  movx @dptr,a
0033,05 83,,        inc dph
0035,DE FB,,        djnz r6, hy4lp
0037,22,,        ret
,,,
0038,74 00,hy3,hy3:    mov a,#00h        ;花样3全灭
003A,7E 0A,,        mov r6,#10
003C,90 00 00,hy31,hy31:   mov dptr,#0000h
003F,F0,hy3lp,hy3lp:  movx @dptr,a
0040,05 83,,        inc dph
0042,DE FB,,        djnz r6, hy3lp
0044,22,,        ret
,,,
0045,74 01,hy2,hy2:    mov a,#01h        ;花样2从左到右亮，然后从右到左灭
0047,7E 0A,,        mov r6,#10
,,,
0049,90 00 00,hy21,hy21:   mov dptr,#0000h
004C,7F 08,hy22,hy22:   mov r7,#8
,,,
004E,F0,hy2lp,hy2lp:  movx @dptr,a
004F,D3,,        setb c
0050,33,,        rlc a
0051,12 00 8A,,        lcall delay5ms
0054,DF F8,,        djnz r7,hy2lp
0056,05 83,,        inc dph
0058,DE F2,,        djnz r6, hy22
005A,12 00 93,,        lcall delay400ms
,,,
005D,74 01,,        mov a,#01h
005F,7E 0A,,        mov r6,#10
,,,
0061,15 83,hy21a,hy21a:  dec dph
,,,       ; mov dptr,#0000h
0063,7F 08,hy22a,hy22a:   mov r7,#8
,,,
0065,F0,hy2lpa,hy2lpa:  movx @dptr,a
0066,C3,,        clr c
0067,13,,        rrc a
0068,12 00 8A,,        lcall delay5ms
006B,DF F8,,        djnz r7,hy2lpa
006D,15 83,,        dec dph
006F,DE F2,,        djnz r6, hy22a
0071,12 00 93,,        lcall delay400ms
,,,
0074,22,,        ret
,,,
,,,
0075,7E 0A,hy1,hy1:    mov r6,#10         ;花样1间隔亮 变换
0077,74 55,,        mov a,#55h
0079,90 00 00,hy11,hy11:   mov dptr,#0000h
007C,7F 0A,,        mov r7,#10
007E,F0,hy1lp,hy1lp:  movx @dptr,a
007F,05 83,,        inc dph
0081,DF FB,,        djnz r7,hy1lp
0083,12 00 93,,        lcall delay400ms
0086,F4,,        cpl a
0087,DE F0,,        djnz r6, hy11
0089,22,,        ret
,,,
008A,,DELAY5MS,DELAY5MS:
008A,7B 19,,        MOV     R3,#25              ;延时子程序(5MS)
008C,7A 64,DL5_PA,DL5_PA: MOV     R2,#100
008E,DA FE,,        DJNZ    R2,$
0090,DB FA,,        DJNZ    R3,DL5_PA
0092,22,,        RET
,,,
,,,;==============延时400毫秒
0093,,DELAY400MS,DELAY400MS:
0093,7C 14,,        MOV     R4,#20              ;延时子程序(400MS)
0095,7B 64,DL4_PA,DL4_PA: MOV     R3,#100
0097,7A 64,DL4_PB,DL4_PB: MOV     R2,#100
0099,DA FE,,        DJNZ    R2,$
009B,DB FA,,        DJNZ    R3,DL4_PB
009D,DC F6,,        DJNZ    R4,DL4_PA
009F,22,,        RET
000E,,,        end