� Move UP
(� Moves program in main RAM into SWR
� Allan Kelly 23/2/86
(�
2#� "Which socket is SWR in ?"ram
<� ram>=0 � ram<16
F
ram=&D
Pto=&8000
Zmemory=&6000
d
len=&8
n� pass=0 � 2 � 2
xP%=&A00
�[
�OPT pass
�LDA#memory � 256
�
STA&70
�LDA#memory � 256
�
STA&71
�LDA#to � 256
�
STA&72
�LDA#to � 256
�
STA&73
�
LDA&F4
�PHA
�LDA#ram


STA&F4

STA&FE30

	LDY#0

".back LDA(&70),Y

,STA(&72),Y

6INY

@	CPY#0

JBNE back

T
INC&71

^
INC&73

h
LDA&71

rCMP#len+(memory � 256)

|BMI back

�PLA

�
STA&F4

�STA&FE30

�RTS

�]

��

�*SAVE U.UP A00 +40 A00 A00

��
�

00000000  0d 00 0a 0d f4 20 4d 6f  76 65 20 55 50 0d 00 14  |..... Move UP...|
00000010  28 f4 20 4d 6f 76 65 73  20 70 72 6f 67 72 61 6d  |(. Moves program|
00000020  20 69 6e 20 6d 61 69 6e  20 52 41 4d 20 69 6e 74  | in main RAM int|
00000030  6f 20 53 57 52 0d 00 1e  19 f4 20 41 6c 6c 61 6e  |o SWR..... Allan|
00000040  20 4b 65 6c 6c 79 20 32  33 2f 32 2f 38 36 0d 00  | Kelly 23/2/86..|
00000050  28 05 f5 0d 00 32 23 e8  20 22 57 68 69 63 68 20  |(....2#. "Which |
00000060  73 6f 63 6b 65 74 20 69  73 20 53 57 52 20 69 6e  |socket is SWR in|
00000070  20 3f 22 72 61 6d 0d 00  3c 15 fd 20 72 61 6d 3e  | ?"ram..<.. ram>|
00000080  3d 30 20 80 20 72 61 6d  3c 31 36 0d 00 46 0a 72  |=0 . ram<16..F.r|
00000090  61 6d 3d 26 44 0d 00 50  0c 74 6f 3d 26 38 30 30  |am=&D..P.to=&800|
000000a0  30 0d 00 5a 10 6d 65 6d  6f 72 79 3d 26 36 30 30  |0..Z.memory=&600|
000000b0  30 0d 00 64 0a 6c 65 6e  3d 26 38 0d 00 6e 14 e3  |0..d.len=&8..n..|
000000c0  20 70 61 73 73 3d 30 20  b8 20 32 20 88 20 32 0d  | pass=0 . 2 . 2.|
000000d0  00 78 0b 50 25 3d 26 41  30 30 0d 00 82 05 5b 0d  |.x.P%=&A00....[.|
000000e0  00 8c 0c 4f 50 54 20 70  61 73 73 0d 00 96 14 4c  |...OPT pass....L|
000000f0  44 41 23 6d 65 6d 6f 72  79 20 83 20 32 35 36 0d  |DA#memory . 256.|
00000100  00 a0 0a 53 54 41 26 37  30 0d 00 aa 14 4c 44 41  |...STA&70....LDA|
00000110  23 6d 65 6d 6f 72 79 20  81 20 32 35 36 0d 00 b4  |#memory . 256...|
00000120  0a 53 54 41 26 37 31 0d  00 be 10 4c 44 41 23 74  |.STA&71....LDA#t|
00000130  6f 20 83 20 32 35 36 0d  00 c8 0a 53 54 41 26 37  |o . 256....STA&7|
00000140  32 0d 00 d2 10 4c 44 41  23 74 6f 20 81 20 32 35  |2....LDA#to . 25|
00000150  36 0d 00 dc 0a 53 54 41  26 37 33 0d 00 e6 0a 4c  |6....STA&73....L|
00000160  44 41 26 46 34 0d 00 f0  07 50 48 41 0d 00 fa 0b  |DA&F4....PHA....|
00000170  4c 44 41 23 72 61 6d 0d  01 04 0a 53 54 41 26 46  |LDA#ram....STA&F|
00000180  34 0d 01 0e 0c 53 54 41  26 46 45 33 30 0d 01 18  |4....STA&FE30...|
00000190  09 4c 44 59 23 30 0d 01  22 14 2e 62 61 63 6b 20  |.LDY#0.."..back |
000001a0  4c 44 41 28 26 37 30 29  2c 59 0d 01 2c 0e 53 54  |LDA(&70),Y..,.ST|
000001b0  41 28 26 37 32 29 2c 59  0d 01 36 07 49 4e 59 0d  |A(&72),Y..6.INY.|
000001c0  01 40 09 43 50 59 23 30  0d 01 4a 0c 42 4e 45 20  |.@.CPY#0..J.BNE |
000001d0  62 61 63 6b 0d 01 54 0a  49 4e 43 26 37 31 0d 01  |back..T.INC&71..|
000001e0  5e 0a 49 4e 43 26 37 33  0d 01 68 0a 4c 44 41 26  |^.INC&73..h.LDA&|
000001f0  37 31 0d 01 72 1a 43 4d  50 23 6c 65 6e 2b 28 6d  |71..r.CMP#len+(m|
00000200  65 6d 6f 72 79 20 81 20  32 35 36 29 0d 01 7c 0c  |emory . 256)..|.|
00000210  42 4d 49 20 62 61 63 6b  0d 01 86 07 50 4c 41 0d  |BMI back....PLA.|
00000220  01 90 0a 53 54 41 26 46  34 0d 01 9a 0c 53 54 41  |...STA&F4....STA|
00000230  26 46 45 33 30 0d 01 a4  07 52 54 53 0d 01 ae 05  |&FE30....RTS....|
00000240  5d 0d 01 b8 05 ed 0d 01  c2 1e 2a 53 41 56 45 20  |].........*SAVE |
00000250  55 2e 55 50 20 41 30 30  20 2b 34 30 20 41 30 30  |U.UP A00 +40 A00|
00000260  20 41 30 30 0d 01 cc 05  e0 0d ff                 | A00.......|
0000026b