Chip 2002 September/Chip_2002-09_cd1.bin/ctenari/Prochazka/data/lib/notorg.zbc

Text File | 2002-06-30 | 15KB | 1,595 lines

;This is machine generated file, do not edit
;Generated by JavaScript
module notorg.module
32

sub runinsert 0 0
code
pushstr "inswhatmove"
pushlocals
getprop form
jnx 1
pop
pushthis
getprop form
jnx 1
pop
pushsys
getprop form
jnx 1
pop
xraise
@1:
cm op:get:prop 1

cm get:cur 0
jnx 0
xraise
@0:
pushlocals
initprop whatmove
polypop 2
pushnum 0
pushstr "whatinsert"
pushlocals
getprop form
jnx 6
pop
pushthis
getprop form
jnx 6
pop
pushsys
getprop form
jnx 6
pop
xraise
@6:
cm op:get:prop 1

cm get:cur 0
jnx 5
xraise
@5:
cm op:eq 1
jnx 4
xraise
@4:
condnotjmp 2
pushlocals
getprop sel
jnx 8
pop
pushthis
getprop sel
jnx 8
pop
pushsys
getprop sel
jnx 8
pop
xraise
@8:

cm get:start 0
jnx 7
xraise
@7:
pushlocals
initprop inspos
polypop 2
pushnum 1
pushstr "whereinsert"
pushlocals
getprop form
jnx 12
pop
pushthis
getprop form
jnx 12
pop
pushsys
getprop form
jnx 12
pop
xraise
@12:
cm op:get:prop 1

cm get:cur 0
jnx 11
xraise
@11:
cm op:eq 1
jnx 10
xraise
@10:
condnotjmp 9
pushlocals
getprop inspos
jx 14
dup 1
cm op:inc 0
jnx 15
xraise
@15:
pushlocals
setprop inspos
polypop 2
jmp 13
@14:
pop
pushthis
getprop inspos
jx 16
dup 1
cm op:inc 0
jnx 17
xraise
@17:
pushthis
setprop inspos
polypop 2
jmp 13
@16:
pop
pushsys
getprop inspos
xraise
dup 1
cm op:inc 0
jnx 19
xraise
@19:
pushsys
setprop inspos
polypop 2
jmp 13
@13:
pop
@9:
pushnum 0
pushlocals
getprop whatmove
jnx 23
pop
pushthis
getprop whatmove
jnx 23
pop
pushsys
getprop whatmove
jnx 23
pop
xraise
@23:
cm op:eq 1
jnx 22
xraise
@22:
condnotjmp 20
pushlocals
getprop inspos
jnx 25
pop
pushthis
getprop inspos
jnx 25
pop
pushsys
getprop inspos
jnx 25
pop
xraise
@25:
pushlocals
getprop notepart
jnx 26
pop
pushthis
getprop notepart
jnx 26
pop
pushsys
getprop notepart
jnx 26
pop
xraise
@26:
cm insertTact 1
jnx 24
xraise
@24:
pop
jmp 21
@20:
pushlocals
getprop notepart
jnx 29
pop
pushthis
getprop notepart
jnx 29
pop
pushsys
getprop notepart
jnx 29
pop
xraise
@29:

cm get:tactCount 0
jnx 28
xraise
@28:
pushlocals
getprop notepart
jnx 30
pop
pushthis
getprop notepart
jnx 30
pop
pushsys
getprop notepart
jnx 30
pop
xraise
@30:
cm insertTact 1
jnx 27
xraise
@27:
pop
pushlocals
getprop sel
jnx 33
pop
pushthis
getprop sel
jnx 33
pop
pushsys
getprop sel
jnx 33
pop
xraise
@33:

cm get:line 0
jnx 32
xraise
@32:
pushnum 1
pushlocals
getprop notepart
jnx 36
pop
pushthis
getprop notepart
jnx 36
pop
pushsys
getprop notepart
jnx 36
pop
xraise
@36:

