"С.П.Расторгуев, А.Е.Долгин "Как защитить информацию" (пособие по борьбе с хакерами)" - читать интересную книгу автора

│ ────────── │
│ 1 0000 code segment para public │
│ 2 assume cs:code,ds:code │
│ 3 │
│ 4 0000 sample proc │
│ 5 │
│ 6 0000 FA cli │
│ 7 0001 BA 0043 mov dx,43h ; включить 0-й канал │
│ 8 0004 B0 34 mov al,34h ; таймера │
│ 9 0006 EE out dx,al │
│10 0007 B2 40 mov dl,40h ; задать начальное │
│11 0009 8A C6 mov al,dh ; значение счетчика │
│12 000B EE out dx,al │
│13 000C EE out dx,al │
│15 ;======================================= │
│16 000D 33 F6 xor si,si ; │
│17 000F 8B FE mov di,si ; Здесь может быть │
│18 0011 B9 8000 mov cx,8000h ; расположен любой │
│19 0014 FC cld ; ваш текст │
│20 0015 F3> A5 rep movsw ; │
│21 ;======================================= │
│23 0017 BA 0043 mov dx,43h ; зафиксировать текущее │
│24 001A B0 04 mov al,4 ; значение счетчика │
│25 001C EE out dx,al │
│26 001D B2 40 mov dl,40h ; считать значение счетчика │
│27 001F EC in al,dx ; в AX │
│28 0020 8A E0 mov ah,al │
│29 0022 EC in al,dx │
│30 0023 86 E0 xchg ah,al │
│31 0025 FB sti │
│32 │
│33 ; здесь должна быть проверка считанного значения │
│34 │
│35 0026 B8 4C00 mov ax,4c00h │
│36 0029 CD 21 int 21h │
│37 │
│38 002B sample endp │
│39 002B code ends │
│40 end sample │
│ │
│ BASIC: │
│ ────── │
│100 OUT &H43, &H34 │
│110 OUT &H40, 0 │
│120 OUT &H40, 0 │
│ . . . . . . . . . . . . . . . . . . . │
│ │
│ ' Текст замеряемого участка программы │
│ │
│ . . . . . . . . . . . . . . . . . . . │