Assembler äëÿ íà÷èíàþùèõ


         

Çàïèñè - ÷àñòü 8


             0010  00000000               FILE_SIZE       DD      0           ; Ðàçìåð ôàéëà â áàéòàõ
             0014  0000             DATE        DW      0         ; Äàòà ïîñëåäíåãî èçìåíåíèÿ ôàéëà
             0016  000A[                  RESERVED          DB      10 DUP (?)      ; Çàðåçåðâèðîâàíî ÄÎÑ
                    ??
                               ]
 
             0020  00               SEQ_NUMBER      DB      0           ; Íîìåð çàïèñè â áëîêå
             0021  00000000               RANDOM_NUMBER   DD      0           ; Íîìåð çàïèñè â ôàéëå
             0025                   FCB     ENDS
 
             0000                   STACK   SEGMENT STACK
             0000  0040[                        DW      64 DUP (?)
                   ????
                               ]
 
             0080                   STACK   ENDS
 
             0000                   CODE    SEGMENT
                                          ASSUME  CS:CODE
 
             0000                   RECORDS           PROC    FAR
             0000  1E                     PUSH    DS              ; Çàíåñåíèå â ñòåê àäðåñà âîçâðàòà
             0001  B8 0000                      MOV     AX,0
             0004  50                     PUSH    AX
                                          ASSUME  DS:CODE               ; DS ôàéòè÷åñêè óêàçûâàåò íà PSP
             0005  BA 005C                      MOV     DX,05CH              ; Àäðåñ FCB â PSP
             0008  B4 0F                        MOV     AH,0FH               ; Îòêðûòü ôàéë
             000A  CD 21                        INT     21H
 
             000C  BB 005C                      MOV     BX,05CH              ; Àäðåñ FCB
             000F  8B 47 14                     MOV     AX,[BX].DATE
             0012  25 FE00                      AND     AX,MASK YEAR         ; Âûäåëåíèå ãîäà èç ïîëíîé äàòû
             0015  B9 0009                      MOV     CX,YEAR              ; Âûðàâíèâàíèå âïðàâî
             0018  D3 E8                        SHR     AX,CL



Ñîäåðæàíèå  Íàçàä  Âïåðåä