Home » CEEFAX disks » telesoftware5.adl » 12-03-88/MOVEUP

12-03-88/MOVEUP

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware5.adl
Filename: 12-03-88/MOVEUP
Read OK:
File size: 0263 bytes
Load address: FFFF1900
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

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


� 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
12-03-88/MOVEUP.m0
12-03-88/MOVEUP.m1
12-03-88/MOVEUP.m2
12-03-88/MOVEUP.m4
12-03-88/MOVEUP.m5