cm get:tactCount 0
jnx 35
xraise
@35:
cm op:sub 1
jnx 34
xraise
@34:
pushlocals
getprop inspos
jnx 37
pop
pushthis
getprop inspos
jnx 37
pop
pushsys
getprop inspos
jnx 37
pop
xraise
@37:
pushlocals
getprop notepart
jnx 38
pop
pushthis
getprop notepart
jnx 38
pop
pushsys
getprop notepart
jnx 38
pop
xraise
@38:
cm moveTact 3
jnx 31
xraise
@31:
pop
@21:
pushlocals
deleteprops 1
pop
jmp 3
@2:
pushlocals
getprop sel
jnx 40
pop
pushthis
getprop sel
jnx 40
pop
pushsys
getprop sel
jnx 40
pop
xraise
@40:

cm get:line 0
jnx 39
xraise
@39:
pushlocals
initprop inspos
polypop 2
pushnum 1
pushstr "whereinsert"
pushlocals
getprop form
jnx 44
pop
pushthis
getprop form
jnx 44
pop
pushsys
getprop form
jnx 44
pop
xraise
@44:
cm op:get:prop 1

cm get:cur 0
jnx 43
xraise
@43:
cm op:eq 1
jnx 42
xraise
@42:
condnotjmp 41
pushlocals
getprop inspos
jx 46
dup 1
cm op:inc 0
jnx 47
xraise
@47:
pushlocals
setprop inspos
polypop 2
jmp 45
@46:
pop
pushthis
getprop inspos
jx 48
dup 1
cm op:inc 0
jnx 49
xraise
@49:
pushthis
setprop inspos
polypop 2
jmp 45
@48:
pop
pushsys
getprop inspos
xraise
dup 1
cm op:inc 0
jnx 51
xraise
@51:
pushsys
setprop inspos
polypop 2
jmp 45
@45:
pop
@41:
pushlocals
getprop inspos
jnx 53
pop
pushthis
getprop inspos
jnx 53
pop
pushsys
getprop inspos
jnx 53
pop
xraise
@53:
pushlocals
getprop notepart
jnx 54
pop
pushthis
getprop notepart
jnx 54
pop
pushsys
getprop notepart
jnx 54
pop
xraise
@54:
cm insertLine 1
jnx 52
xraise
@52:
pop
pushlocals
deleteprops 1
pop
@3:
pushlocals
deleteprops 1
pop

pushnull
doret 1
end
sub rundelete 0 0
code
pushstr "deletion"
pushlocals
getprop form
jnx 65
pop
pushthis
getprop form
jnx 65
pop
pushsys
getprop form
jnx 65
pop
xraise
@65:
cm op:get:prop 1

cm get:cur 0
jnx 64
xraise
@64:
pushnum 0
dup 2
cm op:eq 1
jnx 57
xraise
@57:
condnotjmp 56
pushlocals
getprop sel
jnx 69
pop
pushthis
getprop sel
jnx 69
pop
pushsys
getprop sel
jnx 69
pop
xraise
@69:

cm get:line 0
jnx 68
xraise
@68:
pushlocals
getprop sel
jnx 71
pop
pushthis
getprop sel
jnx 71
pop
pushsys
getprop sel
jnx 71
pop
xraise
@71:

cm get:start 0
jnx 70
xraise
@70:
pushlocals
getprop notepart
jnx 72
pop
pushthis
getprop notepart
jnx 72
pop
pushsys
getprop notepart
jnx 72
pop
xraise
@72:
cm op:get:index 2
jnx 67
xraise
@67:
cm clear 0
jnx 66
xraise
@66:
pop
jmp 55
@56:
pushnum 1
dup 2
cm op:eq 1
jnx 59
xraise
@59:
condnotjmp 58
pushlocals
getprop sel
jnx 76
pop
pushthis
getprop sel
jnx 76
pop
pushsys
getprop sel
jnx 76
pop
xraise
@76:

cm get:line 0
jnx 75
xraise
@75:
pushlocals
getprop sel
jnx 78
pop
pushthis
getprop sel
jnx 78
pop
pushsys
getprop sel
jnx 78
pop
xraise
@78:

cm get:start 0
jnx 77
xraise
@77:
pushlocals
getprop notepart
jnx 79
pop
pushthis
getprop notepart
jnx 79
pop
pushsys
getprop notepart
jnx 79
pop
xraise
@79:
cm op:get:index 2
jnx 74
xraise
@74:
cm clear 0
jnx 73
xraise
@73:
pop
pushlocals
getprop sel
jnx 82
pop
pushthis
getprop sel
jnx 82
pop
pushsys
getprop sel
jnx 82
pop
xraise
@82:

