Информационно-развлекательный портал Глазова

Тема оттуда была перенесена сюда.


Моё сообщение после сообщения Azazel'я:

FILL пишет:

AzazeL пишет:

Настоящий программист никогда не ставит комментариев. То, что писалось с трудом, должно пониматься с трудом.

Ой, про меня

А кстати, ты на чём програмишь? Я на PHP и изредка на Delphi.

К чему спор всё-равно выши проги написанные на сях или паскале приходят к ассемблеру.
Ассемблер рулит :thumbright:
СОМ файлы рулятЪ

Код: Выделить всё

.model tiny
.code
org 100h
start:
a:
call time
mov ah, 01h
int 16h
jz a
cmp ah, 1h
jz br
xor ah,ah
int 16h
jmp a
b:
br:
call time
ret
time proc near
mov ah,02h
int 1ah
push dx
mov bx, offset curtime + 8
and dh, 0fh
add dh, '0'
mov [bx], dh
pop dx
shr dh, 4
add dh, '0'
mov bx, offset curtime + 7
mov [bx], dh
push cx
mov bx, offset curtime + 5
and cl,0fh
add cl,'0'
mov [bx], cl
pop cx
push cx
shr cl,4
add cl,'0'
mov bx, offset curtime + 4
mov [bx],cl
pop cx
push cx
mov bx, offset curtime + 2
and ch,0fh
add ch,'0'
mov [bx], ch
pop cx
shr ch,4
add ch,'0'
mov bx, offset curtime + 1
mov [bx] , ch
mov ah,06h
mov dx,0000h
mov cl,79h
mov ch,24h
mov bh,07h
mov al,00h
int 10h
mov dx, offset curtime
mov ah, 9
int 21h
ret
time endp
curtime db '>:::::::',0ah,0dh,'$'
decimal db '0123456789'
end start

Прога - часы
Всего 161 байт

Код: Выделить всё

и ґ
НtчЂь
t2дНлми
ГґНR»”
ЂжЂЖ0€7ZРоРоРоРоЂЖ0»“
€7Q»‘
ЂбЂБ0€YQРйРйРйРйЂБ0»ђ
€YQ»Ћ
ЂеЂЕ0€/YРнРнРнРнЂЕ0»Ќ
€/ґє  ±yµ$·° НєЊ
ґ   Н!Г>:::::::

$0123456789