fire.vms

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

CALL LABEL0 ; For initialization

;================ MAIN PROG ==================
;<Epression>
; Flush stack: 1  [1]
PUSH 38
POP r3
;</Epression>
LD int r0,VINT_KEY_UP
LD int [r0],r3
;<Epression>
; Flush stack: 1  [1]
PUSH 40
POP r3
;</Epression>
LD int r0,VINT_KEY_DOWN
LD int [r0],r3
;<Epression>
; Flush stack: 1  [1]
PUSH 37
POP r3
;</Epression>
LD int r0,VINT_KEY_LEFT
LD int [r0],r3
;<Epression>
; Flush stack: 1  [1]
PUSH 39
POP r3
;</Epression>
LD int r0,VINT_KEY_RIGHT
LD int [r0],r3
;<Epression>
; Flush stack: 1  [1]
PUSH 32
POP r3
;</Epression>
LD int r0,VINT_KEY_SPACE
LD int [r0],r3
;<Epression>
; Flush stack: 1  [1]
PUSH 27
POP r3
;</Epression>
LD int r0,VINT_KEY_ESCAPE
LD int [r0],r3
;<Epression>
; Flush stack: 1  [1]
PUSH 13
POP r3
;</Epression>
LD int r0,VINT_KEY_ENTER
LD int [r0],r3
CALL FINT_INITBMP
CAL int ADD rs,0
CALL FINT_GAMEMAIN
CAL int ADD rs,0
CALL FINT_CLOSEGRAPH
CAL int ADD rs,0
OUT 4,10
; If code
;<Epression>
; Flush stack: 16 1 <  [3]
PUSH [VINT_PLAY]
PUSH 0
POP r1
POP r0
CMP int r0,r1
JPC AE LABEL228
PUSH 1
JMP LABEL229
LABEL228:
PUSH 0
LABEL229:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL226
;<Epression>
; Flush stack: 16 C  [2]
PUSH [CSTRING_230]
POP r2
IN r3,2
IN r2,5
PUSH r3
POP r3
;</Epression>
OUT 2,r3
IN r3,8
JMP LABEL227
LABEL226:	; Else
LABEL227:	; End of If
;<Epression>
; Flush stack: 16 C  [2]
PUSH [CSTRING_231]
POP r2
IN r3,2
IN r2,5
PUSH r3
POP r3
;</Epression>
OUT 2,r3
IN r3,8
OUT 4,10
EXIT

;================ FUNCTIONS ==================
;(FFLO_SIN) Function
;parcount=1
FFLO_SIN:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
;<Epression>
; Flush stack: 17  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,VFLO_STATIC_FLOAT
LD int [r0],r3
LD int r3,[VFLO_STATIC_FLOAT]	;Inline VAsm
IN [VFLO_STATIC_FLOAT],16	;Inline VAsm
;<Epression>
; Flush stack: 17  [1]
PUSH [VFLO_STATIC_FLOAT]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
FFLO_SIN_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FFLO_SIN

;(FFLO_COS) Function
;parcount=1
FFLO_COS:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
;<Epression>
; Flush stack: 17  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,VFLO_STATIC_FLOAT
LD int [r0],r3
LD int r3,[VFLO_STATIC_FLOAT]	;Inline VAsm
IN [VFLO_STATIC_FLOAT],17	;Inline VAsm
;<Epression>
; Flush stack: 17  [1]
PUSH [VFLO_STATIC_FLOAT]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
FFLO_COS_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FFLO_COS

;(FFLO_TAN) Function
;parcount=1
FFLO_TAN:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
;<Epression>
; Flush stack: 17  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,VFLO_STATIC_FLOAT
LD int [r0],r3
LD int r3,[VFLO_STATIC_FLOAT]	;Inline VAsm
IN [VFLO_STATIC_FLOAT],18	;Inline VAsm
;<Epression>
; Flush stack: 17  [1]
PUSH [VFLO_STATIC_FLOAT]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
FFLO_TAN_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FFLO_TAN

;(FFLO_SQR) Function
;parcount=1
FFLO_SQR:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
;<Epression>
; Flush stack: 17  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,VFLO_STATIC_FLOAT
LD int [r0],r3
LD int r3,[VFLO_STATIC_FLOAT]	;Inline VAsm
IN [VFLO_STATIC_FLOAT],19	;Inline VAsm
;<Epression>
; Flush stack: 17  [1]
PUSH [VFLO_STATIC_FLOAT]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
FFLO_SQR_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FFLO_SQR

