|
楼主 |
发表于 2012-5-22 17:37:45
|
显示全部楼层
- _MyScript:
- ARA @MyScript
- VAR @m1
- VAR @m3
- VAR @m5
- VAR @m6
- JMP [MyScript_Main]
- _MyFunc:
- ARA @MyFunc
- PRM @p1
- PRM @p2
- PRM @p3
- PRM @p4
- VAR @R
- PUS S
- PUS X
- PUS Y
- PUS Z
- PUS A
- PUS F
- PUS T
- GET X, @p1
- NEW T, @TABLE
- NEW F, T
- FSN F, 'F1'
- SAV F, X
- GET X, @p2
- MOV Y, X
- GET X, 2
- MUL Y, X
- NEW F, T
- FSN F, 'F2'
- SAV F, Y
- GET X, @p3
- MOV Z, X
- GET X, @p4
- MOV Y, X
- GET X, 2
- DIV Y, X
- ADD Z, Y
- NEW F, T
- FSN F, 'My Field'
- SAV F, Z
- GET X, @p4
- MOV Y, X
- GET X, 1
- MOD Y, X
- NEW F, T
- GET A, 4
- FSN F, A
- SAV F, Y
- SAV @R, T
- GET X, @R
- MOV R, X
- _MyFunc_Exit:
- POP X
- POP Y
- POP Z
- POP A
- POP F
- POP T
- POP S
- RET
- MyScript_Main:
- ARA @MyScript
- GET X, 12
- MOV Z, X
- GET X, 13
- NEG X
- MOV Y, X
- GET X, 14
- MUL Y, X
- ADD Z, Y
- MOV Q, Z
- GET X, 9
- MOV Z, X
- GET X, 3
- ADD Z, X
- GET X, 7
- EXP Z, X
- EQU Q, Z
- SAV @m1, Q
- GET X, !2009/01/01
- SAV @m2, X
- GET X, !29:10:50.999
- SAV @m3, X
- GET X, !2010-11-22~23:10
- SAV @m4, X
- GET X, 1
- NEW T, @TABLE
- NEW F, T
- FSN F, 'k'
- SAV F, X
- GET X, 2
- NEW F, T
- SAV F, X
- GET X, 9
- PUS T
- NEW T, @TABLE
- NEW F, T
- SAV F, X
- GET X, 10
- NEW F, T
- SAV F, X
- MOV B, T
- POP T
- NEW F, T
- SAV F, B
- GET X, !2001-01-01
- NEW F, T
- SAV F, X
- SAV @m1, T
- GET X, 1
- PUS X
- GET X, 2.1
- PUS X
- GET X, '4'
- PUS X
- GET X, 3
- NEW T, @TABLE
- NEW F, T
- SAV F, X
- GET X, 4
- NEW F, T
- SAV F, X
- PUS T
- GET R, 4
- CAL @MyFunc
- SAV @m2, R
- _MyScript_1:
- GET X, @m2
- MOV Q, X
- GET X, 0
- GTN Q, X
- JOF [_MyScript_1X]
- GET X, @m3
- MOV Z, X
- GET X, 1
- ADD Z, X
- SAV @m3, Z
- JMP [_MyScript_1]
- _MyScript_1X:
- PUS F
- FLD F, @a
- FLD F, 'b'
- FLD F, 'c'
- FLD F, 'd'
- GET R, 0
- CAL F
- POP F
- NEW T, @MyClass
- SAV @VarName, T
- GET X, @m4
- GET A, 12
- GET B, 23
- BTW X
- JOF [_MyScript_2]
- GET X, !2010-11-22
- MOV Z, X
- GET X, !29:10:50.999
- SUB Z, X
- SAV @k, Z
- _MyScript_2:
- GET A, '+0'
- _MyScript_3:
- FLD F, @m3
- FLD F, A
- TST F
- JOT [_MyScript_3X]
- FGN A, F
- SAV @name, A
- GET A, F
- SAV @value, A
- GET X, 'Field Name = '
- MOV Z, X
- GET X, @name
- ADD Z, X
- GET X, ', Value = '
- ADD Z, X
- GET X, @value
- ADD Z, X
- PUS Z
- GET R, 1
- CAL @print
- GET A, '+1'
- JMP [_MyScript_3]
- _MyScript_3X:
- _MyScript_Exit:
- QUT
复制代码 |
|