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 2P%=code% < [OPT opt% F .flag P DCD 0 Z.fs_cont dTEQ R0,#26 nBEQ 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