mirror of
https://gitlab.com/camelot/kickc.git
synced 2024-11-16 21:07:56 +00:00
33 lines
964 B
Plaintext
33 lines
964 B
Plaintext
const nomodify byte* SCREEN = (byte*) 1024
|
|
byte euclid(byte euclid::a , byte euclid::b)
|
|
byte euclid::a
|
|
byte euclid::a#10 a zp[1]:2 11.0
|
|
byte euclid::a#4 a zp[1]:2 202.0
|
|
byte euclid::a#5 a zp[1]:2 80.66666666666666
|
|
byte euclid::b
|
|
byte euclid::b#4 reg byte x 202.0
|
|
byte euclid::b#5 reg byte x 179.5
|
|
byte euclid::b#9 reg byte x 11.0
|
|
byte euclid::return
|
|
byte euclid::return#0 reg byte a 4.0
|
|
byte euclid::return#1 reg byte a 4.0
|
|
byte euclid::return#2 reg byte a 4.0
|
|
byte euclid::return#3 reg byte a 4.0
|
|
byte idx
|
|
void main()
|
|
byte~ main::$0 reg byte a 4.0
|
|
byte~ main::$1 reg byte a 4.0
|
|
byte~ main::$2 reg byte a 4.0
|
|
byte~ main::$3 reg byte a 4.0
|
|
|
|
zp[1]:2 [ euclid::a#5 euclid::a#10 euclid::a#4 ]
|
|
reg byte x [ euclid::b#5 euclid::b#9 euclid::b#4 ]
|
|
reg byte a [ euclid::return#0 ]
|
|
reg byte a [ main::$0 ]
|
|
reg byte a [ euclid::return#1 ]
|
|
reg byte a [ main::$1 ]
|
|
reg byte a [ euclid::return#2 ]
|
|
reg byte a [ main::$2 ]
|
|
reg byte a [ euclid::return#3 ]
|
|
reg byte a [ main::$3 ]
|