cm get:line 0
jnx 81
xraise
@81:
pushlocals
getprop sel
jnx 84
pop
pushthis
getprop sel
jnx 84
pop
pushsys
getprop sel
jnx 84
pop
xraise
@84:

cm get:start 0
jnx 83
xraise
@83:
pushnum 1
pushlocals
getprop notepart
jnx 87
pop
pushthis
getprop notepart
jnx 87
pop
pushsys
getprop notepart
jnx 87
pop
xraise
@87:

cm get:tactCount 0
jnx 86
xraise
@86:
cm op:sub 1
jnx 85
xraise
@85:
pushlocals
getprop notepart
jnx 88
pop
pushthis
getprop notepart
jnx 88
pop
pushsys
getprop notepart
jnx 88
pop
xraise
@88:
cm moveTact 3
jnx 80
xraise
@80:
pop
jmp 55
@58:
pushnum 2
dup 2
cm op:eq 1
jnx 61
xraise
@61:
condnotjmp 60
pushlocals
getprop sel
jnx 91
pop
pushthis
getprop sel
jnx 91
pop
pushsys
getprop sel
jnx 91
pop
xraise
@91:

cm get:start 0
jnx 90
xraise
@90:
pushlocals
getprop notepart
jnx 92
pop
pushthis
getprop notepart
jnx 92
pop
pushsys
getprop notepart
jnx 92
pop
xraise
@92:
cm deleteTact 1
jnx 89
xraise
@89:
pop
jmp 55
@60:
pushnum 3
dup 2
cm op:eq 1
jnx 63
xraise
@63:
condnotjmp 62
pushlocals
getprop sel
jnx 95
pop
pushthis
getprop sel
jnx 95
pop
pushsys
getprop sel
jnx 95
pop
xraise
@95:

cm get:line 0
jnx 94
xraise
@94:
pushlocals
getprop notepart
jnx 96
pop
pushthis
getprop notepart
jnx 96
pop
pushsys
getprop notepart
jnx 96
pop
xraise
@96:
cm deleteLine 1
jnx 93
xraise
@93:
pop
jmp 55
@62:
@55:
pop

pushnull
doret 1
end
sub runcopy 0 0
code
pushnum 0
pushstr "selectorcopy"
pushlocals
getprop form
jnx 101
pop
pushthis
getprop form
jnx 101
pop
pushsys
getprop form
jnx 101
pop
xraise
@101:
cm op:get:prop 1

cm get:cur 0
jnx 100
xraise
@100:
cm op:eq 1
jnx 99
xraise
@99:
condnotjmp 97
pushlocals
getprop sel
jnx 103
pop
pushthis
getprop sel
jnx 103
pop
pushsys
getprop sel
jnx 103
pop
xraise
@103:
pushlocals
getprop notorg
jnx 104
pop
pushthis
getprop notorg
jnx 104
pop
pushsys
getprop notorg
jnx 104
pop
xraise
@104:
cm set:frame 1
jnx 102
xraise
@102:
pop
jmp 98
@97:
pushlocals
getprop notorg
jnx 108
pop
pushthis
getprop notorg
jnx 108
pop
pushsys
getprop notorg
jnx 108
pop
xraise
@108:

cm get:frame 0
jnx 107
xraise
@107:
condnotjmp 105
pushlocals
getprop notorg
jnx 110
pop
pushthis
getprop notorg
jnx 110
pop
pushsys
getprop notorg
jnx 110
pop
xraise
@110:

cm get:frame 0
jnx 109
xraise
@109:
pushlocals
initprop old
polypop 2
pushnum 0
pushstr "whatcopy"
pushlocals
getprop form
jnx 115
pop
pushthis
getprop form
jnx 115
pop
pushsys
getprop form
jnx 115
pop
xraise
@115:
cm op:get:prop 1

cm get:cur 0
jnx 114
xraise
@114:
cm op:eq 1
jnx 113
xraise
@113:
condnotjmp 111
pushlocals
getprop old
jnx 119
pop
pushthis
getprop old
jnx 119
pop
pushsys
getprop old
jnx 119
pop
xraise
@119:

