Cœ7$ ?BOOT-U-No boot on volume €ß‹t˙ý€”v˙ú€˙đ˙˙˙SŽBA-AU89J-BC UP RX02 - 2 DECRT11A „Ä…e Ԁ€„ăM` ü„ N` ü„›'<„›'–,%-„U(ţvN„6&kQ_„ßfó<„kŘ_ţv™„*y}ţv:„üv\„”MLyü„Ë\X<„\X–,%QŐ9gô&  RT-11 UPDATE RELEASE NOTES May 1987 This document summarizes information specific to RT-11 Update 2/87, which supersedes RT-11 Update 1/87. Operating System: RT-11 V5.4B Software: RT-11 Update 2/87 1 First Printing, December 1983 Updated, June 1984 Updated, October 1984 Updated, April 1985 Updated, June 1985 Updated, October 1985 Updated, March 1986 Updated, August 1986 Updated, January 1987 Updated, May 1987 The information in this document is subject to change without notice and should not be construed as a commitment by Digital Equipment Corporation. Digital Equipment Corporation assumes no responsibility for any errors that may appear in this document. The software described in this document is furnished under a license and may be used or copied only in accordance with the terms of such license. No responsibility is assumed for the use or reliability of software on equipment that is not supplied by Digital Equipment Corporation or its affiliated companies. Copyright (c) 1983, 1984, 1985, 1986, 1987 by Digital Equipment Corporation. All Rights Reserved. The following are trademarks of Digital Equipment Corporation. CTS-300 MASSBUS RT DEC MicroPDP-11 UNIBUS DECmate PDP VAX DECnet P/OS VMS DECsystem-10 Professional VT DECSYSTEM-20 Q-Bus Work Processor DECUS Rainbow ------------- DECwriter RSTS |d|i|g|i|t|a|l| DIBOL RSX ------------- 2 CONTENTS PREFACE . . . . . . . . . . . . . . . . . . . . . . 5 CHAPTER 1 RT-11 UPDATE 2/87 PRODUCTS UPDATED BY UPDATE 2/87 . . . . . . . . . 1-1 NUMBER OF VOLUMES IN UPDATE 2/87 . . . . . . . . . 1-2 SPACE REQUIREMENTS FOR UPDATING FROM LOGICAL DISKS 1-2 KIT MAPS . . . . . . . . . . . . . . . . . . . . . 1-2 RL01, RL02 or Magtape . . . . . . . . . . . . . 1-3 RX01 -1 . . . . . . . . . . . . . . . . . . . . 1-5 RX01 -2 . . . . . . . . . . . . . . . . . . . . 1-5 RX01 -3 . . . . . . . . . . . . . . . . . . . . 1-5 RX01 -4 . . . . . . . . . . . . . . . . . . . . 1-6 RX01 -5 . . . . . . . . . . . . . . . . . . . . 1-6 RX02 -1 or RX50 -1 . . . . . . . . . . . . . . . 1-6 RX02 -2 or RX50 -2 . . . . . . . . . . . . . . . 1-7 RX02 -3 or RX50 -3 . . . . . . . . . . . . . . . 1-7 CHAPTER 2 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES CORRECTIONS AND CHANGES . . . . . . . . . . . . . 2-1 Corrected Problems . . . . . . . . . . . . . . . 2-1 New Features . . . . . . . . . . . . . . . . . . 2-3 Restrictions . . . . . . . . . . . . . . . . . . 2-6 Documentation Corrections . . . . . . . . . . . 2-6 RT-11 System User's Guide . . . . . . . . . . 2-6 RT-11 Installation Guide . . . . . . . . . . . 2-7 RT-11 Software Support Manual . . . . . . . . 2-7 RT-11 Programmer's Reference Manual . . . . . 2-7 MAKING BACKUP COPIES OF RT-11 BEFORE RUNNING UPDATE . . . . . . . . . . . . . . . . . . . . . . 2-9 Distribution and Backup Media Are the Same Type 2-9 Distribution and Backup Media Are Different Types . . . . . . . . . . . . . . . . . . . . 2-10 Volume Identification Numbers . . . . . . . . 2-11 POSTUPDATE PROCEDURES . . . . . . . . . . . . . 2-11 CHAPTER 3 BASIC-PLUS/RT-11 AND BASIC-PLUS/RT-11 ON THE PRO UPDATE RELEASE NOTES CORRECTIONS AND CHANGES . . . . . . . . . . . . . 3-1 INPUT Statements . . . . . . . . . . . . . . . . 3-1 Matrix Inversion and DET Built-in . . . . . . . 3-2 Restrictions . . . . . . . . . . . . . . . . . . 3-2 Documentation . . . . . . . . . . . . . . . . . 3-2 POSTUPDATE PROCEDURE . . . . . . . . . . . . . . . 3-2 3 CHAPTER 4 FMS-11/RT-11 UPDATE RELEASE NOTES CORRECTIONS AND CHANGES . . . . . . . . . . . . . 4-1 Utilities . . . . . . . . . . . . . . . . . . . 4-1 System Generation . . . . . . . . . . . . . . . 4-1 POSTUPDATE PROCEDURE . . . . . . . . . . . . . . . 4-2 CHAPTER 5 CTS-300 UPDATE RELEASE NOTES CORRECTIONS AND CHANGES . . . . . . . . . . . . . 5-1 SORT.SAV and SORT.TSD . . . . . . . . . . . . . 5-1 LPTSPL.TSD and the Printer Satellites . . . . . 5-2 SORT Restriction . . . . . . . . . . . . . . . . 5-2 POSTUPDATE PROCEDURES . . . . . . . . . . . . . . 5-2 CHAPTER 6 CTS-300 ON THE PRO UPDATE RELEASE NOTES CORRECTIONS AND CHANGES . . . . . . . . . . . . . 6-1 Compiler . . . . . . . . . . . . . . . . . . . . 6-1 CHAPTER 7 DECNET-RT UPDATE RELEASE NOTES CORRECTIONS AND CHANGES . . . . . . . . . . . . . 7-1 Control Procedures . . . . . . . . . . . . . . . 7-1 Connection Requests . . . . . . . . . . . . . . 7-1 Initialization Messages . . . . . . . . . . . . 7-1 Restrictions . . . . . . . . . . . . . . . . . . 7-2 POSTUPDATE PROCEDURE . . . . . . . . . . . . . . . 7-2 CHAPTER 8 FORTRAN IV/RT-11 AND FORTRAN IV/RT-11 ON THE PRO UPDATE RELEASE NOTES CORRECTIONS AND CHANGES . . . . . . . . . . . . . 8-1 New OTS Library Modules . . . . . . . . . . . . 8-1 PREUPDATE PROCEDURE . . . . . . . . . . . . . . . 8-1 New Random-number Sequences . . . . . . . . . . 8-1 POSTUPDATE PROCEDURES . . . . . . . . . . . . . . 8-2 CHAPTER 9 FORTRAN-77/RT-11 UPDATE RELEASE NOTES CORRECTIONS AND CHANGES . . . . . . . . . . . . . 9-1 New OTS Library . . . . . . . . . . . . . . . . 9-1 New Modules . . . . . . . . . . . . . . . . . . 9-2 Restriction . . . . . . . . . . . . . . . . . . 9-2 Documentation Corrections . . . . . . . . . . . 9-2 POSTUPDATE PROCEDURE . . . . . . . . . . . . . . . 9-2 4 PREFACE This document provides information specific to RT-11 Update 2/87. Chapter 1 lists the contents of Update 2/87, gives the space requirements for updating from logical disks, and provides kit maps for each type of distribution medium. Chapters 2 through 9 describe the problems resolved by Update 2/87 and any current restrictions or problems for: RT-11 and RT-11 on the PRO (Chapter 2) BASIC-PLUS/RT-11 and BASIC-PLUS/RT-11 on the PRO (Chapter 3) FMS-11/RT-11 (Chapter 4) CTS-300 (Chapter 5) CTS-300 on the PRO (Chapter 6) DECnet-RT (Chapter 7) FORTRAN IV/RT-11 and FORTRAN IV/RT-11 on the PRO (Chapter 8) FORTRAN-77/RT-11 (Chapter 9) FORTRAN IV/RT-11, FORTRAN IV/RT-11 on the PRO and FORTRAN-77/RT-11 are new to the Update kit. 5 CHAPTER 1 RT-11 UPDATE 2/87 This chapter contains: A list of software products updated by Update 2/87 The number of volumes Update 2/87 occupies on each type of distribution medium Space requirements for updating from logical disks Kit maps for each type of distribution medium Presently, the Update software checks volume identification numbers only for RT-11 distribution kits. The Update software does not check those numbers for layered-product distribution kits. PRODUCTS UPDATED BY UPDATE 2/87 Update 2/87 contains updated modules for the following software products. BASIC-PLUS/RT-11 V3.0 BASIC-PLUS/RT-11 on the PRO V3.0 CTS-300 V8.2 CTS-300 on the PRO V1.0 DECnet-RT V2.1 FMS-11/RT-11 V2.1 FORTRAN IV/RT-11 V2.8 FORTRAN IV/RT-11 on the PRO V2.8 FORTRAN-77/RT-11 V5.0A RT-11 V5.4B RT-11 on the PRO V5.4B The following layered products have no new updated modules on Update 2/87. You do not have to update these products if you have already run the applicable Update kit. 1-1 RT-11 UPDATE 2/87 ______ ___ _______ _______ Update_Kit Layered_Product___ H CTS-300 on the PRO FMS-11/RT-11 1/87 CTS-300 DECnet-RT NUMBER OF VOLUMES IN UPDATE 2/87 The following table indicates how many volumes you will need to make a backup copy of Update 2/87 for each type of distribution medium. No. of ______ _______ Medium_______ Volumes RL01 disk 1 RL02 disk 1 RX01 diskette 5 RX02 diskette 3 RX50 diskette 3 SPACE REQUIREMENTS FOR UPDATING FROM LOGICAL DISKS Updating from TK50 magtape requires two logical disks created by Update (one for the Update kit, the other for the product kit). Those logical disks will require the following minimum number of contiguous blocks of free space on your hard disk. Blocks ___ ________ Kit_____________ Required CTS-300 5300 FORTRAN IV/RT-11 1600 Update 2500 Updating from RX50 diskettes in one RX33 diskette drive requires only one logical disk created by Update (for the Update kit). That logical disk will require at least 2500 contiguous blocks of free space on your hard disk. KIT MAPS This section contains kit maps for each type of distribution medium. The kit maps are helpful when you back up your Update kit. 1-2 RT-11 UPDATE 2/87 As you make a backup copy of the Update kit, label each new volume as the kit maps are labeled. Then, check the directory of the newly created Update kit against the kit maps to make sure all files transferred successfully and all files reside on the proper volumes in a multivolume Update kit. RL01, RL02 or Magtape SWAP .SYS 27P 04-May-87 RT11UP.SYS 93P 04-May-87 UPDATE.COM 53P 04-May-87 UPSUBS.COM 16P 04-May-87 UPDATE.TXT 127P 04-May-87 RT11 .DAT 4P 04-May-87 DUP .SAV 49P 04-May-87 LD .SYS 8P 04-May-87 IND .SAV 58P 04-May-87 DL .SYS 4P 04-May-87 DM .SYS 5P 04-May-87 DX .SYS 4P 04-May-87 DY .SYS 4P 04-May-87 DU .SYS 8P 04-May-87 DZ .SYS 4P 04-May-87 MT .SYS 9P 04-May-87 DLX .SYS 5P 04-May-87 RK .SYS 3P 04-May-87 MM .SYS 9P 04-May-87 DMX .SYS 5P 04-May-87 BUP .SAV 57P 04-May-87 DXX .SYS 4P 04-May-87 DYX .SYS 4P 04-May-87 DZX .SYS 4P 04-May-87 MUX .SYS 16P 04-May-87 RKX .SYS 3P 04-May-87 MMX .SYS 10P 04-May-87 MTX .SYS 9P 04-May-87 MU .SYS 13P 04-May-87 DX .MAC 21P 04-May-87 DM .MAC 28P 04-May-87 TM .MAC 27P 04-May-87 RT11AI.SYS 81P 04-May-87 RT11PI.SYS 95P 04-May-87 MUB .COM 15P 04-May-87 RT11BL.SYS 78P 04-May-87 RT11SJ.SYS 79P 04-May-87 RT11FB.SYS 93P 04-May-87 RT11XM.SYS 107P 04-May-87 TJ .MAC 32P 04-May-87 TU .MAC 40P 04-May-87 STARTA.COM 48P 04-May-87 SYSMAC.SML 66P 04-May-87 FORMAT.SAV 27P 04-May-87 LINK .SAV 49P 04-May-87 LIBR .SAV 24P 04-May-87 MDUP .AI 56P 04-May-87 MDUP .MM 56P 04-May-87 MDUP .MS 56P 04-May-87 MDUP .MT 56P 04-May-87 MDUP .MU 56P 04-May-87 DL .MAC 39P 04-May-87 DY .MAC 23P 04-May-87 UM .MAC 71P 04-May-87 DZ .MAC 18P 04-May-87 RK .MAC 13P 04-May-87 SYSGEN.COM 233P 04-May-87 XMSUBS.MAC 43P 04-May-87 SRCCOM.SAV 26P 04-May-87 RTBL .MAP 22P 04-May-87 RTSJ .MAP 22P 04-May-87 RTFB .MAP 30P 04-May-87 RTXM .MAP 33P 04-May-87 V5NOTE.TXT 247P 04-May-87 CUSTOM.TXT 11P 04-May-87 LDX .SYS 8P 04-May-87 SPOOL .REL 11P 04-May-87 MDUP .SAV 21P 04-May-87 GIDIS .SAV 72P 04-May-87 V5USER.TXT 2P 04-May-87 BSTRAP.MAC 70P 04-May-87 USR .MAC 74P 04-May-87 SYSLIB.OBJ 47P 04-May-87 RMONFB.MAC 151P 04-May-87 CT .SYS 6P 04-May-87 LP .SYS 2P 04-May-87 LS .SYS 5P 04-May-87 SL .SYS 17P 04-May-87 SLMIN .SYS 12P 04-May-87 XC .SYS 4P 04-May-87 LPX .SYS 2P 04-May-87 LSX .SYS 5P 04-May-87 SLX .SYS 19P 04-May-87 XCX .SYS 4P 04-May-87 1-3 RT-11 UPDATE 2/87 XLX .SYS 4P 04-May-87 INDEX .SAV 11P 04-May-87 HELP .SAV 140P 04-May-87 MSCPCK.SAV 3P 04-May-87 PIP .SAV 30P 04-May-87 DIR .SAV 19P 04-May-87 XL .SYS 4P 04-May-87 RESORC.SAV 25P 04-May-87 SETUP .SAV 41P 04-May-87 SLP .SAV 13P 04-May-87 VTCOM .SAV 24P 04-May-87 BA .MAC 21P 04-May-87 LP .MAC 14P 04-May-87 LS .MAC 36P 04-May-87 XC .MAC 1P 04-May-87 XL .MAC 31P 04-May-87 KMOVLY.MAC 218P 04-May-87 RMONSJ.MAC 71P 04-May-87 INDEX .IDX 7P 04-May-87 INDEX .IMG 434P 04-May-87 BL .ANS 10P 04-May-87 SJFB .ANS 10P 04-May-87 XM .ANS 10P 04-May-87 MSB .COM 15P 04-May-87 MTB .COM 15P 04-May-87 RTMON .REL 8P 04-May-87 VTCOM .REL 27P 04-May-87 MTTINT.MAC 46P 04-May-87 MTTEMT.MAC 18P 04-May-87 KMON .MAC 122P 04-May-87 BASIC .DAT 1P 04-May-87 RCXE .OBJ 4P 04-May-87 RCXN .OBJ 4P 04-May-87 RTSE .OBJ 12P 04-May-87 RTSN .OBJ 12P 04-May-87 SQXE .OBJ 8P 04-May-87 SQXN .OBJ 8P 04-May-87 MXXN .OBJ 11P 04-May-87 MXXE .OBJ 11P 04-May-87 PRXE2 .OBJ 8P 04-May-87 PRXU4 .OBJ 8P 04-May-87 PRXU2 .OBJ 8P 04-May-87 PRXN2 .OBJ 8P 04-May-87 PRXN4 .OBJ 8P 04-May-87 PRXE4 .OBJ 8P 04-May-87 PRXS2 .OBJ 8P 04-May-87 FMS .DAT 1P 04-May-87 FMSGEN.COM 45P 04-May-87 FRED .SAV 78P 04-May-87 FDV .MAC 95P 04-May-87 PROCTS.DAT 1P 04-May-87 CTS .DAT 2P 04-May-87 DICOMP.SAV 153P 04-May-87 SORTA .OBJ 13P 04-May-87 SRT11A.OBJ 13P 04-May-87 IO .OBJ 22P 04-May-87 DERROR.OBJ 9P 04-May-87 DIO .OBJ 19P 04-May-87 KERROR.OBJ 10P 04-May-87 SORTR .OBJ 10P 04-May-87 SRT11R.OBJ 10P 04-May-87 RTIO .OBJ 20P 04-May-87 SDIRT .OBJ 20P 04-May-87 DTO .OBJ 13P 04-May-87 KDIO .OBJ 17P 04-May-87 SORT .SAV 58P 04-May-87 SORT .TSD 41P 04-May-87 LPSPL9.DBL 19P 04-May-87 LPTSPL.DBL 25P 04-May-87 SAT .DBL 27P 04-May-87 LPSAT .TSD 7P 04-May-87 LQSAT .TSD 7P 04-May-87 LRSAT .TSD 7P 04-May-87 LSSAT .TSD 7P 04-May-87 LPTSPL.TSD 26P 04-May-87 DECNET.DAT 1P 04-May-87 NETGEN.COM 81P 04-May-87 NETPLN.COM 80P 04-May-87 CTBGEN.COM 65P 04-May-87 CEXGEN.COM 15P 04-May-87 DDMGEN.COM 7P 04-May-87 LLCGEN.COM 30P 04-May-87 UNSGEN.COM 49P 04-May-87 NETINS.COM 68P 04-May-87 NASUB .OBJ 3P 04-May-87 NASUBC.OBJ 4P 04-May-87 NATNE .OBJ 2P 04-May-87 NATNEC.OBJ 2P 04-May-87 FORTRN.DAT 1P 04-May-87 PROFOR.DAT 1P 04-May-87 OTSCOM.OBJ 97P 04-May-87 F77 .DAT 1P 04-May-87 F77OTS.OBJ 135P 04-May-87 VIRTXM.OBJ 2P 04-May-87 SYSUPD.OBJ 1P 04-May-87 CHAR .MAC 6P 04-May-87 VIRDSK.MAC 20P 04-May-87 OTID .OBJ 3P 04-May-87 OTSHK1.MAC 6P 04-May-87 183 Files, 6178 Blocks 1-4 RT-11 UPDATE 2/87 RX01 -1 SWAP .SYS 27P 04-May-87 RT11UP.SYS 93P 04-May-87 DL .SYS 4P 04-May-87 DM .SYS 5P 04-May-87 DU .SYS 8P 04-May-87 DY .SYS 4P 04-May-87 DX .SYS 4P 04-May-87 PD .SYS 3P 04-May-87 LD .SYS 8P 04-May-87 VM .SYS 3P 04-May-87 DZ .SYS 4P 04-May-87 IND .SAV 58P 04-May-87 DUP .SAV 49P 04-May-87 PIP .SAV 30P 04-May-87 PIPA .SAV 31P 04-May-87 CONFIG.SAV 8P 04-May-87 UPDATE.COM 53P 04-May-87 UPSUBS.COM 16P 04-May-87 BASIC .DAT 1P 04-May-87 RCXE .OBJ 4P 04-May-87 RCXN .OBJ 4P 04-May-87 RTSE .OBJ 12P 04-May-87 RTSN .OBJ 12P 04-May-87 SQXE .OBJ 8P 04-May-87 SQXN .OBJ 8P 04-May-87 MXXN .OBJ 11P 04-May-87 MXXE .OBJ 11P 04-May-87 27 Files, 479 Blocks RX01 -2 UPDATE.TXT 127P 04-May-87 PRXE2 .OBJ 8P 04-May-87 PRXU4 .OBJ 8P 04-May-87 PRXU2 .OBJ 8P 04-May-87 CTS .DAT 2P 04-May-87 SORTA .OBJ 13P 04-May-87 SRT11A.OBJ 13P 04-May-87 IO .OBJ 22P 04-May-87 DERROR.OBJ 9P 04-May-87 DIO .OBJ 19P 04-May-87 KERROR.OBJ 10P 04-May-87 SORTR .OBJ 10P 04-May-87 SRT11R.OBJ 10P 04-May-87 RTIO .OBJ 20P 04-May-87 SDIRT .OBJ 20P 04-May-87 DTO .OBJ 13P 04-May-87 KDIO .OBJ 17P 04-May-87 SORT .TSD 41P 04-May-87 LPSPL9.DBL 19P 04-May-87 LPTSPL.DBL 25P 04-May-87 LPSAT .TSD 7P 04-May-87 LQSAT .TSD 7P 04-May-87 LRSAT .TSD 7P 04-May-87 LSSAT .TSD 7P 04-May-87 FMS .DAT 1P 04-May-87 25 Files, 443 Blocks RX01 -3 FMSGEN.COM 45P 04-May-87 FRED .SAV 78P 04-May-87 FDV .MAC 95P 04-May-87 PROCTS.DAT 1P 04-May-87 DICOMP.SAV 153P 04-May-87 SORT .SAV 58P 04-May-87 SAT .DBL 27P 04-May-87 LPTSPL.TSD 26P 04-May-87 DECNET.DAT 1P 04-May-87 9 Files, 484 Blocks 1-5 RT-11 UPDATE 2/87 RX01 -4 NETGEN.COM 81P 04-May-87 NETPLN.COM 80P 04-May-87 CTBGEN.COM 65P 04-May-87 CEXGEN.COM 15P 04-May-87 DDMGEN.COM 7P 04-May-87 LLCGEN.COM 30P 04-May-87 UNSGEN.COM 49P 04-May-87 NETINS.COM 68P 04-May-87 NASUB .OBJ 3P 04-May-87 NASUBC.OBJ 4P 04-May-87 NATNE .OBJ 2P 04-May-87 NATNEC.OBJ 2P 04-May-87 12 Files, 406 Blocks RX01 -5 FORTRN.DAT 1P 04-May-87 PROFOR.DAT 1P 04-May-87 OTSCOM.OBJ 97P 04-May-87 PRXN2 .OBJ 8P 04-May-87 PRXN4 .OBJ 8P 04-May-87 PRXE4 .OBJ 8P 04-May-87 PRXS2 .OBJ 8P 04-May-87 F77 .DAT 1P 04-May-87 F77OTS.OBJ 135P 04-May-87 VIRTXM.OBJ 2P 04-May-87 SYSUPD.OBJ 1P 04-May-87 CHAR .MAC 6P 04-May-87 VIRDSK.MAC 20P 04-May-87 OTID .OBJ 3P 04-May-87 OTSHK1.MAC 6P 04-May-87 15 Files, 305 Blocks RX02 -1 or RX50 -1 SWAP .SYS 27P 04-May-87 RT11UP.SYS 93P 04-May-87 DL .SYS 4P 04-May-87 DM .SYS 5P 04-May-87 DU .SYS 8P 04-May-87 DY .SYS 4P 04-May-87 DX .SYS 4P 04-May-87 PD .SYS 3P 04-May-87 LD .SYS 8P 04-May-87 VM .SYS 3P 04-May-87 DZ .SYS 4P 04-May-87 PI .SYS 60P 04-May-87 IND .SAV 58P 04-May-87 DUP .SAV 49P 04-May-87 PIP .SAV 30P 04-May-87 PIPA .SAV 31P 04-May-87 CONFIG.SAV 8P 04-May-87 UPDATE.COM 53P 04-May-87 UPSUBS.COM 16P 04-May-87 BASIC .DAT 1P 04-May-87 RCXE .OBJ 4P 04-May-87 RCXN .OBJ 4P 04-May-87 RTSE .OBJ 12P 04-May-87 RTSN .OBJ 12P 04-May-87 SQXE .OBJ 8P 04-May-87 SQXN .OBJ 8P 04-May-87 MXXN .OBJ 11P 04-May-87 MXXE .OBJ 11P 04-May-87 PRXE2 .OBJ 8P 04-May-87 PRXU4 .OBJ 8P 04-May-87 PRXU2 .OBJ 8P 04-May-87 CTS .DAT 2P 04-May-87 SORTA .OBJ 13P 04-May-87 SRT11A.OBJ 13P 04-May-87 IO .OBJ 22P 04-May-87 DERROR.OBJ 9P 04-May-87 DIO .OBJ 19P 04-May-87 KERROR.OBJ 10P 04-May-87 SORTR .OBJ 10P 04-May-87 SRT11R.OBJ 10P 04-May-87 RTIO .OBJ 20P 04-May-87 DTO .OBJ 13P 04-May-87 KDIO .OBJ 17P 04-May-87 LPSPL9.DBL 19P 04-May-87 LPTSPL.DBL 25P 04-May-87 LPSAT .TSD 7P 04-May-87 LQSAT .TSD 7P 04-May-87 1-6 RT-11 UPDATE 2/87 47 Files, 779 Blocks RX02 -2 or RX50 -2 UPDATE.TXT 127P 04-May-87 LRSAT .TSD 7P 04-May-87 LSSAT .TSD 7P 04-May-87 FMS .DAT 1P 04-May-87 FMSGEN.COM 45P 04-May-87 FRED .SAV 78P 04-May-87 FDV .MAC 95P 04-May-87 PROCTS.DAT 1P 04-May-87 DICOMP.SAV 153P 04-May-87 SORT .SAV 58P 04-May-87 SAT .DBL 27P 04-May-87 LPTSPL.TSD 26P 04-May-87 DECNET.DAT 1P 04-May-87 NETGEN.COM 81P 04-May-87 14 Files, 707 Blocks RX02 -3 or RX50 -3 NETPLN.COM 80P 04-May-87 CTBGEN.COM 65P 04-May-87 CEXGEN.COM 15P 04-May-87 DDMGEN.COM 7P 04-May-87 LLCGEN.COM 30P 04-May-87 UNSGEN.COM 49P 04-May-87 NETINS.COM 68P 04-May-87 NASUB .OBJ 3P 04-May-87 NASUBC.OBJ 4P 04-May-87 NATNE .OBJ 2P 04-May-87 NATNEC.OBJ 2P 04-May-87 FORTRN.DAT 1P 04-May-87 PROFOR.DAT 1P 04-May-87 OTSCOM.OBJ 97P 04-May-87 PRXN2 .OBJ 8P 04-May-87 PRXN4 .OBJ 8P 04-May-87 PRXE4 .OBJ 8P 04-May-87 PRXS2 .OBJ 8P 04-May-87 SDIRT .OBJ 20P 04-May-87 SORT .TSD 41P 04-May-87 F77 .DAT 1P 04-May-87 F77OTS.OBJ 135P 04-May-87 VIRTXM.OBJ 2P 04-May-87 SYSUPD.OBJ 1P 04-May-87 CHAR .MAC 6P 04-May-87 VIRDSK.MAC 20P 04-May-87 OTID .OBJ 3P 04-May-87 OTSHK1.MAC 6P 04-May-87 28 Files, 691 Blocks 1-7 CHAPTER 2 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES This chapter describes: Corrections to existing software problems and features that have been changed by Update modules for RT-11 and RT-11 on the PRO Making backup copies of RT-11 before running Update The postupdate procedure CORRECTIONS AND CHANGES If you want more information on these corrections and changes, after running the Update procedure read the RT-11 on-line release notes in file V5NOTE.TXT. You can find the location of that file by examining the appropriate kit map list in Chapter 1. Corrected Problems o When running under the SJ monitor, you could not chain to a program, using the .CHAIN request, when the handler for the device containing that program was not loaded. The .CHAIN programmed request now works under the SJ monitor as documented. o BATCH could not run virtual jobs under the XM monitor. BATCH can now run virtual jobs under the XM monitor, and the restriction _____ ______ _______ _____ concerning that limitation in the RT-11 System Release Notes no longer applies. o BUP did not print a warning message before restoring a device image to your system device. Since that operation can cause an uncoupling of RMON and the system files and can corrupt your system device, BUP now displays the following warning and question when you issue the command BACKUP/RESTORE/DEVICE and 2-1 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES your system device is the output volume. Restoring over SYSTEM volume! SY:/Restore; Are you sure? o BUP attempted to back up files containing zero blocks. BUP now refuses to back up such files and returns the error message ?BUP-F-No blocks to back up. o When you performed a DIRECTORY/PRINTER command on magtape, you received the directory listing, the magtape rewound, and then you received the trailer information (number of files and free blocks). Now you receive the directory listing with the trailer information while the tape is rewinding and you receive the monitor prompt after the magtape has rewound. o DUP initialized magtapes by writing random characters to the ANSI VOL1 label record. Now DUP initializes magtapes by writing blanks (ASCII space characters) in character positions 52 through 79 of that record, thus conforming to ANSI Standard X3.27. o The IND .READ directive enforced the obsolete 80 characters per line restriction. Now the .READ directive allows 132 characters per line. o The IND .TEST directive failed to detect nonalphanumeric characters appearing in a string symbol after the first occurrence of a lowercase alphabetic character. Now the .TEST directive detects those nonalphanumeric characters. o On .IF statements, MACRO-11 parsed arguments that were in unsatisfied conditional code blocks and could return assembly errors (error code A) on lines of code that should not have been parsed. Now MACRO-11 keeps only a conditional nesting count and does not parse arguments of conditional statements in unsatisfied blocks of code. o Invalid nonprintable characters in MACRO-11 source code were not detected and flagged as errors. Now those invalid characters are detected and flagged as I errors. o CREF.SAV did not produce a correct cross-reference of a MACRO-11 program that contained more than 999 lines of code. Now CREF.SAV produces correct cross-references under those circumstances. o Using an asterisk (*) wildcard in the input file name for a COPY/PROTECT command caused the monitor to trap to 4. Now that command works as documented. o When you exited PRO/GIDIS, you did not regain the cursor and had to reboot your system. Now you regain the cursor when you exit PRO/GIDIS. 2-2 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES o The time-of-day string was not printed on flag pages when the SP handler was not loaded and you were running under the XM monitor. SPOOL now supports time-of-day functionality under XM without requiring that the SP handler be loaded. o SYSGEN generated incorrect symbol names (system conditionals) for the second, third and fourth CSRs and VECTORs for TMSCP magtape units. SYSGEN now generates correct symbol names as described in _____ ______ _______ _____ the RT-11 System Release Notes. o The DZ device handler wrapped unit numbers such that an operation directed to DZ4 would wrap to DZ0, an operation directed to DZ5 would wrap to DZ1, and so on. Now the DZ handler does not wrap unit numbers. o The MM or MT magtape handler occasionally caused a system crash or monitor trap to 4 when a hard error occurred during a write (.WRITE or SPFUN 371) operation. Now each handler responds by performing a recovery or returning a hard error code under those circumstances. o Aborting magtape operations by typing double during the MU handler port initialization procedure could hang your system. Now, aborting port initialization does not hang your system, but you can experience a delay of up to 90 seconds before receiving the monitor prompt. o Aborting magtape operations by typing double while the system was .FETCHing or .LOADing the MU handler could halt your system. Now you can successfully abort magtape operations under those circumstances. o Occasionally, the XC and XL handlers were unloaded while you were running VTCOM. Now the XC and XL handlers are not unloaded until you pause or exit from VTCOM. New Features o A new on-line index package (INDEX.IDX, INDEX.IMG and INDEX.SAV) _____ that displays on your terminal most of the entries in the RT-11 ______ _____ _____ ______ _______ _____ Master Index, the RT-11 System Release Notes, and the on-line release notes file, V5NOTE.TXT o Enhancements to the single-line editor, SL: Increased storage of previous commands in a 512-byte command stack and recall of those commands with the up-arrow key Storing a command line offset in the command stack for repeated recalling of successive commands in that stack 2-3 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES Saving a command with the keys and recalling that command with the keys Keypad editing of command lines with appropriate KED editor functionality Using to allow replacement of characters in a command line (they do not shift to the right; new characters are typed in over them) Retention of previous (reduced) SL functionality for SJ and FB monitors o Customizing IND to: Change the default file type of IND control files to distinguish between those files and KMON command files. Eliminate or change the IND control file terminating message. If you change the message, it can contain up to seven ASCII characters plus a null character. o KMON job names specified using the /NAME:name option can now be numeric. o Numerous enhancements to BUP: Backing up a smaller disk volume to a larger disk volume or to a disk volume of the same size. BUP no longer returns the error message ?BUP-F-Enough space on one volume - use PIP. BUP now displays the message ?BUP-I-Verify pass started, when you request a verify pass (/VERIFY) during a backup operation. Restoring backup files and volumes written by previous versions of BUP. Files and volumes backed up using this version of BUP require the same version to restore them. Multiple backup operations to the same magtape or series of magtapes. The result of each file or volume backup operation is called a saveset. You can name each saveset or use a default name. Backing up a file on a volume to a saveset on magtape by including the file name in the command line. Magtape directories that include the saveset name, the section of the saveset residing on the magtape volume, the size of the saveset in blocks on the magtape volume followed by the total size of the saveset, and the date on which the saveset was backed up to the magtape volume. 2-4 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES Restoring a saveset or file located on a saveset from the backup magtape containing the saveset by mounting only that magtape Restoring a device image saveset from a magtape or series of magtapes Restoring a file image saveset from a magtape or series of magtapes by excluding the /DEVICE option The following new or changed options: ____ ______ ___ ______ ________ KMON_Option CSI_Option Function______________________________ /INITIALIZE /Z Initializes magtape; automatically included with disk operations /NOLOG /W Suppresses informational messages BUP displays as backup operations are performed. /NOQUERY /Y Inhibits responses otherwise required from terminal; allows use of BUP from KMON command and IND control files to write single disk or magtape output volume (MOUNT prompts require terminal response) /OUTPUT[:filespec] Writes results of DIRECTORY/BACKUP operation to specified file; input device can be magtape or disk /NOREWIND /M Inhibits rewinding of magtape before appending next saveset to magtape; increases speed of backup operations but prevents saveset name verification /NOSCAN /G Inhibits bad-block scan on disk output volumes; use only on volumes having no bad blocks /SAVESET /S With /RESTORE/DEVICE/FILES and from magtape volumes, indicates saveset containing file you want to restore /VERIFY:ONLY /V:ONL With /RESTORE (/X) option, causes comparison between named saveset and restored file or volume 2-5 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES Restrictions o You can hang or crash your system if you unload a device handler that has outstanding I/O requests from a job. You must stop the job that is using the handler before you unload it. o All BUP CSI options are position dependent; they must be coupled with an input file. Coupling any CSI option with an output file returns an error message. o Do not use ODT or the DBG-11 hard I/O pseudohandlers (SDH.SYS or SDHX.SYS) under a multiterminal monitor that was generated with timeout support. Otherwise, characters may be echoed twice on your console terminal by the debugging utilities and the monitor. Also, characters you type as debugging commands are placed in the KMON command buffer, and KMON attempts to execute those characters as a command and can return an invalid-command error message. Instead, use VDT or the DBG-11 soft I/O pseudohandlers (SDS.SYS or SDSX.SYS) when running under a multiterminal monitor. You can run VDT, SDS.SYS or SDSX.SYS from any terminal in a multiterminal configuration. o If you use VDT or the DBG-11 soft I/O pseudohandlers (SDS.SYS or SDSX.SYS) with a multiterminal monitor, you must set your terminal to NOWRAP (SET TT NOWRAP). o The SET MM/MT NOODDPAR command is provided only for media compatibility with other operating systems. Use it only to exchange magtapes with another system that requires even parity. Do not set even parity on MM or MT 9-track magtapes for use with DIGITAL controllers. Documentation Corrections RT-11 System User's Guide - o Section 5.2.1.3, Suppress Console Display Option (/Q) This section states that the /Q option suppresses the display of keyboard commands and their results as IND executes the commands. In fact, the /Q option suppresses only keyboard commands. It does not suppress the results of keyboard commands. 2-6 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES RT-11 Installation Guide - o Section 2.7.14, Modifying Help Text The command to merge the HELP program (.EXE) and the library (.MLB) should read: .COPY/CONCATENATE HELP.EXE,HELP.MLB HELP.SAV o Section 8.9, Preserving Working System The correct procedure for initializing an MU magtape is: .INITIALIZE/FILE:MSBOOT.BOT MU0: MU0:/INITIALIZE; Are you sure? Y RT-11 Software Support Manual - o Section 5.14, Multiterminal Example Program The code between symbol 6$: and symbol LOGLUN: should be changed to: 6$: BIS #,@R3 MOV #ENDTBL,R4 MOV #32,LOTIM ;Inserted line CALL TERMID CALL RSET BR 3$ The line at symbol UNKTT: on the last page of the program should have five spaces before the text. UNKTT: .ASCII / unidentifiable terminal/<200> RT-11 Programmer's Reference Manual - o Section 2.13.1, .CSIGEN and .CSISPC -- Passing Option Information This section should state that .CSIGEN and .CSISPC parse options and their associated values in reverse order from that specified on the command line. That is, the last option (and its associated value if present) is placed last on the stack and therefore is the first option retrieved. o Section 2.46.1, .LOOKUP -- Standard Lookup The description of value 0 for the optional seqnum parameter is 2-7 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES incorrect. In fact, 0 causes a rewind to the beginning of the tape and a file-structured lookup. o Section 2.50, Multiterminal Example Program MTXAMP.MAC The code following the first occurrence of the symbol 30$ should read: 30$: ADD #2,R2 INC R1 CMP R1,R4 BLOS 10$ ;Was BLO LOOP: CLR R1 MOV #AST,R2 10$: TSTB TAI(R1) BEQ 20$ BIT #AS.INP,(R2) BEQ 20$ .MTIN #MTA,#MTCHAR,R1,#1 BCS ERR CMPB MTCHAR,#CTRLC ;Inserted line BEQ DONE ;Inserted line .MTOUT #MTA,#MTCHAR,R1,#1 BCS ERR 20$: ADD #2,R2 INC R1 CMP R1,R4 BLOS 10$ ;Was BLO o Section 2.73, .READC This section states that the completion routine will not be entered if the .READC request returns an error. That is correct when .READC is used with DIGITAL hardware, but that might not be correct when .READC is used with non-DIGITAL hardware. For a completion routine to be entered, a high-speed device would have to return a hard error during a short window that exists between two sections of hardware error processing code in .READC. The first section checks for hard errors reported by the previous request; the second section checks for hard errors for the current request. The completion routine can be entered before .READC returns for the second hardware error check. o Section 3.21, ICSI The option parameter description should include: ICSI parses options in reverse order from that specified in the command line. Therefore, ICSI places options in the INTEGER*2 array in reverse order from that specified in the 2-8 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES command line. That is, the last option in the command line is placed first in the array, which is significant only if you have multiple occurrences of the same option in the command line. o Section 3.82, LOOKUP The description of value 0 for the optional seqnum parameter is incorrect. In fact, 0 causes a rewind to the beginning of the tape and a file-structured lookup. MAKING BACKUP COPIES OF RT-11 BEFORE RUNNING UPDATE If, to save time, you choose to make backup copies on a medium that is different from the medium supplied in your distribution kit, DIGITAL recommends that you make your backups on RK06, RK07, RL01 or RL02 disks. Distribution and Backup Media Are the Same Type This procedure automatically copies the volume identification numbers. 1. Put a blank volume in an appropriate drive unit (device). 2. Initialize the blank volume: .INITIALIZE/BADBLOCKS ddn: ddn:/Initialize; Are you sure? Y ?DUP-I-No bad blocks detected ddn: . where dd is the device and n is the unit number. 3. Put the volume containing the V5.4A master in another drive unit (or make sure it is already there). 4. Create an image of the contents of the second volume (V5.4A master) on the initialized volume: .COPY/DEVICE/VERIFY ddn: ddn: ddn:/Copy; Are you sure? Y . where the first ddn specifies the device containing the V5.4A master and the second ddn specifies the device containing the initialized volume. 2-9 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES 5. Remove the backup copy of V5.4A and store it in a safe place for later use in running the Update procedure. Distribution and Backup Media Are Different Types In this procedure, you must specify the volume identification, unless you are copying to RK06 or RK07 disks. 1. Put a blank volume in an appropriate drive unit (device). 2. Initialize the blank volume and add the correct volume identification: .INITIALIZE/BADBLOCKS/VOLUME ddn: ddn:/Initialize; Are you sure? Y ?DUP-I-No bad blocks detected ddn: Volume ID? volume-id Owner? owner . where dd is the device, n is the unit number, and volume-id and owner are the correct identifiers listed in the next section. If you are copying to an RK06 or RK07 disk, volume-id and owner do not have to be specified (just press RETURN). 3. Put the volume containing the V5.4A master in another drive unit (or make sure it is already there). 4. Copy the applicable contents of the second volume (V5.4A master) to the initialized volume containing the volume identification: .COPY/SYSTEM ddn: ddn: Files copied: (a list of the system files copied) . where the first ddn specifies the device containing the V5.4A master and the second ddn specifies the device containing the initialized and identified volume. 5. Remove the backup copy of V5.4A and store it in a safe place for later use in running the Update procedure. 2-10 RT-11 AND RT-11 ON THE PRO UPDATE RELEASE NOTES Volume Identification Numbers The Update procedure checks the RT-11 V5.4A volume identification (Volume ID) numbers for the following media. It does not check the Owner identifiers, and if you are copying to an RK06 or RK07 disk, the Update procedure does not check the Volume ID numbers. ______ ______ ______ __ _____ Medium_____________ Volume Volume_ID__ Owner_ RL01 Disk 1 AX-P608H-BC RL1 1/1 RL02 Disk 1 BC-P607H-BC RL2 1/1 POSTUPDATE PROCEDURES After running the Update procedure, you can use the DIRECTORY/PRINTER command to print a listing of the RT-11 V5.4B kit maps. RT-11 updates are noncumulative: This update of V5.4A will bring RT-11 to V5.4B, and V5.4B will be your new RT-11 master. The next applicable update will update that new master. Therefore, after running the Update procedure, make a backup copy of V5.4B, label that copy V5.4B, and store it in a safe place. When you make your backup copy of V5.4B: Copy to the same medium you used in creating the new V5.4B master. Follow the steps listed under "Distribution and Backup Media Are the Same Type" in this chapter (substituting V5.4B for V5.4A). One of those steps will automatically copy the volume identification number(s). 2-11 CHAPTER 3 BASIC-PLUS/RT-11 AND BASIC-PLUS/RT-11 ON THE PRO UPDATE RELEASE NOTES This chapter describes: Corrections to existing software problems and features that have been changed by Update modules for BASIC-PLUS/RT-11 and BASIC-PLUS/RT-11 on the PRO The postupdate procedure CORRECTIONS AND CHANGES INPUT Statements Update corrects the following problem with INPUT statements. When the following conditions were present, the stack was corrupted. An INPUT statement requested numeric data from the console terminal. The BASIC-PLUS image being used was overlaid. An invalid response to the statement was typed (for example, the response contained one or more nonnumeric characters). No user error handler was active (no ON ERROR GOTO statement had been executed). That problem caused one of the following to occur. An immediate crash, usually a trap to 4 An immediate and erroneous return to "Ready" followed by a trap on the next operation Other kinds of improper behavior depending on the configuration 3-1 BASIC-PLUS/RT-11 AND BASIC-PLUS/RT-11 ON THE PRO UPDATE RELEASE NOTES Matrix Inversion and DET Built-in Update corrects the following problem with matrix inversion. An error in the matrix inversion code in V3.0 caused incorrect results for some input values. Occasionally, the values in the inverted matrix and the value returned by the DET built-in were incorrect. Restrictions ________________ There are no restrictions beyond those given in the BASIC-PLUS/RT-11 ____ _______ _____ V3.0 Release Notes, which were included on your original distribution kit. Documentation o Format rules 3 and 4 for the CLOSE statement described in Chapter ________________ ________ _________ ______ 4 of the BASIC-PLUS/RT-11 Language Reference Manual are incorrect. They should be replaced with the rule: 3. If no channel number is specified, BASIC-PLUS performs a "normal" close on all user channels currently open. o The examples for the BIN$, HEX$ and OCT$ functions described in ________________ ________ _________ ______ Chapter 6 of the BASIC-PLUS/RT-11 Language Reference Manual suggest that four values will be displayed. The loops are constructed incorrectly; only one value is displayed four times. o In addition to the notes and corrections given in Section 11 of ________________ ____ _______ _____ the BASIC-PLUS/RT-11 V3.0 Release Notes, Appendix C of the ________________ ________ _________ ______ BASIC-PLUS/RT-11 Language Reference Manual, which lists reserved keywords of the language, should mention that you may not form a variable name by appending a data-type suffix to a reserved keyword. For example, INPUT$ is invalid because INPUT is a reserved keyword. The rule in question is given in Section ________________ ________ _________ ______ 2.1.2.1 of the BASIC-PLUS/RT-11 Language Reference Manual. POSTUPDATE PROCEDURE After updating the BASIC-PLUS/RT-11 modules, use RT-11 and the ________________ ____ _______ configuration procedure described in the BASIC-PLUS/RT-11 V3.0 Release _____ Notes to relink your BASIC-PLUS images and then copy them to your working system. Once you have relinked using up-to-date object modules, BASIC-PLUS/RT-11 is updated to BASIC-PLUS/RT-11 V3.0-09. 3-2 CHAPTER 4 FMS-11/RT-11 UPDATE RELEASE NOTES This chapter describes: Corrections to existing software problems and features that have been changed by Update modules for FMS-11/RT-11 The postupdate procedure CORRECTIONS AND CHANGES Utilities o An error in the Forms Editor affected the ASSIGN ALL command. You can now use the ASSIGN ALL command more than once to assign or reassign field parameters. o FMS-11/RT-11 would hang if the cursor was located in the last position of the data field and you entered a character while in Insert Mode. That problem has been corrected. o In Update kits F and G, the module FRED.SAV contained some errors. Those errors have been corrected, and a replacement module is now in the Update kit. System Generation The symbol NP$B in FMSGEN.COM was incorrectly assigned, resulting in inaccurate pool space allocation during FMS generation. That problem has been corrected. 4-1 FMS-11/RT-11 UPDATE RELEASE NOTES POSTUPDATE PROCEDURE After you update FMS-11/RT-11, execute FMSGEN.COM to update the Forms Driver. 4-2 CHAPTER 5 CTS-300 UPDATE RELEASE NOTES This chapter describes: Corrections to existing software problems and features that have been changed by Update modules for CTS-300 The postupdate procedure CORRECTIONS AND CHANGES The following CTS-300 problems are corrected by Update. SORT.SAV and SORT.TSD o Two copies of SORT.TSD starting at the same time on different terminals caused a "File in use" error at one of the terminals. That problem was troublesome if the programs were chaining. o In certain cases, a TAGS:LIST sort using a PAD character resulted in an output file that contained only a fraction of the legitimate records in the input file. o If the circumflex (^) was in the first character position of an input record, it was interpreted as an end-of-file marker. That problem was caused by a bug in the MACRO SORT (it remains a restriction in the DIBOL SORT). o In certain cases, only a little more than half of the input file was sorted. 5-1 CTS-300 UPDATE RELEASE NOTES LPTSPL.TSD and the Printer Satellites o When the QUE /PAGE option was used: If the beginning page number was specified as 1, the entire file was printed. If there were multiple pages (multiple form feeds) in the data block containing the first page to be printed, the first page was printed from its first character through the end of that data block, without searching the remainder of the block for additional form feeds, and the page count was corrupted. The search for the "second" page form feed continued in the next data block. If the end page specified was beyond the end of the file, an error message was recorded in the error log file, but the printing file status was not cleared and subsequent files in the same queue did not print. If multiple copies were requested with the /COPIES option, the first copy printed correctly but subsequent copies were corrupted or did not print. o When the QUE /DELETE option was used, the printer satellite could hang. SORT Restriction A string is a unit used internally by SORT. The form-feed character (FF, 14 octal, 12 decimal) is used as an end-of-string marker and therefore should not be used as the first character of a data record. Otherwise, unpredictable results will occur. That restriction is a design restriction of MACRO SORT. POSTUPDATE PROCEDURES Since the updated CTS-300 V8.2 TK50 magtape contains an RT-11 BUP backup file that can be read only by using an updated copy of the RT-11 BUP utility, you should update your RT-11 distribution kit before you update your CTS-300 V8.2 distribution kit. If you performed the Update procedure described for TK50 magtape in _____ ______ ______ _____ the RT-11 Update User's Guide, a file called CTS.DSK resides on the device (xxn:) to which you copied the CTS-300 distribution kit. Since that file contains an updated copy of CTS-300 V8.2, after updating your RT-11 kit you can save time during the CTS-300 installation procedure by using the following command to mount the file as a 5-2 CTS-300 UPDATE RELEASE NOTES logical disk. .MOUNT LD0 xxn:CTS Update changed the version number of LPTSPL.TSD, SORT.SAV, SORT.TSD, SUD.RTS, TSD.SAV and XMTSD.SAV to V08.20A. You must create new run-time systems through CTSGEN to make all the corrections and version number changes. 5-3 CHAPTER 6 CTS-300 ON THE PRO UPDATE RELEASE NOTES This chapter describes: Corrections to existing software problems and features that have been changed by Update modules for CTS-300 on the PRO CORRECTIONS AND CHANGES Compiler o Attempts to compile after receiving the "--F- Directory full" error message caused the DIBOL compiler DICOMP.SAV to corrupt the directory. That problem has been corrected. o If you recompile any program modules that use the COMMON variables, you must recompile the other modules in the program as well. 6-1 CHAPTER 7 DECNET-RT UPDATE RELEASE NOTES This chapter describes: Corrections to existing software problems and features that have been changed by Update modules for DECnet-RT The postupdate procedure CORRECTIONS AND CHANGES Control Procedures IND comments in some control procedures were preceded by exclamation points (!). Since the RT-11 indirect control file processor (IND.SAV) does not accept exclamation points in that context, the procedures failed. That problem has been corrected by preceding each IND comment with a period and a semicolon (.;). Connection Requests DECnet-RT rejected incoming connection requests in which certain previously reserved bits were set. Those bits are now defined, and connection requests should no longer be rejected. Initialization Messages DECnet-RT V2.1 was incorrectly parsing Phase IV initialization messages as if they were Phase III. A correction to NETACP, the session control program, causes messages that are not Phase III (routing layer version 1) to be ignored. 7-1 DECNET-RT UPDATE RELEASE NOTES Restrictions o The network generation and installation control procedures, NETGEN and NETINS, require device name responses to be in uppercase. o Some new PDP-11 processors are not recognized by NETGEN and NETINS. Until the new processors are recognized, you can substitute the names of recognized processors, using the correct bus. For example, to generate a network for an 11/83 (Q-Bus), you can specify 11/23, and for an 11/84 (UNIBUS), you can specify 11/44. o Your system must be rebooted following any network installation, including a network generation in which the target disk is the system disk. o At the KMON level, DECnet-RT utilities do not process commands typed in the CCL (concise command language) format. You must use the format shown below. .NCP NCP> SHOW KNOWN LINES o In specifying a node to be used in DTR/DTS testing, use the form NODE:node_name. o The RVT (remote virtual terminal) utility will not work with DECnet/VMS V4. That restriction will be removed in a future release. o Since the XL.SYS handler provided by DECnet-RT and the XL.SYS handler provided by RT-11 are mutually exclusive and should not be renamed, only one of the XL handlers can exist on the system volume. Consequently, DECnet-RT and RT-11 programs using XL cannot be used at the same time. POSTUPDATE PROCEDURE The session control program, NETACP, must be rebuilt using the replacement modules NASUB.OBJ and NASUBC.OBJ supplied with Update. 7-2 CHAPTER 8 FORTRAN IV/RT-11 AND FORTRAN IV/RT-11 ON THE PRO UPDATE RELEASE NOTES This chapter describes: Corrections to existing software problems and features that have been changed by Update modules for FORTRAN IV/RT-11 and FORTRAN IV/RT-11 on the PRO Preupdate and postupdate procedures CORRECTIONS AND CHANGES New OTS Library Modules Update 2/87 adds the following modules to the FORTRAN OTS library; they were taken from the RT-11 V5.4 system library, SYSLIB.OBJ. These _____ ____________ _________ ______ modules, described in the RT-11 Programmer's Reference Manual, continue to be directly callable from FORTRAN. GETSTR IASIGN ICDFN IFETCH IFREEC IGETC IGETSP ILUN INTSET IQSET PUTSTR SECNDS PREUPDATE PROCEDURE New Random-number Sequences Random-number generator routines RAN and RANDU are now a part of SYSLIB. They were taken from FORTRAN-77 but can be used with FORTRAN IV. However, the algorithm used is different from that provided with earlier releases of FORTRAN IV. If you need to preserve the random-number sequences that were produced 8-1 FORTRAN IV/RT-11 AND FORTRAN IV/RT-11 ON THE PRO UPDATE RELEASE NOTES with the earlier FORTRAN IV OTS, before running Update you should use the following commands to extract a copy of the applicable modules from FORLIB. .LIBRARY/EXTRACT SY:FORLIB OLDRAN.OBJ Global ? RAN Global ? RANDU Global ? RAN$ Global ? If you merged FORLIB with SYSLIB, substitute SYSLIB for FORLIB in the first command line. When linking FORTRAN programs, you can specify OLDRAN in your LINK commands whenever the older random number generator is desired. Random-number sequences generated by future versions of RAN and RANDU may be different. POSTUPDATE PROCEDURES Since GETSTR and PUTSTR are now in the FORTRAN OTS library, you no longer have to install the FORTRAN OTS library in the RT-11 system library to make related OTS symbols available to the linker. If you performed the Update procedure described for TK50 magtape in _____ ______ ______ _____ the RT-11 Update User's Guide, a file called FORTRN.DSK resides on the device (xxn:) to which you copied the FORTRAN distribution kit. Since that file contains an updated copy of FORTRAN V2.8, after updating your RT-11 kit you can save time during the FORTRAN installation procedure by using the following command to mount the file as a logical disk. .MOUNT LD2 xxn:FORTRN If you preserved random-number generator routines in OLDRAN.OBJ and you have programs that use those routines, you should link the programs with OLDRAN.OBJ. 8-2 CHAPTER 9 FORTRAN-77/RT-11 UPDATE RELEASE NOTES This chapter describes: Corrections to existing software problems and features that have been changed by Update modules for FORTRAN-77/RT-11 The postupdate procedure CORRECTIONS AND CHANGES The following changes and corrections require V5.0A of the FORTRAN-77/RT-11 compiler. If you do not have V5.0A, you can purchase the DIGITAL update service for FORTRAN-77/RT-11 or purchase a new FORTRAN-77/RT-11 kit from DIGITAL. New OTS Library Update includes a replacement for the FORTRAN-77/RT-11 V5.0A object time system library, F77OTS.OBJ. Some of the modules in F77OTS.OBJ correct problems reported in SPRs. In addition, some RT-11 FORTRAN-specific SYSLIB functions were added to F77OTS.OBJ because they are no longer in SYSLIB. The SYSLIB functions that are common to FORTRAN IV and FORTRAN-77 were taken from the RT-11 V5.4 system library, SYSLIB.OBJ. The SYSLIB functions that are normally updated (PUTSTR, GETSTR, IASIGN, ILUN and SECNDS) were taken from the file SYSUPD.OBJ, distributed with FORTRAN-77/RT-11. The SYSLIB modules that were added to F77OTS.OBJ are: GETSTR IASIGN ICDFN IFETCH IFREEC IGETC IGETSP ILUN INTSET IQSET 9-1 FORTRAN-77/RT-11 UPDATE RELEASE NOTES PUTSTR SECNDS New Modules Update adds the following new modules to the FORTRAN-77/RT-11 kit. They are described on the replacement pages for Chapter 6 of the ________________ ____________ _____ FORTRAN-77/RT-11 Installation Guide. CHAR.MAC -- implements the CHAR function (with restrictions) OTID.OBJ -- a version of OTI$ that does not take over a breakpoint trap OTSHK1.MAC -- provides a DBG-11 hook and other minor features SYSUPD.OBJ -- a replacement module VIRDSK.MAC -- provides disk support for VIRTUAL arrays (allows them to be used with RT-11 FB and SJ monitors) VIRTXM.OBJ -- a replacement module Restriction The FORTRAN-77/RT-11 compiler does not handle nested INCLUDEs correctly. That problem will be corrected in a future release. Documentation Corrections In a separate distribution you should have received replacement pages ________________ ____________ _____ ________________ ______ for the FORTRAN-77/RT-11 Installation Guide, FORTRAN-77/RT-11 User's _____ ________________ ___ _________ ______ Guide, and FORTRAN-77/RT-11 OTS Reference Manual. POSTUPDATE PROCEDURE If you want to merge F77OTS into SYSLIB, follow the instructions in ________________ ____________ _____ Section 2.10.2 of the FORTRAN-77/RT-11 Installation Guide. However, since the routines in SYSUPD are now merged with F77OTS, you do not have to update SYSLIB with SYSUPD. Afterward, you should recompile and/or relink your FORTRAN-77 programs with the updated OTS. 9-2 Ý΂€–Š€üLR:30 0000000000 00 000 000 000000 040 2000 0000000000000000000rq123456789600000 00000000000110000010012261512234255119LPTSPL92117431828LPTSPL_ D‰‡Äˆ$> X8Ä9Ä:Ä;Ä<3Äp& XČ,!Ŕ9*1Ŕ dŔŔŔ Ŕ Ŕ ŔLXX X !X Č ÄČpČ:!p=7X=2X :!:XĚ=X =X:>Ě=X%@%9ĘĚČ2Ŕ!6X567> Ä6& 3ŔĚ757X=X: Ě7> ÖĎ=7X2@ÂĎ!:p!:! =$X' X7= 7> Ě7=2=Ě2@=7X?X%@%9dĚČ2Ŕ!6X567> Ä75=4X6& 35=Ě: Ě$=$X$:4=4X34=4XČ'74 !3TĚ:$:JĚ4>Ě4=7X§Ď=7X2@“Ď%p1Ŕ1\Ě=X "X!#X X !XXČ:!ŔŔŔ?' XČ!=ŔŔŔŔŔ@XČ=X:!ĚČ:!:ĚX" X#!X=2X=7XŔČ=Ŕ!=Ď1=Ä' XAXpČ=XB< ':@őĎ!‹ĚČÄ!!ÄD) XČ E09*ůĎĚ9*Ŕ!ÄF9*ÔĎĚ!ÄG=Ä' XJĚD* XH+ X;- XI. XJ/ X L$Ě!( X Ě!ÄK?Ď, XĚ!ÄKňĎ0 XĚ LČ L0!Ŕ9*÷π΂˙˙ăM` €€€€€€€€€*€€E€F€G€G‚J‚K‚N‚\‚]‚`‚b‚c‚d‚e‚f‚g‚h‚k‚l‚m‚n‚q‚t‚w‚z‚}‚‚€‚‚‚‚ƒ‚„‚…‚†‚‡‚ˆ‚‰‚Š‚‹‚‚‘‚”‚—‚˜‚€›‚€Ł‚€Ľ‚€Ś‚€¨‚€Ş‚€Ť‚€Ž‚€Ż‚€°‚€ą‚´‚€ľ‚€ˇ‚€˝‚€ž‚€Ŕ‚€Â‚€Ä‚€Ć‚€Č‚ŠŞ‰Îd†l‡KƒO8ƒ]nƒŤ´…ŚŠ…›\…ż†é˛†N‰ř$‡H‡\‰^‡ű,‡Ľ€…e˘ƒ~n„Š …ZdƒĘV†ß”†Ô‰ä‰×††G ƒ x‡Lƒ–ŠÔ Á‰ř J‡Ô Á ‰Á‰fA’Áĺ0w2Ŕ0 B  ÷‹"ע עӋňŔ’‚ CÁ‰‡Ô%Á‰f&Á‰€ѐѕ Ŕ ü‡†‰Ô%Á‰‡†‰Ô% CÁ‰CÁ‰‡†‰÷˙˙ř˙Á%Á%†‰ô%˙˙% Á‰÷Ň˙÷%Ě˙ÁÁ‰ Ă`÷%°˙áľ ÂP÷ ˘˙őP,ő@,Ă Ŕ đ÷ Š˙‡ľ,‡á•0ő0,‰ŠĂ Ŕ ÷‡Ý΂€–Š€üLS:40 0000000000 00 000 000 000000 040 2000 0000000000000000000rq123456789600000 00000000000110000010012261512234255119LPTSPL92117431828LPTSPL_ D‰‡Äˆ$> X8Ä9Ä:Ä;Ä<3Äp& XČ,!Ŕ9*1Ŕ dŔŔŔ Ŕ Ŕ ŔLXX X !X Č ÄČpČ:!p=7X=2X :!:XĚ=X =X:>Ě=X%@%9ĘĚČ2Ŕ!6X567> Ä6& 3ŔĚ757X=X: Ě7> ÖĎ=7X2@ÂĎ!:p!:! =$X' X7= 7> Ě7=2=Ě2@=7X?X%@%9dĚČ2Ŕ!6X567> Ä75=4X6& 35=Ě: Ě$=$X$:4=4X34=4XČ'74 !3TĚ:$:JĚ4>Ě4=7X§Ď=7X2@“Ď%p1Ŕ1\Ě=X "X!#X X !XXČ:!ŔŔŔ?' XČ!=ŔŔŔŔŔ@XČ=X:!ĚČ:!:ĚX" X#!X=2X=7XŔČ=Ŕ!=Ď1=Ä' XAXpČ=XB< ':@őĎ!‹ĚČÄ!!ÄD) XČ E09*ůĎĚ9*Ŕ!ÄF9*ÔĎĚ!ÄG=Ä' XJĚD* XH+ X;- XI. XJ/ X L$Ě!( X Ě!ÄK?Ď, XĚ!ÄKňĎ0 XĚ LČ L0!Ŕ9*÷π΂˙˙ N` €€€€€€€€€*€€E€F€G€G‚J‚K‚N‚\‚]‚`‚b‚c‚d‚e‚f‚g‚h‚k‚l‚m‚n‚q‚t‚w‚z‚}‚‚€‚‚‚‚ƒ‚„‚…‚†‚‡‚ˆ‚‰‚Š‚‹‚‚‘‚”‚—‚˜‚€›‚€Ł‚€Ľ‚€Ś‚€¨‚€Ş‚€Ť‚€Ž‚€Ż‚€°‚€ą‚´‚€ľ‚€ˇ‚€˝‚€ž‚€Ŕ‚€Â‚€Ä‚€Ć‚€Č‚ŠŞ‰Îd†l‡KƒO8ƒ]nƒŤ´…ŚŠ…›\…ż†é˛†N‰ř$‡H‡\‰^‡ű,‡Ľ€…e˘ƒ~n„Š …ZdƒĘV†ß”†Ô‰ä‰×††G ƒ x‡Lƒ–ŠÔ Á‰ř J‡Ô Á ‰Á‰fA’Áĺ0w2Ŕ0 B  ÷‹"ע עӋňŔ’‚ CÁ‰‡Ô%Á‰f&Á‰€ѐѕ Ŕ ü‡†‰Ô%Á‰‡†‰Ô% CÁ‰CÁ‰‡†‰÷˙˙ř˙Á%Á%†‰ô%˙˙% Á‰÷Ň˙÷%Ě˙ÁÁ‰ Ă`÷%°˙áľ ÂP÷ ˘˙őP,ő@,Ă Ŕ đ÷ Š˙‡ľ,‡á•0ő0,‰ŠĂ Ŕ ÷‡;MODULE 1VOL VOLRX1 VOLRX2 UPDX UPDY DLSQZ FMSGEN.COM 1 2 2 3 2 F FRED.SAV 1 3 3 3 2 F FDV.MAC 1 3 3 3 2 F .;FMSGEN.COM FMS-11 SYSTEM GENERATION CONTROL FILE .; .; .; COPYRIGHT (c) 1983 BY .; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. .; ALL RIGHTS RESERVED. .; .; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED .; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE .; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER .; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY .; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY .; TRANSFERRED. .; .; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE .; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT .; CORPORATION. .; .; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS .; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. .; .; D. FINGERHUT 8-MAR-83 .BEGIN: .DISABLE PREFIX .DISABLE SUFFIX .ENABLE LOWERCASE .ENABLE ESCAPE .ENABLE QUIET ; ; FMS-11 SYSTEM GENERATION PROCEDURE V01.02 ; .ASK EXPLN Do you want a description of FMSGEN (N)? .IFF EXPLN .GOTO BEG10 ; ; The FMS Generation (FMSGEN) program functions as an inter- ; active dialog in which the program asks you a series of ; questions. Your answers establish the characteristics and ; features ot the FMS system that the program generates. ; FMSGEN prints each question and waits for your response. You can ; reply immediately with a valid response, or you can obtain a ; detailed explanation of the question by typing the ESCAPE key ; followed by the RETURN key. You can prevent FMSGEN from printing ; the entire explanation by typing at any time during the ; explanation. FMSGEN then stops printing the explanation, prints ; the question, and waits for your response. ; ; Dialog questions require one of several types of responses. ; Responses may be in the form of a character string, a number, or ; YES/NO (Y/N). FMSGEN expects a decimal number for all numeric ; answers except for CSR and vector addresses; in these cases it ; expects an octal number. A default response, in parentheses, ; follows each question. If you choose to use the default ; response, type only RETURN in response to the question. ; ; To terminate FMSGEN at any time, type . ; .ASK CONTIN Type RETURN to continue ; ; The FMSGEN procedure produces one or more conditional files and ; one or more indirect command files. ; ; The conditional files and indirect files for each component are ; as follows: ; ; To build everything: FMSBLD.COM Indirect file ; ; Form Driver: FSYCND.MAC Conditional file ; FDVBLD.COM Indirect file ; ; ARTS ASYCND.MAC Conditional file ; AIINIT.MAC Parameter file ; ARTGEN.COM Indirect file ; ; ; The dialogue asks questions about the Form Driver, BASIC-11 ; with forms support, FORTRAN-IV support for forms, and ARTS. ; ; Read the section covering system generation in the ; FMS-11 Software Reference Manual before proceeding. ; .ASK CONTIN Type RETURN to continue .BEG10: ; .ASK [] SOBQ Do you want to build FMS with the SOB instruction (N)? .IFF .GOTO B20 ; ; FMS-11 software normally avoids using the SOB instruction ; because some PDP-11 processors do not have it. The PDT11s ; and PDP-11/34 development systems have the SOB instruction. ; Use of the SOB instruction will save several hundred words ; and increase execution speed slightly. .GOTO BEG10 .B20: ; .ASK [] FDVQ Do you want to build the Form Driver (Y)? .IFF .GOTO B30 ; ; The Form Driver is a subroutine which provides forms ; support for MACRO-11, FORTRAN-IV and BASIC-11. .GOTO B20 .B30: .IFF FDVQ .GOTO B99 ; .ASK [] FMRF Do you want media resident forms (Y)? .IFF .GOTO B40 ; ; Media resident forms reside in form libraries on mass ; storage devices. To reduce memory requirements for ; programs media resident forms are normally used. BASIC-11 ; with forms support requires media resident forms. ; .GOTO B30 .B40: ; .ASK [] FFXD Do you want fixed decimal support in forms (Y)? .IFF .GOTO B50 ; ; Fixed decimal numeric field support requires a slightly ; larger Form Driver. ; .GOTO B40 .B50: ; .ASK [] FSCL Do you want scrolling support (Y)? .IFF .GOTO B60 ; ; Scrolled areas are an advanced feature of the Form Driver ; which allows collection of large amounts of data with forms ; conveniently. The application program must be coded to ; provide support for scrolling. Scrolled area support ; requires about .5K words of memory. .GOTO B50 .B60: ; .ASK [] FDBG Do you want the debug option (N)? .IFF .GOTO B70 ; ; For development systems, the Form Driver can output more ; informative error messages to the terminal to aid in ; debugging. This feature uses a small amount of memory. .GOTO B60 .B70: ; .ASK [] FD52 Do you want VT52 support (N)? .IFF .GOTO B80 ; ; The form driver can be generated to support VT52 terminals. ; If the form driver is generated to support VT52 terminals, ; VT100 terminals can also be used. The features available on ; the VT100 but not available on the VT52 will not be supported ; if VT52 support is selected (in particuliar, video attributes ; will not be supported). Also the keypad of the VT100 will be ; altered from the standard (see V01.02 Release Notes). .GOTO B70 .B80: .OPEN FSYCND.MAC .ENABLE DATA .NLIST .ENABL LC .LIST .SBTTL FSYCND - Form Driver System Conditional File .DISABLE DATA .IFT FD52 .DATA VT10$0 = 0 ;VT52 support .IFF FD52 .DATA VT10$0 = 1 ;VT100 support .IFF FMRF .DATA MEDI$A = 0 ;memory resident form support only .IFT FMRF .DATA MEDI$A = 1 ;media resident form support also .IFF FFXD .DATA FIXD$C = 0 ;no fixed decimal field support .IFT FFXD .DATA FIXD$C = 1 ;fixed decimal support included .IFF FDBG .DATA DEBU$G = 0 ;no debug support .IFT FDBG .DATA DEBU$G = 1 ;debug mode is active .IFF FSCL .DATA SCRO$L = 0 ;no scrolling support .IFT FSCL .DATA SCRO$L = 1 ;scrolling support is included .IFT SOBQ .DATA SOB$I = 1 ;SOB instruction used .CLOSE .OPEN FDVBLD.COM .ENABLE DATA ! FDVBLD.COM ! BUILD THE FORM DRIVER ! R MACRO BIN:FDV,LST:FDV/C=SRC:ARTMAC.SML/M,FSYCND,FDV,FDVIO BIN:FDVERR,LST:FDVERR/C=SRC:FSYCND,FDVERR ^C ! .DISABLE DATA .CLOSE .B99: .; .; NOW GEN FOR BASIC-11 FORTRAN-IV AND ARTS .; .; NO CONFIGURATION OPTION UNLESS SELECTED .; .SETF ACNPQ .SETF ACNFQ .C5: ; .ASK [] BASQ Do you want to build BASIC-11 with forms support (N)? .IFF .GOTO C10 ; ; You may elect to build single user BASIC-11 with forms ; support. If so, forms support for MACRO and FORTRAN-IV must ; be built by using this sysgen procedure again. ; ; This system generation builds a library (ARTLIB.ONA) which ; is used in the installation procedure for BASIC-11. BASIC-11 ; itself is not built by this procedure. .GOTO C5 .C10: .; .; BASIC-11 IMPLIES NOARTS .; NO FORTRAN-IV AND NO ARTS .IFT BASQ .SETT NOARTS .IFT BASQ .SETF FORQ .; IF NOT BASIC-11 CONFIGURE AN ARTS FOR REAL .SETF FOR25 .IFT BASQ .GOTO C99 .C12: ; .ASK [] FORQ Do you want to build forms support for FORTRAN-IV (Y)? .IFF .GOTO C20 ; ; Forms support is available for FORTRAN-IV as well as ; MACRO-11 and BASIC-11. If you elect to use forms support ; with FORTRAN-IV programs, the FORTRAN-IV support will be in ; included in the object library for ARTS (ARTLIB.OBJ). .GOTO C12 .C20: .IFF FORQ .GOTO C40 .C35: ; .ASK [] FOR25 Do you have FORTRAN version 2.5 (Y)? .IFF .GOTO C40 ; ; FMS supports version 2.5 of FORTRAN. Although it is not ; supported, you can select FORTRAN version 2.1 as the version ; which will be accessed by FMS. ARTS replaces one module in ; the FORTRAN run-time system for proper initialization. The ; two versions require different replacement modules. See the ; FORTRAN documentation if you need help in determining the ; proper version number. .GOTO C35 .C40: ; .ASK [] QARTS Do you want to build forms support with ARTS (Y)? .IFF .GOTO C50 ; ; Forms support may be provided for standard RT-11 programs ; in MACRO or FORTRAN-IV, or for systems of several tasks ; running under ARTS. If support is required only for RT-11 ; programs, application development is simpler. Systems ; employing ARTS are more flexible. .GOTO C40 .C50: .SETF NOARTS .IFF QARTS .SETT NOARTS .; .; IF HE WANTS AN ARTS THEN CARRY ON FROM HERE .; .IFT NOARTS .GOTO C98 .C60: ; .ASK [] AMTTQ Do you want multi-terminal support in ARTS (Y)? .IFF .GOTO C70 ; ; ARTS provides the ability to run more than one task at the ; same time under RT-11 and also provides system routines ; required for the Form Driver when used by MACRO and FORTRAN-IV ; programs. ; ; ARTS can support multi-terminal or single-terminal systems. ; Multi-terminal systems can run under RT-11 FB with multi- ; terminal support. .GOTO C60 .C70: .SETT ADYNQ .IFT FORQ .GOTO C85 ; .ASK [] ADYNQ Do you want dynamic task support (Y)? .IFF .GOTO C85 ; ; ARTS can support dynamic loading of MACRO or FORTRAN-IV tasks. ; Multi-task and multi-terminal FORTRAN-IV applications must ; be built with dynamic task loading. .GOTO C70 .C85: ; .ASK [] APUBQ Do you want public channel support (Y)? .IFF .GOTO C90 ; ; Public channels allow more than one task to access the same ; copy of a file using the same RT-11 channel. This is a ; feature which allows more efficient forms processing by ; multiple tasks. .GOTO C85 .C90: .SETF AMSGQ .IFF AMTTQ .GOTO C91 ; .ASK [] AMSGQ Do you want the message package (N)? .IFF .GOTO C91 ; ; A task-to-task message package may be included with ARTS to ; allow MACRO and FORTRAN-IV tasks to communicate. .GOTO C90 .C91: .SETF ARESQ .IFF ADYNQ .GOTO C92 ; .ASK [] ARESQ Do you want resident tasks and/or forms (N)? .IFF .GOTO C92 ; ; Tasks may be included in ARTS systems as part of ARTS ; itself. In ARTS systems with dynamic task loading these ; tasks are resident tasks which are not allocated terminals. ; In addition to tasks, forms can be memory resident in ARTS ; for fast access. All the modules (tasks and forms) which ; are to be made resident should be included in the file ; TSKRES.OBJ on the binary output device BIN: before ; building FMS-11. .GOTO C91 .C92: ; .ASK [] ACNPQ Do you want to assign ARTS configuration parameters (N)? .IFF .GOTO D10: ; ; Several parameters can be supplied to configure multi-task ; or dynamic ARTS systems. These parameters configure the ; system to the specific application and hardware by ; specifying the number of tasks, number of input/output ; channels per task, etc. ; ; The parameters and their default values are: ; ; Number of tasks 1 ; Number of queue elements 0 ; Number of channels / task 4 ; Number of public channels 2 ; Number of pool buffers 2 ; Number of blocks / buffer 2 .GOTO C92: .D10: .IFF ACNPQ .GOTO E10 ; .ASKN [1:16.:1] ANTSK Number of tasks 1-16. (1)? .IFF .GOTO D20 ; ; The number of tasks is the number of system and user tasks ; which may be simultaneously active in the system. .GOTO D10 .D20: .SETN NTSK ANTSK-1 ; .ASKN [0:100.:NTSK] ANQUE Number of queue elements ('NTSK')? .IFF .GOTO D30 ; ; The number of queue elements governs the number of I/O ; requests which may be outstanding at any time. The default ; is the number of tasks in the system minus 1. .GOTO D20 .D30: ; .ASKN [1:16.:4] ANCHN Number of I/O channels per task (4)? .IFF .GOTO D40 ; ; The number of channels per task is the number of RT-11 I/O ; channels which a task may have open at a time, not including ; public channels. The default is 4 per task. .GOTO D30 .D40: ; .ASKN [0:16.:2] APUBN Number of public channels (2)? .IFF .GOTO D50 ; ; The number of public channels governs the number of RT-11 ; channels which are shared for forms or other processing. .GOTO D40: .D50: ; .ASKN [2:64.:2] APOLN Number of pool buffers to allocate (2)? .IFF .GOTO D60 ; ; Pool buffers are used for forms support routines and may be ; used by applications programs in other ways. One pool ; buffer is required for each form library open (by using ; public channels several tasks may share a library) and for ; each task currently reading a form. To minimize delays ; allocate one buffer for each task using forms and one for ; each library open. .GOTO D50 .D60: ; .ASKN [1:2:2] APOLS Size of pool buffers 1 or 2 blocks (2)? .IFF .GOTO D70 ; ; Pool buffers are normally two blocks long (512 words). ; This allows two-block form directories and optimizes forms ; processing I/O. .GOTO D60 .D70: ; .ASK [] AUSRQ Do you want the USR to swap (N)? .IFF .GOTO D80 ; ; The RT-11 User Service Routine (USR) which processes ; requests for file access for tasks and normally is ; resident in ARTS systems to increase performance in ; multiple terminal applications. The USR can be made to ; swap to recover memory space (2K words). .GOTO D70 .D80: .E10: ; .ASK [] ACNFQ Do you want run-time configuration (N)? .IFF .GOTO C98 ; ; ARTS supports reconfiguration of certain parameters when ; ARTS is loaded. This allows development systems to be ; flexible. Parameters requested in the previous section may ; be set at run time via switches on a command line. .GOTO E10 .C98: .IFF NOARTS .GOTO C99 .SETT ACNPQ .SETT AUSRQ .SETN APOLN 0 .SETN APOLS 2 .SETN ANTSK 1 .SETN ANQUE 0 .SETN ANCHN 16. .SETN APUBN 0 .E15: ; .ASK [] ACXPQ Do you want buffers for media resident forms (Y)? .IFF .GOTO E20 ; ; Forms support for RT-11 programs requires buffers if media ; resident forms are used. If no media resident forms are ; used the buffer space (1K words) may be saved. .GOTO E15 .E20: .IFF ACXPQ .GOTO C99 .SETN APOLN 2 .SETN APOLS 2 .C99: .SETS DOUT$ +"''" .SETS DMAP$ DOUT$ .SETS DIN$ +"1" .SETS DLST$ DMAP$ .IF EQ 1 .SETS DIN$ +"0" .PHSRC: .DISABLE LOWERCASE ; .ASKS [0:3:DIN$] SDV What is the PHYSICAL name of the source input device [xxn] ('DIN$')? .IFF .GOTO PHOUT .GOSUB PHHLP .GOTO PHSRC .PHOUT: ; .ASKS [0:3:DOUT$] BDV What is the PHYSICAL name of the binary output device [xxn] ('DOUT$')? .IFF .GOTO PHLST .GOSUB PHHLP .GOTO PHOUT .PHLST: ; .ASKS [0:3:DLST$] LDV What is the PHYSICAL name of the listing output device [xxn] ('DLST$')? .IFF .GOTO PHMAP .GOSUB PHHLP .GOTO PHLST .PHMAP: ; .ASKS [0:3:DMAP$] MDV What is the PHYSICAL name of the map output device [xxn] ('DMAP$')? .IFF .GOTO PHEND .GOSUB PHHLP .GOTO PHMAP .PHEND: .ENABLE LOWERCASE .GOTO F10 .PHHLP: ; ; Building FMS-11 software requires four logical devices: the ; source input, the binary output, the listing output and ; the map output device. The source input device should ; contain a copy of the distribution volume. The binary ; output should have room for all object files, and load ; images. The listing device may be assigned to the null ; device NL to prevent the output of listings. The map ; output device will receive link maps and listings of ; object libraries. ; .RETURN .F10: .OPEN FMSBLD.COM .ENABLE DATA ! FMSBLD.COM ! ! BUILD THE ENTIRE FMS-11 SOFTWARE PACKAGE ! TIME ! ASSIGN 'SDV' SRC ASSIGN 'BDV' BIN ASSIGN 'LDV' LST ASSIGN 'MDV' MAP ! .DISABLE DATA .IFF FDVQ .GOTO G10 .ENABLE DATA ! ! BUILD THE FORM DRIVER @FDVBLD .DISABLE DATA .G10: .ENABLE DATA ! ! BUILD ARTS ! @ARTGEN ! TIME .DISABLE DATA .CLOSE .; .; IF NOARTS IS SPECIFIED THEN USE ITS DEFAULTS .; .IFF NOARTS .GOTO G20 .SETF AMTTQ .SETF ADYNQ .SETF APUBQ .SETF AMSGQ .SETF ACNFQ .G20: .OPEN ASYCND.MAC .DATA .SBTTL ASYCND - ARTS System Conditional File .DATA .IFT AMTTQ .DATA MTT$Y = 1 ;SINGLE TERMINAL & SINGLE TASK .IFF AMTTQ .DATA MTT$Y = 0 ;MULTI-TERMINAL & MULTI-TASKING .IFT ADYNQ .DATA DYNT$K = 1 ;STATIC TASKS .IFF ADYNQ .DATA DYNT$K = 0 ;DYNAMIC TASK LOADING .IFT APUBQ .DATA PCHA$N = 1 ;NO PUBLIC CHANNEL SUPPORT .IFF APUBQ .DATA PCHA$N = 0 ;PUBLIC CHANNEL SUPPORT .IFT ACNFQ .DATA ARTI$T = 1 ;ASSEMBLE CONFIGURATION PARAMETERS .IFF ACNFQ .DATA ARTI$T = 0 ;CONFIGURATE VIA COMMAND STRING (CSI) .IFT FORQ .DATA FOR$T = 1 ;NO FORTRAN SUPPORT .IFF FORQ .DATA FOR$T = 0 ;FORTRAN SUPPORT .IFT AMSGQ .DATA MESS$G = 1 ;NO MESSAGE SUPPORT .IFF AMSGQ .DATA MESS$G = 0 ;MESSAGE SUPPORT .; The following conditional is used to generate from the ARTS .; subsystem, the operating system dependent routines for the .; Form Driver. This provides Form Driver support for RT-11 .; programs. .IFT NOARTS .DATA ART$S = 0 ;NO ARTS, ONLY RT-11 SUPPORT .IFF NOARTS .DATA ART$S = 1 ;ARTS CONFIGURATION WITH SCHEDULER .IFT SOBQ .DATA NEWC$P = 1 ;SOB INSTRUCTION .CLOSE .; IF CONFIGURATION NOT SPECIFIED THEN USE DEFAULTS .; .IFT ACNPQ .GOTO H10 .SETF AUSRQ .SETN ANTSK 1 .SETN ANQUE 0 .SETN ANCHN 4 .SETN APUBN 2 .SETN APOLN 2 .SETN APOLS 2 .IFT AMTTQ .SETN ANCHN 16. .H10: .OPEN AIINIT.MAC .DATA .SBTTL AIINIT - ARTS Initialization File .DATA .ENABLE LC .IFT AUSRQ .DATA RSUS$R = 0 ;USR swaps .IFF AUSRQ .DATA RSUS$R = 1 ;USR is to be resident .DATA NT$ASK = 'ANTSK'. ;Number of tasks in the system .DATA NQ$UE = 'ANQUE'. ;Number of queue elements to be allocated .DATA NC$HAN = 'ANCHN'. ;Number of channels per task .DATA PC$HAN = 'APUBN'. ;Number of public channels .DATA NB$P = 'APOLN'. ;Number of buffers in the pool .DATA PB$BLK = 'APOLS'. ;Number of 512. byte blocks in a pool buffer .CLOSE .OPEN ARTGEN.COM .ENABLE DATA ! ARTGEN.COM ! ! This command file specifies the ARTS system generation ! procedure for an ARTS system. ARTS is assembled, a ! library is built, an ARTS executable module is linked. .DISABLE DATA .IFT ADYNQ .DATA ! TSKINI is linked with the ARTS STB file. .ENABLE DATA ! ! Transfer the compiled Fortran initialization to the binary disk ! COPY SRC:OTSINI.OBJ BIN:OTSINI.OBJ ^C ! ! Assemble the sources ! R MACRO BIN:ABORT,LST:ABORT/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,ABORT BIN:ALLOC,LST:ALLOC/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,ALLOC .DISABLE DATA .IFF ADYNQ .OR .IFF FORQ .GOTO GEN10 .ENABLE DATA BIN:ARTEMT,LST:ARTEMT/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,ARTEMT BIN:ARTFOR,LST:ARTFOR/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,ARTFOR .DISABLE DATA .GEN10: .ENABLE DATA BIN:ARTINI,LST:ARTINI/C/N:BEX=SRC:ASYCND,AIINIT,ARTMAC.SML/M,ARTINI BIN:ARTLST,LST:ARTLST/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,ARTLST BIN:ARTUSR,LST:ARTUSR/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,ARTUSR BIN:BLKIO,LST:BLKIO/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,BLKIO .DISABLE DATA .IFF BASQ .DATA BIN:BYE,LST:BYE/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,BYE .IFT ADYNQ .DATA BIN:CHAIN,LST:CHAIN/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,CHAIN .ENABLE DATA BIN:CNSLIO,LST:CNSLIO/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,CNSLIO BIN:CNVFS,LST:CNVFS/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,CNVFS BIN:ERROR,LST:ERROR/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,ERROR .DISABLE DATA .IFF NOARTS .IFT ADYNQ .DATA BIN:INCLUD,LST:INCLUD/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,INCLUD .DATA BIN:MCHAN,LST:MCHAN/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,MCHAN .IFT AMTTQ .IFT AMSGQ .DATA BIN:MESSAG,LST:MESSAG/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,MESSAG .IFT ADYNQ .DATA BIN:OVLRD,LST:OVLRD/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,OVLRD .DATA BIN:SAVREG,LST:SAVREG/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,SAVREG .IFF NOARTS .DATA BIN:SCHED,LST:SCHED/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,SCHED .IFF ADYNQ .GOTO GEN30 .ENABLE DATA BIN:SHUTUP,LST:SHUTUP/C/N:BEX=SRC:ARTMAC.SML/M,SHUTUP BIN:TSKINI,LST:TSKINI/C/N:BEX=SRC:ARTMAC.SML/M,TSKINI BIN:TSKRUN,LST:TSKRUN/C/N:BEX=SRC:ASYCND,ARTMAC.SML/M,TSKRUN .DISABLE DATA .GEN30: .ENABLE DATA ^C ! ! Make a library ! R LIBR .DISABLE DATA .IFT NOARTS .DATA BIN:ARTLIB.ONA,MAP:ARTONA/N=// .IFF NOARTS .DATA BIN:ARTLIB,MAP:ARTLIB/N=// .DATA BIN:ABORT,ALLOC .IFT ADYNQ .IFT FORQ .DATA BIN:ARTEMT,ARTFOR .IFT NOARTS .DATA BIN:ARTINI .DATA BIN:ARTUSR,BLKIO .IFF BASQ .DATA BIN:BYE .IFT ADYNQ .DATA BIN:CHAIN .DATA BIN:CNSLIO,CNVFS,ERROR .DATA BIN:FDV,FDVERR .IFT BASQ .DATA SRC:HLLBAS,HLLDFN .IFT FORQ .DATA SRC:HLLFOR,HLLDFN .DATA BIN:MCHAN .IFT AMSGQ .DATA BIN:MESSAG .IFT FORQ .IFF FOR25 .DATA SRC:OTI21 .IFT FORQ .IFT FOR25 .DATA SRC:OTI25 .IFT ADYNQ .DATA BIN:OVLRD,TSKRUN .DATA BIN:SAVREG .IFF NOARTS .DATA BIN:SCHED .DATA BIN:ARTLST// .DATA ^C .IFT NOARTS .GOTO ART20 .IFF ADYNQ .GOTO ART10 .ENABLE DATA ! ! Make an ARTS executable module ! R LINK BIN:ARTS,MAP:ARTS,BIN:ARTS=BIN:ARTINI,INCLUD,ARTLIB,OTSINI// .DISABLE DATA .IFT ARESQ .DATA BIN:TSKRES .ENABLE DATA // ! ! create the shut down task, SHUTUP. BIN:SHUTUP/R:400,MAP:SHUTUP=BIN:SHUTUP,ARTS.STB,ARTLIB ! ! create the default task, TSKINI. BIN:TSKINI/R:400,MAP:TSKINI=BIN:TSKINI,ARTS.STB,ARTLIB ^C .DISABLE DATA .ART10: .ENABLE DATA ! ! ARTS system generation complete. The user must now link his ! own tasks with the ARTSs STB file. ! .DISABLE DATA .ART20: .DATA TIME .CLOSE .SETS AND "" .IFT FDVQ .SETS AND "and FSYCND.MAC" ; ; ; To build the FMS-11 software package you have selected ; copy ASYCND.MAC, AIINIT.MAC and FSYCND.MAC ; to the source input device, then set the date and time in ; the system, and execute the indirect file to build the ; components with the following command: ; ; @FMSBLD ; ; End of system generation procedure for FMS-11 ; Žŕ"diFţ0˙˙ŔBa&fŚÁe@BJ%@& fŚˆ‡‚€E…ţˆű÷AÔ˙Á  w ü‡ă Sfi S*- S6ŕ S<{ SC _ S_  S_  ,S_ S_ šX_ Z_ S_ ˜`_ ž`_ ¤`_ Ş`_ °`_ ś`UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU őU@ 7 `-" 7 Z-% ő5@ 7 L-+ 7 F-7 7 @-l 5  ÷ N.÷ Žţ÷ *÷ śţ7 &-ý ő5  ő5 ÷ ”ţ÷ . w&.Đ÷ .5 ž5 v 5 ŕő&˛u-Đ2Ň2őU@ ÷ ź÷ (ő5 őžW-žóuŇ2Ô2uĐ2Ň2÷ ş-‡7 Ź, 7 Î,â2÷ ĘÁŔĂ"4÷ €+Ë ‡‡ő5v ÷ b÷ ÷ ţőž÷ Ňý÷ Öý÷ Úý5 ž÷ ÷ v‡7 >,ě2őž÷ Źý÷ °ý÷ ´ýőž‡7 ,ý2őžőU ‡7 ,+ őž÷ xý5 ž÷ xýőž÷ vý5 ž÷ ¨÷ őEv ‡őE€ ÷ J‡őU€ ÷ >‡őU ÂŞő~ ő ~ ɋR”ҕ ő ~ ôÁŞ÷ .őž÷ ‡ő5v ÷ n÷ îüőž÷ ěü÷ đü5 ž÷ "÷ ŒőEv ‡7 d++ őž÷ źü÷ Ŕü5 ž÷ Ŕü÷ r÷ 6÷ î÷ XőEv ‡ŔÄ5éˆŔ3éˆőEv ‡7 +ú ÷ @÷ ő5@ ÷ ÷ ˜˙÷ ‚‡÷ ¤ő&Śuô¨÷ ÷ ţ÷ őUv ‡÷ RŔ&Cîő°őĺ°Bě ľđĂ €`Ă × 5ôö5öŔĺ&5ňu-˛ô‡uô˛ő岇ő5@ őEv őEv CĐ2ó5őUv őEv ó5őUv őEv ő5v 7 .*1 őU@ ő„ě 7 *+ őE@ őPěő5v 7 *= 7 ř)7 őî7 ě)C ĂV÷ V+Ŕ¤ˋú÷ 6ŔĽc÷ ,Ă5 ő5v őî÷ &+ŔĽcű7 ¨)G ‡[? ÷ +ŔĽ0 ŔĽ9 Ă ÁĂ Ă C`Ŕĺ0`ď‡D˛÷ <7 n) 5 ś5 ¸5 şľ ş5 ź5 ž‡CĐ2ĂeÓ ×"˙˙,Âľ€ 5Š€ ő€ ÷ \DŔŔŔE˙đő5v ŔU@ ÂÔAěAí€ Â ŠŔÔÁ 5!ô†Á  óĂ5ƒ Ńőz ‡CĐ2ÂĂeƒlCz Ó Ó ×"˙˙<Âľ€ 5Š€ ő€ ÷ ŕDŔ ŔŔE˙đŔU€ő5v ŔU@ÁÁe BÔćCěCí€ Â Š@ÔĂ 5!ô†Ă  óƒó5 ó5@ ÷ ĂbÁ‡ő | őEŕ˙| ő | Â÷ bu„ u† ő | 5 ~ őœ~ A„ umđ† B† ő ~ Rő ~ ůő | çó5@ ÂÂE˙  BaŔ ŔEŕ˙ňUřÂeŔ ů‡&5 x ÷ ŞDŚ5!¨<†Ô5@8ä ÷ v7 ¨'ˆ ÷ üÂE˙‚ ÷ Âu‚ Ě5@%ĚE@ĂE˙đÔ5 ćÎ@ĂEƒUôU@ţ˙ôE ţ˙ő x őx ÷ <÷ ž(5!‚ †5!¨†ŘÁ7 <'M „‡!& ‡5!ö†÷ €÷ ŞĄą‡&7 'M ő5x 7 '\ ő5x 7 ö&R ő5x 7 č&a ő5x 7 Ú&W €‡Á&‹AmđŠúAí𠠁`W &‡u ö‡ąĄ‡Áĺ&Á u ň Aíđ‚ Á űAmđ  ÁB`Ąą‡ €ĐÁŠ ÷ Â& €ĐÁ ÷ ´&Ŕ Á˜””Ŕ’ ”””ŔŠ đ•;đ•H ˘H ˘ W˘HQœúЋđЋȕ€‡Ä&Ŕ 5!öüBî Ář   ű7 ć% 7 ŕ% 7 Ú% ‡ő5 ÷ >'ĂŔőEv 5 ´ő5v 9 . +    ÷ ˘5 ´ĂŔ÷ Ŕ%ő5v ÷ ě&ő5  ÷ :‡őUv ŔőUv Ŕ€őUv 5 ´ĂĂŔCm´ ŠőE ‡÷  & O÷ –& MŔ  Ŕ  ÷ p&5 Ŕ5 ´ ąĄ‡ $W-´ ő5  0 9 W-´ľ ´ŔőUv ľ ´Ŕő ´ ő ´ă‹7 ’$r Ŕ€Ŕő5v ÷ č%‡ć÷ Î üÖ ‡W˘a‡W˘z‚ÉĹ  ‡fAÎ2AíÔ2W ‚őU 7 $$ô3‡CÔ2BŇ2ƒŕƒ AĐ2Ă ‘Ă űuŇ2uŇ2uÔ2őU őU@ ‡›=€›>€›[H€›[J€›[0K€›[1B€›[0m€›[24;0H›[K€›<€›[?7l€›[?3l€›[?3h€›[?5l€›[?5h€›[c€›[?6l€›[0m€›[1m€›[4m€›[5m€›[7m€›[?8l€›[?8h€ €›[00000;00000H€Pf& ÂĂ ʋ —˘-Ž ‚ ř@”÷ ˆ ň@’÷ z Î ҋţÓ Ę‹âÁ ĆeĂ÷ xĂ5‡Ă Ň @’÷ 4@”÷ , Ś  ‚e Ŕĺ0`óÁ Ąf ÷ > ˇ‡ą÷ 0 9´‡¤‡Ŕ‹    a‡ z‚ŔE ‡W˘  ű‡ŔÄ5éˆŔź4éˆ÷ ~‡&7 ( Ŕt2éˆ鈀ą„&7  Ŕt2éˆ鈀„鈄&Ŕ÷ ^7 ě˙ Ŕt2éˆéˆ÷ *€„&7 Ň˙ éˆ5ŕ2€„&7 ž˙ @ŕ2鈀‡ŕˆţ‡÷ n‡7 ˆ Š1 €â‡ƒ ü€dĂe0Ä Ę × 0ѕ „ ŃĘ ę‡'čd ÷ $ć†Î÷ `÷ Č&÷ €ˇrΠY y‡ŔˆŔ ţ÷ ý†‡ßU@$ŕˆßE@$‡ćŚf&&„ Ţ €‚ƒ„‡ßUP$‡ßEP$‡ßU$‡ßE$‡čˆ÷5~ăéˆĄ‡÷5năáˆţ‡Ą‡÷5\ăŕˆţ‡Ŕ ‡÷ h˙‡Ŕ üˆ‡÷UžÍ‡áˆţ‡‡ŕˆţ‡‡FRED - €fiCOMMAND: €Form being savedForm not saved on QUIT EDIT Edit form image ASSIGN [NEW] Assign field attributes ASSIGN ALL ASSIGN FIELD nam FORM Assign form attributes NAME Assign named data SAVE Save form description QUIT Discard form, accept new command New form exceeds available memory - form lost&4˜4H-ELPED-ITSAVEQUITN-AMEA-SSIGNF-ORMV4¨4-NEWA-LLF-IELDl4°4BO-LDBL-INKINGU-NDERLINER-EVERSEC-LEARĆl˘ÂÖS4’ş0 $ş0ž–ŽŚśžIllegal command€˙˙˙˙˙˙t ](Fd)`‚Z!Xý}]ö45¤55555"5,565@5J5T5^5h5r5|5†55š5›[24B ›[J€›<›)0€›[H›[J€›[24B ›[J€›#5›[K›[B€›[24B›[132C€›[€›[?3l€›[?3h€›#6€›[?5h€›[?5l€›D€›M€A6 âJ4H ŞH(J jI¤K(GOM6[e6^IMjIPHQüJRIS IöJA@IBFIC„IDJ^I6767ŔOÄO.>b=Ř=T>ś>?x?ä>ž?ţBNBœBôPQňBw h÷ şűEuBľ ľAÁe„uÁeOuő%UU€ő•"wMe÷ 5 Á%&ƒů x6 ÷ ÷ |5 :ueý ýą‡÷V˙˙ 5 ŔŘ÷ AÁeÂjŠÂ ýőUU€ő‚÷ ˛BÂeXľPCĂeLňň ÂeľVĂeňň ň•0 BCĂeŔ“”Ŕ ýÍU÷ ÷ ÷ P÷ ^÷ ČÍE‡÷ ő•˙ ÷ D ÷ äBÂe$Ŕ•R”Ŕ ýÁ•÷ Á ű÷ &÷ Â5*Â5ő%„ Ŕ6ő„ ő‹ő ő%P őP ő Ŕţ5÷ NŔ6Â5Ŕ6÷ <@ŠÁŔĽA- 5 BÍ5Â&ŕľB@mBAmBu ‚Ä ŔÔ5÷ öŕ ŔU÷ .Ŕĺ5÷ ŕÁ ú÷ ä÷ @50÷ <‡÷Śö˙÷ő•÷ ^ůŔÎ5÷ ŽŔl9÷ Ś÷ †Áƒ9÷ ~ ‡ R ľ u Ŕ†9÷ €÷ `ÁŠ9÷ X ‡Á5ő•ő• ÁĽ ő… ő ÷ ÚřŔĽcű‡›7›[H›[24B›[132C›[6n›8€[›[c€[?÷ Źř@¤ ɋú÷  ;B÷ Ąą‡ ÷ †ř 0 ‡ 9 ‚fÁ Á eÁ Ŕĺ0`ď‡÷ @ ţ˙w*÷ 2Ŕ%˙˙@mB÷ ř÷ ÷ * ÷ <ď÷ 4÷ dÁ úč‡÷  ý˙wę@0Ŕ Ŕ €`÷ CĂeÔő2Ŕ`54Ăĺ ÷ ŘÄ b÷ ¨ ŔEŕ˙Á@t0 Á t0 ěĚ5ÂÁ÷ ¤6ÍU& ‚ ÷ ”Ä t0 Ě5ćNíB­& ÎEŕ˙€% W @&÷ ¤„÷ .݁&Dô5@ ÷ đ$¤D„Ś ÷ "‡K‹ sÁe ô‚Ŕ ńÖ œĂeő 4wę‡÷ĆÄ D4÷ œ÷ ŢŔ%˙˙56 < (÷ ü‚ ÷ Ŕ űfÄe &Ŕ•4Ŕ üŒ÷  Ě5 ĚUô5@ Ŕ÷ ¸ŔeÔ”P   üŠ÷ ƒ ĂE‚ÂŕľŕÖ ‡Ď  ҁ ”Á ý‡÷Äe• ŐD` ű„ ÄEó5@ Ô ‡÷ †w KmB3ô‡ĂeC-4‚ą‡÷ î ü˙wŘB6ƒ ÷ ŘŔ%˙˙Ŕ÷ ú‹ RÁRÁ÷ ܐÁ ű÷ Ü÷ ʐÁ űá÷ ľ8‡Ŕ•0÷ ş‚ ‡C2ő 4UA8B Äô5@ ÷ ł` `÷ R˙ď†D4ô5@ /÷ Ź˙Ŕ•÷ j÷ ěţ Ě €Ô&”f Ä m÷ ĐţŔ ú€÷ >Á üĂ€•łÄmĂeÁ öŔ óÖ ÷ œţ5!6ȇÍU÷ DÍE‡5`u-‡‡÷*ţ˙÷ ě  ÷  Á t ÷ –÷ 4‡÷ zÄô5@ &÷ 4ţ‚2 ü˙„÷ ÷ bţꆇ÷0Âe ÔB` Ô÷ D‡÷ .÷ 2@Ô÷ ÄŔ  @ŕ÷ B`÷ ś˙÷ ţ톇‡  ‡Ś ҋ ü‚‡÷ ŕ˙ő%UU€ŔÎ5÷ hu A ÷ ‡ËĽ* ÷ :0đeđ÷ ŘL=‚ đ 0 ÷ ú1‡÷îó˙÷ hÄL=‚÷ lýó‡÷‡÷ <÷ Ţ˙÷ Č ÷ Ü  lŔ ô÷ fń‡1@÷ "B8° ° ‡Í5‡÷ˆí˙÷‚ô˙C2ő 4ř‡÷ Ü˙C@÷ x˙ÄL=‚wd˙÷ TŔ  lÍ5ďC@ń ÄĂďƒ ń1ńe1 1‡÷ Öđ 0 ‡ě?ŞH4HŞHŕABt@bA€@ň@W ‚W †C@ĽÄ&Á ů Š?ž‡€L=‚ő@0đeÂď‚ °‡÷ ď˙÷ R†ýĄ‡ˇŢ@2"Ŕeűć÷ 8ô5@ ÷ ‡÷^ň˙÷ ¤ű‡ˇœ& ÷ ć˙ Üú˙ŔÄL=‚ĂeÁ ÷Ž Ăƒlü˙÷ Œ˙ ‡÷ ž˙÷ Â˙†‡÷ ’˙˛ ü˙˛Źü˙ű˙đ ň ü˙œű˙Á ÷ 4&Ŕ@`Á’Ŕ÷ Ŕ÷ 6Ŕ6÷ č÷ ä÷ 2˙€÷ ä÷ j˙Ą‡w .€ţ˙ƒ`Ň”Ä ýÁ ú‡÷ ˙ň ü˙đ ň ü˙œű˙÷ .&Ŕ’@`Ŕ Á’÷ –Ŕ÷ Ě Ŕ6÷ ~÷ z€÷ ~÷ ˙Ą‡w Č€ţ˙C`Ă ýÁ ƒŕŁ˜Ä ýÁ ú‡÷ °ţćŚ÷ Đţ‡÷ ~˙ƒ‚ Üú˙ĂeÁ üÄL=‚ĂĺřĂƒlü˙÷ XţĄ–5‡Á@ € &Ŕű5÷ ě @÷ l Ŕ•;÷ Ź €÷ ^ Ŕ•r÷ ž 5 :‡÷ 2ţ÷ ‡w ÷ <ţĂĺő 2 ‡ÄL=‚öö6 ‡÷ ţ÷ ‡w ě÷ ţ Üú˙÷ ŞůÁ ü D-6‚ąL=‚ó66 ‡÷ Äý° Ăƒh÷ žýđ ÷ Öý†w–üB@ʢ„ƒ÷  ű ř ő1‡w j÷ rýĂƒlü˙÷ Ný÷ ‡w RŚœú˙÷ Rű €ŐfÎ #Nŕ÷ @B`÷ ÜúĂeÄŔ ěÖ ‡÷ ý°ţ˙ ‡C6Â#„ ‡Ä Á ÷ š †Ăe ÄÔa ôÁ đ0 Ăeđ” đ ‡÷: ń˙ˇˆ÷ °űD4Ń ÷ R†÷ fřD-6ö‚ô5@ ć÷ ¤üƒü˙ô5   ÂEŕ˙ ‡Á C`÷ Hü‡÷Đ ő˙w JŔ•”÷ „B”÷ „ Ŕ őą‡— a— zÂĺ ‡Ŕ• Ě5@Ŕ•0‡ŔĽ!‚ 0‡ŔĽ:‚ A‡w ě ÷ FĚ5 ÷ @DV÷ 0ƒ„ Á ŔĚ5”Á ýmB` ˜Á ý÷ ‡÷† ÷ ‚˙ÁÂ ý‡÷n Ě5AÍ5ôĽ ô‹ ÁŃĽ  űÁeBÔ)@”÷ B˙‡Â ú" ÷ ZŔ÷  ÁÂe Ýô‹€”÷ ˙‡@”÷ ÷ p Ă ň÷ ‚ ‡Ě5@ŔĽ  ‡1457÷Ä 5 +5Ŕ•Ăľ@Ŕ•Ž÷ , Ŕű5÷ V Á EŔ•0÷  Ŕ•;B”C´ü÷  €ôŔ•m÷ ü ĂľŔ 6÷ ‡f Šő@÷ ş  ÷ †˙Ě5 ÷ T÷ 0É ü‡Ŕ ú ÷ ŽŔE€‡÷  BVfP„÷ $÷ Á%„I!t-<„ďÁ%JÁ%(J„ ő <„âÁ%(G„#t-<ŔĽ.ĺÉ Ŕ ×C@ÄÁ%âJC@ÄÉ Ä&C@ÄÉ Ŕ „˝Ö Ö wN˙÷‚ Áe BÔ ŃĽ.€  úAPBV1 2 ÉUÉE€ ĘU@ĘE122ŕA‚ÉĘ&€ Ŕ `Ŕ1€e2‡Á!6Á ÷ Rë  Q$É űAÁ5óĂ W jIW üJ W ¤KÍ5W öJÁ^I‡ˇ˛ ÷ Üj‡÷ źü&ÁÍ5/Ě5÷ z)†m! YBí< q˜ ü‰÷ ý÷ .'  GB<D Qœ ü‰f:÷ čü€÷ ˆt-<0Am<€ ÷ XýĚ5÷ ´÷ ŢĚ5€t-<Ě5ťŁ÷ ‡ö€ô5@ ÷ ´Ŕ%€6ÍUÖ ‡Ö ÷Z2QĚ5 Ŕ 0ô5  P @‡÷63Qw Ň Ŕ€ô5@ Ŕ€Ăĺő 2†ń5@ $ÄL=‚ńŔ%€ô5@ &÷ °÷ƒƒlü˙÷ t÷‹ŻŔ€ö6 6Ą‡÷Ŕ4Qw \ ÷ J"‡Ŕ€ń5@ Ŕ€÷ Ró†ń5@ ÄL=‚óţ˘Ŕ€ö6 6Ą‡÷j5Qô5@ ÷ đ‡÷ Řř‡Ŕ€‡÷J6Qô5@ ÷ Ї÷ čř‡Ŕ€‡÷*7QŔ €Ŕ€ô5@ ÷ Ś‡÷ 8QŔ•÷ Ć豇 ÷ ĘčĂ ÷ €‡Ŕ€‡ˇVt-<÷ T‡÷ ‡÷Č9Qw dB>‚ ľ <t-< Äe Ő„`•÷ 8ú†‚ úw 4B>ő <Äe Ő„`™÷ ú†Â ú ľ>ÂŔ€`÷ ‡ő < ő <÷ Ňľ <‡÷ ˛˙‡÷B:Q÷Ćő <G÷ źůÂBm< Í5%Ě5A<Á ˛˜Á ü f:÷ ú€÷ ş&÷ T†Aí<’œÁ ü ÷ öů÷ D˙Ě5š÷ ,ś‡ ÷ 0˙Ě5 f:÷ ^ú÷ Ŕ€÷ lÍU‡÷¤;Q÷(Á`!  üB-<‡÷  ÷ .ů÷ ÍU‡ŔU€‡w Í5Ă ÍUÂe ÔB` ÔB` Ô÷ DĄ‡ÍEf:fBAÁe*BŔ•ŇĽ Ŕ ű÷ JÍ5„÷ tě÷ rîÍU ÷ ä÷ nűÁ%üJŕÉ ů‡Ŕ ô€ľBÍEAÁe÷ ,Ö €÷ Š‡÷ĆĘ ‰˘Âeů’$ú ‡÷ ‡‡÷NQ   A‡ŔĽZ† a‡Ŕ%z‡÷ ‡‡÷âbQ 0‡ŔĽ9‡÷ đ˙†÷ ž˙‡‡÷ÂsQ÷FÁĂ- + Ă+ -  .   Ń  úĄ÷ ¤˙‡‡÷|‰Q  ‡÷nĄQ÷ň÷ îőÁ  ƒ  űĚ5Ă Ě5Ă ô Ą‡÷.ťQ÷(ĎQˇ˜C2ÄL=‚÷ ¤˙‡Â÷ źíô†ƒĄ‡Í5€ fŚÂ÷ Śď÷ ňý÷ Ţú‚ƒą‡ýÓ ƒF5 : ÷ ˆö÷ čueą‡w Vő%UU€ŔÎ5÷ ćÂ÷ TďÍU@÷ œý÷ ˆú ÷ xý÷ řÁ%jIÁ^IÉ ÷‡‡5 :&Ŕű5÷ Ş€“÷ *Ŕ•;÷ j €Ý÷ Ŕ•H÷ Xľ:‡÷ Ć˙÷ `‡w Ö ŔĺdŔ•1÷ 0‚ CÁĺ € ú Ŕ Ŕe0÷ ŔŔe0÷ ‡ľŠ;ŔŒŒ=ľ u- ‡@Ŕe„5 ý•€5÷ tâ‡f@”ŔŒ€ ÷ ž˙ů‡wlçwhç÷žţ÷˙÷ ÍEŚ)€÷ xô‡ÁĚ4BĘ ď",Áeő‚’$ľFőĺFľJ–%‡÷vţř˙÷ Ď őEFöľ JőEJ@JőeJőĺF‡ő Fĺ @ßJľ Jő F‡÷˜÷ ‡Đ Áe÷ ‡÷‚ & ÷ ÷ ÷ Ö ą‡Ă Ă bĂ Ă Ă ö $B”÷ <óf&ÄćP Œ ‡´ †ăÂE€˙Ba & •& •Žĺ…ĺ̋îąÂ•„…v ƒ`ȇ !A[$%././0:ŔđăđUőE ‚‡ŔŢăđEőU ‚‡őU ‚ÁĆăń5őE ‚‡NO HELP AVAILABLEALPHABETIC REQUIREDNUMERIC REQUIREDALPHANUMERIC REQUIREDSIGNED NUMERIC REQUIREDNON-DISPLAYABLE CHARACTERFULL FIELD REQUIREDINPUT REQUIREDf&Ś‚Ţ €‚‡Śf&ćƒŢ €‚ƒ‡&ćŚf&f… Ţ €‚ƒ„…‡Ő @DB Ś÷ "‚RĹ ůŔ‡Ő DĹ÷ f÷ €‡ć Ĺ Â˘RՀ¤‡€¤‡Â ÂeĘ ÷ C €bÁ Á Á @`Á Á `Î ä€Ö ‡Z@Ŕ˙9/î˙ ŕ˙$#÷˙.-î˙Ő ADEĂSă űŔ˙˙Â%˙ů ‡€ Ââý†ÂbŔ Ŕ%‡Ŕe ŔeŔe Ŕe Á ä‡(@5 xa÷ 6÷ î÷ ő5€ őUxaőExaW-žőExa÷ ÷ Ź ‡Ä&uî†aő †auěˆaćˆS5 |aő ˆaŢ Ô ő ˆařÖ ÷ Nő †ač‡Ě Ţ Ě ý€÷ T 7ŕ Ţ 4­˙˙ ÷ @ř7 Ě Ţ 4­˙˙űć÷ ă      ő |a&5!|aƒäE€ú„5 |a‡ĂÂTĂ ŁĂ úĂ ‡9ACNXÄ&CŇ2ĂeÓţ˙uî†aő †a uěˆa÷ ő ˆaűő †a ÷ Ţő †aî÷ އ Ě Ł ̋Ě5÷ Š÷ „Ô ő ˆa=4­˙˙0Ł ̋(Ě5"Ŕ #  1­ AˆaÁĺŔ `Á  ÷ R Ń Ŕ â÷ @÷ :  Ô ő ˆa÷ .‡‚ Ś÷ Zľ“ÂÂEđ˙“őaӕ‚“‡˝Ša“‡Ă5Š‡Ó˙˙őÔ2‡CŇ2BÔ2ÂŕÂ峇ýý˙Ô2őeÔ2Ä&őExaőE@xaőE€xauî†aő †aő †a5őExaőE xaCîCí†aĂ Ă Caó5řőUxaőExauěˆaő ˆa÷ :ő5 öő5  ő5xa÷ lő5 ő †aČý˙˙Ô2őeÔ2‡ő5xa Ě5€# őUxa5|a 4­˙˙Ł ÷ őUxaő5xaÔ ő ˆaőExa‡÷ bśő5 2÷ bu-Đ2Ň2‡ő5 ÷ ´uÔ2’aW-žő5xaő5xa÷  C‚aó5€ ÷ đ÷ N÷ °őExau’aÔ2‡@Ô20 0 0 Aí|a pA|a÷ €ł°A|aÁE˙đÁp ÷ ‡CÔ2ĂeB|a5 Œa5 za„ —˘!—˘/ľ Œa —˘:—˘@ľ Œa÷ “’Ň çCÔ2 ÁÜAíŒas÷ d‡Á–W‰˘ɋŃ YQ$řőUza‡őUza‡őUza‡őUza‡őUza‡ő˙˙za7 RŮbc‡9`WAhWCpWNxWX€WˆWCÔ2BzaÁ Á  †€ Á ů óU ő5zaóU ő5zaóU ő5zaóU ő5zaóU ‡AĐ2BÁelŃ őExa W"˙˙2BÔ2ń5Ŕ *ń5€&r,"r,rŹCÜÂe@ŔeĂ ¤Ă úĂ BÔ2ąœ őUxau‚aAbˇÂXbC|aÄ Ňע!ע/ ע:ע@Ë_ËU@Ó ë u|aŚ5¨÷ P°‡C|aÂXbĘ ‹ÓU@úu|aŚ5¨÷ ,°‡Ă”aÂÂU÷ ąőŠaő ŠauěŒaő ŒaW˘ ÉU@É5ÉU@Ń ő Œaîő Šaĺ‡őŠaŔ”aÂU÷ ą7 Ž×ˆ ő Ša 7 ‚× 7 |× ő Šaô‡÷ ÷ :÷ $őE@xa÷ ző5@xań÷ Ô‡ő5@xaĂ”aó¤aóśaäaóŹaó ó˜ Ă”aA|a÷ p°ľ °s°ő5€xaő5@xa÷ ţţ÷ H˙ł Ŕ”ađ÷ ‚ÜőU@xaőU€xa0óő5€xaő5@xa%ő5@xas°÷ ˙ő&Śuö¨÷ ĚŽ÷ žţőU@xaőE€xaó÷ ÖţŔ”ađ÷ Ü÷ ţŔ”ađ ÷ Üő5xa÷ Ŕ”ađ÷ čŰ,nőž÷ ţ‡Ă”aĂ B’aÁÁe÷ ˘ąňňňňœ ňE@ ňE ňEÁÁe…÷ ~ą×Ź…H׏…V ňU ׏…VňU÷ ÷ F÷ ˆ‡ćŔfaÁTaő Šaő ŠarBƒćdfÁ÷ $ąעYrRő ŠaŃ ęƒ‡ŔŔeEő<Šaő Ša¨ ő Ša÷Áe @Ô`ŔŔe ŠQ݊aő Ša”ő Šaů‡ŔŔeő<Šaő Ša¨ ő Ša÷Áe @Ô` @Ô`ŔŔeE ŠQ݊aő Ša”ő Šaů‡C’aó5ó5  ó5 óEőU@xa7 źÔ‰cő5@xaÂÁÁe@”ŔE˙`B˘ƒőU@xa7 ’ÔÁcő5@xaó5@ ׏ 0 őU@xaó•0 7 hÔÜcő5@xaó5@  ÂEŕ˙— óE@ ó5@ ó5 őU@xaóE 7 "Ôůcő5@xaó5 ÷ ‡B|a—˘9őU@xa)Ň ÁőE€xaÁ !—˘9—˘.őU@xaő5€xaőU@xa W őU@xaőU€xaŇ Á Ýő5€xaőU@xaő5@xaóE 7 †Ód‡B’aňU€ Áe @Ô` @Ô` @Ô`Á5ŠŕŃ JB`rţ˙ľ’a‡ő5@xaC‚aC’aő5xaóE óE@ ÂÎaňňňňœ ó5 ó5ň•V…ň•H…ň•N…ŔfaÁTaŚő Œaő Œa‚Śds4ʕYʕNő Œaď‚÷ Ŕ”ađÎa đ‰ đ ÷ (؇ő5@xaC‚aC’aÂÎaőxŒa€Ŕe ő ŒaЕ ő ŒařÁÁe @Ô`5 ŒauԌa€Ŕe ő ŒaP”ő ŒaůuԌa€ŔeEő ŒaP”ő Œaů‡A‚aÂŞő5 Áef÷ |­ĂĂ R$Ă úĂ ÷ húőE ÷ ÷ ‡A‚aB’aCĂ RĂ ű÷ luo‚a’a‡B’aő5xa÷ ˆ˙(rHarJarLaň• rNa rPaƒĂe ÁÔC`ŠŠĂ5ŠCí’aÓ ý’aÂ`ňţ˙ľ’a‡ő5xa÷ €őExaőU xaC’aő5 xaóE` óE W-„aƒóU@ s]„a óE@ ó5 ÷ ‡CÔ2Â÷ Şu~au€aőŽaő„a÷ <óE s]„a ‡CÔ2ÂÂE˙ÂU÷ Ίu~au€auěŽaő„a÷ ‡őExaő5xa:5 ŒauŽaŒaA~aumđ€aB€ać&ő Œa CĂEŕ„ÄEŕÄ ő Œaň„ƒő Œaľ „auŽaŒaB€aő Œa —˘ ĘU@ŇE€ő ŒaóőUxa‡CŇ2BÔ2ÂŕÂĺÂěłÂÂeÂlŇ  —"˙˙ň5 ň5@ € ŔEŕ˙` ‚běs‡ €@ †‚ƒ‡ˆ„ATTFRMźaÎaźaLogic error - bad field data character€Right justified is illegal for field with mixed picture€Default too long for field€Clear character '0' required€Arrays not allowed in scrolled area€Invalid picture for fixed decimal field.€t ](  ‡.îé˙˙ţ˙ Name :Right Just (Y,N)&Clear Char (chr):Zero Fill (Y,N) Default : Help :Auto Tab (Y,N)Resp Reqd (Y,N)'Must Fill (Y,N):Fixed Dec (Y,N)Indexed (N,H,V)Disp Only (Y,N)'Echo Off (Y,N):Supv Only (Y,N)˙˙ý˙2FLDNAM  €CXXXXXThe name of the field2DJUST $ €€AN+N for left justified, Y for right justifiedD>CLRCHR7 €€X&The char to be displayed for fill char>:ZROFILJ €€AN!Y for zero fill, N for blank fill:jDEFALT _€<ECHO 7 €€AY%Y for echo field, N for no echo field>BSUPR J €AN)Y for supervisor only field, N for normalB˙˙ü˙˙˙ű˙ őUčXW-žőEčX÷ ÷ ‡őUčXW-žőEčX÷ ‡ő5čX*ýü˙Ô2őeÔ2ÁYńYń ń˜ ŔđXpđ Y0 đ÷ ă÷ ÷ –ý˙˙Ô2őeÔ2÷ 4‡u-Đ2Ň2ő5 8@Đ2ĂellÓ ŔđXđ×"˙˙&ŔđXđ đ đ đY÷ ¤âĂe0 đ” đ đY÷ Šâ ÂÜ˙˙ƒ`ƒ ĂE° ׇŔđXđ÷ fâ5 ęXőěXő ěX÷ X¸ő5 AęXÁeBő<îXő îXW¨ ő îX÷÷ ő ěXőeBęX߇AÔ2@ęX ¤  ů @ęX ” ű ŠQÝîXő îX”ő îXůÁ5ŠuÔ2‡BÔ2Ňü˙u-Đ2Ň2ő5 '@Đ2ĂellÓ ×"˙˙÷ –ˇő5 ŇŇŇ5 îXőŇîXҔő îXҔő îXůĂ5ҔăŇ˙˙ľÔ2‡BÔ2Ňű˙ľÔ2CŇ2ÂೇÁYńYń ń˜ ŔđXp÷ pő5@ ÷ 6ˇ÷ şŔđXđY0 đő5čX÷ ęŕ÷ ‡ő5@ ÷ ŽŔđXđ@Z đ đ ÷ žŕuÔ2Ň2őU@ ŔđXđ÷ ˘ŕđ% đDV đ˙˙ đ÷ „ŕé ÂŃĽ „~ŃĽ „~÷ ؇7 ŔÚ\ZŐILLEGAL INPUTuĐ2*YfĹ&Y÷ Tü…CĐ2Â@Zňňň ó5ň•Y ň•N ó5ň•Y ň•N ó5ň•Yň•NÄ ŔE˙ÂOZĂ÷ ŕ ŔŔE˙ÂQZĂ÷ ĘÂSZĂ÷ ş€ ÂWZĂ÷ ¨‡ĂđXÁ ÷ dľő 2YuĐ24YfĹ.Y÷ řú…BĐ2ĂđXĂ ňňň Á Á`÷ 4ľ2 W¨YňUÁ Á`÷ ľW¨YňUÁÁ`÷ ľW¨YňUňEÄŚÁaĂ÷ ą ÁaĂ÷ ą Ö @ 1  †ŔŠ ‚ŔŔŠ ‚‡ń ‡BŇ2ő5@ CĐ2ňňňňň ňňň BŇ2÷ Ú2rćXň˙˙‡uĐ2*YfĹ&Y÷ Zú…AŇ2IÎ2IŕÂYrCĐ2ŔđXđ@Zđ÷BÜ÷>Ü÷<ÜőU ÷ ކ1 őE ň˜ s‡Á6Y÷ ’ŘÁeÁŕR”Ă ý‡Á`f’ ŠfÁŕ÷ Ň×÷ bׁ‰•‡NDATFMFWFORMDATNAMDATA $Y@Z$YEmbedded spaces illegal in form name€)`  ‡.ţě Ő˙˙ţ˙Form Wide AttributesForm Name :Help Form Name :Reverse Screen (Y,N)Current Screen (Y,N)Wide Screen (Y,N) Starting Line (1,23) Ending Line (1,23)  Impure Area .bytes  Form Size .words˙˙ý˙0FRMNAM- €CCCCCCName for this form0:HLPFRM- €CCCCCCHelp form name for this form:>REVSCR2 €€AN%Y for light screen, N for dark screen>NCURSCR2 €€AN5Display 80 column form using the current screen widthNHWIDSCR2 €€AN/Y for 132 column screen, N for 80 column screenH6STRLIN 1 €€99 1Starting line for this form64ENDLIN 1 €9923Ending line for this form4 IMPSIZ ) €XXXX???? FRMSIZ ) €XXXX???? ˙˙ü˙˙˙ű˙!Xý}< ‡.|œ ˙˙ţ˙Named Data Entry FormName#DataD|----| |----------------------------------------------------------|˙˙ý˙6DATNAM °XXXXXXName for named data item6bDATA  °<ţő źő ź÷‡őUÔeőfuěfuěŕ÷ Œ­ÂE˙ƒĂ Ă CaőřâÂU÷ B­uěÚeÂäő ÚeRő Úeů‡ő5ÔeőUÔe÷ @ý ‡÷ Ju-Đ2Ň2ő5 ÷ öţő źő źěőEÔeő5€Ôe÷ Ř ő5Ôe÷ NőU  ‡÷ đŹÂE˙ƒĂ Ă CasâřÂU÷ ŚŹuŕÚeÂäő Úe ‰"‰ÉU@R$ő Úeô‡÷ ŹŹ Đu f+uŕÚeő ÚeW˘ Ń ő Úeöő ÚeÂäuŕÚeő Úe‰ŃU@ő Úe÷ 7 ÓOfőU őU   7 đŇtfőU őU  ‡÷ 0Ź Đu f+uŕÚeő Úeá W˘ ő Úeöő ÚeÂäuŕÚeő ÚeĄÉU@ő Úe÷ 7 ˆŇ’főU őU   7 tŇśfőU őU  ‡÷ *úŇ — &‡ľ ô†„őU  ‡őEÔe÷ "ő źő źö‡őUÔe÷ ő źő źö‡÷ ŕůő5ÔeŇ ő ¸Bíđ„ ő ¸BíđBmđ— &‡ľ ô†„őU  ‡Ä&‡Dôä ‡Díđ!&†DmđőU   7 ŚŃř_őU  ő źő źé‡Dmđ5!ô‡DíđőU   7 vŃü_őU  ő źő źé‡÷ .ůÔ !ƒä őU   7 HŃ`őU  ő źő źę‡÷ ůBíđä !‚Ô őU   7 Ń`őU  ő źő źč‡›[A€›[B€›[C€›[D€5˘őU ‡5 ˘őU ‡ő ˘5őUÔeu˘ęe5ěe÷ üő5Ôe&7 ´Đ 7 ÖĐÓfőU ÷ ĚŞÁŔĂh4÷ ‚ĎË ő5Ôe ÷ Lő&Śuö¨÷ Ź¨  wĆőÖőU  ‡Ŕ‡Ŕ‡Ŕ‡Ŕ‡Ŕ‡őEÔe‡uúećeBîeő ćeuüeÚeƒő ÚeËU@Ŕ ËU  P@ő ÚeîBmđő ćeâ‡÷ JŠÂE˙  ňUř‡÷ 4ŠÂE˙  ňEř‡5 ś‡őś‡5 ş‡őş‡5 ¸‡ő¸‡ÂwîôÂwćôőž‡őž‡őU  ‡÷ ˆŠÁ&u ö †W˘ ÉU@É5ÉU@Ń đő&Śuô¨÷ r§7 :Ďú ‡ 0 9őU &÷ "€÷ BŠ&7 Ď ÷ € w\ô÷ €˙‡7 ĎŰfőU ‡ĂŔ ő ´   B` Á”ÁEđ˙B`ő ´ńľź‡ő ˘l@¤5¤Ŕ ÷ žőRłęe5ěe÷ Ü@đe@íîe5fuŇ2"fuÎ2 fuí"f f Aúe@müeÁ üŔ 5 fƒőU  5 ¤‡÷ :ů×"˙˙ó5@ Ŕ5 f ‚5 f ‡Ŕ5 f‚5 f‡óU€Ăbĺu¤fuíîefCúeAîe@"ffBüePŃ @ űAmđĂ óuúefuüefőU  ‡ő ¤[5ęeuífęeuęeěeumfěe÷ úu-fúeu-füe÷ ¤W-îe&‡u-đeô‡÷ AfÁ Á Búeń5ř÷ bŃ Â ÷AîeCúefBüeW˘ Ö ÷ BŃ Â ÷AmđĂ ď@"fAîeCúefBüe ŃU@ űAmđĂ ó÷ r÷ ‡ ÷ Úüő&Śuö¨÷ :Ľ7 ÍäfőU őU  Ö ‡÷ Ę÷×"˙˙ó5@ ó5€óE€óU@ Ăbí‡u-ęeěe ƒuěeôeuěeřeuęeöe uęeôeuęeřeuěeöeAôe÷ 꼾ôeAöe÷ ŢĽľöeBôeľfÂľfBöeľfÂľf÷ "ufúeuífúeľ úeufüeuífüeľ üe‡u-ęeěe†u-ffuęeîeuěeđe÷ B u-ffuěeîeuęeđe÷ &Aîe÷ RĽľfÂľfAđe÷ @ĽľfÂľf‡BfÂBÝf÷ ö¤uîeBfÂBÝf÷ ä¤uđe‡÷ Nu˘ęeu¤ěe÷ Úţ÷ xö×"˙˙Âó5€óE€ÁŠÁŠÂBmfAmfÂBĐłĂbä‡A¤÷ ´¤ľ fÂľ f÷ ¤¤5 fľfÂ5 fľfuí ffuí ff‡‡Insert not allowed€Insert line not allowed€Cannot overwrite non-blanks at right€Cannot overwrite right margin€Cannot overwrite non-blanks at left€Cannot overwrite left margin€VIDEO: €REPEAT: €Cannot paste over margins or non-blanks or in scrolled area€ .TITLE FDV - FORM DRIVER KERNEL .IDENT /V01.02/ .ENABL LC,GBL ; ; ; COPYRIGHT (C) 1979 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ; TRANSFERRED. ; ; ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ; CORPORATION. ; ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ; ; ; ; MODULE: FORM DRIVER ; ; VERSION: V01.01 ; ; AUTHOR: Cheryl Vedoe ; ; DATE: 18-January-79 ; ; MODIFIED BY: ; ; Darrell Duffy ; ; 29-January-79 Transport to RSX-11M ; 4-April-79 Make minor edits for problems in scrolled ; field terminators and exit scrolled field ; downward. (SCFRWD,SCBKWD,EXITDN) ; ; JPD ; 8-May-79 Added FE$STR error code for BASIC+2 ; ; Cheryl Vedoe ; ; 29-Aug-79 Edit to fix problem in MOVLFT routine. ; ; JFW ; 21-Mar-80 changes to code referencing I$ADVO in SIZSCR: ; per Cheryl V. ; .MCALL $ARTS $ARTS FSYM$ ; DEFINE FORM SECTION ID'S .SBTTL EQUATED SYMBOLS .IIF NDF VT10$0, VT10$0 = 1 .IIF NDF MEDI$A, MEDI$A = 1 .IIF NDF FIXD$C, FIXD$C = 1 .IIF NDF DEBU$G, DEBU$G = 0 .IIF NDF SCRO$L, SCRO$L = 1 ESC = 233 CR = 15 LF = 12 BKSP = 10 TAB = 11 DEL = 177 SPC = 40 CTRLW = 27 CTRLA = 1 BEL = 7 SI = 217 SO = 216 PATTRN = 52525 CDSECT C$DBLK:: .BLKW C$LBLK:: .BLKW C$DBUF:: .BLKW FT$NTR == 0 FT$NXT == 1 FT$PRV == 2 FT$ATB == 3 FT$XBK == 4 FT$XFW == 5 FT$SNX == 6 FT$SPR == 7 FT$SFW == 8. FT$SBK == 9. FT$KPD == 154 PSECT $FDARG, F$FNC:: .BLKW F$REQ:: .BLKW F$NAM:: .BLKW F$NUM:: .BLKW F$TRM:: .BLKW F$VAL:: .BLKW F$LEN:: .BLKW F$ASIZ:: PSECT $RQARG, F$STS:: .BLKW F$CHN:: .BLKW F$IMP:: .BLKW F$RSIZ:: PSECT $FNCOD, FC$CSH:: .BLKW FC$SHO:: .BLKW FC$OPN:: .BLKW FC$CLS:: .BLKW FC$LST:: .BLKW FC$PUT:: .BLKW FC$PAL:: .BLKW FC$GET:: .BLKW FC$ALL:: .BLKW FC$ANY:: .BLKW FC$RTN:: .BLKW FC$RAL:: .BLKW FC$TRM:: .BLKW FC$DAT:: .BLKW FC$GSC:: .BLKW FC$PSC:: .BLKW FC$SPF:: .BLKW FC$SPN:: .BLKW FC$SLN:: .BLKW PSECT $SUCOD, .BLKB FS$SUC:: .BLKB FS$INC:: .BLKB NEGCOD $ERCOD,INIT=1 NC FE$FCD,GBL NC FE$IMP,GBL NC FE$FSP,GBL NC FE$IOL,GBL NC FE$FLB,GBL NC FE$ICH,GBL NC FE$FCH,GBL NC FE$FRM,GBL NC FE$FNM,GBL NC FE$LIN,GBL NC FE$FLD,GBL NC FE$NOF,GBL NC FE$DSP,GBL NC FE$NSC,GBL NC FE$DNM,GBL NC FE$DLN,GBL NC FE$UTR,GBL NC FE$IOR,GBL NC FE$IFN,GBL NC FE$ARG,GBL NC FE$INI,GBL NC FE$STR,GBL PSECT $LNCOL, L$LNCL:: .BLKW L$RESP:: .BLKW L$FDES:: .BLKW L$CLSZ:: .BLKW ORIGIN $FLDSC, D$ATT2:: .BLKW BSECT $AT2BT,4,INIT BS D2$VRT,GBL BS D2$DEC,GBL BS D2$ZFL,GBL BS D2$TAB,GBL BS D2$DIS,GBL BS D2$RTJ,GBL BS D2$REQ,GBL BS D2$FUL,GBL BS D2$NEC,GBL BS D2$SPO,GBL PSECT * D$FID:: .BLKW 3 D$LNCL:: .BLKW D$VATT:: .BLKB BSECT $VDBIT,,INIT BS DV$UND,GBL BS DV$REV,GBL BS DV$BLD,GBL BS DV$BLK,GBL BS DV$DWD,GBL BS DV$DHW,GBL BS DV$GRA,GBL PSECT * D$CLRC:: .BLKB D$ATT1:: BSECT $AT1BT,5,INIT BS D1$ARY,GBL BS D1$SCR,GBL BS D1$COM,GBL BS D1$SNM,GBL BS D1$ALN,GBL BS D1$ALP,GBL BS D1$NUM,GBL BS D1$MIX,GBL PSECT * D$2ATT:: .BLKW D$RLEN:: .BLKW D$FXLN:: D$PLEN:: .BLKB D$PICT:: ORIGIN $IMPHD, I$IMPA:: I$FDST:: BSECT $FLDST,,INIT BS IS$ALT,GBL BS IS$HLP,GBL BS IS$INS,GBL BS IS$SGN,GBL BS IS$DEC,GBL PSECT * I$FMST:: .BLKW BSECT $FRMST,10,INIT BS IS$MED,GBL BS IS$DSP,GBL BS IS$HFM,GBL BS IS$SCR,GBL BS IS$CLR,GBL BS IS$LST,GBL BS IS$ERR,GBL BS IS$NMS,GBL PSECT * I$ILEN:: .BLKW I$ALLC:: .BLKW I$SVST:: .BLKW I$STAT:: .BLKW I$LLIN:: .BLKW I$LCOL:: .BLKW I$VATT:: .BLKW I$LVID:: .BLKB I$ADVO:: .BLKB I$STKP:: .BLKW I$BEND:: .BLKW I$BPTR:: .BLKW I$FCHN:: .BLKW I$FIXD:: I$BADR:: .BLKW I$BSIZ:: .BLKW I$FORM:: .BLKW 3 I$CFRM:: .BLKW 3 I$HLPF:: .BLKW 3 I$NFLD:: .BLKW I$LNCL:: .BLKW I$FDES:: .BLKW I$NDAT:: .BLKW I$RESP:: .BLKW I$CURP:: .BLKB I$CURC:: .BLKB I$ROFF:: .BLKW I$FOFF:: .BLKW I$LPTR:: .BLKW I$LINE:: .BLKW I$FBLK:: .BLKW I$NBYT:: .BLKW I$FSIZ:: .BLKW I$FADR:: .BLKW I$DLN1:: .BLKW 2 I$FXD1:: .BLKW I$DLN2:: .BLKW 2 I$FXD2:: .BLKW I$FDS1:: .BLKW 10. I$FDS2:: .BLKW 10. I$PATN:: .BLKW I$DISP:: .BLKW I$HLEN:: .BLKW I$PBLN == 80. BSECT $CTLBT,,INIT BS CB$TST,GBL BS CB$132,GBL BS CB$CUR,GBL BS CB$REV,GBL ORIGIN .FDV. .SBTTL MACROS .MACRO ESCSEQ ADDR .IIF NB,ADDR, MOV ADDR,R0 CALL ESCSEQ .ENDM FDV$K = 1 .IF NDF,FDV$K .TITLE FDVERR - FORM DRIVER KEYBOARD ERROR MESSAGE MODULE .IDENT /V01.01/ .ENABL LC .IIF NDF VT10$0, VT10$0 = 1 .IIF NDF MEDI$A, MEDI$A = 1 .IIF NDF FIXD$C, FIXD$C = 1 .IIF NDF DEBU$G, DEBU$G = 0 .IIF NDF SCRO$L, SCRO$L = 1 .PSECT .ERR.,D .PSECT .DBG.,D .ER.N = 1 .MACRO ERROR TXT .PSECT .ERR. .IRP N,\.ER.N $ERR'N:: .ENDM .ASCIZ \TXT\ .ER.N = .ER.N + 1 .ENDM .DB.N = 1 .MACRO PGMERR CODE,TXT,LVL .IF NE,DEBU$G .PSECT .DBG. .IRP N,\.DB.N $DBG'N:: .ENDM .ASCIZ \LVL-TXT\ .DB.N = .DB.N + 1 .ENDC .ENDM .ENDC .ER.N = 1 .MACRO ERROR TXT JSR R3,ERROR .IRP N,\.ER.N .WORD $ERR'N .ENDM .ER.N = .ER.N + 1 .ENDM .DB.N = 1 .MACRO PGMERR CODE,TXT,LVL JSR R3,PGMERR .WORD CODE .IF NE,DEBU$G .IRP N,\.DB.N .WORD $DBG'N .ENDM .DB.N = .DB.N + 1 .ENDC .IF IDN,, .WORD 0 .ENDC .ENDM .SBTTL TERMINAL ESCAPE SEQUENCES .IF EQ,VT10$0 $$FDVT == 52. INITRM: .BYTE CR,ESC,'[,'?,'2,'l .BYTE CR,SPC,SPC,SPC .BYTE ESC,'\,200 CLRSCR: .BYTE ESC,'H,ESC,'J,200 LSTLIN: .BYTE ESC,'Y,67,40,ESC,'K,200 ERSLIN: .BYTE ESC,'K,ESC,'B,200 ENDLST: .BYTE ESC,'Y,67,157,200 DIRCUR: .BYTE ESC,'Y,200 .IFF $$FDVT == 100. INITRM: .BYTE ESC,'< .BYTE ESC,'),'0,200 CLRSCR: .BYTE ESC,'[,'H,ESC,'[,'J,200 LSTLIN: .BYTE ESC,'[,'2,'4,'B .BYTE CR,ESC,'[,'J,200 ERSLIN: .BYTE ESC,'#,'5 .BYTE ESC,'[,'K,ESC,'[,'B,200 ENDLST: .BYTE ESC,'[,'2,'4,'B .BYTE ESC,'[,'1,'3,'2,'C,200 DIRCUR: CTLSEQ: .BYTE ESC,'[,200 COL80: .BYTE ESC,'[,'?,'3,'l,200 COL132: .BYTE ESC,'[,'?,'3,'h,200 DBLWID: .BYTE ESC,'#,'6,200 RVSVID: .BYTE ESC,'[,'?,'5,'h,200 NRMVID: .BYTE ESC,'[,'?,'5,'l,200 INDEX: .BYTE ESC,'D,200 RVSIND: .BYTE ESC,'M,200 .ENDC .EVEN .SBTTL CHARACTER LISTS CHRLST: .WORD ESC&77, .WORD LF,DELFLD .WORD BKSP,PRVFLD .WORD TAB,NXTFLD .WORD DEL,DELCHR .WORD CR,ENTER .WORD CTRLW,REFRSH .IF EQ,VT10$0 .WORD CTRLA,INSOVR .ENDC .WORD 0,ECHO .IF EQ,VT10$0 ESCLST: .WORD 'A,SCRLBW .WORD 'B,SCRLFW .WORD 'C,CURGHT .WORD 'D,CURLFT .WORD 'P,EXSCUP .WORD 'Q,HELP .WORD 'R,EXSCDN .WORD '?, .WORD 0,BELERR ALTLST: .WORD 'M,ENTER .WORD 0,ALTKEY .IFF ESCLST: .WORD 'O, .WORD '[, .WORD 0,BELERR ALTLST: .WORD 'M,ENTER .WORD 'P,INSOVR .WORD 'Q,HELP .WORD 'R,EXSCUP .WORD 'S,EXSCDN .WORD 0,ALTKEY CURLST: .WORD 'A,SCRLBW .WORD 'B,SCRLFW .WORD 'C,CURGHT .WORD 'D,CURLFT .WORD 0,BELERR .ENDC .SBTTL FORM DRIVER CALL DISPATCH TABLE .SBTTL DISPAT: .WORD FSHOW .WORD FSHOW .WORD FOPEN .WORD FCLOSE .WORD FPTLST .WORD FPUT .WORD FPUTAL .WORD FGET .WORD FGETAL .WORD FGETAF .WORD FRETRN .WORD FRTNAL .WORD FTERM .WORD FNDATA .WORD FGETSC .WORD FPUTSC .WORD FSPOFF .WORD FSPON .WORD FSCLEN DSPTSZ = . - DISPAT .SBTTL $FDV - FORM DRIVER ENTRY ROUTINE .ENABL LSB $FDV:: $SAV50 CALL CNSPON MOV F$REQ(R0),R1 MOV F$IMP(R1),R5 MOV F$CHN(R1),I$FCHN(R5) MOV F$STS(R1),R2 MOV R2,I$STAT(R5) CLR (R2)+ CLR (R2) MOV SP,I$STKP(R5) MOV R5,R1 ADD #I$HLEN,R1 MOV R1,I$BPTR(R5) ADD #,R1 MOV R1,I$BEND(R5) CMP #PATTRN,I$PATN(R5) BEQ 10$ MOVB #DV$BLD,I$LVID(R5) CMP (R0),#FC$LST BLE 10$ JMP ILGFNC 10$: MOV (R5)+,(R5) MOV (R5),-(R5) CALL SUPV CLR I$BSIZ(R5) MOV (R0),R1 CMP #DSPTSZ,R1 BLOS INVCOD CALL @DISPAT(R1) .IF NE,VT10$0 CLR R0 CALL VIDEO .ENDC CALL PRTBUF CLR I$CURP(R5) MOV (R5)+,(R5) MOV (R5),-(R5) TST @I$STAT(R5) BGT 30$ BLT 20$ MOV #FS$SUC,@I$STAT(R5) BR 30$ 20$: SEC 30$: RETURN INVCOD: PGMERR FE$FCD,,F .DSABL LSB .SBTTL FSHOW - DISPLAY FORM .ENABL LSB FSHOW: MOV R0,R4 CLR (R5) CLR I$ALLC(R5) MOV #,R0 CALL IMPSIZ MOV R5,R1 ADD #I$FIXD,R1 MOV #,R2 10$: CLRB (R1)+ SOB R2,10$ MOV #PATTRN,I$PATN(R5) MOV #D2$DIS,I$DISP(R5) CALL SUPV .IF NE,FIXD$C MOV R5,R2 ADD #I$FDS1,R2 MOV R2,I$FXD1(R5) MOV R5,R3 ADD #I$DLN1,R3 MOV R3,D$LNCL(R2) MOV #D1$NUM,D$ATT1(R2) ADD #,R2 MOV R2,I$FXD2(R5) ADD #L$CLSZ,R3 MOV R3,D$LNCL(R2) MOV #D1$NUM,D$ATT1(R2) MOVB #'0,D$CLRC(R2) .ENDC MOV F$NAM(R4),R1 MOV R1,R2 MOV R5,R3 ADD #I$FORM,R3 MOV #6,R0 20$: MOVB (R2)+,(R3)+ SOB R0,20$ BIS #IS$DSP,(R5) MOV F$NUM(R4),R3 MOV (R4),R4 CALL INITFM CALL TEXT CALL FIELDS CALL NAMDAT CALL RSPBUF 30$: .IF NE,MEDI$A CALL FREEBF .ENDC 40$: BIC #IS$DSP,(R5) RETURN .DSABL LSB .SBTTL INITFM - INITIALIZE TO DISPLAY FORM .ENABL LSB INITFM: CALL SIZSCR .IF NE,VT10$0 MOVB #377,I$VATT(R5) CLR R0 CALL VIDEO .ENDC CALL FNDFRM MOV R5,R2 ADD #I$CFRM,R2 MOVB #6,R0 10$: MOVB (R1)+,(R2)+ SOB R0,10$ MOVB #3,R1 20$: CALL GETWRD MOV R0,(R2)+ SOB R1,20$ CALL GETWRD MOV R0,-(SP) 30$: CALL GET3 .IF NE,VT10$0 MOV R0,R2 BIT #CB$CUR,R2 BNE 80$ BIT #CB$132,R2 BEQ 40$ CMP #132.,I$LCOL(R5) BEQ 60$ MOV #COL132,R0 MOV #132.,I$LCOL(R5) TSTB I$ADVO(R5) BEQ 50$ MOV #13.,I$LLIN(R5) BR 50$ 40$: CMP #80.,I$LCOL(R5) BEQ 60$ MOV #80.,I$LCOL(R5) MOV #23.,I$LLIN(R5) MOV #COL80,R0 50$: ESCSEQ 60$: MOV #NRMVID,R0 BIT #CB$REV,R2 BEQ 70$ MOV #RVSVID,R0 70$: ESCSEQ .ENDC 80$: MOV (SP)+,R1 MOVB R1,R0 CLRB R1 SWAB R1 CMPB #1,R0 BNE 90$ CMP I$LLIN(R5),R1 BNE 90$ CLR I$LINE(R5) BR 120$ 90$: BIT #IS$DSP,(R5) BEQ 100$ MOV R3,R2 BEQ 110$ BLT 160$ SUB R0,R2 MOV R2,I$LINE(R5) 100$: ADD I$LINE(R5),R0 ADD I$LINE(R5),R1 110$: CMP R1,I$LLIN(R5) BHI 160$ TST R4 BNE 130$ 120$: .IF EQ,VT10$0 ESCSEQ #INITRM .ENDC ESCSEQ #CLRSCR BR 150$ 130$: SUB R0,R1 INC R1 BIS #400,R0 CALL SETCUR .IF EQ,VT10$0 ESCSEQ #INITRM .ENDC 140$: ESCSEQ #ERSLIN SOB R1,140$ CALL CLRLST 150$: CALL GET3 MOV R0,I$NFLD(R5) CALL GET2 RETURN 160$: PGMERR FE$LIN,,F .DSABL LSB .SBTTL SIZSCR - SIZE SCREEN .ENABL LSB SIZSCR: .IF NE,VT10$0 $SAV30 MOVB #DV$BLD,I$LVID(R5) $TTFLS ESCSEQ #INITRM ESCSEQ #SIZSEQ CALL PRTBUF MOV #SIZRTN,R1 CALL ESCIN BCS 20$ CMPB R0,#'R BNE 20$ DEC R2 MOV R2,I$LLIN(R5) MOV R1,I$LCOL(R5) ESCSEQ #DEVATT CALL PRTBUF MOV #ATTRTN,R1 CALL ESCIN BCS 10$ BIT #2,R1 BNE 25$ MOVB #1,I$ADVO(R5) MOVB #DV$REV,I$LVID(R5) BR 25$ 10$: CMPB #6,R1 BEQ 25$ 20$: MOV #133.,I$LCOL(R5) MOV #23.,I$LLIN(R5) BR 30$ 22$: $TTYIN 25$: CMPB #'c,R0 BNE 22$ 30$: RETURN .DSABL LSB SIZSEQ: .BYTE ESC,'7 .BYTE ESC,'[,'H .BYTE ESC,'[,'2,'4,'B .BYTE ESC,'[,'1,'3,'2,'C .BYTE ESC,'[,'6,'n .BYTE ESC,'8 .BYTE 200 SIZRTN: .BYTE ESC&77,'[,0 DEVATT: .BYTE ESC,'[,'c,200 ATTRTN: .BYTE ESC&77,'[,'?,0 .EVEN .IFF MOV #23.,I$LLIN(R5) MOV #80.,I$LCOL(R5) RETURN .DSABL LSB .ENDC .IF NE,VT10$0 ESCIN: 10$: $TTYIN CMPB (R1)+,R0 BNE 20$ TSTB (R1) BNE 10$ CALL GETPRM CMPB R0,#'; BNE 20$ MOV R1,R2 CALL GETPRM CLC BR 30$ 20$: SEC 30$: RETURN .ENDC .IF NE,VT10$0 .ENABL LSB GETPRM: CLR R1 10$: $TTYIN CMPB R0,#'0 BLO 20$ CMPB R0,#'9 BHI 20$ MOV R1,-(SP) ASL R1 ASL R1 ADD (SP)+,R1 ASL R1 SUB #'0,R0 ADD R0,R1 BR 10$ 20$: RETURN .DSABL LSB .ENDC .SBTTL TEXT - DISPLAY TEXT PORTION OF FORM .ENABL LSB TEXT: CALL GETWRD CMP R0,#TE$XT BEQ 10$ JMP INVFRM 10$: CALL GETWRD CMP #-1,R0 BEQ 30$ ADD I$LINE(R5),R0 CALL SETCUR CALL GETWRD .IF NE,VT10$0 CALL VIDEO .ENDC CALL GETBYT MOV R0,R1 BEQ 10$ 20$: CALL GETBYT CALL CHROUT SOB R1,20$ BR 10$ 30$: RETURN .DSABL LSB .SBTTL FIELDS - INITIALIZE FIELDS .ENABL LSB FIELDS: CALL GETWRD CMP R0,#FI$ELD BEQ 10$ JMP INVFRM 10$: MOV I$NFLD(R5),R0 ASL R0 MOV R0,R2 ASL R0 ADD R2,R0 CALL IMPSIZ MOV R5,R3 ADD #,R3 MOV R3,I$LNCL(R5) ADD R3,R0 MOV R0,I$FDES(R5) SUB #L$CLSZ,R3 CLR R4 20$: CALL FLDESC 30$: TST R4 BEQ 140$ CALL LINCOL MOV D$ATT1(R4),R0 BIC #177740,R0 .IF NE,SCRO$L MOV #D1$SCR,R1 BIT R1,D$ATT1(R4) BNE 40$ .ENDC MOV #D1$ARY,R1 BIT R1,D$ATT1(R4) BEQ 20$ BIT #D2$VRT,(R4) BEQ 50$ MOV #1,R2 MOV R3,R1 CALL FLDESC BR 100$ .IF NE,SCRO$L 40$: BIS #IS$SCR,(R5) .ENDC 50$: MOV R4,-(SP) CLR R2 60$: INC R2 CALL FLDESC TST R4 BEQ 80$ BIT R1,D$ATT1(R4) BEQ 80$ BIT #D2$VRT,(R4) BNE 80$ MOV (R3),-(SP) SUB I$LINE(R5),(SP) CMPB D$LNCL(R4),(SP)+ BNE 80$ MOV D$ATT1(R4),-(SP) BIC #177740,(SP) CMP (SP)+,R0 BNE 80$ CMP R1,#D1$SCR BNE 70$ MOV R4,-(SP) CALL NXTDSC MOV 2(SP),-(R4) MOV (SP)+,R4 70$: CALL LINCOL BR 60$ 80$: MOV (SP)+,R1 MOV R4,-(SP) MOV R1,R4 .IF NE,SCRO$L BIT #D1$SCR,D$ATT1(R4) BEQ 90$ CALL NXTDSC MOVB R0,-(R4) MOVB R2,-(R4) MOV R1,R4 .ENDC 90$: MOV D$LNCL(R4),R1 MOV (SP)+,R4 100$: MOV R2,-(SP) BR 120$ 110$: CALL NXTLC BCS 150$ MOV (R1),(R3) INC (R3) MOV L$FDES(R1),L$FDES(R3) ADD #L$CLSZ,R1 SOB R2,110$ MOV (SP),R2 120$: SOB R0,110$ TST (SP)+ 130$: BR 30$ 140$: ADD #L$CLSZ,R3 CMP R3,I$FDES(R5) BEQ 160$ 150$: JMP INVFRM 160$: RETURN .DSABL LSB .ENABL LSB FLDESC: $SAV30 TST R4 BNE 10$ MOV I$FDES(R5),R4 BR 20$ 10$: CALL NXTDSC 20$: CALL GETWRD CMP #-1,R0 BNE 30$ MOV R4,I$NDAT(R5) CLR R4 BR 110$ 30$: CMP -(R0),-(R0) CALL IMPSIZ MOV R0,R2 ASR R2 MOV R4,R1 40$: CALL GETWRD MOV R0,(R1)+ SOB R2,40$ MOV R1,-(SP) ADD #D$2ATT,R4 MOV (R4),-(SP) MOVB #6,R0 50$: MOV -(R4),2(R4) SOB R0,50$ MOV (SP)+,(R4) CALL GETWRD BIT #D2$DEC,(R4) BEQ 60$ BIS #D2$RTJ,(R4) 60$: BIT #D1$SCR,D$ATT1(R4) BEQ 70$ MOV #2,R0 CALL IMPSIZ 70$: MOV R4,R0 ADD #D$PLEN,R0 MOV R0,R3 BISB (R0)+,R2 BEQ 100$ MOVB (R0)+,R1 BR 90$ 80$: CMPB R1,(R0)+ BNE 100$ 90$: SOB R2,80$ CLRB (R3)+ CALL 120$ INC R3 BIC #1,R3 MOV (SP),R2 SUB R3,R2 SUB R2,I$ALLC(R5) 100$: TST (SP)+ 110$: RETURN 120$: CALL (PC) CLR R1 BISB (R0),R1 INC R1 130$: MOVB (R0)+,(R3)+ SOB R1,130$ RETURN .DSABL LSB .SBTTL NXTDSC - GET POINTER TO NEXT FIELD DESC ENTRY .ENABL LSB NXTDSC: $SAV30 MOV R4,R3 ADD #D$FXLN,R4 MOVB #3,R2 10$: CLR R1 BISB (R4)+,R1 ADD R1,R4 SOB R2,10$ INC R4 BIC #1,R4 .IF NE,SCRO$L BIT #D1$SCR,D$ATT1(R3) BEQ 20$ TST (R4)+ .ENDC 20$: RETURN .DSABL LSB .SBTTL LINCOL - INITIALIZE LINE/COL ENTRY .ENABL LSB LINCOL: CALL NXTLC BCC 10$ JMP INVFRM 10$: MOV D$LNCL(R4),(R3) ADD I$LINE(R5),(R3) MOV R4,L$FDES(R3) MOV R3,D$LNCL(R4) RETURN .DSABL LSB .SBTTL NXTLC - GET NEXT LINE/COL ENTRY POINTER .ENABL LSB NXTLC: ADD #L$CLSZ,R3 CMP I$FDES(R5),R3 BHI 10$ SEC 10$: RETURN .DSABL LSB .SBTTL NAMDAT - STORE NAMED DATA .ENABL LSB NAMDAT: CALL GETWRD CMP R0,#NA$MED BEQ 10$ JMP INVFRM 10$: MOV I$NDAT(R5),R2 MOV R2,R3 CLR (R2)+ 20$: CALL GETWRD CMP #-1,R0 BEQ 60$ MOV R0,R1 MOV #7,R0 CALL IMPSIZ INC (R3) MOVB R1,(R2)+ SWAB R1 MOVB R1,(R2)+ MOV #5,R1 30$: CALL GETBYT MOVB R0,(R2)+ SOB R1,30$ MOV R0,R1 BEQ 50$ CALL IMPSIZ 40$: CALL GETBYT MOVB R0,(R2)+ SOB R1,40$ 50$: BR 20$ 60$: CALL RNDIMP MOV R2,I$RESP(R5) RETURN .DSABL LSB .SBTTL RNDIMP - ROUND IMPURE AREA ADDRESS TO WORD .ENABL LSB RNDIMP: MOVB #1,R0 BIT R0,R2 BEQ 10$ CALL IMPSIZ INC R2 10$: RETURN .DSABL LSB .SBTTL RSPBUF - INITIALIZE RESPONSE BUFFERS AND FIELDS .ENABL LSB RSPBUF: MOV I$LNCL(R5),R3 CMP R3,I$FDES(R5) BEQ 90$ MOV I$RESP(R5),R1 MOV R1,R2 CLR (R2)+ 10$: MOV L$FDES(R3),R4 .IF NE,SCRO$L BIT #D1$SCR,D$ATT1(R4) BNE 20$ .ENDC MOV D$RLEN(R4),R0 CALL IMPSIZ MOV R2,L$RESP(R3) ADD R0,R2 ADD R0,(R1) 20$: CALL NXTLC BCC 10$ .IF NE,SCRO$L MOV I$FDES(R5),R4 30$: BIT #D1$SCR,D$ATT1(R4) BEQ 80$ CALL RNDIMP MOVB #6,R0 CALL IMPSIZ MOV R4,R3 CALL NXTDSC MOV -(R4),(R2) MOV R3,(R4) CLR R0 BISB (R2)+,R0 MOV R0,-(SP) MOVB (R2)+,R1 MOVB R1,-(SP) CLR (R2)+ CLR (R2) MOV R3,R4 40$: ADD D$RLEN(R4),(R2) CALL NXTDSC SOB R0,40$ MOV (R2)+,R0 50$: CALL IMPSIZ SOB R1,50$ MOV D$LNCL(R3),R3 MOVB (SP)+,R0 60$: MOV (SP),R1 70$: MOV R2,L$RESP(R3) MOV L$FDES(R3),R4 ADD D$RLEN(R4),R2 ADD #L$CLSZ,R3 SOB R1,70$ SOB R0,60$ TST (SP)+ 80$: CALL NXTDSC CMP R4,I$NDAT(R5) BLO 30$ .ENDC BIS #IS$CLR,(R5) CALL DEFAL BIC #IS$CLR,(R5) 90$: RETURN .DSABL LSB .SBTTL IMPSIZ - VERIFY IMPURE AREA LARGE ENOUGH .ENABL LSB IMPSIZ: ADD R0,I$ALLC(R5) CMP I$ILEN(R5),I$ALLC(R5) BLO 10$ RETURN 10$: PGMERR FE$IMP,,F .DSABL LSB .SBTTL FPUT - PRINT DATA IN SPECIFIED FIELD .ENABL LSB FPUT: CALL FNDFLD MOV F$VAL(R0),R2 MOV F$LEN(R0),R1 CALL DATLEN TST R1 BEQ 20$ CMP R1,D$RLEN(R4) BLE 10$ .IF NE,DEBU$G CALL DATLNG .ENDC MOV D$RLEN(R4),R1 10$: CALL FLDVAL BR 30$ 20$: CALL DEFVAL 30$: RETURN .DSABL LSB .SBTTL DEFAL - RESTORE DEFAULT VALUES TO ALL FIELDS .ENABL LSB DEFAL: CALL ANYFLD 10$: MOV L$FDES(R3),R4 BIT #D1$SCR,D$ATT1(R4) BEQ 20$ MOV R4,-(SP) CALL NXTDSC MOV -(R4),R4 MOV D$LNCL(R4),R2 MOV L$RESP(R2),R2 CLR -4(R2) MOV (SP)+,R4 20$: CALL DEFVAL CALL NXTLC BCC 10$ RETURN .DSABL LSB .SBTTL DEFVAL - OUTPUT DEFAULT VALUE DEFVAL: $SAV30 MOV R4,R2 ADD #D$PLEN,R2 CLR R1 BISB (R2)+,R1 ADD R1,R2 CLR R1 BISB (R2)+,R1 CALL FLDVAL RETURN .SBTTL FPUTAL - OUTPUT DATA TO ALL FIELDS .ENABL LSB FPUTAL: CALL ANYFLD CALL DATLEN MOV R1,R0 BEQ DEFAL CALL SCRFRM 10$: MOV L$FDES(R3),R4 TST R0 BEQ 30$ MOV D$RLEN(R4),R1 CMP R0,R1 BGE 20$ MOV R0,R1 20$: SUB R1,R0 CALL FLDVAL ADD R1,R2 BR 40$ 30$: CALL DEFVAL 40$: CALL NXTLC BCC 10$ .IF NE,DEBU$G TST R0 BEQ 50$ CALL DATLNG .ENDC 50$: RETURN .DSABL LSB .SBTTL DATLNG - DATA TOO LONG ERROR ROUTINE .ENABL LSB DATLNG: .IF NE,DEBU$G PGMERR FE$DLN,,W .ENDC RETURN .DSABL LSB .SBTTL DATLEN - GET DATA POINTER AND LENGTH DATLEN: MOV F$VAL(R0),R2 MOV F$LEN(R0),R1 BLT GETLEN RETURN .SBTTL GETLEN - GET LENGTH OF ASCIZ STRING .ENABL LSB GETLEN: MOV R2,-(SP) CLR R1 10$: TSTB (R2)+ BEQ 20$ INC R1 BR 10$ 20$: MOV (SP)+,R2 RETURN .DSABL LSB .SBTTL FPTLST - OUTPUT DATA TO LAST LINE .ENABL LSB FPTLST: CALL DATLEN CMP #PATTRN,I$PATN(R5) BEQ 10$ ESCSEQ #INITRM BR 20$ 10$: CMP R1,I$LCOL(R5) BLE 20$ .IF NE,DEBU$G CALL DATLNG .ENDC MOV I$LCOL(R5),R1 20$: CALL PRTLST RETURN .DSABL LSB .SBTTL FGET - GET SPECIFIED FIELD .ENABL LSB FGET: MOV F$NAM(R0),R3 BEQ 30$ CMPB #'*,(R3) BNE 10$ CALL FIELD1 MOV R4,F$NAM(R0) ADD #D$FID,F$NAM(R0) MOV #1,F$NUM(R0) BR 20$ 10$: CALL FNDFLD BIT I$DISP(R5),(R4) BNE GETERR 20$: MOV L$RESP(R3),F$VAL(R0) MOV D$RLEN(R4),F$LEN(R0) 30$: MOV R0,R1 CALL GETFLD MOV R0,F$TRM(R1) 40$: RETURN .DSABL LSB .ENABL LSB GETERR: PGMERR FE$DSP,,F .DSABL LSB .SBTTL FIELD1 - GET POINTERS TO FIRST FIELD TO GET .ENABL LSB FIELD1: CALL ANYFLD 10$: MOV L$FDES(R3),R4 BIT I$DISP(R5),(R4) BEQ 20$ CALL NXTLC BCS GETERR BR 10$ 20$: RETURN .DSABL LSB .SBTTL FGETAL - GET ALL FIELDS AND RETURN .ENABL LSB FGETAL: CALL SCRFRM MOV R0,R1 CALL FIELD1 10$: CALL GETFLD CMPB R0,#FT$ATB BNE 20$ CALL NXTFLD 20$: CMPB R0,#FT$KPD BGE 30$ TST R0 BNE 10$ CALL EDTALL BCS 10$ 30$: MOV R0,F$TRM(R1) MOV R1,R0 .DSABL LSB .SBTTL FRTNAL - RETURN RESPONSES FOR ALL FIELDS FRTNAL: CALL ANYFLD MOV I$RESP(R5),R2 MOV (R2)+,F$LEN(R0) MOV R2,F$VAL(R0) RETURN .SBTTL ERROR ROUTINES .ENABL LSB SCRFRM: BIT #IS$SCR,(R5) BNE ILGFNC RETURN ILGFNC: PGMERR FE$IFN,,F .DSABL LSB .ENABL LSB NOFLDS: PGMERR FE$NOF,,F .DSABL LSB ANYFLD: MOV I$LNCL(R5),R3 CMP R3,I$FDES(R5) BEQ NOFLDS RETURN .SBTTL FGETAF - GET ANY FIELD .ENABL LSB FGETAF: CALL SCRFRM MOV R0,R1 MOV I$LPTR(R5),R3 BNE 10$ CALL FIELD1 10$: MOV L$FDES(R3),R4 BIT I$DISP(R5),(R4) BEQ 15$ JMP GETERR 15$: CALL GETFLD TST R0 BEQ 20$ CMPB R0,#FT$KPD BGE 20$ BIT #IS$ALT,(R5) BEQ 10$ 20$: MOV I$LPTR(R5),R3 MOV L$RESP(R3),F$VAL(R1) MOV L$FDES(R3),R4 MOV (R3),R3 SUB @D$LNCL(R4),R3 INC R3 MOV R3,F$NUM(R1) MOV R4,F$NAM(R1) ADD #D$FID,F$NAM(R1) MOV D$RLEN(R4),F$LEN(R1) MOV R0,F$TRM(R1) 30$: RETURN .DSABL LSB .SBTTL FRETRN - RETURN FIELD FRETRN: CALL FNDFLD MOV L$RESP(R3),F$VAL(R0) MOV D$RLEN(R4),F$LEN(R0) RETURN .SBTTL FTERM - PROCESS FIELD TERMINATOR TRMTBL: .WORD ENTFRM .WORD NXTFLD .WORD PRVFLD .WORD NXTFLD .IF NE,SCRO$L .WORD FXSCUP .WORD FXSCDN .WORD FSCNXT .WORD FSCPRV .WORD SCFRWD .WORD SCBKWD .ENDC .ENABL LSB FTERM: MOV F$TRM(R0),R1 CMP R1,#FT$SBK BHI 30$ CMP R1,#FT$XBK BHIS 10$ MOV I$LPTR(R5),R3 BEQ ILGFNC MOV L$FDES(R3),R4 10$: MOV R0,-(SP) ASL R1 CALL @TRMTBL(R1) BCS ILGFNC MOV (SP)+,R0 BIT I$DISP(R5),(R4) BNE 20$ MOV R3,I$LPTR(R5) 20$: MOV R4,F$NAM(R0) ADD #D$FID,F$NAM(R0) MOV (R3),R2 SUB @D$LNCL(R4),R2 INC R2 MOV R2,F$NUM(R0) RETURN 30$: PGMERR FE$UTR,,F .DSABL LSB .SBTTL ENTFRM - PROCESS ENTER FIELD TERMINATOR .ENABL LSB ENTFRM: CALL EDTALL BCC 10$ MOV #FS$INC,@I$STAT(R5) CLC 10$: RETURN .DSABL LSB .SBTTL FINDLC - FIND LINE/COL ENTRY .ENABL LSB FINDLC: $SAV20 MOV I$LNCL(R5),R0 10$: CMP (R0),R3 BEQ 20$ ADD #L$CLSZ,R0 BR 10$ 20$: MOV R0,R3 MOV L$FDES(R3),R4 RETURN .DSABL LSB .SBTTL SCRFLD - VERIFY SPECIFIED FIELD IN SCROLLED AREA .IF NE,SCRO$L .ENABL LSB SCRFLD: CALL FNDFLD BIT #D1$SCR,D$ATT1(R4) BEQ 10$ CALL SCRDAT RETURN 10$: .IF NE,SCRO$L PGMERR FE$NSC,,F .ENDC; SCRO$L .DSABL LSB .ENDC .SBTTL SCRDAT - GET DATA FOR SCROLLED AREA .IF NE,SCRO$L SCRDAT: CALL NXTDSC MOV -(R4),R4 MOV D$LNCL(R4),R3 MOV L$RESP(R3),R2 RETURN .ENDC .SBTTL SCFLD1 - FIND FIRST FIELD IN CURRENT SCROLLED LINE .IF NE,SCRO$L .ENABL LSB SCFLD1: $SAV20 CLR -(SP) CALL SCRDAT CLR R1 BISB -6(R2),R1 MOV R3,R0 10$: MOV L$FDES(R3),R4 BIT I$DISP(R5),(R4) BEQ 20$ ADD #L$CLSZ,R3 SOB R1,10$ MOV R0,R3 INC (SP) 20$: MOV (R3),R3 ADD -4(R2),R3 CALL FINDLC ROR (SP)+ RETURN .DSABL LSB .ENDC .SBTTL FSCNXT - SCROLL FORWARD TO NEXT FIELD .IF NE,SCRO$L FSCNXT: CALL SCRFLD CALL SCFLD1 BCC SCFRWD RETURN .ENDC .SBTTL SCFRWD - SCROLL FORWARD .IF NE,SCRO$L .ENABL LSB SCFRWD: CALL SCRFLD INC -4(R2) CMPB -4(R2),-5(R2) BEQ 10$ TST F$LEN(R0) BEQ 20$ 10$: DEC -4(R2) MOVB -5(R2),R1 DEC R1 CALL 40$ MOV R0,-(SP) .IF NE,VT10$0 MOV (R3),R0 ADD R1,R0 MOVB (R3),R1 MOV R0,R3 MOVB R3,R0 CALL SCRLAR MOV R3,R0 CALL SETCUR ESCSEQ #INDEX CALL WHLSCR .IFF CALL SCRL52 MOV (R3),R3 ADD R1,R3 .ENDC CALL FINDLC MOV (SP)+,R0 CALL PUTLIN 20$: CALL SCFLD1 CLC RETURN 40$: $SAV50 MOV -2(R2),R0 MOV R2,R3 ADD R0,R3 50$: MOV R0,R4 60$: MOVB (R3)+,(R2)+ SOB R4,60$ SOB R1,50$ RETURN .DSABL LSB .ENDC .SBTTL SCBKWD - SCROLL BACKWARD .IF NE,SCRO$L .ENABL LSB SCBKWD: CALL SCRFLD TST -4(R2) BEQ 10$ TST F$LEN(R0) BNE 10$ DEC -4(R2) BR 20$ 10$: MOVB -5(R2),R1 CALL 40$ MOV R0,-(SP) .IF NE,VT10$0 MOVB (R3),R0 ADD R1,R0 DEC R0 MOVB (R3),R1 CALL SCRLAR MOV (R3),R0 CALL SETCUR ESCSEQ #RVSIND CALL WHLSCR .IFF CALL SCRL52 .ENDC MOV (SP)+,R0 CALL PUTLIN 20$: CALL SCFLD1 CLC RETURN 40$: $SAV50 MOV -2(R2),R0 MOV R1,R3 50$: ADD R0,R2 SOB R3,50$ DEC R1 MOV R2,R3 SUB R0,R2 60$: MOV R0,R4 70$: MOVB -(R2),-(R3) SOB R4,70$ SOB R1,60$ RETURN .DSABL LSB .ENDC .SBTTL FSCPRV - SCROLL BACK TO PREVIOUS FIELD .IF NE,SCRO$L .ENABL LSB FSCPRV: CALL SCRFLD MOV R3,-(SP) MOV R2,-(SP) CALL SCFLD1 BCS 50$ CALL SCBKWD MOV 2(SP),R3 MOV (SP),R2 CLR R1 BISB -6(R2),R1 BR 20$ 10$: ADD #L$CLSZ,R3 20$: SOB R1,10$ 30$: MOV L$FDES(R3),R4 BIT I$DISP(R5),(R4) BEQ 40$ SUB #L$CLSZ,R3 BR 30$ 40$: MOV (R3),R3 ADD -4(R2),R3 CALL FINDLC CLC 50$: BIT (SP)+,(SP)+ RETURN .DSABL LSB .ENDC .SBTTL WHLSCR,SCRLAR - DEFINED SCROLLED AREA TO VT100 .IF NE,VT10$0 .IF NE,SCRO$L WHLSCR: MOV #1,R1 MOV I$LLIN(R5),R0 INC R0 SCRLAR: MOV R0,-(SP) ESCSEQ #CTLSEQ MOV R1,R0 CALL OUTPRM MOVB #';,R0 CALL BYTOUT MOV (SP)+,R0 CALL OUTPRM MOVB #'r,R0 CALL BYTOUT CLR I$CURP(R5) RETURN .ENDC .ENDC .SBTTL SCRL52 - SCROLL FOR VT52 .IF EQ,VT10$0 .IF NE,SCRO$L .ENABL LSB SCRL52: $SAV50 CLR R0 BISB -6(R2),R0 MOV R0,R1 MOVB -5(R2),R2 10$: MOV L$FDES(R3),R4 CALL PRTRSP ADD #L$CLSZ,R3 SOB R0,10$ MOV R1,R0 SOB R2,10$ RETURN .DSABL LSB .ENDC .ENDC .SBTTL FXSCUP - EXIT SCROLLED AREA UP .IF NE,SCRO$L FXSCUP: CALL SCRFLD CALL EXITUP RETURN .ENDC .SBTTL EXITUP - GET FIELD PRECEDING SCROLLED AREA .IF NE,SCRO$L .ENABL LSB EXITUP: $SAV50 CALL SCRDAT 10$: SUB #L$CLSZ,R3 CMP R3,I$LNCL(R5) BLO 30$ 20$: MOV L$FDES(R3),R4 BIT I$DISP(R5),(R4) BNE 10$ MOV R3,8.(SP) MOV R4,10.(SP) 30$: RETURN .DSABL LSB .ENDC .SBTTL FXSCDN - EXIT SCROLLED AREA DOWN .IF NE,SCRO$L FXSCDN: CALL SCRFLD CALL EXITDN RETURN .ENDC .SBTTL EXITDN - GET FIELD AFTER SCROLLED AREA .IF NE,SCRO$L .ENABL LSB EXITDN: $SAV50 CALL SCRDAT CLR R1 BISB -6(R2),R1 10$: CALL NXTDSC SOB R1,10$ INC R1 20$: CMP I$NDAT(R5),R4 BHI 30$ SEC BR 50$ 30$: BIT I$DISP(R5),(R4) BNE 10$ MOV D$LNCL(R4),8.(SP) MOV R4,10.(SP) 50$: RETURN .DSABL LSB .ENDC .SBTTL FGETSC - GET CURRENT SCROLLED LINE .ENABL LSB FGETSC: .IF NE,SCRO$L CALL SCRFLD MOV -(R2),F$LEN(R0) MOV (R3),R3 ADD -(R2),R3 CALL FINDLC MOV L$RESP(R3),F$VAL(R0) CALL SCFLD1 BCC 10$ JMP NOFLDS 10$: MOV R0,R1 MOV I$LPTR(R5),R2 BEQ 20$ CMPB (R3),(R2) BNE 20$ MOV L$FDES(R2),R4 MOV R2,R3 20$: CALL GETFLD CMP R0,#FT$ATB BEQ 20$ CMP R0,#FT$NXT BEQ 20$ CMP R0,#FT$PRV BEQ 20$ MOV R0,F$TRM(R1) RETURN .IFF JMP INVCOD .ENDC .DSABL LSB .SBTTL FPUTSC - OUTPUT DATA TO CURRENT SCROLLED LINE .ENABL LSB FPUTSC: .IF NE,SCRO$L $SAV50 CALL SCRFLD MOV (R3),R3 ADD -4(R2),R3 CALL FINDLC CALL PUTLIN RETURN .IFF JMP INVCOD .ENDC .DSABL LSB .SBTTL PUTLIN - OUTPUT DATA TO LINE OF SCROLLED AREA .IF NE,SCRO$L .ENABL LSB PUTLIN: $SAV50 MOVB -6(R2),-(SP) CALL DATLEN CLR R0 BISB (SP)+,R0 MOV R1,-(SP) 10$: TST (SP) BEQ 30$ MOV D$RLEN(R4),R1 CMP (SP),R1 BGE 20$ MOV (SP),R1 20$: SUB R1,(SP) CALL FLDVAL ADD R1,R2 BR 40$ 30$: CALL DEFVAL 40$: ADD #L$CLSZ,R3 MOV L$FDES(R3),R4 SOB R0,10$ TST (SP)+ .IF NE, DEBU$G BEQ 50$ CALL DATLNG .ENDC 50$: RETURN .DSABL LSB .ENDC .SBTTL FSCLEN - GET LENGTH OF LINE IN SCROLLED AREA FSCLEN: .IF NE,SCRO$L CALL SCRFLD MOV -2(R2),F$LEN(R0) RETURN .IFF JMP INVCOD .ENDC .SBTTL FNDATA - GET NAMED DATA .ENABL LSB FNDATA: MOV I$NDAT(R5),R3 MOV (R3)+,R2 BEQ 40$ MOV F$NAM(R0),R1 BNE 10$ MOV F$NUM(R0),R4 CMP R2,R4 BLO 40$ DEC R4 BEQ 30$ MOV R4,R2 10$: TST R1 BEQ 20$ CALL COMPAR BCC 30$ 20$: ADD #6,R3 CLR R4 BISB (R3)+,R4 ADD R4,R3 SOB R2,10$ TST R1 BNE 40$ 30$: MOV R3,F$NAM(R0) CLR F$LEN(R0) ADD #6,R3 MOVB (R3)+,F$LEN(R0) MOV R3,F$VAL(R0) RETURN 40$: PGMERR FE$DNM,,F .DSABL LSB .SBTTL FNDFLD - FIND FIELD DESC ENTRY .ENABL LSB FNDFLD: $SAV20 CALL ANYFLD MOV I$FDES(R5),R4 MOV F$NAM(R0),R3 10$: MOV R4,R1 TST (R1)+ CALL COMPAR BCC 20$ CALL NXTDSC CMP I$NDAT(R5),R4 BHI 10$ BR 60$ 20$: MOV @D$LNCL(R4),R3 .IF NE,SCRO$L BIT #D1$SCR,D$ATT1(R4) BEQ 30$ MOV R3,-(SP) CALL SCRDAT MOV (SP)+,R3 MOV -4(R2),R1 BR 40$ .ENDC 30$: BIT #D1$ARY,D$ATT1(R4) BEQ 50$ MOV F$NUM(R0),R1 BEQ 60$ MOV D$ATT1(R4),R2 BIC #177740,R2 CMP R2,R1 BLO 60$ DEC R1 40$: ADD R1,R3 50$: CALL FINDLC RETURN 60$: PGMERR FE$FLD,,F .DSABL LSB .SBTTL COMPAR - COMPARE ASCII STRINGS .ENABL LSB COMPAR: $SAV50 MOVB #6,R0 10$: MOVB (R3)+,R2 CALL UPCASE MOVB R2,R4 MOVB (R1)+,R2 CALL UPCASE CMPB R2,R4 BNE 20$ SOB R0,10$ BR 30$ 20$: SEC 30$: RETURN .DSABL LSB .SBTTL UPCASE - CONVERT LOWER TO UPPER CASE .ENABL LSB UPCASE: CMPB R2,#'a BLT 10$ CMPB R2,#'z BGT 10$ SUB #40,R2 10$: RETURN .DSABL LSB .SBTTL FILCHR - DETERMINE FILL CHARACTER FOR FIELD .ENABL LSB FILCHR: MOVB #SPC,R0 BIT #D2$ZFL,(R4) BEQ 10$ MOVB #'0,R0 10$: RETURN .DSABL LSB .SBTTL TXTCHR - TEST FOR TEXT CHARACTER .ENABL LSB TXTCHR: CMPB #'!,R0 BHI 10$ CMPB R0,#'0 BLO 10$ CMPB #':,R0 BHI 10$ CMPB R0,#'A 10$: RETURN .DSABL LSB .SBTTL FLDVAL - UPDATE FIELD VALUE .ENABL LSB FLDVAL: $SAV50 CALL CLRESP .IF NE,FIXD$C BIT #D2$DEC,(R4) BEQ 10$ CALL INITFX MOV I$FXD2(R5),R4 MOV D$LNCL(R4),R3 CALL CLRESP MOV 8.(SP),R3 MOV 10.(SP),R4 .ENDC 10$: TST R1 BEQ 60$ MOV L$RESP(R3),R0 20$: BIT #D2$RTJ,(R4) BNE 40$ 30$: MOVB (R2)+,(R0)+ SOB R1,30$ BR 60$ 40$: ADD D$RLEN(R4),R0 ADD R1,R2 50$: MOVB -(R2),-(R0) SOB R1,50$ 60$: CALL PRTRSP RETURN .DSABL LSB .SBTTL CLRESP - CLEAR RESPONSE BUFFER .ENABL LSB CLRESP: $SAV30 CALL FILCHR MOV L$RESP(R3),R1 MOV D$RLEN(R4),R2 10$: MOVB R0,(R1)+ SOB R2,10$ RETURN .DSABL LSB .SBTTL PRTRSP - OUTPUT RESPONSE BUFFER CONTENTS .ENABL LSB PRTRSP: $SAV30 BIT #D2$NEC,(R4) BNE 70$ BIT #IS$CLR,(R5) BEQ 30$ CMPB #SPC,D$CLRC(R4) BNE 30$ .IF NE,VT10$0 TSTB D$VATT(R4) BNE 30$ .ENDC MOV L$RESP(R3),R1 MOV D$RLEN(R4),R2 10$: CMPB #SPC,(R1)+ BNE 30$ SOB R2,10$ MOV R4,R1 ADD #D$PLEN,R1 BISB (R1)+,R2 BEQ 70$ 20$: MOVB (R1)+,R0 CALL TXTCHR BCS 30$ SOB R2,20$ BR 70$ 30$: .IF NE,VT10$0 MOVB D$VATT(R4),R0 CALL VIDEO .ENDC MOV (R3),R0 CALL SETCUR MOV L$RESP(R3),R1 MOV R4,R2 ADD #D$PICT,R2 CLR R3 BISB D$PLEN(R4),R3 BNE 40$ MOV D$RLEN(R4),R3 40$: TSTB D$PLEN(R4) BEQ 50$ MOVB (R2)+,R0 CALL TXTCHR BCS 60$ 50$: MOVB (R1)+,R0 CALL CLRCHR 60$: CALL CHROUT SOB R3,40$ CALL PRTBUF 70$: RETURN .DSABL LSB .SBTTL CLRCHR - REPLACE SPACE WITH CLEAR CHAR .ENABL LSB CLRCHR: BIT #D2$ZFL,(R4) BNE 10$ CMPB #SPC,R0 BNE 10$ MOVB D$CLRC(R4),R0 10$: RETURN .DSABL LSB .SBTTL VIDEO ATTRIBUTES TABLE .IF NE,VT10$0 VIDTBL: .BYTE '1,DV$BLD .BYTE '4,DV$UND .BYTE '5,DV$BLK .BYTE '7,DV$REV .WORD 0 .ENDC .SBTTL VIDEO - SET VIDEO ATTRIBUTES .IF NE,VT10$0 .ENABL LSB VIDEO: $SAV30 CMPB R0,I$VATT(R5) BEQ 50$ MOVB R0,I$VATT(R5) MOVB R0,R3 MOVB #SI,R0 BITB #DV$GRA,R3 BEQ 10$ MOVB #SO,R0 10$: CALL BYTOUT ESCSEQ #CTLSEQ MOV #VIDTBL,R1 MOVB #'0,R0 20$: CALL BYTOUT MOVB #';,R0 30$: MOVB (R1)+,R2 BEQ 40$ BITB (R1)+,R3 BEQ 30$ CALL BYTOUT MOVB R2,R0 BR 20$ 40$: MOVB #'m,R0 CALL BYTOUT BITB #DV$DWD,R3 BEQ 50$ ESCSEQ #DBLWID 50$: RETURN .DSABL LSB .ENDC .SBTTL GETFLD - GET RESPONSE FOR A FIELD .ENABL LSB GETFLD: MOV R1,-(SP) CLRB (R5) MOV R3,I$LPTR(R5) BNE 10$ CALL LOWRHT BR 30$ 10$: .IF NE,VT10$0 MOVB D$VATT(R4),R0 CALL VIDEO .ENDC .IF NE,FIXD$C BIT #D2$DEC,(R4) BNE FIXDEC .ENDC 20$: CALL INIPOS 30$: CALL INPUT CALL (R1) BCS 30$ TST R0 BGE 30$ GETDON: CLR R1 CALL PRTLST BIC #100000,R0 MOV (SP)+,R1 RETURN .DSABL LSB .SBTTL FIXDEC - GET FIXED DECIMAL FIELD .IF NE,FIXD$C .ENABL LSB FIXDEC: CALL INITFX MOV I$FXD2(R5),R2 MOV I$FXD1(R5),-(SP) 10$: MOV (SP),R4 20$: MOV D$LNCL(R4),R3 CALL INIPOS 30$: CALL INPUT CMP #CURGHT,R1 BNE 50$ CMP R4,(SP) BNE 80$ CMP I$ROFF(R5),D$RLEN(R4) BNE 80$ 40$: MOV R2,R4 BR 20$ 50$: CMP #CURLFT,R1 BEQ 60$ CMP #DELCHR,R1 BNE 70$ 60$: CMP R2,R4 BNE 80$ TST I$ROFF(R5) BNE 80$ MOV (SP),R4 BR 20$ 70$: CMP #ECHO,R1 BNE 90$ CMP (SP),R4 BNE 80$ CMP I$ROFF(R5),D$RLEN(R4) BNE 80$ CMPB #'.,R0 BEQ 40$ 80$: CALL (R1) TST R0 BGE 30$ MOV I$LPTR(R5),R3 MOV L$FDES(R3),R4 BR 120$ 90$: CMP #DELFLD,R1 BNE 100$ MOV I$LPTR(R5),R3 MOV L$FDES(R3),R4 CALL (R1) BR 10$ 100$: MOV R4,-(SP) MOV I$LPTR(R5),R3 MOV L$FDES(R3),R4 CALL (R1) TST R0 BLT 110$ MOV (SP)+,R4 MOV D$LNCL(R4),R3 BR 30$ 110$: TST (SP)+ 120$: TST (SP)+ JMP GETDON .DSABL LSB .ENDC .SBTTL INITFX - INITIALIZE TO PROCESS FIXED DECIMAL FIELD .IF NE,FIXD$C .ENABL LSB INITFX: $SAV30 MOV R4,R1 ADD #D$PLEN,R1 CLR R2 BISB (R1)+,R2 CLR R0 10$: CMPB #'.,(R1)+ BEQ 20$ INC R0 SOB R2,10$ 20$: MOV I$FXD1(R5),R1 MOV I$FXD2(R5),R2 MOV D$VATT(R4),D$VATT(R1) MOVB D$VATT(R4),D$VATT(R2) MOV (R4),(R1) BIS #,(R1) BIC #,(R1) MOV (R4),(R2) BIS #D2$ZFL,(R2) BIC #,(R2) 30$: MOV R0,D$RLEN(R1) MOV D$RLEN(R4),D$RLEN(R2) SUB R0,D$RLEN(R2) MOV D$LNCL(R1),R1 MOV D$LNCL(R2),R2 MOV (R3),(R1) MOV (R3),(R2) MOV R0,-(SP) INC R0 SWAB R0 ADD R0,(R2) MOV L$RESP(R3),R0 MOV R0,L$RESP(R1) ADD (SP)+,R0 MOV R0,L$RESP(R2) RETURN .DSABL LSB .ENDC .SBTTL INPUT - GET INPUT .ENABL LSB INPUT: MOV #,R1 10$: DEC R1 $TTYIN 20$: CMPB R0,(R1) BEQ 30$ CMP (R1)+,(R1)+ TST (R1) BNE 20$ 30$: MOV 2(R1),R1 BIT #1,R1 BNE 10$ TST R3 BNE 50$ CMP R1,#ENTER BEQ 50$ CMP R1,#HELP BEQ 50$ CMP R1,#REFRSH BEQ 50$ BIT #IS$HFM,(R5) BNE 40$ CMP R1,#ALTKEY BEQ 50$ 40$: MOV #BELERR,R1 50$: RETURN .DSABL LSB .SBTTL ECHO - ECHO INPUT .ENABL LSB ECHO: $SAV20 CALL EDTCHR BCS 120$ CALL FILCHR MOV R0,-(SP) MOV L$RESP(R3),R1 BIT #IS$INS,(R5) BEQ 60$ BIT #D2$RTJ,(R4) BNE 30$ CALL LSTCHR BCC 60$ ADD D$RLEN(R4),R1 CMPB R0,-(R1) BNE 130$ MOV D$RLEN(R4),R2 SUB I$ROFF(R5),R2 DEC R2 10$: MOVB -(R1),1(R1) SOB R2,10$ 20$: MOVB 4(SP),(R1) CALL PRTRSP CALL MOVRGT BR 90$ 30$: CMPB R0,(R1) BNE 130$ MOV I$ROFF(R5),R2 BEQ 130$ DEC R2 BEQ 50$ 40$: MOVB 1(R1),(R1)+ SOB R2,40$ 50$: MOVB 4(SP),(R1) MOV I$CURP(R5),-(SP) CALL PRTRSP MOV (SP)+,R0 CALL MOVCUR BR 90$ 60$: CMP I$ROFF(R5),D$RLEN(R4) BEQ 130$ ADD I$ROFF(R5),R1 MOVB 4(SP),R0 MOVB R0,(R1) CALL CLRCHR 70$: BIT #D2$NEC,(R4) BNE 80$ CALL CHROUT 80$: CALL MOVRGT 90$: BIT #D2$TAB,(R4) BEQ 110$ CMP I$ROFF(R5),D$RLEN(R4) BNE 110$ BIT #D2$RTJ,(R4) BEQ 100$ CMPB (SP),@L$RESP(R3) BEQ 110$ 100$: CALL EDTFLD BCS 110$ MOV #<100000!FT$ATB>,4(SP) .IF NE,SCRO$L BIT #D1$SCR,D$ATT1(R4) BEQ 110$ CALL NXTFLD CMP #<100000!FT$SNX>,R0 BNE 110$ MOV R0,4(SP) .ENDC 110$: BIS #IS$ALT,(R5) TST (SP)+ 120$: RETURN 130$: TST (SP)+ ERROR <> .DSABL LSB .SBTTL INSOVR - CHANGE INPUT MODE .ENABL LSB INSOVR: BIT #D2$DEC,(R4) BNE 30$ MOV #IS$INS,R0 BIT R0,(R5) BNE 10$ BIT #D1$MIX,D$ATT1(R4) BNE 30$ BIS R0,(R5) BR 20$ 10$: BIC R0,(R5) 20$: RETURN 30$: ERROR <> .DSABL LSB .SBTTL PRVFLD - PREVIOUS FIELD .ENABL LSB PRVFLD: $SAV50 MOV R4,R1 MOV #<100000!FT$PRV>,R0 .IF NE,SCRO$L BIT #D1$SCR,D$ATT1(R4) BEQ 10$ MOV #<100000!FT$SPR>,R0 .ENDC 10$: SUB #L$CLSZ,R3 CMP R3,I$LNCL(R5) .IF NE,SCRO$L BHIS 20$ BIT #D1$SCR,D$ATT1(R1) BEQ 50$ BR 40$ .IFF BLO 50$ .ENDC 20$: MOV L$FDES(R3),R4 BIT I$DISP(R5),(R4) BNE 10$ .IF NE,SCRO$L CMP #<100000!FT$SPR>,R0 BEQ 25$ BIT #D1$SCR,D$ATT1(R4) BEQ 30$ MOV @D$LNCL(R4),-(SP) CALL SCRDAT MOV (SP)+,R3 ADD -4(R2),R3 CALL FINDLC BR 30$ 25$: CMPB @8.(SP),(R3) BNE 30$ MOV #<100000!FT$PRV>,R0 .ENDC 30$: MOV R3,8.(SP) MOV R4,10.(SP) 40$: MOV R0,2(SP) CLC RETURN 50$: ERROR <> .DSABL LSB .SBTTL NXTFLD - NEXT FIELD .ENABL LSB NXTFLD: $SAV50 CALL EDTFLD BCS 50$ MOV R4,R1 MOV #<100000!FT$NXT>,R0 .IF NE,SCRO$L BIT #D1$SCR,D$ATT1(R1) BEQ 10$ MOV #<100000!FT$SNX>,R0 .ENDC 10$: CALL NXTLC .IF NE,SCRO$L BCC 20$ BIT #D1$SCR,D$ATT1(R1) BEQ 60$ BR 40$ .IFF BCS 60$ .ENDC 20$: MOV L$FDES(R3),R4 BIT I$DISP(R5),(R4) BNE 10$ .IF NE,SCRO$L CMPB (R3),@8.(SP) BNE 30$ MOV #<100000!FT$NXT>,R0 .ENDC 30$: MOV R3,8.(SP) MOV R4,10.(SP) 40$: MOV R0,2(SP) CLC 50$: RETURN 60$: ERROR <> .DSABL LSB .SBTTL EXSCUP - EXIT SCROLLED AREA UP .ENABL LSB EXSCUP: .IF NE,SCRO$L BIT #D1$SCR,D$ATT1(R4) BEQ 10$ CALL EDTFLD BCS 5$ CALL EXITUP BCS 10$ MOV #<100000!FT$XBK>,R0 5$: RETURN .ENDC 10$: ERROR <> .DSABL LSB .SBTTL EXSCDN - EXIT SCROLLED AREA DOWN .ENABL LSB EXSCDN: .IF NE,SCRO$L BIT #D1$SCR,D$ATT1(R4) BEQ 10$ CALL EDTFLD BCS 5$ CALL EXITDN BCS 10$ MOV #<100000!FT$XFW>,R0 5$: RETURN .ENDC 10$: ERROR <> .DSABL LSB .SBTTL SCRLBW,SCRLFW - SCROLL FORWARD OR BACKWARD .ENABL LSB SCRLBW: MOV #<100000!FT$SBK>,R0 BR 10$ SCRLFW: MOV #<100000!FT$SFW>,R0 10$: BIT #D1$SCR,D$ATT1(R4) BEQ 20$ CALL EDTFLD RETURN 20$: ERROR <> .DSABL LSB .SBTTL TERMINAL INPUT ERROR ROUTINE BELERR: MOVB #BEL,R0 $TTYOUT SEC RETURN .SBTTL ENTER - ENTER FORM .ENABL LSB ENTER: CMP R0,#CR BNE 10$ $TTYIN 10$: TST R3 BEQ 20$ CALL EDTFLD BCS 30$ 20$: MOV #<100000!FT$NTR>,R0 30$: RETURN .DSABL LSB .SBTTL CURGHT - CURSOR RIGHT .ENABL LSB CURGHT: $SAV20 CMP I$ROFF(R5),D$RLEN(R4) BEQ 10$ CALL VALPOS BCS 10$ CALL MOVRGT RETURN 10$: ERROR <> .DSABL LSB .SBTTL MOVRGT - MOVE RIGHT IN CURRENT FIELD .ENABL LSB MOVRGT: $SAV50 MOV I$FOFF(R5),R2 INC R2 INC I$ROFF(R5) CMP I$ROFF(R5),D$RLEN(R4) BEQ UPDCUR ADD #D$PLEN,R4 CLR R1 BISB (R4)+,R1 BEQ UPDCUR ADD R2,R4 10$: MOVB (R4)+,R0 CALL TXTCHR BCC UPDCUR INC R2 BR 10$ BR UPDCUR .DSABL LSB .SBTTL MOVLFT - MOVE LEFT ONE DATA POSITION .ENABL LSB MOVLFT: $SAV50 MOV I$FOFF(R5),R2 DEC I$ROFF(R5) ADD #D$PLEN,R4 CLR R1 BISB (R4)+,R1 BEQ 20$ ADD R2,R4 10$: MOVB -(R4),R0 CALL TXTCHR BCC 20$ DEC R2 BR 10$ 20$: DEC R2 UPDCUR: MOV R2,I$FOFF(R5) SWAB R2 MOV (R3),R0 ADD R2,R0 CALL MOVCUR RETURN .DSABL LSB .SBTTL CURLFT - CURSOR LEFT .ENABL LSB CURLFT: TST I$ROFF(R5) BEQ 10$ DEC I$ROFF(R5) CALL VALPOS INC I$ROFF(R5) BCS 10$ CALL MOVLFT RETURN 10$: ERROR <> .DSABL LSB .SBTTL DELCHR - DELETE CHARACTER .ENABL LSB DELCHR: $SAV30 TST I$ROFF(R5) BEQ 100$ CALL FILCHR MOV L$RESP(R3),R2 ADD I$ROFF(R5),R2 DEC R2 BIT #IS$INS,(R5) BEQ 50$ BIT #D2$RTJ,(R4) BEQ 30$ MOV I$ROFF(R5),R1 DEC R1 BEQ 20$ 10$: MOVB -(R2),1(R2) SOB R1,10$ 20$: MOVB R0,(R2) MOV I$CURP(R5),-(SP) CALL PRTRSP MOV (SP)+,R0 CALL MOVCUR BR 90$ 30$: CALL LSTCHR BCC 50$ MOV D$RLEN(R4),R1 SUB I$ROFF(R5),R1 40$: MOVB 1(R2),(R2)+ SOB R1,40$ MOVB R0,(R2) CALL PRTRSP CALL MOVLFT BR 90$ 50$: BIT #D2$RTJ,(R4) BNE CURLFT 60$: CALL LSTCHR BCS CURLFT 80$: MOVB R0,(R2) CALL MOVLFT BIT #D2$NEC,(R4) BNE 90$ MOV I$CURP(R5),-(SP) CALL CLRCHR CALL CHROUT MOV (SP)+,R0 CALL MOVCUR 90$: BIS #IS$ALT,(R5) RETURN 100$: ERROR <> .DSABL LSB .SBTTL LSTCHR - LAST CHAR IN RESPONSE .ENABL LSB LSTCHR: $SAV30 MOV L$RESP(R3),R1 MOV D$RLEN(R4),R2 ADD R2,R1 10$: CMPB R0,-(R1) BNE 20$ SOB R2,10$ 20$: CMP I$ROFF(R5),R2 30$: RETURN .DSABL LSB .SBTTL DELFLD - DELETE FIELD DELFLD: $SAV30 CLR R1 CALL FLDVAL CALL INIPOS BIS #IS$ALT,(R5) RETURN .SBTTL FUNCTION KEYS ALTKEY: BIS #100000,R0 RETURN .SBTTL HELP ROUTINES .ENABL LSB HELP: $SAV50 BIT #IS$HLP,(R5) BNE HLPFRM TST R3 BEQ HLPFRM BIS #IS$HLP,(R5) MOV R4,R2 ADD #D$PLEN,R2 CLR R1 BISB (R2)+,R1 ADD R1,R2 CLR R1 BISB (R2)+,R1 ADD R1,R2 CLR R1 BISB (R2)+,R1 BEQ HLPFRM CALL PRTLST CLC RETURN .DSABL LSB .ENABL LSB HLPFRM: BIC #IS$HLP,(R5) MOV I$CURP(R5),-(SP) MOV I$LINE(R5),-(SP) 10$: MOV R5,R1 ADD #I$HLPF,R1 MOV R1,R2 MOVB #6,R0 20$: CMPB #SPC,(R2)+ BNE 40$ SOB R0,20$ 30$: CALL 110$ BIT #IS$HFM,(R5) BEQ 100$ BR 50$ 40$: MOV SP,R4 CALL INITFM CALL TEXT .IF NE,MEDI$A CALL FREEBF .ENDC 50$: BIS #IS$HFM,(R5) 60$: CLR R3 CALL LOWRHT 70$: CALL INPUT CMP #HELP,R1 BEQ 10$ 80$: CALL (R1) BCS 70$ TST R0 BPL 60$ 90$: MOV (SP),I$LINE(R5) BIC #IS$HFM,(R5) MOV R5,R1 ADD #I$FORM,R1 CALL RSTORE 100$: TST (SP)+ MOV (SP)+,R0 CALL MOVCUR RETURN 110$: ERROR .DSABL LSB .SBTTL REFRSH - REFRESH SCREEN REFRSH: $SAV50 MOV I$CURP(R5),-(SP) MOV R5,R1 ADD #I$CFRM,R1 CLR R4 CALL RSTORE MOV (SP)+,R0 CALL MOVCUR RETURN .SBTTL RSTORE - RESTORE SCREEN IMAGE .ENABL LSB RSTORE: CALL INITFM CALL TEXT .IF NE,MEDI$A CALL FREEBF .ENDC BIT #IS$HFM,(R5) BNE 30$ TST I$NFLD(R5) BEQ 30$ BIS #IS$CLR,(R5) 10$: MOV I$LNCL(R5),R3 20$: MOV L$FDES(R3),R4 CALL PRTRSP CALL NXTLC BCC 20$ BIC #IS$CLR,(R5) .IF NE,VT10$0 MOV I$LPTR(R5),R3 BEQ 30$ MOV L$FDES(R3),R4 MOVB D$VATT(R4),R0 CALL VIDEO .ENDC 30$: RETURN .DSABL LSB .SBTTL INIPOS - MOVE TO INITIAL CURSOR POSITION IN FIELD .ENABL LSB INIPOS: $SAV50 CLR R1 CLR R2 BIT #D2$RTJ,(R4) BNE 20$ BIC #IS$INS,(R5) CLR I$ROFF(R5) ADD #D$PLEN,R4 BISB (R4)+,R1 BEQ 50$ 10$: MOVB (R4)+,R0 CALL TXTCHR BCC 50$ INC R2 BR 10$ 20$: BIS #IS$INS,(R5) MOV D$RLEN(R4),I$ROFF(R5) ADD #D$PLEN,R4 BISB (R4)+,R2 BEQ 40$ ADD R2,R4 30$: MOVB -(R4),R0 CALL TXTCHR BCC 50$ DEC R2 BR 30$ 40$: MOV I$ROFF(R5),R2 50$: JMP UPDCUR .DSABL LSB .SBTTL LOWRHT - POSITION CURSOR IN LOWER RIGHT CORNER LOWRHT: ESCSEQ #ENDLST MOVB I$LLIN(R5),I$CURP(R5) MOVB I$LCOL(R5),I$CURC(R5) CALL PRTBUF RETURN .SBTTL PRTLST - PRINT TEXT IN LAST LINE .ENABL LSB PRTLST: $SAV50 MOV I$CURP(R5),-(SP) TST R1 BNE 10$ BIT #IS$LST,(R5) BEQ 60$ CALL CLRLST BIC #IS$LST,(R5) BR 60$ 10$: CALL CLRLST .IF NE,VT10$0 MOVB I$VATT(R5),-(SP) MOVB I$LVID(R5),R0 CALL VIDEO .ENDC .IF NE,DEBU$G BIT #IS$ERR,(R5) BEQ 40$ MOV #PREFIX,R3 20$: MOVB (R3)+,R0 BEQ 30$ CALL BYTOUT BR 20$ 30$: BIC #IS$ERR,(R5) .ENDC 40$: MOVB (R2)+,R0 CALL BYTOUT SOB R1,40$ 50$: .IF NE,VT10$0 MOVB (SP)+,R0 CALL VIDEO .ENDC BIS #IS$LST,(R5) 60$: MOV (SP)+,R0 CALL MOVCUR RETURN .DSABL LSB CLRLST: ESCSEQ #LSTLIN CLR I$CURP(R5) RETURN .IF NE,DEBU$G PREFIX: .ASCIZ /?FDV-/ .EVEN .ENDC .SBTTL INPUT VALIDATION ROUTINES VALID: .WORD 'A,D1$ALP,ALPHA .WORD 'C,D1$ALN,ALPNUM .WORD '9,D1$NUM,NUMERC .WORD 'N,D1$SNM,SIGNUM .WORD 'X,0,ANYCHR .WORD 0,0,ANYCHR .SBTTL VALPOS - VALIDATE SPECIFIED POSITION IN RESPONSE .ENABL LSB VALPOS: $SAV20 CALL FILCHR MOV L$RESP(R3),R1 ADD I$ROFF(R5),R1 CMPB R0,(R1) CLC BNE 10$ BIS #IS$NMS,(R5) CALL EDTCHR BIC #IS$NMS,(R5) 10$: RETURN .DSABL LSB .SBTTL EDTCHR - EDIT CHARACTER .ENABL LSB EDTCHR: $SAV30 MOV #VALID,R2 BIT #D1$MIX,D$ATT1(R4) BNE 20$ 10$: TST (R2) BEQ 40$ TST (R2)+ BIT (R2)+,D$ATT1(R4) BNE 50$ TST (R2)+ BR 10$ 20$: MOV R4,R1 ADD #D$PLEN,R1 TSTB (R1)+ ADD I$FOFF(R5),R1 30$: TST (R2) BEQ 40$ CMPB (R2),(R1) BEQ 40$ ADD #6,R2 BR 30$ 40$: CMP (R2)+,(R2)+ 50$: CALL @(R2) 60$: RETURN .DSABL LSB .ENABL LSB ALPHA: CALL ALPTST BCS 10$ RETURN 10$: ERROR .DSABL LSB ALPTST: CMPB R0,#SPC BEQ 10$ CMPB R0,#'A BLO 10$ CMPB #'Z,R0 BHIS 10$ CMPB R0,#'a BLO 10$ CMP #'z,R0 10$: RETURN .ENABL LSB NUMERC: CALL NUMTST BCS 10$ RETURN 10$: ERROR .DSABL LSB NUMTST: CMPB R0,#'0 BLO 10$ CMPB #'9,R0 10$: RETURN .ENABL LSB ALPNUM: CALL NUMTST BCC 10$ CALL ALPTST BCS 20$ 10$: RETURN 20$: ERROR .DSABL LSB .ENABL LSB SIGNUM: $SAV30 MOV L$RESP(R3),R1 MOV D$RLEN(R4),R2 MOV #'-,R3 CMPB R0,#'+ BEQ 10$ MOV #'+,R3 CMPB R0,#'- BEQ 10$ CLR R3 CMPB R0,#'. BNE 20$ 10$: CMPB R0,(R1) BEQ 40$ CMPB R3,(R1)+ BEQ 40$ SOB R2,10$ CLC BR 30$ 20$: CALL NUMTST BCS 40$ 30$: RETURN 40$: ERROR .DSABL LSB .ENABL LSB ANYCHR: CMPB R0,#SPC BLT 10$ RETURN 10$: ERROR .DSABL LSB .SBTTL EDIT FIELD .ENABL LSB EDTFLD: $SAV30 CALL FILCHR MOV L$RESP(R3),R1 MOV D$RLEN(R4),R2 CLR R3 10$: CMPB R0,(R1)+ BEQ 20$ INC R3 20$: SOB R2,10$ BIT #D2$REQ,(R4) BEQ 30$ TST R3 BEQ 60$ 30$: BIT #D2$FUL,(R4) BEQ 40$ TST R3 BEQ 40$ CMP R3,D$RLEN(R4) BNE 50$ 40$: CLC RETURN 50$: ERROR 60$: ERROR .DSABL LSB .SBTTL EDTALL - EDIT ALL FIELDS FOR FULL AND REQUIRED .ENABL LSB EDTALL: $SAV20 MOV I$LNCL(R5),R3 10$: MOV L$FDES(R3),R4 BIT I$DISP(R5),(R4) BNE 15$ CALL EDTFLD BCS 20$ 15$: MOV R3,R2 CALL NXTLC BCC 10$ MOV R2,R3 CLC 20$: RETURN .DSABL LSB .SBTTL ERROR ROUTINES .ENABL LSB ERROR: BIT #IS$NMS,(R5) BNE 10$ MOV R1,-(SP) MOV R2,-(SP) MOV (R3)+,R2 CALL GETLEN CALL PRTLST CALL BELERR MOV (SP)+,R2 MOV (SP)+,R1 10$: MOV (SP)+,R3 SEC RETURN .DSABL LSB .ENABL LSB PGMERR: MOV (R3)+,@I$STAT(R5) .IF NE,MEDI$A CALL FREEBF .ENDC .IF NE,DEBU$G CALL 20$ TST (R3)+ .ENDC TST (R3)+ BNE 10$ RTS R3 10$: MOV I$STKP(R5),SP CLR I$CURP(R5) .IF NE,VT10$0 CLR R0 CALL VIDEO .ENDC CALL PRTBUF MOV (R5)+,(R5) MOV (R5),-(R5) SEC RETURN 20$: $SAV50 CMP #PATTRN,I$PATN(R5) BEQ 30$ ESCSEQ #INITRM 30$: MOV (R3),R2 CALL GETLEN BIS #IS$ERR,(R5) CALL PRTLST CALL BELERR CLR R3 CALL LOWRHT 40$: CALL INPUT CMP #ENTER,R1 BEQ 50$ MOV #BELERR,R1 50$: CALL (R1) BCS 40$ RETURN .DSABL LSB .SBTTL SETCUR - MOVE CURSOR .ENABL LSB SETCUR: CMP R0,I$CURP(R5) BEQ 20$ MOV R0,-(SP) ESCSEQ #DIRCUR .IF EQ,VT10$0 10$: MOVB (SP),R0 ADD #37,R0 CALL BYTOUT MOVB 1(SP),R0 ADD #37,R0 CALL BYTOUT .IFF 10$: MOVB (SP),R0 CALL OUTPRM MOVB #';,R0 CALL BYTOUT CLR R0 BISB 1(SP),R0 CALL OUTPRM MOVB #'H,R0 CALL BYTOUT .ENDC MOV (SP)+,I$CURP(R5) 20$: RETURN .DSABL LSB MOVCUR: CALL SETCUR CALL PRTBUF RETURN .SBTTL OUTPRM - OUTPUT ANSII LINE/COL PARAMETERS .ENABL LSB OUTPRM: $SAV50 MOV R0,R1 CLR R2 SUB #100.,R0 BLT 10$ MOV R0,R1 MOVB #'1,R0 CALL BYTOUT INC R2 10$: CLR R0 20$: MOV R1,R3 SUB #10.,R1 BLT 30$ INC R0 BR 20$ 30$: TST R2 BNE 40$ TST R0 BEQ 50$ 40$: ADD #60,R0 CALL BYTOUT 50$: MOV R3,R0 ADD #60,R0 CALL BYTOUT RETURN .DSABL LSB .SBTTL TERMINAL OUTPUT ROUTINES .ENABL LSB CHROUT: INCB I$CURC(R5) BYTOUT: ASLB R0 BEQ 10$ RORB R0 MOVB R0,@I$BPTR(R5) INC I$BPTR(R5) CMP I$BPTR(R5),I$BEND(R5) BLO 10$ PRTBUF: MOV R5,R0 ADD #I$HLEN,R0 CMP R0,I$BPTR(R5) BEQ 10$ MOVB #200,@I$BPTR(R5) MOV R0,I$BPTR(R5) $PRINT 10$: RETURN .DSABL LSB .SBTTL ESCSEQ - OUTPUT ESCAPE SEQUENCE .ENABL LSB ESCSEQ: MOV R1,-(SP) MOV R0,R1 10$: MOVB (R1)+,R0 ASLB R0 BEQ 20$ ASR R0 CALL BYTOUT BR 10$ 20$: MOV (SP)+,R1 RETURN .DSABL LSB ;FILE 1VOL VOLRX1 VOLRX2 UPDX UPDY DLSQZ DICOMP.SAV - - 2 3 2 T úŠţ˙ú@ĐEâ$żü— &fŚ)ÁeÜB÷ ě˙J%@& fŚˆ‡‚€E7 Î˙…ţˆűʋ€,ÜŔŇˆŕýˆ ‡‚Ý÷AŚ˙Á6w 4Ά űŔşéˆčˆVHANDL-F-Window errorňČ÷öŇEöœöţö&ö.ö/nö36ö6 ö8ľň<>pň_ D6 D_ D<=_ DB=_ @H”`_ @N’e_ @Nňf_ @N\g_ @NŽi_ @NFm_ @N(v_ @Nâv_ @Nźx_ @NЄ_ @NŹ†_ @NŒ_ @NŠŒ_ @NžŒ_ @NŹŒ_ @NęŒ_ @Nސ_ @ND’_ @Nź’_ @N„•_ @NŠ•_ @T¨ _ @TŁ_ @TŁ_ @T˘Ł_ @T´¤_ @Z, _ @Z, _ @Zč _ @ZvĄ_ @ZîĄ_ @`Œ _ @`ś _ @`ţĄ_ @`V§_ @`"¨_ @` Š_ @ftÍ_ @ftÍ_ @fžĎ_ @f6Đ_ @fśĐ_ @fčĐ_ @ftŇ_ @f^Ó_ @f*Ö_ @fÄÜ_ @f>á_ @fŽá_ @fşá_ @fôâ_ @fă_ @f ä_ @f”ä_ @fśĺ_ @fć_ @ffćŰ˙˙Ű1˙˙Ű1ë˙˙ ë0123456789˙˙˙?˙˙<    č¸fŔüˆßBç&÷ Ěö÷ ˆöŔ5÷ č7 8ţ7 0ţ7 2ţ7 ţ7 ţ÷ ţô †÷ ş÷ľ ţćÂ÷÷ ÖöÎŔ÷÷ ÎöÎś÷÷ Ćöβ÷÷ žö÷˙˙˘÷Î˙˙÷ °öÖ 7 ţć ć„ć÷ ÷ NÎ ć„ć| ÷ >÷˙˙n÷÷ 8öĆe ÷‹ąý¸€Ŕ,÷‡Ś Ś Ś Ś Ś ćű˙÷ ŕĆe ‡ŚŚŚ÷ *Će‡ˇ Rý×-Ný÷ –ő÷5@ýŔ÷ ^ô‡÷ €ő‡÷5Ţţ÷ľ9ý÷ľ+ý fććŔ÷ Će‡Ść&fDŔ Ĺ  7‚ö÷zöć ć&÷ dĂhöÎföć ÷ €7\öŽć ÷ Ü÷JöLö7ŕHöÁŕŔ@ö1œüˇ 0öˇ.ö–%Ă&ö×  Ú †× Áŕń•-Će…„ƒ‚‡÷ ţwŔŔ÷ vó‡wzĆĺ6 ÷ľ Süwˇâýw Ţý÷Ĺ@:ü÷5Ňý÷U@,üˇĆý÷ŀ üö5÷U€ü7 fö7 8ü7 Čő÷5 ýŔ÷ hó÷Ĺđű7 ‚ý÷Ĺ(üö Ŕ ÷ :ôŔ5!Ă÷ BôŔ5ÂŔ@ @÷ $ôŔ5+÷ R*Ŕ ÷ ţóŔ5€÷ 4 ÷ľűć.ő÷ >ô÷ âó6Ŕ5Ŕ€÷ Ö ŔA @@7ŕôŔ5w÷5@6ű÷ Jô÷5 ,ű÷ ň7 ĺ7 śü7 Üú7 Ôú7 đä7 ĺ7 Čĺ7 bő÷ZőZő÷ &ő÷Ő@ôú7 ő÷ tć˜ô÷ Źó÷ľßú÷5@ÔúJ΄ô÷ ”ó÷5@ÄúBÄ’ä 6!  Î& Ś÷ ŕóˇ¸ä–%…Á €Ŕ 1ĐŇÄ^ä@ŔŠŔ 6 „ ÷ JäÎć ÷ ~Ö €mđ L瀹 Ňƒ × )ę‚ „ ČŔäŔ 7Ň"äÖ ś —-wÖý÷ľ )úG÷ *ň÷Ő ú÷ ŹűŔ)÷ Fň7 žű÷5@úŔ÷ 2ň÷ Nň×-¤óţ˙÷˙˙šóć–ó÷ ¨ň÷ ń÷ ń÷ ńΆó÷ ”ň÷ čň÷ľ˝ů÷ ń÷5 śů÷  đ÷5Śů÷ ńÎTó÷ dňÖ ŔdŃ ÷Ĺ ů÷ Ŕń7 TŃ÷Ő ůĆe‡÷ ń÷ 8ń÷ Dń‡wb Ăřú0Ŕđú˘Z‚˘A†˘z%‚˘a"‡Á€ ˘Z‚˘A†˘z‚˘a†˘9‚˘0†˘$˘_ C  wî×-ˆúUĂ~úŔ‡ Ánú W˘0‡W˘9ƒÂ €  󀇌ć÷Fňˇ>ň÷ :ň Ă4ňŔ€b7’.ň7Š+ň÷ĺ0$ňć ňćň÷ Ž@b ÷ ňÎ ňć ÷ z7ţńĆe߃‚‡÷Ő Oř&ć÷ î÷ zđ–% ‡ĆĺŔ Ŕ đ ˘ ÷Ĺ@&ř÷Ő@řćĘń÷ Ţđ@Ŕ Ŕ 6œ 6ž  ć ć¸ńć÷ Ŕe: Ö ÷ bŔ€a÷ DđŔ5÷ |˙Ŕ˙˙ ÷†ńÎrńćć ÷ –đ–%Će ‡čˆ‡wŔŔý˙€í‚ €Ŕ Ŕ Áa@`Ĺĺ„ƒ€ABÄ €Ŕ‡S” ůĹĺŔ ńŚ&ć÷ ĚĆe‡f€6¤Á űŔ  ‡f€6¤Á űŔ  ‡wć …8€5Žm&Ś& ŽŸ÷ ’˙6Će"śśŕ…-ő €€ CĂ P¤Ă üĆe€ ś ö „ŢĆeĎ Ö ‡f€‘Ŕ ü@‡wV€ ‚ ”Á ý€‡wFƒ ‚ Á5A’ÁE˙Aö5 ĂeƒŕÂĺfć÷ ÎŚ÷ Ć ć˙˙Ś÷ şNć÷ °€@Će‡wŘ  €Ŕ5B`Á € ř€‡wŕ2€/  Á  „ Ŕ  …   Ŕ5@Ŕ ƒ ř   ‚ ŕĂ € öö Ä  @‡! Ă Â ü€‡ ‡& ÷ ˆ˙Ö ‡ć÷ ~˙Ö ‡f€€  ŁüÁ Ŕ Á ý‡w4…Ĺe~ŚfŢ ŚćfŢ Ść&fŢ Ść&ff Ţ …„ƒ‚‡..DK:.LST...OBJ..ERROR IN CSISPC\^ NJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECw€ţĆĺć÷ "ě7 ˙„ 0 $Ŕe Lůć$ć& ĺˆ†÷ J ŔÎ ÷ l÷Ő ó÷Ő óÎ ˇj˙Će÷ b˙w*÷ X˙ˇV˙ ÂÝP˙— Ań— aî— Bë— bč— C— c÷Ő ĐňŢ— D— d÷ŐźňÔ— G— g÷ŐŠňĘ— L— l÷ěţŔ— O— o÷Ձňś— P— p ÷ Äţw‚Î üˇ¸ě¤— S— sw>÷ĹCň÷Ő =ň÷Ő 8ň÷Ĺ2ň÷ ˆţwƒ× @ ÷Őň÷ŐVň÷Őň× Ŕ÷Őţń÷Őůń× ŰY÷Őęń÷Ĺĺń× ÷ŐÖń÷ŐŃńu× áY÷ŐÂń÷Ĺ˝ńk× }÷ŐŽń÷ŐŠń‚× ěY÷Ő šń÷Ĺ•ń‚× Ŕv÷Ő@†ń÷Ձń‚× ëY÷Հrń÷ĹmńC× @÷Ő`ń<× ÝY÷ĹRń5× ÷Ő Dń.× ÜY÷Ő6ń÷Ĺ0ń$× @Q#÷Ő"ń÷Őń÷Őń÷Ő ń— W— w÷Őţđ — Z— z÷ŐëđwÔýŔwÖ÷5Řđ÷ľŃđ ÷öđŔ÷ řč7 ęđ÷šđ÷~¨ÚÎjů ŔvüććŢ%÷ zű–%wŠÚ÷e~„ÚĹ ˙•:zÚˇ vÚ÷rÚ"ęÎjůÁDüŔ>üććŢ%÷ @ű–%Ĺ <węwHÚ÷möéBÚ˙•.<Úˇ 8Úö4ÚÎjů ŔüććŢ%÷ ű–%wÚˇmÚ÷ Ú°é÷ĺ~ŞéÎŚéć~ććř÷ îřĆeŔ ÷ű÷~€é ÷ ”ű÷ šűwĘŔV÷ ţç÷ œű÷Ĺ@şď7 ŕé7 ŕé÷Ő@Şď÷0žŮö„Ä Ä öš 6aśö ö ƒĂ ŔB> ]ţbŮÎjů ććŢ%÷ 6ú–%wF١o@Ů˙•::١ 6Ůö2ŮÎjůƒĂ ‚ ÁF€DććŢ%÷ ôů–%w١mţŘ˙•.řء ôŘöđŘÎjů‚  €HććŢ%÷ şů–%wĘءmÄŘŔŔ؀ď4˜ ś —-Š÷˛ŚŘ÷fúđÎjů ŔZúććŢ%÷ rů–%Ĺ w~Ř÷e˛xŘ˙•:rء nŘ÷5lî÷5 dîÎćúć˛÷ č÷÷ľFŘ÷¸¤ď÷˜ú–%÷˛0Řö,ŘÎjůÁęůŔäůććŢ%÷ úř–%Ĺ Mˇؗ-˛)×-źů €)×-´ů€M!Îœçć–çŚ÷ x÷ÎćţćĐ×Îm€ç÷ d÷ŔÄ×Ŕmtç7ź×÷eś×÷ŐśíĆe\×-jů €÷ţ˙TçŔ˙˙7Jç×-Rů€M÷ŐŠí÷.çE÷Ĺ|í7 "ç?÷Őpíwfסm`×˙•.Zס V×öR×Îjů ŔůććŢ%÷ "ř–%w2סm,×Ŕôř˙•[ ס ×ÁĘ÷ đÎćĚć×÷  ö÷eţÖ˙•]řÖˇ ô֖%÷î֜ć÷岖ć÷5>ů÷ĹŢě΄ćć˛ćć÷ ÄőĆeŔ ÷fř÷˛^ć÷˜ŞÖÎjů ŔZřććŢ%÷ |÷–%Ĺ wˆÖ÷e˜‚Ö˙•:|Öˇ xÖ÷˜pÖölÖÎjůÁ řŔřććŢ%÷ :÷–%Ĺ 0ˇD֗-˜#Îěĺć ćjů÷ ČőÎććÔĺÎejů÷ ´őŔÖŔĺ˜ŔmŔĺ7´ĺ÷eŽĺ÷ŐěĆeP7 žĺ÷ĹňëJ÷ŐęëwŕŐˇmÚŐ˙•.ÔŐˇ ĐŐˇ|ĺwzĺöÂŐÎjů Ŕv÷ććŢ%÷ ’ö–%w˘ŐˇmœŐŔZ÷˙•[Őˇ ŒŐÁĘ÷ rîÎćĚćxŐ÷ ő÷enŐ˙•]hŐˇ dՖ%÷^Őĺ÷ĺ˜ĺÎţäć˜ćć÷ BôĆeŔ ÷äö÷˜Řä÷ľ/ë ÷Řä÷ ˘ăŔ5÷˙˙Čä÷ źň÷5śö ÷ <ăÖ ÷5úę÷Ĺíę÷Հćę÷ľáę÷5 Ţę÷ŐÖę÷ŐÉęÖ Ŕ Će‡ŚćŚ)Ŕ üˆ† 7 ÷ÎöĐ€ýˆŔúö€ € € € € ŔEŕ˙ÁÖ÷ híććÚć-ćććű˙÷ źňĂeŔÂö€ € ŔŔEđ˙ć÷ ^ôŔeÜŔĺÎ&ć-ćććű˙÷ €ňĂeŔ†öŔEŕ˙Ŕe´ÁÖ÷ úěÎćŘć ćććű˙÷ NňĂeŔRö Á–ů÷ ĘěŔ>öÁœů÷ žěÎćŸůćœů÷ \ó Ź–ů đ•0–ů€  őÎćĐććę'÷ ~ôĆe0ƒ‚‡fA & Âĺ@…  ú Ść@÷ ô7öőwaňő Ăěőś Îć@÷ `ó7Úő7ŕÖőÎ÷ ü9‰ ÎĆőć(÷ Ôó7¸őś Îć(÷ *ó7ŕ¤őś Î÷ Ä9‰ ÎŽő÷ ś9‰ ö P‚ Âĺ@…  ú Žć@÷ vó7ZőwaVőĂRőś Îć@÷ Ćňˇ>ő7ŕ:őÎ÷ `9‰ Î*őć(÷ 8ó7őŽć(÷ ”ň7ŕő ś ÷ őś Ž÷ "9‰ Îěô÷ 9‰ ĆeĆe €Ö ‡€ öe@   'öe ö. ö$Ŕ ÷žóö €‡ć˙˙ćć ÷ ŔŕĆe‡Ä2&ŔŔ÷ 0Ŕ5 €Ä< ć Á @ C Ä ‡ၠΠ÷Ö ‡€đ@&ć€ýˆ–%‡Ő A@Ać˙˙÷ ¤˙÷ ś˙ć÷ °˙ćCEՕ:ĂeöËü€Ăe:/ĂՐĂՐƒň€‡ @‚ÂeĂŽŔ“Ŕ ý÷ fwÚ‚“”ţÂ#Á;÷Fš÷„÷|ˇˇ ˇˇŕ @Ŕ凄 űÄĺĹĹ &Ä „e7ü € áý€ w ě7â7ŕ Ŕ aüw´Ä7¨Ĺ^÷ ž7:& &ć’Ŕ w.÷ ° Ĺ^÷ č÷ œ÷mšnäĹ’ĹwpĹ warwax÷er÷nň÷eě÷ j÷RĹjÍí\D7JÄmR78ĺ ÷ ÷ Ŕe 7ś÷.÷ ćŕwCross reference table (CREF V05.00) Page -   dč'íˆéˆßŐ+ŔŔÝtţüˆ†7ć˙?CREF-F-File created:protected file already existsŔŔÝ6ţüˆ‡w-0ţ.†@@mŔ-"ţ†ŔíţŔ5ŕÍţÍU@ýˆ-‡f Ŕe€#ü‚ŔĺŔ Î @mNmČ Ŕe €#ú‚Ö Ŕĺ Ĺe ‡Ĺe ´‡ÍÂýÍU @ýˆř†ß‹*őĺň7˙?CREF-F-CRF file errorE‚7 ŔţƒCŕAĂ%x‡DE`<D…Ľ&‚‡Ă ű÷ ˜ţŕ`B đ‡ƒ‚DĹ„ŕEŕ!‚N`Ä ÓŕfŚĎBŕśĹ Éć`fĹ%Š“T“Ă űŔ w BţŐÖÖ w>ü–%´7 2ţ!ú†ĽĂ ü%Š ‚Ä`Ĺ`÷ ţńÄţ`ę“T“Ă ű÷ üý7öýŔŕŕ€ A!ۂćĹŽüBÁŒŇ• Á üBĹpüwŕýwćýĹewÚý÷ rü ÷ lü`Ĺh÷ 8ţ[7ŇýÁ8ü÷mRü0üÁ-Äýî‡Ń­œýá‹L7 –ý@”7ŒýŔEŕ˙Ŕe@7čü÷ îŔĹÚU¤-Ŕ ü÷ ^ý÷ ŒÂeŚ‚ @”ŔŠ@Ôf”ÎN”Ŕ%˙˙ wnüҕ-€w`üÂe€wPR”‚Âe ¸e¨U”Ŕ ý÷ 4ĂÚŇŇŇĐ÷ $ ýŠ÷ ýü÷ Č Ŕݐűüˆ‡w ýwćҕ ҕ Ś÷ Ęü€÷ <ÂŇüŔZű÷ŽüŞü÷ Âü ’Đ• €#řˇ´üÂ<űÖ ‡&÷ r€íˇ Œü÷ °˙÷`‚üćűÂKˇűŔš”ţ ŔB”ţ ˇ `üŔ\üw€ü÷ v˙Ŕ”ţ ÷ h˙÷ d˙÷%8ü÷ X˙÷ ,ü‚ˇÄú‡< ŔÝČúüˆ‡Ŕćȝźúýˆ ‡ˇ ü÷ü ü÷üüˇüű‡7ü?CREF-F-LST file errorE Ä˙˙ʕ „ @ăý†@cĺ BbaóBâÄe0‘îÄe0‘Ń Ä Á&úÂ,úĂ2ú÷$úS’R¤‡‚Ŕ úááŔ S”‚ Ŕ üÁ-ţůŁ¨ᓔ Ŕ üÁ Â-vű÷ <÷ TÜ÷ N€ “Ŕ ýÂ-Vűö÷  ň÷ 2€ SŔ ýÁ-Źůö ĹtÍeĺ ÷ „űÂ’ůŔe 7ű‡Ă-ű Ĺ|÷ Ňű÷e|ůĂzů‡;DK:CREF.TMPćŔÍć ć ;ć÷ ŽĚĆe‡&&ć ććËććű˙÷ ,Ü÷•#5Ť@÷ ŇĚĆe ‡fćxÍ÷ ŠĚÎjÍ÷ ‚Ěß5$Zߨz@ß•B߀%DßţvFßHßćÔJŔ6ÍŔ ŔLßNߨzPŔ$ÍŔ ŔR T߸VßkXßŘ_Zßţv\Îćö ć ćć^ćű˙÷ €ŰÎć7 ć ććmćű˙÷ dŰÎćO ć‹÷ ”ÜŔüˆ8Îćö ć ćć;ćű˙÷ 0ŰÎć7 ć ćć%;ćű˙÷ ŰÎćO ćC;÷ DÜ7Š”ţÎ;ć<ƒć¨zćć*ƒćđÓćBĚ÷ 4ŢĆe Će‡CCEPTLIGNLLOC|NDaUFSIZKTSIZ}LKSIZ~EGIN5YYALLLEARLOSEOMMONOPIES ONDITIONALhONDhELETEESCRËETACH ICTIONARY{ISPLAYO4EFm LSESNDCůNDUSINGxNDQ[RRORGXTERNAL„XITLOOP>XIT=ORMSORMORROMUNCTION…RETURN<OTOE_T`O6LOBALƒFDEF÷FNDEFřFNCR NCLUDEôDENTüNCLô OCASE!PNUMPQUE"ISTőE]T^IBRARYyITERALOCAL‚ E\OLISTöOTzOINCLUDEjOINCLj OCONDITIONALlOCONDlOSOURCEiOSOURiOTABLEkOTABLkFFERROR#NERROR$PEN%RbN7FF8 ROC AGEýX EADS'EAD&ECORD ECSIZ€ECV(EFĚETURN)WEPEAT;HOWţI ELECTwEND*LEEP+TART˙TOP,TORE- UBROUTINEUBTITLEűU OURfOURCEfVHENRHRUITLEúOFABLEgABLgNLOCK.NTILTPCASE/SING0ALÍHILE3RITES2RITE1CALL9ORcTRNLÎRETURN:"Dv¨ŕIJL‚Öú<ŽŽĚŇć&ć ü&f& ÷ R Će ‡Ść&fć ÷ °đ÷¤đ7 Čđ÷Ĺ Ůđ÷5’đ÷’đŽđ×-ŒđŔ÷ póŔ|đ &ć$ ć ÷ >úĆe7 ^đćJęćć ÷ né7Lđ÷5Žđ ÷Ő yđŔa÷ &ó÷Ĺ kđ7 ”đˇ $ęĆe÷ đ÷5@Tđ ÷ ęŔrę÷ ř7đˇ fę×­Öë ×-ňď÷Č €ęwĆÂŕď  wރ Ŕ Á `ɕ  Ô!  ů!.wZ!;wJ ü÷5Öďř!a !zÁ AÄE DP!P!SŔ<Á÷ j×-rţ ×-jţ˙sŔBÁ÷ NŔ\ţ÷5|ďa×-Hţ ] L QW÷‹bď÷ľ]ď÷ŽéŽé×- ţ˙1Ŕ÷ 4ćďćţć;÷ ę÷ĆeŔ Á ŕÁmäîf&Ž ć ć-ć ćű˙÷ ^÷Će ćÁžî Ść*÷ Ňů–%wN÷‹äî÷ľßî3ććň(ć ć-ć ćű˙÷ ÷Će "7 †ý!B÷5ŚîŔ<Á÷ ^×-fý5ŔBÁ÷ J÷ Xýˇ TŘ÷Pء Čč÷5jî÷ –ććÁ îŔ°čŚć*÷ 2ů–%7 î÷nî÷5hî§Îčçćć$ ÷ ç7ěí7 Lî÷5Dî ÷Ő îŔa÷ źđ÷Ĺ î7 *îˇ şç÷˛íÁ´í×­žë;Á Î ćć*÷ ˛ř–%÷ňíw"×­të&wÎ ćć*÷ ˆř–%Ĺ Ă^íÎfć;÷ Fö6 –%@ƒ Cá÷'ůÎfć'÷ $ö÷"řřÎfć"÷ öĆe $–%‚  „Ň€Ŕĺ 7 ţě6 7!Äřń‚  „Ň7!¸řëĹ…`Ŕ @áŔmÔě Ćeľö ÷žěÂě÷e źěˇ´ěŔŹěÁm¤ěW  ÁšěÁĺ `wŠě÷ †ěÎ ć% ć€ě÷ Jö–%Ŕ÷ \ď7 Ěě–%wXţÖ !.÷ öă  †ć Ść*÷ X÷Će÷ 0ě÷ $ć÷ Řă7 ěÖ …„ƒ‚‡÷ě÷ LűŔ÷ .÷ Ňí÷ öëń‡÷ ÄíŔ÷ ´î÷ Î˙‡÷ °í÷ Â˙‡Ść&7 ˜÷Ăƒ`Ä„`ŔÂëŔ-şëć´ëć÷ ôő D F Hˇ œë–%1÷ŸŽë–ë7Š“ëŔŽë a  z ÷ |ëÁE 7@rëwPnë×-jë ÷-RëRë÷ Äő÷Jë÷÷->ë>ë×-Fë;2 2 {Ę*ëÁ0ëW AvW Zs@Ŕ 7†Úö7ž†Đöˇ Đö÷ Ř7Ŕö ÷ şöˇŔöˇ źö ˇ ´öŔ°öœ˙˙— a ‡— z‚Ă ƒ@ÂĹ ÂĐąöů w €öčĚQ :÷ŸzövöÂröÂ-hö*ˇ jö÷öůfö÷Xö ˙ŻVöVö €ŔmLö@ŕ7Fö÷e@ö7 6öˇ 6öˇ 4ö B é÷5 ö ̟ ö4Š €Ŕmö7ö÷e öƒ ÷ öÂwËW +ŔHpW -ŔIjW *ŔJdW /ŔK^W (ŔLXW )ŔMRW [ŔvLW ]ŔuFW =ŔP@W ,ŔN:W .Ŕd4W #Ŕe.W ;ŔO(W :ŔZ"W %ŔĘW "W ' w:ő÷ ÜĘdé÷ \ ŔU ÷ * ÷ ŔËŔQ  U Q÷ Ś„ƒ‚‡wPô ÷-éé Ŕ"é÷ Î ‡‚ ÷ ~ň€‡w*ô ÷\é÷5Vé0÷-ćčćčŔ÷ Îë ÷-äčŚô÷ F÷-ŘčšôćÂčÎíźčćžčŽ ć¸č÷ „ň÷ Źč÷ŸŹč´č7Šąč‚ ĆeÓ7 ţčĐ÷ ‚ Ě€‡ˇ ‚čˇ „č÷Ÿ€čˆč7Š…č÷-pčpč÷ELvčŔrč a  z ÷ `čÁE 7@VčwPR臐÷-:č:čW A‡W ZƒW a‡W z ƒW 0‡W 9ƒW _W $ ‡Ŕ‡Ść&DŔüçŔ-ôç!÷÷7 üö÷Öçěö÷Ęçčö7ćö÷Ěçâö÷”éÔö ŔH÷ Üű÷ Äöƒ Ä öĘ´öŔ˛ö2ňŹö÷5°öŔ 7šçˇ”ç÷’ö’ç÷zç÷vç ÷‚ö`ç÷zö`ç÷xöbç÷töZ焃‚‡lwjöˇ föŔbö7œ˙˙Xö7ŠUö×-Pö ×-Hö ŔçŔe Ŕ-<öčÁ çÁe Á-.ö^×-$ö=W×-ö(Vˇ öŔö7œ˙˙ ö7Šö÷ö÷ ţő+Á-úő(×-đő'@×-čő"<Ŕäő7œ˙˙Úő7Š×ő×-Ňő)÷ Ěő×-Ćő(ˇ ŔőÁ-žőܡ ¸őŔ´ő7œ˙˙Şő7Š§őŇ×- ő ×-˜ő Á-”ő ˇ ŽőŔŠő7œ˙˙€ő7Š}őë×-vő=Ŕ‡ ‡Procedure Division w€ńŚ)śƒ„ @Nś  €Ü˙˙ ŔԀ Ŕ˙˙)Ŕ%Î ě! aÂö E`Â˙˙Ĺ ś  €Ü˙˙v € €Ĺ î –%‡÷ d˙Ŕ Ŕ‡ ‡÷ R˙Ŕ Ŕ‡ ‡÷ @˙Ŕ Ŕ‡ ‡÷ .˙Ŕ Ŕ‡ ‡÷ ˙Ŕ Ŕ‡ ‡÷ ˙Ŕ Ŕ‡ ‡÷ řţ‡ŚĆĺ÷5LôööíÎîíćŽaÁüŔúćć˜÷ ˙Će÷ ąŚ˙÷p:˘˙ćČíć ćř÷ îěŔ>ô\7 ˙ ˇ š˙Ŕ–˙7œ˙˙Ž˙ Ŕ݈˙ a  z ÷• v˙ÂMp˙7Ŕl˙ˇĐh˙ ŔÝb˙ A Z 0 9  _  $ .÷• 2˙ń.˙  W Äöö ÎŽaÁŔćć˜÷ >ţ–%Î íć ć÷ 2ě–%Će ‚‡iŠ s˙˙     ff÷5œó÷ Ä÷ ÷ ÷ z‡ŚĆĺ ÷5zóÂÂöíöíćŽaÁüŔúćć˜÷ *ţ–%÷5>ó÷ÄţĘţ÷ŔţĆţ÷ ąźţ÷p:¸ţ÷tŹţÁşôÁmóÎôÜŚ÷ ý`ŔęÜŔ Ŕ `wŒţ÷e†ţ÷h†ţ÷Œô‚ţÎœěććř÷ ÂëĆe‚‡Ćĺ ÷5Ćň&öpěöhěćŽaÁŔ ćć˜÷ ‚ý–%7Š:ţ÷•5ţ÷0ô0ţÎ@ěć ć ÷ fëĆeĆe ‡‡Ćĺ÷ţţ÷ţţ÷dţ÷ţćěć ć$÷ .ë÷ ,ňÎňëć ć÷ ë÷ňÜýÎÜëćć÷ ëĆeĆe ‡ćÂëćć0÷ čęβëćć.÷ ŘęĆe ‡wý÷5ŕń‡ŔČńŔmtó7Źý÷eŚý÷5Äń÷$–ý÷źńœý÷• ßý÷•áý÷•ăý÷•"ĺý÷˙˙|ý÷•żý÷• Áý÷•Ăý÷•Ĺý÷Rý÷ îý÷ëDý÷ë<ýćDÁdŔbćć˜÷ 2ü–%÷<ýBý÷8ý>ý÷0ý>ý÷,ý:ý÷Ňň6ý÷Ěň ý÷mńýÎÖęććN÷ üéÎĆęććf÷ ěé÷˙˙Čü wR÷ ĆÚ×-žÚ÷Źü Î& ć÷ ę7 šü–% ÷ œÚw!˜Úw"Ŕ‚üŔŠŔ Nć ÷ źúÖ aň Lçwšˇ ^üŔZüŔ Ŕ Ŕ 𕠞đrü đnü˘÷5rđ°Dç|°Fç~HçÁEŔđE˙?€pP€HçđE€€A †đU€€ÁüÁ Á ŚHçÎEŔńE˙?|ąU|ŚHçńE€|V †ńU€|°Jç¤Á€Bç@ @ @ ŔEü˙ z 0Š2€  ú€DçÁ2÷ ˘ ‡Ŕ˜űŔŠŔ a€FçÁ5÷ „ ‡÷•wű Νlűć@÷ śů Ν]űć(÷ Śů` ŔÝNű`wÔű ΝCűć@÷ Šů Ν4űć(÷ zů` ŔÝ%ű`wŞűŔűŔŠŔ a7Jçœűđ5@LçŔűŔ Ŕ Ŕ đ•žđzű p˘0 ¤÷@nű÷hfűÎÄčć ćž÷ ęçĆe ×-Äú!÷Îúúú΢čćÂúćx÷ ČçÎ’čć"ćœ÷ ¸çŔ¨úŔm˘ú7 ú÷ĺšú÷˙˙‚úĆe… W!)wÚýƒ ÷ tŘw¤ý×-bú˙˙,÷lú˜úÎ@čćPúŽ ÷5~îćć÷ ‚ř6öeÎx÷ DçÎčŔúŔ Ŕ Ŕ &Îe ćœ÷ (çĆeĆe ‡Ść& Ă ‚ Ăĺ@úćć@÷ źř  @Ҁ` ɕŔ+ N’ć@÷ řŕÂB`Îć(÷ †ř ʕŔÁe Ž’ć(÷ Ô÷Âŕ‰ɕŔ Ö –%–%„ƒ‚‡$   @w˙÷5ô‡÷5öóŔŔÁ†őÁmŇóćŔÝ&÷ ěý`wx˙÷er˙÷n˙h˙÷eb˙Îríćć÷ ˜ě÷ZíD˙÷Rí<˙ÎÁŔćć˜÷ nţ–% đ"˙4đ˙6Ŕe ő÷˙˙ôţ÷ľgó<Î& ćDÝ÷ †ěÄ<Ý -÷ 4ÝÎ& ć÷ tě–% ÷ ݡ ݁Á Nçć*÷ Äý7Şţć*÷ "ýwçœţ7ŕ˜ţ÷ ’–%‚ — ߃ Ä Ń–%ĂžÜ  ˇ ´Üw ´Ü ˇdţwbţ÷ \ W )đ‚ ƒ ě×-@ţ˙˙ ÷Rţ\ţÎ`ěŔ.ţŔ Ŕ &Îeć÷ |ëÎFěŔţŔ Ŕ Ŕ &Îe ć0÷ `ëĆeĆe‡w„ý÷úý& €Ŕ 7,ůęýwˇ ÖýĂŇýÄÄ Ä €ŔŠŔ ćĘýć ÷ BüAaBJóÂE€´ ŔŔ Ŕ Ŕ ć˛óNlFó°8×  ^ 0 8÷–ý ýΤë&Îeć÷ ČęÎ’ëŔ`ýŔ Ŕ Ŕ &Îe ć0÷ ŹęÂHý  €ŔmXý7Tý÷eNýÎ<ýć ÷ ´űÖ @ađ5˙Jó#7Bórý7Dóný7Bórý7Dóný€Ŕe7aýÎ$ëć ćR÷ JęÎëć ć\÷ :ęĆe÷˙˙ĐüĆe7 Öü–%Ž —#wĐţ÷5Âüwć& ćŽü÷ Pę÷Śü2ۡ –üĂ’ü  Î”üć ÷ űrJó ňE€ ŔŔ Ŕ Ŕ Ä~ňDlFó08× ń5˙JóY÷füpüÎtęŚÎeć÷ ˜éÎbęŔ0üŔ Ŕ Ŕ &Îe ć0÷ |éÁüÁ Á @Ŕm(ü7$ü÷eüÎ üć ÷ „úÖ đ5˙Jó#7BóDü7Dó@ü7BóDü7Dó@ü@Ŕe73üÎöéć ćR÷ éÎćéć ć\÷ éĆe÷˙˙˘űĆeĆeÖ ‡*_ fĆĺćÚíćÔíćŽaÁţŔüćć˜÷ đţ–%Îć ćř÷ äě7 <ô7 ”ő7 ô7 ŞŢĆe‡fĆĺ ÷‹Řów>÷5nőˇ hő÷5Ŕó÷sŠN˙÷ƒJ˙÷iŠ@˙÷ä<˙÷@8˙ćć ć÷ xě÷,ő(˙ŔźóŔŠ÷5zó÷œó˙÷ ˙÷$˙÷źí˙7˙Îć ÷$řţ÷˘íôţ7ňţÎćć ÷ ě÷âţ÷ŔţŢţ÷źţÚţ÷ ŘţöČě öŔě Î ŽaÁ.Ŕ,ćć˜÷ Úý–%Ŕ’ôŔmŢň7Şţ÷e¤ţ÷  ţ÷–ţœţ÷’ţ˜ţΰÜ÷5Čňćć÷ ĚüŔmtţ7xţ÷erţÎćć ÷ ‚ëĆe÷5Žň÷xň÷pň÷‹zň€÷fňFC÷mô@CĆe ‡0Symbol TableC-A- DecimalAlpha -Unref Name Dim Type Size Total Symbols: Referenced: Unreferenced: Data Division Size: byteData Division Size: bytesLabel Table Name Line Total Labels: DIBOL - The Black Sheep of the familyV1.00Brought to you by the DIBOL developers 7-Jun-1984 16:00:00without prior SIG permission or knowledge @@@@@ @@@@@@@@@@@@@ @ CC * * @@@@@@@@@@@@@@@ @@ @ @@@@@@@@@@@@@@@@ @@ - @@@@@@@@@@@@@@@@@ @@@@@@@@)@@@@(@@@@@@ @@@@)@@@@@@(@@@@ (@@)) ((@@) (@@)) ( (@) <_/_/ <_<_/ wüĆĺT& & & & 7 fţ7 ^ţć ćřć ć-ć ćű˙÷ &ů÷$ë$ëˇ ë wÄÁ.ţÁ @Ŕ ,„ůwţ W ôÁ˙˙Î7 ţ& ÷ Úć÷ žé÷ňý–% ÷ JÚw!FÚwzŔŘýŔŠŔ Nć ÷ júÖ aň HçíÎHŽaFç€Dçććj%÷ ű7˘ý–%ŔŔŠŔ aÂBçA A A ÁEü˙B ÷-|ýTę÷Nęrý—­HA†Ă ŔĹ žwŢŔTýŔŠŔ a€BçŔ5ŔEđ  ‚Î ććĆ÷ 2ů–% €BçŔ Ŕ Ŕ € € € ÁĆ÷ ‚ňŔýŔŠŔ a€HçŔEŔÁÖ÷ dňŔčüŔŠŔ aÂBçA A A ÁEü˙B ÷°üÂBçA A A ÁEü˙B ÷’üÎ ććÖ÷ ˘ř–%÷xüŔˆüŔŠŔ a đ5 Bç B ÷ Xü÷Pü÷Jü÷Bü÷@ü÷í8ü:üđ Lç€÷(üś ÷ üś Î,üćJŽaćÎíüć(ććĆććHććčűćčűććűćäűćJććÖććĘűć ć+ˇÔűćěŽaćë˙÷ ¨ö÷-¨č¤č÷Ő?î÷ ˆćÎđçć ćR÷ ç÷e„č–%ÎŘçć”űćňŽa÷ ţćś @ˇ hčĆe.… W!)w‚ýƒ ÷ Ę×w2ýŔFčŔĺŔ-@č÷ (ćÁža€÷ şđÎćrććĎać ć-ćЎaćů˙÷ öÎZçć-ć֎a÷ €ćÁЁa€"÷ rđÎćˆćć֎ać ć-ćâŽaćů˙÷ ¸őÎçć-ćčŽa÷ 8ćÁâa€2÷ *đÎćœććčŽać ć-ćôŽaćů˙÷ pőÎĘćć-ćúŽa÷ đĺÁôaŔžî÷ âď×-–îÎć°ććúŽaććÄ ÎćĘććúŽaććŢć ć-ć Žać÷˙÷ üôÎVćć-ćŽa÷ |ĺÎ ćäć ć-ć ćű˙÷ ÎôĆeb÷ČćČćˇ Äć w(6  Á @Ŕ ,ůE W őÁ˙˙ć & ÷RÖć÷ dĺö Će ÷ ňŐ7!ňŐq@ŔŠŔ &ć ÷ ö–%`ň Jó€ĆĺS攎aDó€Bóććj%÷ ¸ö6 –%Á a€JóŔE€÷ ŚîŽć–ŽaćŽí ćđććŽać ć ć Žać÷˙÷ Ţó÷-ŢĺÚĺ÷ ÄăÎ,ĺćć÷ Tä÷eŔĺ–%Îĺć ć&Ža÷ :äˇ ¨ĺś Će„ !)ƒ ÷ ŐwÎţŔ†ĺŔ Ŕ-‚ĺ÷ jăÁ˛a€÷ ţíćć ć溎ać ć-ćƎaćů˙÷ DóΞäć-ć̎a÷ ÄăĆep‡ć ć@ć÷ ÷ BôÎ%ć6ć ć-ć ćű˙÷ óÎć\ć ćć| ćű˙÷ äňÎ&ćbć ć-ć ćű˙÷ ČňÎćˆć ććź ćű˙÷ ŹňÎ)ćœć ć,ćÔ ćű˙÷ ň7 Ćĺ÷ zâ÷źĺ ÎÚăć fÎeč÷ ă–%Áe W `ńĆe8‡ć B &v  aÉ Éĺ@… É űfć@÷ €ô7Ěřć@÷ ŢówŔř7ŕźřwaśřŔ˛řƒ ÷ PÎ¤řć(÷ Jô7–řƒ Nć(÷ ˘ó7ŕ„řƒ N÷ Îtř÷ Će Äe!¸Ŕ–%‡€ öe@  'öe ö.  ö$ö €‡6÷ ÜŐ÷ ŘŐ÷5>ŇŔÔÓ ů ÷ ř ţćÁÜŃ Ść*÷ đÜĆeŔ‡ŔšÓŔĺô ‚Ŕ lśEćÁŞŃ Ść*÷ žÜ–%Ŕ8÷ ĘÖ =÷ \ Ŕ÷ p űŔ÷ ’ űŔ˙˙ř ŔŔŔ˙˙÷ ‚÷ j †÷5xŃ ćÁ4Ń Ść*÷ HÜĆe÷ öŇŔ÷ ŒÉ ‡Ŕ5÷‹@с÷Ő9Ń  ‡÷5@,Ń÷Ĺ%Ń÷ ¸ÔŔ‡Ść ŔFŃ #÷ ˘ŇŔ ÷ 6Ń÷ 2Ńq÷ĹřĐ÷ĹďĐ÷ľéĐg÷ľ@áĐc÷Ő ÝĐ÷ŐÓĐ÷Ĺ@ÍĐ÷ `Ô\ˇ \ŇŔ ˇ đĐ÷ NÔ÷ PŇ& ÁrĐ ćć*÷ „Ű–%Ŕ8÷ ĐČÖ @÷ŔĐććŽaćŽa& ÷ pÉ7 ŚĐŔ 7 pĐ÷5bĐ Ŕ ÷ŐNĐ÷ |Đ÷tĐ÷Ő9Đ÷ľ3Đ ÷ľ+Đ÷Ĺ#Đ÷Ő@ĐĆe÷ ŹÓŔ Ö ‚‡Ś÷‹Đ ÷ľýĎ— wŔ— ˙˙ćÁ¤Ď Ść*÷ ¸Ú–%×-*Ę÷ Ę Ę÷ RÓ÷ TŃ×-PŃUćÁlĎ Ść*÷ €Ú–%Ŕ8÷ ĚÇwX ‡lĚE ćŃćŃć ć-Śćű˙÷ Â× Ŕ@`Ź÷ đ• ÷  W ,ň×-¤É÷šÉšÉÎÁúÎ Ść*÷ ÚĆet÷‹ ρ÷ľĎb ć¨Đć˘Đć ć-Śćű˙÷ P× Ŕ@`Ź| đ• |  W ,ň×-2É>÷(É(É:ŔÉ ÷5¸ÎćÁrÎ Ść*÷ †Ů–%Ŕ8÷ ŇĆ2Â| ć(Đć"Đć ćŚćű˙÷ ĐÖ Ŕ@`Ź| đ• |  W ňˇ”ÎĆe ćÁÎ Ść*÷ "ٖ%÷ ŇĎ÷ ĆŃÖ ÷ ÄĎ÷ ¸Ńú ‚‡f÷ ŞŃ÷ ŹĎ ÷5Î÷Ő˙Í÷5řÍ÷ŐńÍ÷5 ęÍ÷ŐăÍ÷‹Ţ́÷Ő×Íw^÷ lĎűŔhĎ h÷5źÍ|÷ŐľÍ÷ľŻÍ|÷ľ§Í|÷ľ@ŸÍ- l÷5Íq÷ʼnÍ÷ľƒÍ|÷ľ{Íx÷ĹsÍ÷Ő@mÍq ô÷5^Íj÷ŐWÍ÷ľQÍc÷‹KÍ`€÷ľ CÍ\÷Ő;ÍX j÷5,ÍQ÷Ĺ%Í÷ľ ÍJ÷ľÍF÷ĹÍ÷Հ Í? f÷‹üĚ9÷ŐőĚ  i ÷5@ćĚ.÷ĹßĚ÷ĹŔŮĚ' g÷5 ĘĚ ÷ŐĂĚ k÷5´Ě÷Ĺ­ĚćÁjĚ Ść*÷ ~ז%Ŕ8÷ ĘÄÖ ÷ Đ×- ÎN÷ Đw˘ţŔ ‡wZ×ĆĺćÁ Ě Ść*÷ 4ז%÷ ŢĎ÷ŢÍđů÷ÚÍěů×-ÖÍUŔ8×-ěĹź ŔP÷ ZÄwD÷ľĚ ÷ľ Ě÷ՀĚ÷ĹýË÷Ő ÷Ë÷ śĹŔĆ ÷ŽĹŹĹ ΝŚĹć€Ĺ Ŕ Ŕ 7œ˜ –Ĺ œ˜ &š ć6 ÷ XŐ÷E€~Ŗ%ÎtĹć÷ ÂŐđjĹ4 7 dš ^ĹÎLĹ÷ `ÄÎRĹć÷  Ő×- ÍÁÍÁp2  NćÍ&Îe6 ÷ úÔŔ÷ źĂ7ů 9‡öćĚ öâĚÎQ÷ nÂäřÁ a€÷ Î÷ žĚˇaşĚ÷śĚŔX÷ NĂ7 ŞĚˇ  ĚˇœĚ÷<ˎć÷ œŐ÷ (Ă÷ ~ÎÖ Će ÷ pÎĆe Ö Će‡wźŐ÷ †Ä÷Ĺ ťĘ÷ľľĘ ÷‹ŻĘ€÷ŀ§Ę÷ŐĄĘćRÄ÷ fĂÎXÄć÷ ŚÔÖ ń 2 7wœ2 Ě7ŠĚwĚ÷e6 ĚÎ.Äć÷ |Ô0ŠL w4 ÄŔ÷ śÂ ‡Ŕ÷ ‚ÂÂÄ ÎěĂćć ÷ Ă7îɖ% B ň7 ¸Ë7 ÚÉÖ ÎÔĂć÷ "Ô2 ÷ĹĘA w‹ýÉ ć ć˛Ăć÷ ÔŔe: 6öeÖ ÷ TÓĆe‡f€÷ Â÷ ôţ7 XË ‡"(26@DJNTZddž<wtÝ đ˙˙ö<đ˙˙ř<Ŕe ő7 DŇ÷ Ę÷ ÜÉ×-ÚÓN÷ ĘŐ÷ś˙ÂČӗ M÷ źÓw"— $÷ ˜˙Ŕ>÷ žÔ7 Š˙÷ ”ŐߔÓ× :÷ †Ő÷ ŕÉ7r˙÷  É÷ ÄÉ7h˙Äĺ€ËŔ-÷ dÔĆ— ÷ J˙Ŕ>÷ pÔ7 <˙÷ FŐßFÓ× :č÷ 8Ő÷ ’É7(˙÷ JÉ÷ vÉ7˙Äe@¤— ÷ ˙Ŕ>÷ ,Ô7 řţ÷ ŐßÓ× :Ć÷ ôÔ÷ NÉ7čţ÷ É÷ 2É7ŢţÄe‚—  ÷ ÂţŔ>÷ čÓ7 ´ţ— ÷ ¨ţŔ>÷ ÎÓ7 šţÄe÷  Ô˜ŔB÷ ¸Ó÷ ’ÔwĘţ÷5zţŔ:÷  Ó÷ ¸ČŔö<÷ ÷ŇĐ÷ ěȇŚ—,˙˙€ ÷ şČ—,˙˙€÷ ŚČ—"˙˙€÷ –Č‚‡BwfÝ đ˙˙ü<đ˙˙ţ<Ŕe ő÷ ţÉ÷ ÚÉ÷ ŢÉ ÂßĆӗ I— i(÷ ˛Ő×-śÓZ÷ ŚŐ Âߤӗ I— i÷ Ő t— S— s÷ |Ő— Rú— r`öŔ— O— o6÷ VŐ×-ZÓZ-÷ JŐ ÂßHӗ S— s÷ 4ŐŔc— R— r÷ ŐŔ÷ ŹÉ„ s— P— p,÷ ŐŔ÷ ÉÄedŔC— U— u ÷ ŢÔ×-âŇZ÷ ŇÔ ÂßĐҗ I+— i(— R— r÷ °ÔŔ6%Ŕ — S— sŔ–Ň Ü— I— iwčţ— U— u÷ lÔŔ÷ úČŔ5÷ ZÓŔ5÷ PÓ×-TŇZŔö<Á÷ ÂÇ×-0ţN÷ 0Ô÷ ,Ô÷ >Č÷ *Č÷ vČ7 ‚Đ×- ŇN÷ Ô÷üýÂҗ M÷ Ňwn— ÷ ŢýŔ>÷ Ó7 Đý÷ ÚÓßÚŃ× :e÷ ĚÓ÷ &Č7žý÷ ŢÇ÷ "Č7´ýÄĺ€Ë— €÷ šýŔ>÷ ŔŇ7 Œý÷ –ÓߖŃ× :u÷ ˆÓ÷ âÇ7~ý÷ šÇ÷ ŢÇ7týÄe@Š— }÷ VýŔ>÷ |Ň7 Hý÷ RÓßRŃ× :S÷ DÓ÷ žÇ7>ý÷ VÇ÷ šÇ74ýÄe ‡— |÷ ýŔ>÷ 8Ň7 ý÷ ÓßŃ× :1÷ Ó÷ ZÇ7ţü÷ Ç÷ VÇ7ôüÄe™— ~$÷ ÎüŔ>÷ ôŃ7 Ŕü÷ ĘŇßĘĐ× :÷ źŇ÷ Ç7žü÷ ÎĆ÷ Ç7´üÄe™Ŕ-÷ šŃ”Ŕ7÷ ˛Ń÷ ŒŇw~ţ×-ŒĐM÷ |ŇŔ/÷ rŃÁü<÷ ÷Č·ŚćB—"˙˙€÷ śĆ—,˙˙€÷ ˘Ć—,˙˙€ ÷ ŽĆ—, ˙˙€ ÷ zƗ,˙˙€÷ fĆŔ÷ €Ćƒ‚‡Hf÷ĹŇŽ7 ÔŽ÷ ĚĽ×-b°÷ ÷5@¸Ž÷5˛Ž÷ ÔĽ÷ đĽ÷ ,‡wŚšĆĺ÷ &˛÷ &ľ †Ŕ+÷ 8ą÷ 2÷ ˛Ŕ÷ rĽ€Á÷ €Ľ—-N×-öŻNm×-îŻN÷ ć ÷ Ü´ †Ŕ%0÷ f÷ Ćą×-ĘŻN÷ şąŔ>÷ °°"Ŕ÷ x÷ŸŚŻ ţ7Šţ×-˜ţa Á ÁMŒţ÷E †ţwP‚ţ×-~ţA ×-vţDŔ&÷ Œ° ą÷ Š÷ ^ąÂ`Ż ÁmPŻW˘0Ä€  őÄ5Ŕ÷ P°÷ *ą×-.ŻNŔ÷ °÷ „¤Ă†Će‡wd¸÷ x¤ÂÂ5(ÁüŽW ÷ DőW ÷ ÂďW  ÷Ő:­ç÷ ÎŽ÷ îŚ ÷ ˘¤÷ &¤ÜŔ-÷ ĐŻ÷ ¤Ő‡f÷ ô×-¤Ž ÷ ”°÷ –Ž0×-’ŽN÷ †ł †Ŕ%÷ ˜Żć÷ Ö÷ h°Ö ×-jŽN÷ Z°×-^Ž÷Ő ¸Ź÷ Ž÷ D°÷Ĺ ¨ŹŔ*÷ 4Ż÷ –Ł÷Ĺ ”Ź÷ Ô÷ ‡wvˇ÷5~Ź÷ՀwŹ÷ŀoŹ÷ŐhŹ÷ L×-ü­÷ ěŻ÷ î­a×-ę­N÷ ޲ †Ŕ%÷ đŽć÷ .÷ ŔŻÖ ×-­NI÷ ˛ŻÂś­—  ÷Ő Ź÷ ¨÷ šŻ×-ž­N<÷ ŽŻ×-’­m÷ ‚Ż÷ŀéŤ0×-~­Ě,Ŕ*÷ jŽ'÷Ĺ ÎŤ÷‹ĚŤ€— Ě— m— Ě÷ՀąŤ÷ŀŠŤ÷ Ş÷ 4Ż Ŕ*÷ *Ž÷ Œ˘÷Ĺ ŠŤ÷ Œ÷ ÷Ĺ|Ť÷ŀwŤ‡wŒśĆĺ$6 6 ÷ b˘ĂŐĹôŹĂ5}×-ęŹN÷ Ţą †Ŕ%yć÷ ”÷ ÄŽÖ ÷ H×-ŔŹN÷ °Ž W! ‚ W!W! Ŕ(÷ °­ M‡W!MwˆŹLŔ>÷ v­w:ŔvŹ Q   Ŕ$îŔ÷ ÷ŸNŹHű7ŠEű×-@űa Á ÁM4ű÷E .űwP*ű×-&űA4×-űD0÷ Žą †×-űXW! W!Ŕ(÷ öŹW! ÷ Fý÷ Ęýw0Ŕ&dć÷ l÷ Đ­ŔŞŔ-ŞŔ÷ Ž Ö ÷ŸşŤ´ú7Šąú×-Źúa Á ÁM ú÷E šúwP–úŔ’ú A  a D dć÷ ÷ n­Ö Ŕ&†×-hŤJ÷ X­ÂZŤŔ$÷ lŹ×-LŤNŔ€aÁ÷ ¸ ś Ŕ€a÷ 6÷ ”° †Ŕ$wÔć÷ ŇÖ l†÷ ţŹ÷ 6÷5 \Šwœ÷‹SŠűÎ÷ âŞwZˇ#BŠű×-ÔŞNwB÷ ŔŹ÷ Ř wĂĹ ×-˛ŞIŔŔEű˙ĂU@×-œŞH÷ ŒŹĂŐĂ5éŔ€aÁ÷ řŸ—-"I ŔŔEű˙ĂU@ö÷ ĚŻ †Ŕ÷ jŤ—-ţ˙ˇ#Ź¨ŔŚ¨€ă&Ž ÷  Ö x÷5Ž¨÷‹‰¨LĂ5ćŞćŞć Ža÷ ˛Ŕ €aŔmţŠœ˙˙ć@N@ÁĹ@Őp˙˙÷ ⊡aŢŠĆe—-ţ˙ć÷ úÖ ÷ ŔŤö5÷ ´Ť6 ×-˛ŠUŤ÷‹¨€÷5¨ —-ţ˙ć÷ ŽÖ ÷ ‚ŤŽ wœţ÷‹ĺ§€÷5ܧ—-ţ˙ˇ#ҧŖ́€ă&Ž ÷ ĆÖ ÷ PŠ ÷5 Ž§Ŕ÷ ZŞ ÄÄ5÷ ”ž÷ †žŔ$Š   %Ŕ€aÁ÷ ‚žŔ€aÁ÷ tž—-"N€   Ě m—-"N÷ ÂĂĹ÷ ¨ĂĹwĆűĆe$‡÷5°¨7Š˘÷7Šž÷7 č÷‡wđą÷5řŚŔDĄŔ<ĄŔ-‚¨÷5ŕŚŔ,ĄŔ$Ą7j¨Ŕ÷ ~ŠŔĄ÷5žŚŔ- ÷÷š÷J¨7D¨÷5B¨ffć ćć`ćű˙÷ ÜŽwœ÷Će &÷ľsŚ"ŚćX`ćZ`& ÷ XŸ7@÷— ţ˙Ŕ; — ý˙Ŕ'— ű˙ŔR÷ ć¨Ćeˇ .Ś‡f÷5Ś×-ôöŔ*÷ ¨7 čö÷ŕö÷5š§7 ćö÷ˆöŕö÷`Řöćć& ćÁŔ\`ćć÷ Ź°7šöĆe ‡f÷ö7 Žö7 Œö7 Šö÷5@§7 ’ö÷.öŒö÷`„öćć& ćÁŔb`ćć÷ R°7@öĆe ‡f÷‹]Ľ€×-2öŔ*÷ ¨÷"ö7 ö÷5ŘŚ7 0ö÷Ćő*ö÷`"öćć& ćÁŔh`ćć÷ ęŻ7ŘőĆe ‡f÷Îő7 Ěő7 Ęő7 Čő÷5~Ś7 Üő÷lőÖő÷`Îőćć& ćÁŔn`ćć÷ Ż7~őĆe ‡f÷5˜¤÷-,Śâž÷ܞ"ŚŔ÷ 6§÷̞Ś ÷-ŚÂž÷źžŚŔ÷ §÷5úĽffć ćć%`ćű˙÷ ”ŹwœěôĆe !ˇ 2¤÷ľ'¤Śćv`ćx`& ÷ 7ő  ţ˙Ŕ; ű˙ŔR÷ ¨ŚĆe÷ěŁŔęô‡7Š’ô÷ÚŁ‡f€Ár÷ Ť‡€˘D˘d÷„ô‡÷|ô‡wŽ€ÁH`÷ ŢŞÂhô×-`ô— ŔG÷ ,Ś×-Jô÷-Dô°ŔU÷ ŚŔ‡7,ôŔ$÷ ţĽ‡wNŽĆĺĂô‚÷5Τq× xŚÁúóŔ`÷ ¤›ƒÄěóŽöxÄ Ç!#Äŕ× xŔŔx6ćŽaÁćć÷ ş­–%öexĂĺxÖ Ă ăδqöćŽa!xŔxÁćć÷ z­–%Äĺx—-öexÖ !xŕÄ —-6ćŽaÁćć÷ 6­Ćeƒ,€÷ bĆe‡f÷5@0˘ŚÁţňŔüňćć÷ úŹĆe w,ŕň@÷ ‡wňŹ÷üň×-ÂňŔśqŔ¸q7äň 4÷5lŁ/×-˘ňxćz`Á”ňŔ’ň÷ <šÂˆňćz`ÁŔxćć÷ zŹÂĺxĆe— xíćz`Á€ćć÷ VŹĆeƒ ö ɇwRŹÁ`ĄÂ2ň÷5đ˘6÷%`^ň7 \ň÷řńVň÷‹Ňń fŚ÷ HŤŔmň7ň–%÷5"ĄfćŚćfćŚćÁÚńŔ‚`ćć÷ ÖŤ7ň7Š ńĆe7fŚ÷ ňŞ7ěń   ŔS÷ |Ł÷ ›¤ń÷‹Rń÷mĘń˜ń÷ľŻ ÷5„ń÷m´ń~ń÷mŹńxń÷-rńrńŔ'÷ <Ł÷-fńȚŔ'÷ ,Ł–%Ŕ‚ń‡÷5˘ ÷‹řđć2ńć<ń÷ ö˜–%‡Ŕ$ń‡Ś&÷-ÜĄ†š÷€šŇĄŔ÷ ć˘ćĆĄćŔĄćv÷ ¸Š÷v4ń BÂm*ń€’ z ‚ a‡Ä @ŔĹ Ń  w ˆĄë÷v”™÷|Ą™÷ŐڟĆe„‚‡ć ÷-dĄš÷šZĄŔ÷ n˘÷5PĄćFĄć@Ąć%`÷ 8Š÷6ĄPđĆeććF`ćŽa& ÷ z˜Će ţ˙Ŕ;÷ $˘ˇ nŸÖ ‡ˇ @‰÷5ř  Ŕ4‰Á%`÷ 6˘÷•üď‡÷5Ü /÷%`Rđ7 Pđ÷äďJđׯŔ Dׯ¸ d ćć& ćÁ ćć& ćÁŔŠ`ćć÷ ĘŠˇ ŸĆe ‡ĆĺÁŽď Îd öb w\ ×-–ď@ŕ€c7J Ŕ÷ `Ąˇ> ˇ: Će‡Śćˇ\ž÷Źď÷˙˙¨ďƒĂ-žďO×-šďKˇ ’ďćŽďć÷ x¨ÁF` đ"žDđQH Ŕßž 0 9ׯž0*‡×Żü9&‚Ă-Jď#‰ ˇ Bďˇ čď A Zׯ֝A‡×ŻÎZ‚Ă-ď ‰ ˇ ďˇ şďÉwbďwbŹ–%Ź÷ü÷ž÷ đîĘœňšƒ‚‡ 0Nf×-ĚŤUŔ@÷ ¸Ź ÷ š‡f×-ŽŤUŔ@÷ šŹ÷šŤžú÷’Ť–ú÷ r7„ú  ˙˙÷ Š‡f÷pŤtú÷hŤlú÷ J7Zú  ˙˙÷ `‡wĘ´Ćĺ÷ ˜Ąö:ŤÎ2Ť÷ ×-,ŤP÷ ­ ŔA÷ Ź÷ ­×-ŤPú÷ hĄ÷ Ť÷ bĄŔ÷ œC÷ěŞöů÷čŞňů÷ ×-ŢŞN*÷ ÎŹ÷ Z˙÷ +@÷ ,Ą÷ †(×  ˇ´Şˇ°ŞŔ&÷ ÄŤ7 ¤Ş— ÷¤ů–Ş÷ ů’ŞŔ`÷ ŚŤ7 †Ş Ść@ććb~÷ şłĆeĆe‡fˇ!$ŞŔY÷ ö 7 RŞÁ÷ đĄ÷ n¨Á5 ÷ 76ů ô† ÷ ÚĄđ÷ N¨ŔH÷ 6Ť‡fŔ`Á÷ ˆŸ÷ î †×-ůN×-ůM÷ ţř÷ŐţŔÁ0e÷ ŠŻ÷-üý„˘‚÷ ôýŔ÷ ŢŞ÷Ĺčý÷Ĺâý÷ 6‡f×-¨ŠN÷ ˜ŤŔ÷ ŽŞ‡wä˛Ćĺ÷ Â÷ <÷ ęž÷Ő˘ýŔ÷ ôž )‡×-fŠR%÷ VŤ÷ Ȟ÷ z€÷ `÷ ¸žŔ÷ Ȟ ‡×-:ŠS÷ *ŤŔI÷ Ş÷ ’ž÷ D€÷ N ÷ ‚ž÷ 4÷ ZŸÁ^§ŕ€÷ ž-÷Ĺ&ýĆe‡wF˛÷ՀO§÷ ÷ Ęţ÷ 0˙÷ ý×-Ô¨N÷ ÄŞ÷   €÷ €'÷ŀ§÷ d‡f÷Հ §÷ ˘¨Ŕ3 ÷ ”­ †÷ Ž¨Ŕ%Ŕ:÷ xŠ÷ 2÷ nŞ÷ŀզ‡wžą÷ b¨Ŕ:÷ tŠ‡÷ R¨ü ÷ H­ †÷ B¨Ŕ%Ŕ:÷ NŠ÷ (Ş÷ ÷ ĚÂ"¨— Ná÷ Şß÷ úý÷ 6'‡÷ & ÷ ěý÷ Rţ÷ *ü÷ Ş÷ ž'‡7 LŚ÷  ÷ Îý÷ 4ţ÷ Ň'÷ ÷ ˆ÷.Ś‡fĆĺŔħ MŔ:÷ Ψ÷ ę ÷ Š'÷ v'×-š§N÷ ŠŠä×-Œ§MŕĆe‡‡‡wΰ×-t§L÷j§nö÷b§föÂŔ `÷ Ҝ×-VöL‚ — čó÷ | ÷ D‡f÷,§0ö÷$§(ö÷ 7ö  ˙˙÷ ‡÷ $ ÷ ęü÷ Pý÷ ~˙÷ ¨÷ <'‡f×-ęŚF÷ Ú¨÷ Ŕ-÷ ̧‡w<°×-ČŚLR÷Հ#Ľ÷ ˛¨ ÷ ÷ ŹŚ-‚ ÷ ˘Ť ‡÷ ÷ ’¨×-”ŚMŔ3÷ ˘§÷ €ŚŔ%Ŕ:÷ Œ§×-nŚN÷ ^¨Ů×-`ŚMŔ÷ L§Đ÷ ÷ œü÷ ¤œ÷ Äţ€÷ °%7 ”¤Á÷ ”œ÷†¤÷ŀ‡¤‡÷ ŚŔ3 ÷ Ť †÷ ŚŔ%Ŕ:÷ đŚ‡÷ f÷ 槇f×-ćĽG÷ Ö§÷ Ŕ-÷ ČŚ‡÷ ,'‡f×-ŔĽG÷ °§÷ Ŕ-÷ ˘Ś‡f÷Հ¤÷ î÷ '÷ŀőŁ‡f÷ ¤ ÷ jű÷ Đű÷ Ćů÷ Čű×-rĽUŔ1÷ ^Ś÷ œ÷  ÷ ,(‡f÷ l ÷ 2ű÷ ˜ű÷ Žů÷ՀĄŁ×-8ĽN÷ (§÷ € ÷ (÷ Ň ÷ŀŁ‡whŽ÷ՀqŁ÷ & ÷ Pů÷ Rű÷ řŠ †÷ ň¤Ŕ%Ŕ:÷ ÜĽŔ`Á÷ Vš÷ (×-ŕóN÷ žŚ÷ Žý€÷ Ň'€÷ ˛'÷ b ÷ŀŁ‡÷ Ň'‡fĆĺ€÷ °€÷ ş÷ Z €÷ ĘĆe‡÷ ˜ ÷ ^ú÷ Äú÷ œř÷ źú÷ ”ř÷  ÷ ŕ'‡÷ @ú÷ ä'‡f÷ j ÷ 0ú÷ –ú÷ Čř÷ Žú×-8¤UŔ1÷ $Ľ÷ b÷ Ô ÷ Ú'‡÷ 4 ÷ úů÷ `ú÷ ’ř÷ ¸ ÷ Ě'‡fŔ`Á÷ p™Ŕó L  H  I J KŔ ‡w­Ćĺ ˇ!zŁŔY÷ Lš÷ ˘ĽmŔ`Á÷ ™ŔŞň N M€ ÷ h_ö|ŁötŁ÷ ´×-lŁdPŔ`Á÷ ژ×-jňdŔ.÷ D¤íŔ`Á÷ ź˜ŔLň b c"÷ Ľ÷ Ľ÷ ĽöŁöŁ÷ R6— bÁa€÷ HĂÁa€÷ Hź÷ ޤŔ.÷ ÖŁ×-Ú˘d÷ ʤ÷ Ŕ €ÓĆe ‡fĆĺ ö˛˘öŞ˘÷ v×-˘˘d0Ŕ`Á÷ ˜×- ńdŔ.÷ zŁíŔ`Á÷ ň—×-‚ńa÷ `¤÷ \¤÷ X¤öZ˘öR˘÷ 6Áa€÷ ěË €ŐĆe‡fĆĺ ö&˘ö˘÷ ô×-˘doŔ`Á÷ „—öń €Ý [ \  ]  ^ _ `Q÷ ĘŁ÷ ĆŁ×-ĘĄd÷ şŁŔ.÷ °˘ö˛ĄöŞĄ ÷ €6 €ÝŔĺ[ ‚Ŕ l– €ÓśÁa€÷ bŻÁa€÷ ‚¨Áa€÷ ˘ĄÁa€÷ šÁa€÷ â“Áa€÷ Œ €ŐĆe ‡fĆĺ öĄöĄ÷ v ×- ĄH€ ×-ţ I) †ö•ö“÷ ޢöŕ öŘ  ÷ :6 €ÝŔ Ŕ l*–Áa€÷ ô ŇÁa€÷ ô Ë €ŐĆe ‡fĆĺ ö öˆ ÷ v ×-~ J€ ×-r K) †ö•ö“÷ R˘öT öL  ÷ :6 €ÝŔ Ŕ l.–Áa€÷ ˛ŇÁa€÷ ˛Ë €ŐĆe ‡fĆĺ ö öüŸ÷ <×-ôŸe÷ äĄöćŸöޟ÷ 6Áa€÷ 2č €ŐĆe‡wŠĆĺ²Ÿ— L÷  Ąö˘ŸöšŸ÷ Ôű×-’ŸM÷ ‚ĄiŔ/[ — H€ — I3 †ö•ö“÷ TĄöVŸöNŸöł ÷ ś¤ ‡6Š÷ t÷ v˙—­Áa €Ó÷ 4Áa €Ó÷ ,— d$Ŕ`Á÷ v”×-îz÷ ä ÷ ŕ ×-äžd÷ Ô ÷ Śü÷ z Ŕ.÷ ŔŸŔ:÷ ؟÷ œ  €ÓĆe‡wţ§÷  Ł †÷ šžŔ%Ŕ:÷ „Ÿ÷ P÷ x €‡w觡!6žŔY÷ •7 dž‡÷ ć°œ÷ ’ú÷ ÷ ş“÷ l÷ ˜Á’œÁŕŔ÷ Ň"‡wž§Ćĺˇ!čŔY÷ ş”7 ž'÷ ˜Ăbœ÷ v“÷ (÷ n“×-üT÷ ěŸŔN÷ âž÷ "ú÷ Ć÷ ˜Á÷ ,Á&œŕ€÷ f"Će‡w>§Ćĺˇ!xŔY÷ J”7 Śwć   ÷ –˘ †÷ Ŕ%Ŕ:÷ œžćŽa÷ J 6×-œŔ1÷ ~ž÷ XŸ×-\×-TLŔ,÷ bž×-D÷ :÷ .Ÿö÷ (ŸŔK÷ ž÷ x“÷  ő÷ v“×-÷ ŸŔJ÷ ř÷ l˘ ‡÷ ôř ‡÷ 46 ÁŔćć$€÷ Ś6–%÷ Jő΀÷   ×-śœ(Ŕ÷ 0’ "‡÷ šž÷ ˘ ‡÷ –ř ‡÷ Ö"÷ őÎÁŔŚć$€÷ ¸Ľ–%Î÷ J ΁Ŕfć$€÷ –Ľ–%Á÷ ¤’Ž@ććp÷ pĽ–%÷ ¨6ÄpšÎf€ćć2÷ JĽ–%÷ ś ÷ d‘÷ Ž ćA€ććţ€÷ "Ľ–%€ ÷ &Á šŕ€÷ ` ĆeĆe‡Ść & ććŽaćŽać÷ ř’— ˙˙,×-Œ›÷‚›ŔF÷ –œÎŚćp›ćÁŔćć÷ ˘¤–%ÎÁŔH›ćć÷ †¤Će ÷ .€Će ‚‡w~¤÷ B ÷  €Đ‡f÷ ‚  ‡Ŕ`Á÷ €Ŕę N MŔ Ŕ ‡f×-ܚL÷ ̜Ŕ÷ ›‡f÷ 0  †ŔT÷ Λ÷ Ž ÷ ˘œŔ‡fć ÷ ”éˇ ’é÷  6Ŕľ×-‚šI÷ ´˙×-tšH÷ dœ÷ Ä ÷ \œŔT÷ R›Î•÷ Ź ÷ Bœ €Ő‡÷ ú‡÷ ó÷ 2‡÷ zî÷ F‡wzŁ×- š 5÷ œ ÷ š%×- šL÷ ü›Â÷ lŸ ‡ŔÁŚ÷ œŸ÷ ŕ› †×-ŕ™MŔ÷ ʛŔ÷ âš÷\˜÷5 ˜ ÷ j÷5˜Ŕ9÷ źš÷ Ɨ ÷ f ů†÷ ˜÷Őě—ň‡f÷ œţ÷ î÷ Čď÷ úí×-n™N÷ ^›÷ ćń÷ ¨÷ ”÷ ‡÷ Đń÷  ‡ ÷ >™÷  ‡÷ źí÷ ¤‡÷ ví÷ ćw‚˘÷Հ—÷v ÷ ž †÷ ™Ŕ%Ŕ:÷ î™8÷ ÷ âš×-ć˜L+÷ ֚Ŕژ$ N M÷ Ž×-ĘN ÷ öô×-ś˜MÂe×-¨˜N÷ ˜šŔ>÷ Ž™ÂeŮ÷ >Ŕ÷ \÷ŀă–7 ܀‡f÷5ԖŔb÷ €™÷ `˜÷ €÷ Úđ÷ „‡f×-H˜M÷ 8šŔ÷ .™‡f÷ ’Ŕ`Á÷ ž×-.çN÷  †÷ ˜Ŕ%Ŕ:÷ ô˜÷ ÷ ě™÷ č™÷ ę—÷ ´˙÷ ‡f÷ ԗSŔ÷ R †÷ vě÷ş—Ęć÷ś—Ćć÷˛—Âć÷ ¤™ŔşćŔĺ *‚Ŕ l2–÷˘ćŽ—÷žćŠ—ׯ„—.ŔDŔ-÷ ˜7 p—}÷ Úíz÷ ęřw÷ .ůt÷ ňěq÷ `în÷ žîk÷ Üîh÷ ,ďe÷ 0ďb÷ ôü_÷ >ď\ŔZ÷ bůV÷ đS÷ HđP÷ ÖüM÷ ÚüJ÷ ěŒG÷ 4ńD÷ TńA÷ âŒ>÷ bń;÷ ”ń8÷ Ěń5÷ 4ň2÷ Rý/÷ €ý,÷ „ý)÷ Fň&÷ bň#÷ Šý ÷ B÷ Zň÷ Œň÷ °ď÷ Ôđ÷ ¨đ÷ jý ÷ ţ÷ ŕń÷ üî÷ řî ‡wěŸĆĺˇ!&–ŔY÷ řŒ7 T–w.Ŕ€a÷ bÂD–Ă>–Ŕ`Á÷ ˛‹×-Bĺw— U÷ ’› †÷ › †÷ –Ŕ%Ŕ:÷ ú–Ŕ€a÷ Ś 7’”÷ č—1÷ &ň7†”  — U×-ŇäŔ0÷ ä–×-f”ÁŔ — UÁÁśkŔ& ć$€÷ äž76”Ö Ž÷ ˆ Ö ö&”Ĺ"”×-~•w÷ n—ŔL÷ †–÷ Ί×-d•Lw ÷ N— Î×-L•M„ ÷ :—Ä5T÷ 6•Q÷ nń … Ŕ1÷ <–×-•*€÷ †— ÷ X÷ D÷ ň–÷ 2ń… Ŕ1÷ –€÷ T— ÷ î÷ Ú÷ b€÷ 2— ÷ °÷ œ×-Ś”Nƒ Ź×-š”M§§Ă  ÷ 0 C ű÷ ĐęÎ5÷ .6÷ ډ÷ ŒüÎ5 Ŕ€a÷ œ ÁŞ’í€÷ ćwŘţ×-@”xŔM÷ N•÷ &–Ŕ€a÷ N Će‡fĆĺ÷ 㡠ă÷ ™Î5×-ţ“PŔ:÷ • ÷ ę“Ŕ%Ŕ:÷ Ԕö•UŔ€aÁ÷ D‰—-L÷ Ř 6>öŹ“ö¨“÷ œ•÷ ˜•ˇ –â×-’â Ŕ2÷ Ś”×-ˆ“M÷ x•ů÷ ţë÷pâ×-p“N ÷ `•÷ čë÷ZâŔ€a÷  Ŕ€a÷ Ž 6÷ :â×-<“M÷ ,•Ŕ/÷ "” €ÝĆe‡×-“U÷ ä÷‡ŔŸ“ 0‡ 9‚÷ Xř‡÷ Öţ‡÷ě’üá÷ä’ôá÷äáܒ÷ŕáؒŔ1÷ ě“÷ÜáȒ÷ŘáĒ‡÷ Š÷ ŹŔ‡÷ |÷ Ŕ‡DBľ  ÷ üˆ— ÷ 0‡÷ ~‡— ÷ Ŕ÷ ؈÷ F‡÷ Ŕ÷ ƈ÷ ‡ ÷ Ś‡÷ €‡f÷5D’ćć&`ć*`ć(`÷ ‰7HáĆe7 >á÷ :á÷ ’ ÷5’ć$áćá÷ ˛‰–%Ŕá÷ ځ‡ŚćCŔ(z÷ ,“ˇ zŔ÷ ž ƒ‚‡7ňŕ÷5đŔ4`Á÷ ʈ‡÷ x÷ RŔ‡÷ j÷ R‡÷ `÷ Ü Ŕ‡f÷5ˆ‘ćć&`ć*`ć(`÷ Ԉ7ŒŕĆe7 ‚ŕ÷ ~ŕ÷ Ö ÷5R‘ćhŕćbŕ÷ öˆ–%Ŕ\ŕÁRŕ÷ Š‡w€šć ććŽać$`& ÷ rˆ— ˙˙÷•RŔ=÷ ’ˇ˜ˇ”ţ ŕ€Će ‡Ćĺ Cˇ yÁaŔy÷ ’ÎŽaö÷5ź5ććććŔ€aćć÷ ޙ–%ö — ő5öˆ–öŠ–öŒ–ÎŽaŔćć÷ š™–%ćŽać"`ć$`ć÷ –‡!˙˙÷•vŽŔ=÷ <‘Će‡÷ Š÷ ˛ ‡CA÷ xő5÷ ň‡Ŕ÷ ÷ Ř A€÷ V÷ ~ ‡C÷ Ŕ÷ ú÷  ő5Ŕ÷ ¸‡fŔćć‘÷ č˜Će‡BA€÷ ÷ . ‡÷ ´‡÷5€ćć&`ć*`ć(`÷ ̆7„Ţ÷ ÜÎvŢćpŢ÷ ‡Ö Će7 dŢć`Ţ÷ zÖ ‡÷54ćć&`ć*`ć(`÷ €†78ŢĆe÷,Ţ÷ (Ţ÷ € ÷5üŽćŢć Ţ÷  †–%Ŕއw4˜ˇ w÷5֎'ćććĎćÁŔćć÷ ö—–% ÎÁŔ˜Žćć÷ ֗–%  ćć"`ć$`ć÷ ΅€÷ ˜ˇ÷ţŒĆeŔ‡÷ ÷ ć Ŕ‡ ÷ Ŕ’ŒŔ凌B&÷*ŽPÝ÷"ŽHÝ €Ó  ˇŽˇ ŽŔ1÷ " €Ý  ˇôˇěŔ1÷ ÷ Ýŕ÷ÝŘÖ ‚‡÷ЍöÜ÷ȍîÜ wşw¸Ŕ1÷ ̎÷ÔÜŞ÷Ěܢ‡wö–ˇ ŕu×-–÷ŒŔF÷  Ž÷5‚'ćććpćÁŔćć÷ ˘––% ÎÁŔDćć÷ ‚––%  ćć"`ć$`ć÷ z„€÷ DˇŽ‹÷Ş‹ĆeŔ‡wR–ˇ Œ €Ó ÷ L ÷ 8 ŔÖ ‡÷ ,ýŔ‡÷ "ý÷ jŔ‡f÷-択ƒ÷˜ƒÜŠŔ÷ đ‹÷5ҊŔ ÷ ځ÷ľ!‰ ćć&`ć*`ć(`÷ ‚ĆeŔ ÷•äˆ ţ˙Ŕ# ű˙ŔR÷ ˜‹‡÷ @ü÷ žŔ‡÷ 2ü÷ rŔ‡÷ ¸€‡÷ 8‡Śćć ććŽać$`& ÷ ”— ˙˙÷•tˆŔ=÷ :‹ˇşˆˇśˆË,ـĆe ƒ‚‡fŔžˆ÷ pú×-”ˆ÷ ÷ ށ‡w4“ć ććŽać$`& ÷ &— ˙˙÷•ˆŔ=÷ ̊€÷ Ü ˇFˆˇBˆĆe€‡Ść fćŽać$`& ÷ ŕ€— ˙˙÷t‰ˆŘ÷l‰„Řwf‰w`‰÷•އŔ=÷ pŠ÷fŘN‰÷bŘF‰€÷ Ś Će€‚‡Ść fćŽać$`& ÷ €€— ˙˙÷‰(Ř÷ ‰$Řw‰w‰÷•J‡Ŕ=÷ Š÷Řîˆ÷Ř戀÷ x Će€‚‡w,’÷-ЈŠ÷„ĆˆŔ÷ ډ÷5źˆÂp7 lŔ ÷ ź7ÄסZćć&`ć*`ć(`÷ î7Ś×ĆeŔž×‡ŔźpÁ:`÷ ź‰÷:`’×÷5dˆŔ4`Á÷ j ć4`ć&`ć*`ć(`÷ ¤Ćeˇ |p‡ŚB7V×÷5*ˆć4`ć&`ć*`ć(`÷ v7.×Će7 $×Ŕ ×Á×÷ NÁH†ŕ€÷ ˆ ‚‡Ŕ&p÷ *‰ˇ p‡÷5@4†7ôÖŔ4`Á÷ Ô~‡÷5@†  ÷ ‡7ĐÖć4`ć&`ć*`ć(`÷ ř~7°ÖÁŚÖ÷ ŢĆe‡wҐÂšÖ— ý˙÷ľӅ÷•°…— ˙˙Ŕ<— ţ˙Ŕ#÷ dˆ‡— ű˙ŔR÷ Tˆ÷˙˙VևćŔććô‰÷ dĆe‡f@Ŕ lŽ–Ŕbր € ŔŔEŔ˙  B  ÂE˙÷Eü@ÖˇP<Ö( @€  @Ŕe÷5@ … ÷5Ö÷ ˛÷eţ„÷ Ś@ŔŔ Ŕ ŔE˙÷EüîŐ7PęŐ÷5@ę„;÷5ÚŐK6ŔÔŐ÷5@Ԅ Ŕ ÷5ŔŐ÷ b÷eŽ„Ŕ ÷ Rˇ¨Ő1€ŔEü÷E˙šŐ7P–Ő(÷ Ő÷ 0÷5@Š„÷et„€ŔEü÷E˙pŐ7PlŐ÷ ÷ bŐ÷ ÷5@\„÷eF„Ŕ÷ Ö ‡Ść&B÷58„f÷5&Ő"ŔÖـ  X÷5Ő ÷•Ő7 ŐŔW÷ @|÷řÔK÷e¨ŮŔ˘ŮŔ °j`ˇ ˜Ů@÷‹äƒ=€ ÁÝŃÔ@ŔeD`ÄD`!' ÁefŚ&÷ Tw`ރ÷‹´ƒ€Îć"ć@`÷ Œ|÷ƒpÔ÷m:…jԖ%7Š…ÔCŕŁB`Ŕ÷ :˙ ćŚ&÷ 7‘eÔ÷`^ƒĆe„ƒ‚‡f÷ TÔŔÁh`÷ ˙7 Bԁ‡÷ :Ô÷ Ú˙ ŔÝ)ÔŔ %÷‹,ƒ €÷5&ƒ÷5ƒ×-ęÓ÷ŕÓć&Îeć@`÷ ä{÷č‚ČÓ÷m’„ÂÓĆe7ŠŰӇ÷ €˙÷ŇÓ7 †ŘŔ€Ř‡÷ l˙7 ŔÓŔt؇ŚćB÷ V˙ćć÷ V€`Ŕ 7h`œÓĂĺÁ Áej`Ŕ÷ Jţˇ:ؖ%ƒ‚‡‡fŔ÷ âü‡f& ÁŔ&ćô‰÷ BĆe‡f& Á Ŕ&ćô‰÷ $Će‡f& Á Ŕ&ćô‰÷ Će‡fŔ/÷ zü‡f& ÁŔ&ćô‰÷ ڌĆe‡f& Á%Ŕ&ćô‰÷ źŒĆe‡fćÁ%Ŕććô‰÷ šŒĆe‡fćÁ&Ŕććô‰÷ xŒĆe‡f& ÁŔććô‰÷ XŒĆe‡f& ÁŔććô‰÷ 8ŒĆe‡w:ŒÂ>Ň7 :ŇćÁ%Ŕććô‰÷ Œ–%ˇŇ ÁŔććô‰÷ đ‹Će‡wô‹ÂřŃ7 ôŃćÁ&Ŕććô‰÷ Ƌ–%ˇÖŃ Á(Ŕććô‰÷ Ş‹Će‡f& ÁŔććô‰÷ Œ‹Će‡f& Á(Ŕććô‰÷ l‹Će‡fŔ7÷ ŕú‡fŔ÷ Ňú‡fŔ÷ Äú‡fŔ ÷ śú‡fŔ ÷ ¨ú‡fŔ ÷ šú‡fŔ ÷ Œú‡fŔ÷ ~ú‡fŔ ÷ pú‡fŔ÷ bú‡fŔ÷ Tú‡fŔ÷ Fú‡fŔ÷ 8ú‡fŔ÷ *ú‡fŔ÷ ú‡fŔ÷ ú‡ŚB Ŕ.Ŕ÷ ňů€ ÷ t‚‡Ś— ˙˙÷ Ş€ŔEü÷ÄŐ7PŐćÁŐŔććô‰÷ (ŠĆe‚‡fŔ÷ œů‡f& ÁŔććô‰÷ ú‰Će‡f& ÁŔććô‰÷ ډĆe‡ŚŔ÷ LůćŔććô‰÷ °‰Će‚‡ćÁ Ŕ&ćô‰÷ ’‰Će‡fŔ(÷ ů‡fŔ4÷ úř‡fŔ÷ ěř‡fŔ÷ Ţř‡fŔ'÷ Đř‡Ŕ<÷ Äř‡@ŔEü÷ŹţÓ7PúÓćÁňÓŔććô‰÷ ‰Će‡fŔ÷ ˆř‡fŔ÷ zř‡ŚćC— ý˙÷ľű}— ˙˙÷ (˙?€ŔEü÷Ŕ”Ó7PÓćÁˆÓŔććô‰÷ ŚˆĆe(÷ Xú÷EühÓ÷UĚbÓÁÁí˜}fÎĺć÷ BˆÁEü÷E˙BÓwP>ÓÎÁ6ÓŔććô‰÷ TˆĆeƒ‚‡f& ÁŔ&ćô‰÷ 4ˆĆe‡f& ÁŔ&ćô‰÷ ˆĆe‡ŚŔ)÷ ˆ÷ćŔććô‰÷ ě‡Će‚‡fŔ!÷ `÷‡Ś— ˙˙÷ ţ€ŔEü÷ȎŇ7PŠŇćÁ‚ŇŔććô‰÷ ž‡Će‚‡÷ ćŔććô‰÷ |‡Će‡fŔ8ŇŔ l˜–÷ŐÂ|Ŕ2÷Őś|Ŕ+÷ŐŞ|ů÷Ő˘|Ŕ,÷Ő–|ů÷ŐŽ|Ŕ3÷Ő‚|Ŕ-÷ ˘ö‡Ś÷ fý€ŔEüÁPćŔŚćô‰÷ î†Će‚‡Ś÷ 4ý€ŔEüÁPćŔŚćô‰÷ ź†Će‚‡Ś÷ ý€ŔEüÁ PćŔŚćô‰÷ Š†Će‚‡fŔ=÷ ţő‡Ŕ÷ ňő  ÷ tý‡ŚŔ÷ Üő€ ÷ ^ý‚‡ŚŔ1÷ Äő€ ÷ Fý‚‡ŚŔ9÷ Źő€ ÷ .ý‚‡fŔ÷ –ő‡fŔ0÷ ˆő‡fŔ6÷ ző‡fŔ*÷ lő‡fŔ÷ ^ő‡fŔ÷ Pő‡fŔ5÷ Bő‡fŔ÷ 4ő‡f& Á"Ŕ&ćô‰÷ ”…Će‡fŔ÷ ő‡fŔ÷ úô‡ŚBÁEü÷Ä6ĐwP2ĐćÁ*ĐŔććô‰÷ D…–%΁Ŕććô‰÷ ,…Će‚‡fŔ?÷  ô‡fŔC÷ ’ô‡f€ ÷ ü‡ŚŔ÷ rôćŔććô‰÷ քĆe‚‡7’χf7ŠŇĘ7 ˆĎ÷ľ×yŔ"÷ 4ô‡ŚĆĺ ÷‹şy€÷5´y÷ höˇfĎ÷mF{`Ďw^Ď÷ĺXĎććć*e÷ rrĆe÷ľyŔ8÷ ŢóćÁÄsŔććô‰÷ @„ĆeĆe ‚‡"0>L@FLRX^djpv|(‚ˆŽ”š ŚŹ˛¸žÄĘĐÖÜâčî.4:ôú 10 ÂÔ  , 4@@T*** NoPRO/CTS-300 DIBOL-83 V1.0/APage Data DivisionŚ&÷ľ żn9÷Ň˙7Đ˙ˇ Ě˙÷KČ˙÷@ Ä˙ÄŒ ÷ Ř ŔÝq˙ T F÷5žnŔE7U˙ ŔÝO˙ W÷‹dn€ˇ Lnק+‚ß•+÷5LnwŞ  E  D÷5,n †÷ 4f÷‹n€ˇ nק+ߕ+÷‹n ×­áţF ÷ľům÷ nw@×­ÇţDŔE Ŕݡţ7łţŚÎĺćQ ćć ÷ ¸v!ŔNo ć@oć ć&ćű˙÷ îuĆe ć"o&÷ wÁmoBÂĺ–%÷ľ qm×-gţ˙×­CţFÎÁmŔţ˙ŚćŔ÷ ,x–%÷Ő Am×­ţI÷ dm Á DÜ@ !  ! ö ×-Ćfţ˙×­ëýF÷ 2m×-°fţ˙÷˙˙Śf΢fŚfÎe@ ÷ Ěe–%÷5Ül÷ľĎl×­­ýF NÎe@ Ŕ˙˙ććŔ÷ ”w–%Će×­‡ýF÷ 7 Úl„‚‡÷˙˙Rl÷˙˙Nl÷Bl7 n÷n÷Ĺ@rl÷Հll÷Ő ilߕ+‡÷ ŕŔ‡Ś÷ľIl=÷5Ög ÷‹>l÷ľ9l÷ üˇ ŠfÂœ Ŕ‚f÷ oŔw ÂećŚ&÷ ˘uÎźeć…ćö ÷ ädÎŹeć„ć| ÷ ÔdÎœećć ÷ Äd÷0fĆe‚‡CĂ ‡÷-ff÷ b˙— ˙˙ćbećfk — ţ˙&ŔîeÁ ÷ xnŔdUÁ˘ ÷ ln×­ľü ×­Žü ×­§ü0ćć ć漠ć ÷ čt  ć ć ć ÷ ¸tĆeÁÁe W-÷ľ k÷•IŽf÷• Śf— ţ˙ćźdć¸dfć ÷ľ ńj÷•I–h÷• Žh— ţ˙ćŽdćŠdfć ÷ ´c— ţ˙ˇ eĆe‡ŚĆĺ÷ľ ąj5÷Ő §jŔj÷ „m÷.l÷&lˇa"lŔ ÷ źbÂjj— Ŕ€÷ Rm÷ük÷ôkˇađk÷ęk÷  âkŔ ÷ |b÷ÎeĆe‚‡f7 ŔeÁ Ŕ&fćO ÷ ˛sÎćÎ ć7 ÷ ˘sÎćâ ćź ÷ ’sÎć+ ćs ÷ ‚sΖcćcć ćć÷ ćű˙÷ &rÎncć~ć ć,ćÔ ćű˙÷ r÷5ŹiŔ Á1 Îfć ć-&ćű˙÷ âqĆe 7 ŕcĆe&‡ŔüˆĂ¨ŚćÎe÷bŔŠČđjŚýˆ†ŔüˆÎ đÖ Ö ŔŠČ0 đŚđ(0 ýˆ‡‡ß‹*ÁžŚÁŠŚŔrŚéˆ@éˆ čˆ¸"ŘwԀInitialization Error - €ERMSG.TXT [Unknown]ERMSG.TXT""¨z¸÷ ÷ $÷ Ş÷ L÷ ž‡¤&fŚć&‡¤ÁĂ 7× 4 2Ă Ă Ă ŔŚ`ä%‹ &ŔĂ€ŕŕĂ ćÎEř˙Î Î Î Î Î Î ƒ ƒ ƒ ŔŠČđđŠđ0 ýˆ ‡ÎeŠ&&‡Ô ÂSĂÁŔű¨éˆ 舤Ŕí¨$ЋfÁ Á CÁ`Á`Ăr¨Á`ĂP”Ă ýЋÖ%ЕMЕE&ƒćŔ Áꨁc  ŕ‚ űĂe0ᐃÎ ôÖ Áꨀ ĂÉĽ0ыà ‚ ůP”Ă ýÎ à Е-ƒ  űĂ &‡Č•€Ă ƒŕ÷¤d¤÷ @ Ö €Ă>÷ . ѕ  ü&ä˙˙Œ #ŃĽ€ú‡Ń•€Â đë” Ă ű‡¤ƒ‚€&‡DIBOL-DIBOL-DDT---DECFRMDKED--FBCOM-ISMUTLPRINTUQUIL--REDUCESORT--SORTG-SORTM-SPOOLRSTATUSDICOMPFOCOMP******CTSRTS****** ? - €Bad Error Message FileZ.DBL.LOGDK:DK:Ść&BƒŚfć  ÷ ŔxŽfć.÷ Ôw Îć ŚÎe  ÷ žxĂe–%Žfć:÷ ŹwΞhćÎeć  ÎŽhćć  & ÷ ŠgŔ5ˇ`pwZp Ŕžק*Ŕ ߋ*ŔŔŔĆe„ƒ‚‡÷j÷5|n÷5tn÷5 ln5ćhć hćhć÷ gĆeŔ5&÷ňgŢo÷ęgÖo Ŕž‡ Ŕ×*  úŔ ‡ Ŕś‡Ŕ Ŕ‡Ŕ‡Ŕ‡÷5ôm5ć¤gćgćŠgć÷ –fĆeŔ5&÷vgfo÷ng^o Ŕž‡ Ŕ×*  úŔ ‡ Ŕś‡Ŕ Ŕ‡Ŕ‡Ŕ‡÷ľ}mUć$gćgć! ÷ wÎć Ŕ gŔe &Îe÷ ćv÷úföý÷eđýÎňfćčýć ć÷ čeĆeŔ5&÷Îý¸n÷Ęý°n Ŕž Ŕ×*  úŔ  Ŕś Ŕ ŔŔŔĆe ‡ć~f& & ć÷ xeĆe‡`Ść&f÷5^o7 ŔÝ~oÂ`Ĺeś— x!Äxŕ&ff÷ ĚxÎčhć|ć˛÷ h7aÂp÷žp`oÂĺx7Š÷ ~ţÎá—#dć Ść´Ť÷ Nw€Á´Ť÷ Xţ$ć ćdć´Ť÷ 0wŔdÁ´Ť÷ :ţö˛Ťö ÎŽa€ŔĺdÁććś ÷ `x–%ĆeĆe‡Ś)f„& Ä Ž ő5w"7ú ˇô vö5%5 ÷ 2W÷W*W! ćŚćpů÷ ŽvőňV &Ś& ććpůćű˙÷ PuĆeƒQˇ ňlˇœ 7!4gÂ*g ÁŸ† W z ‚W a‡ć N@ÁĹ Őpöůˇ f €  ë÷öůR Ăöů÷5 žl÷5”l@   ŔŹÁŔŹÁ÷ PcćŹÁrůŔpůćć˜÷ 2w–%÷LVö5!ˇěÎŹć(Źć*ŹŚ ÷ e7ĚĆe÷˙˙Ŕ7 VŔ¸ ű˙Ö Ŕű˙WŔ Wö5 Ö N÷ ”ΐć*÷ €v7ˆć*÷ Ţu÷vz7ŕv ÁÁ w,„ůh(ö5ö5 ÷Ő›kŔŔŠŔ ÎDć ÷ šuÖ `ňU@Hç÷-JU* Îćf„ů÷ –d–%ƒ × Î÷ŐSkĆeŔţ˙w(×-U÷ěU÷UäUÖ B6 — ś —  ÷5ČU÷ČUÂU÷ŔUŔU÷´U6 — ś — ÷5ŢjˇU÷5ŒU÷ˆUŠU÷†U‚U7 zUÎ5Ä wő5úŔZUŔŠŔ ćpTć ÷ ¨t`ŔBç@`÷5„j ÷‹j€Á `ÉU@Á `ÉE@đdTđ`TƒČE  †ČU 6 — ś ĂĂć   ÎE˙?ČEŔˆUĂ`fÎEŔËE˙?‹UfËE€ †ËU€fÎEŕČE˙ˆUËE@đŚTδSć*÷ îsŔmŞS7†T÷5Ěi ö5ő5÷5˛iÉU€ÉE€Će— — ÷Րi ö5ö5÷Ĺxi÷5ri#Î5 ŔTŔŠŔ ć0Sć ÷ hs`Ŕ ŔE˙?ńEŔBç1PBç÷‹5ińU€Lç–%— #—  — — ÷5 i÷‹iő5wmśS ff÷ ţrŔm¤S7 S–%÷5’SŔ’SŔ 7 ˆSŔzSŔŠŔ ćRć ÷ Čr`ńý˙Jç÷ŐĽh–%Î5Ä ;ő57Á`Rfć*÷ ˜r–%ŔmRR7 nR÷Őqh#×-@R)W  ććf÷ „aˇ "R÷RhRćff÷ laˇ R7 RĆeˇ ţQŔÚRŔĆe‡wsŚ ć*÷ ˛r7Äć*÷ rˇś7ಠ ˇ,„ů¤$ŔŔŠŔ Ζć ÷ âq`€ŔEŔńE˙?Hç1PHç÷-ˆQrÎ挄ů÷ Ô`–%Će‡ƒ × ŇÎ& ćH÷ ž`÷@”QÎ<ć ÷ ˆqÁEŔđE˙?HçpPHçÎ& ć÷ „`Će‡f÷5@Dgo×-Q× Dů÷ Q ćććöP÷ P`Će×-îP× Lů÷ ŕP ćććŇP÷ (`Će @€ € € ŔeXů&fÎEř˙ć& ÷ †pĆe †ćf@Ŕ &„ů÷ ę_Će W Ţ @€ € € ŔeVů&fÎEř˙ć& ÷ @pĆe †ćf@Ŕ &ů÷ ¤_Će W Ţ ć& ćFP÷ ˆ_Će‡Ść&fD7ô÷ Œ`‚` ÁŸÚW z ‚W a‡ć N@ÁĹ Őpöůˇ ş€  ë÷Ş÷öů˘ćŹÁrůŔpůćć˜÷ Âp–%÷5 Ře Ä5 ÷5ĆOŔŹÁ÷ ¤\÷şOÎŹć(Źć*Źć,Ź÷ ˘^7N7 žOŔ I÷5ŒOĆewź÷ 2Î.ć*÷ p7&ć*÷ |o÷7ŕ ÁÁ w,ůŔŔŠŔ Îřć ÷ NoÖ `ňU€Hó÷-OŢ Îćfů÷ J^–%ƒ × Ů÷Őew* ű˙_ĂĐN× ÷ŽO÷¨OŔ¤OŔŠŔ δNć ÷ än`ŔBó@`ČÄNđÂNđŞdÂ`Á2OÁ E¤ůĹEüĘE˙ƒJQÁrNÁÁ Á ÁE˙ƒĘE|JPÁÜ^ÁE€đE˙pPđE€Ä5đU€đý˙ Îć*÷ jnŔm.N7O÷ľIdˇ &N–%ÁNNć*÷ FnÖ ŔmN7 N÷ű˙âN÷Őd#×-đM)W  Îćf÷ ,]ˇ ÎM÷ĘMN Îć¨Nf÷ ]ˇ ´M7 śM–%ˇ ŽMĆeŔŒN…„ƒ‚‡0 ffŔŔÁЕ Á ü‡wüMĆĺ ś6 „ …"v!…ÎW  Ő‚aÂ`W  )W $Ŕ#W .ŔW 0‡W 9‚@ŔĺW A‡W Z‚@Ŕĺ@ W a-‡W z*‚@Ŕĺ` Ăe× Ć‚ ‚mŚć@÷ DLŽ ć(÷ 6L`ƒmĘś ĆeÎe…#§Ŕ Će ‡wMĆĺ„!˙˙w÷Đ°ţ÷ĚŹţ÷Ȩţ÷Ĥţ÷ Îţ÷Ŕ¤ţˇ ţ÷ĹXňW Á Qˇ „ţŔ€ţ7œ˙˙|ţ7ŠyţŔtţ :ćfţÎĺŔćŔć@Ěć& ÷ ŠţÂ5Ŕ đ0ţ2Ŕ÷Ŕ8ţ÷ Xţ  . ć(ţÎĺŔćŔćBĚć& ÷ LţÂ5ß*:÷Ŕüý÷ ţ÷Ő˛ńĆe ?čýˇ äýƒ Á ŹŔÚýŔĺŔ€ ÷5Žń&ćŔćFĚć&ćŔćBĚć& ÷ âý ‡ß+Ŕ@ĚćHĚ∆Će g÷ €ýßľ%Će Ŕ\÷ Zý÷(RýŔ@ĚćJýăˆ†÷ Će K78ý€ € € ŔeŔ&ÎEř˙ćŚ"÷ +‚*Á €ŔŠŔ Ŕe>Ŕ1&Ŕ1 Ŕ—-$śöeö@Ě6 6 Ŕ śöeö@Ě6 Ŕ€aýˆ†ĆeĆeŔ Će‡fW ˙˙B@€ € € ŔeŔ&fÎEř˙ć& ÷ ZIĆe Á €ŔŠŔ Ŕe>Ŕ@,&ŔŚ÷ BÖ ÷ľ u? ˇ-$9ˇ-9€Ŕeüˆ€Ŕeüˆ€Ŕ &2ŔăˆŔ‡wPJĆĺ …AÁ Â&ŔB`@ŔŠŔ Ă>Ŕaƒ"&€ŔŕŔ :ŠŠ €  ˙ůNÎe vŔöö6 €ýˆ†f& ÷ z–%ą Ŕ Ęe=ÂŔĆe ‡ĆĺŚÎeś śö6 €ýˆ†Ŕ˙˙Će ‡wžIĆĺ …W!w,W!˙˙"7 Jűŕˆţ‡7DűŔ@ű   ˇ &űŕˆţ‡í×-ű sŕˆţ‡7űn7 űˇű÷ŸîAÁ Â&ŔB`@ŔŠŔ Ä>Ŕ`Îe÷5”îSŽ"„"vöevŔ6ö6 Ŕ€aýˆ†Ŕ˙˙<ą Ŕ Š €7œ˙˙”ú7Š‘úŔŒú Ăe˙ƒ"Í÷Ő. —Ž Š Ŕ Ŕ ť ö-Lú÷Őüí°ˇ <ú?<úˇ 8úŠŔ.ú Će ‡ĆĺŚÎe ś śö6 €ýˆ†Ść÷ ˛–%ŔĆe ‡wHĆĺ „7!˘6 &ŚŚ÷ zĆe_ˇŔůˇśůÎ Gˇ ŽůŔŞů7œ˙˙˘ů7ŠŸů!˙˙ Ŕݒůáˆ6†ýÁ Â&ŔB`ŔŠŔ Ă>Ŕ`ŔŔe€" ą ŔĘ6öe vŔö öö6 Ŕ€aýˆ†&ć÷ č–%ú&ůŠ … w!ůľ÷fŐů÷ ůÎ ŤŔĆe ‡w(GĆĺ ˇúřˇđř„ Aˇ čřŔäř7œ˙˙Üř7ŠŮř!˙˙ ŔÝĚřáˆ0†ýÁ Â&ŔB`ŔŠŔ Ă>Ŕ`ŔŔe€"Îe vŔöö6 €ýˆ†&ć÷ .–% ą ŔĘúlřŠ … w!`řťŔĆe ‡wxFĆĺ 7ŠXřˇPř÷eJř„Á Â&ŔB`ŔŠŔ ć>Ŕ`ŚÎeĹ@Ŕ Ŕ lhŐ÷nĚř÷ř ˇřˇř÷÷rĚô÷÷ę÷ 6ˇ ć÷Ŕâ÷7œ˙˙Ú÷7Š×÷ ŔÝŘ÷ŔíĚ÷7Đ÷Ž" 6öe vŔśö 6 Ŕ€aýˆ†&ć÷ >–%ą ŔŠú€÷Š ƒ ÷ t÷Ć… W!§ŔĆe‡fŔb÷ –2 ‡fߋ*w ţ3Ŕ w đ3Ŕ w ę3Ŕw Ü3Ŕ÷ P2 ‡ ¸DK:w\DŚ)& ÷5<#Rö5W,ff& ććpůćű˙÷ `AĆe7ćfćpů÷ ŒBöĐ",w˙ Ÿ˙— z ‚— a‡Ä „@ÂĹ Ń°tŐˇ ćţ€ 1 ęwź"÷tŐ´"ćvůÁrůŔpůćć˜÷ xCĆe 0 |ůŔe ů÷˙˙Öţţśv  ŔŔŠŔ öBçś`÷‹P8€7 ¤ţ÷ "wö5 ö5 ˇ,„ů&"wÄ Â ˇ,„ůč!7!ä!ô&ć ÷ B–%€m7,ö!JŔŔŠŔ @aÁBç`w,ŕ!>Ś ń €€  5ö5 Ś@Ŕ Ŕ Ŕ € € €  ö5ö5 ö5w ×-(9U ć É5 €  ×-9Qtć É5 €  k˛ –Ő÷5@R7ńU€ Ŕ€ € € ŔeXů&ćÎEř˙ćŚ÷ ú!ĆeŔŔ ÷5@7÷57÷5B7 &„ůć*÷ A–%a7Tý „ůŔ 7ĐFý÷m@ý@ýf> Ö5 ž @@ @ @ ŔEü˙>wf÷EŔ`ń5@÷‹Ź6€÷ţ˙ýW,ý˙÷ý˙ňüW,ü˙4÷ü˙äü0÷‹‚6 €÷5|6@€m𠀡 Âü„ !)w>ţŔŔ „ů‚ ‚ ‚ Âe|ůŚ&œ„ůÎEř˙ćŚ÷ !Ćeƒ × wžý×-~ü˙˙wœ÷'tü÷5@6 @Ŕ 7,–ŐTüwLü7–ŐHü B ňŔ<üŔŠŔ öBç6`ö5  w.€€ € € Ŕe|ů&ŚÎEř˙ć& ÷ N?Će ë‡ććčűŚ÷ ž.ŔŢűŔ °„ů7 Đű @Ŕ w Ęű0 –Őđ–Ձ W ń ˇ $!Důwść ÷ P?Ö €m7,.MĂ„űŔŔŠŔ @aÁBç`w,?Ś ń €€  6ö5 Ś@Ŕ Ŕ Ŕ € € €  ö5 ö5 ö5w ×-Z6U ć É5 €  ×-@6Qtć É5 €  k÷5@ˆ4÷5€4ńU€ Ŕ€ € € ŔeXůćÎEř˙ćŚ÷ (Će÷5@P4÷5J4÷5t4 Žć*÷ J>Ö a7ˆú€Ŕ 7Đ|ú÷mvúvúf> Ö5 ž @@ @ @ ŔEü˙>wœ ÷EŔ– ń5@÷‹â3€÷ţ˙6úW,ý˙÷ý˙(úW,ü˙÷ü˙úĆe÷‹´3 €÷5Ž3@€m𠀡 ôů„ !)w:ţĆe‚ ˇ XwĆýö5÷5 r3÷5h3÷‹b3€—/ŔvůÁׯRA‡ŔvůÁ÷ Z×-’ů˙˙ţ˙˙ćüć*÷ 6=–%Ŕmđ7 ÷ű˙jů÷Ő 3Ŕ`ů€ Će‡wč=ˇ ŘćÚć÷ ü<ÁĐ@`@Ŕ ° çW  Î& ć°÷ ň+ˇ ¨7 Ś–%ˇ ž–%€‡wÂ=ć ˇŚ€7ž÷5”,÷Źř Ÿ¤ř— z ‚— a‡Ä „@ÂĹ ŃątŐˇ „ř p ę÷tŐXćvůÁrůŔpůćć˜÷ =Će 0 nŐŔe ů÷˙˙˛ř ÷ đwz  ˇ,ůŢ7!Ţw,ŔŔŠŔ &ć ÷ ü;–%`ÁeBów"Üw,Ö{÷5Čń5˙rń5˙n˛ ĐŐŚůć*÷ ź;Ö a72řĹE`~ţEü~@€ € ŔŔEŕ˙>N6 V N ÷ľi1?÷‹`1<€ŔL1Ŕe˙€/ Ŕ>1Ŕĺ˙€/÷‹?1%€Áe w8÷W"ý˙ćž÷÷ ,ţ Ö ×-ö‚ ‚ ‚ ÂeVůŚćÎEř˙ćŚ÷ ĘĆewˆ÷÷‹î0€÷ý˙z÷Í %€÷ţ˙p÷!„ !)wžţ €ů€ € € ŔenŐ&ŚœůÎEř˙ćŚ÷ vĆeƒ × w|ţ×-(÷˙˙wň÷'÷÷5@€0 @Ŕ 7,ĐŐţöwöö7ĐŐňö B ňĹ( w¨€€ € € ŔenŐ&ŚÎEř˙ć& ÷ ŕ9Će †w|ććŽöŚ÷ L)Ŕ¤öŔ °ů @Ŕ w ”ö0 ĐŐđĐՁ W ń ˇ ş× Lůw.ŔhöŔŠŔ Îć ÷ Ö9Ö `ÁeBów"św,°{÷5˘ń5˙rń5˙nŽć*÷ œ9Ŕ`7öÄD`>ţEü~€ € ŔŔEŕ˙>N6 V v ÷ľI/@÷‹@/=€Ŕ,/Ŕe˙€/ Ŕ/Ŕĺ˙€/÷‹/&€Áe wőW"ý˙Ξő÷ ü ×-ŘŔŽő€ € € ŔeVůć~őÎEř˙ćŚ÷ ¨Ćewfő÷‹Ě.€÷ý˙XőĚ €÷ţ˙NőĆe ƒ × )wÂţĆe‚ … wPţ÷5 –.÷‹Ž.€Î5÷5~ŔvůÁŔvůÁ÷ ˆ×-řô˙˙ć4ć*÷ j8–%Ŕm,7 B÷ű˙Öô÷Ő=.ŔĚô€ Ö ‡÷•˙÷•˙ˆŔ Ŕ l4úŔSŔCŔLŔX7^÷W(a÷P(\ćć ćĘć÷ Ř&Će‡&&ć ććËććű˙÷ 6÷• '@÷ Š˙Će ‡ć ćć–ůćŽaÁ ÖŔ Öććă÷ t8–%ööœůÎŽa ŔÖććă÷ N8–%Îć–ůćÖ÷ đ6÷•.ýóÎćœůćÖ÷ Ú6Îř&ććÖć÷ đ%Će ‡÷Ö¸.÷´.Ŕ÷ L%÷Őt7 Ž7 Ţ7 ô7 ş7 ´7 Ö7 Đ7 Ź7 Ö7 ź7 Ě÷çĚ7 Ş÷˙˙Đ @Ŕ p„ů W ř @Ŕ pů W ř 0 ¤ůŔe Nů7 n7 r7 t7 r÷˙|÷˙xĆe‡Ŕ0&ŔeüˆŔ‡w^@Ĺ`W#ÍW# ć÷  NÎĺ÷  f÷   Ö ‡f7 Îň ÷ Jćć@÷ 67´ň–%W  ÷ .ćěć(÷ 6Ŕm˜ň7”ň–%W ÷ ÷mĚ‚ňŔ~ň‡÷ŸŔź7Šš×-´_÷Ş#÷EŔ˙˘Ŕž 0 9÷ĺŒ ÷ĺ ~  .÷p $÷bˇ `‡wP6Á%‚€ f€ ŔŠŔ ŔeBç&Ś  f€ ŔŠŔ ŔeBó&ŚÎefćçŚÎe2÷ Îí7şńŔ5÷Ő ý*ć÷ š57ž÷˙˙Ş*7 ˘$Ö Će‡wČ5‚€ <€ € € € ŔeXů&Ś ÎEř˙ć& ÷ ^4Će †&  f@Ŕ &„ů÷ ,˙@€ € € ŔeXůfÎEř˙ć& ÷ >Će ć"$€ ŔŠŔ ŔeBç&ŚI ?€ € € € ŔeVů&Ś ÎEř˙ć& ÷ ŕ3Će †ć f@Ŕ &ů÷ Źţ@€ € € ŔeVůfÎEř˙ć& ÷ žĆe ć˘#€ ŔŠŔ ŔeBó&ŚÎeć†#ćçŚÎe2÷ ˜"Će‡fˇ Śˇ 4×-0(ŔY÷ Ř!$ŔŔ Á†p¤ů÷5d7 ^ˇ V÷‹x)€@€ € € ŔeÖć&fÎEř˙ćŚ÷ &Će‡f÷‹J)€×-ĘôŔÂŔ ¤ů   ÁeÖćf&œ¤ůÎEř˙ć& ÷ ćĆe÷ –÷ 恇f7 źďö-ŘŔzŔ 6,¤ů€€ € € ŔeÖć&ŚÎEř˙ć& ÷ |2Će ÷rď÷5lďŔ"÷ ^+‡ w, ƒĂ5’Âć˙˙Ś÷ Đ@ Ś÷ ÄB@A ŽŚ÷ ˛@@PĂ5‹‹Će€ ‡‚NF˙˙˙đBa&fŚÁe@BJ%@& fŚˆ‡‚€E…ţˆű÷AÔ˙Á  w ü‡ă$6 N$6ţ $6(ƒ$6/$64€_ L:_  Ä6_ ´6_ ˘6 NŔüˆßUH$íˆ÷ ś- ŔîČđŔýˆŔ5ßđÁ,@ŕ ěˆń5Ŕßd#&Á°˙Q$w.@ŕ (ŔE ÄVŢw$ŚţvE;ŔE€!`Ŕ%@‡‡őwL$ô€őw<$ćŚŔbD € Ó K ů‚Kŕ Ŕb‚ƒ‡ąűćŚĂÁbÁDƒ ű†Č&N`N Ö ČÁbŚŽb b"€p‚ƒ‡Cŕˆţ‡‡Â űů‡ćĂ fĹć(÷ ŒfĂ ôĂ€Ŕ’áˆţ‡Ă ÷ƒ‡ABCDEFGHIJKLMNOPQRSTUVWXYZ$. 0123456789÷ âţ& ÷ ‚„Ă ‡Â ‘ ýŕŔ S”Ŕ ý ‘ ý #‘ ý`Ŕ c˜Ŕ ý #‘ ý€€í€ –%‡Ś&w ´˙Č˙Ś&w œ˙Č˙C †Ő `ƒ`ŕ€€`Ec…  Éľ Ŕ ú‡ÄŚĂ B Ă B aB ‚eĂ B D”ÄEđ˙aB Ŕ îáľ@C B ĂeB ¸¤‡7 ‚ĹeO ÷ ‚ƒ„ŔFŔ@…Ö …  Ĺ  ƒ Á  Ă ÂĄ  †D` ůĂ   „ w7‡7 ĹeOĹUAO„ ÷ ,ÇćŚf&÷Eˆ˙wa„˙÷E‚˙wa~˙÷Ux˙Ņ … ‡&  öŠ  ‚ Ä 0Ž   Ba)‡ć& C B Î  BaaN ƒ ö ň ‡aĄC –%Î  6ŠÎ Ă%€ ‡ Ö  ˇF˙÷D˙‡Ö ˛‡Î űňőž5 ž÷ &O‡÷ Öó5 óĽ ł Ŕ ó €Ŕ˙÷ őwţ ÷ źsž‡÷  ő wä őžőž÷ –˙ó sž óľ  &÷ 4„‡÷ L őw  ő€žŽߋ* ó5 ÷ ( őw| ó5 őwj ő%w` ÷ hć ÎEŕ˙Ö%Ą‡ő‚žő€ž÷ (B†ß‹*Ű÷ Ň˙8ó5@ ló5 ł ÁBAaćÎ`Ŕ@Ý.üˆ@ČH.°đ0 ýˆ7‡Ö ó €Ŕ Ŕ˙÷ Ę÷ n őw ÷ ~sž‡ó5 óĽ óĽ óĽ ó Ž€ő5,Ş÷ $ ő wxŔ—*wňţŔĽ÷  őUwZ÷ řőwL÷ ęő'w>3ő5žA Á ÷ ěú†÷ Äő w3‡ć ÷  úf&÷ Ě6 Âe˘BaĘ őwčÁ>÷ ¤ú†ő wÔ ŠÁ ý÷ °€ÂXő žÂ\ć÷ ňƒÁÁ`‘‘‘‘ł€f∆w~AÁ őľž÷ őwpÁĽ,ó Á÷ ú†÷ řő wLÂÂ`€făˆÁ Á`€f∇ÄĺÁÁ`ČH.p0 ýˆ„‡÷ Źőw÷ ůÉĽ@ÂZ÷ 0Ă@ÁŔ@ĐüˆÁ úŔüˆÂÄJÉĽ T’‚  Ŕ řԕ ԕ ŠŸHßU$ čˆíˆÖ čˆ÷ Dů÷ ˜ó w˘÷ "ýlóľLÄ5& •ü‡HĂĽ ‡ĂĽ ƒĂ  đ÷ ’íѐŔ ř#•!ĂĽ1ĂĽ ‡ĂĽ ‚ő5ŕŔ ѕ Ŕ ü÷ ę ł3Ö Íe=Ž  Ű÷ :ŘőwÜőwŇÖ 5  őä‹÷ ˘ł35ŕÖ ÷ †ë‡–%÷ Úřӆ‡÷ ,ř÷ 4ü(÷ ŽŘ÷ &‡ÁĆ Ŕą÷ 5 0D@‡÷ ô ‡÷ üÄ÷Â7÷ Pń†‡őwDÖ @”áˆţ‡Â űŔ áˆţ‡Ŕ áˆţ‡‡÷ ÷ Ś ‡ óĽ ÷ ‚‡Ä‡ó5€ó‹‡őw臤3 ‡fÁÁěÁ5€˙ÁÁ ćÎ Îěĺ ‡ ¨őwŽ ¨& ‚3`3ŕŽŕ€f`ć ÷ ˜řƒ€w&˙ł ‡ó ÷ j6‡K ó5 ó˙˙ó ÄÄ÷ pÂó ałÂ,ƒaÂ,†Âě„ŕÄ óÄÄ 3óĽ ő 0÷ v†őwô&f÷ ´÷ Đ5@€5 0¤‡÷÷ ÷‡7 ˛Ŕ%P2ƒÄĺPD- -†ÉĽ ÉĽ:S”Ŕ ÉĽ W˘0 W˘9 W˘AW˘Ző5žS”Ŕ áӕ=Š&Ś&ĺˆ‡Ö Ě ‡őwFƒ÷ ŕőw4ô ő5žˇ ĺƒߋ*č÷ ´őw 3Š &fÁBAa@Č H.đđđ0 ýˆ€ †ßĽ*ƒ3 ą‡3 ‡ó‹ óčţóäţóŕţőw”ő wŠó ÄBDa&ČH.đđđ0 ýˆÄΆ÷ ćô&f÷ ţôwˆóľ÷ ´÷ Žwžű÷ dľ 0óľó5#ć÷ ĆőÁƒÁ €őw ő5˙4ľ 4wrőTwć÷ \ó ÷ 0wHüőwĘ÷ Zô&f÷ Rôu654÷ žý€ó ‡s  ‡ćÎÎlV †ÁěÁÁ @`&ó ÷ ~ţ7‡ÂBŕ,ƒK43 "óľK ÄĄ †Â‹ł "÷ výsóľ÷ ´ţ ŕłó3` ‡A6@4‡5 őwőwŔB@aÄÄ ő 0 ÷ ó "őwâwćú÷ (w^űČH.đp6đ0 ýˆ5Č H.đp6đ0 ýˆ‡‡őw†ć ÷ şôĂĺ‚ .D4„ „ ŔfĹ&÷ čô"‡&ŔE€fĹ&÷ ÔôÖ €„  `@ ‡a‡Ŕ`‡BÄ €  Ä üŔ ÂEţ€ƒ‡őw÷ Ôő.Ă Ăe˘CaÇó 3óľ/ó‹,ó ($÷ zö$ő >! ő5 , ÁÉ Ŕ&ą÷ Rú„ŔŠŔ Ŕ5˙ű׏ü€ ŕ÷ Œü‡Ŕ@Ý.üˆ5 >ŔA Á ÷ `ň÷ ‡őw^B.Ŕ€ĐüˆÂ Âe˘BaĘ ŔÁ>÷ .ň ‡÷ âňĂ ƒĂ Ă%‡‡ő wC.ő.Ă Ăe˘CaĂđő wţ÷ Žń&f÷ Žő€&ćÂÂeX÷ "űƒĂeĚ"őwĚÁNAa„ŃŃŃŃŔ@Ý.üˆÁĺĂBCaŔČH.pýˆÜ‡ő˙˙>C.÷ xţ‡÷ ńÂÂe6÷ Z ‡÷ dÂÂe(÷ J †÷ ę7 ő wLÁÁelđÂÂeę@Č °0 ýˆK†@Č °đ 0 ýˆ†÷ ’őw@Č đ °đ0 ýˆ†w Á Á ý˙ –˙”Â’Ň˙˙Ň˙˙÷ čŔ üˆ÷ DđŇ÷`÷ ˙\PÁÁe¸ďÂÂeN@Č 0 °đ0 ýˆP‡Â6ň Âe— ˜ř#ÁŔŔoÁ Ŕm ů°đí ŇíúŇ˙˙÷ TŔ üˆ÷ °ď÷ †÷ ő3wĘ÷ź÷ `ż şÁÁeďÂÂeŽ@Č 0 °đ0 ýˆ†÷ LőwÂŔ üˆ÷ <‡ÂÂer÷ – ‡÷  ÂÂed÷ † †÷ &7 >ő wˆÁÁe¨îÂÂe&@Č °0 ýˆ†w4ÁÁe†îÂÂe@Č 0 °đ0 ýˆ†wö÷ †wţˇćˇ ޡÜ÷ (÷ ŹîÂÔ÷ČÄ÷ ‘”Ă ˇ ş÷ Ŕ ô÷íŞŚ÷ड ˘ÂŞÂmš ŠĂóѕ Ŕ ü˙ ŒŔ üˆÁÁeâíÂÂe`@Č °0 ýˆ7†/ŔXÁdČ ?Vb1ÁLđ l ÁŠÁ ýÁÁeŒíÂÂe"@Č 0 °đ0 ýˆ†÷ Ŕőw6ÍeŔ üˆ÷ Ź‡*y}ŔŚĂÜÂÜÂmÚr$r"‚à 󹥇&fÁÁeíÂÂe¨ĂĂež@Č đ°đ0 ýˆ†÷ >őw´ÂxÂb ŠÂhÁ€Ą‡ÂXĂR”Ă ÷ bĂBĂmJ˕ˇ 6Â6ĂŔ íҕ Ă ü÷ :ĂĂm"˕‡fŚÂƒˇ  ҋůÁĺřĂíüĄą‚‡&fÁÁeDěÂÂeÜĂĂeŇ@Č đ°đ0 ýˆe‡˙"śiĂ°ËeÂÂe„@Č °đ0 ýˆ†÷ HőwžË ÂÂez@Č đ°đ0 ýˆ7‡ ƒ ÷ N@Č đ°đ0 ýˆ$‡@Č 0 ýˆ‡ćŔ üˆŔ üˆÂÂeô@Č °ýˆ ‡ÂÂeč@Č °0 ýˆ†÷ ¨őw€Ą‡Á÷ Ňë‡ Ą‡ŔŔ7ŔŔe7şŔe7´Ŕe7ŽŔe7¨ŔmÎé7˘‡ÁĂ  Ă ýĂ‚÷ RëS”Ŕ ý˕=ÁÁerACĂĂeVfćfĺˆ†÷ őwŒÖ Ń RRR‡7 ( ÁŔ4÷ bëÁŔ&÷ V뇸K.Tq¸?TĚeTqţv÷ ÄíÄĺP&÷ äň÷ Ěô„Ŕđ 0"2 0Ź  W  ÄeP÷ š÷ő8w  fÁ Á cÁ &÷ Ęé†÷ .ő wö 3"s$Á÷ Şé†÷ ő wÖ 3&PPPPœ PœPPPP~P€Č•ć5 –ć"Îĺ   Îe ÂBBa€đ•°ýˆv 1Á%ƒ÷ döeNöeƒÂe÷ Ź´ ÷ ľ –ÂBBaĂe€đ•đ0 ýˆĆ†÷ Jőw Ö ƒ–%ó(ó˙˙*ó˙0ÄeP‡u˜s *÷ ž&÷ z€uZ438÷ î&&ó 8ő‹\5 twţő‹bů3.ó‹wÚwć& ÷ ~öőœ*˜A Ás`ÂÂěw^ó˙0‡ó‹0ü€ő5wf fÁ"Î Áe Î űÖ sŔ@Ý.üˆŔB@aČH.pýˆ‡3 3 3 ‡÷ î˙3Š* ÷ Ş˙÷ –đ÷ ~ňćĂeBÂeËĽ(ËĽ[Ӌ˥)ËĽ]ůӋÁŔ”ŔĽ.÷ VÁ řÁ%Ŕ• ÷ DÁ ÷Ŕ”÷ :Á űŔ•0÷ . ‡fÁËĽ ӋÁ úʸÁŔ”÷ Á ű‡×  ÷ô˙Ŕĺ:Ŕe †Ŕe Ŕĺ Ŕĺ ÷ â Ę Ę €bĘ Ę `‡&fŚ÷ 6÷ ŕć†÷ Dő w Ŕefăˆ÷ ‚€‡ŔeÁef∇‡÷ őwŇ ÷ ˛ôw>ôĂe0““S˜KĂĺ2‚Âl8D Ä „ ‡ᄠÄaáőśÂőwˆ Bŕ‚ă‚őwx ‚eó‹ő ts ‡ćÎÎlV †@ŔěŔŔ €cćÎ ŕłÖ Ŕl3"ó Ś÷ $đ‚sA KÁ †Â‹Â ‚ăłÎlł÷ pđ†őwî s˜*Ŕ‡ććĂ(Ă  D4w^ňDm4Ä ÄE˙„ ćBĂʋ6‹”ÓĽ:űӕ:ӕ= Šććhćĺˆ‡Ö Ŕć`∇÷ Ž˙ĂŚ˙ĂeĂEÂ<ĺňŕ‚lŔŚăˆ†őwčÁeĹ„&54u6÷ <ő(VőŠ\÷ ř÷ \5Š]÷ Č@6@mRAP¤˙Á ű÷ ź÷ üwő‹]w ő5w‚  „‡÷ :ä†ő wjT‡Ś)fDeAd„ 5ĄU-&÷ h & ÷ ľ“e÷ T5nuí`n5 l@mR5Š]÷ Ę-†Ž ľŁU †@ŕ@íR@mNŔ ő˙l÷ âŢÖ ÷ žČ‹” € Î  vVvdő˙l÷ ő•˙˙eŔĆeŹľŠ]ő‹\ @ŕ@íR@mN÷ Œ÷ Z÷ hH­eĎő‹\ő‹]ő‹TßÖ  ľ“d•ľV ÷ Dw2Ö Ö –%‡÷ hő6wN Ä:÷ .¤ u fřÁ ´‡@ZŔĺAd÷ B÷ (ú÷ Ƈ@í`5 ^&f&ő‹\÷ ¸÷ Xú÷ ˘„€@í^ë@m`‡őŠe÷ žđsV(se,‡÷ ôAP÷ Fţ APufÁ ý‡÷ ”˙”÷ Ž˙5”V÷ †˙5”W‡&u4hőœ*dőœ,eő`Â&ŔN@aćÎ ý5Šb H Č ő RÖ €‡ő`őœ*d‡@`@mn5 nAm^D6DmlBNB-hBhB-l 憔ľ l÷ľ5 u-lhÚԕ ľ ló÷ Ń$ wŇá Ä Ę@mNű÷ ŕ˙Ä:Ä`‡7ú˙„Îô˙€Đ  1"J"Áe:"ů ‡ń J"Ń óő?w’„€čŒˆđdJLNVXZdőü'ő6 ľ$5"7’˙„ÎŒ˙÷ @î‡7‚˙„Î|˙őü'ő, ľ$5"÷ úë5 5 ‡7V˙„ÎP˙÷ şë‡7F˙„Î@˙÷ hč‡76˙„Î0˙÷ `燦&÷ 4$Ä‚ääĐ&äX¤&7 Ę˙‚Bm Š‚÷ œÄXääň&dŒ ¤7 Ž˙&ććD#& 刄‚„SORT> €•CTS300 SORT V08.20A NSort count error Input = Output = 031211DK: 13TT: SORTR Á˛%Ŕ´%Čpýˆ7Vüő 7 î†%7 †%Ň&Ä8üääň&ääô&7 žúX÷ Ű÷ Ű÷ Ű÷ Ű5 ×-dýW÷-ţ ţ÷-ţţOő÷ öü&Âé%ÄŔěýÁćý÷ ŢÂů%ÄŔÔýÁÎý÷ ĘÄźűääň&ä2äČ%7 öúÁ Á@wPýŔ%Ŕ%Ŕ% ő F$5}@Á$ýÁ5 5 ˇ šý÷ ^ü>7 ŕx$–%A$Ä ÷ >÷ †7 ŔŒ$%Ä"ű÷‹hü7 Źś$˜%ä¨üäŒ$ä0ýäx$ä*ýäś$÷ ŘéäŠüäŒ$äýäx$÷ Ćé5 ÷ ~÷ ýř÷ Dű 7 Xć#%ÄşúäPüäć#wáwnáӋע1Ӌע6ËŐ@‡×˘2Ӌע9ö‡×˘3ôӋע1îע2ë‡÷ ü‡Ŕm´ű༠༠‡ő w¤ţ7 Îű÷-Ęűšűˇ Âű7 jô$œ%Ä,úääœ%7 "ůěÄúääĐ&7 ů‡&f&Î ýÖ €„&f&”Î ýÖ €„ü00÷ . ѕ  ü&ä˙˙Œ #ŃĽ€ú‡Ń•€Â đë” Ă ű‡¤ƒ‚€&‡DIBOL-DIBOL-DDT---DECFRMDKED--FBCOM-ISMUTLPRINTUQUIL--REDUCESORT--SORTG-SORTM-SPOOLRSTATUSDICOMPFOCOMP******CTSRTS****** ? - €Bad Error Message FileÄ2&ŔŔ÷ 0Ŕ5 €Ä< ć Á @ C Ä ‡ၠΠ÷Ö ‡€đ@&ć€ýˆ–%‡Ő A@Ać˙˙÷ ¤˙÷ ś˙ć÷ °˙ćCEՕ:ĂeöËü€Ăe:/ĂՐĂՐƒň€‡Ś)€f&ć€ýˆÎ…÷ ¤˙Će ‡INPUTOUTPUTRECLENKEYSASSIGNWORKCOUNTRECORDTAGSSPACEISAMPADEXECUTEDETACHDIBOLSUENDSORTLISTINDEXCHAINNOCRLFIDENTTTNUMMESSAGEVERSIONLOCKCCTEMPŠ66˜6 6Ś6Ž6´6ş6Â6Č6Î6Ô6Ř6ŕ6č6î6ň6ö6ü677777"7*727:7^<Ž>ˆ? BNAR@ô?fE EÜ@˜CŚC6?ňC:<*DD@EVE^E6?,D2DfD–DŇDEň>DK:Â&6÷ü÷ üˇ ü×-üű ƒwŠwę˙7 ü7 ü7Š8ý7 V^´7V‡Ŕ´%Č0 ýˆ×-źű`÷ vę ÷ ë÷nˇ ˘űđ7 d7 Čű7 č´7 M÷Žű÷ Šűˇ †ű×-‚űƒwŠwę˙7 fű7 Š ´7N6P67 Vű÷%Lűˇ Lű÷ @űĂŔ:űÁ´7`W¨aW˘zÉĹ Ŕ ö÷ PűÁ´7W˘@Á ÷ xW˘@ˇ 4űˇ 2ű÷ h 7 œ7 Ź ‡7 ÚúÁł7÷ Lˇ ű×-Üú*7 9X6Z6÷ śú ŔPÁ/÷ N7B7 žú÷ Žú 7 Ž âKćKN6T6Á”ú÷ 7 @7z7Ň„÷†ú÷ĺ€ú÷ezú×-vú8ƒw:ÁmfúAÂ9ŔVú÷ ¸ ‡ŔmNú7 .úř ÷ $úˇ 2úĄ„w´˙÷ úą„÷  ű×-Dú ÷ >ú×-6úwţ ˇ zčˇ äů‡÷ Ţů÷Ľ:čůwâ ÷Ľ=Üůwâ7 Ňů×-Dčwö Ă8čˇ 4čŔ÷ úďwÔů÷en#Îů7 f9X6Z6÷ ˘ů÷ Œů÷ čw¤ ÷ŞůŚů÷Ľ:€ů÷œů÷m˜ů’ů÷H:’ů7 –ěx6t6v6/×-`ů÷ Hů÷ ÂçwŠ ÷mJůbů÷9`ů÷>ůęç7 `ěv6t6%˙&ůDůˇ @ů7 Ú9X6Z6÷ ů÷ ů÷ zçw ×-ů÷ ęř÷ dçwđ ÷ůů÷mćřţř÷9üř÷Úř†ç7 üëv6t6%÷Ľ.Ŕř(˙şřŘřˇ Ôř7 n9X6Z6×-Şř÷ ’ř÷ çw˜ ÷ŽřŽř÷mŽřŚř÷9¤ř÷‚ř.ç7 ¤ëv6t6%?ŠŠř÷ \řU÷Ľ,^řw‚ţ÷Ľ(RřI7 9X6Z6÷ Fř÷ 0ř÷ Şćwf ×-4ř÷ ř÷ ”ćw8 ×-ř7 X9X6÷`Řĺˇ`Öĺ÷%)ú÷#÷ T ÁĽ,wţ÷ Ü÷ˇ ´÷wR÷5Ţ÷÷­’úJř ÷­‹úCř ˇ 8ćߡ Ž÷Áś÷w(÷ ¤÷÷ ćw†÷ Ž÷÷Ľ:˜÷w’÷Ľ=Œ÷w†ˇ x÷ˇ n÷÷Î#š÷÷ Čý7 f÷÷ \÷ˇ <÷7 R÷‡÷ J÷÷Ľ:T÷wN÷Ľ=H÷wBˇ 4÷ˇ *÷÷ř#V÷÷ „ý7 "÷÷ ÷ˇ ôĺ7 ÷‡÷ řö‡÷ ţö÷Ľ:÷wä÷Ľ=üöwء čöˇ Ţö÷ć# ÷÷ 8ý7 Öö÷ Ěö7 jä‡7 Ŕöˇ Źö‡÷%Ęö÷ ŹöwĚ÷Ľ:˛öwŽ7 f 9X6Z6÷ ˘öwĚ×-˜öwŽ÷5Œöwœ7 Ä 9X6÷Üä÷ \öˇ DöÁböwÔ÷Ľ:Xöw47 9X6Z6÷ Höwr×->öw„÷52öwB7 j 9X6÷ęăˇčă÷ ţőˇ ŘäÁöwv÷Ľ:úőwÖć€ 7 Ş 9X6Z6×-ćő÷ Ţőˇb %Ö ÷5Đőwŕ݀řĂEđ˙× Ă× Ă÷ä÷ Œőˇ nő÷%,őÁŠőwü÷ pőw^÷ €‡÷Ľ:pőwL7 $ 9X6Z6÷ `őwŠ×-Vőw˘÷5JőwZ7 ‚ 9X6÷Şă× ÷ ~× ÷ t÷ őˇ ôô7 üôÁőwz÷Ľ:ţôwÚ÷T$ő7 `ă÷ôô÷ĺîô÷ečô×-äôƒw÷îôęô7 „ 9X6Z6÷9Üô÷şôfă7 Üçv6t6%÷ ¨ôwş×-žôwŇ÷ zô÷Ľ:„ôwŔ÷m€ô˜ô˙•:’ôˇ ŕâ×-Üâw°÷e~ô÷Ľ:Vô÷ ° wLô÷Ľ,Fôw^˙Á<ôwŽ×-˘âwV7 ć 9X6Z6÷ "ôwL÷:2ôÂzâ÷ (ˇ`&ô÷9"ô÷ôŹâ7 "çv6t6%Â@$ÂmRâÁĽ-ʕAʕD÷ 0 wĚóˇ 6â÷Ľ,Âóá ŹóÁśów(÷Ľ:Źówˆ7 â÷ Œó÷ `˙‡÷â°óˇ úá÷ čÁĽD ÁĽAÁĽPwwÎÂJ$Âm†óJ÷ ŔÁĽAÁĽDw2Â@$ÂmhóJ7 9X6Z6ÁĽ.w÷ 2ów\÷5(ów87 ` 9X6Âzá  Âe$Ę7 ź9X6Z6÷ řňw"÷5îňwţ7 & 9X6Â@á  Âe*$Ę÷Ľ,Âň•ˇ Žňˇ  ňˇ *áÁŽň÷Ľ:Śňw‚÷ Á% űwáwn‡Á‹ ÁĽ/ ÁĽ ÁĽ;wpˇ nň‡ˇ Vň÷ 2 ‡ˇ Öŕ÷ Fň÷Ľ:Pňw,‡ÁDňÜŔáŔm’á÷ hňˇ 0ňˇ .ň‡‡ˇ đŕ‡÷Ľ=ňwöˇ ňˇ üń÷x$(ň÷ Vř7 ôń÷ ęń7 ŕ‡7 Ţń‡÷Ľ:ćńwÂ7 šľ$X6Z6÷ Öńw×-Ěńwâ‡÷Ľ:śńw’ÂŒ$÷ ŔŢL äL¤ úR — ´$‡wĆÁĽ/ě"Š‡÷ Ôŕ‡&ÄŒŢääň&ääP#7 Ć݄×-ˆń7 €ń‡÷˙˙¨ŕ‡÷Ľ:@ńw7 ô9X6Z67 Şö@7z7÷ ńˇ ôđ‡wö‡÷Žß÷Ľ/ńř÷‹ńőň÷xßô÷pßđ÷ Öđ÷Ľ:ŕđwÚˇ Ęđ7 ęđ7 Đđ7 ţđ7 NÝ´77 č´7N6P6÷ ŽđďŔ¨đÁ´7`W¨aW˘zÉĹ Ŕ öÁł7÷ ô7 D9X6Z6÷Ľ xđ÷Ľ,pđ÷Ľ:hđ-7 âő@7z7÷ Hđˇ .đ÷e¸Ţ7 <đ‡Áł7÷ ¨7 ř9X6Z6÷Ľ ,đ÷ ,đó÷Ľ,đ ÷ ˜ÁĽ űÁĽ,÷ w2˙÷ đ÷%ţď÷ w˙÷$9 đÂüď÷ ˇ`ţď÷9úď÷Řď„Ţ7 úâv6t6%÷ @ÁĽ űÁĽ;ˇ ˛ď‡ÂÂďÁĽArş9Á%PÁ%D÷ Źw¸ţ÷ ćw°ţrş97 89X6Z6÷ tď÷ žw’ţ÷5fď÷ vw‚ţ7 š9X6ˇ ^ď×-ZďŔÂLď  ňÔ9÷`”Ý÷<ďPďwLţŔˇ ⡠Fď÷ ¤ü×-:ď7 2ď‡ŔđŔíŔęŔçŔäŔáŔ ŢŔ ŰŔ ŘŔŐŔŇŔĎŔĚŔÉŔĆŔĂŔŔŔ˝7 †î7 „îˇ ~î÷8:¤î÷ Ňô7 pî7 $ä8:%&Ä„ŰääĐ&äÝä8:7 ÚV„ˇ Ý×­Hî÷Ľ/>îˇ 0î7 ň9X6Z6÷ .î Áč6Â9Ŕ÷ ‚‡÷ řó‡÷  ňí÷ ŕţ7 ňí÷ \˙‡&ďź%ź „ Ś ‚e‡ Á ÷ 4÷ &×-Âí÷ ŔŢL äL¤ˇ ¨í|öƒ ěĂ ü„&R¤Ŕ ü€Ą‡ŕ€ą‡&Ó ÄŒÚää ÷ ,ËÍ 7 Š˙´7N6P67 V턡 ŚÜą„„Ą„÷ wč7 äâÎ#%ŔŕŰ7 Öân#%7 ŇŰÁn#ÂÎ#÷ |˙‡ˇ ÖŰ÷ ŘŰ÷ ĚŰ7 ĚŰ Án#Âř#÷ X˙‡Ŕˇ Ž÷ Ž÷  Ű &ÄěŮääĐ&7 â؄÷ ”ěˇ †Ŕ÷ ‚"×-"Ű÷‹Űˇ jŔ÷ f÷Űۡ Ű÷ţÚۡ ęÚ7 Ű÷ Fۡ @Ŕ÷ <÷ ŕÚ÷ .Ű ÷ ÜÚ÷eŔÚ÷ ŇÚ ×-ĚÚˇ Ŕ÷ ÷ ěˇ üŔ÷ ř÷ ěˇ ęŔ ÷ ć÷ ~Ú ˇ ŘŔ÷ „ÚŔ÷ Ę÷ vÚ7 ŽŔ$Á*$ÂRÚ÷ LÚw"FÚ CdĂ ÷ :Ú őŔ ˇ Š÷ Š÷ ‚÷ |Ú ÷ ,Ú÷ vÚŔ÷ j)÷ `&÷ Âë÷ ŠŮ÷DK‚Ů7 šÓT$÷%˙˙ŇÚŔ´%Čđ˛%ýˆ„Ŕ ÚŔmŽÚˇ Ŕ÷ wŽÝ7 Rë÷-NëŚŮ@7 Hë÷Jë÷->ëTë4Â6ë÷ <ýÁe$9Ă(ëÉ !Âë÷ &ýÂe:Ŕ÷ fý‡ˇ ëÂëňœş9J$Â*$Ă ŔôęŔ `ĘÔ9Â$`ĘěęĂ ĂeÔ9÷bŕęˇ Ôęȡ Ěęź÷-Ţę١ vŔ÷ r„ˇ ,ÁŸ(‡w$w"w‡÷ňˇ ÷ Ü˙ÁĽ ů‡Č‹¤üŕ‹÷ě˙ě˙ě’‡ˇ ?’‡wú˙‡7ň˙< < ćć˙÷ Ź˙ÁĽ ű÷ ü5÷ Â˙÷üĆ˙źĺ„üEŔÎL÷ ˙ŔäL÷ †˙ ŔďL÷ |˙üUüU‡7’ĐéŔĺÎL°Š MüU÷ 6˙‡7Š¸é÷&&  —# &•ÎEđ˙Ŕ ÷ ŕCƒeÎ ńÖ „„:.=,[]*/<>-%@() ; 0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ÷ R×őw”Ú÷Ľ/é7 é7Ţ˙&ŔĐ×Ŕm^Ř#ŔŇMŔ €  Nƒwȕ wě˙ÄvţÄívţÄĺ÷  ×Äeô•^ŇM„ 7”4ŠŇMŔŇMéˆÄÎMäŇMäKä|˙ä ÷ Xă7nÄeŇMŠŔŇM鈄‡F ŔÚDEV:W0.TMP[]÷žěŢ˙÷í–ěŘ˙7 î÷ćí@î÷ öí Ŕ*$ŔĺŔe >$ƒw7bäíwę˙÷e Úí÷Öíî×-¸íQ7 ~˙7 úí÷\˙÷ X˙ˇ T˙÷-P˙˜íƒw|7 fň~6š%Ŕ:˙Ŕ 7J˙Ŕ Ŕ Ŕ Ŕ Ŕen#&7 Şí¤ˇ  íú€Äţëääš%äŒí$÷ Jí÷ ţ7 zęJ7 Δ6–6÷mřţvíŔÚţŔ Ŕ đęţÜ&wt˙wş7 Fôn#%ĨëääÎ&ä6íän#×-ňě÷ ¤ 7 ęJ÷ ¤ţ7 n”6%÷í&í÷Ęîüě÷´ěˆţ÷ Äě×-žě÷üětţÁěÁmě ÂćěŔ÷ šô‚Ŕ~ě÷ ŽôˇŢëwÜëĂŘëÂŇëŔ<ţ÷ vô‚Ŕ÷ ŠôˇŞěˇ Śě÷ Şě ÷ Şě Ŕř#7ţ7 xóř#% ŔÎ#7üý7 dóÎ#%Ŕm`ě÷eZěҕ[Âeʕ]Ä÷ běÁ^ěÁHě ÷ Pě ÷ šóÄŒęääĐ&äěä¤ý÷ 0ě_÷ Úë\7 éL7 ˆýˇ „ý÷-€ýě:ÄÂż%Ápý ÷ PóÄBęőˆ9őc ľ$5"Ä*ęääÎ&ää*Aää¸%7 Lé5 5 ÄęääĐ&ää*Aää¸%7 řčŔ5 5 ÄŘéääĐ&7 ÎčÄČéääĐ&äVëäŕü×-ë×-^ë7 >čL7 4čN ×-řę7 "čX7 čL×-ŢęĂ*ęÂ$ęŔë÷ Čň‚Ŕ÷ Üňˇüęˇ řę÷ 7 dü7 \ü÷ Xü÷ ’ę ÷Jüˇ Jüˇ Bü÷>ü|ę7 6ü7 :ü7 8üÁ<6Ŕ  Ŕ ý÷nę<üÂ8ü÷¨ę ü÷eü ÂüŔBę÷ Jň7 ü÷íüü ÂüŔ*ę÷ Rňˇ@ę—  ÷ŘűŘű÷ Ôű÷ Ěűwę ÂRęŔ÷ ň7ĆűwŔű  ęŔ÷ ňˇę7ŕúé— ÷>îé÷ę÷ ”ű ÷-űÜ邡 Žű÷„űĐé÷ţéäé×-Şé‡ ÂşéŔěé÷ ŔńˇŹé 7 Nű÷%DűwwŇ÷ Lű'÷-ŒéÎč#÷Čč‚é÷ pé ÂzéŔŹé÷ €ńˇlé÷-héŞč÷Bé÷Té÷lé÷‚é|é÷ 4ˇ (é‡÷%<é ×-éwj÷ éwfţ7TéÁdčÂ^čŔé÷ "ńˇéˇ é7 Âú÷žúé7 ¸ú÷Üčňč÷ îčÁ&6Ŕ  Ŕ ýˇ $ú7 ˆú7 dé7 đ&6Ţ$n%ž6ˇ rúÁčÂčŔFé÷ Ćđ‚‚ ˇ Žčč‚÷ěůÖč÷†čTú7 Ô„6&6–6Ž6Á2úÁ Á ń&úR6÷ úvč÷ ú ×-ú wČý÷ ú÷ L‡7 ú7 úů÷ w2čw˛ý÷ ěů÷ čůÁŔŔĺŔe7 Ôůƒwp,R6R6wä˙  ‡ÁDčÁ-<čƒÁ6č fÂ6čŔúç÷ ćď7Śů÷- ůěçÁmčÁeÄÂÁ6     ÷ \ď7 BěÔ&˛67 Vů÷–çfů÷ç^ů÷ Zů÷<ů÷ 8ůˇ 4ů÷-0ůvçƒwÂ÷ jçÁŘ& ÷-ů.ů7 ůÁůÁ Á ÁeT$ćc°6ƒἠɋb’Ă Î öÂÂŕĂeŹ6Ρ ÖřÁ00ÁmĚřwűřÁwŕ猡Öř÷ÔřĢĺääœ%äÂřäŔř7 (äLĂ˜řĂ ć ‚Ŕ÷ Üî7 ř÷eü%šřˇçˇř7 të˜6š6%w.˙‡fŚć7 7 7\ř÷ XřÂTř  ĂĂĺĂe ƒw ó<6wę˙ˇ .ř÷*ř(ř÷ $ř÷ řĂř×-ŇX3 <6ÂÂĺÂeˇ řƒwƒ łl<6<6wä˙BÁ`÷ ŕ÷× w”× ÂmĘ÷ˇ†ÂÂĺÂeˇ ˛÷ƒwƒ Ń Ńí`wâ˙Á`ÉRćć Îe<6‚Ŕ@÷ Âíˇe2ƒĂĺĂj÷÷ ¤ƒ‚ü„”ĺ÷j÷”ĺ   ‚Ŕ÷ €í7€ĺ÷íN÷zĺ÷e˙tĺ÷E˙nĺ÷ jĺ÷ĺbĺů÷ |7Zĺ÷ ˛Â>ÂeÂEŔ÷ <íŔe@Ŕe˙ŔE˙7ŕ0ĺ×-*ĺ÷ĺ"ĺ÷ >7ĺ÷ĺĺ÷mĺĺ ÂĺŔěä÷ í‚×-ěä÷°ö÷Üä¨öˇ ¤ö‡ćő@őa ľ$5"ÁĆä÷ |Ă †÷ĺşä÷őwžç5 5 ƒ‡ćÁœäŔšä÷ |Ç&fŚć÷ BŃĂüƒ‚€„7 ~áJ÷.ĺ7 éŔ%¸%ÄĚâääÎ&ää*Aää¸%7 îá÷ĺüă÷-řăfő wňć÷eäă& Â~Âe*Aˇ>㎠ˇ8ăŽ Ö w`ćÄlâääÎ&7 báÄ\âääÎ&äęăän#7 âŕd‡÷î˛˙÷î¨˙÷î¤˙ ×-üíÂFîŔ î÷ öő7˙÷*%B˙÷ >˙ˇ :˙×-6˙Ç%ƒw?Š*˙wč˙×-Ří÷ÂďŒî×-´í÷Číţí‡÷D˙H˙Ŕ¸í€ Ŕ 7`6˙÷2˙p˙÷¨íf˙÷f˙^˙÷`˙T˙÷Z˙Z˙÷T˙V˙÷¤íJ˙7 @˙÷m@˙˙÷m:˙@˙÷eöţ÷ ^í ÷ěţ˙÷bí ˙÷m\íŢţ÷eŘţ÷Ôţćţ÷ :í÷míĆţ7 ÎţÁŔţÁíşţwĆţ ÂŔţŔ÷ 2őˇśţ7ŕ°ţ— ÷>¤ţ÷ ţ×-ěě Â’ţŔÔě÷ őˇ˜ţ7ŕ‚ţ×-Úě Ázţ÷ "÷íÚělţ÷íîěhţ÷ P÷fţ÷ t÷Üěrí7 ţ÷üě7 †ě7 ţ7 0í×-¨ě×-Šě7 Zh<ž$7 Nćýw<ý÷m0ý6ý÷0ý"ý÷*ýRě÷$ýý÷ěü7 ý‡÷&ý&ý÷ ý"ý÷mlëý÷ýýÁřü÷  ˙÷ýäü÷ęüźü‡ŔDëÂT6ŇŔ ü‡÷Čü€üˇ |üˇ xü÷şüvü×-nü÷ fü÷ ,÷×-`üĂXüĂ Ă ĂmŒüćˆüż‚ü÷ Bü÷ ě‡÷2ü*ü÷&ü&ü÷ "üÁüÁ Á ÁmZüwü÷-üü<÷üü÷ ü÷ ü÷öűüˇ ţű÷úűřű÷ ôű÷ đű7 Fđn66686†ˇ ĐűÂĚű  Âmü‚ÁČű7 đ†Â´ű  ÁŞűÁ Á ÂmčűÁmäű‰÷šű–ű÷ ”űw~˙Šű  ÂmČűĘŠű‡&7 ÂűŔŔűŔíÄű< A†÷ ’÷ žű<÷ ę÷-¤űšű†÷ęšű÷e˙”ű÷E˙ŽűĂŠűĂ ÷„űĂr6×-Ěé÷ Şň÷ 4ó÷ >űŔŸhű÷ Âđˇ Ęéő ŔRű÷ Îí÷  é÷íŞé<ű÷ížé8ű7 ű„÷ „„÷ |é÷4űű÷~éĆú÷ Âú÷ žú÷müú¸úf÷ôúŹú÷ĺŚú÷e ú÷-œúžúƒw`ţ Ŕ ,˙Ňú†ú÷mtéĘú÷ (é÷ é÷ hé ŔŸ´ú÷-°ú˛ú†÷ đˇ éˇ  ú÷-˘éLč÷-œéFčˇ é÷ üčwŽ˙‡Âvú÷(ú÷ $úˇ ú÷-ú°čƒw ŔúŔ Ŕ $Á Ám(ú*$R”Ă ýwĐ˙Âe ˇjé╠╠&ÄÁ*éŔ(é÷ đ„÷m`čđůŔŸěů ‡÷ z÷ †˙‡÷ ú3÷-ŇůöůćěůÁňůwÂů÷ –üˇÜůĂr6×-,č÷ ń÷ ”ń Ü@Ŕížů Ŕmţç÷ ’7 †ůĂr6×-úç÷ Řđ÷ bńÄŔ˙˙‡÷ ŕç÷-Žů„ů †ŔŸ†ů÷ $č÷ Úîˇ ~ůŔ Ánůw bůÁm¤çw Xů‚ŔZůwVůő ÷ ĚëŻ÷e@čw >č ‡ˇ @ů÷ <ůˇ šçŔ˙˙‡×-zçÁîřÁ ůŔ ×-dç×- ů÷mdçöř÷mxçňřÁđř÷ ˜űćÜř÷ ÎűˇÔř‡ÂŘřŔ5 ÷ $硟řˇ–řˇŔřR”Ŕ ýˇŕ硪ř‡÷ÖřÖř÷ĐřŇř÷mĆřĚř÷Ćř¸ř÷Ŕřśř‡÷ Ü˙ˇ Dř7 Śë:6œ%÷-6řŘć÷,řˇ :ř7 Šë:6œ%÷-,ř ç7 ňí.%Ţ$n%ź$ó,B%.%Ü÷břřŔ*řÂVř÷Ţ÷÷ Ú÷ˇ Ö÷÷-Ň÷ę÷ƒw(ć˛ćR”Î ýÖ ×-`ć÷e $ř÷m–ćřwČ˙ˇ ř‡ˇ ž÷ҕ  ÷ ř ç÷ đˇ ř÷ł B%ÁT6 ćÄÂÇ%÷ ´íÄŚäääœ%äŇ÷äŇ÷ääŔ%7 œăƒómž÷T6×-d÷'²÷ҕ  ÷Ź÷Źć÷ źďÁT6ł T6 ÄÂÇ%÷ ZíÄLäääœ%ääx÷ääŔ%7 Bă7 ÷‡÷2îŔ˙ Ŕî÷ öÂŽ˙ Ŕ ý7 ´˙ ÷-Ž˙î8ˇ Ś˙đ˘˙&6ĂŒ˙đ<63 3 ó0îó î÷en˙ój˙ód˙ ó^˙óX˙ ÷mîP˙óL˙÷mříD˙÷E>˙ó:˙ó3 Đ Ä×-œí(Ŕ|íŔ Ŕ <6÷„í:˙÷ě 4˙ ćÂ,˙Ŕ÷ „őˇœíƒ7ŕ˙ó˙óŒíó óló7 ŕţ÷-Üţ>íˇ Ôţ7 öńz6š%÷Ü&`íĂ<6÷ čí÷ |öę×-ňě÷ ú7 ČńĆ$œ%×-Ęíz÷ Đě7 í7 üě7 í×-ôě˙˙%7 Ô‚6„6€6đ$×-Ţě˙˙÷ şěŔ`ţő) ÷ Ôđ7 €6Ć$%÷ €ěŻ÷e2íw 0í×÷-ŞěŽěˇ Ví@÷ ^ě÷ @ ÷ţ÷ ţˇ ţ÷-üýfěƒwZR6űĽ$0R6<6ł ű‹&Ŕȋ3€ 3 ÷‡Ŕ÷ ź7 äđr6š%÷Ü&Ně÷ rőć€Đ w–˙‚7 &ě÷ <ě×-ěëwŔŇëŔ Ŕ <6÷ ě÷ Ęë ó,‡ˇ ˆýű•ł Â÷„ě ÷ ’ő÷ ęë ×-šë÷ X7 Ŕđv%R6÷ Lý÷ hđć`đ÷ZđłćTđ÷Nđł÷ Xő÷ ¤ë÷ ¤ëC÷ ěóó÷,Œë &÷ žô„ó ÷ "őóó3 ÷ ŕü% ҕ ÷ŕë÷ đôÁć ÄÂÇ%÷ ňƒÄ€éääœ%ää ääŔ%7 včÄ`éääœ%7 Vč÷ ë4÷ ë1őˆ:ő ľ$5"7 ÄńÎ#’67 şńř#”6÷ĺBüÄéääœ%ä0üäÎ#ä*üäř#ÁŔbę÷ DÉ÷ P×5 5 ‡5 5 ő!w,íć&÷ęúű÷ĺôűőŘ:ő ľ$5"ÄŞčääĐ&äĐűä7 äçó5 5 „ĆčääĐ&7 |ç7 ńř#%ÄlčääĐ&äúéäř#7 ňćNÄPčääÎ&7 Fç7 Ôđn#%Ä6čääÎ&äÄéän#7 źćJ‚&Ă"ęÂęŔ`é÷ pń‚Ŕ÷ „ńˇ.ę7,ęˇ &ęÄÂż%Áę ÷ ęđÄÜçƒÄÔçääĐ&ää ää¸%7 öć„ƒó ómŕéóŘéóó‡7  ú7 žú7 ’ú7 é÷-ŠúđčCˇ ‚ú÷e„ú÷ éŔxú7<6|ú÷ejú07 ˜|6†6†÷ZúVú÷^úZú#ˇ Ňč÷-@úŚčĂ@ú÷<6Dú7 f~6ˆ6‡Á0úAÂ*ú‚7 "î‡÷úú÷úúš÷-~čbč÷-xčZčüňůŔěů<<6<6|ńmvč„ü˙˙„wÔů÷m\čÎůń-ĘůƒC÷ 7Ü&>č7&6śů7 žě”6š%&<6÷ Nń„÷ „ą„A@’ŔĽ ÷ 4‡÷ ŔîŔ ÷ ‡Ą‡˛ `%ˇ Ćç÷ „ç ˇ¸ç7 ô$Ć$Ą‡˛<6R62 <6ˇ ˘çą‡&ÂůÂm´çÂĺ Äø%“”Ä ý÷Bçů÷ĺůĂ>çĂ Ă Ă<6ćőü'ő@ ľ$5"ÄÂĺääÎ&äâřäää¸%7 ää5 5 ƒÄ˜ĺääœ%ä¸řä7 Ň䄇 Ŕ7 ˜řó,†÷Šř÷ě„ř÷~řzř÷5vř ł ł÷ fř”÷ ^řüˇp糇÷ xć÷ Œć×-†ć÷ ˙„×-xćĂbćĂ Ă ÁřÁmŞćÁĺ ÷ ř÷ ÷šćđ÷ĂĂ Ă Ă<6Â÷ łł „ł  ‡&f÷ đ„ź Ŕ÷ ˛R”÷ Ś÷ě‡÷ čĺ&wB%(ćÁB%÷Ţĺˆ÷Ńíć÷ €÷űÁÎĺÁ Á ńćB%ÁB%7 `ć÷¸ĺb÷wdVć÷ Z÷űèĺĂ Ă Ă<6ććĂÖ $‡ƒ÷ ”ďű• ÁÄÂÇ% ÷ $íƒÄäääœ%ää ääŔ%7 ăƒł .ƒű•ł Â÷ć ÷ *ď÷ "ęćę÷ęłćę÷ęł÷ ďćúé÷ôéłćîé÷čéłƒ„ńÜ&wÜ&*ĺÂÖä  Ś&6r&6&6ą&6ŚB%rB%B%ąB%w&6Öä7 †éě$š%ˇ&6Ćä7 véě$œ%@R6đqR6<6÷ 0÷ öí÷-ĺŽä÷ v7 šäŔhäŔ Ŕ <6đ÷ „„0 0 0 0l0 0 7 ĺ0 ‡Ă äĂ Ă Ă<6ó,‡÷ îŔ÷ ´˙ű• ł ‡ˇ ęăŔňăŔ Ŕ đ &6÷îĺ¸ä×-ěăÄ|âääÎ&7 rá7 ën#%ÄbâääÎ&äđăän#7 čŕZ‡; ; ; ; Copyright (C) 1986 by ; Digital Equipment Corporation, Maynard, Mass. ; ; This software is furnished under a license and may be used and copied ; only in accordance with the terms of such license and with the ; inclusion of the above copyright notice. This software, or any other ; copies thereof may not be provided or otherwise made available to any other ; person. No title to ownership of the software is hereby transferred. ; ; The information in this document is subject to change without notice ; and should not be construed as a commitment by Digital Equipment ; Corporation. ; ; Digital assumes no responsibility for the use or reliability of its ; software on equipment which is not supplied by Digital. ; ; Function of the module: ; This program controls a line printer for the multi lineprinter ; spooler for CTS-300. It is automatically started detached via a ; forced job startup XCALL RUNJB (satellite name,-1) ; ; ; ; ; BWF 12-FEB-86. Rewrote this somewhat to trap errors better. ; Had been incorrectly interpreting ERROR 9 during ; a DELET. ; ; MAP 02-NOV-86 Made several changes to correct problems related ; to /PAGE option. Refer to answer to SPR 11-89918. ; RECORD MSGG ;Recieve LPTSPL's message here KEY, D1 ;Tells the satellite what to do FILE, A14 ;Filename to print DELETE, D1 ;Delete file when done? COPIES, D3 ;# of copies to print PAGE1, D3 ;Starting page PAGE2, D3 ;Ending page RECORD RPLY ;Send message to LPTSPL MSG, A14 ;Message to be sent , A26 CODE, D1 ;Tells 'LPTSPL' what it's to do WHICH, D1 ;Satellite printer number RECORD IO , A512 ;Input buffer for line to be printed RECORD CTR, D3 ;Temp TERM, A1 ;Holds terminator after 'XCALL RSTAT' COPYS, D3 ;Save number of copies to print PRFILE,A14 ;Save file that is being printed DEL, D1 ;Save delete code ERL, D3 ;Error line number - ERROR ERN, D2 ;Error number - ERROR FF, A1 ;Form feed char. HERE, D1 ;Flag for returning after an ONERROR IN, D1,4 ;Channel for input INTR, D1 ;Flag to show an interrupt has occured LF, A1 ;Line feed char. CHAN, D1,2 ;Channel for printer NPG, D3 ;Number of pages to be printed NULL, A1 ;Null char. OPFLAG, D1 ;Saved PFLAG on interrupt PFLAG, D1 ;Flag to show paging PP1, D3 ;Saved PAGE1 PP2, D3 ;Saved PAGE2 PPP1, D3 ;Saved PAGE1 on interrupt PPP2, D3 ;Saved PAGE2 on interrupt PG, D3 ;Used to find PAGE1 RCTR, D2 ;Counter to say when to recv for an interrupt RECORD ;Values put into 'CODE' and sent to 'LPTSPL' CDVOK, D1,-2 ;printer is OK -- give me a file to print JOBDN, D1,-1 ;Done printing this file CLPHG, D1,1 ;printer is hung CLPHD, D1,2 ;printer handler not available CFLHD, D1,3 ;File handler not available CILFL, D1,4 ;Illegal file CRDIO, D1,5 ;Read IO error on file CWOD, D1,6 ;Write only device CDRIO, D1,7 ;Directory IO error CFNF, D1,8 ;File not found CNOPG, D1,9 ;EOF encountered before start page RECORD ;THESE VALUES ARE RECIEVED IN 'KEY' ABORT, D1,6 ;Abort this job COUNTR, D5 ;Counter into input file CTRLZ, A1 ;Control Z character. FINISH, D3 ;Finishing position of print in IO buffer. POSTN, D3 ;Position of terminator in IO buffer. SRCHFL, D1 ;0->Look for ^Z ;1->Look for FF,^Z START, D3 ;Starting search position in IO buffer. PROC ;BWF V8.1 WHICH = PNUMBR ;END V8.1 XCALL FLAGS ('01100000') ;Flag STOP & no multi volume files XCALL ASCII (10,LF) ;Fill in linefeed XCALL ASCII (0,NULL) ;Fill in null XCALL ASCII (12,FF) ;Fill in form feed ; XCALL ASCII (32,CTRLZ) ;32 octal 26, decimal XCALL ASCII (26,CTRLZ) ;Fill in control Z character. INTR= CODE=CDVOK ;Set CODE - Attempting to open printer OPENP, ONERROR ERROR1 OPEN (CHAN,O,PNAME) ;Open lineprinter OFF ERROR GOTO OUT ;Go tell LPTSPL ;----------------------------------------------------------------------------- RECV2, SLEEP (10) ;Sleep before retrying the RECV RECV, RECV (MSGG,RECV2) ;Pick up LPTSPL's messages here MSG= ;Keep message area clear to start with GOTO (FOPEN,PAGE,STOP,RETRY,N1,DONE),KEY ;Get started ;----------------------------------------------------------------------------- ; Open up the file to be printed ;----------------------------------------------------------------------------- FOPEN, PRFILE=FILE ;Save away the file name DEL=DELETE ;Save away delete info COPYS=COPIES ;Save away # of copies PP1=PAGE1 ;Save away page1 PP2=PAGE2 ;Save away page2 CLOSE IN ; just to make sure ONERROR ERROR3 XCALL OPNIT (IN,PRFILE) ;Open the input file ONERROR ERROR4 ;Clear out buffer & is lineprinter up? HERE= ;Clear return flag WRITES (CHAN,NULL) ;Clear error by writing a Null FO1, ONERROR ERROR4 ;make sure the on error is set FORMS(CHAN,0) ;Put out a form feed OFF ERROR ;----------------------------------------------------------------------------- ; Check & set up paging ;----------------------------------------------------------------------------- PAGE, PFLAG= ;Clear page flag START=1 ;Setup starting position in IO COUNTR=1 ;Setup output file counter. IF (PP1.EQ.0 .AND. PP2.EQ.0) GOTO PRINT ;Any paging requested ? ;MAP - BEGIN PFLAG=1 ;Set page flag ;MAP - END NPG=PP1-1 ;Set up page counter. IF (NPG.EQ.0) GOTO PG4 ;If this is page 1, done ; ;MAP PFLAG=1 ;Set page flag PG1, HERE=1 ;Set return to here. INCR RCTR ;Incr receive counter IF (RCTR.EQ.10) GOTO NTRPT ;Ready to check for mail ? ONERROR ERROR6 ;Setup an error trap READ (IN,IO,COUNTR) ; for the first time. OFF ERROR ;MAP -BEGIN ; SRCHFL=PFLAG ;Flag to search for ^Z and . PG1B, SRCHFL=PFLAG ;Flag to search for ^Z and . ;MAP - END XCALL SRCH (POSTN,SRCHFL,IO(START,512)) TERM=SRCHFL IF (TERM.EQ.CTRLZ) GOTO ERR6A ;If EOF hit, error. IF (TERM.NE.FF) GOTO PG2 ;If not then there was no term. ;MAP - BEGIN ; NPG=NPG-1 ;We got a page, so decr page counter ; IF (NPG.EQ.0) GOTO PG3 ;Is this the right page yet ? ;PG2, INCR COUNTR ;Incr file counter and go do the next START = START+POSTN ;START gets moved through data buffer NPG=NPG-1 ;We got a page, so decr page counter IF (NPG.EQ.0) GOTO PG4 ;Is this the right page yet ? IF (START .LE. 512) GOTO PG1B ;Finish looking at one buffer before ; reading another PG2, START = 1 ;Point to start of new buffer INCR COUNTR ;Incr file counter and go do the next ;MAP - END GOTO PG1 ; read. ; ;MAP - BEGIN ;PG3, ONERROR ERROR4 ; ; DISPLAY (CHAN,IO(POSTN+1,512)) ; ; OFF ERROR ; ; INCR COUNTR ; ;MAP - END PG4, IF (PP2.EQ.0) PFLAG= ;Clear page flag if printing ; to end of file. IF (PP2.NE.0) PG=PP2-PP1+1 ;Setup # pages to be printed. ; and fall thru to PRINT. ;----------------------------------------------------------------------------- ; Printing routine ;----------------------------------------------------------------------------- PRINT, CODE=JOBDN ;Tell LPTSPL we were in the print ;MAP - BEGIN ;Find out if we have finished looking ;at the buffer we started with IF (START .GT. 1 .AND. START .LE. 512) GOTO PR2 ;If not, don't read ; another one yet IF (START .EQ. 1 .AND. COUNTR .EQ. 1) GOTO PR1 ;If true, we haven't ; read the first block of the file yet INCR COUNTR ;Set up to read a block into buffer START = 1 ;MAP - END PR1, HERE=2 ;Flag return to here INCR RCTR ;Incr receive counter IF (RCTR.EQ.10) GOTO NTRPT ;Ready to check for mail ? ONERROR ERROR5 READ (IN,IO,COUNTR) ;Fill the buffer. OFF ERROR PR2, SRCHFL=PFLAG ;Flag to search for ^Z and/or . XCALL SRCH (POSTN,SRCHFL,IO(START,512)) FINISH=START+POSTN-1 TERM=SRCHFL ; IF (TERM.EQ.CTRLZ) GOTO EOF ;RMA IF (TERM.EQ.CTRLZ .AND. POSTN .EQ. 1) GOTO EOF ;PRINT LAST BLOCK IF ((TERM.NE.FF).OR.(PFLAG.EQ.0)) GOTO PR3 PG=PG-1 ;Yes decr page counter IF (PG.EQ.0) FINISH=FINISH-1 ;If done paging don't write last . PR3, IF (TERM .EQ. CTRLZ) FINISH = FINISH -1 ;DON'T PRINT CTRL/Z ONERROR ERROR4 DISPLAY (CHAN,IO(START,FINISH)) OFF ERROR IF (TERM.EQ.CTRLZ) GOTO EOF ;RMA IF ((PFLAG.NE.0).AND.(PG.EQ.0)) GOTO EOF ;If done paging go to EOF. IF (FINISH.EQ.512) GOTO PR4 START=FINISH+1 GOTO PR2 PR4, START=1 INCR COUNTR GOTO PR1 ;----------------------------------------------------------------------------- ; Check for mail maybe need to interrupt ;----------------------------------------------------------------------------- NTRPT, RCTR= ;Clear receive counter RECV (MSGG,N2) ;Any mail ? IF (KEY.EQ.ABORT) GOTO DONE ;Leave if asked to abort N1, INTR=1 ;Set interrupt flag PPP1=PP1 ;Save the old pages PPP2=PP2 PP1=PAGE1 ;Set up the new pages PP2=PAGE2 OPFLAG=PFLAG ;Save paging flag ON ERROR ERROR4 FORMS (CHAN,0) ;Issue a form feed to lineprinter OFF ERROR GOTO PAGE ;Find first page and start printing N2, GOTO (PG1,PR1),HERE ;Return from interrupt. ;----------------------------------------------------------------------------- ; Retry printing the last line after an IO error ;----------------------------------------------------------------------------- RETRY, IF (HERE.EQ.2) CODE=JOBDN ;Set up code if this is a JBDON ONERROR R1 WRITES (CHAN,NULL) ;Clear RT double erroring on us R1, OFF ERROR GOTO (FO1,PG1,PR1,STOP,STOP),HERE+1 ;Go back and try again ;----------------------------------------------------------------------------- ; We've been asked to bring everything down ; or there's nothing to do, flush me from the system ;----------------------------------------------------------------------------- STOP, HERE=3 ;Flag return to here ONERROR ERROR4 ; CLOSE CHAN ;Close printer STOP ; & STOP ;----------------------------------------------------------------------------- ; An EOF has been encountered ;----------------------------------------------------------------------------- EOF, COPYS=COPYS-1 ;Decr number of copies IF (COPYS.EQ.0) GOTO DONE ;Done with all copies ? ONERROR ERROR4 ; FORMS (CHAN,0) ;Do a Form feed OFF ERROR IF (INTR.EQ.0) GOTO E1 ;Interrupt in progress ? PFLAG=OPFLAG ;Yes - reset flags PP1=PPP1 ; and paging PP2=PPP2 E1, COUNTR = 1 ;RMA START = 1 ;RMA ;MAP - BEGIN ; IF (PFLAG) GOTO PG1 ;Paging in progress ? Get restarted IF (PFLAG) GOTO PAGE ;Paging in progress ? Get restarted ;MAP - END ONERROR ERROR5 ;Set up an error trap READ (IN,IO,1) ;No - rewind the file OFF ERROR GOTO PR2 ;and get printing DONE, CLOSE IN ;Close input file IF (KEY .NE. ABORT .AND. DEL.EQ.1) CALL DELETE ;----------------------------------------------------------------------------- ; Fill buffer to ensure the print ;----------------------------------------------------------------------------- BUFFIL, CODE=JOBDN ;Set up code for LPTSPL HERE=4 ;Flag return to here CTR= ;Clear counter ONERROR ERROR4 FOR CTR FROM 1 THRU 255 DISPLAY (CHAN,0) ;Fill with nulls OFF ERROR GOTO OUT ;Leave when full DELETE, ON ERROR ERROR2 XCALL DELET (IN,PRFILE) ; Delete file OFF ERROR RETURN ;----------------------------------------------------------------------------- ; ERROR ROUTINES & RETURN MECHANISM ;----------------------------------------------------------------------------- ERROR1, OFF ERROR XCALL ERROR (ERN,ERL) IF (ERN.EQ.19) THEN BEGIN CODE=CLPHD ;"Handler not available" ONERROR SLEEP1 SEND1, SEND (RPLY,'LPTSPL') ;Send message to LPTSPL STOP ;Flush satellite SLEEP1, SLEEP 10 GO TO SEND1 END ELSE BEGIN SLEEP (10) ;Sleep GOTO OPENP ;And try again END ERROR2, OFF ERROR XCALL ERROR (ERN,ERL) IF (ERN .EQ. 9) THEN BEGIN SLEEP 10 GO TO DELETE END ELSE RETURN ;----------------------------------------------------------------------------- ERROR3, OFF ERROR XCALL ERROR (ERN,ERL) ;"File of length zero" IF (ERN.EQ.21) BEGIN IF (DEL .EQ. 1) CALL DELETE CODE=JOBDN GOTO OUT END IF (ERN.EQ.19) CODE=CFLHD ;"File handler not available" IF (ERN.EQ.17) CODE=CILFL ;"Illegal filespec" IF (ERN.EQ.12) CODE=CWOD ;"Write only device" IF (ERN.EQ.43) CODE=CDRIO ;"Directory IO" IF (ERN.EQ.18) CODE=CFNF ;"File not found" MSG=PRFILE ;Setup file name involved GOTO OUT ;Get ready to send the message ;----------------------------------------------------------------------------- ERROR4, OFF ERROR CODE=CLPHG ;"printer is hung" GOTO OUT ;Get ready to send the message ;----------------------------------------------------------------------------- ERROR5, OFF ERROR XCALL ERROR (ERN,ERL) ;If this an Illegal rec error IF (ERN .EQ. 28) GOTO EOF ; then we've hit the end of the file. ERR5A, CODE=CRDIO ;"Read/Write IO error" GOTO OUTT ;Get ready to send the message ;----------------------------------------------------------------------------- ERROR6, OFF ERROR XCALL ERROR (ERN,ERL) ;If this an Illegal rec error IF (ERN.NE.28) GOTO ERR5A ; then we've hit the end of the file. ERR6A, CODE=CNOPG ;"EOF encountered before first page" GO TO OUTT ;----------------------------------------------------------------------------- OUTT, MSG=PRFILE ;Setup file involved CLOSE IN ;Close input OUT, ONERROR OUT1 SEND (RPLY,'LPTSPL') ;Send the message OFF ERROR GOTO RECV ;Wait for a response OUT1, SLEEP (10) ;Sleep before trying to send message GOTO OUT ; again. ݃€ ŒF€€đBa&fŚÁe@€BJ%@& fŚˆ‡‚€E…ţˆű÷AÔ˙Á  w ü‡ăֆ˘ŒÖ†°ֆÜֆ &ֆ Wֆ8ֆTֆˆֆć_ €2‡_ € ˆ_ € ţ†_ €ć†_ €ę†_ €ř†_ €$چ_ €*î†_ €0@‡Time-Shared DIBOL Line Printer Spooler - V08.20A123142LP:LQ:LR:LS:4LPQFIL.LPQLPQLOG.LPQDK LPTSPLTSDLPSATLQSATLRSATLSSATDK TSD0 00000000000 0000000 000000000123456vtsq00000000000010000000000000000000000000000000000000000000000000000000000 1346010151000000000000 0 0000000000000000000002345111415161718192151525864761510 0000000000 0 000000000000000000000 8000000 00 01000000_ …†ƒ~…$—Ä$ĚÄĚŔŔŔŔŔŔ ÄôĎ ÄńĎ ÄîĎ ÄëĎ ÄčĎÄĺĎÄâĎ}Äž€ƒ˙˙”MLy0ž€î€ď€đ€ń€ó€ô€   ! 58ABFILNOPQĄĽ ¨´¸šşťź˝žżŔÁÁāŁƁVǁǁʁ́ЁӁցفč÷‚‚‚ ‚ ‚‚‚‚ ‚!‚!‚#‚%‚'‚)‚*>‚>‚M‚S‚V‚W‚Z‚]‚^‚a‚d‚e‚>‚f‚g‚>‚?‚@‚h‚i‚j‚k‚l‚n‚p‚r‚t‚v‚x‚z‚|‚~‚€‚‚‚„‚†‚‰‚‰‚™‚œ‚Ÿ‚*˘‚˘‚ˇ‚ş‚‚łȂ̂܂݂݂߂á‚ă‚é‚ë‚ů‚€ú‚v€†€Ÿ@ƒ˘FƒĽLƒ¨RƒŤXƒŽ^ƒś€Ž€–€ž€Ś€~€Ž€î…Ě…Ô% CÁ‰CÁ‰‡†‰÷˙˙ř˙Á%Á%†‰ô%˙˙% Á‰÷Ň˙÷%Ě˙ÁÁ‰ Ă`÷%°˙áľ ÂP÷ ˘˙őP,ő@,Ă Ŕ đ÷ Š˙‡ľ,‡á•0ő0,‰ŠĂ Ŕ ÷‡Ô%†‰Á‰ćÁ‰‚Á‰Á‰Ŕ%Ÿ‰ÁećŔ   ŕ‚ űĂe0ᐃÎ ôÖ ‡00 TT:1182_ …ž‡ˆ$,LÄ Ě  Ä   P     PĚ X   Ä  X؆2‡˙˙y:؁Nń€  ¨đ€şz‚„‚̂܂é‚؆Pچ€*‡€-‡€.‡€0‡$Š€†0q0Y1y1000000_ …d‰č‰$1 ^Ě "Ě uĚ @   Ě čĎ\Ě    PĚ  FĚ  LLÄ  Ě  4Ě  \)Ě  t \Č  Ä+Ěp@ĚôĎ*1ŔXĚ ÄX tX Ě   p @X!ˆ ˆ˙˙đyxABé‚Ąî€ď€ ¨!¸š´şť˝źžفč ‚÷*>‚v‚ 58ˆˆ€ˆ€ˆ€ˆ€ˆ€ˆ$ŠS.‰´‹O‰î…0000 000000000000 0001124_ … ŠĐŠ$pÄÄp   Äp@Ä óĎ   @@ÝĎŠ$Š˙˙م`"ş ¨ŠŠŠŠŠŠ€ Š€!Š€#ŠäŠR‹ţŠĐ‹Ô Á‰Á‰‘Â‘‡Ô Á‰fÁ‰C”Ăĺ0ÂĂ Ă ƒ`Ă A’Áĺ0Á`B B`  Á‰l€ ƒ“Â“ W ř‡Ô%-Á ‰— ƒÓ•0 ůŚÁ‰@’ŔE˙Â0Ŕĺd‚ ű—#“Î Â9Ŕe €Â ű—#“Ŕe0 Ö ‡†‰ÁĚ%Ě%Á Ô ‰‡†‰Ô%+Á‰CÁ‰@”A”ŔE˙ÁE˙Á`ŔŔe@ŕ Â˙˙‚ âý†b Â%‡Âe ÂeÂe Âe “č‡†‰(@ 00000000001?2501310 18Y N12_ …Ɗâ‹$e:*$1Ŕ::% ;Ě&Ě @Ě<=% :T6Ä6>ĘĚ'?@?@@: A´Ě,ÄB 6p6@C6P+Ä'B D6 D-Ä'B D4Ŕ98Ä9>Ě:94 ::94 <žĎ:94 <E6P6@6 SĚE6P+Ä'B D6 D.Ä'B D4Ŕ98Ä9>ÇĎ:94 ::94 <žĎ:94 :C6P6ŚĎ6>:7X6p6@6C5@6ňĎ5>C:P:X: X X :XČ-Č:Ŕ:x:Fxpp pČ - Č !:Ŕ!: xp X >XČ:/Ŕ({Ě Č,:0X/0:1X0@0 óĎ0p/1p/Ď Č , !"6X 26@6# öĎ šĎ:X*3X Ä Ď:X'3XĚ<X(3X Ä Č:/Ŕ$Ě)3X Ä Ě Č:X:!|Ď3Ä7> : 3*:X؆ţ†˙˙y:‚0ž€ABFNń€OPQó€Ą‰‚î€ô€ď€  ¸đ€̂ť˝žVǁ́ЁӁ÷‚‚‚ ‚!‚#‚%‚)>‚>‚f‚p‚r‚t‚x‚€‚‚‚|‚~‚*˘‚‚ł݂é‚؆ŕ†á†ä†ĺ†č†€ę†€ë†€ě†€í†€î†€ď†€ń†€ó†€÷†€ů†€ú†€ű†€ü†m@‡VŒ€†u˜‡ŒŻź‰ÍFŠ˝ŠŘrŠĘ<ŠĆ0ŠÝ„ŠŐjŠŔ%Ŕ%ô%˙˙% Á‰`ᕠŔ üICÁ‰‡†‰Ô%Á‰l(Ò Á‰`á•qŔ á•0űÁ‰‡†‰0000?01253q440_ …Vˆ‰$@ p"šĚ#yĚ$ oĚČ$ XŔ!X!Ŕp!Ěpp XĚ% XŔXpX#&X' XXX!X@#DD( Ě#DD) X $& XŔ  X ĚXĚÄ* Ě$* ŔŔŔŔŔ$XX  XĚ  X!؆ć†˙˙‘M„AFé‚LIď€¸šťÁźVǁǁʁ́Ӂցفč*>‚>‚V‚]‚^‚a‚d‚*˘‚‚łn‚t‚؆ن€Ü†€Ý†€Ţ†€ß†€ŕ†€á†€â†€ă†€ä†kˆÎ…F ‡QX‡Wx‡c܇eč‡0010!324561QUE740_ …TŠ$‹$Md(*1Ŕ)Ě( X(XČ('X ( $ŔăĎ!*ŢĚ  X”( ŔŔŔŔŔŔŔŔŔ Ŕ+XX Ŕ(  \ Ŕ ) (\  ( \Č,'X ( $Ŕ ) Ŕ   Ŕ Ŕ )D  DČ+'X ( $Ŕ Ŕ) (\ (\) Ě) (\ (\ X)DD)  Ě)DDČ-'X ( $ŔÇĚ )ˇĚ tČ.'X (/'X $ Ŕ%p $  $Ŕ •Ě‘Ě!d")Ě"0!L("\ Č!1#6Ě"”"X"tČ2'X ( $Ŕ"fĚ ppĚ(*áĎ[Ě    ŔŔŔ Ŕ Ě  Ě )ĚJĚ   )  Ě=Ě&p&@& Ě&ôĎ/Ě   p @ŔÄ3 Ě(*'ŔŔŔŔŔŔŔX( X ĚX ĚXĚXĚXĚX !؆ę†˙˙Kq€‰t‚AFé‚LIÁď€ƁĄ¸šťź˝żÁVǁفč÷‚ ‚ ‚*>‚V‚d‚e‚f‚g‚>‚?‚@‚*˘‚Ȃ؆ن€Ú†€Ű†€Ü†€Ý†€Ţ†€ß†€ŕ†€á†€â†€ă†€ć†€ç†Ÿ\‰Żč‰ş*Š¨ˆ_l‡¸$Šat‡jȇqú‡ż:ŠśŠž6ŠV‰Ą~‰Nú†Î…U‡dš‡mâ‡|Žˆ„źˆ‡Ěˆ–0‰000000000N012349161556 407_ …ŠţŠ$U!Ŕ   ŔŔŔŔŔČ 04Ě 11Ŕ 112.X 113.X 114.X Ě 1ëĚ4.X X-p.2 /X.3/X.4 /X2+X  Ŕ.2ŔŔ ” 1 ĚĚ1 Ě Ě ” Ě X ÍĎ?Ě2 ňĎ3 ëĎ4 äĎ5 ÝĎ 1Ě-  Ě-X ,X6 Ě/2/X/ŔĎ,1YĚ3+X ,Ŕ!, \1  Ě"X4+X 2dĚ”X1 Ě ”X2\ D5+X ,”'X&X28 37%T(X)X9+X 2:+X *Ŕ;/Ě#X)Ě&X  t'Ě Ä<Ě$X2X&X=+X Č%  0 Ě2*+ Ŕ Ŕ ŔŔŔŔŔXĚXĚXĚ !؆ř†˙˙šwř‰ABFLIé‚Á‚Ąď€Ľ!¸š‚ťÁŔźVǁǁف÷*>‚M‚S‚V‚W‚Z‚]‚^‚d‚f‚h‚i‚t‚‰‚‰‚™‚œ‚Ÿ‚*˘‚؆ن܆݆ކ€á†€â†€ă†€ä†€ĺ†€ć†€ç†€č†€ę†€ě†€í†€î†€ô†€ö†@‰Y,‡Ťć‰™ˆ‰Źć‰œ’‰l(ˆn6ˆÎ…ĽÂ‰gđ‡~ֈƒ‰‹4‰“`‰•l‰Ł¸‰$1_ …B‡v‡$˜\Č 0(  X XĚ *éĎ!؆چ˙˙–wf‚ÁĄ‚!¸ťžÁ‰‚‰‚€Ř†&‡*00000001Y4352q67894010_ …žŠ˘‹$S0pČ' Ě#X3”X3ŔX' ”4ŔŔXÄ40X(Ŕ4 \5 Ě 36 \Ě 3 36 \ 6 \tŔ70X(Ŕ,2X3Ě++” Ě8+3 ĚĚ*3FĚÄ23Ŕ2XÎĎ90X(Ŕ)"Ě++”Ě3+3Ě8+3  ĚăĚ,XÎĎ*3ĚÄĺĚ/XČ+1X+31”1X.10!Č'ÍĚČĄĎ4*ćĎ60X!Ŕ4X#3 #”4#”\#3 4\#3  #4#\&:Ě#3 #”4#”\#3 4\#3  #4#\80X(Ŕ,X(Ě;0X($Ŕ%-X($Ě%XĚ<0X(%Ŕ$,X(%Ě$X!d$p%X=0X!X>0X4(ŔÄ?Ě4*0 Ŕ Ŕ ŔŔ Ŕ ŔŔŔŔŔX4XĚ X3 4XXĚ4X@0X(ŔXĚX!؆î†˙˙Ô>đ_ ‚t‚ABFé‚LIl‚āƁĄď€ĽŁ!¸šťžżźVǁǁʁЁցفč÷ ‚*>‚>‚V‚^‚a‚d‚f‚*˘‚˘‚ˇ‚ş‚‚ł‰‚‰‚؆چۆ€Ţ†€ß†€ŕ†€á†€â†€ă†€ä†€ĺ†€ć†€ç†€č†€é†€ę†€ě†˛Š˝hŠhž‡t&ˆŒŘˆÂ€ŠŠŇˆÎ…_L‡u*ˆi‡–p‰œš‰Ąś‰Źî‰Żţ‰0000000 00 000 0JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC31 624890qs1440512_ …ź‰´Š$R&&  lĚ&/éĚĚX0-XČ)0Ŕ*0*\Ě@D(X'L%Ä,Ä,1Ě02"xĚ03, %"X+p#p#@42, +0+/. Ě+/+XďĎ56, %$X@3-X!0)Ŕ!& 7Ě/-XČ&0X\7ĚŔX 0038\/9\JĚ&:ŔŔŔŔŔŔ?ĚÄ;-ŔŔŔŔŔŔ0*-Ŕ Ŕ Ŕ Ŕ Ŕ ŔĚ/X&X4-XČ 0!0 XĎ Ě0X<-XČ 0!Ě00X2-XČŔ  X&&=  X&&=X!؆@‡˙˙4}GFILĄî€ď€¸šťžVǁ÷‚‚‚*>‚V‚d‚>‚!‚!‚#‚%‚'‚)‚j‚k‚l‚t‚v‚݂݂߂á‚ă‚é‚ë‚ů‚؆ô†ő† ÷†‡‡€%‡€&‡ €'‡€0‡€1‡€2‡€3‡€4‡€5‡€6‡€7‡€8‡€:‡€<‡€=‡„Đˆž‹ěŠˆ ‰˜N‰‘0‰Î…Yž‡q$ˆxRˆ ‰•B‰›d‰Ô%MÁ‰`ᕠ ü&,Ŕ üˆ'ĂEüƒ ƒ ƒ ƒ ƒ ÷ @ѕ-Î ĂE˙ƒĂĂaĂeTєΠєΠєΠєΠĂEŕ˙ĂeH÷ Ö ‡Â0Ăĺ ‚ ű‘ö Ăe:ѐö Ö ë‡†‰JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC-Ô%nÁ‰&7Bҕ0Ŕ üfŔŔe„ćÎeŒˇxýˆÄÄe~ä -ćÎed€ČđŔýˆŔ5 Ă2@÷ R w Jw FĂw >ƒvĹ÷ b‘÷ Ĺb‘÷ …󅄇pŒ<f Ä Á @ E C!‡Ĺŕ Ä ÷Ĺeöŋü€Ĺe:/Ă<‡†‰;FILE 1VOL VOLRX5 VOLRX2 UPDX UPDY DLSQZ NETGEN.COM 1 1 1 4 2 T NETPLN.COM 1 1 1 4 3 F CTBGEN.COM 1 1 1 4 3 T CEXGEN.COM 1 1 1 4 3 F DDMGEN.COM 1 1 1 4 3 F LLCGEN.COM 1 1 1 4 3 F UNSGEN.COM 1 6 5 4 3 F NETINS.COM 1 1 1 4 3 F NASUB.OBJ 1 2 2 4 3 F NASUBC.OBJ 1 2 2 4 3 F NATNE.OBJ 1 2 2 4 3 F NATNEC.OBJ 1 2 2 4 3 T .; N E T G E N . C O M .; .; DECnet-RT Network Generation Procedure. .; .; Copyright (C) 1986 by .; Digital Equipment Corporation, Maynard, Mass. .; .; .; This software is furnished under a license and may be used and copied .; only in accordance with the terms of such license and with the .; inclusion of the above copyright notice. This software or any other .; copies thereof may not be provided or otherwise made available to any .; other person. No title to and ownership of the software is hereby .; transferred. .; .; The information in this software is subject to change without notice .; and should not be construed as a commitment by Digital Equipment .; Corporation. .; .; Digital assumes no responsibility for the use or reliability of its .; software on equipment which is not supplied by Digital. .; .; .; MODULE DESCRIPTION: .; .; NETGEN Command Files .; .; .; Distributed Systems Software Engineering .; .; IDENT HISTORY: .; .; 2.00 20-Jan-81 .; Version 2.0 Release .; .; 2.10 20-May-83 .; Version 2.1 Maintenance Release .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .ENABLE ESCAPE .DISABLE LOWERCASE .; .; Define global Netgen parameters here (e.g. System type) .; .SETS SYSTEM "RT-11 V5" .SETS VER "2.1" .SETS BL "1.0" .; .; Parameters for tinkerers .; .SETF $PH2 .; Remove to allow Phase II compatability .SETF $DONLY .; Remove definition to allow DLX only .SETF $UNSUP .; Remove to allow generation of unsupported .; .; software from mainline gen .SETN $MAXAD 32. .; Maximum node address allowed .; ===================================================================== .; GLOBAL VARIABLES USED IN NETGEN .; ===================================================================== .; .; VARIABLE TYPE USE .; -------- ---- --- .; $03 Y/N THE SYSTEM IS A QBUS TYPE SYSTEM .; $23 Y/N THE SYSTEM IS AN 11/23 .; $MP Y/N THE SYSTEM IS A MICRO/PDP-11 .; $AUX Y/N INDICATES AUX IS INCLUDED IN THE SYSTEM .; $CM STRING THE DEVICE CONTAINING THE BUILD COMMAND FILES .; $CTB Y/N INDICATES A NEW CETAB IS BEING CREATED .; $DCP Y/N INDICATES PT-TO-PT DDCMP IS INCLUDED IN SYSTEM .; $DCS Y/N INDICATES TRIB DDCMP IS INCLUDED IN SYSTEM .; $DE Y/N INDICATES BUILD COMMAND FILE DELETION DESIRED .; $DI STRING THE DISTRIBUTION DEVICE .; $MW STRING MICRO/PDP-11 RD51 FIXED WINCHESTER DEVICE .; $DLX Y/N INDICATES DLX IS INCLUDED IN THE SYSTEM .; $DONLY Y/N INDICATES DLX ONLY SYSTEM ENABLED .; $EIS Y/N INDICATES THE SYSTEM INCLUDES EIS CAPABILITY .; $EXP Y/N EXPANDED DIALOGUE MODE IS DESIRED .; $GEN Y/N INDICATES SOMETHING IS BEING GENERATED .; $LBR Y/N INDICATES ONE OF THE LIBRARIES IS BEING BUILT .; $LI STRING THE DEVICE FOR THE LISTINGS(IF ANY) .; $MA STRING THE DEVICE FOR THE MAP FILES(IF ANY) .; $MAP Y/N INDICATES THE SYSTEM IS AN XM SYSTEM .; $MDC Y/N INDICATES THERE IS A MODEM CONTROL LINE IN SYS .; $NDM Y/N INDICATES THAT THERE IS NO SOFTWARE DDCMP IN SYS .; $NSP Y/N INDICATES NSP IS INCLUDED IN THE SYSTEM .; $OU STRING THE TARGET GENERATION DEVICE .; $PTP Y/N INDICATES THERE ARE POINT-TO POINT LINES IN SYS .; $SLAVE Y/N INDICATES THERE ARE TRIB LINES IN THE SYSTEM .; $SMALL Y/N INDICATES DISTRIBUTION DEVICE IS A SMALL DISK .; $SMLL2 Y/N INDICATES DISTRIBUTION DEVICE IS A DX OR DD .; $SMTGT Y/N INDICATES TARGET DEVICE IS A SMALL DISK .; $S2TGT Y/N INDICATES TARGET DEVICE IA A DX OR DD .; $SPL Y/N INDICATES LISTINGS SPOOLING IS DESIRED .; $SPM Y/N INDICATES MAP SPOOLING IS DESIRED .; $X STRING NULL FOR FB, "X" FOR XM .; ; ; ====================================================================== ; * 'SYSTEM' Network Generation Procedure * ; Version 'VER' Base Level 'BL' ; ====================================================================== ; ; Copyright (C) 1986 by ; Digital Equipment Corporation, Maynard, Mass. ; ; Generate DECnet-RT Version 'VER' programs for your 'SYSTEM' system. ; .ASKN [30.:255.:80.] W Enter your terminal width .ENABLE QUIET SET TT WIDTH='W' .DISABLE QUIET ; .ASK $EXP Do you want the expanded form of dialog .IFT $EXP .GOTO 220 ; ; Explanatory text for each question is available by hitting the ; key followed by a carriage return (). ; .GOTO 230 .220: ; ; The notes/cautions describe the prerequisite conditions for starting ; the NETGEN procedure. ; .230: .ASK Q Do you want to see the NETGEN notes/cautions .IFT .GOTO 220 .IFF Q .GOTO 315 ; ; Note the following: ; ------------------- ; ; . DECnet-RT requires the RT-11 foreground/background (FB) monitor with ; device timeout support and without Error Logging generated. ; ; . If your distribution medium is the output device, it is recommended ; that you backup this device before continuing. This is recommended ; because the device must be write enabled during the NETGEN sequence. ; ; . For questions that can be answered YES or NO, NO is the ; default. For questions with defaults, the default is produced by ; pressing a carriage return () in response to the question. ; .IFF $EXP .GOTO 310 .305: ; ; If you are not ready to continue, answer E. NETGEN will exit. When ; you are ready, restart the NETGEN procedure. ; .310: ; Do you want to - .ASKS EOS -continue, E-exit .IFT .GOTO 305 .IF EOS EQ "" .GOTO 315 .IF EOS EQ "E" .GOTO FINISH ; ; Error - Invalid response ; .GOTO 305 .315: .START: ; ; ====================================================================== ; * NETGEN PRELIMINARY * ; ====================================================================== .SETF $03 .SETF $23 .SETF $MP .; .; DYNAMIC LABEL STUFF FOR SMALL SYSTEMS .; .SETS $TSTRY "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" .SETN $TSTPS 1 .SETS $TSTNM $TSTRY['$TSTPS':'$TSTPS'] .; .GOTO 350 .; .; .; SUBROUTINE TO CHECK PROCESSOR TYPE .; .CHKTYP: .IF MTYP EQ "11/150" .GOTO CK20 .IF MTYP EQ "LSI-11" .GOTO CK20 .IF MTYP EQ "11/03" .GOTO CK20 .IF MTYP EQ "11/04" .GOTO CK30 .IF MTYP EQ "11/05" .GOTO CK30 .IF MTYP EQ "11/10" .GOTO CK30 .IF MTYP EQ "11/20" .GOTO CK30 .IF MTYP EQ "11/23" .GOTO CK40 .IF MTYP EQ "MICRO/PDP-11" .GOTO CK40 .IF MTYP EQ "11/24" .GOTO CK45 .IF MTYP EQ "11/34" .GOTO CK45 .IF MTYP EQ "11/35" .GOTO CK10 .IF MTYP EQ "11/40" .GOTO CK10 .IF MTYP EQ "11/44" .GOTO CK45 .IF MTYP EQ "11/45" .GOTO CK45 .IF MTYP EQ "11/50" .GOTO CK45 .IF MTYP EQ "11/55" .GOTO CK45 .IF MTYP EQ "11/60" .GOTO CK45 .SETT ERR ; ; Error - 'MTYP' is an invalid processor type ; .CK10: .RETURN .CK20: .SETT $03 .CK30: .SETF $MAP .IF MTYP EQ "LSI-11" .RETURN .SETF $EIS .RETURN .CK40: .SETT $23 .IF MTYP EQ "MICRO/PDP-11" .SETT $MP .CK45: .SETT $EIS ; EIS instruction set enabled. .RETURN .; .; CHKDEV - Subroutine to check device name format .; .CHKDEV: .SETF ERR .IF DEV NE "" .GOTO D10 .SETS DEV "'''':" .GOTO D50 .D10: .TEST DEV .IFT .GOTO D20 .SETN N .SETS CHAR DEV['N':'N'] .IF CHAR NE ":" .GOTO D40 .DEC N .SETS DEV DEV[1:'N'] .TEST DEV .IFF .GOTO D40 .D20: .SETS DEV "'DEV':" .IF DEV NE "SY:" .GOTO D30 .SETS DEV "'''':" .GOTO D50 .D30: .TEST DEV .IF LT 3 .GOTO D40 .IF GT 4 .GOTO D40 .SETS CHAR DEV[1:1] .IF CHAR LT "A" .GOTO D40 .IF CHAR GT "Z" .GOTO D40 .SETS CHAR DEV[2:2] .IF CHAR LT "A" .GOTO D40 .IF CHAR GT "Z" .GOTO D40 .IF LT 4 .GOTO D50 .SETS CHAR DEV[3:3] .IF CHAR LT "0" .GOTO D40 .IF CHAR GT "7" .GOTO D40 .SETS DV DEV[1:2] .IF DV EQ "SY" .SETS DEV "'''CHAR'" .GOTO D50 .D40: ; ; Error - Illegal device name - 'DEV' .SETT ERR .D50: .RETURN .; .; CHKDUN - Subroutine to check if valid RD51 Winchester device .; .CHKDUN: .SETF ERR .SETS DEV $MW .SETS CHAR DEV[1:2] .IF CHAR NE "DU" .GOTO M10 .SETS CHAR DEV[3:3] .IF CHAR LT "0" .GOTO M10 .IF CHAR LE "2" .GOTO M20 .M10: ; ; Error - Illegal RD51 Winchester device - 'DEV' ; .SETT ERR .M20: .RETURN .; .; CHKMMW - Subroutine to check devices match to .; - the RD51 Winchester device .; .CHKMMW: .SETF ERR .IF DEV EQ $MW .GOTO M30 ; ; Error - Device must be the RD51 Winchester disk ; .SETT ERR .M30: .RETURN .; .; ASK SYSTEM OPTIONS .; .350: ; ; Target system characteristics - ; ----------------------------- .IFF $EXP .GOTO 414 .412: ; ; Enter the target processor type. Valid types are: ; ; 11/150 (PDT) ; ; LSI-11, 11/03, 11/23 (Q-BUS) ; MICRO/PDP-11 ; ; 11/04, 11/05, (UNIBUS) ; 11/10, ; 11/20, 11/24*, ; 11/34, 11/35, ; 11/40, 11/44*, 11/45, ; 11/50, 11/55, ; 11/60 ; ; Note that only 18-bit addressing is supported for ; the 11/44 and 11/24 processors. ; ; What is the - .414: .ASKS [5.:12.] MTYP 1. Processor type? .IFT .GOTO 412 .SETF ERR .GOSUB CHKTYP .IFT ERR .GOTO 412 .IFDF $EIS .GOTO 428 .; .IFF $EXP .GOTO 426 .425: ; ; If your target processor has the EIS option answer YES to the ; this question. For greater transportability you may want to ; answer NO even though your target processor does have the EIS option. ; ; Do you want - .426: .ASK $EIS 2. Extended instruction set (EIS) support .IFT .GOTO 425 .; .428: .SETF $MAP .; Don''t allow mapped systems .IFDF $MAP .GOTO 435 .IFF $EXP .GOTO 433 .432: ; ; If your target system was generated as an XM monitor then you MUST ; answer YES to this question. If your target system was generated ; as an FB monitor then you MUST answer NO to this question. ; ; Do you want - .433: .ASK $MAP 3. Extended memory (XM) monitor support .IFT .GOTO 432 .; .435: .SETS $X "" .IFT $MAP .SETS $X "X" ; ; NETGEN procedure parameters - ; --------------------------- .IFF $MP .GOTO 1155 .IFF $EXP .GOTO 1135 .1130: ; ; Specify the MICRO/PDP-11 RD51 fixed Winchester device ; ( for example, DUn where n = 0->2 ). Optionally, the colon may be ; supplied ( for example, DU0: ). The default device is SY:. ; For NETGEN, The DECnet distribution device, the Target generation ; device, the Listing device, and the Map device must be the RD51 ; fixed Winchester device. For NETGEN, Transfer the kit files to ; another device is not allowed. ; .1135: .ASKS DEV 0. MICRO/PDP-11 RD51 Winchester device (DDN)? .IFT .GOTO 1130 .GOSUB CHKDEV .IFT ERR .GOTO 1130 .SETS $MW DEV .GOSUB CHKDUN .IFT ERR .GOTO 1130 .1155: .IFF $EXP .GOTO 1200 .1160: ; ; Specify the device on which the distribution kit is located (for ; example RK2). Optionally, the colon may be supplied (for example, ; RK2:). The default device is SY:. ; ; What is the - .1200: .ASKS DEV 1. DECnet distribution device (DDN)? .IFT .GOTO 1160 .GOSUB CHKDEV .IFT ERR .GOTO 1160 .SETS $DI DEV .IFF $MP .GOTO 1220 .GOSUB CHKMMW .IFT ERR .GOTO 1160 .1220: .SETS DI $DI .SETS DEV $DI[1:2] .SETS DEV "'DEV':" .ENABLE QUIET .IFNLOA 'DEV' LOA 'DEV' .DISABLE QUIET .IFNLOA 'DEV' .GOTO 1160 .TESTFILE '$DI'NETGEN.COM .IF EQ 1 .GOTO 1300 ; ; Error - '$DI' does not contain a DECnet distribution kit .GOTO 1160 .; .1300: .SETF $SMALL .SETF $SMLL2 .SETS DEV $DI[1:2] .IF DEV NE "DY" .GOTO 1305 .ASK Q Is '$DI' double density .SETT $SMALL .IFF Q .SETT $SMLL2 .GOTO 1330 .1305: .IF DEV NE "DX" .GOTO 1310 .SETT $SMALL .SETT $SMLL2 .GOTO 1330 .1310: .IF DEV NE "DD" .GOTO 1315 .SETT $SMALL .SETT $SMLL2 .GOTO 1330 .1315: .1330: .IFT $SMALL .GOTO 2400 .; SKIP FOR SMALL KITS .; .1400: .SETS CHAR [1:1] .;GET FIRST CHARACTER OF TRUE DEVICE NAME .IF CHAR NE "M" .GOTO 1430 .;IF FIRST CHAR IS M, DEVICE IS MAG TAPE .; .IFF $EXP .GOTO 1420 .1410: ; ; If your distribution mag tape is in 1600 BPI format, answer the ; question YES. The default is 800 BPI. ; .1420: .ASK Q Is the kit a 1600 BPI tape .IFT .GOTO 1410 .SETS DNS "800" .IFT Q .SETS DNS "1600" ; The mag tape distribution must be transferred to disk .GOTO 1520 .1430: .IFF $MP .GOTO 1438 .IFF $EXP .GOTO 1432 ; ; For the MICRO/PDP-11, the transfer of the distribution kit files ; from the RD51 fixed Winchester disk to another device is not allowed. ; .1432: .GOTO 2400 .1438: .IFF $EXP .GOTO 1480 .1440: ; ; If you want the distribution files transferred to another device (for ; example, from RK05 to RK06), then answer YES. The device the files ; are transferred to will become your new distribution device. If you ; started the NETGEN file on the distribution device, you can not ; dismount this device until NETGEN has finished. ; ; NOTE: This device must have at least 3000 free blocks and should ; probably be SQUEEZED before the transfer if you do not ; intend to initialize it. ; ; Do you want to - .1480: .ASK Q 2. Transfer the kit files to another device .IFT .GOTO 1440 .IFF Q .GOTO 2400 .; .1520: .IFF $EXP .GOTO 1640 .1560: ; ; For example, if you want to transfer the distribution files from ; magtape to DL1: then answer DL1. The default device is SY:. This ; device will be your new distribution device! ; .1640: .ASKS DEV 3. Where do you want the distribution files (DDN)? .IFT .GOTO 1560 .GOSUB CHKDEV .IFT ERR .GOTO 1560 .SETS TG DEV .IF $DI EQ TG .GOTO 2400 .SETS DEV TG[1:2] .SETS DEV "'DEV':" .ENABLE QUIET .IFNLOA 'DEV' LOA 'DEV' .DISABLE QUIET .IFNLOA 'DEV' .GOTO 1560 .; .IFF $EXP .GOTO 1800 .1760: ; ; Load your volume into drive 'TG' and start the drive before ; continuing. ; .1800: .ASK Q 4. Is 'TG' ready .IFT .GOTO 1760 .IFF Q .GOTO 1800 .; .IFF $EXP .GOTO 1880 .1840: ; ; Answer YES if you would like to have the volume initialized. ; ; Do you want to - .1880: .ASK INI 5. Initialize the volume .IFF INI .GOTO 2000 .; .IFF $EXP .GOTO 1960 .1920: ; ; A volume label is required on all devices. Enter the volume label for ; 'TG'. This label will also be the owner id. ; ; What is the - .1960: .ASKS LABEL 6. Volume label for 'TG'? .IFT .GOTO 1920 .; .OPEN #3 SY:INI.COM .ENABLE DATA #3 INITIALIZE/NOQUERY/BADBLOCK:RET/VOLUMEID 'TG' 'LABEL' 'LABEL' .DISABLE DATA #3 .CLOSE #3 SY:INI.COM .ENABLE QUIET $@SY:INI.COM DELETE/NOQUERY SY:INI.COM .DISABLE QUIET .; .IFF $EXP .GOTO 1975 .1972: ; ; Enter Yes if you saw no errors during the initialization sequence. ; .1975: .ASK Q 7. Did 'TG' initialize successfully .IFT .GOTO 1972 .IFF Q .GOTO 1880 .2000: COPY/SYS/NOLOG '$DI'*.* 'TG' .2320: .SETS $DI TG ; ; * '$DI' * Is now your new distribution device ; .; .2400: .IFF $EXP .GOTO 2520 .2440: ; ; This device will contain all generated and configuration dependent ; files. The default device is SY:. ; ; NOTE: This device must have at least 1000 free blocks and should ; probably be SQUEEZED to insure that the space is not fragmented. ; ; What is the - .2520: .ASKS DEV 8. Target generation device (DDN)? .IFT .GOTO 2440 .GOSUB CHKDEV .IFT ERR .GOTO 2440 .SETS $OU DEV .IFF $MP .GOTO 2525 .GOSUB CHKMMW .IFT ERR .GOTO 2440 .2525: .SETS DEV $OU[1:2] .SETS DEV "'DEV':" .ENABLE QUIET .IFNLOA 'DEV' LOAD 'DEV' .DISABLE QUIET .IFNLOA 'DEV' .GOTO 2440 .; .2600: .SETF $SMTGT .SETF $S2TGT .SETS DEV $OU[1:2] .IF DEV NE "DY" .GOTO 2605 .ASK Q Is '$OU' double density .IFF Q .SETT $S2TGT .SETT $SMTGT .GOTO 2630 .2605: .IF DEV NE "DX" .GOTO 2610 .SETT $SMTGT .SETT $S2TGT .GOTO 2630 .2610: .IF DEV NE "DD" .GOTO 2615 .SETT $SMTGT .SETT $S2TGT .GOTO 2630 .2615: .2630: .SETS $CM $OU .IFF $SMTGT .GOTO 3360 .SETS $CM "SY:" .SETS DEV $OU[1:2] .IFF $S2TGT .GOTO 2700 ; ; The target device you have selected ('$OU'), is not large enough to ; contain all the files possible from a network generation. The system ; will be generated onto 3 'DEV's which will be referred to as GEN1, ; GEN2, and GEN3. Please insert GEN1 into '$OU' now. You will be told ; when to insert GEN2 and GEN3. NETGEN will build the network build ; procedure and the libraries on your system disk. These files require ; about 350 blocks. ; .GOTO 3360 .2700: ; ; The target device you have selected ('$OU'), is not large enough to ; contain all the files possible from a network generation. The system ; will be generated onto 2 'DEV's which will be referred to as GEN1 ; and GEN2. Please insert GEN1 into '$OU' now. You will be told when to ; insert GEN2. NETGEN will build the network build procedure and the ; libraries on your system disk. These files require about 350 blocks. ; .; .3360: .IFF $EXP .GOTO 3480 .3400: ; ; All listing files will be generated on this device. If it is blank ; then no listing files will be generated. These files require about ; 50 blocks. ; ; What is the - .3480: .ASKS $LI 10. Listing device (DDN)? .IFT .GOTO 3400 .IF $LI EQ "" .SETF $SPL .IF $LI EQ "" .GOTO 3680 .SETS DEV $LI .GOSUB CHKDEV .IFT ERR .GOTO 3400 .SETS $LI DEV .IFF $MP .GOTO 3488 .SETS TMPS $LI[1:2] .IF TMPS EQ "TT" .GOTO 3488 .IF TMPS EQ "LP" .GOTO 3488 .GOSUB CHKMMW .IFT ERR .GOTO 3400 .3488: .SETS DEV $LI[1:2] .SETS DEV "'DEV':" .ENABLE QUIET .IFNLOA 'DEV' LOAD 'DEV' .DISABLE QUIET .IFNLOA 'DEV' .GOTO 3400 .SETS TMPS $LI[1:2] .IF TMPS EQ "TT" .SETF $SPL .IF TMPS EQ "LP" .SETF $SPL .; .3680: .IFF $EXP .GOTO 3800 .3720: ; ; All map files will be generated on this device. If it is blank then no ; map files will be generated. These files require about 300 blocks. ; ; What is the - .3800: .ASKS $MA 11. Map device (DDN)? .IFT .GOTO 3720 .IF $MA EQ "" .SETF $SPM .IF $MA EQ "" .GOTO 4000 .SETS DEV $MA .GOSUB CHKDEV .IFT ERR .GOTO 3720 .SETS $MA DEV .IFF $MP .GOTO 3808 .SETS TMPS $MA[1:2] .IF TMPS EQ "TT" .GOTO 3808 .IF TMPS EQ "LP" .GOTO 3808 .GOSUB CHKMMW .IFT ERR .GOTO 3720 .3808: .SETS DEV $MA[1:2] .SETS DEV "'DEV':" .ENABLE QUIET .IFNLOA 'DEV' LOAD 'DEV' .DISABLE QUIET .IFNLOA 'DEV' .GOTO 3720 .SETS TMPS $MA[1:2] .IF TMPS EQ "TT" .SETF $SPM .IF TMPS EQ "LP" .SETF $SPM .; .4000: .IFDF $SPL .IFDF $SPM .GOTO 4120 .IFF $EXP .GOTO 4080 .4040: ; ; If you want the listing and/or the map files printed, then answer ; YES. ; ; Do you want to .4080: .ASK Q 12. Print the listings and/or maps .IFT .GOTO 4040 .IFT Q .GOTO 4100 .SETF $SPL .SETF $SPM .GOTO 4120 .4100: .IFNDF $SPL .SETT $SPL .IFNDF $SPM .SETT $SPM .; .4120: .IFF $EXP .GOTO 4200 .4160: ; ; It is recommended that you have at least an additional 300 free blocks ; available on the output device, if you choose not to delete the ; build files. ; An additional 350 blocks should be available if maps and listings are ; directed to the same output device. ; ; Do you want to .4200: .ASK $DE 13. Delete the build libraries and command files after use .IFT .GOTO 4160 .SETN $IPRI 0 ; .4400: ; Do you want to - .ASKS EOS -continue, R-repeat section, E-exit .IFT .GOTO 4400 .IF EOS EQ "" .GOTO 4600 .IF EOS EQ "R" .GOTO START .IF EOS EQ "E" .GOTO FINISH ; ; Error - Invalid response ; .GOTO 4400 .4600: .4605: ; ; ====================================================================== ; * COMPONENT SELECTION * ; ====================================================================== ; .SETF $GEN ; NO PROCESSES TO GENERATE .SETF $LBR ; NO LIBRARIES TO GENERATE .SETF BSL ; NO BASELINE SYSTEM .SETF $CTB .SETF CEX .SETF DDM .SETF DLC .SETF LLC .SETF $NDM .SETF $DLX .SETF $DCP .SETF $DCS .SETF $AUX .SETF $NSP .SETF NTL .SETF NCP .SETF CFE .SETF NML .SETF LOO .SETF FAL .SETF TLK .SETF NFT .SETF RMT .SETF RVT .SETF MUI .SETF FUI .IFF $EXP .GOTO 4610 ; Answer yes to the following questions if you want to select the ; specified options. Expanded comments are available for each question ; by pressing the "ESCAPE" key followed by a carriage return. .4610: ; ; Component selection - ; ------------------- .; .; ************************EVERYTHING OPTION*************************** .; .IFF $EXP .GOTO 4680 .4640: ; ; A YES to this question will give you the basic system plus the user ; utilities. ; ; Do you want - .4680: .ASK ALL 1. All DECnet components .IFT .GOTO 4640 .IFF ALL .GOTO 4840 .; .SETT $CTB .SETT CEX .SETT DDM .SETT DLC .SETT LLC .SETT NTL .SETT NCP .SETT CFE .SETT NML .SETT LOO .SETT USR .; INCLUDE USER UTILITIES .SETT NFT .SETT FAL .SETT TLK .SETT MUI .SETT FUI .SETT $GEN .; WE ARE GENNING SOMETHING .SETT $LBR .IFF $EXP .GOTO 4700 .4690: ; ; The Direct Line Access Controller is required for NCP's loop tests ; and to provide a user interface to lines at the data link level. ; ; Do you want - .4700: .ASK $DLX 2. The Direct Line Access Controller .IFT .GOTO 4690 .GOTO 8530 .; .; *********************** END OF EVERYTHING *************************** .; .; .; *********************** BASIC SYSTEM OPTION ************************* .; .4840: .IFF $EXP .GOTO 4870 .4860: ; ; The basic system includes the Comm Exec, the processes, the Network ; Loader/Initializer, and NCP/NML. ; ; Do you want - .4870: .ASK BSL 3. The basic DECnet system .IFT .GOTO 4860 .4890: .IFF BSL .GOTO 5120 .; .IFF $EXP .GOTO 4910 .4900: ; ; The Direct Line Access Controller is required for NCP's loop tests ; and to provide a user interface to lines at the data link level. ; ; Do you want - .4910: .ASK $DLX 2. The Direct Line Access Controller .IFT .GOTO 4900 .; .4960: .SETT $CTB .SETT CEX .SETT DDM .SETT DLC .SETT LLC .SETT NTL .SETT NCP .SETT NML .SETT $GEN .; WE ARE GENNING SOMETHING .GOTO 6090 .; SEE ABOUT THE REST .; .; ****************** END OF BASIC SYSTEM ******************** .; .; ********************* DLX ONLY SYSTEM ************************* .5120: .; .IFDF $DONLY .GOTO 5240 .; MAY NOT SUPPORT DLX ONLY SYSTEMS .IFF $EXP .GOTO 5200 .5160: ; ; DLX only systems provide "Error Free" channels over a line none of the ; standard DECnet utilities will be provided, except for those needed to ; load the software. ; ; Do you want - .5200: .ASK $DONLY 4. A DLX only system .IFT .GOTO 5160 .IFF $DONLY .GOTO 5240 .; ELSE GIVE THEM THE INDIVIDUAL SELECTION .SETT $DLX .; GIVE THEM DLX .SETT $CTB .; GENERATE CETAB .SETT CEX .; AND THE COMM EXEC .SETT DDM .; AND DRIVERS .SETT DLC .; DLC''S .SETT LLC .; LLC''S .SETT NTL .; NETWORK LOADER .SETT NCP .; NCP .SETT NML .; NML .SETT MUI .; MACROS .SETT $GEN .; WE ARE GENNING SOMETHING .SETF $LBR .; WE ARE CREATING A LIBRARY .GOTO 8530 .; AND CONTINUE ON OUR JOURNEY .; .; *********************** END OF DLX ONLY SYSTEM ********************* .; .5240: .; .; ************************ INDIVIDUAL SELECTION ********************** .; .IFF $EXP .GOTO 5320 .5280: ; ; The Communication Executive (CEX) provides the basic functions of ; interfacing and scheduling of other network processes, timer services ; and resource management of common buffer pools. ; ; If you choose to build the communications executive you will be given ; the basic DECnet system. ; ; Do you want - .5320: .ASK Q 5. The Communications Executive .IFT .GOTO 5280 .IFF Q .GOTO 5340 .SETT BSL .; GIVE USER BASIC SYSTEM .GOTO 4890 .; .5340: .IFF $EXP .GOTO 5400 .5360: ; ; The processes include the Device Drivers, DDCMP, AUX, NSP, and DLX. ; ; Do you want - .5400: .ASK Q 6. Any of the processes .IFT .GOTO 5360 .IFF Q .GOTO 5680 .; .IFF $EXP .GOTO 5480 .5440: ; ; Any driver that you want in your system must be linked in order to ; use that device. This does not include devices linked by SYSGEN. ; ; Do you want - .5480: .ASK Q 7. Any device drivers .IFT .GOTO 5440 .IFT Q .SETT DDM .IFT Q .SETT $GEN .; WE ARE GENNING SOMETHING .; .IFF $EXP .GOTO 5560 .5520: ; ; The DDCMP processes (DCP and DCS) are needed if there is any device ; in the configuration other than DMCs, DMRs, DMPs or DMVs. ; ; Do you want - .5560: .ASK Q 8. The DDCMP processes .IFT .GOTO 5520 .IFT Q .SETT DLC .IFT Q .SETT $GEN .; WE ARE GENNING SOMETHING .; .IFF $EXP .GOTO 5640 .5600: ; ; The LLC processes include NSP, DLX, and AUX. ; ; Do you want - .5640: .ASK Q 9. The LLC processes .IFT .GOTO 5600 .IFT Q .SETT LLC .IFT Q .SETT $GEN .; WE ARE GENNING SOMETHING .; .5680: .IFF $EXP .GOTO 5760 .5720: ; ; The Network Loader/Initializer is needed to initialize the network by ; loading the Comm Exec and all processes that are marked for load. If ; A line is set for ON then the line state is set to ON by the ; loader. ; ; Do you want - .5760: .ASK Q 10. The Network Loader/Initializer (NTL) .IFT .GOTO 5720 .IFT Q .SETT NTL .IFT Q .SETT $GEN .; WE ARE GENNING SOMETHING .; .IFF $EXP .GOTO 6040 .6000: ; ; The Network Control Program (NCP) is a DECnet-RT utility program that ; accepts terminal commands to load, control, monitor and test the ; DECnet software. ; ; Do you want - .6040: .ASK Q 11. The Network Control Program (NCP) .IFT .GOTO 6000 .IFT Q .SETT NCP .IFT Q .SETT $GEN .; WE ARE GENNING SOMETHING .; .IFF $EXP .GOTO 6080 .6060: ; ; The Network Management Listener (NML) is the companion process for ; NCP. NML is required for servicing loopback requests from remote ; systems. ; ; Do you want - .6080: .ASK Q 12. The Network Management Listener (NML) .IFT .GOTO 6060 .IFT Q .SETT NML .IFT Q .SETT $GEN .; WE ARE GENNING SOMETHING .; .6090: .IFF $EXP .GOTO 6100 ; ; The Configuration File Editor (CFE) allows the user to change dynamic ; information in the configuration data base, such as the vector and ; CSR addresses, baud rates, and node name. This program is normally ; accessed transparently via NCP commands. ; ; Do you want - .6100: .ASK Q 13. The Configuration File Editor (CFE) .IFT .GOTO 6090 .IFT Q .SETT CFE .IFT Q .SETT $GEN .; WE ARE GENNING SOMETHING .; .IFF $EXP .GOTO 6160 .6140: ; ; The Looper/Loopback Mirror executes NCP''s LOOP LINE and LOOP NODE ; commands. For information on these commands, refer to the DECnet-RT ; System Manager''s Guide. The loopback mirror performs loopback tests ; in conjunction with a looper program using DECnet-RT logical links. ; ; Do you want - .6160: .ASK Q 14. The Looper/Loopback Mirror (LOOPER) .IFT .GOTO 6140 .IFT Q .SETT LOO .IFT Q .SETT $GEN .; WE ARE GENNING SOMETHING .; .IFF $EXP .GOTO 6360 .6320: ; ; The user utilities include the Terminal Communication utility (TLK), ; the Network File Transfer utility (NFT), and the File Access Listener ; utility (FAL). ; ; Do you want - .6360: .ASK USR 15. Any of the user utilities .IFT .GOTO 6320 .IFF USR .GOTO 6660 .IFF $EXP .GOTO 6440 .6400: ; ; The TLK utility allow terminal users to communicate with each other ; on local or remote nodes. For more information on TLK refer to the ; Introduction to DECnet Manual. ; ; Do you want - .6440: .ASK Q 16. The Terminal Communications utility (TLK) .IFT .GOTO 6400 .IFT Q .SETT TLK .IFT Q .SETT $GEN .; WE ARE GENNING SOMETHING .; .IFF $EXP .GOTO 6520 .6480: ; ; The Network File Transfer utility (NFT) provides the ability to ; perform file operations on other nodes in the network. These ; operations can include: file transfers, deletions, directory listings, ; and command/batch file executions. ; ; Do you want - .6520: .ASK Q 17. The Network File Transfer utility (NFT) .IFT .GOTO 6480 .IFT Q .SETT NFT .IFT Q .SETT $GEN .; WE ARE GENNING SOMETHING .; .IFF $EXP .GOTO 6640 .6600: ; ; The File Access Listener uitilty (FAL) allows remote nodes to access ; files on your system. ; ; Do you want - .6640: .ASK Q 18. The File Access Listener utility (FAL) .IFT .GOTO 6600 .IFT Q .SETT FAL .IFT Q .SETT $GEN .; WE ARE GENNING SOMETHING .IFF TLK .IFF NFT .IFF FAL .SETF USR .; .6660: .IFDF $UNSUP .GOTO 6690 .IFF $EXP .GOTO 6680 .6670: ; ; The distribution kit contains several utilities that are not supported ; by DIGITAL but are provided as a service to the customer. These ; utilities include remote command terminal programs for RSX-11M/M+ and ; and VAX/VMS. ; ; Do you want - .6680: .ASK $UNSUP 19. Any of the unsupported software utilities .IFT .GOTO 6600 .IFT $UNSUP .SETT $GEN .6690: .; .; ****************** END OF USER UTILITIES ************************** .; .; .; *************************** USER INTERFACES ********************** .; .IFF $EXP .GOTO 7740 .7730: ; ; The Macro User Interface Macro Library allows user written MACRO-11 ; programs to interface to the DECnet software. ; ; Do you want - .7740: .ASK Q 20. The DECnet Macro User Interface Macro Library .IFT .GOTO 7730 .IFT Q .SETT MUI .IFT Q .SETT $LBR .; .IFF $EXP .GOTO 7760 .7750: ; ; The FORTRAN User Interface Object Library allows user progams written ; in the FORTRAN language to interface to the DECnet software. ; ; This object library contains the FORTRAN user interface routines and ; the Network File Access Routines (NFARS). ; ; Do you want - .7760: .ASK Q 21. The DECnet FORTRAN User Interface Library .IFT .GOTO 7750 .IFT Q .SETT $LBR .IFT Q .SETT FUI .; .;*******************END OF INTERFACE SECTION************************ .; .8530: ; ; Do you want to - .ASKS EOS -continue, R-repeat section, E-exit .IFT .GOTO 8530 .IF EOS EQ "" .GOTO 8550 .IF EOS EQ "R" .GOTO 4605 .IF EOS EQ "E" .GOTO FINISH ; ; Error - Invalid response ; .GOTO 8530 .8550: .8600: .IFF $GEN .IFF $LBR .GOTO 8780 .OPEN #3 '$CM'BLDNET.COM .DATA #3 .SETF $SMALL .DATA #3 .SETF $SMLL2 .DATA #3 .SETF $SMTGT .DATA #3 .SETF $S2TGT .IFT $SMALL .DATA #3 .SETT $SMALL .IFT $SMLL2 .DATA #3 .SETT $SMLL2 .IFT $SMTGT .DATA #3 .SETT $SMTGT .IFT $S2TGT .DATA #3 .SETT $S2TGT .ENABLE DATA #3 ; ; ====================================================================== ; * BUILD DECnet COMPONENTS * ; ====================================================================== .; .; Copyright (C) 1986 by .; Digital Equipment Corporation, Maynard, Mass. .; .; This indirect command file builds the user configured DECnet .; software for your 'SYSTEM' system. .; .ENABLE SUBSTITUTION .; .; If objects are not found on "distribution device", tell user, and .; wait until the disk is mounted. .; .IFT $SMALL .GOTO 25 .IFT $SMTGT .GOTO 25 .10: .TESTFILE '$DI'CETABM.MAC .IF EQ 1 .GOTO 20 ; ; NETGEN will pause while you insert the volume containing the network ; objects in '$DI'. When the disk is ready, you may continue. ; .ASK Q Is '$DI' ready .20: ; ; All questions have been answered. NETGEN will now proceed to build ; your system the way you have chosen. This can take anywhere from ; from 1 minute to 1 hour, depending on your selections and your host ; system configuration. ; ; Take a break ... .25: ; ; Build procedure started at ''