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

Text File | 2002-06-21 | 2KB | 269 lines

;This is machine generated file, do not edit
;Generated by JavaScript
interface Music.class
sub op:new 0 0
code
pop
co Music.instance
cm @init:op:new 0
doret 1
end
end

interface Music.instance
sub get:n1 0 0
code
pushlocals
getprop N1
jnx 0
pop
pushthis
getprop N1
jnx 0
pop
pushsys
getprop N1
jnx 0
pop
xraise
@0:
doret 1

pushnull
doret 1
end
sub get:n2 0 0
code
pushlocals
getprop N2
jnx 1
pop
pushthis
getprop N2
jnx 1
pop
pushsys
getprop N2
jnx 1
pop
xraise
@1:
doret 1

pushnull
doret 1
end
sub get:n4 0 0
code
pushlocals
getprop N4
jnx 2
pop
pushthis
getprop N4
jnx 2
pop
pushsys
getprop N4
jnx 2
pop
xraise
@2:
doret 1

pushnull
doret 1
end
sub get:n8 0 0
code
pushlocals
getprop N8
jnx 3
pop
pushthis
getprop N8
jnx 3
pop
pushsys
getprop N8
jnx 3
pop
xraise
@3:
doret 1

pushnull
doret 1
end
sub get:n16 0 0
code
pushlocals
getprop N16
jnx 4
pop
pushthis
getprop N16
jnx 4
pop
pushsys
getprop N16
jnx 4
pop
xraise
@4:
doret 1

pushnull
doret 1
end
sub @init:op:new 0 0
code
pushnum 9
pushnum 64
cm op:mul 1
jnx 5
xraise
@5:
pushthis
initprop N1
polypop 2
pushnum 2
pushlocals
getprop N1
jnx 7
pop
pushthis
getprop N1
jnx 7
pop
pushsys
getprop N1
jnx 7
pop
xraise
@7:
cm op:div 1
jnx 6
xraise
@6:
pushthis
initprop N2
polypop 2
pushnum 4
pushlocals
getprop N1
jnx 9
pop
pushthis
getprop N1
jnx 9
pop
pushsys
getprop N1
jnx 9
pop
xraise
@9:
cm op:div 1
jnx 8
xraise
@8:
pushthis
initprop N4
polypop 2
pushnum 8
pushlocals
getprop N1
jnx 11
pop
pushthis
getprop N1
jnx 11
pop
pushsys
getprop N1
jnx 11
pop
xraise
@11:
cm op:div 1
jnx 10
xraise
@10:
pushthis
initprop N8
polypop 2
pushnum 16
pushlocals
getprop N1
jnx 13
pop
pushthis
getprop N1
jnx 13
pop
pushsys
getprop N1
jnx 13
pop
xraise
@13:
cm op:div 1
jnx 12
xraise
@12:
pushthis
initprop N16
polypop 2


pushthis
doret 1
end
end

module notmusic.module
32

sub @init 0
code
;Initialization of class Music
co Music.class
pushsys
setprop Music
pop
pushthis
setprop Music
xchg 1 2
setprop module
polypop 2
;Init block of module
pushstr "music"
pushlocals
getprop Music
jnx 16
pop
pushthis
getprop Music
jnx 16
pop
pushsys
getprop Music
jnx 16
pop
xraise
@16:
cm op:new 0
jnx 15
xraise
@15:
pushsys
cm op:set:prop 2
jnx 14
xraise
@14:
pop

doret 0
end
end