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 » Zipped » zipped_disks » elk03 » sideways/s.wRAM/E00b
- Personal collection » Acorn ADFS disks » Electron » Sideways_ROMS.ADF » 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�� "