;(FFLO_ABS) Function
;parcount=1
FFLO_ABS:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
;<Epression>
; Flush stack: 17  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,VFLO_STATIC_FLOAT
LD int [r0],r3
LD int r3,[VFLO_STATIC_FLOAT]	;Inline VAsm
IN [VFLO_STATIC_FLOAT],21	;Inline VAsm
;<Epression>
; Flush stack: 17  [1]
PUSH [VFLO_STATIC_FLOAT]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
FFLO_ABS_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FFLO_ABS

;(FINT_ABS) Function
;parcount=1
FINT_ABS:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
; If code
;<Epression>
; Flush stack: 16 1 <  [3]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
PUSH 0
POP r1
POP r0
CMP int r0,r1
JPC AE LABEL5
PUSH 1
JMP LABEL6
LABEL5:
PUSH 0
LABEL6:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL3
;<Epression>
; Flush stack: 16 ^  [2]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r1
LD int r0,0
CAL int SUB r0,r1
PUSH r0
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
JMP LABEL4
LABEL3:	; Else
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
LABEL4:	; End of If
FINT_ABS_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_ABS

;(FSTR_CHR) Function
;parcount=1
FSTR_CHR:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
LD int r0,rb
CAL int ADD r0,0
IN [r0],2
; This is a comment line
;<Epression>
; Flush stack: 16 C  [2]
PUSH [CSTRING_7]
POP r2
IN r3,2
IN r2,5
PUSH r3
POP r3
;</Epression>
LD int r0,VSTR_STATIC_STR
LD int r2,r3
LD int r3,[r0]
IN r3,5
LD int r3,r2
IN r3,8
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,VINT_STATIC_INT
LD int [r0],r3
LD int r3,[VSTR_STATIC_STR]	;Inline VAsm
LD int r2,0	;Inline VAsm
LD int r1,[VINT_STATIC_INT]	;Inline VAsm
IN r1,13	;Inline VAsm
;<Epression>
; Flush stack: 16 C  [2]
PUSH [VSTR_STATIC_STR]
POP r2
IN r3,2
IN r2,5
PUSH r3
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int r2,r3
LD int r3,[r0]
IN r3,5
LD int r3,r2
IN r3,8
FSTR_CHR_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FSTR_CHR

;(FINT_FTIMER) Function
;parcount=0
FINT_FTIMER:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
IN [VINT_STATIC_INT],15	;Inline VAsm
;<Epression>
; Flush stack: 16  [1]
PUSH [VINT_STATIC_INT]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
FINT_FTIMER_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_FTIMER

;(FINT_NEWCANVAS) Function
;parcount=2
FINT_NEWCANVAS:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,16
PUSH [r0]
POP r3
;</Epression>
LD int r0,VINT_STATIC_INT1
LD int [r0],r3
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,VINT_STATIC_INT2
LD int [r0],r3
LD int r2,[VINT_STATIC_INT1]	;Inline VAsm
LD int r3,[VINT_STATIC_INT2]	;Inline VAsm
OUT 50,0	;Inline VAsm
LD int [VINT_STATIC_INT1],r3	;Inline VAsm
;<Epression>
; Flush stack: 16  [1]
PUSH [VINT_STATIC_INT1]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
FINT_NEWCANVAS_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_NEWCANVAS

;(FINT_FREECANVAS) Function
;parcount=1
FINT_FREECANVAS:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,VINT_STATIC_INT
LD int [r0],r3
LD int r3,[VINT_STATIC_INT]	;Inline VAsm
OUT 51,0	;Inline VAsm
FINT_FREECANVAS_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_FREECANVAS

;(FINT_BLITCANVAS) Function
;parcount=9
FINT_BLITCANVAS:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
LD int r0,VINT_STATIC_INT
PUSH r0
LD int r0,rb
CAL int ADD r0,12
POP r1
LD int [r1],r0
LD int r3,[VINT_STATIC_INT]	;Inline VAsm
OUT 53,0	;Inline VAsm
FINT_BLITCANVAS_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_BLITCANVAS

;(FINT_LOADCANVAS) Function
;parcount=1
FINT_LOADCANVAS:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
LD int r0,VINT_STATIC_INT
PUSH r0
LD int r0,rb
CAL int ADD r0,12
POP r1
LD int [r1],r0
LD int r2,[VINT_STATIC_INT]	;Inline VAsm
LD int r3,[r2]	;Inline VAsm
OUT 52,0	;Inline VAsm
LD int [VINT_STATIC_INT],r3	;Inline VAsm
;<Epression>
; Flush stack: 16  [1]
PUSH [VINT_STATIC_INT]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
FINT_LOADCANVAS_EXIT:
LD int r0,rb
CAL int ADD r0,12
LD int r3,[r0]
IN r3,8
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_LOADCANVAS

