.model small
.data
        PA EQU 0e880h
        PB EQU 0e881h
        PC EQU 0e882h
        CWR EQU 0e883h
        FIRE DB 79H, 77H, 06H, 71H
        HELP DB 73H, 38H, 79H, 76H
.code
        MOV AX, @data
        MOV DS, AX
        MOV AL, 80H
        MOV DX, CWR
        OUT DX, AL
        MOV CX, 05
        NXTROUND:
                PUSH CX
                MOV CX, 0FFH
                NXTCYCLE:
                        PUSH CX
                        LEA SI, FIRE
                        MOV CX, 04
                        MOV AL, 00H
                        NXTDIGIT:
                                MOV DX, PC
                                OUT DX, AL
                                PUSH AX
                                MOV AL, [SI]
                                MOV DX, PA
                                OUT DX, AL
                                POP AX
                                INC AL
                                INC SI
                                CALL DELAY
                        LOOP NXTDIGIT
                        POP CX
                LOOP NXTCYCLE
                MOV CX, 0FFH
                NXTCYCLE1:
                        PUSH CX
                        LEA SI, HELP
                        MOV CX, 04
                        MOV AL, 00H
                        NXTDIGIT1:
                                MOV DX, PC
                                OUT DX, AL
                                PUSH AX
                                MOV AL, [SI]
                                MOV DX, PA
                                OUT DX, AL
                                POP AX
                                INC AL
                                INC SI
                                CALL DELAY
                         LOOP NXTDIGIT1
                         POP CX
                LOOP NXTCYCLE1
                POP CX
        LOOP NXTROUND
        INT 3
        DELAY PROC
                PUSH CX
                MOV CX, 0FFFH
                OUTER: MOV BX, 0FFH
                INNER:
                NOP
                NOP
                NOP
                NOP
                DEC BX
                JNZ INNER
                LOOP OUTER
                POP CX
                RET
        DELAY ENDP
END