Home » Personal collection » Commodore disks » disk47a_unlabelled.d64 » level1b
level1b
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 » Commodore disks » disk47a_unlabelled.d64 |
Filename: | level1b |
Read OK: | ✔ |
File size: | 3159 bytes |
Load address: | 0801 |
Exec address: | 0000 |
File contents
10 SYS2061
�2061 x�� ݩ4������8�P������ �������ȹ � � � �JJJJ� �����?�B�I�9�<٢���ԝԩ!�ԩ�ԩ��Ԋ8���� ����ԎԍԢ�Ԣ��Ԡ��Ԡ���ܙ݈����0 � ܹ@ � ݹ � ��/�� P �0�í1�ȩ �� ލ�ߎ ��� L� ��L� I���H ,�h ʎ$�� /51m��� ��� � �� �� �������L������%@�� R � L �P��a��b` ` � ` ����,��� ` �� ` ��������ߐ&�ƗF��� ` �����������ɀ��ܭܭݭ����������` ���` � L �{������� � ��{�7�D��x�u �8�i �c�i��9�`�����0���7�#� ކ������7��� ޢ�)�`,h09 D墐�Щ ���{ ����74�� �. ����������������������������������������������������������������������������� �5�?�}�X� "�X�m��}}� a "�}�������������� � h@@�7�F�駁 ��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������2 �7V� y� ���������� � b � � ? � ,��� ��3�ݥ4�ݍݎݥ5�ݥ6�ݍݎݥ7�ܥ8�܍ܥ9�ܥ:�܍ܭ ܭ ݥ-� ݥ0� �`�R�$D800�$DC00:�R,15:�:�$C11A T SYS$C11A ER,0 EXT � � �� !��z��{��:� d / � A H� �8�4�� �4���� ,�0�������ݎݠ=Hh� ���ܩ �6L� ���|��䧱� LH�L1���G�J����3�W����>�/�f�m�o� ���� : L � v� @� � ��� ��8�08��`�O (� � �$ U: X �8�� < @ ( @ � ' ����������ہ� 9� @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @���������������������������������������� @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @���������������������������������������� @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @���������������������������������������� @ @ @ @ ` `'g%e&f ` ` `'g%e&f ` ` @ @ @�������������������������� @ @ @ @!a#c @ @ @(h!a#c @ @ @(h!a @ @ @������������������������������ @ @ @ @"b$d @ @ @)i"b$d @ @ @)i"b @ @ @������������������������������ @ @ @ @ ` @ @ @ @ @ ` @ @ @ @ @ ` @ @ @���������������������������������� @ @ @ @!a @ @ @ @ @!a @ @ @ @ @!a @ @ @���������������������������������� @ @ @ @"b @ @ @ @ @"b @ @ @ @ @"b @ @ @���������������������������������� @ @ @ @ ` @ @ @ @ @ ` @ @ @ @ @ @ @ @ @������������������������������������y `& ��. � ��r1��?� 7� R �\ 000�$3E00:��(R)�$BD � �R,0 + � R �x ��$C000 L�; VARIABLES YXP�$CF82 f$YP�$CF83 t.XPB�$CF84 �8YPB�$CF85 �BTYPE�$CF86 �LXP��$CF87 �VYP��$CF88 ��; DISPLAY SCREEN BLOCKS ��DISP LDA XP ��TAX ��LDA YP ��TAY �STX XPB �STY YPB & �DISPLOP JSR DISPBLOCK 2 INC XPB > LDA XPB F SEC S SBC #$14 ^ (CMP XP n 2BNE DISPLOP z PSTA XPB � ZINC YPB � dLDA YPB � nSEC � xSBC #$0A � �CMP YP � �BNE DISPLOP � �JMP DFIN � �DISPBLOCK LDA XPB � �STA $FB � �LDA YPB �CLC �ADC #$30 & �CBNOADD STA $FC K LDA #$04 ; ? W STA $FE c LDA XPB k 6SEC v @SBC XP � JASL A � TSTA $FD � ^LDA YPB � |SEC � �SBC YP � �PHA � �ASL A � �DBYALOP BEQ DBYAFIN � �TAX � �LDA $FD � �CLC � �ADC #$28 �STA $FD �LDA $FE #�ADC #$00 /�STA $FE 7�DEX ?�TXA OJMP DBYALOP dDBYAFIN LDY #$00 tLDA ($FB),Y &� #$3F �0STA ($FD),Y �:�A #$40 �DINY �NSTA ($FD),Y �XE� #$C0 �bLDY #$28 �lSTA ($FD),Y �v�A #$40 ��INY �STA ($FD),Y �LDA ($FB),Y �� #$80 #�TAX +�PLA 3�TAY ;�TXA K�STA $CFE0,Y S�RTS b�DFIN LDA � p�STA $0798 |��A #$40 ��STA $0799 ��A #$80 �STA $07C1 �E� #$40 � STA $07C0 �"LDA XP� �$ASL A �&ASL A �(ASL A �*ASL A �,ADC #$18 .STA $D000 0LDA YP� # 2ASL A - 4ASL A 7 6ASL A A 8ASL A N :ADC #$32 \ <STA $D001 i >LDA #$01 w @STA $D015 � BSTA $D027 � DLDA #$3F � FSTA $07F8 � HLDA XP� � MLSR A � RLSR A � \LSR A � ^LSR A � a� #$01 � fSTA $D010 � kRTS p; SET CHARACTER TYPE !zSETCHAR LDA XP )�CLC 5�ADC XP� A�STA $FB L�LDA YP T�CLC `�ADC YP� m�ADC #$30 y�STA $FC ��LDA TYPE ��LDY #$00 ��STA ($FB),Y ��JSR DISP ��JMP LOOP �XUPTYPE INC TYPE �bLDA TYPE �l� #$3F �vSTA TYPE {JSR DISP �JMP LOOP $�DOTYPE DEC TYPE 1�LDA TYPE <�� #$3F I�STA TYPE V�JSR DISP c�JMP LOOP v@START LDA #$00 �JSTA $D020 �TSTA $D021 �^STA XP �hSTA YP �rSTA XP� �|STA YP� � � � � � � LOOP �CMP #$01 "�BEQ SETCHAR /�CMP #$28 >�BEQ UPTYPE K�CMP #$2B Z�BEQ DOTYPE g�CMP #$0C t�BEQ LEFT ��CMP #$17 ��BEQ RIGHT � CMP #$32 � BEQ UP � CMP #$37 �& BEQ DOWN �0 KLOP LDA $C5 �: CMP #$40 �D BEQ LOOP �N JMP KLOP (#LEFT LDA XP� 2#BEQ LEFTS $<#DEC XP� 1F#JSR DISP >P#JMP LOOP PZ#RIGHT LDA XP� ]d#CMP #$13 ln#BEQ RIGHTS xx#INC XP� ��#JSR DISP ��#JMP LOOP ��#UP LDA YP� ��#BEQ UPS ��#DEC YP� ��#JSR DISP ��#JMP LOOP ��#DOWN LDA YP� ��#CMP #$09 ��#BEQ DOWNS �#INC YP� �#JSR DISP %�#JMP LOOP 6%LEFTS LDA XP C&%BEQ LOOP N0%DEC XP [:%JSR DISP hD%JMP LOOP zN%RIGHTS LDA XP �X%CMP #$EC �b%BEQ LOOP �l%INC XP �v%JSR DISP ��%JMP LOOP ��%UPS LDA YP ��%BEQ LOOPTR ��%DEC YP ��%JSR DISP ��%JMP LOOP �%DOWNS LDA YP �%CMP #$76 )�%BEQ LOOPTR 4�%INC YP A�%JSR DISP N�%JMP LOOP bH&LOOPTR JMP LOOP q'; SPRITE � }'��$0FC0 �$'TXT $A8,$15,0,0,0,0,128,1 �.'TXT 0,0,0,0,128,1,0,0 �8'TXT 0,0,0,0,0,0,0,0 �B'TXT 0,0,0,0,0,0,0,0 L'TXT 0,128,1,0,0,0,0,128,1 V'TXT 0,0,0,0,$A8,$15,0 5`'TXT 0,0,0,0,0,0,0,0 Mj'TXT 0,0,0,0,0,0,0,0 0�yDmg%`G�@G�@G��Ik���J< ��RX;M:FTGVLSHD������̆-�����܇Q�U�n���������hh �k�J"