R.MrdrSrc

Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape19b_acorn_eu_1991_february.wav » R.MrdrSrc

R.MrdrSrc

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 » Personal collection » Acorn tapes » Electron_User » Electron_User_tape19b_acorn_eu_1991_february.wav
Filename:	R.MrdrSrc
Read OK:	✔
File size:	037C bytes
Load address:	FFFF1900
Exec address:	FFFF802B

Duplicates

There are 2 duplicate copies of this file in the archive:

AEW website » mu » mu_5_25_discs_Micro_User_08_12_D-MU08_12.ssd » R.MrdrSrc
Personal collection » Acorn tapes » Electron_User » Electron_User_tape19a_acorn_eu_1991_february.wav » R.MrdrSrc
Personal collection » Acorn tapes » Electron_User » Electron_User_tape19b_acorn_eu_1991_february.wav » R.MrdrSrc

File contents

   10REM *Murder source
   20REM by Alison Ferguson
   30REM (c) The Micro User
   40REM February 1991
   50MODE 7:oswrch=&FFEE:osfile=&FFDD:osword=&FFF1:osfind=&FFCE:osbput=&FFD4:FOR A%=0 TO 3 STEP 3:P%=&900
   60[OPT A%:LDA #61:JSR oswrch:JSR oswrch:LDA #62:JSR oswrch:LDA #0:LDX #blk MOD 256:LDY #blk DIV 256:JSR osword
   70LDA #5:LDX #blk2 MOD 256:LDY #blk2 DIV 256:JSR osfile:LDA #128:LDX #file MOD 256:LDY #file DIV 256:JSR osfind:TAY
   80.loop:LDA #229:JSR osbput:SEC:LDA blk2+10:SBC #1:STA blk2+10:LDA blk2+11:SBC #0:STA blk2+11:ORA blk2+10:BNE loop
   90LDA #0:JSR osfind:LDA #6:LDX #blk2 MOD 256:LDY #blk2 DIV 256:JSR osfile
  100RTS:.blk:OPT FNequw(file):OPT FNequb(16):OPT FNequb(33):OPT FNequb(126)
  110.blk2:OPT FNequw(file):OPT FNequs(STRING$(16,CHR$0)):.file:OPT FNequs(STRING$(16,"*")):]:NEXT
  120PRINT ''" *SAVE Murder 900 ";STR$~P%;"   to save code.":END
  130DEF FNequb(S%):?P%=S%:P%=P%+1:=A%
  140DEF FNequw(S%):!P%=S%:P%=P%+2:=A%
  150DEF FNequs(S$):$P%=S$:P%=P%+LEN(S$):=A%


� *Murder source
� by Alison Ferguson
� (c) The Micro User
(� February 1991
2_� 7:oswrch=&FFEE:osfile=&FFDD:osword=&FFF1:osfind=&FFCE:osbput=&FFD4:� A%=0 � 3 � 3:P%=&900
<l[OPT A%:LDA #61:JSR oswrch:JSR oswrch:LDA #62:JSR oswrch:LDA #0:LDX #blk � 256:LDY #blk � 256:JSR osword
FmLDA #5:LDX #blk2 � 256:LDY #blk2 � 256:JSR osfile:LDA #128:LDX #file � 256:LDY #file � 256:JSR osfind:TAY
Ps.loop:LDA #229:JSR osbput:SEC:LDA blk2+10:SBC #1:STA blk2+10:LDA blk2+11:SBC #0:STA blk2+11:�A blk2+10:BNE loop
ZGLDA #0:JSR osfind:LDA #6:LDX #blk2 � 256:LDY #blk2 � 256:JSR osfile
dGRTS:.blk:OPT �equw(file):OPT �equb(16):OPT �equb(33):OPT �equb(126)
nJ.blk2:OPT �equw(file):OPT �equs(�16,�0)):.file:OPT �equs(�16,"*")):]:�
x6� ''" *SAVE Murder 900 ";�~P%;"   to save code.":�
�"� �equb(S%):?P%=S%:P%=P%+1:=A%
�"� �equw(S%):!P%=S%:P%=P%+2:=A%
�&� �equs(S$):$P%=S$:P%=P%+�(S$):=A%
�

