;*** [Let'S@CASLU] *** TOI025 START LAD GR1,15 LD GR2,=#8000 LAD GR3,0 LD GR4,SRCP AND GR4,=#FF00 JP1 LD GR5,GR4 AND GR5,GR2 SRL GR5,0,GR1 OR GR3,GR5 SRL GR2,1 SUBA GR1,=2 JPL JP1 LAD GR1,15 LD GR2,=#0001 LD GR4,SRCP AND GR4,=#00FF JP2 LD GR5,GR4 AND GR5,GR2 SLL GR5,0,GR1 OR GR3,GR5 SLL GR2,1 SUBA GR1,=2 JPL JP2 ST GR3,TRNP RET SRCP DC #1234 TRNP DS 1 END