You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
584 B
20 lines
584 B
Register A: 48744869
|
|
Register B: 0
|
|
Register C: 0
|
|
|
|
Program: 2,4,1,2,7,5,1,3,4,4,5,5,0,3,3,0
|
|
|
|
bst ra (rb = ra % 8)
|
|
bxl 2 (rb = rb ^ 2)
|
|
cdv rb (rc = int(ra / 2**rb))
|
|
bxl 3 (rb = rb ^ 3)
|
|
bxc _ (rb = rb ^ rc)
|
|
out rb (print rb % 8)
|
|
adv 3 (ra = int(ra / 8))
|
|
jnz 0 (loop if ra != 0)
|
|
|
|
print rb%8 = rb^rc % 8 = rb ^ 3 ^ rc % 8 = rb ^ 3 ^ int(ra / 2^rb) % 8 = rb ^ 2 ^ 3 ^ int(ra / 2**(rb^2)) % 8 =
|
|
(ra%8) ^ 2 ^ 3 ^ int(ra / 2**((ra%8)^2)) % 8 = 2
|
|
((ra//8**1)%8) ^ 2 ^ 3 ^ int((ra//8**1) / 2**((ra%8**1)^2)) % 8 = 4
|
|
-> must loop 16 times, so ra must be around 8^15 to 8^16?
|
|
prints out
|
|
|