Home » Archimedes archive » Acorn Computing » 1993 07 Mega Disk.adf » 93_07 » DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/FastMover

DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/FastMover

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 » Archimedes archive » Acorn Computing » 1993 07 Mega Disk.adf » 93_07
Filename: DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/FastMover
Read OK:
File size: 02DA bytes
Load address: 0000
Exec address: 0000
File contents
   10REM > FastMove
   20
   30SYS &1E,6,,,256 TO ,,code%
   40FOR opt%=0 TO 2 STEP 2
   50P%=code%
   60[OPT opt%
   70.flag
   80DCD 0
   90.fs_cont
  100TEQ R0,#26
  110BEQ copy
  120MOVS PC,R14
  130.copy
  140STMFD R13!,{R14}
  150LDR R14,flag
  160TEQ R14,#0
  170LDMNEFD R13!,{PC}
  180ANDS R14,R3,#(1<<7)
  190LDMEQFD R13!,{PC}
  200STMFD R13!,{R0-R12}
  210MOV R14,#1
  220STR R14,flag
  230.b
  240MOV R0,#25
  250SWI &20029
  260MOVVC R14,#0
  270STRVC R14,flag
  280LDMVCFD R13!,{R0-R12}
  290LDMVCFD R13!,{R14}
  300LDMVCFD R13!,{PC}
  310LDR R0,[R0]
  320TEQ R0,#176
  330MOVNE R14,#0
  340STRNE R14,flag
  350LDMNEFD R13!,{R0-R12}
  360LDMNEFD R13!,{PC}
  370MOV R0,#27
  380MOV R1,R2
  390MOV R3,#%11
  400SWI &20029
  410LDMFD R13!,{R0-R12}
  420STMFD R13!,{R0-R12}
  430B b
  440]:NEXT
  450
  460SYS &1F,&F,fs_cont,0

� > FastMove

