-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathTASK 4
More file actions
128 lines (110 loc) · 2.85 KB
/
TASK 4
File metadata and controls
128 lines (110 loc) · 2.85 KB
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
CODE SEGMENT
ASSUME CS:CODE,DS:CODE,ES:CODE,SS:CODE
PPIC_C EQU 1EH
PPIC EQU 1CH
PPIB EQU 1AH
PPIA EQU 18H
ORG 1000H
MOV AL,10000000B
OUT PPIC_C,AL
MOV AL,11111111B
OUT PPIA,AL
L1: MOV SI,OFFSET FONT1
MOV BL,8 ; font No.
L3: MOV BH,30 ; display time
L2: PUSH SI
CALL SCAN
POP SI
DEC BH
JNZ L2
ADD SI,8
DEC BL
JNZ L3
JMP L1
INT 3
SCAN PROCNEAR
MOV AH,00000001B
SCAN1: MOV AL,BYTE PTR CS:[SI]
OUT PPIB,AL
MOV AL,AH
OUT PPIC,AL
CALL TIMER
INC SI
CLC
ROL AH,1
JNC SCAN1
RET
SCAN ENDP
TIMER: MOV CX,300
TIMER1:NOP
NOP
NOP
NOP
LOOP TIMER1
RET
FONT1: DB 11111111B
DB 11111111B
DB 11111110B
DB 11111101B
DB 11111011B
DB 11111101B
DB 11111110B
DB 11111111B
FONT2: DB 11111111B
DB 11111111B
DB 11111101B
DB 11111011B
DB 11110111B
DB 11111011B
DB 11111101B
DB 11111111B
FONT3: DB 11111111B
DB 11111111B
DB 11111011B
DB 11110111B
DB 11101111B
DB 11110111B
DB 11111011B
DB 11111111B
FONT4: DB 11111111B
DB 11111111B
DB 11110111B
DB 11101111B
DB 11011111B
DB 11101111B
DB 11110111B
DB 11111111B
FONT5: DB 11111111B
DB 11111111B
DB 11101111B
DB 11011111B
DB 10111111B
DB 11011111B
DB 11101111B
DB 11111111B
FONT6: DB 11111111B
DB 11111111B
DB 11011111B
DB 10111111B
DB 01111111B
DB 10111111B
DB 11011111B
DB 11111111B
FONT7: DB 11111111B
DB 11111111B
DB 10111111B
DB 01111111B
DB 11111110B
DB 01111111B
DB 10111111B
DB 11111111B
FONT8: DB 11111111B
DB 11111111B
DB 01111111B
DB 11111110B
DB 11111101B
DB 11111110B
DB 01111111B
DB 11111111B
CODE ENDS
END