Как пишется программа на Ассемблере?

[ThePowerOfTheMind]

Здравствуйте. Недавно начал изучать ассемблер.

У меня к вам просьба - напишите программу (любую), используя данный шаблон. Желательно - на FASM. И напишите, что она делает. Спасибо.

TITLE proga1
DATA SEGMENT
;.............
DATA ENDS

STCK SEGMENT STACK
;...............
db 256 DUP(?)
STCK ENDS

CODE SEGMENT PARA PUBLIC 'code'
assume cs:code, ds:data, ss:stk

;................

main proc

mov AX,DATA
mov DS,AX

;..................

mov ax, 4C00h
int 21h

main endp
code ends
end main

[Ivan_32]

TITLE progam1 ;
DATA SEGMENT
message db "Hello world from DOS Fasm$"
DATA ENDS

STCK SEGMENT STACK
;...............
db 256 DUP(?)
STCK ENDS

CODE SEGMENT PARA PUBLIC 'code'
assume cs:code, ds:data, ss:stсk

main proc
mov AX,DATA
mov DS,AX

mov dx,message
mov ah,9
int 21h 
mov ax, 4C00h
int 21h

main endp
code ends
end main

Функция 9 прерывания 21 выводит на экран строку по адресу взятому из DX.

[ThePowerOfTheMind]

Спасибо, Ivan. Жду еще нескольких ответов чтобы написать что-то поистине революционное.

[FreedomFighter]

.286
     TITLE    EXMOVE (EXE)   ђ*биЁаҐ***п ЇҐаҐбл«Є*
     ;-------------------------------------------------------
     STACKSG  SEGMENT  PARA  STACK  'Stack'
              DW       32  DUP(?)
     STACKSG  ENDS
     ;-------------------------------------------------------
     DATASG   SEGMENT  PARA  'Data'
     NAME1    DB       'ABCDEFGHI'
     NAME2    DB       'JKLMNOPQR'
     NAME3    DB       'STUVWXYZ*'
     DATASG   ENDS
     ;--------------------------------------------------------
     CODESG   SEGMENT  PARA  'Code'
     BEGIN    PROC     FAR
              ASSUME   CS:CODESG,DS:DATASG,SS:STACKSG,ES:DATASG
              PUSH     DS            ;‡*ЇЁб*вм DS ў б⥪
              SUB      AX,AX         ;‡*ЇЁб*вм ў б⥪
              PUSH     AX            ;*г«Ґў®© *¤аҐб
              MOV      AX,DATASG     ;Џ®¬ҐбвЁвм *¤аҐб DATASG
              MOV      DS,AX         ;ў ॣЁбва DS
              MOV      ES,AX
              CALL     B1OMOVE       ;‚л§ў*вм Ї/Ї
              CALL     C1OMOVE       ;‚л§ў*вм Ї/Ї
              RET                    ;‚Ґа*гвмбп ў DOS
     BEGIN    ENDP

     ;        ђ*биЁаҐ***п ЇҐаҐбл«Є*,
     ;        ЁбЇ®«м§гой*п ЇҐаҐе®¤ Ї® гб«®ўЁо:
     ;------------------------------------------------------------
     B1OMOVE  PROC
              LEA      SI,NAME1       ;€*ЁжЁ*«Ё§*жЁп *¤аҐб®ў
              LEA      DI,NAME2       ;NAME1 Ё NAME2
              MOV      CX,09          ;ЏҐаҐб«*вм 9 бЁ¬ў®«®ў
     B20:     MOV      AL,[SI]        ;ЏҐаҐб«*вм Ё§ NAME1
              MOV      [DI],AL        ;ЏҐаҐб«*вм ў NAME2
              INC      SI             ;‘«Ґ¤гой.бЁ¬ў.ў NAME1
              INC      DI             ;‘«Ґ¤гой.Ї®§. ў NAME2
              DEC      CX             ;“¬Ґ*миЁвм бз. жЁЄ«*
              JNZ      B20            ;‘зҐвзЁЄ > 0? „*-жЁЄ«
              RET                     ;…б«Ё бзҐвзЁЄ = 0, в® ўҐа*гвмбп
     B1OMOVE  ENDP

     ;        ђ*биЁаҐ***п ЇҐаҐбл«Є*,
     ;        ЁбЇ®«м§гой*п Є®¬**¤г LOOP
     ;----------------------------------------------------------------
     C1OMOVE  PROC
              LEA      SI,NAME2        ;€*ЁжЁ*«Ё§*жЁп *¤аҐб®ў
              LEA      DI,NAME3        ;NAME2 Ё NAME3
              MOV      CX,09           ;ЏҐаҐб«*вм 9 бЁ¬ў®«®ў
     C20:     MOV      AL,[SI]         ;ЏҐаҐб«*вм Ё§ NAME2
              MOV      [DI],AL         ;ЏҐаҐб«*вм ў NAME3
              INC      SI              ;‘«Ґ¤гой.бЁ¬ў.ў NAME2
              INC      DI              ;‘«Ґ¤гой.Ї®§. ў NAME3
              LOOP     C20             ;“¬Ґ*миЁвм бзҐвзЁЄ,
                                       ;Ґб«Ё *Ґ 0, в® жЁЄ«
              RET                      ;…б«Ё бзҐвзЁЄ = 0, в® ўҐа*гвмбп
     C1OMOVE  ENDP
     CODESG   ENDS
              END      BEGIN

Эта прога выдает лат. алфавит и *. помогите сделать так чтобы четные буквы обнулились, короче: было ABCDEFGHIJKLMNOPQRSTUVWXYZ* должно быть A.C.E.G.I.K.M.O.Q.S.U.W.Y.*

Помогите плиз....

иероглифы - это коменты, глюк кодировки, не суть важно...