org 0000H
AJMP KAISHI
ORG 0003H
LJMP ZD1
ORG 0013H
LJMP ZD2
ORG 0030H
KAISHI:MOV P3,#0FFH
       MOV SP,#30H
       MOV TCON,#05H
       SETB EA
       SETB EX0
       SETB EX1
       AJMP INITIAL
ORG 60H
INITIAL:MOV R7,#0EFH
        MOV R1,#128
        MOV R3,#80H
        MOV P1,#0FFH
        MOV P0,#00H
        MOV B,R3
        MOV R5,B
        CLR PSW.5
        CLR PSW.1
KK1:MOV A,P1

NEXT:MOV A,R7
    ANL A,#0F0H
    SWAP A
    PUSH A
    MOV A,P1
    ANL A,#0F0H
    MOV R6,A
    POP A
    ADD A,R6
    MOV P1,A
    MOV A,R7
    RL A
    MOV R7,A
KK2:
    MOV A,P1
    ANL A,#0F0H
    XRL A,#0F0H
    JNZ KK3
    LJMP KK1

NEXT1:LJMP SECTION1
KK3:
    MOV A,P1
    MOV P1,#0F0H

    PUSH A
    XRL A,#0EEH
    JZ SS1
    POP A
    PUSH A
    XRL A,#0EDH
    JZ SS2
    POP A
    PUSH A
    XRL A,#0EBH
    JZ SS3
    POP A
    XRL A,#0E7H
    JZ SS4
    MOV P1,#0FFH
    LJMP KK1
SS1:LJMP ZHENGXIAN
SS2:LJMP JUCHI
SS3:LJMP SANJIAO
SS4:LJMP FANGBO

zhengxian:mov dptr,#dat
          MOV P3.1,#80H
          ajmp section2
juchi:mov dptr,#dat1
      MOV P3.1,#40H
      ajmp section2
sanjiao:mov dptr,#dat2
       MOV P3.1,#20H
        ajmp section2
fangbo:mov dptr,#dat3
        MOV P3.1,#10H
       ajmp section2
SECTION1:MOV R1,#128
         MOV A,P3.1
         CLR C
         RLC A
         JC AA1
         RLC A
         JC AA2
         RLC A
         JC AA3
         RLC A
         JC AA4
         AJMP SECTION2
AA1:MOV DPTR,#0200H
    AJMP SECTION2
AA2:MOV DPTR,#0280H
    AJMP SECTION2
AA3:MOV DPTR,#0300H
    AJMP SECTION2
AA4:MOV DPTR,#0380H
    AJMP SECTION2
AA5:LJMP INITIAL
SECTION2:JNB P1.7,AA5
         DEC R1
         MOV A,#00H
         MOVC A,@A+DPTR

INC DPTR
CLR P2.1
MOV R2,#4
LCALL WRDATA
MOV R2,#8
ANL A,#0F0H
LCALL WRDATA
CLR P2.0
SETB P2.1
CJNE R1,#0,SECTION2

LJMP SECTION1
ORG 0200H
DAT:DB 7FH,78H,72H,6CH,65H,5FH,59H,53H
        DB 4DH,47H,42H,3CH,37H,32H,2DH,28H
        DB 24H,1FH,1BH,17H,14H,11H,0DH,0BH
        DB 08H,06H,04H,03H,02H,01H,00H,00H
        DB 00H,00H,01H,02H,03H,04H,06H,08H
        DB 0BH,0DH,11H,14H,17H,1BH,1FH,24H
        DB 28H,2DH,32H,37H,3CH,42H,47H,4DH
        DB 53H,59H,5FH,65H,6CH,72H,78H,7FH
        DB 83H,86H,8CH,92H,99H,9FH,0A5H,0ABH
        DB 0B0H,0B6H,0BBH,0C1H,0C6H,0CBH,0D0H,0D5H
        DB 0D9H,0DEH,0E2H,0E6H,0E9H,0ECH,0F0H,0F2H
        DB 0F5H,0F7H,0F9H,0FAH,0FCH,0FDH,0FEH,0FFH
        DB 0FFH,0FEH,0FDH,0FCH,0FAH,0F9H,0F7H,0F5H
        DB 0F2H,0F0H,0ECH,0E9H,0E6H,0E2H,0DEH,0D9H
        DB 0D5H,0D0H,0CBH,0C6H,0C1H,0BBH,0B6H,0B0H
        DB 0ABH,0A5H,9FH,99H,92H,8CH,86H,83H
