mp-testing/test2.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
.MODEL SMALL
.STACK
.DATA
        PA EQU 01190H
        PB EQU 01191H
        PC EQU 01192H
        CR EQU 01193H
.CODE
START:  MOV AX,@DATA
        MOV DS,AX
        MOV DX,CR
        MOV AL,82H
        OUT DX,AL
        MOV BL,00H
        MOV BH,01H
AGAIN:  MOV DX,PB
        IN AL,DX
        CMP AL,0FFH
        JZ UP
        CMP AL,0FEH
        JZ DOWN
        MOV AH,4CH
        INT 21H
UP:     MOV AL,BL
        CALL DISP
        ADD AL,01H
        DAA
        MOV BL,AL
        JMP AGAIN
DOWN:   MOV AL,BL
        CALL DISP
        SUB AL,01
        DAS
        MOV BL,AL
        JMP AGAIN
DISP:   MOV DX,PA
        OUT DX,AL
        CALL DELAY
        RET
DELAY:  MOV SI,055FFH
LOOP1:  MOV DI,0FFFFH
LOOP2:  DEC DI
        JNZ LOOP2
        DEC SI
        JNZ LOOP1
        RET
        END START