10REM Move UP 20REM Moves program in main RAM into SWR 30REM Allan Kelly 23/2/86 40REPEAT 50INPUT "Which socket is SWR in ?"ram 60UNTIL ram>=0 AND ram<16 70ram=&D 80to=&8000 90memory=&6000 100len=&8 110FOR pass=0 TO 2 STEP 2 120P%=&A00 130[ 140OPT pass 150LDA#memory MOD 256 160STA&70 170LDA#memory DIV 256 180STA&71 190LDA#to MOD 256 200STA&72 210LDA#to DIV 256 220STA&73 230LDA&F4 240PHA 250LDA#ram 260STA&F4 270STA&FE30 280LDY#0 290.back LDA(&70),Y 300STA(&72),Y 310INY 320CPY#0 330BNE back 340INC&71 350INC&73 360LDA&71 370CMP#len+(memory DIV 256) 380BMI back 390PLA 400STA&F4 410STA&FE30 420RTS 430] 440NEXT 450*SAVE U.UP A00 +40 A00 A00 460END