fire.vms

VmBasic是一款基于虚拟机的结构化的编程语言

LABEL179:	; Else
LABEL180:	; End of If
JMP LABEL157
LABEL156:	; Else
LABEL157:	; End of If
; If code
;<Epression>
; Flush stack: 16 1 16 1 =  [5]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
PUSH 0
POP r3
POP r0
CAL int MUL r0,6
CAL int ADD r3,r0
CMP dword r3,1200
JPC B LABEL186
LD int r3,1199
LABEL186:
LD int r0,VINT_P
CAL int MUL r3,4
CAL int ADD r0,r3
PUSH [r0]
PUSH 2
POP r1
POP r0
CMP int r0,r1
JPC NZ LABEL187
PUSH 1
JMP LABEL188
LABEL187:
PUSH 0
LABEL188:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL184
;<Epression>
; Flush stack: 16 1 16  [3]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
PUSH 3
POP r3
POP r0
CAL int MUL r0,6
CAL int ADD r3,r0
CMP dword r3,1200
JPC B LABEL189
LD int r3,1199
LABEL189:
LD int r0,VINT_P
CAL int MUL r3,4
CAL int ADD r0,r3
PUSH [r0]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-16
LD int [r0],r3
; If code
;<Epression>
; Flush stack: 16 1 % 1 =  [5]
LD int r0,rb
CAL int ADD r0,-16
PUSH [r0]
PUSH 2
POP r1
POP r0
CAL int MOD r0,r1
PUSH r0
PUSH 0
POP r1
POP r0
CMP int r0,r1
JPC NZ LABEL192
PUSH 1
JMP LABEL193
LABEL192:
PUSH 0
LABEL193:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL190
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-8
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-12
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 1
POP r3
;</Epression>
PUSH r3
CALL FINT_DRAWFLY
CAL int ADD rs,12
JMP LABEL191
LABEL190:	; Else
LABEL191:	; End of If
;<Epression>
; Flush stack: 16 1 +  [3]
LD int r0,rb
CAL int ADD r0,-16
PUSH [r0]
PUSH 1
POP r1
POP r0
CAL int ADD r0,r1
PUSH r0
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-16
LD int [r0],r3
; If code
;<Epression>
; Flush stack: 16 1 >  [3]
LD int r0,rb
CAL int ADD r0,-16
PUSH [r0]
PUSH 20
POP r1
POP r0
CMP int r0,r1
JPC BE LABEL196
PUSH 1
JMP LABEL197
LABEL196:
PUSH 0
LABEL197:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL194
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 0
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1 ^  [2]
PUSH 1
POP r1
LD int r0,0
CAL int SUB r0,r1
PUSH r0
POP r3
;</Epression>
POP r1
POP r0
CAL int MUL r0,6
CAL int ADD r1,r0
CMP dword r1,1200
JPC B LABEL198
LD int r1,1199
LABEL198:
LD int r0,VINT_P
CAL int MUL r1,4
CAL int ADD r0,r1
LD int [r0],r3
JMP LABEL195
LABEL194:	; Else
LABEL195:	; End of If
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 3
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-16
PUSH [r0]
POP r3
;</Epression>
POP r1
POP r0
CAL int MUL r0,6
CAL int ADD r1,r0
CMP dword r1,1200
JPC B LABEL199
LD int r1,1199
LABEL199:
LD int r0,VINT_P
CAL int MUL r1,4
CAL int ADD r0,r1
LD int [r0],r3
JMP LABEL185
LABEL184:	; Else
LABEL185:	; End of If
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 1
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-8
PUSH [r0]
POP r3
;</Epression>
POP r1
POP r0
CAL int MUL r0,6
CAL int ADD r1,r0
CMP dword r1,1200
JPC B LABEL200
LD int r1,1199
LABEL200:
LD int r0,VINT_P
CAL int MUL r1,4
CAL int ADD r0,r1
LD int [r0],r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 2
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-12
PUSH [r0]
POP r3
;</Epression>
POP r1
POP r0
CAL int MUL r0,6
CAL int ADD r1,r0
CMP dword r1,1200
JPC B LABEL201
LD int r1,1199
LABEL201:
LD int r0,VINT_P
CAL int MUL r1,4
CAL int ADD r0,r1
LD int [r0],r3
JMP LABEL124
LABEL123:	; Else
LABEL124:	; End of If
;<Epression>
; Flush stack: 16 1 +  [3]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
PUSH 1
POP r1
POP r0
CAL int ADD r0,r1
PUSH r0
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-4
LD int [r0],r3
JMP LABEL119
LABEL120:	; End of While
FINT_GAMEDRIVER_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_GAMEDRIVER

