.model  small
      .data           
      .code
x:    mov ax,@data   
      mov ds,ax
      call oho1    
y:    mov ah,4ch     
      int 21h
; === procedure ===
oho1 proc near      
      mov ah,2h     
      mov dl,41h      
      int 21h      
      ret
oho1 endp
      .stack  200h    
      end x

      .model  small
      .data           
      .code
x:    mov ax,@data   
      mov ds,ax
      call oho1   
      call oho2
      call oho1   
      call oho2      
y:    mov ah,4ch     
      int 21h
; === procedure ===
oho1 proc near      
      mov ah,2h     
      mov dl,41h      
      int 21h      
      ret
oho1 endp
oho2 proc near      
      mov ah,2h     
      mov dl,61h      
      int 21h      
      ret
oho2 endp
      .stack  200h    
      end x

helloa  macro
        mov     ah,2
        mov     dl,41h
        int     21h
        endm
; === end of macro ===
        .model  small
        .data
        .code
pmain   proc    far      
        push    ds      ; 1 of 5 line required for .exe
        mov     ax,0    ; 2 clear ax by xor  ax,ax
        push    ax      ; 3 send ax to stack
        mov     ax,@data
        mov     ds,ax
        helloa
        ret
pmain   endp
        .stack  200h    ; not required (if have, will not warning in link)
        end     pmain

setproc macro
        push    ds      ; 1 of 5 line required for .exe
        mov     ax,0    ; 2 clear ax by xor  ax,ax
        push    ax      ; 3 send ax to stack
        mov     ax,@data
        mov     ds,ax
        endm	
prtout  macro
        mov     ah,9
        lea     dx,msg
        int     21h
        endm
; =============
; Main program
; =============
        .model  small
        .data
msg     db      'This is the program testing $'
        .code
pmain   proc    far     ; can not change far to near 
        setproc
        prtout
        ret
pmain   endp
        .stack  200h    ; not required
        end     pmain

love    macro
        mov     bl,01h
        add     al,bl
        mov     sum,al
        mov     dl,sum
        mov     ah,2
        int     21h
        endm
; =============
; Main program
; =============
        .model  small
        .data
n       db      30h
sum     db  ?
        .code
pmain   proc    far     ; can not change far to near 
        push    ds      ; 1 of 5 line required for .exe
        mov     ax,0    ; 2 clear ax by xor  ax,ax
        push    ax      ; 3 send ax to stack
        mov     ax,@data
        mov     ds,ax
        mov     al,n
        love
        love
        love
        love
        love
        love
pmain   endp
        end     pmain

jack  macro
      mov    al,cl
      mov    bl,01h
      add    al,bl
      mov    sum,al
      mov    dl,sum
      mov    ah,2
      int    21h
      mov    cl,al
      lea    dx,lf
      mov    ah,9
      int    21h
      endm
mary  macro
      mov    dl,31h
      mov    ah,2
      int    21h
      mov    dl,bl
      mov    ah,2
      int    21
      mov    al,cl
      mov    bl,01h
      add    al,bl
      mov    sum,al
      mov    dl,sum
      mov    ah,2
      int    21h
      mov    cl,al
      lea    dx,lf
      mov    ah,9
      int    21h
      endm
; =============
; Main program
; =============
      .model small
      .data
n1    db     30h
n2    db     2fh
last1 db     39h
last2 db     35h
lf    db     0dh,0ah,'$'
sum   db     ?
      .code
pmain proc   far     ; can not change far to near 
      push   ds      ; 1 of 5 line required for .exe 
      mov    ax,0    ; 2 clear ax by xor  ax,ax
      push   ax      ; 3 send ax to stack
      mov    ax,@data
      mov    ds,ax
      mov    cl,n1
boy:  jack
      cmp    cl,last1
      jl     boy
      mov    cl,n2
girl: mary
      cmp    cl,last2
      jl     girl
      ret
pmain endp
      .stack 10h
      end    pmain

burin1	macro
	mov     ah,2
        mov     dl,43h ; C
        int     21h
	endm
	.model  small
        .data
        .code
pmain   proc    far      
        push    ds     
        mov     ax,0   
        push    ax     
        mov     ax,@data
        mov     ds,ax
        mov     ah,8
        int     21h
        cmp     al,61h ; a
	je      work1
        jmp     bye
work1:  burin1
bye:    ret
pmain   endp
        .stack  200h   
        end     pmain

; ตัวอย่างการย้ายบางส่วนของโปรแกรมมาไว้ใน macro   
; โปรแกรมนี้ ได้แยกการทำงาน readnext ที่ทำงานเหมือนกันแต่เขียนต่างกันไว้ คือ encrypt เขียน readnext ใน label
; แต่ decrypt จะเขียน readnext ออกมาเป็นอีก macro หนึ่ง เป็นการทำงานร่วมกันของ burin3 และ burin4
; เขียนบล็อก http://www.thaiall.com/blog/burin/3691/
burin4 macro ; move readnext1 in macro
      mov ah,3fh  ; อ่านข้อมูลที่ handle ไว้ เข้ามาในหน่วยความจำ 512 Bytes
      mov bx,handle
      mov cx,512     
      lea dx,buffer  
      int 21h

      jc err_out1 ; ถ้าอ่านได้ จะทำให้ carry เป็น 0

      mov save_ax,ax  ; ค่าของ ax คือจำนวนไบท์ที่อ่านได้
      cmp ax,0     
      je done4  ; ถ้ากระโดดไป แสดงว่าจบแฟ้ม เพราะขนาดของ ax = 0     	  
      call decorrupt 

      mov ah,40h     ; เขียนข้อมูลขนาดเท่า save_ax ลงไปใน newhandle    
      mov bx,newhandle
      mov cx,save_ax
      lea dx,buffer  ; ข้อมูลที่ผ่านการยกเลิกแผลงหรือไขว้ (decorrupt) มาแล้ว  
      int 21h

      jc err_out1    ; ถ้าเขียนได้ จะทำให้ carry เป็น 0    
      jmp readnext1  ; กระโดดไปเริ่มอ่านข้อมูลต่อจากจุดเดิม  
	endm

burin3 macro ; move decr in macro
      call disp_nl   
      mov ah,9 ; แสดงข้อความว่า รับชื่อแฟ้มที่ต้องการ DECRYPT   
      lea dx,s3
      int 21h

      lea dx,fname   ; กำหนดชื่อแฟ้มอ้างอิง เมื่อรับผ่านแป้นพิมพ์
      call getname   

      mov ah,3dh  ; เปิดแฟ้มข้อมูล
      lea dx,fname+2
      mov al,0
      int 21h

      mov handle,ax  ; เก็บตำแหน่งอ้างอิงแฟ้ม
      jc err_out  ; ถ้าเปิดได้ จะทำให้ carry เป็น 0

      mov ah,9     ; แสดงข้อความว่า รับชื่อแฟ้มที่ต้องการ DECRYPT     
      lea dx,s33
      int 21h

      lea dx,newf1  ; กำหนดชื่อแฟ้มอ้างอิง เมื่อรับผ่านแป้นพิมพ์ 
      call getname  
	  
      mov ah,3ch ;  สร้างไฟล์ใหม่    
      lea dx,newf1+2
      mov cx,0
      int 21h

      mov newhandle,ax ; เก็บตำแหน่งอ้างอิงแฟ้ม 
      jc err_out  ; ถ้าสร้างได้ จะทำให้ carry เป็น 0  
	endm

burin2 macro ; move encr in macro
      call disp_nl   

      mov ah,9   ; แสดงข้อความว่า รับชื่อแฟ้มที่ต้องการ ENCRYPT  
      lea dx,s2
      int 21h

      lea dx,fname ; กำหนดชื่อแฟ้มอ้างอิง เมื่อรับผ่านแป้นพิมพ์
      call getname   

      mov ah,3dh ; เปิดแฟ้มข้อมูล    
      lea dx,fname+2 
      mov al,0     
      int 21h      

      mov handle,ax  ; เก็บตำแหน่งอ้างอิงแฟ้ม
      jc err_out2  ; ถ้าเปิดได้ จะทำให้ carry เป็น 0

      mov ah,9  ; แสดงข้อความว่า รับชื่อแฟ้มที่ต้องการ ENCRYPT    
      lea dx,s22 
      int 21h

      lea dx,newf1 ; กำหนดชื่อแฟ้มอ้างอิง เมื่อรับผ่านแป้นพิมพ์
      call getname   

      mov ah,3ch ; สร้างไฟล์ใหม่    
      lea dx,newf1+2 
      mov cx,0     
      int 21h      

      mov newhandle,ax ; เก็บตำแหน่งอ้างอิงแฟ้ม 
      jc err_out  ; ถ้าสร้างได้ จะทำให้ carry เป็น 0  

readnext:
      mov ah,3fh  ; อ่านข้อมูลที่ handle ไว้ เข้ามาในหน่วยความจำ 512 Bytes   
      mov bx,handle  
      mov cx,512     
      lea dx,buffer 
      int 21h      

      jc err_out  ; ถ้าอ่านได้ จะทำให้ carry เป็น 0

      mov save_ax,ax ; ค่าของ ax คือจำนวนไบท์ที่อ่านได้
      cmp ax,0     
      je done1 ; ถ้ากระโดดไป แสดงว่าจบแฟ้ม เพราะขนาดของ ax = 0     

      call corrupt   

      mov ah,40h ; เขียนข้อมูลขนาดเท่า save_ax ลงไปใน newhandle    
      mov bx,newhandle      
      mov cx,save_ax 
      lea dx,buffer ; ข้อมูลที่ผ่านการ แผลงหรือไขว้ (corrupt) มาแล้ว  
	  int 21h      

      jc err_out ; ถ้าเขียนได้ จะทำให้ carry เป็น 0    
      jmp readnext ; กระโดดไปเริ่มอ่านข้อมูลต่อจากจุดเดิม  
      err_out2: jmp err_out
     endm

burin1 macro ; move rpt_disp in macro
      mov ah,9  ; แสดงคำว่า E หรือ D
      lea dx,s1 
      int 21h

      mov ah,1  ; รับตัวอักษร 1 ตัว   
      int 21h

      cmp al,'E'     
      je encr  ; กระโดดไปยัง encr (ENCRYPT)
      cmp al,'e'
      je encr

      cmp al,'D'     
      je decr2 ; กระโดดไปยัง decr2 (DECRYPT)
      cmp al,'d'
      je decr2

      cmp al,'X'     
      je stop2
      cmp al,'x'
      je stop2

      mov ah,9  ; แสดงข้อความว่าตัวเลือกที่ส่งมา ไม่ถูกต้อง   
      lea dx,s4 
      int 21h

      jmp rpt_disp   
     endm

	.model  small
      .data      
s0      db      0dh,0ah,'PROGRAM FOR FILE ENCRYPTION AND DECRYPTION ..By Kailas Jagtap$'
s1      db      0dh,0ah,'Do you want to ENCRYPT(E) or DECRYPT(D) a file ? : $'
s2      db      0dh,0ah,'Enter Name of File(to be encrypted): $'
s22     db      0dh,0ah,'Enter Name of File(which will store encrypted data): $'
s3      db      0dh,0ah,'Enter Name of encrypted File(to be decrypted): $'
s33     db      0dh,0ah,'Enter Name of File(which will store decrypted data): $'
s4      db      0dh,0ah,'***************** ERROR!!! - INVALID INPUT ****************** $'
s44     db      0dh,0ah,'***************** ERROR IN FILE OPERATION !!!!!! ************ $'
s5      db      0dh,0ah,'$'
s6      db      0dh,0ah,'.............. File ENCRYPTED Successfully ! ................. $'
s7      db      0dh,0ah,'.............. File DECRYPTED Successfully ! ................. $'
fname   db      80     
        db      0      
        db      80 dup(0)      
newf1   db      80     
        db      0      
        db      80 dup(0)     
save_ax dw      1 dup(0)      
buffer  db      512 dup(0)      
endbuffer db    '$'    
handle  dw      ?      
newhandle dw    ?      

      .code
start: 
      mov ax,@data   
      mov ds,ax

      call disp_nl   
      mov ah,9     
      lea dx,s0 
      int 21h

rpt_disp: burin1
decr2:  jmp decr1      
stop2:  jmp stop1      
encr:   burin2      
decr1:  jmp decr     
stop1:  jmp stop     
done1:  lea dx,s6   ; พิมพ์ว่า การเข้ารหัส สำเร็จลุล่วงไปด้วยดี   
      jmp done3
done2:  lea dx,s7   ; พิมพ์ว่า การถอดรหัส สำเร็จลุล่วงไปด้วยดี      
done3:  mov ah,9 
      int 21h      
      jmp done
stop:   mov ah,4ch     
      int 21h


getname proc near
      mov ah,0ah   ; รับข้อมูล String จากแป้มพิมพ์  
      int 21h      

      mov si,dx  ; บันทึกตำแหน่งของชื่อแฟ้มที่รับจากแป้นพิมพ์    
      mov bl,[si+1]  
      add si,02      
      sub bh,bh      
      mov BYTE PTR[si+bx],0     

      ret      
getname endp
     
err_out: 
      mov ah,9    
      lea dx,s44 ; การดำเนินการกับแฟ้ม ผิดพลาด
      int 21h
      jmp stop     

done: 
      mov ah,3eh  ; ปิดแฟ้มให้เรียบร้อย ก่อนจบการทำงาน
      mov bx,handle  
      int 21h      
      mov bx,newhandle      
      int 21h      
      jmp stop     

done4:  
      jmp done2      
  
corrupt proc near      
      lea si,buffer ; ส่งตำแหน่ง buffer ให้ si (Load effective adress)
      mov cx,save_ax ; ค่า cx คู่กับ loop บอกว่า จะให้ทำใน loop กี่รอบ
again: 
      mov al,[si] ; สำเนาค่าของ si ที่ตำแหน่งปัจจุบัน ให้กับ al     
      add al,07h ; บวกอีก 7 ให้กับ al เช่นเดิมคือ a ก็จะเป็น  h  
      mov [si],al ; ส่งผลการ corrupt ไปแทนค่าในตำแหน่งเดิม   
      inc si ; ตรวจ    
      loop again     
      ret
corrupt endp
  
err_out1: jmp err_out
decr:   burin3
readnext1: burin4

decorrupt proc near    
      lea si,buffer ; ส่งตำแหน่ง buffer ให้ si (Load effective adress) 
      mov cx,512 ; ค่า cx คู่กับ loop บอกว่า จะให้ทำใน loop กี่รอบ
again1: 
      mov al,[si] ; สำเนาค่าของ si ที่ตำแหน่งปัจจุบัน ให้กับ al     
      sub al,07h ; ลบอีก 7 ให้กับ al เช่นเดิมคือ 8 ก็จะเป็น  1  
      mov [si],al ; ส่งผลการ corrupt ไปแทนค่าในตำแหน่งเดิม  
      inc si
      loop again1
      ret
decorrupt endp

disp_nl proc near      
      mov ah,9     
      lea dx,s5      
      int 21h      
      ret
disp_nl endp


      .stack  200h
      end      start