cm get:line 0
jnx 118
xraise
@118:
pushlocals
getprop old
jnx 121
pop
pushthis
getprop old
jnx 121
pop
pushsys
getprop old
jnx 121
pop
xraise
@121:

cm get:start 0
jnx 120
xraise
@120:
pushlocals
getprop notepart
jnx 122
pop
pushthis
getprop notepart
jnx 122
pop
pushsys
getprop notepart
jnx 122
pop
xraise
@122:
cm op:get:index 2
jnx 117
xraise
@117:
cm saveData 0
jnx 116
xraise
@116:
pushlocals
initprop data
polypop 2
pushlocals
getprop data
jnx 124
pop
pushthis
getprop data
jnx 124
pop
pushsys
getprop data
jnx 124
pop
xraise
@124:
pushlocals
getprop sel
jnx 127
pop
pushthis
getprop sel
jnx 127
pop
pushsys
getprop sel
jnx 127
pop
xraise
@127:

cm get:line 0
jnx 126
xraise
@126:
pushlocals
getprop sel
jnx 129
pop
pushthis
getprop sel
jnx 129
pop
pushsys
getprop sel
jnx 129
pop
xraise
@129:

cm get:start 0
jnx 128
xraise
@128:
pushlocals
getprop notepart
jnx 130
pop
pushthis
getprop notepart
jnx 130
pop
pushsys
getprop notepart
jnx 130
pop
xraise
@130:
cm op:get:index 2
jnx 125
xraise
@125:
cm loadData 1
jnx 123
xraise
@123:
pop
pushlocals
deleteprops 1
pop
jmp 112
@111:
pushnum 0
pushlocals
initprop i
polypop 2
@131:
pushlocals
getprop notepart
jnx 135
pop
pushthis
getprop notepart
jnx 135
pop
pushsys
getprop notepart
jnx 135
pop
xraise
@135:

cm get:lineCount 0
jnx 134
xraise
@134:
pushlocals
getprop i
jnx 136
pop
pushthis
getprop i
jnx 136
pop
pushsys
getprop i
jnx 136
pop
xraise
@136:
cm op:lt 1
jnx 133
xraise
@133:
condnotjmp 132
pushlocals
getprop i
jnx 139
pop
pushthis
getprop i
jnx 139
pop
pushsys
getprop i
jnx 139
pop
xraise
@139:
pushlocals
getprop old
jnx 141
pop
pushthis
getprop old
jnx 141
pop
pushsys
getprop old
jnx 141
pop
xraise
@141:

cm get:start 0
jnx 140
xraise
@140:
pushlocals
getprop notepart
jnx 142
pop
pushthis
getprop notepart
jnx 142
pop
pushsys
getprop notepart
jnx 142
pop
xraise
@142:
cm op:get:index 2
jnx 138
xraise
@138:
cm saveData 0
jnx 137
xraise
@137:
pushlocals
initprop data
polypop 2
pushlocals
getprop data
jnx 144
pop
pushthis
getprop data
jnx 144
pop
pushsys
getprop data
jnx 144
pop
xraise
@144:
pushlocals
getprop i
jnx 146
pop
pushthis
getprop i
jnx 146
pop
pushsys
getprop i
jnx 146
pop
xraise
@146:
pushlocals
getprop sel
jnx 148
pop
pushthis
getprop sel
jnx 148
pop
pushsys
getprop sel
jnx 148
pop
xraise
@148:

