123.asm

汇编课程设计 图形编辑器

     endm   
qumouse_xy2  macro x1,y1,x2,y2
	local mouse1
	local mouse2
	local mouse3
	local mouse4
mouse1:      
       mov ax,0005h
       mov bx,0h
       int 33h 
       cmp ax,1
       jne  mouse1

mouse2:       
       mov ax,0006
       mov bx,0h
       int 33h
       cmp ax,0
       jne mouse2

       mov x1,cx
       mov y1,dx

mouse3:       
       mov ax,0005h
       mov bx,0h
       int 33h
       cmp ax,1
       jne mouse3


mouse4:       
       mov ax,0006
       mov bx,0h
       int 33h
       cmp ax,0
       jne mouse4

       mov x2,cx
       mov y2,dx
     endm  
data segment 

      mus_freq dw 330,392,330,294,330,392,330,294,330
               dw 330,392,330,294,262,294,330,392,294 
               dw 262,262,220,196,196,220,262,294,330,262
               dw -1
      mus_time dw 3 dup(50),25,25,50,25,25,100
               dw 2 dup (50,50,25,25),100
               dw 3 dup(50,25,25),100
      str01 db '         请   稍   候!         ',0dh,0ah,'$'   ;30
      str03 db '进入！—〉',0dh,0ah,'$'                ;7
      str02 db '                              ',0dh,0ah,'$'
      str04 db '***************************************','$' ;39
      str05 db '***           欢 迎 使 用           ***','$'
      str06 db '***        请  多  多  指  教!      ***','$'
      str07 db '***************************************' 
      st0 db '*****制作人员*****',0dh,0ah,'$'  ; 18
      st1 db '王学勇[组长]    郭敬一',0dh,0ah,'$';22
      st3 db '王  炜          单宝军',0dh,0ah,'$'  ;  22
      st4 db '祝晓辉          刘  敏',0dh,0ah,'$'    ;22
      st5 db '***99090B5第五组***',0dh,0ah,'$'    ;19
      str1 db '1.Line',0dh,0ah,'$'
      str2 db '2.Circle',0dh,0ah,'$'
      str3 db '3.pencile',0dh,0ah,'$'
      str4 db '4.juxing',0dh,0ah,'$'
      str5 db '5.dbxing',0dh,0ah,'$'
      str6 db '6.Ellipse',0dh,0ah,'$'
      str8 db 'COLOR',0dh,0ah,'$'
       
     
      str11 db '7.eraser ',0dh,0ah,'$'
      str21 db 'NEW',0dh,0ah,'$'
      str22 db 'OPEN',0dh,0ah,'$'
      str23 db 'SAVE',0dh,0ah,'$'
      str24 db 'LINETYPE',0dh,0ah,'$'
      str25 db 'help',0dh,0ah,'$'
      str26 db 'COLOR',0dh,0ah,'$'
      str27 db 'QUIT',0dh,0ah,'$'
      x0 dw ?
      y0 dw ?
      a  dw ?
      b  dw ?
      x1 dw ?
      y1 dw ?
      x2 dw ?
      y2 dw ?
      xc dw ?  ;yuan xin
      yc dw ? 
      i  dw ?
      temp dw ?
      high0 dw ?
      low0 dw ?