-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy patha12.asm
142 lines (113 loc) · 1.18 KB
/
a12.asm
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
129
130
131
132
133
134
135
136
137
138
139
140
141
142
.model tiny
.286
ORG 0100h
code segment
ASSUME CS:CODE,DS:CODE,ES:CODE
jmp trans
hr db ?
min db ?
sec db ?
resi:
push ax
push bx
push cx
push dx
push si
push di
push sp
push bp
push ss
push ds
push es
mov ax,0B800h
mov es,ax
mov di,3650
mov ah,02h
int 1Ah
mov cs:hr, ch
mov cs:min, cl
mov cs:sec, dh
;mov hr,min,sec to reg
mov bl,cs:[hr]
shr bl,04h
and bl, 0fh
add bl,30h
MOV bh,17H
mov es:[di],bx
inc di
inc di
mov bl,cs:[hr]
and bl, 0fh
add bl,30h
MOV bh,17H
mov es:[di],bx
inc di
inc di
mov al,':'
mov ah,97h
mov es:[di],ax
inc di
inc di
mov cl,cs:[min]
shr cl,04h
and cl, 0fh
add cl,30h
MOV ch,17H
mov es:[di],cx
inc di
inc di
mov cl,cs:[min]
and cl, 0fh
add cl,30h
MOV ch,17H
mov es:[di],cx
inc di
inc di
mov al,':'
mov ah,97h
mov es:[di],ax
inc di
inc di
mov cl,cs:[sec]
shr cl,04h
and cl, 0fh
add cl,30h
MOV ch,17H
mov es:[di],cx
inc di
inc di
mov cl,cs:[sec]
and cl, 0fh
add cl,30h
MOV ch,17H
mov es:[di],cx
pop es
pop ds
pop ss
pop bp
pop sp
pop di
pop si
pop dx
pop cx
pop bx
pop ax
jmp resi
trans:
mov ax,cs
mov ds,ax
cli
mov ah,35h
mov al,08h
int 21h
mov ah,25h
mov al,08h
mov dx,offset resi
int 21h
mov ah,31h
;mov al,00h
mov dx,offset trans
sti
int 21h
code ends
end