;(FINT_GAMEMAIN) Function
;parcount=0
FINT_GAMEMAIN:
PUSH rb
LD int rb,rs
CAL int ADD rs,-12
; This is a comment line
;<Epression>
; Flush stack: 1  [1]
PUSH 1
POP r3
;</Epression>
LD int r0,VINT_PLAY
LD int [r0],r3
;<Epression>
; Flush stack: 1  [1]
PUSH 0
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-4
LD int [r0],r3
;<Epression>
; Flush stack: 1 1 /  [3]
PUSH 1000
PUSH 30
POP r1
POP r0
CAL int DIV r0,r1
PUSH r0
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-8
LD int [r0],r3
CALL FINT_CLEARDATA
CAL int ADD rs,0
LABEL109:	; While code
;<Epression>
; Flush stack: 16 1 >  [3]
PUSH [VINT_PLAY]
PUSH 0
POP r1
POP r0
CMP int r0,r1
JPC BE LABEL111
PUSH 1
JMP LABEL112
LABEL111:
PUSH 0
LABEL112:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL110
LABEL113:	; While code
;<Epression>
; Flush stack: 16 16 - 16 <  [5]
CALL FINT_FTIMER
CAL int ADD rs,0
PUSH r3
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
POP r1
POP r0
CAL int SUB r0,r1
PUSH r0
LD int r0,rb
CAL int ADD r0,-8
PUSH [r0]
POP r1
POP r0
CMP int r0,r1
JPC AE LABEL115
PUSH 1
JMP LABEL116
LABEL115:
PUSH 0
LABEL116:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL114
JMP LABEL113
LABEL114:	; End of While
;<Epression>
; Flush stack: 16  [1]
CALL FINT_FTIMER
CAL int ADD rs,0
PUSH r3
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-4
LD int [r0],r3
; If code
;<Epression>
; Flush stack: 16 16  [2]
PUSH [VINT_KEY_ESCAPE]
CALL FINT_KEYPRESS
CAL int ADD rs,4
PUSH r3
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL117
;<Epression>
; Flush stack: 1  [1]
PUSH 0
POP r3
;</Epression>
LD int r0,VINT_PLAY
LD int [r0],r3
JMP LABEL118
LABEL117:	; Else
LABEL118:	; End of If
CALL FINT_GAMEOBJECT
CAL int ADD rs,0
CALL FINT_PLANE
CAL int ADD rs,0
CALL FINT_GAMEDRIVER
CAL int ADD rs,0
;<Epression>
; Flush stack: 16  [1]
PUSH [VINT_LAYER]
POP r3
;</Epression>
PUSH r3
CALL FINT_SHOWCANVAS
CAL int ADD rs,4
;<Epression>
; Flush stack: 16  [1]
PUSH [VINT_LAYER]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 0
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 0
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 400
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 300
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 0
POP r3
;</Epression>
PUSH r3
CALL FINT_FILLCANVAS
CAL int ADD rs,24
JMP LABEL109
LABEL110:	; End of While
FINT_GAMEMAIN_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_GAMEMAIN

