^PGMSISUBRBYTPROTECHLOZ٠Λd,,** LOAD MACHINE LANGUAGE SUBROUTINE **n6-@$;,x-@"67,.>:, ++** GET AMOUNT OF MEMORY TO PROTECT **..(%How many bytes do you want to protect$6-P:'AV,$6-&AV$67@<@,.>:,67@<@,.>:,,>>** REINITIALIZE BASIC WITH THE NEW LOW MEMORY POINTER **66-?:C:,,''** MACHINE LANGUAGE SUBROUTINE **22MEMLO =$02E7;BOTTOM OF AVAILABLE USER MEMORY WARMST=$08;WARM START FLAG..CARTA =$A000;BASIC CARTRIDGE ENTRY POINTOOTHE PROGRAM IS COMPLETELY RELOCATABLE. SO NO STARTING ADDRESS IS PROVIDED""CLC ;INITIALIZE FOR ADDITION24,,LDA MEMLO ;ADD LEAST-SIGNIFICANT BYTES173,231,2ADC #PROTECT&$FF& 105,00STA MEMLO:141,231,2D--LDA MEMLO+1 ;ADD MOST-SIGNIFICANT BYTESN173,232,2XADC #PROTECT/256b 105,0lSTA MEMLO+1v141,232,2''LDA #0 ;RESET THE WARM START FLAG 169,0STA WARMST 133,8((JUMP CARTA ;START BASIC OVER AGAIN76,0,160 D4:P209L1.BAS