196s20.asm

上课老师给的8086仿真器

$INCLUDE(8096.INC)
CSEG AT 2D50H
STARY:  LD 18H,#00E0H
        LDB IOC1,#0
        LDB IOC0,#0
        LDB 1AH,#20H
        STB 1AH,IOPORT2
        LD 1CH,#5
        LCALL DELAY
JDQ:    LDB 1AH,#0
        STB 1AH,IOPORT2
        LD 1CH,#25
        LCALL DELAY
        LDB 1AH,#20H
        STB 1AH,IOPORT2
        LD 1CH,#15
        LCALL DELAY
        SJMP JDQ
DELAY:  LD 1EH,#2000
DELAY1: DEC 1EH
        JNE DELAY1
        DEC 1CH
        JNE DELAY
        RET
        END