00000000  0d 00 0a 14 f4 20 2a 4d  75 72 64 65 72 20 73 6f  |..... *Murder so|
00000010  75 72 63 65 0d 00 14 18  f4 20 62 79 20 41 6c 69  |urce..... by Ali|
00000020  73 6f 6e 20 46 65 72 67  75 73 6f 6e 0d 00 1e 18  |son Ferguson....|
00000030  f4 20 28 63 29 20 54 68  65 20 4d 69 63 72 6f 20  |. (c) The Micro |
00000040  55 73 65 72 0d 00 28 13  f4 20 46 65 62 72 75 61  |User..(.. Februa|
00000050  72 79 20 31 39 39 31 0d  00 32 5f eb 20 37 3a 6f  |ry 1991..2_. 7:o|
00000060  73 77 72 63 68 3d 26 46  46 45 45 3a 6f 73 66 69  |swrch=&FFEE:osfi|
00000070  6c 65 3d 26 46 46 44 44  3a 6f 73 77 6f 72 64 3d  |le=&FFDD:osword=|
00000080  26 46 46 46 31 3a 6f 73  66 69 6e 64 3d 26 46 46  |&FFF1:osfind=&FF|
00000090  43 45 3a 6f 73 62 70 75  74 3d 26 46 46 44 34 3a  |CE:osbput=&FFD4:|
000000a0  e3 20 41 25 3d 30 20 b8  20 33 20 88 20 33 3a 50  |. A%=0 . 3 . 3:P|
000000b0  25 3d 26 39 30 30 0d 00  3c 6c 5b 4f 50 54 20 41  |%=&900..<l[OPT A|
000000c0  25 3a 4c 44 41 20 23 36  31 3a 4a 53 52 20 6f 73  |%:LDA #61:JSR os|
000000d0  77 72 63 68 3a 4a 53 52  20 6f 73 77 72 63 68 3a  |wrch:JSR oswrch:|
000000e0  4c 44 41 20 23 36 32 3a  4a 53 52 20 6f 73 77 72  |LDA #62:JSR oswr|
000000f0  63 68 3a 4c 44 41 20 23  30 3a 4c 44 58 20 23 62  |ch:LDA #0:LDX #b|
00000100  6c 6b 20 83 20 32 35 36  3a 4c 44 59 20 23 62 6c  |lk . 256:LDY #bl|
00000110  6b 20 81 20 32 35 36 3a  4a 53 52 20 6f 73 77 6f  |k . 256:JSR oswo|
00000120  72 64 0d 00 46 6d 4c 44  41 20 23 35 3a 4c 44 58  |rd..FmLDA #5:LDX|
00000130  20 23 62 6c 6b 32 20 83  20 32 35 36 3a 4c 44 59  | #blk2 . 256:LDY|
00000140  20 23 62 6c 6b 32 20 81  20 32 35 36 3a 4a 53 52  | #blk2 . 256:JSR|
00000150  20 6f 73 66 69 6c 65 3a  4c 44 41 20 23 31 32 38  | osfile:LDA #128|
00000160  3a 4c 44 58 20 23 66 69  6c 65 20 83 20 32 35 36  |:LDX #file . 256|
00000170  3a 4c 44 59 20 23 66 69  6c 65 20 81 20 32 35 36  |:LDY #file . 256|
00000180  3a 4a 53 52 20 6f 73 66  69 6e 64 3a 54 41 59 0d  |:JSR osfind:TAY.|
00000190  00 50 73 2e 6c 6f 6f 70  3a 4c 44 41 20 23 32 32  |.Ps.loop:LDA #22|
000001a0  39 3a 4a 53 52 20 6f 73  62 70 75 74 3a 53 45 43  |9:JSR osbput:SEC|
000001b0  3a 4c 44 41 20 62 6c 6b  32 2b 31 30 3a 53 42 43  |:LDA blk2+10:SBC|
000001c0  20 23 31 3a 53 54 41 20  62 6c 6b 32 2b 31 30 3a  | #1:STA blk2+10:|
000001d0  4c 44 41 20 62 6c 6b 32  2b 31 31 3a 53 42 43 20  |LDA blk2+11:SBC |
000001e0  23 30 3a 53 54 41 20 62  6c 6b 32 2b 31 31 3a 84  |#0:STA blk2+11:.|
000001f0  41 20 62 6c 6b 32 2b 31  30 3a 42 4e 45 20 6c 6f  |A blk2+10:BNE lo|
00000200  6f 70 0d 00 5a 47 4c 44  41 20 23 30 3a 4a 53 52  |op..ZGLDA #0:JSR|
00000210  20 6f 73 66 69 6e 64 3a  4c 44 41 20 23 36 3a 4c  | osfind:LDA #6:L|
00000220  44 58 20 23 62 6c 6b 32  20 83 20 32 35 36 3a 4c  |DX #blk2 . 256:L|
00000230  44 59 20 23 62 6c 6b 32  20 81 20 32 35 36 3a 4a  |DY #blk2 . 256:J|
00000240  53 52 20 6f 73 66 69 6c  65 0d 00 64 47 52 54 53  |SR osfile..dGRTS|
00000250  3a 2e 62 6c 6b 3a 4f 50  54 20 a4 65 71 75 77 28  |:.blk:OPT .equw(|
00000260  66 69 6c 65 29 3a 4f 50  54 20 a4 65 71 75 62 28  |file):OPT .equb(|
00000270  31 36 29 3a 4f 50 54 20  a4 65 71 75 62 28 33 33  |16):OPT .equb(33|
00000280  29 3a 4f 50 54 20 a4 65  71 75 62 28 31 32 36 29  |):OPT .equb(126)|
00000290  0d 00 6e 4a 2e 62 6c 6b  32 3a 4f 50 54 20 a4 65  |..nJ.blk2:OPT .e|
000002a0  71 75 77 28 66 69 6c 65  29 3a 4f 50 54 20 a4 65  |quw(file):OPT .e|
000002b0  71 75 73 28 c4 31 36 2c  bd 30 29 29 3a 2e 66 69  |qus(.16,.0)):.fi|
000002c0  6c 65 3a 4f 50 54 20 a4  65 71 75 73 28 c4 31 36  |le:OPT .equs(.16|
000002d0  2c 22 2a 22 29 29 3a 5d  3a ed 0d 00 78 36 f1 20  |,"*")):]:...x6. |
000002e0  27 27 22 20 2a 53 41 56  45 20 4d 75 72 64 65 72  |''" *SAVE Murder|
000002f0  20 39 30 30 20 22 3b c3  7e 50 25 3b 22 20 20 20  | 900 ";.~P%;"   |
00000300  74 6f 20 73 61 76 65 20  63 6f 64 65 2e 22 3a e0  |to save code.":.|
00000310  0d 00 82 22 dd 20 a4 65  71 75 62 28 53 25 29 3a  |...". .equb(S%):|
00000320  3f 50 25 3d 53 25 3a 50  25 3d 50 25 2b 31 3a 3d  |?P%=S%:P%=P%+1:=|
00000330  41 25 0d 00 8c 22 dd 20  a4 65 71 75 77 28 53 25  |A%...". .equw(S%|
00000340  29 3a 21 50 25 3d 53 25  3a 50 25 3d 50 25 2b 32  |):!P%=S%:P%=P%+2|
00000350  3a 3d 41 25 0d 00 96 26  dd 20 a4 65 71 75 73 28  |:=A%...&. .equs(|
00000360  53 24 29 3a 24 50 25 3d  53 24 3a 50 25 3d 50 25  |S$):$P%=S$:P%=P%|
00000370  2b a9 28 53 24 29 3a 3d  41 25 0d ff              |+.(S$):=A%..|
0000037c

R.MrdrSrc.m0

R.MrdrSrc.m1

R.MrdrSrc.m2

R.MrdrSrc.m4

R.MrdrSrc.m5

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .