RECSIZE=256;BLOCKFACTOR=1;CODE=2501;EXTENTS=8;FILESIZE=16776959;FORMAT=F��STORE/RESTORE-HP/3000.MPEXL  
	�I0�������B5152AA  C750915/06/060000���?p/��%n��_I���TAPECOPY        PUB             SYS             MANAGER         SYS             MANAGER SYS     `������?p/��%���]5!9�,��TAPECPYV        PUB             SYS             MANAGER         SYS             MANAGER SYS     `������?p/��%��]p!���TAPESIM         PUB             SYS             MANAGER         SYS             MANAGER SYS     `������?p/��%��]t!�E����TAPESIMC        PUB             SYS             MANAGER         SYS             MANAGER SYS     `�������(���H00000000000000000                            000000STORE  tape@;*t;show
�����������������r`p/��%n��_I�pp� ������DISC                             1TAPECOPY        PUB             SYS                             MANAGER SYS     �p/��%�>�
g4�P�������/	��>�$I�������>�$ISYS             ���@K�$[p���b�L$/�.���L��������#�%�$�%� �%�"8 #x"�$$h�!p#"`"�#�#P �!�"�#�$@!�% �! %0� �!H%X$� X@�!�0f�foST$ 00@Tarm0@Xycy0$@derr#(00@lent0<@peot0H@\ont0T@hoot0`@`aec0l@@ant0x@Piec0�@Hpfp0�@Hdce0�@rdr$������_ob"�����_pe%�0�gf�yap0
�g�gGpft0
@�h�g�	sed0
�i�i�	apy0
Q�j�jw
rce0kLk3olp0
Al�ksaen0
@(p�pKsrl0
4qp�
aof0
UDr�r'ien0
@TuTulll0
dw`v�dpe0
@p{z�	sel0�|{�aof0
�|�|�aec0
@�}�}�	ask0
����[	ipe0���	ape0
T���[ain0��@x_er0�
@bax0����ed_0�X�
aug0
@_DE$����ycy& ,����err&H8����pfp&p@����eot&�L����oot&�X����aec&�d����iec'p����ant'8|����arm'`�����ent'������ont'������_er'�U���rtf(U���EOL((U�oer(PU���CCK(xU�  ESG(�U���
RFO(�Uxit(�Ufsh)U ��OEN)@U,``CDE)hU8``eet)�UD``	FFO)�UT``thr)�U`@@SFO*Ul``tat*0Ux��COL*XU���PNT*�U���ptf*�U�@@PEN*�U�  PSG*�U���tpy+ U�@@CSE+HU�  RAD+pU�  tmp+�U���epy+�U�``MTE+�U��ten,U��WTE,8U��euf,`U(��CAP,�U8  toi,�UD��tmp,�UP��
PAR-U`EUG-(Ul��ils-PU�ole-xU���cse-�U���dup-�U���_PS-�U�@@RAP.U�@@png.@U�@@_it.h
 � f�yap��h$START$parmcyreaderrrec_cntrec_toteof_cnteof_totmax_recmax_cntmin_recfpadvancearch_hdr__iob__ctypecytrapupshift	fs_failed	farmemcpy
write_advancedo_helptapeopenfsctrl
mapped_eofdiskopencloseallidtape	dsp_labelmark_eofmark_rec	tape2disk	disk2tape	tape2tapemain__buffer_bufMax_end_
call_debug__ANSI_MODEcyreaderrfprec_toteof_totmax_recmin_recmax_cntparmrec_cnteof_cnt__bufferprintfRESETCONTROLtoupperFCHECKFERRMSG
PRINTFILEINFOexitfflushFOPENCCODEmemset	FFILEINFOstrchrNSINFOstrcatFCONTROLFPOINTsprintfHPFOPENHPERRMSGstrcpyFCLOSEFREADstrncmpmemcpyFMTDATEstrlenFWRITEsetvbufXCONTRAPatoistrcmp
HPCIGETVARDEBUG_init_x11_globals_open_std_file_close_dupU_INIT_TRAPSARITRAP_parse_info_string__exitcytrap�����@fo���@`xt`l�|�b\�r8r8
h}�LG#�,,��������  HP30315 A.06.17K�$[ D<@(#) HP30315    A.05.10    95/02/08 NRT0 Startup routine     H@@(#) HP31508    A.05.06    97/01/16 HP Symbolic Debugger(XDBEND)X  d`d X &hfh�X &l+�fl+�0X  R�<X 8R���HX HS� �� �X IT����X XT����8(@�>(@�>(@�>(@�>(	`@	`>(p@p�>(@p@p>(Hp@p4>(P@p(>(P@pL}�h}�llx~�����|���@@�Y  d`Y &l+�flY R��8 @? 
p@@h�A.01.00 TAPECOPY Archive File, Lars Appel, August 1996
<Control-Y>
%s
TapeCopy is a utility to copy TAPE or DDS media into a disk archive
file and vice versa. It also supports direct tape-to-tape copying.

You may issue File equations to control the default files IN and OUT.
   FILE  IN;DEV=TAPE         or  FILE  IN=myfile
   FILE OUT;DEV=REMOTE#TAPE  or  FILE OUT=myfile

Usage: TAPECOPY mode [filename] [fcode] [,parm]
   mode = TAPE2DISK or TD  to copy from IN tape to OUT file.
          DISK2TAPE or DT  to copy from IN file to OUT tape.
          TAPE2TAPE or TT  to copy from IN tape to OUT tape.

   parm = 0   gives summary message only
          1   gives message at every tape mark
          2   gives message at every record

   fcode= optional filecode for diskfile when mode=TAPE2DISK
          User can also do SETVAR TAPECOPYFCODE {integer}

Notice that TapeCopy and its source code are freely distributable,
but NOT supported by HP. Also keep in mind that TapeCopy does not
know details about the media it copies. It does "raw" copying only.
Opening tape "%s" TAPE
Tape file %s is not a tape device; devtype %d
: -Tape: %-28.28s Recsize %5ld  Dev %s%d
"%s"hpfopen: error %d on file %s
STORESLT%d-File: %-30.30s recsize %5ld Fcode %s
%6d recs %4d marks  Blk min/max %5d/%-5d
%ld maxbuf (%d) records read

Closing tape
 !! Duplicate file; saved as temporary file !!
STORE/RESTORE-HP/3000.MPEXL  Data: NMSTORE %.27s  Reel %d Maxbuf %d
!! Warning: NM STORE tape maxrecsize is %d.
!! %d is all that TapeCopy can handle!
HPESYS Data: NM SLT  %.27s
 Data: NM Unknown  %d
STORE/RESTORE LABEL-HP/3000.VIIB Data: CMSTORE %.27s  Reel %d Maxbuf %d
 Data: Unknown  %.*s
Label: %.*s
%6d recs %4d marks
%5d bytes found
Warning: maxbuf record length %ld
INOUT
Read len=0

%6d recs %4d marks  Blk min/max %5d/%-5d 
INOUT Arch: %.16s
Unknown or corrupt ARCHIVE file format (hdr_len)
Unknown or corrupt ARCHIVE file format (hdr_text)
Unknown/corrupt ARCHIVE file format (reclen %d)
Unknown or corrupt STORE file format (reclen)
INOUTCCE %d
Read len=0
ccg
ccl
%s
TapeCopy 2.3e (X.01.02) by Lars Appel 08/1996, Keven Miller 06/1998
!! Control-Y Enabled !!

TAPE2DISKTAPE2DISCTDTAPECOPYFCODEDISK2TAPEDISC2TAPEDTTAPE2TAPETT!�>B  @Z A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A����� a@�@@�  @���]����]��*@����]���@�@�	@����]��	z@�@� @�b@�� @�	j@��@:����  @V�  @A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�!A�ˡ�F!!V����@X��Z����]�X��Z����]�X��Z����]�X��Z����]d�@"�Z�]>Z����Z�]>Z���Z�]9Z��8=�@�Y:Z�@�Z�@ZZ���Z�]ZZ����@"�Z��Y
:����Z�Z��@=Z����Z��Z�@=Z�� �Z��Y:Z�]y�a:=�]���:=�]	��	�:���=�@]�Z��BuZZ�Z�Z�ZZ�]y�a:=�]���:=�]	��	�:=�����@]�Z��B�Z��Z�Z��MZ��Z��Y
:��}�@]�Be�]y���Z�Z�5�@*�Z�@y�aA��Z�@y�aA���Z�]y�aA����@��Z�@]Z��]���:=�]	y�	a:=]�Y(����Z�����Y��Y8��Z�@]Z��]���:=�]	y�	a:=]�Y(����Z������Y��Y8��Z�]YZ�����@*�Z�@Y�AA���Z�@Y�AA���Z�]Y�AA���@
���Z��Z�m�Z��@(�_K�?�K�?�8 �@ K�?�7��� $ 4!�k�?��@@� ��@��_K�?�K�?�8 �@ K�?�Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@k�?�7�� t+`�_U4:� u4Ka?�h? v�_]@K�?Y�@�7�?��@h�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!
H4 k�?���$�@k�?�7��k�?9 |K�?9Btҕ��� � ~K�?9B��_]�:�ӟ�K�?9 K�?96�k�?9K�?9B��?���?}@K�?Y�@�7�?��@(�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!
@H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!H4 k�?���$�@k�?�7��k�>9k�>1 �K�>97�>�k�?�X�_�W �7�>�7�>��_�7�>� �G�>��t�7�>�
�� �+`4:��_�7�>� �G�>��?��� 
4?�g�>� �G�>�ҕ��� RG�>����4.�� 2G�>��t�4n��  ��_K�>9 �K�>1��  ��_K�>1 �G�>��?�Ka?�h?K�>Y�@�7�>��@(�_K�?�K�?�8 �@ K�?�k�?�k�?�k�?� �K�?��`@� �K�?�6�?���@�k�?�K�?�K�?�4?Sk�?�k�?�X @4@ҕ�K�?�6�k�?��K�?�7�?���_}k�?��� �K�?�6���`�k�?�K�?�6�k�?�B����K�?�K�?�6�Ak�?�k�?�� ��K�?�7���}k�?��@�@�@(�_K�?�K�?�8 �@ K�?�k�?�k�?�k�?� �K�?���@ꆆ ��@R�� ���K�?�K�?�6�_k�?�k�?�X �R �K�?�K�?�6�Vk�?�k�?�� �� �K�?�K�?�7�Tk�?�k�?�X �R �K�?��@�@�@(�_K�?�K�?�8 �@ K�?�k�?�7�� �+`�_�4:�K�?Y�@�7�?��@(�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!H4 k�?���$�@Ka?�k�?�4!	�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!
�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@k�?�7�k�=�k�=� �+`4:��_-K�=� �Ka?��_�4:  �K�=��� 4�k�=�k�=� �K�=�4K�=� <��47+`4?�k�?�k�?�k�?�4k�?�k�?yk�?qk�?ik�?a�_
k�?Yk�>a ��_-@�� K�>a�_�4 �+`�_�4:� �K�>a��%� �7�?	4@�_�4< �K�>a47�>u4
7�>yk�?�4k�?�7�?	k�?�k�?�k�?yk�?q�_�k�?i ��_@�� K�>a�_u4 K�>a4�7�>�k�?�k�?�k�?�k�?�k�?yk�?qk�?i�_
W �_u@��! K�>a47�>qk�?�k�?�k�?�k�?�k�?yk�?qk�?i�_�W �_�@�� K�>a�_M4 G�>q���tP4ִ�� "G�>q���_� k�>�G�>q�t�
�k�>� 7�?	�_�4@k�?I 	K�?I� 
G�>y�?�4�
ҕ�g�>y G�>y���40�� jG�>y�t�4>�� J +`4:�7�?	G�>y�_E��� �_}4 c�>� G�>u�?�4��az G�>uҕ�Ҷ�g�>q G�>u�?�4�
ҕ�g�>u 7�>�7�>i7�>q7�>mk�?�k�?�k�?�k�?�k�?yk�?qk�?ik�?ak�?Y�_%k�?Q G�>m����  g�>i G�>i���7�>�
t� G�>i����  " 7�>�r`P@p/��%n��_I�pPP������+`�_�49	8 +`4:	@7�?	K�>�7�>�G�>u����_
%k�?� "K�>aK�=��@�7�>�@h�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!	�H4 k�?���$�@k�?�7��k�?9k�?1 *K�?9K�?17�?�� ��_e@ +�_@�� K�?9�_}YK�?Y�@�7�?��@h�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!@H4 k�?���$�@k�?�7�k�>�k�>�k�>� 6K�>�4�7�?Ak�?�k�?�k�?�k�?�k�?yk�?qk�?i�_]W 7�_�@�� K�>��_%Y 9K�>�K�>�k�?Ik�?Q :K�?AK�?Q
�7�?����K�?Ak�?9 <K�>��_uK�?9 =�_@�� K�>��_
eY ?K�>�47�?1� ��_�@ @�_�@�� K�>��_�YK�>��@�7�?�@(�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!@H4 k�?���$�@k�?�7��k�>9k�>1k�>)k�>! RK�>1�` 
�k�?14k�?1 S7�>�+`49	�K�>!�� 
�K�>!K�>9�_E@ Z47�?)7�?A47�>�k�?�4k�?�7�?1k�?�4k�?�7�>1k�?y4*k�?qKa?�46k�?i4Jk�?a7�>)�_�k�?Y aK�?A�` � c+`4:	�G�?Aҙ��_5K�>9 e44K�?Ak�?�k�?�k�?�k�?�X�_UW f�_	4( i7�>�4@�_�4< jK�?)47�>�47�?!k�?�4�k�?�7�?9k�?�k�?�k�?yk�?q�_�k�?i o�_@�� K�?)�_u4* y7�>��_�4@k�? zK�?` {G�?!ҕ�4��� * |7�?+`�_
49	��� }G�?!�?�4�� * ~7�?+`�_�49	��2 �7�?+`49	�G�?!�_�Ҙ� �+`4:
7�>�K�?9�_�7�? �K�?)K�>Y�@�7�>��@h�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!�H4 k�?���$�@k�?�7��k�?9k�?1 �+`4:
PKa?�H9Ka?�H8Ka?�H7Ka?�H5�_]k�?� �Ka?�H6�?t�6 2 �+`4:
�Ka?�H9�_��t �+`�_�4:
� �K�?9Y�_�X ��_�@�� K�?9�_
Y �K�?14�_5X ��_M@��! �K�?17�?�k�?�X�_�W �G�?����4Ȋ� r �K�?14�_�X ��_
�@�� * �g�?� �+`�_]4: �G�?�Ҷ���  �K�?1�_�YK�?Y�@�7�?��@(�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!	H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@k�?�7�k�<� �7�=�4�_�Y �k�=qk�=aK�=a�  �K�=q��`� �K�<�7�=�� �4>�_Mk�?�k�=a ��_@�� K�<��_e4<K�=q6�k�=qK�=a�� K�=q�&E@ �4(�k�=i �7�=�+`49h�_�48��!* �4�k�=i �7�=�7�=��_�4 �7�=�7�=��_�4 �G�=�Қ�K�=��_�7�=� �+`4:�7�=�G�=�Ҹ��_iK�> �K�>�?t�6@* �+`4:K�>�_�t�� �7�=�+`49��_]4��!b �K�<�7�=�� �4>�_�k�?�k�=a ��_�@�� K�<��_�4> �K�=��b � �4�k�=i 7�=�7�=��_�4 G�=�Һ�K�=��_�7�=� +`4:��_�7�=��" +`4:��_yK�=��" 7�=�+`49
�_�4@�� � 
7�=�7�=��_�4 G�=����K�=��_�7�=� G�=��?�W+`4:
`7�=�G�=��_��x��: k�=qK�=q4d��@�7�=�K�=q� ���Ka?�H4� Ҷ�4�6�� �K�=q6tk�=qK�=q4d��@Z7�=�K�=q? �t�Ka?�H5� ���4���`?u@ +`4:
�K�=q�_I7�=� K�<�4
7�=y� ��_M@ �_@�� K�<��_a4@ K�=iK�<��@�7�=�@(�_K�?�K�?�8 �@ K�?�k�?�7��k�?9k�?1 !K�?94d��`
4dk�?9 "k�?�K�?�K�?9��@�K�?1K�?�t Ҷ�Ka?�H!6 ���4�
��� �K�?�6�k�?�K�?�K�?9�@ZK�?1K�?�� ���Ka?�H3 ҕ�4�
�� ?u@ #K�?��� * $+`4:
�K�?��_�K�?1K�?Y�@�7�?��@(�_K�?�K�?�8 �@ K�?�k�?�7�� *Ka?�H3�` : ++`4:Ka?�H9Ka?��_	H8 ,Ka?�H46�Ka?�h5 -Ka?�H66�Ka?�h? .Ka?�h K�?Y�@�7�?��@(�_K�?�K�?�8 �@ K�?�k�?�7��k�?9 4Ka?�H3�d " 5+`4:0�_�K�?9 6Ka?�H46�Ka?�h5 7Ka?�H66�Ka?�h? 8Ka?�h  :K�?9Ka?�H4��`� <K�?9Ka?�h5 =K�?9�?t�6@R ?Ka?�H?7�Ka?�h3 @+`4:X�_�K�?9 DK�?9Ka?�H5��@*K�?9��  EK�?9Ka?�h?K�?Y�@�7�?��@h�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!�H4 k�?���$�@k�?�7��k�>9k�>1 S+`4:��_	Yk�>� T�_�K�>�g�>� UG�>��u�4��� "K�>1� ` VK�>1g�>� X+`4:�4G�>��x��_�K�>9k�>� [K�>�47�>�k�?�k�?�k�?�k�?�k�?yk�?qk�?i�_�W \�_I@�� K�>��_�4P ^Ka?�45J�J�k�?1k�?9 _k�>� aG�>����4���  c��k�>� hK�?1K�?9k�?Qk�?Y iK�?1K�?94
�k�?1k�?9 j+`�_
4: k�>� kK�?QK�?YK�>�X uR� m+`4: K�?1K�?9K�>�
��_Ak�?� nK�?1K�?9K�>�Ҷ
�
�k�?1k�?9 oK�>��a8�"_�u;�5+`46�� �K�?1�_yK�?9K�?1K�?9ӓ�
ak�?1k�?9 s uG�>��?�4�� � wK�?1K�?9k�?Ak�?I xK�?1K�?94
k�?1k�?9 yK�?AK�?IK�>�� �h� }K�?1K�?9k�?Qk�?Y ~K�?1K�?94
k�?1k�?9 � �K�>�K�?1K�?9 <��4?�_ek�?�k�>� ��_@��E��� ��DJ��#j�r �K�>��` � �K�>ю�  �+`�_�4:� �K�>�6�k�>� �+`�_Q4:� �K�>я�`B �K�>��_�4 �Ka?�H3�`>�@�Z �k�>� �G�>�Ҷ�4��6 B �K�>�k�>�K�?AK�?IK�>�X �0�R� �K�?QK�?YK�>�� � ��_�K�>� �K�?1K�?9K�>��?6�k�?1k�?9 �K�>���8�"_��;�?+`43� �K�?1�_K�?9K�?1K�?9Ӂ�5k�?1k�?9 �Ka?�H:���4ȏ� � �+`4:�Ka?�H9Ka?�H8Ka?�H7Ka?�H5�_�k�?� �Ka?��_4:  ��
 �G�>����4��� R �Ka?�H36u
�k�>�K�?AK�?IX �0�R� �K�?QK�?Y4?�� ��� ��_=@ ��2 �+`�_�4:( �K�>��_
�4R �Ka?�H!4.�� � �G�>��u�4��� R �Ka?�H!4?�k�>�K�?AK�?IX �0�R� �K�?QK�?Y4?�� � ��_�@ �Ka?�H5�� *Ka?�H6�� K�>ь4x�@ �G�>����4��� � �K�?1K�?9k�?Ak�?I �K�?1K�?94
�k�?1k�?9 �K�?AK�?IK�>�X uR� �K�?AK�?I�  �� �K�>�K�?1�_�K�?9 �K�>��_K�>�K�>Y�@�7�>��@h�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!H4 k�?���$�@k�?�7�k�=� �+`4:0K�=�Y�_	Xk�>� �K�>�47�>�k�?�k�?�k�?�k�?�k�?yk�?qk�?i�_1W ��_
�@�� K�>��_�4d �+`4:8�_�4k�>y �Ka?�4?K�K�k�?1k�?9 �G�>����4���%� �K�?1K�?9k�?Qk�?Y �K�?1K�?94�k�?1k�?9 �7�>�K�?1K�?94l�_�k�?� �K�?QK�?YX K�@K�?QK�?Y� J߀��8�"_��;�5+`46�� �3K�?1K�?9���
�k�?1k�?9 �+`4:@�_Q7�>� �K�?QK�?YX J�@4l�6 2 �+`�_�4:` ��_14 �7�>�+`49 �_-4l�� 2 �+`�_�4:� ��_�4 � �K�?1K�?9k�?Qk�?Y �K�?1K�?946k�?1k�?9 �K�?QK�?Y� J��k�>q �K�>q��A� �K�>yK�?1K�?9K�>q
`k�?��_�k�?� ��_	i@�� K�>y�_�4f �Ka?�H6�� R �7�>�K�?1K�?94��_�k�?� �K�>q�_U7�>� �_
mK�>q K�>q��8�"_��;�3+`45�� �K�>q
�K�?1K�?9���
�k�?1��k�?9 K�>q� : K�>y�_Y4 �_M@�Z +`4:0�^�K�>q K�>y�_�4 �_�@Ka?�H5��`Ka?�H6��<�@�R  K�?1K�?9k�?Ak�?I K�?1K�?94
�k�?1k�?9 K�?AK�?IX J�@k�>q K�>q� A� &K�>yK�?1K�?9K�>q�k�?��_}k�?� '�_@�� K�>y�^u4h )Ka?�H5�� R +7�>�K�?1K�?94��_Ak�?� ,K�>q�_�7�>� .�_K�>q /K�>q��8�"_��;�3+`45�� �K�>q
�K�?1K�?9���
�k�?1��k�?9 2Ka?�H36u
�K�>q�6 : 4K�>y�_
�4 5�_�@�J 8K�>q�� 2 :+`�^
4:� ;�^E4K�>q�` Ka?�H5��<�@ @K�>��_�K�>yK�=��@�7�>�@(�_K�?�K�?�8 �@ K�?�k�?�o�7�?�(d4> I+`4:��_�Y+���h<?� J+����_	H:?� K+`4:�_94+���h<?� L N+���H:?�+���48?�� �"���6��_qk�?�+���h<?� O�_!@��B��� ��BB��!��� R+`4:+����^�H9?� S+���H??��� J U+`�^}4: V+���H:?��_
�4� Z+���H:?�+���48?�� �+���H3?�
`k�?��_Ek�?� [�_�@�� +���H:?��^54x ]Ka?�H5�� * ^+���H:?�+����_�49?� _+����_�H:?� a�� d+`�^4:0 e+���H:?��_	Y4 f�_M@ g�J j+`�^�4:@ k+���H:?��^�4z lKa?�H6�� Ka?�H!� <�@ q+���H:?�+����_H9?�Hb?�4~�@�O�?��@h�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!H4 k�?���$�@Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@k�?�7�k�>�k�>�k�>�k�>� |k�?k�? }Ka?�h  ~4?�k�?! K�>�Ka?�h3 �Ka?�h Ka?�h Ka?�h Ka?�h Ka?�h Ka?�h  �֟tKa?�h4 �Ka?�4: 4Y�_mW �Ka?�4:@4Y�_5W �+`4:P+`�^�49X �+`H:��_7�?) ��^u@��  �+`�^=4:� �K�>���`2 �K�>�J�k�? ��^eK�? �K�>���`K�>�Jtk�? �K�>���`K�>��_mJ�k�?! �K�?+`�_}49�� JK�?+`�_U490�� "K�?+`�_-49H��! �K�?!� `� �4+`49P7�?147�?!k�?�k�?�k�?�k�?�k�?yk�?qk�?ik�?ak�?Yk�?Q�_�k�?I �K�?1�`  �4?�k�?! �K�?�_AK�?!�* �K�?+`�_�49p�� JK�?+`�_�49��� "K�?+`�_�49���  ��_
K�?�� �K�?+`�_U49��� "K�?+`�_-49���  ��_�@� ��^�@K�>��@�7�?�@(�_K�?�K�?�8 �@ K�?�7��4k�?��@�7�?��@h�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!H4 k�?���$�@k�?�7��#� �� pBK�?Y�@�7�?�Ka?�k�?�4!	@H4 k�?���$�@Ka?�k�?�4!H4 k�?���$�@Ka?�k�?�4!H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!
�H4 k�?���$�@k�?�o�)�_�@�_Z�_4�_54�_e4�_�@�_�Z7�?�7��7�y7���_�WG��K�?�k�?����7���_UX�_�ZK���@�O�+`�@�4<`a�Xa�b�Hb�f`Xf�f�gg@g�g��h�i��i�jp�j�k,�kLkll�pD� p�p��qr �r�u�uTv��w`z��0{{��||�|�}��}��T������ ��T �������X�t�x�����flf�f�gDg`g�h i�jtk0kpk�@pHpdp�p�r$r@ uu4v�v� z�{�|�}�}��X�t��X�t(����8�x@��
\`P����$TEXT$	$PRIVATE$$MILLICODE$$CODE$$LIT$$UNWIND_START$$UNWIND$MILLICODE$$UNWIND$$UNWIND_END$$RECOVER_START$$RECOVER$MILLICODE$	$RECOVER$
$RECOVER_END$$GLOBAL$$SHORTDATA$$DATA$
$PFA_COUNTER$$BSS$$PFA_COUNTER_END$
$SHORTBSS$$DEBUG$$HEADER$$GNTT$$LNTT$$SLT$$VT$$LITSTATIC$$STATICDATA$$SHORTSTATICDATA$$DXRT$�0	@0f��0 �{0,�0@��0P��0d���0x	@�0�@p�0�@p0f�fo0@T0@X0 @d0,@l08@p0D@\0P@h0\@`0h@@0t@P0�@H0�@H0�@0�g �@XU��f�U��f�0
�g�U�g`0
@�h�U��hU h,U�hLU$hl0
0i�0
Q@j�0TkO0
A`l�p����U|k�U��k�U�`k�U�`k�U�`lU�`l,U�@lLU�`ll0
@�p�U��pd0
�qU�p�0`0
U$r�U4�r@U@@r`UL r�U\�r�0
@huWUx@u40
�wcU� v�U� wU��w U�`w@�����0
@�{0�|0
�|�0
@�}�U�}�0a�0
$��U4��t0@�0
TP�U\��t �@hUh���Ux ��U����U����0�gf�0
�g�gG0
@�h�g�0
0i�i�0
Q@j�jw0TkLk30
A`l�ks0
@�p�pK0
�qp�0
U$r�r'0
@huTu0
�w`v�0
@�{z�0�|{�0
�|�|�0
@�}�}�0
$���[0@��0
TP��[0��@x0�
@0�� ��0�[U�8 ��x0����0�X� X@p h
@ �@p �@p �@ �
@p �� �fhU��xU0��UD���UP���U\���Up@�U|@�8U�@�X0�
@ � X@p h
@ �@p �@p �@ �
@p �� �fh0|c[0�c�0�c�0�e�0�f30�c�0�d�0�fS0�d� 8a L` Xa� ha$ $a� ,b�0	`b�0	|b�0	�b�0	�c0	�c0	�c/ XcD dd pd`0	�cs |c�0	�c� �c� �d0	�dC �dT �dp0	�d� �d�0
d� �d�0
d� �e0
,e+ �e40
<eG �e� �eH 	eX 	e� 	e� 	 e� 	(e� 	8e� 	@e�0
Le� 	Hf0
\fO 	TfX���� ���������8����P����\����t����h��������,����D���������
 � f�$global$$START$_start
$UNWIND_START$UNWIND_END$RECOVER_START$RECOVER_END$dp$$PFA_C_START
$PFA_C_ENDTAPECPYCHPC     HP31506     HP C/iX M$20L$plab_startparmcyreaderrrec_cntrec_toteof_cnteof_totmax_recmax_cntmin_recfpadvancearch_hdrcytrapprintfRESETCONTROLupshifttoupper	fs_failedFCHECKFERRMSG
PRINTFILEINFOexit	farmemcpy
write_advancedo_helptapeopen__iobfflushFOPENCCODEmemset	FFILEINFOstrchrNSINFOstrcatfsctrlFCONTROL
mapped_eofFPOINT$$divUdiskopensprintfHPFOPENHPERRMSGstrcpycloseallFCLOSEidtapeFREADstrncmpmemcpyFMTDATE__ctype	dsp_labelmark_eofmark_rec	tape2diskstrlen$$remI	disk2tapeFWRITE	tape2tapemainsetvbufXCONTRAPatoistrcmp
HPCIGETVARHPC
HP92453-01A.09.33D$0D$1__buffer_bufMax_end_
call_debugDEBUG_startHP-C
cc options =  +O2 -AaA.08.81$THIS_DATA$$THIS_SHORTDATA$
$THIS_BSS$$THIS_SHORTBSS$$THIS_STATICDATA$$THIS_SHORTSTATICDATA$
$THIS_LIT$$THIS_LITSTATIC$__ANSI_MODE_kludge_init_x11_globals_open_std_file_close_dupU_INIT_TRAPSARITRAP_parse_info_string__exit__ANSI_MODEansiflagMILLI/12.34/MdivU.o%HPUX Precision Architecture Assembler92453#A.08.00(sllic UX.08.00.00 10/25/89)special_divisornormalbig_divisorzero_divisor$$divU_3$$divU_5$$divU_6$$divU_7$$divU_9	$$divU_10	$$divU_12	$$divU_14	$$divU_15MILLI/12.34/MremI.ot1finishMILLI/12.34/Mdiv_const.o$neg3$pos$neg$neg5$neg6$pos_for_17$neg10$neg_for_17$neg12$neg15$neg17$u17$neg7$7$pos7$1$2$8$neg7_shift$3$4$neg9$neg14$$divide_by_constant$$divI_2$$divI_4$$divI_8	$$divI_16$$divI_3$$divI_5$$divI_6	$$divI_10	$$divI_12	$$divI_15	$$divI_17	$$divU_17$$divI_7$$divI_9	$$divI_14����K�$X����2��v2��n ,�L4���4F���,�L4���3�y5���8��l��@`��  �@��0@Ԡ0%@�  
�Q-������ ���@3����� � ��	�
Q5�����X� �X�t�� ������ �Z��0�P�!`$��$`$�-�
0-�P.�/`/��0`0�`1�xdbend.c<<<NULL_SYMBOL>>>__buffer_bufMax_end_xcall_debugP@��������r`p/��%���]5!9�,pp� ������DISC                             1TAPECPYV        PUB             SYS                             MANAGER SYS     �p/��%���u ����u �����w4���ub1�����������ub1SYS             ���	�AL�������������R���w����sl.pub.sys y�9�����
��X��/����x����tx�@'��������	#3CScs��<P�P�r`@@p/��%���]5!9�,p@@�������"2R""'�2�R�"*2"c�ˆ�	@����Relate  " "�R�B"��2B%R��	@���  Termtype  " "�rR�B"
��2rRBB2�	@���Parm  " "�R�C�"
��2rRBB2�	@���Ilen  " "�R�C�"
��2rRBB2�	@���Info [" "�R��	@C�C� 2�rR��	@���] " "�rRBB2C�C��22C�$��" G���O�D�����
4�S��C�$��Cc�Ï" G���OÊG���@��å���������CS�4:���S:���S:C�RB�	@���TapeCopy 3.0s "
 "�2�C"
��?$��C2�C"'��H$��C2*S�B"
��SRB$���BB2S*SC���TD" �C���TAPE2DISK "	 ��ECC2�hC���DT" �C���DISK2TAPE "	 ��DC2�QC���TT" �C���TAPE2TAPE "	 ��C2�;���ʉB�2�	@���-** Unknown mode:  " "�R��	@��C2 2�rR��	@��� ** " "�rRBB2B�223:
���S	:2"2�	���TAPEIN " #�C	�2
SC�2�	���TAPEOUT" #�C	"2
S�S�P��CB@2SÌ�C*F2SC$�B2
�>���2
�:�W�c�UC"�2C�:"2C$�C"G22
�#"C�P����2CBC2�C"H2�P��G"b�B2�2�c�D�bʅCC23������B C�S�C
��B2S
Ç�C
C�2���BS
��^B����B ��"�P@�C
bʆ�	@���
>** Diskread of  " "�R�C
"
��2rR��	@���w !=  " "�rR�B"
��2rR��	@���w **" "�rRBB2"24���" ���C%SCb��"2���4"bˆ�	@���K    " "�R�c�C*
#�2��"��2 B%R��	@���: " "�rR��"��2 B%R��	@���  " "�rR��"��2 B%RBB24:���S:2"2����DISKIN " #�C�C�2	S
B$����	@���
9** Disk file recsize  " "�R�B"
��2rR��	@���	w > buffer size " "�rR�"�"
��2rRBB2"2����TAPEOUT" #�C"2
S	�C
BB2S
Ç�C
"32����^#���B ��"�P@��C
��B2S
Ç�C
"52�����^B����B ��"�P@��S�S�P�����������������j��"�P2��P���"�SC$��"�S���2�C�P2�C�P@"�P!y�@S�SCcßBS
C
C����C�S
����C
 Cs
SCs
SCb��"7���� C	BC�2�C	"82�P��G"b�B2�2�?�"�PM��MC	"�
2�C	"922
�+�P�ʇB�	@���Unknown or corrupt STORE file format (reclen) "- "�2"2�P��bʅC
C	23�?CBCb��B�C�2�CC�2�"�P@�����B C�S4������" C%SCb��"<��/4"bˆ�	@���K    " "�R�c
�C
*
#�2��"��2 B%R��	@���: " "�rR��"��2 B%R��	@���  " "�rR��"��2 B%RBB24:���S:2"2����TAPEIN " #�C�2
S
C
�2C�$Ã@S�����	�DISKOUT" #�C"C�C�2	S�S�S�S
�P��P��P��C
B@2S	×�C
*=2SC$�N�P�������������2
�����"�PM������������2
��[�c	�YC
"�2C
�:"2C$�C
">2�P�����c�������2
�[C	�P�������������C	�P��"�SC$��"�S���2s
S
��C�P2s
S
�C�P@"�P!y�@S�SCcßBSCC����C�S����C CsSCsSCb��"?����� �2��"�P2s
S
���c�D�bʇC$��"@���;�x2
C
C23:ӆ"2�P��"2�ӆ�S�SCcÌ" �݄���݄$~���
�cʌ�bB�2�	@���Label:" "�R��	@��C 2�rRBB23:�^#���"� �S�S�c�SC$
Ð�C�B@2SÆ�C�"(2���B���STORE/RESTORE-HP/3000.MPEXL " ��R@W��#�" #N�B2!�	@���
�	�Data: NMSTORE " "�R��	@�" 2�rR��	@���  Reel  " "�rR�#N"
��2rR��	@��� Maxbuf " "�rR�#�" B$
�U�@�P�O��	@����&dB" "�rR��"
��2 rRB$
�T�A�P�N��	@���&d@" "�rRB$
�A*�P�O��	@��� *****" "�rRBB2��#����qHPESYS" ��f�C�BA�2S�C�")2���" �"�P�V@W��"((��" "&(�N�B2!�	@���
	�Data: NM SLT  " "�R��	@�" 2�RBB2�#�	@���Data: NM HPESYS Unknown   " "�R��"
��2 rRBB2�FB���STORE/RESTORE LABEL-HP/3000.VIIB"  ��V@W��"2(��" "0(�N�B2!�	@���
�	�Data: CMSTORE " "�R��	@�" 2�rR��	@���  Reel  " "�rR�#N"
��2rR��	@��� Maxbuf " "�rR#�N�B$
�U�@�P�O��	@����&dB" "�rR��"
��2 rRB$
�T�A�P�N��	@���&d@" "�rRB$
�A*�P�O��	@��� *****" "�rRBB2��B���SPOOLFILETAPE LABEL-HP/3000." ��R@W��#�" #N�B2!�	@���
3	�Data: CMSPOOK " "�R��	@�" 2�rR��	@���  Reel  " "�rR�#N"
��2rRBB2�/�SC$2Ì" ������$~���
�	@���	Data: Unknown   " "�R��	@�C 2�rRBB2C�"�2�C�"*23:2�bB�2�
@
�P�G�	@���	�`!! Warning: " "�R��"
��2 rR��	@���	 blks with size " "�rR�A("
��2rRBB2B�	@���$!! These blocks could be larger - and therefore some data may be lost!"F "�2"bB�	@���
Closing files ... " "�"�2�	@���done. " "�RC��2"�C�*2�SC�"�2"ʝ"bB�2C��:"2"dc�PC�"%�2"�K*SB�	@���-$!! Duplicate file; saved as temporary file !! "- "�2�C��:"2�cÆ�C�"2�c�H"bBB23:���S	:���S
:�c���"S�C�2SC$���
��C 3�	�C�2S�
��C 3���
"�S�C
CC�C:8:C�@2#Sʉ�	@������	$FOPEN failed on file  " "�R��	@�
�C
2 2�rRBB2�C"2��
#�
��
" 3C"C
"��"��"
��"��@2$�C"2��C$��C��"�(R�b�F�c�"�RC$��C'�CS�b�F�	@���** $NULL cannot be used for input **"$ "�RBB2"2@c�L�	���	�STORE" #�$@c�K�	���	�SLT" #�@c�L�	���	�CMSTR" #�	�C"
C	2���	�	@���File: " "�R��	@�
�C
2 2�rR��	@���	  Recsize       " "�rR�C*
B#�2��	@���  EOF " "�rR��"
��2 rR��	@���  Fcode " "�rR��	@�	�C	2 2�rRBB2�	@���     Limit  " "�R��"
��2 rRBB2CS�3:	���S:�	@���Opening tape "" "�R��	@���C�2 2�rR��	@���" " "�rRBB"�2�c�"��S@sS����TAPE " #�S�C�"�C@7C:	@52#SB�2�C"
2B�2��#���" 3C"C"��"��"��"��@2$�C"2C$��C'���CSC?�SC$�JC?$�G�	@���! ** $NULL cannot be used for input **"$ "�RBB2C�2""2C$ʏC$ʍC$ʋB�2�	@���PON** Tape file  "
 "�R��	@��C2 2�rR��	@��� is not a tape device; devtype  " "�rR�C"
��2rR��	@���9 ** " "�rRBB2"2�#(�C$���C-RC?�SB���:
@2%�c�S����c�B2�����<:  " #�R��	@���Tape: " "�rR��	@��C2 2�rR��	@���	  Recsize       " "�rR�C*
B#�2��	@���  Dev " "�rR��	@��B2 2�rR�C"
��2rRBB2CS�3B�	@���A utility to copy TAPE into a disk file and vice versa. "7 "�2B�	@���It will also do tape-to-tape copying. "% "�2B�2B�	@���You may issue File equations to control the default files of"< "�2B�	@���   TAPEIN, TAPEOUT, DISKIN, DISKOUT."$ "�2B�2B�	@���
   FILE  TAPEIN;DEV=TAPE" "�2B�	@���   FILE TAPEOUT;DEV=REMOTE#TAPE " "�2B�	@���   FILE  DISKIN=myfile" "�2B�	@���   FILE DISKOUT=myfile;DISC=100000;code=7 ") "�2B�2B�	@���Usage: TAPECOPY mode [filename] [fcode] [,parm] "/ "�2B�	@���   mode = TAPE2DISK or TD  copies from TAPEIN to DISKOUT. "9 "�2B�	@���          DISK2TAPE or DT  copies from DISKIN to TAPEOUT. "9 "�2B�	@���          TAPE2TAPE or TT  copies from TAPEIN to TAPEOUT. "9 "�2B�2B�	@���   fcode= optional filecode for diskfile when mode=TAPE2DISK"< "�2B�	@���          default filecodes used are"$ "�2B�	@���            2501  NM STORE tape " "�2B�	@���            2503  NM SLT tape " "�2B�	@���            2504  CM STORE tape " "�2B�	@���            2505  tape of unknown format"( "�2B�	@���            2506  CM SPOOK tape " "�2B�2B�	@���   parm = 0   gives message at every tape mark and 500 blks "; "�2B�	@���          1   (quiet mode) gives summary info only"2 "�2B�	@���          2   same as 0 plus debug info "' "�2B�23�"�P@�Ӆ�ÃӅ�Ӆ�
��Ӆ�
Ӆ@�P�V�"�P@��bʎ�bB�2�	@����XT!! Warning: block length  " "�R�Ӆ"
��2 rR��	@��� >= MAXREC  " "�rR�A."
��2rR��	@��� starting with rec  " "�rR��"
��2 rRBB2�R�"R"b�@���B23��"�P@�"b23:�b�H"B?��C"R�S�R�b"�S�	@���
 " "�R��	@���        " "�rR��*
B#�2 ��	@��� blks       " "�rR��*
B#�2 ��	@��� marks  " "�rR��	@��� min/max      " "�rR��*
B#�2 ��	@���/ " "�rR��
"
��2 rR��P�ǲ�	@���d            " "�rR��*
B#�2 ��	@��� diskrec  "	 "�rR��P���"d�P!x�!y����	@���'    " "�rR��*
B#�2 B%R��	@���% " "�rR��"
��2 rRBBC23�P	��	��	����P	��
�@	�P�"R�R3�:׆�Ã"��S�2&׆Ӆ@�"2&C$�F׆��C"S�3:C��:"2"HS�c�ʋ�B�2'�	@���	5Unknow FSERR  "
 "�R�C"
��2rR��	@��� #" "�rR�C�@Â"
��2rR�bB�2BB2�c�C*SC,C$C$ C$7C$4C$eC�2(�c�ÃC�2CS�3:�S�݄$"a݄��	�݄$z��݄& 턡�3��	F q�S�3:�c�7�2)���2)�Z"bB�	@���!! Control-Y enabled" "�2���"bB�	@���!! Control-Y disabled " "�23C�2*2+3:��S:C�S�	@���	
<Control-Y>   " "�SCC2"R2,@s0`33�����#��*���<����(�*����*��*�*��VR��qY^S��B	��+�����, Control-Y enabled" "����"bB�	@���!! Control-Y disabled " "�3C�3:��S:C�S�	@���	
<Control-Y>   " "�SCC"R@s0`33������������RESETCONTROL,	TERMINATE+SETJCW*XCONTRAP)
PRINTFILEINFO(FERRMSG'ARITRAP&NSINFO%	FFILEINFO$FOPEN#FCLOSE"FMTDATE!DASCII FWRITEFCHECKFREADBINARY
TERMINATE'PRINTASCIIFCONTROLFRELATENTFILEINFO(FERRMSG'ARITRAP&NSINFO%	FFILEINFO$FOPEN#FCLOSE"FMTDATE!DASCII FWRITEFCHECKFREADBINARY
TEROB'PRINTASCIIFCONTROLFRELATENTFILEINFO(FERRMSG'ARITRAP&NSINFO%	FFILEINFO$FOPEN#FCLOSE"FMTDATE!DASCII FWRITEFCHECKFREADBINARY
TERV�SEG' -�OB'�MAIN ���TAPE2TAPE���DISK2TAPEH�TAPE2DISK]��DSP'LABEL�@�IDTAPEU+�+CLOSEALLE���DISKOPENE	�x	�TAPEOPENEB�BSHOWHELPE���MARK'RECE���MARK'EOFESSMARK'DSPE^�^INITCNTSEYYADD32qqFSFAILEDE�l�UPSHIFT��STRLENUCYSET@EXIT RRCYTRAPUV$V�MARK'RECE���MARK'EOFESSMARK'DSPE^�^INITCNTSEYYADD32qqFSFAILEDE�l�UPSHIFT��STRLENUCYSET@EXIT RRCYTRAPUV@@��������r`p/��%��]p!��pp� ������DISC                             1TAPESIM         PUB             SYS                             MANAGER SYS     �p/��%��d#���d#���fg��fg�~��fgSYS             @]��p���4�L$'�('`~lZ�L�����!�"� �"` X�! !p"� �!H"8"� �!� �0Nl 0P PST$0@�ycy����rno 0$����_ob"�0
0P�PCyap0
<Q<P�yet0
QHR`Q�ple0
AXS�SG	lle0
QhT<Tetr!�0
QtUT�eat0
Q�U�U�rtr0
Q�VpVWrat0�WV�ean0
�W\WC
a160
�W�W�
a320
�XXW�ize0�YhYOets0
QY�Y�	ota0
A[pZ�ain0	@_DE,����ycy#U4  rtf#(U@��EOL#PUT��CAP#xUdCDE#�Up��tpy#�U|��ptf#�U�``oen$U�@@tor$@U���cse$hU�``rad$�U�@@wte$�U���sek$�U�tll%U�thr%0U�@@xit%XU���ten%�U��tmp%�U``end%�U��fsh%�U(  ils& U@  ole&HUT``cse&pU`��dup&�Ul��_PS&�U���RAP&�U�@@png'U���_it'8
 
� PCyap~lh$START$cyerrno__iobcytrapcysetopenfile	closefilereadptrreaddatwriteptrwritedattest_big_endian
make_endian16
make_endian32filesizetest_structs	move_datamain__ANSI_MODEcyprintfRESETCONTROLXCONTRAPCCODEstrcpysprintffopenstrerrorfclosefreadfwritefseekftellstrchrexitstrlenstrncmprewindfflush_init_x11_globals_open_std_file_close_dupU_INIT_TRAPSARITRAP_parse_info_string__exitcytrap�����@P��Nl@@( @H��NA�^I@I@�NlG
t,cxd�e`e`�  HP30315 A.06.17]�� D<@(#) HP30315    A.05.10    95/02/08 NRT0 Startup routine    X  P\X  tPt0X  3xcx<X 83x cx HX H4��d���X I5`e`�X X5`e`�8(@�>(@�>(@�>(@l>(�@�>(�@��>(@�@�>(H�@�4>(P@�(>(P@�LY  xPY 3x�cx8 @? �@@�STORE/RESTORE LABEL-HP/3000.
<Control-%c>  
!! Control-%c interrupt enabled.
!! Control-%c interrupt disabled.
wb F%d S%dOpen %s write
rbOpen %s read
** fopen %s modes %s err %d %s
Closing %s
** fclose %s err %d %s
** fread ptr %d != %d err %d %s
!! EOF (len %d)** fread dat %d != %d err %d %s
** fwrite ptr %d != %d err %d %s
** fwrite dat %d != %d err %d %s
** fseek EOF err %d %s
** ftell EOF err %d %s
** fseek BOF (%ld) err %d %s
** stdptr_t size=%d != 8
%s  %s  Convert STD file to SIMH
1.02Usage: %s [-d] fromfile [tofile]
   -d  debug - show pointers
!! Clear errno %d %s
** Not a CM Store: "%.*s"
--       CM Store= "%s"
** File %s exists; no conversion done.
!! Endian %s
BigLittleSize %8.8lX    (%ld records)

Posn %8.8lX  %8.8X %8.8X   SIM: %8.8X  STD-EOT  %8.8X

!�@(�_K�?�K�?�8 �@ K�?�7��� #4!�k�?��@@� ��@��_K�?�K�?�8 �@ K�?�Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@k�?�7��k�?9Ka?�H!4?Ka?�h?+`4:P�_%4��_U@K�?Y�@�7�?��@��_K�?�K�?�8 �@ K�?�Ka?�k�?�4!H4 k�?���$�@Ka?�k�?�4!H4 k�?���$�@k�?�7��k�?9K�?9�` "+`H:�_=7�?��7�?��_Z�_M@k�?�K�?��� "+`4:x�_�4��*K�?��� +`4:��_]4�Ka?�h K�?Y�@�7�?��@(�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@k�?�7�k�>�k�>�k�>�K�>���@r7�?A+`�_�497�?E+`49K�>��_�K�>�+`4:(�_UK�>��J7�?A+`�_549HK�>�� `+`4:P�_�K�>�K�>��_m7�?Ak�?�K�?��� rK�>��``RKa?��_mH:+`4:pK�>�7�?AKa?�H7�_ek�?�Ka?�h K�?�K�>��@�7�?�@h�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!�H4 k�?���$�@k�?�7��k�?9k�?1k�?�K�?9�� �+`4:��_eK�?1�_]K�?9�� jKa?��_�H:W+`4:�K�?1Ka?��_�H84?�k�?�Ka?�h K�?�K�?Y�@�7�?��@h�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!�H4 k�?���$�@k�?�7��k�?9k�?1k�?)K�?14K�?)�_uK�?9k�?�K�?�K�?)�6 �Ka?�H?�� zKa?��_mH:+`4:�K�?�K�?)Ka?�H7�_ek�?�4?�k�?�Ka?��8h K�?��� "+`4:@�_
K�?�k�?�K�?�K�?Y�@�7�?��@(�_K�?�K�?�8 �@ K�?�k�?�7��k�?9k�?1k�?)K�?14K�?)�_�K�?9k�?�K�?�K�?)�� rKa?��_�H:+`4:`K�?�K�?)Ka?�H7�_�k�?�4?�k�?�Ka?�h K�?�K�?Y�@�7�?��@h�_K�?�K�?�8 �@ K�?�Ka?�k�?�4!�H4 k�?���$�@k�?�7��k�?9k�?1k�?)K�?9�� �K�?14K�?)�_eK�?9k�?�K�?�K�?)�� rKa?��_]H:+`4:�K�?�K�?)Ka?�H7�_Uk�?�4?�k�?�Ka?�h K�?�K�?Y�@�7�?��@(�_K�?�K�?�8 �@ K�?�k�?�7��k�?9k�?1k�?)K�?9�� �K�?14K�?)�_K�?9k�?�K�?�K�?)�� rKa?��_
H:+`4:�K�?�K�?)Ka?�H7�_k�?�4?�k�?�Ka?�h K�?�K�?Y�@�7�?��@(�_K�?�K�?�8 �@ K�?�7��4k�?�C�?�Ҷ��� k�?�K�?��@�7�?��@(�_K�?�K�?�8 �@ K�?�7��g�?=G�?=g�?�C�?�c�?�C�?�c�?�C�?�c�?�G�?�Ҽ��@�7�?��@(�_K�?�K�?�8 �@ K�?�7��k�?9K�?9k�?�C�?�c�?�C�?�c�?�C�?�c�?�C�?�c�?�C�?�c�?�C�?�c�?�K�?��@�7�?��@��_K�?�K�?�8 �@ K�?�Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!H4 k�?���$�@k�?�7��k�?94?�k�?�K�?94�_=Y�� ZKa?��_mH:X+`4:8Ka?��_uH9Ka?��h �_K�?9��``k�?�Ka?��_�H:X+`4:hKa?��_�H9Ka?���h K�?9Y�_5X�� jKa?��_eH:W+`4:�K�?�Ka?��_eH84?�k�?�Ka?�h K�?�K�?Y�@�7�?��@(�_K�?�K�?�8 �@ K�?�k�?�7��k�?�4k�?�K�?��� *+`4:��_
�K�?�4?�k�?�K�?�K�?Y�@�7�?��@(�_K�?�K�?�8 �@ K�?�k�?�7��k�/9k�/1k�/)k�/�K�/�K�/)�6A*4k�/�K�/)K�/�
�k�/�K�/�K�/��6`
K�/�k�/�K�/97�/��_�K�/�k�/�K�/�K�/��� 4?���k�/�K�/�K�/�6k�/�K�/17�/��_K�/���`4?�� k�/�K�/�K�/)��^�@K�/�K�/Y�@�7�/��@��_K�?�K�?�8 �@ K�?�Ka?�k�?�4!H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@k�?�7��k�<9k�<1K�<1J��_E4\k�=K�=�  
K�=�+`4:K�<1Jy+`�_	=48X�_E@�� 
�_�4k�=)k�=!k�<�4k�<�K�<�K�<9��AzK�<1K�<�? �k�=K�=B�Ҷ�4Z�6 �K�=7�k�=K�=B�Ҷ��� rK�=4?k�=@3�t�4Ȃ� �
4k�<�K�=@?����`?�@�BK�=!�� K�=� k�=!K�=)�� 
K�=k�=)K�<�7�k�<�K�<�K�<9��^�@K�=!�� J+`4:hK�<1�_H9+`�_4:��_�4Ka?�H?�� RKa?��_
�H:X+`4:�Ka?��_�H9Ka?�h k�<�k�=1k�=9+`43JtJuk�?aJvk�?iJak�?qJ k�?yJt(k�?�Ju0k�?�Bv8k�?�c�?�K�=!4?��_	�Xk�=1K�=1�  4*�k�<��_uK�=1k�=K�=�``4,��k�<�k�=IK�=I��@rK�=17�=A�_�4k�<�K�<���@"K�<�� `
4.k�<��K�=I�`_�@K�=17�=a�_
�4k�<�K�<�4�� 40��k�<��_}7�?ak�<�7�=a7�?a�_�K�<��� Z+`4: K�<��_�7�=a+`4:X�_�7�?a4�Hk�<��_]K�=1K�=)�� �K�=)Y�_�Xk�=9K�=9�` 2+`4:��_MK�=)4<��k�<�K�=6��RA4!��?�7��k�<�K�=)K�<��_�4�k�=9K�=9�� 4>�0k�<��_]4�_@k�=+`4:�K�=�� +`�49+`49�_-@k�=	K�=R_7�����+`4:�_�K�=K�<َ`$:Ka?�H4��$"k�<�K�<Ꭰ +`�_�4:X+`4:`�_mK�=	Ka?��_=4: K�=17�=A�_�4k�<�K�<���@"K�<�� `
4.k�<��ZK�=	K�<�
�k�=	K�<�� 2+`4:�K�=A�_�K�=I4k�<�K�=I��`
�8k�=YK�=I�`@K�=I�k�=Y4?�k�=YK�=I�� 
K�=A�  ��_�K�=Yk�=YK�<�� *+`4:��_�K�=Y4k�<�K�=97�=Y�_
u4��`4B��k�<��2K�<ᆠ "+`�_I4:�4k�<�K�=I� @�K�=1K�=9�_�K�=Ik�<�K�<���`RK�<��t7�4ִ�� 40�k�<�4Dk�<��K�=	K�<�
k�=	K�=I��@zK�<�� *+`4:��_9K�=Y4k�<�K�=97�=Y�_�4��`4F�Xk�<�K�<�` +`�_�4:�K�<َ� Ka?�H5��;�@+`�_y4:�K�<َ� "Ka?�H!�  
4k�<�K�=9�_uK�=)K�=1�_]K�=!K�<�K�<Y�@�7�<�Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!@H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!H4 k�?���$�@Ka?�k�?�4!�H4 k�?���$�@Ka?�k�?�4!H4 k�?���$�@k�?�o�)�_�@�_Z�_4�_54�_e4�_�@�_�Z7�?�7��7�y7���_�WG��K�?�k�?����7���_5X�_�ZK���@�O�+`�@�4<P P<P�P��Q<Q��R`S@�S�S��T<T��UU��U�VP�VpV��WW<W\W��W�W��XXYH�YhY�Y�Z��[pa��8b�ch�clctPP@P\P�P�Q�Q� SDS`TTT�U�U�VTV�W@W�W�XYLY�Z�Z�0a�@r`@p/��%��]p!��p��������
$TEXT$	$PRIVATE$$MILLICODE$$CODE$$LIT$$UNWIND_START$$UNWIND$MILLICODE$$UNWIND$$UNWIND_END$$RECOVER_START$$RECOVER$MILLICODE$	$RECOVER$
$RECOVER_END$$GLOBAL$$SHORTDATA$$DATA$
$PFA_COUNTER$$BSS$$PFA_COUNTER_END$
$SHORTBSS$$LITSTATIC$$STATICDATA$$SHORTSTATICDATA$$DXRT$�0@0P#�0 b�0,cx0@d�0Pe`0de`�0x@�0�
@��0�@�0P P0@�0
P� �@(U( P\U4�P|0
HQ? �@�UT�P�UdQ0
QpRcU��Q�U��RU�`R �����U�@R@0
A�S�U��S`0
Q�T?U�`T0
Q�U0
QU�U@U�0
QVs0,W0
@W_0
TW�0
hX[Ux�XU�X80�Yk0
Q�Y�0
A�[s @U�Z�U�@Z�U��Z�U��[U�`[0�����U�[P0
P�PC0
HQ<P�0
QpR`Q�0
A�S�SG0
Q�T<T0
Q�UT�0
QU�U�0
QVpVW0,WV�0
@W\WC0
TW�W�0
hXXW�0�YhYO0
Q�Y�Y�0
A�[pZ� \@� l	@ �@� �@� �
@ �@� �cx �PU a�U4 bUH`b$UT�bDU`�bdUt�b�U�@b�U��b�0�	@ co \@� l	@ �@� �@� �
@ �@� �cx �P����
 
 PC$global$$START$_start
$UNWIND_START$UNWIND_END$RECOVER_START$RECOVER_END$dp$$PFA_C_START
$PFA_C_ENDTAPESIMHPC     HP31506     HP C/iX M$6L$plab_start	M$21$maincycytrapprintfRESETCONTROLcysetXCONTRAPCCODEopenfilestrcpysprintffopenerrnostrerror	closefilefclosereadptrfreadreaddatwriteptrfwritewritedattest_big_endian
make_endian16
make_endian32filesizefseekftelltest_structs	move_datamainstrchrexitstrlenstrncmprewind__iobfflush_startHP-C
cc options =  +O2 -Aa
HP92453-01A.08.81$THIS_DATA$$THIS_SHORTDATA$
$THIS_BSS$$THIS_SHORTBSS$$THIS_STATICDATA$$THIS_SHORTSTATICDATA$
$THIS_LIT$$THIS_LITSTATIC$__ANSI_MODE_kludge_init_x11_globals_open_std_file_close_dupU_INIT_TRAPSARITRAP_parse_info_string__exit__ANSI_MODEansiflag����]�� @P4���4F��� @P4���3�y5@��������r`p/��%��]t!�E�pp� ������DISC                             1TAPESIMC        PUB             SYS                             MANAGER SYS     �p/��%���=����=�����!����!���XX%��Pdd  ����!SYS             ����/*----------------------------------------------------------------*/            /* Tapesim.c      Keven Miller   12/29/2018  kevenm@3kranger.com  */            /* Convert STD (cmstore 2504) to SIMH tape                        */            /*----------------------------------------------------------------*/            #ifdef   __mpexl                                                                #pragma list off                                                                #endif                                                                                                                                                          #include <stdio.h>   /* printf,fopen,fclose,fread,fwrite,fflush   */                                 /* sprintf,fseek,ftell */                                  #include <string.h>  /* strcpy,strerror,strchr,memset */                        #include <errno.h>   /* errno */                                                #include <stdlib.h>  /* exit */                                                                                                                                 #ifdef WIN32                                                                    #include <windows.h>                                                            #endif                                                                                                                                                          #ifdef __GNUC__                                                                 #include <signal.h>                                                             #endif                                                                                                                                                          #define  proc                                                                   #define  PRGVERS     "1.02"                                                     #define  MPE_CCE     2                                                          #define  MPE_CCG     0                                                          #define  MAXDAT      2048                                                       #define  FCODE_SIM   2508                                                       #define  FCLOE_CMSTR 2504                                                                                                                                       #ifndef  S16                                                                    #define  S16                                                                    typedef short           s16;                                                    typedef unsigned short  u16;                                                    typedef int             s32;                                                    typedef unsigned int    u32;                                                    typedef unsigned char   uc;                                                     #endif                                                                                                                                                          #ifdef __mpexl                                                                  #define  MSG_CONTROLY   'Y'                                                     #else                                                                           #define  MSG_CONTROLY   'C'                                                     #endif                                                                                                                                                          typedef struct {                                                                   s32   prev;                                                                     s32   next;                                                                  } stdptr_t;                                                                                                                                                     /*----------------------------------------------------------------*/                                                                                            int   cy;                                                                                                                                                       #ifdef __mpexl                                                                  #pragma intrinsic CCODE                                                         #pragma intrinsic XCONTRAP                                                      #pragma intrinsic RESETCONTROL                                                  #else                                                                           #define RESETCONTROL()                                                          #define CCODE()  MPE_CCE                                                        #endif                                                                                                                                                          proc void cytrap (int sig)                                                      {                                                                                  ++cy;                                                                           printf ("\r\n<Control-%c>  \n", MSG_CONTROLY);                                  RESETCONTROL ();                                                             }                                                                               /*----------------------------------------------------------------*/                                                                                            proc void cyset (int on)                                                        {                                                                                  int   cc, oldcy;                                                                                                                                                if (on) {                                                                    #ifdef __mpexl                                                                        XCONTRAP ((int) &cytrap, &oldcy);                                         #elif WIN32                                                                           SetConsoleCtrlHandler                                                              ((int(__stdcall *)(unsigned long))&cytrap, TRUE);                      #else                                                                                 signal (SIGINT, &cytrap);                                                 #endif                                                                             } else {                                                                     #ifdef __mpexl                                                                        XCONTRAP (0, &oldcy);                                                     #elif WIN32                                                                           SetConsoleCtrlHandler                                                              ((int(__stdcall *)(unsigned long))&cytrap, FALSE);                     #else                                                                                 signal (SIGINT, SIG_DFL);                                                 #endif                                                                             }                                                                                                                                                               cc = CCODE ();                                                                  if (MPE_CCE == cc)                                                                 printf ("!! Control-%c interrupt enabled.\n", MSG_CONTROLY);                 else if (MPE_CCG == cc)                                                            printf ("!! Control-%c interrupt disabled.\n", MSG_CONTROLY);                cy = 0;                                                                      }                                                                               /*----------------------------------------------------------------*/                                                                                            proc FILE* openfile (char *name, int recmax, int fcode)                         {                                                                                  char  modes [32];                                                               FILE  *R;                                                                                                                                                       if (recmax > 0)                                                                 {                                                                                  strcpy (modes, "wb");                                                           sprintf (&modes [2], " F%d S%d", fcode, recmax);                                printf ("Open %s write\n", name);                                            }                                                                               else                                                                            {                                                                                  strcpy (modes, "rb");                                                           if (recmax < 0)                                                                    printf ("Open %s read\n", name);                                          }                                                                                                                                                               R = fopen (name, modes);                                                        if ( ! R)                                                                       {                                                                                  if (recmax < 0)                                                                    printf ("** fopen %s modes %s err %d %s\n",                                        name, modes, errno, strerror (errno));                                    errno = 0;                                                                   }                                                                               return   R;                                                                  }                                                                               /*----------------------------------------------------------------*/                                                                                            proc int closefile (FILE *filep, char *name)                                    {                                                                                  int   R = 0;                                                                                                                                                    if (filep)                                                                      {                                                                                  printf ("Closing %s\n", name);                                                  if (fclose (filep))                                                             {                                                                                  printf ("** fclose %s err %d %s\n",                                                name, errno, strerror (errno));                                              R = -1;                                                                         errno = 0;                                                                   }                                                                            }                                                                               return   R;                                                                  }                                                                               /*----------------------------------------------------------------*/                                                                                            proc int readptr (FILE *filep, void *buf, int len)                              {                                                                                  int   R;                                                                                                                                                        R = fread (buf, 1, len, filep);                                                 if (R != len)                                                                   {                                                                                  if (errno)                                                                      {                                                                                  printf ("** fread ptr %d != %d err %d %s\n",                                       R, len, errno, strerror (errno));                                            R = -1;                                                                         errno = 0;                                                                   }                                                                         /* Else at EOF */                                                                     else if (R)                                                                     {                                                                                  printf ("!! EOF (len %d)", R);                                                  R = 0;                                                                       }                                                                            }                                                                               return R;                                                                    }                                                                               /*----------------------------------------------------------------*/                                                                                            proc int readdat (FILE *filep, void *buf, int len)                              {                                                                                  int   R;                                                                                                                                                        R = fread (buf, 1, len, filep);                                                 if (R != len)                                                                   {                                                                                  printf ("** fread dat %d != %d err %d %s\n",                                       R, len, errno, strerror (errno));                                            R = -1;                                                                         errno = 0;                                                                   }                                                                               return   R;                                                                  }                                                                               /*----------------------------------------------------------------*/                                                                                            proc int writeptr (FILE *filep, void *buf, int len)                             {                                                                                  int   R;                                                                                                                                                        if (filep)                                                                      {                                                                                  R = fwrite (buf, 1, len, filep);                                                if (R != len)                                                                   {                                                                                  printf ("** fwrite ptr %d != %d err %d %s\n",                                      R, len, errno, strerror (errno));                                            R = -1;                                                                         errno = 0;                                                                   }                                                                            }                                                                               return   R;                                                                  }                                                                               /*----------------------------------------------------------------*/                                                                                            proc int writedat (FILE *filep, void *buf, int len)                             {                                                                                  int   R;                                                                                                                                                        if (filep)                                                                      {                                                                                  R = fwrite (buf, 1, len, filep);                                                if (R != len)                                                                   {                                                                                  printf ("** fwrite dat %d != %d err %d %s\n",                                      R, len, errno, strerror (errno));                                            R = -1;                                                                         errno = 0;                                                                   }                                                                            }                                                                               return   R;                                                                  }                                                                               /*----------------------------------------------------------------*/                                                                                            int test_big_endian (void)                                                      {                                                                                  union {                                                                            int   i;                                                                        uc    c [1];                                                                 } endian;                                                                                                                                                       endian.i = 1;                                                                   if (endian.c [0])                                                                  endian.i = 0;                                                                return endian.i;                                                             }                                                                               /*----------------------------------------------------------------*/                                                                                            int make_endian16 (s16 s)                                                       {                                                                                  union {                                                                            s16   i;                                                                        uc    c [1];                                                                 } endian;                                                                       uc c;                                                                                                                                                           endian.i = s;                                                                   c = endian.c [0];                                                               endian.c [0] = endian.c [1];                                                    endian.c [1] = c;                                                                                                                                               return   endian.i;                                                           }                                                                               /*----------------------------------------------------------------*/                                                                                            int make_endian32 (s32 s)                                                       {                                                                                  union {                                                                            s32   i;                                                                        uc    c [1];                                                                 } endian;                                                                       uc c;                                                                                                                                                           endian.i = s;                                                                   c = endian.c [0];                                                               endian.c [0] = endian.c [3];                                                    endian.c [3] = c;                                                               c = endian.c [1];                                                               endian.c [1] = endian.c [2];                                                    endian.c [2] = c;                                                                                                                                               return   endian.i;                                                           }                                                                               /*----------------------------------------------------------------*/                                                                                            proc long filesize (FILE *filep)                                                {                                                                                  long  R = -1L;                                                                                                                                               /* Goto file END */                                                                if (fseek (filep, 0, SEEK_END))                                                 {                                                                                  printf ("** fseek EOF err %d %s\n",                                                errno, strerror (errno));                                                    errno = 0;                                                                   }                                                                                                                                                            /* Get file size */                                                                else if (( R = ftell (filep)) < 0)                                              {                                                                                  printf ("** ftell EOF err %d %s\n",                                                errno, strerror (errno));                                                    errno = 0;                                                                   }                                                                                                                                                            /* Return to file beginning */                                                     else if (fseek (filep, 0, SEEK_SET))                                            {                                                                                  printf ("** fseek BOF (%ld) err %d %s\n",                                          R, errno, strerror (errno));                                                 R = -1L;                                                                        errno = 0;                                                                   }                                                                               return   R;                                                                  }                                                                               /*----------------------------------------------------------------*/                                                                                            proc int test_structs (void)                                                    {                                                                                  int   R = 0, x;                                                                                                                                                 x = sizeof (stdptr_t);                                                          if (x != 8)                                                                     {                                                                                  printf ("** stdptr_t size=%d != 8\n", x);                                       R = -1;                                                                      }                                                                               return   R;                                                                  }                                                                               /*----------------------------------------------------------------*/                                                                                            proc int move_data (FILE *fromfilep, FILE *tofilep, int size)                   {                                                                                  int   R = 0;                                                                    int   readlen, remainsize, readactual;                                          char  datbuf [MAXDAT];                                                                                                                                          while (R < size)                                                                {                                                                                  readlen = sizeof (datbuf);                                                      remainsize = size - R;                                                          if (readlen > remainsize)                                                          readlen = remainsize;                                                        readactual = readdat (fromfilep, datbuf, readlen);                              if (readactual != readlen)                                                      {                                                                                  R = -1;                                                                         break;                                                                       }                                                                                                                                                               R += readactual;                                                                                                                                                if (writedat (tofilep, datbuf, readlen) < 0)                                    {                                                                                  R = -2;                                                                         break;                                                                       }                                                                            }                                                                               return   R;                                                                  }                                                                               /*------------------------------r`K�p/��%��]t!�E�pK�K�������----------------------------------*/                                                                                            proc int main (int ac, char *av[])                                              {                                                                                  int   x, stat, debug, nflg;                                                     int   blen, rlen;                                                               int   big_endian;                                                               long  abspos, size;                                                             char  *np, *fromname, *toname;                                                  FILE  *fromfilep, *tofilep;                                                     stdptr_t stdptr, simptr;                                                                                                                                     /* Get program name (with no path or MPE group.acct)*/                             np = strchr (av[0], '.');                                                       if (np) *np = 0;                                                                printf ("%s  %s  Convert STD file to SIMH\n",                                      av[0], PRGVERS );                                                                                                                                            if (test_structs())                                                                exit (1);                                                                                                                                                 /* Get runtime options */                                                          fromname = toname = NULL;                                                       debug = 0;                                                                      for (x = 1; x < ac; ++x)                                                        {                                                                                  np = av [x];                                                                    if (*np == '-')                                                                 {                                                                                  ++np;                                                                           while (*np)                                                                     {                                                                                  switch (*np++)                                                                  {                                                                               case 'd':   debug = 1;  break;                                                  }                                                                            }                                                                               continue;                                                                    }                                                                                                                                                               if (!fromname)                                                                     fromname = np;                                                               else if (!toname)                                                                  toname = np;                                                              }                                                                                                                                                               if (!fromname)                                                                  {                                                                                  printf ("Usage: %s [-d] fromfile [tofile]\n", av[0]);                           printf ("   -d  debug - show pointers\n");                                      exit (1);                                                                    }                                                                                                                                                            /* Clear errno */                                                                  if (errno)                                                                      {                                                                                  printf ("!! Clear errno %d %s\n", errno, strerror (errno));                     errno = 0;                                                                   }                                                                                                                                                               stat = 0;                                                                       tofilep = fromfilep = NULL;                                                     do                                                                              {                                                                                  char  buf [256];                                                                char  stdv [] = "STORE/RESTORE LABEL-HP/3000.";                                                                                                           /* Open fromfile */                                                                   fromfilep = openfile (fromname, -1, 0);                                         if (!fromfilep)                                                                 {                                                                                  stat = 21;                                                                      break;                                                                       }                                                                               size = filesize (fromfilep);                                                    if (size < 0)                                                                   {                                                                                  stat = 22;                                                                      break;                                                                       }                                                                                                                                                         /* Validate CM Store Tape */                                                          stdptr.next = 0;                                                                while (stdptr.next <= 0)                                                        {                                                                                  rlen = readptr (fromfilep, &stdptr, sizeof (stdptr));                           if (rlen <= 0)                                                                  {                                                                                  if (rlen < 0)                                                                      stat = 23;                                                                   break;                                                                       }                                                                            }                                                                               rlen = readdat (fromfilep, buf, sizeof (buf));                                  if (rlen != sizeof (buf))                                                       {                                                                                  stat = 24;                                                                      break;                                                                       }                                                                               rlen = strlen (stdv);                                                           if (strncmp (buf, stdv, rlen))                                                  {                                                                                  printf ("** Not a CM Store: \"%.*s\"\n", rlen, buf);                            printf ("--       CM Store= \"%s\"\n", stdv);                                   stat = 2;                                                                       break;                                                                       }                                                                                                                                                               rewind (fromfilep);                                                                                                                                       /* Open tofile: check if it exists */                                                 if (toname)                                                                     {                                                                                  tofilep = openfile (toname, 0, 0);                                              if (tofilep)                                                                    {                                                                                  printf ("** File %s exists; no conversion done.\n", toname);                    stat = 30;                                                                      break;                                                                       }                                                                                                                                                      /* Open new tofile; add extra space for ptr expansion */                                 x = ((size + 255) / 256) + 1000;                                                tofilep = openfile (toname, x, FCODE_SIM);                                      if (! tofilep)                                                                  {                                                                                  stat = 31;                                                                      break;                                                                       }                                                                            }                                                                                                                                                               cyset (1);                                                                      big_endian = test_big_endian ();                                                printf ("!! Endian %s\n", ( big_endian ? "Big" : "Little" ));                                                                                                   abspos = 0;                                                                                                                                                     printf ("Size %8.8lX    (%ld records)\n", size, size / 256);                                                                                                    while (!stat && !cy)                                                            {                                                                                  nflg = 0;                                                                       if (!debug)                                                                        printf ("\r");                                                               printf ("Posn %8.8lX  ", abspos);                                               fflush (stdout);                                                                                                                                                rlen = readptr (fromfilep, &stdptr, sizeof (stdptr));                           if (rlen <= 0)                                                                  {                                                                                  if (rlen < 0)                                                                      stat = 23;                                                                   break;                                                                       }                                                                               abspos += rlen;                                                                                                                                                 if (debug)                                                                      {                                                                                  printf ("%8.8X %8.8X ", stdptr.prev, stdptr.next);                              nflg = 1;                                                                    }                                                                                                                                                      /* SIMH tape */                                                                          {                                                                                  if (stdptr.next < 0)                                                               simptr.next = 0;     /* EOF flag */                                          else if (stdptr.next > 0)                                                          simptr.next = stdptr.next; /* Data flag */                                   else                                                                               simptr.next = -1;    /* EOT flag */                                                                                                                          if (stdptr.next || stdptr.prev)                                                 {                                                                                  simptr.next = make_endian32 (simptr.next);                                                                                                                      if (debug)                                                                      {                                                                                  printf ("  SIM: %8.8X", simptr.next);                                           nflg = 1;                                                                    }                                                                               if (writeptr (tofilep, &simptr.next,                                               sizeof (simptr.next)) < 0)                                                   {                                                                                  stat = 33;                                                                      break;                                                                       }                                                                            }                                                                               else                                                                            {                                                                                  if (debug)                                                                      {                                                                                  printf ("  STD-EOT");                                                           nflg = 1;                                                                    }                                                                            }                                                                            }                                                                                                                                                      /* Data record */                                                                        if (stdptr.next > 0)                                                            {                                                                                  rlen = move_data (fromfilep, tofilep, stdptr.next);                             if (rlen < 0)                                                                   {                                                                                  stat = (rlen == -1 ? 24 : 34);                                                  break;                                                                       }                                                                               abspos += rlen;                                                              }                                                                                                                                                      /* SIMH tape */                                                                          if (stdptr.next > 0)                                                            {                                                                                  if (debug)                                                                      {                                                                                  printf ("  %8.8X", simptr.next);                                                nflg = 1;                                                                    }                                                                               if (writeptr (tofilep, &simptr.next, sizeof (simptr.next)) < 0)                 {                                                                                  stat = 35;                                                                      break;                                                                       }                                                                            }                                                                                                                                                               if (nflg)                                                                          printf ("\n");                                                            } /* while read */                                                              printf ("\n");                                                               } while (0);                                                                                                                                                    if (!stat && cy)                                                                   stat = 1;                                                                                                                                                 /* Close tofile */                                                                 closefile (tofilep, toname);                                                                                                                                 /* Close fromfile */                                                               closefile (fromfilep, fromname);                                                                                                                                return   stat;                                                               }                                                                               /*----------------------------------------------------------------*/            K��������������������������STORE/RESTORE-HP/3000.MPEXL  
	�I0�������B5152AA  C750915/06/060000�������������������������