home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2002 September
/
Chip_2002-09_cd1.bin
/
ctenari
/
Prochazka
/
data
/
lib
/
notinstr.zbc
< prev
next >
Wrap
Text File
|
2002-07-02
|
22KB
|
2,371 lines
;This is machine generated file, do not edit
;Generated by JavaScript
interface InstrumentCaption.class
sub op:new 0 0
code
pop
co InstrumentCaption.instance
cm @init:op:new 0
doret 1
end
end
interface InstrumentCaption.instance
sub get:name 0 0
code
pushlocals
getprop name
jnx 0
pop
pushthis
getprop name
jnx 0
pop
pushsys
getprop name
jnx 0
pop
xraise
@0:
doret 1
pushnull
doret 1
end
sub get:id 0 0
code
pushlocals
getprop id
jnx 1
pop
pushthis
getprop id
jnx 1
pop
pushsys
getprop id
jnx 1
pop
xraise
@1:
doret 1
pushnull
doret 1
end
sub get:groupIndex 0 0
code
pushlocals
getprop groupIndex
jnx 2
pop
pushthis
getprop groupIndex
jnx 2
pop
pushsys
getprop groupIndex
jnx 2
pop
xraise
@2:
doret 1
pushnull
doret 1
end
sub set:groupIndex 1 1
code
pushparam 0
pushlocals
setprop value
polypop 2
pushlocals
getprop value
jnx 4
pop
pushthis
getprop value
jnx 4
pop
pushsys
getprop value
jnx 4
pop
xraise
@4:
pushlocals
assignprop groupIndex
pop
jnx 3
pushthis
assignprop groupIndex
pop
jnx 3
pushsys
assignprop groupIndex
pop
jnx 3
xraise
@3:
pop
pushnull
doret 1
end
sub get:index 0 0
code
pushlocals
getprop index
jnx 5
pop
pushthis
getprop index
jnx 5
pop
pushsys
getprop index
jnx 5
pop
xraise
@5:
doret 1
pushnull
doret 1
end
sub set:index 1 1
code
pushparam 0
pushlocals
setprop value
polypop 2
pushlocals
getprop value
jnx 7
pop
pushthis
getprop value
jnx 7
pop
pushsys
getprop value
jnx 7
pop
xraise
@7:
pushlocals
assignprop index
pop
jnx 6
pushthis
assignprop index
pop
jnx 6
pushsys
assignprop index
pop
jnx 6
xraise
@6:
pop
pushnull
doret 1
end
sub load 1 1
code
pushparam 0
pushlocals
setprop str
polypop 2
pushstr " "
pushlocals
getprop str
jnx 9
pop
pushthis
getprop str
jnx 9
pop
pushsys
getprop str
jnx 9
pop
xraise
@9:
cm indexOf 1
jnx 8
xraise
@8:
pushlocals
initprop pos
polypop 2
pushnum 0
pushlocals
getprop pos
jnx 12
pop
pushthis
getprop pos
jnx 12
pop
pushsys
getprop pos
jnx 12
pop
xraise
@12:
cm op:gt 1
jnx 11
xraise
@11:
condnotjmp 10
pushnum 0
pushlocals
getprop pos
jnx 17
pop
pushthis
getprop pos
jnx 17
pop
pushsys
getprop pos
jnx 17
pop
xraise
@17:
pushlocals
getprop str
jnx 18
pop
pushthis
getprop str
jnx 18
pop
pushsys
getprop str
jnx 18
pop
xraise
@18:
cm substring 2
jnx 16
xraise
@16:
cm trim 0
jnx 15
xraise
@15:
pushlocals
getprop Number
jnx 19
pop
pushthis
getprop Number
jnx 19
pop
pushsys
getprop Number
jnx 19
pop
xraise
@19:
cm op:new 1
jnx 14
xraise
@14:
pushlocals
assignprop id
pop
jnx 13
pushthis
assignprop id
pop
jnx 13
pushsys
assignprop id
pop
jnx 13
xraise
@13:
pop
pushlocals
getprop pos
jnx 23
pop
pushthis
getprop pos
jnx 23
pop
pushsys
getprop pos
jnx 23
pop
xraise
@23:
pushlocals
getprop str
jnx 25
pop
pushthis
getprop str
jnx 25
pop
pushsys
getprop str
jnx 25
pop
xraise
@25:
cm get:length 0
jnx 24
xraise
@24:
pushlocals
getprop str
jnx 26
pop
pushthis
getprop str
jnx 26
pop
pushsys
getprop str
jnx 26
pop
xraise
@26:
cm substr 2
jnx 22
xraise
@22:
cm trim 0
jnx 21
xraise
@21:
pushlocals
assignprop name
pop
jnx 20
pushthis
assignprop name
pop
jnx 20
pushsys
assignprop name
pop
jnx 20
xraise
@20:
pop
@10:
pushlocals
deleteprops 1
pop
pushnull
doret 1
end
sub @init:op:new 0 0
code
pushnull
pushthis
initprop name
polypop 2
pushnull
pushthis
initprop id
polypop 2
pushnull
pushthis
initprop groupIndex
polypop 2
pushnull
pushthis
initprop index
polypop 2
pushthis
doret 1
end
end
interface InstrumentGroup.class
sub op:new 0 0
code
pop
co InstrumentGroup.instance
cm @init:op:new 0
doret 1
end
end
interface InstrumentGroup.instance
sub get:index 0 0
code
pushlocals
getprop index
jnx 27
pop
pushthis
getprop index
jnx 27
pop
pushsys
getprop index
jnx 27
pop
xraise
@27:
doret 1
pushnull
doret 1
end
sub set:index 1 1
code
pushparam 0
pushlocals
setprop value
polypop 2
pushlocals
getprop value
jnx 29
pop
pushthis
getprop value
jnx 29
pop
pushsys
getprop value
jnx 29
pop
xraise
@29:
pushlocals
assignprop index
pop
jnx 28
pushthis
assignprop index
pop
jnx 28
pushsys
assignprop index
pop
jnx 28
xraise
@28:
pop
pushnull
doret 1
end
sub get:name 0 0
code
pushlocals
getprop name
jnx 30
pop
pushthis
getprop name
jnx 30
pop
pushsys
getprop name
jnx 30
pop
xraise
@30:
doret 1
pushnull
doret 1
end
sub addline 1 1
code
pushparam 0
pushlocals
setprop str
polypop 2
pushlocals
getprop InstrumentCaption
jnx 32
pop
pushthis
getprop InstrumentCaption
jnx 32
pop
pushsys
getprop InstrumentCaption
jnx 32
pop
xraise
@32:
cm op:new 0
jnx 31
xraise
@31:
pushlocals
initprop cpt
polypop 2
pushlocals
getprop index
jnx 34
pop
pushthis
getprop index
jnx 34
pop
pushsys
getprop index
jnx 34
pop
xraise
@34:
pushlocals
getprop cpt
jnx 35
pop
pushthis
getprop cpt
jnx 35
pop
pushsys
getprop cpt
jnx 35
pop
xraise
@35:
cm set:groupIndex 1
jnx 33
xraise
@33:
pop
pushlocals
getprop items
jnx 38
pop
pushthis
getprop items
jnx 38
pop
pushsys
getprop items
jnx 38
pop
xraise
@38:
cm get:count 0
jnx 37
xraise
@37:
pushlocals
getprop cpt
jnx 39
pop
pushthis
getprop cpt
jnx 39
pop
pushsys
getprop cpt
jnx 39
pop
xraise
@39:
cm set:index 1
jnx 36
xraise
@36:
pop
pushlocals
getprop str
jnx 41
pop
pushthis
getprop str
jnx 41
pop
pushsys
getprop str
jnx 41
pop
xraise
@41:
pushlocals
getprop cpt
jnx 42
pop
pushthis
getprop cpt
jnx 42
pop
pushsys
getprop cpt
jnx 42
pop
xraise
@42:
cm load 1
jnx 40
xraise
@40:
pop
pushlocals
getprop cpt
jnx 44
pop
pushthis
getprop cpt
jnx 44
pop
pushsys
getprop cpt
jnx 44
pop
xraise
@44:
pushlocals
getprop items
jnx 45
pop
pushthis
getprop items
jnx 45
pop
pushsys
getprop items
jnx 45
pop
xraise
@45:
cm push 1
jnx 43
xraise
@43:
pop
pushlocals
deleteprops 1
pop
pushnull
doret 1
end
sub set:name 1 1
code
pushparam 0
pushlocals
setprop value
polypop 2
pushlocals
getprop value
jnx 47
pop
pushthis
getprop value
jnx 47
pop
pushsys
getprop value
jnx 47
pop
xraise
@47:
pushlocals
assignprop name
pop
jnx 46
pushthis
assignprop name
pop
jnx 46
pushsys
assignprop name
pop
jnx 46
xraise
@46:
pop
pushnull
doret 1
end
sub getInstruments 0 0
code
pushstr ""
pushlocals
initprop res
polypop 2
pushnum 0
pushlocals
initprop i
polypop 2
@48:
pushlocals
getprop items
jnx 52
pop
pushthis
getprop items
jnx 52
pop
pushsys
getprop items
jnx 52
pop
xraise
@52:
cm get:count 0
jnx 51
xraise
@51:
pushlocals
getprop i
jnx 53
pop
pushthis
getprop i
jnx 53
pop
pushsys
getprop i
jnx 53
pop
xraise
@53:
cm op:lt 1
jnx 50
xraise
@50:
condnotjmp 49
pushstr "\n"
pushlocals
getprop i
jnx 59
pop
pushthis
getprop i
jnx 59
pop
pushsys
getprop i
jnx 59
pop
xraise
@59:
pushlocals
getprop items
jnx 60
pop
pushthis
getprop items
jnx 60
pop
pushsys
getprop items
jnx 60
pop
xraise
@60:
cm op:get:index 1
jnx 58
xraise
@58:
cm get:name 0
jnx 57
xraise
@57:
pushlocals
getprop res
jnx 61
pop
pushthis
getprop res
jnx 61
pop
pushsys
getprop res
jnx 61
pop
xraise
@61:
cm op:add 1
jnx 56
xraise
@56:
cm op:add 1
jnx 55
xraise
@55:
pushlocals
assignprop res
pop
jnx 54
pushthis
assignprop res
pop
jnx 54
pushsys
assignprop res
pop
jnx 54
xraise
@54:
pop
pushlocals
getprop i
jx 63
dup 1
cm op:inc 0
jnx 64
xraise
@64:
pushlocals
setprop i
polypop 2
jmp 62
@63:
pop
pushthis
getprop i
jx 65
dup 1
cm op:inc 0
jnx 66
xraise
@66:
pushthis
setprop i
polypop 2
jmp 62
@65:
pop
pushsys
getprop i
xraise
dup 1
cm op:inc 0
jnx 68
xraise
@68:
pushsys
setprop i
polypop 2
jmp 62
@62:
pop
jmp 48
@49:
pushlocals
deleteprops 1
pop
pushlocals
getprop res
jnx 69
pop
pushthis
getprop res
jnx 69
pop
pushsys
getprop res
jnx 69
pop
xraise
@69:
doret 1
pushlocals
deleteprops 1
pop
pushnull
doret 1
end
sub getId 1 1
code
pushparam 0
pushlocals
setprop index
polypop 2
pushlocals
getprop index
jnx 72
pop
pushthis
getprop index
jnx 72
pop
pushsys
getprop index
jnx 72
pop
xraise
@72:
pushlocals
getprop items
jnx 73
pop
pushthis
getprop items
jnx 73
pop
pushsys
getprop items
jnx 73
pop
xraise
@73:
cm op:get:index 1
jnx 71
xraise
@71:
cm get:id 0
jnx 70
xraise
@70:
doret 1
pushnull
doret 1
end
sub find 1 1
code
pushparam 0
pushlocals
setprop id
polypop 2
pushnum 0
pushlocals
initprop i
polypop 2
@74:
pushlocals
getprop items
jnx 78
pop
pushthis
getprop items
jnx 78
pop
pushsys
getprop items
jnx 78
pop
xraise
@78:
cm get:count 0
jnx 77
xraise
@77:
pushlocals
getprop i
jnx 79
pop
pushthis
getprop i
jnx 79
pop
pushsys
getprop i
jnx 79
pop
xraise
@79:
cm op:lt 1
jnx 76
xraise
@76:
condnotjmp 75
pushlocals
getprop id
jnx 82
pop
pushthis
getprop id
jnx 82
pop
pushsys
getprop id
jnx 82
pop
xraise
@82:
pushlocals
getprop i
jnx 85
pop
pushthis
getprop i
jnx 85
pop
pushsys
getprop i
jnx 85
pop
xraise
@85:
pushlocals
getprop items
jnx 86
pop
pushthis
getprop items
jnx 86
pop
pushsys
getprop items
jnx 86
pop
xraise
@86:
cm op:get:index 1
jnx 84
xraise
@84:
cm get:id 0
jnx 83
xraise
@83:
cm op:eq 1
jnx 81
xraise
@81:
condnotjmp 80
pushlocals
getprop i
jnx 88
pop
pushthis
getprop i
jnx 88
pop
pushsys
getprop i
jnx 88
pop
xraise
@88:
pushlocals
getprop items
jnx 89
pop
pushthis
getprop items
jnx 89
pop
pushsys
getprop items
jnx 89
pop
xraise
@89:
cm op:get:index 1
jnx 87
xraise
@87:
doret 1
@80:
pushlocals
getprop i
jx 91
dup 1
cm op:inc 0
jnx 92
xraise
@92:
pushlocals
setprop i
polypop 2
jmp 90
@91:
pop
pushthis
getprop i
jx 93
dup 1
cm op:inc 0
jnx 94
xraise
@94:
pushthis
setprop i
polypop 2
jmp 90
@93:
pop
pushsys
getprop i
xraise
dup 1
cm op:inc 0
jnx 96
xraise
@96:
pushsys
setprop i
polypop 2
jmp 90
@90:
pop
jmp 74
@75:
pushlocals
deleteprops 1
pop
pushnull
doret 1
pushnull
doret 1
end
sub @init:op:new 0 0
code
pushsys
cm createArray 0
jnx 97
xraise
@97:
pushthis
initprop items
polypop 2
pushnull
pushthis
initprop name
polypop 2
pushnull
pushthis
initprop index
polypop 2
pushthis
doret 1
end
end
interface Instruments.class
sub op:new 0 0
code
pop
co Instruments.instance
cm @init:op:new 0
doret 1
end
end
interface Instruments.instance
sub load 0 0
code
pushsys
cm createArray 0
jnx 99
xraise
@99:
pushlocals
assignprop items
pop
jnx 98
pushthis
assignprop items
pop
jnx 98
pushsys
assignprop items
pop
jnx 98
xraise
@98:
pop
pushstr "\n"
pushstr "instruments.txt"
pushstr "data"
pushlocals
getprop File
jnx 105
pop
pushthis
getprop File
jnx 105
pop
pushsys
getprop File
jnx 105
pop
xraise
@105:
cm get:root 0
jnx 104
xraise
@104:
cm op:div 1
jnx 103
xraise
@103:
cm op:div 1
jnx 102
xraise
@102:
cm load 0
jnx 101
xraise
@101:
cm split 1
jnx 100
xraise
@100:
pushlocals
initprop lines
polypop 2
pushnum 0
pushlocals
initprop i
polypop 2
@106:
pushlocals
getprop lines
jnx 110
pop
pushthis
getprop lines
jnx 110
pop
pushsys
getprop lines
jnx 110
pop
xraise
@110:
cm get:count 0
jnx 109
xraise
@109:
pushlocals
getprop i
jnx 111
pop
pushthis
getprop i
jnx 111
pop
pushsys
getprop i
jnx 111
pop
xraise
@111:
cm op:lt 1
jnx 108
xraise
@108:
condnotjmp 107
pushlocals
getprop InstrumentGroup
jnx 113
pop
pushthis
getprop InstrumentGroup
jnx 113
pop
pushsys
getprop InstrumentGroup
jnx 113
pop
xraise
@113:
cm op:new 0
jnx 112
xraise
@112:
pushlocals
initprop grp
polypop 2
pushlocals
getprop items
jnx 116
pop
pushthis
getprop items
jnx 116
pop
pushsys
getprop items
jnx 116
pop
xraise
@116:
cm get:count 0
jnx 115
xraise
@115:
pushlocals
getprop grp
jnx 117
pop
pushthis
getprop grp
jnx 117
pop
pushsys
getprop grp
jnx 117
pop
xraise
@117:
cm set:index 1
jnx 114
xraise
@114:
pop
pushlocals
getprop grp
jnx 119
pop
pushthis
getprop grp
jnx 119
pop
pushsys
getprop grp
jnx 119
pop
xraise
@119:
pushlocals
getprop items
jnx 120
pop
pushthis
getprop items
jnx 120
pop
pushsys
getprop items
jnx 120
pop
xraise
@120:
cm push 1
jnx 118
xraise
@118:
pop
pushlocals
getprop i
jnx 124
pop
pushthis
getprop i
jnx 124
pop
pushsys
getprop i
jnx 124
pop
xraise
@124:
pushlocals
getprop lines
jnx 125
pop
pushthis
getprop lines
jnx 125
pop
pushsys
getprop lines
jnx 125
pop
xraise
@125:
cm op:get:index 1
jnx 123
xraise
@123:
cm trim 0
jnx 122
xraise
@122:
pushlocals
getprop grp
jnx 126
pop
pushthis
getprop grp
jnx 126
pop
pushsys
getprop grp
jnx 126
pop
xraise
@126:
cm set:name 1
jnx 121
xraise
@121:
pop
pushlocals
getprop i
jx 128
dup 1
cm op:inc 0
jnx 129
xraise
@129:
pushlocals
setprop i
polypop 2
jmp 127
@128:
pop
pushthis
getprop i
jx 130
dup 1
cm op:inc 0
jnx 131
xraise
@131:
pushthis
setprop i
polypop 2
jmp 127
@130:
pop
pushsys
getprop i
xraise
dup 1
cm op:inc 0
jnx 133
xraise
@133:
pushsys
setprop i
polypop 2
jmp 127
@127:
pop
@134:
pushlocals
getprop lines
jnx 140
pop
pushthis
getprop lines
jnx 140
pop
pushsys
getprop lines
jnx 140
pop
xraise
@140:
cm get:count 0
jnx 139
xraise
@139:
pushlocals
getprop i
jnx 141
pop
pushthis
getprop i
jnx 141
pop
pushsys
getprop i
jnx 141
pop
xraise
@141:
cm op:lt 1
jnx 138
xraise
@138:
condnotjmp 136
pushstr "-"
pushlocals
getprop i
jnx 145
pop
pushthis
getprop i
jnx 145
pop
pushsys
getprop i
jnx 145
pop
xraise
@145:
pushlocals
getprop lines
jnx 146
pop
pushthis
getprop lines
jnx 146
pop
pushsys
getprop lines
jnx 146
pop
xraise
@146:
cm op:get:index 1
jnx 144
xraise
@144:
cm trim 0
jnx 143
xraise
@143:
cm op:neq 1
jnx 142
xraise
@142:
condnotjmp 136
pushsys
jmp 137
@136:
pushnull
@137:
condnotjmp 135
pushlocals
getprop i
jnx 149
pop
pushthis
getprop i
jnx 149
pop
pushsys
getprop i
jnx 149
pop
xraise
@149:
pushlocals
getprop lines
jnx 150
pop
pushthis
getprop lines
jnx 150
pop
pushsys
getprop lines
jnx 150
pop
xraise
@150:
cm op:get:index 1
jnx 148
xraise
@148:
pushlocals
getprop grp
jnx 151
pop
pushthis
getprop grp
jnx 151
pop
pushsys
getprop grp
jnx 151
pop
xraise
@151:
cm addline 1
jnx 147
xraise
@147:
pop
pushlocals
getprop i
jx 153
dup 1
cm op:inc 0
jnx 154
xraise
@154:
pushlocals
setprop i
polypop 2
jmp 152
@153:
pop
pushthis
getprop i
jx 155
dup 1
cm op:inc 0
jnx 156
xraise
@156:
pushthis
setprop i
polypop 2
jmp 152
@155:
pop
pushsys
getprop i
xraise
dup 1
cm op:inc 0
jnx 158
xraise
@158:
pushsys
setprop i
polypop 2
jmp 152
@152:
pop
jmp 134
@135:
pushlocals
getprop lines
jnx 162
pop
pushthis
getprop lines
jnx 162
pop
pushsys
getprop lines
jnx 162
pop
xraise
@162:
cm get:count 0
jnx 161
xraise
@161:
pushlocals
getprop i
jnx 163
pop
pushthis
getprop i
jnx 163
pop
pushsys
getprop i
jnx 163
pop
xraise
@163:
cm op:lt 1
jnx 160
xraise
@160:
condnotjmp 159
pushlocals
getprop i
jx 165
dup 1
cm op:inc 0
jnx 166
xraise
@166:
pushlocals
setprop i
polypop 2
jmp 164
@165:
pop
pushthis
getprop i
jx 167
dup 1
cm op:inc 0
jnx 168
xraise
@168:
pushthis
setprop i
polypop 2
jmp 164
@167:
pop
pushsys
getprop i
xraise
dup 1
cm op:inc 0
jnx 170
xraise
@170:
pushsys
setprop i
polypop 2
jmp 164
@164:
pop
@159:
pushlocals
deleteprops 1
pop
jmp 106
@107:
pushlocals
deleteprops 2
pop
pushnull
doret 1
end
sub getGroups 0 0
code
pushstr ""
pushlocals
initprop res
polypop 2
pushnum 0
pushlocals
initprop i
polypop 2
@171:
pushlocals
getprop items
jnx 175
pop
pushthis
getprop items
jnx 175
pop
pushsys
getprop items
jnx 175
pop
xraise
@175:
cm get:count 0
jnx 174
xraise
@174:
pushlocals
getprop i
jnx 176
pop
pushthis
getprop i
jnx 176
pop
pushsys
getprop i
jnx 176
pop
xraise
@176:
cm op:lt 1
jnx 173
xraise
@173:
condnotjmp 172
pushstr "\n"
pushlocals
getprop i
jnx 182
pop
pushthis
getprop i
jnx 182
pop
pushsys
getprop i
jnx 182
pop
xraise
@182:
pushlocals
getprop items
jnx 183
pop
pushthis
getprop items
jnx 183
pop
pushsys
getprop items
jnx 183
pop
xraise
@183:
cm op:get:index 1
jnx 181
xraise
@181:
cm get:name 0
jnx 180
xraise
@180:
pushlocals
getprop res
jnx 184
pop
pushthis
getprop res
jnx 184
pop
pushsys
getprop res
jnx 184
pop
xraise
@184:
cm op:add 1
jnx 179
xraise
@179:
cm op:add 1
jnx 178
xraise
@178:
pushlocals
assignprop res
pop
jnx 177
pushthis
assignprop res
pop
jnx 177
pushsys
assignprop res
pop
jnx 177
xraise
@177:
pop
pushlocals
getprop i
jx 186
dup 1
cm op:inc 0
jnx 187
xraise
@187:
pushlocals
setprop i
polypop 2
jmp 185
@186:
pop
pushthis
getprop i
jx 188
dup 1
cm op:inc 0
jnx 189
xraise
@189:
pushthis
setprop i
polypop 2
jmp 185
@188:
pop
pushsys
getprop i
xraise
dup 1
cm op:inc 0
jnx 191
xraise
@191:
pushsys
setprop i
polypop 2
jmp 185
@185:
pop
jmp 171
@172:
pushlocals
deleteprops 1
pop
pushlocals
getprop res
jnx 192
pop
pushthis
getprop res
jnx 192
pop
pushsys
getprop res
jnx 192
pop
xraise
@192:
doret 1
pushlocals
deleteprops 1
pop
pushnull
doret 1
end
sub getInstruments 1 1
code
pushparam 0
pushlocals
setprop group
polypop 2
pushlocals
getprop group
jnx 195
pop
pushthis
getprop group
jnx 195
pop
pushsys
getprop group
jnx 195
pop
xraise
@195:
pushlocals
getprop items
jnx 196
pop
pushthis
getprop items
jnx 196
pop
pushsys
getprop items
jnx 196
pop
xraise
@196:
cm op:get:index 1
jnx 194
xraise
@194:
cm getInstruments 0
jnx 193
xraise
@193:
doret 1
pushnull
doret 1
end
sub instrumentId 2 2
code
pushparam 0
pushlocals
setprop group
polypop 2
pushparam 1
pushlocals
setprop instrument
polypop 2
pushlocals
getprop instrument
jnx 198
pop
pushthis
getprop instrument
jnx 198
pop
pushsys
getprop instrument
jnx 198
pop
xraise
@198:
pushlocals
getprop group
jnx 200
pop
pushthis
getprop group
jnx 200
pop
pushsys
getprop group
jnx 200
pop
xraise
@200:
pushlocals
getprop items
jnx 201
pop
pushthis
getprop items
jnx 201
pop
pushsys
getprop items
jnx 201
pop
xraise
@201:
cm op:get:index 1
jnx 199
xraise
@199:
cm getId 1
jnx 197
xraise
@197:
doret 1
pushnull
doret 1
end
sub find 1 1
code
pushparam 0
pushlocals
setprop id
polypop 2
pushnum 0
pushlocals
initprop i
polypop 2
@202:
pushlocals
getprop items
jnx 206
pop
pushthis
getprop items
jnx 206
pop
pushsys
getprop items
jnx 206
pop
xraise
@206:
cm get:count 0
jnx 205
xraise
@205:
pushlocals
getprop i
jnx 207
pop
pushthis
getprop i
jnx 207
pop
pushsys
getprop i
jnx 207
pop
xraise
@207:
cm op:lt 1
jnx 204
xraise
@204:
condnotjmp 203
pushlocals
getprop id
jnx 210
pop
pushthis
getprop id
jnx 210
pop
pushsys
getprop id
jnx 210
pop
xraise
@210:
pushlocals
getprop i
jnx 212
pop
pushthis
getprop i
jnx 212
pop
pushsys
getprop i
jnx 212
pop
xraise
@212:
pushlocals
getprop items
jnx 213
pop
pushthis
getprop items
jnx 213
pop
pushsys
getprop items
jnx 213
pop
xraise
@213:
cm op:get:index 1
jnx 211
xraise
@211:
cm find 1
jnx 209
xraise
@209:
pushlocals
initprop res
pop
condnotjmp 208
pushlocals
getprop res
jnx 214
pop
pushthis
getprop res
jnx 214
pop
pushsys
getprop res
jnx 214
pop
xraise
@214:
doret 1
@208:
pushlocals
deleteprops 1
pop
pushlocals
getprop i
jx 216
dup 1
cm op:inc 0
jnx 217
xraise
@217:
pushlocals
setprop i
polypop 2
jmp 215
@216:
pop
pushthis
getprop i
jx 218
dup 1
cm op:inc 0
jnx 219
xraise
@219:
pushthis
setprop i
polypop 2
jmp 215
@218:
pop
pushsys
getprop i
xraise
dup 1
cm op:inc 0
jnx 221
xraise
@221:
pushsys
setprop i
polypop 2
jmp 215
@215:
pop
jmp 202
@203:
pushlocals
deleteprops 1
pop
pushnull
doret 1
pushnull
doret 1
end
sub @init:op:new 0 0
code
pushsys
cm createArray 0
jnx 222
xraise
@222:
pushthis
initprop items
polypop 2
pushthis
doret 1
end
end
module notinstr.module
32
sub getInstruments 0 0
code
pushlocals
getprop instruments
jnx 223
pop
pushthis
getprop instruments
jnx 223
pop
pushsys
getprop instruments
jnx 223
pop
xraise
@223:
doret 1
pushnull
doret 1
end
sub loadInstruments 0 0
code
pushlocals
getprop Instruments
jnx 226
pop
pushthis
getprop Instruments
jnx 226
pop
pushsys
getprop Instruments
jnx 226
pop
xraise
@226:
cm op:new 0
jnx 225
xraise
@225:
pushlocals
assignprop instruments
pop
jnx 224
pushthis
assignprop instruments
pop
jnx 224
pushsys
assignprop instruments
pop
jnx 224
xraise
@224:
pop
pushlocals
getprop instruments
jnx 228
pop
pushthis
getprop instruments
jnx 228
pop
pushsys
getprop instruments
jnx 228
pop
xraise
@228:
cm load 0
jnx 227
xraise
@227:
pop
pushnull
doret 1
end
sub @init 0
code
;Initialization of class InstrumentCaption
co InstrumentCaption.class
pushsys
setprop InstrumentCaption
pop
pushthis
setprop InstrumentCaption
xchg 1 2
setprop module
polypop 2
;Initialization of class InstrumentGroup
co InstrumentGroup.class
pushsys
setprop InstrumentGroup
pop
pushthis
setprop InstrumentGroup
xchg 1 2
setprop module
polypop 2
;Initialization of class Instruments
co Instruments.class
pushsys
setprop Instruments
pop
pushthis
setprop Instruments
xchg 1 2
setprop module
polypop 2
;Init block of module
pushnull
pushthis
initprop instruments
polypop 2
pushstr "instrumentModule"
pushthis
pushsys
cm op:set:prop 2
jnx 229
xraise
@229:
pop
doret 0
end
end