DAT1: DB 00H,01H,02H,03H,04H,05H,06H,07H               ;鋸齒波
        DB 08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
        DB 10H,11H,12H,13H,14H,15H,16H,17H
        DB 18H,19H,1AH,1BH,1CH,1DH,1EH,1FH
        DB 20H,21H,22H,23H,24H,25H,26H,27H
        DB 28H,29H,2AH,2BH,2CH,2DH,2EH,2FH
        DB 30H,31H,32H,33H,34H,35H,36H,37H
        DB 38H,39H,3AH,3BH,3CH,3DH,3EH,3FH
        DB 40H,41H,42H,43H,44H,45H,46H,47H
        DB 48H,49H,4AH,4BH,4CH,4DH,4EH,4FH
        DB 50H,51H,52H,53H,54H,55H,56H,57H
        DB 58H,59H,5AH,5BH,5CH,5DH,5EH,5FH
        DB 60H,61H,62H,63H,64H,65H,66H,67H
        DB 68H,69H,6AH,6BH,6CH,6DH,6EH,6FH
        DB 70H,71H,72H,73H,74H,75H,76H,77H
        DB 78H,79H,7AH,7BH,7CH,7DH,7EH,7FH

DAT2:DB 00H,01H,02H,03H,04H,05H,06H,07H    ;三角波
        DB 08H,09H,0AH,0BH,0CH,0DH,0EH,0FH
        DB 10H,11H,12H,13H,14H,15H,16H,17H
        DB 18H,19H,1AH,1BH,1CH,1DH,1EH,1FH
        DB 20H,21H,22H,23H,24H,25H,26H,27H
        DB 28H,29H,2AH,2BH,2CH,2DH,2EH,2FH
        DB 30H,31H,32H,33H,34H,35H,36H,37H
        DB 38H,39H,3AH,3BH,3CH,3DH,3EH,3FH

        DB 3FH,3EH,3DH,3CH,3BH,3AH,39H,38H
        DB 37H,36H,35H,34H,33H,32H,31H,30H
        DB 2FH,2EH,2DH,2CH,2BH,2AH,29H,28H
        DB 27H,26H,25H,24H,23H,22H,21H,20H
        DB 1FH,1EH,1DH,1CH,1BH,1AH,19H,18H
        DB 17H,16H,15H,14H,13H,12H,11H,10H
        DB 0FH,0EH,0DH,0CH,0BH,0AH,09H,08H
        DB 07H,06H,05H,04H,03H,02H,01H,00H

DAT3: DB 00H,00H,00H,00H,00H,00H,00H,00H      ;方波
        DB 00H,00H,00H,00H,00H,00H,00H,00H
        DB 00H,00H,00H,00H,00H,00H,00H,00H
        DB 00H,00H,00H,00H,00H,00H,00H,00H
        DB 00H,00H,00H,00H,00H,00H,00H,00H
        DB 00H,00H,00H,00H,00H,00H,00H,00H
        DB 00H,00H,00H,00H,00H,00H,00H,00H
        DB 00H,00H,00H,00H,00H,00H,00H,00H

        DB 08FH,08FH,08FH,08FH,08FH,08FH,08FH,08FH
        DB 08FH,08FH,08FH,08FH,08FH,08FH,08FH,08FH
        DB 08FH,08FH,08FH,08FH,08FH,08FH,08FH,08FH
        DB 08FH,08FH,08FH,08FH,08FH,08FH,08FH,08FH
        DB 08FH,08FH,08FH,08FH,08FH,08FH,08FH,08FH
        DB 08FH,08FH,08FH,08FH,08FH,08FH,08FH,08FH
        DB 08FH,08FH,08FH,08FH,08FH,08FH,08FH,08FH
        DB 08FH,08FH,08FH,08FH,08FH,08FH,08FH,08FH
WRDATA:NOP
LCALL DELAY2
LOOP:CLR P2.0
     RLC A
     MOV P2.2,C
     SETB P2.0
     DJNZ R2,LOOP
     RET

DELAY2: MOV B,R5
        MOV R3,B
      TT1:MOV R4,#04H
      TT2:NOP
      DJNZ R4,TT2
      DJNZ R3,TT1
      RET
ZD1:MOV B,R5
    MOV R3,B
    INC R3
    INC R3
    INC R3
    INC R3
    INC R3
    INC R3
    INC R3
    INC R3
    INC R3
    MOV B,R3
    MOV R5,B
    RETI
ZD2:MOV B,R5
    MOV R3,B
    DEC R3
    DEC R3
    DEC R3
    DEC R3
    DEC R3
    DEC R3
    DEC R3
    DEC R3
    DEC R3
    MOV B,R3
    MOV R5,B
    RETI
END