;(FINT_SHOWCANVAS) Function
;parcount=1
FINT_SHOWCANVAS:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,VINT_STATIC_INT
LD int [r0],r3
LD int r3,[VINT_STATIC_INT]	;Inline VAsm
OUT 54,0	;Inline VAsm
FINT_SHOWCANVAS_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_SHOWCANVAS

;(FINT_PIXEL) Function
;parcount=4
FINT_PIXEL:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
LD int r0,VINT_STATIC_INT
PUSH r0
LD int r0,rb
CAL int ADD r0,12
POP r1
LD int [r1],r0
LD int r3,[VINT_STATIC_INT]	;Inline VAsm
OUT 55,0	;Inline VAsm
FINT_PIXEL_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_PIXEL

;(FINT_READPIXEL) Function
;parcount=3
FINT_READPIXEL:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
LD int r0,VINT_STATIC_INT
PUSH r0
LD int r0,rb
CAL int ADD r0,12
POP r1
LD int [r1],r0
LD int r3,[VINT_STATIC_INT]	;Inline VAsm
OUT 56,0	;Inline VAsm
LD int [VINT_STATIC_INT],r3	;Inline VAsm
;<Epression>
; Flush stack: 16  [1]
PUSH [VINT_STATIC_INT]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
FINT_READPIXEL_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_READPIXEL

;(FINT_KEYPRESS) Function
;parcount=1
FINT_KEYPRESS:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,VINT_STATIC_INT
LD int [r0],r3
LD int r3,[VINT_STATIC_INT]	;Inline VAsm
OUT 60,0	;Inline VAsm
LD int [VINT_STATIC_INT],r3	;Inline VAsm
;<Epression>
; Flush stack: 16  [1]
PUSH [VINT_STATIC_INT]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
FINT_KEYPRESS_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_KEYPRESS

;(FINT_FILLCANVAS) Function
;parcount=6
FINT_FILLCANVAS:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
LD int r0,VINT_STATIC_INT
PUSH r0
LD int r0,rb
CAL int ADD r0,12
POP r1
LD int [r1],r0
LD int r3,[VINT_STATIC_INT]	;Inline VAsm
OUT 57,0	;Inline VAsm
FINT_FILLCANVAS_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_FILLCANVAS

;(FINT_CLOSEGRAPH) Function
;parcount=0
FINT_CLOSEGRAPH:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
OUT 58,0	;Inline VAsm
FINT_CLOSEGRAPH_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_CLOSEGRAPH

;(FINT_RANDOM) Function
;parcount=1
FINT_RANDOM:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
;<Epression>
; Flush stack: 16  [1]
LD int r0,rb
CAL int ADD r0,12
PUSH [r0]
POP r3
;</Epression>
LD int r0,VINT_STATIC_INT
LD int [r0],r3
LD int r3,[VINT_STATIC_INT]	;Inline VAsm
OUT 59,0	;Inline VAsm
LD int [VINT_STATIC_INT],r3	;Inline VAsm
;<Epression>
; Flush stack: 16  [1]
PUSH [VINT_STATIC_INT]
POP r3
;</Epression>
LD int r0,rb
CAL int ADD r0,0
LD int [r0],r3
FINT_RANDOM_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_RANDOM