;(FINT_GAMEOBJECT) Function
;parcount=0
FINT_GAMEOBJECT:
PUSH rb
LD int rb,rs
CAL int ADD rs,-16
; This is a comment line
;<Epression>
; Flush stack: 1  [1]
PUSH 0
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-4
LD int [r0],r3
LABEL202:	; While code
;<Epression>
; Flush stack: 16 1 <  [3]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
PUSH 80
POP r1
POP r0
CMP int r0,r1
JPC AE LABEL204
PUSH 1
JMP LABEL205
LABEL204:
PUSH 0
LABEL205:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL203
;<Epression>
; Flush stack: 16 1 16  [3]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
PUSH 2
POP r3
POP r0
CAL int MUL r0,4
CAL int ADD r3,r0
CMP dword r3,400
JPC B LABEL206
LD int r3,399
LABEL206:
LD int r0,VINT_STAR
CAL int MUL r3,4
CAL int ADD r0,r3
PUSH [r0]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-8
LD int [r0],r3
; If code
;<Epression>
; Flush stack: 16 1 <  [3]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
PUSH 50
POP r1
POP r0
CMP int r0,r1
JPC AE LABEL209
PUSH 1
JMP LABEL210
LABEL209:
PUSH 0
LABEL210:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL207
;<Epression>
; Flush stack: 16  [1]
PUSH [VINT_LAYER]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 16 1 16  [3]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
PUSH 1
POP r3
POP r0
CAL int MUL r0,4
CAL int ADD r3,r0
CMP dword r3,400
JPC B LABEL211
LD int r3,399
LABEL211:
LD int r0,VINT_STAR
CAL int MUL r3,4
CAL int ADD r0,r3
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-8
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 6710886
POP r3
;</Epression>
PUSH r3
CALL FINT_PIXEL
CAL int ADD rs,16
;<Epression>
; Flush stack: 16 1 +  [3]
LD int r0,rb
CAL int ADD r0,-8
PUSH [r0]
PUSH 2
POP r1
POP r0
CAL int ADD r0,r1
PUSH r0
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-8
LD int [r0],r3
JMP LABEL208
LABEL207:	; Else
;<Epression>
; Flush stack: 16  [1]
PUSH [VINT_LAYER]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 16 1 16  [3]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
PUSH 1
POP r3
POP r0
CAL int MUL r0,4
CAL int ADD r3,r0
CMP dword r3,400
JPC B LABEL212
LD int r3,399
LABEL212:
LD int r0,VINT_STAR
CAL int MUL r3,4
CAL int ADD r0,r3
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-8
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 11184810
POP r3
;</Epression>
PUSH r3
CALL FINT_PIXEL
CAL int ADD rs,16
;<Epression>
; Flush stack: 16 1 +  [3]
LD int r0,rb
CAL int ADD r0,-8
PUSH [r0]
PUSH 3
POP r1
POP r0
CAL int ADD r0,r1
PUSH r0
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-8
LD int [r0],r3
LABEL208:	; End of If
; If code
;<Epression>
; Flush stack: 16 1 >  [3]
LD int r0,rb
CAL int ADD r0,-8
PUSH [r0]
PUSH 410
POP r1
POP r0
CMP int r0,r1
JPC BE LABEL215
PUSH 1
JMP LABEL216
LABEL215:
PUSH 0
LABEL216:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL213
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 1
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1 16  [2]
PUSH 400
CALL FINT_RANDOM
CAL int ADD rs,4
PUSH r3
POP r3
;</Epression>
POP r1
POP r0
CAL int MUL r0,4
CAL int ADD r1,r0
CMP dword r1,400
JPC B LABEL217
LD int r1,399
LABEL217:
LD int r0,VINT_STAR
CAL int MUL r1,4
CAL int ADD r0,r1
LD int [r0],r3
;<Epression>
; Flush stack: 1 ^ 1 16 +  [5]
PUSH 300
POP r1
LD int r0,0
CAL int SUB r0,r1
PUSH r0
PUSH 300
CALL FINT_RANDOM
CAL int ADD rs,4
PUSH r3
POP r1
POP r0
CAL int ADD r0,r1
PUSH r0
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-8
LD int [r0],r3
JMP LABEL214
LABEL213:	; Else
LABEL214:	; End of If
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 2
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-8
PUSH [r0]
POP r3
;</Epression>
POP r1
POP r0
CAL int MUL r0,4
CAL int ADD r1,r0
CMP dword r1,400
JPC B LABEL218
LD int r1,399
LABEL218:
LD int r0,VINT_STAR
CAL int MUL r1,4
CAL int ADD r0,r1
LD int [r0],r3
;<Epression>
; Flush stack: 16 1 +  [3]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
PUSH 1
POP r1
POP r0
CAL int ADD r0,r1
PUSH r0
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-4
LD int [r0],r3
JMP LABEL202
LABEL203:	; End of While
; If code
;<Epression>
; Flush stack: 1 16 !  [3]
PUSH 20
CALL FINT_RANDOM
CAL int ADD rs,4
PUSH r3
POP r1
CMP int r1,0
JPC NZ LABEL221
PUSH 1
JMP LABEL222
LABEL221:
PUSH 0
LABEL222:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL219
;<Epression>
; Flush stack: 16  [1]
CALL FINT_ALLOC
CAL int ADD rs,0
PUSH r3
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,-12
LD int [r0],r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-12
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 0
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 1
POP r3
;</Epression>
POP r1
POP r0
CAL int MUL r0,6
CAL int ADD r1,r0
CMP dword r1,1200
JPC B LABEL223
LD int r1,1199
LABEL223:
LD int r0,VINT_P
CAL int MUL r1,4
CAL int ADD r0,r1
LD int [r0],r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-12
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 1
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1 16  [2]
PUSH 400
CALL FINT_RANDOM
CAL int ADD rs,4
PUSH r3
POP r3
;</Epression>
POP r1
POP r0
CAL int MUL r0,6
CAL int ADD r1,r0
CMP dword r1,1200
JPC B LABEL224
LD int r1,1199
LABEL224:
LD int r0,VINT_P
CAL int MUL r1,4
CAL int ADD r0,r1
LD int [r0],r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,-12
PUSH [r0]
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1  [1]
PUSH 2
POP r3
;</Epression>
PUSH r3
;<Epression>
; Flush stack: 1 ^  [2]
PUSH 30
POP r1
LD int r0,0
CAL int SUB r0,r1
PUSH r0
POP r3
;</Epression>
POP r1
POP r0
CAL int MUL r0,6
CAL int ADD r1,r0
CMP dword r1,1200
JPC B LABEL225
LD int r1,1199
LABEL225:
LD int r0,VINT_P
CAL int MUL r1,4
CAL int ADD r0,r1
LD int [r0],r3
JMP LABEL220
LABEL219:	; Else
LABEL220:	; End of If
FINT_GAMEOBJECT_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_GAMEOBJECT


