� Move up
%� Moves area of main RAM into SWR
� Allan Kelly 23/2/86
( 
2�
<#� "Which socket is SWR in ?"ram
F� ram>=0 � ram<16
Pto=&8000
Zmemory=&5000
n
len=&8
x� pass=0 � 2 � 2
�P%=&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

6STA(&72),Y

@INY

J	CPY#0

TBNE back

^
INC&71

h
INC&73

r
LDA&71

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