jackliu 发表于 2008-9-17 14:00:42

出售自编、自导（汇编）俄罗斯方块游戏（功能完善中）！！

[发帖际遇]: jackliu发帖积极努力, 获得本论坛奖金现金154思明币.


;说明：用MASM做编译器,，，07软件为旗号，，，，，
;现给代码免费体验游戏（功能完善中...)


http://imgcache.qq.com/ac/b.gif http://imgcache.qq.com/ac/b.gif.8086
WINDOW MACRO COL1,COL2,LINE1,LINE2
         LOCAL L1,L2
         MOV SI,LINE1
         L1:MOV AH,0CH
            MOV DX,COL1
            MOV CX,SI
            MOV AL,1
            INT 10H
            MOV DX,COL2
            INT 10H
            INC SI
            CMP SI,LINE2
            JNE L1
            MOV SI,COL1
         L2:MOV AH,0CH
            MOV DX,SI
            MOV CX,LINE1
            MOV AL,1
            INT 10H
            MOV CX,LINE2
            INT 10H
            INC SI
            CMP SI,COL2
            JNE L2
ENDM
SQUARE MACRO SCOL1,SCOL2,SLINE1,SLINE2
       LOCAL L1,L2
       MOV DI,SCOL1
    L1:MOV SI,SLINE1
    L2:MOV AH,0CH
       MOV DX,DI
       MOV CX,SI
       MOV AL,6
       INT 10H
       INC SI
       CMP SI,SLINE2
       JNE L2
       INC DI
       CMP DI,SCOL2
       JNE L1
ENDM
      
CLSQUARE MACRO SCOL1,SCOL2,SLINE1,SLINE2
       LOCAL L1,L2,L3
       INC SCOL1
       INC SCOL2
       MOV DI,SCOL1
    L1:MOV SI,SLINE1
    L2:MOV AH,0CH
       MOV DX,DI
       MOV CX,SI
       MOV AL,6
       INT 10H
       INC SI
       CMP SI,SLINE2
       JNE L2      
       INC DI
       CMP DI,SCOL2
       JNE L1
       MOV SI,SLINE1
    L3:MOV AH,0CH
       MOV DX,SCOL1
       DEC DX
       MOV CX,SI
       MOV AL,0
       INT 10H
       INC SI
       CMP SI,LINE2
       JNE L3      
ENDM
TIMELATE MACRO
         LOCAL TIME
         PUSH BX
         PUSH CX
         MOV BX,0FFH
         MOV CX,0FFFFH
    TIME:LOOP TIME
         DEC BX
         JNZ TIME
         POP CX
         POP BX
ENDM
DATA SEGMENT
   COL1 DW 19 ;20
   COL2 DW 181 ;180
   LINE1 DW 399 ;400
   LINE2 DW 626 ;625
   SCOL1 DW 20
   SCOL2 DW 36
   SLINE1 DW 425
   SLINE2 DW 475
   SBX DW ?
   SES DW ?
DATA ENDS
   
CODE SEGMENT
   ASSUME CS:CODE, DS:DATA
   START: MOV AX,DATA
            MOV DS,AX
            MOV AH,0
            MOV AL,0EH
            INT 10H
            ;更改键盘中断
            MOV AH,35H
            MOV AL,09H
            INT 21H
            MOV AX,ES
            MOV SES,AX
            MOV SBX,BX
            PUSH DS
            MOV AX,CODE2
            MOV DS,AX
            MOV DX,OFFSET INT9
            MOV AH,25H
            MOV AL,09H
            INT 21H
            POP DS
            ;只允许键盘中断
            MOV AL,11111101B   
            OUT 21H,AL
            STI
            WINDOW COL1,COL2,LINE1,LINE2
         L1: SQUARESCOL1,SCOL2,SLINE1,SLINE2
            TIMELATE   
            JMP PASSL1MID
      L1MID:JMP L1
PASSL1MID:CLSQUARE SCOL1,SCOL2,SLINE1,SLINE2
            SQUARESCOL1,SCOL2,SLINE1,SLINE2
            MOV AX,SCOL2
            CMP AX,COL2
            JNE L1MID
            CLI
            ;恢复键盘中断
            MOV DX,SBX
            MOV DS,SES
            MOV AH,25H
            MOV AL,09H
            INT 21H            
            MOV AH,4CH
            INT 21H
CODE ENDS
      
;代码段CODE2用于将方块左右移的中断程序
CODE2 SEGMENT
      ASSUME CS:CODE2, DS:DATA
      INT9 PROC FAR   
         PUSH AX
         PUSH BX
         PUSH CX
         PUSH DX
         PUSH DI
         PUSH SI
         PUSH DS
         PUSH ES
         MOV AH,02H
         MOV DL,'G'
         INT 21H
         ;从60H端口取字符扫描码
         IN AL,60H
         CMP AL,4DH
         JNE PASSPRO2
            
         ADD SLINE2,25
       MOV DI,SLINE1
   L21:MOV SI,SCOL1
   L22:MOV AH,0CH
       MOV DX,SI
       MOV CX,DI
       MOV AL,6
       INT 10H
       INC SI
       CMP SI,SCOL2
       JNE L22      
       INC DI
       CMP DI,LINE2
       JNE L21
      
       MOV DI,LINE1
       ADD LINE1,25
   L123:MOV SI,SCOL1
   L124:MOV AH,0CH
       MOV DX,SI      
       MOV CX,DI
       MOV AL,0
       INT 10H
       INC SI
       CMP SI,SCOL2
       JNE L124
       INC DI
       CMP DI,LINE1
       JNE L123
      
PASSPRO2:
       MOV AL,20H
       OUT 20H,AL
       POP ES
       POP DS
       POP SI
       POP DI
       POP DX
       POP CX
       POP BX
       POP AX
       IRET
INT9 ENDP
CODE2 ENDS   
      END START

http://imgcache.qq.com/ac/b.gif

;如有需要完整版，，留言，，，

一摄天下 发表于 2008-9-17 14:04:11

[发帖际遇]: 一摄天下参加慈善晚会, 捐款现金3010思明币.


什么东西？？？？？？？你是俄罗斯人？

爱你久久 发表于 2008-9-17 14:05:08

houhou (7)hou houhou (7)hou houhou (7)hou 不错。。。。

风风.. 发表于 2008-9-17 14:12:03

什么东东呀~?~~?

爱你久久 发表于 2008-9-17 14:14:12

houhou (7)hou houhou (7)hou 代码游戏

．ˊＥsc.` 发表于 2008-9-17 15:01:10

山寨俄罗斯方块..？
页: [1]
查看完整版本: 出售自编、自导（汇编）俄罗斯方块游戏（功能完善中）！！