Home » Archimedes archive » Games » Holed Out 2 - Designer (1989)(The Fourth Dimension).adf » RUNER
RUNER
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 » Games » Holed Out 2 - Designer (1989)(The Fourth Dimension).adf |
| Filename: | RUNER |
| Read OK: | ✔ |
| File size: | 0301 bytes |
| Load address: | FFFFFB41 |
| Exec address: | EF922DD1 |
File contents
10REM >!DESIGNER.RUNER
80DIM Code &200
100willie=FALSE
110FORT%=0TO2STEP2
120P%=Code
130[OPTT%
140.goscreen
150STMFD R13!,{R0,R1}
160STMFD R13!,{R2-R4,R14}
161MOV R0,#1
162MOV R1,#1
163MOV R2,#&AF000
164ADR R3,screen
165MOV R4,#&100
166SWI "ADFS_DiscOp"
170MOV R0,#1
180ADR R1,gogo
190.lop
200LDRB R2,[R1]
210SUB R2,R2,R0,LSR#2
220STRB R2,[R1],#1
230ADD R0,R0,#1
240CMP R0,#19
250BNE lop
300LDR R0,screen
310LDR R1,goscreen
320CMP R0,R1
330BEQ sok
340SWI "OS_EnterOS"
350LDR R1,getfred
360LDR R1,[R1]
370MOV R0,#willie
380STR R1,[R0]
390TEQP PC,#&FC000003
400MOV PC,#willie
410.sok
420ADR R0,gogo
430SWI 5
440LDMFD R13!,{R2-R4,R14}
450LDMFD R13!,{R0,R1}
460MOV PC,R14
470.getfred:EQUD&3800000
480.gogo:EQUS"RUN!=Pcg{&FluA1VYR"
490EQUB13:ALIGN
500.screen
510]
520NEXT
530CALL Code
531END
� >!DESIGNER.RUNER
P� Code &200
d willie=�
n
�T%=0�2�2
x P%=Code
�
[OPTT%
�
.goscreen
�STMFD R13!,{R0,R1}
�STMFD R13!,{R2-R4,R14}
�
MOV R0,#1
�
MOV R1,#1
�MOV R2,#&AF000
�ADR R3,screen
�MOV R4,#&100
�SWI "ADFS_DiscOp"
�
MOV R0,#1
�ADR R1,gogo
�.lop
�LDRB R2,[R1]
�SUB R2,R2,R0,LSR#2
�STRB R2,[R1],#1
�ADD R0,R0,#1
�CMP R0,#19
� BNE lop
,LDR R0,screen
6LDR R1,goscreen
@
CMP R0,R1
J BEQ sok
TSWI "OS_EnterOS"
^LDR R1,getfred
hLDR R1,[R1]
rMOV R0,#willie
|STR R1,[R0]
�TEQP PC,#&FC000003
�MOV PC,#willie
�.sok
�ADR R0,gogo
� SWI 5
�LDMFD R13!,{R2-R4,R14}
�LDMFD R13!,{R0,R1}
�MOV PC,R14
�.getfred:EQUD&3800000
�".gogo:EQUS"RUN!=Pcg{&FluA1VYR"
�EQUB13:ALIGN
� .screen
�]
�
� Code
�
� 00000000 0d 00 0a 16 f4 20 3e 21 44 45 53 49 47 4e 45 52 |..... >!DESIGNER|
00000010 2e 52 55 4e 45 52 0d 00 50 0f de 20 43 6f 64 65 |.RUNER..P.. Code|
00000020 20 26 32 30 30 0d 00 64 0c 77 69 6c 6c 69 65 3d | &200..d.willie=|
00000030 a3 0d 00 6e 0d e3 54 25 3d 30 b8 32 88 32 0d 00 |...n..T%=0.2.2..|
00000040 78 0b 50 25 3d 43 6f 64 65 0d 00 82 0a 5b 4f 50 |x.P%=Code....[OP|
00000050 54 54 25 0d 00 8c 0d 2e 67 6f 73 63 72 65 65 6e |TT%.....goscreen|
00000060 0d 00 96 16 53 54 4d 46 44 20 52 31 33 21 2c 7b |....STMFD R13!,{|
00000070 52 30 2c 52 31 7d 0d 00 a0 1a 53 54 4d 46 44 20 |R0,R1}....STMFD |
00000080 52 31 33 21 2c 7b 52 32 2d 52 34 2c 52 31 34 7d |R13!,{R2-R4,R14}|
00000090 0d 00 a1 0d 4d 4f 56 20 52 30 2c 23 31 0d 00 a2 |....MOV R0,#1...|
000000a0 0d 4d 4f 56 20 52 31 2c 23 31 0d 00 a3 12 4d 4f |.MOV R1,#1....MO|
000000b0 56 20 52 32 2c 23 26 41 46 30 30 30 0d 00 a4 11 |V R2,#&AF000....|
000000c0 41 44 52 20 52 33 2c 73 63 72 65 65 6e 0d 00 a5 |ADR R3,screen...|
000000d0 10 4d 4f 56 20 52 34 2c 23 26 31 30 30 0d 00 a6 |.MOV R4,#&100...|
000000e0 15 53 57 49 20 22 41 44 46 53 5f 44 69 73 63 4f |.SWI "ADFS_DiscO|
000000f0 70 22 0d 00 aa 0d 4d 4f 56 20 52 30 2c 23 31 0d |p"....MOV R0,#1.|
00000100 00 b4 0f 41 44 52 20 52 31 2c 67 6f 67 6f 0d 00 |...ADR R1,gogo..|
00000110 be 08 2e 6c 6f 70 0d 00 c8 10 4c 44 52 42 20 52 |...lop....LDRB R|
00000120 32 2c 5b 52 31 5d 0d 00 d2 16 53 55 42 20 52 32 |2,[R1]....SUB R2|
00000130 2c 52 32 2c 52 30 2c 4c 53 52 23 32 0d 00 dc 13 |,R2,R0,LSR#2....|
00000140 53 54 52 42 20 52 32 2c 5b 52 31 5d 2c 23 31 0d |STRB R2,[R1],#1.|
00000150 00 e6 10 41 44 44 20 52 30 2c 52 30 2c 23 31 0d |...ADD R0,R0,#1.|
00000160 00 f0 0e 43 4d 50 20 52 30 2c 23 31 39 0d 00 fa |...CMP R0,#19...|
00000170 0b 42 4e 45 20 6c 6f 70 0d 01 2c 11 4c 44 52 20 |.BNE lop..,.LDR |
00000180 52 30 2c 73 63 72 65 65 6e 0d 01 36 13 4c 44 52 |R0,screen..6.LDR|
00000190 20 52 31 2c 67 6f 73 63 72 65 65 6e 0d 01 40 0d | R1,goscreen..@.|
000001a0 43 4d 50 20 52 30 2c 52 31 0d 01 4a 0b 42 45 51 |CMP R0,R1..J.BEQ|
000001b0 20 73 6f 6b 0d 01 54 14 53 57 49 20 22 4f 53 5f | sok..T.SWI "OS_|
000001c0 45 6e 74 65 72 4f 53 22 0d 01 5e 12 4c 44 52 20 |EnterOS"..^.LDR |
000001d0 52 31 2c 67 65 74 66 72 65 64 0d 01 68 0f 4c 44 |R1,getfred..h.LD|
000001e0 52 20 52 31 2c 5b 52 31 5d 0d 01 72 12 4d 4f 56 |R R1,[R1]..r.MOV|
000001f0 20 52 30 2c 23 77 69 6c 6c 69 65 0d 01 7c 0f 53 | R0,#willie..|.S|
00000200 54 52 20 52 31 2c 5b 52 30 5d 0d 01 86 16 54 45 |TR R1,[R0]....TE|
00000210 51 50 20 50 43 2c 23 26 46 43 30 30 30 30 30 33 |QP PC,#&FC000003|
00000220 0d 01 90 12 4d 4f 56 20 50 43 2c 23 77 69 6c 6c |....MOV PC,#will|
00000230 69 65 0d 01 9a 08 2e 73 6f 6b 0d 01 a4 0f 41 44 |ie.....sok....AD|
00000240 52 20 52 30 2c 67 6f 67 6f 0d 01 ae 09 53 57 49 |R R0,gogo....SWI|
00000250 20 35 0d 01 b8 1a 4c 44 4d 46 44 20 52 31 33 21 | 5....LDMFD R13!|
00000260 2c 7b 52 32 2d 52 34 2c 52 31 34 7d 0d 01 c2 16 |,{R2-R4,R14}....|
00000270 4c 44 4d 46 44 20 52 31 33 21 2c 7b 52 30 2c 52 |LDMFD R13!,{R0,R|
00000280 31 7d 0d 01 cc 0e 4d 4f 56 20 50 43 2c 52 31 34 |1}....MOV PC,R14|
00000290 0d 01 d6 19 2e 67 65 74 66 72 65 64 3a 45 51 55 |.....getfred:EQU|
000002a0 44 26 33 38 30 30 30 30 30 0d 01 e0 22 2e 67 6f |D&3800000...".go|
000002b0 67 6f 3a 45 51 55 53 22 52 55 4e 21 3d 50 63 67 |go:EQUS"RUN!=Pcg|
000002c0 7b 26 46 6c 75 41 31 56 59 52 22 0d 01 ea 10 45 |{&FluA1VYR"....E|
000002d0 51 55 42 31 33 3a 41 4c 49 47 4e 0d 01 f4 0b 2e |QUB13:ALIGN.....|
000002e0 73 63 72 65 65 6e 0d 01 fe 05 5d 0d 02 08 05 ed |screen....].....|
000002f0 0d 02 12 0a d6 20 43 6f 64 65 0d 02 13 05 e0 0d |..... Code......|
00000300 ff |.|
00000301 
.