set a, 0 set b, 0 set c, 0xf000 :loop ife [0x9000], 0 set pc, loop set b, [0x9000] bor b, c set [0x8000 + a], b set [0x9000], 0 add a, 1 set pc, loop