TITLE MSX - Module to prevent autopatch theft of MS SEARCH GLXMAC PROLOG (MSX) A=1 B=2 C=3 D=4 INTERNAL MOVSTR,MOVST0,MOVST1,MOVST2 ; Move a string from 2 to 1 MOVSTR: HRLI B,(<POINT 7,0>) MOVST1: ILDB C,B JUMPE C,MOVST3 IDPB C,A JRST MOVST1 ; Move string and terminating null MOVST0: HRLI B,(<POINT 7,0>) MOVST2: ILDB C,B IDPB C,A JUMPN C,MOVST2 MOVST3: POPJ 17, END