ș &1E,6,,,256 � ,,code%
(� opt%=0 � 2 � 2
2P%=code%
<
[OPT opt%
F	.flag
P	DCD 0
Z.fs_cont
dTEQ R0,#26
nBEQ copy
xMOVS PC,R14
�	.copy
�STMFD R13!,{R14}
�LDR R14,flag
�TEQ R14,#0
�LDMNEFD R13!,{PC}
��S R14,R3,#(1<<7)
�LDMEQFD R13!,{PC}
�STMFD R13!,{R0-R12}
�MOV R14,#1
�STR R14,flag
�.b
�MOV R0,#25
�SWI &20029
MOVVC R14,#0
STRVC R14,flag
LDMVCFD R13!,{R0-R12}
"LDMVCFD R13!,{R14}
,LDMVCFD R13!,{PC}
6LDR R0,[R0]
@TEQ R0,#176
JMOVNE R14,#0
TSTRNE R14,flag
^LDMNEFD R13!,{R0-R12}
hLDMNEFD R13!,{PC}
rMOV R0,#27
|
MOV R1,R2
�MOV R3,#%11
�SWI &20029
�LDMFD R13!,{R0-R12}
�STMFD R13!,{R0-R12}
�B b
�]:�
�
�ș &1F,&F,fs_cont,0
�
00000000  0d 00 0a 10 f4 20 3e 20  46 61 73 74 4d 6f 76 65  |..... > FastMove|
00000010  0d 00 14 04 0d 00 1e 1c  c8 99 20 26 31 45 2c 36  |.......... &1E,6|
00000020  2c 2c 2c 32 35 36 20 b8  20 2c 2c 63 6f 64 65 25  |,,,256 . ,,code%|
00000030  0d 00 28 14 e3 20 6f 70  74 25 3d 30 20 b8 20 32  |..(.. opt%=0 . 2|
00000040  20 88 20 32 0d 00 32 0c  50 25 3d 63 6f 64 65 25  | . 2..2.P%=code%|
00000050  0d 00 3c 0d 5b 4f 50 54  20 6f 70 74 25 0d 00 46  |..<.[OPT opt%..F|
00000060  09 2e 66 6c 61 67 0d 00  50 09 44 43 44 20 30 0d  |..flag..P.DCD 0.|
00000070  00 5a 0c 2e 66 73 5f 63  6f 6e 74 0d 00 64 0e 54  |.Z..fs_cont..d.T|
00000080  45 51 20 52 30 2c 23 32  36 0d 00 6e 0c 42 45 51  |EQ R0,#26..n.BEQ|
00000090  20 63 6f 70 79 0d 00 78  0f 4d 4f 56 53 20 50 43  | copy..x.MOVS PC|
000000a0  2c 52 31 34 0d 00 82 09  2e 63 6f 70 79 0d 00 8c  |,R14.....copy...|
000000b0  14 53 54 4d 46 44 20 52  31 33 21 2c 7b 52 31 34  |.STMFD R13!,{R14|
000000c0  7d 0d 00 96 10 4c 44 52  20 52 31 34 2c 66 6c 61  |}....LDR R14,fla|
000000d0  67 0d 00 a0 0e 54 45 51  20 52 31 34 2c 23 30 0d  |g....TEQ R14,#0.|
000000e0  00 aa 15 4c 44 4d 4e 45  46 44 20 52 31 33 21 2c  |...LDMNEFD R13!,|
000000f0  7b 50 43 7d 0d 00 b4 15  80 53 20 52 31 34 2c 52  |{PC}.....S R14,R|
00000100  33 2c 23 28 31 3c 3c 37  29 0d 00 be 15 4c 44 4d  |3,#(1<<7)....LDM|
00000110  45 51 46 44 20 52 31 33  21 2c 7b 50 43 7d 0d 00  |EQFD R13!,{PC}..|
00000120  c8 17 53 54 4d 46 44 20  52 31 33 21 2c 7b 52 30  |..STMFD R13!,{R0|
00000130  2d 52 31 32 7d 0d 00 d2  0e 4d 4f 56 20 52 31 34  |-R12}....MOV R14|
00000140  2c 23 31 0d 00 dc 10 53  54 52 20 52 31 34 2c 66  |,#1....STR R14,f|
00000150  6c 61 67 0d 00 e6 06 2e  62 0d 00 f0 0e 4d 4f 56  |lag.....b....MOV|
00000160  20 52 30 2c 23 32 35 0d  00 fa 0e 53 57 49 20 26  | R0,#25....SWI &|
00000170  32 30 30 32 39 0d 01 04  10 4d 4f 56 56 43 20 52  |20029....MOVVC R|
00000180  31 34 2c 23 30 0d 01 0e  12 53 54 52 56 43 20 52  |14,#0....STRVC R|
00000190  31 34 2c 66 6c 61 67 0d  01 18 19 4c 44 4d 56 43  |14,flag....LDMVC|
000001a0  46 44 20 52 31 33 21 2c  7b 52 30 2d 52 31 32 7d  |FD R13!,{R0-R12}|
000001b0  0d 01 22 16 4c 44 4d 56  43 46 44 20 52 31 33 21  |..".LDMVCFD R13!|
000001c0  2c 7b 52 31 34 7d 0d 01  2c 15 4c 44 4d 56 43 46  |,{R14}..,.LDMVCF|
000001d0  44 20 52 31 33 21 2c 7b  50 43 7d 0d 01 36 0f 4c  |D R13!,{PC}..6.L|
000001e0  44 52 20 52 30 2c 5b 52  30 5d 0d 01 40 0f 54 45  |DR R0,[R0]..@.TE|
000001f0  51 20 52 30 2c 23 31 37  36 0d 01 4a 10 4d 4f 56  |Q R0,#176..J.MOV|
00000200  4e 45 20 52 31 34 2c 23  30 0d 01 54 12 53 54 52  |NE R14,#0..T.STR|
00000210  4e 45 20 52 31 34 2c 66  6c 61 67 0d 01 5e 19 4c  |NE R14,flag..^.L|
00000220  44 4d 4e 45 46 44 20 52  31 33 21 2c 7b 52 30 2d  |DMNEFD R13!,{R0-|
00000230  52 31 32 7d 0d 01 68 15  4c 44 4d 4e 45 46 44 20  |R12}..h.LDMNEFD |
00000240  52 31 33 21 2c 7b 50 43  7d 0d 01 72 0e 4d 4f 56  |R13!,{PC}..r.MOV|
00000250  20 52 30 2c 23 32 37 0d  01 7c 0d 4d 4f 56 20 52  | R0,#27..|.MOV R|
00000260  31 2c 52 32 0d 01 86 0f  4d 4f 56 20 52 33 2c 23  |1,R2....MOV R3,#|
00000270  25 31 31 0d 01 90 0e 53  57 49 20 26 32 30 30 32  |%11....SWI &2002|
00000280  39 0d 01 9a 17 4c 44 4d  46 44 20 52 31 33 21 2c  |9....LDMFD R13!,|
00000290  7b 52 30 2d 52 31 32 7d  0d 01 a4 17 53 54 4d 46  |{R0-R12}....STMF|
000002a0  44 20 52 31 33 21 2c 7b  52 30 2d 52 31 32 7d 0d  |D R13!,{R0-R12}.|
000002b0  01 ae 07 42 20 62 0d 01  b8 07 5d 3a ed 0d 01 c2  |...B b....]:....|
000002c0  04 0d 01 cc 17 c8 99 20  26 31 46 2c 26 46 2c 66  |....... &1F,&F,f|
000002d0  73 5f 63 6f 6e 74 2c 30  0d ff                    |s_cont,0..|
000002da