l5-gasit

    ORG 0A000H
MAIN:   MVI A,80H
    STA LED
    MVI A,1BH
    SIM
    EI
LOOP:   JMP LOOP
    ORG 803CH
FNC:    LDA LED
    RRC
    STA LED
    OUT 40H
    POP PSW
    EI
    RET
LED:    DB 00H
PIC:    EQU 10H
ICW1:   EQU 00010110B
ICW2:   EQU 81H
MASK:   EQU 10011111B
EOI:    EQU 20H
PIT:    EQU 20H
CW2:    EQU 10110110B
N2: EQU EF38
TABVI:
    JMP RUTX
    NOP
    JMP RUTX
    NOP
    JMP RUTX
    NOP
    JMP RUTX
    NOP
    JMP RUTX
    NOP
    JMP RUTIM0
    JMP RUTX
    NOP
    JMP RUTX
    NOP
    JMP RUTX

RUTX:   PUSH PSW
    MVI A,EOI
    OUT PIC
    POP PSW
    EI
    RET

RUTIN0: PUSH PSW
    LDA SSEC
    INR A
    STA SSEC
    CPI 100
    JNZ REVINE
    XRA A
    STA SSEC
    LDA