1* Permutation generator a la Langdon 2N IS 6 $n$ (2, 3, ..., 15) 3t IS $255 4k IS $0 5kk IS $1 6c IS $2 7d IS $3 8a GREG 0 9ones GREG #1111111111111111&(1<<(4*N)-1) 10 11 LOC #100 12 GREG @ 13ElGordo OCTA #fedcba9876543210&(1<<(4*N)-1) 14Main LDOU a,ElGordo $a\gets\.{\#...3210}$. 15 JMP 2F 161H SRU a,a,4*(16-N) 17 OR a,a,t 18 192H ADDU c,a,ones Trace this location to see the perm! 20 21 SRU t,a,4*(N-1) 22 SLU a,a,4*(17-N) 23 PBNZ t,1B 24 SET k,1 253H SRU d,a,60 26 SLU a,a,4 27 CMP c,d,k 28 SLU kk,k,2 29 SLU d,d,kk 30 OR t,t,d 31 PBNZ c,1B 32 INCL k,1 33 PBNZ a,3B 34 TRAP 0,Halt,0 35 36