Home » Archimedes archive » Micro User » MU 1991-11.adf » PD-stuff » !SLIDE/!RUNIMAGE
!SLIDE/!RUNIMAGE
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 » Micro User » MU 1991-11.adf » PD-stuff |
Filename: | !SLIDE/!RUNIMAGE |
Read OK: | ✔ |
File size: | 81FFC bytes |
Load address: | 0000 |
Exec address: | 0000 |
File contents
} � (slidescreen+112*28*3+28*2) ~+ EQUD (slidescreen+112*28*3+28*3) �.slide EQUD (0) � .game �STMFD (stack)!,{R0-R12,R14} �LDR R4,slide � ADR R3,sl �HMOV R0,#129:MVN R1,#66:MOVR2,#&FF:SWI "OS_Byte":CMP R1,#&FF:BEQ left �IMOV R0,#129:MVN R1,#97:MOVR2,#&FF:SWI "OS_Byte":CMP R1,#&FF:BEQ right �HMOV R0,#129:MVN R1,#54:MOVR2,#&FF:SWI "OS_Byte":CMP R1,#&FF:BEQ down �FMOV R0,#129:MVN R1,#70:MOVR2,#&FF:SWI "OS_Byte":CMP R1,#&FF:BEQ up �.slidereturn �#MOV from,#slidescreen � &FF0000 �&ADD from,from,#slidescreen � &FF00 $ADD from,from,#slidescreen � &FF MOV R1,#screenpo � &FF0000 ADD R1,R1,#screenpo � &FF00 ADD R1,R1,#screenpo � &FF (LDR to,[R1] 2ADD to,to,#13*320 <ADD to,to,#104 F] P� R%=1�112 Z� A%=1�4 d [OPT pass nLDMIA (from)!,{R0-R6} xSTMIA (to)!,{R0-R6} �] �� � [OPT pass �ADD to,to,#320-112 �] �� � [OPT pass �!LDMFD (stack)!,{R0-R12,R15};^ � .left ��S R1,R4,#3 �BEQ slidereturn �SUB R2,R4,#1 �LDR from,[R3,R4,LSL #2] LDR to,[R3,R2,LSL #2] BNE smallslide .right "� R1,R4,#3 , CMP R1,#3 6BEQ slidereturn @ADD R2,R4,#1 JLDR from,[R3,R4,LSL #2] TLDR to,[R3,R2,LSL #2] ^BNE smallslide h.up rMOVS R1,R4,LSR #2 |BEQ slidereturn �SUB R2,R4,#4 �LDR from,[R3,R4,LSL #2] �LDR to,[R3,R2,LSL #2] �BNE smallslide � .down �MOV R1,R4,LSR #2 � CMP R1,#3 �BEQ slidereturn �ADD R2,R4,#4 �LDR from,[R3,R4,LSL #2] �LDR to,[R3,R2,LSL #2] � �.smallslide MOV R1,#slide � &FF0000 ADD R1,R1,#slide � &FF00 ADD R1,R1,#slide � &FF &STR R2,[R1] 0] : � A%=1�28 D [OPT pass NLDMIA (to),{R0-R6} XSTMIA (from),{R0-R6} b MOV R0,#0 l MOV R1,#0 v MOV R2,#0 � MOV R3,#0 � MOV R4,#0 � MOV R5,#0 � MOV R6,#0 �STMIA (to),{R0-R6} �ADD from,from,#112 �ADD to,to,#112 �] �� � [OPT pass �B slidereturn � .newslide �STMFD (stack)!,{R0-R12,R14} MOV R1,R0,LSL #8 ADD R1,R1,R0,LSL #12 ADD R1,R1,R0,LSL #13 !MOV from,#slidepics � &FF0000 *$ADD from,from,#slidepics � &FF00 4"ADD from,from,#slidepics � &FF >ADD from,from,R1 H!MOV to,#slidescreen � &FF0000 R"ADD to,to,#slidescreen � &FF00 \ ADD to,to,#slidescreen � &FF f] p� A%=1� 392 z [OPT pass �LDMIA (from)!,{R0-R7} �STMIA (to)!,{R0-R7} �] �� � [OPT pass � MOV R0,#0 �MOV R1,#slide � &FF0000 �ADD R1,R1,#slide � &FF00 �ADD R1,R1,#slide � &FF �STR R0,[R1] �B slidereturn �.seed EQUD (�) �$EQUD (�(&19700121)):\My Birthday .shuffle STMFD (stack)!,{R0-R12,R14} LDR R0,seed $� R2,R0,#255 .LDR R1,[PC,R2] 8�R R0,R0,R3 BADD R0,R0,R1 L� R0,R0,R2 VADD R0,R0,R4 `STR R0,seed j� R0,R0,#3 tMOV R3,#sl � &FF0000 ~ADD R3,R3,#sl � &FF00 �ADD R3,R3,#sl � &FF �MOV R4,#slide � &FF0000 �ADD R4,R4,#slide � &FF00 �ADD R4,R4,#slide � &FF �LDR R4,[R4] �CMP R0,#0:BEQ left �CMP R0,#1:BEQ right �CMP R0,#2:BEQ up � B down �.slidescreen �] �P%=P%+14*1024 [OPT pass .place ] P%+=1024*12 ( [OPT pass 2.slidepics <] FP%+=98*1024 P [OPT pass Z.tv d] nP%+=120*1024 x [OPT pass � .music �] �P% � < ����� ����<A �����A ����<n �����n ����h� �� � POINTER 1 �POINTER 0 10q� �� �� �� w� u� �� m� h� �� `� ^� �� �� �� e� �_-� 0��<�� 0�� ��� 0���<��$0����� �� ����� ����� �� ����� �� ��>��8�� �� �� 1��Ƞ�̌����#H��4��8��?��� `��$T��P��@D�`���Y��Z�����7 � O� � �� �� ��� ��� ��� ��� ��� �� ���c��� Y��I� ��������_��П��� � � MU�� Р��܍�pЍ�_-� �� � �� �6 �cO� � ��� ���nO� ��1 � ���� ��� ��������ܐ����0�� �� ��A�0S��Z Q��ʃ� P�� p���� �O� �� � �� �B� � �� � � R�h P� �D P� �wQ� �Q���YQ� �cQ� �rP� �!P� �@��@��U �P� ��P� �@��O �P� �*P� � �I @��G �P� �/P� �ZQ� �/Q� �@��@��<