Pcode粗略分析(1)

分析1:

Private Sub Command1_Click()
Dim x As Integer, y As Integer, z As Integer
x = 123
y = 321
z = x + y
MsgBox z

End Sub

[Command1.Click]
:00401874  F47B              LitI2_Byte          ;Push 7B //123入栈
:00401876  707AFF            FStI2               ;Pop WORD [LOCAL_0086] //弹出0086操作数
                                                                        //整形占2个字
{x=123}
:00401879  F34101            LitI2               ;Push 0141 //321入栈
:0040187C  7078FF            FStI2               ;Pop WORD [LOCAL_0088] //弹出0088操作数
                                                                        //正好是0086+2,说明内存写时是连续的
{y=321}
:0040187F  6B7AFF            FLdI2               ;Push WORD [LOCAL_0086] //f?load?i2应该是integer
:00401882  6B78FF            FLdI2               ;Push WORD [LOCAL_0088] //继续第二个参数入栈
:00401885  A9                AddI2               ; //整数相加,保存在0088+2
{z = x + y}
:00401886  7076FF            FStI2               ;Pop WORD [LOCAL_008A] //SUM出栈待用

================ //MsgBox原形
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
================

:00401889  2704FF            LitVar              ;PushVar LOCAL_00FC //未负值参数,context
:0040188C  2724FF            LitVar              ;PushVar LOCAL_00DC //未负值参数,helpfile
:0040188F  2744FF            LitVar              ;PushVar LOCAL_00BC //未负值参数,title
:00401892  F500000000        LitI4               ;