mov DPTR, #segment mov R0, #0 zac: call zobraz call del800 inc R0 jmp zac zobraz: mov A,R0 movc A,@A+DPTR mov P2, A RET XRL segment: db 11000000b ; 0 db 11111001b ; 1 db 10100100b ; 2 db 10110000b ; 3 db 10011001b ; 4 db 10010010b ; 5 db 10000010b ; 6 db 11111000b ; 7 db 10000000b ; 8 db 10010000b ; 9 include delay.inc END