;================ Init Code ==================
LABEL0:
IN [VSTR_STATIC_STR],2
LD dword [CSTRING_7],CS_CSTRING_7
LD dword [CSTRING_8],CS_CSTRING_8
LD dword [CSTRING_9],CS_CSTRING_9
LD dword [CSTRING_10],CS_CSTRING_10
LD dword [CSTRING_11],CS_CSTRING_11
LD dword [CSTRING_22],CS_CSTRING_22
LD dword [CSTRING_23],CS_CSTRING_23
LD dword [CSTRING_24],CS_CSTRING_24
LD dword [CSTRING_25],CS_CSTRING_25
LD dword [CSTRING_230],CS_CSTRING_230
LD dword [CSTRING_231],CS_CSTRING_231
RET
LABEL1:
EXIT

; Declaration:
LABEL2:
DATA VFLO_STATIC_FLOAT dword 0
DATA VSTR_STATIC_STR dword 0
DATA VINT_STATIC_INT dword 0
DATA CSTRING_7 dword 0
DATA CS_CSTRING_7 char " ",0
DATA VINT_STATIC_INT1 dword 0
DATA VINT_STATIC_INT2 dword 0
DATA VINT_KEY_UP dword 0
DATA VINT_KEY_DOWN dword 0
DATA VINT_KEY_LEFT dword 0
DATA VINT_KEY_RIGHT dword 0
DATA VINT_KEY_SPACE dword 0
DATA VINT_KEY_ESCAPE dword 0
DATA VINT_KEY_ENTER dword 0
DATA VINT_P dword 0
.BLOCK 4800 0
DATA VINT_FLYX dword 0
DATA VINT_FLYY dword 0
DATA VINT_PICFLY dword 0
DATA VINT_PICENEMY dword 0
DATA VINT_PICFIRE dword 0
DATA VINT_LAYER dword 0
DATA VINT_FIRECOUNT dword 0
DATA CSTRING_8 dword 0
DATA CS_CSTRING_8 char "创建一个400x300的画布做双缓存并且读入图片....",0
DATA CSTRING_9 dword 0
DATA CS_CSTRING_9 char "GAME1.TGA",0
DATA CSTRING_10 dword 0
DATA CS_CSTRING_10 char "GAME2.TGA",0
DATA CSTRING_11 dword 0
DATA CS_CSTRING_11 char "GAME3.TGA",0
DATA CSTRING_22 dword 0
DATA CS_CSTRING_22 char "读入图片错误",0
DATA CSTRING_23 dword 0
DATA CS_CSTRING_23 char "成功",0
DATA CSTRING_24 dword 0
DATA CS_CSTRING_24 char "初始化完成，这个游戏用方向键控制飞机空格键发射子弹",0
DATA CSTRING_25 dword 0
DATA CS_CSTRING_25 char "回车键开始游戏....",0
DATA VINT_STAR dword 0
.BLOCK 1600 0
DATA VINT_SPACESTATUS dword 0
DATA VINT_PLAY dword 0
DATA CSTRING_230 dword 0
DATA CS_CSTRING_230 char "哈哈你的飞机被击毁了 ",0
DATA CSTRING_231 dword 0
DATA CS_CSTRING_231 char "感谢试玩 :-)",0