随心的Win32汇编作业本

DATAS  SEGMENT
     STRING  DB  'Hello Wowrld!',13,10,'$'    ;原来13 10是回车换行...
DATAS  ENDS

CODES  SEGMENT
     ASSUME    CS:CODES,DS:DATAS
START:
     MOV  AX,DATAS
     MOV  DS,AX
     LEA  DX,STRING
     MOV  AH,9
     INT  21H
   
     MOV  AH,4CH
     INT  21H
CODES  ENDS
    END   START

;数据段
DATAS  SEGMENT
     STRING  DB  'Hello Wowrld!',13,10,'$';定义一个字符串,13,10是回车换行的意思,字符串以'$'结尾
DATAS  ENDS

;代码段
CODES  SEGMENT
     ASSUME    CS:CODES,DS:DATAS    ;指定各段使用的寄存器
START:    ;程序开始
     MOV  AX,DATAS    ;开始数据段寻址
     MOV  DS,AX        ;mov指令不能直接将数据段地址直接写入DS,只能通过寄存器来写入
     
     
     LEA  DX,STRING    ;得到字符串变量地址
     MOV  AH,9
     INT  21H        ;调用21H中断的9号功能,用来显示字符串,好比C语言的puts();
   
     MOV  AH,4CH
     INT  21H        ;调用21H的4C功能,返回操作系统(DOS)
CODES  ENDS            ;;代码段结束
    END   START        ;;;指明程序的入口地址,相当于C里的main();    

INCLUDE MACROOUT.LIB    ;调用汇编宏库
DATAS SEGMENT
    STRING  DB 'Hello World',13,10,'$'
DATAS ENDS
CODES SEGMENT
    ASSUME CS:CODES,DS:DATAS
START:
    MOV AX,DATAS
    MOV DS,AX        ;数据段寻址
   
    OUTPUT STRING    ;调用OUTPUT宏来输出字符串
    MOV AH,4CH
    INT 21H
CODES ENDS

    END START

;***********   
  data segment   
  result dw ?   
  data ends   
  ;***********   
  code segment   
  assume cs:code,ds:data  
   
start:   
  push ds       ;
  sub ax,ax   
  push ax   
   
  mov ax,data     ;数据段寻址  
  mov ds,ax   
   
  mov cx,100      ;CX自动计数
  sub   ax,ax      ;清空AX,
lop:   
  inc ax   
  add bx,ax   
  loop lop       ;累加
   
  mov result,bx   ;保存结果
   
  mov ch,4
   
aa:   
  mov cl,4   
  rol bx,cl       ;取bx高4位
  
  mov al,bl       ;从这以后就看不明白了??????
  and al,0fh   
  add al,30h   
  cmp al,3ah   
  jl printit   
  add al,7h   
  
printit:  
  mov dl,result   
  mov ah,2   
  int 21h   
  dec ch   
  jnz aa   
   
  retf   
  code ends   
  ;***********   
  end start

;***********   
  data segment   
  result dw ?   
  data ends   
  ;***********   
  code segment   
  assume cs:code,ds:data  
   
start:   
  push ds       ;
  sub ax,ax   
  push ax   
   
  mov ax,data     ;数据段寻址  
  mov ds,ax   
   
  mov cx,100      ;CX自动计数
  sub   ax,ax      ;清空AX,
lop:   
  inc ax   
  add bx,ax   
  loop lop       ;累加
   
  mov result,bx   ;保存结果
   
  mov ch,4
   
aa:   
  mov cl,4   
  rol bx,cl       ;取bx高4位
  
  mov al,bl       ;
  and al,0fh       ;
  add al,30h       ; 转化成ASCLL码
  cmp al,3ah       ; 是否小于'9'
  jl printit       ; 如果是,打印出来
  add al,7h       ; 加7就变成A B C D E F等值
  
printit:  
  mov dl,result   ; 把结果放入dl
  mov ah,2         ; 调用2号中断输出字符
  int 21h   
  dec ch             ; ch--
  jnz aa             ; 累加器不为0,则跳到aa继续执行
   
  retf             ; 退出
  code ends   
  ;***********   
  end start

.386 ;使用80386指令集
.model flat,stdcall    
option casemap:none
include windows.inc
include user32.inc
include kernel32.inc
includelib user32.lib
includelib kernel32.lib
include gdi32.inc
includelib gdi32.lib

;WinMain函数声明
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD

;======================数据段
.data
ClassName db "SimpleWinClass",0
AppName  db "我的汇编窗口",0
MyString db "我的第二个窗口程序",0

.data?
hInstance HINSTANCE ?    ;应用程序句柄
CommandLine LPSTR ?        ;保存命令行传入的参数
hdc HDC ?
;==========================

;==========================代码段开始
.code
start:
    invoke GetModuleHandle, NULL    ;得到应用程序句柄
    mov    hInstance,eax
    
    invoke GetCommandLine            ;得到命令行参数
    mov    CommandLine,eax
    
    ;调用主函数
    invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
    ;退出程序
    invoke ExitProcess,eax

