Home » Personal collection » Acorn ADFS disks » Electron » Sideways_ROMS.ADF » s\wRAM/E00b
s\wRAM/E00b
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 ADFS disks » Electron » Sideways_ROMS.ADF |
Filename: | s\wRAM/E00b |
Read OK: | ✔ |
File size: | 4000 bytes |
Load address: | 3000 |
Exec address: | 3000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn ADFS disks » Electron » Sideways_ROMS.ADF » s\wRAM/E00b
- Personal collection » Acorn hard disk » zipped_disks » elk03 » sideways/s.wRAM/E00b
File contents
� `LG��&PRES E00 ADFS Library (C) 1987 PRES,by B0 ���������������������з����������Z�Q���`� � LI�� � �� �� �� ����LI���� �� ��� )�ɿ����� �� l��� �� ��L���������:��� �������`����������A�����Ehh���� ��L �� ���� �� �� �� l�� Bad Module number �� ЁLI��3�������ȁ� �������ǁ �� Ё������L ���H����� � � �� � �� � ����ݳ)�ݳh���`� �������ǁ�������ȁ� � � �� � �� � �� � ��R�� � �� � �� � �� ���`� � �� � �� � �� � �� ���`��������ǁ�����ȌȌȁ �� ��l�� ЁLI�x�� F� ��A�� ��n����A����S��ޘ� F��(`�� ���ɿ���� �.��O� P� ����`�:�� <��Ƚ�� ���ҳ *** 1�ș �/ș �ҳ)���г ���ȩ � �ճ�2����ș ���ճ <��H�ƍس ���ճ��(��ճ��� ��h��γ� f�� � � F����� �� ���� �� i�L : ta lennahc no HJJJJ )�h 1�ș `) 0�:�i`,R��d L�� L������/8�峰�e�(H�P�0��ș h`����+����� H� H�� �� �� �� ����`E. SP. L�L��L�L����䳩Z�����Z����)�`��� ����I$�0l ��j�j�������l - �P�A��j��j����l ��L˃�� � �������������������� Ɨ� ������-��-����EL����8��������%��8����������������������������i����淰������������������� ����L���膲�ʽ �٢����������� (���}��٢��(L�����(�����ȱ�i ����*��$�����4��� �� :����:��������� k�L �� ���S��T���R������������� P���R��ֹ�� � Ɨ� ���+���B����� ����������������R���0����&�������� P�� ������������i����淰�L�^ $�� ���!�*�� ���0�`���8�`��a�Lc� ;��Bad compact ��ȱ���ȱ�� ��,��ȱ�� ��ȱ����!������0���ȱ�� �����0���:�8�0��)_�A���G���6����� "�0��`�� "�L���a��Dʊ�`��L���`�ma�ɀ�L�� �� X��� �� ���)���L\��� ���͍] e�`��� � �I�jjjjH)�hj)�V ��`����� ��`�ᳩ��L�$�0 ������ V ���LX��^ )��^ `�^ �^ `f�&�`��)���`��)���`���������������������� ������� ��l���� �����L��� ������� ��p���� ����� �����L����������t������� ͐�L␥�����������������������l��� ����,��� -� "��L?� P� �����p��� ������ ~���L�������� |�������ȱ����ȱ� ����� ������������� ��)�t���� �~� 7� � �� t���:�����=������ �`��� �8�`��a��� �ͭo� ������s� �������H� �� ϙh�� �� �LЮ�Z ����� ��Z L���X ��椥������`��� ���)�L�$�P�e���J��) ��!��"�^ �^ ���j��峅�,�0 �泅�,�P ��`���� �)�ȱ�L����H��H K� � ���L␠�� �*h�h��H���H� ��)�$���&�Ƞ "���^�����.� -� K��@������ �� ��.�����,��� �h���h��H�H � ,������4��V���h��h�� -�� ���.��"��!����e�������� � ��)��+���)�"��!�� +������ �� w�L� �� ��� ��� ����8����� �J��K��L��M�����<����� ��*.]��� -������:���� �@������ � ����� n]�j���� �� z� �� w� �h��h�� ��� �4��� `�L���0`����p���� ��)�t����t������ P�� �t��̹����p��ֹ��L���y7��������(`����� ��Map full �����ʽ ���� ���L� �4�� ��7�� x� � $�� ��)�"�� �� �ٹ���L��(� �y]��]�����(L��������|����: �� �8�]��=����� ��Disc full ��Compaction required �ʽ ��:���Ȧ�(���y=��������(� ��8(����=��������(`���膲ʽ ��=��;�0�ʽ ��:�������� ����� ����������� ��L␠��)����` ����0���)�� ����+�� ��� �K��"����� �<��"����)�,+�0�E� ���� ����+�0����,+�0���!���� ˘ ~�� ��L�H���� ���h�����`� �� "����*�� `Ƚb�)�!�� ��H�H [�� h�h����� `hh� 8`� �����!���.���"���*���� $� Ɨ ��� ��� 5��� �������B������@����A��@������ �� �7� 8� 9��LA���)�"��!�� ���� t���� ��������� ���� ��� �� �� �� �� �������� �������־�� ��)�"��!�� �پ�̾��� �� �پ ]�L�� ��� ������ͷ��`x$�&������������ @�� >������ *���� (���8������� ���������($�p����������� 끐��������̷���(LF���׳h��h��������� `� "��!���"��.�������0 ~��`��i���淠 ���� 5���`� ��)�� �� ;��Bad rename ���8e����浭.�������,���� ������������������ ��L��H�/�������� � ��@����ńČA���)�� �ճ��LЯ�2��� �2���`� ������ ;��Too many open files �ό���L.� ��� L&�� ���.���)����$����������Դ���������Lo��ʠ ��0L ���ϱ��R�ȱ��H�ȱ��>�ȱ��4���ϱ����ȱ����ȱ����ȱ����ȱ��ʴȱ����ȱ� ����ȱ�����购�����Դ� �z��p��f��\��������i0H v�h �Ť�`,��P �� (�� =����0L �Le� � �� ,�����L��� ��B������� ��������O���O��������O��P����F��G��H��I��@������ � n� �� �@����A��� �� �ϝR��H��>��4�L�����)�H�w �h�Ţ ���� ��� �Ũ`�i0���� ���� ߦ ç���� ���� �R�ݢ��%�H�ݘ���>�ݎ���4�݄�� � � �Ħ�` ���R���4�}H��4��5�}>��5��6�}4��6���������H��7�����>��8�����4��9��R�� �7���8���9��R�����H�ȑ��>�ȑ��4�ȑ� �� ��L.�j�+�JJJJ +����`� ����ȱ��� �������L� �L� ����ȱ��� � �� ��` ���H ߦ� �ϳ�0LB����)��2��.�z�8i ����p�i ����f�i ����\�i ���h �H�ϳ �����ʴ}p�������}f�������}\������ ƥ�ϼz�h��H Z�h�¦�` open ���`� "���.�n`�:��� "��b�.�X� ��)��$�� ���^��@� � "��C�.�9��� "�����3�^�/�@�+�:�')��$�!��� ����)�*��#��.������` "L2��� ߦj�")�� ����� ��Ͻ��)� ����¦�8��`���ʴ}p�������}f�������}\�����@ ƥ�ϼz�� �ϳ Z����¦�`�3���������Ŷ���ŷ����ƵƴLk��'����(���`� ��)�!��"�� �� �����`��������8���� ������ � �������H��H�������� ���'������ ��i����淰� � ;��Aborted ��H��H�@������ ��h��h�� ��Destroy ?�� �� � �)�ݴ�к�� ��ճ��H��H �� i�h��h��LP�hhL � �� �� :����:���������:������` n� ]�L�� n� ��Lv� �� +�� ������� �������������� ���� ������"����!���� ~����������� ����)�ͩ z� �� ��Free� z���8���������� �� ��Used�`۩ �������������)������������}��H�����h�� ��г��0�hʈ�H�������`���y�������y����` ��� ����Off LoadRun Exec�#� ���� `�#���!���������� ���������#���L� ������������������` ��Address : Length�� �����膲�ʽ � ��� �� : ����ʽ � ��� ������0���k�H�j�H�H� ����ȱ���h`���������6���S���������x����� ��)� � Ŗ����` E���`h��h�����0 Ŗ��) Ŗ�e��� e�H�H`H�H��H��H�� �h��h��h�h`� �� E�����*��� �ʈ��0 E�����,������� � �̹� ���`����0������3��Ͻ��)�/��贍,���-��Դ�.� ��0��,����3��/� ��Ͻʴ�4�����5����)�6���������Ϡ ������L������������������`��i����湰Щ ����/������,���������.��/��Ͻ��͝�����͜�����͛�����͚��(�4�͝���>�͜���H�͛���R�͚��Lհ��L�8� m������ m������L^� ��������i �7����i �8����i �9�� �=�����>�����?� �� :��� �ϑ����ȑ�������ȑ�������ȑ�����:�ȑ��ʴ�;�ȑ�����<�ȑ� ���� ����)��ͩ��`�� �a�� ��4�����:���:�����7������� ϙ����L�����H�}ʴ����>�}������4�}������� ƥ�ϼR�� �������}ʴ�4����}���5����}���6������4���5���6��5��4��4�͖���5�͗���6�͘��L�����@ ƥ� ������������� )��4�����5�����6������������L���ϭ���R�����H�����>�����4� ��/������,���`��� �������a���a����`�L� P�� �̹� ����������L����0����,���0��0��,���` B� +�� ��� Ҙ��i����淰� � 2� L� � 2� A�L�3���a��+���ma���������ma������L���)�`����������������������L��l$ $ 1W����q�������H ���`����8� ����h��`�L��� ���H��H���`���곍� ���� ����� �`���H���� h`�� ��J�H���ݳ���� hH��� Ң��Ԛ��� ����� � ��ȱ���f�&� ��� � ��� �h���`���HH�a�H�Z�� �z ����� �B�-�� �B�&���!�D��y��A��C��x� �h���`h�HX�H� $�������o�� ��� � *��o�` �� �������)��o�� �i0�� ������o��?������� T�00� �_�� ���` "tesnU" ��o������� b��V������ ����o�����������o�� ������� T�` ��� �� �͈���h�C� i�����,��� ����Q ������D�� � ��9�`������ ��,�� $����@����A��@������ ��� L� ,����=��,��0������.��/� P��� ��0��,���(� ;��Dir not empty �����ȩ q��$��������4�������~�/������"��4��,���� ;��Can't delete CSD �����&��4������ ;��Can't delete Library �������4���������� �������0 ��� ������淥�ɻ��ɹ�� �� ��L���p����� ���ȑ�L��q�� z�������0� �� PRES E00 Advanced DFS 1.26�`�����0� �� �ճ���H���H����``�`J����������������� $������ȽW�0Ѵ� Ѵ����W�����.������#��)_�A��[�̘e����� $����ֳ���H��� �) \� �� ADFS�h��� `ȱ�� ��hh�� �� �����.� ��������!�� \�� �W�0� �� �� �W�0 ��� E����H�Y�HJJJJ |�h) |� �h������mPCOPY�sDELETE�q DESTROY��DIR� DISMOUNT�M@EX�0FREE�� INFO��LCAT� LEX� LIB�#0MAP�� MOUNT�;@REMOVE�Y RENAME�y"TIT�����I��j��=L�� ����ȹٹ)� ���� 0���ȹٹ)� � 0����� 0��� *** 0� F�L� ��� 0��� l�� ������ G�0� ***i0L0� ��� 0��� l�� ������ G�0� ��� �������Ơ�ƅ�� �ƅ��/�������0i���������� ������ G���i�����ư�����Ơ ����LK�� ͵��Ƥ�`$�#����������x >��� @�ͩ���� (� ������������`$�P��`��������泤�`� 0�8� ��Ȑ ��)�!�� 0���`���� ͐� ������� *� ͐�� 0����������������1����������@ ���2��a��L������1��1��� ;��Won't ������������� ͐���� �0L � *������������l��$�� ��������džƠ��ƙ����������Lx�`�� �ƨ ߦ ç�Ͻ�� ��(0 �����LB����)����ƕȈ����¢� ݣ����y� ����������� 쩠 �ϭ���z���ȭ���p���ȭ���f���ȭ���\��ƭ�������ƙ;�� �����L5� ������ �����8�R��ȍ@��H��ɍA��>��ʍB��4��ˍC���8��;�������ϽR�����z���ȽH�����p���Ƚ>�����f���Ƚ4�����\��Ơ��?�qƑ�������Lޯ���ʴeɍ�����eʍ�����eˍ���ʹ���j ƥ�ȍ��� ������������������ �� � v�� ͵��Ƥ�` ��� 8����m������ ��8�@���@����@�� �@�����A� B� C��Ld�������������ʹ��**���ϥ���ʴeɍ����eʍ����eˍ�����+���������� ���A��!�y�������� � ]��/������/��.�����L�����ʴm��������m��������m������ʹ���j ƥ� ��������� ��L�����A�ù��0LB�� ��������������� ���äϵ �R���H���>���4� ����L����J)��� )���)��� � ���� �� � �� �! No vacant AQR cartridges found � �� #� $� %� &� '� (� )���� #���#���#��� $��$����$�U��$���$���$���� %��)���$��)� ��)���)�����)��� �1� �,���#���#��$���$�5��)��1��)��2��)��� �� �� ������� #� �� $� �� %� �� &� �� '� �� (� �� )� ���� ��� �� �� � ����� ��� �� �� � � �� �ͭ �鳭 �곭 �볭� ��������0�)`��5��� � �� ��� ����L��� � �����`�� ����!��� � ����� ���B� �� ��` �� `� �� �� �� �`DIR :4.$ 256K AQR ADFS disc now ready for use. The AQR is now drive 0, and the normal drives are numbered 4 and 5. Use *MOUNT 0 to access the AQR disc. � HugoADFS 256K AQR DISC ����h�h �h 0)����`�Ͻ��H)��z��R��p��H��f��>��\��4�h)�L��� ���� ���)������� ������!�����"� B��� ������!������"�� ���³` ;��Disc changed ��Ƞ� � �8�ȳH�ó�ȳh�ó��̳ ˳ ʳ��ɳ���³` B��� �� ��M³���� ��L���*���-³`)�ͳ�H�H B��ͳ �� ��M³�>�ͳ�H���ͳ�/�����/��ͳ�� x��ͳ����� �/����/�h������ ��h�h�`JJJJ�`���������ٳ�ڳ�۳h�ܳ`�ݳ� ��ݳ)���Z �ݳ0�ܳH�۳�ڳ�ٳ(`� �ճʎݳ D��E00 ADFS Module load failed êL�� ˪La� ҪL� ٪L � �L � �L � � ®L�� �L� �L � � �L�� ��ݳH� � � �h� �` ��L � ��L� �L� �L � ��L� ��L � �� ��L�� �� �L� ��ݳH �� �� �hL� ��L>� ��Lf� ��LZ� ��L� ��L� ��L2� ��L � ��Li� ��Ll� ��LT� ��L� ��L� ��L � �� �LҪ �� �L� ��L � ��L � ��L � ���= ���6 �� �/ ���( ���! ��� ��� ��� ��� �� L� ��� ���� ���� ���� ���� ���� ���� ���� �� о �� з�aL�����������)����)? ��� ��.�.�.�.��������0���ﳍ������[���� ���� ���J �����`� � �����`�� ��L ��L I L �� I � ��L � � I ��L ���`�I L ���鳐hhL�`�������� ֫��������� ֫�� Ы��� �mJ �J �mK �K ��"���K ��i �ﳍ�������곍� ������`� �- �2 ��� ��0N ֫���I ) � �- �� ��2 �- LD��? ������ ��0k ֫���I 9 �� ��? LA����� ` ֫ 2��2 ����쬎ݬ�Ŭ� �謥 �ꬢ � � [� 第- � � �� 2�Ln�� � � � ` ֫�? ���������� 2�� � � ��� �謥 �ꬢ � 묅 �� � 2�L���Z��L� ; Initialise the bytestream LDAIM &01 JSR BYTSTM LDA LIBDRV JSR SILYDV ; Put the drive number LDAIM LIBNAM STA IR01 LDAIM /(LIBNAM) STA IR01+&01 JSR BYTNAM BMI SILYDN ; Done it ; Filenames ; <L1><filename1><L2><filename2>...<0> SILLY8 JSR TUBIT ; Initialise the bytestream LDYIM &00 STY ZFLAG ; So if new PTR>47 it returns C=1 ; The last bug! 23/7/84, V04c -> d LDA CSDSN STAIY DATACB ; Cycle number into block LDYIM &05 LDAIY DATACB ; Get the file count STA BLOCK ; Good as anywhere BEQ SILYDN ; If no files to Xfer LDYIM &09 LDAIY DATACB ; Get the file pointer STA BLOCK+&01 ; Likewise CMPIM 47 ; Number of CSD entries BCS SILYDN ; If done TAX CLC LDAIM CSD LDYIM /(CSD) SILY81 DEX BMI SILY82 ADCIM DENTRY ; =DENTRY, the length of a CSD entry BCC SILY81 INY CLC BCC SILY81 SILY82 STY IR01+&01 STA IR01 ; So IR01 -> the first file to Xfer SILY83 LDYIM &00 LDAIY IR01 ; First byte of filename STA ZFLAG ; So if we exit cause of 'EOF', ZFLAG=0 else non0 BEQ SILY89 ; If done JSR BYTNAM LDA IR01 CLC ADCIM DENTRY ; Next CSD entry STA IR01 BCC SILY86 INC IR01+&01 SILY86 INC BLOCK+&01 ; File pointer DEC BLOCK ; File count BNE SILY83 ; If more to Xfer SILY89 LDYIM &05 LDA BLOCK STAIY DATACB LDYIM &09 LDA BLOCK+&01 STAIY DATACB ; Set Count and Pointer OK JMP SILYDN ] ; end of MiniOSGBPB TTL ASAD13 - XFER - Xfer a few bytes for BGBP - > ASAD13 lnk asad16 ; XFER ; Xfer the few bytes at the start or end of a BGBP transaction ; Takes : ; The RAM address in RAMADD ; Sector buffer address in SECBUF (P0) ; Start index in XFERLO ; End index + $01 in XFERHI ; Status in TUBFLG 6,7 ; The data direction in ASAVE, as in BGBP ; It claims and releases the Tube(c) as required XFER LDA XFERLO CMP XFERHI BNE XFERNZ ; If a nonzero amount of data RTS XFERNZ [ CPU = NMOS PHP SEI ; Atomic operation on Tubflg ] BIT TUBFLG ; See if there's a Tube (c) present BPL XNOTUB ; If there aint no tube, as usual, you cant get the wood! [ SECRET = YES LDA RAMADD+2 LDX RAMADD+3 JSR FLIPRAM ] LDA RAMADD+&02 CMPIM &FE BCC BUTE3 ; If it's the tube LDA RAMADD+&03 ; Hi bytes of the RAM address [ CPU = CMOS INA | CMPIM &FF ] BEQ XNOTUB ; If we don't use the tube BUTE3 [ CPU = CMOS LDAIM &40 ; Set bit 6 => Tube in use TSB TUBFLG | LDA TUBFLG ORAIM &40 STA TUBFLG ; Set bit 6 => Tube in use ] JSR TI2 ; Is the same as... ; TI2 LDAIM $C3 ; JSR TUBE ; BCC TI2 ; Claim the tube LDA ASAVE ; Get the command number CMPIM &03 ; Set C if Get Bytes, Clear C if Put Bytes LDAIM &00 ROLA ; A = 1 if Get, A = 0 if Put LDXIM RAMADD LDYIM /(RAMADD) JSR TUBE ; Set up for the actual Xfer XNOTUB [ CPU = NMOS PLP ] LDA RAMADD SEC SBC XFERLO ; So (DAREA),Y points to the required place STA DAREA LDA RAMADD+&01 SBCIM 0 STA DAREA+&01 ; For indirection XFER10 LDA ASAVE CMPIM &03 ; C=1 if Get, C=0 if Put, for later LDY XFERLO PHP XFER11 PLP BIT TUBFLG BVS XFERTB ; If the Tube is in use here BCC XFPUT ; If its Put, No tube ; It's Get byte, no tube LDAIY SECBUF ; Get the byte STAIY DAREA BCS XFERLP ; To the NEXT BYTE XFPUT LDAIY DAREA STAIY SECBUF ; Put the byte in the buffer BCC XFERLP XFERTB JSR RTS [ SPEED = S JSR RTS JSR RTS ] BCC XFPUTT ; If Put, thru tube ; Get, thru tube LDAIY SECBUF STA TPORT ; Send it to the tube BCS XFERLP XFPUTT LDA TPORT STAIY SECBUF ; Put the byte in the buffer XFERLP INY ; Next byte PHP ; To preserve the carry CPY XFERHI ; Finished? BNE XFER11 ; If not PLP JMP RELTUB TOP lnk asad16 etc. LNK ASAD14 access then head settle ; SEC ; ROL TRSTAT LDAAX BCB1 ;GET LO BYTE PHA LDAAX BCB1+1 ;GET MID BYTE� � � b b �~ � z s � � �1t ��� ��� @ @ �� � ���������� 3 9 RomB 1D00+ t @ X E � 5�� "