Home » Personal collection » Acorn tapes » Commercial_Releases » box02_tape07b_acorn_eu_arcade_game_creator.wav » 6_PROG2
6_PROG2
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_tape07b_acorn_eu_arcade_game_creator.wav |
| Filename: | 6_PROG2 |
| Read OK: | ✔ |
| File size: | 02D6 bytes |
| Load address: | 2000 |
| Exec address: | 1900 |
Duplicates
There are 7 duplicate copies of this file in the archive:
- AEW website » database » database_3_5_discs_Arcade-Game-Creator_A-AGC.adf » 6_PROG2
- AEW website » database » database_5_25_discs_Electron-User-5-10_D-E510.ssd » SCORE2
- AEW website » database » database_5_25_discs_Arcade-Game-Creator_D-AGC.ssd » 6_PROG2
- AEW website » database » database_tapes_Electron-User-5-10_EU5-10_E.uef » SCORE2
- AEW website » database » database_tapes_Arcade-Game-Creator_ArcadeGameCreator_E.uef » 6_PROG2
- AEW website » database » database_tapes_Arcade-Game-Creator_ArcadeGameCreator_E.uef » 6_PROG2
- Personal collection » Acorn tapes » Commercial_Releases » box02_tape07b_acorn_eu_arcade_game_creator.wav » 6_PROG2
- Personal collection » Acorn tapes » Commercial_Releases » box02_tape07a_acorn_eu_arcade_game_creator.wav » 6_PROG2
File contents
10REM Score 2 20REM By R.A.Waddilove 30REM (c) Electron User 40MODE 5 50PROCassemble 60PRINT TAB(0,5)"Tap the spacebar..." 70COLOUR 2 80PRINT TAB(3,10)"SCORE:000000" 90CALL &900 100END 110 120DEF PROCassemble 130oswrch=!&20E 140temp=&70 150digits=&71 160!digits=0 170FOR pass=0 TO 2 STEP 2 180P%=&900 190[OPT pass 200 210.main 220JSR &FFE0 230BCS exit 240JSR score 250JMP main 260.exit 270RTS 280 290.score 300SED 310CLC 320LDA digits+1 330ADC #5 340STA digits+1 350LDA digits 360ADC #0 370STA digits 380CLD 390LDA #31:JSR oswrch 400LDA #10:JSR oswrch 410LDA #10:JSR oswrch 420LDA digits:JSR print 430LDA digits+1 440.print 450STA temp 460LSR A:LSR A:LSR A:LSR A 470JSR number 480LDA temp 490.number 500AND #&0F 510CLC 520ADC #ASC"0" 530JMP oswrch 540] 550NEXT 560ENDPROC
� Score 2 � By R.A.Waddilove � (c) Electron User (� 5 2 �assemble < � �0,5)"Tap the spacebar..." F� 2 P� �3,10)"SCORE:000000" Z � &900 d� n x� �assemble �oswrch=!&20E � temp=&70 �digits=&71 � !digits=0 �� pass=0 � 2 � 2 � P%=&900 � [OPT pass � � .main � JSR &FFE0 � BCS exit � JSR score � JMP main .exit RTS " .score ,SED 6CLC @LDA digits+1 J ADC #5 TSTA digits+1 ^LDA digits h ADC #0 rSTA digits |CLD �LDA #31:JSR oswrch �LDA #10:JSR oswrch �LDA #10:JSR oswrch �LDA digits:JSR print �LDA digits+1 � .print � STA temp �LSR A:LSR A:LSR A:LSR A �JSR number � LDA temp � .number � � #&0F �CLC ADC #�"0" JMP oswrch ] &� 0� �
00000000 0d 00 0a 0d f4 20 53 63 6f 72 65 20 32 0d 00 14 |..... Score 2...| 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 1a f1 20 8a 33 2c 31 30 |F.. 2..P.. .3,10| 00000080 29 22 53 43 4f 52 45 3a 30 30 30 30 30 30 22 0d |)"SCORE:000000".| 00000090 00 5a 0a d6 20 26 39 30 30 0d 00 64 05 e0 0d 00 |.Z.. &900..d....| 000000a0 6e 05 20 0d 00 78 0f dd 20 f2 61 73 73 65 6d 62 |n. ..x.. .assemb| 000000b0 6c 65 0d 00 82 10 6f 73 77 72 63 68 3d 21 26 32 |le....oswrch=!&2| 000000c0 30 45 0d 00 8c 0c 74 65 6d 70 3d 26 37 30 0d 00 |0E....temp=&70..| 000000d0 96 0e 64 69 67 69 74 73 3d 26 37 31 0d 00 a0 0d |..digits=&71....| 000000e0 21 64 69 67 69 74 73 3d 30 0d 00 aa 14 e3 20 70 |!digits=0..... p| 000000f0 61 73 73 3d 30 20 b8 20 32 20 88 20 32 0d 00 b4 |ass=0 . 2 . 2...| 00000100 0b 50 25 3d 26 39 30 30 0d 00 be 0d 5b 4f 50 54 |.P%=&900....[OPT| 00000110 20 70 61 73 73 0d 00 c8 05 20 0d 00 d2 09 2e 6d | pass.... .....m| 00000120 61 69 6e 0d 00 dc 0d 4a 53 52 20 26 46 46 45 30 |ain....JSR &FFE0| 00000130 0d 00 e6 0c 42 43 53 20 65 78 69 74 0d 00 f0 0d |....BCS exit....| 00000140 4a 53 52 20 73 63 6f 72 65 0d 00 fa 0c 4a 4d 50 |JSR score....JMP| 00000150 20 6d 61 69 6e 0d 01 04 09 2e 65 78 69 74 0d 01 | main.....exit..| 00000160 0e 07 52 54 53 0d 01 18 05 20 0d 01 22 0a 2e 73 |..RTS.... .."..s| 00000170 63 6f 72 65 0d 01 2c 07 53 45 44 0d 01 36 07 43 |core..,.SED..6.C| 00000180 4c 43 0d 01 40 10 4c 44 41 20 64 69 67 69 74 73 |LC..@.LDA digits| 00000190 2b 31 0d 01 4a 0a 41 44 43 20 23 35 0d 01 54 10 |+1..J.ADC #5..T.| 000001a0 53 54 41 20 64 69 67 69 74 73 2b 31 0d 01 5e 0e |STA digits+1..^.| 000001b0 4c 44 41 20 64 69 67 69 74 73 0d 01 68 0a 41 44 |LDA digits..h.AD| 000001c0 43 20 23 30 0d 01 72 0e 53 54 41 20 64 69 67 69 |C #0..r.STA digi| 000001d0 74 73 0d 01 7c 07 43 4c 44 0d 01 86 16 4c 44 41 |ts..|.CLD....LDA| 000001e0 20 23 33 31 3a 4a 53 52 20 6f 73 77 72 63 68 0d | #31:JSR oswrch.| 000001f0 01 90 16 4c 44 41 20 23 31 30 3a 4a 53 52 20 6f |...LDA #10:JSR o| 00000200 73 77 72 63 68 0d 01 9a 16 4c 44 41 20 23 31 30 |swrch....LDA #10| 00000210 3a 4a 53 52 20 6f 73 77 72 63 68 0d 01 a4 18 4c |:JSR oswrch....L| 00000220 44 41 20 64 69 67 69 74 73 3a 4a 53 52 20 70 72 |DA digits:JSR pr| 00000230 69 6e 74 0d 01 ae 10 4c 44 41 20 64 69 67 69 74 |int....LDA digit| 00000240 73 2b 31 0d 01 b8 0a 2e 70 72 69 6e 74 0d 01 c2 |s+1.....print...| 00000250 0c 53 54 41 20 74 65 6d 70 0d 01 cc 1b 4c 53 52 |.STA temp....LSR| 00000260 20 41 3a 4c 53 52 20 41 3a 4c 53 52 20 41 3a 4c | A:LSR A:LSR A:L| 00000270 53 52 20 41 0d 01 d6 0e 4a 53 52 20 6e 75 6d 62 |SR A....JSR numb| 00000280 65 72 0d 01 e0 0c 4c 44 41 20 74 65 6d 70 0d 01 |er....LDA temp..| 00000290 ea 0b 2e 6e 75 6d 62 65 72 0d 01 f4 0a 80 20 23 |...number..... #| 000002a0 26 30 46 0d 01 fe 07 43 4c 43 0d 02 08 0d 41 44 |&0F....CLC....AD| 000002b0 43 20 23 97 22 30 22 0d 02 12 0e 4a 4d 50 20 6f |C #."0"....JMP o| 000002c0 73 77 72 63 68 0d 02 1c 05 5d 0d 02 26 05 ed 0d |swrch....]..&...| 000002d0 02 30 05 e1 0d ff |.0....| 000002d6
6_PROG2.m0
6_PROG2.m1
6_PROG2.m2
6_PROG2.m4
6_PROG2.m5
.