ايران ويج

نسخه‌ی کامل: اگر کاراکتر بزرگ بود کوچک کن و اگر کوچک بود بزرگ کن.
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
کد:
DSEG    SEGMENT 'DATA'
      ; add your data here!
      CCCP LABEL BYTE
      MAX DB 20
      LEN DB ?
      BUFFER DB 20 DUP ('$'),'$'
DSEG    ENDS

SSEG    SEGMENT STACK   'STACK'
      db   256  DUP(0)
SSEG    ENDS

CSEG    SEGMENT 'CODE'
   START   PROC    FAR
      ; set segment registers:
      MOV AX, DSEG
      MOV DS, AX
      MOV ES, AX


      ; add your code here
      
      MOV AH,0AH
      LEA DX,CCCP
      INT 21H
      
      
      MOV CL,LEN
      MOV CH,0
      
      LEA SI,BUFFER
      
      L:
      
      CMP [SI],41h
      Jb L1
      CMP [SI],7AH
      JG L1
      CMP [SI],5AH
      JBE L2
      CMP [SI],61H
      JGE L3
      JMP L1
      
      L2:
      ADD [SI],20H
      JMP L1
      L3:
      SUB [SI],20H
      L1:
      INC SI
      LOOP L
      
          
        


          
      mov ah,09h
      lea dx,BUFFER
      int 21h



      
      
      MOV AX, 4C00h ; exit to operating system.
      INT 21h    
   START   ENDP
CSEG    ENDS
END    START    ; set entry point.