mp-testing/test5.asm at master · melrick8196/mp-testing · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
.MODEL SMALL
.STACK
.DATA
        PA EQU 01190H
        PB EQU 01191H
        PC EQU 01192H
        CR EQU 01193H
        CLEAR DB 0FFH,0FFH,0FFH,0FFH
        FIRE DB 61H,11H,9FH,71H,01H,11H,9FH,71H,61H,11H,9FH,71H
        N DB 10H
.CODE
START:  MOV AX,@DATA
        MOV DS,AX
        MOV DX,CR
        MOV AL,80H
        OUT DX,AL
        MOV AL,00H
        MOV DX,PC
        OUT DX,AL
        LEA BX,CLEAR
        MOV SI,03H
        CALL DISW
        CALL DELAY
        LEA BX,FIRE
        MOV SI,0BH
        CALL DISW
        MOV AH,4CH
        INT 21H
DISW:   MOV AH,[BX][SI]
        CALL DISP
        CALL DELAY
        DEC SI
        JNS DISW
        RET
DISP:   MOV CL,08H
BACK:   MOV DX,PB
        MOV AL,AH
        OUT DX,AL
        MOV DX,PC
        MOV AL,01H
        OUT DX,AL
        MOV AL,00H
        OUT DX,AL
        ROR AH,01H
        DEC CL
        JNZ BACK
        RET
DELAY:  MOV SI,0FFFFH
BACK2:  MOV DI,0FFFFH
BACK3:  DEC DI
        JNZ BACK3
        DEC SI
        JNZ BACK2
        RET
        END START