mp-testing/test1.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
.MODEL SMALL
.STACK
.DATA
        PA EQU 01190H
        PB EQU 01191H
        PC EQU 01192H
        CR EQU 01193H
        M1 DB "NO OF 1S =",13,10,"$"
        M2 DB "PRESS Q TO QUIT ANY OTHER TO CONTINUE",13,10,"$"
.CODE
START:  MOV AX,@DATA
        MOV DS,AX
        MOV DX,CR
        MOV AL,82H
        OUT DX,AL
BACK:   MOV DX,PB
        IN AL,DX
        MOV BL,00H
        MOV CL,08H
AGAIN:  ROR AL,01H
        JNC NEXT
        INC BL
NEXT:   DEC CL
        JNZ AGAIN
        MOV DX,PA
        TEST BL,01H
        JNZ ODD
        MOV AL,0FFH
        OUT DX,AL
        JMP EXIT
ODD:    MOV AL,00H
        OUT DX,AL
EXIT:   LEA DX,M1
        MOV AH,09H
        INT 21H
        ADD BL,30H
        MOV DL,BL
        MOV AH,02H
        INT 21H
	LEA DX,M2
        MOV AH,09H
        INT 21H
        MOV AH,07H
        INT 21H
        CMP AL,"Q"
        JNZ BACK
        MOV AH,4CH
        INT 21H
        END START