Home » Archimedes archive » Acorn User » AU 1995-03.adf » !WaveDemo_WaveLength » !WaveLgth1/Code/MCode
!WaveLgth1/Code/MCode
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 User » AU 1995-03.adf » !WaveDemo_WaveLength |
Filename: | !WaveLgth1/Code/MCode |
Read OK: | ✔ |
File size: | 20C0C bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
TEQ R12,#0 ab5 BLEQ disc_variables ag alE SWI "OS_EnterOS" ; supervisor mode aq av; LDR R8,adfs_private_word a{6 LDR R12,mod_private a�3 LDR R9,mod_start a� a� a�4 LDR R10,[R9,#&1C] a�2 MOV R11,#&40000 a�4 ADD R11,R11,#&540 a�N SUB R11,R11,R10 ; gives modulo number (SWI) a� a�4 ADR R14,jump_back a� a�4 LDR R10,[R9,#&20] a�1 ADD R15,R9,R10 a� a�,.jump_back MOV R0,R0 a�, MOV R0,R0 a� a�8 LDMFD R13!,{R1-R12,R15} a� a�T; ------------------------------------------------------------------------------ a�=; setup the disc variables for the above disc op emulator a� a�8.disc_variables STMFD R13!,{R0-R12,R14} a�H ; may have to read old system - and reset a� a�- MOV R0,#14 a�, MOV R1,#8 b6 ; R3 is mod poin{zq>uzpf{yqpu>qqdqf>rfqznm>bux|uxxu>ea}wqz>nqag>|upqg>u``fupqg>r{f`}rm>qxqbqz>`cqxbq>`|}f`qqz>r{af`qqz>r}r`qqz>g}l`qqz>gqbqz`qqz>q}s|`qqz>z}zq`qqz>`cqz`m>`cqz`m{zq>`cqz`m`c{>`cqz`m`|fqq>`cqz`mr{af>`cqz`mr}bq>`cqz`mg}l>`cqz`mgqbqz>`cqz`mq}s|`>`cqz`mz}zq>`|}f`m>`|}f`m{zq>`|}f`m`c{>`|}f`m`|fqq>`|}f`mr{af>`|}f`mr}bq>`|}f`mg}l>`|}f`mgqbqz>`|}f`mq}s|`>`|}f`mz}zq>r{f`m>r{f`m{zq>r{f`m`c{>r{f`m`|fqq>r{f`mr{af>r{f`mr}bq>r{f`mg}l>r{f`mgqbqz>r{f`mq}s|`>r{f`mz}zq>r}r`m>r}r`m{zq>r}r`m`c{>r}r`m`|fqq>r}r`mr{af>r}r`mr}bq>r}r`mg}l>r}r`mgqbqz>r}r`mq}s|`>r}r`mz}zq>g}l`m>g}l`m{zq>g}l`m`c{>g}l`m`|fqq>g}l`mr{af>g}l`mr}bq>g}l`mg}l>g}l`mgqbqz>g}l`mq}s|`>g}l`mz}zq>gqbqz`m>gqbqz`m{zq>gqbqz`m`c{>gqbqz`m`|fqq>gqbqz`mr{af>gqbqz`mr}bq>gqbqz`mg}l>gqbqz`mgqbqz>gqbqz`mq}s|`>gqbqz`mz}zq>q}s|`m>q}s|`m{zq>q}s|`m`c{>q}s|`m`|fqq>q}s|`mr{af>q}s|`mr}bq>q}s|`mg}l>q}s|`mgqbqz>q}s|`mq}s|`>q}s|`mz}zq>z}zq`m>z}zq`m{zq>z}zq`m`c{>z}zq`m`|fqq>gqbqzn>vuzuzug>}yyaz}`m>x{fq``un>gwf{xxqf>g|qqd}g|> *WAVELENGTH ONE LEVEL DEMO... GO KILL EVERYTHING! *DESTROY THE GROUND BASE *WIPE OUT THE ENEMY INSTALLATIONS. *DESTROY THE GROUND BASE. *DESTROY THE PROTOTYPE GUN POD, ON THE WEST SIDE OF THE BASE. *DESTROY THE LOWER LEVELS OF THE BASE. *CLEAR THE ENEMY FROM THE LAKES. *DESTROY THE WALKER AND DESCEND INTO THE BASE. *DESTROY THE LEVEL OF THE BASE AND DESCEND. *DESTROY THE COMMAND CENTRE'S DEFENCES. *LORDS A LEAPING... *TWELVE *UNLUCKY FOR SOME... *FOURTEEN *FIFTEEN *SIXTEEN *SEVENTEEN *EIGHTEEN *NINETEEN *TWENTY *TWENTYONE *TWO LITTLE DUCKS *TWENTYTHREE *TWENTYFOUR *ERIC, WHERE? *TWENTYSIX *ASPARAGUS SOUP. *TWENTYEIGHT *TWENTYNINE *THIRTY *IN HONOUR OF MUMPHIE... *THIRTYTWO *THIRTYTHREE *THIRTYFOUR *THIRTYFIVE *THIRTYSIX *THIRTYSEVEN *THIRTYEIGHT *THIRTYNINE *THE RHUBARB PLANTATION *FORTYONE *FORTYTWO *FORTYTHREE *:-) HAPPY SMILEY *:-( SAD SMILEY *;-) CUNNING SMILEY *.-) LONG JOHN SMILEY *:-0 SMILEY AFTER IMPLANTS! *:-0E SMILES AFTER MORE IMPLANTS! *MIDDLESBRO'S JUST LIKE THIS, NOT! *FIFTYONE *FIFTYTWO *FIFTYTHREE *FIFTYFOUR *BIG RED SHINEY BUSSES. *FIFTYSIX *FIFTYSEVEN *FIFTYEIGHT *FIFTYNINE *CURVE = SMART :-) *SIXTYONE *SIXTYTWO *SIXTYTHREE *BINGO! *SIXTYFIVE *SIXTYSIX *SIXTYSEVEN *SIXTYEIGHT *SIXTYNINE *ENTERTAINMENT FOR ALL THE FAMILY. *SEVENTYONE *SEVENTYTWO *SEVENTYTHREE *SEVENTYFOUR *SEVENTYFIVE *YOU CHEATING, EH? *SEVENTYSEVEN *SEVENTYEIGHT *WHERE'S THESE HAMSTERS THEN? *EIGHTY *EIGHTYONE *EIGHTYTWO *EIGHTYTHREE *EIGHTYFOUR *EIGHTYFIVE *EIGHTYSIX *EIGHTYSEVEN *TWO FAT LADIES *EIGHTYNINE *NINETY *NINETYONE *NINETYTWO *NINETYTHREE *NINETYFOUR *NINETYFIVE *NINETYSIX *NINETYSEVEN *NINETYEIGHT *NINETYNINE * EQUD 0 c�( NOONE YET! NOONNOONE YET! c� NOONNOONE YET! ctioNOONNOONE YET! �] NOONNOONE YET! =P%:NOONNOONE YET! :P%=NOONNOONE YET! .stNOONNOONE YET! FD RNOONNOONE YET! c� NOONNOONE YET! .so {R0-R11,R14} ! !"