Home » Personal collection » Acorn tapes » Commercial_Releases » box02_tape07a_acorn_eu_arcade_game_creator.wav » 6_PROG1

6_PROG1

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 » Commercial_Releases » box02_tape07a_acorn_eu_arcade_game_creator.wav
Filename: 6_PROG1
Read OK: ✔
File size: 0275 bytes
Load address: 2000
Exec address: 1900
Duplicates

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

File contents
   10REM Score 1
   20REM By R.A.Waddilove
   30REM (c) Electron User
   40MODE 5
   50PROCassemble
   60PRINT TAB(0,5)"Tap the spacebar..."
   70COLOUR 2
   80PRINT TAB(4,10)"SCORE:00000"
   90CALL &900
  100END
  110 
  120DEF PROCassemble
  130oswrch=!&20E
  140FOR pass=0 TO 2 STEP 2
  150P%=&900
  160[OPT pass
  165 
  170.main
  180JSR &FFE0
  190BCS exit
  200JSR score
  210JMP main
  220.exit
  230RTS
  240 
  250.score
  260LDX #3
  270.loop
  280INC digits,X
  290LDA digits,X
  300CMP #ASC"0"+10
  310BNE sc_ok
  320LDA #ASC"0"
  330STA digits,X
  340DEX
  350BPL loop
  360.sc_ok
  370LDX #0
  380.loop
  390LDA digits-3,X
  400JSR oswrch
  410INX
  420CPX #7
  430BNE loop
  440RTS
  450 
  460EQUB 31:EQUB 10:EQUB 10
  470.digits EQUS "0000"
  480]
  490NEXT
  500ENDPROC



