-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathTASK 6
More file actions
59 lines (53 loc) · 681 Bytes
/
TASK 6
File metadata and controls
59 lines (53 loc) · 681 Bytes
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
CODE SEGMENT
ASSUME CS:CODE , DS:CODE , ES:CODE , SS:CODE;
PPIC_C EQU 1FH
PPIC EQU 1DH
PPIB EQU 1BH
PPIA EQU 19H ;
ORG 1000H
MOV AL , 10000000B
OUT PPIC_C , AL ;
MOV AL ,11111111B
OUT PPIA ,AL ;
MOV AL , 00000000B
OUT PPIC , AL ;
; RED 3S
L1: MOV AL, 11110001B
OUT PPIB , AL
CALL TIMER
CALL TIMER
CALL TIMER
; YELLOW 3 TIMES
MOV BL, 3
L2: MOV AL, 11110100B
OUT PPIB , AL
CALL TIMER
MOV AL, 11110000B
OUT PPIB , AL
CALL TIMER
DEC BL
JNZ L2
; GREEN 5S
MOV AL, 11110010B
OUT PPIB , AL
CALL TIMER
CALL TIMER
CALL TIMER
CALL TIMER
CALL TIMER
JMP L1
;
INT 3
TIMER: MOV CX, 1
TIMER2: PUSH CX
MOV CX,0
TIMER1: NOP
NOP
NOP
NOP
LOOP TIMER1
POP CX
LOOP TIMER2
RET ;
CODE ENDS
END