cm get:start 0
jnx 147
xraise
@147:
pushlocals
getprop notepart
jnx 149
pop
pushthis
getprop notepart
jnx 149
pop
pushsys
getprop notepart
jnx 149
pop
xraise
@149:
cm op:get:index 2
jnx 145
xraise
@145:
cm loadData 1
jnx 143
xraise
@143:
pop
pushlocals
deleteprops 1
pop
pushlocals
getprop i
jx 151
dup 1
cm op:inc 0
jnx 152
xraise
@152:
pushlocals
setprop i
polypop 2
jmp 150
@151:
pop
pushthis
getprop i
jx 153
dup 1
cm op:inc 0
jnx 154
xraise
@154:
pushthis
setprop i
polypop 2
jmp 150
@153:
pop
pushsys
getprop i
xraise
dup 1
cm op:inc 0
jnx 156
xraise
@156:
pushsys
setprop i
polypop 2
jmp 150
@150:
pop
jmp 131
@132:
pushlocals
deleteprops 1
pop
@112:
pushlocals
deleteprops 1
pop
jmp 106
@105:
pushlocals
getprop sel
jnx 158
pop
pushthis
getprop sel
jnx 158
pop
pushsys
getprop sel
jnx 158
pop
xraise
@158:
pushlocals
getprop notorg
jnx 159
pop
pushthis
getprop notorg
jnx 159
pop
pushsys
getprop notorg
jnx 159
pop
xraise
@159:
cm set:frame 1
jnx 157
xraise
@157:
pop
@106:
@98:

pushnull
doret 1
end
sub run 0 0
code
pushstr "notorg"
pushsys
cm op:get:prop 1
pushlocals
assignprop notorg
pop
jnx 160
pushthis
assignprop notorg
pop
jnx 160
pushsys
assignprop notorg
pop
jnx 160
xraise
@160:
pop
pushstr "mainform"
pushsys
cm op:get:prop 1
pushlocals
assignprop form
pop
jnx 161
pushthis
assignprop form
pop
jnx 161
pushsys
assignprop form
pop
jnx 161
xraise
@161:
pop
pushlocals
getprop notorg
jnx 164
pop
pushthis
getprop notorg
jnx 164
pop
pushsys
getprop notorg
jnx 164
pop
xraise
@164:

cm get:selection 0
jnx 163
xraise
@163:
pushlocals
assignprop sel
pop
jnx 162
pushthis
assignprop sel
pop
jnx 162
pushsys
assignprop sel
pop
jnx 162
xraise
@162:
pop
pushstr "notepart"
pushsys
cm op:get:prop 1
pushlocals
assignprop notepart
pop
jnx 165
pushthis
assignprop notepart
pop
jnx 165
pushsys
assignprop notepart
pop
jnx 165
xraise
@165:
pop
pushstr "orgaction"
pushlocals
getprop form
jnx 174
pop
pushthis
getprop form
jnx 174
pop
pushsys
getprop form
jnx 174
pop
xraise
@174:
cm op:get:prop 1

cm get:cur 0
jnx 173
xraise
@173:
pushnum 0
dup 2
cm op:eq 1
jnx 168
xraise
@168:
condnotjmp 167
pushthis
cm runinsert 0
jnx 175
pop
pushlocals
getprop runinsert
jnx 177
pop
pushthis
getprop runinsert
jnx 177
pop
pushsys
getprop runinsert
jnx 177
pop
xraise
@177:
cm op:call 0
jnx 176
xraise
@176:
@175:
pop
jmp 166
@167:
pushnum 1
dup 2
cm op:eq 1
jnx 170
xraise
@170:
condnotjmp 169
pushthis
cm runcopy 0
jnx 178
pop
pushlocals
getprop runcopy
jnx 180
pop
pushthis
getprop runcopy
jnx 180
pop
pushsys
getprop runcopy
jnx 180
pop
xraise
@180:
cm op:call 0
jnx 179
xraise
@179:
@178:
pop
jmp 166
@169:
pushnum 2
dup 2
cm op:eq 1
jnx 172
xraise
@172:
condnotjmp 171
pushthis
cm rundelete 0
jnx 181
pop
pushlocals
getprop rundelete
jnx 183
pop
pushthis
getprop rundelete
jnx 183
pop
pushsys
getprop rundelete
jnx 183
pop
xraise
@183:
cm op:call 0
jnx 182
xraise
@182:
@181:
pop
jmp 166
@171:
@166:
pop

pushnull
doret 1
end
sub @init 0
code
;Init block of module
pushnull
pushthis
initprop notorg
polypop 2
pushnull
pushthis
initprop form
polypop 2
pushnull
pushthis
initprop sel
polypop 2
pushnull
pushthis
initprop notepart
polypop 2

pushstr "notorgModule"
pushthis
pushsys
cm op:set:prop 2
jnx 184
xraise
@184:
pop

doret 0
end
end