� Score 1
� By R.A.Waddilove
� (c) Electron User
(� 5
2
�assemble
< � �0,5)"Tap the spacebar..."
F� 2
P� �4,10)"SCORE:00000"
Z
� &900
d�
n 
x� �assemble
�oswrch=!&20E
�� pass=0 � 2 � 2
�P%=&900
�
[OPT pass
� 
�	.main
�
JSR &FFE0
�BCS exit
�
JSR score
�JMP main
�	.exit
�RTS
� 
�
.score

LDX #3
	.loop
INC digits,X
"LDA digits,X
,CMP #�"0"+10
6
BNE sc_ok
@
LDA #�"0"
JSTA digits,X
TDEX
^BPL loop
h
.sc_ok
r
LDX #0
|	.loop
�LDA digits-3,X
�JSR oswrch
�INX
�
CPX #7
�BNE loop
�RTS
� 
�EQUB 31:EQUB 10:EQUB 10
�.digits EQUS "0000"
�]
��
��
�
00000000  0d 00 0a 0d f4 20 53 63  6f 72 65 20 31 0d 00 14  |..... Score 1...|
00000010  16 f4 20 42 79 20 52 2e  41 2e 57 61 64 64 69 6c  |.. By R.A.Waddil|
00000020  6f 76 65 0d 00 1e 17 f4  20 28 63 29 20 45 6c 65  |ove..... (c) Ele|
00000030  63 74 72 6f 6e 20 55 73  65 72 0d 00 28 07 eb 20  |ctron User..(.. |
00000040  35 0d 00 32 0d f2 61 73  73 65 6d 62 6c 65 0d 00  |5..2..assemble..|
00000050  3c 20 f1 20 8a 30 2c 35  29 22 54 61 70 20 74 68  |< . .0,5)"Tap th|
00000060  65 20 73 70 61 63 65 62  61 72 2e 2e 2e 22 0d 00  |e spacebar..."..|
00000070  46 07 fb 20 32 0d 00 50  19 f1 20 8a 34 2c 31 30  |F.. 2..P.. .4,10|
00000080  29 22 53 43 4f 52 45 3a  30 30 30 30 30 22 0d 00  |)"SCORE:00000"..|
00000090  5a 0a d6 20 26 39 30 30  0d 00 64 05 e0 0d 00 6e  |Z.. &900..d....n|
000000a0  05 20 0d 00 78 0f dd 20  f2 61 73 73 65 6d 62 6c  |. ..x.. .assembl|
000000b0  65 0d 00 82 10 6f 73 77  72 63 68 3d 21 26 32 30  |e....oswrch=!&20|
000000c0  45 0d 00 8c 14 e3 20 70  61 73 73 3d 30 20 b8 20  |E..... pass=0 . |
000000d0  32 20 88 20 32 0d 00 96  0b 50 25 3d 26 39 30 30  |2 . 2....P%=&900|
000000e0  0d 00 a0 0d 5b 4f 50 54  20 70 61 73 73 0d 00 a5  |....[OPT pass...|
000000f0  05 20 0d 00 aa 09 2e 6d  61 69 6e 0d 00 b4 0d 4a  |. .....main....J|
00000100  53 52 20 26 46 46 45 30  0d 00 be 0c 42 43 53 20  |SR &FFE0....BCS |
00000110  65 78 69 74 0d 00 c8 0d  4a 53 52 20 73 63 6f 72  |exit....JSR scor|
00000120  65 0d 00 d2 0c 4a 4d 50  20 6d 61 69 6e 0d 00 dc  |e....JMP main...|
00000130  09 2e 65 78 69 74 0d 00  e6 07 52 54 53 0d 00 f0  |..exit....RTS...|
00000140  05 20 0d 00 fa 0a 2e 73  63 6f 72 65 0d 01 04 0a  |. .....score....|
00000150  4c 44 58 20 23 33 0d 01  0e 09 2e 6c 6f 6f 70 0d  |LDX #3.....loop.|
00000160  01 18 10 49 4e 43 20 64  69 67 69 74 73 2c 58 0d  |...INC digits,X.|
00000170  01 22 10 4c 44 41 20 64  69 67 69 74 73 2c 58 0d  |.".LDA digits,X.|
00000180  01 2c 10 43 4d 50 20 23  97 22 30 22 2b 31 30 0d  |.,.CMP #."0"+10.|
00000190  01 36 0d 42 4e 45 20 73  63 5f 6f 6b 0d 01 40 0d  |.6.BNE sc_ok..@.|
000001a0  4c 44 41 20 23 97 22 30  22 0d 01 4a 10 53 54 41  |LDA #."0"..J.STA|
000001b0  20 64 69 67 69 74 73 2c  58 0d 01 54 07 44 45 58  | digits,X..T.DEX|
000001c0  0d 01 5e 0c 42 50 4c 20  6c 6f 6f 70 0d 01 68 0a  |..^.BPL loop..h.|
000001d0  2e 73 63 5f 6f 6b 0d 01  72 0a 4c 44 58 20 23 30  |.sc_ok..r.LDX #0|
000001e0  0d 01 7c 09 2e 6c 6f 6f  70 0d 01 86 12 4c 44 41  |..|..loop....LDA|
000001f0  20 64 69 67 69 74 73 2d  33 2c 58 0d 01 90 0e 4a  | digits-3,X....J|
00000200  53 52 20 6f 73 77 72 63  68 0d 01 9a 07 49 4e 58  |SR oswrch....INX|
00000210  0d 01 a4 0a 43 50 58 20  23 37 0d 01 ae 0c 42 4e  |....CPX #7....BN|
00000220  45 20 6c 6f 6f 70 0d 01  b8 07 52 54 53 0d 01 c2  |E loop....RTS...|
00000230  05 20 0d 01 cc 1b 45 51  55 42 20 33 31 3a 45 51  |. ....EQUB 31:EQ|
00000240  55 42 20 31 30 3a 45 51  55 42 20 31 30 0d 01 d6  |UB 10:EQUB 10...|
00000250  17 2e 64 69 67 69 74 73  20 45 51 55 53 20 22 30  |..digits EQUS "0|
00000260  30 30 30 22 0d 01 e0 05  5d 0d 01 ea 05 ed 0d 01  |000"....].......|
00000270  f4 05 e1 0d ff                                    |.....|
00000275
6_PROG1.m0
6_PROG1.m1
6_PROG1.m2
6_PROG1.m4
6_PROG1.m5

© Dominic Ford 2021–2024.

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