;===================主过程=======================
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
    ;注册窗口样式
    LOCAL wc:WNDCLASSEX
    LOCAL msg:MSG
    LOCAL hwnd:HWND
    mov   wc.cbSize,SIZEOF WNDCLASSEX
    mov   wc.style, CS_HREDRAW or CS_VREDRAW
    mov   wc.lpfnWndProc, OFFSET WndProc
    mov   wc.cbClsExtra,NULL
    mov   wc.cbWndExtra,NULL
    push  hInstance
    pop   wc.hInstance
    mov   wc.hbrBackground,COLOR_WINDOW+1
    mov   wc.lpszMenuName,NULL
    mov   wc.lpszClassName,OFFSET ClassName
    invoke LoadIcon,NULL,IDI_APPLICATION
    mov   wc.hIcon,eax
    mov   wc.hIconSm,eax
    invoke LoadCursor,NULL,IDC_ARROW
    mov   wc.hCursor,eax
    invoke RegisterClassEx, addr wc
    ;创建窗口
    INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName,\
           WS_SYSMENU or WS_MINIMIZEBOX,CW_USEDEFAULT,\
           CW_USEDEFAULT,200,200,NULL,NULL,\
           hInst,NULL
    mov   hwnd,eax
    ;显示窗口
    invoke ShowWindow, hwnd,SW_SHOWNORMAL
    invoke UpdateWindow, hwnd
    invoke GetDC, hwnd
    mov hdc, eax
    ;进入消息循环
    .WHILE TRUE
        invoke GetMessage, ADDR msg,NULL,0,0
        .BREAK .IF (!eax)
        invoke TranslateMessage, ADDR msg
        invoke DispatchMessage, ADDR msg
    .ENDW
    mov     eax,msg.wParam
    ret
WinMain endp

;回调函数
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
    .IF uMsg==WM_DESTROY ;关闭消息
        invoke PostQuitMessage,NULL
    .ELSEIF uMsg==WM_PAINT
        invoke TextOut, hdc, 0, 0, addr MyString, SIZEOF MyString
    .ELSE
        invoke DefWindowProc,hWnd,uMsg,wParam,lParam    ;调用系统默认的函数进行处理    
        ret
    .ENDIF
    xor eax,eax
    ret
WndProc endp
end start

.386 ;使用80386指令集
.model flat,stdcall   
option casemap:none
include windows.inc
include user32.inc
include kernel32.inc
includelib user32.lib
includelib kernel32.lib
include gdi32.inc
includelib gdi32.lib

;WinMain函数声明
WinMain proto :DWORD,:DWORD,:DWORD,:DWORD

;======================数据段
.data
ClassName db "SimpleWinClass",0
AppName  db "我的汇编窗口",0
MyString db "我的第二个窗口程序",0
Date_Format   db   "yyyy年MM月dd日",0     ;日期格式_1  

.data?
hInstance HINSTANCE ?    ;应用程序句柄
CommandLine LPSTR ?        ;保存命令行传入的参数
;hdc HDC ?
;==========================

;==========================代码段开始
.code
start:
    invoke GetModuleHandle, NULL    ;得到应用程序句柄
    mov    hInstance,eax
   
    invoke GetCommandLine            ;得到命令行参数
    mov    CommandLine,eax
   
    ;调用主函数
    invoke WinMain, hInstance,NULL,CommandLine, SW_SHOWDEFAULT
    ;退出程序
    invoke ExitProcess,eax

;===================主过程=======================
WinMain proc hInst:HINSTANCE,hPrevInst:HINSTANCE,CmdLine:LPSTR,CmdShow:DWORD
    ;注册窗口样式
    LOCAL wc:WNDCLASSEX
    LOCAL msg:MSG
    LOCAL hwnd:HWND
    mov   wc.cbSize,SIZEOF WNDCLASSEX
    mov   wc.style, CS_HREDRAW or CS_VREDRAW
    mov   wc.lpfnWndProc, OFFSET WndProc
    mov   wc.cbClsExtra,NULL
    mov   wc.cbWndExtra,NULL
    push  hInstance
    pop   wc.hInstance
    mov   wc.hbrBackground,COLOR_WINDOW+1
    mov   wc.lpszMenuName,NULL
    mov   wc.lpszClassName,OFFSET ClassName
    invoke LoadIcon,NULL,IDI_APPLICATION
    mov   wc.hIcon,eax
    mov   wc.hIconSm,eax
    invoke LoadCursor,NULL,IDC_ARROW
    mov   wc.hCursor,eax
    invoke RegisterClassEx, addr wc
    ;创建窗口
    INVOKE CreateWindowEx,NULL,ADDR ClassName,ADDR AppName,\
           WS_SYSMENU or WS_MINIMIZEBOX,CW_USEDEFAULT,\
           CW_USEDEFAULT,200,200,NULL,NULL,\
           hInst,NULL
    mov   hwnd,eax
    ;显示窗口
    invoke ShowWindow, hwnd,SW_SHOWNORMAL
    invoke UpdateWindow, hwnd
   
    ;狂闪的原因:在这里得到了DC
   ; invoke GetDC, hwnd
    ;mov hdc, eax
    ;进入消息循环
    .WHILE TRUE
        invoke GetMessage, ADDR msg,NULL,0,0
        .BREAK .IF (!eax)
        invoke TranslateMessage, ADDR msg
        invoke DispatchMessage, ADDR msg
    .ENDW
    mov     eax,msg.wParam
    ret
WinMain endp

;回调函数
WndProc proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
      LOCAL hdc:HDC
    LOCAL ps:PAINTSTRUCT
    local   TimeStruct:SYSTEMTIME         ;时间结构   
    local   ShowDateStr[128]:byte         ;显示日期缓冲区
   
    .IF uMsg==WM_DESTROY ;关闭消息
        invoke PostQuitMessage,NULL
    .ELSEIF uMsg==WM_PAINT
        invoke BeginPaint,hWnd, addr ps ;在这里得到DC就不闪了
        mov    hdc,eax

          invoke   GetSystemTime,addr   TimeStruct   

         invoke   GetDateFormat,NULL,0,addr TimeStruct, addr Date_Format, addr ShowDateStr,sizeof ShowDateStr      
        invoke TextOut, hdc, 40, 50, addr ShowDateStr, 14
    .ELSE
        invoke DefWindowProc,hWnd,uMsg,wParam,lParam    ;调用系统默认的函数进行处理   
        ret
    .ENDIF
    xor eax,eax
    ret
WndProc endp
end start