;(FINT_INITBMP) Function
;parcount=0
FINT_INITBMP:
PUSH rb
LD int rb,rs
CAL int ADD rs,-4
; This is a comment line
;<Epression>
; Flush stack: 16 C  [2]
PUSH [CSTRING_8]
POP r2
IN r3,2
IN r2,5
PUSH r3
POP r3
;</Epression>
OUT 2,r3
IN r3,8
;<Epression>
; Flush stack: 1 1 16  [3]
PUSH 400
PUSH 300
CALL FINT_NEWCANVAS
CAL int ADD rs,8
PUSH r3
POP r3
;</Epression>
LD int r0,VINT_LAYER
LD int [r0],r3
;<Epression>
; Flush stack: 16 C 16  [3]
PUSH [CSTRING_9]
POP r2
IN r3,2
IN r2,5
PUSH r3
CALL FINT_LOADCANVAS
CAL int ADD rs,4
PUSH r3
POP r3
;</Epression>
LD int r0,VINT_PICFLY
LD int [r0],r3
;<Epression>
; Flush stack: 16 C 16  [3]
PUSH [CSTRING_10]
POP r2
IN r3,2
IN r2,5
PUSH r3
CALL FINT_LOADCANVAS
CAL int ADD rs,4
PUSH r3
POP r3
;</Epression>
LD int r0,VINT_PICENEMY
LD int [r0],r3
;<Epression>
; Flush stack: 16 C 16  [3]
PUSH [CSTRING_11]
POP r2
IN r3,2
IN r2,5
PUSH r3
CALL FINT_LOADCANVAS
CAL int ADD rs,4
PUSH r3
POP r3
;</Epression>
LD int r0,VINT_PICFIRE
LD int [r0],r3
; If code
;<Epression>
; Flush stack: 16 1 < 16 1 < | 16 1 < | 16 1 < |  [15]
PUSH [VINT_LAYER]
PUSH 0
POP r1
POP r0
CMP int r0,r1
JPC AE LABEL14
PUSH 1
JMP LABEL15
LABEL14:
PUSH 0
LABEL15:
PUSH [VINT_PICFLY]
PUSH 0
POP r1
POP r0
CMP int r0,r1
JPC AE LABEL16
PUSH 1
JMP LABEL17
LABEL16:
PUSH 0
LABEL17:
POP r1
POP r0
CAL int ADD r0,r1
PUSH r0
PUSH [VINT_PICENEMY]
PUSH 0
POP r1
POP r0
CMP int r0,r1
JPC AE LABEL18
PUSH 1
JMP LABEL19
LABEL18:
PUSH 0
LABEL19:
POP r1
POP r0
CAL int ADD r0,r1
PUSH r0
PUSH [VINT_PICFIRE]
PUSH 0
POP r1
POP r0
CMP int r0,r1
JPC AE LABEL20
PUSH 1
JMP LABEL21
LABEL20:
PUSH 0
LABEL21:
POP r1
POP r0
CAL int ADD r0,r1
PUSH r0
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL12
;<Epression>
; Flush stack: 16 C  [2]
PUSH [CSTRING_22]
POP r2
IN r3,2
IN r2,5
PUSH r3
POP r3
;</Epression>
OUT 2,r3
IN r3,8
OUT 4,10
EXIT	;Inline VAsm
JMP LABEL13
LABEL12:	; Else
LABEL13:	; End of If
;<Epression>
; Flush stack: 16 C  [2]
PUSH [CSTRING_23]
POP r2
IN r3,2
IN r2,5
PUSH r3
POP r3
;</Epression>
OUT 2,r3
IN r3,8
OUT 4,10
;<Epression>
; Flush stack: 16 C  [2]
PUSH [CSTRING_24]
POP r2
IN r3,2
IN r2,5
PUSH r3
POP r3
;</Epression>
OUT 2,r3
IN r3,8
OUT 4,10
OUT 4,10
;<Epression>
; Flush stack: 16 C  [2]
PUSH [CSTRING_25]
POP r2
IN r3,2
IN r2,5
PUSH r3
POP r3
;</Epression>
OUT 2,r3
IN r3,8
LABEL26:	; While code
;<Epression>
; Flush stack: 16 16 !  [3]
PUSH [VINT_KEY_ENTER]
CALL FINT_KEYPRESS
CAL int ADD rs,4
PUSH r3
POP r1
CMP int r1,0
JPC NZ LABEL28
PUSH 1
JMP LABEL29
LABEL28:
PUSH 0
LABEL29:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL27
JMP LABEL26
LABEL27:	; End of While
FINT_INITBMP_EXIT:
LD int r3,[rb]
LD int rs,rb
POP rb
RET
; END FUN FINT_INITBMP

;(FINT_CLEARDATA) Function
;parcount=0
FINT_CLEARDATA:
PUSH rb
LD int rb,rs
CAL int ADD rs,-8
; 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
LABEL30:	; While code
;<Epression>
; Flush stack: 16 1 <  [3]
LD int r0,rb
CAL int ADD r0,-4
PUSH [r0]
PUSH 200
POP r1
POP r0
CMP int r0,r1
JPC AE LABEL32
PUSH 1
JMP LABEL33
LABEL32:
PUSH 0
LABEL33:
POP r3
;</Epression>
CMP int r3,0
JPC Z LABEL31
;<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 LABEL34
LD int r1,1199
LABEL34:
LD int r0,VINT_P
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 LABEL30