: '& get-token drop ; : >& dup @ 6 << 6 >>a -4 and + ; : & na+ >& ; 6ED '& execute 0 value mi : mmr " map-range" mi if my-self $call-method else $call-parent then ; 89B '& ' mmr BRpatch : mcm -1 to mi $call-method 0 to mi ; 8CB '& 1E na+ ' mcm BLpatch : maa -1 to mi 1D swap ; 8C9 '& 5 na+ ' maa BLpatch 8C9 '& 134 + ' 1 BLpatch 8CD '& 184 + dup 14 + >& BRpatch 8C6 '& 7C + ' u< BLpatch 0 value yn : y yn 0= if dup @ to yn then ; 8CB '& ' y BRpatch ' y 28 + 8CB '& 8 + BRpatch : z yn ?dup if over ! 0 to yn then ; 8CC '& ' z BRpatch ' z 2C + 8CC '& 8 + BRpatch dev /bandit/gc/via-cuda ' write value &W : -&We &W swap - execute ; : P1 4D8 -&We false 548 -&We ; &W FC + ' P1 BLpatch : P2 0C 2 ms ; &W E0 + ' P2 BLpatch device-end 4180FFF0 ' msr! 44 + code! dev /packages/xcoff-loader : p&+ ['] open 600 - + ; : p3 { _a _s } _a -1000 and _a _s + over - FFF ( + -1000 and ) ; 60000000 dup 8 p&+ code! C p&+ code! 18 p&+ ' p3 BLpatch device-end code ictc! 7e9bfba6 l, 829f0000 l, 3bff0004 l, 4e800020 l, end-code pvr@ 80000 >= if hid0@ 208 or FFFFFF7F and hid0! 11 ictc! then