**HDR*N  VOLUME= 1 SECTOR SIZE= 288SOURCE=DXPASCAL  VCATALOGVCATALOG`TEST `P (^> $`@6*  THIS BATCH STREAM TESTS THE PASCAL COMPILER. 6* 'F*  IF THE RUNTIME LIBRARY IS INSTALLED ON A SECONDARY DISK WITH FD*  VOLUME NAME "VOLZ", THEN EITHER ASSIGN SYNONYM "RTLVOL" TO D4*  "VOLZ", OR ASSIGN "RUNTIME" TO "VOLZ.TIP". 4* '@* HISTORY: 09/10/79 ADDED MEM3 PARAMETER TO XTIP TO PREVENT @4* "CANNOT GET MEMORY" ON SMALL MEMORY SYSTEM. 4<*  10/25/79 USE SYNONYM "RUNTIME" INSTEAD OF "TIPOBJ". <<*  10/20/80 USE SYNONYM "RTLVOL" INSTEAD OF "RUNTIME". <D*  12/04/80 USE SYNONYM $TIP AS PREFIX FOR DEFAULT PATHNAMES. D* ' .IF @RUNTIME, EQ, RUNTIME  .IF @RTLVOL, NE, RTLVOL .SYN RUNTIME=@RTLVOL.TIP   .ELSE$  .SYN RUNTIME=".TIP"  .ENDIF # .ENDIF% P$SYN % Q$SYN % * '*  TEST PROGRAM SOURCE``* '.DATA .SOURCE !PROGRAM TEST; ! BEGIN % BWRITELN('**************************************************');BBWRITELN('**************************************************');B.WRITELN('  PASCAL COMPILER INSTALLED'); .BWRITELN('**************************************************');BBWRITELN('**************************************************');BBMESSAGE('**************************************************');BBMESSAGE('**************************************************');B.MESSAGE('  PASCAL COMPILER INSTALLED'); .BMESSAGE('**************************************************');BBMESSAGE('**************************************************');BEND.&.EOD&* ' *  EXECUTE PASCAL COMPILER * '2XTIP SOURCE = .SOURCE, OBJECT = .OBJECT, MEM3="12``0,4"DF P = .SOURCE!* '.*  OUTPUT LISTINGS TO BATCH LISTING FILE.* ' .IF @$TIP, EQ, $TIP .SYN $TIP=DS01  .ENDIF% SF FILE = @$TIP.OUTPUT@$$ST  SF FILE = @$TIP.SYSMSG@$$ST  * '&*  CREATE TEMPORARY PROGRAM FILE&* ' CFPRO PATHNAME = .TESTPROG* '*  EXECUTE LINK EDITOR* '.DATA .LINK " FORMAT IMAGE,REPLACE LIBRARY RUNTIME.OBJ PHASE 0,TEST"INCLUDE (MAIN)!INCLUDE .OBJECT END &.EOD&>XLE CONTROL = .LINK, LINKED = .TESTPROG, LISTING = .LNKLST >* '"*  OUTPUT LINK EDIT LISTING "* 'SFFILE = .LNKLSTDF PATHNAME = .LNKLSTDFPATHNAME = .LINKDF PATHNAME = .OBJECT* '*  EXECUTE TEST PROGRAM * ' XPT PF = . `` TESTPROG, TN = TEST * '&*  OUTPUT TEXT PROGRAM LISTINGS &* ' SF FILE = @$TIP.OUTPUT@$$ST  SF FILE = @$TIP.SYSMSG@$$ST  * '*  DELETE FILES * 'DF PATHNAME = .TESTPROG P$DELETE$ * '*  TERMINATE!* ' EBATCH% NAME = .TESTPROG* '*  EXECUTE LINK EDITOR* '.DATA .LINK " FORMAT IMAGE,REPLACE LIBRARY RUNTIME.OBJ PHASE 0,TEST"INCLUDE (MAIN)!INCLUDE .OBJECT END &.EOD&>XLE CONTROL = .LINK, LINKED = .TESTPROG, LISTING = .LNKLST >* '"*  OUTPUT LINK EDIT LISTING "* 'SFFILE = .LNKLSTDF PATHNAME = .LNKLSTDFPATHNAME = .LINKDF PATHNAME = .OBJECT* '*  EXECUTE TEST PROGRAM * ' XPT PF = . `UTSRC P46 $"&UTILTEST#?SET FLAG=TRUE! (*$ MAP, WIDELIST *)  PROGRAM UTILTEST; <(* THIS PROGRAM IS USED TO TEST THE PASCAL COMPILER AND < UTILITIES. *) TYPE& ?IF FLAG$ , C8 = PACKED ARRAY[1..8] OF CHAR; VAR , K,N: INTEGER; ?ELSE %  GARBAGE!!!  ?ENDIF%  X,Y,Z: REAL; TODAY, NOW: C8;  ERROR_COUNT: 0..99; "&F1&.FUNCTION F1( K: INTEGER ): INTEGER; BEGIN..N := K * 3; { REQUIRES SIDEFFECTS OPTION } .F1 := K * 5;  END; " "&RP&PROCEDURE #"RP( A,B: REAL; VAR C: REAL ); " BEGIN $  C := ( A + B ) / 2.0 END; "&JUNK%  PROCEDURE JUNK; BEGIN 6 (* THIS PROCEDURE WILL NEST BUT WON'T COMPILE *) 60 UNDEFINED_IDENTIFIER := ANOTHER_UNDEFINED; 0  END; " "&CHECK $ 0 PROCEDURE CHECK( VALUE, CORRECT: INTEGER );0.PROCEDURE P$UC( CODE: INTEGER ); EXTERNAL;. BEGIN $ $ IF VALUE <> CORRECT THEN BEGIN $.WRITELN( '*** ERROR: VALUE IS ', VALUE:1, ."  ', SHOULD BE ', CORRECT:1 ); "$ERROR_COUNT := ERROR_COUNT + 1; $P$UC( 2 );  END; " END;%  BEGIN"  ERROR_COUNT := 0;  DATE( TODAY ); TIME( NOW ); " WRITELN( TODAY:10, NOW:10 ); " N := -9;  K := F1( 70 );  CHECK( K, 350 );  CHECK( N, 210 );  RP( 1200.0 , 1700.0, Z ); CHECK( TRUNC(Z), 1450 ); D WRITELN( 'TEST FINISHED; ', ERROR_COUNT:1 , ' ERRORS.' ); END. DM$LC `P: $`((((8+-------------------------------------------------+ 8 | |  .|  DX10 TI PASCAL 1.8.0 INSTALLATION| . | |  | |  | |  (| INSTALL - INSTALL TI PASCAL | ( | |  .| VERIFY - VERIFY THE INSTALLATION | . | |  | |  | |  8+-------------------------------------------------+ 8(01906WP: @WS;  { CALLER'S WORKSPACE ADDRESS } 000002006>WPP: @INTEGER; { POINTER TO WORD CONTAINING WP } 00000210>ACCESS!00000220 ?IF RIFHOST #SYSMSG,  { ERROR MESSAGE FILE } #?ENDIF*MYPHASE; { OVERLAY NUMBER } 00000230*R#"-------------------------------------------------------------------- 00000240R BEGIN  { ASSER$ } 00000250 D { GET POINTER TO WORD CONTAINING CALLER'S WS ADDRESS } `INSTALL `P =; $`@6INSTALL (INSTALL TI PASCAL ),6"COMPILER TARGET VOLUME=*ACNM, ""RUN-TIME TARGET VOLUME=*ACNM, " SYSTEM DISK=*ACNM,*SUPPORT FIXED AND DECIMAL?=YESNO(YES),*0INSTALLATION BATCH LISTING=ACNM(".LISTING"),0*INSTALLING FROM DISKETTES?=YESNO(YES) ** ',.IF "&INSTALLING FROM DISKETTES?",EQ,YES, .IF @$TIP$D,EQ,"$TIP$D" .SYN $TIP$D=1  .ELSE $  .EVAL $TIP$D = @$TIP$D + 1 .ENDIF$ 8.PROMPT (INSTALL TI PASCAL FROM MULTIPLE DISKETTES), 8(WHICH DISKETTE (1,2,3)?=INT(@$TIP$D)(*.SYN $TIP$D="&WHICH DISKETTE (1,2,3)?"*,.SYN $TIP$I=DXPASCA@$TIP$D.INSTAL@$TIP$D, .ELSE % .SYN $TIP$I=DXPASCAL.TIPINST .SYN $TIP$D=""  .ENDIF% *.SYN CMPVOL="&COMPILER TARGET VOLUME" **.SYN RTLVOL="&RUN-TIME TARGET VOLUME" *.S`` YN SYSVOL="&SYSTEM DISK" .IF @SYSVOL,EQ,SYSVOL 0.SYN SYSVOL=" " ! DEFAULTS TO SYSTEM DISK0 .ENDIF% &.IF &COMPILER TARGET VOLUME,EQ,"" &0.SYN CMPVOL=" " ! DEFAULTS TO SYSTEM DISK0 .ENDIF% &.IF &RUN-TIME TARGET VOLUME,EQ,"" &0.SYN RTLVOL=" " ! DEFAULTS TO SYSTEM DISK0 .ENDIF% ,.IF "&SUPPORT FIXED AND DECIMAL?",EQ,YES,.SYN $TIP$F="Y"  .ELSE % .SYN $TIP$F=""  .ENDIF%  .IF @CMPVOL,EQ,DUMY  .IF @RTLVOL,EQ,DUMY &MSG T="TIP WILL NOT BE INSTALLED" & .EXIT # .ENDIF$ .ENDIF% ..SYN $TIP$L="&INSTALLATION BATCH LISTING" . XB IAN=@$TIP$I, LAN=@$TIP$L   .IF @$TIP$L,NE,DUMY J#MSG T="TIP INSTALLATION BATCH STREAM HAS STARTED, CHECK FILE @$TIP$L" J .ELSE % .MSG T="TIP INSTALLATION BATCH STREAM HAS STA.`` RTED"  .ENDIF% * '(.SYN CMPVOL="", RTLVOL="", SYSVOL=""(4.SYN $TIP$F="", $TIP$L="", $TIP$I="", $TIP$D="" 4.IF @$TIP$D,EQ,3 .SYN $TIP$D=""  .ENDIF% S TO SYSTEM DISK0 .ENDIF% &.IF &RUN-TIME TARGET VOLUME,EQ,"" &0.SYN RTLVOL=" " ! DEFAULTS TO SYSTEM DISK0 .ENDIF% ,.IF "&SUPPORT FIXED AND DECIMAL?",EQ,YES,.SYN $TIP$F="Y"  .ELSE % .SYN $TIP$F=""  .ENDIF%  .IF @CMPVOL,EQ,DUMY  .IF @RTLVOL,EQ,DUMY &MSG T="TIP WILL NOT BE INSTALLED" & .EXIT # .ENDIF$ .ENDIF% ..SYN $TIP$L="&INSTALLATION BATCH LISTING" . XB IAN=@$TIP$I, LAN=@$TIP$L   .IF @$TIP$L,NE,DUMY J#MSG T="TIP INSTALLATION BATCH STREAM HAS STARTED, CHECK FILE @$TIP$L" J .ELSE % .MSG T="TIP INSTALLATION BATCH STREAM HAS STA.` MFG$$$ PF!A$ DX10 TI Pascal OBJECT4 RELEASE: 1.8.0 P/N: 2250024-1601 VOLUME NAME: 4$ MFG. REV.: *GMEDIA: DXPASCAL $0 REFER TO 2250026 FOR LOADING INSTRUCTIONS. 04^ COPYRIGHT 1978 TEXAS INSTRUMENTS INCORPORATED 4 UTBATCH `PGj $`@<*  THIS BATCH STREAM EXERCISES THE PASCAL COMPILER AND <@*  UTILITIES. THE FOLLOWING SYNONYM NEEDS TO BE ASSIGNED @*  BEFORE RUNNING:* '<* TEMP -- A TEMPORARY DIRECTORY WHICH WILL BE USED TO <4* HOLD SCRATCH FILES AND MAY BE DELETED AFTER 4&* THIS BATCH STREAM IS FINISHED.&* REVISION: "*  08JUL80: ORIGINAL. *  13AUG80: MODIFIED. 6*  25MAR81: DELETE OBJECT FILE BEFORE COMPILING.6D*  04OCT83: USE THE XSPLITPG PROC INSTEAD OF XPT FOR SPLITPGM.D>*  13OCT83: TEST THE ASSEMBLY LANGUAGE EXTRACTOR (XALX). >F*  18NOV83: MODIFIED TO USE A SYNONYM TO ACCESS THE SOURCE FILE F BATCH %  .IF @TEMP, EQ, TEMP BEBATCH TEXT="***** SYNONYM 'TEMP' NOT ASSIGNED *****", CODE=1 B .ENDIF% P$SYN % .IF @$$CC, NE, 0 CM MSG``,="***** P$SYN FAILED; $$CC=@$$CC *****" , .ENDIF% P$DELETE$ .IF @$$CC, NE, 0 4CM MSG="***** P$DELETE FAILED; $$CC=@$$CC *****"4 .ENDIF% SPID&. CFDIR P=TEMP, MAX=30 ! ERROR 0026 IS OK .* '* PRE-PROCESSOR * '>XPP IN=TESTSRC, OUT=TEMP.PP, MSG=TEMP.MSG, LIST=TEMP.LIST >.IF @$$CC, NE, 0  SF FILE=@TEMP.LIST>EBATCH TEXT="***** PRE-PROCESSOR FAILED *****", CODE=@$$CC > .ENDIF% * '* NEST THE SOURCE * ',XNESTER SRC=TEMP.PP, NESTSRC=TEMP.NEST, ,$ERRLST=TEMP.ERRORS, MSG=TEMP.MSG$.IF @$$CC, NE, 0  SF FILE=@TEMP.MSG  SF FILE=@TEMP.ERRORS8EBATCH TEXT="***** NESTER FAILED *****", CODE=@$$CC 8 .ENDIF% * ' .SYN LIBRARY=@TEMP.SRC.CFDIR P=LIBRARY, MAX=12 ! ERROR 0026 IS OK.* ``'(* USE SPLITPGM TO SPLIT THE SOURCE(* 'H"XSPLITPG SOURCE FILE INPUT=TEMP.NEST, COMMAND FILE OUTPUT=TEMP.CMD, H MESSAGES=TEMP.MSG.IF @$$CC, NE, 0  SF FILE=@TEMP.MSG :EBATCH TEXT="***** SPLITPGM FAILED *****", CODE=@$$CC : .ENDIF% * ' *  CONFIGURATION PROCESSOR  * '@XCONFIG COMMAND=TEMP.CMD, LIST=TEMP.BLDLST, MSG=TEMP.BLDMSG @.IF @$$CC, NE, 0  SF FILE=@TEMP.BLDLST>EBATCH TEXT="***** PROCESS BUILD FAILED *****", CODE=@$$CC > .ENDIF% .DATA @TEMP.CMP "*USE PROCESS "*COMPILE ALL"*NO COMPILE JUNK .EOD&@XCONFIG COMMAND=TEMP.CMP, LIST=TEMP.CFGLST, MSG=TEMP.CFGMSG, @ SOURCE=TEMP.SOURCE .IF @$$CC, NE, 0  SF FILE=@TEMP.CFGLST0EBATCH TEXT="***** XCONFIG FAILED *****", CODE0`` =@$$CC .ENDIF% $DF PATH=TEMP.OBJ! IGNORE ERROR$* '* COMPILER* ':XTIP OBJ=TEMP.OBJ, LIST=TEMP.TIPLST, MSG=TEMP.TIPMSG, :  OPTION="SIDEF,XREF,LISTOBJ" .IF @$$CC, NE, 0  SF FILE=@TEMP.TIPMSG8EBATCH TEXT="***** COMPILE FAILED *****", CODE=@$$CC 8 .ENDIF% * '$* ASSEMBLY LANGUAGE EXTRACTOR $* '<XALX ILAN=TEMP.TIPLST, OSAN=TEMP.XALX, MSG=TEMP.XALXMSG <.IF @$$CC, NE, 0  SF FILE=@TEMP.XALXMSG 6EBATCH TEXT="***** XALX FAILED *****", CODE=@$$CC 6 .ENDIF% :XMA SRC=TEMP.XALX, OBJ=TEMP.ASMOBJ, LIST=TEMP.ASMLST1 :.IF @$$CC, NE, 0 D EBATCH TEXT="***** ASSEMBLY FROM XALX FAILED *****", CODE=@$$CC D .ENDIF% * '*  REVERSE ASSEMBLER * '*XRASS LIST=TEMP.RASS, MSG=TEMP.RASSMSG*.IF @$``$CC, NE, 0  SF FILE=@TEMP.RASSMSG 6EBATCH TEXT="***** RASS FAILED *****", CODE=@$$CC 6 .ENDIF% :XMA SRC=TEMP.RASS, OBJ=TEMP.ASMOBJ, LIST=TEMP.ASMLST2 :.IF @$$CC, NE, 0 D EBATCH TEXT="***** ASSEMBLY FROM RASS FAILED *****", CODE=@$$CC D .ENDIF% CFDIR P=TEMP.OBJDIR, MAX=12  * '* SPLIT OBJECT* '8XSPLIT OBJDIR=TEMP.OBJDIR, MSG=TEMP.MSG, ERRLST="", 8 OBJFIL=TEMP.ASMOBJ .IF @$$CC, NE, 0  SF FILE=@TEMP.MSG 8EBATCH TEXT="***** XSPLIT FAILED *****", CODE=@$$CC 8 .ENDIF% * '"*  LINK PROGRAM WITH RUNTIME "* '.DATA @TEMP.LEC  FORMAT IMAGE, REPLACE  LIBRARY TEMP.OBJDIR LIBRARY .TIP.OBJ TASK TEST #INCLUDE (MAIN)!INCLUDE (UTILTE) END &.EOD& XLE CON=TEMP.LEC, LI``$NKOUT=TEMP.PROG, LIST=TEMP.LINK $.IF @$$CC, NE, 0 :EBATCH TEXT="***** LINK-EDIT FAILED *****", CODE=@$$CC : .ENDIF% * ' *  EXECUTE THE TEST PROGRAM * 'D XPT PGM=TEMP.PROG, OUT=TEMP.OUTPUT, MSG=TEMP.SYSMSG, MEM="1,1", D TASK=TEST .IF @$$CC, NE, 0  SF FILE=@TEMP.SYSMSG@EBATCH TEXT="***** TEST EXECUTION FAILED *****", CODE=@$$CC @ .ENDIF%  SF FILE=@TEMP.OUTPUT.IF @$$CC, NE, 0 @EBATCH TEXT="***** TEST EXECUTION FAILED *****", CODE=@$$CC @ .ENDIF% 6EBATCH TEXT="TEST SUCCESSFULLY COMPLETED.", CODE=06ITH RUNTIME "* '.DATA @TEMP.LEC  FORMAT IMAGE, REPLACE  LIBRARY TEMP.OBJDIR LIBRARY .TIP.OBJ TASK TEST #INCLUDE (MAIN)!INCLUDE (UTILTE) END &.EOD& XLE CON=TEMP.LEC, LI` TIP D Y+w$LIST D z$$SHRPROCL`P0;$`@> SDSLNK  3.6.083.193 11/18/83 17:21:03 PAGE 1> COMMAND LIST > ; (C) COPYRIGHT, TEXAS INSTRUMENTS INCORPORATED, 1978. > ; &N% ;-----------------------------------------------------------------------N* ; TITLE:SHRPROC  (DX10 VERSION) *4 ; SYSTEM: TI PASCAL RUN-TIME LUNO I/O LIBRARY 4 ; PURPOSE:"J ;  THIS PARTIAL LINK FORMS MODULE .TIP.OBJ.SHRPROC, WHICH INCLUDES JJ ;  A SET OF RUN-TIME ROUTINES WHICH CAN BE SHARED BY PROGRAMS USINGJ" ;  EITHER SCI OR LUNO I/O. " ; EXCEPTIONS: H ; THERE SHOULD BE NO UNRESOLVED REFERENCES EXCEPT TO SYMBOLS IN HB ; P$MAIN WHICH ARE THE SAME IN BOTH P$MAINCO AND P$MAINLU. B ; HISTORY:" ;  08/24/78: ORIGINAL. 2 ; 09/26/78: ADDED SOME MORE "NOTGLOBAL"S. 2 ; 10/20/``$78: CHANGE "DUMP$H" TO "DMPP$H".$N ; "10/25/78: INCLUDE "LU$IN" INSTEAD OF "LU$MSG"; MAKE "LU$IN" GLOBAL. NL ; !10/20/79: DELETE RWIND$ AND EOF$WR; ADD ENT$MD, MSG$, AND P$$TRM. LH ; 10/22/79: REMOVE OPN$FILE FROM THIS PARTIAL TO FIX PROBLEM OF HB ; LUNO NUMBER CONFLICT WITH SCI LIBRARY (STR 3871, 4799). BD ; 08/08/80: DELETE HALT$ (NOT USED WITH NEW ERROR HANDLING).DB ; 08/11/80: ADD MESSAGE MODULES PM$IO, PM$TIO, AND PM$RTM. BN% ;-----------------------------------------------------------------------N ; & FORMAT COMPRESSED  PARTIAL # LIBRARY LUNOBJ & LIBRARY DXOBJ ; ADDED 8/11/80 & LIBRARY OSLOBJ  LIBRARY COMOBJ   NOAUTO$  PHASE 0,SHRPROC  INCLUDE (ABEND$) INCLUDE (CLS$)  INCLUDE (CLOSE$)``@ INCLUDE (CLS$FI) INCLUDE (CMP$ST) INCLUDE (CREAT$) INCLUDE (CUR$)  INCLUDE (DIV$)  INCLUDE (DSTRY$) INCLUDE (DSTR$$) INCLUDE (DMPP$H) INCLUDE (DUMP$P) INCLUDE (DUMP$S) INCLUDE (ENC$T)  INCLUDE (ENI$T)  INCLUDE (ENS$T)  INCLUDE (ENT$)  INCLUDE (ENT$3)  INCLUDE (ENT$4) 8 INCLUDE (ENT$MD); ADDED 10/20/79 (NEW IN 1.6.0) 8 INCLUDE (ENX$T) @ ; INCLUDE (EOF$WR)DELETED 10/20/79 (MERGED WITH WREOF$) @ INCLUDE (EOLN$)  INCLUDE (FREE$) > SDSLNK  3.6.083.193 11/18/83 17:21:03 PAGE 2> COMMAND LIST  INCLUDE (FL$INI) INCLUDE (GET$ME)( ; INCLUDE (HALT$) DELETED 8/8/80( INCLUDE (HEAP$T) INCLUDE (INIT$P) ``INCLUDE (IO$ERR) INCLUDE (LU$IN)  INCLUDE (MOV$N) B INCLUDE (MSG$); ADDED 10/20/79 (PREVIOUSLY PART OF P$MAIN)B INCLUDE (NEW$) @ ; INCLUDE (OPN$FI)DELETED 10/22/79 FOR STR 3871 AND 4799@D INCLUDE (P$$TRM); ADDED 10/20/79 (PREVIOUSLY PART OF P$MAIN)D( INCLUDE (P$CMSG); ADDED 8/11/80 ( INCLUDE (PB$TER)( INCLUDE (PM$IO) ; ADDED 8/11/80 (( INCLUDE (PM$RTM); ADDED 8/11/80 (( INCLUDE (PM$TIO); ADDED 8/11/80 ( INCLUDE (PRT$ME) INCLUDE (PUTCH$) INCLUDE (PUT$RC) INCLUDE (REWND$) INCLUDE (RESUM$) INCLUDE (RSUMR$)@ ; INCLUDE (RWIND$)DELETED 10/20/79 (MERGED WITH REWND$) @ INCLUDE (SCB$FR) INCLUDE (STACK$) INCLUDE (STK$MA) INCLUDE (SVC$)  INCLUDE (TERM$) `` INCLUDE (TX$ERR) INCLUDE (WRC$T)  INCLUDE (WREOF$) INCLUDE (WRI$T)  INCLUDE (WRLN$)  INCLUDE (WRS$T)  INCLUDE (WRX$T)  NOTGLOBAL GET$ME,RESM$ NOTGLOBAL INIT$P NOTGLOBAL DUMP$P,DUMP$S 8 NOTGLOBAL DSTRY$,SCB$FR,STK$MA,RWIND$ ! 9/26/78 8* NOTGLOBAL P$$TRM ; ADDED 10/20/79 *  END %  '> SDSLNK  3.6.083.193 11/18/83 17:21:03 PAGE 3> LINK MAP ". CONTROL FILE = DXTIP.RT.S.LUNSRC.SHRPROC. '4 LINKED OUTPUT FILE = DXTIP.RT.O.SCIOBJ.SHRPROC4 '* LIST FILE = DXTIP.RT.O.LIST.SHRPROCL* '  OUTPUT FORMAT = COMPRESSED  ' LIBRARIES " '" NO ORGANIZATION PATHNAME" '& 1  RANDOM  DXTIP.RT.O.LUNOBJ & 2  RANDO``M  DXTIP.RT.O.SCIOBJ & 3  RANDOM  DXTIP.RT.O.OSLOBJ && 4  RANDOM  DXTIP.RT.O.COMOBJ & ' ' '> SDSLNK  3.6.083.193 11/18/83 17:21:03 PAGE 4> &  '4 PHASE 0, SHRPROCORIGIN = 0000 LENGTH = 2D004 ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'F ABEND$1 000000D0 INCLUDE,4 11/18/83 16:14:40SDSMACFD CLS$2 00D00064 INCLUDE,4 11/18/83 15:19:05DXPSCLDF CLOSE$3 0134006A INCLUDE,4 11/18/83 15:19:05DXPSCLFH CLS$FILE4 019E0048 INCLUDE,1 11/18/83 15:49:37DXPSCLHF CMP$ST5 01E6000A INCLUDE,4 11/18/83 16:16:00SDSMACFF CREAT$6 01F00150 INCLUDE,4 11/18/83 15:08:14DXPSCLF CUR$7 03400010``, INCLUDE,4 11/18/83 16:16:10SDSMAC,D DIV$8 03500038 INCLUDE,4 11/18/83 16:18:13SDSMACDF DSTRY$9 03880002 INCLUDE,4 11/18/83 16:18:55SDSMACFF DSTR$$10038A0022 INCLUDE,4 11/18/83 16:18:52SDSMACFH DMPP$HEA1103AC0196 INCLUDE,4 11/18/83 15:08:14DXPSCLHH DUMP$PRO120542025E INCLUDE,4 11/18/83 15:08:14DXPSCLHH DUMP$STA1307A0034E INCLUDE,4 11/18/83 15:08:14DXPSCLHF ENC$T 140AEE00AE INCLUDE,4 11/18/83 15:29:07DXPSCLFF ENI$T 150B9C0136 INCLUDE,4 11/18/83 15:29:07DXPSCLFF ENS$T 160CD200DC INCLUDE,4 11/18/83 15:29:07DXPSCLFD ENT$170DAE00CC INCLUDE,1 11/18/83 16:47:26SDSMACDD ENT$3 180E7A002A INCLUDE,1 11/18/83 16:47:39SDSMACD``F ENT$4 190EA4002A INCLUDE,1 11/18/83 16:47:44SDSMACFF ENT$MD200ECE000C INCLUDE,4 11/18/83 16:20:32SDSMACFF ENX$T 210EDA017E INCLUDE,4 11/18/83 15:29:07DXPSCLFF EOLN$ 2210580008 INCLUDE,4 11/18/83 16:20:36SDSMACFF FREE$ 2310600124 INCLUDE,1 11/18/83 15:49:37DXPSCLFH FL$INIT 24118400DA INCLUDE,1 11/18/83 15:49:37DXPSCLHF GET$ME25125E00A0 INCLUDE,1 11/18/83 16:50:52SDSMACFH HEAP$TER2612FE0044 INCLUDE,4 11/18/83 15:08:14DXPSCLHF INIT$P2713420002 INCLUDE,1 11/18/83 16:51:01SDSMACFF IO$ERR281344013C INCLUDE,4 11/18/83 16:22:27SDSMACFF LU$IN 2914800000 INCLUDE,1 11/18/83 16:51:04SDSMACF" MOV$N 3014800018 INCLU"``&DE,4 11/18/83 16:24:12SDSMAC&D MSG$3114980014 INCLUDE,4 11/18/83 16:24:16SDSMACDD NEW$3214AC029A INCLUDE,1 11/18/83 15:49:37DXPSCLDF P$$TRM3317460014 INCLUDE,4 11/18/83 16:24:31SDSMACFF P$CMSG34175A01CF INCLUDE,4 11/18/83 16:24:35SDSMACFH PB$INIT 35192A0002 INCLUDE,4 11/18/83 16:25:01SDSMACHF PM$IO 36192C0222 INCLUDE,4 11/18/83 16:23:42SDSMACFF PM$RTM371B4E01EC INCLUDE,4 11/18/83 16:23:08SDSMACFF PM$TIO381D3A0104 INCLUDE,4 11/18/83 16:24:02SDSMACFH PRT$MEM 391E3E02B8 INCLUDE,4 11/18/83 15:08:14DXPSCLHF PUTCH$4020F60034 INCLUDE,4 11/18/83 16:25:17SDSMACFH PUT$RCOR41212A00E2 INCLUDE,3 11/18/83 15:19:05DXPSCLHLUL``@F REWND$42220C006C INCLUDE,3 11/18/83 15:19:05DXPSCLFF RESUM$432278004A INCLUDE,1 11/18/83 16:51:19SDSMACFF RSUMR$4422C20012 INCLUDE,4 11/18/83 16:27:03SDSMACFH SCB$FREE4522D40054 INCLUDE,3 11/18/83 15:19:05DXPSCLHF STACK$462328000C INCLUDE,4 11/18/83 16:27:56SDSMACFH STK$MARG472334000A INCLUDE,4 11/18/83 16:28:02SDSMACHD SVC$48233E001C INCLUDE,3 11/18/83 17:10:44SDSMACDF TERM$ 49235A051A INCLUDE,1 11/18/83 15:49:37DXPSCLFF TX$ERR50287400AE INCLUDE,4 11/18/83 17:18:43SDSLNKF> SDSLNK  3.6.083.193 11/18/83 17:21:03 PAGE 5>B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B6 WRC$T 5129220090 INCLUDE,4 11/18/83 166``:28:30SDSMACF WREOF$5229B20082 INCLUDE,3 11/18/83 15:19:05DXPSCLFF WRI$T 532A3400D8 INCLUDE,4 11/18/83 15:29:07DXPSCLFF WRLN$ 542B0C0078 INCLUDE,4 11/18/83 15:19:05DXPSCLFF WRS$T 552B8400A0 INCLUDE,4 11/18/83 16:28:39SDSMACFF WRX$T 562C2400DC INCLUDE,4 11/18/83 15:29:07DXPSCLF ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L ABEND$ 001C 1*ABND$0 0044 1 ABND$1 003C 1 ABND$2 000E 1LL CLOSE$ 0146 3*CLS$  00E4 2 CLS$FI 01B0 4 CMP$ST 01E6 5LN *CREAT$ 0206 6 CUR$  0342 7 CUR$$ 0E5E 17  DIV$  0350 8N, DMPP$H 03D6 11  DSTR$$ 038A 10 ,``& DSTRY$ 0388 9 DUMP$P 05CE 12 &R DUMP$S 0808 13 *ENC$T 0B00 14  ENI$T 0BB0 15  ENS$T 0CE4 16 RR ENT$  0DBE 17  ENT$2 0DAE 17 *ENT$3 0E7A 18 *ENT$4 0EA4 19 RR ENT$M 0DC8 17  ENT$MD 0ECE 20  ENT$S 0E4A 17  ENX$T 0EF2 21 RR EOLN$ 1058 22  *FL$INI 119C 24  FREE$ 1072 23  GET$ME 1272 25 RR HEAP$T 130E 26  *INIT$P 1342 27  IO$ERR 1370 28  LU$IN 003D* 29 RP MARG$N 0000 1 MOV$4 148E 30 *MOV$5 148C 30 *MOV$6 148A 30 PR *MOV$7 1488 30 *MOV$8 1486 30  MOV$N 1480 30  MSG$  1498 31 RP NEW$  14C0 32  P$$TRM 1746 33  P$ABND 00B8 1 P$CMSG 1768 34 PR *PATCH$ 0DE2 17  *PB$INI 192A 35  PB$TER 192A 35 *PM$IO 192C 36 R. *PM$RTM 1B4E 37  *PM$TIO 1D3A 38  P.``&RT$ME 1E78 39  PUT$RC 2144 41 &R PUTCH$ 20F6 40  RESM$ 228A 43  *RESUM$ 2286 43  RET$2 0E64 17 RR *RET$3 0E8E 18 *RET$4 0EB8 19  RET$M 0E76 17  RET$S 0E78 17 RR *REWND$ 221E 42  *RSUMR$ 22C4 44  SCB$FR 22E6 45  STACK$ 2328 46 RR STK$MA 2334 47  SVC$  234C 48 *TERM$ 2402 49  TX$ERR 288E 50 RR WRC$T 2934 51  WREOF$ 29C4 52  WRI$T 2A48 53  WRLN$ 2B20 54 R, WRS$T 2B96 55  WRX$T 2C38 56 , ' '$  G L O B A L S Y M B O L S $ 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L ABEND$ 001C 1*ABND$0 0044 1 ABND$1 003C 1 ABND$2 000E 1LL CLOSE$ 0146 3*CLS$  00E4 2 CLS$FI 01B0 4 CMP$ST 01E6 5L  *CREAT$ ``D 0206 6 CUR$  0342 7 CUR$$ 0E5E 17  DIV$  0350 8DR DMPP$H 03D6 11  DSTR$$ 038A 10 *ENC$T 0B00 14  ENI$T 0BB0 15 RR ENS$T 0CE4 16  ENT$  0DBE 17  ENT$2 0DAE 17 *ENT$3 0E7A 18 RR *ENT$4 0EA4 19  ENT$M 0DC8 17  ENT$MD 0ECE 20  ENT$S 0E4A 17 RR ENX$T 0EF2 21  EOLN$ 1058 22  *FL$INI 119C 24  FREE$ 1072 23 RR HEAP$T 130E 26  IO$ERR 1370 28  LU$IN 003D* 29  MARG$N 0000 1RR MOV$4 148E 30 *MOV$5 148C 30 *MOV$6 148A 30 *MOV$7 1488 30 RR *MOV$8 1486 30  MOV$N 1480 30  MSG$  1498 31  NEW$  14C0 32 RP P$ABND 00B8 1 P$CMSG 1768 34  *PATCH$ 0DE2 17  *PB$INI 192A 35 PR PB$TER 192A 35 *PM$IO 192C 36  *PM$RTM 1B4E 37  *PM$TIO 1D3A 38 R PRT$ME 1``FE78 39  PUT$RC 2144 41  PUTCH$ 20F6 40  *RESUM$ 2286 43 FR RET$2 0E64 17 *RET$3 0E8E 18 *RET$4 0EB8 19  RET$M 0E76 17 RR RET$S 0E78 17  *REWND$ 221E 42  *RSUMR$ 22C4 44  STACK$ 2328 46 RR SVC$  234C 48 *TERM$ 2402 49  TX$ERR 288E 50  WRC$T 2934 51 R> SDSLNK  3.6.083.193 11/18/83 17:21:03 PAGE 6>R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO RR WREOF$ 29C4 52  WRI$T 2A48 53  WRLN$ 2B20 54  WRS$T 2B96 55 R WRX$T 2C38 56  ' '2 U N R E S O L V E D R E F E R E N C E S 2 'R NAME  COUNT NO  NAME  COUNT NO  NAME  COUNT NO  NAME  COUNT NO R 'F T$WP 1  1 T$EC 4  1 T$TERM 1  1 T$TRM1  1F T``F$VT 1  1 T$MSE1  31  T$TRM1  33  T$MDIR 1  34 F ' ' ' ' **** LINKING COMPLETED 6 17 RR RET$S 0E78 17  *REWND$ 221E 42  *RSUMR$ 22C4 44  STACK$ 2328 46 RR SVC$  234C 48 *TERM$ 2402 49  TX$ERR 288E 50  WRC$T 2934 51 R> SDSLNK  3.6.083.193 11/18/83 17:21:03 PAGE 6>R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO RR WREOF$ 29C4 52  WRI$T 2A48 53  WRLN$ 2B20 54  WRS$T 2B96 55 R WRX$T 2C38 56  ' '2 U N R E S O L V E D R E F E R E N C E S 2 'R NAME  COUNT NO  NAME  COUNT NO  NAME  COUNT NO  NAME  COUNT NO R 'F T$WP 1  1 T$EC 4  1 T$TERM 1  1 T$TRM1  1F T`SCIMAINL`P6"F$`@> SDSLNK  3.6.083.193 11/18/83 17:19:50 PAGE 1> COMMAND LIST > ; (C) COPYRIGHT, TEXAS INSTRUMENTS INCORPORATED, 1978. > ; &N% ;-----------------------------------------------------------------------N ; TITLE:MAIN < ; SYSTEM: TI PASCAL RUN-TIME LIBRARY FOR DX10 WITH SCI < ; PURPOSE:"J ;  THIS PARTIAL LINK FORMS MODULE .TIP.SCIOBJ.MAIN, WHICH INCLUDES JH ; ALL OF THE RUN-TIME ROUTINES WHICH ARE REQUIRED BY ALL PASCAL H. ; PROGRAMS WHICH ARE TO RUN UNDER SCI.. ; HISTORY:" ;  ??/??/77: ORIGINAL. 4 ; 07/14/78: ADD ENT$, ABEND$; DELETE INIT$D;4( ; MAKE SOME SYMBOLS NOT GLOBAL. (  ;  08/25/78: ADD STK$MA.  0 ; 09/26/78: ADD SOME MORE "NOTGLOBAL"S. 00 ; 10/20/78: CHANGE "DUMP$H" TO "DMPP$H".0``L ; !10/19/79: DELETE RWIND$ AND EOF$WR; ADD ENT$MD, MSG$, AND P$$TRM; L& ; NOT GLOBAL T$MSE AND T$TRM. &4 ; 06/17/80: ADD "LIBRARY DXOBJ" DECLARATION.40 ; 08/04/80: REMOVE "HALT$" AND "SET$AC".0N% ;-----------------------------------------------------------------------NJ# ; NOTE: MODULES P$INIT AND P$TERM ARE NOT INCLUDED HERE BECAUSE THEYJH ; HAVE DIFFERENT VERSIONS DEPENDING ON WHETHER FORTRAN ROUTINES HH ; ARE USED. PB$INIT AND PB$TERM ARE NOT INCLUDED BECAUSE THEY HD ; DEPEND ON WHETHER THE PROBE HANDLERS ARE TO BE LINKED IN. DH ; MODULES INIT$ AND MSG$ ARE NOT INCLUDED BECAUSE THEY MAY HAVE H> ; ALTERNATE VERSIONS IF EXTOUT OR EXTMSG ARE INCLUDED. > ; & FORMAT COMPRESSED  PARTIAL #& LIBRARY DXOBJ  ; ADDED 6/17/80&`` LIBRARY SCIOBJ  LIBRARY OSLOBJ  LIBRARY COMOBJ   NOAUTO$  PHASE 0,MAIN!( INCLUDE (P$MAIN) ; MUST BE FIRST( INCLUDE (ABEND$) INCLUDE (CLOSE$) INCLUDE (CLS$)  INCLUDE (CLS$FI) INCLUDE (CMP$ST) INCLUDE (CREAT$) INCLUDE (CUR$)  INCLUDE (DIV$)  INCLUDE (DSTRY$) INCLUDE (DSTR$$) INCLUDE (DMPP$H) INCLUDE (DUMP$P) INCLUDE (DUMP$S) INCLUDE (ENC$T)  INCLUDE (ENI$T)  INCLUDE (ENS$T)  INCLUDE (ENT$) 8 INCLUDE (ENT$MD) ; ADDED 10/19/79 (NEW IN 1.6.0) 8 INCLUDE (ENX$T) > SDSLNK  3.6.083.193 11/18/83 17:19:50 PAGE 2> COMMAND LIST @ ; INCLUDE (EOF$WR) DELETED 10/19/79 (MERGED WITH WREOF$)@ INCLUDE (EOLN$) `` INCLUDE (FREE$)  INCLUDE (FL$INI) INCLUDE (GET$ME) INCLUDE (GET$PA) INCLUDE (GO$) L ; INCLUDE (HALT$) DELETED 8/4/80 (NOT USED WITH NEW ERROR HANDLERS) L INCLUDE (HEAP$T) INCLUDE (INIT$)  INCLUDE (IO$ERR) INCLUDE (MAP$)  INCLUDE (MOV$N) D INCLUDE (MSG$) ; ADDED 10/19/79 (PREVIOUSLY PART OF P$MAIN) D INCLUDE (NEW$)  INCLUDE (OPEN$)  INCLUDE (OPN$FI)F INCLUDE (P$$TRM) ; ADDED 10/19/79 (PREVIOUSLY PART OF P$MAIN) F INCLUDE (PRT$ME) INCLUDE (PUTCH$) INCLUDE (PUT$RC) INCLUDE (REWND$) INCLUDE (REWRT$) INCLUDE (RESUM$) INCLUDE (RSUMR$)@ ; INCLUDE (RWIND$) DELETED 10/19/79 (MERGED WITH REWND$)@ INCLUDE (S$NAME) INCLUDE (SCB$FR)``@ INCLUDE (SCB$IN)D ; INCLUDE (SET$AC) DELETED 8/4/80 (NOT USED IN DPOS VERSION)D INCLUDE (SET$NA) INCLUDE (STACK$) INCLUDE (STK$MA) INCLUDE (SVC$)  INCLUDE (TERM$)  INCLUDE (TIP$TC) INCLUDE (TX$ERR) INCLUDE (WRC$T)  INCLUDE (WREOF$) INCLUDE (WRI$T)  INCLUDE (WRLN$)  INCLUDE (WRS$T)  INCLUDE (WRX$T) . NOTGLOBAL T$VEC,P$MAIN,IO$ENC,T$WP,RESM$.& NOTGLOBAL INIT$,TERM$,GO$,GET$ME&L NOTGLOBAL DSTRY$,SCB$FR,S$NAME,STK$MA,RWIND$,T$MFD,T$ENTR ! 9/26/78 L, NOTGLOBAL GET$TC,GET$PA,SCB$IN,P$$TRM , NOTGLOBAL DUMP$P,DUMP$S 0 NOTGLOBAL T$MSE,T$TRM  ; ADDED 10/19/79 0  END %  '> SDSLNK  3.6.083.193 11/18/83 17:19:50 PAGE 3> LINK MAP " CONT``&ROL FILE = DXTIP.RT.S.SCISRC.MAIN & '2 LINKED OUTPUT FILE = DXTIP.RT.O.SCIOBJ.MAIN 2 '* LIST FILE = DXTIP.RT.O.LIST.SCIMAINL* '  OUTPUT FORMAT = COMPRESSED  ' LIBRARIES " '" NO ORGANIZATION PATHNAME" '& 1  RANDOM  DXTIP.RT.O.SCIOBJ && 2  RANDOM  DXTIP.RT.O.SCIOBJ && 3  RANDOM  DXTIP.RT.O.OSLOBJ && 4  RANDOM  DXTIP.RT.O.COMOBJ & ' ' '> SDSLNK  3.6.083.193 11/18/83 17:19:50 PAGE 4> &  '@ PHASE 0, MAIN ORIGIN = 0000 LENGTH = 3746 ENTRY=000E @ ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'H P$MAINCO1 00000080 INCLUDE,1 11/18/83 17:03:02SDSMACH $DATA 1 000005DC& ``@F ABEND$2 008000D0 INCLUDE,4 11/18/83 16:14:40SDSMACFF CLOSE$3 0150006A INCLUDE,4 11/18/83 15:19:05DXPSCLFD CLS$4 01BA0064 INCLUDE,4 11/18/83 15:19:05DXPSCLDH CLS$FILE5 021E0040 INCLUDE,3 11/18/83 15:19:05DXPSCLHF CMP$ST6 025E000A INCLUDE,4 11/18/83 16:16:00SDSMACFF CREAT$7 02680150 INCLUDE,4 11/18/83 15:08:14DXPSCLFD CUR$8 03B80010 INCLUDE,4 11/18/83 16:16:10SDSMACDD DIV$9 03C80038 INCLUDE,4 11/18/83 16:18:13SDSMACDF DSTRY$1004000002 INCLUDE,4 11/18/83 16:18:55SDSMACFF DSTR$$1104020022 INCLUDE,4 11/18/83 16:18:52SDSMACFH DMPP$HEA1204240196 INCLUDE,4 11/18/83 15:08:14DXPSCLH. DUMP$PRO1305BA025E INCLUDE,4 11/.``18/83 15:08:14DXPSCLH DUMP$STA140818034E INCLUDE,4 11/18/83 15:08:14DXPSCLHF ENC$T 150B6600AE INCLUDE,4 11/18/83 15:29:07DXPSCLFF ENI$T 160C140136 INCLUDE,4 11/18/83 15:29:07DXPSCLFF ENS$T 170D4A00DC INCLUDE,4 11/18/83 15:29:07DXPSCLFD ENT$180E2600C4 INCLUDE,4 11/18/83 16:19:09SDSMACDF ENT$MD190EEA000C INCLUDE,4 11/18/83 16:20:32SDSMACFF ENX$T 200EF6017E INCLUDE,4 11/18/83 15:29:07DXPSCLFF EOLN$ 2110740008 INCLUDE,4 11/18/83 16:20:36SDSMACFF FREE$ 22107C011A INCLUDE,4 11/18/83 15:08:14DXPSCLFH FL$INIT 23119600B2 INCLUDE,4 11/18/83 15:19:05DXPSCLHF GET$ME2412480066 INCLUDE,1 11/18/83 17:12:33SDSMACF  GET$PA ``@RM2512AE010C INCLUDE,1 11/18/83 17:12:42SDSMAC@D GO$ 2613BA0050 INCLUDE,4 11/18/83 15:08:14DXPSCLDH HEAP$TER27140A0044 INCLUDE,4 11/18/83 15:08:14DXPSCLHF INIT$ 28144E01D2 INCLUDE,1 11/18/83 15:08:14DXPSCLFF IO$ERR291620013C INCLUDE,4 11/18/83 16:22:27SDSMACFD MAP$30175C020E INCLUDE,1 11/18/83 15:19:05DXPSCLDF MOV$N 31196A0018 INCLUDE,4 11/18/83 16:24:12SDSMACFD MSG$3219820014 INCLUDE,4 11/18/83 16:24:16SDSMACDD NEW$33199602AA INCLUDE,1 11/18/83 15:08:14DXPSCLDF OPEN$ 341C400194 INCLUDE,4 11/18/83 15:19:05DXPSCLFH OPN$FILE351DD402B2 INCLUDE,3 11/18/83 15:19:05DXPSCLH6 P$$TRM3620860014 INCLUDE,4 11/18/83 166``:24:31SDSMACH PRT$MEM 37209A02B8 INCLUDE,4 11/18/83 15:08:14DXPSCLHF PUTCH$3823520034 INCLUDE,4 11/18/83 16:25:17SDSMACFH PUT$RCOR39238600E2 INCLUDE,3 11/18/83 15:19:05DXPSCLHF REWND$402468006C INCLUDE,3 11/18/83 15:19:05DXPSCLFF REWRT$4124D40066 INCLUDE,4 11/18/83 15:19:05DXPSCLFF RESUM$42253A0048 INCLUDE,4 11/18/83 16:26:23SDSMACFF RSUMR$4325820012 INCLUDE,4 11/18/83 16:27:03SDSMACFF S$NAME442594005A INCLUDE,1 11/18/83 15:19:05DXPSCLFH SCB$FREE4525EE0054 INCLUDE,3 11/18/83 15:19:05DXPSCLHH SCB$INIT4626420058 INCLUDE,3 11/18/83 15:19:05DXPSCLHH SET$NAME47269A0038 INCLUDE,1 11/18/83 15:19:05DXPSCLH  STACK$ ``<4826D2000C INCLUDE,4 11/18/83 16:27:56SDSMAC<H STK$MARG4926DE000A INCLUDE,4 11/18/83 16:28:02SDSMACH> SDSLNK  3.6.083.193 11/18/83 17:19:50 PAGE 5>B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR BD SVC$5026E8001C INCLUDE,3 11/18/83 17:10:44SDSMACDF TERM$ 512704051A INCLUDE,4 11/18/83 15:08:14DXPSCLFH TIP$TCA 522C1E0064 INCLUDE,1 11/18/83 17:13:00SDSMACHF TX$ERR532C8200AE INCLUDE,4 11/18/83 17:18:43SDSLNKFF WRC$T 542D300090 INCLUDE,4 11/18/83 16:28:30SDSMACFF WREOF$552DC00082 INCLUDE,3 11/18/83 15:19:05DXPSCLFF WRI$T 562E4200D8 INCLUDE,4 11/18/83 15:29:07DXPSCLF@ WRLN$ 572F1A0078 INCLUDE,4 11/18/83 15:19:05DX@``PSCLF WRS$T 582F9200A0 INCLUDE,4 11/18/83 16:28:39SDSMACFF WRX$T 59303200DC INCLUDE,4 11/18/83 15:29:07DXPSCLF ' ' '$ COMMONNO ORIGIN  LENGTH $ ' CUR$1 00000026 HEAP$ 3300000010 SYS$MS2800000020 PARM$ 3300000006 ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L ABEND$ 009C 2 ABND$0 00C4 2 ABND$1 00BC 2 ABND$2 008E 2LL *BID$SV 2B00* 1 CLOSE$ 0162 3*CLS$  01CE 4 CLS$FI 0230 5LL CMP$ST 025E 6 CREAT$ 027E 7 CUR$  03BA 8 CUR$$ 0ECE 18 LH DIV$  03C8 9 DMPP$H 044E 12  DSTR$$ 0402 11  DSTRY$ 0H`` 400 10 R DUMP$P 0646 13  DUMP$S 0880 14 *ENC$T 0B78 15  ENI$T 0C28 16 RP ENS$T 0D5C 17  ENT$  0E36 18 *ENT$1 0060 1 ENT$2 0E26 18 PR ENT$M 0E40 18  ENT$MD 0EEA 19  ENT$S 0EBE 18  ENX$T 0F0E 20 RR EOLN$ 1074 21  FIND$S 2C6C 52  FL$INI 11AA 23  FREE$ 108E 22 RP GET$ME 125C 24  GET$PA 12CE 25  GET$TC 2C36 52  GO$ 13CA 26 PR HEAP$T 141A 27  INIT$ 1498 28  IO$ERR 164C 29  MAP$  1780 30 RP MARG$N 0080 2 MOV$4 1978 31 *MOV$5 1976 31 *MOV$6 1974 31 PR *MOV$7 1972 31 *MOV$8 1970 31  MOV$N 196A 31  MSG$  1982 32 RR NEW$  19AA 33  OPEN$ 1C60 34  OPN$FI 1E06 35  P$$TRM 2086 36 RL P$ABND 0138 2*P$MAIN 000E 1 *PATCH$ 0E56 18  PRT$ME 20D4 3L``7 R PUT$RC 23A0 39  PUTCH$ 2352 38  RESM$ 254C 42  RESUM$ 2548 42 RP *RET$1 006E 1 RET$2 0ED4 18  RET$M 0EE6 18  RET$S 0EE8 18 PR REWND$ 247A 40  *REWRT$ 24E4 41  RSUMR$ 2584 43  S$NAME 25A6 44 RR SCB$FR 2600 45  SCB$IN 2656 46  SET$NA 26A8 47  STACK$ 26D2 48 RR STK$MA 26DE 49  *STORE$ 2C44 52  SVC$  26F6 50 *T$CC  000A* 1RL T$EC  000C* 1*T$ENTR 0010* 1*T$ES  001E* 1*T$INID 0004* 1LL *T$MDIR 0020* 1*T$MFD 0008* 1*T$MN  001A* 1 T$MSE 0016* 1LL *T$MSG 000E* 1*T$RNID 0003* 1*T$STN 0005* 1 T$TERM 0022* 1LL *T$TIB 0000 1 T$TRM 0018* 1*T$VEC 0000 1 T$VT  001C* 1LP T$WP  0006* 1 TERM$ 27AC 51  TX$ERR 2C9C 53  WRC$T 2D42 54 P WREOF$ 2DD2 ``B 55  WRI$T 2E56 56  WRLN$ 2F2E 57  WRS$T 2FA4 58 B WRX$T 3046 59  '> SDSLNK  3.6.083.193 11/18/83 17:19:50 PAGE 6> &  '$  G L O B A L S Y M B O L S $ 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L ABEND$ 009C 2 ABND$0 00C4 2 ABND$1 00BC 2 ABND$2 008E 2LL *BID$SV 2B00* 1 CLOSE$ 0162 3*CLS$  01CE 4 CLS$FI 0230 5LL CMP$ST 025E 6 CREAT$ 027E 7 CUR$  03BA 8 CUR$$ 0ECE 18 LP DIV$  03C8 9 DMPP$H 044E 12  DSTR$$ 0402 11 *ENC$T 0B78 15 PR ENI$T 0C28 16  ENS$T 0D5C 17  ENT$  0E36 18 *ENT$1 0060 1RR ENT$2 0E26 18  ENT$M 0E40 18  ENT$MD 0EEA 19  ENT$S 0EBE 18 R ENX$T 0F0E 2``@0  EOLN$ 1074 21  FIND$S 2C6C 52  FL$INI 11AA 23 @R FREE$ 108E 22  HEAP$T 141A 27  IO$ERR 164C 29  MAP$  1780 30 RP MARG$N 0080 2 MOV$4 1978 31 *MOV$5 1976 31 *MOV$6 1974 31 PR *MOV$7 1972 31 *MOV$8 1970 31  MOV$N 196A 31  MSG$  1982 32 RR NEW$  19AA 33  OPEN$ 1C60 34  OPN$FI 1E06 35  P$ABND 0138 2RR *PATCH$ 0E56 18  PRT$ME 20D4 37  PUT$RC 23A0 39  PUTCH$ 2352 38 RP RESUM$ 2548 42 *RET$1 006E 1 RET$2 0ED4 18  RET$M 0EE6 18 PR RET$S 0EE8 18  REWND$ 247A 40  *REWRT$ 24E4 41  RSUMR$ 2584 43 RR SET$NA 26A8 47  STACK$ 26D2 48  *STORE$ 2C44 52  SVC$  26F6 50 RL *T$CC  000A* 1 T$EC  000C* 1*T$ES  001E* 1*T$INID 0004* 1L *T$MDIR 0020* 1*T$M``4N  001A* 1*T$MSG 000E* 1*T$RNID 0003* 14L *T$STN 0005* 1 T$TERM 0022* 1*T$TIB 0000 1 T$VT  001C* 1LR TX$ERR 2C9C 53  WRC$T 2D42 54  WREOF$ 2DD2 55  WRI$T 2E56 56 R@ WRLN$ 2F2E 57  WRS$T 2FA4 58  WRX$T 3046 59 @ ' '2 U N R E S O L V E D R E F E R E N C E S 2 'R NAME  COUNT NO  NAME  COUNT NO  NAME  COUNT NO  NAME  COUNT NO R 'P S$IASC 1  25  S$PARM 2  25  S$INT2  25  INIT$1 1  28 PR P$INIT 1  28  PB$INI 1  28  P$CMSG 2  51  PB$TER 1  51 RR S$GTCA 2  52  S$SETS 1  52  S$PTCA 1  52  S$MAPS 1  52 RL MESAG$ 1  1 MM$DIR 1  1 P$TERM 1  1 PSCL$$ 1  1L* PM$IO1  29  PM$TIO 1  53 * '`` ' ' ' **** LINKING COMPLETED  0005* 1 T$TERM 0022* 1*T$TIB 0000 1 T$VT  001C* 1LR TX$ERR 2C9C 53  WRC$T 2D42 54  WREOF$ 2DD2 55  WRI$T 2E56 56 R@ WRLN$ 2F2E 57  WRS$T 2FA4 58  WRX$T 3046 59 @ ' '2 U N R E S O L V E D R E F E R E N C E S 2 'R NAME  COUNT NO  NAME  COUNT NO  NAME  COUNT NO  NAME  COUNT NO R 'P S$IASC 1  25  S$PARM 2  25  S$INT2  25  INIT$1 1  28 PR P$INIT 1  28  PB$INI 1  28  P$CMSG 2  51  PB$TER 1  51 RR S$GTCA 2  52  S$SETS 1  52  S$PTCA 1  52  S$MAPS 1  52 RL MESAG$ 1  1 MM$DIR 1  1 P$TERM 1  1 PSCL$$ 1  1L* PM$IO1  29  PM$TIO 1  53 * '`SCILIST `P`$`@> SDSLNK  3.6.083.193 11/18/83 17:18:51 PAGE 1> COMMAND LIST  ; TITLE:SCIRTNS F ; SYSTEM: TI PASCAL RUNTIME LIBRARY FOR DX10 OR DPOS WITH SCI FH ; PURPOSE:THIS PARTIAL LINK COLLECTS THE SCI INTERFACE ROUTINES H0 ; WHICH ARE USED BY THE PASCAL RUNTIME. 0 ; HISTORY:"6 ;  6/17/80: USE SYNONYM TO ACCESS SCI LIBRARY, 6, ; ADD GLOBAL DECLARATION FOR S$TERM. , FORMAT COMPRESSED  PARTIAL # LIBRARY S$OBJECT  NOAUTO$  PHASE 0,SCIRTNS  INCLUDE (S$IADD) INCLUDE (S$IASC) INCLUDE (S$INT)  INCLUDE (S$MAPS) INCLUDE (S$NEW)  INCLUDE (S$PARM) INCLUDE (S$SETS) INCLUDE (S$STOP) INCLUDE (S$TCA$) INCLUDE (S$WSP1) INCLUDE (S$WSP2)  INCLUDE `` (S$WSP3)  NOTGLOBAL "6 GLOBAL S$GTCA,S$IADD,S$IASC,S$IDIV,S$IMUL,S$INT 6. GLOBAL S$ISUB,S$MAPS,S$NEW,S$PARM,S$PTCA.0 GLOBAL S$RTCA,S$SCPY,S$SETS,S$STOP,S$TERM 0  END %  '> SDSLNK  3.6.083.193 11/18/83 17:18:51 PAGE 2> LINK MAP ". CONTROL FILE = DXTIP.RT.S.SCISRC.SCIRTNS. '4 LINKED OUTPUT FILE = DXTIP.RT.O.SCIOBJ.SCIRTNS4 '* LIST FILE = DXTIP.RT.O.LIST.SCILIST * '  OUTPUT FORMAT = COMPRESSED  ' LIBRARIES " '" NO ORGANIZATION PATHNAME" '* 1  RANDOM  REL36.SCI990.S$OBJECT * ' ' '> SDSLNK  3.6.083.193 11/18/83 17:18:51 PAGE 3> &  '4 PHASE 0, SCIRTNSORIGIN = 0000 LENGTH = 0D444 ' ' MO``>DULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR > 'F S$IADD1 0000006A INCLUDE,1 08/09/83 02:12:52SDSMACF $DATA 1 00000014F S$IASC2 006A01B8 INCLUDE,1 08/09/83 02:13:04SDSMACF $DATA 2 00140048F S$INT 3 022201A4 INCLUDE,1 08/09/83 02:13:25SDSMACF $DATA 3 005C0030F S$MAPS4 03C600A0 INCLUDE,1 08/09/83 02:15:18SDSMACF $DATA 4 008C0014F S$NEW 5 046600B4 INCLUDE,1 08/09/83 02:15:32SDSMACF $DATA 5 00A0003EF S$PARM6 051A00B0 INCLUDE,1 08/09/83 02:16:01SDSMACF $DATA 6 00DE0034F S$SETS7 05CA00FC INCLUDE,1 08/09/83 02:16:45SDSMACF $DATA 7 0112001A( S$STOP8 06C60058 INCLUDE,1(``  08/09/83 02:17:57SDSMAC  $DATA 8 012C0022F S$TCA$9 071E00D8 INCLUDE,1 08/09/83 02:18:34SDSMACF $DATA 9 014E03A0F S$WSP11007F60000 INCLUDE,1 08/09/83 02:19:02SDSMACF $DATA 1004EE0020F S$WSP21107F60000 INCLUDE,1 08/09/83 02:19:11SDSMACF $DATA 11050E0020F S$WSP31207F60000 INCLUDE,1 08/09/83 02:19:19SDSMACF $DATA 12052E0020 ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L CIFLAG 00AC 5*CODE  00AE 5*EXPIRE 0144 8*OVYSAV 0146 8LL PARM1 00B6 5*PARM2 00B8 5*PRMTMP 00F0 6 S$$ARB 0124 7L S$$COP 0104 6 S$$``4GRB 0128 7 S$$LUP 0108 6 S$$RES 0010 14L S$GTCA 014E 9*S$IADD 0000 1*S$IASC 0014 2 S$IDIV 0044 2LL S$IMUL 0050 2*S$INT 005C 3*S$ISUB 0008 1*S$MAPS 008C 4LL S$NEW 00A0 5*S$PARM 00DE 6 S$PTCA 015A 9*S$RTCA 0166 9LL *S$SCPY 00F8 6 S$SETS 0112 7*S$STOP 012C 8*STATE 00BA 5LL TCA$CC 000E* 9 TCAAVL 000A* 9*TCABUF 0172 9 TCANCT 0008* 9LL *TCAPRB 04D2 9 TCAPTR 04E2 9*TCATSB 0002* 9*TCBUFF 04D8 9LL *TCCHCT 04DC 9*TCFLAG 04D6 9 TCLUNO 04D5 9*TCOPCD 04D4 9LL *TCRECL 04DA 9*TCRECN 04E0 9*TCSTAT 04D3 9*TDELAY 04E4 9LN *TLFNAM 00BC 5 TRMNUM 00C8 5 W$$A3I 050E 11  W$$A4I 04EE 10 NP *W$BID 050E 11  *W$BIDT 052E 12  *W$CLOS 04EE 10 *W$DPAG 052E 1P``2 R *W$FMT 052E 12  *W$GKEY 052E 12  W$GTCA 050E 11  W$IADD 04EE 10 RR W$IASC 04EE 10  W$IDIV 04EE 10  W$IMUL 04EE 10  W$INT 052E 12 RR W$ISUB 04EE 10  *W$KBLD 04EE 10  *W$KRST 04EE 10  *W$MAPK 04EE 10 RR W$MAPS 04EE 10  W$NEW 04EE 10  *W$OPEN 04EE 10  *W$OVLY 04EE 10 RR W$PARM 04EE 10  *W$PKEY 052E 12  *W$PNCT 04EE 10  W$PTCA 04EE 10 R> SDSLNK  3.6.083.193 11/18/83 17:18:51 PAGE 4>R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO RR *W$QBID 050E 11 *W$RIT 050E 11  W$RTCA 04EE 10  *W$SCOM 04EE 10 RR W$SCPY 04EE 10  *W$SETK 04EE 10  W$SETS 04EE 10  *W$SKWT 04EE 10 RR *W$SNCT 050E 11  *W$SPLT 04EE 10  *W$STAT 04EE 10  W$STOP 052E 12 R  *W$WEO ``8L 04EE 10 *W$WIT 050E 11  *W$WRIT 04EE 10 8 ' '$  G L O B A L S Y M B O L S $ 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L S$GTCA 014E 9*S$IADD 0000 1*S$IASC 0014 2 S$IDIV 0044 2LL S$IMUL 0050 2*S$INT 005C 3*S$ISUB 0008 1*S$MAPS 008C 4LL S$NEW 00A0 5*S$PARM 00DE 6 S$PTCA 015A 9*S$RTCA 0166 9L: *S$SCPY 00F8 6 S$SETS 0112 7*S$STOP 012C 8 : ' ' ' ' **** LINKING COMPLETED 50E 11 *W$RIT 050E 11  W$RTCA 04EE 10  *W$SCOM 04EE 10 RR W$SCPY 04EE 10  *W$SETK 04EE 10  W$SETS 04EE 10  *W$SKWT 04EE 10 RR *W$SNCT 050E 11  *W$SPLT 04EE 10  *W$STAT 04EE 10  W$STOP 052E 12 R  *W$WEO `LUNMAINL`P0 $`@> SDSLNK  3.6.083.193 11/18/83 17:22:12 PAGE 1> COMMAND LIST > ; (C) COPYRIGHT, TEXAS INSTRUMENTS INCORPORATED, 1978. > ; &N% ;-----------------------------------------------------------------------N ; TITLE:MAIN 4 ; SYSTEM: TI PASCAL RUN-TIME LUNO I/O LIBRARY 4 ; PURPOSE:"J ;  THIS PARTIAL LINK FORMS MODULE .TIP.LUNOBJ.MAIN, WHICH INCLUDES JH ; ALL OF THE RUN-TIME ROUTINES WHICH ARE REQUIRED BY ALL PASCAL H2 ; PROGRAMS WHICH USE THE LUNO I/O LIBRARY.2 ; HISTORY:" ;  07/13/78: ORIGINAL.   ;  08/26/78: ADD STK$MA.  0 ; 09/26/78: ADD SOME MORE "NOTGLOBAL"S. 00 ; 10/20/78: CHANGE "DUMP$H" TO "DMPP$H".0L ; !10/20/79: DELETE RWIND$ AND EOF$WR; ADD ENT$MD, MSG$, AND P$$TRM. L ;  08/08/80: DELETE H``.ALT$, ADD P$CMSG (FOR NEW ERROR HANDLING)..N% ;-----------------------------------------------------------------------N ; & FORMAT COMPRESSED  PARTIAL # LIBRARY LUNOBJ  LIBRARY OSLOBJ  LIBRARY COMOBJ   NOAUTO$  PHASE 0,MAIN! INCLUDE (P$MAIN) INCLUDE (ABEND$) INCLUDE (CLOSE$) INCLUDE (CLS$)  INCLUDE (CLS$FI) INCLUDE (CMP$ST) INCLUDE (CREAT$) INCLUDE (CUR$)  INCLUDE (DIV$)  INCLUDE (DSTRY$) INCLUDE (DSTR$$) INCLUDE (DMPP$H) INCLUDE (DUMP$P) INCLUDE (DUMP$S) INCLUDE (ENC$T)  INCLUDE (ENI$T)  INCLUDE (ENS$T)  INCLUDE (ENT$) 8 INCLUDE (ENT$MD); ADDED 10/20/79 (NEW IN 1.6.0) 8 INCLUDE (ENX$T)   ; INCLUD ``6E (EOF$WR)DELETED 10/20/79 (MERGED WITH WREOF$) 6 INCLUDE (EOLN$)  INCLUDE (FREE$)  INCLUDE (FL$INI) INCLUDE (GET$ME) INCLUDE (GO$) N ; INCLUDE (HALT$)  DELETED 8/8/80 (NOT NEEDED WITH NEW ERROR HANDLING)N INCLUDE (HEAP$T) INCLUDE (INIT$)  INCLUDE (INIT$P) INCLUDE (IO$ERR)> SDSLNK  3.6.083.193 11/18/83 17:22:12 PAGE 2> COMMAND LIST  INCLUDE (MOV$N) B INCLUDE (MSG$); ADDED 10/20/79 (PREVIOUSLY PART OF P$MAIN)B INCLUDE (NEW$)  INCLUDE (OPEN$)  INCLUDE (OPN$FI)D INCLUDE (P$$TRM); ADDED 10/20/79 (PREVIOUSLY PART OF P$MAIN)D< INCLUDE (P$CMSG); ADDED 8/8/80 FOR USE BY NEW TERM$ < INCLUDE (PRT$ME) INCLUDE (PUTCH$) INCLUDE (PUT$RC)  INCLUD ``E (REWND$) INCLUDE (REWRT$) INCLUDE (RESUM$) INCLUDE (RSUMR$)@ ; INCLUDE (RWIND$)DELETED 10/20/79 (MERGED WITH REWND$) @ INCLUDE (SCB$FR) INCLUDE (SET$LU) INCLUDE (SET$NA) INCLUDE (STACK$) INCLUDE (STK$MA) INCLUDE (SVC$)  INCLUDE (TERM$)  INCLUDE (TX$ERR) INCLUDE (WRC$T)  INCLUDE (WREOF$) INCLUDE (WRI$T)  INCLUDE (WRLN$)  INCLUDE (WRS$T)  INCLUDE (WRX$T) ( NOTGLOBAL T$VEC,P$MAIN,T$WP,RESM$ (. NOTGLOBAL INIT$,TERM$,GO$,GET$ME,ALLC$$ .D NOTGLOBAL DSTRY$,SCB$FR,STK$MA,RWIND$,T$MFD,T$ENTR! 9/26/78 D NOTGLOBAL INIT$P,P$$TRM  NOTGLOBAL DUMP$P,DUMP$S J NOTGLOBAL T$MSE,T$TRM  ; ADDED 10/20/79 (NEW FOR MSG$ AND P$$TRM) J  END %  '``@> SDSLNK  3.6.083.193 11/18/83 17:22:12 PAGE 3> LINK MAP ", CONTROL FILE = DXTIP.RT.S.LUNSRC.MAIN , '2 LINKED OUTPUT FILE = DXTIP.RT.O.LUNOBJ.MAIN 2 '* LIST FILE = DXTIP.RT.O.LIST.LUNMAINL* '  OUTPUT FORMAT = COMPRESSED  ' LIBRARIES " '" NO ORGANIZATION PATHNAME" '& 1  RANDOM  DXTIP.RT.O.LUNOBJ && 2  RANDOM  DXTIP.RT.O.OSLOBJ && 3  RANDOM  DXTIP.RT.O.COMOBJ & ' ' '> SDSLNK  3.6.083.193 11/18/83 17:22:12 PAGE 4> &  '@ PHASE 0, MAIN ORIGIN = 0000 LENGTH = 35CE ENTRY=000E @ ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B ': P$MAINLU1 00000080 INCLUDE,1 11/18/83 17:0:``2:11SDSMAC $DATA 1 00000632F ABEND$2 008000D0 INCLUDE,3 11/18/83 16:14:40SDSMACFF CLOSE$3 0150006A INCLUDE,3 11/18/83 15:19:05DXPSCLFD CLS$4 01BA0064 INCLUDE,3 11/18/83 15:19:05DXPSCLDH CLS$FILE5 021E0048 INCLUDE,1 11/18/83 15:49:37DXPSCLHF CMP$ST6 0266000A INCLUDE,3 11/18/83 16:16:00SDSMACFF CREAT$7 02700150 INCLUDE,3 11/18/83 15:08:14DXPSCLFD CUR$8 03C00010 INCLUDE,3 11/18/83 16:16:10SDSMACDD DIV$9 03D00038 INCLUDE,3 11/18/83 16:18:13SDSMACDF DSTRY$1004080002 INCLUDE,3 11/18/83 16:18:55SDSMACFF DSTR$$11040A0022 INCLUDE,3 11/18/83 16:18:52SDSMACFF DMPP$HEA12042C0196 INCLUDE,3 11/18/83 15:08:14DXPSCLF``H DUMP$PRO1305C2025E INCLUDE,3 11/18/83 15:08:14DXPSCLHH DUMP$STA140820034E INCLUDE,3 11/18/83 15:08:14DXPSCLHF ENC$T 150B6E00AE INCLUDE,3 11/18/83 15:29:07DXPSCLFF ENI$T 160C1C0136 INCLUDE,3 11/18/83 15:29:07DXPSCLFF ENS$T 170D5200DC INCLUDE,3 11/18/83 15:29:07DXPSCLFD ENT$180E2E00CC INCLUDE,1 11/18/83 16:47:26SDSMACDF ENT$MD190EFA000C INCLUDE,3 11/18/83 16:20:32SDSMACFF ENX$T 200F06017E INCLUDE,3 11/18/83 15:29:07DXPSCLFF EOLN$ 2110840008 INCLUDE,3 11/18/83 16:20:36SDSMACFF FREE$ 22108C0124 INCLUDE,1 11/18/83 15:49:37DXPSCLFH FL$INIT 2311B000DA INCLUDE,1 11/18/83 15:49:37DXPSCLH" GET$ME24128A00A0 INCLU"``&DE,1 11/18/83 16:50:52SDSMAC&D GO$ 25132A0050 INCLUDE,3 11/18/83 15:08:14DXPSCLDH HEAP$TER26137A0044 INCLUDE,3 11/18/83 15:08:14DXPSCLHF INIT$ 2713BE0224 INCLUDE,1 11/18/83 15:49:37DXPSCLFF INIT$P2815E20002 INCLUDE,1 11/18/83 16:51:01SDSMACFF IO$ERR2915E4013C INCLUDE,3 11/18/83 16:22:27SDSMACFF MOV$N 3017200018 INCLUDE,3 11/18/83 16:24:12SDSMACFD MSG$3117380014 INCLUDE,3 11/18/83 16:24:16SDSMACDD NEW$32174C029A INCLUDE,1 11/18/83 15:49:37DXPSCLDF OPEN$ 3319E60194 INCLUDE,3 11/18/83 15:19:05DXPSCLFH OPN$FILE341B7A02EE INCLUDE,1 11/18/83 15:49:37DXPSCLHF P$$TRM351E680014 INCLUDE,3 11/18/83 16:24:31SDSMACF ``DP$CMSG361E7C01CF INCLUDE,3 11/18/83 16:24:35SDSMACDH PRT$MEM 37204C02B8 INCLUDE,3 11/18/83 15:08:14DXPSCLHF PUTCH$3823040034 INCLUDE,3 11/18/83 16:25:17SDSMACFH PUT$RCOR39233800E2 INCLUDE,2 11/18/83 15:19:05DXPSCLHF REWND$40241A006C INCLUDE,2 11/18/83 15:19:05DXPSCLFF REWRT$4124860066 INCLUDE,3 11/18/83 15:19:05DXPSCLFF RESUM$4224EC004A INCLUDE,1 11/18/83 16:51:19SDSMACFF RSUMR$4325360012 INCLUDE,3 11/18/83 16:27:03SDSMACFH SCB$FREE4425480054 INCLUDE,2 11/18/83 15:19:05DXPSCLHH SET$LUNO45259C0026 INCLUDE,1 11/18/83 15:49:37DXPSCLHH SET$NAME4625C20002 INCLUDE,1 11/18/83 16:51:29SDSMACH$ STACK$4725C4000C INCLUDE$``$,3 11/18/83 16:27:56SDSMAC$H STK$MARG4825D0000A INCLUDE,3 11/18/83 16:28:02SDSMACHD SVC$4925DA001C INCLUDE,2 11/18/83 17:10:44SDSMACD> SDSLNK  3.6.083.193 11/18/83 17:22:12 PAGE 5>B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR BF TERM$ 5025F6051A INCLUDE,1 11/18/83 15:49:37DXPSCLFF TX$ERR512B1000AE INCLUDE,3 11/18/83 17:18:43SDSLNKFF WRC$T 522BBE0090 INCLUDE,3 11/18/83 16:28:30SDSMACFF WREOF$532C4E0082 INCLUDE,2 11/18/83 15:19:05DXPSCLFF WRI$T 542CD000D8 INCLUDE,3 11/18/83 15:29:07DXPSCLFF WRLN$ 552DA80078 INCLUDE,3 11/18/83 15:19:05DXPSCLFF WRS$T 562E2000A0 INCLUDE,3 11/18/83 16:28:39SDSMACF WRX$T 57``82EC000DC INCLUDE,3 11/18/83 15:29:07DXPSCL8 ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L ABEND$ 009C 2 ABND$0 00C4 2 ABND$1 00BC 2 ABND$2 008E 2LL *BID$SV 2B00* 1 CLOSE$ 0162 3*CLS$  01CE 4 CLS$FI 0230 5LL CMP$ST 0266 6 CREAT$ 0286 7 CUR$  03C2 8 CUR$$ 0EDE 18 LP DIV$  03D0 9 DMPP$H 0456 12  DSTR$$ 040A 11  DSTRY$ 0408 10 PR DUMP$P 064E 13  DUMP$S 0888 14 *ENC$T 0B80 15  ENI$T 0C30 16 RP ENS$T 0D64 17  ENT$  0E3E 18 *ENT$1 0060 1 ENT$2 0E2E 18 PR ENT$M 0E48 18  ENT$MD 0EFA 19  ENT$S 0ECA 18  ENX$T 0F1E 20 R& EOLN$ 1084 21  FL$INI 11C8 &``. 23  FREE$ 109E 22  GET$ME 129E 24 .P GO$ 133A 25  HEAP$T 138A 26  INIT$ 140C 27  INIT$P 15E2 28 PP IO$ERR 1610 29  MARG$N 0080 2 MOV$4 172E 30 *MOV$5 172C 30 PR *MOV$6 172A 30 *MOV$7 1728 30 *MOV$8 1726 30  MOV$N 1720 30 RR MSG$  1738 31  NEW$  1760 32  OPEN$ 1A06 33  OPN$FI 1BAE 34 RP P$$TRM 1E68 35  P$ABND 0138 2 P$CMSG 1E8A 36 *P$MAIN 000E 1PR *PATCH$ 0E62 18  PRT$ME 2086 37  PUT$RC 2352 39  PUTCH$ 2304 38 RP RESM$ 24FE 42  RESUM$ 24FA 42 *RET$1 006E 1 RET$2 0EE4 18 PR RET$M 0EF6 18  RET$S 0EF8 18  REWND$ 242C 40  *REWRT$ 2496 41 RR RSUMR$ 2538 43  SCB$FR 255A 44  *SET$LU 25AA 45  SET$NA 25C2 46 R* STACK$ 25C4 47  STK$MA 25D0 48 *``( SVC$  25E8 49 *T$CC  000A* 1(L T$EC  000C* 1*T$ENTR 0010* 1*T$ES  001E* 1*T$INID 0004* 1LL T$MDIR 0020* 1*T$MFD 0008* 1*T$MN  001A* 1 T$MSE 0016* 1LL *T$MSG 000E* 1*T$RNID 0003* 1*T$STN 0005* 1 T$TERM 0022* 1LL *T$TIB 0000 1 T$TRM 0018* 1*T$VEC 0000 1 T$VT  001C* 1LP T$WP  0006* 1 TERM$ 269E 50  TX$ERR 2B2A 51  WRC$T 2BD0 52 PR WREOF$ 2C60 53  WRI$T 2CE4 54  WRLN$ 2DBC 55  WRS$T 2E32 56 R WRX$T 2ED4 57  ' '$  G L O B A L S Y M B O L S $ 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'L ABEND$ 009C 2 ABND$0 00C4 2 ABND$1 00BC 2 ABND$2 008E 2L2 *BID$SV 2B00* 1 CLOSE$ 0162 3*CLS$  02``1CE 4 CLS$FI 0230 5L CMP$ST 0266 6 CREAT$ 0286 7 CUR$  03C2 8 CUR$$ 0EDE 18 LP DIV$  03D0 9 DMPP$H 0456 12  DSTR$$ 040A 11 *ENC$T 0B80 15 PR ENI$T 0C30 16  ENS$T 0D64 17  ENT$  0E3E 18 *ENT$1 0060 1RR ENT$2 0E2E 18  ENT$M 0E48 18  ENT$MD 0EFA 19  ENT$S 0ECA 18 RR ENX$T 0F1E 20  EOLN$ 1084 21  FL$INI 11C8 23  FREE$ 109E 22 RP HEAP$T 138A 26  IO$ERR 1610 29  MARG$N 0080 2 MOV$4 172E 30 PR *MOV$5 172C 30 *MOV$6 172A 30 *MOV$7 1728 30 *MOV$8 1726 30 R> SDSLNK  3.6.083.193 11/18/83 17:22:12 PAGE 6>R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO RR MOV$N 1720 30  MSG$  1738 31  NEW$  1760 32  OPEN$ 1A06 33 R``@P OPN$FI 1BAE 34  P$ABND 0138 2 P$CMSG 1E8A 36  *PATCH$ 0E62 18 PR PRT$ME 2086 37  PUT$RC 2352 39  PUTCH$ 2304 38  RESUM$ 24FA 42 RP *RET$1 006E 1 RET$2 0EE4 18  RET$M 0EF6 18  RET$S 0EF8 18 PR REWND$ 242C 40  *REWRT$ 2496 41  RSUMR$ 2538 43  *SET$LU 25AA 45 RR SET$NA 25C2 46  STACK$ 25C4 47  SVC$  25E8 49 *T$CC  000A* 1RL T$EC  000C* 1*T$ES  001E* 1*T$INID 0004* 1 T$MDIR 0020* 1LL *T$MN  001A* 1*T$MSG 000E* 1*T$RNID 0003* 1*T$STN 0005* 1LL T$TERM 0022* 1*T$TIB 0000 1 T$VT  001C* 1 TX$ERR 2B2A 51 LR WRC$T 2BD0 52  WREOF$ 2C60 53  WRI$T 2CE4 54  WRLN$ 2DBC 55 R, WRS$T 2E32 56  WRX$T 2ED4 57 , ' '& U N R E S O L V E D R E F E R&`` E N C E S  'R NAME  COUNT NO  NAME  COUNT NO  NAME  COUNT NO  NAME  COUNT NO R 'P LU$IN1  23  INIT$1 1  27  P$INIT 1  27  PB$INI 1  27 PN PB$TER 1  50  PSCL$$ 1  1 MESAG$ 1  1 P$TERM 1  1N MM$DIR 1  1 ' ' ' ' **** LINKING COMPLETED  25E8 49 *T$CC  000A* 1RL T$EC  000C* 1*T$ES  001E* 1*T$INID 0004* 1 T$MDIR 0020* 1LL *T$MN  001A* 1*T$MSG 000E* 1*T$RNID 0003* 1*T$STN 0005* 1LL T$TERM 0022* 1*T$TIB 0000 1 T$VT  001C* 1 TX$ERR 2B2A 51 LR WRC$T 2BD0 52  WREOF$ 2C60 53  WRI$T 2CE4 54  WRLN$ 2DBC 55 R, WRS$T 2E32 56  WRX$T 2ED4 57 , ' '& U N R E S O L V E D R E F E R&`SCIFLIST`P=$`@> SDSLNK  3.6.083.193 11/18/83 17:19:22 PAGE 1> COMMAND LIST  ; TITLE:SCIPROCS> ; SYSTEM: TI PASCAL RUNTIME LIBRARY FOR DX10 WITH SCI >H ; PURPOSE:THIS PARTIAL LINK COLLECTS THE SCI INTERFACE ROUTINES H: ; WHICH ARE USED BY THE PASCAL AND FORTRAN RUNTIME : ; LIBRARIES. ; HISTORY:"6 ;  6/17/80: USE SYNONYM TO ACCESS SCI LIBRARY; 6, ; ADD GLOBAL DECLARATION FOR S$TERM. , FORMAT COMPRESSED  PARTIAL # LIBRARY S$OBJECT  NOAUTO$  PHASE 0,SCIPROCS INCLUDE (S$IADD) INCLUDE (S$IASC) INCLUDE (S$INT)  INCLUDE (S$IO)  INCLUDE (S$MAPS) INCLUDE (S$NEW)  INCLUDE (S$PARM) INCLUDE (S$SETS) INCLUDE (S$STOP) INCLUDE (S$TCA$) INCLUDE (S`` $WSP1)  INCLUDE (S$WSP2) INCLUDE (S$WSP3) NOTGLOBAL "6 GLOBAL S$GTCA,S$IADD,S$IASC,S$IDIV,S$IMUL,S$INT 6. GLOBAL S$ISUB,S$MAPS,S$NEW,S$PARM,S$PTCA." GLOBAL S$RTCA,S$SCPY,S$SETS "6 GLOBAL S$CLOS,S$OPEN,S$STOP,S$WEOL,S$WRIT,S$TERM6  END %  '> SDSLNK  3.6.083.193 11/18/83 17:19:22 PAGE 2> LINK MAP "0 CONTROL FILE = DXTIP.RT.S.SCISRC.SCIFRTNS 0 '6 LINKED OUTPUT FILE = DXTIP.RT.O.SCIOBJ.SCIFRTNS 6 '* LIST FILE = DXTIP.RT.O.LIST.SCIFLIST* '  OUTPUT FORMAT = COMPRESSED  ' LIBRARIES " '" NO ORGANIZATION PATHNAME" '* 1  RANDOM  REL36.SCI990.S$OBJECT * ' ' '> SDSLNK  3.6.083.193 11/18/83 17:19:22 PAGE 3> &``  '4 PHASE 0, SCIPROCS ORIGIN = 0000 LENGTH = 11044 ' 'B MODULENO ORIGIN  LENGTH  TYPE  DATE TIMECREATOR B 'F S$IADD1 0000006A INCLUDE,1 08/09/83 02:12:52SDSMACF $DATA 1 00000014F S$IASC2 006A01B8 INCLUDE,1 08/09/83 02:13:04SDSMACF $DATA 2 00140048F S$INT 3 022201A4 INCLUDE,1 08/09/83 02:13:25SDSMACF $DATA 3 005C0030D S$IO4 03C602A2 INCLUDE,1 08/09/83 02:13:45SDSMACD $DATA 4 008C011EF S$MAPS5 066800A0 INCLUDE,1 08/09/83 02:15:18SDSMACF $DATA 5 01AA0014F S$NEW 6 070800B4 INCLUDE,1 08/09/83 02:15:32SDSMACF $DATA 6 01BE003E2 S$PARM7 07BC00B0 INCLUDE,1 08/09/83 2``02:16:01SDSMAC $DATA 7 01FC0034F S$SETS8 086C00FC INCLUDE,1 08/09/83 02:16:45SDSMACF $DATA 8 0230001AF S$STOP9 09680058 INCLUDE,1 08/09/83 02:17:57SDSMACF $DATA 9 024A0022F S$TCA$1009C000D8 INCLUDE,1 08/09/83 02:18:34SDSMACF $DATA 10026C03A0F S$WSP1110A980000 INCLUDE,1 08/09/83 02:19:02SDSMACF $DATA 11060C0020F S$WSP2120A980000 INCLUDE,1 08/09/83 02:19:11SDSMACF $DATA 12062C0020F S$WSP3130A980000 INCLUDE,1 08/09/83 02:19:19SDSMACF $DATA 13064C0020 ' ' ' '  D E F I N I T I O N S 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R``@ 'L CIFLAG 01CA 6*CODE  01CC 6*EXPIRE 0262 9*IO$CLS 03CA 4LL *IO$DOV 03CC 4*IO$LOV 03CE 4*IO$OPN 03D0 4*OPCBKS 03D7 4LL *OPCFWS 03D8 4*OPCOPN 03D9 4*OPCOPX 03DA 4*OPCRAS 03DB 4LL *OPCRDR 03DC 4*OPCREW 03DD 4*OPCWAS 03DE 4*OPCWEF 03DF 4LL *OVYSAV 0264 9 PARM1 01D4 6*PARM2 01D6 6*PRBBAD 0006* 4LL *PRBCHC 000A* 4*PRBCUR 0012* 4*PRBERC 0001* 4*PRBERR 0001* 4LL *PRBEVN 0011* 4*PRBFIL 0010* 4*PRBFLD 0014* 4*PRBLUN 0003* 4LL *PRBOPC 0002* 4*PRBPTN 0016* 4*PRBRCL 0008* 4*PRBRLN 0008* 4LL *PRBSFL 0004* 4*PRBTYP 0006* 4*PRBUFL 0005* 4*PRBUTF 0010* 4LL *PRBXFL 000E* 4*PRMTMP 020E 7 S$$ARB 0242 8 S$$COP 0222 7L0 S$$GRB 0246 8 S$$LUP 0226 7 S$$RES 0`` 0010 1*S$CLOS 008C 4N S$GTCA 026C 10 *S$IADD 0000 1*S$IASC 0014 2 S$IDIV 0044 2NL S$IMUL 0050 2*S$INT 005C 3*S$ISUB 0008 1*S$MAPS 01AA 5LL S$NEW 01BE 6*S$OPEN 0098 4*S$PARM 01FC 7 S$PTCA 0278 10 LN *S$RTCA 0284 10 *S$SCPY 0216 7 S$SETS 0230 8*S$STOP 024A 9NL *S$WEOL 00A4 4*S$WRIT 00B0 4 STATE 01D8 6 TCA$CC 000E* 10 L> SDSLNK  3.6.083.193 11/18/83 17:19:22 PAGE 4>R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO RR TCAAVL 000A* 10  *TCABUF 0290 10  TCANCT 0008* 10  *TCAPRB 05F0 10 RR TCAPTR 0600 10  *TCATSB 0002* 10  *TCBUFF 05F6 10  *TCCHCT 05FA 10 RR *TCFLAG 05F4 10  TCLUNO 05F3 10  *TCOPCD 05F2 10  *TCRECL 05F8 10 R  *TCREC ``JN 05FE 10  *TCSTAT 05F1 10  *TDELAY 0602 10 *TLAPRB 00C0 4JJ *TLF 00E8 4*TLFBSZ 00EA 4*TLFBUF 00EE 4 TLFNAM 01DA 6JL *TLFNXT 017C 4*TLFPRB 017E 4*TLFREC 01A6 4*TLFTYP 01A8 4LL TRMNUM 01E6 6*UFLBLK 03E0 4*UFLEXW 03E1 4*UFLXTD 03E2 4LL *UTFACR 03E4 4*UTFGLN 03E8 4*UTFTLC 03EA 4 W$$A3I 062C 12 LR W$$A4I 060C 11 *W$BID 062C 12  *W$BIDT 064C 13  W$CLOS 060C 11 RR *W$DPAG 064C 13 *W$FMT 064C 13  *W$GKEY 064C 13  W$GTCA 062C 12 RR W$IADD 060C 11  W$IASC 060C 11  W$IDIV 060C 11  W$IMUL 060C 11 RR W$INT 064C 13  W$ISUB 060C 11  *W$KBLD 060C 11  *W$KRST 060C 11 RR *W$MAPK 060C 11  W$MAPS 060C 11  W$NEW 060C 11  W$OPEN 060C 11 R *W$OVLY 060C 11  W$PARM ``4 060C 11  *W$PKEY 064C 13  *W$PNCT 060C 11 4R W$PTCA 060C 11  *W$QBID 062C 12 *W$RIT 062C 12  W$RTCA 060C 11 RR *W$SCOM 060C 11  W$SCPY 060C 11  *W$SETK 060C 11  W$SETS 060C 11 RR *W$SKWT 060C 11  *W$SNCT 062C 12  *W$SPLT 060C 11  *W$STAT 060C 11 RR W$STOP 064C 13  W$WEOL 060C 11 *W$WIT 062C 12  W$WRIT 060C 11 R ' '$  G L O B A L S Y M B O L S $ 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'N *S$CLOS 008C 4 S$GTCA 026C 10 *S$IADD 0000 1*S$IASC 0014 2NL S$IDIV 0044 2 S$IMUL 0050 2*S$INT 005C 3*S$ISUB 0008 1LL *S$MAPS 01AA 5 S$NEW 01BE 6*S$OPEN 0098 4*S$PARM 01FC 7L2 S$PTCA 0278 10  *S$RTCA 0284 10 *S$SCP2`` Y 0216 7 S$SETS 0230 8 : *S$STOP 024A 9*S$WEOL 00A4 4*S$WRIT 00B0 4 : ' ' ' ' **** LINKING COMPLETED  060C 11  *W$SETK 060C 11  W$SETS 060C 11 RR *W$SKWT 060C 11  *W$SNCT 062C 12  *W$SPLT 060C 11  *W$STAT 060C 11 RR W$STOP 064C 13  W$WEOL 060C 11 *W$WIT 062C 12  W$WRIT 060C 11 R ' '$  G L O B A L S Y M B O L S $ 'R NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO  NAME  VALUE NO R 'N *S$CLOS 008C 4 S$GTCA 026C 10 *S$IADD 0000 1*S$IASC 0014 2NL S$IDIV 0044 2 S$IMUL 0050 2*S$INT 005C 3*S$ISUB 0008 1LL *S$MAPS 01AA 5 S$NEW 01BE 6*S$OPEN 0098 4*S$PARM 01FC 7L2 S$PTCA 0278 10  *S$RTCA 0284 10 *S$SCP2`EOD OSLOBJ D 666++qACTIVA `P+x`J$:ACTIVATE5ACTIVA3ENT$S 38RET$S ABACBTIBVABTEBC0CBB7FJB B,BBBB(BB/BqBBBBBB&BBB*BĆB`B7FB::  ACTIVATE 11/18/83 17:09:53  SDSMAC 3.6.0 83.111:`FILE$F `Pص+z`L$LFILE$FLA5FILE$F3ENT$S 3JRET$S ABFIBLEB$FBLABB`B@CHC7:FLJ#BBB.ABiB(BBBB*B BGB`BYC BA0BBBB,B g7FJ&BGB@BIC BBBAHB`B7{F&@:  FILE$FLA 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`PUT$RL `P$ؿ+|`LRPUT$RLRE5PUT$RL3ENT$MD3>SVC$3PRET$M ABPUBT$BRLBREBB 7WFLJ#CNCBBB4BAB(B٠C BBɩB*BBɩB,B BɩB.A0BBɩ7(FJ8B0B BB(B BB BfBB AHB)B2BB`B7%F8@:  PUT$RLRE 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`WREOF$ `P+~`L$WREOF$ 5WREOF$3ENT$MD3tWRLN$ 3PSVC$ 3fIO$ERR3RET$M A7FLJBWRBEOBF$BBB BC~CBBB*ABiB(B%BB BB,B%B7FJJ#B B BA0BBBBBBB&B%B BDBB٠AHC BBB B7{FJJ#B B&BBBB)B(A`B C B BB B B)B(BB BB AxB7FJBBB`B7QF @:  WREOF$  11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`REWND$ `Pd+`LlREWND$ 5REWND$3ENT$MD3FSVC$3ZIO$ERR3jRET$M ABREBWNBD$7FLJ#B BBBChCBBB*ABiB(B%BB#BBBfB%B BB7 FJJ#A0BBfB%B BEBB٠C BBB BAHB BfBB BOBiB(B7.FJ*B BB BiA`B(B`C BB`B7tF *@:  REWND$  11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`DELAY `P<+`JpDELAY 5DELAY 3ENT$M 3bRET$M ABDEBLABY B BBC`CB7~FJH#BB0BiB(B"BB*BBBFB,BB1BBB`EB`BBBABB7FHH#BEBBBBBB$BBBBB2BCBB7=FJH#B2BBBB(BB.B)B*BBDBBBB/BpABB2BBB0B7FH B`B7F ::  GETMSG  11/18/83 17:10:08  SDSMAC 3.6.0 83.111:`ITIME `P+`J.ITIME 3ENT$S 5ITIME 3,RET$S ABITBIMBE B BC*CBB7FJ0B*BBBB"BB/BiB(BEBFBGB`B7F08:  ITIME 11/18/83 17:10:16  SDSMAC 3.6.0 83.1118` CLS$FI `Pس+`L@CLS$FILE5CLS$FI3ENT$MD3(SVC$3>RET$M ABCLBS$BFIBLEBB7FLJ#BCSVC$3hRET$M ABGEBT$BRLBREBB 7tFLJ#CfCBBB4BAB(B٠C BBɩB*BBɩB,B BɩB.A0BBɩ7FJJ#B0BBB(B BB BfBB AHB)B2BBBB 3BBEBBB07,FJ BA`BiB2BB`B7F @:  GET$RLRE 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`SVC$ `P+`JSVC$  3ENT$S 5SVC$ ABSVBC$B BBCCBBB*BiB(7FJ B/B7F 8:  SVC$  11/18/83 17:10:44  SDSMAC 3.6.0 83.1118`READ$R `P+`L$READ$REL5READ$R3ENT$MD3PGET$RL3IO$ERR3RET$M ABREBADB$R7FLJ#BELBB0BBBBCCABBB4BB(BfBB.BBBiB.7PFJJ#A0B2BOBfBBiB2BiB*BiB,BfB AHBIB`C B BB B)B07FJJ#C BB٠CA`BBɠC BBB٠C BBB0BBAxBOBiB(B`7FJ0CBBOBiB(B`CB ABB B`B7F 0@:  READ$REL 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`TASKID `P+`J$TASKID 3ENT$S 3RET$S 3T$RNID5TASKIDABBBB0B,B:7FJ BhBB BAB(B`B7F ::  TASKID  11/18/83 17:10:49  SDSMAC 3.6.0 83.111:`OVLY$ `P+`LlOVLY$ M OVLY$C5OVLY$ 3ENT$MD3JSVC$ 3^ABEND$3jRET$M 7F LJ#ABOVBLYB$ B BBBChCBBB*ABB(B BNB C 7UF JJ#NBA*NB C NBB)B(NBA:  OVLY$ 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 >`BID `P +`HRBID 5BID 3BID$SV3ENT$S 3PRET$S ABBIBD B BBB7FHH#CNCBBB4BC BB*BBB,B)B.BiB(BB/BBBB7)FH.BB2BB+BBBBB0B BB`B73F .6:  BID 11/18/83 17:09:58  SDSMAC 3.6.0 83.1116`PUTMSG `P+`J$B BfB7$FJJ#BEBBEABBICBBCBB٠CBBB(AB CrB BfB7~FJL``J#B B)B.BB&BBAB&BBB&BB BBB B٠C!BAB7tFJJ#B(B CB BiB.B٥BBBfBAB2BiB.BBB)B0CBB)73FJJ#B2C"ABB٠C BBB(B CB B٠C!BABB(B BiB.B`7KFJJ#CB٠CBBB2A(B BiB,BBBɠC$BBBiB,BɕA@BB)7FJJ#B2C BB)B2C&BBɠC$BAXB)B2CBB&BC(B BiB,B7FJJ#BApBɠC*BBBiB,BɕBBBfBB)AB2CB BBBBɠ7FJ6C,BBɦBBABiB,BfBBɦBB$B`B7F 6@:  OPN$FILE 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @BiA B,BɕBB7FJJ#B(B BfBBB٠CBA8BB(B CB B)B*CB*BfBBAP7FJJ#BfBB!`CBBfBB BB;BB٠AhC BBB(B C>B BfB7$FJJ#BEBBEABBICBBCBB٠CBBB(AB CrB BfB7~FJL`(BOSF$ `P ر+`LBOSF$ 5BOSF$ 3ENT$MD3SVC$3CHK$L 3RET$M ABBOBSFB$ 7FLJ#B BBBBBCCCpAC~CBBB0BB*B)B(C BB٠7FJJ#A0C BBB٠CBBɠCB BB*B AHBB BfBB B&BB 47FJJ#BBEBBA`B BBB)B,BBIBBfBB 5BAxBiB,BB`7FJJ#BBfBB 5BB٠C BABɠC B BB*B CHB B!BɠC B A7xFJJ#BB*B CB BfBB BBB BAB٠CBBɠC B BB*B 7FFJJ#CB BfABBBfBB 5BBfBB B)B,BABBB(B B7FJ0B B!BBB(BBABB B'CBX7F 0>:  BOSF$ 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 >`(JDATE$ `PR+`J$|JDATE$ 3ENT$S 5JDATE$3bRET$S ABJDBATBE$B BB BdBB.7FJH#AC`CBBB8BIB!B.BAB,B`CB*B/B*BBB.Bؾ+`LPUT$RCOR5PUT$RC3ENT$MD3SVC$3RET$M ABPUBT$BRCBORBB 7FLJBB B BBCACBBB4BB(B٠C BB٠C BA0BB,7.FJJ#B BBiB*BiB,B`CBB,AHBfB%B BB BfB%B BEBBf7VFJJ#B%A`B BBBB`CB2BIB%B2BɅBAxBɠCB BB(B B7]FJJ#B BfBB"BAB,B BIB%B2BEB*B`CB,B`CAB2BɩB*7lFJJ#BBɩB,B BCBBB0ABBICBBB(B CB BfBB 7FJ AB)B.BB`B7 F@:  PUT$RCOR 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`-SCB$FR `P (+`L$TSCB$FREE5SCB$FR3ENT$MD3FFREE$ 3RRET$M ABSCBB$BFRBEEBB,7FLJ#B*CPCBBB.ABiB(BBfBB,BBBC B BA0B B7-FJ<BBiB(BUB*BBC B C.AHB BiB(BB`B7rF <@:  SCB$FREE 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`/RLSCOM `P+`J$RLSCOM 3ENT$S 3RET$S 5RLSCOMABRLBSCBOMB BCCBB7FJ B(BBB/B`B7F::  RLSCOM  11/18/83 17:10:35  SDSMAC 3.6.0 83.111:`0SUSPEN `P+`J$SUSPEND 3ENT$S 3RET$S 5SUSPENABSUBSPBENB BCCBB7@FJ B(BBB/B`B7F::  SUSPEND 11/18/83 17:10:41  SDSMAC 3.6.0 83.111:`1JULDATE `PR+`J$|JULDATE 5DATE$ 3ENT$S 3bRET$S ABDABTEB$ B BB BdBB.7FJH#AC`CBBB8BIB!B.BAB,B`CB*B/B*BBB.B:  SCB$A 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 >B A0BB'B*BBBBʉB0BC B0B AHBB BB(Bɩ7FJB6BB`B7F @:  S$NAME  11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`3STATIO `P+`J$STATIONI3ENT$S 3RET$S 5STATIO3T$STN ABBBB0B,B:7FJ BhBB BAB(B`B7F ::  STATIONI 11/18/83 17:10:37  SDSMAC 3.6.0 83.111:`EOD LUNOBJ D bXbb%$`ENT$8 `PE%`J*ENT$8 3ENT$5ENT$8 5RET$8 3(RET$M ABB-B&BlBB 7XFJ4B BB`BB)B&B)B BBiB"BéB$B`B7+F 48:  ENT$8 11/18/83 16:48:03  SDSMAC 3.6.0 83.1118`aMESAG$ `P}%`JMESAG$LU5MESAG$3ENT$MD3CUR$3BLU$MSG3dSET$LU3lREWRT$7F JJ#3WRS$T 3WRLN$ 3RET$M ABMEBSABG$BLUBBCCBBB.B 7FJJ#ABB B_BEB,B%B:BBBfBB A0B6BIC BBfBBB7MFJJ#BBBʅB*AHB BB BB BB BfBB BBA`B*B CJB 7FJJ#BB CRB BfBBBAxBʩB*B*BʩB*B,BʩB(B.B BB A7FJ$BB BB BC BB`B7F $@:  MESAG$LU 11/18/83 15:49:37  DXPSCL  1.8.0 83.357 @`EXTOUT `Pv$`J#pINIT$1 5INIT$13ENT$MD38MOV$4 3HFL$INI3TLU$OUT3\SET$LU7^F JJ#3hEXTND$3nRET$M ABINBITB$1B BB@BOUBTPBUTB C BAClC7|FJJ#BBB(BBBBC BCA0B B(B*BBBʠCB2BʠCB47FJJ#B AHBB BBC BBBʅB*B BB A`BBC B BB B`7FJ B7F $ @:  INIT$1  11/18/83 15:49:37  DXPSCL  1.8.0 83.357 @`PCALL$ `Pa$`J$LPCALL$ 3ENT$M 5PCALL$3JRET$M ABPCBALBL$B BCB#B8BB*BB*B BBAHBB`C B*BT7cFJJ#B0BBSB6BBB6A`BCB.BB.BB BBB.BBBiAxB.7FJJ#BiB.B0BBTB0BBBBBABBBBBBUB6BBB67uFJJ#BBAB6B BB*B BBYBB.B`B*BCAB,BB`BBB6BB7FJJ#B BBBBTB,ABB.B`B,BBB,BăBB"BBAB,Bb7FJJ#BB.BBȩB.BBB.BȔBAB BBB6BB.B`B,BBB,7FJJ#BăA B`C BBcB:ABBB#B BCB8BB*B"BBBB:7JFJL``J#ABB8B BB:B BBBBB8BABCB BB BB4B7)FJJ#BB8B BCAB8BB BB)B8BBiB:B8BBAB8BBC7FJJ#B CB BB4BBdBAB2BB2B#BBBBcBB2BBA7FJJ#B2BB4BBB4BFB2BB4B#BA(BŃBB4BB8B"BBɂB7FJJ#BɤBBA@BB8B#BBB2BȃBBBbBBVAXBBB2BȔB7FJJ#BBiB2BbBB BApBȖBBB`CPBB>BB*BBB(AB7FJ BBC B BB B`B7qF >:  NEW$  11/18/83 15:49:37  DXPSCL  1.8.0 83.357 >.BȔBAB BBB6BB.B`B,BBB,7FJJ#BăA B`C BBcB:ABBB#B BCB8BB*B"BBBB:7JFJL`F$XREL `PQ$`J$F$XREL 5F$RREL5F$XLR 5 F$XNGR5F$XSTRABιBƙBBzBZB7FJH#BZBBCBB[BUF$XAR UF$XCERUF$XCIRUF$XCREUF$XCRI7&FH"UF$XDR UF$XMR UF$XSR 7JF "::  F$XREL  11/18/83 16:49:00  SDSMAC 3.6.0 83.111:`SET$LU `P߁$`L$&SET$LUNO5SET$LU3ENT$S 3$RET$S ABSEBT$BLUBNOBC"CBB7FL*B,BB(ABfBBiB+BB`B7F *@:  SET$LUNO 11/18/83 15:49:37  DXPSCL  1.8.0 83.357 @`LU$MSG `Pb\$` LU$MSG 6:  INIT$ 11/18/83 15:49:37  DXPSCL  1.8.0 83.357 >AB`CBB`CBB`CBHBBJBABLBBC B Cv7FJJ#B BiBIBBBJABBiBJBBBeBBB`CBBABB7FJJ#BCB B(B*BBBʠCB2ABʠCB4B BB BB BB B7FJJ#C"ABʠCB*B BB BB B C$BB A BB B)BFBB8B7FJJ#B BBC&B%A8BB%BB$BBʄB*B BB BB*APB BB7FJ`PPARM$ `Pb$`<PPARM$ 5PPARM$ABBB&BB B B7BLBB[7F <::  PPARM$  11/18/83 16:51:15  SDSMAC 3.6.0 83.111:`C$FTN `P:$`J^C$FTN 5 C$FTN 3VT$TIB ABC$BFTBN CB BWB B"B B CB;7FJH#BBBBB C B BB B4B BB)B$BB$BƩB B`CB B7FH.CJBjB"BZB BLB$BHB C&BB4B[7F .8:  C$FTN 11/18/83 16:47:03  SDSMAC 3.6.0 83.1118` FTN$TP `PX$`J$HFTN$TP 3FF$XRER5FTN$TP3T$TIB ABFTBN-B>TBIPBB(C>CBJ7tFJH#B`BB¡B4BB4BB BCB B BB@B"BNB$BAB&BB&B 7FH BJB4B‰BB7HF ::  FTN$TP  11/18/83 16:50:45  SDSMAC 3.6.0 83.111:`!OPN$FI `P߀$`LOPN$FILE54OPN$FI36ENT$MD3SVC$3RET$M ABOPBN$BFIBLEBB7XFLJ#BBBBBBABBBBBBPBBBBBBA0CC7 FJJ#BBB4BB(B)B0CBBIAHC BBCBBBIC BBC 7 FJJ#BA`BICBBCBBB*BBCBAxBB)B0C BBIC7FJJ#BB)B*CB AB)B0CBBICBBCBBBABB B7kFJJ#BB٠CBBBB9BB*ABBICBBBCBBiB,BB7FJJ#ABICBBCBBBICBBiB,ABB BBBiB,BɕB7FJJ#BBB٠CABBB(B BB BfBB BBcBA BiB,BɕB7FJJ#BB(B BfBBBfBA8BBɠC BBB٠CBBB(B CAP7FJJ#B B)B*CB*BfBBBfBB!`CAhBBfBB BB;BB٠C 7 FJJ#BBB(AB CNB BfBBEBBEBBICBABCBB٠C7FJL``J#BBB(B CB BfABB B)B.BB&BBBBBB&AB7FJJ#BB&BB BBB B٠CBBAB(B CB BiB.B٥BBBf7FJJ#BB2ABiB.BBB)B0CBB)B2C BAB٠C BBB(B 7FJJ#CB B٠CBBA(B(B BiB.B`CB٠CBBB2B A@BiB,7FJJ#BBBɠC"BBBiB,BɕBAXB)B2C BB)B2C$BB)B2C&7|FJJ#BApBɠC"BB)B2CBB&BC(B BiAB,BBBɠC*BB7FJJ#BiB,BɕBBABfBB)B2CB BBBBɠC,BABɦBB7kFJJ#BBB BiB,BBBɠC.ABBBiB,BɕBBiB,BfBBɦB7FJAB$B`B7PF @:  OPN$FILE 11/18/83 15:49:37  DXPSCL  1.8.0 83.357 @B*BfBBBfBB!`CAhBBfBB BB;BB٠C 7 FJJ#BBB(AB CNB BfBBEBBEBBICBABCBB٠C7FJL`"ENT$15 `PL$`J *ENT$15 3ENT$5ENT$155RET$153(RET$M ABB-B&BlBB 7 FJ4B BB`BB)B&B)B BBiB"BéB$B`B7F 4::  ENT$15  11/18/83 16:48:38  SDSMAC 3.6.0 83.111:`$F$XFTL `PrN$`*F$XFTLDX5F$XFTLAB/CB@B7F *::  F$XFTLDX 11/18/83 16:48:48  SDSMAC 3.6.0 83.111:`%ENT$11 `PH$`J *ENT$11 3ENT$5ENT$115RET$113(RET$M ABB-B&BlBB 74FJ4B BB`BB)B&B)B BBiB"BéB$B`B7F 4::  ENT$11  11/18/83 16:48:18  SDSMAC 3.6.0 83.111:`'ENDPROG `P=$`J$ENDPROG 3ENT$2 5P$TERM3RET$2 ABP$BTEBRMB BBCCB7FJ BB(B/C B`B7F::  ENDPROG 11/18/83 16:47:24  SDSMAC 3.6.0 83.111:`,FIND$S `Pw$`L$"FIND$SYN5FIND$S3ENT$S 3 RET$S ABFIBNDB$SBYNBBCCB7XFL$BB,BAB*BՠC B`B7F $@:  FIND$SYN 11/18/83 15:49:37  DXPSCL  1.8.0 83.357 @`-ENT$ `P 0?$`HENT$  3ABND$15CUR$$ 5ENT$5ENT$2 5ENT$M 5ENT$S 7F HH#3xMARG$N54PATCH$5RET$2 5RET$M 5RET$S AB-B&BBlBB 7ZFHH#B BBMB"BNB$BBB-B&B)B$BLB&B‰BB+B B0BB[BDX7FHH#BPSBCLBRTB (BC)BCOBPYBRIBGHBT BTEBXABS BINBSTBRUBMEBNTBS BINBCOBRP7FHH#BORBATBEDB, B19B78B.ArB,B2B` BB BB B0BBMB"BNB$BI7FHH#BËBB‰BBB`BBB-B&BLB&BB$B‰BBB)B&B[B)B&7?FH"B)B BBiB"BéB$BB7-F "8:  ENT$  11/18/83 16:47:26  SDSMAC 3.6.0 83.1118`@ENT$2 G-@@GENT$M 2-@@2ENT$S -@.ALLOC$ `P9$`J$DALLOC$ 3ABND$25ALLC$$5ALLOC$3,MARG$NAB B;B B)B&B7FJH#BGBBBBBB`BBBB B0BB,B2Bb BB BB B0B 7zFH BcB[BbBBB7F::  ALLOC$  11/18/83 16:46:54  SDSMAC 3.6.0 83.111:`@ALLC$$ .@/CKTOP$ `P =$`J$,CKTOP$ 3*ABND$05CKTOP$3MARG$NABB)B&BB B B0BB,7FJ.B2Bb BB BB B0B[BbBBB`B7YF .::  CKTOP$  11/18/83 16:47:17  SDSMAC 3.6.0 83.111:`,ENT$9 `PF$`J*ENT$9 3ENT$5ENT$9 5RET$9 3(RET$M ABB-B&BlBB 7SFJ4B BB`BB)B&B)B BBiB"BéB$B`B7'F 48:  ENT$9 11/18/83 16:48:08  SDSMAC 3.6.0 83.1118`1GET$ME `PtY$`J$GET$ME 5GET$MEABGEBT$BMEBM BB0BB6CCBBB$B C 7FJH#B,BhB(B!BB QBB.B/B,BB(B-B BBBB CB,BB.7FHH#B/B,BBBBB&BB8B#BBdBBDBBEBBBBBB7kFHF"B.B/B,B(B-BB WBGBBBBBB*BĉBB ABBBB7F F::  GET$ME  11/18/83 16:50:52  SDSMAC 3.6.0 83.111:`3ENT$7 `PD$`J*ENT$7 3ENT$5ENT$7 5RET$7 3(RET$M ABB-B&BlBB 7]FJ4B BB`BB)B&B)B BBiB"BéB$B`B7/F 48:  ENT$7 11/18/83 16:47:58  SDSMAC 3.6.0 83.1118`4C$RFTN `P<$`J$BC$RFTN 5C$RFTN3*F$XREC5.R$RFTN36T$TIB ABC$BRFBTNCB B7FJH#B B4B BB)B$B`C,B$BB B`CB B`BBBLB$BHB C 77FH BB4BGB B[7F ::  C$RFTN  11/18/83 16:47:09  SDSMAC 3.6.0 83.111:`9FTNIO `P$`PDFPINIT M6$DATA 3ENT$2 3.F$XPREWFIOWP$5P$INIT7F PP3RET$2 ABFPBINBITB BCCBBB0B CB`BTC B T07KF PPBT2BT4BBBFTBN BIOB`T0BàT2BT4BSS S0S2S47_F PP: FPINIT 11/18/83 16:33:53 SDSMAC 3.6.0 83.111 PH&FPTERMLU3ENT$S 3 F$RSTO3FIOWP$5P$TERMABFPBTEBRMB BC7FH,CBBB(B CBBCB BBB7F ,:: FPTERMLU 11/18/83 16:50:42 SDSMAC 3.6.0 83.111: B B`CTBTFBBBTF SCIPROCSPPT TB T B`CB`CB B T B`CT T4B TB,B*BB2A0BBeB(BB9B-B:B.7FJJ#B/B)B0B1AHBCCCNCVCrCCCCCBCA`BBBBPBD7LFJJBB@BBSTBACBK BUSBEDAxB =B BB BB HBEABP BUSBEDB =B A7FJJB B CnBBB"B&BB CCCABBBBBBB(BB`7FJJ#CB)B(ABdB:B%BB C BB)B(BBB6B6B`C@AB6B2BB2BB`CB7FJJ#B6B+B`CDB6AB'B`CFB6B`CBBB B C&B ACB4B 7FJJ#B CHB B C*B C,B B AC.B BB B`C B>B B$B>BDB7`FJJ#A(BBeB B6BiB6BB`C^BB`C`A@BBBB B CbB%BB%7lFJJ#BB%BB AXBB BiBBBBBBB)BCdBApB`CdBBB 7FJJ#B)BBBBCB BB BAB)BBBBBBBB B$BCBDBBA76FJJ#B0BB`CB)BCdBBiBBBABBB B CfB)BB C7TFJJ#BB`CdABB)BB$BBDBBBBCfBACdB CB B7WFJJ#B B ChB)BB B&ABHB BB5BB$B@BDB4BBHC AB7FJN``J#BB@B BB BBB CjBB)A0BB B CfB BB BB@B 7-FJJ#C B AHBBBBBB CjBB)BB B A`ChB C:B BB@7FJJ#B CDB BBBAxB)B0ClBB)B2B DBBB BB'ABB 7_FJJ#B(BDB B BBBiBBBB&ABHB BB&BB$B@BDB4BB7FJJ#C ABBB0B BB)B(B C B BB ABB(B BB B B7sFJJ#B B)B4BI C ABBB@B BB BCB B(BB AB BC7PFJJ#BiB(B%B0Ba%B.BDB.B`A CB,BBBChBCBBC(B7FJJ#A8BC*BCdBB BB B`CB,BAPB B ChB ClB B C(79FJJ#B B C*B AhCBB8B#BB BB B ChB CAB CB B.7VFJJ#B BB BBDB(BdB:AB`CdBBBB B CbBB C^B C.A7@FJJ#B CXB BB B CfB)BBB CB AB B$BCBDBB`CB B`7FJN``J#C.BB`AC^BBCBʠCB*B CB B)B(ABB:BcBB7FJ0B CB B)B(BB:AB BB B`B7F 0>:  TERM$ 11/18/83 15:49:37  DXPSCL  1.8.0 83.357 > DBBB BB'ABB 7_FJJ#B(BDB B BBBiBBBB&ABHB BB&BB$B@BDB4BB7FJJ#C ABBB0B BB)B(B C B BB ABB(B BB B B7sFJJ#B B)B4BI C ABBB@B BB BCB B(BB AB BC7PFJJ#BiB(B%B0Ba%B.BDB.B`A CB,BBBChBCBBC(B7FJJ#A8BC*BCdBB BB B`CB,BAPB B ChB ClB B C(79FJJ#B B C*B AhCBB8B#BB BB B ChB CAB CB B.7VFJJ#B BB BBDB(BdB:AB`CdBBBB B CbBB C^B C.A7@FJJ#B CXB BB B CfB)BBB CB AB B$BCBDBB`CB B`7FJN`;ENT$14 `P,K$`J *ENT$14 3ENT$5ENT$145RET$143(RET$M ABB-B&BlBB 7%FJ4B BB`BB)B&B)B BBiB"BéB$B`B7F 4::  ENT$14  11/18/83 16:48:33  SDSMAC 3.6.0 83.111:`>ENT$10 `P/G$`J *ENT$10 3ENT$5ENT$105RET$103(RET$M ABB-B&BlBB 79FJ4B BB`BB)B&B)B BBiB"BéB$B`B7#F 4::  ENT$10  11/18/83 16:48:13  SDSMAC 3.6.0 83.111:`>F$XTRM `P2rR$`*F$XTRMDX5F$XTRMAB/CB@B7F *::  F$XTRMDX 11/18/83 16:49:03  SDSMAC 3.6.0 83.111:`@LU$IN `P5`]$`LU$IN 6=LU$IN 7F8:  LU$IN 11/18/83 16:51:04  SDSMAC 3.6.0 83.1118`AENT$3 `P8@$`J*ENT$3 3ENT$5ENT$3 5RET$3 3(RET$M ABB-B&BlBB 7qFJ4B BB`BB)B&B)B BBiB"BéB$B`B7?F 48:  ENT$3 11/18/83 16:47:39  SDSMAC 3.6.0 83.1118`BP$UC `P;f`$` P$UC  5P$UCAB7F 8:  P$UC  11/18/83 16:51:09  SDSMAC 3.6.0 83.1118`DINIT `P>$`@J:  INIT$ 11/18/83 15:54:26  DXPSCL  1.8.0 83.357 >HABBJBBLBʉB(7FJJ#BC B(B C|B AB۩BIBBBJBB˩BJBBBۮBABB۠7FJJ#CBBBBʏB(BCB B(AB*BBBʠCB2BʠCB4B B7FJJ#B ABʎB(B BB BʠC"B(BʠCB*B A BB BʉB(BC$B(7FJJ#BB*B BB A8BiBFBB8BB BʉB(BC&B(BnAPBBnB7FJ`EP$TERM `PD_$`J$P$TERM 3ENT$2 5P$TERM3RET$2 ABP$BTEBRMB BBCCB74FJ BB0B/C B`B7F::  P$TERM  11/18/83 16:51:06  SDSMAC 3.6.0 83.111:`DS$GTCA `PGVd$`D!S$GTCALU5S$GTCA5S$MAPS5S$OPEN5S$WEOL5S$WRITAB@7nFD::  S$GTCALU 11/18/83 16:51:27  SDSMAC 3.6.0 83.111:`@VS$OPEN (F@@%S$WRIT aF@@`S$WEOL &F@@$S$MAPS F@DP$MAIN `PJ$`@PP$MAINLUM2$DATA 3~ABND$06+BID$SVXVDSTR$$3lENT$ 7F PP5`ENT$1 X8GO$ XMESAG$X MM$DIR5P$MAINXP$TERM7!F PPXPSCL$$5nRET$1 6 T$CC 6 T$EC 6T$ENTR6T$ES 6T$INID7sF PP6 T$MDIR6T$MFD 6T$MN 6T$MSE 6T$MSG 6T$RNID6T$STN 7MF PP6"T$TERMWT$TIB 6T$TRM 5T$VEC 6T$VT 6T$WP X"TERM$ 7*F PPATCCDBTBBB TB CBB2BBBCBBC6T2TB7EF PPC6TZTBTBB{BBBBB[BB/T(B T)B B`T*BàT,7F PPBT.B`BB BB TB BB`BBBBCnBB TB`BS7F PPTBSSSSTTBBBBSSBBBBBBBB7oF PPT,TT&BTTS2SSBCSTBBBBBBBBBB7F PBBBBBB``>T:BBBBBT8T:TBS.TTBBB7F >PTS:SLT:TZSHTSTT"BBSZSBBT,T,ST,T&T&B7F PPBSBSSSBBBBBBBBBBBBBBBB7F PPBBBBTSTSTT&S TBSB PB$MBAIBN BTTB7F PPBB(BS$TS(B/BBBBV PROB$ 27F PP: P$MAINLU 11/18/83 17:02:11 SDSMAC 3.6.0 83.111 PEF PPC6TZTBTBB{BBBBB[BB/T(B T)B B`T*BàT,7F PPBT.B`BB BB TB BB`BBBBCnBB TB`BS7F PPTBSSSSTTBBBBSSBBBBBBBB7oF PPT,TT&BTTS2SSBCSTBBBBBBBBBB7F PBBBBBB`HMAIN `PWP)N{$`@P/MAIN M2$DATA F MAIN PP25ABEND$5ABND$05ABND$15ABND$26+BID$SV5bCLOSE$5CLS$ F MAIN PP50CLS$FI5fCMP$ST5CREAT$5CUR$ 5CUR$$ 5DIV$ 5VDMPP$HF MAIN PP5 DSTR$$5 ENC$T 5 0ENI$T 5 dENS$T 5>ENT$ 5`ENT$1 5.ENT$2 F MAIN PP5HENT$M 5ENT$MD5ENT$S 5ENX$T 5EOLN$ 5FL$INI5FREE$ F MAIN PP5HEAP$T4INIT$15IO$ERR4LU$IN 5MARG$N4MESAG$4MM$DIRF MAIN PP5.MOV$4 5,MOV$5 5*MOV$6 5(MOV$7 5&MOV$8 5 MOV$N 58MSG$ F MAIN PP5`NEW$ 5OPEN$ 5OPN$FI58P$ABND5P$CMSG4P$INIT4P$TERMF MAIN PP5bPATCH$4PB$INI4PB$TERUPM$IO UPM$TIOVPROB$ 5 PRT$MEF MAIN PP4PSCL$$5#RPUT$RC5#PUTCH$5$RESUM$5nRET$1 5RET$2 5RET$M F MAIN P5RET$S 5$,REWND$``>5$REWRT$5%8RSUMR$5%SET$LU5%SET$NA5%STACK$F MAIN >P5%SVC$ 6 T$CC 6 T$EC 6T$ES 6T$INID6 T$MDIR6T$MN F MAIN PP6T$MSG 6T$RNID6T$STN 6"T$TERMWT$TIB 6T$VT 5+*TX$ERRF MAIN PP5+WRC$T 5,`WREOF$5,WRI$T 5-WRLN$ 5.2WRS$T 5.WRX$T ATCCDBF MAIN PPTEBB TB CBB2BBBCBBC6T2TBC6TZTBTF MAIN PPBB{BBBBB[BB/T(B T)B B`T*BàT,BT.B`BB BF MAIN PPB TB BB`C>BBBCnBB TB`CBBABBENBD$B BCBʀF MAIN PPB(BƋB CB BÀBCB*B`CBB)B(BBBB`BBC6CBF MAIN PPCBBBBB0BCCpBCF MAIN PPB:BB*B BBB*BB B CzBB CB B)B*BB C%B BBF MAIN PPBDB6BBB,BC|B C`B BB B C~B)B6B BB B CzB)B.F MAIN P6B CB B)B,BBaBB0B^B)B,BTB CB BBD6``B2BBB BF MAIN PBC B)B2BB,BB)B0BBDB"BiB(B$BB(B`CB*BB,BiF MAIN PPB0B.BDB0BB0BB6BCB2B)B0B)B(BB0BiB0BB)B6BDBF MAIN PPBBBBDB8BFB8BBB BBBBB)B0B$BBDBBB)B,F MAIN PPBB&BC BDBBB2BcB&BBB)B,BB`CBBCB0BLB(F MAIN PPB`CBBB B BBB=B[B B=BB[BB B BB=BBB[B F MAIN PPB=BB[BBB`CBBB-BBCBBB CB BBBʀB(B F MAIN PPCB BDMBPPB$HBEABBBB**B* BDUBMPB OBF BHEBAPB *B**C:BC>C,F MAIN PPBCB6BBBB@B C-B BBB@BC6BC8BCNB C.2B BF MAIN PPB@B C-B BB(B#B8BB4BB(BCBCB*BCB,BB,BB4BGBF MAIN PHBDCPBBB,BB,BB.BBBBB.BBB4BGBBDCPBBB,BF H``MAIN PBBBBB,BBB*BB)B4CPB%B`CPB4BdBB0BiB0BUB*BB*B F MAIN PPBBB BBJBB*BSB2BBB*B`BBCB2BB2B BBiB2B*F MAIN PPBB`CBB*BBCB,BB*BB2BBBB*BBBBB.BB BBB F MAIN PPBBBeBB.BB,B BB.B BBBeBB*BiB*B.BB@B C-F MAIN PPB BBB,BB.B C B BBB0BcBB0B)B0BBB`CBDUBMPF MAIN PPB$PBROBBBBB *B**B DBUMBP BOFB PBROBCEBSSB *B**CBB PBROBCEF MAIN PPBSSB RBECBORBD BFOBR CB BB B BENBTRBY BPOBINBT C BB8B B TF MAIN PPBOPB OBF BSTBACBK C B *B**B EBNDB OBF BPRBOCBESBS BDUBMPC0CCBF MAIN PPCB:BBB`CB6BiB(B,B CB B_B.BB@B C-B BBB@F MAIN PPBCBCBCB C.2B BB@B C-B B)B,BiB,B.BB C%B F MAIN PB_BE``JB0B%BB"B%BB$B$B&BB@B C-B BBB@BCBBF MAIN JPCB C.2B BB.BSB8BB8BCBCB2BSB2B BBB@BCBCF MAIN PPBB2BBBB@BCBC BCB C.2B BBB@BCBCBF MAIN PPBCB C.B BB@B C-B BB,B#BB B EBNTBRYB PBOIBNTCjF MAIN PB2BBLEBVEBL=C|C jC ``8BCHB@BBB)B(BB,BBdB,B>BBdF MAIN 8PB"B>BB4BB`C*B4BBB4BB>BcBB.BiB>BʯB@B(B C-F MAIN PPB BʯB@B(BʠC,B*BʠC,B,BʠCBC@BB B BʯB@B(BʠC@B*BʠC@B,BʠCHB.B BʯB@F MAIN PPB(B C-B B%B$C(BBB"BB>BBBBB#B>BCBB(BʩBB BiBBCzBB8B C.2B BʯB@B(BʠC>B*BʠC@B,BʠF MAIN PPCB.B BʯB@B(BʠC*B*BʩB6B,B C,B BʯB@B(B C-B BiBBC BB:BB`CB`CBENBC$BT B BBB C C nBCBB=BUB0B:BB*BB`C xB*BiB,BB)B*BF MAIN PPBDB4BDB0B&BiB4B0BiB,BBiB0BBEB:BFB:BBiB(BFB`F MAIN PPC {BBBBiB(BiB0BiB3BBB6BiB0BB)B,BBB`C vB6F MAIN PB`C \B6BiB.BBUBTBUB2BQF MAIN PPBB,BNBMBiB*B,BBBiB,B*BiB.BB)B*BBDB8BDB2B7F MAIN PPBiB8BEB2BaiB,BEB8B)B.BBEBB)B:B B BDBBB BF MAIN PPB`CBBiBB%B0B)B8B B BB@BB8B)B,BBiB8B*BiB*F MAIN P B8B B Bi ``DB8B BIB%BB#B8BF MAIN PPB*BB*B BBBB`CVB*BTB0BBSB6BBB6BCB.BB.BF MAIN PPB BBB.BBBiB.BiB.B0BBTB0BBBBBBBBBF MAIN PPBBUB6BBB6BBB6B BB*B BBYBB.B`B*BCB,BB`F MAIN PPBBB6BBB BBBBTB,BB.B`B,BBB,BăBB"BBB,BbF MAIN PPBB.BBȩB.BBB.BȔBB BBB6BB.B`B,BBB,BăB`F MAIN PPCXBBcF MAIN PPB:BBB#B BCB8BB*B"BBBB:BB8B BB:B BBBBF MAIN PB8BBCZB C``>B BB4BBB8B BCB8BB BB)B8BBiB:F MAIN >PB8BBB8BBCZB CB BB4BBdBB2BB2B#BBBBcF MAIN PPBB2BBB2BB4BBB4BFB2BB4B#BBŃBB4BB8B"BF MAIN PPBɂBBɤBBBB8B#BBB2BȃBBBbBBVBBB2BȔBBF MAIN PPBiB2BbBB BBȖBBB`CBB>BB*BBB(BBBCXB F MAIN PPCB B`CBOPBENB$ B BB0B.BBBBBBB,CvCBCB2F MAIN PPBiB(B%BB BBBB(B CbB BBBB`CvB%BBBB BF MAIN PPB(BB'BB B(B*BC.B C%B B%BB B BBBB0BBeB F MAIN PPB0BB%BB)B*B B CB B CBBB B BB CB BiB.BF MAIN PPBBeB B0BBBB*B BB*BB`CBB+B`CBB'BB)B(F MAIN P$BB CB BBB B`CBBB$``,B٠CBBB C%B B%BCB F MAIN ,PBB*BB`CBBB`CBB`CBBeBB,BBeB B0B&BB,F MAIN PPBBBCB CB BiB0B B%BB B BDBBeB B0BBBeB F MAIN PPB0BB B CB)B0B C`B BiB,BBBB%B BBDBB`CBOPF MAIN PPBN$BFIBLEBBBBBBBBBBBBBBPBBBBBBF MAIN PPCdCzBCB4BB(B)B0CBBICBBCBBBICBBCF MAIN PPBBICBBCBBB*BBCBBB)B0CBBICBB)B*F MAIN PPCB B)B0CBBICBBCBBBBB BBB٠CBBBF MAIN PPB9BB*BBICBBBCBBiB,BBBICBBCBBBIF MAIN PPCBBiB,BB BBBiB,BɕBBBB٠CBBB(B C%B BfF MAIN P6BB BBcBBiB,BɕBBB(B BfBBBfBB6``BɠCBBB٠F MAIN PCBBB(B C%B B)B*CB*BfBBBfBB!`CBBfBB BF MAIN PPB;BB٠CBBB(B C%B BfBBEBBEBBICBBCBB٠F MAIN PPCBBB(B C%B BfBB B)B.BB&BBBBBB&BBB&F MAIN PPBB BBB B٠CBBB(B C%B BiB.B٥BBBfBB2BiB.F MAIN PPBBB)B0CBB)B2CBB٠CBBB(B C%B B٠CBBB(F MAIN PPB BiB.B`CB٠CBBB2B BiB,BBBɠCBBBiB,BɕBF MAIN PPB)B2CBB)B2CBB)B2CBBɠCBB)B2CBB&BCB F MAIN PPBiB,BBBɠCBBBiB,BɕBBBfBB)B2CB BBBBɠF MAIN PPCBBɦBBBBB BiB,BBBɠCBBBiB,BɕBBiB,BfF MAIN PHBBɦBB$B`CBCB(B,B:BBBKBB[BP$BCMBSGB BCC|F H``MAIN PBC.BBB:BgB BiB-B BCB)B(BiB*BJBBBCBBF MAIN PPCJBB,B!C 2BBiB2BC B B`CBBMBBBDBBBBBF MAIN PPBBBBBBBCBDBB BB B BBBBB.BBB[BKBBF MAIN PPB)B.BB BGB4B/B4B B B5B@BJBBBBC 4BCJBiB*BF MAIN PPC BBBB[BKB@BBrBFBBB BGBHBiBDBC BLBFBSB)BHF MAIN PPBPBOBC IB BB)BHBBPBBܠC JBBBC GBBܴBB)BHBF MAIN PPBBiBHBB BGB:BÉB.BB?1B *B**B ?B;\B BPRBT$BMEBM BF MAIN PBB,``JB(B0BB.B@B)BBPBB BSABMEB ABS BLABSTB LBINBE C lC F MAIN JPC LBCBRBBBB:BiB(B,B)B*BBDB4BB0B)B,B BB4F MAIN PPB BBB`CB&B@BB BC#BB&B@B C VB C TB B C XB C.F MAIN PPB BB&B@B C TB C ZB C+B BB&B@B C VB C TB B C \B C.F MAIN PPB B&B@BB)BC#B)B,B$BBDB2BB BB4B BB Ba)B4BF MAIN PPBBBBB8BCB:BiB4B2BiB,B6B)B2Ba)B6BDB8B)B,B BF MAIN PPB2B BBBB&B@B C ^B C TB)B,B C.B BB,BB0BBBF MAIN PPBiB8BPBEBPBB)B6BBBB BCBBB B)B4B BBB)B,BF MAIN 8PB6BB BBCfBB`C fB,B`C fB0BB)B6B$BBBCB>B BF MAIN PPB,B BB=B&B@BB BC#BBB@BC VBC TBDBPBBC hB F MAIN PPC.B B&B@BB-BC#BB&B@B C VB C TBB,BBCBPB B C hF MAIN PPB C.B BB&B@B C jB4B C B C.2B BB@B C-B B`C BBF MAIN PPB,BBB B BʌB(B B C-B BB,BBB,BB,BBBBBF MAIN PPB[BPUBT$BRCBORBB BB B B BC$C#8BCB4BB(B٠C#CBB٠F MAIN PPC#EBBB,B BBiB*BiB,B`C#GBB,BfB%B BB BfB%B BEF MAIN PPBBfB%B BBBB`C#HB2BIB%B2BɅBBɠC#@B BB(B C%B F MAIN PPBfBB"BB,B BIB%B2BEB*B`C#@B,B`C#JB2BɩB*BBɩB,B F MAIN P*BC#LBBB0BBIC#LBBB(B C%B *``&BfBB B)B.BB`CBREF MAIN &PBWNBD$B BBBC$C$BCB*BiB(B%BB#BBBfB%B BBF MAIN PPBBfB%B BEBB٠C$%BBB C%B BfBB BOBiB(BB CB F MAIN PPBiB(B`C$'BB`CBREBWRBT$B BBC$C$BCB*BB(BOBiB(F MAIN PPB`C$B CB BiB(BBBBB(B C$,B BiB(BBB BfBB F MAIN PPB BEBBB(B C,`B BBB`CBREBSUBM$B BC%4C$B-B&BB F MAIN PPB"BB$BB&BB(BBB(BB(BkB"BëB$BB&BMBBChB,F MAIN PPB:B BBBCB0BlB(B(B`CBSCBB$BFRBEEBB,B*C%C%HBCF MAIN PPB.BiB(BBfBB,BBBC%RB CB BBBiB(BUB*BBC%TF MAIN PPB CB BiB(BB`CBSEBT$BLUBNOBC%C%BCB,BB(BfBBiF MAIN PB,B*BB2BBeB(BB9B-B:B.B/B)B0B1BC&C'F MAIN PPC'DC'LC'hC'vC'C'C'C'BCBBBBPBDBB@BBSTBACBK BUSBEDB =B F MAIN PPB B B B HBEABP BUSBEDB =B B B C&dBBB"B&BB C&C+ C%BF MAIN PPCBBBBB(BB`C*~B)B(BdB:B%BB C&BB)B(BBB B C& B C&"B B C&$B CB B`F MAIN PPC%B>B B$B>BDBBBeB B6BiB6BB`C&TBB`C&VBBBB B F MAIN PPC&XB%BB%BB%BB CB BiBBBBBBB)BC&ZBB`C&ZBBF MAIN PPB B)BBBBCB BB BB)BBBBBBBB B$BCBDBBB0BF MAIN PPB`C)B)BC&ZBBiBBBBBB B C&\B)BB C8BB`C&ZBF MAIN PPB)BB$BBDBBBBC&\BC&ZB C8B BB B C&^B)BB B&F MAIN PPBHB BB5BB$B@BDB4BBHC&BBB@B C-B BBB C&`BF MAIN PPB)BB B C&\B C.2B BB@B C-B BBBBBB C&`BB)BF MAIN PPB B C&^B C.2B BB@B C-B BBBB)B0C&bBB)B2B DBBF MAIN P B BB'B ``DB B(BDB B BC BiBBBB&BHB BB&BB$B@BDF MAIN DPB4BBC&BBB0B BB)B(B C&B CNB BB(B CVB B F MAIN PPEB B)B4BI C&BBB@B CbB BC&B B(BB B BC BiF MAIN PPB(B%B0Ba%B.BDB.B`C&B,BBBC&^BC&BBC&BBC& BF MAIN PPC&ZBB C 0B B`C&B,BB B C&^B C&bB B C&B B C& B C&BF MAIN PPB8B#BB BB B C&^B C&B C8B B.B CB BBDB(BdB:B`F MAIN PPC&ZBBBB B C&XBB C&TB C&$B CB BB B C&\B)BBB C8B F MAIN PPB B$BCBDBB`C&B B`C&$BB`C&TBBC&BʠC%B*B C8B B)F MAIN PPB(BB:BcBBB CbB B)B(BB:B ChB B`CBTXB$EBRRB BF MAIN PPB2BB,B.B BC+C+BC.BLU$OUT7F::  LU$OUT  11/18/83 16:51:05  SDSMAC 3.6.0 83.111:`IFL$ITP `P).b%`@PFL$ITP M$DATA F FL$ITP PP4ABND$04ENT$2 5 F$FITP5F$RRELVF$XAD 50F$XAR 5nF$XCDEF FL$ITP PP5jF$XCDI5F$XCED5F$XCER5F$XCID5F$XCIR5fF$XCRE5bF$XCRIF FL$ITP PPVF$XDD 5F$XDR VF$XLD 5F$XLR VF$XMD 5F$XMR VF$XNGDF FL$ITP PP5F$XNGRVF$XSD 5(F$XSR VF$XSTD5F$XSTR4FL$ERR5FL$ITPF FL$ITP PPUPM$FLTVT$TIB ABFLB$IBTPB BBE BC$CBB&BȍB,BF FL$ITP PPBB$BɂB&BBBɂB6BB@BBB BABBBABB BMBBBBBF FL$ITP PPBBB BBB@BBBBBB BB@BBBBBBB BBF FL$ITP PPBkB~BB~BBB"BBBCBBB @BC0BBBB aBABB BMBF FL$ITP PPB BC0B C~BBSBBSBBBB RBBBBBAB?BB B BBABF FL$ITP PB BMB @BC0BA``>BB~BBB'B,BC~B-BB BBABB BMBF FL$ITP >PBCBBBBB@BBBBB BBBBBBB&BB,BB@F FL$ITP PPBB BABBBBB~B[BQBBB~B[BBBB&B&B,B4B BɁF FL$ITP PPB(BɎB*BɦB6B,BEB6B`E BBB`EB C0CC(CCF FL$ITP PPCCCvECEEEEECbCjCECfCnCCF FL$ITP PPCvCvCvCvCvCvC$C$BBBBBBBBBYBBBBBiBF FL$ITP PPBBB4BBGBBB@BABBBBBHBBBBB&BBBBF FL$ITP PPBpABBBFBBBBBB @BB BB ABBBBBBЁB@BBBƀF FL$ITP PPBʁBBBBʂBBBB BBBBBBBBBBBkBBBF FL$ITP PPBBBBBBBBBBBBiBBBBpBBFBB&BB?BF FL$ITP P$B&B BBBB&BBB@BBB$``,BBBFBBBBЁB@BBBF FL$ITP ,PB B BBB BB ABB BCB @BB BƂBBBBBBB@BBBF FL$ITP PPBBBBABBBBBBƁBʂBBB BBB BBBBBBBF FL$ITP PPBBBB[BBB( C&BBBiBBBBBB@BBEBBBBF FL$ITP PPB)BBBтBBFBBBpABBBЃBpBBBB8B B(B(B(B(B(CF FL$ITP PPB(B)B)FB)BBaFBEBBB$BeCBB BBBBBB CBB BF FL$ITP PPB BBBBBBpBBBBBpBBBBBBB BBB BBF FL$ITP PPBBB BFBGBBBBBBBBBBBBBBBB B CBF FL$ITP PPB BB"BBBB@BABBBBBBBBBBBBBBB)C&F FL$ITP PPBBBCBBBBBBBDBBB BBB BB CBBBBBBBDF FL$ITP P6BBBЄBBƂBʃBBEBBBBBBB@BBB6``BBB[BBF FL$ITP PBBBBB9BBB`CB9BB)BBBBBGBBBBB B F FL$ITP PPBBBB(BBBBB:B:BB*BBBB B BBB BBBF FL$ITP PPBBBBB7BLBBBB=BBBB9BaBBB`BBBBBF FL$ITP PPB9B`BBB`BBBBGBB BBBBBBBBBBBBF FL$ITP PPBBBBBކBBBB BކBBBBB*BBBBGBBBjBF FL$ITP PPBBB2BBBBBBB ABBBBB BBBB @BIBUBѥBBBFBBaF FL$ITP PPB'B@BB B BB+%BBBB CBƀBʁBBBBBBB BB@F FL$ITP PPBBBBBB BBB[BBBCBBBDBBBB9B)BB8BF FL$ITP PPBBBB*BB8)BBBBB8BBBBB#BBBCBBЙBBBF FL$ITP PHBBB#BBBHBBB FBB BB GBBBBBBHBBBшBF H``FL$ITP PB(BBBCBƆBʇBBBBBBBBB@BBBBBB[BιF FL$ITP PPBƙBBzBZBBZBBCBB[BIFL$ITP IF$FLT IbF$FIX F FL$ITP PPI&F$PASR IF$XDR IF$XMR IF$XREL F FL$ITP PP: 11/18/83 17:24:21 SDSLNK 3.6.0 FL$ITP PF FL$ITP PPBBBBBކBBBB BކBBBBB*BBBBGBBBjBF FL$ITP PPBBB2BBBBBBB ABBBBB BBBB @BIBUBѥBBBFBBaF FL$ITP PPB'B@BB B BB+%BBBB CBƀBʁBBBBBBB BB@F FL$ITP PPBBBBBB BBB[BBBCBBBDBBBB9B)BB8BF FL$ITP PPBBBB*BB8)BBBBB8BBBBB#BBBCBBЙBBBF FL$ITP PHBBB#BBBHBBB FBB BB GBBBBBBHBBBшBF H`@)F$FITP K@@F$RREL K@MSET$NA `Phe%` SET$NAME5SET$NAAB7F ::  SET$NAME 11/18/83 16:51:29  SDSMAC 3.6.0 83.111:`NINIT$P `PhZ%` INIT$P 5INIT$PAB7F ::  INIT$P  11/18/83 16:51:01  SDSMAC 3.6.0 83.111:`OFL$INI `P Dx%`L$FL$INIT 5FL$INI3ENT$MD3MOV$4 3NEW$ 3LU$IN 3RET$M A7FLJ#BFLB$IBNIBT BBBBB&BCCABBB:BBBBBB7[FJJ#BB BA0B(BBBB)B(B)B(BB2B gBGAHBBI C BB7FJJ#BB C BB C BA`BB4BBBBBBB)B4B BAxB'7FJJ#B*BB(BBBBBĄBCB̠ACB BB BBBBBB 7FJJ#BBABBBBdBBB#B`BB(BBABBBCBBBi7FJ B*BB`CBB`AB7F @:  FL$INIT 11/18/83 15:49:37  DXPSCL  1.8.0 83.357 @`PFD$ITP `P4T%`@J$~FD$ITP 5FD$ITPABFDB$IBTPB BBVCPCBBBBmB&BMB,7DFJH#BB,B B BBBB>B@B BB B B @BCB CBBRBC7YFHH#BBBB B B~B B BB BlBBQB~BBBC BBBBC7-FHH#BBBCBCB`CPB CBBCBB B@B=BB,B B`BB7oFHH#BBBBBBBBBBC BlBBBB"B BBBC BB,7LFHH#BBCB-B*B,BBB BBBB CBBC BB"BB,B7FHH#BBB BBBB C6BBC&BBCBBBBBBCB7FHH#CB`CBBB,BBBBCBCB`CBCBCB`CBl7;FHH#BBìBBBBmB&BB,BBCB,BBBlBBBBBB7$FHH#BBՁBB`CBCBC(B`CPBCBCXB`CPBC.BCB`74FHH#CPBC.BC^B`CPBоB B BB BBBBB>B BB~B B77FH B BlBBB~B ``6BB BlBBBBBB BBB[BBNBB7F6H#BBKBBBB[BB BBBB B BB BBB DBB B B7FHH#BB>BB BBB BBоB B BB BBB~B B B B BMBQ7FHH#BBBBBFBB BBBBBBBBBBB B BBBTC7FHH#BBBBBBBeBBB B BBBU CBBBBBBB`7FHH#CBBBBBBBBB BBB BBBB CBBBB7oFHH#BBBB)@BTCBU CBBBB CBBBB[BlBB CB7FHH#BBlBBBBBBBCBCBlB BlBB`CPB~B B B7FHH#B BMBUBBBFBB>BоB B BB BBBBB B BBB7FHH#B BB BBBB BBB~B B BB BMBQBBB B BB7/FHH#BBBBB[ CBBU CBBBBBB BBBBBBB[7FH(CFCrCCC8CDCfCCCCBB(``"B 2B BBBdBBBBC76F"H#BBBQBBRBBBFBԅB BBBBBEBBEBBCPBB7&FHH#B[BBBBBwBBBB BBBBBBB7BBBBB7qFHH#BBBBBBBB7BBBBB[B BBBBBB BB7FHH#BBBBBBB BBBCBBEBBTCBBdBBB.BQB 7^FHH#B BBB:FBB B:DBÊBNBBBBBBBB:B BB BB7FHH#BBB B BBBBBB BBB9B9BBBBBBBCP7FHH#BB B BBBB BlBB,B BBBBBBBBB,BBD7FHH#BlBBlB BBB[B BBBdBBSBBBBBB BBBC7FHH#BBBB B BBBBEBBBBBBBBBBBBB7_FHH#BBBB BB=@BBBB=B BԈBB BԆBB BBBEBB7FH<CPBBB[B BBBB`ClBCvBBBB`ClBCBbEB<``FB B`7FH#BBBB`ClBB`BB`ClB`BBBdB BB BdBBB`Cp7FHH#BBVBBfBB*BBBBBBBpWBXBBB@BB BBB7=FHH#BGBBBABBBBBBBBBBWBXBABBKBB BB7FHH#BBGBBB BB BJBBŠBBBB`CBCPBBB[BCB7UFHH#BB5BBBBBBBB6BBBBBBB[BBBB[B7"FHH#BBB[B BBCvBBBBBBBBBdBBBBBBB7FHH#BBBRBBԀBBBBHBBBҘB B:BB BBB>B B B7'FHH#BBBBBB[BBBBDBaBBBxBBBBEBB[BBd7@FHH#BBCBBBqQBBRBBB@BԅBBB BBBEBB[BBBo7FHH#BBBB[B BBBBBBCB2BB"BBBB"BBB7&FHH#BCBBCBBBCBB"B BE C6BCBB#BBB,B7FHB``F"BBCB BBBBBBCBBCBBBBBBB[7{FFH#B BBBBBBCBFBB BCBBB,BBlBBBB7FHH#B"BB"BBBBCBBBB`BCBBBBCBB"B 7FHH#BCBB"BBBBB,BBCBBBBBBBaBBB7FH6BBBBBBCdBBBBBBBBB[7SF6::  FD$ITP  11/18/83 16:49:06  SDSMAC 3.6.0 83.111:BBBBBBBBdBBBBBBB7FHH#BBBRBBԀBBBBHBBBҘB B:BB BBB>B B B7'FHH#BBBBBB[BBBBDBaBBBxBBBBEBB[BBd7@FHH#BBCBBBqQBBRBBB@BԅBBB BBBEBB[BBBo7FHH#BBBB[B BBBBBBCB2BB"BBBB"BBB7&FHH#BCBBCBBBCBB"B BE C6BCBB#BBB,B7FHB`PFPTERM `PW% `J&FPTERMLU3ENT$S 3 F$RSTO3FIOWP$5P$TERMABFPBTEBRMBBC7FJ.CBBB(B CBBCB BBB7F .::  FPTERMLU 11/18/83 16:50:42  SDSMAC 3.6.0 83.111:`TENT$13 `PJ% `J *ENT$13 3ENT$5ENT$135RET$133(RET$M ABB-B&BlBB 7*FJ4B BB`BB)B&B)B BBiB"BéB$B`B7F 4::  ENT$13  11/18/83 16:48:28  SDSMAC 3.6.0 83.111:`WFREE$ `P= y% `L$FREE$ 5FREE$ 3ENT$MD3CUR$3ABEND$3"RET$M ABFRBEEB$ 7*FLJ#B BBeBfC CBBB:  FREE$ 11/18/83 15:49:37  DXPSCL  1.8.0 83.357 >`@:DISPOSE W@ZFLITP `P6V% `@H#FL$ITP 3|ABND$03nENT$2 5 F$FITP3F$XAR 3F$XCER3F$XCIR79F HF"3F$XCRE3F$XCRI3F$XDR 3F$XLR 3F$XMR 3F$XNGR3F$XSR 7vF FH3F$XSTR3tFL$ERR5FL$ITPABFLB$IBTPBBBBBC$CBB&7FHH#BȍB,BBB$BɂB&BBBɂB6BB@BBB BABBBABB BM7FHH#BBBBBBBB BBB@BBBBBB BB@BBBB7FHH#BBB BBBkB~BB~BBB"BBBCBBB @BC0BBB7FHH#B aBABB BMBB BC0B C~BBSBBSBBBB RBBBBBA7FHH#B?BB B BBABB BMB @BC0BABB~BBB'B,BC~B-7FHH#BB BBABB BMBBCBBBBB@BBBBB BB7FHH#BBBBB&BB,BB@BB BABBBBB~B[BQBBB~7fFHH#B[BBBB&B&B,B4B BɁB(BɎB*BɦB6B,BBB6B`BB7FH BB`BB BBBB``2BBBCvBBBBBBBBBB7F2H#BBBBBCvCvCvCvCvCvC$C$VF$XAD VF$XCDEVF$XCDI7FHF"VF$XCEDVF$XCIDVF$XDD VF$XLD VF$XMD VF$XNGDVF$XSD 7F F"VF$XSTDUPM$FLTV T$TIB 7TF "::  FL$ITP  11/18/83 16:50:20  SDSMAC 3.6.0 83.111:BBBBBBB BBB@BBBBBB BB@BBBB7FHH#BBB BBBkB~BB~BBB"BBBCBBB @BC0BBB7FHH#B aBABB BMBB BC0B C~BBSBBSBBBB RBBBBBA7FHH#B?BB B BBABB BMB @BC0BABB~BBB'B,BC~B-7FHH#BB BBABB BMBBCBBBBB@BBBBB BB7FHH#BBBBB&BB,BB@BB BABBBBB~B[BQBBB~7fFHH#B[BBBB&B&B,B4B BɁB(BɎB*BɦB6B,BBB6B`BB7FH BB`BB BBBB`\EXTMSG `P|%`JMESAG$EL5MESAG$3ENT$MD3CUR$3BLU$MSG3dSET$LU3lEXTND$7F JJ#3WRS$T 3WRLN$ 3RET$M ABMEBSABG$BELBBCCBBB.B 7FJJ#ABB B_BEB,B%B:BBBfBB A0B6BIC BBfBBB7MFJJ#BBBʅB*AHB BB BB BB BfBB BBA`B*B CJB 7FJJ#BB CRB BfBBBAxBʩB*B*BʩB*B,BʩB(B.B BB A7FJ$BB BB BC BB`B7F $@:  MESAG$EL 11/18/83 15:49:37  DXPSCL  1.8.0 83.357 @`]CLS$FI `Pu%`LHCLS$FILE5CLS$FI3ENT$MD3.SVC$3FRET$M ABCLBS$BFIBLEBB7FLJ#BCDCBBB*ABB(BfBBB٠C BBB(B BA0B B7FJ&BBB٠C BBB(B B`B73F&@:  CLS$FILE 11/18/83 15:49:37  DXPSCL  1.8.0 83.357 @`_RESUM$ `P5c%`J$JRESUM$ 3@P$$TRM5RESM$ 5RESUM$ABREBSUBM$B BCHCB-B&7FJH#BB B"BB$BB&BB(BBB(BB(BkB"BëB$BB&BMB7_FH BBB,B:B B7F::  RESUM$  11/18/83 16:51:19  SDSMAC 3.6.0 83.111:`@5RESM$ _@`F$XREC `P^P$`J$pF$XREC M $DATA 3XABND$05F$XREC5dF$XRER3hT$TIB AB C7F JH#TCB`BBB4BȂBBȍBBBBBȋBBȏBBBBBÓBBB07tFHH#BB!B2B BBBBB BB@B BBB@B$BBBB`BBB7FH0B0BBB4BBB`C B@B4BSUPM$FTN7gF0::  F$XREC  11/18/83 16:48:50  SDSMAC 3.6.0 83.111:`EOD MINOBJ D bbb%Y%aMESAG$ `P[%X`J$MESAG$MI3ENT$S 5MESAG$5MSG$$ 3RET$S 3RT$LUN 36T$SYSMA7FJHB BMEBSABG$BMIBCCBBB,BB(BB*BBB BBBBCBB7{FHH#B@BBB:B&BBdBB B+BBPBBBBBBB&BBB/7OFHH#BB BdBBBB BBBBB/BBBBBBBBBB77FHH#BBBBBBBB$BB$BB BB BBBBBB BC7FH0BBB/BBBB BB BBB/B`B7eF0::  MESAG$MI 11/18/83 16:56:37  SDSMAC 3.6.0 83.111:`@WMSG$$ @EXTOUT `PQ%`PpENT$1 EO3nABND$03&CKTOP$3bCLOSE$5ENT$1 3TEXTND$3BFL$INI7WF PP3LU$OUT5ZRET$1 3NSET$LUABOUBTPBUTB BBBBBB-B&B 7F PPBBLB&B‰BBËBBBBB&B@BJB%B(BFBCBrBB B7F PPB BʠCB*B BB B BB B^BʩB@B(B BB B)B&BB`B7F PP: ENT$1 EO 11/18/83 17:01:27 SDSMAC 3.6.0 83.111 PròAC* * ā*/ *p *xJ!ʁp*v B  B jd  B I`@*v*pʪhj B : B &@ B : @ڻb*zʐnʪpf/`*a ; K/r[\@@(@0` y q*4`1"$j`   /  /   $ `FATAL$ `PT%`J$FATAL$ 3ABND$13ENT$S 5FATAL$ABFABTABL$B BCCBB7xFJ B*BBB`B7F ::  FATAL$  11/18/83 16:56:08  SDSMAC 3.6.0 83.111:`SVC$TP `PW%`J SVC$TP 3ENT$S 3RET$S 5SVC$ 3TP$SVCABSVBC$BTPBBC7FJ$CBBB*BB(B BB`B7KF$::  SVC$TP  11/18/83 16:57:37  SDSMAC 3.6.0 83.111:` ASSER$ `PZ%`J$ASSER$ 3ABND$15ASSER$3ENT$S ABASBSEBR$B BCCBB76FJ B*BBB`B7!F ::  ASSER$  11/18/83 16:55:21  SDSMAC 3.6.0 83.111:` DUMP$T `P] %`@H#xDUMP$TAS3ZCLOSE$5:DUMP$T3BBCbBĭB.7DFHH#BB-B2BCbBoBBıBBCbBăB CB B BB B`BB BC7NFH*B(BCTBBXB BB BTVrPRT$ME7F*4:  DUMP$TAS 11/18/83 16:55:42  SDSMAC 3.6.0 4``83.111ZCLOSE$5:DUMP$T3BBCbBĭB.7DFHH#BB-B2BCbBoBBıBBCbBăB CB B BB B`BB BC7NFH*B(BCTBBXB BB BTVrPRT$ME7F*4:  DUMP$TAS 11/18/83 16:55:42  SDSMAC 3.6.0 4` COMP$ `Pc) %`JXCOMP$ 3VABND$15COMP$D5 COMP$I5COMP$P3JENT$S ABCOBMPB$ 7FJH#B BBBBBBBBBB BBB-BB7B BBBBmB7FH@BBBBBCHB@BBCTCBBB(BBBB`B7F @8:  COMP$ 11/18/83 16:55:35  SDSMAC 3.6.0 83.1118`@)COMP$D  @@COMP$I X @@XCOMP$P  @NEW$ `PfW% `JNEW$ MI3PABND$13xENT$S 5vFREE$ 5HEAP$I5NEW$3RET$S A7*FJH#BHBBXBXBB¸B BBBB[BBBB,BlB8BBBB*B77FHH#BCBB%BBHBBBBB B,B*BBBBBB`BBHBBA7ZFHH#BBCBBeBBBBeBBBB(BBBBCB*BB(BlB871FHF"BWBB B%BBa%BBBDBBWBBB`BUHP$BOTUHP$TOP7HF F::  NEW$ MI 11/18/83 16:56:48  SDSMAC 3.6.0 83.111:`@WFREE$ @HP$BOT `Pi~%!`6HP$BOT M$DATA WHP$BOTWHP$TOPS7F 6::  HP$BOT  11/18/83 16:56:25  SDSMAC 3.6.0 83.111:`OVLY$TP `Pl%"`J$ OVLY$TP 3ENT$S 5OVLY$ 3RET$S 3TP$OVLABOVBLYB$TBP BC7FJ$CBBB*BB(B BB`B7KF$::  OVLY$TP 11/18/83 16:57:04  SDSMAC 3.6.0 83.111:`GO$SA `Po%#`PtGO$SA 5GO$SA 3T$SYSM3"T$WP ABBλBBB„BBBB7F PPBB BB BBBB BB‰BKBIBBB B CpBB CrB*B7F PPB.BB0BB2BB8BB:BABB*BBFBʌB&BJBBIBBBO7F PPBBÆBBB7F PP: GO$SA 11/18/83 17:08:16 SDSMAC 3.6.0 83.111 PròAC* * ā*/ *p *xJ!ʁp*v B  B jd  B I`@*v*pʪhj B : B &@ B : @ڻb*zʐnʪpf/`*a ; K/r[\@@(@0  P TERM$$ 11/18/83 17:07:03 SDSMAC 3.6.0 83.111 PSTTTB`CSLAB$ `Pr%%`J$ CSLAB$MI3ABND$15CSLAB$3ENT$S ABCSBLABB$B BCCBB7FJ B,BíBBBB`B7F ::  CSLAB$MI 11/18/83 16:55:39  SDSMAC 3.6.0 83.111:`IN$TIB `Pu%&`H#IN$TIB 5IN$TIBAB$BB BB.BBB/BBBBBB[7F H::  IN$TIB  11/18/83 16:56:27  SDSMAC 3.6.0 83.111:`OV$FLO `Px%'`J$OV$FLO 3ABND$13ENT$S 5OV$FLOABOVB$FBLOB BCCBB7FJ B*BBB`B7(F ::  OV$FLO  11/18/83 16:57:01  SDSMAC 3.6.0 83.111:`FL$ERR `P{%(`J$$FL$ERR 3"ABND$13ENT$S 5FL$ERRABFLB$EBRRB BC CBB7'FJ"B.B)B(BéB*B B@B`B7F "::  FL$ERR  11/18/83 16:56:10  SDSMAC 3.6.0 83.111:`PREC$$ `P~%)`J$PREC$$ 3ABND$13ENT$S 5PREC$$ABPRBECB$$B BCCBB7FJ B*BBB`B7$F ::  PREC$$  11/18/83 16:57:33  SDSMAC 3.6.0 83.111:`HALT$ `P%*`JHALT$ 3ABND$13ENT$S 5HALT$ ABHABLTB$ B BCCBB7FJ B(BBB`B7F 8:  HALT$ 11/18/83 16:56:23  SDSMAC 3.6.0 83.1118` IO$ERR `P%+`JIO$ERR 3ABND$13ENT$S 5IO$ERR3RET$S ABIOB$EBRRBBC7FJH#CBBB,BiB(BB*BBBSBB!BB BBBBBBB77FHH#BBBB B"C>BRBBBB B#BB TBB BB#B BB B7FHH#BBB BBB BBBBB!BB BBBBBBBBB7FH.BBBBB BB@BBB`BB`B79F .::  IO$ERR  11/18/83 16:56:30  SDSMAC 3.6.0 83.111:`!FP$STP `P %,`JJFP$STP 3(F$ERRS4F$RWRK5FP$STP5P$STOP4T$WPABB*B7jFJH#BzBúBBB.B̺BCBBíBBBC*BCFHB0B(B0BBB݇B݈B[7lF8:  TIME$ 11/18/83 16:57:40  SDSMAC 3.6.0 83.1118`#WRS$T `Pl%.`JWRS$T 3ENT$M 3RET$M 3|TX$ERR3JWRLN$ 5WRS$T ABWRBS$BT 7FJH#B BBCCBBB0B)B(BʌB(BB*BiB,BBBBBBB,7"FHH BBBBBBBBBBBB BB BBBBBBBB7VFH@BBBBBBB)B.BBBBBʠC B*B BB B`B7&F @8:  WRS$T 11/18/83 16:57:53  SDSMAC 3.6.0 83.1118` TERM$$TP `P N%0`P2TERM$$ 4MSG$$ 4P$STOP3"RIFPC 3&RIFST 3RIFWS 3T$EXIT7{F PP3T$INID3T$RNID5LTERM$$ABCOBDEB =B PB00B0 BPCB =B 0B00B0 BST7F PPBACBK:B >B00B00B HBEABP:B >B00B00B B RBUNB-IBD B= B>0B0 BTABSKB-I7mF PPBD B= B>0B0 BìB$B,BT$INID32T$RNID3DT$SYSM3JT$WP ABBλB7;F PPBB„BBBBBB BBmBB*BmBB,B B.BBB/B B 7F PPBBBBBB C6B BBBB BB‰BKBIBBB B CB7F PPB CB*BB.BB0BB2BB8BB:BABB*BBFBʌB&BJB7?F PPBIBBBOBBÆBBBB7F PP: GO$TP 11/18/83 17:06:25 SDSMAC 3.6.0 83.111 Pʁp*v B  B jd  B I`@*v*pʪhj B : B &@ B : @ڻb*zʐnʪpf/`*a ; K/r[\@@(@0  PPPTNBBBBPPBBBBBBB7F PBSTTTB`)STORE$ `PB%5`8 ** STORE$SYN NOT SUPPORTED WITH MINIMAL RUN-TIME. ** 8`*PM$MIS `PQ%6`H#PM$DUMMY6PM$CHK6PM$CMP6PM$FLT6PM$FTN6PM$IO 6PM$MIS7F H 6PM$MPK6PM$TIO7F::  PM$DUMMY 11/18/83 16:57:31  SDSMAC 3.6.0 83.111:`@QPM$FLT P+@@PPM$FTN +@@PM$MPK +@,ST$BOT `P~%9`6ST$BOT M$DATA WST$BOTWST$TOPS7F 6::  ST$BOT  11/18/83 16:57:35  SDSMAC 3.6.0 83.111:`-MP$ERR `P%:`J$ MP$ERR 3ABND$13ENT$S 5MP$ERRABMPB$EBRRB BCCBB7FJ B,B)B(B B`B`B7F ::  MP$ERR  11/18/83 16:56:46  SDSMAC 3.6.0 83.111:`/E$FAIL `P%;`J$E$FAIL 3ABND$15E$FAIL3ENT$S ABE$BFABILB BCCBB7FJ B(BBB`BB7$F::  E$FAIL  11/18/83 16:55:23  SDSMAC 3.6.0 83.111:`0TX$ERR `P%<`J:TX$ERR 30ABND$13ENT$S 38RET$S 5TX$ERRABTXB$EBRRBBC67FJH#CBBB,BiB(B)B*B B B B@BBBB BB`BBBB`7FH B7F ::  TX$ERR  11/18/83 16:57:43  SDSMAC 3.6.0 83.111:`2SETNTP `Pb%=`L$SET$NATP5SET$NA3ENT$MD32FREE$ 3xNEW$ 3RET$M ABSEBT$BNA79FLJ#BTPBB6BBCCBBAB:B)B(BdBBeBB6BBBC 7FJJ#A0B BB B`C B2B)B2CB B B)AHB2BB*B BB BB7wFJJ#B2BBBA`C B)B2B$BBBBDBBʄB*B AxBB B)B67FJJ#BB2B BBBBiB2AB8BFB8B B)B6BBBB#B)BA7yFJ BBiB6BB`B7WF@:  SET$NATP 11/18/83 15:41:52  DXPSCL  1.8.0 83.357 @`6TXMSG$ `Pb%>`J$|TXMSG$ 3ENT$M 3^LU$MSG3zRET$M 5TXM$$ 5TXMSG$ABBB7FJHBvBB(BB*BBBBB BBBBCBBB@BBBPBBBPB7FHH#BBB B B B B$B,BDB@BsBBBBBBDBBBBBB7#FH4BB"B BBBRB/BABBBB B/B`B7lF 4::  TXMSG$  11/18/83 16:57:48  SDSMAC 3.6.0 83.111:`9FTNIO `PL%?`B *** FORTRAN I/O IS NOT SUPPORTED WITH THE MINIMAL RUNTIME. *** B`:DISPOSE `P7%@`@PFHEAP$I 5HEAP$IAB`C@BHBB`CDBBBBBÂB/BB‚B*7tF PPBBB BBBBNBBbB̊B̏B̏BBBB[BC>C>B7WF PPUHP$BOTUHP$TOP7F PP: HEAP$I 11/18/83 16:59:24 SDSMAC 3.6.0 83.111 PPNEW$ 3ABND$13ENT$M 5NEW$ 3RET$M ABCBBBB,7F PPBB8BB*BBCBB#BBBBBBB'BBBBBBB7VF PPB CBBBBBdBBBBFBBɅBBBBBBBBBD7F PPB`CBB`BBB BHB(BBBBaBBBBHBBBBDBdAB7F PPBB(BBBBBBB&B+B*BBBBBB`BBBB'B7F PPBBBBBBBBB)B(BB`B7F P: NEW$ 1``>1/18/83 16:59:38 SDSMAC 3.6.0 83.111 >PFREE$ 3ZABEND$3ENT$M 5FREE$ 3RET$M ABCBBBB*7F PPBiB(BB8BBBUB!BBBBBBBBBeBBBBBB7F PPBBBBB CBB&BBBBBBfBʀB(B BB BiBB7F PPBBBBBBBBBB#BBDBBCBBBBBB`B7RF PP: FREE$ 11/18/83 16:59:57 SDSMAC 3.6.0 83.111 PVF PPB CBBBBBdBBBBFBBɅBBBBBBBBBD7F PPB`CBB`BBB BHB(BBBBaBBBBHBBBBDBdAB7F PPBB(BBBBBBB&B+B*BBBBBB`BBBB'B7F PPBBBBBBBBB)B(BB`B7F P: NEW$ 1`=CHK$ `PV%A`HCHK$  3ABND$15@CHK$A 5(CHK$DE5CHK$DI54CHK$DL5CHK$DS7F HH#5"CHK$E 5 CHK$I 5:CHK$P 5FCHK$R 5CHK$S 3ENT$S ABRTB CBHE7FHH#BCKBBBB4BBBBBB.BBBBBB(BBBBB7FHH#B,BBB)BB BBB BBB BB-BBBBBB-BB77FHH#BBBBBGB-BB7BB BB BBmBBBBmBBBB7FH6BBCB@BBCCBBB(BBBB`B7F68:  CHK$  11/18/83 16:55:27  SDSMAC 3.6.0 83.1118`@VCHK$A 4=@@#CHK$DE 3=@@,CHK$DI K=@@KCHK$DL =@@CHK$DS 1=@@'CHK$E Y=@@YCHK$I .=@@CHK$P 8=@@8CHK$R =@@CHK$S =@BFP$DEF `P%H`B FP$DEF MCUR$ WFP$DEF6 T$CC 6 T$EC 6T$INID7FBH6T$MSG 6T$RNID6T$STN 6T$SYSMWT$TIB 6T$WPPP7PFH.PPPPPP P P7F.::  FP$DEF  11/18/83 16:56:12  SDSMAC 3.6.0 83.111:`DP$MAIN `PH %I`BHP$MAINMIM$DATA 3:ABND$06+BID$SV3GO$MR 3,LU$MSG7hF BFXMESAG$X@PSCL$$XLST$BOTXNST$TOP6 T$CC 6 T$EC7FFH"6T$INID6T$LUN 6T$MSE 6T$MSG 6T$RNID6T$STN 6T$SYSM7F HLWT$TIB 6T$TRM 5T$VEC 6T$WPATCBBTBBBB7FLJ#BBTTTT\BTlCBBBBCBS@TBSF7FJH"BBCTJCBSTT\TBBABBBCBS\SlSV$HEAP$I76F H&VBHP$BOTVDHP$TOPV PROB$ 270F&<:  P$MAINMI 11/18/83 17:03:53  SDSMAC 3.6.0 83.111 <(@07 PPPPPTNBBBBPPBBBBBBB7F PBSTTTB`@HMAIN D@HENT$1 `Pr%J`HpENT$1 3nABND$03&CKTOP$3bCLOSE$5ENT$1 3BFL$INI3LU$OUT7F HH5ZRET$1 3TREWRT$3NSET$LUABOUBTPBUTBBBBBBB-B&B 7GFHH#BBLB&B‰BBËBBBBB&B@BJB%B(BFBCBrBB B7FHH#B BʠCB*B BB B BB B^BʩB@B(B BB B)B&BB`B7FH8:  ENT$1 11/18/83 16:56:00  SDSMAC 3.6.0 83.1118`HP$MAINSA `P %L`P^P$MAINSAM$DATA 3*ABND$03GO$SA X4PSCL$$X@ST$BOT7?F PPXBST$TOP52SVC$ 6 T$CC 6 T$EC 6T$MSG 6T$SYSMWT$TIB 7'F PP6T$WP 5@TERM$$ABTxBBBBTTxTTPBT`C,BB7IF PPBTxBB TB`BSTBSSSSTxT`BBBSTB7F PPBBBBBBBBBBBBBBBT2BS4CBS:B7F PPBC T>CBSHTPTBBA,BBC,SPS`SxA2BBiB(B7F PPBBBBB-BB"B-BB$B-BB&B,BCBSHTPTBBA:BBC:SP7F PPS`SxV(HEAP$IV:HP$BOTVB00B00B HBEABP:B >B00B00B B R7F PPBUNB-IBD B= B>0B0 BTABSKB-IBD B= B>0B0 BìB$B,BCUR$$ 3ENT$S 7F HH5MARG$N3ZT$EC3^T$WP 3fTERM$$AB@BABBENBD$BBC 46 EERROR IN 'CASE' LABEL LIST -- ',' OR ':' EXPECTED > 49 E'ARRAY' EXPECTED 50 E CONSTANT EXPECTED  51 E':=' EXPECTED  52 E'THEN' EXPECTED  53 E'UNTIL' EXPECTED 54 E'DO' EXPECTED " 55 E 'TO'/'DOWNTO' EXPECTED" 57 E'FILE' EXPECTED  58 EERROR IN FACTOR  60 E'CHAR' EXPECTED J 61 EUNARY '+'/'-' NOT ALLOWED IN TERM, OR 'NOT' IN BOOLEAN PRIMARYJ( 62 EEXPRESSION OR '.)' EXPECTED (@& 63 E '..' ',' OR '.)' EXPECTED &  64 E ',' OR '.)' EXPECTED & 65 E USE 'DIV' FOR INTEGER '/' &$ 66 E TYPE IDENTIFIER EXPECTED$L 67 W ILLEGAL PARAMETER TYPE -- SHOULD BE EITHER A TYPE IDENTIFIER OR L20 A DYNAMIC PARAMETER WITH A '?' UPPER BOUND2. 68 EPROGRAM PARAMETERS NOT IMPLEMENTED., 69 FBINARY BOOLEAN OPERATOR EXPECTED,& 80 W OPTION IDENTIFIER EXPECTED&& 81 W ILLEGAL OPTION IDENTIFIER &B 82 WPROGRAM LEVEL OPTION MUST PRECEDE THE PROGRAM HEADING B< 83 WROUTINE LEVEL OPTION MAY NOT BE CONTROLLED HERE < 84 W NULL BODY EXPECTED8 85 WINITCOMMON MAY ONLY BE SPECIFIED AFTER BEGIN8L 86 W LOCALS MAY ONLY BE SPECIFIED BEFORE FIRST PROCEDURE DECLARATION LB 87 EROUTINE LEVEL OPTION MUST PRECEDE THE FIRST STATEMENT B&101 E IDENTIFIER DECLARED TWICE &,102 FLOWER BOUND EXCEEDS UPPER BOUND ,2103 FIDENTIFIER IS NOT OF APPROPRIATE CLASS2"104 E UNDECLARED IDENTIFIER ".105 FCLASS OF IDENTIFER IS NOT VARIABLE.(107 EINCOMPATIBLE SUBRANGE TYPES ("108 E FILE NOT ALLOWED HERE "4109 ETYPE OF IDENTIFIER MUST BE ARRAY OR SET 40110 ETAGFIELD MUST BE SCALAR OR SUBRANGE 0D111 ERECORD VARIANT CONSTANT INCOMPATIBLE WITH TAGFIELD TYPE DL117 W UNSATISFIED FORWARD REFERENCE TO A TYPE IDENTIFIER OF A POINTER L6119 E';' EXPECTED (PARAMETER LIST NOT ALLOWED) 6,120 EFUNCTION RESULT MUST BE SCALAR, SU, BRANGE, OR POINTER ,121 EFILE VALUE PARAMETER NOT ALLOWED,6122 E';' EXPECTED (FUNCTION RESULT NOT ALLOWED)6$123 E FUNCTION RESULT EXPECTED$*126 FIMPROPER NUMBER OF PARAMETERS *D127 FTYPE OF ACTUAL PARAMETER DOES NOT MATCH FORMAL PARAMETERDN128 E!PARAMETER INCOMPATIBLE WITH PREVIOUS PARAMETER (DYNAMIC ARGUMENT) N6129 ETYPE CONFLICT OF OPERANDS IN AN EXPRESSION6*130 FEXPRESSION IS NOT OF SET TYPE *6131 WINTEGER OPERANDS CONVERTED TO REAL FOR '/'6,132 WBASE TYPE OF SET IS LONG INTEGER,(133 WLONG INTEGER ELEMENT IN SET ($134 F ILLEGAL TYPE OF OPERANDS$.135 FTYPE OF EXPRESSION MUST BE BOOLEAN.:136 FSET ELEMENT TYPE MUST BE SOME ENUMERATION TYPE :,137 FSET ELEMENT TYPE NOT COMPATIBLE ,*138 FTYPE OF VARIABLE IS NOT ARRAY *:139 FINDEX TYPE IS NOT COMPATIBLE WITH DECLARATION :*140 FTYPE OF VARIABLE IS NOT RECORD*,141 FTYPE OF VARIABLE IS NOT POINTER ,,142 FTYPE OF VARIABLE IS NOT FUNCTION,*143 FINCOMPATIBLE "FOR" EXPRESSIONS*(145 FTYPE CONFLICT IN ASSIGNMENT (*146 FASSIGNMENT OF FILE NOT ALLOWED*8147 FLABEL TYPE INCOMPATIABLE WITH CASE SELECTOR 8$148 E SET BOUNDS OUT OF RANGE $*149 EINDEX TYPE MAY NOT BE INTEGER *6150 FONLY ASSIGNMENT TO LOCAL FUNCTION ALLOWED 68151 FASSIGNMENT TO FORMAL FUNCTION IS NOT ALLOWED8(152 ENO SUCH FIELD IN THIS RECORD( 153 E $CAN'T TAKE SIZE OF PACKED FIELD $0154 FACTUAL PARAMETER MUST BE A VARIABLE 04155 FCANNOT ASSIGN TO "FOR" CONTROL VARIABLE 4$156 E MULTIDEFINED CASE LABEL $F161 WPROCEDURE OR FUNCTION ALREADY DECLARED AT A PREVIOUS LEVELFD162 EPROCEDURE OR FUNCTION AGAIN DECLARED FORWARD OR EXTERNALD<163 WPROCEDURE OR FUNCTION ALREADY DECLARED EXTERNAL <J164 WROUTINE OR COMMON NAME HAS THE SAME FIRST 6 CHARACTERS AS ONE J@0 PREVIOUSLY DECLARED; LINK EDITOR CAN'T DISTINGUISH THEM @165 F MULTIDEFINED LABEL8166 WUSE OF POINTER TO FILE TYPE NOT RECOMMENDED 8167 FUNDECLARED LABEL168 FUNDEFINED LABEL D170 WPROCEDURE PARAMETERS IN FUNCTIONS CAN CAUSE SIDE EFFECTSD$171 E ERROR IN FIXED PRECISION$&172 E ERROR IN DECIMAL PRECISION&2173 EERROR IN FIXED OR DECIMAL SCALE FACTOR22177 FEXPRESSION OPERANDS ARE NOT COMPATIBLE2B179 ESTATEMENT TO BE ESCAPED MUST BE A STRUCTURED STATEMENT B4180 EESCAPING BROTHERS PROCEDURES NOT ALLOWED4:181 ECANNOT "GOTO" INTO A "FOR" OR "WITH" STATEMENT :>182 F"FOR" EXPRESSION MUST BE OF SOME ENUMERATION TYPE >>183 F"CASE" EXPRESSION MUST BE OF SOME ENUMERATION TYPE >6184 WIMPLICIT "FOR" IDENTIFIER ALREADY DECLARED6L185 E RECORD VARIANT LABEL MUST BE NONNEGATIVE AND LESS THAN "SETMAX" L&186 E MULTIDEFINED VARIANT LABEL&<187 WUSE OF TYPE TRANSFER IN FUNCTION NOT RECOMMENDED <:188 WUSE OF "LOCATION" IN FUNCTION NOT RECOMMENDED :P189 W"ASSIGNMENT THROUGH LOCAL POINTER IN FUNCTION MAY CAUSE SIDE EFFECTS PF190 WCALLING A PROCEDURE FROM A FUNCTION MAY CAUSE SIDE EFFECTSFP191 W"CALLING AN EXTERNAL FUNCTION FROM A FUNCTION MAY CAUSE SIDE EFFECTS PB192 WASSIGNING TO A GLOBAL VARIABLE, A REFERENCE PARAMETER, BJ0 !OR THROUGH A GLOBAL POINTER IN A FUNCTION, MAY CAUSE SIDE EFFECTS J2193 EACCESS TO GLOBAL VARIABLE NOT DECLARED2"194 W FILE CONTAINS POINTERS",195 ETYPE OF COMMON MAY NOT BE A FILE,L196 E DYNAMIC ARRAYS OR SETS NOT ALLOWED IN FILES, RECORDS, OR COMMONSLF197 EACTUAL REFERENCE PARAMETER CANNOT BE "PACKED VARIABLE" OR F0 "FOR IDENTIFIER""198 F ILLEGAL TYPE TRANSFER "H199 WPASS BY REFERENCE OF "PACKED VARIABLES" IS MACHINE DEPENDENTH201 E FRACTION EXPECTED B202 ESTRING CONSTANT TOO LONG OR CROSSES A RECORD BOUNDARY B&203 E INTEGER CONSTANT TOO LARGE&"205 E BINARY DIGIT EXPECTED "206 E EXPONENT EXPECTED &207 E HEXADECIMAL DIGIT EXPECTED&*208 EILLEGAL LONG INTEGER CONSTANT *6209 WPRECEDING COMMENT HAS NOT BEEN TERMINATED 6:210 EFIELD WIDTH MUST BE OF TYPE INTEGER OR LONGINT :>211 EFRACTION LENGTH MUST BE OF TYPE INTEGER OR LONGINT >@212 EHEX FORMAT ALLOWED ONLY FOR TYPE INTEGER OR LONGINT @6213 EBINARY FORMAT ALLOWED ONLY FOR FIXED TYPE 6214 EF-FORMAT ALLOW(ED FOR REAL, DECIMAL, OR FIXED ONLY (H215 ERANDOM FILE RECORD NUMBER MUST BE OF TYPE INTEGER OR LONGINTH>216 EREAD/WRITE PARAMETER NOT COMPATIBLE WITH FILE TYPE >J217 WGLOBAL REFERENCE PARAMETER IN FUNCTION MAY CAUSE SIDE EFFECTS JR218 W#READ/WRITE OF A GLOBAL FILE IN A FUNCTION IS CONSIDERED A SIDE EFFECT R*219 EPARAMETER MUST BE OF TYPE FILE*8220 EPARAMETER MUST BE OF TYPE INTEGER OR LONGINT8H221 FINCORRECT NUMBER OF PARAMETERS IN PREDEFINED PROCEDURE CALL HF222 FINCORRECT NUMBER OF PARAMETERS IN PREDEFINED FUNCTION CALLF.223 FPARAMETER MUST BE OF TYPE POINTER .<224 EPARAMETER MUST BE NON-NEGATIVE INTEGER CONSTANT <(225 EPARAMETER MUST BE A CONSTANT(6226 EMISSING CORRESPONDING VARIANT DECLARATION 66227 EPARAMETER MUST BE A CONSTANT OR A VARIABLE6P228 W"MANIPULATION OF GLOBAL FILE IN FUNCTION IS CONSIDERED A SIDE EFFECT PB229 FILLEGAL TYPE OF PARAMETER IN PREDEFINED FUNCTION CALL BB230 FILLEGAL TYPE OF PARAMETER IN PREDEFINED PROCEDURE CALL B<231 EPARAMETER MUST BE AN INTEGER OR LONGINT CONSTANT <4232 FACTUAL PARAMETER HAS WRONG STRING LENGTH4B233 WMANIPULATION OF FILE "INPUT"/"OUTPUT" NOT RECOMMENDED BD234 FCANNOT TAKE LOCATION OF PREDEFINED PROCEDURE OR FUNCTIONDD235 EDIMENSIONALITY OF ARRAY SMALLER THAN SPECIFIED CONSTANT D4236 EARRAY COMPONENT TYPES ARE NOT COMPATIBLE4$237 E ARGUMENT MUST BE PACKED AR$RAY .238 EARGUMENT MUST BE NON-PACKED ARRAY .0239 EFILE ARGUMENT IS THE WRONG FILE KIND0,240 WMAXIMUM REAL PRECISION EXCEEDED ,4241 EARRAY TOO LONG -- MORE THAN 32766 BYTES 42242 WRUN-TIME COMPATIBILITY CHECK REQUIRED 2D243 EDYNAMIC UPPER BOUND MUST BE GLOBAL VARIABLE OR PARAMETERD@244 FPARAMETER OF WRONG CLASS IN PREDEFINED FUNCTION CALL @0245 ECANNOT TAKE LOCATION OF PACKED FIELD04246 FRECORD TOO LONG -- MORE THAN 32766 BYTES4(248 FFILE OF FILES IS NOT ALLOWED(H249 F"UNIV" PARAMETER CAN HAVE "?" BOUND ON FIRST DIMENSION ONLY H"250 F TOO MANY NESTED SCOPES"B251 EIMPROPER PARAMETER TYPE FOR ACTUAL PROCEDURE PARAMETER BJ252 EMISMATCHED REFERENCE PARAMETER FOR ACTUAL PROCEDURE PARAMETER JF253 EVARIABLE PARAMETER EXPECTED FOR ACTUAL PROCEDURE PARAMETERF>254 EIMPROPER NUMBER OF PARAMETERS FOR ACTUAL PROCEDURE >*257 FTOO MANY IDENTIFIERS DECLARED *<258 EGLOBAL VARIABLES NOT ALLOWED WITH LOCALS OPTION <@259 FCOLUMN AND STATUS PARAMETERS MUST BE OF TYPE INTEGER @H260 WFORTRAN ARRAY AND RECORD VALUE PARAMETERS WILL BE PASSED BY H0 REFERENCE B261 EFORTRAN PROCEDURE AND FUNCTION PARAMETERS NOT ALLOWED BL262 W DYNAMIC ACTUAL PARAMETER WILL BE PASSED BY REFERENCE TO FORTRAN LJ263 WLENGTH OF TYPE TRANSFER IS GREATER THAN ORIGINAL TYPE'S LENGTHJ<264 EPOINTER IS TYPE TRANSFERRED TO TYPE OF DIFFERENT S<IZE L265 F PARAMETER OVERFLOW, THE LIMIT IS 127 PARAMETERS AND/OR 508 TOTALLL0 "BYTES OF PARAMETER STACK (INCL. DYNAMIC SIZE AND UPPER BOUND PARMS) LJ266 FCAN'T PASS PACKED, ODD BYTE ALIGNED ARRAYS (STRINGS) BY VALUE JD0 UNLESS THE FORMAL PARAMETER IS A BYTE ELEMENT ARRAY (STRING)DP267 F"CAN'T PASS PACKED, ODD BYTE ALIGNED ARRAYS (STRINGS) TO UNIV FORMAL PJ0 !PARAMETER UNLESS THAT UNIV FORMAL IS A BYTE ELEMENT ARRAY (STRING)JL268 F ILLEGAL TYPE TRANSFER OF PACKED, ODD BYTE ALIGNED ARRAY (STRING)LL0 "MAY ONLY TRANSFER TO FIXED LENGTH BYTE ELEMENT ARRAY (STRING) TYPES LJ269 FILLEGAL TO USE A STRING WHICH REQUIRES LONGINT INDEXING, AS A JD0 READ/WRITE PARAMETER (OR AS THE ENCODE/DECODE STRING BUFFER)DL270 F CAN'T PACK OR UNPACK ARRAYS (STRINGS) REQUIRING LONGINT INDEXINGLN273 E!CAN'T PASS ARRAYS, RECORDS, OR SETS BY VALUE TO C (EXCEPT STRINGS)N$299 ? (UNDEFINED ERROR CODE!) $300 EDIVISION BY ZERO8301 ESCALAR "SUCC" OR "PRED" RESULT OUT OF BOUNDS8*302 FINDEX EXPRESSION OUT OF BOUNDS*2303 EVALUE TO BE ASSIGNED IS OUT OF BOUNDS 24304 FSET ELEMENT EXPRESSION IS OUT OF BOUNDS 44305 FLONGINT NOT ALLOWED IN CONSTRUCTED SETS 4D307 WCOMPARISON TO CONSTANT OUTSIDE RANGE OF EXPRESSION TYPE D2308 WIMPLIED LONGINT TO INTEGER TRUNCATION 2F309 WCONSTANT EXPRESSION VALUE OUTSIDE VALID RANGE FOR INTEGER F 999 *** END OF LIST ***1 E ERROR IN SIMPLE TYPE2 E IDENTIFIER EXPECTED 3 E 'PROGRAM' EXPECTED4 E')' EXPECTED5 E':' EXPECTED6 EILLEGAL SYMBOL7 E PARAMETER EXPECTED8 E'OF' EXPECTED 9 E'(' EXPECTED 10 EERROR IN TYPE  11 E'(.' EXPECTED  12 E'.)' EXPECTED  13 E'END' EXPECTED 14 E';' EXPECTED 15 EINTEGER EXPECTED 16 E'=' EXPECTED 17 E'BEGIN' EXPECTED( 18 EERROR IN DECLARATION SECTION(  19 E ERROR IN FIELD LIST   20 E',' EXPECTED 22 E'..' EXPECTED  23 E'.' EXPECTED 24 E';' NOT ALLOWED 2 25 EILLEGAL CHARACTER ENCOUNTERED ON INPUT2J 40 EILLEGAL PARAMETER TYPE -- THE TYPE OF A PARAMETER SHOULD BE A J:0 PREVIOUSLY DECLARED OR PRE-DEFINED TYPE IDENTIFIER :* 42 ESTATEMENT TERMINATOR EXPECTED * 43 E STATEMENT EXPECTED( 45 W'EXTERNAL FORTRAN' EXPECTED (> 46 EERROR IN 'CASE' LABEL LIST -- ',' OR ':' EXPECTED > 49 E'ARRAY' EXPECTED 50 E CONSTANT EXPECTED  51 E':=' EXPECTED  52 E'THEN' EXPECTED  53 E'UNTIL' EXPECTED 54 E'DO' EXPECTED " 55 E 'TO'/'DOWNTO' EXPECTED" 57 E'FILE' EXPECTED  58 EERROR IN FACTOR  60 E'CHAR' EXPECTED J 61 EUNARY '+'/'-' NOT ALLOWED IN TERM, OR 'NOT' IN BOOLEAN PRIMARYJ( 62 EEXPRESSION OR '.)' EXPECTED ( TIPBATXL`Pz %[`@(* BATCH STREAM USED BY "XTIPL" PROC ($.SYN $MR$="", $MRM$="", $MT$="" $ * Q$SYN $ :.SYN $$OB="", $$RI="", $$VN="", $PF$D="", $SF$P="", :.$AA$P="", $IT$T="", $LLR$P="", $XCP$L="", .0$SPI$A="", $SPI$I="", $SPI$T="", $XCT$L="", 00$SRF$F="",$SRF$P="", $SRF$R="", $LD$P="",0.$XE$ = "", $$BT="", $XD$D="", $XLE$OB="", .,$$LU="", $$S="", $BD$D="", $BD$S="",,8$$LD="", $CD$M="", $CD$C="", ! DON'T DELETE $$PF 8:$$ML="",$$OP="",$XLE$C="", ! DON'T DELETE $XLE$L :2$XMA$O="",$XMA$L="", $XMA$E="", $XMA$OP="",22$XFC$O="",$XFC$L="", $XFC$E="", $XFC$OP="",22$XCC$L="",$XCC$O="", $XCC$OB="", $XCP$O="",22$XFT$P="",$XFT$T="", $XCT$P="", $XCT$T="", 24$CFK$L="", $CFK$PN="", $CFK$LRL="", $CFK$KN="", 42$CFK$PRL="", $CFK$KS="", $CFK$IA="", $CFK$M="", 2``2$CFK$SA="", $CFK$MS="", $RPG$PL="", $RPGU="", 20$RPG$P="", $RPG$L="", $RPG$B="", $RPG$S="" ,00$XMA$OPL="", $XMA$MC="", $LD$P="", $CC$I="",0,$$SYS$="", $CM$DV="", $CM$ID="", $XL="",,0$IT$P1="", $IT$P2="", $IT$P3="", $IT$P4="", 00$IT$P5="", $IT$P6="", $IT$P7="", $IT$P8="", 0D $IT$P9="", $IT$PA="", $IT$PB="", $IT$PC="", $LG$ID="", $XB$I="" D * P$SYN $ 0.SYN $PS = "", $PO = "", $PL = "", $PM = "",0D BID$ = "", $PCL = "", $PCC = "", $PINP = "", ! DON'T DELETE $PIDDB$POUT = "", $PTM = "", $P = "", $P1 = "", $P2 = "", $P3 = "", B<$P4 = "", $XR$1 = "", $XR$2 = "", $XR$3 = "", $$UC = "" <2.SPLIT LIST="@$XP$P", FIRST=PREIN,REST=$XP$P22.SPLIT LIST="@$XP$P", FIRST=OBJECT, REST=$XP$P22.SPLIT LIST="@$XP$P", FIRST=OUTPUT, REST=$XP$P2".SPLIT LIST="@$XP$P", FIRST=SYSM"``SG, REST=$XP$P0.SPLIT LIST="@$XP$P", FIRST=$P1,REST=$XP$P00.SPLIT LIST="@$XP$P", FIRST=$P, REST=$XP$P0 .SYN $P1 = "@$P1,@$P" 0.SPLIT LIST="@$XP$P", FIRST=$P2,REST=$XP$P00.SPLIT LIST="@$XP$P", FIRST=$P, REST=$XP$P0 .SYN $P2 = "@$P2,@$P" 0.SPLIT LIST="@$XP$P", FIRST=$P3,REST=$XP$P0".SPLIT LIST="@$XP$P", FIRST=$P" .SYN $P3 = "@$P3,@$P"  .IF @$TIP, EQ, $TIP .SYN $TIP=" "  .ENDIF% >.SYN $XP$P ="", INPUT=@$TIP.PREOUT@$$ST, $$UC = 0, $P = "" >* 'XP$2 @$XP$O "* '<.BID TASK = 012, LUNO = 021, PARMS =(8,1,@$XR$1,@$XR$2) <* ' .IF @$$CC,LT,04000@.BID TASK = 01, LUNO = 021, PARMS = (@$P1)! EXECUTE SILT1 @* '@ .IF @$$CC,LT,0C000! IF NO RUN-TIME ERRORS (DURING SILT1), @ .BID TASK = 02, LUNO = 021, PA ``&RMS = (@$P2,@$XR$2)! EXECUTE SILT2& .IF @$$CC,LE,04000 .SYN $$UC = @$$CC ..BID TASK = 0D, LUNO = 021, PARMS = (5,12). .IF @$$CC,LT,0C0006MFN O=@$TIP.DE$CFI@$$ST, N=@$TIP.DESCFI@$$ST, R=Y 66MFN O=@$TIP.CIL$FI@$$ST, N=@$TIP.CILFIL@$$ST, R=Y 6..BID TASK = 03, LUNO = 021, PARMS = (@$P3). .ENDIF" .ENDIF#  .IF @$$UC,LT,@$$CC$ .SYN $$UC = @$$CC  !SAVE $$CC $ .ENDIF#  .IF @$XR$3,EQ,"Y" D .BID TASK = 0F, LUNO = 021, PARMS = (15,3,@$XR$2)! EXECUTE XREF D .ENDIF# .ENDIF$ *.ELSE !SYNTAX ERRORS IN PREPROCESSOR *:.STOP TEXT = "PREPROCESSOR ERROR, ABORT", CODE = @$$CC : .ENDIF%  .IF @$$CC,GE,0C000D .STOP TEXT="TIP COMPILATION ABORTED - RUN-TIME ERRORS DETECTED",DCODE=@$$CC .ENDIF%  .IF $$CC,LT,@$$UC  .SYN $$C ``C = @$$UC  .ENDIF%  .IF @$$CC, LT, 06000 .IF @$$CC, GE, 040006CM MSG="TIP COMPILATION HAD WARNINGS, LINK BEGUN" 6 .ELSE $ 6* CM MSG="TIP COMPILATION COMPLETE, LINK BEGUN" 6 DF P=@$TIP.CILFIL@$$ST DF P=@$TIP.TOKENS@$$ST .ENDIF$  .IF "@OBJECT",EQ,"OBJECT" ".SYN OBJECT=@$TIP.OBJECT@$$ST " .ENDIF$ ,.DATA @$TIP.INPUT@$$ST, SUBSTITUTION=YES, FORMAT IMAGE, REPLACE LIBRARY .TIP.OBJ TASK @$PID#INCLUDE (MAIN)!INCLUDE @OBJECT END &.EOD%>XLE CON=@$TIP.INPUT@$$ST, LINKOUT="@$$PF", LIST="@$XLE$L" > .IF @$$CC, LT, 04000<.STOP TEXT="TIP COMPILE AND LINK-EDIT COMPLETE", CODE=0 < .ELSE $ 6.STOP TEXT="TIP LINK-EDIT HAD ERRORS", CODE=@$$CC 6 .ENDIF$ .ENDIF%  .IF @$$CC,LT,04000.STO``6P TEXT = "TIP COMPILATION COMPLETE", CODE = @$$CC 6 .ENDIF%  .IF @$$CC,LT,06000@.STOP TEXT="TIP COMPILATION COMPLETE - WARNINGS IN PROGRAM", @CODE=@$$CC .ENDIF%  .IF @$$CC,LT,08000H".STOP TEXT="TIP COMPILATION COMPLETE - NONFATAL ERRORS IN PROGRAM", HCODE=@$$CC .ELSE % D .STOP TEXT="TIP COMPILATION COMPLETE - FATAL ERRORS IN PROGRAM",DCODE=@$$CC FORMAT IMAGE, REPLACE LIBRARY .TIP.OBJ TASK @$PID#INCLUDE (MAIN)!INCLUDE @OBJECT END &.EOD%>XLE CON=@$TIP.INPUT@$$ST, LINKOUT="@$$PF", LIST="@$XLE$L" > .IF @$$CC, LT, 04000<.STOP TEXT="TIP COMPILE AND LINK-EDIT COMPLETE", CODE=0 < .ELSE $ 6.STOP TEXT="TIP LINK-EDIT HAD ERRORS", CODE=@$$CC 6 .ENDIF$ .ENDIF%  .IF @$$CC,LT,04000.STO`SCIOBJ D 6/66%%\GET$PA `Pe D%^`J$ GET$PARMMPARM$ 3"ENT$2 5 GET$PA3 RET$2 3bS$IASC3S$INT 7F JH3S$PARM3>SVC$PPPABGEBT$BPABRMBB8B.B.BB7FHH#B4B*BB 0CCBBBDBB"B8BԠC BBBBBʂB(B B7FHH#B BBbBBABABIB!B>BB"BBBĠCBBB BBBBؠC7FHJ$BBؠCBBB"BCBBؠCBB"BNB"BNB`CB47F JH#B`CBBCB BBBB BBCBB B BB)B,BBB7HFHJ$BB CB BNB`CB4B`CBBCB CBBB BBC7vFJ6B CB)B,BBBBB CB BNB`B7sF 6::  GET$PARM 11/18/83 17:12:42  SDSMAC 3.6.0 83.111:`NEW$ `Ph%_`@FNEW$  MHEAP$ MPARM$ MCUR$ 5NEW$ 3ENT$MD7FFJ3GET$ME3ABEND$3RET$M ABNEBW$B BBBBB4CCBB7FJJ#AB>BB*B BBB*BB:  NEW$  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 >TTS SSBCSTBBBBBBBB7 F >PBBBBBBBBTBBBBBTTTBSNN7F PPBBBTSS&TT4S"TS.TBBS4SBBTTPT7sF PPTTBBP BPSSBBBBBBBBBBBB7F PPBBBBBBBBTSNSTTSTBPB PB$MBAI7)F PPBN BNNBBB(BSTSB/BBBBPBBB79F PPV PROB$ 27F PP: P$MAINCO 11/18/83 17:03:02 SDSMAC 3.6.0 83.111 PF PPB NB BB`BBBBCnBB NB`BPTBP7F PPPPPTNBBBBPPBBBBBBB7F PBSTTTB`MAIN `P]t72%b`@P1MAIN M$DATA F MAIN PPM&CUR$ MHEAP$ M SYS$MSMPARM$ 25ABEND$5ABND$0F MAIN PP5ABND$15ABND$26+BID$SV5bCLOSE$5CLS$ 50CLS$FI5^CMP$STF MAIN PP5~CREAT$5CUR$ 5CUR$$ 5DIV$ 5NDMPP$H5DSTR$$5 xENC$T F MAIN PP5 (ENI$T 5 \ENS$T 56ENT$ 5`ENT$1 5&ENT$2 5@ENT$M 5ENT$MDF MAIN PP5ENT$S 5ENX$T 5tEOLN$ 5,lFIND$S5FL$INI5FREE$ 5HEAP$TF MAIN PP4INIT$15LIO$ERR5MAP$ 5MARG$N4MESAG$4MM$DIR5xMOV$4 F MAIN PP5vMOV$5 5tMOV$6 5rMOV$7 5pMOV$8 5jMOV$N 5MSG$ 5NEW$ F MAIN PP5`OPEN$ 5OPN$FI58P$ABND4P$CMSG4P$INIT4P$TERM5VPATCH$F MAIN PP4PB$INI4PB$TERUPM$IO UPM$TIOVPROB$ 5 PRT$ME4PSCL$$F MAIN P5#PUT$RC5#RPUTCH$``>5%HRESUM$5nRET$1 5RET$2 5RET$M 5RET$S F MAIN >P5$zREWND$5$REWRT$5%RSUMR$4S$GTCA4S$IASC4S$INT 4S$MAPSF MAIN PP4S$PARM4S$PTCA4S$SETS5&SET$NA5&STACK$5,DSTORE$5&SVC$ F MAIN PP6 T$CC 6 T$EC 6T$ES 6T$INID6 T$MDIR6T$MN 6T$MSG F MAIN PP6T$RNID6T$STN 6"T$TERMWT$TIB 6T$VT 5,TX$ERR5-BWRC$T F MAIN PP5-WREOF$5.VWRI$T 5/.WRLN$ 5/WRS$T 50FWRX$T ATCCDBNF MAIN PPEBB TB CBB2BBBCBBC6T TBC6T4TBTBF MAIN PPB{BBBBB[BB/TB TB B`TBàTBTB`BB BB F MAIN PPNB BB`C6BBBCnBB NB`CBBABBENBD$B BCF MAIN PPBʀB(BƋB CB BÀBCB*B`CBB)B(BBBB`BBC6CF MAIN P$BCBBBBB0BCChBCB:BB*F MAIN P6B BBB*BB B CrBB CB B)B*BB C&B 6``BBBDB6BF MAIN PBB,BCtB CB BB B CvB)B6B BB B CrB)B.B CB F MAIN PPB)B,BBaBB0B^B)B,BTB CB BBDB2BBB BBCjB)F MAIN PPB2BB,BB)B0BBDB"BiB(B$BB(B`CxB*BB,BiB0B.BDF MAIN PPB0BB0BB6BCB2B)B0B)B(BB0BiB0BB)B6BDBBBBF MAIN PPBDB8BFB8BBB BBBBB)B0B$BBDBBB)B,BB&BF MAIN PPCBDBBB2BcB&BBB)B,BB`CBBCB0BLB(B`CBF MAIN PPBB B BBB=B[B B=BB[BB B BB=BBB[B B=BB[F MAIN PPBBB`CBBB-BBCBBB CB BBBʀB(B CB BDMF MAIN PPBPPB$HBEABBBB**B* BDUBMPB OBF BHEBAPB *B**C2BC6C$BCB6F MAIN PHBBBB@B C/.B BBB@BC.BC0BCFB C/B BB@B C/.F H``MAIN PB BB(B#B8BB4BB(BCBCB*BCB,BB,BB4BGBBDCHBF MAIN PPBB,BB,BB.BBBBB.BBB4BGBBDCHBBB,BBBBBB,F MAIN PPBBB*BB)B4CHB%B`CHB4BdBB0BiB0BUB*BB*B BBB F MAIN PPBBJBB*BSB2BBB*B`BBCB2BB2B BBiB2B*BB`CF MAIN PPBB*BBCB,BB*BB2BBBB*BBBBB.BB BBB BBBeF MAIN PPBB.BB,B BB.B BBBeBB*BiB*B.BB@B C/.B BBF MAIN PPB,BB.B C B BBB0BcBB0B)B0BBB`CBDUBMPB$PBROBF MAIN PPBBBB *B**B DBUMBP BOFB PBROBCEBSSB *B**CBB PBROBCEBSSB RBECF MAIN PPBORBD BFOBR CB BB B BENBTRBY BPOBINBT CBB8B B TBOPB OBF F MAIN PPBSTBACBK CB *B**B EBNDB OBF BPRBOCBESBS BDUBMPC(CCBCB:BF MAIN PBB```JCB6BiB(B,B CB B_B.BB@B C/.B BBB@BCBF MAIN JPCBCB C/B BB@B C/.B B)B,BiB,B.BB C&B B_BEB0F MAIN PPB%BB"B%BB$B$B&BB@B C/.B BBB@BCBBCB C/F MAIN PPB BB.BSB8BB8BCBCB2BSB2B BBB@BCBCBB2BF MAIN PPBBB@BCBCBCB C/B BBB@BCBCBBCB F MAIN PPC0FB BB@B C/.B BB,B#BB B EBNTBRYB PBOIBNTCbB2BBLEF MAIN PPBVEBL=CtC bCBC@B@BBB)B(BB,BBdB,B>BBdB"B>BF MAIN PPB4BB`C"B4BBB4BB>BcBB.BiB>BʯB@B(B C/.B BʯB@F MAIN PPB(BʠC$B*BʠC$B,BʠC4B.B C/B BB4BPBB#B(BB@BC6F MAIN PPBC8BB B BʯB@B(BʠC8B*BʠC8B,BʠC@B.B BʯB@B(B C/.F MAIN PPB B%B$C BBB"BB>BBBBB#B>BCBB(BʩF MAIN PPBB BiBBF MAIN PPCBB:BB`CB`CBENBC$BT B BBB C C fBCBB=BUB0B:BB*BB`C pB*BiB,BB)B*BBDB4BDF MAIN PBUB0B|BBFBBB2BBBBEBHBB6BB6B)B2B B F MAIN PPBCBHBEB%B0B)B6B B BB8B)B2B B BCBGB2BBBHF MAIN PPB BB6B)B6B B B C B8BiB*B6BBBiB6B*BiB,BB)B*F MAIN PPBBDB4BDB0B3BiB4BEB0BaiB6BEB4B)B,BBEBLBFBLBBiF MAIN PPB(BFB`C #BBBBB6BBBB4BiB(BiB4B)B6B B BdB9F MAIN PPBB)B6BBiB0BB)B,BBB`C BFBiB.BiBFB`CBENBS$BT F MAIN PPB BBB C"C JBCB>B`C TB6BiB.BBUBTBUB2BQBB,BNF MAIN PNBMBiB*B,BBBiB,B*BiB.BB)B*BBDB8BDB2B7BiB8BEF MAIN N`` PB2BaiB,BEB8B)B.BBEBB)B:B B BDBBB BB`CBF MAIN DPBiBB%B0B)B8B B BB@BB8B)B,BBiB8B*BiB*B8B B F MAIN PPBiB8B BIB%BBB"BBBĠCBBB E B0`` BBؠCBBؠCF MAIN PBBB"BCBBؠCBB"BNB"BNB`CB4B`CBF MAIN PPBCB EBBB BBCBB B E B)B,BBBBB F MAIN PPCB BNB`CB4B`CBBCB EBBB BBCB F MAIN PPE B)B,BBBBB CB BNB`CBGOB$ B B BB(CF MAIN PPCBCB,BBCB CB BB(BBB*B BB(B C%HB B C%F MAIN PPB B_B*BB*B C'B B`CBHEBAPB$TBERBBCJC BC@B.B CF MAIN PPB BB(BOB,BB*B BiB(BFBB*B B[CB*BB*B`CBINBITF MAIN PPB$ B BBSYBSMBSGB CXBB CdBB.BFBLB*BB B B B B BEXF MAIN PPBECBUTBIOBN BBEBGIBNSCtB,BCCNBCBNBNBBC`B B(F MAIN PBB*BCxBʠCbB2BʠCbB4B CB B C,6B B CB BCfBʠCVB``B*F MAIN PB CB B CiNB`CjBFBBHBBJBBClB C&B B)BGF MAIN PPNB)BHNB NNB NNBBʼnBCnBB CB BF MAIN PPN BBCpBNBNB&BBʆB*B CB BB*B BBCpF MAIN PPB CB BBʼnBCpB͠NB CB BBCpB CB BB͠NF MAIN PPB͠NBͩB(B C~B BBB(BB CbN BBʼnBCnBͩBLB F MAIN PPCB BB(BB4BVBNBɥB"BB EB BNBFBFB*BFF MAIN PPBUB*BCB B(B,B BBCjBB*BBB*BB B(B,BCxBF MAIN PPBʼnBCB͠CB CB B EB B EB B`CBIOB$EBRRB BF MAIN PPCCCCCCCCBB B/BCBBCB[CXC BC@B|B)B(B(F MAIN PPBBBB(B B B B)B*BBBBBBB`CXBB&B,BFBBF MAIN PVT``@PB$BBBBtBBBB;BOBBBB7B BwBBBB)B*BB,F MAIN PPBB BC:BBiB*BBBB BC*BRB,BB TBB BBB BF MAIN PPBB BBBBBhBB BBBBBBBBBBBBBBF MAIN PPB BBBBB BBBBBBBB BOBC:BB(B B BBF MAIN PPBB BaFBBBՅBʀB(BʆB*B C8B B`CBMABP$B B BBOBB8F MAIN PPBBB$BTBIBPB.BC:C\BCBBBBBBBIBFB%B'B F MAIN PPBB BBFB4BeB'BBBBiB4B BEBB`CgB8BOBIB`ChBIF MAIN PPB`CjB C,lB BiB8B=B`CgBBOBIB`CjBIB`ChB BiBB BF MAIN PPB'BB B(B8B B BCjBiB8B BEB6BB0BBBBEBBʅB*F MAIN PPB CB BBiB6BBFBBBB`CBiB0BBBIBFB%B8BBF MAIN PB)B4ClBB`Cn``>B4B`ClB4BiB4B BEB8B`CqB9B`CsB:B`CuF MAIN >PB;B`CwBBB*B BBB*BF MAIN PPBBB B)B4B BBB)B,BB6BB BBC^BB`F MAIN PPC B,B`C B0BB)B6B$BBBCB>B BB,B BB=B&B@BB F MAIN PPBC#RBBB@BC BC BDBPBBC B C0FB B&B@BB-BC#RF MAIN P*BB&B@B C B C BB,BBCBPB B *``&C B C0FB BB&B@B C F MAIN &PB4B C B C/B BB@B C/.B B`C BBB,BBB B BʌB(B F MAIN PPB C/.B BB,BBB,BB,BBBBBB[BPUBT$BRCBORBB BF MAIN PPB B B BC$dC#BCB4BB(B٠C#BB٠C#BBB,B BBiB*F MAIN PPBiB,B`C#BB,BfB%B BB BfB%B BEBBfB%B BBBB`F MAIN PPC#B2BIB%B2BɅBBɠC#B BB(B C&B BfBB"BB,B BIB%F MAIN PPB2BEB*B`C#B,B`C#B2BɩB*BBɩB,B BC#BBB0BBIC#F MAIN PPBBB(B C&B BfBB B)B.BB`CBREBWNBD$B BBBC$C$hF MAIN PPBCB*BiB(B%BB#BBBfB%B BBBBfB%B BEBB٠C$sF MAIN PPBBB C&B BfBB BOBiB(BB CLB BiB(B`C$uBB`CBREF MAIN PC%BCB.BiB(BBfBB,BF MAIN PPBBC%B CB BBBiB(BUB*BBC%B CB BiB(BB`CF MAIN PPBSCBB$BINBITBB,B&BC&C&BBCB2BOBIB`C&LB`C&NB CB BF MAIN PPBBBBFB BiB,BBBBB,BiB(BiB,BC&PBB`CBSEBT$F MAIN PNBNABMEBC&C&BC@B2BB(BʯBB(BB'B*B B(B*BCxB C%F MAIN N`` PB B`CBBB$BMB(BBB`CB(BBSVBC$B B BC'C&BCF MAIN PPB*BiB(B/BBTEBRMB$ B BBBNOBRMBALB TBERBMIBNABTIBONC'BBF MAIN PPBB>B,B*BB2BBeB(BB9B-B:B.B/B)B0B1BC(C(C(RC(ZF MAIN PPC(vC(C(C(C(C(BCBBBBPBDBB@BBSTBACBK BUSBEDB =B B B F MAIN PPB B HBEABP BUSBEDB =B B B C'rBBB"B&BB C'C,C'BCBF MAIN PPBBBB(BB`C+B)B(BdB:B%BB C'BB)B(BBB6 ``DBIBB2BB`C'8B6BBB)B2C':BB`C'@B6B:B`C'BB6F MAIN DPB6B`C'DB6B2BB2BB`C'FB6B+B`C'HB6B'B`C'JB6B`C' BBF MAIN PPB B C'*B C' B4B B C'LB B C'.B C'0B B C'2B CB B`C' B>F MAIN PPB B$B>BDBBBeB B6BiB6BB`C'bBB`C'dBBBB B C'fB%F MAIN PPBB%BB%BB EB BiBBBBBBB)BC'hBB`C'hBBB F MAIN PPB)BBBBCB BB BB)BBBBBBBB B$BCBDBBB0BB`F MAIN PPC*B)BC'hBBiBBBBBB B C'jB)BB CBB`C'hBB)F MAIN PPBB$BBDBBBBC'jBC'hB CB BB B C'lB)BB B&BHF MAIN PPB BB5BB$B@BDB4BBHC'BBB@B C/.B BBB C'nBB)F MAIN PPBB B C'jB C/B BB@B C/.B BBBBBB C'nBB)BB F MAIN PB C'lB C/B BB@B C/.B ``2BBBB)B0C'pBB)B2B DBBB F MAIN 2PBB'BB B(BDB B BCjBiBBBB&BHB BB&BB$B@BDB4F MAIN PPBBC'BBB0B BB)B(B C'B CFB BB(B CNB B F MAIN PPEB B)B4BI C'BBB@B CbB BC'B B(BB B BCjBiF MAIN PPB(B%B0Ba%B.BDB.B`C'B,BBBC'lBC'BBC',BBC'.BF MAIN PPC'hBB C (B B`C'B,BB B C'lB C'pB B C',B B C'.B C'BF MAIN PPB8B#BB BB B C'lB C'B CB B.B CB BBDB(BdB:B`F MAIN PPC'hBBBB B C'fBB C'bB C'2B EB BB B C'jB)BBB CF MAIN PPB B B$BCBDBB`C'B B`C'2BB`C'bBBC'BʠC' B*B CB F MAIN PPB)B(BB:BcBBB CbB B)B(BB:B C B B`CBBBB`F MAIN P0CBʠC,B(B CB BBC&B(B E BBB0`` C&B,B E BF MAIN PBBiB(BB*B EBBBB EBBBC&B,BiB(BB*F MAIN PPB E BBBTXB$EBRRB BB2BB,B.B BC-,C,BC&BC-BCB*BiB(B%BB BB,B%F MAIN PBBB B BBBBBBBB&B%B BDBB٠C-BBB C&B B``B&F MAIN PBBBB)B(B C-B CLB B B)B(BB C/.B BBBB`CBWRF MAIN PPBI$BT B BBB0B.C/C.BBCB2BB(BfBB BBBOBiB(B`F MAIN PPC.LB CLBMB)B(BCtB B BiB(BB C/.B BBB?BfBBBEF MAIN PPB0BB&BB)B*B B C.NB B C.PBBBBB)B,B C (B B)B.F MAIN PPC.JBBB*B B BiB(BB C/.B BBBBB`C.LB.B)B.C.JBF MAIN PPBiB0BBɅBBB)B(B)B.B C,B B`CBWRBLNB$ B BBBBF MAIN PPC/C/BCB*BB(BfBB BBBOBfBBfBBfBBFB`C/$B&F MAIN PPBB B BDB C#B BBBBOBiB(B`C/&BBBBBOBiB(B`F MAIN PPC/(B CLB B`CBWRBS$BT B BBBC0.C/BC@B0B)B(BʌB(B,F MAIN PPBC/BBʠC/B*B CLB BB*BiB,BBBBBBB,BBBB F MAIN P T``@PBBBBBBBB C/.B BBBBBBBBBBB BBBF MAIN PPBBBB)B.BBBBBʠC/B*B C,B B`CBWRBX$BT B BBF MAIN PPB2B0C1 C02BCB4BB(BfBB BBBOBiB(B`C0B B C0@BBBBB)B.B CB B)B0C0:BBF MAIN PPB*B B BiB(BB C/.B BBBBB`C0BPTBPTNBBBE PF MAIN >PEEBBBEC'BPTTTBBP BPB PB$MF MAIN PPBAIBN BNNBBB(BPBBBIP$MAINCOIABEND$ F MAIN PPIPCLOSE$ ICLS$ ICLS$FILEI^CMP$ST IhCREAT$ ICUR$ F MAIN PPIDIV$ IDSTRY$ IDSTR$$ I$DMPP$HEAIDUMP$PROIDUMP$STAF MAIN PPI fENC$T I ENI$T I JENS$T I&ENT$ IENT$MD IENX$T F MAIN PPItEOLN$ I|FREE$ IFL$INIT IHGET$ME IGET$PARMIGO$ F MAIN PPI HEAP$TERININIT$ I IO$ERR I\MAP$ IjMOV$N IMSG$ F MAIN PPINEW$ I@OPEN$ IOPN$FILEI P$$TRM I PRT$MEM I#RPUTCH$ F MAIN PPI#PUT$RCORI$hREWND$ I$REWRT$ I%:RESUM$ I%RSUMR$ I%S$NAME F MAIN P$I%SCB$FREEI&BSCB$INITI&SET$NAMEI&$``,STACK$ I&STK$MARGI&SVC$ F MAIN ,PI'TERM$ I,TIP$TCA I,TX$ERR I,TX$ERR I-0LM$TIO I-0WRC$T F MAIN PPI-WREOF$ I.BWRI$T I/WRLN$ I/WRS$T I02WRX$T F MAIN PP: 11/18/83 17:19:50 SDSLNK 3.6.0 MAIN P MAIN PPIDIV$ IDSTRY$ IDSTR$$ I$DMPP$HEAIDUMP$PROIDUMP$STAF MAIN PPI fENC$T I ENI$T I JENS$T I&ENT$ IENT$MD IENX$T F MAIN PPItEOLN$ I|FREE$ IFL$INIT IHGET$ME IGET$PARMIGO$ F MAIN PPI HEAP$TERININIT$ I IO$ERR I\MAP$ IjMOV$N IMSG$ F MAIN PPINEW$ I@OPEN$ IOPN$FILEI P$$TRM I PRT$MEM I#RPUTCH$ F MAIN PPI#PUT$RCORI$hREWND$ I$REWRT$ I%:RESUM$ I%RSUMR$ I%S$NAME F MAIN P$I%SCB$FREEI&BSCB$INITI&SET$NAMEI&$` P$UC `P%e`L0P$UC  M"CUR$5P$UC 3ENT$S 3.RET$S ABP$BUCB BB7F LL$C,CBBB*BB(ABBN BBB(BB BN A,B`B7F L>:  P$UC  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 >` INIT$ `P־%g`@HINIT$ M"CUR$MPARM$ MHEAP$ M SYS$MS5JINIT$ 7FHH3LENT$MD3MOV$4 3rFL$INI3xGET$TC3~GET$PA3MSG$3SVC$ 7-F HH3ZHEAP$T3NEW$3&FREE$ 3:CREAT$3tINIT$13MOV$N 3P$INIT7'F HJ3PB$INI3RET$M ABINBITB$ B BBSYBSMBSGB C BB ACB7:  INIT$ 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 >BBCB B(A^B*BBBʠCB2BʠC7cFLJ#B4B BB AvB BB B BB BCBʠCB*B ABB B C7 FJL$NB`CBFBBHBABJBBCB BB B)BGNB)ABH7F LH"NB NNB NANBBʼnBC BB BB BA7;FHJ#N BBC"BNBNB&ABBʆB*B BB BB*B B7gFJL$BC"AB BB BBʼnBC"B͠NB CAB BBC"B CB 7+FL` F$XFTL `P>%h`H,F$XFTL 5F$XFTL3S$CLOS3 S$RTCA3*S$STOP3T$CC3T$EC 7F HH4T$ES 4T$MN3&T$MSG 3T$TIB 4T$VT ABBBB BB 7FH6BBBBhBBBFBBBBBBBB B7NF6::  F$XFTL  11/18/83 17:12:15  SDSMAC 3.6.0 83.111:`SL$NA6 `P c%i`J*SL$NAME 5SL$NAM3ENT$MD3FREE$ 3BBBiBB7LFJJ#BB AxB)B>BBDB:BB BBB:BOBIAB`C BiB:B B72FJJ#B BBiBBBBFABUBGBFBFB BiBDBFB)BBBBTABB7FJJ#BiBBBB BBDB@B)BDB ACBiB(BiBDBBBC B C.7?FJJ#B ABBBiB>BFBFBFB BiB@BFBiABDB BBdB1BB7FJ*BiBDB)B@B)A B>B BDB`B7(F *@:  SL$NAME 11/18/83 15:41:52  DXPSCL  1.8.0 83.357 @` TIP$TC `PlH%k`H#dTIP$TCA 3ABEND$3PENT$2 5NFIND$S5GET$TC3RET$2 3.S$GTCA7"F HH#3^S$MAPS3HS$PTCA3>S$SETS5&STORE$ABBBB`BBʠCB(B 7FHH#BB BBBB(B BBBBCB,B C BBBiB(BB*B 7#FH@BBBBB BBBBC(B,BiB(BB*B BBB74F @::  TIP$TCA 11/18/83 17:13:00  SDSMAC 3.6.0 83.111:`@FIND$S 0@@0GET$TC @@STORE$ @SET$NA `P%n`L$8SET$NAME5SET$NA3ENT$M 3,MOV$4 30S$NAME36RET$M ABSEBT$BNA7sFLJ#BMEBC4CBBB2BB(ABʯBB(BB'B*B B(B*BBB 71FJ A0BB B`B7F @:  SET$NAME 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`TRM$MS `P"I%o`JRTRM$MSG 3ENT$M 3*FREE$ 3:NEW$3PRET$M 3 T$MSG 5TRM$MSA7FJH#BTRBM$BMSBG BCNCBBB.BB#B(BB:B&BBBBB B7FH@B BB(B BBB BB BBiB,B)B)B5BBB`B7F @::  TRM$MSG 11/18/83 17:13:06  SDSMAC 3.6.0 83.111:`R$TERM `Pj%r`LjR$TERM 5R$TERM3ENT$MD3 CUR$3^MOV$4 3bRETRN$3hRET$M A7TFLJBR$BTEBRMBBBB BB C CfCABBB6B BB B_BEB07MFJJ#BB:BɩA0B(B BB*BBBBBiB*BBɅAHBBɩB,BBɩ7FJ0B.BBCBBBA`B BB B`B7F 0@:  R$TERM  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @`FTNIO `PX%t`@PDFPINIT M6$DATA 3ENT$2 3.F$XPREWFIOWP$5P$INIT7F PP3RET$2 ABFPBINBITB BCCBBB0B CB`BTC B T07KF PPBT2BT4BBBFTBN BIOB`T0BàT2BT4BSS S0S2S47_F PP: FPINIT 11/18/83 16:33:53 SDSMAC 3.6.0 83.111 PH*FPTERM 3ENT$S 3$F$RSTO3FIOWP$5P$TERMABFPBTEBRMB BC7FH2CBBB*B B,B CBBC"B BBB7F 2:: FPTERM 11/18/83 17:12:28 SDSMAC 3.6.0 83.111:P SCIPROCSMl$DATA F SCIPROCSPPWS$CLOSWlS$GTCAWS$IADDWS$IASCWDS$IDIVWPS$IMULF SCIPROCSPPW\S$INT WS$ISUBWS$MAPSWS$NEW WS$OPENWS$PARMF SCIPROCSPNWxS$PTCAWS$RTCAWS$SCPYW0S$SETSWJS$STOPWS$WEOLF SCIPRON``CSPWS$WRITVSCA$T VSCA$TTVSELFIDVSELFSIABB BB|BBF SCIPROCSPPB1BBBB2BBBBBCNBBB BBBB|BBB1BB`F SCIPROCSPPBBBa2BBBBBCNBBBBBB B ?BB ?BmBBBCBDF SCIPROCSPPB[B-BBmBBqBBBBBpBBB00BBBABBB BCBF SCIPROCSPPB BB'BBJB)B#BBGBBCB(B0BB9BB(BBBHB BEF SCIPROCSPPBBBBBBB`CjB B B B#B` BBmBBB@B BB BB@F SCIPROCSPPB Bp@B BbABB@BABIBBBCBBBBBmBBqBBmBBF SCIPROCSPPBBCBCBBBFBEBBBBmBBBGBHBBBBBBF SCIPROCSPPBBmBBBBrBBBBCBBB8B9B9@BDBBBBBBDF SCIPROCSPPBEBBBBBBBBBBBBBBBB B B B BBB F SCIPROCSP BBB B ``DBBBBBBBbBBBaBB BB[BB[BBBF SCIPROCSDPBBBBBBCBBBBEBBBBEBFBBBB[BABBC BIF SCIPROCSPPB1BBB܀B BBܱBBBBB@B[BB>KB-+B09BA/B*BBmBBF SCIPROCSPPBBBBB BBBB`CHBBBѱB B*BBBBBBBBF SCIPROCSPPBB BC%BBC$BBBB@BBBBBBmBBBBB BF SCIPROCSPPB BB@BBB"BBBB BBB B*BBB@BB*B BB*BF SCIPROCSPPBBB*BBB@BBB BB BC*BB*B BC)BBBBBEF SCIPROCSPPBBFB BHBBIBBBBmB BBBBBBBBB B4BC%F SCIPROCSPPBBC$BBBBBB)BC&BBC"BBBB BBBC&BF SCIPROCSPPB B+BBBBBBBBB+BBB B8BB8GBBBBBBBF SCIPROCSPBBBBBB BC#B B ``2B bBB@BBBBB@BBBBBABBF SCIPROCS2PBBBBEB BFB BABBBBBIBBBB@BBBPBBBBF SCIPROCSPPBBBBB B B BBBBBBBBjB,BB`CB0BBBF SCIPROCSPPB`CBBjBB BB/B!BBB`CBB/BB'BBB B`CB F SCIPROCSPPB`CBB/BBBB`CBB/B`CBB/BB,B*BBBʇB,BF SCIPROCSPPBBjB,BB'BBB-BBBBBBJB!BBBBB*BB*BF SCIPROCSPPBB*BBBB*BBCBCB BxaBBBʁB,BBBBGBCF SCIPROCSPPBCBCBBBB`CBBBjB,BB`CB.B*BBB#B2BF SCIPROCSPPBBBCBBBDBBBBDB BCBB`CBB`CBB/BСBB F SCIPROCSPPBBBBBBB B$B2BDBBB.BB BBBBBBjB,BB`F SCIPROCSP0CBB ThB`C,TTDTPTtTBT,TxB ThB`CT F SCIPROCS>PTB ThB`CT TB TB`CT TB TB`C\T TB TB`CF SCIPROCSPPT TB TB`C8TTBBBBBBBBBBBBBBBF SCIPROCSPPBBBBBBBB SzBBBBBBBBBBBBBBF SCIPROCSPPBBBBBBBBBBT TB TB`ClTBT"TFT&T TB F SCIPROCSPPTB`CBBBBBBBBTB .BS$BFTBLFB00BEEF SCIPROCSPPEETB+BBBBT TB T B B`CTBTFBBBTF SCIPROCSPPT TB T B`CB`CB B T B`CT T4B T4T$TRM 4T$VT 4T$WP 5$TERM$ 5(TX$ERRF SHRPROC >P5)4WRC$T 5)WREOF$5*HWRI$T 5+ WRLN$ 5+WRS$T 5,8WRX$T ABBABBENBD$F SHRPROC PPB BCBBBB CB F SHRPROC ,PB٠CABB`CvBCLBS$BFIBLEBBBCCBCB*BB(BfBBB٠F SHRPROC PPCBBB(B C#LB BBBB٠CBBB(B B`CvB7BB BB[F SHRPROC PPBCRBEABT$B BB.B>B0BCB B EBNTBRYB PBOIBNTCB2BBLEBVEBL=CC CBC F SHRPROC PPB@BBB)B(BB,BBdB,B>BBdB"B>BB4BB`CB4BBF SHRPROC PPB4BB>BcBB.BiB>BʯB@B(B C+ B BʯB@B(BʠCB*BʠCB,F SHRPROC PPBʠCB.B C+B BB4BPBB#B(BB@BCBCBB B BʯB@F SHRPROC PPB(BʠCB*BʠCB,BʠCB.B BʯB@B(B C+ B B%B$CBBB"F SHRPROC PBB>BBBB``8B#B>BCBB(BʩBB BiBBCBB:BB`CFB`F SHRPROC PPCvBENBC$BT B BBB C C BCJBB=BUB0F SHRPROC PPB:BB*BB`C B*BiB,BB)B*BBDB4BDB0B&BiB4B0BiB,F SHRPROC PPBBiB0BBEB:BFB:BBiB(BFB`C BBBBiB(BiB0BiB3F SHRPROC PPBBB6BiB0BB)B,BBB`C B6BiB.BiB6B`CxBENBI$BT B F SHRPROC PPBBB-B C C BCBNB`C BFBiB,BBB`C BUB0B|BBFF SHRPROC PPBBB2BBBBEBHBB6BB6B)B2B B BCPBHBEB%B0B)F SHRPROC PPB6B B BB8B)B2B B BCPBGB2BBBHB BB6B)B6B B F SHRPROC PPB C B8BiB*B6BBBiB6B*BiB,BB)B*BBDB4BDB0B3BiF SHRPROC PB`C B6BiB.BBUBTBUB2BQBB,BNBMBiB*B,BBBiF SHRPROC PPB,B*BiB.BB)B*BBDB8BDB2B7BiB8BEB2BaiB,BEB8B)B.F SHRPROC PPBBEBF SHRPROC PPB)B:B B BDBBB BB`CBBiBB%B0B)B8B B BB@BF SHRPROC PPB8B)B,BBiB8B*BiB*B8B B BiB8B BIB%BCBC B.B CBB BB(BOB,BB*B BiB(BFBF SHRPROC PPB*B B[CB*BB*B`CvBBIOB$EBRRB BCC@C@C@CCC4C:F SHRPROC PPBB B/BCBBCB[C|CDBC B|B)B(B(BBBB(B B B B)F SHRPROC PPB*BBBBBBB`C|BB&B,BFBBB$BBBBtBBBF SHRPROC P0B;BOBBBB7B BwBBBB)B*BB,B0`` B BC^BBiB*BF SHRPROC PBBB BCNBRB,BB TBB BBB BBB BBBBBhBF SHRPROC PPB BBBBBBBBBBBBBBB BBBBB BBF SHRPROC PPBBBBBB BOBC^BB(B B BBBB BaFBBBՅBʀB(F SHRPROC PPBʆB*B CB B`CvB7B BB7B7B7B7B7B7B7BB[BCJB,B,F SHRPROC PPB:BEBKBB[BNEBW$B B BBBB4CBCBCB@BB*B F SHRPROC PPBBB*BBB#B8BB*BB*B BBBB`CF SHRPROC PPB*BTB0BBSB6BBB6BCB.BB.BB BBB.BBBiB.BiF SHRPROC PPB.B0BBTB0BBBBBBBBBBBUB6BBB6BBB6F SHRPROC PPB BB*B BBYBB.B`B*BCB,BB`BBB6BBB BBBBTB,F SHRPROC PBBB.B`B,BBB,BăBB"BBB,BbBB.BBȩB.BBB.B``BȔF SHRPROC PBB BBB6BB.B`B,BBB,BăB`CBBcB:BBB#B BCB8BB*F SHRPROC PPB"BBBB:BB8B BB:B BBBBB8BBCB CrB BB4F SHRPROC PPBBB8B BCB8BB BB)B8BBiB:B8BBB8BBCB CrF SHRPROC PPB BB4BBdBB2BB2B#BBBBcBB2BBB2BB4BBF SHRPROC PPB4BFB2BB4B#BBŃBB4BB8B"BBɂBBɤBBBB8B#BF SHRPROC PPBB2BȃBBBbBBVBBB2BȔBBBiB2BbBB BBȖBBF SHRPROC PPB`CBB>BB*BBB(BBBCB CB B`CvBCJB(B,B:F SHRPROC PPBEBKBB[BP$BCMBSGB BCCZBC BBB:BgEBiB-F SHRPROC P.T``@PB BCB)B(BiB*BJBBBCBBC(BB,B!CBBiB2BF SHRPROC PPCB B`CdBBMBBBDBBBBBBBBBBBBCBDBF SHRPROC PPB BB B BBBBB.BBB[BKBBB)B.BB BGB4B/B4B F SHRPROC PPB B5B@BJBBBBCBC(BiB*BCBBBB[BKB@BBrBFF SHRPROC PPBBB BGBHBiBDBCBLBFBSB)BHBPBOBC'B BB)BHBF SHRPROC PPBPBBܠC(BBBC%BBܴBB)BHBBBiBHBB BGB:BÉB.F SHRPROC PPBB?1B *B**B ?B;\B BBCBFBILBE BB*?B1 BACBCEBSSB NBAMBE F SHRPROC PB?2B\ABTTBEMBPTB T``>BO BREBADB PBASBT BEOBFBB,?B1 BACBCEBSSB NBAMBE F SHRPROC >PB?2B\ABTTBEMBPTB TBO BSKBIPB BBEYBONBD BEOBMBB?B1 BNOBT BOPBENBEDF SHRPROC PPB FBORB RBEABDIBNGB(B;?B1 BACBCEBSSB NBAMBE B?2B\OBPEBN BERBROBR B- F SHRPROC PPBELBEMBENBT BSIBZEB >B RBECBORBD BLEBNGBTHB)B?B1 BNOBT BOPBENBEDB FF SHRPROC PPBORB WBRIBTIBNGB-B*?B1 BACBCEBSSB NBAMBE B?2B\OBPEBN BERBROBR B- BSTF SHRPROC PPBATBUSB =B ?B3B.B*?B1 BACBCEBSSB NBAMBE B?2B\OBPEBN BERBROBR B- BSTF SHRPROC PPBATBUSB =B ?B3B/B*?B1 BACBCEBSSB NBAMBE B?2B\RBEABD BERBROBR B- BSTF SHRPROC PPBATBUSB =B ?B3B0B+?B1 BACBCEBSSB NBAMBE B?2B\WBRIBTEB EBRRBORB -B SF SHRPROC PPBTABTUBS B= B?3B9BC?B1 BACBCEBSSB NBAMBE B?2B\OBPEBN BERBROBR B- BFIF SHRPROC PPBLEB TBYPBE BANBD BACBCEBSSB MBETBHOBD BCOBNFBLIBCTB:BC?B1 BACBCEBSSF SHRPROC P$B NBAMBE B?2B\OBPEBN BERBROBR B- BFI$``,BLEB TBYPBE BANBD BACBCEBSSB MBETF SHRPROC ,PBHOBD BCOBNFBLIBCTBBCBB B MBEMBORBY BPABRIBTYB BIBLLBEGBALB OF SHRPROC PPBPCBODBEB BIBLLBEGBALB TBILBINBE BADBDRBESBSBBIBLLBEGBALB SBUPF SHRPROC PPBERBVIBSOBR BCABLLBBABDDBREBSSBINBG BERBROBRBBPBRIBVIBLEBGEBD F SHRPROC PPBINBSTBRUBCTBIOBNBB TBASBK BKIBLLBEDBBTBASBK BERBROBR B#?B1BF SHRPROC PPBSBTABCKB OBVEBRFBLOBWBB HBALBT BCABLLBEDBB HBEABP BFUBLLB BDF SHRPROC PPBIVBIDBE BBYB ZBERBOB&BIBNVBALBIDB PBACBKEBT BPOBINBTEBRB'BIBNVF SHRPROC PPBALBIDB LBENBGTBH BOFB PBACBKEBTB2BCBANBNOBT BGEBT BMEBMOBRYB3BEF SHRPROC PPBRRBORB CBODBE B= BP4B01B5BEBRRBORB CBODBE B= BP4B03B8BTBCAB ABCCF SHRPROC PPBESBS BERBROBRBB7"BCABSEB" BALBTEBRNBATBIVBE BERBROBR\B BSTBATBEMF SHRPROC P6BENBT B?1B BALBTEBRNBATBIVBE B?2B*BFBILBE B?1B LBUN6``BO B#?B2 BNOBT F SHRPROC PBASBSIBGNBEDB1B CBANBNOBT BLOBADB OBVEBRLBAYB, BSTBATBUSB =B ?B1BF SHRPROC PPBCBTBEXBT BFIBLEB IB/OB EBRRBORB: BSBPBARBAMBETBERB OBUTB OBF BRAF SHRPROC PPBNGBE B NBAMBE=B?1BTBFBIEBLDB WBIDBTHB TBOOB LBARBGEB B NBAMBE=B?1F SHRPROC PPBUBIBNCBOMBPLBETBE BDABTAB BNABMEB=?B1BVB#IBNVBALBIDB CBHABRABCTF SHRPROC PPBERB IBN BFIBELBD B NBAMBE=B?1BWBVBALBUEB TBOOB LBARBGEB BNABMEB=?F SHRPROC PPB1BXBRBEABD BPABSTB EBNDB OBF BFIBLEB BNABMEB=?B1BYB"FBIEBLDB EF SHRPROC PPBXCBEEBDSB RBECBORBD BSIBZEB BNABMEB=?B1BBPRBT$BMEBM BBB,B(F SHRPROC PPB0BB.B@B)BBPBB BSABMEB ABS BLABSTB LBINBE C^CC>BCF SHRPROC PPBRBBBB:BiB(B,B)B*BBDB4BB0B)B,B BB4B BBF SHRPROC PHB`CvB&B@BB BC BB&B@B CHB CFB B CJB C,8B BB&F H``SHRPROC PB@B CFB CLB C)4B BB&B@B CHB CFB B CNB C,8B B&B@F SHRPROC PPBB)BC B)B,B$BBDB2BB BB4B BB Ba)B4BBBBF SHRPROC PPBB8BCB:BiB4B2BiB,B6B)B2Ba)B6BDB8B)B,B BB2B BF SHRPROC PPBBB&B@B CPB CFB)B,B C,8B BB,BB0BBBBiB8BPF SHRPROC PPBEBPBB)B6BBBB BCBBB B)B4B BBB)B,BB6BB F SHRPROC PPBBCBB`CXB,B`CXB0BB)B6B$BBBCB>B BB,B BF SHRPROC PPB=B&B@BB BC BBB@BCHBCFBDBPBBCZB C,8B B&F SHRPROC PB@B``JB-BC BB&B@B CHB CFBB,BBCBPB B CZB C,8B F SHRPROC JPBB&B@B C\B4B CrB C+B BB@B C+ B B`CBBB,BBF SHRPROC PPB B BʌB(B B C+ B BB,BBB,BB,BBBBBB[BPUBT$F SHRPROC PPBRCBORBB BB B B BC"C!*BCB4BB(B٠C!5BB٠C!7BBF SHRPROC PPB,B BBiB*BiB,B`C!9BB,BfB%B BB BfB%B BEBBfB%F SHRPROC PPB BBBB`C!:B2BIB%B2BɅBBɠC!2B BB(B C#LB BfBB"F SHRPROC PPBB,B BIB%B2BEB*B`C!2B,B`C!BF SHRPROC PPBB0BBIC!>BBB(B C#LB BfBB B)B.BB`CvBREBWNBD$B F SHRPROC PPBBBC"tC" BCB*BiB(B%BB#BBBfB%B BBBBfB%F SHRPROC PPB BEBB٠C"BBB C#LB BfBB BOBiB(BB CpB BiB(B`F SHRPROC PC"BB`CvBREBSUBM$B ``8BC"C"xB-B&BB B"BB$BB&BB(BF SHRPROC 8PBB(BB(BkB"BëB$BB&BMBBCFB,B:B BBBCJB0BlF SHRPROC PPB(B(B`CxBSCBB$BFRBEEBB,B*C#$C"BCB.BiB(BBfBB,BF SHRPROC PPBBC"B CrB BBBiB(BUB*BBC"B CrB BiB(BB`CvF SHRPROC PPBBB$BMB(BBB`CB(BBSVBC$B B BC#XC#>BCJB*BiB(F SHRPROC PPB/BBTEBRMB$ B BBBNOBRMBALB TBERBMIBNABTIBONC#fBBBB>B,F SHRPROC PPB*BB2BBeB(BB9B-B:B.B/B)B0B1BC$VC$tC$C$C$C$C$F SHRPROC PPC%C%&C%B B$B>F SHRPROC PPBDBBBeB B6BiB6BB`C#BB`C#BBBB B C#B%BB%BF SHRPROC PPB%BB ChB BiBBBBBBB)BC#BB`C#BBB B)BBBBCF SHRPROC PPB BB BB)BBBBBBBB B$BCBDBBB0BB`C'B)BC#F SHRPROC PB CpBMB)B(BCXB B BiB(BB C+ B BF SHRPROC PPBB?BfBBBEB0BB&BB)B*B B C*@B B C*BBBBBB)F SHRPROC PPB,B C B B)B.C*B.B)B.C*PRT$MEM I PUTCH$ I!*PUT$RCORI" REWND$ I"xRESUM$ F SHRPROC PPI"RSUMR$ I"SCB$FREEI#(STACK$ I#4STK$MARGI#>SVC$ I#ZTERM$ F SHRPROC PPI(tTX$ERR I(tTX$ERR I)"LM$TIO I)"WRC$T I)WREOF$ I*4WRI$T F SHRPROC PPI+ WRLN$ I+WRS$T I,$WRX$T F SHRPROC PP: 11/18/83 17:21:03 SDSLNK 3.6.0 SHRPROC P SHRPROC PPIPDIV$ IDSTRY$ IDSTR$$ IDMPP$HEAIBDUMP$PROIDUMP$STAF SHRPROC P0I ENC$T I ENI$T I ENS$T I ENT$ IzE0`%SCIRTNS `P^&>H%`@PSCIRTNS MN$DATA F SCIRTNS PPWNS$GTCAWS$IADDWS$IASCWDS$IDIVWPS$IMULW\S$INT F SCIRTNS PPWS$ISUBWS$MAPSWS$NEW WS$PARMWZS$PTCAWfS$RTCAF SCIRTNS PPWS$SCPYWS$SETSW,S$STOPVSCA$T VSCA$TTVSELFIDVSELFSIF SCIRTNS PPABB BB|BBB1BBBB2BBBBBCNBBB BBF SCIRTNS PPBB|BBB1BB`BBBa2BBBBBCNBBBBBB B ?F SCIRTNS PPBB ?BmBBBCBDB[B-BBmBBqBBBBBpBBB00BBF SCIRTNS PPBABBB BCBB BB'BBJB)B#BBGBBCB(B0BB9F SCIRTNS PPBB(BBBHB BEBBBBBBB`CjB B B B#B` BBmBF SCIRTNS PPBB@B BB BB@B Bp@B BbABB@BABIBBBCBBBBF SCIRTNS PBmBBqBBmB``>BBBCBCBBBFBEBBBBmBBBGF SCIRTNS >PBHBBBBBBBBmBBBBrBBBBCBBB8B9B9@F SCIRTNS PPBDBBBBBBDBEBBBBBBBBBBBBBBBF SCIRTNS PPB B B B BBB BBB BBBBBBBBbBBBaBB F SCIRTNS PPBB[BB[BBBBBBBBBCBBBBEBBBBEBFBBF SCIRTNS PPBB[BABBC BIB1BBB܀B BBܱBBBBB@B[BB>KB-+F SCIRTNS PPB09BA/B*BBmBBBBBBB BBBB`CHBBBѱB B*BF SCIRTNS PPBBBBBBBBB BC%BBC$BBBB@BBBBBF SCIRTNS PPBmBBBBB BB BB@BBB"BBBB BBB B*BBF SCIRTNS PPB@BB*B BB*BBBB*BBB@BBB BB BC*BB*B F SCIRTNS P$BC)BBBBBEBBFB BHB$``,BIBBBBmB BBBBBF SCIRTNS ,PBBBB B4BC%BBC$BBBBBB)BC&BBC"BBF SCIRTNS PPBB BBBC&BB B+BBBBBBBBB+BBB B8BF SCIRTNS PPB8GBBBBBBBBBBBBB BC#B B B bBB@BBBBF SCIRTNS PPB@BBBBBABBBBBBEB BFB BABBBBBIBBBB@F SCIRTNS PPBB0$B.(BBBBBB B:BBBBB6BBBB1BB BCF SCIRTNS PPBBCBBBBBCBBCB B`BBBBBBBBBF SCIRTNS PPBBBBBpBBB܀B4B BܴBBB1B BB`BCBܱBBBBF SCIRTNS PPBBBBCBBBBBBB@BBB.BB/BBB*B(BځBB/F SCIRTNS PPBBB/BjBBBB/BBjB BB*BBB*B"B/B*B$BPB BBF SCIRTNS P6BBBBB BRBʁB BBAB?BʁBB CBB*B&B*6``BBBBFBʃBF SCIRTNS PBB*BBBڄBBAB9`CB=`CBFB%B00BڅBBBڅBBjB B BʁF SCIRTNS PPBB*BBBB EEEEBBBBBBJB!BBBBF SCIRTNS PPBB BCxBBBBBCBCTBBBBBBCTBBABBCvF SCIRTNS PPB1BBB܀B BBܱBBBBB@B[BBjB BYBBB B*BBF SCIRTNS PPB BBBB BB BBHBBBBBvBBBBB B8B BB8F SCIRTNS PPB BBBBB@BBŒB[BBCBCFBBBBBCBBjBF SCIRTNS PPBYB*B B*BBB BB BBBBBB BђB BB'BBBBF SCIRTNS PPBBBBBBBB B6BBBBBB B6BBBBvB[BBF SCIRTNS PPB@B[BjBBYB-B B*BBB BBHBB BBBsB BBBB8F SCIRTNS PHB BB8B BBBBB8BB BBBBBBBjBBYBBBF H``SCIRTNS PBSBBGBB[BBB@B[BNBBBB qBMBQBB rBBB[BmBBF SCIRTNS PPBB*BBB BB"BBBrBòBBBABCBBB*BBBBBF SCIRTNS PPCB*BBBBB BBBBāB*BBB/B BBB*BpB B*BxF SCIRTNS PPBBJB!BBʁBpB*BvBBBBCBCjBCB CTBjBdBB F SCIRTNS PPBCBCjBIB`BBBBB@BBB*BvBBB*BpBBʪBhBjF SCIRTNS PPBCBCBCB CBBB@BCBCB BBBBB@BBF SCIRTNS PPBBڻBbBB*BzBʐBnBBʪBpBfB/B`B*BaB B BB;BBB F SCIRTNS PPBBKB/BrBBB[BBBB\STTB`CTT B`C$B`CNTF SCIRTNS PPTB T B`ClTSDTTHB T B`CTTTB T B`CNT.T`B ThF SCIRTNS PPB`C,TTDTPTtTBTTxB ThB`CTTB ThB`CTTB F SCIRTNS PTB```JCT$TT(TTTB TB`CfBBBBBBBBTB .F SCIRTNS JPBS$BFTBLFB00BEEEETB+BBBBTTB TB F SCIRTNS PPB`CT$T(BBBTTTB TB`CFB`CTB B TB`CxTTF SCIRTNS PPB TB`CB BTB`CB`CT.T0B T8B`CTTNTZTBTF SCIRTNS PPBBBBBTTRB TrB`CTT^B TrB`CnTTjB TrB`CF SCIRTNS PPB`BBBB:B`BBBSYBSTBEMBBBpBBBBBBBB B F SCIRTNS PPB B B B B B BSBBBBB`BBBBBBTTTF SCIRTNS PPIS$IADD IjS$IASC I"S$INT IS$MAPS IfS$NEW IS$PARM F SCIRTNS PPIS$SETS IS$STOP IS$TCA$ IS$WSP1 IS$WSP2 IS$WSP3 F SCIRTNS PP: 11/18/83 17:18:51 SDSLNK 3.6.0 SCIRTNS P F SCIRTNS PTB``@%S$GTCA %@@S$MAPS %@@S$PARM %@@S$SETS ,%@@,S$STOP %@'P$TERM `PpE%`J0P$TERM 3ENT$S 5P$TERM3,S$STOP3T$CC 3T$EC3(T$MSG A7FJHBP$BTEBRMBBC.CBBB(B,B:BhBBBBBaBBBB 7uFH BB7F ::  P$TERM  11/18/83 17:12:53  SDSMAC 3.6.0 83.111:`)P$PARM `PsE%`J0P$PARM 3ENT$S 5P$PARM3.RET$S 3"S$PARMABP$BPABRMBBC,7MFJ<CBBB2BiB(BB.BԩB+B BBBB0BB`B7F<::  P$PARM  11/18/83 17:12:50  SDSMAC 3.6.0 83.111:`+INIT `Pv^%`@HINIT$ MCUR$MPARM$ MHEAP$ M SYS$MS5JINIT$ 7FHH3LENT$2 3MOV$4 3tFL$INI3zGET$TC3GET$PA3MSG$3SVC$ 7BF HH3fHEAP$T3NEW$3*RELEAS3BCREAT$3INIT$13MOV$N 3P$INIT7F HJ3PB$INI3RET$2 ABINBITB$ B BBSYBSMBSGB C BB ACB77FJJB.BFBLB*BBB BB BA0BEXBECBUTBIOBN BBEBGIBNSC&B,B7FJL$CAHCBBBNBNBʇB(BCB A^B(B*BBBʠCB2Bʠ7}FLJ#CB4B BAvB B BB B BB BʠCB(BʠCAB*B BB 7FJL$B CNB`CBFBABHBBJBʉB(BCB(B BB B)ABG74FLJ#NB)BHNB NNAB NNBʉB(BC B(BB*7FJJ#AB BB BN BʉB(BC"B(BANBNB/BBʏB*7FJJ#B BB A BB*BBj`C$B*BB*BïBBBNA"B*BʎB(B B7FJ``L$B BʠNB(BʠA6NB*BʩB(B,B BB BBB(ALBB C7F LL$N BʉB(BC B(BʩBLAbB*B CB BB(BB6BßBNAx7F LL$BB"BB BB BNBOBOB*ABÏB^B*BC@B B(B,B B7FLJ#BBABB*BBB*BB B(B,BCdBʉAB(BCBB(BʠCD7FJ0B*B CB B BAB B BB B`B7'F 0>:  INIT$ 11/18/83 15:41:52  DXPSCL  1.8.0 83.357 >BBʠCB2Bʠ7}FLJ#CB4B BAvB B BB B BB BʠCB(BʠCAB*B BB 7FJL$B CNB`CBFBABHBBJBʉB(BCB(B BB B)ABG74FLJ#NB)BHNB NNAB NNBʉB(BC B(BB*7FJJ#AB BB BN BʉB(BC"B(BANBNB/BBʏB*7FJJ#B BB A BB*BBj`C$B*BB*BïBBBNA"B*BʎB(B B7FJ`+FPTERM `P|A%`J*FPTERM 3ENT$S 3$F$RSTO3FIOWP$5P$TERMABFPBTEBRMBBC7FJ4CBBB*B B,B CBBC"B BBB7F 4::  FPTERM  11/18/83 17:12:28  SDSMAC 3.6.0 83.111:`-S$NAME `PN%`LZS$NAME 5S$NAME3ENT$MD3,FREE$ 3:MOV$4 3HMAP$3XRET$M A73FLJBS$BNABMEBBB8B6CVCBBB:ABB(BfBB8BBBC 7;FJJ#B BB A0BB'B*BBBBʉB0BC B0B AHBB BB(Bɩ7FJB6BB`B7F @:  S$NAME  11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`,GET$ME `PC%`J$fGET$ME 5GET$MEABGEBT$BMEBM BB0BB6CdCBBB$B C 7FJH#B,BhB(B!BB QBB.B/B,BB(B-B BBBB CB,BB.7FH0B/B,BBBBB*BĉBB ABBBB7>F0::  GET$ME  11/18/83 17:12:33  SDSMAC 3.6.0 83.111:`0SL$NAM `P %`J.SL$NAME 5SL$NAM3ENT$MD3FREE$ 3BBBBB BIBFA`B%B1B BB BBFB>BB7FJJ#BiBBAxBB B)B>BBDB:BB BBB:ABOBIB`C BiB:7FJJ#B BB BBiBBABBFBUBGBFBFB BiBDBFB)BBABBT72FJJ#BBBiBBBB BBDB@B)ABDB CBiB(BiBDBBBC 7FJJ#B AC.B BBBiB>BFBFBFB BiB@ABFBiBDB BBdB17lFJ0BBBiBDB)A B@B)B>B BDB`B7F 0@:  SL$NAME 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`1MESAG$ `P X%`D MESAG$DXMPARM$ M SYS$MS5MESAG$3ENT$MD3REWRT$7FDL$3SET$AC3WRS$T 3WRLN$ 3RET$M ABMEBSABG$BDXBBNB B.7#FLL$B,CACBBBB`NB BKBH C A*NB`NB1BN7FLL$B BB A:  MAP$  11/18/83 15:19:05  DXPSCL  1.8.0 83.357 >=B`C BBOBIB`CBIB`C AB BiBB BB'7FJJ#BB B(B8B B ABBBiB8B BEB6BB0BBBABEB7[FJJ#BʅB*B BB BBiB6BBFABBBB`BBiB0BBBIBF7FJJ#B%AB8BBB)B4CBB`CB4B`CAB4BiB4B BEB8B`7!FJJ#CB9B`CB:A B`CB;B`CBBABIBBBCBBBBBmBBqBBmBBF SCIPROCS>PBBCBCBBBFBEBBBBmBBBGBHBBBBBBF SCIPROCSPPBBmBBBBrBBBBCBBB8B9B9@BDBBBBBBDF SCIPROCSPPBEBBBBBBBBBBBBBBBB B B B BBB F SCIPROCSPPBBB BBBBBBBBbBBBaBB BB[BB[BBBF SCIPROCSPPBBBBBBCBBBBEBBBBEBFBBBB[BABBC BIF SCIPROCSPPB1BBB܀B BBܱBBBBB@B[BB>KB-+B09BA/B*BBmBBF SCIPROCSPPBBBBB BBBB`CHBBBѱB B*BBBBBBBBF SCIPROCSPPBB BC%BBC$BBBB@BBBBBBmBBBBB BF SCIPROCSPPB BB@BBB"BBBB BBB B*BBB@BB*B BB*BF SCIPROCSP$BBB*BBB@BBB BB B$``,C*BB*B BC)BBBBBEF SCIPROCS,PBBFB BHBBIBBBBmB BBBBBBBBB B4BC%F SCIPROCSPPBBC$BBBBBB)BC&BBC"BBBB BBBC&BF SCIPROCSPPB B+BBBBBBBBB+BBB B8BB8GBBBBBBBF SCIPROCSPPBBBBBB BC#B B B bBB@BBBBB@BBBBBABBF SCIPROCSPPBBBBEB BFB BABBBBBIBBBB@BBBPBBBBF SCIPROCSPPBBBBB B B BBBBBBBBjB,BB`CB0BBBF SCIPROCSPPB`CBBjBB BB/B!BBB`CBB/BB'BBB B`CB F SCIPROCSPPB`CBB/BBBB`CBB/B`CBB/BB,B*BBBʇB,BF SCIPROCSPPBBjB,BB'BBB-BBBBBBJB!BBBBB*BB*BF SCIPROCSP6BB*BBBB*BBCBCB BxaBBBʁB,B6``BBBGBCF SCIPROCSPBCBCBBBB`CBBBjB,BB`CB.B*BBB#B2BF SCIPROCSPPBBBCBBBDBBBBDB BCBB`CBB`CBB/BСBB F SCIPROCSPPBBBBBBB B$B2BDBBB.BB BBBBBBjB,BB`F SCIPROCSPPCB:  RDLN$ 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 >`DI$DIV `P NB%`J$DI$DIV 3JABND$15DI$DIV5 DI$MOD3@ENT$S ABBBC.BB7FJH#BBB$BC.BBAB,B$B$BBBDBBBBB B B B"B7FHH#B BBBBB(BBB`BBBBBBBBBBBBB+@BB7_FHH#BB@BBBBB B BBBBB0BCBBBBBBB!B7JFHH#BCBBBBB BBBGB B BBBBBBBB B BB7GFHH#BBKBBB B`IBBB`BBMBBBDBBBBB BlB"B[7FH::  DI$DIV  11/18/83 16:17:55  SDSMAC 3.6.0 83.111:`@NDI$MOD @F$RAER `Pc%`J$F$RAER M $DATA 3ABND$05F$RAER3T$TIB AB CTCB7F J"BB BB`BSUPM$FTN7F "::  F$RAER  11/18/83 16:21:17  SDSMAC 3.6.0 83.111:`P$CMSG `PR%`@JP$CMSG 3ENT$2 5P$CMSG3TRET$2 3T$MDIRABP$BCMBSGBBA 7 FJH#CRCBBBBB:BgBBiB-B BCVB)B(BiB*BJBBB7;FHH#CBBCBB,B!CBBiB2BCB B`BBBMBBBDB7FHH#BBBBBBBBBBBCBDBB BB B BBBBB.7FFHH#BBB[BKBBB)B.BB BGB4B/B4B B B5B@BJBBBB7yFHH#CBCBiB*BCBBBB[BKB@BBrBFBBB BGBHBiBD7FHH#BCBLBFBSB)BHBPBOBCB BB)BHBBPBBܠCBB7FHH#BCBBܴBB)BHBBBiBHBB BGB:BÉB.BB?1B *B**B ?B;\`` B 7yF ::  P$CMSG  11/18/83 16:24:35  SDSMAC 3.6.0 83.111:#CRCBBBBB:BgBBiB-B BCVB)B(BiB*BJBBB7;FHH#CBBCBB,B!CBBiB2BCB B`BBBMBBBDB7FHH#BBBBBBBBBBBCBDBB BB B BBBBB.7FFHH#BBB[BKBBB)B.BB BGB4B/B4B B B5B@BJBBBB7yFHH#CBCBiB*BCBBBB[BKB@BBrBFBBB BGBHBiBD7FHH#BCBLBFBSB)BHBPBOBCB BB)BHBBPBBܠCBB7FHH#BCBBܴBB)BHBBBiBHBB BGB:BÉB.BB?1B *B**B ?B;\`EOLN$ `Pp_%`*EOLN$ 5EOLN$ AB,BBB[7F *8:  EOLN$ 11/18/83 16:20:36  SDSMAC 3.6.0 83.1118`MM$DIR `P$%`J$MM$DIR M$DATA WMM$DIRXPM$RTMSBBBBBBB7FJB BBBBBZMM$USRZPM$CHKZPM$CMPZ PM$FLT7FF BH#ZPM$FTNZPM$IO ZPM$MISZ PM$MPKZPM$TIOZPM$USR7FH::  MM$DIR  11/18/83 16:24:08  SDSMAC 3.6.0 83.111:`DER$T$ `P F%`JDER$T 5:DER$T 3B0BEBQBRBZA0B\BNBCC7FJJ#BBBrBB*BB`AHC BZBB.BBcBbB_B2B_B`CA`BZ7SFJJ#BB.BßBB*BBNB2BSBB.AxB_BRB`C BfB`CBdBBh7FJJ#BBZABB*BBB.BßBB*BBNB2BiABRB2BBB(B7FJJ#BRBӯBB BNBPABB B=BNBfB)BNBdB&B`CBZABBX7FJJ#BBVB`CBTBBbBC B AB(B6BBBC B B(B>BC7FJJ#BiABRB2BBBBZBB`CvB`CBA B)BPCBBBOBh7FJJ#B`CBdB`CA8BfB`CBZBBRBBB(BBRBӯAPBB BN7FJJ#BPBB0B0BB9B-BBbAhB"B.BBNBFBʉB(BC"B(BʎB*7FJN``J#ABʉB,BC$B,B BB BB>B BAB'B>B B(B6BCB7FJJ#B`C BbBABVBiBXBVBBZB>BiBPBTBB)ABXB`C&BT7FJJ#B4B)BPC(BB)BPC*AB0BB*BBBB2BcBRBOB*BA7FJJ#BRBB/B(BB(BB*BBC,BABC.BB2BBC0B B79FJJ#B BBZA(B$BiB\BVBBRBBOB2BBRA>B`CBB*BB7FJJ#BiBRB2BBB(AVBBRBӯBB BB BBBRBB`AnCBZ7FJJ#B`CB)B6B)B8BB)B:B)AB:  DER$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >B:B)AB%`LDEC$T 5DEC$T 3ENT$S 3RET$S ABDEBC$BT B BBB CC7cFLJ#BBB:  DEC$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >` WRC$T `P)%`JWRC$T 3ENT$M 30IO$ERR3RET$M 3TX$ERR5WRC$T 3XWRLN$ A7FJHBWRBC$BT BBBBAC~CBBB.B)B(BʌB(B,BC BBʠ7FHH#C B*B BB BB*BBBB,BBBBBBBBBBB7FHHB BB BBBBBBBBBBBBBBBBB-B`B7FH BʠC B*B BB B7:F 8:  WRC$T 11/18/83 16:28:30  SDSMAC 3.6.0 83.1118` CVTF$E `P, %`J#CVTF$E 5 CVTF$E3"ENT$MD3SETIN$3DIV$ 3 SET$EL3jDI$DIV7{F JJ 3RET$M ABCVBTFB$EBBBB BBBCBABBCCB7[FJJ#BBFBB0BB2B)A0B*C B BiB(BUB2BBB0B B)AHB07FJJ#BBiB(BuB0BUB2BiB.BBA`BiB.BBBB0BBBiB07[FJJ#B)B2AxBBB0B`C BBBDB7FJJ#BAB`BB B(BBBCB7B7B B,BBABBBBiBBB8Bi7FJJ#BDB:BjiB>B,A BB>BBB)B:B9)B0BB)B2B9)A8B8BB)7FJJ#B2B9)B:BBDB0BEB2BAPB>BBB B)B0B)B2B)B8B)B:7*FJJ#AhB BB B|B0B\B2BB,BBBj`ACB,BiB.B)B,B B7FJN``J#BCBBABHB`BB BDBBU`CBDBiB.B)AB(BBCB7BBDB7FJJ#BAB`BB B(BBBCB7B7B B,BBABBBBiBBB8Bi7FJJ#BDB:BjiB>B,A BB>BBB)B:B9)B0BB)B2B9)A8B8BB)7FJJ#B2B9)B:BBDB0BEB2BAPB>BBB B)B0B)B2B)B8B)B:7*FJJ#AhB BB B|B0B\B2BB,BBBj`ACB,BiB.B)B,B B7FJN` LM$MIS `P2bt%` LM$MIS UPM$MIS7F::  LM$MIS  11/18/83 16:22:47  SDSMAC 3.6.0 83.111:` DSIN$ `P5G%`@H#DSIN$COS5DCOS$ 5NDSIN$ 3PENT$2 3MP$ERR3P$IDAC4P$IDAD7FF HF"4P$IDDV3ZP$IDF13P$IDLC4P$IDLD3P$IDMC3P$IDML4P$IDMV7F FH#3tP$IDPK4P$IDSB3P$IDSC3P$IDSS3P$IDST3xRET$2 ABDCBOSB$ 7IFHH#B BBCvCBBBBCzBBCBBBBCBBB B7FHHBCBBB`CvBSIBN$B BBBCvC>BCBBCzBCC7FHH#BBB@BBBBCB()BBC8B`BBB0B B@B:BBB@7%FHH#B8BB8BB[BKBbBJBfBJBBBBBŠBBC&CBBB77FHH#BB`CB(B`CB*B`BBCBSIBNCBOSBCCB`CBBC7FHH#BABB BBBBfBJBBJBfBJBBABBBCBBBB7FHH#B©BB B1BBBhBBBhBCBtBCCNBBCBBCBt7{FHH#BC0C6BC6BtBC:  RDI$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`RDX$T `P> ^%`J:RDX$T 5RDX$T 3ENT$MD3:IO$ERR3EOF$ 3`GET$CH3EOLN$ 7F JJ3DEX$T 32TX$ERR38RET$M ABRDBX$BT BBBBB BB2B0C67$FJJ#ACBBB:BB(BfBB BEBBOA0BiB(B`C B BB{B`7FJJ#C B0BB8AHBB*BB)B(BBBgBiB(BBA`BBBGB47FJJ#BBBdB)B4CBBfAxBB2B/B)B(BCTBOBfBBiB*A7sFJJ#BB BEBfBBBEB2B)B(BBABBfBBafBBBEB6BE7FJJ#B*BBAB)B*BaBDB8BiB6B*BBiB*B8ABB*BOBfB7FJJ#BiB*BiB,BIB`CABIB`CB&BBBDBiB.B BB ABi7FJJ#B2BBɅBBB0BBB8BBA B`CB0BOBiB(BiB0B B7FJB B`A8B7F >:  RDX$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`FL$INI `PAض%`L$FL$INIT 5FL$INI3ENT$MD3|MOV$4 3SCB$IN3RET$M ABFLB$IBNI7FLJ#BT BBBB6CCBBABEOLN$ 3WRLN$ 3ENB$T 7F JJ#3TX$ERR3RET$M ABWRBB$BT B BBB0B.CCBBAB2B7FJJ#B(BfBB BBBOBiB(B`A0C B BBMB)B(BBB B Bi7FJJ#B(AHBB BB BBB?BfBBBEB0A`BB&BB)B*B B 7 FJJ#C B B CBAxBBBB)B,B BB B)B.CBABB*B 7FJJ#B BiB(BB CLB BBABBB`C B.B)B.CBBiB0B7oFJ0ABɅBBB)B(B)B.B BB B`B7F 0>:  WRB$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`TEN$ `PV `%`@LTEN$  56TEN$38ENT$MD3:FL$ITP3PHALT$ 3~RET$M ABTEBN$B7}FLJ#B BBABABBdBD'BBG_B^ABN#BB[NBBvBOCdCCCCC 7FJJ#A0C,C|CBBBB*B)BLBBB'BB BBBBBBBB7F >PBBBBBBBBBBBBBBBBBBBBgBB73F PPBBBBEBBBBBވB BBBވBBBBBBB`CB*B7uF PPB'BB BBHBBѧB B+BLBBBFBBbB(B@B:BzBBB*7]F PPBBBBBB-BBDBBBB CBB BB BBB BB ABB 7F PPBDB @BBDBBBB B΀B΁B΂BƃB*BBBBBB BBB@7F PPBBBBBB BBB[7XF PP: F$XDD 11/18/83 16:36:40 SDSMAC 3.6.0 83.111 PP0F$XMD 5F$XMD ABBBBBBBBBABBBBB7?F PPBBBBJBBC"CBCBCBBIBB@#CB8 BBBhCDB B7F P$BBBBBBBBBBBB$``,BBBBBBB BBB7F ,PB@BBBBABBBBBBCBBBBBBBBBCBBЙB7F PPBBBBB#BBBBBBB DBBBBB BB EBBBBB BBB F7F PPBBBBB BB GBBJBBB BBB BBЙBBBpB BBЂ7qF PPBBBBBCB B BցBB(BBBCBBBBBBBB@7,F PPBBBBBB[7_F PP: F$XMD 11/18/83 16:37:00 SDSMAC 3.6.0 83.111 PPFPASD 5ADDFRC5 F$XAD 5F$XSD ABBB( CBBBiBB7tF PPBBBB BBBBBFBBB*BGBBEBBBBBЃBpBB7F PPBBB֪BBڪBBBڪBBBzBBBBBBBBBBFB87F P6BBBB΄BBZB΄BBB΄BBBƄB*BBBFB6``BBaFBB7gF PBBBBBBBB@BB%BBBBB BBBBBBЁB@7F PPBpBEBBBBCBBBBBBGBBB BCBBBC7F PPB BBBB@BABBBCBCBBBBBBBBBB@BABB7F PPBCB)CBBBBBBB BBDBBB @BB BB ABB BD7wF PPB BBB BB CBBBBBBBBЁB@BBDBBBBBƀBʁ7F PPBBʂBBʃBBBBBBBBB@BBBBBB\B CBB 7F PPBB BBB BB ABB BDB @B[BBBBBBBBBBB7F PPBBBBBBBBBjBBBBBBBBB[7F PP: FPASD 11/18/83 16:37:11 SDSMAC 3.6.0 83.111 PF P6BBBB΄BBZB΄BBB΄BBBƄB*BBBFB6`ENT$ `Ph @L%`JENT$  MCUR$3ABND$15CUR$$ 5ENT$ 5ENT$2 5ENT$M 7F JH#5ENT$S 3tMARG$N50PATCH$5RET$2 5RET$M 5RET$S PAB 7`F HJ$NBBlBB B BBMB"BNB$BBB NB)B$B‰BB+B 7|F JH#B0BB[BDXBPSBCLBRTB (BC)BCOBPYBRIBGHBT BTEBXABS BINBSTBRUBMEBNT7FHH#BS BINBCOBRPBORBATBEDB, B19B78B.AnB,B2B` BB BB B0BBM7FHJ$B"BNB$BIBËBB‰BBB`BBB NBB$B‰BBB N7 F J,B[B NB)B BBiB"BéB$BB7F,8:  ENT$  11/18/83 16:19:09  SDSMAC 3.6.0 83.1118`@ENT$2 @@ENT$S r@@rENT$M @ASSER$ `Pkp֯%`L$tASSER$ 5ASSER$3ENT$MD3HENI$T 3lP$ABND3rRET$M ABASBSEBR$7FLJ#B BB.BB*B,BBCpACBBB4B`CB*BBʼnBC B͠7`FJJ#A0C BʼnBCBʼnBCB͠CBͩB(B AHBB BB*BFB BFB.7MFJ6BB&B.BFA`B*BOB`CBFB BB B`B7F 6@:  ASSER$  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @`LDCR$ `Pnr%`J@LDCR$ 3ENT$S 5LDCR$ 3>RET$S ABLDBCRB$ B BB(C:  FREE$ 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 >`PRT$ME `Pz%`J#PRT$MEM 5:PRT$ME3BB B)B4AB BB7qFJJ#B)B,BB6BB BBBABB`CB,B`CB0BB)B6B$B7FJJ#A(BBCB>B BB,B BB=B&B@BA@B BCBBB@BC 7FJJ#BCBDBPAXBBCB C:B B&B@BB-BCDApBB&B@B 7FJJ#C B CBB,BBCBPAB B CB C`B BB&B@B CB4A7FJ,B C4B CB BB@B CB B`C\7F,@:  PRT$MEM 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @BBBB&B@B CB C7OFJJ#B)B,A8B CB BB,BB0BBBBiB8APBPBEBPBB)B679FJJ#BBBB BCBBCB7B7B B,7FJJ#B>ABBBBiB>B4BiB@B6BjiB:B,ABB:BBB B)B07 FJJ#B)B2B)B4B)A B6B BB B|B0B\B2BBBBA8BBB)7FJJ#B6B9)B0BB)B2B9)B4BAPB)B2B9)B6BBDB0BEB2BB,B7FJJ#AhBBj`CB,B)B,B BBCBGBABFBaBDB BEBBZ`C7FJN``J#B0BEB0BiAB(BBDBBZ`CB0BDB0B)B.B)AB0B)B2B`7 FJ B7F $ @:  CVTF$R  11/18/83 15:45:32  DXPSCL  1.8.0 83.357 @B)B*C B BiA0B(BUB2BBB0B B)B0BBiB(AHBu7kFJJ#B0BUB2BB0BBBiB0B)B2A`BBB0B`C B8BB0BB7*FJJ#B2BAxB`CBBB B,B0BBBBBQABFB8B)B8CBc7WFJJ#B)B,B BBBABHBBCB7B7B B,7FJJ#B>ABBBBiB>B4BiB@B6BjiB:B,ABB:BBB B)B07 FJJ#B)B2B)B4B)A B6B BB B|B0B\B2BBBBA8BBB)7FJJ#B6B9)B0BB)B2B9)B4BAPB)B2B9)B6BBDB0BEB2BB,B7FJJ#AhBBj`CB,B)B,B BBCBGBABFBaBDB BEBBZ`C7FJN`"DBL$SV `P E*>%`@H#HDBL$SV 3FMP$ERR5P$IDAC5P$IDAD5*P$IDDC5,P$IDDV5P$IDF17F HF"5P$IDF25ZP$IDLC5\P$IDLD5P$IDMC5P$IDML5P$IDMV5P$IDPK7\F FF"5P$IDSB5P$IDSC5.P$IDSL5P$IDSR5P$IDSS5pP$IDST5VP$IDUN7F FH#5P$IDVCABB BCB B:B:7rFHH#B:B:B:BB[BB»BBB:BzBBB:BZB[B»BB΀B΁B΂B΃7FHH#B΄BƅB[BB»BBB;B BBB:BBB[BB{BCB7FHH#BB`CHB(B`C>BCBC\B>BB\B[BB{BCFB7FHH#B`CHB(B`C>BCBC\B>BCBB\B[BKB`B¾B"CBBBš7FHH#BCVBB`B[BKB\BB BBBBBBC@BBBBBB\7_FHH#B[BKB^BC@B BBB^B[B B BBB BBB BBB[B7FH BFBBFB>BB fBFB``0B&BBFB@BBB:BšBFBB B BB7F0H#B BBB BBB)B@BBBBBB BBB>BB@BFBBBG7XFHH#BDBHBFBJBHB[BKB\BB1B!BB*BBB BB !B BLBB7UFHH#BBCB%BB BBBBBBBBbBBB@BBBBBD7FHH#BBBЁB BBBBBBBBBBBBBB(BCB*BDB,BE7bFHH#B.BB\B[B`CDB>BKB`B©BHB)BFBBDBBBB]BBBC\74FHH#B>BWBBc)B@BB BBBBC\B>BKB BCBiB@BBB@7FHH#BBBC8B@B>BBJBBBBBBBBBBBBBBB7hFHH#BBBBBBBB B"BCBBbBBBaJBBBBBBa7FHH#BBB`BBBB`BBB`BBBB`BBBBCXB)B>B75FHH#C BB`B[B B BBeBB BBdBB BBcBB BB[B B 7}FH.BBjBB BBhBB BBgBB BB[B.`` BBCBDBBBBB75FH#BBB[BKB`BBJBBLBBNBBPB BiB@B()B>BB9BBB7FHH#CBBB9BBBCBB9BDBCBBB9BBBCBB9BDB7FHH#CBB9BFBCBBB9BBBCBB9BDBCBB9BFBC7FHH#BB9BHBCBBJBBLB)BNBiBPBC BB`B[BBLBB7FHH#BBBJBBBBGBB[BKB`B()B>BBBBB`CJB*B`CLB*7FHH#B`BBBCNBDBBL$BSVBBBBBBBbB`iB@B BBCB7FHH#BBB=BBBFBJBBBLBBNBBPBBRBBVBGBTBBB)7FHH#BDBC,B BCzBB‡BDBTBBBRBBB)BFBC,BBB)7FHH#BDBC,B BBCzBBBEBTBBBRBBB)BHBC,BB7/FHH#B)BFBC,BBB)BDBC,BBB BCzBBJBBLB)BNBi7RFHB BPBC BB`B[BKB\BGBZBB9BFBXBBZBGBZB9BBBB``7FH#BBBBZBBB)BXBjGBVBBBBBjFBTBBBjHBRBB\7FHH#B[BKB\BBRB B BiBRBiBTB)BVBBBTBBBRBBRB7mFHH#BTB=BBBFBZBBBVB=BBBBRBBVBGBTBBBKBRBBZ7FHH#BB BBLBBBBJBBBBHBB)BTBjBLBBBjBJB7FHH#BBBHBBBZBBBGBBBBB\B[BKB`B@BRB‚BB7FH@B`B B)BRBBBC.BC BB`B[BBBUPM$MPK7F @::  DBL$SV  11/18/83 16:16:51  SDSMAC 3.6.0 83.111:DBC,B BBCzBBBEBTBBBRBBB)BHBC,BB7/F PPB)BFBC,BBB)BDBC,BBB BCzBBJBBLB)BNBi7RF PPBPBC BB`B[BKB\BGBZBB9BFBXBBZBGBZB9BBB7F PPBBBBZBBB)BXBjGBVBBBBBjFBTBBBjHBRBB\7F PT`@EP$IDAC #@@P$IDAD #@@P$IDDV k#@@kP$IDF1 _#@@_P$IDF2 #@@P$IDLC =#@@=P$IDLD #@@P$IDMC #@@P$IDML %#@@%P$IDMV #@@P$IDPK 3#@@3P$IDSB #@@P$IDSC #@@P$IDSS =#@@=P$IDST $#@@P$IDVC #@#DIV$ `PD&`J8DIV$  36ABND$25DIV$ ABBB B BBB=B[B B=BB[7FJ6BB B BB=BBB[B B=BB[BBB`B7*F68:  DIV$  11/18/83 16:18:13  SDSMAC 3.6.0 83.1118`$CVTF$D `P0&`L$TCVTF$D 5CVTF$D3ENT$MD3.CVTF$E3LCVTL$D3RRET$M ABCVBTFB$D7FLJ#B BB4BCPCBBB:  CLS$  11/18/83 15:19:05  DXPSCL  1.8.0 83.357 >`'ENL$T `P VP&`LtENL$T 5ENL$T 3ENT$MD3jDI$MOD3DI$DIV3rRET$M ABENBL$BT 7FLJ#B BBBB B-B CpCABBBlB`C BdBiB,BBBBU7VFJJ#A0B0BBB`ChBBdBBB2BBAHBBEBfBB8BB8B 7FJJ#B)B2B)B4A`B C B CB BB B:  ENL$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`'INTER$ `Po&`J$INTER$ 5INTER$AB 1BB7B!BBBABBcBBGBOBABB[7FJ::  INTER$  11/18/83 16:22:24  SDSMAC 3.6.0 83.111:`*SQRT$ `P |&#`HSQRT$ 3ENT$2 3`MP$ERR3P$IRAC3P$IRAD3P$IRDV30P$IRF17F HF"3P$IRLD3~P$IRMC3P$IRML3>P$IRPK4P$IRSB3P$IRST3BRET$2 72F FH 5SQRT$ ABSQBRTB$ BBBdC@CBBBdBB0B B@B6BB7sFHH#B@B4BB4BBBCBBBCDBBB`BBKBPBB BB7FHH#B:B`CbB(B`CdB*B`BBCBBABbBBBBbBBCNBZ7DFHH#BBCBBCBBBZBCCBCBCBiBbBBPB[BK7FHH#BNBCxBRBBBZBBBRBBBRBBBNB[BBBBPQB7-FH$BBBXBBBBBSBQRBT7F$8:  SQRT$ 11/18/83 16:27:47  SDSMAC 3.6.0 83.1118`SDUMPHEA`P&'`J$SDUMPHEA5DMPP$H3ENT$2 3xPRT$ME3RET$2 3T$VEC 3jWRLN$ A7FJH#BCBBBB0BBB!BB8B)B(B(B8BBB,BB,B@BG7BFHH#BBBBBB#BRBBBBaFB!`CBBBBBBBBBDB7FHH#BBBBBBBʌB(B BB BʃB(BʄB*B BB BBaBB7FHBB`B7F ::  SDUMPHEA 11/18/83 16:27:09  SDSMAC 3.6.0 83.111:`@NODUMPHE.@ NOSYSMSG`P&/`J$NOSYSMSG3ENT$S 5MESAG$5MSG$$ 3RET$S ABMEBSABG$BNOBC7#FJ CBBB,B`B7F::  NOSYSMSG 11/18/83 16:24:23  SDSMAC 3.6.0 83.111:`-PRB$INIT `P&&3`PLPB$INIT MCPFLAGMCPROOTMCURCPNMCURSTKMPPFLAG7F PPMPPROOTMTOPSTK5PB$INI3ENT$M 36NEW$ 3JRET$M ABPBB$I7IF PPBNIBT BB@CHCBBB(BANBNBNBNBA(7'F PPNBʇB(BʠC B*B BB BAF PP: PB$INIT 11/18/83 15:55:54 DXPSCL 1.8.0 83.357 P 8 8 @Œ[2DC ݑ ? ?  jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ $ "jY$ *@)*    9 @9 @ "`*TXERR `P&6`J:TX$ERR 30ABND$13ENT$S 38RET$S 5TX$ERRABTXB$EBRRBBC67FJH#CBBB,BiB(B)B*B B B B@BBBB BB`BBBB`7FH B7F ::  TX$ERR  11/18/83 16:57:43  SDSMAC 3.6.0 83.111: DECWIDTH W := W - 1 ;& MOVB BLANK,*BP+WRITE( F, ' ' ); & JMPPAD  END; * '**  NOW PUT THE STRING IN THE BUFFER ** '*  FOR N:= 1 TO L DOPUTSTR EQU$ ! MOV@S(BOT),SPWRCH EQU$ ! DECLEN  JLTRETURN* MOVB *SP+,*BP+  WRITE( F, S(.N.) ); * JMPWRCH &*  -----------------------------&<TOOBIG MOV @BIGREC,@ARG2(TOP) REPORT ERROR CONDITION < LI TOP+1,TX$ERR  BLWP TOP  TX$ERR( F, 7 )  RETURN EQU$ !" B@RET$M RETURN TO CALLER " END#`/DSTRY$ `PhI&9` DSTRY$ 5DSTRY$AB7F ::  DSTRY$  11/18/83 16:18:55  SDSMAC 3.6.0 83.111:`0CVTE$F `P B&<`J#ZCVTE$F 5"CVTE$F3$ENT$S 36MOV$4 3SET$EL3DI$DIV3"SDIFF$7F JJ 3XRET$S ABCVBTEB$FBBBB BBCBBABBCCVC71FJJ#BBBDBB(BB A0B(B4BBBB4B B B &BB&BAHBF7FJJ#B0B`C B4BB0BaB.BFB2BiA`B2BFB0B)B2C BBiB*B7FJJ#BBoAxBBBaB2BFB B(B@BCB7B7AB B,B@BBB7FJJ#BiB@BABB0BBB0B(B'BiB>B9iB4BABiB67FJJ#B9iBBGBEB4ABFB6BZ`CB4BB B)B4B)B67FJJ#B)ABB BB B|B4B\B6B)B,ACB BB'B4B C7FJJ#B B,B4BBA BBBB(BBBBiB4B)B6BA8BB4B)7FJ6B,CBBB*BBB*BͩAPB4BũB6B`B7RF 6@:  CVTE$F  11/18/83 15:45:32  DXPSCL  1.8.0 83.357 @`3FL$ITX `Pt&?`,FL$ITX 3FL$IT$5FL$ITPAB`B7,F,::  FL$ITX  11/18/83 16:28:13  SDSMAC 3.6.0 83.111:`5FL$IT$ `Pt&A`,FL$IT$ 5FL$IT$3FL$ITPAB`B7`F,::  FL$IT$  11/18/83 16:28:15  SDSMAC 3.6.0 83.111:`#E$FAIL `PV&[`P&E$FAIL M$DATA F E$FAIL PP4ABEND$5E$FAIL4ENT$M UPM$MIS4RET$M ABE$BFABILB BBC"F E$FAIL PPCBEB(BʠC B(B EB B`EIE$FAIL I&LM$MIS F E$FAIL PP: 11/18/83 17:25:00 SDSLNK 3.6.0 E$FAIL P`FATAL$ `P &h`PvFATAL$ M$DATA F FATAL$ PP4ENS$T 4ENT$MD5FATAL$4P$ABNDUPM$MIS4RET$M ABFABTABL$B F FATAL$ PPBB.BB*B,B BCrCBEB8B`CB*BBʼnBC BŠC BͶF FATAL$ PPBʼnBCBʼnBCB͠CBͩB(B EB BB*BFB BFB.BB&B.F FATAL$ PPBFB*BOB`CBFB EB B`EIFATAL$ IvLM$MIS F FATAL$ PP: 11/18/83 17:25:15 SDSLNK 3.6.0 FATAL$ P`:ENT$16 `PT&D`H *ENT$16 MCUR$3ENT$ 5ENT$165RET$163(RET$M PA7FHJ$BB NBlB B B B B`BB NB)B B BiB"BéB$B`B7F J::  ENT$16  11/18/83 16:19:51  SDSMAC 3.6.0 83.111:`;REST$T `P0&F`L$NREST$T 5REST$T3ENT$MD3"OPEN$ 36REWND$3FRDLN$ 3LRET$M A7FLJBREBSTB$TBBCJCBBB*BB(ABOBiB(BB BB BfB7FJD B BEB A0BB(B BB BBBBB(B BAHB B`B7FD@:  REST$T  11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`;PRB$PERF `P NP&H`PPPB$N MPPFLAGMPPROOT5PPB$N 3ENT$MD3BCMP$ST7_F PP3NEW$ 3MOV$4 3RET$M ABPPBB$BN B BBB,BCCBB7F PPAB.B C NB`NB*BiB*B,A,BB,B#BiB,BB(BB 7F PPBBBADBBB BBB BiB*B,B,BB*A\BɥBBB`N7UF PPBB BiB,B*BeArBB,BBB B C B CB BB ABiB,70F PPB)B(BBBBB`NBABB B`C B B)B,NB`B7F PP: PPB$N 11/18/83 16:00:45 DXPSCL 1.8.0 83.357 PPPPB$X 5PPB$X 3ENT$S 3RET$S ABPPBB$BX B BCCBB7F PPB(B`B7wF PP: PPB$X 11/18/83 16:00:45 DXPSCL 1.8.0 83.357 P @9 @ "`BBƁBʂBBB BBB BBBBBBB7FF >PBBBB[7qF PP: F$FIX 11/18/83 16:35:08 SDSMAC 3.6.0 83.111 PPdF$PASR 5 F$XAR 5F$XSR ABBB( CBBBiBBBBB7F PPB@BBEBBBBB)BBBтBBFBBBpABBBЃBpBB7F PPBB8B B(B(B(B(B(CB(B)B)FB)BBaFBEBBB$BeCjBB 7F PPBBBBBB CBB BB BBBBBBpBBBBBpBB7F PPBBBBB BBB BBBBB BFBGBBBBBBB7F PPBBBBBBBBB B CBB BB"BBBB@BABBBB7F PPBBBBBBBBBBB)CBBBCBBBBBBBDB7F P$BB BBB BB CBBBBBB$``,BDBBBЄBBƂBʃBBEB7mF ,PBBBBBB@BBBBBB[7TF PP: F$PASR 11/18/83 16:35:17 SDSMAC 3.6.0 83.111 PPXF$XDR 5F$XDR ABABBBBBB9BBB`CNB9BB)7F PPBBBBBGBBBBB B BBBB(BBBBB:B:B7|F PPB*BBBB B BBB BBBBBBBB7BLBBBB=7"F PPBBBB9BaBBB`BBBBBB9B`BBB`BBBBG7F PPBB BBBBBBBBBBBBBBBBBކBBB7F PPB BކBBBBB*BBBBGBBBjBBBB2BBBBB7F PPBB ABBBBB BBBB @BIBUBѥBBBFBBaB'B@BB B B7F P6B+%BBBB CBƀBʁBBBBBBB BB@B6``BBBB7F PB BBB[7aF PP: F$XDR 11/18/83 16:35:31 SDSMAC 3.6.0 83.111 PPF$XMR 5F$XMR ABABBCBBBDBBBB9B)BB8B7\F PPBBBB*BB8)BBBBB8BBBBB#BBBCBBЙB7QF PPBBBBB#BBBHBBB FBB BB GBBBBBBHBB7F PPBшBB(BBBCBƆBʇBBBBBBBBB@BBBB7F PPBB[7F PP: F$XMR 11/18/83 16:35:45 SDSMAC 3.6.0 83.111 PPF$XREL 5F$RREL5F$XLR 5 F$XNGR5F$XSTRABιBƙBBzBZB7F PHBZBBCBB[BUF$XAR UF$XCERUF$XCIRUF$XCREUF$XCRI7&F H`` PUF$XDR UF$XMR UF$XSR 7JF PP: F$XREL 11/18/83 16:35:53 SDSMAC 3.6.0 83.111 P PPF$XMR 5F$XMR ABABBCBBBDBBBB9B)BB8B7\F PPBBBB*BB8)BBBBB8BBBBB#BBBCBBЙB7QF PPBBBBB#BBBHBBB FBB BB GBBBBBBHBB7F PPBшBB(BBBCBƆBʇBBBBBBBBB@BBBB7F PPBB[7F PP: F$XMR 11/18/83 16:35:45 SDSMAC 3.6.0 83.111 PPF$XREL 5F$RREL5F$XLR 5 F$XNGR5F$XSTRABιBƙBBzBZB7F PHBZBBCBB[BUF$XAR UF$XCERUF$XCIRUF$XCREUF$XCRI7&F H`CDEV$TY `Pֳ&P`L$DDEV$TYPE5DEV$TY3ENT$S 3BRET$S ABDEBV$BTYBPEBBC@CB7NFLJ#BB2BiAB0BBBfB$B BBBBfB%B A0Ba`C BBfB%7FJ B BEB(B`B7VF @:  DEV$TYPE 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @`DDEX$T `PH&R`LNDEX$T 5 DEX$T 3"ENT$MD3LRET$M ABDEBX$BT B BBBBB7FLJ#B#BBAB0BCJCBBBB`C B7FJJ#BiAB8B2BtBiB(BiB8B%BB BDB6A BB0BBB9BB7FJJ#BAB!BBFBA8BBABBj`CB6BB:BiB,B BiAPB:BtBi7FJJ#B6B%BB)B:B B BB>AhB`CBBBBiB6BBB`C7FJJ#ABB`CBBBC7FJJ#BB)B,A(BiB:BBiB2BB)B.BBB`CA@B:  DEX$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >BiB(BiB8AB%BB BB BBB8BBB8BiAB8B273FJJ#B BiB(BiB8B%BB BB0ABB`CB7FJJ#BiAB8B2BtBiB(BiB8B%BB BDB6A BB0BBB9BB7FJJ#BAB!BBFBA8BBABBj`CB6BB:BiB,B BiAPB:BtBi7FJJ#B6B%BB)B:B B BB>AhB`CBBBBiB6BBB`C7FJJ#ABB`CBRET$2 ABLNB$ B BBBlCRET$2 ABLNB$ B BBBlC:  ENI$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`PUNPCK$ `P &q`LUNPCK$ 5bUNPCK$3dENT$S 3DIV$ 38RET$S ABUNBPCBK$BBC7FLJ#CCCCCCACCC*C@CVClCCCCBBA0BB 7FJJ#B@BBC0C0CCC CCAHC"C*CCCtC|CCCCC7FJJ#C6A`CBBBBBiB2B0BB.BBiB*AxB:BB,BBBB`7>FJJ#C0B B'C:BXABiB4BBB)B*BBBGBBB,ABBBB B'C BXBi7FJJ#B>BBBiAB>BEBBiB>B%BEB>BB*BeBiA B(BjiB:B47FJJ#BBiB>BEBB)B0BA8B)B>BBKBiB>BEBB)B0BB)AP7FJJ#B>B$B@BiB>BEBB)B0BB)B>AhB4B5BiB>BEBB)B0B7FJJ#B)B>BDAB*BiB>BEBB)B0BB)B>BTBABiB>BEB?B)7FJL``J#B0BB)B>BdBBiAB>BEBB)B0BB)B>BtB BiB?AB 7FJJ#B)B0BB)B>BBDB>BFB:BABiB0BBBB,BBBB 7Bi7FJJ#B4B*BBBiB4B:BBBiAXB:B@BFB@B1BB,BBB"B 7FJJ#B'ApCLBXBiB>BBBiB>BBBiB>ABBBiB>BB Bi7FJJ#B>BBBiB>ABBBiB>BB)B0BB)B>B9)B6ABEB>B7FJ$B0BBBB(BjiB:B4B7F $@:  UNPCK$  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @)B>BBKBiB>BEBB)B0BB)AP7FJJ#B>B$B@BiB>BEBB)B0BB)B>AhB4B5BiB>BEBB)B0B7FJJ#B)B>BDAB*BiB>BEBB)B0BB)B>BTBABiB>BEB?B)7FJL`QPUTCH$ `P&s`J$4PUTCH$ 5PUTCH$3WRLN$ ABBB,BBB B BʌB(B B B7LFJ0B BB,BBB,BB,BBBBBB[7F0::  PUTCH$  11/18/83 16:25:17  SDSMAC 3.6.0 83.111:`RPM$MPK `Pv&u`J$PM$MPK 5PM$MPKABCBMBATBH BPABCKB EBRRBORB -B- BBABRGBUM7FJH#BENBT BTOBO BLABRGBE BINB ?B1A2BBNBEGBATBIVBE BARBGUBMEBNTB I78FHH#BN B?1BBWBROBNGB NBUMBBEBR BOFB ABRGBUMBENBTSB IBN B?1BBOBVE7FHH#BRFBLOBW BINB ?B1ABBDBIVBISBIOBN BBYB ZBERBO BINB ?B1AB7FH::  PM$MPK  11/18/83 16:23:57  SDSMAC 3.6.0 83.111:`SRDC$T `P W&w`JRDC$T 5RDC$T 3ENT$MD38IO$ERR3LEOF$ 3nEOLN$ 3DEC$T 73F JJ#3TX$ERR3RET$M ABRDBC$BT B BBBBB0B.CCABB7AFJJ#B8BB(BfBB BEBBOBiA0B(B`C B BB^B`C B.BB67HFJJ#B)AHB(BBBMBfBBiB*BB BCBfA`BBBEB0B)B(B7FJJ#BBBfBBafAxBBBEB4BEB*BBB)B*BaBDAB6BiB47FJJ#B*BBiB*B6BB*BOBfABBiB*BIB`CBIB`CB&BB7FJJ#ABDBiB,B BB BiB0BBɅBBAB.BBB6BBB`C7yFJ,B.BOBiB(ABiB.B BB B`B7CF,>:  RDC$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`TRDR$T `P \&y`J:RDR$T 5RDR$T 3ENT$MD3:IO$ERR3EOF$ 3`GET$CH3EOLN$ 7F JJ3DER$T 32TX$ERR38RET$M ABRDBR$BT BBBBB BB2B0C670FJJ#ACBBB:BB(BfBB BEBBOA0BiB(B`C B BB{B`7FJJ#C B0BB8AHBB*BB)B(BBBgBiB(BBA`BBBGB47FJJ#BBBdB)B4CBBfAxBB2B/B)B(BCTBOBfBBiB*A7sFJJ#BB BEBfBBBEB2B)B(BBABBfBBafBBBEB6BE7FJJ#B*BBAB)B*BaBDB8BiB6B*BBiB*B8ABB*BOBfB7FJJ#BiB*BiB,BIB`CABIB`CB&BBBDBiB.B BB ABi7FJJ#B2BBɅBBB0BBB8BBA B`CB0BOBiB(BiB0B B7FJB B`A8B7F >:  RDR$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`SATAN$ `P.&{`@HP$IRPK3TP$IRSB3P$IRSC3lP$IRST3P$IRVC3BRET$2 ABATBANB$ 7;FHH#B BBC@CBBBBB0B B@B6BBB@B4BB4BBB7}FHH#CBBBCBBB`BB BB8BBBCBBBAB`C B8BB,BbBaBB*BBBiA0B,B*BB*B7BFJJ#BiB.BBSBRBUB2AHBOB`CB8BiB.BB)B*BBDB2A`BC7\FJJ#BBiB,BBEB:  DES$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`XEXTND$ `P(ش&`L2EXTND$ 5EXTND$3ENT$M 3"OPEN$ 30RET$M ABEXBTNBD$BBC.7{FLH"CBBB*BʩB(AB(BʠCB*B BB BB(BBB`A0B7F H@:  EXTND$  11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`YCUR$ `P+8&`HCUR$  5CUR$3ENT$S 3RET$S ABBBB0BLB(B`B7dF H8:  CUR$  11/18/83 16:16:10  SDSMAC 3.6.0 83.1118`PSET$RG `P.&`J$8SET$RG 32MASK$$5SET$RGABBBBBB'BB(BBBB 7FJ6BBBBBB(BBBBBB BACBB[7F6::  SET$RG  11/18/83 16:27:24  SDSMAC 3.6.0 83.111:`XSETIN$ `P1&`J$$SETIN$ 3MASK$$5SETIN$ABBBB[BB 7BBBHBBB 7+FJ B(BBBLBAB[7F::  SETIN$  11/18/83 16:27:27  SDSMAC 3.6.0 83.111:`VSUB$ST `P4&`J$SUB$ST 3MASK$ 5SUB$STAB!BBB8B#7BBBB BABB7lFJ B"B[7F ::  SUB$ST  11/18/83 16:28:04  SDSMAC 3.6.0 83.111:`YPRTMEM `P79 &`P.PRT$MEM 3ENT$2 5PRT$ME5PRT$X 3PUTCH$3,RET$2 3WRLN$ A7F PPB7CBBBB0BiB(B,BB,B@BB*BBBB]BCBB7F PPCBB(BBBBCBB)BC4BB#BBBBBBBB7F PPCB1BCBBB,BCBBCBBBBBBBB BB7uF PPB_BBB.BCBBBʌB(B BB BBBB#BBB B$BB7F PPBBBCB%BBBBB BBBB.BCBBBʌB(B CB 7F PPBB`BBB B`CBBBB BBGBB'B0BB:BB'BB7ZF PPCBBB_C*BBCB0B,BB,B@B)B(BCB`C7&F PP: PRT$MEM 11/18/83 16:33:25 SDSMAC 3.6.0 83.111 P $ "jY$ *@)*    9 @9 @ "`@PRT$X ]@^TIP1 `P:&`JTIP1  3F$RGMY3FTN$TP5TIP1AB(CBBBBNBTIBP1B7FJ B`B7F 8:  TIP1  11/18/83 16:28:26  SDSMAC 3.6.0 83.1118`_TEN$$$ `P= x&`HTEN$$ MTEN$$ PBBBBBBB@BBPBB$BB7FHH#BBB BkB(BBBCB@BBBB*BB B_B1BBɿBB.B 7EFHH#Bk:BB#BxBBB&BBx2BhB?BBBYBQaBoBBB'B?B9xB7FH@BBBBoB|@BBB7BBBVBB BB{BBBvBP7F @8:  TEN$$ 11/18/83 16:28:06  SDSMAC 3.6.0 83.1118LDTEN$$$ MTEN$$ 5TEN$$$3ENT$S 3BRET$S ABTEBN$B$$BB7JF LJ#B&C@CBBB2BAB0BBB(BB*B B)B0C BBA0B07FJ(B &BfNB(BfNB*B`B7F (@:  TEN$$$  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @``ALLOC$ `P@ +&`H DALLOC$ MCUR$3ABND$25ALLC$$5ALLOC$3,MARG$NPA7rFHJ$B B;B B NBBGBBBBBB`BBBB B0BB,B2Bb 7FJ*BB BB B0B BcB[BbBBB7F*::  ALLOC$  11/18/83 16:14:58  SDSMAC 3.6.0 83.111:`@ALLC$$ a@_FPINIT `PCV&`PDFPINIT M6$DATA 3ENT$2 3.F$XPREWFIOWP$5P$INIT7F PP3RET$2 ABFPBINBITB BCCBBB0B CB`BTC B T07KF PPBT2BT4BBBFTBN BIOB`T0BàT2BT4BSS S0S2S47_F PP: FPINIT 11/18/83 16:33:53 SDSMAC 3.6.0 83.111 PA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[2DC ݑ ? ?  jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ $ "jY$ *@)*    9 @9 @ "`cINIT$B `PFn&`J$0INIT$BLO3ENT$S 5INIT$B3.RET$S ABINBITB$BBLOBC,CBB7DFJ4B.BB(BB,B)B*BB BBBBB`B72F 4::  INIT$BLO 11/18/83 16:22:21  SDSMAC 3.6.0 83.111:`dTERM$ `P I%&`@JTERM$ 5TERM$ 3ENT$MD3MSG$3ENX$T 3P$CMSG3nWRLN$ 7+F JH"3dWRS$T 3 MOV$N 3DUMP$P3DMPP$H3PB$TER3CLOSE$3DENI$T 7F HJ3CUR$ 3P$$TRM3RET$M ABTEBRMB$ BBBBNOBRMBALB TBERBMI7FJJ#ABNABTIBONC BBBB>B,B*BB2A0BBeB(BB9B-B:B.7FJJ#B/B)B0B1AHBCCCNCVCrCCCCCBCA`BBBBPBD7LFJJBB@BBSTBACBK BUSBEDAxB =B BB BB HBEABP BUSBEDB =B A7FJJB B CnBBB"B&BB CCCABBBBBBB(BB`7FJJ#CB)B(ABdB:B%BB C BB)B(BBB6B6B`C@AB6B2BB2BB`CB7FJJ#B6B+B`CDB6AB'B`CFB6B`CBBB B C&B ACB4B 7FJJ#B CHB B C*B C,B B AC.B BB B`C B>B B$B>BDB7`FJJ#A(BBeB B6BiB6BB`C^BB`C`A@BBBB B CbB%BB%7lFJJ#BB%BB AXBB BiBBBBBBB)BCdBApB`CdBBB 7FJJ#B)BBBBCB BB BAB)BBBBBBBB B$BCBDBBA76FJJ#B0BB`CB)BCdBBiBBBABBB B CfB)BB C7TFJJ#BB`CdABB)BB$BBDBBBBCfBACdB CB B7WFJJ#B B ChB)BB B&ABHB BB5BB$B@BDB4BBHC AB7FJN``J#BB@B BB BBB CjBB)A0BB B CfB BB BB@B 7-FJJ#C B AHBBBBBB CjBB)BB B A`ChB C:B BB@7FJJ#B CDB BBBAxB)B0ClBB)B2B DBBB BB'ABB 7_FJJ#B(BDB B BBBiBBBB&ABHB BB&BB$B@BDB4BB7FJJ#C ABBB0B BB)B(B C B BB ABB(B BB B B7sFJJ#B B)B4BI C ABBB@B BB BCB B(BB AB BC7PFJJ#BiB(B%B0Ba%B.BDB.B`A CB,BBBChBCBBC(B7FJJ#A8BC*BCdBB BB B`CB,BAPB B ChB ClB B C(79FJJ#B B C*B AhCBB8B#BB BB B ChB CAB CB B.7VFJJ#B BB BBDB(BdB:AB`CdBBBB B CbBB C^B C.A7@FJJ#B CXB BB B CfB)BBB CB AB B$BCBDBB`CB B`7FJN``J#C.BB`AC^BBCBʠCB*B CB B)B(ABB:BcBB7FJ0B CB B)B(BB:AB BB B`B7F 0>:  TERM$ 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 > DBBB BB'ABB 7_FJJ#B(BDB B BBBiBBBB&ABHB BB&BB$B@BDB4BB7FJJ#C ABBB0B BB)B(B C B BB ABB(B BB B B7sFJJ#B B)B4BI C ABBB@B BB BCB B(BB AB BC7PFJJ#BiB(B%B0Ba%B.BDB.B`A CB,BBBChBCBBC(B7FJJ#A8BC*BCdBB BB B`CB,BAPB B ChB ClB B C(79FJJ#B B C*B AhCBB8B#BB BB B ChB CAB CB B.7VFJJ#B BB BBDB(BdB:AB`CdBBBB B CbBB C^B C.A7@FJJ#B CXB BB B CfB)BBB CB AB B$BCBDBB`CB B`7FJN`eMARK `PU&`L6MARK  5MARK3ENT$M 3CUR$ 34RET$M ABMABRKB BBC27WFLJ#CBBB,B BAB BB(BFB*BB8BB_BVBB(A0BŅB`7FJ B7F $ >:  MARK  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 >`fFL$ERR `PX Jֹ&`L$FL$ERR 5 FL$ERR3"ENT$MD3ENX$T 3ENC$T 3P$ABND3RET$M A79FLJBFLB$EBRRBBB4BB.B0BB,BAB;B*CCBBBHBB(7FJJ#B&B@BFA0B2B`CB.BOBIB`C B`C B`CAHBIB`CBIB`7FJJ#CB`CBIB`CB A`BB BBʼnBC B͠CBʼnBCBʼnAxB7FJJ#CB͠CB͠CB BB BBʼnBAC B͠C B͠CBʼnBCBʼnB71FJJ#CB͠ACBʼnBCB C`B BB.BFB BFAB4BB&B4BFB.7PFJ&BOBiB2BFB BAB B`B7TF&@:  FL$ERR  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @`eQ$DIV `P[X&`LfQ$DIV 5Q$DIV 3ENT$M 3HMOV$5 3^D5$2$43dRET$M ABQ$BDIBV 7FLJ#B BCbCBBBBBB4ABiB(B6BiB*B8BiB,B:BiB.B<7FJJ#A0BB>BiB0B@BB'B4B B(B(BAHBBʩB>B2BʩB@B4Bʩ7FJ B2B6B BA`B B`B7sF >:  Q$DIV 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 >`gDATAN$ `P^d:&`@H#DATAN$ 5DATAN$3ENT$2 3P$IDAC3P$IDAD3P$IDDV30P$IDF17F HF"4P$IDF23P$IDLC3P$IDLD3*P$IDMC3P$IDML4P$IDMV3>P$IDPK7F FH3 P$IDSB3P$IDSC3$P$IDST3P$IDVC3BRET$2 ABDABTABN$BBB7FHH#C@CBBBBB0B B@B:BBB@B8BB8BBBCBB7FHH#BCDBBB`BBKBbBBB@BBBBBBABBBBB7FHH#BBCBBBBCB~BBBBLBCpCBfBCCBrB7fFHH#CCB~B$BBBBBCfCBB BCCBfBCCBrB7FHH#CCB~BBCCB~BBCBBBB`CBBBCxBB7^FHH#BBfBCTBBCBrBCBBCBBCBfBBBB@B7FHH#BBCBBBBBCBBBC~BBCrBCBBC0Cf7FHH#BC6BBCBTB@B[BB;B 7XFHH#BB4BtBBB[B;B BBBBB[BB;B BB;B B4B4B47FHH#BB[BB{B8BKBJBCBCBCZB:BBJB[BB{B8BKBJ7DFHH#BCBCBCZB:BCBBJB[BKBHB>B! CBBBC&B7gFHH#BHB[B>CBB`CB(B`CB[B>CBB`CB(B`CB[BB 7FHH#BBBB B BBBBBBB[BB+B!BB%BBBBB !7#FHH#B BLBBBB B BBcBB BB#BBBBBbBBBB7FH BBB@BЁBBBB``2BBBBBBBB(BCB*B[B`CB:BK7F2H#BLBB@BB>BRBBBCZB:BLBBc)BBFBDBB9B@B8B>BBDB7FHH#BBBBBC BBLB[BKBLB()B:BB>BB`CB(B`CB*7FHH#B`BBBCBREBL$BSVBBBBBBCBB`iBBB97FHH#B@B)BFBaBBFBBBBBFB=B>BBBFBBBBBC 7FHH#BBLB[B B BBcBB[B@BBBBBB`B B)BBB B BB7FHH#BBB`C BBFBBFB:BB fBFBB&BBFBBGB@7"FH#B[B B BBcBB BB[B B BBB BB[BBBUPM$MPK7FH::  REL$SV  11/18/83 16:25:44  SDSMAC 3.6.0 83.111:B3B B BBgBB B7FHH#B@B:BBBBBBBBBCBBBBCBB B BBc7FHH#BBbBBB[BB`BBBaBB`BBEBBBBBBB)B:BC 7FHH#BBLB[BKBLBiBBFBDBB9B@B8B>BBDB7FHH#BBBBBC BBLB[BKBLB()B:BB>BB`CB(B`CB*7FHH#B`BBBCBREBL$BSVBBBBBBCBB`iBBB97FHH#B@B)BFBaBBFBBBBBFB=B>BBBFBBBBBC 7FHH#BBLB[B B BBcBB[B@BBBBBB`B B)BBB B BB7FHH#BBB`C BBFBBFB:BB fBFBB&BBFBBB@BBBAB BB BBBB@BBBB CB BABBB@BBBB CB BBBB@ABBBB CB BBB`C$B@BBBA8B CB BBB`C*B@B`C,BBB AhC:B B7FJJ#BB`C2B@B`C4BBB Ch7FJL``J#AB BB:  TEN$D 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >DBB27FJJ#BCB B(B4BBA`BB0B B2BB2BBBB`CB AxB'7FJJ#C6BXB`CBBB@BBBAB BB BBBB@BBBB CB BABBB@BBBB CB BBBB@ABBBB CB BBB`C$B@BBBA8B CB BBB`C*B@B`C,BBB AhC:B B7FJJ#BB`C2B@B`C4BBB Ch7FJL`mSET$EL `Py&`J$SET$EL 3MASK$$5SET$ELABB 7BBHBBB BBBBB[7FJ::  SET$EL  11/18/83 16:27:18  SDSMAC 3.6.0 83.111:`nHALT$ `P|ּ&`L&HALT$ 5HALT$ 3ENT$M 3ABEND$3$RET$M ABHABLTB$ BBB7eFL2C"CBBB(BʠAC B(B BB B`B7F2>:  HALT$ 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 >`nCVTD$F `P(&`L$NCVTD$F 5CVTD$F3ENT$MD3,CVTD$L3FCVTE$F3LRET$M ABCVBTDB$F7,FLJ#B BB4CJCBBBBJBB*CbBB*BBBB ,B CBODBE B= B BUNBITB =B 7FH::  F$XLOG  11/18/83 16:21:19  SDSMAC 3.6.0 83.111:`qDMPP$H `P Jִ&`L$DMPP$HEA5*DMPP$H3,ENT$MD3jWRLN$ 3RWRS$T 3zPRT$ME3RET$M A7zFLJ#BDMBPPB$HBEABBBB**B* BDUBMPB OABF BHEBAPB *B**CBCC7%FJJ#BBB6A0BBBB@B BB BBB@BC AHBC BC"B 7FJJ#BB BB@B C:B A`BB(B#B8BB4BB(BCBCB*BCAxB,7^FJJ#BB,BB4BGBBDC$BBB,ABB,BB.BBBBB.BBB47;FJJ#BGBABDC$BBB,BBBBBB,BBB*BAB)B4C$B%B`C$7WFJJ#B4BdBB0BiB0ABUB*BB*B BBB BBJBB*ABSB27*FJJ#BBB*B`BBCB2BB2B ABBiB2B*BB`BBB*BBC7FJJ#B,A BB*BB2BBBB*BBBBB.BB A8BBB BBBeB7bFJJ#B.BB,B BAPB.B BBBeBB*BiB*B.BB@AhB C\B 7.FJH"BBB,BB.B BB BABB0BcBB0B)B0BBB`Cl7 F HL``@:  DMPP$HEA 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @7zFLJ#BDMBPPB$HBEABBBB**B* BDUBMPB OABF BHEBAPB *B**CBCC7%FJJ#BBB6A0BBBB@B BB BBB@BC AHBC BC"B 7FJJ#BB BB@B C:B A`BB(B#B8BB4BB(BCBCB*BCAxB,7^FJJ#BB,BB4BGBBDC$BBB,ABB,BB.BBBBB.BBB47;FJJ#BGBABDC$BBB,BBBBBB,BBB*BAB)B4C$B%B`C$7WFJJ#B4BdBB0BiB0ABUB*BB*B BBB BBJBB*ABSB27*FJJ#BBB*B`BBCB2BB2B ABBiB2B*BB`BBB*BBC7FJJ#B,A BB*BB2BBBB*BBBBB.BB A8BBB BBBeB7bFJJ#B.BB,B BAPB.B BBBeBB*BiB*B.BB@AhB C\B 7.FJH"BBB,BB.B BB BABB0BcBB0B)B0BBB`Cl7 F HL`nGET$CH `Pm&`J$.GET$CH 5GET$CH3$RDLN$ ABBB,BBBBB,BBBB7;FJ(BB[BʌB(B B BB BB BX7F (::  GET$CH  11/18/83 16:22:17  SDSMAC 3.6.0 83.111:`tPCALL$ `P&`J$LPCALL$ 3ENT$M 5PCALL$3JRET$M ABPCBALBL$B BCBB@BF TEN$D PPBBB CB BBBB@BBBB CF TEN$D PPB BBBB@BBBB CB BF TEN$D PPBBB@BBBB CB BBB`C$B@BBBB CB BBB`C*B@B`C,BBB CB BBBB`C2B@B`C4BBB CB BBPBB4B BB EB BB0BBBBFB0BB2BB0BB`C`BF TEN$D PPB'B4B B(B(BEB`EB`EITEN$D IFL$DBL$$F TEN$D PPIFL$ITX F TEN$D PP: 11/18/83 17:23:39 SDSLNK 3.6.0 TEN$D PF TEN$D PPBBB CB BBBB@BBBB CF TEN$D PPB BBBB@BBBB CB BF TEN$D PPBBB@BBBB CB BBB`C$B@BBBB CB BBB`C*B@B`C,BBB CB BBB,BCrB,BB BBABB BMBBCBBBF FL$ITP >PBB@BBBBB BBBBBNBB,BB@BB BABBF FL$ITP PPBBB~B[BQBBB~B[BBBB NB,B4B BɁB(BɎB*BɦF FL$ITP PPB6B,BEB6B`E BBB`EB C$CCCCCzCClF FL$ITP PPECEEEEECVC^CECZCbCCClClClF FL$ITP PPClClClCCBBBBBBBBBYBBBBBiBBBB4F FL$ITP PPBBGBBB@BABBBBBHBBBBB&BBBBBpABBF FL$ITP PPBFBBBBBB @BB BB ABBBBBBЁB@BBBƀBʁBBF FL$ITP PPBBʂBBBB BBBBBBBBBBBkBBBBBBF FL$ITP PPBBBBBBBBBiBBBBpBBFBB&BB?BB&B BF FL$ITP P$BBB&BBB@BBBBBBF$``,BBBBЁB@BBBB B BBF FL$ITP ,PB BB ABB BCB @BB BƂBBBBBBB@BBBBBBF FL$ITP PPBABBBBBBƁBʂBBB BBB BBBBBBBBBBF FL$ITP PPB[BBB( CBBBiBBBBBB@BBEBBBBB)BBF FL$ITP PPBтBBFBBBpABBBЃBpBBBB8B B(B(B(B(B(CB(B)B)FF FL$ITP PPB)BBaFBEBBB$BeCBB BBBBBB CBB BB BBBF FL$ITP PPBBBpBBBBBpBBBBBBB BBB BBBBB F FL$ITP PPBFBGBBBBBBBBBBBBBBBB B CBB BB"BF FL$ITP PPBBB@BABBBBBBBBBBBBBBB)CBBBCBF FL$ITP PPBBBBBBDBBB BBB BB CBBBBBBBDBBBЄF FL$ITP P6BBƂBʃBBEBBBBBBB@BBBBBB[6``BBBBBF FL$ITP PBB9BBB`CB9BB)BBBBBGBBBBB B BBBF FL$ITP PPB(BBBBB:B:BB*BBBB B BBB BBBBBBF FL$ITP PPBB7BLBBBB=BBBB9BaBBB`BBBBBB9B`BF FL$ITP PPBB`BBBBGBB BBBBBBBBBBBBBBBF FL$ITP PPBBކBBBB BކBBBBB*BBBBGBBBjBBBB2F FL$ITP PPBBBBBBB ABBBBB BBBB @BIBUBѥBBBFBBaB'B@BF FL$ITP PPB B BB+%BBBB C~BƀBʁBBBBBBB BB@BBBF FL$ITP PPBBB BBB[BBBCBBBDBBBB9B)BB8BBBBF FL$ITP PPB*BB8)BBBBB8BBBBB#BBBCBBЙBBBBBB#F FL$ITP PHBBBHBBB FBB BB GBBBBBBHBBBшBB(BBF H``FL$ITP PBCBƆBʇBBBBBBBBB@BBBBBB[BιBƙBBzF FL$ITP PPBZBBZBBCBB[BIFL$ITP IF$FLT IVF$FIX F FL$ITP PPIF$PASR I~F$XDR IF$XMR IzF$XREL F FL$ITP PP: 11/18/83 17:24:04 SDSLNK 3.6.0 FL$ITP PF FL$ITP PPBBކBBBB BކBBBBB*BBBBGBBBjBBBB2F FL$ITP PPBBBBBBB ABBBBB BBBB @BIBUBѥBBBFBBaB'B@BF FL$ITP PPB B BB+%BBBB C~BƀBʁBBBBBBB BB@BBBF FL$ITP PPBBB BBB[BBBCBBBDBBBB9B)BB8BBBBF FL$ITP PPB*BB8)BBBBB8BBBBB#BBBCBBЙBBBBBB#F FL$ITP PHBBBHBBB FBB BB GBBBBBBHBBBшBB(BBF H`@F$FITP Jz@@0F$RREL z@{LM$TIO `Pbu&` LM$TIO UPM$TIO7F::  LM$TIO  11/18/83 16:22:49  SDSMAC 3.6.0 83.111:`}DEI$T `PlC&`L8DEI$T 5*DEI$T 3,ENT$MD3DEX$T 36RET$M ABDEBI$BT BBB76FLJ#B+B-BB BB#AB B BB0B8B:B4C4CBBBFA0BB*7FJJ#BB`C B:BB,BBBBVAHB0BBB`C,B`CB:BB,BV7FJJ#BiA`B*BBEB0BBB:BB4BBBBAxB,BVB8BB*BB7FFJJ#B,BVBiB*BABEB0B`C B@B`CB>BiB8B0BABB(B7FJJ#B8BfBB BEB6BB B6ABEB@B"BEB>BB`CB:B`CB<7FJJ#ABiB8B0B)B(BB:BIBB0BBiAB,BFBBBBB`C$Bi7FJJ#B2BiB4BAB8BB)B6CBBBFBBB`CB>A B`CB@B`7)FJJ#CB:BB8BBB(BA8B8BfBB BEB6BB0B'BB9B$AP7FJJ#B%BBEBDB)B4CBBBBB&BAhBBB)B4CBB`CB:7FJJ#BXBB AB9iB4BBDBFB4BB:B`CB:  DEI$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >iB8B0BABB(B7FJJ#B8BfBB BEB6BB B6ABEB@B"BEB>BB`CB:B`CB<7FJJ#ABiB8B0B)B(BB:BIBB0BBiAB,BFBBBBB`C$Bi7FJJ#B2BiB4BAB8BB)B6CBBBFBBB`CB>A B`CB@B`7)FJJ#CB:BB8BBB(BA8B8BfBB BEB6BB0B'BB9B$AP7FJJ#B%BBEBDB)B4CBBBBB&BAhBBB)B4CBB`CB:7FJJ#BXBB AB9iB4BBDBFB4BB:B`CBB RBECBORBD BLEBNGBTHB)B?B1 BNOBT 7VFHH#BOPBENBEDB FBORB WBRIBTIBNGB-B*?B1 BACBCEBSSB NBAMBE B?2B\OBPEBN 7FHH#BERBROBR B- BSTBATBUSB =B ?B3A B.B*?B1 BACBCEBSSB NBAMBE B?2B\O72FHH#BPEBN BERBROBR B- BSTBATBUSB =B ?B3A8B/B*?B1 BACBCEBSSB NBAMBE 7FHH#B?2B\RBEABD BERBROBR B- BSTBATBUSB =B ?B3AfB0B+?B1 BACBCEBSSB N7FHH#BAMBE B?2B\WBRIBTEB EBRRBORB -B SBTABTUBS B= B?3B9BC?B1 BACBCEBSS7*FHH#B NBAMBE B?2B\OBPEBN BERBROBR B- BFIBLEB TBYPBE BANBD BACBCEBSSB M7FH BETBHOBD BCOBNFBLI``6BCTB:BC?B1 BACBCEBSSB NBAMBE B?2B\OBPEBN BERBRO7F6F"BR B- BFIBLEB TBYPBE BANBD BACBCEBSSB MBETBHOBD BCOBNFBLIBCTB7F F8:  PM$IO 11/18/83 16:23:42  SDSMAC 3.6.0 83.1118 BEOBMAfBB?B1 BNOBT BOP7FHH#BENBEDB FBORB RBEABDIBNGB(B;?B1 BACBCEBSSB NBAMBE B?2B\OBPEBN BER7$FHH#BROBR B- BELBEMBENBT BSIBZEB >B RBECBORBD BLEBNGBTHB)B?B1 BNOBT 7VFHH#BOPBENBEDB FBORB WBRIBTIBNGB-B*?B1 BACBCEBSSB NBAMBE B?2B\OBPEBN 7FHH#BERBROBR B- BSTBATBUSB =B ?B3A B.B*?B1 BACBCEBSSB NBAMBE B?2B\O72FHH#BPEBN BERBROBR B- BSTBATBUSB =B ?B3A8B/B*?B1 BACBCEBSSB NBAMBE 7FHH#B?2B\RBEABD BERBROBR B- BSTBATBUSB =B ?B3AfB0B+?B1 BACBCEBSSB N7FHH#BAMBE B?2B\WBRIBTEB EBRRBORB -B SBTABTUBS B= B?3B9BC?B1 BACBCEBSS7*FHH#B NBAMBE B?2B\OBPEBN BERBROBR B- BFIBLEB TBYPBE BANBD BACBCEBSSB M7FH BETBHOBD BCOBNFBLI`PRB$COMP `P-'`@PCPB$N1 MCURCPN5CPB$N13ENT$MD3ASSRT$3CMP$ST3CPB$N17F PP3CPB$N23RET$M ABCPBB$BN1B BCCBBB*BBABB(7`F PPBBBBBiB(BB(BB A0BBBBB)B(NB7BiB(B7 F PPAFB(BB BBC4BBB BBB A^B BB$BiB(B%B B7F PPB BBBiAvB(BB(BB BBCPBBC B ABBBB7F PPBB C`BBiB(B%BABB CpB B`B7F PP: CPB$N1 11/18/83 15:58:49 DXPSCL 1.8.0 83.357 PPCPB$N2 MCURCPN5CPB$N23ENT$MD3&ASSRT$3NEW$ 3RMOV$4 7F PP3pDIV$ 3PCKB$13RET$M ABCPBB$BN2B BBBCCBBB.7=F PPABBBB(BBBBBBBB(A0BC B BB BB(B7YF PNBB(AFBB``>B(BBBBBBBB B&A^B*B BB*B7+F >PBB BBBBBAvB BBB*BBBC BB C6B BAB7F PPBfB*B,BEB,BBBBB 3BABBBBBBBBBB B7F PPBBABBB`B7F PP: CPB$N2 11/18/83 15:58:49 DXPSCL 1.8.0 83.357 PPCPB$N MCPFLAGMCPROOTMCURCPNMCURSTKMTOPSTK7F PP5CPB$N 3ENT$2 32CPB$N13@CPB$N23ASSRT$3rNEW$ 3RET$2 A7F PPBCPBB$BN B BBBBB,B@CCABBB.B C NBN7F PPBBʠA,NB(B BBBNBʇB(B A@BB B NC B7F PPBNBB ATNCBBBBBʉB(BCB(AjBʠCB*B 7F P$BB BB,BNB)AB,NB$``,NB NCBBABC\7F ,PB BNB BNBANBB`B7tF PP: CPB$N 11/18/83 15:58:49 DXPSCL 1.8.0 83.357 PP&CPB$UP MCURCPN5VCPB$UP3XENT$MD3WRS$T 3WRLN$ 3WRI$T 7F PP3 PCKB$13$RET$M ABCPBB$BUPB BBBERBROBR B- BNOB AABCTBIV7F PPBE BROBUTBINBE C BBROBUTBINA0BE C*BB BDOBESBNTB HBAVBE C87AF PPBAHBBPRBOBBESCJC"CBBB*BBA`BNB BOBfB@B`7F PPC BuB`C&AvB2BB(B8BOBfB@B`C(BuB`C2AB BB BO7F PPBfB@B`C4BuB`NAB BOBfB@B`C6BuB`CDB BOBfAB@7LF PPB`CFBiB(B BB BOBfB@B`ACHBuB`CPB CB BB@B 7F P6BB ABB`NBiB(B BBiB(BBAB 5BN6``BcBBD7F PBBBBBABB BBBB`B7zF PP: CPB$UP 11/18/83 15:58:49 DXPSCL 1.8.0 83.357 PPCPB$X MCURCPNMCURSTKMTOPSTK5>CPB$X 3@ENT$MD7F PP3jWRS$T 3tWRLN$ 3FREE$ 3RET$M ABCPBB$BX B BBB(BCABNN70F PPBOTB PBOPAB SBTABCKB FBORB CBOMBPLBETBENBESBS A0BPRBOBBESCB7F PPCCBBB*BBAHB NC BB`NBBBOBfA\B@B`7/F PPC BuB`C6B BB BB@B AtBB BBNBB`NBB70F PPAB`NBUB(BNBB BB AB C8NB)B(NBB 7F PPNAB NC BBNBB`NAB B`NB%BN7lF PHB`B7F H`` P: CPB$X 11/18/83 15:58:49 DXPSCL 1.8.0 83.357 PPPROB$ 3CPB$UP5PROB$ ABʻB(B B BB BX7~F PP: PROB$ 11/18/83 16:00:01 SDSMAC 3.6.0 83.111 P PP3jWRS$T 3tWRLN$ 3FREE$ 3RET$M ABCPBB$BX B BBB(BCABNN70F PPBOTB PBOPAB SBTABCKB FBORB CBOMBPLBETBENBESBS A0BPRBOBBESCB7F PPCCBBB*BBAHB NC BB`NBBBOBfA\B@B`7/F PPC BuB`C6B BB BB@B AtBB BBNBB`NBB70F PPAB`NBUB(BNBB BB AB C8NB)B(NBB 7F PPNAB NC BBNBB`NAB B`NB%BN7lF PHB`B7F H`DATE$ `P<'`JDATE$ 50DATE$ 32ENT$S 3RET$S ABDABTEB$ B BBBBB7FJH#BBBBBBBBBB BdBB/A,CCBBB8BIB!B.7oFHH#BAB,B`C(B*B/B*BBB.BEOLN$ 3WRLN$ 3ENX$T 7F JJ#3TX$ERR3RET$M ABWRBX$BT B BBB2B0CCBBAB4B7FJJ#B(BfBB BBBOBiB(B`A0C B BBOB)B(BBB B Bi7FJJ#B(AHBB BB BBBABfBBBEB2A`BB&BB)B*B)B,7FJJ#B B C B B AxCBBBBB)B.B BB B)B0ACBB7AFJJ#B*B B BiB(BB CLB ABBBBB`C B0B)B0CBBi7rFJ8AB2BBɅBBB)B(B)B0B BB AB`B7F8>:  WRX$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`UNION$ `Px'`0 UNION$ 5UNION$AB AB7B8BBB[77F 0::  UNION$  11/18/83 16:28:28  SDSMAC 3.6.0 83.111:`RDL$T `P ['`J6RDL$T 5RDL$T 3ENT$MD3:IO$ERR3EOF$ 3`GET$CH3EOLN$ 7F JJ3DEL$T 3.TX$ERR34RET$M ABRDBL$BT BBBBB BB0B.C27PFJJ#ACBBB8BB(BfBB BEBBOA0BiB(B`C B BByB`7FJJ#C B.BB6AHBB*BB)B(BBBeBiB(BBA`BBBGB27FJJ#BBBbB)B2CBBfAxBB0B/B)B(BCTBMBfBBiB*A7{FJJ#BB BCBfBBBEB0B)B(BBABBfBBafBBBEB4BE7FJJ#B*BBAB)B*BaBDB6BiB4B*BBiB*B6ABB*BOBfB7FJJ#BiB*BIB`CBIB`ACB&BBBDBiB,B BB BiB0AB7FJJ#BɅBBB.BBB6BBB`CA B.BOBiB(BiB.B BB B`7aFJ B7F $ >:  RDL$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`DEXP$ `PA'`@HDEXP$ 5DEXP$ 3ENT$2 3zMP$ERR3P$IDAC3$P$IDAD3FP$IDDV7F HF"30P$IDF13@P$IDLC3P$IDLD3P$IDMC3P$IDML3:P$IDPK3P$IDSB7F FH#3P$IDSC3P$IDSS3:P$IDST3>RET$2 ABDEBXPB$ B BBC:  FREE$ 11/18/83 15:41:52  DXPSCL  1.8.0 83.357 >`WRT$RE `Pr'#`L$vWRT$REL 5WRT$RE3ENT$MD3LPUT$RL3nIO$ERR3tRET$M ABWRBT$BRE7FLJ#BL BB0BBCrCBBAB4BB(BfBBBBBiB.B2BO7aFJJ#A0BfBBiB2BiB*BiB,BfB BIB`AHC B BB BB0BBO7FJ8BiB(B`C A`BBOBiB(B`CB BB B`B7tF8@:  WRT$REL 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`SKIP$F `P >'&`@J#SKIP$FIL5SKIP$F3ENT$MD3~IO$ERR3,BOSF$ 3RRDLN$ 3bREAD$ 7#F JJ#3RET$M ABSKBIPB$FBILBBBB.BCCBABB2BiB(B%7FJJ#BBB%BB BBA0BB)B(B C B`C|BB*BB=BUB0B:BA0B*BB`C B*7VFJJ#BiB,BB)B*BBDAHB4BDB0B&BiB4B0BiB,BBiB0A`B7*FJJ#BEB:BFB:BBiB(BFB`C BAxBBBiB(BiB0BiB3BB7:  ENC$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`CVTD$L `P '4`L$CVTD$L 5CVTD$L3ENT$MD3hEND$T 3HALT$ 3DEE$T 3RET$M A7/FLJBCVBTDB$LBBB BB0BBBCACBBBBBBBB7FJJ#BIBFB`A0C B/BBB`C BBOBIB`CB5AHB5BiB*BiB,7VFJJ#BIB`CBIB`CB`A`CBiB(B BB BBBB BB AxB`7{FJJ#C BBOBIB`CB5BIB`CBIAB`CB`CBiB.B BB B7FJ BBAB CtB B`B7VF @:  CVTD$L  11/18/83 15:45:32  DXPSCL  1.8.0 83.357 @`P$INIT `P h'7` P$INIT 5P$INITAB7F ::  P$INIT  11/18/83 16:24:55  SDSMAC 3.6.0 83.111:`STATE$ `P ':`L$&STATE$ 5STATE$3ENT$S 3$RET$S ABSTBATBE$B BC"CBB7FL*B2BB0ABfBB BEB(B`B7F *@:  STATE$  11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`F$ERRC `P  a'<`J$>F$ERRC 5F$ERRC5F$ERRS5F$ERST3F$XFTL3pFP$XERABʋBB7FJH#BBBCBBMB)B$C:BBBBiBBBBCB C2BB7FHH#BB BBCBC BCBB@BCBCBC,BCBB B7FHH#BCB B B4BbB@BBBBBBCBBCBBBBB[7FHH#BMBB$B BC8BB)B"BBIBiBBBiBBBIB`CB BERBROBR BATB >B BINBB,0B A6B7yFHBBB7~F ::  F$ERRC  11/18/83 16:20:50  SDSMAC 3.6.0 83.111:`@F$ERRS L@@,F$ERST @COMP$ `P V6'@`JjCOMP$ 3bCOMP$C5COMP$D5 COMP$I5COMP$P3JENT$M 3hRET$M A7FJHBCOBMPB$ BBBBBBBBBBB BBB-BB7B BB7FHH#BBmBBBBBBCHB@BBCfCBBB(BB'B(BB7FH*BBBBB BB B`BUPM$CMP7pF*8:  COMP$ 11/18/83 16:16:03  SDSMAC 3.6.0 83.1118`@COMP$D A@@ACOMP$I ~@@_COMP$P @OPEN$ `P ~ؼ'F`JOPEN$ 5 OPEN$ 3"ENT$MD3:CLOSE$3dMOV$4 3hSET$NA3OPN$FI7F JJ3IO$ERR3SVC$3DFREE$ 3xNEW$ 3RET$M ABOPBENB$ BBB07FJJ#B.BBBBBABB,CCBBB2BiB(B%BB A0BB7FJJ#BB(B BB BBBB`CAHB%BBBB BB(BB'BB 7FJJ#B(A`B*BBB BB B%BB B BBAxBB0BBeB B0B7=FJJ#B%BB)B*B AB C B B C BBB B BB BAB BiB.7FJJ#BBBeB B0BBBB*AB BB*BB`C BB+B`CBB'7FJJ#ABB)B(BB BB BBB B`CABBBB٠CBBB 7FJJ#BB B%BACB BB*BB`CBBB`CBA B`CBBe7FJJ#BB,BBeB B0B&BA8B,BBBCB BB BiB0B B%AP7XFJJ#BB B BDBBeB B0BBBeB AhB0BB B CB)B0B B7KFJN``2B BiB,ABBBB%B BBDBB`B7F2>:  OPEN$ 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 >$M ABOPBENB$ BBB07FJJ#B.BBBBBABB,CCBBB2BiB(B%BB A0BB7FJJ#BB(B BB BBBB`CAHB%BBBB BB(BB'BB 7FJJ#B(A`B*BBB BB B%BB B BBAxBB0BBeB B0B7=FJJ#B%BB)B*B AB C B B C BBB B BB BAB BiB.7FJJ#BBBeB B0BBBB*AB BB*BB`C BB+B`CBB'7FJJ#ABB)B(BB BB BBB B`CABBBB٠CBBB 7FJJ#BB B%BACB BB*BB`CBBB`CBA B`CBBe7FJJ#BB,BBeB B0B&BA8B,BBBCB BB BiB0B B%AP7XFJJ#BB B BDBBeB B0BBBeB AhB0BB B CB)B0B B7KFJN`TX$ER$ `P b'H`L$TX$ERR 5TX$ERR3ENT$2 3ENS$T 3P$ABND3RET$2 ABTXB$EBRR7FLJ#B BB2BB,B.B BCACBBBBi7FJJ#AB:B0B0B/BBBB9B;B%BBEBFB)B4AhCB B)B6CBBBDB&73FJJ#BBB AB)B4CBBB)B6CBB`CBB)BiB8B>B)BB*BABBB0BaB:BBFB*BBͩ7eFJJ#B(BͩAB*B͠CBʼnBC BʼnBC"BͩB0BʼnABC$B BB B7qFJJ#B:BBFB0BB:A(B`CBB*BBBiB:B0BBB(A@BB:7FJJ#BfBB BB BBB:BB`AXCB:  DEL$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >/BBBB9B;B%BBEBFB)B4AhCB B)B6CBBBDB&73FJJ#BBB AB)B4CBBB)B6CBB`CBFHH#B BALBTEBRNBATBIVBE B?2B*BFBILBE B?1B LBUNBO B#?B2 BNOBT BASBSI7FH BGNBEDB1B CBANBNO``6BT BLOBADB OBVEBRLBAYB, BSTBATBUSB =B ?B1AB7bF6::  PM$RTM  11/18/83 16:23:08  SDSMAC 3.6.0 83.111:BADBDRBESBSA@BBIBLL7FHH#BEGBALB SBUPBERBVIBSOBR BCABLLBBABDDBREBSSBINBG BERBROBRAnB7\FHH#BPBRIBVIBLEBGEBD BINBSTBRUBCTBIOBNABB TBASBK BKIBLLBEDBBT7qFHH#BASBK BERBROBR B#?B1ABBSBTABCKB OBVEBRFBLOBWABB HBALBT 7FHH#BCABLLBEDBB HBEABP BFUBLLB BDBIVBIDBE BBYB ZBERBOAB&BIBNV7FHH#BALBIDB PBACBKEBT BPOBINBTEBRAB'BIBNVBALBIDB LBENBGTBH BOFB P7FHH#BACBKEBTAB2BCBANBNOBT BGEBT BMEBMOBRYB3BEBRRBORB CBODBE B= 7FHH#BP4B01B5BEBRRBORB CBODBE B= BP4B03B8BTBCAB ABCCBESBS BERBROBR7-FHHAlBB7"BCABSEB" BALBTEBRNBATBIVBE BERBROBR\B BSTBATBEMBENBT B?17>FHH#B BALBTEBRNBATBIVBE B?2B*BFBILBE B?1B LBUNBO B#?B2 BNOBT BASBSI7FH BGNBEDB1B CBANBNO`PPARM$ `P 6'Z`J PPARM$ MCUR$5PPARM$PABBNBB B B7BLB7FJ B[7(F ::  PPARM$  11/18/83 16:25:11  SDSMAC 3.6.0 83.111:`SKIPBL `P 9H']`L$VSKIPBLAN5SKIPBL3ENT$MD3NXT$CH3,EOF$ 3@GET$CH3TRET$M A7VFLJ#BSKBIPBBLBANBB CRCBBB,BʩAB(B0B BB B_B*B)B(7FJJ#BBBA0B)B*C B BB(BBBBBGB*AHBB(BBB7nFJB`B7F#@:  SKIPBLAN 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @`READ$ `P < 6'^`LREAD$ 5READ$ 3 ENT$MD3LMOV$N 3jGET$RC3IO$ERR3RET$M A7FLJBREBADB$ BBBPBB0BBBBABCCBBB4BiB(B%7FJJ#BB BDA0BGB%B C B"B%BBB*BBB AHB BBB`C 7]FJJ#B0BB%BB%BB%A`B B B CB BB B)B0CBB`AxC7&FJJ#BB)BB%B BBBBBBDAB2BFB2BBB BBBB)7UFJJ#B*BABBB)B0CBBB)B(B CBABB)B(B CB 7FJBB B`B7OF >:  READ$ 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 >`CMP$ST `P ?t5'``, CMP$ST 5CMP$STAB7BB BB[7F,::  CMP$ST  11/18/83 16:16:00  SDSMAC 3.6.0 83.111:`CHK$ `P B 62'b`HCHK$  5@CHK$A 5(CHK$DE5CHK$DI54CHK$DL5CHK$DS5"CHK$E 7F HH#5 CHK$I 5:CHK$P 5FCHK$R 5CHK$S 3ENT$M 3RET$M 3RTCHK$A7/FHH#BRTB CBHEBCKBBBB4BBBBBB.BBBBBB(BB7FHH#BBBB,BBB)BB BBB BBB BB-BBBBB7FHH#B-BB7BBBBBGB-BB7BB BB BBmBBBBmB7FHH#BBBBBCB@BBCCBBB(BB'B(BBBBB7~FH(BBBB BB B`BUPM$CHK7tF (8:  CHK$  11/18/83 16:15:45  SDSMAC 3.6.0 83.1118`@CHK$A @@CHK$DE @@CHK$DI @@pCHK$DL @@HCHK$DS S@@SCHK$E @@RCHK$I M@@BCHK$P @@oCHK$R 3@@3CHK$S @DSTR$$ `P EH'x`J$"DSTR$$ 3ABEND$5DSTR$$3DSTRY$ABB-BBCBBB B7RFJB BBBʀB(B BB 7F::  DSTR$$  11/18/83 16:18:52  SDSMAC 3.6.0 83.111:`WRS$T `P H'z`JWRS$T 3ENT$M 30IO$ERR3RET$M 3TX$ERR3`WRLN$ 5WRS$T A7FJHBWRBS$BT BBBBACCBBB0B)B(BʌB(B,BC BBʠ7FHH#C B*B BB BB*BiB,BBBBBBB,BBBB BBB7LFHHBBBBB BB BBBBBBBBBBBBBBBB7FH4BB)B.BBBBBʠC B*B BB B`B7F 48:  WRS$T 11/18/83 16:28:39  SDSMAC 3.6.0 83.1118`C$RFTN `P K0'}`H BC$RFTN MCUR$5C$RFTN3*F$XREC5.R$RFTNPABC$BRFBTN7$FHJ$CB NB B4B BB)B$B`C,B$BB B`CB B`BBBLB$7?FJ BHB NBB4BGB B[7F ::  C$RFTN  11/18/83 16:15:33  SDSMAC 3.6.0 83.111:`STCR$ `P N'`JHSTCR$ 3ENT$S 3FRET$S 5STCR$ ABSTBCRB$ B BB(CDCB7FJH#BB(BB4B-BB BBmBBABB aBBBBBBBBB7FH BBBB`B7F 8:  STCR$ 11/18/83 16:27:58  SDSMAC 3.6.0 83.1118`WRLN$ `P Qt'`LxWRLN$ 5WRLN$ 3ENT$MD3HPUT$RC3pIO$ERR3vRET$M ABWRBLNB$ 7FLJ#B BBBBCtCBBAB*BB(BfBB BBBOBfBBf73FJJ#A0BBfBBFB`C B&BB B BDB AHBB BBBBOBiB(7iFJ<B`C BBA`BBBOBiB(B`CB BB B`B7F <>:  WRLN$ 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 >`WRR$T `P T h'`JWRR$T 5WRR$T 3ENT$MD36IO$ERR3@EOLN$ 3WRLN$ 3ENR$T 7F JJ#3TX$ERR3RET$M ABWRBR$BT B BBB4B2BCCBABB67FJJ#BB(BfBB BBBOBiB(A0B`C B BBWB)B(BBB B 7^FJJ#BiAHB(BB BB BBBIBfBBBEA`B4BB&BB)B*B)7wFJJ#B,B)B.B B AxC B B CBBBBB)B0B BAB B)B27OFJJ#CBBB2B)B2CBBAB*B B BiB(BB CNB BBB7NFJJ#ABB`C B2B)B2CBBiB4BBɅABBB)B(B)B2B B7nFJB B`B7F !>:  WRR$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`CVTD$R `P W'`L$CVTD$R 5CVTD$R3ENT$MD3jEND$T 3HALT$ 3DER$T 3RET$M A7FLJBCVBTDB$RBBB BB0BBBBACCBBBBBBB7FJJ#BBIBFA0B`C B/BBB`C BBOBIB`CAHB5B5BiB*Bi7`FJJ#B,BIB`CBIB`CA`B`CBiB(B BB BBBB BAxB 7yFJJ#B`C BBOBIB`CB5B`CBIAB`CBIB`CB`CBiB.B 7FJ*BB ABBBB CvB B`B7F *@:  CVTD$R  11/18/83 15:45:32  DXPSCL  1.8.0 83.357 @`ASSRT$ `P Z,'`D!ASSRT$ 3ASSER$5ASSRT$ABʻB(B B BB B\UPM$MIS7FD::  ASSRT$  11/18/83 16:15:06  SDSMAC 3.6.0 83.111:`CVTL$D `P ]~!'`J#CVTL$D 5"CVTL$D3$ENT$MD3lENR$T 3HALT$ 3DEI$T 3DED$T 7F JJ#3tMOV$5 3xRET$M ABCVBTLB$DB BB BBDSTR$$3WRI$T 3LRET$M ABDUBMPB$SBTABBBB DBATBA BARBEA7FJJ#AB FBORCB BB (BFTBN)C"BBBA0B IBNVBALBIDB SBTABCKB F7FJJ#BRABMEC0B>AHB B EBNTBRYB PBOIBNTCJB2BBLEBVEA`BL=C\CJC7FJJ#BBB@BBB)B(BAxB,BBdB,B>BBdB"B>BB4BA7]FJJ#B`C B4BBB4BB>BcBB.BiAB>BʯB@B(B BB BʯB@7bFJJ#B(BʠC AB*BʠC B,BʠCB.B BB BB4ABPBB#B(B7xFJJ#B@BCBC BB AB BʯB@B(BʠC B*BʠC B,BʠC(AB.7aFJJ#B BʯB@B(B CB B%B$CBA BB"BB>BBBB7bFJJ#B#B>A8BCBB(BʩBB BiBB&BB#B(BB@BACBCZBB8B CB Bʯ7FJJ#B@B(BʠACB*BʠC B,BʠCbB.B BʯB@B(ABʠC B*BʩB67_FJJ#B,B BB BʯB@B(AB CJB BiBBCbBB:7FJN`` BAFB`CB`B7qF@:  DUMP$STA 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @`CB6BBB8BcBAB6BeBB,BeBB<7KFJJ#B)B6C*BB)AB6C,BBiB,B>B BiBB&BB#B(BB@BACBCZBB8B CB Bʯ7FJJ#B@B(BʠACB*BʠC B,BʠCbB.B BʯB@B(ABʠC B*BʩB67_FJJ#B,B BB BʯB@B(AB CJB BiBBCbBB:7FJN`SET$ME `P l'`L$HSET$MEM 5SET$ME3ENT$M 3RET$2 ABEXBP$B B BBnCPBBKBNBBBBCTBqB@BjBBBBRBBCLBBBBj7F PPBB`C|B(B`C~B*B`BBCBCJCDBUBCCtBQBBBR7cF PPBBCF$ERRC 5F$ERRC5F$ERRS5F$ER$`DEB$T `P ='`LDEB$T 5BDEB$T 3DENT$MD3CMP$ST3RET$M ABDEBB$BT BBB7FLJB BB BBBT AB B CBTRBUEB CBF B B C&BFAA0BLSBE 7FJJC.BB BC6C~CBBBDAHBB*BB`C B8BB,BB4B37"FJJ#BVA`B0B0B`CB8BB,BVBiB*BBEAxB0B}BBBBB8B7LFJJ#B,BVB6BB*ABBB,BVBiB*BBEB0BiB6B0ABBB(7?FJJ#BB6BfBB BB BBAB6BBXBB@B`C B:B`CBBiB6B0B(BB(BB6BfBAB BEB4BBABBBZ7FJJ#BB)B@CABZBYBB@BBB@B٩B5B9BBA B*BQBB67IFJJ#BBFB0BB6BBB'A8B:B CB BBBB BB'B:B AP7FJJ#C$B BBCDBB`C BBBB0BAhBiB,BFBiB2BiBBBB.7FJJ#BũB8B`ABBB'B:B C,B BBCXBBAB'B:B C4B 7FJL``J#BBCBBB'B:AB C:  DEB$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 > B8BB,BB4B37"FJJ#BVA`B0B0B`CB8BB,BVBiB*BBEAxB0B}BBBBB8B7LFJJ#B,BVB6BB*ABBB,BVBiB*BBEB0BiB6B0ABBB(7?FJJ#BB6BfBB BB BBAB6BBXBB@B`C B:B`CBBiB6B0B(BB(BB6BfBAB BEB4BBABBBZ7FJJ#BB)B@CABZBYBB@BBB@B٩B5B9BBA B*BQBB67IFJJ#BBFB0BB6BBB'A8B:B CB BBBB BB'B:B AP7FJJ#C$B BBCDBB`C BBBB0BAhBiB,BFBiB2BiBBBB.7FJJ#BũB8B`ABBB'B:B C,B BBCXBBAB'B:B C4B 7FJL`PPB$N `P  p'`*PPB$  5PPB$N 5PPB$X AB7F *8:  PPB$  11/18/83 16:25:15  SDSMAC 3.6.0 83.1118`@ PPB$X @DUMPPR `P V'`P6DUMP$PRO5DUMP$P3ENT$2 3$PRT$X 34RET$2 3.WRLN$ AC2BB7UF PPBB0B,BB,B@BʌB(B BB BʩB(B(B BB BʌB(B CB 7eF PPB`B7F PP: DUMP$PRO 11/18/83 16:34:12 SDSMAC 3.6.0 83.111 PA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[2DC ݑ ? ?  jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ $ "jY$ *@)*    9 @9 @ "`RELEA$ `P '`LRELEASE 5RELEAS3ENT$MD3CUR$3ZABEND$3RET$M ABREBLEBAS7FLJ#BE BBCCBBB.B ABB B_BEB,BB8BVBBBDB*7>FJJ#A0BiB(B BB BB BiB(B B&BAHBBB BBBBC 7BɃABB`B7F,@:  RELEASE 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @`SDIFF$ `P x'`0 SDIFF$ 5SDIFF$AB AB7BO8BBB[7F 0::  SDIFF$  11/18/83 16:27:07  SDSMAC 3.6.0 83.111:`TEN$DX `P '`J$TEN$DX 3ABEND$5TEN$DXABBBBBQBBCBB@B(B`B7FJVTEN$D 7F ::  TEN$DX  11/18/83 16:28:10  SDSMAC 3.6.0 83.111:`ENX$T `P  TT'`L~ENX$T 5ENX$T 3ENT$MD3|RET$M ABENBX$BT B BBBBB07FLJ#B CzCABBBB`C B6BiB.BBB B)A0B,C B BBU7xFJJ#B2BBB,BB`CrAHBB8BB,B=BAB)B:B B BDBBB BB`CBABiBB%B0B)B87DFJJ#B B BB@BB8AB)B,BBiB8B*BiB*B8B B BiAB8B 7FJJ#BIB%B:  ENX$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`ENT$5 `P W'`H*ENT$5 MCUR$3ENT$ 5ENT$5 5RET$5 3(RET$M PA7%FHJ$BB NBlB B B B B`BB NB)B B BiB"BéB$B`B7F J8:  ENT$5 11/18/83 16:20:06  SDSMAC 3.6.0 83.1118`PACK$N `P *<'`H#VPACK$N 5PACK$15 PACK$25PACK$35PACK$45(PACK$552PACK$67F HH#5BBBBBBBBBBBBBgBBBBF FL$DBL >PBBEBBBBBވB BBBވBBBBBBB`CB*BB'BB F FL$DBL PPBBHBBѧB B+BLBBBFBBbB(B@B:BzBBB*BBBBF FL$DBL PPBB-BBDBBBB CBB BB BBB BB ABB BDB @BBDBF FL$DBL PPBBB B΀B΁B΂BƃB*BBBBBB BBB@BBBBBB F FL$DBL PPBBB[BBBBBBBBBBBBBBBBBBJBBC"F FL$DBL PPC>BC6BCBBIBB@#C>B8 BBBhCzB BBBBBBBBF FL$DBL PPBBBBBBBBBBBB BBBB@BBBBABBBF FL$DBL PPBBBCBBBBBBBBBCBBЙBBBBBB#BBBBBBF FL$DBL PPB DBBBBB BB EBBBBB BBB FBBBBB BB GBBJBBF FL$DBL P$B BBB BBЙBBBpB BBЂ$``,BBBBBCB B BցBB(BF FL$DBL ,PBBCFBBBBBBBB@BBBBBB[BBB( CfBBF FL$DBL PPBiBBBBBB BBBBBFBBB*BGBBEBBBBBЃBpF FL$DBL PPBBBBB֪BBڪBBBڪBBBzBBBBBBBBBBFF FL$DBL PPB8BBBB΄BBZB΄BBB΄BBBƄB*BBBFBBBaFBBF FL$DBL PPBBBBBBBB@BB%BBBBB BBBBBBЁB@BpF FL$DBL PPBEBBBBCBBBBBBGBBB BCBBBCB BF FL$DBL PPBBB@BABBBCBCBBBBBBBBBB@BABBBCB)CfF FL$DBL PPBBBBBBB BBDBBB @BB BB ABB BDB BBB BF FL$DBL PPB CBBBBBBBBЁB@BBDBBBBBƀBʁBBʂBBʃBF FL$DBL P6BBBBBBBB@BBBBBB\B CBB B6``B BBB BB AF FL$DBL PBB BDB @B[BBBBBBBBBBBBBBBBBBF FL$DBL PPBBjBBBBBBBBB[IF$XDBL I"F$XDD I6F$XMD F FL$DBL PPIfFPASD ITFL$DBL$$F FL$DBL PP: 11/18/83 17:24:45 SDSLNK 3.6.0 FL$DBL PF FL$DBL PPBBBBBBBB@BB%BBBBB BBBBBBЁB@BpF FL$DBL PPBEBBBBCBBBBBBGBBB BCBBBCB BF FL$DBL PPBBB@BABBBCBCBBBBBBBBBB@BABBBCB)CfF FL$DBL PPBBBBBBB BBDBBB @BB BB ABB BDB BBB BF FL$DBL PPB CBBBBBBBBЁB@BBDBBBBBƀBʁBBʂBBʃBF FL$DBL P6BBBBBBBB@BBBBBB\B CBB B6`@$FL$ITD @@F$RDBL @C$FTN `P /'`H^C$FTN MCUR$5 C$FTN PABC$BFTBN CB BWB B"B 7FHJ$B CB;BBBBB C B NB B4B BB)B$BB$BƩB B`7 FJ8CB BCJBjB"BZB BLB$BHB NBB4B[7F88:  C$FTN 11/18/83 16:15:26  SDSMAC 3.6.0 83.1118`LI$SUB `P s'`J$&LI$SUB 5LI$SUBABBB$BiB0B(BiB2B*BjiB4B(BjiB6B*7FJBB)B(B7F::  LI$SUB  11/18/83 16:22:45  SDSMAC 3.6.0 83.111:`INIT$1 `P Nֿ'`L$ZINIT$1 5INIT$13ENT$MD38MOV$4 3HFL$INI3RREWRT$3XRET$M A7sFLJBINBITB$1BBB@BOUBTPBUTBC BACVCBBB(BBBB7FJJ#C BCA0B B(B*BBBʠCB2BʠCB4B AHBB BB@B 7FJBB B`B7OF @:  INIT$1  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @`NXT$CH `P '`J$&NXT$CH 5NXT$CHABBB$B)B0BB B,BBBBB,BB7FJBBGB(B78F::  NXT$CH  11/18/83 16:24:25  SDSMAC 3.6.0 83.111:`SIN$ `P @'`@H SIN$COS$5COS$3>ENT$2 3MP$ERR3P$IRAC4P$IRAD3HP$IRF17`F HF"3P$IRLC4P$IRLD3|P$IRMC3P$IRML3RP$IRPK4P$IRSB3P$IRSC7F FH3P$IRSS3vP$IRST3VRET$2 5CB``2C\CBCpB\BCCBCB\BCC7qF2H#BiBRBBBBBPB[BCBOSBBBBBBBBڗBBB]B܀7FHH#BBB/BHBBBB}mBBBBtBBBBűBBBB2dBB7'FH*BBBSBINBBBBnBBBB7F*::  SIN$COS$ 11/18/83 16:27:30  SDSMAC 3.6.0 83.111:BCCBCBC&B`BBB0B B@B6BBB@B47 FHH#BB4BB[BKBNBBBBCBBBBBCBBNB[BKBN7CFHH#BBB@BdBBBCB()BdBBNB[BKBPBDBRBBBBBs7FHH#BC|CBoBBBB`CB(B`CB*B`BBCBSIBNCBOSBC7FHH#CB[BBCB)BRBABB BBB)BRBDBBDBRBABBB7\FHH#CBB)BRBBB BBBBTBBBTBC,B\BCCBB7FHH#CBC2B\BCDCBCJB\BCPCBCVBTBBC8BTBCb7FH BTBCjB\BC>CB`@COS$ @RDS$T `P  *]'`@JpRDS$T 5RDS$T 3ENT$MD3:IO$ERR3^EOF$ 3HRDLN$ 3EOLN$ 7F JJ3DES$T 3hTX$ERR3nRET$M ABRDBS$BT BBBBBBB4B0Cl7FJJ#ACBBB:BB(BfBB BEB BOA0BiB(B`C B BB B7KFJJ#B`C B2BAHB*BBBiB,B*BB2B)B(BBA`BB`CB07%FJJ#ByBfBBiB*BB B^AxBfBBBEB4BB8B)B(BBBA7FJJ#BfBBafBBBEB6BEB*B&B%B)AB*BaBDB8BDB,B BiB67)FJJ#B4BBiAB*B8BB*BBiB*B,B BiB*BaiAB,BEB4B)B67~FJJ#BaBDB*BBiB6B*ABOBfBBiB*BiB,BIB`CBIB`AC7yFJJ#B&BBBDBiB.B BB BiB4A BBɅBBB0BBB8BB7FJJ#B`CA8B0BB2BBiB(BB BB BBAPB BB*B BB7FJ*BOBiB(BiB0B AhBB B`B78F * :  RDS$T 11/18/83 15:29:0 `` 7  DXPSCL  1.8.0 83.357  RR3^EOF$ 3HRDLN$ 3EOLN$ 7F JJ3DES$T 3hTX$ERR3nRET$M ABRDBS$BT BBBBBBB4B0Cl7FJJ#ACBBB:BB(BfBB BEB BOA0BiB(B`C B BB B7KFJJ#B`C B2BAHB*BBBiB,B*BB2B)B(BBA`BB`CB07%FJJ#ByBfBBiB*BB B^AxBfBBBEB4BB8B)B(BBBA7FJJ#BfBBafBBBEB6BEB*B&B%B)AB*BaBDB8BDB,B BiB67)FJJ#B4BBiAB*B8BB*BBiB*B,B BiB*BaiAB,BEB4B)B67~FJJ#BaBDB*BBiB6B*ABOBfBBiB*BiB,BIB`CBIB`AC7yFJJ#B&BBBDBiB.B BB BiB4A BBɅBBB0BBB8BB7FJJ#B`CA8B0BB2BBiB(BB BB BBAPB BB*B BB7FJ*BOBiB(BiB0B AhBB B`B78F * :  RDS$T 11/18/83 15:29:0 `FP$XER `P k'`J$FP$XER M$DATA XF$XLOGXF$XLWS5FP$XERAB TB[S7OFJ BB7EF ::  FP$XER  11/18/83 16:22:06  SDSMAC 3.6.0 83.111:`CREAT$ `P  Bֱ'`JPCREAT$ 5CREAT$3ENT$MD3xHEAP$T3@STK$MA3XNEW$3CUR$ 7F JJ3MOV$N 34DSTR$$3NRET$M ABCRBEABT$BBB.B>B0BCLCB7BFJJ#ABB:BB*B BBB*BB B C A0BB BB B)B*BB 7EFJJ#BB BBAHBDB6BBB,BC B BB BB A`B CB)B67FJJ#B BB B C B)B.B AxC4B B)B,BBaBB0B^B)B,BTA7FJJ#B BB BBDB2BBB BBBAB)B2BB,BB)B0BBD7kFJJ#B"BiB(AB$BB(B`CB*BB,BiB0B.BDAB0BB0BB67FJJ#BCB2B)B0B)B(BAB0BiB0BB)B6BDBBBBBDAB87FJJ#BFB8BBB BBBBB)B0A B$BBDBBB)B,BB&B75FJ6BBDA8BBB2BcB&BBB)B,BB`B7F 6@:  CREAT$  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @`EXTOUT `P R_'`L$\INIT$1 5INIT$13ENT$MD38MOV$4 3HFL$INI3TEXTND$3ZRET$M A7~FLJBINBITB$1BBB@BOUBTPBUTBC BACXCBBB(BBBB7FJJ#C BCA0B B(B*BBBʠCB2BʠCB4B AHBB BBC 7~FJ B BB B`B7F @:  INIT$1  11/18/83 15:41:52  DXPSCL  1.8.0 83.357 @`CPB$N `P ~7'`8CPB$  5CPB$N 5CPB$X 5PROB$ ABBkB7^F88:  CPB$  11/18/83 16:16:07  SDSMAC 3.6.0 83.1118`@rCPB$X @@PROB$ @PAGE$ `P 4U'`LXPAGE$ 5PAGE$ 3ENT$MD3LWRLN$ 3@WRC$T 3VRET$M ABPABGEB$ 7FLJ#B BBPB CTCBBB*ABiB(BB BB BB(BBBBO7FJJ#A0B)B(BTB`C B`C B BB BiB(AHBB C B BBB`B7mFJ>:  PAGE$ 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`ENT$6 `P X'`H*ENT$6 MCUR$3ENT$ 5ENT$6 5RET$6 3(RET$M PA7"FHJ$BB NBlB B B B B`BB NB)B B BiB"BéB$B`B7F J8:  ENT$6 11/18/83 16:20:11  SDSMAC 3.6.0 83.1118`FL$DBL$$`P bh'` FL$DBL$$6FL$DBL7:F::  FL$DBL$$ 11/18/83 16:21:39  SDSMAC 3.6.0 83.111:`F$XLWS `P f'`J$F$XLWS M0$DATA 6 A$WRTE6"A$WRTL6$F$XBCH6+F$XBFF6,F$XBFX7F JH#6.F$XBFY6&F$XCPX6(F$XCPYWF$XLWSX"S$WEOLX S$WRITSS 7{FH$BBB S&S(S*S*BBB7?F$::  F$XLWS  11/18/83 16:21:26  SDSMAC 3.6.0 83.111:`PACK$ `P (`LPACK$ 5BPACK$ 3DENT$S 3VRET$S ABPABCKB$ B BCCXCdCp7TFLJ#C|CCACCCCCC,C>CPCbCtCCA0CCCCC7FJJ#CCCTCBBB:AHBiB*B(BB2BEB`BBiB(BBDA`B7wFJJ#B)BiB(BBDBB#BiB(BBDAxBBBiB(BBDBBBiB(71FJJ#BBDABBBiB(BBDB?B BiB(BBDABBBiB(B%B7xFJJ#B BDB6BBBiAB.B8BFB8BBBB0BBBrB AB'C.7FJJ#BXBB0BBBB B'C BXABB(BB0BBBOB B'CBX7FJJ#BiAB(BBDBB)B6BDB6BABiB6B %A B)B(BBCBB5Bi7%FJJ#B6B 5B)B(BA8BCBB,BiB6B EB)B(BBCBB#APBiB6B U7WFJJ#B)B(BBCBBBiB6B eAhB)B(BBCB?BBiB6B uB)B(B7FJJ#ABCBBBiB6B B)B(BBB BCABEB6BBBiB6B B7FJL``J#BiB6B EBABiB6B %BEB6BiB,BiB6BB,BAB(BjiB.B27FJB`CN7F#>:  PACK$ 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 >CTCBBB:AHBiB*B(BB2BEB`BBiB(BBDA`B7wFJJ#B)BiB(BBDBB#BiB(BBDAxBBBiB(BBDBBBiB(71FJJ#BBDABBBiB(BBDB?B BiB(BBDABBBiB(B%B7xFJJ#B BDB6BBBiAB.B8BFB8BBBB0BBBrB AB'C.7FJJ#BXBB0BBBB B'C BXABB(BB0BBBOB B'CBX7FJJ#BiAB(BBDBB)B6BDB6BABiB6B %A B)B(BBCBB5Bi7%FJJ#B6B 5B)B(BA8BCBB,BiB6B EB)B(BBCBB#APBiB6B U7WFJJ#B)B(BBCBBBiB6B eAhB)B(BBCB?BBiB6B uB)B(B7FJJ#ABCBBBiB6B B)B(BBB BCABEB6BBBiB6B B7FJL`FTN$TP `P l(`H DFTN$TP MCUR$3BF$XRER5FTN$TPPABFTBN-B>TBIPBB(7]FHJ$C:CBJB`NB¡B4BB4BB BCB B BB@B"BNB$BB&7FJ B BJB4B‰BB7F::  FTN$TP  11/18/83 16:22:09  SDSMAC 3.6.0 83.111:`TERM `P e(`@JBTERM$ 5TERM$ 3ENT$2 3MSG$3ENS$T 3ENX$T 3ENC$T 7F JH"3"DUMP$P3.DMPP$H34PB$TER34CLOSE$3^MOV$N 3ENI$T 3CUR$ 7F HJ#3:P$$TRM3@RET$2 ABTEBRMB$ B BBNOBRMBALB TBERBMIBNAABTIBON7FJJC BBBTABSKB KBILBLEBD C"A0B BSTBACBK BOVBERBFLBOWBC2B7FJJ#BAHBHABLTB CBALBLEBD CHBBHEBAPB FBULA`BL CXB BB.BBX7FJJ#B*B&BERBROBR AxBCOBDEB =B PCrBBVBB BSTBACBK ABUSBEDB =7FJJB BB B B HBEABP BUSBEDAB =BB BCBB,B"BBCABNNBOT7#FJJ#AB GBETB MBEMBORBY CBBB CC>ACBBBZBBBB(7FJJ#BB`CBiAB(BmBB BB(BfB:BeBBʍA0B(B CJB B BB B`B7\F >>:  TERM$ 11/18/83 15:41:52  DXPSCL  1.8.0 83.357 >CBʼnAB7FJJ#ClBʼnBCnB͠CpBʼnBCB BAB BB&B(BʼnBChB͠CBʼn7FJJ#BClABʼnBCnB͠CpB͠CB BB BʉB(ABChB(BʠCpB*77FJJ#B CB BѯBHB ABBBʩB(B(BʠCfB*B BB BʩA(B(B(7FJJ#B BB B BB BѯBHB BA@BBʯB@B(B BB BCB B(7FJJ#B.AXB B BBBéB(BB0BaB.BFBTApB`CjB,BJB%B(BI7iFJJ#B`ChB`CBIAB`CBIB`CnB`CpBFB BB B`ACB,B7FJJ#B&B(BʼnBChB͠CBʼnBACBʼnBCnB͠CpBnB8BͥBB Bʉ7pFJJ#AB(BChB(BʠCpB*B CB BBʠACB(BʠCB*B CB 7RFJJ#B BB BAB(BFB(BfB:B`CB BʠCB(BʠACB*B C7FJN`FATA$$ `P rָ( `L$vFATAL$ 5FATAL$3ENT$MD3JENS$T 3nP$ABND3tRET$M ABFABTABL$7FLJ#B BB.BB*B,B BCrACBBB8B`CB*BBʼnBC BŠ7RFJJ#A0C BͶBʼnBCBʼnBCB͠CBͩB(AHB BB BB*BFB BF7FJ8B.BB&B.A`BFB*BOB`CBFB BB B`B7^F8@:  FATAL$  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @` WRL$T `P  Xg( `JWRL$T 5WRL$T 3ENT$MD34IO$ERR3>EOLN$ 3WRLN$ 3ENL$T 7F JJ#3TX$ERR3RET$M ABWRBL$BT B BBB2B0CCBBAB4B7FJJ#B(BfBB BBBOBiB(B`A0C B BBOB)B(BBB B Bi7FJJ#B(AHBB BB BBBABfBBBEB2A`BB&BB)B*B B 7FJJ#C B B CBAxBBBB)B,B)B.B BB B)B0ACBB7FJJ#B*B B BiB(BB CLB ABBBBB`C B0B)B0CBBi7rFJ8AB2BBɅBBB)B(B)B0B BB AB`B7F8>:  WRL$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >` RETRN$ `P  &(`L$PRETRN$ 5RETRN$3ENT$MD3(STACK$3CMP$ST3E$FAIL3NRET$M A7FLJBREBTRBN$BBBB BB BC BACLCBBBHBB>B B7FJJ#B B_BBB>AB BiB@BDBBBiBBBFBB 7FJJ#BA B BB0BB$BB&B$C BBɩB6A8BBBɩB6B$BB>7FJ BB`C0B`B7nF @:  RETRN$  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @` RDB$T `P  V(`J6RDB$T 5RDB$T 3ENT$MD3:IO$ERR3EOF$ 3`GET$CH3EOLN$ 7F JJ3DEB$T 3.TX$ERR34RET$M ABRDBB$BT BBBBB BB0B.C27dFJJ#ACBBB8BB(BfBB BEBBOA0BiB(B`C B BByB`7FJJ#C B.BB6AHBB*BB)B(BBBeBiB(BBA`BBBGB27FJJ#BBBbB)B2CBBfAxBB0B/B)B(BCTBMBfBBiB*A7{FJJ#BB BCBfBBBEB0B)B(BBABBfBBafBBBEB4BE7FJJ#B*BBAB)B*BaBDB6BiB4B*BBiB*B6ABB*BOBfB7FJJ#BiB*BIB`CBIB`ACB&BBBDBiB,B BB BiB0AB7FJJ#BɅBBB.BBB6BBB`CA B.BOBiB(BiB.B BB B`7aFJ B7F $ >:  RDB$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >` CKTOP$ `P 4(`J ,CKTOP$ MCUR$3*ABND$05CKTOP$3MARG$NPABB N7FJ@BB B B0BB,B2Bb BB BB B0B[BbBBB`B7F @::  CKTOP$  11/18/83 16:15:54  SDSMAC 3.6.0 83.111:` ENT$15 `P S(`H *ENT$15 MCUR$3ENT$ 5ENT$155RET$153(RET$M PA7FHJ$BB NBlBB B BB`BB NB)B BBiB"BéB$B`B7F J::  ENT$15  11/18/83 16:19:46  SDSMAC 3.6.0 83.111:` STACK$ `P x(`0 STACK$ 5STACK$ABBB$BMB(B7F 0::  STACK$  11/18/83 16:27:56  SDSMAC 3.6.0 83.111:`IO$TER `P ع(`L$>IO$TERM 5IO$TER3ENT$S 3RET$2 ABLNB$ B BBBCF ::  Q$MULA  11/18/83 16:25:31  SDSMAC 3.6.0 83.111:`@XQ$SHFT @RESET$ `P #p(2`J#hRESET$ 5RESET$3ENT$MD3>REST$S3HREST$T3RREST$R3^CHK$L 7F JJ 3fRET$M ABREBSEBT$BBC8CBCLCXCdCBABB,BB(B77FJJ#B:BAB0BBB0B(B'BiB:B9iB4BBiAB6B9iB8BBiB67`FJJ#B9iB:BGBEB4BFAB6BZ`CB4BB B)B4B)B6B)B8AB)B:7^FJJ#B BB B|B4B\B6B)B,CAB BB'B4B CB B,B4BB7FJJ#BA BBB(BBBBiB4B)B6BBA8B4B)B,CBBB*7FJ&BBB*BͩB4APBũB6B`B7F&@:  CVTR$F  11/18/83 15:45:32  DXPSCL  1.8.0 83.357 @`ENT$10 `P )M(8`H *ENT$10 MCUR$3ENT$ 5ENT$105RET$103(RET$M PA7FHJ$BB NBlBB B BB`BB NB)B BBiB"BéB$B`B7F J::  ENT$10  11/18/83 16:19:21  SDSMAC 3.6.0 83.111:`F$ETER `P , $b(:`H#tF$ETER 5F$ECON5F$ETER3|F$XBFR3lF$XERR3xF$XLGW3F$XSVC7gF HH#3F$XTRMABʋBBBBB@BC.BCDBBMB)B$CrBBB7FHH#BiBBBBBCB CkBBBB@BBC BB@BCBC 7FHH#BB BBCBJB!B3BbBBBHBBBBBBC.BBB#7FHH#BBB`BB CkBBBBBBB BBB*BBBBBB7FHH#BBCB[BMBB$B BCpBB)B"BBIBiBBBiBBBI7FHH#BBBBBB`BB`)B"B)B BB)BCnBBBBiBB[B07FHH#B B0B BB[B BBB @B CBCmBB#BBClBB BB Ck7FHH#B[B B(B3BB BPBCjB BB[B B$BBB.BBBBB/7FH0BBBBBBBB$B[B ;B0 BBB7-F0::  F$ETER  11/18/83 16:21:03  SDSMAC 3.6.0 83.111:`@F$ECON @SET$AC `P /(@`L$SET$ACNM5SET$AC3ENT$MD3HFREE$ 3rNEW$ 3RET$M ABSEBT$BAC7wFLJ#BNMBB,CCBBB2B)AB(BdBBBB BB*BГB BB7'FJJ#A0BSB BBB"BeBB,BBBC B AHBB BB*BГB BBB7FJJ#B.BB BA`BB.BBBC BB.B BB BiAxB,BBB7FJD B*BB0BSB1BFB0B ABBBBB*BBBBB`B7FD@:  SET$ACNM 11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`TX$ERR `P 2 w(B`PTX$ERR M$DATA F TX$ERR PP4ENS$T 4ENT$2 4P$ABNDUPM$TIO4RET$2 5TX$ERRABTXB$EBRRB F TX$ERR PPBB2BB,B.B BCCBEBAB`C B6BiB.BBUBTBUB2BQBA0B,BNBMBiB*7FJJ#B,BBBiB,B*BiAHB.BB)B*BBDB8BDB2B7BiB8A`BE7dFJJ#B2BaiB,BEB8B)B.BBEB:  ENS$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`)WRI$T `P > Pf(L`JWRI$T 5WRI$T 3ENT$MD34IO$ERR3>EOLN$ 3WRLN$ 3ENI$T 7F JJ#3TX$ERR3RET$M ABWRBI$BT B BBB0B.CCBBAB2B7 FJJ#B(BfBB BBBOBiB(B`A0C B BBMB)B(BBB B Bi7FJJ#B(AHBB BB BBB?BfBBBEB0A`BB&BB)B*B B 7 FJJ#C B B CBAxBBBB)B,B BB B)B.CBABB*B 7FJJ#B BiB(BB CLB BBABBB`C B.B)B.CBBiB0B7oFJ0ABɅBBB)B(B)B.B BB B`B7F 0>:  WRI$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`*RTCHK$ `P AJ(O`J#NRTCHK$ 54RTCHK$36ENT$MD3ENI$T 3ENC$T 3ENL$T 3FP$ABND7F JJ 3LRET$M ABRTBCHBK$BBB8BB2B4BBB;ACCVCbCVCb7\FJJ#CVCCC~CVCCVA0CJCBBBVB`CB2BB(BB AHB7FJJ#B`CB B'CBXBBʼnBC B͠A`C BʼnBCBʼnBCB͠CBͩ7FJJ#B*B AxBB BBʼnBC B͠CBʼnBCBʼnABCB͠CB͠C7FJJ#B BB BBʼnBAC B͠CBʼnBCBʼnBCB͠CBͩAB,B 7FJJ#CxB BBʼnBC B͠CBʼnBACBʼnBCB͠CB͠CB CB 73FJJ#BABʼnBC B͠CBʼnBCBʼnBCB͠ACBͩB.B CB B7FJJ#BʼnBC B͠CA BʼnBCBʼnBCB͠CB͠CB CA8B BBʼn7FJJ#BC B͠CBʼnBCBʼnBAPCB͠CBͩB0B CB`CBBʼnB7FJJ#AhC B͠C BʼnBCBʼnBCB͠CBͩAB*B C\B BBʼnBC 7FJN``J#B͠CBʼnBACBʼnBCB͠CB͠CB C6B BABʼnBC B͠7CFJJ#CBʼnBCBʼnBCB͠ACBiB,B͕BͥBB BB BBʼnBA7XFJJ#C B͠CBʼnBCBʼnBCB͠CB͠ACB CB BBʼnBC B͠7FJJ#CBʼnBACBʼnBCB͠CBiB.B͕BͥBB A(CB BBʼnB7FJJ#C B͠CBʼnBCBʼnA@BCB͠CB͠CB CB BBʼnBAXC 7FJJ#B͠CBʼnBCBʼnBCB͠CBiApB0B͕BͥBB C(BNBBʼnB7FJJ#C B͠AC BʼnBCBʼnBCB͠CBͩB*B ACB BBʼnBC 7aFJJ#B͠CBʼnBCBʼnABCB͠CB͠CB CNB BBʼnBAC B͠7FJJ#CBʼnBCBʼnBCB͠CBiAB,B͕BͥBB CzBBBʼnBC 7{FJJ#B͠AC BʼnBCBʼnBCB͠CBͩB*B ACB BB2BFB BF7FJJ#B8BB&B8BFA0B2BiB(B%BBEB6BBBB BAHB B`B7FJN``@:  RTCHK$  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @CFJJ#CBʼnBCBʼnBCB͠ACBiB,B͕BͥBB BB BBʼnBA7XFJJ#C B͠CBʼnBCBʼnBCB͠CB͠ACB CB BBʼnBC B͠7FJJ#CBʼnBACBʼnBCB͠CBiB.B͕BͥBB A(CB BBʼnB7FJJ#C B͠CBʼnBCBʼnA@BCB͠CB͠CB CB BBʼnBAXC 7FJJ#B͠CBʼnBCBʼnBCB͠CBiApB0B͕BͥBB C(BNBBʼnB7FJJ#C B͠AC BʼnBCBʼnBCB͠CBͩB*B ACB BBʼnBC 7aFJJ#B͠CBʼnBCBʼnABCB͠CB͠CB CNB BBʼnBAC B͠7FJJ#CBʼnBCBʼnBCB͠CBiAB,B͕BͥBB CzBBBʼnBC 7{FJJ#B͠AC BʼnBCBʼnBCB͠CBͩB*B ACB BB2BFB BF7FJJ#B8BB&B8BFA0B2BiB(B%BBEB6BBBB BAHB B`B7FJN`*PM$CHK `P Jz(U`@J$PM$CHK 5PM$CHKABCBRBUNB-TBIMBE BERBROBR:B ABB,IBNDBEX7FJH#B\SBTABTEBMEBNTB=?B1,B VBALBUEB=?B2,B MBINB=?B3,B MBAXB=?B4ADB7FHH#B4LBONBGIBNTB IBNDBEXB\SBTABTEBMEBNTB=?B1,B VBALBUEB=?B2,B MBINB=?7UFHH#B3,B MBAXB=?B4A|BB/SBUBBRABNGBE\BSTBATBEMBENBT=B?1B, BVABLUBE=7^FHH#B?2B, BMIBN=B?3B, BMABX=B?4BB7LBONBGIBNTB SBUBBRABNGBE\BSTBATBEM7FHH#BENBT=B?1B, BVABLUBE=B?2B, BMIBN=B?3B, BMABX=B?4BB3SBCABLABR BBO7FHH#BUNBD\BSTBATBEMBENBT=B?1B, BVABLUBE=B?2B, BMIBN=B?3B, BMABX=B?4B7XFHH#BLBONBGIBNTB SBCABLABR BBOBUNBDA6BB/LBONBGIBNTB CBASBE BALBTE7FHH#BRNBATBIVBE\BSTBATBEMBENBT=B?1B, BVABLUBE=B?2BB0SBETB BBOUBNDB\S7FHH#BTABTEBMEBNTB=?B1,B VBALBUEB=?B2,B MBINB=?B3,B MBAXB=?B4ABBN7FHH#BILB PBOIBNTBERB\SBTABTEBMEBNTB =B ?B1ABB6RBECBORBD BVABRIBAB7FH BLEB\SBTABTEBMEBNT``6B=?B1,B VBALBUEB=?B2,B MBINB=?B3,B MBAXB=?B4A7F6 B7F ::  PM$CHK  11/18/83 16:23:19  SDSMAC 3.6.0 83.111:?B4ADB7FHH#B4LBONBGIBNTB IBNDBEXB\SBTABTEBMEBNTB=?B1,B VBALBUEB=?B2,B MBINB=?7UFHH#B3,B MBAXB=?B4A|BB/SBUBBRABNGBE\BSTBATBEMBENBT=B?1B, BVABLUBE=7^FHH#B?2B, BMIBN=B?3B, BMABX=B?4BB7LBONBGIBNTB SBUBBRABNGBE\BSTBATBEM7FHH#BENBT=B?1B, BVABLUBE=B?2B, BMIBN=B?3B, BMABX=B?4BB3SBCABLABR BBO7FHH#BUNBD\BSTBATBEMBENBT=B?1B, BVABLUBE=B?2B, BMIBN=B?3B, BMABX=B?4B7XFHH#BLBONBGIBNTB SBCABLABR BBOBUNBDA6BB/LBONBGIBNTB CBASBE BALBTE7FHH#BRNBATBIVBE\BSTBATBEMBENBT=B?1B, BVABLUBE=B?2BB0SBETB BBOUBNDB\S7FHH#BTABTEBMEBNTB=?B1,B VBALBUEB=?B2,B MBINB=?B3,B MBAXB=?B4ABBN7FHH#BILB PBOIBNTBERB\SBTABTEBMEBNTB =B ?B1ABB6RBECBORBD BVABRIBAB7FH BLEB\SBTABTEBMEBNT`)PM$FTN `P P}(X`J$FPM$FTN 5PM$FTNABCBFBTNB AB!BABRGBUMBENBT BERBROBRA7FJH#B"BSBTABCKB OBVEBRFBLOBWA,B$BFBLOBATBINBG BPOBINBT BERBROBR7FH ADB7F ::  PM$FTN  11/18/83 16:23:38  SDSMAC 3.6.0 83.111:`0ENT$8 `P SZ(^`H*ENT$8 MCUR$3ENT$ 5ENT$8 5RET$8 3(RET$M PA7FHJ$BB NBlBB B BB`BB NB)B BBiB"BéB$B`B7F J8:  ENT$8 11/18/83 16:20:21  SDSMAC 3.6.0 83.1118`1PRB$TERM `P V2(``@PPB$TE1 5PB$TE13 ENT$MD3TCMP$ST3WRS$T 3WRL$T 3PUTCH$7F PP3DI$DIV3WRLN$ 3RET$M ABPBB$TBE1B BBBBB B CA7F PPBBCCBBB.BBBB*BiA.B(B,BiB,B%B B%B B7F PPBB*B AFB)B*BBB BBBBBiB,B*A^BeBB,BB,7F PPBBB*BEBiB*BAvB&B@B C B C BB BB BB&AB@7F PPB CB%B B%B B BB BB&AB@B CB4B CB CB B&7F PPB@BAB*BBB B%B B%B B CB CAB BB B|B B\7 F PPB B%B B%B BABB@B BB BB`B7F PP: PB$TE1 11/18/83 15:56:59 DXPSCL 1.8.0 83.357 PPPB$TE2 5.PB$TE230ENT$M 3XPB$TE23WRS$T 3WRI$T 3DIV$ 7F P3WRLN$ 3DRET$M ``>ABPBB$TBE2B BB BBB B B CAB B 7F >PB B CBBB C&CBCBA0BB.BBBBBB(BB`B7cF PPB)AHB(BB BBʤB B(B BB BB A`B(BʯB@B(BʠC B*7F PPBʠC B,BʄB.AxB BB BʯB@B(BʠC B*BʤB B,AB BB 7F PPBʯB@B(BʠCB*BʠCB,ABʠCB.B CzB BB*BBBdB 7F PPAB,BEB,BBBBB 3BBBBBABBBB B BBB*7F PPBBBB*AB*BB BBʯB@B(BʠC B*BBdAB8B*BB$7F PPB BBBBʂB,BBʯA B@B(BʠC B*BB,B CB BʯB@A87;F PPB(BʠC B*BʠC B,BʠC B.B CAPB BBBdB B,BEB,B*74F PPBBBAhB 3BBBBBBBBB B BBʯAB@B(BʠC"B*7F P$BʅB,B C0B BʯB@AB(BʠC$B*$``,BʠC$B,BʠC(B.B CNAB 7F ,PBBBʯB@B(B BB BdBB(AB`C<7F PP: PB$TE2 11/18/83 15:56:59 DXPSCL 1.8.0 83.357 PPPB$TERM MCPFLAGMCPROOTMPPFLAGMPPROOT5fPB$TER7tF PP3hENT$2 3WRLN$ 3`WRS$T 3PB$TE13PB$TE23WRI$T 3DIV$ 7F PP3RET$2 ABPBB$TBERBM BB3B B B BP BE BR ABF BO BR BM BA 7;F PPBN BC BE B B PB RB OA0B BB EB B BD BA BT BA C B0B B AHB 7F PPB RBOUBTIBNEB NBAMBE B B B B A`BNUBMBBERB OBF BEXBECBUTBIOBNS7rF PPCDB5AxB B B BC BO BM BP BL BE BT BE BN ABE BS BS B B PB R7F PPB OB BB EB B BD ABA BT BA CxB8B RBOUBTIBNEB NBAMBE AB B#P7\F P6BROBBEBS B B %BACBTIBVABTEBD AB B IBNABCTBIVBE BPR6``BOBBESCB7F PB AB B BTOBTABL BNUBMBBERB OBF BPRBOBABESB =B CBB)B 7cF PPB B BTOBTABL A BNUBMBBERB OBF BACBTIBVABTEBD BPRBOBA8BESB =B 7F PPCBB B B B% BOFB PBROAPBBEBS BACBTIBVABTEBD B= CBCCB7YF PPAhBB,BBBB(BB*BNBFA~BʯB@B(B BB BʯB@B(7HF PPB BʯB@AB(B BʯB@B(BʠC B*BʠC B,BʠAC@B.B BB 7F PPBʯB@B(B CB BʯAB@B(B BʯB@B(BʠCBB*BʠCBB,ABʠ7 F PPCtB.B CB BʯB@B(B CB ABʯB@B(B BʠNB(B BB 7IF PPBA NBB`CBʯB@B(B CB BʯA"B@B(B BʯB@B(B Bʯ7F PPB@B(BʠCvA:B*BʠCvB,BʠCB.B CB BʯB@ARB(B CB 7F PHBʯB@B(B BʯB@B(BʠAjCB*BʠCB,BʠCB.B CJB BʯA7oF H`` PB@B(B CVB BʯB@B(B BʠNAB(B BB BʯB@B(B CB 7wF PPBʯB@AB(B BʯB@B(B BʯB@B(BʠCB*ABʠCB,BʠCB.78F PPB C|B BʯB@B(ABʠCB*BʩB(B,B BB BʯB@B(AB C7F PPB BʯB@B(BʠCB*BʠCB,ABʠC>B.B CB BʯB@B(BʠC7F PPB*A(BʩB*B,B CB BʯB@B(B CB A@BB(B*BʯB@B(Bʠ7_F PPC@B*BʠC@B,AXBʠC`B.B CB BʯB@B(BʠCB*ApB BdB;i7>F PPB*BB)B(BBBGBʍB,AB C0B BʯB@B(B CBiB0B@BB'B4B B(B(BAHBBʩB>B2BʩB@B4Bʩ7FJ B2B6B BA`B B`B7sF >:  Q$MOD 11/18/83 15:08:14  DXPSCL  1.8.0 83.357 >`2ALCPY$ `P h*(e`J$ALCPY$ 5ALCPY$3ALLC$$AB B;BƘB BʋBBBBBBB87FJBGBB[7EF ::  ALCPY$  11/18/83 16:14:56  SDSMAC 3.6.0 83.111:`2MOVE$ `P kp(g`*MOVE$ 5MOVE$ AB7B BB[7tF *8:  MOVE$ 11/18/83 16:24:14  SDSMAC 3.6.0 83.1118`4SPRSDUMP `P nj(j`@P6DUMP$PRO5DUMP$P3ENT$2 3$PRT$X 34RET$2 3.WRLN$ AC2BB7UF PPBB0B,BB,B@BʌB(B BB BʩB(B(B BB BʌB(B CB 7eF PPB`B7F PP: DUMP$PRO 11/18/83 16:34:12 SDSMAC 3.6.0 83.111 PHSDUMPHEA5DMPP$H3ENT$2 3xPRT$ME3RET$2 3T$VEC 3jWRLN$ A7FHFBCBBBB0BBB!BB8B)B(B(B8BBB,BB,B@BG7BFFFBBBBBB#BRBBBBaFB!`CBBBBBBBBBDB7FFFBBBBBBBʌB(B BB BʃB(BʄB*B BB BBaBB7FFBB`B7F :: SDUMPHEA 11/18/83 16:27:09 SDSMAC 3.6.0 83.111:P.PRT$MEM 3ENT$2 5PRT$ME5PRT$X 3PUTCH$3,RET$2 3WRLN$ A7F PBiB2B2BBiB4B4BB`CzBB BAB BBBB2B{BB)7AFHH#B4BwBBBBéB2BB4BBBBBBKB(BLB*BMB,BNB.7FHH#BOB0B B BBB BBB BBB BBBBB BBBBB76FHH#BBBBBBB B BSB BBB BBB BBBBHB>B7FHH#BB@@2MASK$$ >@>Q$SUB `P (`JZQ$SUB 5Q$SUB ABQ$BSUBB B BB:CXCBBB$B B B(Bp7xFJH#BBB0B`iB0B`B2BBB`B4BBBBBa)B6BBBBB7FHBB)B8BBBBB7F8:  Q$SUB 11/18/83 16:25:37  SDSMAC 3.6.0 83.1118`?ABEND$ `P  P)(`H#ABEND$ 5ABEND$5DABND$05CUR$$ 3ENT$S 7F HF5MARG$N5P$ABND3RESM$ 3T$EC3T$TERM3T$TRM 3T$VT 7F FH#3NT$WP ABBABBENBD$B BCBAB*B BBB*BB:B B7FJJ#B BBDA0B:  NEW$  11/18/83 15:41:52  DXPSCL  1.8.0 83.357 >`CCHK$L `P 3(`J(CHK$L 5CHK$L 3 CSLAB$3ENT$M 3&RET$M ABCHBK$BL BBC$7KFJ0CBBB(BʾB(BʭBB*B BB B`B7F08:  CHK$L 11/18/83 16:15:51  SDSMAC 3.6.0 83.1118`ESTK$MA `P ~(`6 STK$MARG3MARG$N5STK$MAABB`BB(B7F 6::  STK$MARG 11/18/83 16:28:02  SDSMAC 3.6.0 83.111:`HSTATU$ `P (`L$"STATU$ 5STATU$3ENT$S 3 RET$S ABSTBATBU$B BCCBB7FL$B2BB0ABfBB(B`B7F $@:  STATU$  11/18/83 15:19:05  DXPSCL  1.8.0 83.357 @`HENT$9 `P [(`H*ENT$9 MCUR$3ENT$ 5ENT$9 5RET$9 3(RET$M PA7FHJ$BB NBlBB B BB`BB NB)B BBiB"BéB$B`B7F J8:  ENT$9 11/18/83 16:20:27  SDSMAC 3.6.0 83.1118`INODUMP `P r(`*NODUMP 5DMPP$H5DUMP$PAB7F *::  NODUMP  11/18/83 16:24:21  SDSMAC 3.6.0 83.111:`KIO$ERR `P  p(`JFHH#BB$BBBBtBBBB;BOBBBB7B BwBBBB)B*7FHH#BB,BB BCBBiB*BBBB BC BRB,BB TBB B7iFHH#BB BBB BBBBBhBB BBBBBBBBBB7FHH#BBBBB BBBBB BBBBBBBB BOBCB7FHB B(B B BBBB BaFBBBՅBʀB(BʆB*B BB B`B7FBUPM$IO 7F ::  IO$ERR  11/18/83 16:22:27  SDSMAC 3.6.0 83.111:`@IOERR L@LENR$T$ `P $|R(`J ENR$T 50ENR$T 32ENT$2 3MOV$4 3&CRIDE$3RNDDE$3ENCFR$7 F JJ#3fDIV$ 3RET$2 ABENBR$BT B BBBBBBBB ABB7FJJ#B-B0B.B BEB+B*BCCA0BBB"B`C BBéB0BB1B07FJJ#B^AHB4B-B)B.C B)BB.B&B%B)B.A`CBB`CBBB`7FJJ#C BB`CBAxBB*BBiB*BBBéBB.BBNABBéB07FJJ#B^BiBB BMB4BBAB`CBBB)B.CB B)B6BXBA7FJJ#BhBBBBBBBBéB6BB AB(BBBBBBBB7FJJ#BB`C ABBZ`CBBB'BB B(BBCABʉB(BCB(7FJJ#BʉB*BCB*BʉB,ABCB,B BB BB,BBéB BcA6B7FJJ#BB,BNBBéBBcBB.BBNANBBiBBBBBBBBji7FJJ#BBAfBʉB(BCB(BʉB*BCB*BʩBA~B,B BB BʉB(7FJN``J#BCB(BʉB*BACB*BʠCB,B BB B`C BB`AC B7LFJJ#BB,BBB)BCBBAB`CPBéB0BB^BiBB BMB BO7FJJ#AB BBB`CBéB(BB۠C)BBABB`C BBBB Bé7FJJ#BB BBˠA CB6BBB`CBBéB BBNBA$BBBB7AFJJ#BBBNBB`C BBéA:  ENR$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >ABˍB6BBBBBé7sFJJ#BB BBˠC AB6BBBéBBBNBBBBNB ABOB B7 FJJ#B)BCBBÉBBBnBAB BéBB BBˍB6BBBBéB7FJJ#AB BBˠCB6BBBBBéBB ABBˠC$B6BBBB 7pFJJ#BBéBB ABBˠC&B6B BéBB BBˠCB6A4B)B BB7FJJ#B)B B B BBBÇB.ALB0BiBB BIBsBNB6B)B B B Ad7FJJ#BCFBÈB.B0BiBB BIBsBNB8A|BBBéBBBNBBB*7tFJJ#BBBNABBéB0B^BiBBciBB BMBBéAB0BBMB BO7FJJ#B BBéB(BB۠C#ABBBB`C BBiBBBBBABé7FJJ#B(BBBiBB BIBۭB7BBABBBéBBBiB0BNBBé7+FJN`MPM$FLT `P  *|(`J$PM$FLT 5PM$FLTABCBFBLOBATBINBG BPOBINBT BERBROBR B--B A7-FJH#BrB3IBLLBEGBALB IBNSBTRBUCBTIBONB\IBNSBTRBUCBTIBONB =B ?B1 B BAD7lFHH#BDRBESBS B= B?2BsB0DBIVBISBIOBN BBYB ZBERBO\BINBSTBRUBCTBIOBN B= 7PFHHB?1B B ABDDBREBSSB =B ?B2ABtB(OBVEBRFBLOBW\BINBSTBRUBCTBIOBN 7FHH#B= B?1B B ABDDBREBSSB =B ?B2ABuBRBELBINBK BFOBR BEXBTEBNDBED7|FHH#B PBREBCIBSIBONBvB)UBNDBERBFLBOWB\IBNSBTRBUCBTIBONB =B ?B1 B BAD7lFH BDRBESBS B= B?2B7F::  PM$FLT  11/18/83 16:23:32  SDSMAC 3.6.0 83.111:`NPM$MIS `P (`J$PM$MIS 5PM$MISABCBB#BDBYNBAMBICB ABRRBAYB SBIZBE BOUBT 7B0BEBQBRBZB\BNBCCBEBrF DER$T PPBB*BB`C BZBB.BBcBbB_B2B_B`CBZBB.BßBB*BF DER$T PPBNB2BSBB.B_BRB`C BfB`CBdBBhBBZBB*BBB.BßF DER$T PPBB*BBNB2BiBRB2BBB(BBRBӯBB BNBPBB B=BNBfF DER$T PPB)BNBdB&B`CBZBBXBBVB`CBTBBbBC B B(B6BF DER$T PPEBC B B(B>BEBiBRB2BBBBZBB`CvB`CBF DER$T PPB)BPCBBBOBhB`CBdB`CBfB`CBZBBRBBB(BBRF DER$T PBӯBB BNBPB``>B0B0BB9B-BBbB"B.BBNBFBʉB(BC"B(F DER$T >PBʎB*BʉB,BC$B,B CB BB>B BB'B>B B(B6BEBF DER$T PPB`C BbBBVBiBXBVBBZB>BiBPBTBB)BXB`C&BTB4B)BPF DER$T PPC(BB)BPC*B0BB*BBBB2BcBRBOB*BBRBB/B(BB(F DER$T PPBB*BBC,BBC.BB2BBC0B EB BBZB$BiB\BVF DER$T PPBBRBBOB2BBRB`CBB*BBBiBRB2BBB(BBRBӯBF DER$T PPB BB BBBRBB`CBZB`CB)B6B)B8BB)B:B)BB B@BjBABlBBBnBCBpBB'BjBF DER$T P$BB'B(BEB CTB BB6B)B$``,jBB6B BBVBB@B)B,C4F DER$T ,PBBBVBBʏB0B CB B*B(BjB*B CTB B BjB B6B iBjB F DER$T PPB6B B#BBVBBʏB0B C>B B@BjBABlBBBnBCBpBB'BjBF DER$T PPBB'B(BEB CTB BB6BiBjBB6B BB2BBéB.BǏBF DER$T PPBhB B CTB B B6B B B6B B)B,C4BB)B4B)B6B)B8BBF DER$T PPB4BB'B6BBEBB0BBZB`EBBB$B)B(BpBBF DER$T PPB0B BBCBABBBB BBCBEBBBBBBBBBF DER$T PPBBBBBBB)B*BBBBBBB)B,BBBBBBBF DER$T PPB$B)B(BpBBB0B BBCB BBBBBBB B BBB F DER$T PPBBB BBB BB[BTEBN$B B BBABABBdBD'BBG_B^BN#BB[NF DER$T P6BBvBOC C@C`CCCCC8CBEBB`CRB(B`CTB*B`BBCB7FHH#BB>BBBAB~BBBB~BBC>BrBBCBBCBB7\FHH#BrBC|CBCBCBCBiB~BBB`BBKBbBCpBfB7FHH#CXBrBBBfBBBfBBBbB[BDBSQBRTBBBBPBBEB7HFH(BBBXBnBBBBBB:B7]F (::  DSQRT$  11/18/83 16:18:57  SDSMAC 3.6.0 83.111:`4ENR$T `P 2(`@P"ENR$T M$DATA F ENR$T PP4DIV$ 50ENR$T 4ENT$2 4MOV$4 4RET$2 ABENBR$BT B BBBF ENR$T PPBBBBB BBB-B0B.B BEB+B*BCCBEB"B`C F ENR$T PPBBéB0BB1B0B^B4B-B)B.C B)BB.B&B%B)B.CBB`CF ENR$T PPBBB`C BB`CBBB*BBiB*BBBéBB.BBNBBéB0F ENR$T PPB^BiBB BMB4BBB`CBBB)B.CB B)B6BXBBhBBF ENR$T PPBBBBBBéB6BB B(BBEBBBBBBB`C BF ENR$T PPBZ`CBBB'BB B(BBEBʉB(BCB(BʉB*BCB*BʉF ENR$T PPB,BCB,B C.B BB,BBéB BcBBB,BNBBéBBcBB.F ENR$T PPBBNBBiBBBBBBBBjiBBBʉB(BCB(BʉB*BCF ENR$T PB*BʩBB,B C``>B BʉB(BCB(BʉB*BCB*BʠCB,B CB F ENR$T >PB`C BB`C BBB,BBB)BCBBB`CPBéB0BB^BiBF ENR$T PPB BMB BOB BBB`CBéB(BB۠C)BBBB`C BBBB F ENR$T PPBéBB BBˠCB6BBB`CBBéB BBNBBBBBBBF ENR$T PPBNBB`C BBéBBBBB,BNBBBBBBQBBBB B F ENR$T PPB BéBB BBˠCB6BBBBBBB BB)BCBBÉBBF ENR$T PPBnBB BéBB BBˍB6BBBBéBB BBˠCB6BBB)BF ENR$T PPBBéBB BBˠC B6BBBBBBBB,BBBéBB BBˠF ENR$T PPCB6BBB)BB)B,BB)BCB"BB,BBBÉBBBnBB F ENR$T PPBéBB BBˍB6BBBBB)B,BBéBB BBˠCB6BBB)F ENR$T P$B,BB,BB`CBBBBéBB $``,BBˠCB6BBéBB BBˠC"F ENR$T ,PB6BBBÉBBBnBB BéBB BBˍB6BBBBBéBB BF ENR$T PPBˠC B6BBBéBBBNBBBBNB BOB BB)BCBBÉBF ENR$T PPBBnBB BéBB BBˍB6BBBBéBB BBˠCB6BBBF ENR$T PPBBéBB BBˠC$B6BBBB BBéBB BBˠC&B6B BéBF ENR$T PPB BBˠCB6B)B BBB)B B B BEBÇB.B0BiBB BIF ENR$T PPBsBNB6B)B B B BEBÈB.B0BiBB BIBsBNB8BBBéF ENR$T PPBBBNBBB*BBBNBBéB0B^BiBBciBB BMBBéB0BF ENR$T PPBMB BOB BBéB(BB۠C#BBBB`C BBiBBBBBBéF ENR$T PPB(BBBiBB BIBۭB7BBBBBéBBBiB0BNBBéB0BF ENR$T P6BB`C*BBéB2BǩBB`EBCRBIDBE$B BCrC B6``EBNBF ENR$T PBFB B)B(BB B B&BBB.BBGBCBB@BBBBCLBF ENR$T PPBiB*BCB)B,BB`EBRNBDDBE$B BCCvBEBNBJBBF ENR$T PPBB8BB)B(BCBCB)B*BPB@BB%BiB,B"BBB.BBCF ENR$T PPBGBCBBBCBBBCBBBBCBiB@BCLBBiB(F ENR$T PPBCB)B*BB`EBENBCFBR$B BCDCBEBNBJBBBB.F ENR$T PPBB)B(BGBCB©B*BiB,BDB BB @B C!BހBECBC:B)BDF ENR$T PPBB©BBB`EB BB6BCBBBB BBCB BCBC`F ENR$T PPBBCBCBBHBB[B BEB BBCBC`BBCBCBF ENR$T PPBHBB[BBBB2BBBBBBBB$ CBBBBBBBF ENR$T PHB @BbBB BB̀BBBB @BĀBB[BBBBBBBBBBBF H``ENR$T PBBBBBABCB[B BaBB&BBBBBBC>BGB!BBBBQF ENR$T PPBBABBBBCBHBB[BCB'BBBBBGBB8BLBBF ENR$T PPBBBBBB[B BBBBBBBB6BBBBWB<BBBBF ENR$T PPB'BBCBHBB[B BB8BB#BB'BBBBBCBGBBBF ENR$T PPBBBBBBB BBCBCBBHBB[BB#BBBBcBF ENR$T PPB ABB B@BBBCBBBWB ABB[BBBpBBB[B B BdBF ENR$T PPB'BjB$BPBBBBBBB.0IENR$T I RHELP$ F ENR$T PP: 11/18/83 17:23:51 SDSLNK 3.6.0 ENR$T PF ENR$T PPBHBB[BBBB2BBBBBBBB$ CBBBBBBBF ENR$T PHB @BbBB BB̀BBBB @BĀBB[BBBBBBBBBBBF H`LRELEAS `P R(`PRELEAS M$DATA F RELEAS PP4ABEND$4CUR$ 4ENT$MDUPM$MIS5RELEAS4RET$M ABREBLEBASBE F RELEAS PPBBCCBEB.B EB B_BEB,BB8BVBBBDB*BiF RELEAS PPB(B BB BB BiB(B B&BBBB BBBBC B EB F RELEAS PPBiB(BaVBBBB BB&BBBB`B(BɃBB)B,BB:B`BB#F RELEAS PPB>BɃBB`EIRELEASE ILM$MIS F RELEAS PP: 11/18/83 17:25:34 SDSLNK 3.6.0 RELEAS P`XENT$13 `P Q(`H *ENT$13 MCUR$3ENT$ 5ENT$135RET$133(RET$M PA7FHJ$BB NBlBB B BB`BB NB)B BBiB"BéB$B`B7F J::  ENT$13  11/18/83 16:19:36  SDSMAC 3.6.0 83.111:`YTESTAN `P (`<TESTANDS5TESTANABBB*BiB(BBQBBB7F <::  TESTANDS 11/18/83 16:28:21  SDSMAC 3.6.0 83.111:`EOD FIXEDOBJD f ff)(SRD$30 `P O~(`6SRD$30 5SRD$30ABB(B BBBBB[7 F 6::  SRD$30  11/18/83 16:42:33  SDSMAC 3.6.0 83.111:`FD$ITP `P R4>(`@H ~FD$ITP MCUR$5FD$ITPPABFDB$IBTPB BBVCPCB7yFHJ$BBB`NBMB,BB,B B BBBB>B@B BB B B @BC7FJH#B CBBRBCBBBB B B~B B BB BlBBQB~BBB73FHH#C BBBBCBBBCBCB`CPB CBBCBB B@7FHH#B=BB,B B`BBBBBBBBBBBBC BlBBBB"B 7FHH#BBBC BB,BBCB-B*B,BBB BBBB CBB7$FHH#C BB"BB,BBBB BBBB C6BBC&BBCBB7&FHH#BBBBCBCB`CBBB,BBBBCBCB`CB7NFHJ$CBCB`CBlBBìBBBB`NBB,BBCB,BBBl7$FJH#BBBBBBBBՁBB`CBCBC(B`CPBCBCXB`7vFHH#CPBC.BCB`CPBC.BC^B`CPBоB B BB BBBB7SFHB>B BB~B B``8B BlBBB~B BB BlBBBBBB B7F8H#BB[BBNBBBBKBBBB[BB BBBB B BB B7FHH#BB DBB B BBB>BB BBB BBоB B BB BBB~7BоB B BB BBB7FHH#BB B BBBB BB BBBB BBB~B B BB BMBQ7FHH#BBB B BBBBBBB[ CBBU CBBBBBB B7FH&BBBBBB[CFCrCCC8CD&``$CfCCCCBBB 2B B7F$H#BBdBBBBCBBBQBBRBBBFBԅB BBBBBEB76FHH#BEBBCPBBB[BBBBBwBBBB BBBBBB7cFHH#B7BBBBBBBBBBBBB7BBBBB[B BB7FHH#BBBB BBBBBBBBB BBBCBBEBBTCB7FHH#BdBBB.BQB B BBB:FBB B:DBÊBNBBBBBBB7FHH#B:B BB BBBBB B BBBBBB BBB9B9BB7+FHH#BBBBBCPBB B BBBB BlBB,B BBBBB7FHH#BBBB,BBDBlBBlB BBB[B BBBdBBSBBB7FHH#BBB BBBCBBBB B BBBBEBBBBBBB7FHH#BBBBBBBBBB BB=@BBBB=B BԈBB BԆB7FH:B BBBEBBCPBBB[B BBBB`ClBCvB:``BBB`7FH#ClBCBbEBFB B`BBBB`ClBB`BB`ClB`BBBdB B7FHH#B BdBBB`CpBBVBBfBB*BBBBBBBpWBXBB7=FHH#B@BB BBBBGBBBABBBBBBBBBBWBXBA7FHH#BBKBB BBBBGBBB BB BJBBŠBBBB`CB7FHH#CPBBB[BCBBB5BBBBBBBB6BBBBBB7{FHH#B[BBBB[BBBB[B BBCvBBBBBBBBBd7FHH#BBBBBBBBBBRBBԀBBBBHBBBҘB B:BB 7FHH#BBB>B B BBBBBBB[BBBBDBaBBBxBB7FHH#BBEBB[BBdBBCBBBqQBBRBBB@BԅBBB BB7FHH#BEBB[BBBoBBBB[B BBBBBBCB2BB"B7FHH#BBB"BBBBCBBCBBBCBB"B BE C6BC7FH``H#BB#BBB,BBBBCB BBBBBBCBBCB7FHH#BBBBBB[B BBBBBBCBFBB BCBBB,7FHH#BBlBBBBB"BB"BBBBCBBBB`BCBB7;FHH#BBCBB"B BCBB"BBBBB,BBCBBBB7FHH#BBBaBBBBBBBBBCdBBBBBBBBB[7FH::  FD$ITP  11/18/83 16:39:15  SDSMAC 3.6.0 83.111:BBBBBBBBd7FHH#BBBBBBBBBBRBBԀBBBBHBBBҘB B:BB 7FHH#BBB>B B BBBBBBB[BBBBDBaBBBxBB7FHH#BBEBB[BBdBBCBBBqQBBRBBB@BԅBBB BB7FHH#BEBB[BBBoBBBB[B BBBBBBCB2BB"B7FHH#BBB"BBBBCBBCBBBCBB"B BE C6BC7FH`SLD$31 `P ar^(`*SLD$31 5SLD$31AB BBB[7vF *::  SLD$31  11/18/83 16:41:36  SDSMAC 3.6.0 83.111:`SLD$13 `P dxM(`0 SLD$13 5SLD$13AB BB B B~B BоB B`BBBBBBB7FHH#BB BBBB BB B3BB B0BBB BBBBB(BB7LFHH#BBBB"BB BBB BBBBBBBBBBBBB7FHB BBB BB@B BBaBBBBBBBBB~B(B`B7FBUPM$MIS7F ::  PREC$F  11/18/83 16:40:35  SDSMAC 3.6.0 83.111:`SRD$17 `P vzr(`2SRD$17 5SRD$17ABBBBBBB[7F2::  SRD$17  11/18/83 16:42:12  SDSMAC 3.6.0 83.111:`DED$T `P yJ?(`LDED$T 5&DED$T 3(ENT$MD3RET$M ABDEBD$BT B BBBBB+7FLJ#B-B BAB.BB0BDBCCBBBBB*A0B B`C BDB)7FJJ#B,C BBBiB0BAHBB`CBUB4BB`CBDBiB0BA`B)7kFJJ#B*BBDB4BB`CBDBBDBiAxB0BUBBBHBiB,BBBBBEBBA BBiBBBFBB87FJJ#BiB6BFB`CA8BBBBiB:B>BB`C BBB`CAPB>B#B)7FJJ#B:CBBB*BBBiB:  DED$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >BEBBA BBiBBBFBB87FJJ#BiB6BFB`CA8BBBBiB:B>BB`C BBB`CAPB>B#B)7FJJ#B:CBBB*BBBiBRDD$T 5RDD$T 3ENT$MD3:IO$ERR3EOF$ 3`GET$CH3EOLN$ 7F JJ3DED$T 36TX$ERR3:  RDD$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`F$MPY1 `P 8)`J$$F$MPY1 5F$MPY1ABB+BGBHB9B=B BBBBBBB B7LFJBBB[7F ::  F$MPY1  11/18/83 16:38:48  SDSMAC 3.6.0 83.111:`SLD$20 `P rT) `*SLD$20 5SLD$20AB HBBB[7*F *::  SLD$20  11/18/83 16:41:19  SDSMAC 3.6.0 83.111:`SLD$02 `P xB) `0 SLD$02 5SLD$02AB 'BB BB (B[7yF 0::  SLD$02  11/18/83 16:40:50  SDSMAC 3.6.0 83.111:`SLD$27 `P rZ)`*SLD$27 5SLD$27AB BBB[7F *::  SLD$27  11/18/83 16:41:30  SDSMAC 3.6.0 83.111:`SRD$13 `P n)`<SRD$13 5SRD$13AB(BBBB BB BBBBBBBBBiBBBABB'BiBBBB`C BB`CB7FJJ#ABB)BCBB)BCB B)BCABB`C BBBB"B7FJJ#BBB*B ABiBBBEB4BBBBBBBABiBB4B7FJJ#BiB(BiBB%BB BAB BBBBB`CBB`CB$BBDBAXBB'BBB7`FJJ#BBʠCB0BʉB2BApCB2B BB BB'BBBCbBAB'7FJJ#B B B(B0BCBʉB8BCB8AB BB BBBiBB$7tFJJ#BBDBBA^B'BBBCBʠC(B0BʉB2BCAvB2B CvB 7 FJJ#BB'BBBCfBB'AB B B(B0BCBʉB8BCB8B A7FJJ#CB BBBBB BiBBBiBABBiBBB!BB'BB7)FJJ#BC.BABB2BʩBB0B BB B*B(BjB*AB*BBʄB2Bʅ7FJJ#B4BʉB6BCB6B ABB B)BB2BiBB`B7GF>:  DEF$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >B BiBBBiBABBiBBB!BB'BB7)FJJ#BC.BABB2BʩBB0B BB B*B(BjB*AB*BBʄB2Bʅ7FJJ#B4BʉB6BCB6B ABB B)B`&SLD$16 5SLD$16ABBB[7F&::  SLD$16  11/18/83 16:41:13  SDSMAC 3.6.0 83.111:`+SRD$06 `P f)@`<SRD$06 5SRD$06AB(B BBB hBB B BgB[7F <::  SRD$06  11/18/83 16:41:52  SDSMAC 3.6.0 83.111:`+SRD$23 `P ~x)B`6SRD$23 5SRD$23ABB(B@BBBxBB[7YF 6::  SRD$23  11/18/83 16:42:22  SDSMAC 3.6.0 83.111:`*SRD$29 `P ~)D`6SRD$29 5SRD$29ABB(BBBBBB[7F 6::  SRD$29  11/18/83 16:42:32  SDSMAC 3.6.0 83.111:`*SRD$32 `P ~)G`6SRD$32 5SRD$32ABB(BBBBBB[7F 6::  SRD$32  11/18/83 16:42:37  SDSMAC 3.6.0 83.111:`2WRF$T `P  e)J`JWRF$T 5WRF$T 3ENT$MD36IO$ERR3@EOLN$ 3WRLN$ 3ENF$T 7F JJ#3TX$ERR3RET$M ABWRBF$BT B BBB6B4BCCBABB87FJJ#BB(BfBB BBBOBiB(A0B`C B BBYB)B(BBB B 7\FJJ#BiAHB(BB BB BBBKBfBBBEA`B6BB&BB)B*B)7sFJJ#B,B)B.B)B0AxB B C B B CBBBBB)B2AB BB 7 FJJ#B)B4CBBB4B)B4CABBB*B B BiB(BB CNB B7FJJ#ABBBB`C B4B)B4CBBiB6ABBɅBBB)B(B)B47.FJ B BB B`AB7F>:  WRF$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`3END$T `P XL)O`LbEND$T 5 END$T 3"ENT$MD3ZMOV$5 3`RET$M ABENBD$BT BBB7vFLJ#BBB B0B-BAB.B C^CBBBB`C BHBiB2A0BB7VFJJ#BBUB6BB)B.C BB`CVAHBBHBiB8BB B(B:BBB7FJJ#BJA`BiB:B!`CBB`C BJBZ`CB:BiAxB.BBBBBEB7FJJ#BBDBBB!ABBDBIBFB%B9B BB:  END$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >DB BIB)BB B B%BLBABBB)BDB)BBBBB 7FJJ#B BiABB BIB`CBBBB)BBBiABB BIB`CB7FJJ#BBBiBB,BA(BBiB,BBjiBB,BBB B BiA@BB 7FJJ#BIB`CBBBB)BBBiAXB,BDB B BiB,BaiBDBEBBi7FJJ#BDApB,BB,BBBiBDB BIB)BB AB B%BLBBBB)7RDF$T 5RDF$T 3ENT$MD3:IO$ERR3EOF$ 3`GET$CH3EOLN$ 7F JJ3DEF$T 36TX$ERR3:  RDF$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >`7PREC$D `P ?)V`JbPREC$D 3`PREC$$5PREC$DABPRBECB$DBBB CVCBBBB~7FJH#B BB>B B`B>B B`B>BBBBBBBBBBBBBB7.FH<BPB BBBB BVBBBBB~B(B`BUPM$MIS7F<::  PREC$D  11/18/83 16:40:30  SDSMAC 3.6.0 83.111:`7SLD$17 `P rQ)X`*SLD$17 5SLD$17AB BBB[7NF *::  SLD$17  11/18/83 16:41:15  SDSMAC 3.6.0 83.111:`7SRD$07 `P g)[`<SRD$07 5SRD$07AB(B@BBB xBB B BwB[7F <::  SRD$07  11/18/83 16:41:54  SDSMAC 3.6.0 83.111:`;SRD$28 `P ~~)]`6SRD$28 5SRD$28ABB(BBBBBB[77F 6::  SRD$28  11/18/83 16:42:30  SDSMAC 3.6.0 83.111:`Bi7 FJJ#B>BBA@BBB@BéB(BB@BiB>B BIBۭAXBBBB>B7FJ0BéB6BBiB2BNBéApB4BǩBBB`B7F 0>:  ENF$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >(BϩB(BϩB*BϩB,ABϩB.7FJJ#BϩB2BϩB4BϩB6BljBC B ABB BéB4B^BBBcB)B.BBD7wFJJ#BA B`CBBZ`CB:BB`CBBB0A8BBBiB0B.BB7FJJ#B.BBBB.APB2BiB0BB BB0BBÏB BBˠAhCBB!7FFJJ#BBB B`B>B B`B>BBBBBBBBBBBBBB7.FH<BPB BBBB BVBBBBB~B(B`BUPM$MIS7F<::  PREC$R  11/18/83 16:40:43  SDSMAC 3.6.0 83.111:`NSLD$03 `P 'xD)`0 SLD$03 5SLD$03AB 7BB BB 8B[7gF 0::  SLD$03  11/18/83 16:40:52  SDSMAC 3.6.0 83.111:`PF$MPY4 `P *";)`J$dF$MPY4 5F$MPY43`OV$FLOABB+BGBHB9B BBBB;BB7[FJH#BBBBB BB BBB BcBBGBBBBB BB BB7FH@BBBBBBBBBBB[BʻB(B BB UPM$MIS7eF @::  F$MPY4  11/18/83 16:39:08  SDSMAC 3.6.0 83.111:`OSLD$19 `P -rS)`*SLD$19 5SLD$19AB 8BBB[7*F *::  SLD$19  11/18/83 16:41:18  SDSMAC 3.6.0 83.111:`PSLD$25 `P 0rX)`*SLD$25 5SLD$25AB BBB[7F *::  SLD$25  11/18/83 16:41:27  SDSMAC 3.6.0 83.111:`SSLD$05 `P 3xE)`0 SLD$05 5SLD$05AB WBB BB XB[7CF 0::  SLD$05  11/18/83 16:40:55  SDSMAC 3.6.0 83.111:`TSLD$11 `P 6xK)`0 SLD$11 5SLD$11AB BB \BB B[7F 0::  SLD$11  11/18/83 16:41:05  SDSMAC 3.6.0 83.111:`TSRD$01 `P 9`)`8SRD$01 5SRD$01ABBBB BB B BB[7DF8::  SRD$01  11/18/83 16:41:42  SDSMAC 3.6.0 83.111:`OSRD$09 `P <i)`<SRD$09 5SRD$09AB(BBBB BB |B BB[7F <::  SRD$09  11/18/83 16:41:57  SDSMAC 3.6.0 83.111:`SSRD$10 `P ?j)`<SRD$10 5SRD$10AB(BBBB BB lB BB[7F <::  SRD$10  11/18/83 16:41:59  SDSMAC 3.6.0 83.111:`XSLD$07 `P BxG)`0 SLD$07 5SLD$07AB wBB BB xB[7F 0::  SLD$07  11/18/83 16:40:59  SDSMAC 3.6.0 83.111:`YPREC$$ `P Ep)`L$tPREC$$ 5PREC$$3ENT$MD3HENI$T 3lP$ABND3rRET$M ABPRBECB$$7EFLJ#B BB.BB*B,BBCpACBBB4B`CB*BBʼnBC B͠7cFJJ#A0C BʼnBCBʼnBCB͠CBͩB(B AHBB BB*BFB BFB.7MFJ6BB&B.BFA`B*BOB`CBFB BB B`B7F 6@:  PREC$$  11/18/83 15:08:14  DXPSCL  1.8.0 83.357 @`NSRD$12 `P Hm)`<SRD$12 5SRD$12AB(BBBB BB LB BB[7F <::  SRD$12  11/18/83 16:42:03  SDSMAC 3.6.0 83.111:`YTRCF$I `P K0)`J$TRCF$I 5RNDF$D5RNDF$I5TRCF$D5TRCF$IABBBBBC"7QFJH#BćBBBBBBC"B̆BćBBBB$BiB(B)B,BB.BB7FHH#BB)B*BBBBBBFBBBFBBBBBDBDB*BBB7^FHH#BB2BB)BB@BBBBBBBBB BB BB BBB7FHH#BBBBBBB BBBBBBBBBBBB BBB7FH"BBEBBBFBBBB[7]F "::  TRCF$I  11/18/83 16:42:39  SDSMAC 3.6.0 83.111:`@/TRCF$D 6[@@6RNDF$D b[@@bRNDF$I [@]SLD$09 `P NxI)`0 SLD$09 5SLD$09AB BB |BB B[7F 0::  SLD$09  11/18/83 16:41:02  SDSMAC 3.6.0 83.111:`^SLD$28 `P Qr[)`*SLD$28 5SLD$28AB BBB[7F *::  SLD$28  11/18/83 16:41:31  SDSMAC 3.6.0 83.111:`_SLD$21 `P TrT)`*SLD$21 5SLD$21AB XBBB[7F *::  SLD$21  11/18/83 16:41:21  SDSMAC 3.6.0 83.111:``SLD$12 `P WxL)`0 SLD$12 5SLD$12AB BB LBB B[7F 0::  SLD$12  11/18/83 16:41:07  SDSMAC 3.6.0 83.111:`aWRD$T `P Z dd)`JWRD$T 5WRD$T 3ENT$MD34IO$ERR3>EOLN$ 3WRLN$ 3END$T 7F JJ#3TX$ERR3RET$M ABWRBD$BT B BBB6B4CCBBAB8B7FJJ#B(BfBB BBBOBiB(B`A0C B BBSB)B(BBB B Bi7FJJ#B(AHBB BB BBBEBfBBBEB6A`BB&BB)B*B)B,7wFJJ#B)B.B)B0B AxB C B B CBBBBB)B2B ABB B)7FJJ#B4CBBB*B B BiB(ABB CLB BBBBB`C B4B)7FJD AB4CBBiB6BBɅBBB)B(B)AB4B BB B`B7FD>:  WRD$T 11/18/83 15:29:07  DXPSCL  1.8.0 83.357 >``SRD$02 `P ]a)`8SRD$02 5SRD$02ABBBB (BB B B'B[7F8::  SRD$02  11/18/83 16:41:44  SDSMAC 3.6.0 83.111:`^SRD$20 `P `~v)`6SRD$20 5SRD$20ABB(BBBBHBB[7F 6::  SRD$20  11/18/83 16:42:17  SDSMAC 3.6.0 83.111:`]SRD$26 `P c~|)`6SRD$26 5SRD$26ABB(BBBBBB[7aF 6::  SRD$26  11/18/83 16:42:27  SDSMAC 3.6.0 83.111:`EOD PROGRAM    f  +*)%SILT1  jI| H . d| p b2 b V l V > x{[/r s `tàvx`  | `  |`D > @@  C p :z >|:z p K         Hp0 p p/ pH8P:?:`O  P$MAIN (2"  0"B' ( ,::?\': (2 ,2:'( (2 ,::?\': (* ! '> 'X 12  )6 0h3ʠ*ʉ,, 5H i0% D i0%  '(   $ 0 2  ) l 2 `u (2ì /& ʠ(( 9  W /* ʠ(( 9  S /,ʠ.( 9  j ʠ0(   /2ʠ.( 9  o ʠ0(   /.ʠ.( 9  I ʠ0(   /4 ʠ  (( 9  Q /6!ʠ8(   ) ' ( ,*:?\'* (( 6l /4Hʮ(( 7 /.ʠ.( 9 /. Q/:%ʠ8(  /6 ) ' t( ,*:?\'* (( 6l /4/.`R`<0 l6'(ʉ0  0 6 ɩ2ɩ40 12 `:=)(*00f p)*2l, :?hp'N (* ! , :)( r)(c& J 2  t   ) 'N 6l&  v J%J  x2 )  ) 'Vʉ0z0 6 )()*),).&|f~'V (* ! &|X ) Tʠr*ʉ,, 5H )0 C)( r )0 )()0(   )( r)()( r)()(&  & ) `(,>(T:fJ Fe2(&J)(9&LFe:%<:`9&LFe2*e4,e6.%8u0u2U4&L('i 'X),i.)2i4),i.a)2ai4)49),).9)2).9)48L:<6)2)49&LF ),  ).)2)4 ?)2)4  9&LF ),).)2)4 ? |:\<9&LF*0D8`~@~').A+x(n'(( ,^:?\'^  ,f:?\'f (N'( & ,^:?\'^ (VJéJ ˠ(2L   ;iL.8ʎ(  /*9/,5éJ n2 Oï    J/,éJ ˯2 ʠ.(  éJ ˠ02 ) LJ   ;iLi0.8~~^`<@<  +  Dh>TFALF.,ʠ|( 9  XD   ʠ~( 4 (f::.i:m<ʩ:( fʆ* X h gK`G/ h hʩ:( 2 ʩ:( 7 i<:0/ @ʩ(( 7 0[ʠ(ʠ* 3L i0:ʩ:( 2 i:m0K``F? f F? ɩ: h gK`G/ hʠ  (   hʩ:( 2 0ʠ( 4 0ʠ( 4 ʠ(ʠ* 3L  J/  F D ) ʠ(' (* !  D/wʠ( 9 ' (( dt /ʯ( 4  ) /#/ʠ(' (* ! , :  ʠ( 4 , :/ʠ('  ,>:@'> (* ! , :ʠ( 4  J/ ) ʠ(' (* ! ʯ $(ʠ*ʯ, & i(٠V E4?`4ʯ $(ʠ*ʩ4, & i4>  N> V / $)4`4i4>N> ]Nٕ/ j`/ H .   K` & ʯ $(ʠ*ʠ, ʯ $(ʠ*ʠ, @ ʯ $(  Dhʇ(ʠ*  ʠ( 9 ʠ( 4  I jʠ(ʠ|( 9 `~e 6  * c ,i,0.,B, b :),i(Г S B4S5F4 ԠГ ՠS B`P..,c,(0* (  .ʠR(  i,(`< l.( ! (V* 'G&$ 4 &%@&$(  ; %B  )(`AZ09$_az &(l&``%4ɠ%.`%2` L W&`Abɇ&%&  %&%&%`%4:&%&%4/6)&%&% 4&$qɄ`%4 &% &% %  ɠ%`%4`.`)!B-+ '((0(8((((((((((((8 ˀ)(,ì*&**ٯ % .4&/&0  ʏ0&0 <  j(()(&!)(&**٠&& % f  ʠ&(  4**ٯ % .4&'`( '&X& n**M*f 01 . ʠ&(  &S&M&**ٯ % /&/  & **ٯ % .4&ʠ&( ,**ٯ % .4&&/&&ʠ&(  **ٯ % *Ј/&/&Jѯ & n**M*'/&./&) 9o 9oԡG #CA /&  ʠ&(  `< <" )G '#(Dp,%2L **++-f;$*}{)/>% ; Ep/ H'( `/o:6/) % o O-Í^ M. F .`.2 ')X/)#  /)ʯ`( L  H Hʠ)( 4 /`|)41 % ;  ' '*)()*)*Oi*o % )4)*))*)`-Vi* Omr(tF,é(F '5:X " c ..ʩ.0 t .c.,.), 6 ,(     2 58 4 ʥ0 t ,*,5@(,R   5B  , l`SKIPPING PAST EOF 6R60 ,(: ) 6dʠ6f*   A4 `6.*i(,,ʩ,0 t ,f,*ũ,` F,7  z(JFɠ6+)( c8Г B*F`6*i*xExɠ+ cCrtf v tvɤ6 A & 6 ` 7,& 7 Of F`7f  B  f %Fi( i*  `SILT1  $LISTFILE8 TOKENS 8P   IDFILE 8"H nERRFILE 80`INPUT 8< 97 Lʉ(8(8 (*ʠ82ʠ84 Ur ʉ(8(8 (*2ʠ84 Ur ʉ(8 (8* (*ʠ82ʠ8,4 Ur ʉ(8.(88 (*ʠ82ʠ84 Ur ʉ(8:(8D (*ʠ82ʠ84 Ur  6*  )*<`<** *2  D4d8G. ). * U,i*).a)*`<2%dR)*$D0(  )(2`>j i*%  e)(),`>%(F$ń0"ɂɥ0#eCD)*a).D  . C.)4:" D0 i*0)0$  SC0`<0)0<)0 D.)0)(  )( )0 $ J`<0D000)0)4*)(<  `*** INVALID RELEASE POINTER *** >?(0  D,d8U*)( *   )(   >ʠ>*   A4 a)(D.(i( iD`P$TERM ?Z?,h(,:h a l A78[;;H  \̏\ʌ(ʇ*  B \?$?A,$$D " h(`=U0:*`C*i,)*D4D0&i40i,i0E:F:i(F`Ci(i0i36i0),`C6i.i6`   @Z{[lP}M]\Nk`Kaz^L~no|JO_m`{|}~                                                                                      w@"%a@Y  pbcp ! @HD   $@QI$()rtBH@$@$  ? @ @BH@"  H I$@"A H$HHD! $$@)@$DII$ AH@@   "@AD@A)$@Q P $B @Q(DP $@ A@ HB %"@? "@I@ D$ D @@" $ @$ ! B@@I"$D$"D $H"$I!! DDR@ d&@A DD$H$   I I @ I @ $J@)JH! @Q #BB!!I HHRI$@A$$ 4I44 E  F@$) HP@ B $ @H$ h )H   ))(%P4         %SILT2  p@$ H . d| p b2 b V l V > x{[/r s `tàvx`  | `  |`D > @@  C p 2 >|2 p p"         Hp0 p p/ pH/24x~t  P$MAIN (  h,(`p,  (F*8(ş`t6*)*t`t** *2  D4d8G. ). * U,i*).a)*`v2%dR  )*$D0(  )(2`X i*%  e)(),`t%(F$ń0"ɂɥ0#eCD)*a).D. C.)4:" D0 i*0)0$  SC0`x0)0z)0 D.)0)(   )( )0 $ J`|0D000)0)4*)(v  `*** INVALID RELEASE POINTER *** x0  D,d8U*)( * )(   ʠ*   5" a)(D.(i( iD`MESAG$EX .,` M  H $`3 pR `* IF &T-`),`+-`4OGI`,   pR `OGi*ui( t   $` h,i*f>`( )(`i( `)(D D `h.i,f>`4`6i(i  * ` j >HL PC (ì/&H#F 6E,# F 6E,# 58`h(i(*n>o6 oM Jo*<0`h:/&H,n( 5O% F,Dt (pz  |~ʠv( 2 ʩ(( A. ʠx(*, q ʯ( , ( 6f (( p ʠz(* , ʠh( , * ʠ|( 2   F/$Hʠ~(*, q ʠh( , ( /%Hʠ~(*, q ʠ( , ( ʠz(* , ʯ( ,  IL /   ,pA #r /ʠ(*, q /%Hʠ~(*, ʠ( , ( /$Hʠ~(*, q ʠ( , ( * ʠ|( 2   ʠ(*, q  #r /$H)n.44i4##ʠ|( 2 ʠ( 4 ]4ʠ|( 2    /%H ʠ( 2  A< ʠ( 2 `< @ *( 2 Ƨ W  2 `(:ì(.0 c C6d 8E8Q)0 4$)2 4$Dʖ0ʝ2  (<6    ʖ0ʝ2  ('0  d0d  02  d2d 2`.(`<h8i0200<(R`(N)0i2    D >Édd dd   BC4 Éd d ddC4i4(J(G       Êd22$$ -ed&!     Êe0%%  deC(`FFF6DlJ:i020Y2<JT0Q2Ni0é2HGED  n  F   `ʭ0ʩ22`   G66 '|Xʭ0ʮ20BB2B=9`Ff   f    ʭ0ʮ2  j((((%ʭ0ʮ2  (`z(mE.DF(wʭ0ʮ2 -v ('ʭ0ʮ2  (ʭ0ʮ2    (- t sF4>- t s/-  !ʭ0ʮ2  (Ƌ ʭ0ʮ2 4ƋF(.    ʩ00ʮ2  j(( & &    `z((`~,  i( E(f  OF`N`P   ff )*( ` **** ERROR # ****  LABEL LAST ERROR AT LINE  ON PAGE **** INTERNAL ERROR = **** & ".(`",*""`**f"ai* 3B i(   $E   G,, 'X&%H`".0ɠ0,&0ɠ0*&0 ɠ0, 3 i( 4E, 58 & Of@`u` t Of@`i( & Of@`u` t )(Of@`u` Of@`f#f# r  @  &"":"1Of@`u` t Of@`f" & Of@`u`  t Of@`f" & @  &"ɦ"ɦ""J # & Y #Of@` u` $ t Of@`i( & Of@`u` * t @  ,&0ɠ0)( , . 2  R*  5"  `END OF TOKENS ENCOUNTERED " .H"%%%%J$$##$#$P%~%~#%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%~%$$X$%~$$<;#4#`%ɦ#ɦ#ɦ#ɦ#ɦ#ɦ#ɦ#ɦ#ɦ##`ɧ" .^ ). Ʉ. s   Ƀ'%p '#Xɩ0& " V (ɧ" .^ &)(ɠ#-((EDɩ0>ɩ0 " " V `"()("Cɧ" .^ &)(ɠ#-(ɩ0ɧ" .^ ɩ.ɩ0Xɩ0T&#H &   < " , U)0 D( 2C)0 ," 58 "5)(# )0  & &#j(-`", `",`",`", #), , )0DD2 ,(5^##&#l`#`#"ʠ"*  ɦ" 2  R*  5"  h604`& 4`&"&$ai0a2E0F2 )0)2 && &( 5 |0\24)0)2i4(`  H6~Q@)*** &*,! c++V+h+| LAST ERROR AT LINE & ON PAGE &'4`&4""4&"a)4 3B &$H   3B Y&$ &`|` L &`|/`&(&%H&@ &4 & t @)$ʄ*ʠ&, 6 `*`&DD0&%H/wI&@ && & j`&0&@ && &@  &@ & & 6 `&.&`i.0  `*H.&`8~G2&@2&@ && & &@ && &@ & & 6 &@@F`&&`4 & & 7( &@ &4 & t &"H@&@@F&`&`4 & & 7( &@ &4 & t &@ & & 6 &`&`4 &   & 7( &@ &4 & t &l& &@ & & 6 &"H@&@@F &@ & @$ & &@ &#H/ @& @(DE&@ & &@@(&"` L @  `'#C &@& 4 & 8 &  4 &   L i*(&@,@)*a)(ʄ*ʠ&, 6 i*(&@ &), & ),&( ),&(`&(), #D   G '&X.0ɠ&0,&0&ɠ&0*&0& ɠ&0 3 r), 3D, 58  ),&@  ɠ&#& 2  R*  5" & |ɠ& & 4 & 8  @  &""`'"1&@ &4 & t &@ &&" & &@ &4 & t &@ &&" & @  &"ɦ"ɦ"",0&$Hi(,.i+/,.  . ` -^.&$H+`,+( )(,`,*i(,`,**, . i(E,E**, . `-.. .68i02 02< `-b(L02(C)0i2    *  G445^-d-pBeABd   BeABC( ʩ00ʩ22  _(`lEND OF FILE ON TOKENS .> .*&.:$&| OfF`.< : .Tʠ.V*  .X 2  R*  5" f %F)(%l%n`x/$,&. OfF`.f : f %Fi(xi*z  `SILT2 #LISTFILE/4TOKENS /BPLTEMPFILE/P*IDFILE /\H ERRFILE /jDESCFIL /vCILFIL /`INPUT /NO INPUT FOUND/**** NO INPUT FOUND ****/ 1/( #ʉ(/2(/< (*ʠ/02ʠ/>4 } ʉ(/@(/J (*2ʠ/L4 } ʉ(/N(/X (*ʠ  /02ʠ/>4 } ʉ(/Z(/d (*ʠ/>2ʠ/f4 } ʉ(/h(/r (*ʠ/02ʠ/>4 } ʉ(/t(/~ (*ʠ/02ʠ/>4 } ʉ(/(/ (*2ʠ/L4 } ʉ(/(/ (*ʠ/02ʠ/>4 } " M2 ʠ/(ʠ/*  ʩ@(ʠ/*ʠ/,ʠ/. t  ʩ@( ʠ/( 2  k( ʠ/( 2  R* ʉ(/( }" ʉ(/( ʉ(/t( ʉ(/h( ʉ(/Z( ʉ(/N( ʉ(/@( ʉ(/2( ` OVERLAY 21*( @H 2@J@L 2@P4)(@H-)(@N@Jʇ(  @K@H 2@J@Jʇ( 2@J@Jʇ( @K  / ʏ(  )(@H 2 @R`~ (3 ,( 2 ʠ2( ʉ(2( q (* ʩ((    H j(*ʠ2( 2 ʩ*( t  `~CHK$L 3&3h(`<P"@#D PAGE 344*f"%f"V"@ ;B Of@`3*uF`3, t @  f(&$H(  (" 4 Of@`3.uF`30 t Of@`32u`3: Of@`3`F*`=H:,V0`?j`=F:,Vi*E0:4B,V8*  ,Vi*E0`=J@`=L>i80(8f E6 6E@"E>`=N:`=T`=P@`=R:8(8f E60'9$%ED)4=VB&)4=X`=Z:X 9i4DF4:`=\<)i6<)  *0a8F*ͩ(ͩ*͠=Fʼn=^ʼn=`ͩ0ʼn=b m 8F08`>*i80(8f  8`=N:2ũ4.ũ:`ENC$T  @ ?vh<`?6i,>=U0:*`?*i,)*D4D0&i40i,i0E:F:i(F`?i(i0i3  6i0),`?~6i.i6`                                                                                                                                                                                  w@"%a@Ypbcp$A H@ HIi$HI  B  H(@ @A$@$ I@ $@I$"BR @@@ H*x @$ @$ A %A("A(" B @$ JJDP @" DDD@HH< B ($  H A @@@AP("**AB@P$"@@$!%$$@ %A("@ $()) I A&$$"BB$$"BBI $AAAkDCBZHH$H$  "AH @B@@IH4(@ @hR@@  @ $A  ) BRQH 4@$@  4 @           %CODEGEN   H . d| p b2 b V l V > x{[/r s `tàvx`  | `  |`D > @@  C p  >| p `         Hp0 p p/ pH.Tq|md  P$MAIN (CODEGEN  TMPFIL @OBJECT DESCFIL CILFIL  P`INPUT  " !ʉ(( (*ʠ2ʠ4 j  ʉ(( (*ʠ2ʠ4 j  ʉ(( (*ʠ2ʠ4 j  ʉ( ( (*2ʠ4 j  ʉ((" (*ʠ2ʠ4  j   A )|g)|bʠ$(   F ʉ(&( Pr  O, ʠ(   !  O ʠ(   V ʠ(   $ )xʠ$(   3  < $ʠ((   ! ʠ$(   !N ʩ( x ʠ$(   Dn ʉ(( i| ʉ( ( ʉ(( ʉ(  ( ʉ(( ` 86*)*8`8** *2  D4d8G. ). * U,i*).a)*`:2%dR)*$D0(  )(2` i*%  e)(),`8%(F$ń  0"ɂɥ0#eCD)*a).D. C.)4:" D0 i*0)0$  SC0`<0)0>)0 D.)0)(  )( )0 $ J`@0D000)0)4*)(:  `MESAG$EX .,<`   MH F`3 ` `* IF HT-`K,`M-`4OGI`N {  ` `OGi*ui( t   F` (l,(  ʠ( ʉ(( bL (* ʩ((    H j(*ʠ(  ʩ*( d `~OVERLAY    p*(  . 8 z 0 2 | 69 ~ :)( .2(/  4 0ʇ(  1 .  0 0ʇ(  0 0ʇ( 1 / ʏ(   8)( .`~0R0ìlR/~-8#Ce .  8.#"x`$% `$ ʄ( 4 i.   , ,ʄ( ) /F$ %   ( ˣ<n<np<<p<(x* -/ / `fh0`GENBLOCK46~@,o 2)tz xZ Lʩ2(ʉ*J* #V ʩ4( &* )`L :4  9i2& VF2 -Nʩ2(  49m& P9m&Æ. H 9n &x]22, ,  9Mʍ( ) / H %   `~$EISQP848($ VD`6%*%,  48$   660%* *,6 %*%*%*n%* C,edD..W  48' X( DD0.0  48' X( `..0  48' X(`0.0V48  d *48d 2* TC2 T?  48' X(% 8d48d44 )   48' X( Oi*22 T#  48' X(  48' X( "  48' X(     48' X(( o `v(t&tT  `ERRMSG  `I  z.` .,ʠ(  ʩ((ʩ** -  ,  ʠ(  , ʠ(),ʠ(  ʩ,(  `~CSLAB$ @$h,í  `<ctz*&rDrO`F  i(fr`J <PAGET*)( ^U \@  &@ @  Of@`~u zG t @  Of@`` bG t Of@``` Of@`` \ & @  @ @ ` `% ^h)( ^`;;  H  \̏\ʌ(ʇ*  2 \ | 0,2b  0[b`DHALT$ (ʠ(  `@ *Oi(` F i(Y`  1.8.0 83.357                                                                                                                                                                                                                                                          w@"%a@Ypbcp F$$)!!I I$I $I  $$AH@@ 4$E$ M$$$ 4I44 IRB@Ih$$ $HD@(@ @ "RHF@!B$$AI   T@"P  $                 %CONFIG 2n_  =22>* 9 22228Z929=9&{[/> >! `>"à>$>&`  >* `2 >*`D73`$73 `$`%$73 3 `%B373H 3 `%73T 3 `&$8.3` 3h`'33D3P3t383x 3h`'V73 3h`'73 3`(4$44(4  73 3`)<3 .S$FTLF007+73 3 `)4$4(773 3`*`**  3`*N74 4`* 7`+`+8.40 48`+34N4Z4784R 4r`+74^ 4r`,D74j 4r`,`:`SYSTEMp      `333  8T=8N==C9  9b9`9b=>P>*99b99J-<        8T8T>t=>=99/9=>fDQRR\ 8T8N8N P$MAIN >z>f(CATPR 0 VERSION1.8>%P */49LIBTBL >FLAGTBL >C|>v'< (*   E  >)`>2`>5`>>`>A`>J`>O`>T`>Y`>^`>c`>f`>i`>l'* ( `>> ( Ϡ#+#3ʉ(>(ʠ>*ʯ, F $(( >4 >  )(ʔ( v oފEk'* (   > (ʉ(>(ʠ>*ʯ", F $(( >4 >  )(ʔ( v '* ( o"ފE`B 4/( ( $(( >4 >  )(ʔ( v (8š/'* (  (  Ơ# Ơ#ʉ(>(  ʠ>*& ʄ, F ʉ(>(ʠ>*&D?ʄ, ʉ(>(ʠ>*ʦ, ʉ(>(ʠ>*ʦ, ʉ(>(ʠ>*ʦ, ʉ(>(ʠ>*ʦ , ʉ(>(ʠ>*ʦ", f$f&0! 3D#  , R6z 4Ä$DN  )z Dz 2C"  zʉ(>(8$<ʄ*ʩz, F  $(( >4 >  )(ʔ( v `?'* ( > (ʉ(>(ʠ>*ʯ&, F $(( >4 >  )(ʔ( v /&DފE)(ʔ(ʠ>*ʠ>,P8*  ʃ.  )(ʔ( v `$CONFIG  CPTEMP CCRTFIL COBJECT CPCOMPFILECOUTFILE CINFILE C`INPUT CQR*END OF PROCESSINGCEC28ʉ(C(C (*ʠC2ʠC4  ʉ(C(C (*ʠC2ʠC4  ʉ(C(C (*2ʠC4    ʉ(C(C (*2ʠC4  ʉ(C(C (*2ʠC4  ʉ(C(C (*2ʠC4  ʉ(C(C (*ʠC2ʠC4  ( R ʠC(  p ʠC( R  0 ʠC( R  }  kʩ(ʠC*ʠC,ʠC.  ʩ( v ʉ(  C(  ʉ(C( ʉ(C( ʉ(C( ʉ(C( ʉ(C( ʉ(C( `2ENCD$X  FhE0), >H.).F (*i.%0(*i.%7 م), >G,)*,`8FINDNAMEFFl d6Fv I (80&2 )2`6)2(  8'( 49`Fx4 ' )2(8T" 4).  44)2ɔ )2(8)2#)2(8'( 4ɔ )2(8)2#WARNING *CFGERR GP DS01.TIP.CFGERRGJ*** CAN'T OPENG ***G*** CAN'T OP  ENGLHIGvʉ(G(G (*ʠG2ʠG4  4ʠG( V  G (`Gʉ(G(ʉ*G* W6 ʉ(G(ʉ*G*, T ʩ*( W ʉ0G0 Ul ê(Vʯ@(ʠG*ʠG,ʠG.  Ê.(ϯ@ǠGϾljG ʯ@(ʠG*ʠG,ʠG. ʯ@( v ʯ  (ʠG*ʠG,ʠG.  Ê.(ϯǠGϾljG ʯ(ʠG*ʠG,ʠG.9é(NNʩ*(ʩ*ʩ,ʉ.G. X  Ê.(ϯ@ǠGϾljG  ʯ@( v Ê.(ϯǠGϾljG  ʯ( v ʉ(G(  `$ERROR CONFIG JXI d*( G &6I&`  I G I V  I (( X 4I V  `6GETCHAR IP@ KfJ\ d(&Jff'<(@ &`٦@M..` Vt ɠJh&`&`&`V,ɇFff?Of@`JjuF`Jl  @ v 2Of`JjuF`Jl     v ɠJh٠JoFf%? Ʉ`6GETCMD *<    0MRMMLMLMMBMJMbMMMMLMMLM,MMMMMM$M4MMMMMZMpM~MN>Kj d* P &Kt($Kv G &@p&p Jt &Kt@ v    b Jt  P ɠKx'( 4 P '("(i( 5F'( 4 (!`M 'KX(ɠKz5ɠK|%ɠK~%ɠK%ɠKɠK"ɠK"ɠK%ɠK!ɠKɠKɠK~ɠKzɠKvɠKrɠKnɠKɠKrgɠKɠK`ɠ  K\ɠKXɠKTɠKPɠKxLɠKrHɠKD P '( 4ɠK2ɠK.̉&P9&̡f*( 4ꉦ& ɠKf% ɅK G  K `6LISTNODE < PNB d2(8(,* "ʂ*ʠNL,ʄ.  ,  * "ʂ*ʠNN, Y ,NJNP ,NLd 1f(  ,,p̓ĠNL̲ĄNR  ,>pB?5̠̓NJ̠NP Y ,NLdA? 1f(  ,,p̓ĠNL̲ĄNT  ,>p ,NVNN Y EB 1C0  ĠB#$  0àF!  0#, p̠̓NX̅  2C"$  ,*p, v  f.ɠNX *ʃ*ʩ,, N^ ɩ.(8(c"(`Nh`6GETNONBL PP d(&P Jt `6GETNAME AZ  $09_ Q*P d( P &P&P&P '(`6ɠP̈&PFff Jt &P&P&P&P&P݈&Pو&PFf`PMESAG$DX>u .,RXQ d`>n KH Q>n`>n1>f -n `>n) IF QT-`Q,  `Q-`>`4O>fGI`Q W6 >f -n `>nO>fGi*ui(  >f v Q>n`6Zl^" |"P$TERM RRt(,:h a 4,G GG  W[OVLY$ S2R d*( _ R_ _ R_)(_ )(__  T Ѡ_   &   )(_ `6WRITE$ .SS6 d0(f i*,Ofi,f I`S@& D  ɩ.Oi(`SBOi(`SD  `6READ$ P0TS d4i(% DG% S"%* `S0%%% S 0 )0S`S)% D  2F2 ġ)*)0S)( S)( S  `6IO$TERM TT.(fE)*,GIT`8SET$MEM UT:(ʯ('* (*'2 (2 \l `6REST$S UZU  d*(Oi( - f E( /l Oi(f S `6ST  ATE$ UU^20f E(`8 >*l ` >*) i"é$`6REST$T UU d*(Oi( - f E ( /l ( Vt `6P$UC V(U*(>4( >4`8,,[ʌ(  Vt  XRDLN$ ,W"VZ d.(f   EE,Offf I`Vd 0 ),Vf ɩ,&Oi(`Vh*),Vj٠Vm!i,E**  fi*  )*ɩ*Oi(`Vn  `6SET$ACNM,WW& d2)(d *Г S B"e,ɧW0 @ *Г B. .ɬW0. v i,  *0S1F0 *`6REST$R WW*ʩ((* - `6READ$REL0XW d4(f.i.2Ofi2i*i,f I`W ] )0X٠XɠW٠W0Oi(`XOi(`X  `6RETRN$  XYX dH> ] _<<  F0$&$Xf<f"<> i@DiBF ^  0$&$Xɩ6ɩ6$>`X`6WRC$  T ZZY.)(ʌ(,YʠY*  *, v  -`6ʠY* f C MEMORY PARITY ILLEGAL OPCODE ILLEGAL TILINE ADDRESSILLEGAL SUPERVISOR CALLADDRESSING ERRORPRIVILEGED INSTRUCTION TASK KILL  EDTASK ERROR #?1STACK OVERFLOW HALT CALLED HEAP FULL DIVIDE BY ZERO&INVALID PACKET POINTER'INVALID LENGTH OF PACKET2CANNOT GET MEMORY3ERROR CODE = P4015ERROR CODE = P4038TCA ACCESS ERROR7"CASE" ALTERNATIVE ERROR\ STATEMENT ?1 ALTERNATIVE ?2*FILE ?1 LUN  O #?2 NOT ASSIGNED1 CANNOT LOAD OVERLAY, STATUS = ?1SL$NAME DB.]\X dHi(eDɧ\b @ '*ʉ0\d0 0| > IF%1  F>iB )>D: :OI`\bi: v iBFUGFF iDF)BTiB D@)D \gi(iD  ɧ\d @ i>FFF i@FiD d1iD)@)> D`6GET$RLRE ]] d4(٠]ɩ*ɩ, ɩ.ɩ0( T f )2 3E0i2`6$M(E$FAIL ^](ʠ^(  `6C#DYNAMIC ARRAY SIZE OUT OF RANGE6ESCAPE-FROM-ROUTINE E  RROR7INVALID RELEASE POINTEROVERFLOW\ STATEMENT ?1&PRECISION CHECK FAILURE\ STATEMENT ?1 "ASSERT" FAILED\ AT STATEMENT ?1FATAL COMPILATION ERRORS IN ?1                                                                                                                    w@"%u5__ARW_A  Ø :I$I$  EP @EA@B@HH@E  E@! A BB  $IHAA4@$  @MB !B $A$$HI !)HP@!@"(IB P   ""$H"H"T@@@H @4HR %5 E$ )H @@H4 H $Q  h@ H      P"@ ( h@  $       %NESTER 2S  =22>* 9 22228Z929=9&{[/> >! `>"à>$>&`  >* `2 >*`D73`$73 `$`%$73 3 `%B373H 3 `%73T 3 `&$8.3` 3h`'33D3P3t383x 3h`'V73 3h`'73 3`(4$44(4  73 3`)<3 .S$FTLF007+73 3 `)4$4(773 3`*`**  3`*N74 4`* 7`+`+8.40 48`+34N4Z4784R 4r`+74^ 4r`,D74j 4r`,`:`SYSTEMp      `333  8T=8N==C9  9b9`9b=>P>*99b99J-<        8T8T>t=>=99/9=>fstu~uX 8T8N8N P$MAIN >z>f(INITOPTI>>(ɠ>ɠ>ɠ>ɠ>ɠ>ɠ>ɠ> ɠ>  `8INITSCAL>>*`6INITSETS?????@?$ 8?.0?8?B?>0?(?( ,(4u'((?"( ,(4u'((?,(?6(?@(?J(`8RESERVED@  ?(`8SYMBOLS @ @ (`6NESTINIT@V@$v( >  >  ?P  @  @ `$COMPOUNDA(@Z d(l&@d  _ ,4u@f P f ij ,4u)P&Pa&%>8&ɄP DF ɦP&@d _ &  @d`6CASESTATA6. ,/OTHERWISE AP- CA,2l'((' A>,4u ij  YR  R /A@ YRʠAB('( ,*4u'* (* bL P/AD< _ /AH YRʠA4( P P   DF /AD _ /AD,4uʠAJ( P Pk ij ,4u,4u P2 /AF YR  P2 /AB YR '((ވ/AL!ANAZ( ϠУ P PP,/AN YR P @l k   ij k/A\ʠA^( P YR A``6STATEMEN 3- 0@C0@C@C7 C*604C, C25E E!!E""FH##FN$$Fx%%G&&G''H~((I ))IHIICu8ì ij /C*C ij  YR  /CʠC( P PP ij P,4uʠC(' (* bL ,4umuCD@ YR /C,CC ij  YR PP ij  PP DFk/C Op /C ,4u   a /C  YR  R/CʠC(' (* bL `I YR  RC `\ P YR PP ij  @l /CʠC(' (* bL YR`I Af YR  ʠC(' (* bL`G ij  YR ʠC(' C ,04u'0 (*   bL /C YR  RL/C YR  RʠC(' C ,04u'0 (* bL  C1u YR  RʠC(' C ,04u'0 (* bL /C YRʠC( P P DF kj YR /CʠC( P `I ij  YR  R  /C YRʠC( P ' ((' C,4uP DF k'((ވ/CfP ij  YR P DF kP' ((' C,4u ij  YR P @l '((kP ij /CʠC('   (* bL YR  R L ij  YR  R /C) YR+ ij  YR  YR /C  ʠC( P  a /CʠC( P P DF kC`uBLOCK IIIJK*L LMlNJJ!-   ONIv28ìI ij ' I ,(4u'((,4uUʠI(' (* bL FKI YR /IʠI(' I ,(4u'( (* bL /Iۈ/I _ ʠI(' (* bL P ij I`NX YR nP  \ YR /I&ʠI('( ,(4u'( I ,04u'0 (* bL  R /I _ ʠI(' (* bL PoPco .>.9oPI ij`NV YR nP YR /I&ʠI('( ,(4u'( I   ,04u'0 (* bL  f /I _ ʠI(' (* bL P ij  YR nP R /I YRʠI('( ,(4u'( (* bL  f /I _ ʠI(' (* bL P ij Iu YR nP   R /I YRʠI('( ,(4u'( (* bL  f /I _ ʠI(' (* bL P ij I  YR  R /I _ ʠI(' (* bL P ij ' 'IX J u ]v ' J ,(4u  '((Ԉ/J YR ʠJ(' (* bL nP @l PI ij /JʠJ( P YR /I/J  _ʠI( P P ij `vFCALL POR d0' ((O\ YR &Od R &Of YR  R &Of   YR  R  YR &Oh'((ވ&Od YR Oj' (* bL `6CONSTANT2jPP d0l,4uP&'( ,(4u'( (* bL ,4u&P( YR  YR&P* YR P,' (* bL `  6ERROR  Q^P*ɠP&P IPPɠPf F(GI`PGf F&P Y`PD`8FACTOR :  RR.RR:RRRRRRRFR4RQb d0l&Ql YR ,4uQn'( ,(4u'( (* bL ,  4uJG YR ,4u: a/ YR, Op) YR  Q# YR &Qp  R &Qr YR  R &Qt&Qp YRQv P  vj `6  'QxXEXPRESSIRRv2( Q /R YR `vFIDLIST S8R d( YR &R    YR &RR P `6NEXTCH  .PQIaz" ?TS< d*l,,,ji ij ,%ɃɠSF(ɠSH*`TƤSJ v ɠSL,ƬSJSNSPSLƬSRSNST w  ɠSVɠSX SF. ƈ#,SF&SZ&  &SZ, ƈ#.SF ,É,,, ɣ.(&(S\&(S^ ("pɂ((.&SN &0SF&2SFɠS`(&(Sd&,SLɠSb*( ɣ`*`6GETNUMBEUd,1( ij P ij P.UPP `\ (P ij  Sj UPPUP Sj *T$o,ao˅4( ij oPn4G ij Fan4PUPP `\ )4Ux/PUzU|PoP O`UNNoP   O`UZPP(P. ij `uINSYMBOL X .)QE+-BDFL=: * >YZ2[[ [[[\*\H\^\p]]Xv28 `\ */(XPP Sj /(X,* `] 'Y6X2Y(܈)2Y2Oi2o) Sj /*  Yi2 -`Æ]6N6 9N'( 4N t{jY Sj /*Y/(Y /(Y/(Y /,Y *Y/*Y&ʠY( P /(Y/(Y( Sj /(Y/(Y Sj /*YʠY( P" Sj /*Y Sj /*Y^/(Y /(Y/(Y/(Ye   Sj JY Sj /*YU(02 Sj /*X(2( Sj `Y( Sj ͈/*XM00,(o,coIʠY ( P YE Sj /(Y"Y ]/(Y$Y&,Y(. Sj /(YYF/(Y Y*Y, Sj /(Y. U~/(YY0 Sj  tY2q Sj Y/(Y"/(Y4b Sj Y/(Y"WWo(  SjM`Y*  oP o ij ,P ij ,P ij ï,o6N6N Om.PoP oP,Y ij  Sj U *`Yb`vFPROCDECL]& ]2  ] d.l8&`H ƈ#.`J& `L.   `N0&`P ƈ#.`R& `N. `T0,`C*PG ij P*G ij P*G F`*ɃPɠ`VP&,C,D, P ȣ.PPɦ,`6SELECTOR babaaaaabaal d(l,4u7`6  YR  R &av&axaz  YR &a| R &av&a| YR a~ YR a P ' 'aXSKIP bb> d2( P  ,*4u YR`6FIELDLIS". b bdb d0l&b+ _ b'  ( ,(4u'( (* bL  f &b _ɦP ij  R &b YRވ&b`d YR  ij   YR &b  b P &b _ b' (* bL ɦP ij ,4u P2 &b YR  P2 &  b YR&b YR bb (* bL ɦP ij &b YR bb (* bL  b i&b _b P &b _ ,4uiɦP`6SIMPLETY  fhd d0l,4ud'( ,(4  u'( (* bL ,4uD&dA YR  R &d YR  R &d YR(d P#&d YRd P &d YR  R &dT YR &d R I5 YR &d1 &dd P &d YR &d &d YRd P &d YRd   P R &d  YR &d R `6TYP   f f.- ghhhiBflv28ì,4uʠfv('( ,(4u'( (* bL ,4u`iB,4u d /fx  YR `i@ʠfz(`i<   ij /f| YR /f~ YR '`i6 'fX YR /fv&ʠf('( ,(4u'( f ,04u'0 (* bL /f YR  d /f/f YRʠf(' f ,(4u'( (* bL /f _ʠf( P P  fT YR P b  ij k/f YRAʠf( P; YR /f _ʠf( P P d YR /f _ʠf( P P f kʠfv( P `vFWRITELINI 0P cmXiF d$l&PiPɠiPPfP*ɦf*  P iR0* ƈ#PiR*P*)*`iT,`iT(, ƈ#PiRi,*,)i,*%$,`mf.),PC"D"`l . ȣP0.ɠiT f.*PC"D" . ȣP0iRP  .ɩ.P $f0ɠiVOI&)0 >#0 pȃP)0 >G0PI iRPP ɠ QɬiX zH  C*`l).,@iZɤiX  @ v (_(  B*U( #  CC0 .%@, ,  @`,ʃ*ʠiR, z C, B.%@^p@iT0  )0i\, )0i^`iN,`i`,(@ v i,*ɩ.P'2(R H`iT,`*C.(D, ( bAHib, ( b `i.  Xid,(f.),PC"D" . ȣP0.,Ƀ`6NESTTIP  @mj^END OF MODULE EXPECTEDmtom\v `mf`mf`mfooooooooo  o  `mh( P ɠmhP`  mfP`mf,`mf YR ' (ވ)PmdiP ij  mnu ]v<;ʯ@(ʠmd*ʠmp, z  iM &Æ/@,pʯ@(ʠmf*Fʆ,  ʯ@( v 1ʯ@(ʠmr*ʠmr,ʠm.  ʯ@( v iiM   iP If.PPiP ij /ʯ(ʉ*m* v ʯ(ʉ*m*ʯ, zH    ʠmd(( {L `$GETSYM  ( p;+-^q@p d*ɦ^(&(p Ƨp  qT f( `%  d(p(*()(pFi(f))Ƨp  qT f( %`p#f( %`p \ɠpd 9&\f(%Ʌ\Ƨp  qT f( %`pɦ(^%&(pɠpd&(p &(p"ɠpdɠp$d&dpɠp ^Ƨp& qT `6GETCHAR ;qqD*f2 fZ FfZ%2 i(DZ  i(`qN`8READOPTI(2f +rvrrrrrrsss.),rqvh`q2J-(`q`q}I`qI`q {| f `qZ`q^ p, d`$`qb N -'* (4 4 Nb p, )dq)(q b l 'qX)dqd͈)(q[)dqW͈)(q  N)dqJ͈)(qA)dq=\9)dq5\1)dq-\))dq%\!)dq\)dq͈)(q  )dq͈)(q )dq  p, )dq )(q)dq p, )dq)(q`r`r NESTER NESTSRC sPNESTOUT s`INPUT stl  s2ʉ(s(s (*2ʠs4  ʉ(s(s (*2ʠs4  ʉ(s(s (*ʠs2ʠs4   @2  q ʩ( { ʩ( -n  m ʉ(s(  ʉ(s( ʉ(s( `2MESAG$DX>u .,uTt d`>n KH t>n`>n1>f -n `>n)   IF tT-`t,`t-`>`4O>fGI`t | >f -n `>nO>fGi*ui(  >f v t>n`6| |"P$TERM uup(,:h a 4, A78[[ 7H (~LA[ >*l ` >*) i"é$`6;;  H  \̏\ʌ(ʇ*  ~ \ >*l ` >*) i"é$`6CHK$L vv\(ʾ(ʭ* ~ `6READ$ P0wTv d4i(% DG% v"%* `v0%%% v 0 )0v`v)% D2F2   ġ)*)0v)( v)( v  `6UNPCK$ xpxpxpxVxpxVx^xfy2xxxxxxyy @yyyRyZybyjyryzyzzyyyyyyyywXBi20.i*:,`y 'wXi4)*>G<)4)*>H:i4 i0EE0)< D(:i*:4`yi(  U>, 'wbXi>i>Ei>%E>*ei(ji:4i>E)0)>Ki>E)0)>$@i>E)0)>45i>E)0)>D*i>E)0)>Ti>E?)0)>di>E)0)>t i? )0)>D>F:i0, 'wrX`w6`w6  `w6`w6 `w6`w6`w64`8i(U>i4*i4:i:@F@1," 'wXi>i>i>i> i>i>i>)0)>9)6E>0(ji:4 A7O8[WRITE$ .zz4 d0(f i*,Ofi,f I`z>& D    ɩ.Oi(`z@Oi(`zB  `6WRC$T {,z.)(ʌ(,zʠz*  *, v  -`6ʠz* f P$UC {j{>*(>4( >4`8P$PARM {{n2i(.ԩ+ 30`8RE  ST$S {{ d*(Oi( - f E( /l Oi(f v `6SET$ACNM,|{ d2)(d *Г S B"e,ɧ{ @ *Г B. .ɬ{. v i,*0S1F0 *`6C MEMORY PARITY ILLEGAL OPCODE  ILLEGAL TILINE ADDRESSILLEGAL SUPERVISOR CALLADDRESSING ERRORPRIVILEGED INSTRUCTION TASK KILLEDTASK ERROR #?1STACK OVERFLOW HALT CALLED HEAP FULL DIVIDE BY ZERO&INVALID PACKET POINTER'INVALID LENGTH OF PACKET2CANNOT GET MEMORY3ERROR CODE = P4015E  RROR CODE = P4038TCA ACCESS ERROR7"CASE" ALTERNATIVE ERROR\ STATEMENT ?1 ALTERNATIVE ?2*FILE ?1 LUNO #?2 NOT ASSIGNED1 CANNOT LOAD OVERLAY, STATUS = ?1??!7  A~B!~[CSLAB$ 0,.;~ d@`~,ʼn~͠~ʼn~ʼn  ~͠~ͩ( * ʼn~͠~ʼn~ʼn~͠~͠~  ʼn~͠~ʼn~ʼn~͠~ͩ* * ,F F0&0F,O`~F  `6ENC$T  0<`6i,>=U0:*`*i,)*D4D0&i40i,i0E:F:i(F`i(i0i36i0),  `6i.i6`8ADJTCCOLCONVDTABFILLSCOLSLIMSTABNUMBWIDE           *1366*&.1-$",%03)!2( +#'/DO IF IN OF OR TO AND DIV END FOR MOD NOT SET VAR CASE CHAR   ELSE FILE GOTO REAL TEXT THEN TYPE UNIV WITH ARRAY BEGIN CONST FIXED LABEL UNTIL WHILE ACCESS ASSERT COMMON DOWNTO ESCAPE PACKED PASCAL RANDOM RECORD REPEAT BOOLEAN DECIMAL FORT  RAN FORWARD INTEGER LONGINT PROGRAM EXTERNAL FUNCTION PROCEDURE OTHERWISE REENTRANT 4444444  4444444444 44444444444444444444444444 44w@"%u5__ARW_A  Ø BABB@(PAAH  @@$Dh$!$D$$IB I$I$I  DIDD H TPH D$A$I  $@ @ H$ H" h D$JB"HH!$ I"H"H )@( @( "@ D"I@ D"H"$D$$H$D 4@AHU* @D"!  $J   @    "@$ $HHB@  @$D""DHDD""DH@H "$I"DD@HH(h (""T $HH%"D "JJ A  "DA@ @ZD )$J ("H% "J%@$("DHIH$~@@"AH"D$ @Q$D@I$$ H @@@D(@   $@@@  "@@BI @H   B H @ hAD D !@B!!!I$HHA#HҐ ")HՀ P(@  @""" 4 @R@IH      HRQ JID 4 @!!!I$HHA#HҐ ")HՀ P(@  @""" 4 @R@IH    %SPLITOBJ 2Nb =22>* 9 22228Z929=9&{[/> >! `>"à>$>&`  >* `2 >*`D73`$73 `$`%$73 3 `%B373H 3 `%73T 3 `&$8.3` 3h`'33D3P3t383x 3h`'V73 3h`'73 3`(4$44(4  73 3`)<3 .S$FTLF007+73 3 `)4$4(773 3`*`**  3`*N74 4`* 7`+`+8.40 48`+34N4Z4784R 4r`+74^ 4r`,D74j 4r`,`:`SYSTEMp      `333  8T=8N==C9  9b9`9b=>P>*99b99J-<        8T8T>t=>=99/9=>f>EFFn 8T8N8N P$MAIN >z>f(SPLITOBJOBJECT >`INPUT > >$C$TPOBJLIB >J?>2Xʉ(  >(> (*ʠ>2ʠ>4  ʉ(>(> (*ʠ>2ʠ>4  > (J`>T`>Vʉ(>(ʉ*>*  iU CNDIPÉ۠>ʩ`( F )`ʉ(>(  ʉ(>( `2Ê.(ϩ`>Ϡ>lj> G ʩ`( H ө `>F`  >Hө 0F`>H IP  ÉiHOIۭIʩ(> (*'J (2 It ʩ( -n `>BFD E. A2 ʩ(  ʉ(>(ʠ>*  `?COMPRESS  B.B.AAAABBB.BBBBBBBABBBBzBAAAABBABzBB@BBTB.BAA  AAPFC^@v*@@@@B C ʠ@( Cp /ROo@(m)(''`B '@Xʠ@( D^  C ʠ@( ʠ@( D^  C ʠ@( Cpmʠ@( D^  C ʠ@( Cp*ʠ@( D^  C  D j(oRk@B D (Rʠ@( D^  C/ʠ@( D^  C0  ʠ@( D^  C &ʠ@( D^  C  D j(R Cʠ@( D^  C  Rë@@ IP J-(o`=`A$O`A& G ʯ`( H @@o :/B@(OoB`A)oBÍHON`A+J-(o`A$}O`A,  ʯ( v J-(o`A$}O`A&  ʯ( v `  $COPYCHARCCb,)(D*E* &B@Š#(@(B`8COPYINT DBC,5($Ơ@У B*@0 9 ( C"B( ( C*#C(ƠB)B`8COPYTAG FPDDF d*Ha)(&B)(&B  DQ&BDH DS& DT4 DV   v ɠDXB&BƠ@#@B`6LASTINT ED0FfB%D D(`8COPY PEE d(Of`E&uF`E(   v Of`5`E&F`E( G ` H f :Of`E&uF`E(    v `6MESAG$DX>u .,FjE d`>n KH E>n`>n1>f -n `>n) IF ET-`E,`E-`>`4O>fGI`E I >f -n `>nO>fGi*ui(  >f v E>n`6JT |"P$TERM FF(,:h a 4,REST$T   GF d*(Oi( - f E ( /l ( H `6RDS$T 40HpG d:(f E Oi(`G  `G2*i,*2)(`G0yfi* ^fE48)(fafE6E*&%)*aD8D, i64i*8*i*, i*ai,E  4)6aD*i6*Ofi*i,I`GI`G&Di. LR i4Ʌ08`G02i( H  * Oi(i0 f `6RDLN$ ,I`LJ8  ,ba*i,**i.SRU2O`LH8i.)*D2Ci,E @ '*ʉ0M@0 0|   > IF%1  F>iB )>D: :OI`M>i: v iBFUGFF iDF)BTiB D@)D MCi(iDɧM@ @ i>FFF i@FiD d1iD)@)> D`6w@"%u5__ARW_A  Ø @hHRBBBBB % ?$$DI$H$IHHJ AP@E@  %iR$E)@@H  @)I @RP@@4@@ @hHRBBBBB % ?$$DI$H$IHHJ AP@E@  %iR$E)@@H %RASS  J@ H . d| p b2 b V l V > x{[/r s `tàvx`  | `  |`D > @@  C p  >| p /         Hp0 p p/ pHV8 3  P$MAIN (  6*)*`** *2  D4d8G. ). * U,i*).a)*`2%dR)*$D0(  )(2` i*%  e)(),`%(F$ń0"ɂɥ0#e  CD)*a).D. C.)4:" D0 i*0)0$  SC0`0)0)0 D.)0)(  )( )0 $ J`0D000)0)4*)(  `h,(`,  (F*8(ş`*** INVALID  RELEASE POINTER *** 0  D,d8U*)( * )(   4ʠ6*    a)(D.(i( iD`REVERSE `INPUT [\]^ ʉ(( (*ʠ2ʠ4 =h ʠ(    )`|8ʠ(  ʉ((   ʠ(    ʠ(   *  B )`| ʩ( < ʩ`( Lʠ(  ʉ(( < ` GO$ [(.,(  ʠ( ʉ(( 1n (* ʩ((    H j(*ʠ(  ʩ*( 3 `~READTOCO:2*&` G()(<  &` G(` L &`|`MESAG$DX .,D` KH `1 D `) IF T-`,`-`4OGI` FB  D `OGi*ui( t   `P$TERM vHh(,:h a *HALT$  x(ʠ(  `OVLY$ *(   )()(  Ѡ &   )(`,,[ʌ(  L  XWRX$T 2084(f Oi(`B O)(  i(  AfE2&)  *), D F). , )0@*  i(  `B0)0@i2Ʌ)()0  `ENX$T 0 `6i. ),  U2,`8,=): D `"i  %0)8  @8),i8*i*8  i8 I%<$)8i.)*DD25iE2ai8E).EFi(F`'8i(i)8  d=)86i2).`6i0i6`                                                                                                          w@"%a@YpbcpH@@ $@) $  I$$I$B$  A#HҐ ")Hh 4AkI(  @@ @         % SPLITPGM 2'Z  =22>* 9 22228Z929=9&{[/> >! `>"à>$>&`  >* `2 >*`D73`$73 `$`%$73 3 `%B373H 3 `%73T 3 `&$8.3` 3h`'33D3P3t383x 3h`'V73 3h`'73 3`(4$44(4  73 3`)<3 .S$FTLF007+73 3 `)4$4(773 3`*`**  3`*N74 4`* 7`+`+8.40 48`+34N4Z4784R 4r`+74^ 4r`,D74j 4r`,`:`SYSTEMp      `333  8T=8N==C9  9b9`9b=>P>*99b99J-<        8T8T>t=>=99/9=>f?>NOOn 8T8N8N P$MAIN >z>f(SPLIT SYSMSG >`INPUT >P(*+ >(*& >{&"&INVALID CONTROL CHARACTER: (*&  {& "& OR (*+ EXPECTED >9@*BUILD PROCESS?*CAT PROCESS ?@>2 ʉ(>(> (*ʠ>2ʠ>4  ʉ(>(> (*ʠ>2ʠ>4  ʩ`( O ʉ(>( D /(`?>ɧ> P ʩ`( Q ' > 4`> F#'   > 4)>)>ʠ>(ʠ>*   ʠ>( D ʩ( Iʉ(>(ʉ*?* L (ʉ*?*ʉ,?, AH ʩ@(ʠ?*ʠ?,ʠ?.  ʩ@( v ʩ( C ʩ@(ʠ?*ʠ?,ʠ?8.  ʩ@( v ( D ʉ(>(  ʉ(>( `2BLDN  ONCO6SRCLIB A(0.2VBA d^ɧA&A0 (*ʠA22ʠA$4  .(  A4 A6 v )*T0T42( ),)()0 ),)* )*T'i(   A8 A6 v ' (V A: A& H  A& A< L &A2  )4 A8 A> AH 'V( A@ AB   ),*)*)0(ɩ4ɧA&  `6COPYTEXTPCB d<6)*T:PM): >#0 ): >G:`B8IL ɠ8#+8( B4 B  )( v  &`&`4 B B P ` Q ɠB`6CPCMD *ADDC  : CDC d,(oi( f&@ C4 C  &@ C C &@ C4 C &@ C4%  @ v % d **.&@ C4 C  &@ C C &@ C4 C &@ C4)  * @ v )*  C e (`6ENDOFSPLSPLIT DD*( D (( R\ `8GETOPT DD*(`8NEXTNAMEE ********E ELETTER OR $ EXPECTED TO START NAMEE("FE d* I< Ff% E-SE(yE&(  Ff% A Ff% ZFf% $ EJʠEL*   EN D `EN()(EP Fi(&d(Ff% A Ff% ZFf% 0 Ff% 9Ff% $Ff% _`6READINDEINVALID CHARACTER IN INDEXFMISSING  ")" AT END OF INDEX FGFv(F(ʏ*F* G  I< Ïn *ʠF(ʠF*   ʠF( D Ïn )ʯ(ʠF*ʠF,ʠF.  ʯ( v ʠF( D `$BLDCONTR. + - OR , EXPECTED GH`G d0.i., G G v ,)  *).),). i. EV 'i(   I< & +). G G & - I< `6& ,& -GʠG*   G D SETLIBME LIBRARY HI$Hv4(H(HH (,ʩ*(', (*  ( (2 S ʩ*( -n `$SKIPBLANHPII( d(Ff%  &I2Of`5`I4F`I6 P ` Q `6SPLTCONS2LIB I********I *P(*+ IRUNEXPECTED END OF FILEI(*- I(*, IJ$I dTɧII (*ʠI2ʠI4   (ɧI  `6i( I 4`K (*`I0`I1 I I H R E&`4 I I P ` Q &`' I 4 I I'* B IʠI*   I D  I ʠI*   &`4 I I P ` Q '   I 4&`%' I 4' I 4 I I'* B &` I I'* B 2  M  &`4 I I P ` Q ' I 4  I &`4 I I P ` Q ' I 4' I   4&`e (`JSPLTNONCEND.LEND LUNEXPECTED END OF FILELEe"({ (*& L"& L{& LP LNL~ d0&`!' L 4' L 4 LʠL*   L D f Ʌ܈&L&L &L&L&LAf,f.`L  /ɠL&L&L`L.ɠLi, ei, Ei- ni- Ni. di. DɠLD', L 4', L 4 ', L 4&ɠL EV Of`5`LF`L P ` Q ɠL' L 4܈&LOi(i*' B  `L`6MESAG$DX>u .,OjN d`>n KH N>n`>n1>f -n `>n) IF NT-`N,`N-`>`4O>fGI`N T  >f -n `>nO>fGi*ui(  >f v N>n`6TY" |"P$TERM OO(,:h a 4,REST$T   PO d*(Oi( - f E ( /l ( Q `6RDS$T 40QpP d:(f E Oi(`P  `P2*i,*2)(`P0yfi* ^fE48)(fafE6E*&%)*aD8D, i64i*8*i*, i*ai,E  4)6aD*i6*Ofi*i,I`PI`P&Di. V i4Ʌ08`P02i( Q  * Oi(i0 f `6RDLN$ ,R W _<> i@DiBF W 0$&$RJɩ6ɩ6$>`Rp`6[ 7H (WLA[SET$MEM SS:(ʯ('* (*'2 (2 X `6SET$ACNM,TS d2)(d *Г S B"e,ɧ  T @ *Г B. .ɬT. v i,*0S1F0 *`6C MEMORY PARITY ILLEGAL OPCODE ILLEGAL TILINE ADDRESSILLEGAL SUPERVISOR CALLADDRESSING ERRORPRIVILEGED INSTRUCTION TASK KILLEDTASK ERROR #?1STACK OVERFLOW H  ALT CALLED HEAP FULL DIVIDE BY ZERO&INVALID PACKET POINTER'INVALID LENGTH OF PACKET2CANNOT GET MEMORY3ERROR CODE = P4015ERROR CODE = P4038TCA ACCESS ERROR7"CASE" ALTERNATIVE ERROR\ STATEMENT ?1 ALTERNATIVE ?2*FILE ?1 LUNO #?2 NOT ASSIGNED1 CANNOT LOAD OVERLAY,  STATUS = ?1DES$T  W~V>`V8,ba*i,**i.SRU2O`V8i.)*D2Ci,E IF%1  F>iB )>D: :OI`Wi: v iBFUGFF iDF)BTiB   D@)D Xi(iDɧX @ i>FFF i@FiD d1iD)@)> D`6C#DYNAMIC ARRAY SIZE OUT OF RANGE6ESCAPE-FROM-ROUTINE ERROR7INVALID RELEASE POINTEROVERFLOW\ STATEMENT ?1&PRECISION CHECK FAILURE\ STATEMENT ?1 "ASSERT" FAILED\ AT STATEME  NT ?1FATAL COMPILATION ERRORS IN ?1w@"%u5__ARW_AØ $$$) J"H"" $B  AHD4)   *H "% tH  A ABh@!! JD:$$$I @Є  N$ B$PBAE%%"D $ BA@$ "RP"""$ "H iR$E)@@H@)-@    H@ 4@@@Є  N$ B$PBAE%%"D $ BA@$ "RP"""$ "H iR$E)@@H@)-@  % P$DELETE   j D)&  : '(00' <'(R/֠D \  .CILFIL .CRTFIL .COMPFI .CPTEMP .DESCFI .ERRFIL!.INPU  T. .OBJECT: .OUTPUTF .SYSMSGR .TEMPFI^ .TOKENSj .IDFILEv .TIPBAT .PREOUT .MAPFIL .DE$CFI .CIL$FI .LISTFI*p *xJ!ʁp*vJJ jd JI`@*v*pʪhjJBJ .@JB   @ڻb*zʐnʪpf/`*a ; K/r[\J!B CA1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[m* "ròAC  ** ā*/ ./*(ځ//jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`<=`>F%00څڅj ʁ* 0`jY* *    ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[ xH h` T h` ` h`F`:`SYSTEMp      ` P : b   `     ``  `  $`< FDP  > F` X .S$FTLF00+  `H `.`0     A@P B  5P]} J  `H `.`0     A@P B % T9OPT v5 (D\ P B2B6L6X{[/R S `TàVX`  \ `:n \`%B   CP\P|        (PPP/P(XJK|8 P$MAIN (T9OPT  JLISTFILEDE$CFIL nDESCFIL CIL$FIL PCILFIL `INPUT Fqp,DXPSCL 1.8.0 83.357 OPTIMIZATION SUMMARYj??NAME??HD " \" -- d00 HEAP BYTES REQUIRED TO OPTIMIZE AT LEVEL lr `lʉ(( (*ʠ2ʠ4 =6 ʉ((   (*ʠ2ʠ4 =6 ʉ(( (*ʠ2ʠ4 =6 ʉ(( (*2ʠ4 =6 ʉ(( (*2ʠ4 =6 ʉ(( (*ʠ2ʠ4 =6 ʉ((  F OFʠ(  ʩ( = ʩ( >8 ʩn( > ʩ( >8 ʩJ( >   /(J?6   ʩJ(  ʩJ(**6ʇ, \ ʩJ(**6ʇ, ʩJ(**6ʇ, ʩJ(  ʩJ(  ʩJ( >8 ʠ(   8V 6 ǃ66 ?66ʩ@( B ʩ@(ʠ*ʠ,ʠB. , ʩ@( B ʩ@( d /q 9 ʩ@(  B ʠ(  /(J6 , ʩJ( B ʩJ(ʠ*ʠ6,  ʩJ(ʠ*ʠ6, ʩJ(ʠ*ʠ6, ʩJ( B ʉ(( J ʉ(( ʉ(( ʉ(( ʉ(( ʉ(( `n)n ʉ(D( : ʩj(ʩl*  d /` ʉ(F(    P (  6vʠ(   G  :  ʉ(R(ʠT*  ʉ(V(  D ODjiFD`XDD/ 2GDʩ(  ʩ@(ʠZ*ʠZ,ʠ`. , /(@TɧR ʩ@(ʠb*ʠb,ʠj. ʩ@(ʠ*ʩD,  ʩ@(ʠ*ʠ,ʠ. ,  ʩ@(ʠ*ʩ,  ʩ@( B )n ʩ@( B ` DOMODULE pXv.0 REDUNDANT COMMON SUBEXPRESSIONS ELIMINATED IN "  * 6v 6556 6  6  6666 6fʠ (   ?< o* 6f)* #oh<   ohMʉ( ( : ʩX(ʩZ*  <h` =  &6~ `ʉ( (ʠ *  ʉ( (ʠ * rt` z>@ʉ( (ʠ * ivʍ(( : -  ʭ(ʭ*   L ix o  M;63ʯ@(ʠ *ʠ6,  ʯ@(ʠ *ʠ ,ʠ . , &(ͯ@Š Ͷŏ  /@"!ʯ@( B `vfx Hl n9iV&Æ˩j˩n9izɩViVz!Wb!X)6z)`6|ʩV(ʯ* TB ʩV( g& ʩV( ]Z ʩV(   , ʩV(   iVʩV( A 9iVʦ( R `NEWPHASE<**(()(6xʩ(( " )(6x`MESAG$EX .,@"^` MH J`3 > `* IF LT-`O,`Q-`4OGI`R ?  > `OG  i*ui( ,  B J`WRLN$ *cP OPTIMIZATION SUMMARY 0PAGE6*,é(n  ` @`6-`6#J-(nnnI` " * ʩ((ʠ* #x O-@^n 6k 66/@ !ʯ@( B J-(o@`}6G   , ʯ@( B ʯ@(ʠ*ʠ,ʠ0. , ʯ@(ʠ2*ʠ4,ʠ:. ʯ@(ʠ4*ʠ6,  ʯ@( B ʯ@( ʯ@( `6- 6 ʩ((ʠ<* #x `,(`D, $ (F*8(ş`"^6*)*`** *2 $ D4d8  G. ). * U,i*).a)*`2%dR)*$D0( $ )(2` i*%  e)(),`%(F$ń0"ɂɥ0#eCD)*a).D. C.)4:" D0 i*0)  0$  SC0`0)0)0 D.)0)( $ )( )0 $ J`0D000)0)4*)( % `*** INVALID RELEASE POINTER *** z"^0 $ D,d8U*)( * )(   ʠ*   % a)(D.  (i( iD`GO$ q(r~*,(  ʠ( ʉ(( 8b (* ʩ(( (  )4 j(*ʠ(  ʩ*( 8 `GETCILWO CIL WORD = PREMATURE END OF CILFIL "^*fd %F)(%%&hfd= Ʌd&  OfF  ` &| 2ʠ4*   % `PUTCILWO CIL WORD = ("^,ff %Fi(i*ff= Ʌfhf OfF`f )X `T9SULTE %4*/D2E2 8š/ f(f()**`8(/d...i.e0  0#0&&&$/D2M2  8͡/Ä V0U.,/D2E29 8š/f(f( i,! 8,/& $ 6& D6i,  8,,,`&T9UNSP KTU < X@,- P  P P''b*-b//b22TT2D@8(C.S,,`),i,0T,><:8d6d2 C*)2)2)2 &6S66N6S8I8S::S<=i64i43%2#  C< c6~#& ) 8`U4 'X *  &WC =:7)2)2  6B<` "6~҈)*)* 8  8> >C< #6~>i0.`,2  )- * ʀ( % \l M"N$ \)$‰+ 0[DXPSCLRT (C)COPYRIGHT TEXAS INSTRUMENTS INCORPORATED, 1978.,2` $  0M"N$Iˉ`%: \$‰ \[ \) i"é$7 7777777[RDS$T 40r  "^:(f E Oi(` #x `2*i,*2)( `0yfi* ^fE48)(* fafE6E*&%)*aD8D, i64i*8*i*, i*ai,E4)6aD*i6*Ofi*i,I`I`&Di. *: i4Ʌ08`0  2i(   * Oi(i0 +6 `RDLN$ ,>v"^.(f EE,Offf I` + ), ɩ,&Oi(`*),٠!i,E**  fi*  )*ɩ*Oi(` #x `RDI$T  0.tB"^  8(f EOi(`L #xy`N.6*)( ei(,vG2b)2Pf0/)( Mfi* CfE0)(* fafE4E*)*aD6i4*i*6*Ofi*I`TI`V&Di, , i0Ʌ.6`R.Oi(i. +6 `CLOSE$  0x"^*(i(ff E( 'D i(i(% . ٠` =[ =[  =[ =[`% WRS$T  D0)(ʌ(, &ʠ $* #x *i,B,  B  B)  .ʠ $* +6 `, [,,:K[WRI$T 0.! "^2(f Oi(`  #xM)(*   i( B ?fE0&)* ), ' ). *  i( B ` .). i0Ʌ)(). +6 `ʻ(  /6 \  ,  ʌ(  B ,,,[OVLY$ "Z!"^*( 8 !88 !8)(8)(88 &P Ѡ8 &  % )(8`/(`DPUT$RCOR #H"j"^4(٠"u٠"w, i*i,`"y,f%  f% Ef% `"z2I%2Ʌ  ɠ"r ( &P f", I%2E*`"r,`"|2ɩ*ɩ, "~0I"~( &P f ).`IO$ERR #$H$H$H$$$<$B /CC[$#LD|)(((  )*`$&,F$t;O7 w)*, #fi* #VR,   T   h    O#f(  aFՅʀ(ʆ* % `0L(`GET$MEM 06$$$ $,h(! Q./,(-  $,./,*ĉ AABEND$ %:ʀ(Ƌ % À*  `% )(`%%<,:(h  "$&¬,­**ʌ("  f G`(G(,,: )*HALT$ %%D(ʠ%( % ` \l `: \) i"é$`[ 7H (/LA  [SVC$ &\&B*i(/READ$ P0'.&^"^4i(% DG% &h"%* `&j0%%% &l + )0&n`&q)% D2F2 ġ)*)0&r)( &t)( &v #x `WREOF$  ''2"^*i(% ,%  &% D٠'= &P &)( '> #x  )( B `ENI$T - ('"^N`'Fi,`(ފU0|F2EH66)2 HE%0)6  8)2 G2H 6)6  '8i*6i6*i,)*D4D03i4E0ai6E  4),ELFLi(F`'64i(i4)6  d9)6i0),`'Fi.iF`RESUM$ )0( \ "$&(((k"ë$&M4j \0l((`WRITE$ .))D"^0(f i*,Ofi,f I`)N& D " ɩ.O  i(`)POi(`)R #x `CHK$L ))D(ʾ(ʭ* / `;;H  \̏\ʌ(ʇ*  / \,[DES$T  +*(>`*28,ba*i,**i.SRU2O`*08i.)*D2Ci,Ei80(8f E6 6E@"E>`,:`,`,@`,:8(8f E60'9$%ED)4,B&)4,`,:X   9i4DF4:`,<)i6<)*0a8F*ͩ(ͩ*͠,ʼn,ʼn,ͩ0ʼn, 1 8F08`-|*i80(8f  8`,:2ũ4.ũ:`CLS$FILE/."^*(٠.( &P (٠.( `ASSER$ .*,//"^4`/$  *ʼn/&͠/(ʼn/*ʼn/,͠/.ͩ( ' *F F.&.F*O`/0F % `??!7  A/B!/[CSLAB$ 0,.;0/"^@`/,ʼn/͠/ʼn/ʼn/͠/ͩ( ' ʼn/͠/ʼn/ʼn/͠/͠/ 3 ʼn/͠/ʼn/ʼn/͠/  ͩ* ' ,F F0&0F,O`/F % `ENS$T  1j0>`06i.UTU2Q,NMi*,i,*i.)*D8D27i8E2ai,E8).Ei82ti(i8% D609A!  FAj`16:i, i:ti6%):  >`1<>i6`1`1<8i82 i(i8% 0<)8*i82i(i8%  `1~<18i8E28<#:i4i,):  < C>C),i:i2).`1=U0:*`3*i,)*D4D0&i40i,i0E:F:i(F`3i(i0i36i0),`36i.i6`(,:K[ENX$T 0 54~"^`46i. ),4 U2,`58,=): D `4i%0)8  @8),i8*i*8  i8 I%<4)8i.)*DD25iE2ai8E).EFi(F`48i(i)8  d=)86i2).`46i0i6`                                                                                                                                                      w@"%a@Ypbcp@@ !I HHRBB$$"BBAA@AD! H @AD$RHI I " A  Cj5T@ H  I "$ A@E4$ II"S@ @$M $ $@I H@@ R@  HZ R@@$ @I$z  DHDHp$@$@  @D@ @@ @@ $ $  I     ZR@А !A4  "@H@ (@(@44@4 @R  @ hJH@@R$ (H $B @!i J I$ !ID)*%$B  @@ i @         %EXTRACT UzUz ODU J B2B6IJ6KOzJ{[/O O `OàOO`  U `6n U`ABEND$ ʀ(Ƌ  À*`)(`6<,:(h  "$&¬,­**ʌ("  f G`%L  G%L,,: )*CLOSE$ 0P*(i(ff E( - i(i(%Z 0 ٠]`CLS$ ,*.i(`( b (f,ɧ & f*ɧ  `CLS$FILEZ*(٠)  ( & (٠+( `7 [CREAT$ .>0h:* * r  )* & ߡD6,t   v)6  r).  ),a0^),T  D2 j)2,)0D"i($(`x*,i0.D006C2)0)(0i0  )6DD8F8 )0$D),&D2c&),`0L(` =[ =[  =[ =[`-  ʀ(  DMPP$HEA*** DUMP OF HEAP ***26$6@ /. @.0F / @  /. (#84(CC*C,,4GDH,,.BB.4GDH,BB,B*݈)4H%`H4d0i0U**  J*S2*`C22 i2*`*C,*2B*BB.  e., . e*i*.@ /. ,.   0c0)0`DUMP$PRO *** DUMP OF PROCESS *** PROCESS RECORD FOR   ENTRY POINT 8 TOP OF STACK  *** END OF PROCESS DUMP(:`6i(,  _.@ /. @ / @ /. ),i,. & _E0%"%$$&@  /. @ / .S88CC2S2 @2@ / @ɤ 0F @ /. ,# ENTRY POINTb2LEVEL=t b@@)(,d,>d">4`"44>c.i>ʯ@( /. ʯ@(ʠ$*ʠ$,ʠ4. / 4P#(@6  8  ʯ@(ʠ8*ʠ8,ʠ@. ʯ@( /. %$ ">B<>#>C<ʩ>(ʩ<*  F0 4f.ɦɦ$:` Ne$:):Be0e:e"00C2CB*R8` 68c6e,e<)6B)6Di,> i<.< , 2ʯ  @(ʠF*ʠF,ʠ\. / #(@8 ɤ^ 0F ʯ@( /. ʤ.(ʤ0*  C:\8ʯ@(ʠ`*ʠ`,ʠn. / #(@8 ɤp 0F&#(@6r8 / ʯ@(ʠ6*ʠ8,ʠz. ʯ@(ʠ"*ʩ6, .V ʯ@( /. i<ʩ,(ʩ<*  i,.)6B  e0`"4i0>:``ENC$T   f<` p6i,>=U0:*` p*i,)*D4D0&i40i,i0E:F:i(F` si(i0i36i0),` n6i.i6`ENI$T - F N` Fi,` >U0|F2EH6  6)2 HE%0)6  8)2 G2H 6)6  8i*6i6*i,)*D4D03i4E0ai6E4),ELFLi(F` #64i(i4)6  d9)6i0),` Fi.iF`ENS$T  " J>` T6i.UTU2Q,NM  i*,i,*i.)*D8D27i8E2ai,E8).E): D `i%0)8  @8),i8  *i*8  i8 I%<)8i.)*DD25iE2ai8E).EFi(F` 8i(i)8  d=)86i2).`6i0i6`,[FREE$ ef|:i(DD0D6`UF8UFi6  i6 &  &UF`UF8   i0E4D,Di0DE6   `UF   UPh),UJi0i,E2 `UD2)2UD)4UD4i2ɥɩ22fi4ɩ4i(`FL$INIT 6D<F i((ũ(2 gGI٠i4Ʌɩ  4 '*(xf EOI``OI` &V ɩ6`GET$MEM 06H$ T,h(! Q./,(-  V,./,*ĉ AGET$PARM8..4* 0&D"8Ԡʂ( & bAAI!>"BĠ Oؠؠ  "ؠ"Ut"Uu`4` P ɠ  P),  Ux`4` P ɠ P),  Uv`GO$ (,ɧ  (* ( %H  % _** ' `HEAP$TERJ @.  (O,* i(F*  [**`INIT$ SYSMSG X d.FL* EXECUTION BEGINSt,NNUT` (*xʠb2ʠb4   ,6   fʠV*  iU `jFHJɧl & )GU!)HU" UvU0 UxU2ʼnn  UPɧpU0U2&ʆ*  * ɧp  ʼn  p͠U0  ɧp  ͠U.͠U0ͩ( ~ ( bUPʼnnͩL  (4VUɥ" @ U.FF*FU* (, j** (,xʼn͠   @R  @T `IO$ERR  /CC[X @|)(((  )*`X&,  F$t;O7 w)*, :i* *R, T   h    O:(  aFՅʀ(ʆ* 8 `MAP$ O8$TIP.:\IF%'    F4e'i4 E`g8OI`hI`j ,l i8=`gOI`jI`h i ' (8 ji8 E60Eʅ*  i6؊F`i0IF%8)4l`n4`l4i4 E8`q9`s:`u;`w<`y=i4%E؊FIFe'=Ii4`Ut7I  i4`Uu8`gOI`jI`h ,l ii  j`z4i4 Ei4؊F IFe<i E40i4ʅ*  i4؊F`:i0IF%7 7777777[,,:K[NEW$ 4<>* *<*i* `*`UD0`UD  U6`UDi6E.i. i..i.0`UD0ffffV6`UDi6i6 )* `i.ai*E,a UDD6  `UD,i.ai,), UD$UD),d. UD).). UD `UDi6i.ai,),`<<` UPi, UJUJD UL ULi,)(  `<`UD%UD`UD0``Ux% E8)*$D:i8 ): Oi8I` \ 4i8 E8 )8i:8Oi8I` \ 4`UH2i2%UHe2i2i44F2i4%Ņ)4)8$ɄɠUHi8%)2 UD)2 UD UD2 UDUD`  `U*i(  `OPEN$ 0.,@2i(% ( b `% (' (*x & % 0e 0%)* J L   i.e 0* *`I+`O')( L  `P٠O  & %R *`T`V`Ye,e 0&,ɧZ  i0 % De 0e 0 Z)0  i,% D`OPN$FILEP 4()0III*)0I)*   )0I ٠*Ii,IIi, i,ɕ٠( & f ci,ɕ( f٠( & )**ff!`f ;٠( & fEEI٠( & f ).&  &&  ٠( & i.٥f2i.)0)2٠( & ٠( i.`٠2 i,ɠi,ɕ)2)2ɠ)2& i,ɠi,ɕf)2 ɠɦi,fɦ$`(,:K[PRT$ME  M ,(0.@)P SAME AS LAST LINE ! R:i(,)*D40), 4 `&@ #R&@  0F &@  -B &@  0F &@)#R),$D2 4  a)48C:i42i,6)2a)6D8), 2   &@ ), 0F ,0i8PEP)6 C< _` < )=?@):$ʄ*ʠ , -B  )84  / @a)8ʄ*ʠ , -B @ /. ),$D> )4 ),6 ^` ,` 0)6$C> , =&@ #R  @ DPɤ  0F &@-#R&@ ,CP  0F &@ 4  / @ /. ` ,  ʌ(  /. ,,,[PUT$RCOR $d#4(٠#٠#, i*i,`#,f%  f% Ef% `#2I%2Ʌɠ  # ( & f", I%2E*`#,`#2ɩ*ɩ, #0I#( & f ).`REWND$ $$h*i(%#f% f% E٠$s & f Oi( L i(`$u`REWRT$ %6$*(Oi(`$ ` i(( $z i( f   E( - `RESUM$ %%: U "$&(((k"ë$&M U0l((`S$NAME 86%%:(f8ɧ%  '*xʉ0%0  (ɩ6`SCB$FREE,*&>%.i(f,ɧ%  i(U*ɧ%  i(`  SCB$INIT,&&&B2OI`&L`&N  F i,,i(i,&P`SET$NAME&&@2(ʯ('* (*x % `$M(`(SVC$ '&*i(/TERM$ NORMAL TERMINATION'>,*2e(9-:./)01(((R(Z(v((((  (CBPD@STACK USED = HEAP USED = 'r"& ','(`+)(d:% ')(< C0Ф= B20 `). ''NX'"ʠ'$*  `*`)@`' ,)2'&)2$ $`'(6 '* ' 4 ',Z`'46m)2'6)2$ )2$)2$2D  6X2)2':`'<6M`'>6I2`'86B)2':`'@6:`'B66`'D622`'F6+`'H6'`'J6`'  '* ' 4 'L '. '0 '2  `' > $>De 6i6`'b`'dB 'f%%% @d iB)'h`'hB )BC  )BB $CD  0`*)'hi 'j) `'h)$Dɬ'j'h   'l) &H 5$@D4H'@ /.  'n) 'j / @ /.  'n) 'l / @ /. )0'p)2 D ' (D jiB&H &$@D4  '0 )( ' F ( N  @T )4I '@ b ' ( ji(%0a%.D.`',ɬ'l'ɬ',ɬ'.'h ( `', 'l 'p ', '. '8#  'l '  .  D(d:`'hB 'f 'b '2 @d  'j)B  $CD`' `'2  `'b'ʠ' *  )(:c b )(:  ``ʠ,(  &( Q&, Qi(* P Q&,i(* PDTX$ERR 2,. -,,&<(*=é*. o 3i*- M0`,,Ê.(lj,Ǡ,Ͼlj,lj,Ϡ,Ǐ,   \ é,N N2É.2N,ʩ0(ʎ* 8 `WRC$T --0@.)(ʌ(,-<ʠ-:* L *, /.  -`ʠ-:* , WREOF$  .>-*i(% ,% &% D٠- & &)(   - L  )( /. `WRI$T 0./.B2(f Oi(`.L LM)(t  i( /. ?fE0&)* .N .P), ( )..J*  i( /. `.L.)..Ji0Ʌ)(). , `WRLN$ //*(f   OfffF`/$& D # Oi(`/&Oi(`/( L `WRS$T 0./@0)(ʌ(,/ʠ/* L *i,B,  /.  B).ʠ/* , `WRX$T 201 024(f Oi(  `0< LO)(t  i( /. AfE2&)*), 0> 0@).  )00:*  i( /. `0<0)00:i2Ʌ)()0 , `EXTRACT `INPUT 1EXTRACT - EXTRACT ASSEMBLY LANGUAGE LISTINGS1&,P IDT ' 1Z 1rF   1| END 1 END1 1 *** 'LISTOBJ' LISTING IS INCOMPLETE1$ *** NO ASSEMBLY LANGUAGE FOUND 1END EXTRACT 1 21`ʉ(1(1" (*xʠ12ʠ1$4  ʩ`( C$ ʩ@( $ ʠ1R(ʠ1T*  )`Cd ʠ1(ʠ1*  ʠ1(ʠ2*  ʉ(1  (  `n)`CdLÊ.(ϩ`>Ϡ1Vlj1X C ʩ`( D ' 1p ^ʩ@(ʠ1$*ʠ1$,ʠ1t. / Ê.(ϩ@Ǡ1vϾlj1x ʩ@( /. ʉ(1x(ʠ1z*  )`CdÊ.(ϩ`>Ϡ1Vlj1X C ʩ`( D ' 1 ^ө  ө .a' 1   ^ʩ@(ʠ1*ʠ1,ʠ1. / ʩ@( /.`2bө  ʩ@(ʠ1*ʠ1,ʠ1. / ' 1 ^' (vF Én )@#Rʩ@( /. 3ө .-*ʠ1(ʠ1*  ʩ@( /. ʩ@(ʠ1*ʠ1,ʠ1. / ʩ@( /. ʩ@( `3RCF  ILE *?1 ACCESS NAME ?2\ATTEMPT TO READ PAST EOF,?1 ACCESS NAME ?2\ATTEMPT TO SKIP BEYOND EOM?1 NOT OPENED FOR READING(;?1 ACCESS NAME ?2\OPEN ERROR - ELEMENT SIZE > RECORD LENGTH)?1 NOT OPENED FOR WRITING-*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3.*?1 ACCESS NAME ?2\OPEN  ERROR - STATUS = ?3/*?1 ACCESS NAME ?2\READ ERROR - STATUS = ?30+?1 ACCESS NAME ?2\WRITE ERROR - STATUS = ?39C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICT:C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICTCTEXT FILE I/O ERROR: SPARAMET  ER OUT OF RANGE NAME=?1TFIELD WIDTH TOO LARGE NAME=?1UINCOMPLETE DATA NAME=?1V#INVALID CHARACTER IN FIELD NAME=?1WVALUE TOO LARGE NAME=?1XREAD PAST END OF FILE NAME=?1Y"FIELD EXCEEDS RECORD SIZE NAME=?1 |128P |1`  a28P ? ?mCD[-mqp00A 9 'J)#ȂG9(09(H E`8l  #` m@  @ p@ bA@AI9mqm99FEmGHmr  9899@DDE    ba [[BCEEF[A:"I1܀ ܱ@[>K-+09A/*m `:Jѱ * :':&@  m  @"  *@* **@  :,* :+EF HIm  4:':&):(:$ :( +М+ 88GB :% b@B@  ABE F ABI@0$.( :61 ;;;; `p܀4 ܴ1 `CܱC@./*(ځ//jB/j **"/*$P  Rʁ A  ?ʁ C*&*BFʃ*ڄA9`==`=F%00څڅj ʁ* J!B =zC=V=VA=x1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[>>H  =jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[m* "ròAC*?*   ā*/ *p *xJ!ʁp*v??l? ?Vjd ??lI`@*v*pʪhj??? ?@?? @ڻb*zʐnʪpf/`*a ; K/r[\INIT$1 @OUTPUT @@N?(  @@ (*xʠ@2ʠ@4  @ $ `P$CMSG @@V&:g i- @)(i*J@A$,!B i2A `MDCD   .[KB). G4/4  5@JBA$i*AB[K@rF GHiDA  LFS)HPOB# )HPܠB$B!ܴ)HiH G:É.<00χׇt?/:;!J GL)L6B"B")LLF ܶ)LܠB!@[E LFܵ[*** ERROR >?1 *** ?;\ MESAG$DXUc .,BB&`U\ KH B0U\`U\1UT $   `U\) IF B2T-`B5,`B7-`Ut4OUTGI`B8 E UT $ `U\OUTGi*ui( / UT /. B0U\`P$TERM CB(,:h a PREST$T C`C*(Oi( ` f E ( $z ( D `,Cl[RDS$T   40DCn:(f E Oi(`Cx L `Cz2*i,*2)(Cd`C|0yfi* ^fE48)(tfafE6E*&%)*aD8D, i64i*8*i*, i*ai,E4)6aD*i6*Ofi*i,I`CI`C&Di. HN i4Ʌ08  `C~02i( D  * Oi(i0 , `RDLN$ ,ED.(f EE,Offf I`D IF ),D ɩ,&Oi(`D*),D٠D!i,E**  fi*  )*ɩ*Oi(`D L `SET$ACNM,FLE2  )(d *Г S B"e,ɧE  *Г B. .ɬE.  i,*0S1F0 *`C MEMORY PARITY ILLEGAL OPCODE ILLEGAL TILINE ADDRESSILLEGAL SUPERVISOR CALLADDRESSING ERRORPRIVILEGED INSTRUCTION TASK  KILLEDTASK ERROR #?1STACK OVERFLOW HALT CALLED HEAP FULL DIVIDE BY ZERO&INVALID PACKET POINTER'INVALID LENGTH OF PACKET2CANNOT GET MEMORY3ERROR CODE = P4015ERROR CODE = P4038TCA ACCESS ERROR7"CASE" ALTERNATIVE ERROR\ STATEMENT ?1 ALTERNATIVE ?2*FILE ?1   LUNO #?2 NOT ASSIGNED1 CANNOT LOAD OVERLAY, STATUS = ?1DES$T  I,H<>`HF8,ba*i,**i.SRU2O`HD8i.)*D2Ci,E`>TP P`>PdQQPT  TQ  Q*`? TQ Q*`?pTQ" Q*`?`:`SYSTEMp      `PnPXPFP46JOUT2B>BU'III P$MAIN UhUT(w@  "% DBH BB@P @A PT BBP @H@I @@DH P@$@R A4 @4 ( @  @@@ $@$     %%(( H@B4Rh %$ PH*I $@%$@I$ I @D )E@PA E@)@(H@A"@@h$$@$D@D !@DH(!J  $   PB@  B@4@h@ hTH4@h@R Q!"$D %)B"@ !(@@@(HB@!II JQ P %  Q)@ $P hP@H @ @@$hP$@"@@ hHR@A$I!$@%  I$DA  @   @H$ BU @PD$DDF DR)@H4(@ 4@$H@"  h D1f X]u]u@ q.u 114(@ 4@$H@" %PSCLXREF  OZ H . d| p b2 b V l V > x{[/r s `tàvx`  | `  |`D > @@  C p . >|. p .         Hp0 p p/ pHD+\/,d/  P$MAIN (HEADPAGE  ' PASCAL CROSS REFERENCE UTILITY 83.357 5 5(ɦ6<6>&@ Of@`u`  t Of@``F` Of@``F` @  @ f6>`GETCH P5H5AZ$09_#Z(646462%&645 Ƀ66az#pɃ66&66  &66&66`,68`Z&`|66`T&`4   4t ` L &6>6:96>  H$55&@ &@ & & &@ &@ 4  t @  &5 ?ɦ6062ɠ64&625  &62 &626462  64&645    `҈&66&66&66&66ɠ68ɠ68`NOKEY 8^h@`h:`j 9)>F'3N (0 i>E: 9)>F'3N (0 i>E'3N (0 E(`PRINTWOR . (  : BX">6>  &@ ,4 4 t &@ 64 8 &@ i2:8)86)8@  6>  &@ ,4 @ t &@ 64 L &@ &6>8i:&@ NC & &@+&@ e`PRIN  TTAB+X\.o(6>)(fhi(,é( Nn*)*fé* Ni, MO' ( i*,é*é, N' (( T i,(&é( Ni, MO' (é( Ni, MOné( Ni, MOné( Nn(`~SEARCH +. n: *  *** NAME TABLE FULL - CROSS REFERENCE WILL BE INCOMPLETE~ **** NAME TABLE OVERFLOW ****\2&&&&&D<fD(0`h*)( D$D( (`h0% C& j l & ).&).% ).i. w x )`h0  ' j l & ).&).i. i. fɩ(Fi*(*)(fj`f()*f66:06@-&6>d  iz6>@  &@ |4  t @  @ ɦ6@ʠ*  `h00``PROCESS_$NO 72COL QRESUME 72COL  Iz(&665    6B;'6D    6B+'6D  !ɠ60'6D    6B '6D  ɠ60&6B&`|`OGET  *)}, / XXXXXXXXXX~*&66  &68#&66    &66K&66ɠ6BC&66ɠ6B  8ɠ6B46B((6D(Fi(f676C  &68&66)(&68(6D  &68`PSCLXREF`INPUT 6:6<55' PASCAL CROSS REFERENCE UTILITY 83.357  ACCESS AND   ARRAY ASSERT  BEGIN BOOLEAN $CASE 0CHAR 6:;ʩ@( 8" ʩ@(ʠ*ʠ,ʠ. t Ê.(ϩ@ϠϠlj Ê.(ϩ@ϠϠlj ʩ@(  ʩ@( )6>* Ï N(6@ (3X (3b   (3l (3v" (3. (3: (3F (3R (3^ (3j (3v (3 (3 (3 (3 (3 (3 (4 (4  (4 (4  (4*   (44 (4> (4H (4R* (4\6 (4fB (4pN (4zZ (4f (4r (4~ (4 (4 (4 (4 (4 (4 (4 (4 (4 (4   (5 (5 (5 (5$& (5.2 (58> (5BJ (5LV (5Vb (5`n (5jz (5t (5~`` (`6062`64  )6668:)É۩67  )68  ii É۠)i' (0 p (} y)68  )68n)66  )66a)66(  )66W )66&)66  )66C)66?)66)66  )66&  )66  $)66  )66)66)66)66    )66é62N64  )`|`#6@*6:'ʩ@(  ʩ@(ʠ*ʠ,ʠ. t ʩ@(ʠ*ʩ6@, & ʩ@(   l ʩ@(ʠ*ʠ,ʠ. t ʩ@(ʠ*ʩ, & ʩ@(ʠ*ʠ,ʠ. t ʩ@(ʠ*ʩ, & ʩ@(ʠ*ʠ,ʠ. t ʩ@(    6@ʩ@(ʠ*ʠ,ʠ>. t ʩ@(  ʉ(( 8 ` h8",Ġ&j A  A.i( & fi*Fh,(`(6*)*&`&** *2  D4d8G. ). * U,i*).a)*`&2%d  R)*$D0(  )(2`( i*%  e)(),`(%(F$ń0"ɂɥ0#eCD)*a).D. C.)4:" D0 i*0)0$  SC0`&0)0&)0 D.)0  )(  )( )0 $ J`&0D000)0)4*)(&  `*** INVALID RELEASE POINTER *** ()\0  D,d8U*)( * )(   (ʠ(*   F0 a)(D.(i( iD`INIT$ SYSMSG )j )v.F  L* EXECUTION BEGINS),+>)`Nʇ()r (*ʠ)t2ʠ)t4 5  F^  F ʠ)x(ʠ)h*  ){~`)|FHJʉ()~(  )G)H  ʉ()(* G ʉ()(/ʏ* & *j`)**ïN*ʎ( ( ʠ(ʠ*ʩ(,   H ( )tʉ()(ʩL* G (6ß|" ,$ OO*Ï^*) (, ** (,ʉ()(ʠ)*   IJ  IL `~MESAG$EX .,,+D` MH +N`3 I\ `* IF +PT-`+S,`+U-`4OGI  `+V I  I\ `OGi*ui( t   +N`INIT$1 @OUTPUT ,,`,(Ƨ,, (*ʠ,2ʠ,4 5 Ƨ, I\ `J&L,|CFILE *?1 ACCESS NAME ?2\ATTEMPT TO READ PAST EOF,?1 ACCESS NAME ?2\ATTEMPT TO SKIP BEYOND EO  M?1 NOT OPENED FOR READING(;?1 ACCESS NAME ?2\OPEN ERROR - ELEMENT SIZE > RECORD LENGTH)?1 NOT OPENED FOR WRITING-*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3.*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3/*?1 ACCESS NAME ?2\READ ERROR - STATUS = ?30+?1 ACCESS NAME ?2\WRITE ERR  OR - STATUS = ?39C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICT:C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICT-. L ʀ(  GO$ (/ .,ɧ. ) (* (    H _** / `P$TERM />/  h(,:h a ATERM$ NORMAL TERMINATION/L>,*2e(9-:./)010<0Z0000011 1"CBPD@STACK USED = HEAP USED = /"& /4V/@(`3)(d:% /J)(< C0Ф= B20 `1j '/X/^  ʠ/`*  `2`1|`/H,)2/b)2$ $`/d6 /f /H4 /hZ`/p6m)2/r)2$ )2$)2$2D6X2)2/v`/x6M`/z6I2`/t6B)2/v`/|6:`/~66`/622`/6+`/6'`/6`/H /f /H4 / /j /l /n M `/I>  $>De 6i6`/`/B /%%% N iB)/`/B )BC  )BB $CD0`2)/i /) `/)$Dɬ//   /) &H 5$@D4H/J@   /) / t  @   /) / t @  )0/)2 D ' (D iB&H &$@D4/J0 )( /J +B ( +B  IL )4I /J@ P\ / ( i(%0a%.D.`/,ɬ//ɬ/hɬ/j/  `/, / / /h   /j /8#  / /  .  D(d:`/B / / /n N  /)B  $CD`/ `/n`//ʠ/H*  )(:c P\ )(:  `RDS$T 4054Z:(f E Oi(`4d  `4f2*i,*2)(|`4h  0yfi* ^fE48)(fafE6E*&%)*aD8D, i64i*8*i*, i*ai,E4)6aD*i6*Ofi*i,I`4lI`4n&Di. P i4Ʌ08`4j02i( L  * Oi(i0  `ʻ(  Q \FL$INIT  665<F i((ũ(2 gGI55٠5i4Ʌɩ4 '*(f EOI`5`5OI`5 R0 ɩ6`REST$T 66*(Oi( R f E ( T ( L `DATE$  d  /76h8I!.A,`7*/*.<6C.<6C06A <#`i(7`77`7).7`=6'0(0GH[TIME$  :77h8I!.A,`7*/*i()27`7)47`7)67`=7'0(0GH[REWRT$ 8t  8*(Oi(`8 R i(( T i( f E( T `CLS$ ,*88x.i(`8( P\ (f,ɧ8 U f*ɧ8 & ` |129* |1`a29* ? ?m  CD[-mqp00A : 'J)#ȂG:l(09(H E`9F  #` m@  @ p@ bA@AI:mqm::lFEmGHmr:899@DDE      ba [[BCEEF[A:I1܀ ܱ@[>K-+09A/*m `;$ѱ * ;;@m  @"   *@* **@  ;* ;EF HIm  4;;);: ; +М+ 88GB : b@B@ABE F ABI@  0$.( :61 <<<< `p܀4 ܴ1 `CܱC@./*(ځ//jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄ  A9`==`=F%00څڅj ʁ* J!B >TC>0>0A>R1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[??">jY* *   ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[m* "ròAC*?* ā*/ *p  *xJ!ʁp*v@@F@ @0jd @@FI`@*v*pʪhj@@@ @t@@@ @ڻb*zʐnʪpf/`*a ; K/r[\E@`8E@`9`9*E@ @`9H@EA @`  9EA& @`:*FA2 A:`;@AA"AFAREAJ A:`;\EAV A:`;EAb Aj`"`>0  A`>TEA A`> E`?`?FB B `?A~B B,AEEB$ BD`?EB0 BD`@JEB< BD  `@`:`SYSTEMp      `AArAHALT$ FBF (ʠF*(  ``~ʠFF(  ( B , B i(* A B,,i(* A^GET$PARM8..4  * 0GFD"8ԠFʂ(  bAAI!>"BĠF @ؠFؠF"FؠF""`F4`FF A ɠF  A.), F `F4`FF A ɠF A.), F `~HEAP$TERGG.  (O,*  i(F* [G**`CREAT$ .>0IFG:* * H G )* UJ ߡD6,H &  H)6  H). G ),a0^),T  D2 )2,)0D"i($(`H *,i0.D006C2)0)(0i0)6D  D8F8 )0$D),&.D2c&),`EXTND$ I|IN*ʩ((ʠIV* R (`SET$ACNM,J"I2)(d *Г S B"e,ɧI & *Г B. .ɬI. & i,*0S1F0 *  `C MEMORY PARITY ILLEGAL OPCODE ILLEGAL TILINE ADDRESSILLEGAL SUPERVISOR CALLADDRESSING ERRORPRIVILEGED INSTRUCTION TASK KILLEDTASK ERROR #?1STACK OVERFLOW HALT CALLED HEAP FULL DIVIDE BY ZERO&INVALID PACKET POINTER'INVALID LENGTH OF PACKE  T2CANNOT GET MEMORY3ERROR CODE = P4015ERROR CODE = P4038TCA ACCESS ERROR7"CASE" ALTERNATIVE ERROR\ STATEMENT ?1 ALTERNATIVE ?2*FILE ?1 LUNO #?2 NOT ASSIGNED1 CANNOT LOAD OVERLAY, STATUS = ?1C#DYNAMIC ARRAY SIZE OUT OF RANGE6ESCAPE-FROM-ROUTINE ERROR7INVALID R  ELEASE POINTEROVERFLOW\ STATEMENT ?1&PRECISION CHECK FAILURE\ STATEMENT ?1 "ASSERT" FAILED\ AT STATEMENT ?1FATAL COMPILATION ERRORS IN ?1ENX$T 0 NvL`M6i. ),M U2,`Nn8,=): D `M i%0)8  @8),i8*i*8  i8 I%?1 *** ?;\ CLOSE$ 0PPJ*(i(ff E( T i(i(%PT Uf ٠PW`DES$T  QPh>`P8,ba*  i,**i.SRU2O`P8i.)*D2Ci,E* 9 22228Z929=9&{[/> >! `>"à>$>&`  >* `2 >*`D73`$73 `$`%$73 3 `%B373H 3 `%73T 3 `&$8.3` 3h`'33D3P3t383x 3h`'V73 3h`'73 3`(4$44(4  73 3`)<3 .S$FTLF007+73 3 `)4$4(773 3`*`**  3`*N74 4`* 7`+`+8.40 48`+34N4Z4784R 4r`+74^ 4r`,D74j 4r`,`:`SYSTEMp      `333  8T=8N==C9  9b9`9b=>P>*99b99J-<        8T8T>t=>=99/9=>f?PefvfP 8T8N8N P$MAIN >z>f(PREPROCEPREOUT >PPREIN >`INPUT > TRUEFALS0  UNEXPECTED END OF FILE>UNEXPECTED END OF FILE>NO INPUT FILE ? NO INPUT FILE ?$ ERRORS ENCOUNTERED ?4B4>2ʉ(>(> (*2ʠ>4  ʉ(>(> (*2ʠ>4  ʉ(>(> (*ʠ>2ʠ>4  ʩ(ʉ*>*, f ʩ( f ʩ(ʉ*  >*ʠ>, f `>`>ʩ0 g8 ê(`A)ʠ>(ʠ>*   ʩ@(ʠ>*ʠ>,ʠ?.`APÉ۠>ʉ(>(ʉ*>* D ʩ( -n ө  ʩ(ʉ*>*ʩ, g` PÉ۠>ʩ(ʉ*>* g  ;i.  >Ï  `> Z`> `>`>`>`>`>`>`>`>`>`>`>J`> `> J`> `> `>`>ʉ(>( LR ʠ? (ʠ?"*   ʩ@(ʠ?"*ʠ?",ʠ?2.  ʩ@( v  h  ʠ?H(ʠ?J*   ʠ>(( h ʉ(>(   ʉ(>( ʉ(>( `2ECHO nv 7,.4@ PREPROC 1.8.0 83.357B~ PASCAL PREPROCESSOR B  PREIN Bl SOURCE = BOBJECT B OBJECT = BOUTPUT B LISTING = BSYSMSG C MESSAGE = C$P1P MEM1 = C"$P2 MEM2 = C0$P3 MEM3 = C> PRINT WIDTH = CJ   NUMBER OF LINES/PAGE = C` OPTIONS = Cz02(* NO OPTIONS SPECIFIED *)C(* NO OPTIONS SPECIFIED *)C OPTIONS EXPANDED TO GREATER THAN 50 CHARACTERS, ABORTC6 OPTIONS EXPANDED TO GREATER THAN 50 CHARACTERS, ABORTD8"PREPROC 83.357D@ NO PREPROCESSOR REQUESTEDDPPREPROCE SUPPRESS  PREPROCESSOR LINES = DvYES DNODLB`vʉ(Bj( i  ʉ(Bl( i 7IN`Bo4`Bq4ʯ@(  J-(I`BrI`Bti*I`BvI`BxO`Bz N ʯ@( -n ʯ@(ʠB|*ʠB|,ʠB.  ʯ@(ʠB*ʠB,ʠB. J-(o@`B`BI`Bj J-(o@`B`BI`Bl  ʯ@( v ʯ@( B ((ʉ0B0 0| ʯ@(ʠB*ʠB,ʠB.  il]N ilNѝ /@pʯ@( v ʉ(B( @ B ((ʉ0B0 0| ʯ@(ʠB*ʠB,ʠB.  il]N ilNѝ /@pʯ@( v ʉ(B( @  B ((ʉ0B0 0| ʯ@(ʠB*ʠB,ʠC.  il]N ilNѝ /@pʯ@( v ʉ(B( @ C ((ʉ0B0 0| ʯ@(ʠB*ʠB,ʠC.  il]N ilNѝ /@pʯ@( v ʉ(B( @ `C`CC!I  -ʍ(O-ʍ*  ʯ@(ʠB*ʠB,ʠC*.  oN ONѭ /@pʯ@( v `C,`C.C!I-ʍ(O-ʍ*  ʯ@(ʠB*ʠB,ʠC8.  oN ONѭ /@pʯ@( v `C:`C<C!I-ʍ(O-ʍ*  ʯ@  (ʠB*ʠB,ʠCF.  oN ONѭ /@pʯ@( v ʯ@(ʠCH*ʠCH,ʠCZ.  ʯ@(ʠC\*ʩ,,  ʯ@( v ʯ@(ʠC^*ʠC^,ʠCx.  ʯ@(ʠC\*ʩ.,  ʯ@( v ʯ@(ʠB*ʠB,ʠC.  i4 8R =,`C\0i4NdI  Nѭ4 /@pJ-(i(`C\I`CI`C`C F j< ʯ@(ʠC*ʠC,ʠC.  J-(i(`C}I`CI`C`C `C # ʠC(ʠC*   ʯ@(ʠC*ʠC,ʠD6.  ʯ@( v  h ʯ@( v `D8J-(i(`C\I`D:I`C`C `D< j< J-(i(`D>}I`D:I`C`C  `DN # ʯ@(ʠC*ʠC,ʠDj.  ʯ@( v Dl (( j ʯ@(ʠDt*ʠDt,ʠD.  i* ʯ@(ʠD*ʠD,ʠD.ʯ@(ʠBh*ʠBh,ʠD.  ʯ@( v ʯ@( v `$SCAN " ISE,SYNTAX ERRORL END OF FILE WITH OPEN IFL0NLv0.  , 9o&ÆLo ?`MJʯ(ʏ*L*`Mo M*C P 1.ʯ(ʏ*L*ʯ, g`)*Lʩ(( WX{ʯ(ʏ*L*ʯ, g` .h)*LB Yz>)*Lo L.2 \..ʉ(L( ]#).! ^   ʠL*(ʠL,*   ʯ@(ʠL,*ʠL,,ʠL*.  ʯ@( v ʯ(ʏ*L*ʯ, g` ʯ(ʏ*L.*ʯ, g` ,S)(= 9o&L$ ^ ʠLH(ʠLJ*   ʯ@(ʠLJ*ʠLJ,ʠLH.  ʯ@( v / 9o//`LL,i(ʝ(ʏ*L.* g   ,`Lt`$ @0 3@"4ĠN 3  3\i(qE  Ei, i. & Vi*Fi2E a@/@@E/@/COPYFILE,COPYIN OjPSYNTAX ERROROv HIPATHNAME TOO LONG ON COPY STATEMENT O# NESTED C  OPY STACK OVERFLOWONESTED COPY STACK OVERFLOWOeNESTING STACK OVERFLOWONESTING STACK OVERFLOWP1 LINE NUMBER COPY FILE PATHNAME P*B 2LN( UNEXPECTED END OF FILE, FILE=Pv NO INPUT FILE, FILE = PVO^l(Rʉ(Oh(Or (*2ʠOt  4  o O o Po Y2 ^ ʠO(ʠO*   ʯ@(ʠO*ʠO,ʠO.  ʯ@( v Iʯ(ʏ*O*ʯ, g`J`O()(O Oi(ѭ  ()(O4 ^ ʠO(ʠO*   ʯ@(ʠO*ʠO,ʠO.  ʯ@( v `Vʯ(ʏ*O*ʯ,   g`p*)(O)Oi(ѭ   Oi(ѭ ;Oi(ѭ "*Oi*(fB(i* BOuO-Bʍ(O-ʍ*  o 2oB 2" ^ ʠO(ʠO*   ʯ@(ʠO*ʠO,ʠO.  ʯ@( v`U/O$ ^ ʠO(ʠO*   ʯ@(ʠO*ʠO,ʠO  .  ʯ@( v  h /O&/ ^ ʠP (ʠP *   ʯ@(ʠP *ʠP ,ʠP$.  ʯ@( v  h  9o&ÆǠP&ˠP&ʯ@(ʠP(*ʠP(,ʠP\.  ʯ@( v o.ʉ(Oh(ʏ*P^* lb oB M*MPNPONmBi*Í25  ON`Paʉ(Oh(ʏ*Ph* lb o M*MPNPONmi*Í2ON`Paʯ@(ʠPb* 9oʦ,ʦ. m  ʯ@(o ʍ*ʠP`, m J-(o@`Pd}O`Pf  ʯ@( v ʩ,(ʉ*Pj*, f ʩ,( f ʩ,(ʉ*Pj*ʠP&, f ʩ,0   g8 j(A),%ʯ(ʏ*O*ʯ, g` ʩ,(ʏ*Pl* g ʉ(Oh( LR |`P&NJ-(O`Pn`Pp}I`PrI`Pt`Ot`P`P&NJ-(O`Pn`P}I`PrI`Pt`Ot`P # J-(O`Pn`Pd}I`PrI`Pt`OtO`Pf  ^ ʏ(Pn(ʠOt*   J-(o@`Ot}O`Pn    ʯ@( v ʯ(ʏ*O*ʯ, g` //ʉ(Oh(  `l  @ v &P & W@& g` ( WB g  8( LR( ^ WPʠWR*   &@  WR4 WP  @ v  & W@& g` `6SETVALUEGHSYNTAX ERRORY .(, NAME TABLE OVERFLOWY  VALUE TABLE OVERFLOW Y: VALUE TABLE OVERFLOW YT 0\ X d2f E&f T `Y()(Y Fi(%  ()(Y Fi(% =`[  i(*OI`YI`YI`Y ab .`[&Y ^ Y4ʠY6*   Of@`Y6u`Y4  @ v  h &Y8 ^ YPʠYR*   Of@`YRu`Yj  @ v  h i*(f F 7GI`Yl G Ff)(d()(YFi(% = Fi(%  &Y  Ff`Yo)(Y Fi(% =()(Y ^ YʠY*   Of@`Yu`Y  @ vU&Yp(OI`YrI`Y _ i, F0 Y`Yt G 9 ^ Y4ʠY6*   Of@`Y6u`Y4  @ v  h ^ YʠY*   Of@`Yu`Y  @ v  `6SWITCHSKNO IF BEFORE ELSE \0NO IF BEFORE ELSE \FELSE FOLLOWING ELSE \Z'ELSE FOLLOWING ELSE FIRST ELSE ON LINE \tSYNTAX ERROR\ ]\$ d( 8$D& SR& EL\. ^ \Bʠ\D*   &@ \D4 \XH\," ^ \nʠ\p*   &@ \r4 \   &@ \.%%  m %`\,Dee  ^ \ʠ\*   &@ \4 \  @ v `6ENDCONDIINVALID IF-ENDIF NESTING]SYNTAX ERROR] ^] d*f NAf D;f I5f F/ 9&F%] ^ ]ʠ]*   Of@`]u  `]%& 9&Feei(`] ^ ]ʠ]*   Of@`]u`]  @ v `6SYNTAX_E"EERROR ON LINE ^P_n^ d(ɠ^@ v Of@`^u`^  Of@`^ 8dd m  @ v Of@`^uF`^  @ v `6EXPRESSIHI  SYNTAX ERROR_ .20MISSING "AND" OR "OR" IN EXPRESSION _#aB_rl(6é(é*_| O^ѭ  é*é*_~O^ӭ "" ^ ʠ_(ʠ_*   ʯ@(ʠ_*ʠ_,ʠ_.  ʯ@( v v,ʉ(_(ʩ** b ʉ(_(ʩ** d )2_z`_, ʉ(_(  ʩ** b )2_ .0N.)2_ .0N.2&. ^ ʠ_(ʠ_*   ʯ@(ʠ_*ʠ_,ʠ_.  ʯ@( v `_,,é(ǩ.`lu .,fLe d`>n KH e>n`>n1>f -n `>n) IF eT-`e,`e-`>`4O>fGI`e lb >f -n `>nO>fGi*ui(  >f   v e>n`6ndr |"P$TERM ffh(,:h a 4,IO$TERM ff.(fE)*,GIf`8REST$S g&f d*(Oi( - f E( /l Oi(f g `6STATU$ gHg*20f(`8WRITE$ .ggL   d0(f i*,Ofi,f I`gV& D  ɩ.Oi(`gXOi(`gZ  `6READ$ P0hg d4i(% DG% g"%* `g0%%% g 0 )0g`g)% D2F2 ġ)*)0g)(   g)( g  `6HALT$ hh(ʠh(  `6P$UC hh*(>4( >4`8DATE$  d/ih8I!.A,`i*/*.=U0:*`j4*i,)*D4D0&i40i,i0E:F:i(F`j7i(i0i36i0)  ,`j26i.i6`8RETRN$  jl$j dH> pP _<>   i@DiBF pl 0$&$jɩ6ɩ6$>`k`6 >*l ` >*) i"é$`6SET$ACNM,llR d2)(d *Г S B"e,ɧl\ @ *Г B. .ɬl\. v i,*0S1F0 *`6WRL$T  20ml d4(f Oi(`m O)(  i( v AfE2&)* m m),). p )0m*  i( v `m0)0mi2Ʌ)()0 f `6WRC$T nRm.)(ʌ(,mʠm*  *,   v  -`6ʠm* f C MEMORY PARITY ILLEGAL OPCODE ILLEGAL TILINE ADDRESSILLEGAL SUPERVISOR CALLADDRESSING ERRORPRIVILEGED INSTRUCTION TASK KILLEDTASK ERROR #?1STACK OVERFLOW HALT CALLED HEAP FULL DIVID  E BY ZERO&INVALID PACKET POINTER'INVALID LENGTH OF PACKET2CANNOT GET MEMORY3ERROR CODE = P4015ERROR CODE = P4038TCA ACCESS ERROR7"CASE" ALTERNATIVE ERROR\ STATEMENT ?1 ALTERNATIVE ?2*FILE ?1 LUNO #?2 NOT ASSIGNED1 CANNOT LOAD OVERLAY, STATUS = ?1$M(E$FA  IL p~p\(ʠpf(  `6ENL$T  - qp dl`pdi,U0`qd2Ef88 )2)4 p p r <\D%08 : )2)4 p p q |2\4)2)4f 8i8 I`p:i*8i8*i,)*D6D03i  6E0ai8E6),EjFji(F`p86i(i6)8  d;)8i0),`pdi.id`6r$$r$A,$$D " (` ɩ,&Oi(`@*),B٠E!i,E**  fi*  )*  ɩ*Oi(`F  `RESUM$ D | "$&(((k"ë$&M |h0l((`??!7  AzB!z[[ 7H (XLA[SVC$ h*i(/TX$ERR  h,i()*   @   `<`WRI$T 0. 2(f Oi(`  M)(  i(  ?fE0&)*  ),  ). *  i(  ` .). i0Ʌ)().  `WRLN$  ^ *(f Offf  F` & D 6 Oi(` Oi(`   `WRS$T  b0)(ʌ(, nʠ l*  *i,B,    B).ʠ l*  ` D@ i(   @ $hH@   R D@@hhP@H @ @@$ *i,B,    B).ʠ l*  ` D@ i( &SHARE2 2f ABEND$ <ʀ(Ƌ  À*` )(`<,:(h  "$&¬,­**ʌ("  f G` .G .,,: )*CLS$ ,*0 d.i(`(  (f,ɧ  f*  ɧ @ `67 [ =[ =[  =[ =[` >*l M"N$ >*)$‰+ 0[DXPSCLRT (C)COPYRIGHT TEXAS INSTRUMENTS INCORPORATED, 1978.,2`  0M"N$Iˉ`< >*$‰ >*[ >*) i"é$ENX$T   0 : d`D6i. ),F U2,`8,=): D `Hi%0)8  @8),i8*i*8  i8 I%<J)8i.)*DD25iE2ai8E).EFi(  F`M8i(i)8  d=)86i2).`B6i0i6`6,[,[GO$ ( d,ɧ  (* ( *   _**  `6GET$RCOR  d0(ɩ*I$f% f% i*`&٠)ɠ"  T ٠+ɩ  ,i.$ T i.f f 5i.f ).`6OPN$FILEPl d4()0III*I)0I)* )0I ٠*II  i, i,ɕ٠( T f ci,ɕ( f٠( T )**ff!`f ;٠( T fEEI٠( T f ).&&&  ٠( T i.٥f2i.)0)2٠  ( T ٠( i.`٠2 i,ɠi,ɕ)2)2ɠ)2& i,ɠi,ɕf)2 ɠɦi,fɦ$`6,  ʌ(  v ,,,[WRI$T 0.x d2(f Oi(` M)(    i( v ?fE0&)*  ), * ).*  i( v `.).i0Ʌ)(). f `6WRS$T  |0)(ʌ(,ʠ*  *i,B,  v  B  ).ʠ* f `6RESUM$  b  >* "$&(((k"ë$&M >*/(`CLOSE$ 0 p d*(i(ff E(   i(i(% z  ٠ }`6SCB$FREE,* *  d.i(f,ɧ  @ i(U*ɧ    @ i(`6FREE$ ef D . d:i(DD0D6`>R8>Ri6  i6 &  &>R`>R8 8  i0E4D,Di0DE6   `>R  :  >\h),>Vi0i,E2 `>P2)2>P)4>P4i2ɥɩ22fi4ɩ4i  (`6INIT$ SYSMSG R ^.FL* EXECUTION BEGINS n,  H dN>f Z (*ʠ \2ʠ \4      `ʠ P*   c>,` dFHJɧ f T )G>-)H>. >b>< >d>>ʼn h . >\ɧ j><>>&ʆ* v * ɧ j @ ʼn j͠><   v ɧ j @ ͠>:͠><ͩ( " ( \>\ʼn hͩL . (4V>*ɥ" x >:FF*FU* (, ** (,ʼn ͠        `60l((`8TERM$ NORMAL TERMINATION 8>,*2e(9-:./)01(Fz  CBPD@STACK USED = HEAP USED = "& B , d(`)(d:% 6)(< C0Ф= B20 `V ' vX Jʠ L*   ``h` 4,)2 N)2$ $` P6 R 44 TZ` \6m)2 ^)2$ )2$)  2$2D6X2)2 b` d6M` f6I2` `6B)2 b` h6:` j66` l622` n6+` p6'` r6` 4 R 44 t V X Z R ` 5> $>De 6i6` ` B %%%  iB) ` B )BC  )BB   $CD0`҈) i )  ` )$Dɬ     ) &H 5$@D4H 6@ v  )   @ v  )   @ v )0 )2 D ' (D iB&H &$  @D4 60 )( 6  (    )4I 6@  ( i(%0a%.D.` ,ɬ ɬ Tɬ V  * ` , T V 8#     .  D(d:` B  Z   )B   $CD`   ` Z`  ʠ 4*   )(:c  )(:  `6SVC$ `F*i(/WRLN$ b d*(f OfffF`l& D  Oi(`nOi(`p  `6IO$ERR  /CC[|)(((   )*`&,F$t;O7 w)*, i* R, T   h    O(  aFՅʀ(ʆ*  `6ENI$T - H dN` Fi,`  @U0|F2EH66)2 >HE%0)6  8)2 >G2H 6)6  "8i*6i6*i,)*D4D03i4E0ai6E4),ELFLi(F`%64i(i4)6  d9)6i0),`Fi.iF`6TX$ERR 2,.  Lv<(*=é*. o 3i*- M0`T,Ê.(ljVǠXϾljZlj\Ϡ^Ǐ` # é,N N2É.2N,ʩ0(ʎ*  `$(,:K[WREOF$   d*i(% ,% &% D٠ T &)(    )(   v `6CLS$FILE d*(٠( T (٠( `67 7777777[FL$INIT 6 d<F i((ũ(2 gGI٠i4Ʌɩ4 '*(f EOI``OI` $ ɩ6`6  `$ʠ(  v( 4Nv, 4Ni(* 4 4Zv,i(* 3GET$PARM8..4* 0vD"8Ԡ ʂ( T bAAI!>"BĠ 3ؠؠ"ؠ">`">a`4` 3 ɠ  3\),    >d`4` 3 ɠ 3\),  >b`$,,:K[HEAP$TER^.  (O,* i(F* [(**`6NEW$ 4b d>* *<*i* `l*`>P0`>PU6`>Pi6E.i. i..i.0`>P0  ffffV6`>Pi6i6 )* `i.ai*E,a >PD6  `>P,i.ai,), >P$>P),d. >P).). >P `>Pi6i.ai,),`n<<`>\i, >V>VD >X >Xi,)(``>P%>P`>P0``>d% E8)*$D:  i8 ): Oi8I`p , 4i8 E8 )8i:8Oi8I`p , 4`>T2i2%>Te2i2i44F2i4%Ņ)4)8$Ʉɠ>Ti8%)2 >P)2 >P >P2 >P>P``>**i(n  `6CREAT$ .>0X    d:* *  . )* -2 ߡD6, v  )6  ). . ),a0^),T  D2 )2,)0D"i($(`*,i0.D006C2)0)(0i0)6DD8F8 )0$D),&  -?1   *** ?;\ 0L(`8PUT$RCOR  x d4(٠٠, i*i,`,f%  f% Ef% `2I%2Ʌɠ ( T f", I%2E*`,`2ɩ*ɩ, 0I( T f ).`6CFILE *?1 ACCESS NAME ?2\ATTEMPT   TO READ PAST EOF,?1 ACCESS NAME ?2\ATTEMPT TO SKIP BEYOND EOM?1 NOT OPENED FOR READING(;?1 ACCESS NAME ?2\OPEN ERROR - ELEMENT SIZE > RECORD LENGTH)?1 NOT OPENED FOR WRITING-*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3.*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3/*?1 ACCESS   NAME ?2\READ ERROR - STATUS = ?30+?1 ACCESS NAME ?2\WRITE ERROR - STATUS = ?39C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICT:C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICTCTEXT FILE I/O ERROR: SPARAMETER OUT OF RANGE NAME=?1TFIELD   WIDTH TOO LARGE NAME=?1UINCOMPLETE DATA NAME=?1V#INVALID CHARACTER IN FIELD NAME=?1WVALUE TOO LARGE NAME=?1XREAD PAST END OF FILE NAME=?1Y"FIELD EXCEEDS RECORD SIZE NAME=?1ENS$T  $z#>`#6i.UTU2Q,NMi*,i,*i.)*D8D27i  8E2ai,E8).EK-+09A/*m `'ѱ * &&@m    @"  *@* **@  '* &EF HIm  4&&)&& & +М+ 88GB & b@B@AB  E F ABI@0$.( :61 (((( `p܀4 ܴ1 `CܱC@./*(ځ//jB/j **"/*$P  Rʁ A?ʁ C*  &*BFʃ*ڄA9`)=`)F%00څڅj ʁ* J!B *NC****A*L1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[++*jY*   *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[m* "ròAC*+*  ā*/ *p *xJ!ʁp*v,,@, ,*jd ,,@I`@*v*pʪhj,,, ,n@,, @ڻb*zʐnʪpf/`*a ; K/r[\GET$MEM 06-0,$ ,,h(! Q./,  (-  ,,./,*ĉ A`(--J - ʀ(  REWRT$ --^ d*(Oi(`-h - i(( /l i( f E(   `6OPEN$ 0.,/V- d2i(% (  `/V% ('   (* / % 0e 0%)* - -   i.e 0* *`-+`-')(   `-٠- T %- *`-`-`-e,e 0&,ɧ- @ i0 % De 0e 0 -)0 v   i,% D`6REWND$ //Z d*i(%#f% f% E٠/e T f Oi(  i(`/g`6SET$NAME//2(ʯ('* (* 0 `6S$NAME 860T/ d:(f8ɧ0 @ '*ʉ00 0 0| (ɩ6`6MAP$  O8$TIP.160X dIF%'  F4e'i4 E`0c8OI`0dI`0f  i8=`0cOI`0fI`0d i ' (8 i8 E60Eʅ* v i6؊F`6i0IF%8)40h`0j4`0h4i4 E8`0m9`0o:`0q;`  0s<`0u=i4%E؊FIFe'=Ii4`>`7Ii4`>a8`0cOI`0fI`0d  ii  j`0v4i4 Ei4؊F IFe<i E40i4ʅ* v i4؊F`16i0IF% DЄ(@( @@  ( H@@R$  "I BB IB$$@"D@ 4(@H D$$BH (@ Q@@R B  $@Q-%AE@@B@@RI%  BD@R$ H$@BP$R hH?h@  @h  JJ@AA  R$HD  %%*h$@@   A  @ )! 4 (@ А !AP @   $ @( A@P"@h !H ! R@ @@I$HJ P @ 'OVLY1 I$` h8l 8(( Y I** 8('*(  8(4GI I**)( 3D, 6 B(`72COL J.ASSERTS J>CKINDEX JLCKOVER JZCKPTR JhCKPREC Jv CKSET J CKSUB J CKTAG J FORINDEX J  LIST JLISTCIL JLISTOBJ JPAGE JROUND JWARNINGS K SIDEFFECTSK!990/12 K#LOCALS K,$SPEEDOPT K:"INITCOMMONKH GLOBALOPT KVGLOBALS KdMAP KrNULLBODY KOBJECT KOPTIMIZE KPROBER KPROBES KTRACEBACK KUNSAFEOP  T K370 K990 K980 KSTANDARD LWIDELIST L L$&%Rb(*(ʠJ,(J8 (*ʠJ:4ʠJ,6 I ʠJ<(JH (*ʠJ:4ʠJ,6 I ʠJJ(JV (*ʠJ:46 I ʠJX(Jd (*ʠJ:46 I ʠJf(Jr (*ʠJ:46 I   ʠJt(J (*ʠJ:46 I ʠJ(J (*ʠJ:46 I ʠJ(J (*ʠJ:46 I ʠJ(J (*ʠJ:46 I ʠJ(J (*ʠJ:46 I ʠJ(J (*ʠJ:4ʠJ,6 I ʠJ(J (*ʠJ:4ʠJ,6 I ʠJ(J (*ʠJ:46   I ʠJ(J (*ʠJ:46 I ʠJ(J (*ʠJ:4ʠJ,6 I ʠK(K (*ʠJ:4ʠJ,6 I ʠK(K (*ʠJ,46 I ʠK(K( (*ʠJ,46 I ʠK*(K6 (*ʠJ,46 I ʠK8(KD (*ʠJ,46 I ʠKF(KR (*ʠJ,4  6 I ʠKT(K` (*ʠJ,46 I ʠKb(Kn (*ʠJ,46 I ʠKp(K| (*ʠJ,46 I ʠK~(K (*ʠJ,46 I ʠK(K (*ʠJ,4ʠJ,6 I ʠK(K (*ʠJ,4ʠJ,6 I ʠK(K (*ʠJ,46 I ʠK(K (*ʠ  J,46 I ʠK(K (*ʠJ,4ʠJ,6 I ʠK(K (*ʠJ,46 I (K (*46 I ʠJ:(K (*4ʠJ,6 I ʠK(L (*46 I ʠL(L (*46 I ʠL(L (*46 I ʠL"(L. (*ʠJ,46   I ʠL0(L. (*ʠJ,46 I ʠL2(L. (*ʠJ,46 I  rʠJ,(ʠJ,* 4v ʠJ:(ʠJ,* ʠJ<(ʠJ,* ʠJ(ʠJ,* ʠJ(ʠJ,* ʠK(ʠJ,* ʠK(ʠJ,* ʠK(ʠJ,* ʠJ(ʠJ,* ʠK(ʠJ,* `< h( ɠRf ɠRh ɠRj ɠRl ɠ  Rl ɠRl ɠRl ɠRl ɠRl ɠRl ɠRn ɠRn ɠRn ɠRp ɠRp ɠRp ɠRp `DO RIF RIN S 3OF S OR S&7TO S4 UB SB*AND SR/BIN S`(DIV Sn+END S| FOR SHEX S)MOD S,NIL  S$NOT S8SET SVAR SU(l(tvRʠR24 ] SʠS2ʠS4 ] SʠS24 ] S"ʠS$24 ] S0ʠS224 ] S>ʠS@24 ] SLʠSN2ʠSP4 ] ɥ(xS\ʠS^24   ] SjʠSN2ʠSl4 ] SxʠSz24 ] SʠS24 ] SʠS2ʠSN4 ] SʠSN2ʠS4 ] SʠS24 ] SʠS24 ] SʠS24 ] SʠS2ʠS@4 ] SʠS2ʠS4 ] ɥ(z`CA  SE UCHAR V ELSE VFILE V(GOTO V8REAL VFTEXT VTTHEN Vb TRUE Vp&TYPE V~UNIV V+WITH V!ARRAY V BEGIN VCOBOL V"CONST VFALSE V#FIXED VINPUT V9LABEL W UNTIL   WWHILE W$ Y(lVʠV2ʠV4 ] VʠV2ʠV4 ] V$ʠV&24 ] V2ʠV42ʠV64 ] VBʠV2ʠVD4 ] VPʠV2ʠVR4 ] V^ʠV2ʠV`4 ] VlʠVn24 ] VzʠV|24 ]  VʠV2ʠV&4 ] VʠV2ʠV4 ] VʠV2ʠV4 ] ɥ(|VʠV42ʠV4 ] VʠV2ʠV4 ] VʠV2ʠV4 ] VʠV2ʠV4 ] VʠV24 ] VʠV2ʠV4 ] WʠW24 ] W  ʠV2ʠV4 ] W ʠW"24 ] W.ʠV2ʠW04 ] ɥ(~`ACCESS YASSERT YCOMMON YDOWNTO YESCAPE YEXTERN Y#OUTPUT Z9PACKED Z PASCAL Z&&RANDOM Z4RECORD ZB REPEAT ZPBOOLEAN Z^DECIMAL Zn  FORTRAN Z|$FORWARD Z%INTEGER ZLONGINT ZPROGRAM ZEXTERNAL ZFUNCTION ZOTHERWISE Z PROCEDURE ZREENTRANT Z'](lYʠY2ʠY4 ] YʠY2ʠY4 ] YʠY2ʠY4 ] YʠY24 ] YʠY2ʠY4 ]   ZʠZ2ʠZ4 ] ZʠZ24 ] Z ʠZ"2ʠZ$4 ] Z0ʠZ2ʠZ24 ] Z>ʠZ"2ʠZ@4 ] ZLʠZ"2ʠZN4 ] ZZʠY2ʠZ\4 ] ɥ(ZhʠZj2ʠZl4 ] ZxʠZj2ʠZz4 ] ZʠZ2ʠZ4 ]  ZʠZ2ʠZ4 ] ZʠZj2ʠZ4 ] ZʠZj2ʠZ4 ] ZʠY2ʠY4 ] ɥ(ZʠZ2ʠZ4 ] ZʠY2ʠZ"4 ] ɥ(ZʠZ24 ] ZʠY2ʠZ4 ] ZʠZ2ʠ[4 ] ɥ(`h6l   8('((&( )2&( )4l(`^4(* S  W6  [ `<^8`^B^L ^V `^`^j `^t @^~ `^`^@^J^ ^@ ^^h0^@( t^J( |  ' t ^T ,(:?\'(( ' ^^ ,(:?\'(( ^h( ' ^r ,(:?\'(( ^|( ^( ^( ɠ^ ɠ^ ɠ^ ^( ' ^ ,(:?\'(( ^( ' ( ^(  ' ^ ,(:?\'(( ^( ,(:?\'(( `h,l( ##))(  E `t)*( ( X`v(`@ 0@@ @`@@ `<>6<=4>=1:=::(..)..(*;cb(  *K``N Oo09 N O[````AZ N O[````[`$`$[`*`*[`"`"K`2`2K`6`6K`0`0K`:`:K`V`VK`T`TK`X`XK`\`\K`8`8K``K`R`RK`P`P  K`4`4K`,a,K`.a.K`ZaZK` a K`aK`a K`aK`a K`aK``a(ʠa(ʠa* `z ʠa(ʠa* ʠa(ʠa* ʠa(ʠa* ʠa (ʠa"* ʠa$(ʠa&* ʠa((ʠa** ʠa,(ʠa.* ʠa0(ʠa2* `<6c82  '((ʉ(cf(ʩ4* & `ABS c CHR cCOLUMN cDEC cEOF cEOLN cFIX cFLOAT dLINT dLOCATION dLROUND d*LTRUNC d6ODD dBORD dNPRED dZROUND dfSIZE drSQR d~STATUS dSUCC   dTRUNC dUB dARCTAN dCOS dEXP dLN dSIN dSQRT dh(cʠc2ʠc4 cl cʠc2ʠc4 cl cʠc2ʠc4 cl cʠc2ʠc4 cl cʠc2ʠc4 cl cʠc2ʠc4 cl d  ʠc2ʠc4 cl d ʠd2ʠc4 cl dʠc2ʠc4 cl d&ʠd(2ʠc4 cl d4ʠc2ʠc4 cl d@ʠc2ʠc4 cl dLʠc2ʠc4 cl dXʠc2ʠc4 cl ddʠc2ʠc4 cl dpʠd2ʠc4 cl d|ʠc  2ʠc4 cl dʠc2ʠc4 cl dʠc2ʠc4 cl dʠc2ʠc4 cl dʠd2ʠc4 cl dʠd2ʠc4 cl dʠc2ʠc4 cl dʠc2ʠc4 cl dʠc2ʠc4 cl dʠd2ʠc4 cl dʠc2ʠc4   cl eʠc2ʠc4 cl `CLOSE h" DATE h2DECODE h@DISPOSE hNENCODE h\EXTEND hhHALT htIOTERM hMESSAGE hNEW hPACK hPAGE hREAD hREADLN hRESET hREWRITE hSETLUNO hSETMEMBER h SETNAME iSKIPFILE  S iSSKIPRECORDi" TIME i0UNPACK i2ʠh04 cl hJʠhL2ʠh04 cl hXʠhZ2ʠh04 cl hfʠhL2ʠh04 cl hrʠhL2ʠh04 cl h~ʠh>2ʠh04  cl hʠhL2ʠh04 cl hʠhZ2ʠh04 cl hʠh2ʠh04 cl hʠh>2ʠh04 cl hʠh>2ʠh04 cl hʠh>2ʠh04 cl hʠhL2ʠh04 cl hʠh.2ʠh04 cl hʠhZ2ʠh04 cl hʠhZ2ʠh04 cl i  ʠi2ʠh04 cl iʠhZ2ʠh04 cl iʠi2ʠh04 cl ٠i!i,ʠi.2ʠh04 cl i:ʠh>2ʠh04 cl iFʠhL2ʠh04 cl iRʠh.2ʠh04 cl i^ʠi`2ʠh04 cl ilʠhZ2ʠh04 cl `*UNDEFINEDl^ l< OUTPUT  lrINPUT lm&((lh(ljʏ(ll( ! ï lKlnlpï ll| ((ʠl~2ʠl4 cl l ((ʠl2ʠl4 cl  e  ir `< dHm* F D Rt  ^  ^  a8 /`|m*m,  L8  h=N O  ʏ(m.(ʠm0* <  f O- F l m2m4 j / H J`~ @ @ @ A IBHRI B$(I B$(I I!I$(I BHRI B$(I B$(I BHRI B!$I!HA$(I B $$H"D $I$I @ @ (II% (IBJRA(II% (II%$$  % )$ @ A RJRII%$PRIIJI)$%$$A @ A RJI(II%$$JI)$RII%$RII%$JH% )$@I$!B !BB (PI! (B@P  !$I$I$I$I$I$I$I$H"D@H     A%$RII%$RII%$RII%$RII%$RII%$RI  I%$RII A  @@JI)$JI)$JI)$JI)$JI)$II%$RII%$!BB@$$I!"$ JI)$RII%$RII%$JH% )$@I$!B !BB (PI! (B@P  !$I$I$I$I$I$I$I$H"D@H     A%$RII%$RII%$RII%$RII%$RII%$RI 'OVLY2 I)  ,<$*J. 0h &I I' (* ! &Ik I I I #. i,((( 7 )(I I I( q )(d( J ' 0ʉ2I2 d  K> ,,_( 3 i(e,(%D?ʄ* X i*, :  I`K20J 4 &J )J' ( ,(:?\'( (* ! &J ) `K(K6 4 &K6 ) K8' (* ! &K6 ) ` K K+2.< 0,(6eK  @KPB*, KK' K ,::?\': (* ! K 4 &K`P~ ) &K`Px, : K' (* ! , :!, : K' (* ! &K`P^ )`P|&K&KZ&  K&K 0h  K)* K #.  J ' ʠK0ʉ2K2 d ,i2*),)22i2E4%D? dI`KDi.I`K`Ke2i4,`O&K&K`OĈ&KD8 0h ɧK ! 0 2 &KCi0 "  dI`KD8I`K`  KI`K`K)* K 6 6,i0*),)0i0,f l0K   ) K' (* ! &KCj&K&K 0h ' ʉ0K0 l & hKK   h&K&KK' (* ! &KK 4 0h &K&K&  KK 4 &K ) K' (* ! 8" J ' ʉ0K0 lK   ) '  6l &K 0h.' K ,::@ ,::K' (* ! K 4 &K ) ' K ,::?\ ,::`L`  LzK' (* ! ) K 4 )()*` 0(eP20wz PP# SBO PSBZ PUUUTXTT$-'*P&>TFVR<ì F/P`P,`P,o " 0h ./ rP r9/ rO% o o o `P./  P`RʠP(*ʉ,P, 5H (*&i(% d `P**i(%   i(%  ʠP(  *ʉ(P(ʩ,* & ʩ(( q i()0)(  ʠP(  ʉ(P( ! * i(%PʠP(   ) $ʠP(' P ,4:  ?\'4 (* ! ʉ(P( ! **ʩ(( 2ʩ(( 3 *$ʉ(P( K i(i2),P7 J ' ((ʉ0P0 l#/P /PʠP( /PʠP(ʠP(  P (( 6l P K> P P%;ʯ $(ʠP*ʯ ", &  (V ˄4?ˠQ4ʯ $(ʠQ*ʮ4, &  n44M4`UVM / $(/PzV t $m4U54d 'PXV% TYV% BRV% $ V%rV%rV%r Prr P 6r P *,V% C%  R% SV% TV% LV% DP*ʠP(  /PʠP(  ʯ(ʯ* 3L /P$ ) /P 0h /P Q& 0h ʠP(ʠQ* 3L ) ʠP( 4 . 0 /P )xʠP(' (* !j/ jP9/   rO% H. f  IPPf % ʯ $(ʠP*ʠQ, ʯ $(ʠP*ʠQ , @ ʯ $(  i(`Pʩ((  ʠP( 4 . 0 /P ) ʠP(' (* ! `f* @|V(< XXD)-XXW6X)-W:?\'>(6&[ )  ,4:&[ ['6 (* ! &[&[`]``X[2ɤ[ #. i200 0 7 0c0  [ 4 &[ ) ['6 (* ! '(0ʉ2[2 d B22B22)2)0I [ [i2Bd2&[ [ 4 &[ ) [ [ 4 [  `\f 0h &[&[l / &[W&[[  ɧ[ !  2 2 2 7 B22 B22ɤ[ 6 << [  i2B2H[[ ) [ 4  ) '6ʉ0[0 l ['6 (* ! [ 4 &[ ) ['6 (* ! &[``@ )'6  &  [  0h '6  &[ 0h , :[ 4 &[ ) ['6 (* ! [ 4 &[ ) ['6 (* ! '( [ ,>:?\'> [ [ 4 &[ ) ['6 (* ! &[ [ 4 &[ )   [ [ 4 [  , :`^`(@`j `va4l*`\ 4 &`^S `` `b & & h)()*)(* ) &`d&`f`h'6 `r ,,:?\', (* ! &`^&`f `t'6 (*   ! &`^ h( 2 `f 4 &`f )`b'6 `~ ,,:?\', (* ! `a(l0%a '6ʦ20 l YX `a* b(dbbcd2la 4 %a )a'6   a ,*:?\'* (* ! >" 'b X%a%a!bʠb*ʉ,b, 5H )( `d( 2  )`d 0h b 4 %b )b'6 b ,*:?\'* (* ! %abʠb*ʉ,b, 5H ( 2  )b'( b ,  *:?\'* (* ! &>b%b  0h '6  b 4 %bb'6 (* !%bɠb@ 0h'6  `d (<g9 d< dNd\C @dj gijXjRTì2>  '(( ,D:?\'D( ,L:?\'L d" ,D:?\'D (6, :ʠd$('6 (* ! , :`j, : a`j҈/d&$/d4/d6`fƈ/d$F4 ) , +`gf`g0ʠd((    0h /d*Vʠd,(*ʩ2, 5H 2 ʯ (ʩ2* 6 2ʩ2( ! 2Vo K`d.`d0V2 2ʖ( 2 2V 2ť ʠd2(  2 )u'( ((ʩ20 lgˠd8,0ʠd((  /d4 0h ʯ(ʠd6* 3L /d6 )ʠ  d:('6 dD ,D:?\'D (* ! ʠd$( 4 /d$ ) ʠdF('6 (* ! '( ((0ʩ22 d`jʠd$('6 (* ! '`j 'dzX4 ʠdH(ʠd$* 3L @ 0h ʠdJ( 4 /dJ )ʠdL('6 dV ,D:?\'D   (* ! 0`dX>`d8> YX /dZ )/d0ʠd$('6 dd ,D:?\'D (* ! , :%ʠd0( 4 ʠd$( 4 ʠdH(ʠd$* 3L ʠdH(ʠdL* 3L ʠdJ( 4 , :0 @ʠdf(  ʠd0( 4 /d0 )ʠdh(  '6 dD ,D:?\'D (* ! ʠd$( 4 /d$ ) ʠdF('6 (* ! 0'( ((ʩ20 lM'( ((0ʩ22 d=4 ʠdH(ʠd$* 3L 0ʠd((  B 0h '6 dr ,D:?\'D (( [ ʠdt( 4 /dt )K  ʠdv('( (* !=@ 0h ʠd$( 4 /d$ ) ʠdF('6 (* ! 0`dX> YX @ʠdf(  `dx> YXʯ l( 2 `f*<0,k2:l, 0h &j j' (* ! &j`(f **!)*ʩ*0 t   (ɤ (i*(i*(d*(ɧj ! *Hjj** " _.*. X * 2  ) j 4 &j )j' ( ,2:?\'2 (* ! * 7 ' 0ʉ2j2 d *, Xj*, K>   , :`k*j`k@l l l`l*)4mmmmm.mmm o>l'`oh 'lX 0h`o 0h `l,I 0h &lB &l  3  )l'( l ,6:?\'6 (* ! l 4 &  l ) l'( (* ! `o 0h l 4 &l )l'( l ,6:?\'6 (* ! &l  3  )l'( l ,6:?\'6 (* ! l 4 &l )l'( l ,6:?\'6 (* ! `l2&l  &lf2 ) &l)2lf& 3  )l'( l ,6:?\'6 (* ! l 4 &l )Cl'( (* !6&llʠl*ʉ,l, 5H 4)40)0 ) l'( (* ! f l44 2 `  *(< q.l, 0h &o o' (* ! &ojooɤo #. i*,, , 7 ,c, J ' 0ʉ2o2 d ,`o.*!*_, 3 ),d*I o o,C?ʃ* X )( K> , :  o`%A0$&'rB& H & H`r)(0Г B*CE*-ԠГ B._`q ,").q .#).q.#C,).q`q,`q,,(80,C0C20i0424C CpC6C8d  B>6 ##E|  S:c<):)<246 2C,I|> B!i:2i<46B 1B@B!I|  >q  `6# pC6C8HD($  I!DI!DI "B(H@Q*DD)"R@Q"DDDJ$R J$ )(O    A$ @P $$A  "J  "D$H"H"$IIIr:H P Hu I@I IH$I9 :B@  II$IA@) @ @I"@Q(H @ DJRRIJ$P((H Q$)DJ$"R%dTD "@QQ$ @R$>@H@( ($$  "@ RB@(@%"$@% "@@H@$$$$I*@ !$I "A$$I@$$ )"H@H$ I@(I@($H$H(HQ$ (@@@ @IR"B(H@H@B" $ @R ($@PE@A@H@@   D "@QQ$ @R$>@H@( ($$ 'OVLY3 I" JZ.l& jI4<0 c **%* b *b *  c* * *8 jɣ hɥ6 dɥ8 f* > & j8 jɣ `Jb(3K2lJ^ 4 J`'( Jj ,*:?\'* (*ʉ2  Jl2 ^ %J^ )Jn'(( ,*:?\'* (* ! '( X `PK 0@@K89)(N Nl4 2  ) 4 b K(8D2&K*`N  ) &K,`NK* 4 %4 c%4 c  7&K.'K0*ʉ,K2, 5H 0$)0 0 2  ) &K4 0h &K6 0h &K4 '(( ,>:?\'> K@ ,F:?\'F (4<&K,nK, 4 &K,`N )`N'4 X 2!&KJ  0h '4 X &KL  &KNKP 4  0h &K4&K,$KR'4 (* ! &K4 0h, :K4 4 `KF<<&KBɠK.&K. / &K4&K,KDʠKF*ʉ,K2, 5H )0 & H  c KH  0 2  )`LKT'( (*  ! `N$N.N8 NB . 2 QxHl'( N, ,@:?\'@ (8'8 N6 ,@:?\'@ (('8 N@ ,@:?\'@ (0 0h '8 NJ ,@:?\'@ X NL 4 &NL )NN  '8( ,@:?\'@ (* ! ) `P'(  &NR  0h '0  &NT&NVNX'0 (* ! &NT 0h , :NV 4 &NV ) NZ'8 (* ! '8 dt NP 4 &NP ) &NP &  N\ &N^N`  , :`Ov&N\&N^ Nb'8 (* ! , :&NP`Ol&N\0 0h '( dt NP 4 &NP ) &NP &N^N`  , :N^ 4 &N^Nd'( (* ! &N^ ) `   + Q R0l 0h '( dt &Q| Q| 4  ) &Q|!&Q~Q'( (* ! , :Q| 4 , :&Q~Q'( Q ,(:@'( (* ! , :Q~ 4 &Q~Q'(  (* ! &Q~ ) `(<0 kRS~,lR 4 ɧR ! (HRR( 2  ) È& jRC* j8 j#  R)(R   ) R!R  2`8(T:.l 0h &S1SʠS*ʉ,  S, 5H (  f j,D, 8ƈ( "S   ) S'( (* ! f l(( 2 `:*=)(8@TJ?TX>0Tf Tr@VWV4V6UW#$X&&X)*U.88U.99WXX,4l,  ' '@ (0ʠT>8ʉ:T@: X6 *?hTT l 2`X* > b0 Ec TB   ) '@( ,,:?\', 6l%TD >> TF0 %TH >> TH0 )  ) '@ TR ,,:?\', X TR  '@ (0ʠTT8ʉ:T@: X6 *`X,`WTV 4  ) ' T` ,,:?\','@ (0ʠTb8ʉ:T@: X6 *`W%Td`W?hT~T 4  ) '@ Tn ,,:?\', X Tn'@ (0ʠTV8ʉ:T@: X6  *<%Tp 4  ) '@ Tz ,,:?\', X Tz'@ (0ʠT|8ʉ:T@: X6 *Td 4CTd 4  ); / %TTʠT*ʄ,T, 5H '@ KZT'@ (*ʉ2TF2 ^  4 12  ) `XD   ,(:i:`X0)8'( (0 ,<:?\'< (* ! i: ,(:D`X')8/EYRR'( X ,J:?\'J (@>i> I`X0 T /X=/X9i> I0 o Of  ʭ0( 4 )>/  X>i> I`X0ʠX(  >i> Io0 ) é> N Iʭ0( 4 `f(< Y3YY7Y 6\f<l 0h & HY*ʉ,Y, 5H (Y  ɧY ! (HYY&Y )%Y'((  ,,:?\', Y ,4:?\'4 (* ! ( 2 &Y 0h}Y 4 &Y )%Y'(( ,,:?\', Y ,4:?\'4 (* ! '( Y ,,:?\', X  Y  0h*Y'(( ,,:?\', Y   ,4:?\'4 (* ! Y 4 '( Y ,,:?\', X Y 4 &Y ) Y'( (* ! È& jYC* j8 j#  Y)(Y  2`\(l 0h &\j  3  )\l'( (* !    3 `\+ \5^^8l 0h '( \ ,0:?\'0 (('( dt &\ \ 4  ) &\!&\\'( (* ! , :\ 4 , :&\\'( \ ,0:@'0   (* ! , :\ 4 &\ )\'(( ,0:?\'0 (* ! '( X `6i^j ^t ^~ 4a ____`l____a_R(ʠ^b*ʉ,^d, 5H )6 & H  c   ^f  6 2  ) , :i6  A)2%?6   '  '^X^h'* ^r ,B:@'B ^| ,J:?\'J (* ! )2`'* ^ ,@:?\'@ (8 0h '8 X &^  ^ 4 &^ )^'*( ,@:?\'@ (* !`_ 0h &^1i6  ŧ^ c % ^ 6 44 ^  f l4i46 ) ^'*( ,@:?\'@ (* ! f l44 2? 0h f l4&^5&^  ^ʠ^b*ʉ,^, 5H  )^'*( ,@:?\'@ (* ! i464 2`_ 0h a402 <6c> 0h '( a ,6:?\'6 (*/aʠa('* (* ! /aʠa( 4 /a`c )`cʉ  (a( ! ʩ4( 2  / /a`a( )  /aʠa('* (* ! (ʠa( 4 ʠa('* (*ʉ2a2 ^ ʉ(a( c 2ʠa(  / ja& j8 j# ( a)4i4i2I`a`a a)2)4/a 0h`b0/a  ʠa( 4 ʠa(  `b2ʠa('( (* ! 2`ud.(!V*V,,f * c  (,i(f`9d" 4d0 d<dL6eeeeeeeffg,*gr(>o j0`d2/d'ʯ(ʯ  * 3  ) ʠd( 4 /d ) ʠd('( (* ! , :O/d/d  ' @ 'dZX / /d RJ'( d* ,6:?\ ,6:ʠd,(ʠd*ʉ,d., 5H '( (( KZ Jt `g2 0h '( (( X  Q  Nj  ~ S{ Yx \ru 0h '( d8 ,6:?\'6 (( X ʠd:( 4 /d: )ʠd.('( dD ,6:?\'6 (* ! '( dD ,6:?\'6 (( dt /dF / /dH  ) ʠdJ(  /dHA 0h7 \: 0h '( dT ,6:?\  '6 (( X ʠdV( 4 /dV ) ʠdX('( (* ! 2 a 2`d0 j ,(:ʠdn('( (* ! `< <*),} g/ XXXXXXXXXXghn*l,&gv&gx&gxgz 4 &`|ɠg|   % ވ&g|`g~2-$4g+&g % &g`g2`g2&g`g2 &g`g2`g2 % `2(g(4(Š(3 % $4g&g)(g$4gg(4 % $4gNO hPRESUME h'QRWS"U#VjRjZj`Hi   l((> %  g 2'4 h  `h0 g 2ʠh(l'4 h `h00'4(( ;i(' (4 ()(hʠh(7 ;i(n* M.*F D).iʠi( FZ).iVʠi (ʠh(   Jʠi(ʠi(`k`h,!,9o ri.M 5M&   N,0 l: 5i. 6M&   N*i*,).i n0 'i X).h ,ii).h8. i// H [i (* 4v / H  [i ʠh(* 4v /  H [i ʠi"(* 4v é.N =ON , , Bʩ.(ʩ,* 4v  g )2h  )2i")2h*)2i")2hʠi$(  )2i")2h  g )2i&)2h )2i")2h`iB`i4@i6Bi8D('f 'LX<  )>B)D<)>`Ba)DD8<>8B>8DR 2ȃ<Ȅ>4)B)D&R 4 )<)>)B)D ?)B)DL  &R 4 )<)>)B)D ? <<>&R 4:@:Q)2L4J&R 4 L8 L L < )H L)H)(   L L )F'*)H)F L L < )F'2)H)F&R 4)H:`~O@~O').P;t'(( | ,d:?\'d O ,l:?\'l (T'( O ,d:?\'d (\PéP ˠO2RéR >.8ʎ( I   /O'/O#éP n2 Oï   L PéP ˯2 ) RP L éR >i0'8 `; (QQQTQlQQQ4Q0(_ 'PXɩ,ɩ.*P 12LPG* l/i*> 'PX% P P% P   % P  4 2ɥ'(  12 ` 'PX9*( ?S.l ) /Q/QʠQ(' (* ! /Q/Q /Q`S )`SʠQ(ʠQ*ʉ,Q, 5H f0,,** b  ,c aB,c,,@ʉ(Q(ʠQ* < * ʩ*( 7 (*( l)( " (C?I Q0ɩ(0((i(( ) /Q/QʠQ(' (* ! /Q/Q/Q`R@`R$ʠQ(' (* ! `(0  *< 2UUV V UV UUUV U:T&RD 0h /SʠS(' (* ! /S`fʉ(S(ʠS* &  ) /SʠS(' ( | ,<:?\'< (* !  / /S7ʉ(S( ] ' ((ʉ0S0 O )2S`VBʩ(( 2 ʠ  S( 4 '2 (( P `Vri(' `V0 'SXʠS(ʠS*ʉ,S, 5H é* &K`SFnn ʩ(( 2 ʠS( 4 ʩ*( 2V 5 fFnEK`SEAK`S`SK`S`SooK`Sѯ F K`S`  So/ hʩ(( 2 ʠS( 4 ʯ( 12ʠS(   )i(4K`S`SK`S`Si6i8ʩ:( >  V , :`TʠS(`TV(V 4 &V ) V' (* ! &V ) `VWX6  @ 0h ' W ,0:?\'0 W ,8:@'8 ((&W W'( (* ! &W5 3  ) &W 0h&WW'( (* ! &WW 4 &Ẅ&W V , : W' (* ! `  *X(lɦ h & jX:X<   j8 j# & h%(ŧX> ] f d6f f8`. D, 1XXX X*h  `Y`Y <`YY"B ]8ɠXɠX rɦ ɦ    ɦ   X X 3L &X X' (* ! &X ) ɦ h &X  X X &  )X' (* ! ɧX ! . 3 (*&X`]^X   0h  X)( X #. *i,()*),,"&Y. 0h &X&Y0 X'  (* ! &X`],X 4 &X )X' ( ,0:?\'0 (* ! &X Y&`\ 0h`\ 0h  X X 3L &X ) XX (* ! X 4 &X ) XX (* !  3 &X XX (*   ! ) X 4 &X ) XX (* ! &X)( X 6 *X  f l** 2&XX   3  ) X 4 &X ) XY (* ! X 4 &X ) Y Y (* !  X X 3L &X )  YY (* ! Y(' (* ! ,`ZRi,%D? dI`Y*DI`Y`Y,i,*e,Y0 4 &Y0 ) X' (* ! Y. 4 &Y. ) Y2' (* ! ).)(.  X 4 &X )Y4   0  4 `]  ,  (F*8(ş` $ @""@Q%B@! A A AH@ @ @@(B !  @ R @"$T@ DHH$ B@"D @ $$A  @H I!DIA!@ $@R$(A$D  @IE R J D"UPP"PJ@"PQ% Q% *$H $Q$(%R&H A AH@ @ @@(B !  @ R @"$T@ DHH$ B@"D @ $$A  @H I!DIA!@ $@R$(A$D 'OVLY5 I,*  TJ(.ʯ (ʏ*I*ʯ , B 9o jf "](i(ѝ F*ʯ $(ʠI*ʯ, & ʯ $(ʠI*ʩ*, i*,N, i(Nѝ / $ʯ $(ʠI*ʠI, @ ʯ $(  ʯ $( Tb ʯ n( ʯ (  J `<<h(`J`BCREAT$ .>0KJ  :* * J pJ )* p~ ߡD6,J <  J)6  J). pJ ),a0^),T  D2 )2,)0D"i($(`J*,i0.D006C2)0)(0i0)6DD8F8 )0$D),&KD  2c&),`-L K ʀ(  EXTND$ LDL*ʩ((ʠL* X> (`GET$PARM8..4* 0MPLHD"8ԠLTʂ(  bAAI!>"BĠL` jؠLcؠLc"LbؠLc""`LY4`LPL\ k ɠL^   k6), LZ `LY4`LZL\ k ɠL^ k6), LZ `~INIT$ SYSMSG M^ Mj.FL* EXECUTION BEGINSMz,O2MTNʇ(Mf (*ʠMh2ʠMh4 Ur  _  Lh ʠMl(ʠM\*  Mo~`MpFHJʉ(Mr(  )G)H   ʉ(Mt(* pJ ʉ(Mv(/ʏ* < *j`Mx**ïN*ʎ( > ʠ(ʠ*ʩ(, J ( Mhʉ(Mt(ʩL* pJ (6ß|" `j OO*Ï^*M (, ** (,ʉ(M(ʠM*   p  p `~TERM$   NORMAL TERMINATIONOB>,*2e(9-:./)01P2PPPPPPPPQQCBPD@STACK USED = HEAP USED = O"& OTLO6(`S)(d:% O@)(< C0Ф= B20 `Q` 'OXOTʠOV*  `R`Qr`O>,)2OX  )2$ $`OZ6 O\ O>4 O^Z`Of6m)2Oh)2$ )2$)2$2D6X2)2Ol`On6M`Op6I2`Oj6B)2Ol`Or6:`Ot66`Ov622`Ox6+`Oz6'`O|6`O> O\ O>4 O~ O` Ob Od p `O?> $>De 6i6`O`OB   O%%% r iB)O`OB )BC  )BB $CD0`R܈)Oi O) `O)$DɬOO   O) &H 5$@D4HO@@   O) O t @   O) O t   @  )0O)2 D ' (D iB&H &$@D4O@0 )( O@ I ( I  p )4I O@@ Tb O ( i(%0a%.D.`O,ɬOOɬO^ɬO`O  `O, O O O^ O` O8#  O O   .  D(d:`OB O O Od r  O)B  $CD`O `Od`OOʠO>*  )(:c Tb )(:  `CLOSE$ 0TTP*(i(ff E( _ i(i(%TZ U0 ٠T]`CLS$ ,*UT.i(`T  ( Tb (f,ɧT ] f*ɧT p* `CLS$FILEUZU*(٠U)(  (٠U+( `FL$INIT 6V U^<F i((ũ(2 gGIUhUj٠Uki4Ʌɩ4 '*(f EOI`Ul`UjOI`  Ul ^F ɩ6`MAP$ O8$TIP.VVIF%'  F4e'i4 E`V8OI`VI`V _ i8=`VOI`VI`V i ' (8 i8 E60Eʅ* < i6؊F`i0IF%8)4V `V"4`V 4i  4 E8`V%9`V':`V);`V+<`V-=i4%E؊FIFe'=Ii4`7Ii4`8`VOI`VI`V _ ii  j`V.4i4 Ei4؊F IFe<i E40i4ʅ* < i4؊F`Vi0IF%OPEN$ 0.,Y  X2i(% ( Tb `Y% (' (* _> % 0e 0%)* X( X*  Y i.e 0* *`X'+`X-')(   `X.٠X-  %X0 *`X2`X4`X7e,e 0&,  X8 p* i0 % De 0e 0 X8)0 < i,% D`OPN$FILEP\`Y4()0YIYYIYYIYY*Y)0YIY)*Y )0YIYY ٠YY*IY  Yi,IYYIYi, i,ɕ٠Y(  f ci,ɕ( f٠Y(  )*Y*ff!`Yf ;٠Y(  fEEIYY٠Y(  f ).&&&  ٠Y(  i.٥f2i.  )0Y)2Y٠Y(  ٠Y( i.`Y٠Y2 i,ɠYi,ɕ)2Y)2YɠY)2Y&Y i,ɠYi,ɕf)2Y ɠYɦi,fɦ$`REST$T \\d*(Oi( X> f E ( \ ( L `REWND$   ]\*i(%#f% f% E٠\  f Oi(  i(`\`REWRT$ ]]*(Oi(`]( X> i(( \ i( f E( _ `S$NAME 86]]:(f8ɧ] p* '*ʉ0]0 V4 (ɩ6`  SCB$FREE,*^.].i(f,ɧ] p* i(U*ɧ] p* i(`SCB$INIT,&^^22OI`^<`^> < F i,,i(i,^@`SET$ACNM,_,^2)(d *Г S B"e,ɧ^ p* *Г B. .ɬ^.  < i,*0S1F0 *`SET$NAME_d_02(ʯ('* (* ] ``~ʠ_h(  ( l(, l(i(* k l4,i(* kfWREOF$  `J_*i(% ,% &% D٠_   &)( _   )(  `INIT$1 @OUTPUT `Z``N(Ƨ`X`b (*ʠ`d2ʠ`d4 Ur Ƨ`X L$ `s`CFILE *?1 ACCESS NAME ?2\ATTEMPT TO READ PAST EOF,?1 ACCESS NAME ?2\ATTEMPT TO SKIP BEYOND EOM?1 NOT OPENED FOR   READING(;?1 ACCESS NAME ?2\OPEN ERROR - ELEMENT SIZE > RECORD LENGTH)?1 NOT OPENED FOR WRITING-*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3.*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3/*?1 ACCESS NAME ?2\READ ERROR - STATUS = ?30+?1 ACCESS NAME ?2\WRITE ERROR - STATUS = ?39C?1  ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICT:C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICT |12c2 |1`a2c2 ? ?mCD[-mqp00A d  'J)#ȂGdt(09(H E`cN  #` m@  @ p@ bA@AIdmqmddtFEmGHmrd899@DDE      ba [[BCEEF[AeI1܀ ܱ@[>K-+09A/*m `e,ѱ * e e@m  @"  *@* **@  e  * e EF HIm  4e e)e e e +М+ 88GB e b@B@ABE F ABI@0$.( :61 ff  ff `p܀4 ܴ1 `CܱC@./*(ځ//jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`g=`gF%00څڅj ʁ*  J!B h\Ch8h8AhZ1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[ii*hjY* *  ђ ' 6 6  v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[m* "ròAC*i* ā*/ *p *xJ!ʁp*vjjNj j8jd   jjNI`@*v*pʪhjjjj j|@jj @ڻb*zʐnʪpf/`*a ; K/r[\oj`boj`c`c2oj j`cPjok" j`cok. j`d2pk: kB`ejkk*kNkZokR kB`edo  k^ kB`eokj kr`fkklkok~ k`gJk .S$FTLF00o+ok k `gklook k`h*`h8  k`h\ok k`h o`i`ipl  l`ikl(l4kool, lL`jol8 lL`jRolD lL`j`:`SYSTEMp      `kkzk  h,(`HEAP$TERpzp:.  (O,* i(F* [pD**``(ENX$T 0 rp`p6i. ),p U2,`q8,=): D `pi%0)8  @8),i8*i*8  i8 I%?1 *** ?;\ C MEMORY PARITY ILLEGAL OPCODE ILLEGAL TILINE ADDRESSILLEGAL SUPERVISOR CALLADDRESSING ERRORPRIVILEGED INSTRU  CTION TASK KILLEDTASK ERROR #?1STACK OVERFLOW HALT CALLED HEAP FULL DIVIDE BY ZERO&INVALID PACKET POINTER'INVALID LENGTH OF PACKET2CANNOT GET MEMORY3ERROR CODE = P4015ERROR CODE = P4038TCA ACCESS ERROR7"CASE" ALTERNATIVE ERROR\ STATEMENT ?1 ALTERNATIV  E ?2*FILE ?1 LUNO #?2 NOT ASSIGNED1 CANNOT LOAD OVERLAY, STATUS = ?1@@ @  $ 4 %%@JJ P BI$ ؄AI A DH? JAQ $ $@!D H@@HP  H))!I@* !*$@hPЄ hP@4BPB@  $@A!($ D PD 4DH " " "B@P$Dh 4"(D( PA)$"P $R@  @  @ T(kkN:Ԯ]u4@ @ @$B@ @@ @ ' OVLY11 @T`R   PROBES FOR@Z PROBE NUMBER@l LINE NUMBER @~ PROBE KIND@F(* CASE ALTERNATIVE@CASE OTHERWISE@FOR LOOP@FOR END @IF THEN @IF ELSE @REPEAT LOOP @REPEAT ENDAWHILE LOOPA WHILE END ABBBBBBC CC.C@B,l,  &"@T 3B L V @  @V@X@d t @@X@f( 2 @  @@h@j@x t @@z@|@ @@@X@ @  f"&L| L 4   `L3Ť@ 8 L3ɤ@ L3ɤ@ L L @@F & @@z( @@@ 6 *  a 'A$X@@@P@@z@G@@f@>@@@5@@@,@@@#@@|@@@XA @@XA@@TA" t * 3   `A0UTP3D A<@E?E*  (*.,0& |ɠCn & 4 Cp 8 ?% #B , 5B 3D, 58YCrCtYCvCx٠C{YC|C~YCvCxYCCYCCYCCYCCYCC٠C{YCCYCC  YCvCxYCrCtYCCYCrCtYCCYCCYCvCxYCCCCrCCrCCC٠C٠CCCCCCCrCCCCCCCCCC`  0@( "LD  h(ɠEJɠERɠETɠEVɠEXɠEZɠE\ɠE^&"H 1ɠEHɠELɠENɠEPɠE`ɠEbɠEfɠEdɠElɠEnɠEhɠEpɠEtɠEjɠErɠEvf&"H1ɠEHɠELɠENɠEPɠE`ɠEbɠEfɠEdɠElɠEnɠEhɠEpɠEtɠEjɠErɠEv0ɠEHɠ  ELɠENɠEPɠE`ɠEbɠEfɠEdɠElɠEnɠEhɠEpɠEtɠEjɠErɠEv`zjH*OUTPUT GINPUT GH,YGpɦ<YGrGt  4'(YGrGv 8  4'(YGxGzɦF G|   G~ V )*Gɩ*IGG'( G| G~ V )*Gɩ*9  4'(`4 ?68:<D>| @"?"""B?(DFL( H H  f4E`H`H8H&P  8vDY`H`H`H H H  f6E`H`HY`H`H H H  f8E`H`HHG?GY`H`H`H H H  f:E`H`HfvY`H`Hf6I`H`H H H  fE`H`Hfnn  vY`H`HY`H`HY`Hnhɦ>@ H H  f@E`H`HfhY`H`Hn8N&Lɦ>2ɦ@2 H H  f"E`H`HfhY`H`H H H  f"E`H`HfnnvY`H`HY`H`HY`Hnhɦ""ɦ""0 H H   f"E`H`HfhY`H`H H H  f"E`H`HfhY`H`H H H  fBU`I`HƉLP LG?E`IGE`IfrY`H`I I H  fDE`H`HftI`I`I  I H  fFE`H`HflI`I`If8`(0"&>:P   DXPSCL 1.8.0 83.357 TI 990 LPASCAL COMPILER L   L8";!wT7M| UPD\ M$P@#L"ʉ(L(  ʉ(L( v `L>J-(O`L`L}I`LI`L`L`L  J-(O`L`L}I`LI`L`L`L J-(O`L`L  `LI`LI`L`LI`L J-(O`L`L`LI`LI`L`LI`L J-(O`L`L}I`LI`L`L`M ʯ(ʉ*M*,  ʯ(  ʯ0 L j(`Pʯ(ʉ*M*ʠL,  ʯ`(ʉ*M*, ʯ (ʉ*M*, ʯ*(ʉ*M*, ʯ`( V ʯ ( ʯ  *( n ʯ`(ʉ*M*ʠL,  ʯ (ʉ*M*ʠL, ʯ*(ʉ*M*ʠL, ʯ( 4 ʯ( ʯL(  C ʯ#( V  ʏ(M(ʠM*  """ʏ(M(  /"LM "@&@( M @F/N 6M,"  58N =OF ,  # 58 M<& @D/DM1 @DM ʯ@(ʠM*ʠM,ʠM. @DMʯ@(ʠM *ʠM",ʠM*. t ʯ@(  M% M@F@DM,#/|L #r  E  I  G `~x%MAXIMUM NUMBER OF IDENTIFIERS USED = Q UNUS  ED = Q0NO ERRORS IN PROGRAMQ<WARNINGS IN PROGRAM QTNONFATAL ERRORS IN PROGRAMQlFATAL ERRORS IN PROGRAM QS,S:SHSVNUMBER OF ERRORS = QLAST ERROR AT LINE Q ON PAGE Q .TIP.ERRORS Q  *(H: T6R UPC\ RP" WJ#  & " 3B /"ʯ  (ʏ*P*ʯ, : ʯ@(  " 3B /"ʯ@(ʠQ*ʠQ,ʠQ(. t ʯ@(ʠQ**o-ʍ, &  coʯ@(ʠQ,*ʠQ.,ʠQ:. t ʯ@(ʠQ** coʍ, & ʯ@(  0# 'QXʠQP(ʠQR*ʠQh(ʠQj* ʠQ(ʠQ*ʠQ(ʠQ*  0 3  ʯ0(  0`U(" 3B /"# o(o*o,o.(ʯ@(  ʯ@(ʠQj*ʠQj,ʠQ. t ʯ@(ʠQ**ʯ(, & ʯ@(  " 3B /"#Dʯ@(ʠQj*ʠQj,ʠQ. t ʯ@(ʠQ**ʯ", & ʯ@(ʠQ.*ʠQ.,ʠQ. t ʯ@(ʠQ**ʯ", & ʯ@(   " 3B /"ʯ@(  " 3B /"ʯ ( | Q (*`Q*ʏ(Q(ʉ*Q*  ʯ ( V ʯ (**ʉ,Q, 8 ? @DR`Vʯ@(ʠR *ʠR ,ʠR.`VN 6M&   ڃ(ʯ ( L ʯ (**ʉ,Q, 8 " 3B /"J-(  o =`RI`R 7( ʯ ( L ʯ@(ʠR*ʎ, & J-(o@`R}I`R t ʯ@(  ʯ (**ʉ,Q, 8 (J-(o =`RI`R 7( ʯ ( L " 3B /"ʯ@(ʠR*ʠR, 6 @DRʯ@(ʠR*ʠR,ʠR. t ʯ@(  /"ʯ#( | ʯ#( 4 J  -(o#`R }O`R" t ʯ#(  ʯ#(ʠR$*o"ʍ, & ʯ#(ʠR$*ʯ", ʯ#(ʠR$*ʯ", ʯ#(  `~DUMPNAME.( Wp3DIRECTWxINDIRECTWPACKEDWUNPACKEDW<  COMMON NUMBER = W^^^[Z^ )Wf )  & f ʠWh(  #)(ʔ(ʠW`*C  ʃ, & )((#(WjWl %)((ʔ(ʠW`*ʦ, & )(,ʔ(ʠW`* ʃ, & )()ʠWn(  `^ 'WX%D/(ʓ(ʠW`*ʄ, & )(()(ʔ(ʠWl*ʠWl,ʠWr. t )(##(Wj  WlŤWj  %D/)()ʠWt(  % T)(ʔ(ʠWv*ʠWv,ʠW~. t)(ʔ(ʠW*ʠW,ʠW. t`^)(  )  ))(ʔ(ʠWV*ʠWn, 6 )(ʔ(ʠW`*ʥ, & )(,ʔ(ʠW`* ʃ, & )()ʠWt(   % T)(ʔ(ʠWv*ʠWv,ʠW. )(ʔ(ʠW*ʠW,ʠW. t ʠW(  % T`^ oPM  4)zC 58 8N D|% C)|DM  4)zC 58)((`W`||PZ)|   4)zC  )(X)(.ު`Wj|ʩ(0 ~ *(P!)()|P  )(ʔ(ʠW*ʠW, 6 )(()( 'i*i*)(ʔ(ʠW*ʠW,ʠW. t )(ʔ(ʠW`*ʩ, &   `XZRT CHECK4.  (,)   --7G-7  mm_.@_:^h(`< |12_ |1`a2_ ? ?mCD[-mqp00A a   'J)#ȂG`(09(H E`_  #` m@  @ p@ bA@AIa:mqma`FEmGHmra899@DDE      ba [[BCEEF[Aa^I1܀ ܱ@[>K-+09A/*m `aѱ * acab@m  @"  *@* **@    ah* agEF HIm  4acab)ada` ad +М+ 88GB aa b@B@ABE F ABI@0$.( :61 c  ccc `p܀4 ܴ1 `CܱC@./*(ځ//jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`dL=`dNF%00څڅj ʁ*  J!B dCddAd1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[eee jY* *  ђ ' 6 6  v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[m* "ròAC*fX* ā*/ *p *xJ!ʁp*vfff fjd  ffI`@*v*pʪhjfff f@ff @ڻb*zʐnʪpf/`*a ; K/r[\l"g8`_>l"g@`_b`_l"gL gT`_gDl"g| gT``Nl"g gT``lbg g`ajgDgxggglBg g`a  l"g g`b:l"g g`chXh8h\h0ml:* * l  )*  ߡD6,l   l)6  l).  ),a0^),T  D2 )2,)0D"i($(`l*,i  0.D006C2)0)(0i0)6DD8F8 )0$D),&p"D2c&),`DEX$T #0pm`m<,  ),m*i.`pU2`mi82ti(i8% D609A!FAj`m6:i, i:ti6%):  >`m<>i6`m`m<8i82 i(i8% 0<)8*i82  i(i8%  `m<18i8E28<#:i4i,):  < C>C),i:i2).`m"BĠp gHؠpؠp"pؠp""`p4`p~p h ɠp  g), p `p4`pp h ɠp g), p `~INIT$ SYSMSG q q.FL* EXECUTION BEGINSq,s`qN  ʇ(q (*ʠq2ʠq4 }    p ʠq(ʠq*  q~`qFHJʉ(q(  )G)H  ʉ(q(*  ʉ(q(/ʏ*  *j`q**ïN*ʎ(  ʠ(ʠ*ʩ(, l ( qʉ(q(ʩL*  (6  ß|" p OO*Ï^*q (, ** (,ʉ(q(ʠq*      `~TERM$ NORMAL TERMINATIONsp>,*2e(9-:./)01t`t~ttttuu(u0uFCBPD@STACK USED = HEAP USED = s"& txzsd  (`w)(d:% sn)(< C0Ф= B20 `u 'sXsʠs*  `w `u`sl,)2s)2$ $`s6 s sl4 sZ`s6m)2s)2$ )2$)2$2D6X2)2s`s6M`s6I2`s6B)2s`s6:`s66`s622  `s6+`s6'`s6`sl s sl4 s s s s  `sm> $>De 6i6`s`sB s%%% t iB)s`sB )BC  )BB $CD0`w )si s) `s)$Dɬss    s) &H 5$@D4Hsn@   s) s t @   s) s t @  )0s)2 D ' (D iB&H &$@D4sn0 )( sn  (    )4I sn@ | s ( i  (%0a%.D.`s,ɬssɬsɬss  `s, s s s s t8#  s t  .  D(d:`sB s s s t  s)B  $CD`t `s`stʠsl*  )(:c | )(:  `xz  C MEMORY PARITY ILLEGAL OPCODE ILLEGAL TILINE ADDRESSILLEGAL SUPERVISOR CALLADDRESSING ERRORPRIVILEGED INSTRUCTION TASK KILLEDTASK ERROR #?1STACK OVERFLOW HALT CALLED HEAP FULL DIVIDE BY ZERO&INVALID PACKET POINTER'INVALID LENGTH OF PACKET2  CANNOT GET MEMORY3ERROR CODE = P4015ERROR CODE = P4038TCA ACCESS ERROR7"CASE" ALTERNATIVE ERROR\ STATEMENT ?1 ALTERNATIVE ?2*FILE ?1 LUNO #?2 NOT ASSIGNED1 CANNOT LOAD OVERLAY, STATUS = ?1CFILE *?1 ACCESS NAME ?2\ATTEMPT TO READ PAST EOF,?1 ACCESS NAME ?2\ATTEMPT   TO SKIP BEYOND EOM?1 NOT OPENED FOR READING(;?1 ACCESS NAME ?2\OPEN ERROR - ELEMENT SIZE > RECORD LENGTH)?1 NOT OPENED FOR WRITING-*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3.*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3/*?1 ACCESS NAME ?2\READ ERROR - STATUS = ?30+?1 ACCESS   NAME ?2\WRITE ERROR - STATUS = ?39C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICT:C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICTCLOSE$ 0} |*(i(ff E(  i(i(%| } ٠|`CLS$   ,*}n}.i(`}( | (f,ɧ}  f*ɧ} > `CLS$FILE}}r*(٠}}(  (٠}( `FL$INIT 6~`}<F i((ũ(2 gGI}}٠}i4Ʌɩ4 '*(f   EOI`}`}OI`} L ɩ6`MAP$ O8$TIP.B~dIF%'  F4e'i4 E`~o8OI`~pI`~r  i8=`~oOI`~rI`~p i ' (8 i8 E60Eʅ*  i6؊F`i0IF%  8)4~t`~v4`~t4i4 E8`~y9`~{:`~};`~<`~=i4%E؊FIFe'=Ii4`7Ii4`8`~oOI`~rI`~p  ii  j`~4i4 Ei4؊F IFe<i E40i4ʅ*  i4؊F`Bi0IF%OP  EN$ 0.,r2i(% ( | `% (' (* D % 0e 0%)* | ~  8 i.e 0* *`{+`')(   `٠  % *```  e,e 0&,ɧ > i0 % De 0e 0 )0  i,% D`OPN$FILEP4()0I頂I頂I頂*頂)0I)* )0I頂   ٠*I頂i,I頂Ii, i,ɕ٠!(  f ci,ɕ( f٠(  )**ff!`"f ;٠(  fEEI頂٠%(  f ).&&&  ٠'(   i.٥f2i.)0)2(٠(  ٠'( i.`"٠#2 i,ɠ*i,ɕ)2)2,ɠ*)2&. i,ɠ0i,ɕf)2 ɠ2ɦi,fɦ$`REWND$  *i(%#f% f% E  ٠  f Oi(  i(``REWRT$ $*(Oi(`.  i((  i( f E(  `S$NAME 86:(f8ɧ > '*ʉ00 ~ (ɩ6`SCB$FREE,*4.i(f,ɧ >   i(U*ɧ > i(`SCB$INIT,&82OI`B`D  F i,,i(i,順F`SET$ACNM,22)(d *Г S B"e,ɧ > *Г B. .ɬ.  i,*0S1F0 *`  SET$NAMEj62(ʯ('* (*  ``~ʠn(  ( h, hi(* hF h,i(* gWREOF$  P*i(% ,% &% D٠  &)(    )(  `  INIT$1 @OUTPUT `T(Ƨ^h (*ʠj2ʠj4 } Ƨ^ pR `(@  &" 3B ` h5"*Ġ h  g i(FMAP OF IDENTIFIERS FOR IDENTIFIER NAME .KINDDSIZEL+STACK VAPICTURE b (BYT  ES,BITS) DISPLACEMENT p<(PACKED FIELDS ONLY)LEVEL(DISPL) (BYTE,BIT)*l%"$ 3B &(  (  ( t ( *4( 2" &(  &( ( ,4 > t @  ( B4 H t J  ( B4 P t   R  ( T4 \ t ^  ( `4 j t &(  ( l n 6 ( 4  t   ( @4  t &(  ( l n 6 ( 4  t &(  &( ,i``"` ,ʦ(0 ~ _)(  aD**   O(SD` 6 *` PARAMETER VARIABLEFIELD COMMONRECORDARRAY TYPE(88֌lD(l* 3#j '.X s (T(J #( 7(   -   (     ($ (&, t  3 `REST$T H*(Oi(  f E (  ( L `DATE$  d/Fh8I!.A,`*/*.`6i.UTU2Q,NMi*,i,  *i.)*D8D27i8E2ai,E8).Eh20f(`REST$R `*ʩ((*  `P$UC h*(( ` ; |G` 0,2b  0 c[bREAD$REL04(f.i.2Ofi2i*i,f I` : )0  ٠ ɠ٠0Oi(` Oi(`  `WRX$T 20l4(f Oi(` O)(  i(  AfE2&)*), ).  )0*  i(  `0)0i2Ʌ)()0  `COLU  M$ ph20fE(`HEAP$TER֒.  (O,* i(F* [**``(ENX$T 0 b`6i. ), U2,`Z8,=): D `i  %0)8  @8),i8*i*8  i8 I%<)8i.)*DD25iE2ai8E).EFi(F`8i(i)8  d=)86i2).`6i0i6`P$CMSG f:g i- )(i*J4,!i2   `~MDCD   .[KB). G4/4  5@J4i*B[K@rF GHiDLFS)HPO3 )HPܠ41ܴ)HiH G:É.<00χׇt?/:;!J GL)L62  2)LLF ܶ)Lܠ1@[E LFܵ[*** ERROR >?1 *** ?;\ DUMP$PRO *** DUMP OF PROCESS ***F PROCESS RECORD FOR b  ENTRY POINT 8 TOP OF STACK *** END OF PROCESS DUMP6:`@6i(,  _.@  @  BD^ t @  ),i,.  _E0%"%$$&@  @`v t .S88CC2S2 @xz2@|~ t @>ɤ  @  ,#   )4 ),6 `,`0)6$C> , =&@ @DPɤ  &@-&@ ,CP   &@ 4  t @  `DUMP$STA DATA AREA FORf  (FTN)z INVALID STACK FRAME> ENTRY POINT2  LEVEL=X@)(,d,>d">4`b44>c.i>ʯ@(  ʯ@(ʠd*ʠd,ʠt. t 4P#(@vx  ʯ@(ʠx*ʠx,ʠ. ʯ@(  %$`">B<>#>C<ʩ>(ʩ<*  F0 4f.ɦɦ$:`e  $:):e0e:e"00C2CB*R8``68c6e,e<)6)6i,> i<.< , 2ʯ@(ʠ*ʠ,ʠ. t #(@x`ɤ  ʯ@(  ʤ.(ʤ0*  p"C:\8ʯ@(ʠ*ʠ,ʠ. t #(@x  `ɤ &#(@v8 t ʯ@(ʠv*ʠx,ʠ. ʯ@(ʠb*ʩ6, & ʯ@(  i<ʩ,(ʩ<*  i,.)6e0`b4i0>p":``  !BA$ ATB$@@BH$ A H%HH I$I$I$I$I$I$I$I$HI$I$I$ $I$DI  $I$ d $P (HD T(Q!PBBA!P!P$B  "H A BBBA BHJQ*IH% Q*A @@H $%`$$`A&P!$  @x @H  IH @$$H $$A@HP $ @ A "( `APAH?P$B@  " "@@Q@D $$ @ $ %I@RI$@PD@HI @@HH @P  PPu5__ARW_A  AP @B@@"BD IA@J4RI$"[( ! @I tIH* !D"$( @* ! %$)(D%B $ JBH   BBB@BA A I@ P D@IH!"$H" B @ @hD @P 4@P@4*$ @HR$HD@A- H@H  "@@JP%( AJP% ( @P@  $ @%A !( QH  4 H4AB@( )H D$$ @@ @@ %PAJ @% ZB$  h@ AJ@PB ( B@I $I )AIJ$BH ' OVLY12 @TVr @A A A A @A @h0)(T &vY @fQ Sd e*fv*,  G..' '@VX  s C,&"H`@T,,v&j8jɃ&*`*,AAAAA.OI`A b :  !7' 'A@XOi(i*i, B%ff% F OI`A b6 Oi(i*i, COi(i* C  3 `?B.)( A  )(TY`A`A*A 4 *)*BA 4 `B**GI`BG),BB 4   `B ,),B B 4 `B,i,E`B`B)*J8N&NG` ?C.)( B  )(TY`B`B*B 4 *)*BB 4 `B**GI`BG),BB 4 `B,),BB 4 `B,i,E`B`B*P  fhfn`?|D,)*C)(&DR)( C  )(TY`CE`C`C̈)*CY`C`C*C 4 **GI`CGftY`C`C)*CC 4 `C**GI`CGfj`h20f<( i0e(i  0e(`*{D EtEEEE|02,FF:EEEFEEF6l&6 ʤ(0 D _*ɧD J *D J"r)*  D%`F`D.`D. `D. 3 )*  G44s 'DX' 'DX).)*,&6 ʤ&0 D _(  )()*). D D ej  D)0)2 C ).), JV:&6 ʤ&0 D _()()*). D D c  D)0)2 B ).), JV 4 3 D J"  #r `({F* G,f6 Fʥ(0 D _(ɧF J (?i(%  F  ,OI`F`F  i*`Fi*`Fi*i(f6 F)*%(i*f6 Fi*( F 4 f6 F( #r `GI HJJJI$I.JHH GJIIIIJII. J8i(T*Q*<6i(ʕ0 D _,^i*%   e*  i,%   e,i,%  D0i*  C2i*,J0 GM2M 'GX)0G?)0G@)0G)0G=i*%Di,C[i20*i(U6i6 'GXi()*Bi(;i6 3 {)0Gv)0Gri(Ո#GՈ#G  0 G 2U 'GX2 G)*D`G4`G4`G4)0G`G4 `G4`G4`G4OI`G`G  i.`Gi.i4i.i*i.)(Ti.i(i.`JH*ʩ(( 4 /66 (`, J.ʉ(JL(ʠJN*    ,ŠJP,ɩ(,ɩ*6 i,f&6 i,f(/66 ɩ,(`h*((V   (ť`*cK.0,LL`LLLLKKL4l&6 ʤ(0 D _*ɧJ J )*   )*  &6 $&ʥD* G &6   $(ʥD* eD**J J"Q)*  Kz  G22h 'K X K)*,&6 ʤ&0 D _()()* K K K ej  K ).)0 C  K), JV:&6 ʤ&0 D _()()* K K K c  K ).)0 B  K  ), JV 2 3 J J"  #r `MdMgMM>:MN2N2MN2N\,l%LJ 3 G((1 'LX 3# G G** 'LX8ɔ:ɠL>ɠL< Ƀ@ɤDfɠL8ɤ:_L 4 ɠL8:T8'H 'LX%L   ʥ0ʥ2 &, ߉CPɥ@:ʥ0ʥ2 &, ߉CPɥ>:ɠL<ɥDɥFƧL AL ɠL<ɥ@ɥDɠL> #r `8Q4Q4Q"Q"Q4Q.!N((O).PJQjQRLì`N`6 M :%8ii6 I-(ʍ(ʠNb*  i6 I(i6 I(':  p:/:8i6 Ii:("i6 I-(ʍ(ʠNb*  i6 I(i6 I(':6)6Nd Mʉ(Nf( N 8i6 Ii:(Xi6 I-(ʍ(ʠNb*  i6 I(i6 I(':5:/:8i6 Ii:("i6 I-(ʍ(ʠNb*    i6 I(i6 I(': F k)6N`i(`N`i6 I(ɭ(`Qi6 Iʭ&0 D j(Hi6 I-(ʍ(ʩH* G i6 Iʭ(0 D j(Ji6 I-&ʍ(ʩJ* G i6 Iʭ&0 D j(HʩH0ʩJ2  (#ʠNh( J"  #r ʠNj( J" K    E  3 >5^NxN' 'NlX:`PRi('8 `f*QR(<`Q:ʉ(Q( N *(ʩ,0 D ((Q(,(,.' 'QX([Q(3(6`<*RR,ìl #r /R Jo  ( #r )( 4 3'(/ 4$D% n32`R"ʉ(R$(ʠR&*  *ŭ*ɯi** #r /R(/R* #r ^J `f.=PS,2 #r &R`f( #r &R &Rf*&S #r ɬS   ..S 4 .   S 4 &S #r )(i*0D0 3#C&S  &f #r i.I`S `S ^J0%(T* #r &T &T B& 4$D #r &T Y`T`T&TɧT l i(I`Tff   Q #r &T  #r &T  ^J `( UL*l #r &T$ɬTT  )(%.&& i(. #r &T؈&T #r ^J `+.yBp` @*xU:0/UP #r  /UR /UR #r `/UT5È/UnC0 #r (0 /&HʠUp( 4 0 3#o*0`WY Ur Ut`WÈ/UVC6È/UX6C2 #r o( #r /UZ /UXo*/U\ #r ʉ(U^(ʠU`*  .)).    2  ʠUb( 4 `U`26    ʠUd( 4 )(i*8D8`X 3#C0i.Y`Uf`Uh2 GG6 GG2 CY`UjCCI`UlCʅ( @j Y Ur UvI Ux Uz* cI U|CI Ul/pI U~ #r /  UP o40`ffp/UR54 #r 0$/U\ #r ʆ(U(ʠU`*  &**   ʠU( 4 /U`U`U/UV/UÈ/UVC6`U`2 #r 2  CI U~*ʉ(U^(ʠU`*  * 3#Ci.Y`Ur`U  2 CY`UjC6 GY`UG2 GY`UGI`U`Uz* 3#ʃ( @j /U #r `X p`=*x\0\<\`\`\N%#]]\]$]\]2]@$ Y^BR:" 4 /&H#F 6E,# F 6  E,# 58o2ƈ/YF( #r 6&Fo,( [`Y`Y` [`Y`YfK`Y`Y/Yo fʠY( 4 [`Y`Y #r /Y /Y`\ #r`\ U 0 GK`YGo/Y #r ʉ(Y(ʠY*  *  *f   ʠY( 4 i**f  i*/f%`off,F.40. 6&Æ a^4ʎ( @j .e^44ɯv4  G88 !' 'YX4f64f6f44f6o<48 3 ;6f     i6 ɯv˯p .F.)0`[ ^J /Yʩ,( gn /Y`^6 #r^/Y5/Y' #r `Y'$ 'YX[`Y[`Y`Y[`Y`Y`Y /Y [`Y`Y #r  f ѭ!Yf,F.m E0  0/YG #rI. 6&Æ % ff  Y ʠY( 4 Y[Yʎ( @j .ʠY( 4  .F.)0 ^J ^J 2`f^(l,(A 4  #r ,(A`0, _f. #r  &^U 3# #r &^ ɬ^  <T(i(e*i,i*((<),Y ^ ^      ^ 4 &^ #r ^J`.6H0=_R<ì #r /_j`fo( #r /_l /_jo*/_n   #r ʉ(_p(*  .i.%   %   ʠ_r( 4 ʉ(_t( R `_v2o4/ $D8i(i*:E:28 o4 ʩ6(  4/_q #r 4$ũ.I_x_zGʆ( @j & Tʉ(_|(ʠ_~*  i0n*`_  .").   ʉ(_|(ʠ_~*  i0n*`_vE˩0*2/_o 2ɯ #r ``X ^Jdat b (4a~ ((`a2/a T /a T /a ^ /a _ /a S /a Y/a R0 /  aˈ/a`<b,( 9% ńT  b$ 4 (Šb&* 9% Ňb( b* 4 *Šb,*b. b* 4 *Šb0`..c>09c*EEcPQQcHcDh2)()*,&D.E. &0T105^bb)(,  )*`b,)( b& 0 & .)(`h4i0(i20i2(`h4i0(i20i2(`d4d dd4de<@(fEE4f6ai6E8*&DD:f,5^ccʩ80ʩ>2 cz _20ʩ60  ʩ<2 ş0i2V a2i0Fi.`c>20i2V..Šc8`>C@PP`e@2fPE2,5^eBeZʩ:0ʩ@2 cz _4i0ʩ80ʩ>2 _i0)4D284i0)4i.i.i2i:i>E4)2ai0D(i.ʩ20)6)<ʄ2 c _i8i>)0).`C4 i2ai4  )0).)2i0e\ e^ 4 i0`e`i0eb e^ 4 i0`ed`@,*BBEGIN f@) TEND g AFATAL ERRORS IN ROUTINE gNONFATAL ERRORS IN ROUTINEg2WARNINGS IN ROUTINE gPjH/f o6oD #rʠf( 4 o*<*o,>,o  .@.o :o0ʉ(f( R (F4/f*ʉ(f(ʠf*  i*`f`fo2./fU4 6o 5O'(4 6f * 6&F V fʉ(f(ʠf*  éBǩ*ˠf˯iB*4 4 6f i4E4   #r /f a f/f,( 6&Ff@* fmN٥@& f@( #r "  4ʠg( 4 @$/g/$H #r/$Hʠg( 4 f  g@*( 6&F fmN٥@& g@(/go8 #r  ʠg( 4 /$H i86  /fi6i8FMF 6'(88/2ʩ,(  0: (*,.(*,.ʠgd(ʠgf* ʠg.(ʠg0*ʠgL(ʠgN*  <*>,@.( 6ʦ(ʠgh*  `~b  0Jl6/k #r 3#bo.I k k/2ʏ(k( @j ʏ(k (  #r /k V /kJo( #r /k /ko*/k #r ʉ(k(ʠk*  i(i*4E4 3#ũ0Ikkʆ( @j 2/k  #r/k #r /k #r 2 GI k ʩ.( gn /k" #r (*,.((* , ` |<?m.,)( l  )(TY`l`lf8HD*`lPE`l)*&P8vDD?E`lD`*m. m2 m4   i*`m6i(ɩ*f,),T,),)*`(. $n>2>@ m&@)( m xL  m m  i.`m`mf>i( m m %)*), : . m< ` 82 60 ?0l  s ssrsrrr4x6(Lì #r ˠnBD/nD ʉ(nF(  :o>D8f   f  f   fE*E(V &fa&af D(E*A`nH:0;ʉ(nJ(ʠnL*  i2f Eʅ(ʦ*i2ʅ, : @>@  J%(`nNo>i2I`nJ xL o@D/nP #r /nR #r ʉ(nT(ʮ**  >)6E<.!688f   &nV& nX f%  `nH>>Dʮ((ʠnR*  n(Innnp. . GUnhnjɩ8ɩ6i6nj    GFF'`s 'nxXʮ((ʠnR*  n(YnZn\ɩ8:*Unhnjɩ*oH9)*9(9)*D,E.P`rLE?Enl`t,Un^ɯv0 G0oEEn`GEn`J%(`nLiDi2`nHI`nJ xL ʠnb(ʩD*ʩ2,o  P=/Hʂ.ʃ0ʉ2nd2 J%(`nHiDi0`nHI`nd /vnHʠnf(ʩD*ʩ0,ovʄ.ʅ0ʉ2nd2 `vvEnl),i.P  5 <\ov999Ʌ`x6ʠnr( 4 ɯ<6nt2-  Ynt-  Ynt-    uInv/"Hnv:<9i6.] `v] EBE@oP )@)B 5 C?InlfE? `wf)(nV`w(`w0< 0)6 S˅0Un^ɯv0 G.!<i6i6 i6 /PGE?Inl  0 oEEn``x6:"ʉ(nJ(ʠnL*  i2o@`n`nH)(i*D EGEn`fE? ʉ(n(ʠnL*  i4i6<xdʯv(ci8%%  $( nL)D)2%% nJ xL ʠnb(ʩD*ʩ2,fE?ʃ.ʄ0ʉ2nd2 xL  J%(`nHiDi0`nHI`nd /vnHʠnf(ʩD*ʩ0,ovʄ.ʅ0ʉ2nd2 sʭ(i4ʅ*  i4o@!]Eʅ(ʭ*i4ʅ, : J%(`nNo>i4I`n xL i8%nV% nXʠnL(ʩD*ʩ2,% ʃ.ʄ0ʉ2nJ2 xL ʉ(nd(ʠnB*  i0  `nH`nfiDi2i4i04ʩ0(VEʅ*ʦ, m `x6] ,ov.mE.E,%$ov),i.j  5 <\oj999D,E.).9)()*9),)*9).)*nXov9)*9(9)*D,E.),nch).n^c)B9)()*  9)@)*9)BP2/)(i*C?  5 |H\J)HiJv89Ģ8B,C.)B9)()*9)@)*9)BE?Enl ʠn( 4 Enlɩ.`< 6x4)2 x:  )2T`x)(x@   xB xD  ɩ*ɠxFɠx<ɩ. ɩ0`#yyV y""y##y0&&y0>>y9y.5^xxi*f8i(&DDOi*f6&xi(Bi(`x<ʦ0ʦ2 &, _,,Pi*f@f 5F)*%,Pi*f>i(f  f i*f .|<n0o(ɩ.  i0ai.f Ʌ .|@ #r ʉ(|B(ʯ**  \,o( |D  G^^'E '|LXʠ|F( 4 n<,7  `|H\o( |Jf f  `|H\o( |Jf o( |H."H `|H\o( |J n<,ʠ|\( 4 .i0^F^,F 5  N%Ei,[`|^`|`. GGʩ2(ʆ*ʏ,|b, z [`|di(F2ш.|f #r `| #r R.|<!n.n 5N% o(ɮ `|HR #r .|@ ʉ(|B(ʯ**  i,%  |lʠ|n( 4 RR0i. 5N%ũ,Y|^|`  \. Gʩ2(ʩ.*ʏ,|b, z |dɩ(i.22.|p #r o2To4Vo2Xo4Z ,:AT2V4`H88ʉ(|r(ʠ|@*  DI|t|vɩH 2Gɩ,iDHʉ(|x(ʉ*|z* y ʩL0ʩ,2  (iP4ʠ  ||( 4 4.|~4 #r ʉ(|x(ʉ*|z* y ʩL0ʩ,2  (iP6 ʠ||( 4 i46i46  ʠ|( 4 i46i*UDDD4 4 6 6ʠ|( 4 iHi4 iHi6F i*iH fDiFiH.|> #r ,:A`  .|@ #r .| #r X2Z4iHDR)8|DʩD(ʉ*|* | iHDDDů2ɯ4ɩJ iDFfDo4Vo4Vo2 )T o2To4V.| #r .|f #r `2o2  ʩ2(ʏ*|b* y v4K|2`< ,|,  6 * $?~(.ì #r ˠD/ ʎ((  ʮ((ʠ*  .(T,U```Y```n,&  &D( &   (ʠ( 4 )(DI`D(P`lE`)(/P8vD]   && &D(ʠ(ʠ( 4 U`ov&   GI`G`0 GU`G0 /DE`D`~GE`Gʉ((ʠ*  i,., Cʃ(ʤ*ʍ,, : f $( &  ),  xL i,ʍ((ʠ*  - -  @>@ $( /@),  xL ʠ(ʯ>*ʩ,,/Pʃ.ʄ0ʉ22 xL $( />),  /vʠ(ʯ>*ʩ,,/vʃ.ʄ0ʉ22 ʉ((ʠ*  i*`  `o>ʍ((ʠ* -Dʄ(ʥ*-ʄ, : i,ʩ*( m<  (G?E`G`<,($*  mk<:$0fp ?@`R@ìlʉ((ʉ** y /((`` #r ʭ(  (ʠ*  (0(3Y  Y )(),). ),).// 3#C ` /`&` #r / /` 3#C  C/&HC  ʠ( 4  #r   DH.D6U8/  ' #r / //8    //8c8 #r 8   c8'8   .D   c8 ʠ( 4 U8o<88   c*i8*(>*   o@(/@@3ʩ(0ʩ*2   (Ei8  G>> > 'Xi,i.  %%(),).(8 CI  %ʠ( 4 / #r`.D(>   o@(/@@ (@ o>(/>>3ʩ(0ʕ2  (ʠ( 4   C  sʠ( 4 /&HC  ʠ( 4 ʉ((ʠ*  <Cʃ(ʥ*ʆ,, :  Sɠɕ  .D#(@<ɤ xL ʉ((ʠ*  :Šɠɩ(ɩ<ʆ((ʠ*   GI  /(v Cʃ(ʤ*ʃ, : (ʩ:( m<  #r 6 ˠ0CI  .D (@/>>3/v #r ``ʉ((ʉ** y (@ (>o@(*>*  @ o@*/@@3ʩ(0ʩ*2  (ʠ( 4 i(*i,0i.2i0,i2. ʠ( 4 i,0i.2)0)2ʤ0ʤ2 &, j(6ʤ0ʤ 2 j(4U 6P6)6  $$   /"/"  i64i466P E 6P/h 36G?E /v 3 U /"/"/@`fg? |?Ώ؏`|HB B"#B&&B>>B(25^Žo =  O Fʠd( 4 o =O(ŭ #rD A #r o*ʩ((ʠf*  o =O-Íi(ǝ[hi(Ýji*ʅ0ʆ2 &, j(M?Gl[np˩* #r `i(o>i(o@ i(o6i(o8`v #r /rR ʩ((ʠt*  i(ÝoDǽ˝[vx  /z+oMK|/~#// /ʠ( 4 ˯j[vʠ( 4  #r  i(oD`ʩ((ʠf*  i(ÝG砎j[v[j #r /r /z:/ / // |ʠ( 4 oMK|Po  ˯v˯h #rʠ( 4 / #r /z"/ / // ʠ( 4 ˯ #rʠ( 4 / #r `ʩ((ʠf*  i(ÝG砎j[n #r /r /zR/ / // ʠ( 4   J9oG99oH/P  5 |v9BG99BHˆoMK| #rʠ( 4 / #r /z"/ / // ʠ( 4 ˯ #rʠ( 4 /% #r!i(oF 3 t #r' '  Xʠ( 4 `< (,? ̕ĕ? 8 &,J (6`@`B`D ,6Aʩ(( `/Kʩ((ʠ*  i(ÝoBǽ˝[˯< #r /o =O-Íi(ɞ   i(ǝ #r ʉ((  i(ɩ,`ˆ///` `. #r `ʩ((ʠ*  i(ÝG砓˯l[˯</렓 #r K/ #r / #r ʉ((ʩ**  i,  GHH' 'Xʠ(ʠ(i,   i, ʠ( 4 i,ʠ( 4 ˩,[.'R 'X nJJ`2`24 #r ʩ((ʠ*  i(ÝK렓. . G F(ʉ** | ǩ2˩4˩,/ #r  `~@ @@@%"R @PH   H(@A(%$@ % @HG DA@J@@ )$ D(D" !B@T  IIB$l~@@R$9@$ $$@ @ HAAFHH  D$B$"$$@@H@D$H@T   $@"I $@@D HII$ $H$JD @$ $"@ @H D TBH@ DI$H $"I! "@B @$I H!! $$H  Q"D$H B$ &@H$$ @JI H%(  A @BH* $BA$D@H$H HDB $A ($BB$ @$P? H@ DD@$A T )$)@ @ @B @ R$ PDBHPBA$ $T@ I)   B@@ @ $$(D @A @H @ (  $I $HB@ $ $H@ $ $ H$I @H $ I$ $$H !@H@BH ($$%D$IH@@$$@    P$@H  I$8   HQ@  BH$IB@H@IBARD" ! "DB!$$H ABH "%$$$ "$HA$@H$ $$ $$H !@H@BH ($$%D$IH@@$$@  ' OVLY13 @TH  8 A"<l%$HWfz:6::c. i:6:c.(*<ɬ@T@V  )8):).)0&* :| ɩ8z :S:|8ɩ8| 6ɩ8z68`.A^*O`A& q ( k ɩ(*ɠA(8` BB"B*BB  *328TVA: #F ~1H<ìlC62 2"  `D * g G:: 'AlX`Ab4`Ad4 c`Af4`Ah4`Aj4È)4Ad)4AjC, Cʃ(ʤ*ʏ,At, :  cC6   ,,ʠAv( 4 ʠAx(*ʩ4, q    (( pʏ(At( qz`C,  cʠAz( 4 ʔ0 e j((ʠA|(ʩ(*ʩ4, q    (( pʏ(At( qz ʯ(( s~ )(Ab)(Ah TCʃ(ʥ* s6 ( "(ʠA~(ʠ  Aj*ʠA, q ʯ(( qz o(n"`A`Anmnm*ʯ((  C2`A* #r .0.A~`H 2`G6 3#C " 3#  €`G (ʏ*At* b| ʠA( 4`G cQ.AM v ˠA"#(ϬAtϬAϬAϤA n  "@ BʠA(ʠA( 4 .A.AʠA( 4  #r .A7.A3*/ʠA( 4( cʠA( 4 ʕ(ʏ*At* b| ʕ0 e j((ʏ(At(ʕ*ʠA, Mr ** ʠA~( 2   * c  A  ʠA(ʕ*ʏ,At,  lv  SF,> c:*7*ʠA( 4,/,A)ʠA(ʩ(*, q )(A)(Aʯ*( o ʏ(At( qz ʏ(At( s~ `A(/. c* PF#(A(ϬAtϤA g!ʕ0ʯ*2 -v (ʠA( 4ʕ0ʯ*2  (ʠA( 4nʠA( 2   n8 3  b˂  ˩8ʠA(ʠA*, q    (( pCʃ(ʦ*ʏ,At, : ʏ(At( qz Pʏ(A( qz  #r  C6 (ʏ*At* b| )26.A #r .A`D, #r ,ZA H ,  ZA`A*2ʠA( 4 *ʠA(*, q  ʉ(A|( c ʩ2( A. `.iHIIHIHIIIIHI(H 4 '  'HX #r &H #r  #r `(IIIIJ JJ*J0J6J<JIIIJPdKR@  ìlƈ @HI@RF<@Ro8o :/I /I  ʠI( 2 /I  ʠI( 2 5^I*IBʉ(I( K5 P2 "/ l, ) H&`I<ʠI( 2   `I<ʠI( 2  (       3 %,pAʠID( 4  #r   ,pAo8: !' 'IX m.666 ~  ɠIF 6ɮ~ 6V6<ʠI( 2 `f JKLXLhLXL`Lh L`%%Lh()L`33Lh55LhLpLLLLLLLLLLLLLLLLLLLLLL  LLLLLLLLLLLLLLLLLLLLLLLLLLLLLMLMM Rdì/K /K/K:F`KH`KJFLK (Z 6&F Vc&FXX5^K*KfʠK"( ʠK$(ʠK&(ʠK(( 2 X5@ 'KhX .; 8 5 N2 */ ,  P) 8& P#   d r ,   .   *  2 A `f M RrRrRrPhPzRrPPPPO MPRrQ(Q0Q8Q@RrQXQ`Rr<l(**R !I%#H Dʓ0 e `RrMM q ( (  0  e".e>.( qz )(). M Mn&n&*( qz * "P%#H K(ʓ0 e  @( (0   e".MMM e@.MM q ( qz )(). M Mn&n&*( qz (S.*   c*  .   c..  B0*c  A2i*.s0 M"j,Q)0M)0M$Ii02E),MA(#M&;.*bAC:BB.*)0MM(M**( lv :AHM*.ȣ),M$Fi20h* "i)0Me\)  0MW)0M$S)0M)0M,,*B.cAB:i20ϊi200),M-)0M()0M.2 'M0X(**B.cAB*.`Rr25^M@ML(#MN("M,2 MR 0 MR2 'M^X`MT4`MV  4`M4)0M.`MX4 `M4`MZ4`M\4( (0  42*ʩ.0 e (*ʃ*ʠM,42*ʩ.0 e (*ʃ*, q )0M$(#M&.B`B6M`.ȃ( qz )()* M* 2ʩ*0 e  %>%@  Mn&n&*( qz `S~6i02 0s0<o`Rv(m)0i2   !    7 S PÉdHd Dd@d:        . +ʩ00ʩ22  _(! Édd  Be ABd  C((`0L>Z TU$TfTfT9VRl(Z*Wé(é*`Ué,ʩ(0ʩ*2 `Vé(n  é*  2ʩ((ʉ*S*ʉ,S, c ʩ*(ʉ*S*ʉ,S, i:Hi<J ʩ00ʩ>2  (é,`Vé(  Ghh' 'S  X`S.é(ʮ0i*ʭ2 R| ((é(nm(é*nm*Y`S.é(i*ʮ0i*ʭ2 R| (é,ǠSo8(o8*4`S.i( v*f uNé,i(ʭ0*ʦ2 R| Ǫ(é(n(é*n*é,,ʠS(2*ʩL0 e ê(*ʎ*ʩ.  , q ʉ(S( qz ʉ(S( ʠS( 4 é(é*i(*`Sé,ʩ(0ʩ*2 -v Ǫ(`fVh* lʩ(( 4 // D V / D&<(`,VnWDD: ìlʩ((ʩ** FF% ʅ,&ʆ.ʉ0Vl0 ht ( Vp  n6,)*Vr ʠVt( 2  N )*Vv ʠVt( 2   / FɠVx F',(i,(`X?(68UTYRYjgYY"YYXdXdYXVYXdXdNWx %# YZ^ Y!!Z^""Z##Z$$Z%%Z^&&Z>>ZBZZD>ì l/WH ʠWJ( 2   8 `Z. D WL. D$D/WN5^WW/ 4 G:: `Y 'WbXʅ(( K^ $( WP WR WT n 8DA&   ʠWX(ʠWV(2*ʥ0 e *(*ʄ*, q ʅ(( qz ʉ(WP( ʩ6( , ʅ(( s~  ʅ(( [@/ 4$V`WL G G<< 'W\X`WZ& Df ʠWJ( 2 ʦ(ʅ**   ʠW`( 4 o< #r W|`Zo<ʠW~( 2  &`Z/Wʯ0ʯ2 &, *(Po@ʯ0ʯ2 &, *(Po>`W  o oQ/ 4d`WoCʠW~( 2 /Wʅ(( Fʅ((  `WZoo !o8`Woo6`W/W `WLoB`W`WL #r . Dd(`Xh*((V   (ť`8({[D`[H3  .[X3{c```H`H```4`V`d`d`r`d`d`V`4  araa:aaa:a2aBaJaRaZabajaab6b6bbb6bbb*b*b*b0b*b*b*b&\<((\`)7^ 88\`>?\FF t  `^fʉ([@( [ /[B/[6cʠ[8(bi%  [Fi%  [J ʠ[L( 2   ʠ[N(  2*ʩ0 e j(*ʅ*ʆ,,ʆ.. t  ˩(i%  [J%Dʄ(ʥ* s6 ʠ[:( 4 ɯ<( #r``)[2`bNi EI% [2) D $[2ʠ[( 2 )7`b>' '[X$ %Eo #r `[:fm)[P  `[Ri%   eʠ[R( 4 `_)[Ti%   i%   ʠ[V( 4 oD [`6Gf%  m%    (0m%  #f%   (0 (> f (ʠ[b( 4 ʆ((ʩ*  , Mr ʍ((ʦ*, fmʉ([@( [ ʉ([d( )=7:' '[X`[8`[f`[h0`[j`[l)`[n`[p"`[r`[t`[v`[x`[z`[| `[~`[ 3 yʩ(ʩ*ʉ,[, S ʠ[(i%  , ʩ  ( V& 5^[\ E)V7S' '[X`[O`[K`[G`[4C`[?`[;`[7`[3`[>,`[(`[$`[`[`[`[`[ `[2 3 )[Pʠ[(ʠ[*ʩ(2*ʩ0 e j(*ʅ*  V~ʠ[:( V&  #r :  h`` 3 ``i EI)('`.(`bn,cRF@R`@HDD@Ri(<<6 ʠbj(*ʠbl, q <énMM@nB>ʉ(br( \" ),bl é*'.( (  :é(btʩ.(ʩ(*ʩ*, < <6 ʠbj(*ʠbv, q DʩD( 2 `fh*(i(f(`d:dLd^d^dTdddeJeJdeJeJddeJeeJeJeJe$h0)* c c  ,*(%)(  G..' 'cX   d(  d((s)(  G..f 'cX,  XC* ȃ ,  A*  ,  i,`c CCd  C, ȃ d(,  * c f>(*(,(`&e*͠e^   q ( k `    eeff,f fff$f,f4fJfRfZfrfbfjfv40P0  G22C 'eX`e(=`e(9`e(5`e(1`e(-`e()`e(%`e(!0ʦ0 e _(`e(`e(`e( `e(`e((`fzfL  (2 f|)@f~)Hf )Jf )Hf)Jf`f(` 5 f0>h*Ni, (0i. (>)*ff>0f>>)*ff@0i, (0   i. (0  `fLLOi(i*iL q )*f()2f$)  :f) o ɧf qz ɧf ` h. ,jijj jijXjj~jjjjiijjjDj'3h^ hf2@k^), (2). (@4 h0  B h0 %), (0    ). (0  `k&)()* hd`k2)4h2)8DTDRi<Ri>T)Bh2)FDXDViJViLX(`j 'h:XR)TV)XK)V)X )R)T)V)X 5NPh4 4 4)V)X )R)T)V)X 5 |N\PX8RT8V  T8X R)T`Va)XCNDPdĈ)Rh6V)Th8R)Vh6N)Xh8JHĈ)Rh6)Th8?ĊiRV:iTXĊiRV0iTX-+ĊiRV&&iTX" ĊiRViTXĊiRViTX  ĊiRViTXDZ( 3 !i0`h\( h``h2iZF`  hbiN iP <)()* q * hh@ o )*hjf@2f@@ )*h\f>2f>@ɧhl qz ɧhn 0 s~ ),).0)0 2ʔ0 e  &>)0&@`l.&$H`k*i(,*, . `.< ll"-./0m$  ml( ('l 'lRX#l(c Jc L ,BLBJiJ8!iL:l*l,l.l0 4 ( 3 iJF /  (' 'l2XiLH(' 'l>Xl*l,l.l0 4 r( 3 k`lJP `l(P`lLP`lNP)(lNP 2C""  h,#ld,#lJ , @\ ,ʓ0 e _N)Nlf))NlJ+)NlP'`lLNf>.f><`lPP,*B  `C`f@.f@,", qz `ooooopbpLp~pLpnp~4(  o&$Hj)(A  G22' 'olXCC.d0dd CC.e0`ov*i.,*, . *i0,*,)  G22' 'oxXv , Cv , `q8&$H/`p0`p20  2 . `p4)4p ɠ4#'/402 . `qF2l&$Hi(.i+0i-1.0 . 8` qqqqrqrqrrrrprrrrrr`qrs,2&$H`s,)(d*d+d,ʩ*(ʩ,* .   'qLX  C,C*ʃ( d *d ,ʩ*(ʩ,* . s 'qfX.).).ɠqK)ɠ .).ʩ*(ʩ,* . .$ C0i.0. # s*S,ʩ*(ʩ,* . ./*( (( @\   $qd   JT  qt Cʃ(ʥ* s6 `sp0l&$H`s0Di(,i*.,. . `s.l)(n st sv&n&*%$H`sx*fn,*, . ` s :stu&u&u&u&u&u&u&tttu&t u:  ),T6 s  ( s), (0  `un)()* t`uz$sd 0d 2 ),C2C0(A>' 'sX0;:i0)202i0)20*)0)22 D4280280282C0D2( 3 i  .`s)(s)(t`ti4.`si0 i2 $)()* q )*t),&@)*s),&2, qz . s~ )6 3ʩ60 e  f>6f@6).)6` uw0)(u3&($u"(#u u u u&(4 t  &( u   u u&(4O u u&(4 t D)* u ,('$ud ,)*d,)(u&(), ')(u &(d ,&(i), )( u&()*&( ht f(`u `(Dw"R6  w2hw8 w<2 `ìl(ʉ*  w*  `wb #r pm.zmH|/($w(ʉ*w * b| `jT      `^ fenep c C@eA? BrC? w$BBC?CtrpR ,āʩn(ʉ*w&*ʉ,w(, c ʉ(w&(  ʮ>*ʠw*, Mr ʩn0 e j(x'n>nn8p`w*@B`w*r,H.P=HGtʠw*(ʉ*w&*  `w,xʉ(w (ʩn*ʠw*, Mr ʩn0ʩD2  (`Lʠw.(ʔ*ʉ,w , lv )xwn@nn>n`w,xrp=`},N8p   /w*Bʉ(w (ʮ  >*ʠw*, Mr ʉ(w&(ʮ>*ʠw*, .(ʯ**  .w*`~?#(w0xɬw ɬw&ɤw  ht ʩt(ʉ*w&*  inRF w4 'D (( @\ `w*~,w6l`|v#(w0xɬw ɬw&ɤw  ht ʉ(w (ʮ>*ʠw*, Mr ,w  ʓ(ʉ*w&*  #(w.w,ɬw ɬw&ɤw  ht .#(w*w,ɬw * ht *'D.w*`X w:)t.vʃ(ʉ*w&*  ~F w> $#(w@xɬw ɬw&ϤwB ht #(wDxɬw ɬw&* Iʠw@(ʩx*  ʠwF, q ʉ(w ( qz ʉ(w&( ʏ(wB( s~ D2ʠwD(ʩx*ʠwF, q ʉ(w ( qz ʉ(w&( ʯ*( s~ *Dʏ(wB(ʮ>*ʠw*, Mr ʯ*(ʮ>*ʠw*, ~ʮv(ʉ*w&*  #(w.w,ϬwBɬw&ϤwB ht w*B,w(w6(ʯ**   ,ʓ(ʉ*w&*  #(w.w,*ɬw&* ht .w*,w6'2 (D(ʉ*w&* `~)xw+#(w0xɬw ɬw&ɤw  ht ʉ(w (ʮ>*ʠw*, Mr (ʉ*w&*  pnvvCʃ(ʦ*ʏ,wB, :&fvvv.j  8jCvvnvvʩv(ʏ*wB*  )vw$#(w.w,ɬw ϬwBɤw  ht #(w.w,ɬw&ϬwBɤw& #(w*w,ɬwɬw&ɤw ht F w> #(w0w,ɬwɬw ɤw ht$)bw 'D (`#(w*ɬwHɬw ɤwH htʠwJ(   4 )pʠwL( 4 .wN #r .wP`w #r (#w* ʠwR(ʯ(* v ʠw0(ʉ*w* v )bw ʠw*(ʉ*wH* iz.i|H(p`.INPUT OUTPUT i恬ĂB **"2 Tʆ؅ރԆRJ  ìl/` 3#i(T.@BBH . GFF'` 'X`   ` S``CCd B/ˠ.BB 2A"#  2  (  ʠ ( 4    s} cyˠ.u` Cˠ.i o(ʠ( 4 `oof Qʠ( 4 J`dC( C .ă% R ˂Hd a ˁ.$ CH,H `B*ʠ( 4 o< #rʠ$( 4 0)(  ' ` 'RX,ʠ&( 4  #r /8 3c@!o>@o@@o6@o8@oD@ oF@ o<@ʠ(( 4 T@@8 9' '*X  $#!  vv v ʠ:( 4 )@`   #r   ʠD(` 3#C/#H`@HDʠ<( 2  t ʩD( 2  b ˂@ /v8/NBv˃B S7 ʃ(ʉ*>*  .#(@*ɬ>* ht  .*'2 ,  ʠB(ʩ(  * v % fˠH   U./ʠF(ʠ*, q ʩ(( qz ʩ*( ,ʓ( , ʩ(( s~ . H $ ʠB(ʩ(* v ʠJ(ʔ*ʩ(, lv #@BʠL( 4  #r! wXʠN( 4  #r /B(ʉ*>* b| /P   #r `00`$ ʠB(ʩ(* v $     $$H ʠB(ʩ(* v B,B, ")"&ʠh(ʠ@*ʠJ, q ʩ(( qz /"  n.n.*ʩ(( `f |l ` |)   i"é$` |l ` |) i"é$`Ň(&nf 5F%  p 4 ` h>()2)2:0(0f  0f  `(0V % E()2)2(` | 0,2b  0[  b`D$@H@@$ @$ @"   %HJDD@$ H$$$%IH@B@I( I(""@$@"HC$I$I$I@I$$  I$I$I$ J@( H@ @*!@  B""A  @ @$  @ !!  D@ I$rH 8 %@@ D!% @DAH@P$  @$"$$A@ $@@@$@ !I$H"A!""A AI($$HDH@@I'   @ DB@ DDDD(DB!$I $ PDBA B!J"@D R@ DD"@B "A D" @IA@JDD@(DH!E! @  /~@@"%  H $D @"$@!   $$PP(@  @@ BB !$D@I@HR (A!AI("!%$HHA BB $ BJH$HPRH)%Q$DA !  D$DIH$$A$@ !@ HA @ H!$H""  $$  P    @B@ @  @@ BB !$D@I@HR (A!AI("!%$HHA BB $ BJH$HPRH)%Q$DA !  D$DIH$$A$@ !@ HA @ H!$H""  $$  P  'OVLY14 ^2 (%8&$ H E6&"HY^$ #r Of6I`` b| (6O`b`d q ɧ` qzf 4 6 GY^$$`6(RTD\K$M*^l #r Z& 4   4 `Zɠ"    n "eHV6)6    4 `Z,.H 4 ʩ60 e _X)6  b|  )6  Mr Z`*)6)D  S \u)6     )6  lv T@'6 (0   'D (0    )X  )X q ɧ qz ɧ R , ɧ  qz  )X  g V   q 4 ` & ""##&&>>ҋ*i(`.`05^6Zf f f>`2& 4dfff8  f6&4`0%.%D D  #r `C4( VT *=6D8f7bR<j|$?5lì@$ʠ( Z ʠ(*ʠ, q  #r (ʉ** b| ((f   ʠ( 4 )* '( ((  @\ ʩ(0 e j(h/ #r ʉ(( c ʉ( ( ʩV( ed \^XZ`/ /7ʉ(.( c ʩR( A. ʠ0(*, q / `ʠ( T  #r  IL /* #r /`ʎ(( c ʮ*( A. ʠ(*, q ʉ(( ` ʉ  ((ʩ(*ʠ, Mr ʩ(0ʩ62  (ʠ( 4 /T #r ʉ(( ` ʉ((ʩ(*ʠ, Mr ʩ(0ʩD2  ((i@NiBPʠ(ʩh*, q ʉ(( qz ʉ(( ʠ( 4ʠ( 4 ʠ (ʩh*, q ʉ(( qz '6 (D  `i@\iB^i@\ iB^i@\iB^iNX iPZiNXiPZʉ("(ʠ*  ibi@iBiNiPdi`ff)biff!fbiff ffFdVfʠ$( 4 bbdib`dũbbũf/& #r /(  `( T  #r  IL /* #r /,ʩT( ed `>ʉ(2(ʠ&*  iji([`4 [`6`8G`:`4oni\i^ iXiZʠ(ʩj*ʉ,, lv ʩT( ed  @$ d / #r ʩV( A. `Gʠ<(ʩh*, q ʉ(( qz )h)h>   `@*`,i\2i^4ʉ(( qz iX2iZ4ʉ(( ^ʆ( , Zʆ( ʩR( ed ʠ(*ʠB, q ʩT( A. `. >(l@$ #r & IL &,pA @$ #r `(* #r &B,& 4$DY`D`  FɧH c (GI`JG #r  IL ( ed ( A. `Fj D6 (`b*,G;3R )-pʠ( Z f> #r ʉ((ʠ*  ʠ(*ʠ, q 3#Y  ij~o~ ~   j #r &&``^ (ʉ** b| È&Ch&& #r ʩ6(ʉ** b| o*dʉ((ʩD*, Mr ʉ((ʩ6*, )6T(ʩ60ʩD2  (ʠ(6    ʠ( 4 `fo*0j*f`ʩ60   e j(l#(lɬɤ t  ).j.|jz|jj|F #(lɬɤ t  ʉ(( c ʉ(( ʩ`( ed ʩ`( A. hʠ(ʠ(ʩl*, q ʉ(( qz ʉ(( ʩb( k ʠ( T &  #r  IL fFhʠ(ʠ(ʩl*, q ʠ( , ʉ(( qz )F 'D (( @\ ʩ`( ed ʠ(*ʠ, q ʩb( A. ʠ( T`\ #r (ʉ** b| R R    ʠ( 4 `fR#T(o*0j*f`HiR!ʥ  (ʉ**ʉ,, c #(ɬɤ t  'ʠ(ʠ*, q ( , ʉ(( s~ f>D`F`HCCJ|jz|jj|).j.ʉ(( c ʩ`( ed ʩ`( A. ʉ(( c #(ɬɬɤ ht ʠ (ʠ  *, q ʉ(( qz ʩb( k ʠ( T & #r  IL fSʩb( ed ʩb( A. ʠ(ʠ*, q ʠ( , ʉ(( qz ʠ (ʠ*, q ʉ(( qz ʉ(( ʩ`( k )T 'R (( @\ ʠ(*ʠ, q ʠ( T ʉ(  ( c ʩb( ed ʩb( A. ~ c~`ĉC C /~ d `F,()T *EF: #r O`` q Of6I` b| ɧ c ,6O`` q ɧ qz ( k 4  T  Z & #r O``   q  IL &,ɧ c * ed O`` q ( A.  T  d  Z  #r  IL"&%Hɧ c * ed O`` q ( A.  T i(* d * ed O`` q * A. `L *l&%H2 J , L   , FF &L N%F & &L N& &L N)( L  8`R(O,*0)^:l@$ Z  #r >8e*(ɧ c ( ed ( A.    q & IL &,pA #r #r  @$ d &  6  b| ,6B&%H)ɧ c   q ɧ qz * k  T ( ed * A.  q ɧ qz ( k 4    q  T `W(V,*) :lb Z  #r >8f*(ɧd c  ( ed ( A.  f h q %6 j b| ɧl c i,6 n p q ɧj qz * kr 4 t T %v #r  IL ( ed  f x q  d * A. z T `W06(FHD?P RZ #r  o~Nʠ(*ʠ, q CJCL&V& #r  IL ʉ(( c ʩR( ed ʠ(*ʠ, q )JiLXDX` 3#C# (( @\ # (( @\  3#Y  fL #r & #(ɬɬ  ɬɤ n 6   ʠ( 4 ):`:#(ɬɤ t  `8@ʉ((ʠ*  D'6)DH`ʉ((ʠ*  D'()DFG?I )*bo~ b.Vʉ((ʠ*  ~iP  i.o*o~ o*ozVV Vc.VSVV V~V |Pz|PP|~ P)8_o~ b<Sʉ((ʠ*  ~iPi<o*o~ o*ozVV Vc<VSVV V~V   |Pz|PP|~ PH GY H GY . GY )6& #r `ʩR( A. o~N~ c~`ĉC C /~`@) ASE LSE OR EPEAT HEN HILE CCEEFFRRTTWWh  4@&`@&= E``@&` @& @& `@(``@&i)(5^2V`,`.`01`,`.`0'`,`.`0` ,`".`$0`&,`(.`*0 `,,`..`00`@&%IF%+ D* `@&Fi+@)@(h( @&@& @&=`  ` @&@(`H@ RBI@ P@(EP@ E!()I' Hp  $$ D" %$$$ $HHA  !!H@"H $A(A $HH% Q"A!$! $I! !$D@!(BP D  *$ $HB A $$D$B"HI!   (PDE%%$J$HI@ H B(I((P!J@ R!EH)DHJ@ HBA! @ P %$$$@ @I@I $)YT$ID$I $$! $I! !$D@!(BP D  *$ $HB A $$D$B"HI! 'OVLY15 ^ 62 (TH 3cF`(#^ ( (( @\ )FC 3#C( (6:#(`bɬdɤd t  :`^8@e@: SZ ʃ(ʏ*f*  .#(bh*Ϭfɤj ht '2   (( BDʠl(ʠb*, q ʉ(d( qz ʉ(j( ʩD( , ʉ(d( s~ ʠd(ʠh*ʠn, q ʉ(d( qz ʤ ( , ʤ( `? .)( "  )(TY`$`&*( 4 *)**( 4 `,*  *GI`.G),02 4 `4,),62 4 `8,i,E`:`<)*J8N&NG` ?.)(   )(TY``* 4 *)* 4 `**GI`G), 4 ` ,),"   4 `$,i,E`&`(*Pfhfn`(6{ 7ގ>l #r %( 4 ,ZA` H   b| i(6ɧ  X5^)6  RX2*ʩ60 e   *(*ʄ*ʉ,,ʦ(. t  <)6  !2*ʩ60 e *(*ʄ*ʉ,,ʦ(. t  &(%6  4 &('(X)6  6  B Cʤ* s6 &Xz)6  )6  Bi`8)6CCP  `8%PD8ʩ80)6C ʃ2  _8 C: 4 ` :):" 4 `$:)6   &()8): B &()8): . )8): s6 %&(   #r `h4i0(i20i2(`ATAN$ COS$ EXP$ LN$ SIN$   SQRT$ $(6 ؐސDATAN$ RDCOS$ \DEXP$ fDLN$ pDSIN$ zDSQRT$ 28>DJPnn #F1ޑFlX ' '.X ", (8X 3  #r %: 4 ,  ZA` H  < b| i(6ɧ>  )6  GDDn 'X`@@eDB <%D B Mr X' 'DX;852"/,,X 3 7`P@i(BX ' 'XZd nx (8   X 3 & 4 '8ʩ@0ʩB2 B  )@ <  g   q %   #r `h*(V%   (V(ť`D0ì /D(6C*6 2b 2" ʠ( 4 .6 4   G.E.H)( 4$)* 4$D- ʝ0ʖ2  (ʠ( 4  c bʠ( 4 & ʠ( 4 *(`X(,*{>2l #r `"(&$D 4 ,ZA` H &  & &(&*f., 4 ( #r . 4 (&0t #r &&f0 . 4 (&2)0 #r )04)06, 4 (%X8  :).)0 B  :).)0 . &0+ #r ),%( b| %(T*ɧ<  )*  @  (B 4 D 4 (( %(), F Mr &HD   #r `(?@STATU$ 2COLUM$ <|\dlS #F1ޗ*6@l #r ,ZA H%- #r ɧ  )(      4 )* `"*`$,%&(   #re(`**`$,%DD.e2&X" &X  4 X5^F^`,>`.>: (6D (6)( s0 4 X5^j|)> ` q ɧ qz ( s~ &(%6,'6ʠb0ʥ>2 B    d $  f g  h q X 3 5`24l :)0 < q '( p ( s~ &()2ɥ`P`(I XXΘΙXޙ8l #r ,ʠ( 4 /ʠ( 4 ,ZA` H #r   /` 3 G66'` 'X"ʉ((  "@ Bʠ( 4 ʠ(ʠ*, q ),o>((2ʉ(( qz ʦ(( s~Wʠ(ʠ*, q 3# Sʠ( 4    (( pCʃ(ʤ*ʉ,  , : ʉ(( qz (2ʦ(( s~  & /#  #r  ʠ( 4 (ӈ/ʠ(   #r `( ޛ*6l #r % 4 ,ZA`* H &( b| (  &XX&(#   &(%>  Mr &(  #   4 &( (0  &( D%8ʉ**   &( &( ht &(%8&(#   4 &(%>%   #r `(26 DޜFl #r %.J 4 ,  ZA{ H  0 b| )(  4 6 4  8 :  ʩ(0 e _D)D<e@6`>D&X@ B 8)D 0 :&( ht )(  F   B)(&( lv &()(%HJ   #r `*8(   4 &OI` b| & #r`*{,?||c@@@@ԟ@@@@ ޠ(0ìl #r /ʠ$( 4 ,ZA`( H (ʮ(* b| .(T*ʉ((  )*  `  `(i*X`@' 'X/oD,L #r / o. ʠ(ʠ( 4 ( #r ).oD,Gʉ((ʠ*  ,YE堜).I頜.Gɯt\Y). `.ʠ( 4 .GIɯj<%    !%  o@,o>,%  ʠ( 4 (X 3 B(^.X.XD.Xʠ(ʠ(2*ʩ*0 e *(*ʄ*, q ʮ(( qz n(.Xo>o@``nmnm*ʮ(( qzʮ((ʩ,*ʠ ,  Mrʠ( 4 /"ʠ$(   #r `.(2:ޡTl #r &,J 4 ,ZA` H &. 3 B 3c6  ɤ0 b| i(66  4a K&6G #r &8: 4:&  <: 4-L`@NfPfRiLPiNR6    c6NLB 4  #r 6D 46ɬF( cD 4 &HJ   #r `8TV@*l&F)(    n :   4 & #r   b| & #r  b| && #r 4 )( b| `*8(i(Dʥ*ʉ,, : ɧࢴ qzv , v , `:#Wf(f*f,f.f0f2f  4f6f8 #r ɦ#ɦ#ɦ#ɦ#ɦ#ɦ#ɦ#ɦ#ɦ#ɩ(ɩ*ɩ,ɩ.ɩ0ɩ2ɩ4ɩ6ɩ8ɠ #`HP JH H@HH @%"R @PH H(B$@@@" A (   D@DB!! I$D @P I$!I!P "  I B@ H@B@(P"D"%  (!E %$I (H@%(@RQD@@@ $)I!H@ @! $ $D%(P H( I D "Q( DA)"@(  @ @HDHJI HD "H$ D B@(B)%$ (DAD)    HB@ H@B@(P"D"%  (!E %$I (H@%(@RQD@@@ $)I!H@ @! $ $D%(P H( I D "Q( DA)"@(  @ @HDHJI HD "H$ D B@(B)%$ (DAD)   'OVLY16 ^ h*(V%   (V(ť`6 T$ F EN $T DE $T (bpD~EX#܎RRcܑprl`o #r / ʠ( 4 `  v  ʉ((  ):@)@  &:>H@)8@#(ɬɤ t  )6  /ʩ6(ʉ**ʉ,, c ʉ(( `   ʉ((ʯ>*ʠ, Mr  `ʠ( 4 /`D #r />o>``  oono6o6o>F`J`HoPoR #r #(ɬɤ g [/C v "ʉ((  )". ,ʠ( 4 ʉ(( ` @ Bʠ(ʠ( 4   ʠ(/  `ʠ(ʠ( 4  //`0`8 #r  v "ʉ((  "ʉ(( ` @ Bʠ(ʠ( 4 . ,ʠ( 4 )  ʠ( 4 /ʠ( 4 &X (/`P #r &X/(ʉ** b| '( ((ʉ66  ʉ88ʉ::ʉ<<ʉ>>  @ v "ʉ((  ". ,ʠ( 4 ʉ((ʉ**ʉ,, x V ʉ((ʉ**  Dʉ(( ` '( (0  (C&X R (  `~`     `ʠ( 4 ' (( n #(ɬƤ g rP)8)8'6 (( @\ `#(ɬƤ g nP)(  Ga 'X~Zʯn(]~Sʯh(V&X#(ɬƤ g   nPDCCʃ(  ʤ()&X#(ɬƤ g nP&X  <Cʃ(  2ʩ((ʉ**ʉ,, c ʠ(2*ʩ0 e (*ʃ*ʉ,,ʆ.. g vP#(ɬƤ g rP#(  ɬƤ rP#(ɬƤ nP&X~)*o(  (  Bls)(  G5^&ʠ(2*ʩ(0 e (*ʃ*ʉ,,ʉ.. t *ʠ(2*ʩ(0 e (*ʃ*ʉ,,ʉ.. t  C  ʃ(ʤ* s6 ),#(ɬƤ g ,(  ɩ(Fʠ(2*ʩ(0 e (*ʃ*ʉ,,ʆ.. g F  &XV,' (('( (6  `ʠ(ʠ( 4ʠ( 4 / #r`j #r30l   f h q '( p ffP`1(*͠͠ q ɧ c ( A. `K(86RD2*ʩ(0 e j(*ʅ*, q ɧ qz Ƨ T , ɧ qz `*FT(RD $T bEXN6# dNΕΕNNNNNNNN  ND,ì lr`Xʏ(V( ` (ʎ(X(ʎ*Z*ʉ,\, x . ,ʠ^( 4 V ʏ(V(ʎ*`*  j(v'* (0  *(ۄx R /*  ۠mxT۠ox.x   ( ʠp( 4 `r(/*    (.Ht$P! ʠv(ʠx*, q ʎ(z( qz ʏ(V( V``'v (( n $( | r z X g vP $( | ~ X X nPo*  G**_ 'XTXʭv(TQ-v ʄ( %Dʄ(  %Dʄ(   ʥ( 2ʯ*(ʎ*\*ʎ,, c ʠ|(2*ʮd0 e *(*ʄ*ʎ,,ʏ.X. g vP/. $( | r V X g   V.' (('* (6  - #r  v ʏ(V(  `ˠrr)RDLN$ #6F*$  VREAD$REL (READ$ `ìlˠ" #r nt`8n6`:FF`f Mr i(d  h 4 O5i( O5i(  &di, j 4 i,`l #r OI`n b|i*Ո&p #r &ri*`l i, i,`lj 4  #r `h,l*()( & & vf6f  6`# F**l  q ( , Ƨ qz nP`*r8( 4 &.OI`0 b| &2 #r`(6v 4 &x  #r OI`z b|&| #r  `ILRBCFDS >$ 'X`(`(`(`(`(`( `(`(`(`8TV@vB*l&nF)( p r t n z:| 4 &~ #r  p b| & #r p b| &&   #r| 4 )( b| `@d|vLRjX^ctգP&F9 #r )6 b| 6 ` )6#   )6&> H Mr )6#  dJ 4 4)6 Ii6f>`L`N  )(  GNN  0 'TX&\&V&^&X&R  `N $&Z&TD D )( P)6 c  )> R 4 )> N&FF #r )(  vx 4 &>)8 b| 8 ` )8#   )8&> H Mr )8#   z 4 4)8    ):)<Ԉ&|G #r '- 'X)(   )(  )<~ )(  C):ࡀ 4  )> R 4 )> N #r ` @蜀$!@)($$H$D $$$$$B "T$$@"HQ@"$HH!HH@  H% AI@%)($  @H%R@"@I I@@HDI@JHPD"?!  B( JII @Q$$IA())R@HI@D$ J$IP()($@D!$"H  HPRP@D$())$I   B"  "@RAADADH"Q ADI@9  @$@HBI@JHPD"?!  B( JII @Q$$IA())R@HI@D$ J$IP()($@D!$"H  HPRP@D$())$I   B"  "@RAADADH"Q ADI@9 'OVLY17 ^z h*(V%   (V(ť`AB(F* #r &H& 4$D%   q %D k% %   q % p ɧ c ( A.  #r `(CLOSE$ ^EXTND$ jIO$TERM t  PAGE$ ~REWRT$ REST$S RTSET$LUNOSET$MEM SET$NAMESKIP$FILSKIP$RECWREOF$ ԋ:~~~~V~\~~~b~~.4~~~D#F \\\'Bl #r &J/X^`:` @>   'NX`L@`L>ʉ(T(  . ,ʠV( 4 (   ʠX( 4 )*Z`\*`L,X4`~' 'Xf (6@Gʠh(rn|k (6>ʠh( 4 ( r~ʠ(p (6>0)( (6  @ʠh( 4  `;V sR`;N" (6>@> (6>@2ʠh($ (6# (6>ʠh( 4 (  ʠ( 4 X 3 L'6 (( < #(LɬTϤ g vPX4`'   '*X&` #r  v ʉ(T(  @ Bʠ(ʠ( 4 . ,ʠ( 4 (6ʠ( 4 ),6F#(LɬTϤ g vP&ʠ( 4) #r (ʉ*T* b| (6ʠ( 4 6F#( ɬTϤ g` &w   #r (ʉ*T* b| ʩ(0ʦ42  (ʠ"( 4 (F#($ɬTϤ g 4P&ʠ( 4m #r (ʉ*T* b| ʩ(0ʦ42  (ʠ"( 4 (F#($ɬTϤ g;&ʠ( 41 #r (ʉ*T* b| ʩ(0ʦ42    (ʠ"( 4 (F#($ɬTϤ gW&ʠ( 4M #r (ʉ*T* b| ʉ(T( ` (  ʉ(T(ʦ>*ʠ&, Mr (  ʠ( 4 (F#((ɬTϤ g X 3   &\ʠ(   #r4f  (`&*`L,CC.f2 (( < #(LɬTϤ g  ʠ( 4 `HALT$ ( #r &  &   #r  <   `(MSG$ #F6D ݒDRl #r %x ɤ  b| )  (  U < ),ɬ Ƥ g rP(ɬɤ c ɧ ` D   ɬ>  Mr "ɬƤ g nP $ 4 %&(   #r( 4 `D|n  `R( r$  PACK$ ~#F60ìl #r /H`$  v ʉ(J(  iD%   % tʠL(ʥ(ʉ*N*ʉ,P, c /RʠT(p #r (ʉ*V* b| ʩn0ʥ2  (ʠX( 4 ʠZ(ʩD*ʉ,V, lv $( \ ^ V N `  ht %ʯv(%ʤ(ʉ*b*  $( Z ^ ` b ` ht /RʠT(` #r  v ʉ(d(  . ,ʠf( 4 R&   & tʦ(ʉ*h*ʉ,j, c ʥ0ʦ2&  `ʩR(ʉ*h*ʉ,j, c ʥ0ʯ8  2  (ʠl( 4 $( \ ^ j h p ht /"H p t ! $( v ^ p V V ht ʠZ(ʩD*ʉ,V, lv &   6&D?0)H $( v4 J ` J ht `xFN $( z | J d gʠn( 4` (  ( < )H $( v J  g vP $( ^ `  vP)V $( v d  vP&   &D?ʄ(  & ʃ( /P<Hʃ(  ʯH( ʠv(ʉ**  $( v ^ p p ht $( ^ p   g   /ʠT(   #rʠT( 4 `.3t0l 4 6 q '( p ffP`1(*͠x͠z q ɧ| c ( A. `# F*l  q ( , Ƨ qz nP`*B8( 4 &  OI` b| & #r`1TIME$ JDATE$ T(#FݙB6l, #r &FS $XHR\ <  v ɧ^  .,` 4 ʩ(0ʦ42  b 4 ),dfɬ^Ĥh g   &jl   #rl   4 `D%|Rn  `( v$UNPCK$ #F 6ìl #r /F` /H  v ʉ(J(  /L(ʉ*J* b| )D     sʤ(ʠN(M  ?ʩD(ʉ*P*ʉ,R, c /V/   #r  v ʉ(Z(  . ,ʠ\( 4 iR    s ʠ^(ʠT(ʠX(}ʥ(ʉ*`*ʉ,b, c   ʯ80ʤ0ʥ2  (ʠd( 4 /VI #r (ʉ*f* b| ʩn0ʥ2  (ʠh( 4 ʠj(ʩR*ʉ,f, lv   #(lnɬfɬ`ɤp ht  ʯv( ʠX( 4`ʣ(ʉ*r*  #(jnɬpɬrɤp ht #(lnɬRɬPɤt /"H p x !#(znɬtɬfɤf ht ʠj(ʩR*ʉ,f, lv    3C?  -)V#(zɬZɬpɤZ ht iDR`|T\#(~ɬJɤZ g` (( < )H#(zɬJΤ g vP   C?ʃ(   ʂ( P<Hʂ(  ʯH(    "      `  z    `zo6``z`z#(ɬΤ g vP)V#(zɬZΤ vP#(nɬpΤ vPʠz(ʉ**  #(znɬtɬɤt ht #(nɬtΤ g   /  ʠX(   #rʠX( 4 `.8TV@*l&F)(    n : 4 & #r   b| & #r  b| && #r 4 )( b| ` BB ($!!!HD"   D DD BH@BHHB@$%) $I HIR@$I HIDA I HH  H$BH BRJH@J JPEIHHI $ $ IDHB@ B@ RJ)% $"J@RRT( JI)  IAIHI$ ("@RAAD!@(())@"D !"HHB@$ H $P $AI)   P@RU A$H)%%"I$ J(Q $HIR@$I HIDA I HH  H$BH BRJH@J JPEIHHI $ $ IDHB@ B@ RJ)% $"J@RRT( JI)  IAIHI$ ("@RAAD!@(())@"D !"HHB@$ H $P $AI)  'OVLY18 ^  0()(   )*$^)*&<`)*)()(C)*)*$`$  ")*$ ʄ* V )*$ ʠb*  )*$ C.E. $*# 󜀉8< |,?.*)(&:S)*  :  )(&<@)*  >d,`@,)( B  )(TY`D`FE`H`J),<P8vDI`Li*,GG` ҋ‹ D0ì l. D# C$ʆ(ʥ* 0 vʅ(ʦ* 0mʦ  0  *(/:ʅ(ʯ:* 0 ʆ(ʯ:*Tʥ0  *(/:ʅ(2*ʦ0  *(*ʄ* 05ʥ0  *(ʄ022ʦ0  (*ʃ2  (ʥ0  j(.ʅ(ʩ.* 0 ʆ(ʩ.*  `o<Šɯ<((2ʠ( 4&`(`(`(`  (`"( `$( 3 +ʩ((ʠ4* V~  #r `X06' '&X (* $8R Q(Rìl ((   ( ( C C#  &* ʯ((ʄ** h  #r .`(c(ʉ((   [ ʩ((ʉ** b| ʩ(0ʩ*2  (ʠ ( 4 **<o(Cʠ"(ʯ(*ʉ,, lv **<, & '* (0  j(F`JJ.($$ JF)F`fF 2 C 58` #r ʩ(  (ʉ*** b| ʩ(0ʩ82  (ʠ ( 4 88<o(Cʠ"(ʯ(*ʉ,*, lv 88<: & '8 (0  j(H`LLJ/L,$(F%)F!H)HiFiHPEP[ 2 C 58  ʠ,(ʠ.*, q ʯ(( o ʄ(( qz ʉ(( ʉ(*(ʠ0(ʠ.*, q ʯ(( o ʄ(( qz ʉ(( ʄ(( s~ .2 #r`. #r `<`, *(04 B0. R02Qt(`ìl ʉ(  (ʠ*  ,),  &* ((6(: .:$ (:(-(  G\\ ` 'X(c(ʉ((ʩ(* R ʩ*(ʄ** h ko((ʏ((ʩ(* R ʯ((ʄ** h (HM(c(ʉ((ʩ(* R ʩ*(ʄ**   h ( (b   ("" *cAH*( .:$ (( C#), #r .``rT.T`FP,P`ʠ ( 4 ` #r ʩ((ʉ* * b| 'B ((ʉ66ʏ88,ʃ:  F BB<D  'B (0  j(R`VVTVVʉ((ʠ*  ...(.ʉ((ʠ* 00'4.0ʉ((ʠ*  22'B.2 `P,Pʠ (   4 R,Rʠ ( 4 P~,PxRu,RoiPiR\E\g 2i, C 58P 2i, C 58?ʉ((ʠ*  ...(.ʉ((ʠ* 00'4.0.  )..M #r ʩ((ʉ** b| '4 ((ʉ66ʏ88,ʃ: F 4 4< 6  `'4 (0  j(P`T`. #r `<,:2!`J(|)(`i(H)H5^|(# x    (# z )(2*ʩ,0 e *(*ʄ*ʉ,x,ʉ.z.ʩ*0 ht((# x  )(2*ʩ,0 e *(*ʄ*ʉ,x,ʩ*. t  )(*)()*&<%)(d%  %Dʥ* s6  )(*` 1  XXNFXX $,֚$$,֙D8:ʩ(06ʓ2  `d@ 4 `((<)(  G@@ `X 'X6(86 R 8: h *  K'( (0  _>8>G  H)>&P&v8ȁ#`\6(86 R 8: h *  j'( (0  _>)>Y8>GH)>&P&v8ȁ>686 R 8: h %6   $$  8CHw 4 q)*)*'( (0  (+)(  G@@ ) ',Xd>< !(   4 (ʃ0ʠ2  _>>d  GBB 'Xe>`>8bAi>`>GH)  >&P&v8ȁ h>)2zi<( )2|i6((`*( <,  Cψ# ʠ(U C4"ʤ0  (:ʉ((ʣ * R ʄ(ʩ**ʄ(2*ʤ0  (*ʃ* 0 C" #C      ʠ(.c*ʉ(( [ ʤ0ʩ*2  (ʠ(d(ʉ(( [ (ʠ( V&(   ʠ(ʠ* V~ʠ( V&  #r `*  ̜ . l, C _ CXɬ@  B  *D)-' 'LX*F*H *J 3 *( C*ȣ  C*ȣ* & C*D C  " ʣ* 0 C "ʣ * 0 ($V V&`F,`H, `J, 3   ,b V~  #r `' 'XXh20f<( i0e(i0e(`,<l*W)(ʤ0  _:N)*   Ci::):   6):ʤ0*ʣ2  'ɩ*(f(:&( ((#&( * < )( &  )(', )( &)(%<(`.< QR| ||QQRR:CN( ( )(``i(LL5^6(*ɤ  < (*ɤ (ɬ ɬ, ht`(*ɤ  < *(b   lv  q * o ɧ  qz (F(*ɤ  < *(b lv *(b   q * o ɧ  qz ( (  , s~ ,*:,*, h y   ,  <kdLEL& 2 C  Yʉ* *  *c.*ɤ  lv d& 2 C  2ʉ* *  *c.*ɤ  lv ,*B,,*`h4i0(i20i2(` |l `  |) i"é$` @ "P@H  A@ $  @$@H $D@ @P@HAD!P $ABA@ "PRPP@$"$ @!$"DHI(  P @@P? B @ DA@   B@( @"$A @@ H$I$P ) H  @$P@@HEDHE    @ABA@ "PRPP@$"$ @!$"DHI(  P @@P? B @ DA@  'OVLY19 ^d WRL$T 206^4(f Oi(`h O)(  i(  AfE2&)* j l),). R )0f*  i(  `h0)0fi2Ʌ)()0  `ENL$T  - :l`Ddi,U0`d2  Ef88 )2)4 F H 5 <\D%08 : )2)4 F H 5 |2\4)2)4f 8i8 I`J:i*8i8*i,)*D6D03i6E0ai8E6),EjFji(F`M86i(i6)8  d;)8i0),`  Bdi.id`r*le.((=)(40ʄ(( c ~ʠ( 4 &~ ʤ( ed ʤ( A.  ʠ(T(ʠ( 4  #r / `v( l #r >7 ~?.<    B& C#C@B@GI /B Cɣ`E**l #r 0&e.(( )(T( #r ((ʠ( 49)( ʄ(( c /~  ~ʠ( 4 ʠ (*, q  ʤ( k ʏ("( c ʯ*( A. `*,Th.OI` I`  > :!7' 'XOi(i*i, %ff% F OI` I`   Oi(i*i, Oi(i*   3 `?.)(     )(TY``* 4 *)* 4 `**GI`G), 4 `,), 4 `,i,E``)*J8N&NG` ?.)(   )(TY``* 4 *)*   4 `**GI`G), 4 `,), 4 `,i,E``̉*Pfhfn`?|r,)*)(&DR)(   )(TY`E``)*Y``* 4 **GI`GftY``  )* 4 `**GI`Gfj`v(*,6. l ,> ~?<  o@(oB*#( B (ɬɤ @ ʩ((ʩ** s6 ʉ((ʩ(*ʩ*,  i,,`:(*,. l   ,> B?<  Bo@(oB*#( B (ɬDɤF  ʩ((ʩ** s6 ʉ(H(ʩ(*ʩ*,  i,,`(ipppppppp6& 4  #r & OI` b| & #r ` 4  '  ' X #r  #r #r &  OI` b| & #r,:6^H(`Pf OfI`   f (,&8f OfI`   f (:2*ʦ0 e j(*ʅ*ʉ,,ʉ..ʩ*0 ht[&<  2*ʦ0 e j(*ʅ*ʠ, q ɧ qz f f  i*',).-', @\2*ʦ0 e j(*ʅ*ʉ,,ʩ*. t  i*`," !3FL$INIT n#: 1HNΕRRìo((1i(ʦ(ʉ*  b*  ʦ(2*ʦ0 e *(*ʄ*ʉ,b,&ʄ. g U(n*(*(`fi(% 4$U*` 'Xʠd(*, q & (( p & ʄ( , ʖ( & tʠf(ʠh(*, q ʦ( , ʖ( `n*˩(*ʠj(  *ʠl, q v (( p V:`x<`z>/D@ofDV,`x.0&DD2f6 $( | z b ~ g orDʠ|(ʠ*, q ʠl( , & (J/"H  I #I'J (( p ʉ(~( qz /H 4/NǪCD  ʠ|(ʠ*, q  sʠz(  ʠx(( , ʉ(~( qz ovDʠ|(ʠ*, q ʤ(  ʉ(~( qz ʠ(*, q ʉ(( c ʩH( A.  3 =i*(`3CLS$ #(61DF*i&* 3#CU  (`*,CC.e2U6`8`:C, ʯ(ʠ*ʦD, ʯ(ʠ*ʩ., ʯ(   / :( #`(`(/% ( C./&  C0/"H6#CɃ6ʯ(ʠ*ʦ6, & ʯ(ʠ*ʩ(, ʯ(ʠ*ʠ, ʯ(ʠ*ʩ., ʯ(ʠ*ʦF, ʯ(ʠ*ʩ0, ʯ(  ʯ(ʠ*ʯ, & ʯ(  C2  D2 ʯ(  ʯ(ʠ* ʣJ, & /ʯ(  (*fz,,,c*c*(,S,ʯ(ʠ*ʩ(, & ʯ(ʠ*ʩ*, ʯ(  fz,,?),ʯ(ʠ*ʤ, & ʯ(ʠ*ʤ, ʯ(ʠ*ʤ, ʯ(ʠ*ʤ,  ʯ(ʠ*ʤ , ʯ(  T,ʯ(ʠ*ʠ,ʠ. t #(( 2 ʯ(  `*z8(i(Dʥ*ʉ,, : ɧ qzv , v , `,( 9% ńT  ~   4 (Š* 9% Ň  4 *Š*  4 *Š`..09EEQQh2)()*,&D.E. &0T105^":)(,)*`,)( & 0 & .)(`h4i0  (i20i2(`h4i0(i20i2(` R@(fEE4f6ai6E8*&DD:f,5^0ʩ80ʩ>2  _20ʩ60ʩ<2 ş0i2V a2i0Fi.`>20i2V..Š  8`>C@PP`  2fPE2,5^ʩ:0ʩ@2  _4i0ʩ80ʩ>2 _i0)4D284i0)4i.i.i2i:i>E4)2ai0D(i.ʩ20)6)<ʄ2  _i8i>)0).`C4 i2ai4)0).)2i0 ࠸ 4 i0`i0 ࠸ 4 i0`` |<  ?,)( 8  )(TY`:`<f8HD*`>PE`@)*&P8vDD?E`@D` @Z{[lP}M]\Nk`Kaz^L~no|JO_m`{|}~    D$ P@ $A" "$IH$P@%@A$A) H %"R @ I PHB"@DA*H@( ""P@$P@  @H @@P BBHPH@@ B$  $ $H )@   @A A  $R(@  B$ &@H$$ @JI H%($@@@A*H@( ""P@$P@ 'OVLY20 ^ h*(V%   (V(ť`#> ""##&&>>4&` #r 5^ 3c0Jf80C.C,Nf60&,.B,`.<ʦ0ʦ2 &, _2 2Pf@02Pf>0    f@0f,f. 4  #r ( 4 ʩ00(ʣ2   4 ()*i( ,3.0,(.% C%    $  &v e (e((8NEW$ H#  F FREE$ Tb%%}ݍxVlfF #r &~`f  v ʉ(( D . ,ʠ( 4 (   4#f>8`< `:CC>dB`:CDLB)DBfvD  d6ʠ( 4 ʦv(ʉ**  6  & ʩ6(ʉ**  X5^ ((  V ʉ((ʉ** r ),#(ɬϤ g rP#(ɬϤY ((  V;'( (Hʠ(2*ʩH0 e (*ʃ*, q ʉ(( qz ʏ(( ʯT(  , ʉ(( s~ ),#(ɬϤ g   V,'H (('( (6  &ʠ(   #rʠ( 4 ɩF`30l | ~ q '( p ffP`1(*͠͠ q ɧ c ( A. `K  (86hD2*ʩ(0 e j(*ʅ*, q ɧ qz Ƨ T , ɧ qz `h,l*()( l& n& vf6f6`# F *l  q ( , Ƨ qz nP`ʏҏڏ  (ސ< #r /ʠ2( 4 ,ZA` H :&(/> /7/&> 3 B5 3c6 #r 8o>6o@6o66o86oD6oF6ʠ( 4 ' 'X`:ʉ((( D i(6i6  V :ʠ*( 4  C%  ,  $  /v   e88/. ʩ8(ʦ(*  /0ʠ2(   #r `*.8( 4 &OI` b| & #r`(62 4 &4  #r   OI`6 b|&8 #r  `ILRBCFDS  h@0  G>>$ 'X`(`(`(`(`(`( `(`(`(`8TV@2*l&*F)( , . 0 n  6:8 4 &: #r  , b| &< #r , b| &<&> #r8 4 )( b| `*8|(WR $T X#F T.>>,........cNt, lb`ʏ(( ` ('  * ((ʆ66ʆ88ʆ::ʆ< <ʉ> >  (f'* (0  (كh٠hh   ( ʠ( 4 `(*  &&:"&B &D"ʠ(ʠ$*, q ʆ( ( qz ʏ((`'f ((  #(&  Ƭ Ϥ( g vP#(&*ƬϤ( nP/*  G**Y '.XRʥv(K~v ʃ(B#(&*ƬϤ( g nPCCʃ(  ʤ(#(&*ƬϤ( g nPCʃ(  2ʯ*(ʆ*(*ʆ,  ,, c ʠ&(2*ʦT0 e (*ʃ*ʆ,,,ʏ.(. g vP*  Po/,RX/*  G**5^VbʠT(2*ʯ*0 e (*ʃ*ʏ,,ʏ.. t *ʠT(2*ʯ*0 e (*ʃ*ʏ,,ʏ.. t  Cʃ(ʤ  * s6 /.#(&ϬϤ( g 4*  B*  *Fʠ&(2*ʯ*0 e (*ʃ*ʏ,,ʏ.(. g F  %d #r (ʏ** b| `|ɠb5WRLN$ #(F*n$WRT$REL HWRITE$   Ҟfjìl #r nd`*n(`,nEE.n2.1/X&,ʠ( 4 ((  J%(``I`O` g  ʠ( 4`b #r (ʏ** b| o*%   L. ,ʠ( 4 '* ((i(e6.  !b #r i(%  ʮ>(ʏ** b|ʩ6(ʏ** b| `b/X ʠ( 4 bi(% t j i(% .. > b`P`'* (nʉ(( ` in%  ʉ((ʮ@*ʠ, Mr in%  ʠ( 4 n@F`  J`HnLnPhn6n6J%(``I`I` g .b #r ʩ6(ʏ** b| ..  >`Jʠ( 4 `bb/X``Jʯ*0ʩ62  (ʠ( 4 ((  J%(``I`O` g vPJ%(``I  `O` hP/,X*  G5^ʠ(2*ʯ*0 e j(*ʅ*ʏ,,ʏ.. t *ʠ(2*ʯ*0 e j(*ʅ*ʏ,,ʏ.. t  fEʅ(ʦ* s6 /,o*%  J%(``O`O` t  /.J%(``O`O`   g   .` #r ʩ6(ʏ** b| .. > ʠ(ʠ*, q ʉ(( qz ʠ( , ʉ(( s~ J%(``I`I` g `ʯ*0ʩ62  (ʠ( 4  ((  J%(``I`O` g vP/,X*    G5^*ʠ(2*ʯ*0 e j(*ʅ*ʏ,,ʏ.. t *ʠ(2*ʯ*0 e j(*ʅ*ʏ,,ʏ.. t  fEʅ(ʦ* s6 /.J%(``O`O` g rPJ%(``I`O`   . #r ʩ6(ʏ** b| .  . > `b`i(% t ((  J%(``I`O` g  ʠ,( 4 .ʠ(   #r ˩d`.@栌tz̠̠̠̠̠̠̠cա衸*P&n9 #r )6 b| 6 ` )6#   )6&  > p Mr )6#  dr 4 4)6 Ii6f>`t`v  )(  GNN0 '|X&\&V&^&X&R  `v $&Z&TD D )( x)6 c  )> z 4 )> v&nF #r )(   4 &  >)8 b| 8 ` )8#   )8&> p Mr )8#    4 4)8  ):)<Ԉ&G #r '- 'X)(   )(  )< )(  C): 4  )> z 4 )> v #r ` @I$ĂP  B $H! @H $:$%@H@I$H @(R "@RAIJ B@!I$HBB """"$HPD%@Bi BI! AI@)  J%I   HPBa& A$())%@@B $I$H  RQ *HHPR  P H JDI! $$HPRP  $ )($"$HPRRHAH(P H@ @(@(P)!I$HBB """"$HPD%@Bi BI! AI@)  J%I   HPBa& A$())%@@B $I$H  RQ *HHPR 'OVLY21 ^ B Z l^.J TL< # Dì l~6 3# R!  ʔ(ʭ**ʉ,^, S Zʠ`( 4 `.0ʭ*(ʮ.*ʉ,^, S Zc`\m*(C*  BXi*)Xb)Xde,e,ʭL(ʥ*ʉ  ,f, : ʭL(,ʣ*ʉ,h, : ʩ((ʉ*j*ʉ,l, c   (  X` `|,`i(  G'? 'tXLoNzCʃ(ʥ*ʉ,l, :joHzg`rz*(ʉ*j*  #(npɬlɬjɤl htFoNz  ʥ(ʯv(ʉ*l* 18NCz s C?/PGzoPz):)8#(npɬlɬjɤl ht o"J)Xb`r|3)XdoH|+*c ʠ~( 4 oP|8NC|*B?/PG|i|zh)|  )z)|G|)zGzވ)zrʩz(ʉ**  #(pɬlɬɤl ht )|rʩ|(ʉ**  #(pɬlɬɤl ht ʩ*(ʉ*j*ʉ,, c ):)8#(rpɬlɬjɤl ht #(pɬlɤ  h g ʠ(ʠp*, q ʩ(( : `)Xb )Xd)X``|i,i8i: ʩ.0ʥ2  (,ʠ`( iT iVʠ`(`,`-,bA-.r=(GGE 24C  E`LTiVi0   3Co><`>`r@BFCHʠ(2*ʩJ0 e (*ʃ*ʉ,l,ʉ.h. g ʠ(ʠp*, q ʉ(( qzʩ(( : ʉ(f( qz`*b qi(! p ~ ʠ`( 4 `r~*c(   n Th@  J>o@Ji8i: ~ʥ0ʩJ2  ( , ʠ`( 4 `r~,5ʠ(2*ʩJ0 e (*ʃ*ʉ,l,ʉ.h. g iTiV ~ ʠ`( 4 `r~,ʠ(ʠp*, q ʩ(( : ʉ(f( qz *C*  BX* i*   R`r\C\(C(  Xo<*`r\\`Nʩ((ʩ**ʉ,^, S Z~ʠ`( 4 `r~ʠ( 4 ˭*.6 3ˣ0`X*08( 4 &OI` b| & #r`*8(i(Dʥ  *ʉ,4, : ɧ4 qzv , v , ` @$$$$ I@!  $ $! $DJ@ DHBI %H@A A!$ "@$)  I` b| & #r`*8(i(Dʥ '!OVLY33  c h0fz.E. 8š)(")*)*`P!x 0!!!"</x~r// ),o~8E8$#,~)2or8E8`#2r/ !v   /F!|`~8š$ } 8 d&6&!|`#X*0)* 4$ .Dmkh`!|`!|0c6x/ !v,8,$Di,  - !z.0). 4$ .Ä n˩,`!|0.0-!v 8$Ä.!~  ˩,`!.!|˩, **v  ʠ!(ʦ*  0`"D !f 8ĠC:M: 8͡$ÄǠ!|ˠ!|4),,~4,8,$Ĉ&!fD4 8š#| !4`!2i2 82'|  (|4o~:M:8͡$Ä.!n˩2PEEPHOLE>X  B@ 0  $$v f or(o 4)x(`~4f V4i4GK`$G GGN`)]4t68FF:<`$z  v)ʉ($( g t0ʉ($( o i`$>`$LizVʉ($( o )8$<GK`$Gkivkv RF@)B$)B$ ѩCF  Fji>ʉ($( g @Z`):\FF.iBEFu)B$r)B$n)\$j)\$  fѩB F0i\ E2)B D*\ C,F*)0$G)2$~i*,z*wv.&@FB`$~>`$Ni* O% ,DDDX/ R\ӪC*)*$`$**  * GGJ`$BGBXv~ h B i\ F)B $)X$ B fF0i\ eE2   J`$B`$BXv)>$Ci>X?B  9B!$4i>N @Z% N IfJdZ`$B`$B`$\B f J`$\F\`$Xv R)X$7\ 2\ fF2iB E0%"B B F BF.B f Ɓ. J`$B`$BXv  )X$*)\$)B$'> (X `$>`$B)B$)X$ )\$v>XB F0X  i\ ŁF j X tZK`$ >ʉ($( o 'X (> `%l`%\oʯ(ʩ*ʩ,(ʆ. } (V(`%h0  ..P i. %Fi(..P i*`)i,i.i*`*L+8+N+, / '*&Xf E**& *f *f %F)(%f%hɦ [ & *s pɩ*  & *O`*  ]&*&| OfF`*  e   O`*"  f %F)(%%f %F)(tfThɦ   &   & *$O`*   f  Ɉ  ɠ* `h,x( 8"&z`& +fz*D* 8#"Cxz 8z"&z  h@i4<i6>`,((`$,@,H2  -B./B . /B .V-B./B//B/B22.II0.TT/01.02=,JR5(Dì,:~.x,</J,</N,: 8P$D,:`448$ V/j,>  `0*X,^,, ,B E'J (0 (8 , (0'R (0' (8 , ('R (0' (8 , (H&*,:k8$,<:'R~' (0 (8 , (g&*,:c' ((   O&,,D&,,FJ'J (0 (8 , (a8$,<XsɯTTLq'J (0 (8 , (q, ,Jg c&*,L'R (0' (8 , (I'R?, ,B 7&*,N&,P/'J (0   (8 , (}% ,<x'R/l,R&*,Tɠ,V.~c/l,P_&,,P[& ,:Wɠ,X,,XlP&,,XL&,RH'J (0 (8 , (3 '/&,,Z+&,\''J (0 (8 , (' (J 'R~~!  ʥ(ʠ,:* pT &*,L48d vB48B$ ,B `4/l,`3/j,N?'J (0 (8 , (r% ,<nʦ*0' (2 p (ʦ*0' (2 p (&*,DG`,:(ʥ(ʆ*,Z* r: ʥ(ʆ*,* ʦ(ʉ*,*ʉ  ,,, ) ɠ,X,'B8H%(ɠ,V.V.S&,,X])48$ VDP.PD0 $&'B 8H&x%.x"ʦ(ʉ*,*ʉ,,, ) ɠ,*'B8H%)0 $/HP~.~~j ,/"ʯj  0'J (2 p (ʯj0'R (2 p (r'J (0 t j(*'R (0 t j(,i*,)*,:),,:JVXx 8X.xNPx 8P.x.xʄ(ʏ*,* r: .xʄ(ʏ*,* ,Xl)*,\),,\  ,Vn/j,<&*,8l,4 10'J (0 (8 , (' (:'( ':(,j&*,4l,0 -,'J (0 (8 , (' (J .x48 X PORL/V,:H8X$D4  8$ V&*,4l,0 -,'R (0 (8 , (' (R .x48 X  u `<Hb5525052,60*&j5&j5&|5j 5$ &l5&l5`5*j 56 &l5&l  5&|5&l5&l5j 5 | 5`5*&j5&|5 &l5&l5`5** i(ɧ5 *0 i-i/` 7.R,ìlo* 8#|C*E* 8#|6& &E*/`f7(l  &l76 8#| 78&>ɥ*|~8~# &*$ 78 7: /|ɠ7:<ɯ~>`420. BAD DECIMAL CONSTANT IN CILFIL.7:RR:ìl 8#| 76# *n6(o*8E8ʎ(7( *0 #4.6  070ʎ(7( *0 .5.7ۮ5:ۮ7;ʏ(7(** ʃ,ʃ.ʏ070ʏ272ʩ(4ʉ676 ~N .!ʭ@(ʠ7*ʠ7,ʠ7. t ʭ@(   ,˯*C8E8F 8#|73 Ф +Ф#7.   # #(.(. . ,..(˅*/7 # 3 #, ,!ʄ((ʯ,* F ,C8E8 ,ˠ7<ˮ*>`f420. BAD FIXED CONSTANT IN CILFIL.:d`fh0lf~..8.Щ)  8.ƈ*)..,2(`<(/f0D0 8#C( i,  ) i* Ʉ.X݈/<ʠ<(*  ɯ.8.#( Щ)  <)* ), $!`<)ʩ((ʩ**ʉ,<, G;FEEFEEFEd>>>>F(ì8:|`F '>Xʏ(>( *0 /4 /5`> ʉ(>( ))>4 nro4 0 '>ZX   ʉ(>( *0 ʯ4(ʯ6*)ʄ, < ʯ.( z ><ʏ(>( 5 .>`E\ʯ4(ʯ6*ʏ,>, F/5 D>5.~ʯ4(ʯ6*ʏ,>,  ʯ6(ʅ*> * !8 >z`  > ʠ>"(ʯ6*   8,$D ><ʏ(>( 5 ~>d,>`o4o6/l>$6>>&< ʉ(>(( L  8$|D`>*o6 6 >,<*>), 7@(ʉ(>(( L l '>2Xʠ>.(    : ʠ>.(    8 `  E\o4o6 8$|D`>0o6/6$  #C* G(i(Fʏ(>( *0  $ /4./60*)DF9 8ơ$|D>0&m"`>.i.(). $ . #'.( .i.(*)`>+ʅ(  (ʩ** F )* R)* G*i*F $ɠġ%#.#0) "|~8~#CDo*% `>&`> n|><~>>,<*>`E\ʉ(>(( L  8$|D`>Po6/6 D*DFʏ(>( *0  $ /4v/6x  *)* D*CF4 8ơ$|D>PQmM`>.i*(i.().  . x.i.(/.*)`>&ʅ(()* ʄ* F )*  Ri*F  ɠġ%#x>,<*>_o4o6>&<o4'J '>RX/  l>$ ʏ(>( *0 6>)ʉ(>(( L  8$|D`>*ʏ(>( *0 o4o6 6 >,<*>)  7@ 6>>˩rJʏ(>( *0 o48 '>xXʉ(>( *0 ʯ4(ʯ6*)ʄ, < 8.$D%>r.>><ʏ(>(   5 [ʯ6( F ʯ4(ʯ6*ʏ,>, * !8 ~,><ʏ(>( 5 /j>t/j>v8,,>`<)r^`bG,(^q)** 8*")*F)*F F  U   8*$"Df^f`fb&4 F d &4 F  L &d&dF ^&4 F d &4 F &4 F *zɩ*z`69##HD11Hj23H&HI, , ~ L \48xc **XGGx   x48x# V/x ɯxx]~Z48x# V/x ɣx/A@t=ʦx(ʠG* pT ɯx0)*GQ)*G ~D~48x# Vz$Gʯx(** pT j$Gf8c(]~ 8  ((Oʯx(* pT F48x# V/x ɯxx0 x ȃ 48ox" V$G8d"B%G 8e48"Oox X`*,J2l(#IH(D(8"F!J9z6̣ĉJĉJ ) *', #c  .((.),PC0D0 #&P`T LJKh,)(J:`L 'JX8c*8x*p*xl48*# VC% %J % Jfx TS% %J%JfxC%  %J%Jfx  3%( %&J%"Jfx"#%%J%Jfx%*J%,J{48xƈ# Jr`J,n8c*8x*[*xW48*# VC% %J% Jfx ?% %J%Jfx/%  %J%Jfx%( %&J%"J  fx"% %J%Jfx`(MMdMv "*N(,ì/xLʠL(*  ˯ rx49/xO% V'@ ܈.BL 'LX9&Oox9&Ooxʆ(L( J ʆ(L( ʆ(L( ʆ(L( ʆ(L( J  ʆ(L  ( ʆ(L( ʆ(L( &LIzF&LB9&O%L 9&O 8(,ʦ(ʉ*L*ʉ,L, ) (PoP*9&Oi* %O%Efox` '8 (b)b)J)R)Z)BjZ`T 'NXz`N| > '8 (J`N| > '8 (R`N| > '8 (B6)jN`Nl)jNz`N| > '8 (  J)jN Px oEc)jN_)nN[P W)jN)jNz`N| > '8 (J`N| > '8 (BMil`Nl`N| > '8 (Jil`N| > '8 (Bkň)nNEdN``N| > '8 (J`N| > '8 (  R`Tz`N| > '8 (J`N| > '8 (R)jN"9).O%`Nl`N| > '8 (J)jN`Ntz`T`Nl`N| > '8 (J`Nl`N| > '8 (R 9)XO%~( '  bX`N| > '8 (J`N|  > '8 (R`N| > )jN,'8 (b+`Nl`N| > '8 (J`N| > '8 (R`N| > '8 (Zqz`N| > '8 (J`N| > '8 (R`N| > '8 (Z`N| > '8 (B8z`N| > '8 (J  `N| > '8 (R`N| > '8 (Z`N| > '8 (b G j OE )jOt/O`Ntox %)`Nň/xO/O/~OE  z^ Pu`Oi %O%9O%E    - N[mWV > 9- O&x2f+* ʦ(* pT f49&Oi V)O 49)Of V f/PéoPNN %Oee N ʉ(N( *0   ʠO(ʯ *  N ʉ(N( *0 /t  49)O% V x`~$i(9i0Fi*9i0Ei,9i0Ơi.9i0)2ENX$T 0 XW<`WF6i. ),WH U2,`X8,=): D `WJi%0)8    @8),i8*i*8  i8 I%i82ti(i8% D609A!FAj`Z6:i, i:ti6%):    >`Z<>i6`Z`Z <8i82 i(i8% 0<)8*i82i(i8%  `Z<18i8E28<#:i4i,):  < C>C),i:i2).`ZF*  `\H:,V0`^j`\F:,Vi*E0:4B,V8*,Vi*E0`\J@`\L>i80(8f E6 6E@"E>`\N:`\T`\P@`\R:8(8f E60'9$%  ED)4\VB&)4\X`\Z:X 9i4DF4:`\\<)i6<)*0a8F*ͩ(ͩ*͠\Fʼn\^ʼn\`ͩ0ʼn\b Z 8F08`]*i80(8f  8`\N:2ũ4.ũ:`DEF$T +- 0.BF' c^v  *`^i0`cU4`^~i0)*D4i0U`^`^*i0)*D4i4&i(i% D DDň)^E`^`^`^PF I`^><`^`^8:i4Mi(i% D09  1i'i`^`^)^)^ )^`^"* iE4i4i(i%  `^`c' ( Bi<F2F I%>$D'ʠ^~0ʉ2^2 V  '' (0ʉ8^8 Y i<i`b=).D9 ^9 ^  ^ ^ c H H ) G ) GEiaiE$D'ʠ^0ʉ2^2 V '' (0ʉ  8^8 Y  iii!'2ʩ0  *(j**ʄ2ʅ4ʉ6^6  )Biiiii  0Ej(4ìʏ0h0 | j(*`jʏ0h0 j((oB ]M2l/Nhh*DXv/Xh R`ji(i*M,2>XF.`h0,U 'hX`h2_`h2[`h2W`h2Sʏ(h( g %/h!/hʏ(h( o 'X(>   '(X a'(> X0. R`h0o.- B,DhNh>)0h2 2 gKhBBKhBh>Xovi.ci0v R.a0ˆ RoB ]\B ^GKDv RX`<0  Nh>l>XB C C_dBC  \ b €B c \BB C(B B B*f\ A Csf\ BmjgCBcf>:D: ƈ@ZT  JdJ&>jv RXv;\ CB c \B*B \ C C\ C Vof>:D: ƈJd`    @ZUB CIj\\BCIj\\>C.iXfX:D:.  ȣZZ. ȣdd`m>`XC.fX:D:.  @Zv.  Jdj\ C C(\ b B,\CS( G YjBB, gGIj  BB>`XɃ>\B bIj\\\ Yj\\( GG0Ij\\,GIj\\fV0pɦpV0ɩ0pv&XjA>X&0j)\BB CB C CzNhvPjqBCC2  8C"jaB c C4  8C"jQD MD  ^G&NjF`?&RjJd7Rl3fH6fb8&PjHb$fF6f`86 68YjBjBXVɦpVjv R`* |pNJ(z(`o8`o *c.cBzʉ(o( o `8(.-/8 ##|C  E`o `oDfFʦ(ʩD*ʩF,ʏ.o. } <8(SHDH38 ##|C( GU`oG (b (c * U`oC8`h,li( 48)( V*e e ɩ(ɩ(ɦ  ɩ(`2 H p @hpq<)0p&)0p")0p)0p'2 (0 t D  0 p(/)2pc)6p_()6pʩ80 }v _:6i:86488$ VD8`%*p%,p.%,p0 p  ʥ*0' (2 p ʥ*0' (2 p `p(i  sR6ìi*r%r- 8d~.d0.(0C.)0 . ʠr (ʥ*  `r"A%r$ ʥ0 }v j(,e,48,$ V&*r&=8  $D- m 2&.r(('  48)( XP%r*L8$D2>],;i(8o(4r$(ʩ,(ʆ*r,* r: ʩ,(ʆ*r.* ɠr0,(ɠr(.4(&*r2&*r4(&*r.4(`fIT 2Uu8tu8ttutuutu8uu8  :`s()0s-)4sʩ60 }v _8j4i86)4s 86$|DV%1b)4s`s(Z4W486$ VD, J 'sX%.s%*s %*s%*s%.s(/%*s%*s%*s%*s' (0 t D`s( ' (0 t   _(` (T   wwV wwvR !z#$yp((vDDDuFFuHHuMMvDOOv4VVv4WWvDZZvDz z R2ìjXufu ,/nu<-/nu>$(˯P . u@. $. $ ˈ ˯   /nu>~u<`z  u<uBjN48Pd ^*P.P $$Di*oPu<N*P'J(R)*/Vu<oX*/Vu>8X$D%uDe**m8*$D ʥ(ʉ*uF* !8 )(uHvz 8z$"ťɮxɮxnz \/Nu<X U8P4  8# VCP~%*uJ% Dt%*uNo%.uPk%uRg%uTcuLn_ [/luV /luR/lu^O`y/VuRI/Nu<E8P$D 948$ VPt&*uJp&uRlf ,i,),uX& XɠuB,uBlbuRfuZhuBlV/juDq n  m), /X ,euBl' (J &),`C0M0/X XbuRf&),h u\j3. u`|/Vu` /juD/juPpu\ll 8X$|D%ub %%WNT Qu\lM J/luDF/T D.L ).uR7MЯUuPl  buRf h"/Nu` 8P$|D% % uVluRNPˠu< `fh*8(#$z 8#C `(*z(8ìn2o4i24`<82#C6#zPq/zzR#zTi6ʣ(ʉ*zV*ʉ,zR, )   *T( #48c" VFE( #ϋ=$*zT9$zX/$zX+d.d0d.d080#C%zT 86`|6 # 48i. ^,8d"i  `zT,% 48'   X(  48' X(68c" `,ɂ "!,z 8z#"Cfoxoxɯz 6ʣ(ʉ*zV*ʉ,zR, ) *PP ##6ţɩ.2`zxB}V}^}f}lh40+0f U i0%|  f(0f 0 gG22' '|X(``|(`|()(`|(h4)(fP2D2 ##CU0e(`WRT$REL 0~$}4(fi.2Ofi2i*i,f I`}  0Oi(`}Oi(`}  `DED$T   +- .0D~(* `~2D),~4i0`ȊU4`~0Di0)*D4`~6DDi0U<`~8L`~:JN*i0)*D4i<4&i(i<% D: DLDJň):~:EN`~<J`~<L`~>D<B@8`~@>Hi,EiF  8i6F`~Ci:>`~2B`~D>#):~F*i<4i(i<%  <`~6D`i<E4i22i44` A 2{)4wé  24K(L*M,N.O0      B S   ϪH><:8G<:8F:8E8a)0`.`,`i*`)(`pi I6͵͵͵ŕi"é$Q$DIV B4i  (6i*8i,:i.<>i0@'4 ((ʩ>2ʩ@4ʩ26  `PUT$RLRE L4(٠ ɩ*ɩ, ɩ.ɩ0 (  f )2`@P$ k(C@ԥ* _1ɿ. k:#x&x2h?΄YQaoˏ'?9xo|@ŭ7  V {vPHLH @ "  Ѐ  "@$  ! " ""  @ <@"B(A" I$I0 DDG@@@ P P@P@ $!    @H$!$P""D@ PD@ @D"DDHH  @ H$ @@ @! H A H H  $$BHH   $! @HI$@A H   @@B@$ $ @B@ H"$P' A @$ rp$A!$@Є @ $B@$@D$  @"@)HR@  R R$ @)H P "  @B@@   @@B@h H @$(@4!H$HDH @$*@ $$AP"  @   @H4@R@"$DH  $@$>$@!H@H@HB@ @ $@ P @  "A! $@$ @D"D"  $I$r  H@@"$@@ @ "$    H$@@ @D  @@@B@CQ  @B  ! hH $  $@$ @D"D"  $I$r  H@@"$@@ @ "$  '"OVLY34  r  CKTOP$ !8B!(l:& +*&t!6  !@ʠ!B0 2 &t $Y !D( !F( !H !J #   ) & `  """ " " """""""""""$$"22"II"QQ"SS"TU"#"vh(l.,8448(# V*X!"tɠ!,ɠ!,ɠ!4ɠ!8ɠ!4 ɠ!4ɠ!48 4ɠ!8ɠ!4ɠ!.$!  8, "x 8 Ƀ8$,"z8 #Ƀ8`60>$(J L L "~ 0>49i(& VÆ).#H.ʮ,(ʉ*#J* { i6 M6F:M0 ʮ(ʉ*#L* #V )4#N i08u˩00tM<i6> ʮ(ʉ*#P* #V :  .<+,(' (@'( '@(i>Hi0>>i0>iH0).#Ni0>˩>0 i0> i0> i0M2i02i>2i82˩20˩80i*n0/`<0%4(O`$`$ .   & `%0),.  ). 4$ .De(  ), %8)*%.),.vމ.v  `&.l), *, 8 8i,D,,(,  `,&(N((Vo ,TL ,T  9NLi(  LutjiL(N I*LJJ ,T( 9iJ&Æ &iJ I`&*nL.&ˠ& nJJ)J&"L$#ʉ(&$( %  9iN&Æjn(jnLʩN( ) (L(nN I*LJJ ,T  % 9iJ&Æ9n fP P nLiJ I`&*nJJ)J&"L$#ʉ(&$( %  9iN&Æjn(jnLʩN( ) (L(:N I*LJJ ,T 9iJ&Æ nLiJ I`&*nJJ)J&"L  `<ʉ(&$( %  9iN&Æjn(jnLʩN( ) ((.7? +)*++*+)p(:ìi(4ʩ4(ʉ*(* {X  8($D%((.`<)(%D6`+ ') X8 $Ĉ&(D0ɠ(0(i  68F88ơ$8D`(0Dʥ(ʉ*(* n ). 4$ .ɥ f* &(#%)%)%)`)2`)2 $()2 ) ))* . I(i68F8Aʠ) (*ʆ,.0ʠ)2ʠ)4ʩ*68 ,2 *8 $f(&ɠ  (% $ ( .  8(i68F8`)p 8ơ$D`(`($N,.)(+J48(# V$*+L$*+Nd,d,),**, ,& 8*#$+Pd ,8 #C* ) d**)*+R`   B 0 -< R)*,)(,)2, )(, V2& , % &t $$0D`,( Y`,G2 G Y`,G4 gGI`,G* GG0I`, G,GI`,"G`,$:)2,&8::)*,&0::: G  U`,(G CB)(,*)(,,&  ɩ2 ɩ4 ɩ6 ɩ8 ҈)(,2 i4,)*,&, ɩ* ɩ, ɩ. ɩ0 & ( ,* ̩,*  Z )*),).)0  )2)4)6)8 ` B.. )(-)(- %  R&t $$0Di)*GI`  -G, GGI`.GE`.`.    ɩ*   &  Z `0.9FL$ITP .B0h4)(.3  V3( .?*)(., )(. Ʉ .ʠ.0 2 ɠ. %  R&t $$0D`.  ( gI`.G* GG0I`.G,GI`.G)*.U`.`. 0U`.`.U`.`. :9)(.)(. ɩ* ɩ, ɩ. ɩ0 ", & ̉, & Ԉ)(.  )(.     & &  Z )*),).)0  `B1z2  )(0l)(0nV& 0p % Ĉ)(0r)(0tD. R&t $$0D`0w( WI`0xG.U`0z`0|U`0z`0~*GI`0G Z ."&t $$0D`0wi,)(0&   ɩ*   &  Z `B CNM22 % .D  0 R& & &t $$0D`1( WI`1G0U`1`1U`1`1*GI`1G Z 0&t1  &t $$0Di,0`1`1 Z 0z&t $$0D`1i. Z `2FL$ITP 2B E 0 34 % '(ʠ20  24ʉ626 u )02B'( 2  !P &fF2$ Rɩ2F&t $$0DE`2`2I`2`2 Z  2)2   2 2 .+ R&F&t $$0DE`2`20 gI`2GI`2`2I`2 Z  2)2  & & ` 42` .03   ͩ(ͩ*ͩ,ͩ.  0  `42f .D.* ƈ( %` .,& Df 0E0  ( o *,  `4*` .(4    (  `6rR4ì8($D% ,0 ! 8 $"ċ  x/ 4D.ċxD0`4..b0%\n(%4%4  8$e%&D2M2  8͡ 4 4%4%4#,*,v*), 4$ . f(ɠ4`4*,%4.%4**,,~*  8,$4f`4*,*ʩ,( 4 `fg7R667776,Y '6~X. 4 8.$D N]8.$D%%6z 4 !%6x@f4%6x )  ) ɩ4&%6v%6x 8   6|),  %6v%6x 8)(`7.` .*f(,ɩ((7    *  ɩ,(`h08($D`7i* 8*$D`7i,i( i*),)*D.E. 8š`# 8T H@,(D MOVE  $ 8n$JB.*F 8L>7?ZDR`ìl48(# VC\8c"$8Hʤ( ) $8Jʠ8L(   P X`D\#,8N'#*8P` .Nʠ8R(   R \#*8PʩN(  ʮ( ) `Cn\, 8V#&8J?#&  8X;\#,8R#,8Lˠ8Z(\#*8z`;' ((ʉ08|0ʉ28~2ʉ484ʉ686ʉ888 O `;\' ((02ʠ8L46 ` #(8Z8\ ,2 ʮ( )\' ((ʠ8J02ʠ8\46 ` \'" ((ʉ  08^0ʉ28`2ʉ48b4ʉ68d6ʉ88f8 O #(8ZH@,(8Z ,2 \#,8hʠ8j(ʠ8Z*ʠ8H, .  #(8l8Z . 8v ((ʠ8x0 2 \#*8z`Cn' (( 6<`8B*`8XJ\8cb..BVB6\#,8H   48c" 8Hʮ( ) ʠ8Z(   m\#,8R#,8Lˠ8\(nB `8JJ`8HJ.\#,8\ʭ(( 7 \' ((ʉ08^0ʉ28`2ʉ48b4ʉ68d6ʉ88f8 O D\#*8P % #(,JB.* @`Cl)D8N*   `8XH@(ʩ,(ʉ*8b* |v\#,8#,8RD\#*8P % \#*8z % \ʣ,0#"ʃ2  (B2 VB6H?D 86 8)@Oa2-,ʩ@( ) \' ((ʉ08^0ʉ28`2ʉ48b4ʉ68d6ʉ88f8 O \' (  (ʉ080 X4 6)282)H8X. ,@ 8'$!#(8H@,( . H@,(`8JL H@ )28X)28DC % )28 / 8H)28N`?\' ((02ʠ8L46 ` #(8LB.*  2  w \#*8z7S)J8H)28)28X`86`86)J8H `8JJʮ( ) #(6JB.* . \#*8z' (( 6 )L8J\ʣ(ʩ@*ʩ2, 7 `Cn\#*8z' (( 6 )L8J\ʣ(ʩ@*ʩ2, 7 )28X iHRiJTi  @B`A`8XZ `A 8B#$88$8J1`8JZ+$8J)8`8J'8 ((ʉ080 X4 $8X 8 BZ)28H^)H8X-@* 8@"( ʩ@(ʩ,*  #(8@,( 1 `8JH,`8HR)J8X)B&)Z8J  "* ʩB(ʩ.*  #(8B.* 1 `8JJ.`8HT)H8J 8@#$8J`8HR)J8J)Z8J`8HT)28XQD#( 8i,~TB.* @#(8ZR@,(TB.* ,2 R@,.)2)T8J`8XT`8XJ)R8J  `8XR`8XHDi@B#( 8i,JB.* @HJ\#,8J'H;#8H 8c"|8L' ((0ʩJ2ʩB4ʩ.6 `#(8ZH@,(JB.* ,2 \8c"$8Nʤ( 4 \#,8N )J8J ʩ  B( ) \#*8zo^E^8#& ʭ(( +X `f& &  &8ʦ( )  DT(D,    D.  `    FpFFpFpFpDE2E F\FFpE FvR(ì49o(& VF, `Fp 'DtXʠDX(    !P .-*DZ-*D\ j -*D^    zʠD`(  -*DZ-*Db i f-*DZ ʠDd(   Y-*D\ ʠD\(   j!-*DbVʠDf(    8uʠDh(  ʍ((* aʠDj(    8Z-*Db ʠDh(  ʍ((* ?ʠDl  (   6-*D^-*Dn#ʠDp(    8'-*D^#-,DrʠDh(  ʍ((*   tʠDl(    DZ4`f'F|2T<>@D BF0GH|I I,I,FJXP(Fz`JX):` .4` :J :i(LL 'FX*`I,f  6(48c" V* F@ $*F$*Fn$,Fj̣̠FĉFĉFĉF UB ɧF wN F<>@ . F  (FD  ʉ0F0ʉ2F2ʉ4F4ʉ6F6ʉ8F8 O F<>@ . D  #f6f L8  (ɤF #V 0 &* (  ɩ6ɩ8 L(X(8c"5$FH.,.~,8.#CF%`F,.,i.: F  (c:(8c"$Fd:):Fzv8:#O.,  .P,. #Ɗc:`F,.,F ). #c2&Pi.fPLEL #2ɤF #V 2  $F(#F(: (F($ J :4 FF  4  F :` KlJJJKL>  :68(#d 'JfX0J\2J^*0* 3# .C e(4`J`0*08024-2`Jb6d8'2 ((ʯ00ʯ22ʯ44ʯ66ʯ88 O 8J`^\8J\WJ` ʠJ^(ʤ* J*08  *Ɖ# 8*ƈ#J``J`0*08*#C%Jbʥ( ) %Jdʩ*( Jt0J\2ʥ(ʯ4* |v $Jd8J\8J``( e On2l,(e(()(8LBO02S(9(ʠLD(ʠ  LF*ʉ,LH, ~ #(LJ0246( ,2 ( 8.(`LD,0LD2(4`O88LF`O>20LFC.6(.%("!8.ƈ#LFɠLLn6ɓp4ɓrʠLN(ʯ4* |v (`O00 2 42LP4   62S(`O*2S*(ʠLD(ʠLF*ʉ,LH, ~ .#(LR(46 1Bi(*#2LP ʠLT(ʩ(*, 0#(LJ2( ,2 6"(̠LV̩(o4̑̓ 1 ʩ((4ʓ*  4(/`LD,/,LF8.# LX)  (/,LD8.#$LB, LF)(02(6, 8(# LD/,/. /(`Or2`Ov @<T QQQT QT^PPPyTLPPPOOURBìo>,`TL 'OX)8)0)2)4).)6 8.$|D  )2)6 Ot )0)4%)8O Ox  )0)4).)8 Oztʩ.(ʩ4* |v )8 O|)0 O~bʩ.( Jt`T\8.$DN 'OX)0)2%)4)6)8 O|87)0 O|)2%)4)6)8 O6*)2. $( O  2/( ,2 )2/(`T^)0 O~)4% )62 'OXʥ (ʩ2* z $)2)6% % $ $& 4YO OO`T ʥ( Jt )0)2`SR(ʠO|(ʠO~*ʉ,O, ~ o(< $( O0246)<   ,2 )0)2 8$&O|f O|)2)<(E 8<$ɠO|ɠO|ɥ 8$D`Oi<m::b48:$ VD-O|mɭN-O|mɭ B-O|mɭ6ʠO(*  -*  )2 8Έ#O  )2. $( O2/( ,2 )2/()6 )6%   # O)4% )6)0 O~)0 O|8$(&O~ɠO%O|)8 O|)8 O~)8 O ʠO(ʩ,*  )8O~ L^ >)0O|O)0)0  O~ C8)8Oz (@O7 ,@)2,@0$2 8#C%O~Ԡ (@O7 ,@D@`f 2U.6 X$R@ìl`U":,48(# V8#Ce 4)4U$ 84(3 84ϋ&x*$,  U&&$,U"`U(<$,U*$,U,<.`U"<* U0(/U(:!$,U*$,U,ˠU(,$,U,,, T :,`U"<`U2<:)*U()F> 80L)4U$`U"8 84#" $,U6C88*ʩ*(ʉ*U8* n 6 3# .ɤ0,U(.U:`U"m(A,0`U<62 86#&U2 `U"2.6ɤ6  2)6U4݈)6U4ʠU,(*  `U(.S`fh6),X(Q),X*M),X,8.#$X.4038.#d 2 82#"C)2X0 x& X, $X,$X*0 0X,0X*0X,` : e< ( ZZ<  YZo.8`X.`X64(`X2`X*88#A 'YXʤ(ʏ*X* |v ɠXnɯ:pʠX(ʏ*X* |v o:(]6d4U, , ʤ( ) *`X6?24<Y<ʠY(ʯ<*, 0 ʯ<( ʃ*  2  H`Y4^ʩ8(ʏ*X*ʉ,Y, %> o:(`Y4E/2Y`X:o2:#(XY:46 ,2 2 ʯ4(ʯ:*  .ʯ:(ʉ*Y * ud `Y 2*X  *"`YJ,8d088#CXe0`X,8,.#(2  64(246 ,2 `6B+,J _`^^^_`]_`]\P]$\P\P_`]e `L:.*(`[x0H8.#d >d@d BdDdF$[zF)@[| )@[~ K '[Xd6i)@[~*)F[x&24<[  <ʠ[(ʯ<*, 0 ʯ<(D ʃ*  2j0jʩ>(ʉ*[* z )F[|`[|:iB.5 /2[| % ʠ[(ʠ[*ʠ[,  #([|6B``iB(x)F[| `[|:6iB.i>*h24<[<#([<B> 1 29`[6q>i>H)  H@c '[X24<[<ʠ[(ʯ<*, 0 ʯ<(D ʃ*  209`[658#C' '[Xʤ(ʉ*[*ʉ,[, %> 4<)F[| `[|:`[6i,.iB(}2#([[|[,246[<#([[|[,  [ ,2 B`[x8`[|8i8:o<6e6)F[|B`[x8`[|8i8:iB.' 8e"[xC2B% [x22iB( ʥ(ʩB*  (H/2[~`[x<o2<0#([:6.*<46 ,2 ),H(&b2#  ([4(H 1Pɠ[nɩHpɩ(rʠ[(ʉ*[* |v<)([x)([|2&)([x`[4`[4#(4246 .ʠ[(ʯ4*ʩ(, 0 ʩ((ʉ*[* ud ,#([[|,246 ,2 `e: aR@0.),`   ;i..`!ʮ( )),` ;i..`ʮ( )ʠ`(*  ),` YH),` [A),`i.8 ``8`n.pʩ8(ʉ*`* |v `n:pʠ`(ʉ*`* |v Ê.(Ϡ`Ϡ`ϩ:ϩ2ϩ4ϩ6 ,2 `f1ZPa(  6e2ee .#f  |@ìl :` .>>n8m(448(d v(8./ a `c48($ a$$ VD88d6%a, a 8e ( +&8a'-6a# ʠa(ʠa*ʎ,a, ~ $( a/ . ,2,&8a;ʠ  a(ʠa*ʎ,a, ~ $( a a. ,2 ʮ(ʭ6*   8$D`a˩8 -6a˯ 484d v(848($ a-484d v(48($ a`f$ VD%*b %,a ' (( 6 e ($ VD`a6%*a%,  a%,b  48$ a6ʅ(a(ʩ6* F %*a ʠb(   `f%,a ʠa(  ʅ(  `f`88d*i*6 ʮ( )  'bX8d( 8d(`a((BE % n<  48 $ a  `a: `a:`a:`a<' ((ʠa0ʩ:2ʩ<4ʩ*6 ` )*D6E%,a=%,b9ʮ( ) o0o L2ʥ(ʉ*b * #V ʩ.( &* ʥ(  02 L48' X(  8 / -6˩8%,a ' (( 6 .e   (`ci4(˩8ʮ( ) >ʩ>(  `2@>,(< $LDCR f$STCR f$SBO f$SBZ g$TB g3INIT$BLOgRESETSEMgTESTANDSg$f PCALL$ g2r. m2Rjì^49.(O% Vň&fE`&*f8`5 ((ʉ0f0ʉ2f2  ʉ4f4ʉ6f6ʉ8f8 O 9&O%E-fʭ( ) &.f&.fʠf(  &.f  `m0ň&fEB`ffDBn 9&O%~ (0&.f]i0 $1'0 f I'0 f ?'0 f 5'0 g +'0   g   ň&*g'0 g '0 g"  '0 g, EDD<fi0 Iʠf(  ʉ(g.( :%ʠg0(  i0 Rʠf(i0 T (ʮ(*ʉ,g.,  * f`m2 !P  b B.' ((0ʠf2ʠg04ʠf6 ` g:   ((ʠg<0 2 ' (( 6 '0 ((ʠg<0 2 /&*f( !i3 $i4 Ti5  i2 Ri2 Ef `m"B`g>*`f*f E:&,g@ E`f.!`f.&,gBi:% %ʦ,(ʉ*gD* { i.E.`#   ((ʉ0f0ʉ2f2ʉ4f4ʉ6f6ʉ8f8 O4(9&O%Eň&,f- gF 48$ fE^^J%(n(i.I`fI`fI`f UB ).gH& ((02ʠf46 ` J%(`g0i*`f). D wt).f5)@f`f@J%(`  gJ`f`g0i*i@i>i,i( ,2 *@>,).).fو)@f`f@^ @`f>,( `fb`g0d )*f`fbo d*J%(`gJibidi*i@i>i,i( ,2 9&O` %gBʥ( 4   *( +X `fm6 m~,` .*(    * m:m<  *  `0., nR*ì48($ VD8$2-* $(/( m m m m UB $( m)(/0/./,/* ,2 2 0  8( m"2ɠmɠmɩ( 8($D`m  eee `fGENCODE '}n$ 23"KT.J*nr*u*r2rXOV  u$su$u$u$t6ssu$su$s!t6t$tHtZtltltH u$rusruuuusuurruurssds@rrrsRrt~sduuru$rsssu$ttstu*tttttsttu$ttttsttssttts  uusssrvsrvtu$sr`tsu*srvsssu$ttrvu*sluXn(Bìn>*68.(4ʩ((* 4  48($ VD* n@j`n:%*n%,n  48$ n:ʅ(n(ʩ:* F  ʅ(n(ʠn* Ĉ%*n%*nD:ʅ(n(  ʩ:* F "ʅ(n(*%*n* F %n ʅ((* F J2%n.8$  8 $"DċxD2%,n%*n%*nɩ(%n8$&nʦ( ) X 2%*n%*n˥2zʠn(ʠn*ʥ2,    n $%,n* n6ʠn(    (˩>*X`u$ 'oXVZXV.zʠn(ʠn**, FZn.'g 'nX%.n  %*n%*nU/FR/ O D_%,n ʠn(   ,dʠn(  %*n%*n B  *%,n ʠ  n(   6E%,n ʠn(   ,ʠn(  %*n   `u*ʠn(   zʠn(   qʠn(  ,  'nX _ \ Y`u$ʠn(   Nʠn(   BEʠo(   <ʠn(   ,3(% /ʤ* vR&ʥ(ʥ2*ʯ , *  ʠo(   ~ʠn(   uʠn(   lʠn(   cʠn(   Zʠn(   BQ,' 'oX%,n ʠn(   9ʠn(   N0ʠn(  %*n #   gP 8ʠn(   Dʠo(   ʠn(   4 `n44 ʠ  o(ʥ**  %,n/ / ˩>`<eu,ɠu\nɩ(pO`u^i* |v `7pv6<ft:D:8#C'( i06,t6t&tu8t#'()0)2 )4 ut  ` . ,0w@  2 % t  )(v:e& v< v> v@ v> vB F * Ri.I`vD`vFi*(  &p).ɩ.p3 RɧvH wN  vJ vB F  a)(D(i0I`vD`vLDDi.i,).),&p)0ɩ,p`@wx*Oi(`wD F i(YwF  wH` MOV$N wzJBlɠw|ɠw|ɠw|N( w~ w)*), 1 `w(*,. w~ w)0)2 1 `w.02*,`w@`w@02`w>`w>)4wj w)@)()*),)>).)0)2 ,2 )4w w)@  )(*),)>).0)2 ,2 )4w`zJ)@w`w|@)>wi.`w|> w)@)(*#),)>).0#)2 ,2`zHw (6)4D4).ww.w ,2 2  w w)0)2 1 w)0  )(w w)(   w ,2 ,  w w)*), 1 w)*  )4w)4$0 D:  w~ w4# 0 '6ʠw0 2 i. ) `Bz, %  R&t $$0DE`zN`zPi)i+ Z `CUR$$ z {R.( ##z*  >zz* ~ zʠz0 2 zzz( * ,2 * z 8S"B`zi( `h.,,, , 8,$D),%D(e,,i,()*)()*),`||||||{||||{h,(    '{X*Š{ *Š{*Š{*` |||||} }~}~}~}~}^} } }V}~|F,~.~.~~&~.~j~~4~P~~~`~j~.~.~v2f (, 8(#||&<8i,%1- '|(X%J$%  Ф  Ф% % Ф U,,   |H 5`|J.ɬ|L. F `|N03 Ф[%%҉%Ή% ʉ% %‰%ɬ|L|P F `|P.0). R ( *,ɩ, (ɩ, *i,f &0Td(6 '|TX|J &.|R &* # #    &  $   &Ƀ & C  &,*ģ`w0~x6Hl(CB ,@B<*:i,C2CDDD ,< ~z,  ,ɤ~| {X )0i2DDD`  ) )*~~f,4È)*~C4)  *~4 (D~7 ,DDJiDi4. 8.#. (D~7 ,D.DJiD>$~d..).~`~8`~:>&`Bi4DDDB (F~7 ,FD> F,e`BC..B (D~7 ,D.  DiD@< @%6 ,@  86i6:i.8i6:).i.4)8~*,~)(~~  ,,B (D~7 ,DDD`,8,BBDDD )  2,( C(,vZ,   3# .6T(-,,v(', 3 : , 3ƥ# 6,Cfv0E0 3' .( &&vԊT([T(),v 3# .)(& d(*vBv&vfhv  3vfv,C0E0 3' &( ., 3# 6C(C`(  B`d)(*,` (B*F, 0ltz &t``&tt #1~~c(ɓ~'ɬ F ɬ P)*)(ɩ**ɩ*)('0 rɩ(rv(ɩ(vp   $ɬ F p,ɩ,p),Y I  ɩ, &pt`zBBI  f . f ...GI  zɠxtz`*&Ft  nɩ(nfpi(ɩ(p& & ɠ ` NCBM|  0)(=.&t  &t $$0Di,.` *`` Z .z&t $$0D`i. Z ` (f F    0 ` 0., Ƈ<. l48(# V(  `*`*2( XRT#LXV#((ƬƬƤ UB V*!XV ɯN0ɯH.ɯ.,ɯ**( ɯP0ɯJ.ɯ0,ɯ,*' (( 6 ' (( 6 F'V`#(*PJ0,H ,2 B 2  ʯH( m`V(N0 H..,**#(NH.*0.,* ,2 0= 'X0C`(`((0(V #((H #((0.,* .N(VʯH( ( 0 ʦ.(ʯ0* 5L  0/0 ʦ.(0ʃ*  ʯ0(ʏ** ud #(*00.,* ,2 B 2 V `2X #(*PJ0,0.,* ,2 B` 2'/T$(!#(NH.*J ,2 B 2 ʯJ( mXN0 H  ..,**+D#(.0.,* @#(NH.*0.,* ,2 #(*PJ0,0.,* ,2 B 2 8X #ʣ( 4 ` PJ0,FNH.*DZRT |^ì48(# V  $@ 8ψ#|@  8#~ B$@ 8ψ#|@  8#~ BÈ$*DC(È$*FCLÈ$*HC4È$,DVCB$J'`DX(+$J$#' (:'( ':( X8(Lr$B$  @`B6$J 8c68c6$B$@`B8$J 8c88c8)6B)8B)6J)6@ )8D)8@' (:'( ':(' ((ʉ0L0ʉ2N2ʉ4P4ʉ6R6ʉ8T8 O   8#C8#(1$,D-$J)&&J&D$D%J% D% V X&D``' ((ʉ0X0ʉ2Z2ʉ4\4ʉ6^6ʉ8`8 O DF(' ((ʉ0d0 X4 L' ((ʉ0f0  X4 $,D8Nʉ(b( L  8Z#|C`B(.0 L.`0.80C8#C`BiZ.)RDH`JR( )TDJ`JTÈ)RDCV4 ʠh(   `  _#(jJ  1 / # l&ʩJ(ʦ *   ʦ (ʉ*Z* z #(nHJ ,2 ' (( 6 ' (( 6 XʩJ( m `*` .(    (  `*.)( &t)(  &t $$0D( GU`Gi+i,t&t  `  2 4)(.͠0(͠2ͩ*ͩ,ͩ.ͩ0 .)* ͠4ͩ,ͩ( 0ͩ(ʼn6 ud ͠8͠:ͩ2ͩ*ͩ,ͩ.ͩ0 ,2 ` 8 (0 (888h608 'X`(2`(.`(*`(&i2%  8d~  4i2e4)0i4 Ei4 E()(`ґʒ’.* 'X`,`,`,`, ͩ͠(ͩ* 0 ͩ,ͩ( . `O$FLOW  F$MPCK D2l( (*48(# V$*$,  `( (*("$ zV &t  '*ʠ&0 2 t #X((*(t ##0 -48(#  Z `CHK$L ((ʾ(ʭ* 2 ` 7H X['( X( AX[ |l `  |) i"é$`J@@@@I$I$I$" ""@ $H@$H)@($@@    "@@@ "$@P @H   @$@D@@D $$!@$@ ) @ AJ@HH@ @$  AJ@ A  "*HDH$L$DDH @CB@")!   $B$ $!BH@ "B!BA" $D I D!H @@! "@ D!"$@(BD D @HD"D$    @A%%  $$I$$$$@$$ $DIH 2 "" %@%"$@!B@(DBh? ! A !" @H  @ APD"A @ !@$BH @ !@   B"H D     B$H! @@ $A ?@@D $IA$@H@TAPD   $"D B$H BA@Dr@ D" DHA I)$$@DH H @$"$  B"$(HDA@ "!$@$I @( B @ B@A! @DBJHB%  IA ^?@$D@@"!@HI  H@"I"$$DI$I)$I$ I$I$HI$$I$ !$BP@P@IHPHD" $P" PD  D@D   @$ @ $T @ H GB_@!T@"@(@ @ AI@D  $H *@ $HHD %P  "@H  @@    H@$ !  DD(! $D$I @H(A @%$$H $@H@ $DB!@!"HAQ R @H!@  $H *@ $HHD %P  "@H  @@   '#OVLY35 4 Γԓh.( 'X,*`FB<*(8>, 0.: eD@2Nl48(# Vʉ((  d*6`(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O i<>i*,ʩB(ʉ**ʉ,,   Fn`( ((ʏ00ʏ22ʏ44ʏ66ʉ88 O )8D 8*c~HcJ)6iH)JH HiH)JHɠnɩHpɩJrʠ(ʉ** |v `B<>*C,()8 F)6 ʠ(ʩ**ʩ0,  ʠ(ʩ**ʩ0  , `؈)6ʉ((ʉ**ʠ, ʉ((ʉ**ʠ, * 2$)D#((ϬϬϤ UB *o.@o,.ʯ0(ʉ**ʉ,,  ' (( 6 F$$)6#(B<*()DF  )6`(#(<<w)B-/0#(<.C#(<0@.*./0#(B>,(.#(B>,(0@.* ,2 #(B<*(0.,* ,2   2)6ʉ(( wN ʠ(ʩ2* vR ʠ(ʩ2* `4V`4)D7F4#( < . #( > ʠ(ʩ4* zV #(< . ʩ<( O#( 0.,* . /0 #( .#( 0@.  * . /04ʠ(ʩ4* zV #(0.,* . V 2 t  2ʩ2(  8F #ʣ( 4 `6 ܚ0l848(# V 8*c~.c0)()(  8,c~2c4ʉ(( L   86#|C`(h 'X.024.0`2`448.082084BC: ).)0)2)4 )i0i.e% i0i.e% ).)0)2)4  |\8#C`i6`64*(0.,2  <8  @48(# V$p`r:8ƈ#tr8 8cȠr:' ((ʉ0v0ʉ2x2ʉ4z4ʉ6|6ʉ8~8 O :# ((ʏ0~0ʏ22ʏ44ʏ6z6ʉ88 O 0C' ((  ʉ00 X4 ' (( 6 2$r)8p#((rϬ~ϬϤ UB *$*f`.e$*:*ʉ(( L  8<#|C`i*%/:*Cʃ(ʯ0*ʯ.,ʯ,.ʯ*0 @ %ʉ(( L  8<#|C`i*e  8#C`i<` `.)8r>#(.4 . V 2 :ʩ4( m_#(40.,* ,2  ((ʩ40 =60 4.*,(*#(64*(0.,* ,2 #(.0.,* . V 2   8: #ʣ( 4 `:6,(2<8.*4; 6(0 RRRRG>l48(# V' ʉ00ʉ22ʉ44ʉ66ʉ88 O ʉ00ʉ22ʉ44ʉ6 6ʉ8"8 O 2T$*$),  ,+ '<X`&0 `(0`*0`,00<8.* .P, '.X,ɤ ud 8:,<8.* ,2)$*F`80`H00:6,(<8.* ,2 '  6  6 `h2),  >), 8.$Di0` 8.$Di0%` `  80$Di(`i,i. ` 6>40*(28FL$ITP R:ìl48($ VD%, ˠ.`.`, `.`,ˠ.ˠ(' ((ʉ  00ʉ22ʉ44ʉ66ʉ88 O )2Bʉ(( L  88$| 8*'|%*8$ɠɩ8' (( 6{' ((ʉ00 X4 )6>  ((ʠ0 2 ( )  ʠ( %,ʠ( ʠ( 4 $(),)4)0)*)( . %* ʠ(*ʠ, 0 $( ). . ' (( 6   `f R*ì48($ VD2; $( )(/0/./,/* ,2 ʠ(*)(ʄ,.0ʯ02ʯ.4/  ,ʄ6ʯ*8 8 8 8)( 8(#$Dɠɥɥɥ `f 7?* 048(# V$,`,`.`,`.8#C`f(e * ,ʈ),  *: 8*ϋ&x18 ʩ,(ʉ** n * 3# .Ce(d#(.( . `.l48(# V' ʩ(0 X4 ,),$ 'ʩ*0 X4 `*48(# V$(ঌ  8#C% ʥ( ) (` $ A,$$D " h(`(8 F@ D:PLDIV$ &|Vì,49/(N% Vň&*E4* % &'`H ((ʏ00ʏ22ʏ44ʏ66ʉ88 O H' ((ʉ00ʉ22ʉ44ʉ66  ʉ88 O )8ʩ.(ʉ** |v `B>(ň&.&.ER&D&@8=`2`J2  )Ji2 E2J2"4&R 49&N%  4I&.E. ƓA' ((ʉ00ʉ22ʉ44ʉ66ʉ8  8 O ):ʩ0(ʉ** |v `D@*8`D`J' ((ʉ00 X4 ' (( 6 N)F i>@HG`N@.@HJ%(o(`O`O`O` UB 0o.@ʠ(ʠ*ʉ,, ~ J%(`iBi>i.i(i@ ,2   4$&J%(`i@i@ ,2Pʠ(ʩ@*fʅ, 0BR`60)F J%(i@  `2&`2ʠ(ʩ2* zV ʩ@(fʅ*  `6ʩ6(ʩ@*ʩJ, .  Nʩ@( m`@.IJ%(`i@o0o.o,o* ,2 H  1 ((ʩ@0 L #:"' ((ʉ00 X4 R ʉ((  L``0J%(i.` @ J%(`` .`$ʉ(( L  9)PN%|E`4 ).)0H).)0Gm2HE)2)2)2`6`  6J%(i6o0o.o,o* . ʩP(ʉ** |v J%(``i.o0o.o,o* ,2 9&N%E`iP`n' (( 6 ' (( 6 28?:i.i(` ,2 J%(`iDi@i0i*` ((  ʠ0 2 H``08.)0P)0L`,J%(`iBi>i.i(` ,2 J%(i0` @`jJ%(`iDi@i0i*` ,2 J%(i.` @ `,*4)ʉ(( L  9)PN%|E`H`9&N%E`iP`n  )F)0J%(`iBi>i.i( . HB0U>.Q.,M(*I`)Fʩ>( mkJ%(o(`O`O`O` UB J%(`iBi>i.i(o0o.o, ,2 )0J%(`o0o.o, . J%(`iBi>i.i(o0o.o,o* ,2 )F  )0_ ((ʩ>0 LQJ%(`o0o.o,o*J%(`o0o.o,o* .J%(o(`O`O`O` UB *4`>`>J%(`i>o0o.o,o* ,2 ,D ((ʠ0 2 HJ%(o(`O`O`O` UB *4`  >`>J%(`i>o0o.o,o* ,2 H9&N%E-ʭ( 4 `(*,.6024 "8l48(# V' ʉ0*0ʉ2,2ʉ4.4ʉ606ʉ828 O (4ɬ6ɬ8ɤ: UB 6 ,024 @  <(*,.024 ,2 '  6 `0.,4 J*@NHD ڠPF@`8 ìl2#((&ά(ά*Τ, UB *48(# V$**F9' (( 6 */R& Hʃ(ʉ*:*  *`  #(<PJ0,H  H`j0`)(o00)0 H.0C0(.`/R&`HJ`Xʉ(.( L  84#|C`08#C`0i4m/R&/02#(4NH.* . ʯH( mN2#((  &ά(ά*Τ, UB N0 H..,*#(6NH.*0., ,2 /02#(40., . `*ʠ&(ʠ&*ʏ,8, ~ N HJ.*L#(6NH.*J ,2 6*/R& Hʃ(ʉ*:*  *!  ʯ0(ʏ*(* ud #(<>0H  HJhB (6B7 ,6H,Ki6Jʠ>(ʠ&*ʏ,8, ~ #(0J @ ' ((ʏ0D0ʏ2F2ʏ4*4ʏ6:6ʏ8H8 O #(<NH.*J  JB' %  #(6NH.*J ,2 ʠL(ʠN*ʯ0, 0  2 0 ( ʠP(ʯJ*ʩ(, .  0 #(4J . ' (( 6 ʯJ(`$ 'RX/T& Jʃ(ʉ*:*  *#(<NH.*J  JC,`2H ,   (6B7 ,6H,Ki6J , (6B7 ,6J,Ki6`&2,ʠ>(ʠ&*ʉ,,, ~ 2$' ((ʏ0X0ʏ282ʏ4(4ʏ6,6ʏ8Z8 O N oH,.*#(6NH.*, ,2 #(<  PJ0,,  ,B+#(6NH.*J ,2 #(6PJ0,N  2 ʩ,( m ' (( 6 `th2),D>),F8.$Di0`H8.$Di0%D`H`F 80$D  i(`Di,i. `0B4 %  R&t $$0D( Y`G2 gGI`G* GG0I`G,GI`G`)*U`` 0U``U``& &  Z )*),).)0  ` |4 % !  (  * , . ;(  * , . +)(j`(`2`2(i*0`0Oi2i(i*i,i.i0 ,2 `(\0l ,@(C. ,.*M 8(*ģ*@(ɤ਀ {X  8(#$  8 c,$ 8 c,`,*ˆ),*( ) ` |l ` |) i"é$`.* 0 `0 ìl(48(# V)*/F>ʃ(ʉ**  .>C*=H`*6`*ʠ(ʠ*ʉ  ,, ~ )*! )*/F>ʃ(ʉ**  .o>*`*ˠ2*`*C,8 "(̯.̃ @Bo>,#(੘B>.(, ,2 #(ਗ਼* . :ʯ0(ʏ** ud ੒D@#(੖D@0*  *  V 2 ' (( 6 ' (( 6 4i,*H10n.*#(੘*0.,* ,2 0ron ((ʩ*0 L `ʩ*( m 4W$.S2P48(# C%*D2A(ʩ,( 48# V (  (   ((' (( 6 ' (( 6 .((੊`t H! B $D@ D!H"@( $! @ A$@(DP D  ( !H("A" @"@$A" % @" I@D  @@ "$J )I(   B@B$I(@"$A@@! B@$@ @ A ! B@   R@"H@ "PR$$ $HHI@H$$@$ @@ P !@P  @"@$A" % @" I@D  @@ "$J )I( '&OVLY38  L@.(: NB0*<4 8INTER$ SDIFF$ UNION$ z t,>dhPRRnì48($ VD'" ((ʉ00ʉ22ʉ44ʉ66ʉ88 O Ĉ%DT D:A%=).9e5e1%*  `ff 8$| i.lMl 2C  )f`.:J).FET:8$& ɠ 8  ((ʏ00ʏ22ʏ44ʏ66ʉ88 O %``.' ((ʉ00ʉ22ʉ4  4ʉ66ʉ88 O ' ((02ʠ46 ` ' ((02ʠ46 ` :`, ).$ G,T(ʩ,(ʉ** n )4 4$ .ɥf,8$ɠɯ( ((ʠ02ʠ46 ` ʠ(ʉ  ** {X ʩ8( ) : ʠ(ʠ*ʩ., 0 $( )L)@).)(  ,2 *X (D'D ((ʠ0 2 ' (( 6 ' (( 6 '" (( 6`%S%*' (X'( 'X  (' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O %`< 8~S0` 8~S` 8~Sb%*ib` %*Jib`bGJG`T $()`/0/./,/* @`ʉ((ʠ* F )d)`ʉ( ( L  8  h$|Šɩdɩ.8$ɠ ɩh`' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O ' ((ʉ00 X4 ' (( 6 2%)P $(/(     UB *%*`6` 6%*Q<N)V  N' ((ʉ00 X4 )RiBVV`V $( )N)B)0)*)V ,2 $( )V . NiVB0*' (( 6 )P,L0 @..,(* $( )L)@).)(/0/./,/* ,2 <D~<%%*)0  DD0%* ʠ(ʩ@*ʩ0, 0 ʠ(ʩ@*ʩ0, 0 $()6)N)B)0)*)@ ,2 ʩ@( mb0%*)0DD0%*`6'`6#`NB*%* )0Dʄ(ʉ** ud ʥ(ʉ** |v )6 ʩ6(ʯ.*ʩ0, 0 $()6)N)B)0  )*/0/./,/* ,2 T8$&ʦ( 4 `fRQSET$RG SET$EL 0(8@P6.>FVH2*:B 4,<DT,`48(# V$*$$ ' (( 6 *$* (X' ((ʉ0  0ʉ22ʉ4 4ʉ6 6ʉ88 O '" ((ʉ00ʉ22ʉ44ʉ66ʉ88 O V` J ># GJ`L$8ψ#8cL)L1' ((ʠ02ʠ.46 ` NHH 3# .C%  `<`Nd`@$)ʩJ(ʉ* * n H 3# .Cde:8#C`f(# ((ʉ0"0ʉ2$2ʉ4&4ʉ6(6ʉ88 O  ((ʠ02ʠ*46 ` ' ((02ʠ,46 ` #(,*  J  w  ((ʠ02ʠ.46 ` "HNHv`΋Hv  88' ((ʉ0"0ʉ2$2ʉ4&4ʉ6(6ʉ88 O $*$' ((ʉ000ʉ222ʉ444ʉ666ʉ888 O R ʠ:(ʠ  ,*ʩ:, 0#(.2*:B, ,2 $*$T ʠ:(ʠ**ʩ<, 0#(.4,<D* ,2 ' (( 6 ' (( 6 $* ' (( 6 '" (( 6 'X ((ʠ<0 2 `BLB   !"PB B!$H P R B$ I! DD@"D @@@H  ! I! B@@(B@! (B  ! !  DP H'" (( 6 'X ((ʠ<0 2 `BLB ''OVLY39  0 @ENT$M S1D  LN& =&x9ɬ F )0 )( ɩ0 (ɬ F (0)0  &ɩ0 *ɠ & &DCJDJ Df> " D>#&ɠ   "D>ɠ " (4 "`82& "&#0 C8"`8#& C9& Ɠ & N D>#`9ɠ '4ʠ0 2 t #X((t #1t "ɃÈ& "CH " `B & "`B`  Bɠ ,ɠ T  8B`>`DC.>DCB>iD<ɩ>Y`@ TCJDJ)@@ H`@`@ (L7 ,L@,L , 8@҈)D)>`<ɠɩ>`>C< iD<`DɃ " `@`  @i<JDJf)@H)@`@)@F2CLEL ƊcFcFE22 2 C*̠̠̠̩̃@ ,2  8@#C`2 #@2 #Hɠ\ɠh " ɠtɠ86ɠ,*ɠD   ## fJDJ`)@`@ )@H)@ 8@#C``>RET$M S 1|*** WARNING: TEMP FROZEN -- @> (R  T ***R8ì48(# V$*=t8t#C 8#|`o È$     Š( ʦ(  ` %   (R ( *RR * & (, "`0/ "/#0 C0 `0#& C1', ((ʠ0 2 (* vR   ((, ,# 8(   8(ψ#Ƙ ʠ(ʩ(*   8(Ϫc(()(ov6E6`f 3# .8#C  -  8 ϋ&x~ʠ(  ʯ@(ʠ*ʠ,ʠ. t #(@  ʯ@(ʠ*ʠ,ʠ. t ʯ@(ʠ*ʠ, & /@  )-ʯ@(ʠ*ʠ,ʠ. t ʯ@(ʠ*ʭ, & ʯ@(ʠ*ʠ,ʠ. t ʯ@(  ʠ(  `"|2/ `o~.E.8š$f (_ 8(&xV S&& ",**v,)* 4$ .Dm `  `,*&& f 8ĠC0M0 8͡$ÄǠˠ6# 1I ,.*0248 @|>ì( 48(c v:i:<48<ψ# c v<48<# V$*%48 # VC%*%,48 # V  &* 48 ψ# `@48:ψ# ˩:( 4 48:c v:48# VC-*-, -' ( $4%08#C- $!ʭ (ʭ *' (,ʃ46ʠ8ʩ(: P (`ʄ((ʠ *ʉ,   ,  ʅ((ʠ *ʉ,", ʆ((ʠ * F ' ((ʉ0$0ʉ2&2ʉ4(4ʉ6*6ʉ88 O ʉ(,( wN ʩ8(  6#(2., @#(0*024., ,2 ʩ.(ʠ2*  ʠ4(ʩ8* vR ('  (( 6 ' (( 6 ' (( 6 `X"|(ìl48($ VD8$%,Dʦ (ʦ *' (,% $ $ ʦ (ʦ *' (,4ʥ,0ʅ2J2  *(*ʄ46ʠF8ʎ:H: P `   b<䤄 2BxV `( # # /xZTY   P0* `6)*4 *C<>T@@@<@C>S@>5i>%' C*<`C :Ġ R: `  xe* #6)82)0*i2F8  ,GHGJGF68`BLBRERLF CFH BH)0 ` 82#|CF`8CNeRFRB 1eBTB   ,F)N N)NJ> >c*i>DTD  DiD@!J@HFCF`0C2)0`)0 `$)0J`Z`xiDe*b*`CPT '"XP,LP(/)PDP cJ<C*.4% ǠiP$PeJ )PeJ # #PP SJU  D`dP:.)4ʉ(D(ʠF* F iB`Hi2i4t>i>e* %i2:`xʉ(D(ʠ* F iB`i2Kʉ(D(ʠF* F  82B'|(082#C% :> ʉ(D(ʠF* F  BɠFɥ ɥ :Bi>%@% C*i*i*<`C6i@%e<ʉ(D(ʠF* F iB`i4iBi*i@> i*i4)B>B`d||(ìl48($ VD g8$&|[  %~ʦ (ʦ *'" (,ʠ|4ʥ6ʦ (ʦ *' (,ʠ|46ʯ28ʏ:: P d!' (( 6 ' (( 6 '" (( 6 `.02468 :ͩ(͠ F (ʉ00ʉ22ʉ44ʉ66ʉ8  8 O 6 .*8(ʉ00 X4 )8,ũ0,ŠͶͩ, ~ 6 ͩ2i,͕ @ͩ͠.ͩ0ͩ2ͩ4i,͕ ,2 `P$UC h*(( `WRX$T 204(f Oi(` O)(  i  (  AfE2&)*), ).  )0*  i(  `0)0i2Ʌ)()0  `ENX$T 0 `6i. ), U2,`8,=): D `i%0)8  @8),i8*i*8  i8 I%<)8i.)*DD25iE2ai8E).EFi(F`8i(i)8  d=)86i2).`6i0i6`GGGG  G ?G?G  @[B@T * $! RH@ I@  @ !@ BB@B )@A@I (I$H I  "P DD@HBAAR @I @   J@ D$@"H@$!$ "@ P$P H! HB@H4(@D   @B@B )@A@I (I$H I  "P DD@HBAAR @I @ '(OVLY40  COMP$ DIP d<48(# V !P / (4$,,`9' ((02ʠ46 ` ' ((02ʠ46 ` I()( .'< 'X( 'X' (*`2 ' (*  `2'* ((ʩ20  (`9`9/t  '4 ((ʠ0 2 t #X,,t ##0C`d2 Z   `h4ѩ* i0Fi+)2`24:8,(6. :<48(# V' ((ʉ00  ʉ22 j )2`0`0' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O )68#C`i,`ʩ0(ʉ** n . 3# .Ce*d8:' ((02ʠ46 ` `8(,#(8  ,(*0  w ' (( 6 `!ALLOC$ BALCPY$ L D048(# V' ((ʠ>0  $*@JT ((/tV  '( ((ʠX0 2 t #XZ(\(t ##0C`_d Z `,.0  (2*:4l48(# V#((ɬɬ ɤ" UB #($,.0 . ʉ(&( wN #((( 3  ((ʉ00ʉ2 2ʉ4"4ʉ6(6ʉ8*8 O #(,,.0 . ʩ((  `.`   &> CHK$ TDISPRLAEHppV:d,<l % 48(# V$,>$,@ &` !P &()(BM\ (4`>($,Rfv' (*`D2' (*`@2 '" (*`F2$.N$.P  (4$,R'*ʩ20 #( 'HX'*02ʩ246 ` '* 6 (.' '`X`_8`R(.'4 'Xɠ(s3)ɠ(u3"ɠ(w3ɠ(y3ɠ({3 ɠ(}3ɠ(3&tF  '4  ʠ0 2 t #X,,^2    `,.ԜnĜnnv,4 : % o [``-ʯ (  ʏ((ʠ* F oR`o &o `     l  `f, .0246  ASSRT$ .D848(# V`  *`(ʉ(( wN #(, 3 48' X( ]ʄ((ʠ* F ' ((ʉ00ʉ22ʉ44ʉ6 6ʉ8"8 O 6 *2C(! % #($.024& ,2 ʠ((ʠ** zV (./t,   6 ((ʠ80 2 t #X:(<(t ##0C`?d2 Z *ʩ,(  ' (( 6 `PREC$  F(*RD6 (. !P /48(# V$.`3' ((ʉ00ʉ22 jZ`3`  3ʉ((ʉ**' (,  ' ((02ʠ46 ` /t  '. ((ʠ0 2 t #X, ,t ##0 i),i+-), Z t ##048(# VC e,e)-), Z t ##048(# VC %  2 ' (( 6   `h4ѩ. i(Fi/)*`8642: <'(ʉ00ʉ22ʉ44ʉ66ʉ88 O : ͩ4ͩ0 @ͩ͠8ͩ6ͩ4ͩ2ͩ0 ,2 '( 6 ` b. (Tɩ  (T 8TC*Ć̃ F )* Z ( %T #C* ̇̃ F )* ZfT,D, # #CY``8642:.,*(0 NGET$CH ~PUTCH$ L<l48(# V'ʉ0f0ʉ2h2ʉ4j4ʉ6l6ʉ8n8 O '  ʉ0p0ʉ2r2ʉ4t4ʉ6v6ʉ8x8 O z.,*(z ,2 $*|0ਆʠ0 2 ਊ਌ . z਌8642 ,2 / +X*: ਎਌4 0z8642਌ ,2 ਘʠ0 2   '  6 ' 6 `3 B@ @PA  $ $"$@"$@ H!"HI A IABp$P@@D@($@ R$HH"$PAD @I@RH $$ I"$I$IB ( I@ HI$  ! BHBD AR@D$@( @)$B @!!dB"$@)"@D)HIABp$P@@D@($@ R$HH"$PAD @I@RH $$ I"$I$IB ( I@ HI$ ')OVLY41 X  TU RL4,FNH.(B "PJ0*D  8`b PCKB$ PACK$ vRfì49.(O% Vf 2i29&O%E--ʭ( ) -`  -  d`f, EZ)27&3  &,&)49&(O% VE-*-*m E--9-Oz\&49&(O% VE-* m EE2`\ʆ((ʠ* F ' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O '" ((ʉ00ʉ22ʉ4  4ʉ66ʉ88 O D`H/ Ɠ` `ʍ((ʠ* F ʆ((ʠ* ' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O 4`R' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O .`NJ%(`iR  iLi4i,iNiHi.i( ,2 ' (( 6 ' `V' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O F )20)0`X`Vi0i2 & )X)VFZ `UZ2'" ((ʉ00 X4 )TJ%(`iL  . RiL E4`L4`R)0.`NJ%(`iRiLi4i,iNiHi.i( ,2`"'" ((ʉ00 X4 )TJ%(`iRiLi4i,` ,2 R`L4,i0i2aD6i2 Oʥ ,0ʄ2  j(8Z0  ʠ(ʩL*ʩ0,  .  \%66  ʠ(ʩL*ʩ6, .  \0 ʠ(ʩL*ʩ8, 0 &.!ʩ8(ʉ** ud J%(iX`i8iNiHi.i( ,2 J%(iViLiNiHi.i(`/ T'' ((ʠ02ʠ46 ` F`ʠ(ʠ*ʩ4, 0`ʆ(  (ʠ* F ʆ((ʠ*ʉ,, @ *0ai2ʅ2  j(8ʠ(ʩ`*ai2ʅ, .  ʆ((ʠ* F ' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O PJ#bʠ(*ʉ,, ~ J%(`iPiJi0i* ,2 ʠ  (ʩ`*, .  `^J%(i8i^ @ ʠ(ʩ^*, .  ' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O `X`V XVJ%(iXi^iNiHi.i( ,2 J%(iVi`iNiHi.i(`"J%(`iRiLi4i,`   ,2 ' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O PJ( ) J%(`iPiJi0i* ,2 J%(` . (ai2ʅ*  )24Zʠ(ʠ*ai2ʅ, .    (:i2%0 E?': ((  ʠ0 2(ʠ(ʠ* zV J%(`` . J%(```` ,2 ' (( 6 ' (( 6 '" (( 6 *( +X `f @:,(6B<.*8 @D>0 U T  Z48(# V`zV  d NiN V' ((ʉ0|0ʉ2~2ʉ44ʉ66ʉ88 O ' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O ' ((ʉ0|0ʉ2~2ʉ44ʉ66ʉ88 O 8#CÈ$,%  48e"  CPI48 0;88)N4#(V@:,( ,2 ʠ(ʠ*,ʯ .0`ʃ2  (*ʃ, 0`Pd,R ,#((ɬɬɤ UB )R,DPC2, CT)N 8.^).  Z2iDJi0Fi>HD`>0PD0`>#(V@:,(D>0 ,2 8 .N$*`fT`Fʠ(ʩ>*N ʣ ,, 0`D$*X.@R).,`@2i>H`>#(@:,(> ,2  T$*ʠ(ʠ(ʩ>*ʠ, .  2O#(z>DH0:.$*9)@5.,#(D>0 . i0FTF#(@:,(D>F ,2 `̈$*D#(V@:,(D>0 ,2 D#(  >>d(ʉ** ud #(.D>E2i>H`>#(V@:,(> ,2 ʠ(ʩ>*ʠ, .  ʠ(ʩ>*ʠ, 2#(z>DH0 ,2 `ʠ(ʩ>*`Nʃ, . `8.Bʠ(ʩ>*ʩ.,  .  5B<( ) #(zB<.* ,2 ʠ(ʠ* zV ʠ(ʩ>*, .  / T"ʠ(ʩ>*,N ʣ ,0`Nʃ2  (*ʃ, 0$*`4`4ʩ4(ʩ>*`Nʃ, .  )NP ʠ(ʩ>*ʠ, 0 2#(  zD>0JHF ,2 ' (( 6 ' (( 6 `­*0*2 ʌ(­j2ʪ0(J2(.02468 8:ͩ(͠, F (ʉ0.0ʉ202ʉ424ʉ646ʉ868 O 6 .*8(ʉ08  0 X4 )8,,ũ0,Š,Ͷͩ, ~ 6 ͩ2i,͕ @͠:ͩ.ͩ0ͩ2ͩ4i,͕ ,2 `K}tD0 >l(*e(6e(:48(c f4486# Vi6:$*<$i:6`i686C648C   NE``d4؈$>d <i<<`B2 2>X@V< ʣ ,0ʩ22  j(,i,(Ji,*$&>'ʤ(0ʣ ,2  (ʃ0ʩ22  j(.i.*i6( 488 V$2 B.i68d :`Έ)(P#(*NH.( @~66   `)(R)(T#)(T VN.* C** ʃ(ʉ*X* ud 0#(Z8i(*!ʩ((ʉ*X* ud #(XV0NH.( ,2 *!ʩ*(ʉ*X* ud #(VV0NH.( ,2 `@ H!" @ ! B (  B! B I @D (@  $ I IB   BH@ BA@@ I$ DP @ "$!B@"$"@D @$(P@A$$A@   @ H "A@@(  B" "P   @@  @D (@  $ I IB   BH@ BA@@ I$ DP @ "$!B@"$"@D @$(P@A$$A@   @ H "A@@(  B" "P '*OVLY42 N $STCR $LDCR $SBO$SBZ<4,*6 BVBDFHJ@>(0STCR$ LDCR$ |Nìl'0  `2-'0  `2'0  `2'0  `2`2m(:2   G`2  48( 3' `(>)2$'> ((ʉ00ʉ22ʉ44ʉ66ʉ88 O Ĉ)2 48(Έ# \D>)48(' X ((ʉ00ʉ22ʉ44ʉ66ʉ88 O   48($ VDʅ  ((ʠ* F  % ' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O 6),  D8), H.#( @ . $( )<)4),)*  ,2 ʠ(ʠ*ʠ, .  ' (( 6 .>J48:$ V8  $ʤ( )  ((ʉ00ʉ22ʉ44ʉ66ʉ88 O $( )<)4),)* .  R. . .t $$0E堓٩3٩/ Z >9`0)<)0ʠ(ʩ0* zV $( )<)4),)* . 48:8 ^#&ʦ  ( 4 ` % )2 ʏ((ʉ** #'V ((ʉ00ʉ22ʉ44ʉ66ʉ88 O 'F ((ʏ00ʏ22ʏ44ʏ66ʏ88 O 'N ((ʉ00ʉ22ʉ44ʉ66ʉ88 O 6<`l $  ( /@/>/,/(  ,2`</, ʄ(*ʠ,.0 @ $( /@/>/,/(  ,2 ʠ(ʠ*ʠ, .  i,(J )( )G D@iFGDFʩF(ʉ** ud `BDG)(C)2* $( )B)D)F)H  ,2 $(    . B`DF $( )B)D)F)H . `BF R. . .t $$0DE``2 Y`G( gGI`GB GG0I` GDGI` G)BH     DU`D Z $()B)D)F)H W $(/,  @   $( )<)4),)*  ,2 'N (( 6 )2''V ((ʠ02ʠ46 `  ((ʠ0 2 *( +XE'V ((ʉ00ʉ22ʉ44ʉ66ʉ88 O $( )<)4),)*  ,2 $ ((ʠ0 2   'F (( 6 'V (( 6 . . `#1 .F8DdNl,  48(# V$*$,48d " (`dĬɤ  '  6 ,(.024 .]  48(' ` (F  ɬɤ  'F 6 8:<> . .024 ɧ wN D vR 8:<> . D  `, EPPARM$ z ".i(8d*%hW 8~ʠj024ʉ6l6 u    n p)* 0  r r p ,2 &tt   n v), 0 &t $ y-ʠ0 2# % ' 02ʠ46 `   r)*  w `2hx2.(# 8c"$`0$$  kC,o0E08#  E,8,#C,%ш),ʠ(*  dd d C`%`( (( 6 (,( ((ʩ*0*ʃ2*"ʂ4i*!ʁ6A0i*!ʁ  8 O `..ʩ((**ʃ,  ****`6 .l48(ɣ v(48(ň# | 4 48(# VĬ~ࡀ F `.02468 :ͩ(͠ F (ʉ00ʉ22ʉ44ʉ66ʉ8  8 O 6 .*8(ʉ00 X4 )8,ũ0,ŠͶͩ, ~ 6 ͩ2i,͕ @ͩ͠.ͩ0ͩ2ͩ4i,͕ ,2 `AH D@"$!$$! @"I @D!H  @%D!HBD!H PI@ D    @" !!H@"$$)$ DP @"$P DD IIDB$D  ""@@R D!H ͩ͠.ͩ0ͩ2ͩ4i,͕ ,2 `AH D@"$!$$! @"I @D!H  @%D!HBD!H PI@ D  '+OVLY43 , (*,.02$6 f: % 48(# Vʉ((ʉ**' (,  ' ((02ʠ46 ` ʉ((ʉ**' (,  ʉ((ʉ** (,  0,0 , C6#C4  `44# ʂ(ʉ** n 6 3# .Cd8#C`f(6 3c 08#( ,2 ʠ(ʠ*ʩ8, 0 #((4 6 .`*2C6  ʃ(ʩ4*ʠ, d 66ʃ(46ʃ*ʠ,.  02 * ' ((02ʠ46 ` #(,4 6 ' (( 6 ' (( 6 `(,*.02 4 %  !P /48(# Vʉ(j(ʉ*l*' (,  ʉ(n(ʉ*p* (,    ' ((02ʠr46 ` *# ʂ(ʉ*t* n 0 3# .Cd8#C`vf( ((ʠv02ʠx46 ` $*z!$|i(*i,.#(rx( w#(~rx(* 6  i.,(i.,,`.ʃ(ʩ**ʠx,.02 *.`,ʃ(ʩ**ʠx, d $*z)ʠ(ʉ** ud $*#(#(2vx ,2 ' (( 6   `(*,.024 *< % 48(# Vʉ((  ʉ**' (,  ʉ((ʉ**' (,  ʉ((ʉ** (,  ' ((02ʠ46 ` (,C80i088# ʂ(ʉ** n 4 3# .Cd8#C`f( ((ʠ  02ʠ 46 ` i80,#(  (8 6 8(` C:ʃ(ʩ8*ʠ , d#(  ( 6 ' ((02ʠ46 ` #( ,( 6 (,`0*.`2`( , 0   `C4)88ʩ4(ʩ8*ʠ , d 4"!i08 4ʃ(ʩ8*4ʃ(ʩ0*ʠ ,.02 * ' (( 6 ' (( 6 `$*.# (, 0 B:l48(# V$*. $0$`Bɬ2ɬ4'    $*6"8c6*#  "6B6  !P &Ĭ8: F ɬ<ɬ>'   $*.'ʠ:02ʠ@46 `B8@ ,2 D@6`6 0 ' 02ʠF46 ` i*(9H  F@(* 6 i.,&i.,,`.ʩ**ʠ@,.02 * .`,ʩ**ʠ@, d y(# ʉ*J* n 0 3c 02BLB ,2 DB2 0 HFB( 6 i.,&i.,,`.ʩ(*ʠB,.02  * .`,ʩ(*ʠB, d HB@(* 6 $*6 '  6  `,24(. *0< % 48(# Vʉ(F(ʉ*H* (,  ,# ʂ(ʉ*J* n 4 3# .Cd8#C  `Lf( ((ʠL02ʠN46 ` ' ((02ʠP46 ` $*L`R6`T6ʉ(V(ʉ*X*' (,  ,#(+#(`PN(, 6 i2.`.`2ʃ(ʩ,*ʠN,.02 *qi.2(# ʂ  (ʉ*J* n 4 3c 08#(Z\Z ,2 ʠ^(ʠZ*ʩ8, 0 #(`PZ( 6 .`2ʃ(ʩ(*ʠZ,.02 * #(`ZN(, 6 i2.2`.ʃ(ʩ,*ʠN, d ʉ(b(ʉ*d*' (,  i02!  ' ((02ʠZ46 ` #(6ZN*`,#*i,:i02i*::# ʂ(ʉ*J* n 4 3c 08#(Z\Z ,2 ʠ^(ʠZ*ʩ8, 0 ' ((02ʠP46 ` #(`PZ*: 6  i200`2ʃ(ʩ:*ʠZ,.02 * i202`0ʃ(ʩ,*ʠZ, d #(6ZN:, 6 ' (( 6 ' (( 6 ` FD$ITP DH<( Z`2G2J`2`2* GGG2,GG2460  C8.C9 &t  "ʠ$0 2 t t #X&,(,t #X&0*0t ##0C`- c2 Z )(. )(0V 2 `FD$ITP ND6`L.i)/0*C2i-3VʠX0   2 t #XZ0\0t ##0C`_ c. Z `2Z HJFD$ITP DR^i(>Z`4`4ZZ`4`4Z`4i?56i*E8i-9Z`$:i>E<> `N`NF   ILorXʉ(( L  9)ZO%|ŠɠLiX\M\:MD 9 O%|ÅKn & Cn&;`F)F iF I)F .%LF)F  `LL ʆ((ʠ* F   M  fdLiZDXrʩD(ʉ** |v   ʠ(ʠ*ʉ,, ~ J%(`iJiH 1 iK=Z` >`> ((ʠ0 2 ot %O> GY`"0G0i>E\F\ot %O%0E`%F Ie4 Z `fh4ѩ. i(Fi/)*`  (@$ *@P @  @P!@ D@ "BDPQ @ P H  @ $@  "AD !B HDQ*I  @ A@(T  *HB@@Q$$"H B H @B@J@A J@@!  P $$ !H ',OVLY44   #H@,4(D$JB.*F (l48(# V48' X(8$*JHB@., ȃ#(ϬϬϤ UB #(H@, . ʏ(( wN #(4  $*$'8 ((ʏ0  0ʏ22ʏ44ʏ66ʏ88 O #(H@, . ʯ4(  $* '8(  '8 (( 6 $*;' ((ʏ00ʏ22ʏ44ʏ66ʏ88 O #(H@,JB.* ,2 `68:<>   B % f@'(ʉ00ʉ22ʉ44ʉ66ʉ88 O >:i0.Oi2 vR&Oi6i8i:i<  0`4`4Oi4i2 vR '( 6 ɩ@` "|6ì  n** S*8#8C  SS(`8#8Ce((S( #(  B0*h*D`C4F4 #(C0 #(cc`0 #(8#8Cm(ki0 8#&f 2  82#ɠɄ.,. 3# .f2 ɠ`,.,`>.v. % /tr  ɯpo( 8#8C,),V8,#8 8,#C7%3%/8 ψ#&/  t  /v/te*ʩ,( ) / / i*8 %,e,(`* 2,  ?@R@ìʩ((ʠ* 4  (ˠ48($ VDX 2˥2zʠ(ʠ*ʥ2,     % 0*X̙ʅ((* F %*A*D*.*,*`0ʉ(( wN .i2.i2,' (i.4i,.i4,i.>i28`f  %*, `0ʉ(( wN `6i,:H%%%!  8$ʅ((* F ʠ(    .`* `0ʉ(( wN i.26:i2 $(%)6):)<  48' X (( 6' ((ʩ60ʩ82  ʅ((* F  $(%)*),)>  48  ' X (( 6*i,4i.4' ((ʩ*0ʩ42  0ʩ8(  %*g/  \ 8ơ$D-+-"-8 8 0- 8ơ:ʆ( )  $()()*),).  ʠ(   8ʠ  (    .ˠ`f@ ) HNN (08N@ >l48(# V* 0 *'| 'XĬ F  c0:È$*C4<,4i0,i0<4,<  48' X(   '  6D' 0$*0ʩ02 0 * * * * * *$,$, ,(   ` mFFFXjFj|4 R2ì % 49i(& VFʍ((ʠ* F ʍ((ʠ*   m*0-,ʩ(( 7 ,5 'Xʠ(   &ʠ(   Dʠ(   ʠ(   $ ʠ(   & D4  ʠ(ʭ,*  ˠ4 .' (( 6 ' (( 6 `f 4 % ! (  * , .  ;(  * , . +)(j`(`2`2(i*0`0Oi2i(i*i,i.i0 ,2 `H B BQB@$!  PD $" H@IBHB A$!$@@A "I$   ! @"""$ HI$I$A&RD$2(i*0`0Oi2i(i*i,i.i0 ,2 `H B BQB@$!  PD $" H@IBHB A$!$@@A "I$ '-OVLY45  ҊD  INSTRUCTIONS =  (LESS  WORDS OF DEAD CODE REMOVED)  LITERALS = !$ CODE = !6DATA = !@":   @  Of@` u`  t Of@` f R &  Of@` u`  t Of@` f & Of@` u`! t @  Of@`!`  !F`! t Of@`! `!"`!0 Of@`!2f & & Of@`!4` `!> t Of@`!2fp & Of@`!4` `!H t Of@`!2f & @  `FL$ERR 4.0,;*#h"H(&@F2`".OI`"`"`"I`"I`"`"I`" $` ʼn"͠"ʼn"ʼn"͠"͠"   % ʼn"͠"͠"ʼn"ʼn"͠"ʼn" $` .F F4&4F.Oi2F  `ENS$T  $D#lh>`#v6i.UTU2Q,NMi*,i,*i.)*D8D27i8E2ai,E8).E): D `$Vi%0)8  @8),i8*i*8  i8 I%<$X)8i.)*DD25iE2  ai8E).EFi(F`$[8i(i)8  d=)86i2).`$P6i0i6`ENC$T  &p%h<`%6i,>=U0:*`%*i,)*D4D0&i40i,i0E:F:i(F`%i(i0i36i0),`%6i.i6`  COLUM$ &&th20fE(` *** ERROR: &GENBOOL ILOP = &CASE RANGE EXCEEDS 32767&!TEMP W/O TEMP -- !T& TEMP NOT FOUND IN GENOPERAND - T&EXPRESSION TOO LONG 'NEXTUSE NOT FOUND '6NO WITHFOR REG'L TOPMAP = '^GETTREF NOWHERE T 'jTEMP TABLE OVERFLOW  '~VAR TABLE OVERFLOW'LADRVAR TEMPREF INCST 'PASS1INIT LOST TEMP ' EOF ON CILFIL 'STATEMENT TOO COMPLEX 'BLOCK TOO LONG(HALT CALLED (CASE RANGE EXCEEDS 65535("BRANCHOPT ITERATION = (>DECRUSE OPDKD = (XVAR TABLE OVERFLOW(jCONSTANT TRUNCATED TO (~BAD ARG DISP (LONGINT CASE   LABEL('ILOP OR ILTYPE NOT IMPLEMENTED, ILOP = (GENCOMPARE ILTYPE = ($TEMPREF POINTS TO NON-EXISTENT TEMP (MAP TABLE OVERFLOW -- )$)TOO MANY EXTERNAL ROUTINES REFERENCED -- )>CHK TABLE OVERFLOW )jRANGETABLE OVERFLOW )TEMP OPERAND NOT FOUND -- )CONSTANT TABLE OVERFLOW )UN  SIGNED VALUE NEVER < 0) UNUSED TEMP )"CANNOT GET SPECIFIC REGISTER, R = )OUT OF REGS * GETOPD OPDKD = *.GETINSTR LENGTH = *@FROZEN REGISTER -- *VMEM FROZEN -- *lTEMP FROZEN -- *|BAD LABEL ADDRESS *CONSTANT AS VAR PARAMETER *INTERNAL CODEGEN ERROR *&IN BOOL EXPR, GLOBAL TEM  P CREATED IN R*(ILLEGAL FLOATING POINT CONSTANT; STATUS=+UNDEFINED INTERNAL CODEGEN ERR CODE = +. 1*-------. ..:.L.^.v...1*.1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*1*  1*1*1*1*1*1*1*..1*// /2/D/V/h/z///////0 00.0@0R0d1*0v0000001*1*1*1*1*1*1*1*1*01 ***,v COMPILING ROUTINE " ,| " AT BODY LINE , IN BASIC BLOCK,, WHICH IS BETWEEN LINES , AND ,, WHICH BEGINS AT LINE ,d LAST OVERLAY LOADED = -3"2l`&  .,ʦ@0 & @  &  &@ &4 & t (`1* '+XX&@ &4 &G&@ &4 &_&@ &4 &5&@ &4 ',&@ '4 '2D&@ '44 'H;&@ 'J4 'Z2&@ '\4 'h&@ '44 '| t `&,S&@ '4 '&@   '4 '&@ '4 ' t 5&@ &4 ' t `&,&&@ '4 '&@ '4 (&@ 'J4 (&@ &4 (  t `&.`1f&@ &4 (:5&@ (<4 (TY&@ (V4 (hY&@ '4 (|k&@ (<4 (t&@ '4 (k&@ '4 (P&@ (  4 (Y&@ &4 (P&@ (4 )"G&@ (<4 ):>&@ )<4 )h5&@ '4 )~,&@ '4 )}&@ )4 )&@ )4 )k&@ &4 )b&@ )4 )n&@ )4 *e&@ &4 *,G&@ (V4 *>S&@ '4 *TJ&@ '4 *jA&@ 'J  4 *z8&@ &4 */&@ '4 '&@ '4 *&@ )4 * t ?&@ )4 *&@ *4 + t '&@ +4 +, t &@ *4 +T t &@ +V)( & &@,`&,, &@ &)* & &@ ,t4 ,z t @  &  0&@   '4 , t &@ ,4 , &@ &4 , &@ &&  & @  x[&@ '4 , t &@ ,t&x & (&@ ,4 , t &@ &&  & &@ ,4 , t &@ && &@ )4 , t &@ &&  & @   < <-)  .&%&  &@ &4 - t &@ &%, & @  0  `h.i(% U,i*i(, ,f!`3&i*f`BRANCHOP @77D87b:23p`3z* &,ň/ 3xETX)\)^JL  NP(`3z4(on00B0f I3z)(3zf IJT%f !*fE fUm!`3|ɭf ɕV0o (>>>&3~f`3zV>on00)0f  f`3zTf!`3|m cɭi0  V0.on0V05T : o (>>`6>&3~f@i@DʩD(ʉ*3* 3* iD@f@ɩ@4V>0V2f rf n.nei.Öm Tn PmE-DD.DAn =m !`38mEK3mE.DDEK3  mE[3VniVVʩ.(  iV.VTʩ0(  4Tf!`3|ɩ.i.Vi0.i20`5*i4Z. &pon00 p *`:`:$0`3zHV2 G '3Xf E6K4.ni.VHʩ0(  76*p  .4ɯp(VFfF*`946.ni.VTʩ0(  H/ RX6Cʦ(ʉ*3* 3* f%a/pDD8f@i@`pCC:4ɩ@C8)83)83`3x6`36i0.H2i2% `:i2%  T%3z/ Ri24i2 i2% / R4).i2E0U2ʩ0(  *zi0UBi0FiBUDn%! 3|fDʦ(ʉ*3* 3* f@BUe<&Dʄ0ʩ<2 J (C/ Rɩ<&D `CRCI3`3zXEiB)Fi  FU2TʩB(  4fEʅ0ʩ@2 J (4ɩ@fE `36 fE`3x66pHi0.i20`6`3z,*4`3`~A:*l&0)(  : ,&0 :6  p ; 0(0)( Dp`27<;4l  &7::2B2ɤ: ~ &Fʦ0 & H& `:2:Ť: t eB( )( ()( G( ("0p&  B`*<4F %)(  D2   IF$0IF)2$7 D)O`;I`; < `<`(0ì i(.M. *f 2&(Ŏ< ũ(Ͷͩ* t `ʠ  A 0A @A 2A BA   4A DA 6A FA 8A HA :A JA  t   & F@4 Fp t   ɧFr } ɧFt ~ & Fv4 F t & EB4 ED & F EB Fr & F EB Ft & F E F & E F     ^&d L ` OPj.     &tx ZT   Rn  &   z P (&v&r&~ #O 8#C`O`OxƧO N ʃ* F f N,D,   C  ƧO  &   R P N  T VO& b $   `P,  (F*8(ş`RDI$T  0.QP8(f EOi(`P y`P.6*)(|ei(QG2b)2Pf0/)(|Mfi* CfE  0)(fafE4E*)*aD6i4*i*6*Ofi*I`PI`P&Di, z i0Ʌ.6`P.Oi(i.  `,,[ʌ(  L  X |12RF |1`a2RF ?   ?mCD[-mqp00A S 'J)#ȂGS(09(H E`Rb  #` m@  @ p@ bA@AISmqmSSFEmGHmrS899@D  DE    ba [[BCEEF[ATI1܀ ܱ@[>K-+09A/*m `T@ѱ * TT@m  @  "  *@* **@  T"* T!EF HIm  4TT)TT T +М+ 88GB T b@B@ABE F AB  I@0$.( :61 UUUU `p܀4 ܴ1 `CܱC@./*(ځ//jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ  *ڄA9`W=`WF%00څڅj ʁ* J!B WpCWLWLAWn1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[XX>WjY* *    ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[m* "ròAC*Y* ā*/  *p *xJ!ʁp*vYYbY YLjd YYbI`@*v*pʪhjYYY Y@YY @ڻb*zʐnʪpf/`*a ; K/r[\^Y`Q^Y`R`RF^Z Z`RdY  ^Z6 Z`S^ZB Z`SF_ZN ZV`T$YZ2Z>ZbZn^Zf ZV`Tx^Zr ZV`T^Z~ Z`U[Z[Z^Z Z`V^Z .S$FTLF00^+^Z Z `W[[^^Z Z`W>`WL  Z`Wp^[ [ `W ^`X`X_[ [&`XZ[<[H[^^[@ [``Y^[L [``  Yf^[X [``Y`:`SYSTEMp      `ZZZCREAT$ .>0`_>:* * _H j )*  ߡD6,_J F  _L)6  _H). j ),a0^),T    D2 )2,)0D"i($(`_N*,i0.D006C2)0)(0i0)6DD8F8 )0$D),&`D2c&),`-` ` ʀ(  EXTND$ ``*ʩ((ʠ`* mH (`h,(  `GET$PARM8..4* 0a`D"8Ԡaʂ(  bAAI!>"BĠa Zؠaؠa"aؠa""`a4``a  Z ɠa   ZJ), a `a4`aa  Z ɠa  ZJ), a `~INIT$ SYSMSG   b  b.FL* EXECUTION BEGINSb(,cbNʇ(b (*ʠb2ʠb4 j   |z  a ʠb(ʠb *  b~`bFHJʉ(b (  )G)H  ʉ(b"(* j ʉ(b$(/ʏ* F *j`b&**ïN*ʎ( x ʠ  (ʠ*ʩ(, _T ( bʉ(b"(ʩL* j (6ß|" }d OO*Ï^*bB (, ** (,ʉ(bD(ʠbF*      `~TERM$ NORMAL TERMINATIONc>,*2e(9-:./)01dde2e:eVedeeeeCBPD@  STACK USED = HEAP USED = dR"& dhc(`hl)(d:% c)(< C0Ф= B20 `f 'd.Xdʠd*  `g`f `c,)2d)2$ $`d6 d c4 d Z`d6m)2d)2$ )2$)2$2D6X2)2d  `d6M`d6I2`d6B)2d`d 6:`d"66`d$622`d&6+`d(6'`d*6`c d c4 d, d d d $` `c> $>De 6i6`dB`dDB dF%%%  iB)dH`dHB )BC  )BB $CD0`g)dH  i dJ) `dH)$DɬdJdH   dL) &H 5$@D4Hc@   dN) dJ t @   dN) dL t @  )0dP)2 D ' (D iB&H &$@D4c0 )(   c _< ( _<   )4I c@ i dx ( i(%0a%.D.`dz,ɬdLd|ɬd ɬddH  `d~, dL dP d d d8#  dL d  .  D(d:`dHB dF dB d   dJ)B  $CD`d `d`dBdʠc*    )(:c i )(:  `CLOSE$ 0idh*(i(ff E( | i(i(%i i ٠i `CLS$ ,*iih.i(`ir( i (f,ɧit z f*ɧiv ` `CLS$FILEji*(٠i(    (٠i( `FL$INIT 6jj <F i((ũ(2 gGIjj٠ji4Ʌɩ4 '*(f EOI`j`jOI`j {@ ɩ6`HEAP$TERjj.  (O,* i(F* [j**`MAP$ O8  $TIP.kkIF%'  F4e'i4 E`k 8OI`kI`k | i8=`k OI`kI`k i ' (8 i8 E60Eʅ* F i6؊F`i0IF%8)4k`k4`k4i4 E8`k9`k:`k;`k<`k  =i4%E؊FIFe'=Ii4`7Ii4`8`k OI`kI`k | ii  j`k 4i4 Ei4؊F IFe<i E40i4ʅ* F i4؊F`ki0IF%utrqOPEN$ 0.,nm(2i(  % ( i `n% (' (* |8 % 0e 0%)* m2 m4  n i.e 0* *`m1+`m7')(   `m8٠m7  %m: *`m<`m>`mAe,e 0&,ɧmB ` i  0 % De 0e 0 mB)0 F i,% D`OPN$FILEPqjn4()0nInnInnInn*n)0nIn)*n )0nInn ٠nn*Inni,  InnIni, i,ɕ٠n(  f ci,ɕ( f٠n(  )*n*ff!`nf ;٠n(  fEEInn٠n(  f ).&&&  ٠n(  i.٥f2i.)0n)2  n٠n(  ٠n( i.`n٠n2 i,ɠni,ɕ)2n)2nɠn)2n&n i,ɠni,ɕf)2n ɠnɦi,fɦ$`P$TERM qqnh(,:h a [CFLOATING POINT ERROR -- r3ILLEGAL INSTRUCTION\I  NSTRUCTION = ?1 ADDRESS = ?2s0DIVISION BY ZERO\INSTRUCTION = ?1 ADDRESS = ?2t(OVERFLOW\INSTRUCTION = ?1 ADDRESS = ?2uRELINK FOR EXTENDED PRECISIONv)UNDERFLOW\INSTRUCTION = ?1 ADDRESS = ?2CFILE *?1 ACCESS NAME ?2\ATTEMPT TO READ PAST EOF,?1 ACCESS NAME ?2\ATTEMPT T  O SKIP BEYOND EOM?1 NOT OPENED FOR READING(;?1 ACCESS NAME ?2\OPEN ERROR - ELEMENT SIZE > RECORD LENGTH)?1 NOT OPENED FOR WRITING-*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3.*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3/*?1 ACCESS NAME ?2\READ ERROR - STATUS = ?30+?1 ACCESS N  AME ?2\WRITE ERROR - STATUS = ?39C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICT:C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICTC#DYNAMIC ARRAY SIZE OUT OF RANGE6ESCAPE-FROM-ROUTINE ERROR7INVALID RELEASE POINTEROVERFLOW\ STATEMEN  T ?1&PRECISION CHECK FAILURE\ STATEMENT ?1 "ASSERT" FAILED\ AT STATEMENT ?1FATAL COMPILATION ERRORS IN ?1C MEMORY PARITY ILLEGAL OPCODE ILLEGAL TILINE ADDRESSILLEGAL SUPERVISOR CALLADDRESSING ERRORPRIVILEGED INSTRUCTION TASK KILLEDTASK ERROR #?1  STACK OVERFLOW HALT CALLED HEAP FULL DIVIDE BY ZERO&INVALID PACKET POINTER'INVALID LENGTH OF PACKET2CANNOT GET MEMORY3ERROR CODE = P4015ERROR CODE = P4038TCA ACCESS ERROR7"CASE" ALTERNATIVE ERROR\ STATEMENT ?1 ALTERNATIVE ?2*FILE ?1 LUNO #?2 NOT ASSIGNED1 C  ANNOT LOAD OVERLAY, STATUS = ?1READ$ P0xdw4i(% DG% w"%* `w0%%% w   )0w`w)% D2F2 ġ)*)0w)( w)( w  `*** INVALID RELEASE POINTER *** xhy  0  D,d8U*)( * )(   xʠx*    a)(D.(i( iD`REST$S yZy *(Oi( mH f E( y Oi(f w `REST$T yy^*(Oi( mH f E ( y ( L `REWND$   zy*i(%#f% f% E٠y  f Oi(  i(`y`REWRT$ zzz*(Oi(`z" mH i(( y i( f E( | `S$NAME 86zz~:(f8ɧz ` '*ʉ0z0 k& (ɩ6  `SCB$FREE,*{(z.i(f,ɧz ` i(U*ɧz ` i(`SCB$INIT,&{{,2OI`{6`{8 F F i,,i(i,{:`SET$ACNM,|&{2)(d *Г S B"e,ɧ{ ` *Г B. .ɬ{  . F i,*0S1F0 *`SET$NAME|^|*2(ʯ('* (* z ``~ʠ|b(  ( [<, [<i(* [ [H,i(* ZzWREOF$  }D|*i(% ,% &% D٠|    &)( |   )(  `INIT$1 @OUTPUT }T}}H(Ƨ}R}\ (*ʠ}^2ʠ}^4 j  Ƨ}R ` `DATE$  d/~T}h8I!.A,`}*/*.<}C.<}C0}A <#`  i(~X`}~X`}).~X`=}'0(0GH[TIME$  :~~ph8I!.A,`~|*/*i()2~`~~)4~`~~)6~`=~z'0(0GH[WRX$T 20~4(f Oi(`~ O)(  i(  AfE2&)*), ~   ~). $` )0~*  i(  `~0)0~i2Ʌ)()0  ` h,i( G** 'Xfɩ(fɩ( fɩ(fɩ(`H ԄƄZ(Lì &pon,,`)Bd<< 2`, '.X)< ɊdBʅ<6<1d]<- D$-DCʅ( v ʝ(ʕ*  UK`&`,4i<>)ʠ ( :<  E3 ʠ (  ʮ &(o  8#C  ʠ(  ( ʠ (  ʭ ( ; pCC L S ʠ(  ʮ(9 N/0 0ʠ(  ʦ( ; ( #ʣ4( ( Dʠ( ʃ(  ʦ( ; (``~d  &D   EC2C \ʠ ( :< `pC`C-GG ',X`pC*"ʠ( :< `,eʠ(  ʩ,( ; ʠ (  ʩ(|ʠ ( :< `,*C-ʠ(  ʩ,(a`,T`,P`,L`  ,H`!,D`#,@`%,<`',8 RC`#,`%,ʠ(  ʩ,( ; ʠ ( :< `!,-C- `),`+,xʠ(  ʩ,( ; T(`f(LISTFILE< H8J DXPSCL yTI 990 PASCAL COMPILER9BXɧ   (*ʠ2ʠ4 j   j }  r ~  \ ^ ` bOi(I` 6 ( yl ʩ(0 r _a)(|\Oi(I`iH 6 Oi(5`I`  Oi(5`I` ' j  Oi(`` rG  ( L Oi(5 `G P Oi(5   \G Oi(5 ^G ( L `O zG`I`I``` % `O zG`uI`I``` #~ `O zG`uI`I`` G `¡Fe`O zG`uI`I``` #~ `O zG`uI`I`` jG `  O zG`uI`I`` rG ɧ i| `*@,)( "ɬhj  i*I`l`nTfp p*)*`  &\,*m 'XQ)(  F Ja )(&)(ɓT))(   F LF )(&)(ɓ9)(  F N+ )(&)(ɓ )(&)(ɓ)(  F P* t 9)(T* Y`G`h0* )()*I C)*@ %c.i.(   e..i.%e(di(E,i**fɩ,`02R4ìi(/22_`0e**F*C*F& @T*f,,4i,+- %T,%# $(&-/,   0  ˠ*0Dm,f*& 1f..+i.-! E$- d $(/,-   2 ˠ*% Dfm. ]Y Q,NV-I- D C?-  9- 4- D /-D c À%    ʍ( v &ʕ(ʝ*  4 /2ʯ,(  `f` b^@Rpìi(*i(l)*l  PRTlBBcAB0B4dAi>A2A6)@)BLNB8A:`H`  Ji@Lnm)0i0<`l0\*0^ '(` 0CjChʮ(ʩh*ʩj,ʏ..  0\.|'i04l B@`@@ #Уa  )@i04i@Di0<l BL@ #Уa * i@H)@i08`ԊiBN[Z)2i2  >`l2^2CjChʮ(ʩh*ʩj,ʏ..  2^.| CNi2> ÀB]B #У *iBJ)B2X@ #`  BVcbZB #c\BnEniVP  iXRT@CHi08BBJi2:`@ ##`B ##C   T(` Э f)V& MX)@)BlS, b `sb,uʉ((ʠ*  ibI` `i,,c,bl  S,i,lR  ɩb Rʉ((*  i`i`I` ib8GG4`8CI`CH Y`Gl BY` B iRc BI` B ʉ((ʠ*  i^I``i`ʔ(ʩ^*  lS, ʓ(ʩ^* lĩ^  lcRcRH4lhR8`<BHHBBH  Hl X lZlH S,^dRdRI .i)R:`>CI JCCI    J Y    )\I kT R..`f0 4R@ìi(% D%DD* `C2,Jʃ0ʥ2 J (?  ʅ( v .p$ʉ((ʠ*  0ŕI頛ɥVɩ(i02G*GI`G R`V  *u)*)*m%iei80(8f E6 6E  @"E>``:`f`b@`d:8(8f E60'9$%ED)4hB&)4j`l:X 9i4DF4:`n<)i6<)*0a8F*ͩ(ͩ*͠Xʼnpʼnrͩ0ʼnt   8F08`(*i80(8f  8``:2ũ4.ũ:``(P$CMSG 袖:g i- )(i*J*d,!Li22 `~MDCD   .[KB). G4/4  5@JN  di*2B[K@rF GHiD2LFS)HPOc )HPܠdaܴ)HiH G:É.<00χׇt?/:;!J GL)L6bb)LLF ܶ)Lܠa@[E LFܵ[*** ERROR >?1 *** ?;\ CHK$L   f(ʾ(ʭ* 2 `READ$REL0"4(f.i.2Ofi2i*i,f I`  )0٠ɠ٠0Oi(`Oi(`  `IO$TERM `&h.(fE)*,GI0`STATU$ dh20f(`RDS$T   40:(f E Oi(`  `2*i,*2)(|`0yfi* ^fE48)(fafE6E*&%)*aD8D, i64i*8*i*, i*ai,E4)6aD*i6*Ofi*i,I`I`&Di. 4 i4Ʌ0  8`02i( L  * Oi(i0  `ASSER$ .*,ʧf4`*ʼn͠ʼnʼnͩ͠(  *F F.&.F*O` F  `DEX$T #0j`t<,  ),v*i.`U2`ri82ti(i8% D609A!FAj`~6:i, i:ti6%):  >`<>i6``<  8i82 i(i8% 0<)8*i82i(i8%  `z<18i8E28<#:i4i,):  < C>C),i:i2).``,8,ba*i,**i.SRU2O`*8i.)*D2Ci,E<2( * ,^@48(# V' ((ʉ00ʉ22  *' > 'X`, ,,`, ,#`, ,`, ,  `, ,`, , (4 !P /$, ʠ(ʉ* * n > 3# .Cd8#((,ɬɬɤ UB ' ((0ʠ2ʠ4ʠ6 ` ʩ.(ʉ** ud ʩ0(ʉ** #((  ,2 #(*  ((ʠ0ʠ2ʠ4ʠ6 ` '4 ((ʠ0 2   ` 139;24D6l48(# V$,b`d.`f0`h.`j0  ɧl wN ɧn p2 vR .r( .  4 vR 2  0r( .  % 4  `(*,.820@  @e6`v>zrl¡B48(# V' ((ʉ0H0ʉ2J2ʉ4L4ʉ6N6ʉ8P8 O ' ((ʉ0R0 X4 2  #((TϬVϬNϤL UB *`X:,'4 'X)4:8+ʉ(Z( L  8@#|C`\i,%8#C`^i@` % ``0)<$T3 ((ʏ0V0ʏ2N2ʏ4L4ʏ6J6ʉ8P8 O 8#C%b4  e<0ʠT(ʠX*ʉ,V, ~ )0`*2#((TϬVϬNϤL UB 0o.0)0`+$.d`L#(h0 . #(j(*,.0 ,2`$.dJ`T>/0Xo.*<ʩ<( 4 )< 8.f0`X>#(h  0.,* . #(j(*,.>.,Cʄ(l(ʠX*ʉ,V,  #(j0T.,* ,2 ʠn(ʩ0*ʠp, .  #(j00.,* ,2 <@ʩ<( 4`#(j(*,.0 ,2 #(j0  0 ʠn(ʩ0*ʠp, .  ʩ0(  ``^4$*rɠtnɠvprʠx(ʉ*z* |v )8b (0 '|X 8,#|C( ) ʠX( #( @ #(X()2X`( )( ) ʠX( #(z(*  ,. .f#(j(*,. ,2 ʠj(ʩ(*ʩ*,,ʃ.ʩ.02ʠX4687( ) #(jf*,. ,2 )*XʠX( ) #(j(*,.X ,2 $*rʩ6( x ``b4$*rɠlnɠvprtvʠx(ʉ  *z* |v )8b ( 'X( ) ʠX( ʠT( ʠf(  8,#|C#( @ #(X #(T #(f)2X*( ) ʠX( ʠT( ʠf(( ) *`#(j* ,2 ʠj(  **ʃ,.02ʠX468 ʠj(**ʃ,.02ʠT468 ʠj(**#ʃ,.02ʠf468%( ) ʠX( ʠT( ʠf( #((*,. .f#(j(*,. ,2 ʠj(ʩ(*ʩ*,,ʃ.ʩ.  02ʠX468 ʠj(ʩ(*ʩ*,,#ʃ.ʩ.02ʠT468 ʠj(ʩ(*ʩ*,,#ʃ.ʩ.02ʠf468`~i*0)*T#(j* ,2 `0( ) )*XʠX( )*TʠT( ) )*fʠf( ) #(jf0   ,2 #(jf0X #(jf0T #(jX0f`~ " )4:4#(V4 . & ' (( 6 :(  `20*(B@ .,@e<6 ڤ >$66DLȥz,R  Nìl`F48($ VD' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O ' ((ʉ00 X4 2%,%, $(/(     UB *,'` '2X%*ˠnˠ prʠ (ʉ** |v )B&(   ) ʠ(  8*$| $(& @ $(& pF' (( 6 2 'X)@`F( )Q( ) ʠ( . Ƣ $( )2)0)*)( ..ʠ(ʩ2*ʩ0,)*ʄ.ʩ(02ʠ468 ,2 $( )2)0)*  )(X( )  80`H`J`H`J)0ʠ( )  $(  )0 .# $( )H)0 ,2 $( )J)0   %*ʩ<( x $(  . (``(%*ˠ nˠ prtvʠ (  ʉ** |v )B 2X '$X( ) ʠ( ʠ( ʠ( ʩ*(ʉ** |v $( " )* .))@&( ) ( ) ʠ( ʠ( ʠ( $( ")2)0)*)( . F' (( 6 %*ʩ<( x $(   . (`  %.)B{ʉ(,( L  8L$|Š. 8*ɤ8$ɠ.ɩL` ((ʏ00ʏ22ʏ44ʏ66ʉ8*8 O 8$&ʦ( 4 )BI 8*ʃ(ʯ0*ʯ.,ʯ,.ʯ*0 @l2)@' (  ( 6 F)0ʄ( mP $(/(     UB *20)2)@ $( 0)0 . `2* $( )2)0)*)(/0/./,/* ,2 " 4F ' (( 6 `f R*ì48($ VD2; $(  )(/0/./,/* ,2 ʠ(*)(ʄ,.0ʯ02ʯ.4/,ʄ6ʯ*8 8 8 8)( 8(#$Dɠɥɥɥ `fh4ѩ* i0Fi+)2`.02468 :ͩ(͠ F (  ʉ00ʉ22ʉ44ʉ66ʉ88 O 6 .*8(ʉ00 X4 )8,ũ0,ŠͶͩ, ~ 6 ͩ2i,͕ @ͩ͠.ͩ0ͩ2ͩ4i,͕ ,2 ` 4 % ! (  * , . ;  (  * , . +)(j`(`2`2(i*0`0Oi2i(i*i,i.i0 ,2 `A I$I$BB@I@"I PT@)$ $DAABIB@ A! I($ A@AA A H%B A"  H$@!"   H @A!$IA@@P"@H9D!HH$DH@ @@ @(  Q$  B"(   D!H @(I@A H $! HB@HH@I A@AA A H%B A"  H$@!" '/OVLY47  Γԓh.( 'X,*` \R,(NV0`^T.*PX2bD( l48(# V\` 'X/`)#(TR ,2 V 2 #(XV`/b(#(RT  ,2 V 2 #(VXS#(R0.,* ,2 #(V0Z4* #(T0.,* V 2 #(X0Z4*KdJ^G#(^T0.,* ,2 V 2 &0  #(X.*#(X0.4*`d/b`/\z6J' ((ʏ00ʏ22ʏ44ʏ66ʏ88 O RV,0ʯ\(ʏ**ʏ,,  ' ((ʏ00 X4 /` 8Rň#Ɠ   8R8cȠ"ʯR( ) #(R #(\R,(0.,* ,2 #(\R0(0Z4* ,2 /b/^`` /\z6J' ((ʏ00ʏ22ʏ44ʏ66ʏ88 O RV,0ʯ\(  ʏ**ʏ,,  ' ((ʏ00 X4 /` 8Rň#Ɠ 8R8cȠ"ʯR( ) #(R #(\R,(T ,2 V 2 #(\R0(X`8J' ((ʏ00ʏ22ʏ4  4ʏ66ʏ88 O TX.2ʯ^(ʏ**ʏ,,  ' ((ʏ00 X4 /b 8Tň#Ɠ 8T8cȠ"ʯT( ) #(T #(^T.*0.,* ,2 V 2 &0#(^T2  *.#(^X2*0Z4* ,2 `d\R,(N^T.*P`b0VX2Z4  (2: ء|jìl49/(N% Vʉ((  d &' (F'( 'F(  ʼn  E6`*`(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O 6`(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O )N)P (ʩ,*ʩ., ,` ʉ((ʉ**,  682+&i`ib%  !d)` \0R.,,(*A^0T..,**4J%(o(`O`O`O` UB 0ŋR./.)RE6ŋT./.)TE8*/0)``:`:iRViTXo.Zi,0i.2o,4ʩ\(ʉ**ʉ,,  ʩ^(ʉ**ʉ  ,, ʯ0(ʉ**ʉ,, `B`Df)P`)`\0R. ,,(*`)\z6J' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O iRVi,0ʩ\(ʉ**ʉ,,  ' ((ʉ00 X4 )` 9)R  N%ƚ 9)RN8ȡ$ʩR( ) J%(``iR J%(`i\iRi,i(o0o.o,o* ,2 J%(`i\iVi0i(o0iZi4o* ,2  9).Ne~<>)> >= 'X)<>>`f)`_0 'X)>  `@`@`B`D `f``@`@)`ʩ@(*iRʅ,.0!d)\ J%(i@`iR` J%(i@o0iZi4o* .1<ʩR(ʩ<*  V 2 iR<ʯ.(ʩ<*  V 2 o.ʅ(ʩ>* jʩ.(ʉ** |v   <J%(``i.o0o.o,o* ,2 V 2 d/0ʠ(ʠ*,i.ʅ.0ʠ2ʯ.4ʠ6ʠ(ʠ*,i.ʅ.0ʯ02ʩZ4ʩ46ʯ*8 ,2  ' (( 6 ' (( 6 fQV`:ʩB(ʩ:* zV )`)b  #J%(iDiR .%dJ%(iDiT . ʩT( J%(iDo0o.o,o* . V 2 )`ʩR(  d9&N%ʥ( 4 )P ʯ(( +X `6 ң(Dd848(# V 8*c~.c0)(  )(  8,c~2c4ʉ(( L  86#|C`(h 'X.024.0`2`448.082084BC: ).)0)2)4 z)i0i.e% i0i.e% ).)0)2)4  |\  8#C`i6` R*ì48($ VD2; $( )(/0/./,/* ,2 ʠ(*)(ʄ,.0ʯ02ʯ.4/,ʄ6ʯ*8 8 8 8)( 8(#$Dɠɥɥɥ `f  .l48(# V' ʩ(0 X4 ,), 'ʩ*0 X4 `0 Ph4l48(# V$`($  8c(8c($`*$  8c*8c*)()*(   !* ' (,'( ',(`t*48(# V$(8#C% ʥ( ) (`$A,$$D " h(`*ʉ,@, `BD`BF^)J.`)ZV0L. ,,(*`)Vz8J' ((ʉ00ʉ22ʉ44ʉ66ʉ8 8 O iLPi,0ʩV(ʉ*8*ʉ,6,  ' ((ʉ020 X4 )Z   9)LN%Ɯ 9)LN8ȡ$ʩL( ) J%(`D`FiL J%(`DiViLi,i(o0o.o,o* ,2 J%(`DiViPi0i(o0iTi4o* ,2  9).Ne~>e@>@)@0 @C 'RX)>H@ʩ.(ʉ*(* |v )Zc  0` '^X)@J`LB`NB`LD`NF `^@`BB`PB)ZʩB(*iLʅ,.0 .[\)V J%(iB`0iL`0 J%(iBo0iTi4o* . o>J%(`\`0i.iL ,2 V 2 ʠ\(ʠ0*,i.ʅ.02  ʩP468 ,2`>J%(`\`0i.o. ,2 V 2 ʠ\(ʠ0*,i.ʅ.02ʩT468 ,2 `>J%(`\`0i.o0o.o,o* ,2 V 2 \/0ʠ\(ʠ0*,i.ʅ.0ʠ02ʯ.4ʠ06ʠ\(ʠ0*,i.ʅ.  0ʯ02ʩT4ʩ46ʯ*8 ,2  ' (( 6 ' (( 6 ^4V`d<ʩD(ʩ<* zV )Z J%(iFiL J%(iFo0o.o,o* . V 2 )ZʩL(  \9&N%.ʥ( 4 )J. ʯ(( +X ` t  R*ì48($ VD2; $( |)(/0/./,/* ,2 ʠ|(*)(ʄ,.0ʯ02ʯ.4/,ʄ6ʯ*8 8 ~8 8)( 8(#$Dɠɥɥɥ `f.l48(# V'   ʩ(0 X4 ,),x 'ʩ*0 X4 `B*48(# V$(8#C% ʥ( ) (`t$tA,$$D " h(`NPD0F2 ""ȝȝ|Tìl49/(M% V * ʼn  ˅6ˠj*ˠl(' ((ʉ0n0ʉ2p2ʉ4r4ʉ6t6ʉ8v8 O 6ˠx(' ((ʉ0z0ʉ2|2ʉ4~4ʉ66ʉ88 O )<)> ʠ(ʩ,*ʩ., Kʉ((ʉ**ʠ,  /0`8`j8i@Di,0ʩJ(ʉ*  *ʉ,,  iBFi.2ʩL(ʉ**ʉ,, )> t`' (( 6 J` 'X)Nj )PjʩB( ) )Nj)Pj˩@0iB@n0Bi@ED)BDFi@B`J%(`liD` ,2 J%(`i@`  J%(`  `x`x ,2 J%(`liDi@ J%(`i@i@  J%(``xi@pJ%(`liF` ,2 J%(`iDiB  J%(`l`iB ,2 J%(`i@`  J%(`iF`x ,2 J%  (`iDiB  J%(``xiB ,2 ' (( 6 ʩB(`)PjʩB( ) J%(`liF` ,2 )Jj J%(``i@` J%(`iJi@i0i(iB  J%(`l`iB ,2 )Jjʩ@( ) J%(``  i@ J%(`iJi@i,i(`  J%(`iF`x ,2 J%(`iJi@i0i(iB  J%(``xiB ,2 ' (( 6 ʩB(`.ʠ(ʠj*ʏ,~, ~ o.EH@.i@)J@J%(`li@`l   ,2 `l@B.iBH)LBJ%(`liB`x ,2 `xB)Lj J%(`l`iB` J%(`liLiBi2i*o. ,2 )Jjʩ@( ) J%(``i@ J%(`iJi@i,i(o.  J%(`liH` ,2 J%(`li  Ji@i0i(o. )LjʩB( ) J%(``iB J%(`iLiBi.i*o.  J%(`iH` ,2 J%(`liJi@i0i(o. J%(`iLiBi2i*o.  J%(``o. ,2 ' (( 6 ʯ.(  `  L 'X0B4 %  R&t $$0D( Y`G2 gGI`G* GG0I`G,GI`G`)*U`` 0U``U``& &  Z )*),).)0  ` R*ì48($ VD2;   $( )(/0/./,/* ,2 ʠ(*)(ʄ,.0ʯ02ʯ.4/,ʄ6ʯ*8 8 8 8)( 8(#$Dɠɥɥɥ `f.l48(# V' ʩ(0 X4 ,), '  ʩ*0 X4 `0 P$h4l48(# V$`($ 8c(8c($`*$ 8c*8c*)()*( "!* &' (,'( ',(`   |l ` |) i"é$`|$|A,$$D " h(`ɩ,`lJ /N6 ʯ@( ) 6N/N6` $(.( @ B D : UB .H,4ʮ0(ʏ*F*ʏ,H,  60 ċ@.@H  6/J6z6J' ((ʏ0J0ʏ2L2ʏ4:4ʏ6N6ʏ8P8 O @D,0ʯJ(ʏ*R*ʏ,B,  ' ((ʏ0T0 X4 /N6 8@ $Ƣ6 8@ 8Ƞ͈#6ʯ@( ) $( V X/@ $( V/J/@/,/(.0..  ., ,2 $( V/J/@/0/(.0/H/4 ,2 )*8c/N6+ $( Z/@ . $( \/D ʠ^(ʯ8* zV $( ^/D0 $( Z.0..., . $( \.0/H/4 ʠ^(ʯ8* zV $( ^.0..., . ' (( 6 /  N6ʯ@(  `lʯ.(ʏ*D* |v /N6ʯ@( ) $( V/D f ,2 ʠh(ʠ@*,/.ʄ.0ʯ@2  $( V f/@ ,2 ( $( h @/. f  $( j $( V/D l ,2 ʠh(ʠ@*,/.ʄ  .0ʯ@2  $( j l/@ ,2 ' (( 6 ʯ@(`f $( h/J/@/,/(..  $( V/H f ,2 (0ʠn(ʮ.*ʩ(, 0 $( h/J/@/0/(..  $( j/H f ,2 ʠn(ʮ.*ʩ*, 0 $  ( h/J/@/0/(..  $( j f.. ,2 ' (( 6 ʮ.(  `8"@ @ BD!H$B@JD@ A!@@  A @ HAD@$  HHH@D( @D  J P@  @  BBB! @@ "B@$$("@ ! DA@ @ @ A H$@(!@D   PHD@ A!@@  A @ HAD@$  HHH@D( @D  J P@ '2OVLY50 8 Γԓh.( 'X,*`HB,(>JD.*@F0; vNl48(# V' ʉ00ʉ22ʉ44ʉ66ʉ88 O ʉ00ʉ22ʉ44ʉ66ʉ88 O iDFi.0  Jɬɤ  L)>$*``8`:`<`)J`2`2 8,c~4c646)6  )4G6DC)6?$*)66# 'X`8`8`:`<`L`8`8`:`<8JF0* . `4$  * `8`:`< `8`:`<J)8D4  F6{,ɤ |v 48,JD.* ,2 8,JF0* ,2E`8`:`<8HB,(JD.* ,2 HB,8HB  ,(JF0* ,2 '  6 L:2 zV <JD.* .  6 `XR@,(:TB.*< DI$MOD DI$MUL DI$DIV V8D0F2 >H4 \l48(# Vʉ(z(  É$$Ƀ6ɠ  |*ɠ~(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O 6ɠ(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O $*`6$*`6`6 (J):)< ʩ6(ʩ,*ʩ., *` !P %o   hgɠ|*)@~3É$$Ƀ6ɠ~(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O )B)6ɠ(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O ʉ((ʉ**ʠ, . ' (( 6 i@DiBFi,0i.  2ʩR(ʉ**ʉ,,  ʩT(ʉ**ʉ,, #( ,2 ):ʩ,(ʉ** |v `R@D(,C0)R|ʩ@( ) #(@ #(R@,( ,2 #(RD0( ,2  )<ʩ.(ʉ** |v `TBF*.C2)T|ʩB( ) #(B #(TB.* ,2 #(TF2* ,2 'J ((ʠ0 2 V$* 2 X#((ϬϬϤ UB *&  ɠ~( ((ʏ00ʏ22ʏ44ʏ66ʉ88 O o.Ho,4ʯ0(ʉ**ʉ,,  X*/0|&#(. ,2 #(||.)#(0.,* ,2 #(|0H4  *   ' (( 6 8X #ʣ( 4 `6 О&Bb848(# V 8*c~.c0)()(  8,c~2c4ʉ(( L  86#|C`(h 'X.024.0`2`4  48.082084BC: ).)0)2)4 )i0i.e% i0i.e% ).)0)2)4  |\8#C`i6`(*.2F46:8< ,0$Jl48(# Vɠ*ɠ(' ((  ʉ00ʉ22ʉ44ʉ66ʉ88 O #((ɬɬɤ UB i68i:<ʩ4(ʉ**ʉ,,  >( Êi*6i*8C>)F( 8.c~BcD#(B46: @ #(D48<`")(9>$' ((  ʉ00ʉ22ʉ44ʉ66ʉ88 O ʩ*( ) #(* #((*.246: ,2 i*,i.0ʩ((ʉ**ʉ,,  #((,0248< ,2 ' (( 6 `.l48(  # V' ʩ(0 X4 ,),( 'ʩ*0 X4 `*48(# V$(࢐8#C% ʥ( ) (`$$$A,$$D " h(`9<D8,(F:.*LHJFL$ITP H|Nìl48($ VD%,ˠ.`0%*`2`2`0ˠ.%*`2`2ˠ(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O ˠ(' ((ʉ0  0ʉ22ʉ44ʉ66ʉ88 O )4Y)6U%,Qʉ(( L  8L$|Š 8,d~ 8.d~@dB%*  n @ i<    n @ )<  8$ɠɩL`H)4`D8(ʩ,(ʉ** |v )6`  F:*ʩ.(ʉ** |v ' ((ʉ00 X4 ' ((ʉ00 X4 )H/)J+  ((ʠ0 2 ( ) ʠ( %,ʠ( ʠ( D $()2)F):).)* F $()0)F):).)* . $()2)D)  8),)( . ' (( 6 ' (( 6  R ` 653>=;D8,(4F:.*JHFL$ITP ~ |Lìl48($ VD%,LˠN.`P0%*R`T2`V2ˠR.`X0%*R`Z2`\2ˠ^(' ((ʉ0`0ʉ2  b2ʉ4d4ʉ6f6ʉ8h8 O ˠj(' ((ʉ0l0ʉ2n2ʉ4p4ʉ6r6ʉ8P8 O )4tf)6tb%,L^ 8. n ~ Qʉ(v( L  8J$|Šx 8,d~ 8.d~@dB%*R  n < i@    n <   @  8$ɠRɩJ` )4t`ND8(ʩ,(ʉ*d* |v ' ((ʉ0z0 X4 )H|>  ((ʠ0 2 |( ) ʠ|( %,^ʠN( ʠ( D $()0)D)8),)( . ˠj(' ((ʉ0l0ʉ2  n2ʉ4p4ʉ6r6ʉ8P8 O )6t`NF:*ʩ.(ʉ*p* |v $()2)F):).)* . ' (( 6 ' (( 6  R `(*,.24  :848(# V' ((ʉ00ʉ22ʉ44ʉ6  6ʉ88 O 23ʉ(( L  84#|C` n ,  $*` 8#C`"i4S( ' (( 6 ( ) ʠ$( $*& (,`6 *,`,6ʠ.( ) ʠ0( #(6(*,. .  R ( ' ((   6 `42,(0 8R6ìl48($ VD`.%,.' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O )08$ɠɩ,dʩ.(ʎ** n .0 4$ .f*ɥ8 ).4'   ((02ʠ46 ` `2(, $()2),)( )*.  w ' (( 6 `f 7?* \048(# V$,<`>,`@.`B,`D.8#C`>f(e *F,ʈ),B*  : 8*ϋ&x18Hʩ,(ʉ*J* n * 3# .Ce(d#(.>L( . `FL$ITP z`|ȍ,$ɂ6@ ABA MB @ @ j~Ӥ~"C @B aA M   SSB RBA?  A M @A~',, A M@ |,@ A~[Q~[ |,4 Ɂ(Ɏ*ɦ6,6``D |8ڥ¡̟̟̟̟̟̠zzY  i4G@AH&pAFB @  AЁ@ƀʁʂ kipF&?& &@FЁ@ B A C @ Ƃ@  ABƁʂ  [( zi@E)тFpAЃpÁ8 (((((C())F)aFE$e  C Bpp   FGĠ C B"@A  Ġ)zBCD B CDЄƂʃE@[9`,9)G  (::*   7L=9a`9``G   ކ ކ*Gj2B AB BB @IUѥFa'@ +% ƀʁ @ [CD9)8*8)8ġ#CЙB#H F ȡ GH  ш(6Ɔʇ@[ιƙzZZ[FL$ERR 4.0,;*ΥH(&@F2`.OI```I`I``I`  ʼn͠ ʼnʼn͠͠  b ʼn͠͠ʼnʼn͠ʼn  .F F4&4F.Oi2  F  `ENX$T 0 L`6i. ), U2,`D8,=): D `i%0)8  @8),i8*i*8  i8 I%<)8i.)*DD25iE2ai8E)  .EFi(F`8i(i)8  d=)86i2).`6i0i6`ENC$T  Ph<`Z6i,>=U0:*`Z*i,)*D4D0&i40i,i0E:F:i(F`]i(i0i36i0),`X6i.i6`CFLOAT  ING POINT ERROR -- r3ILLEGAL INSTRUCTION\INSTRUCTION = ?1 ADDRESS = ?2s0DIVISION BY ZERO\INSTRUCTION = ?1 ADDRESS = ?2t(OVERFLOW\INSTRUCTION = ?1 ADDRESS = ?2uRELINK FOR EXTENDED PRECISIONv)UNDERFLOW\INSTRUCTION = ?1 ADDRESS = ?2"$H! B"! @ D  $$$@@) $D!$!BDD @ @"D!"@P H@!B@H@$$$$H$ B@ $H(H4 EB JRR$@    !$!BDD @ @"D!"@P H@!B@H@$$$$H$ B@ $H(H4 EB JRR$@  '4OVLY52  .0 TRCF$I RNDF$I TRCF$D RNDF$D CVTF$R CVTF$E ڔȔ><2( * ,^@48(# V' ((ʉ00ʉ22 d *' > 'X`, ,,`, ,#`, ,`, ,  `, ,`, , (4 !P /$, ʠ(ʉ* * n > 3# .Cd8#((,ɬɬɤ UB ' ((0ʠ2ʠ4ʠ6 ` ʩ.(ʉ** ud ʩ0(ʉ** #((  ,2 #(*  ((ʠ0ʠ2ʠ4ʠ6 ` '4 ((ʠ0 2   `h4ѩ* i0Fi+)2`(*,.62 ؙr0< ޚޗjZJZZ>48(# V' ((ʉ00ʉ22  ʉ44ʉ66ʉ88 O ' ((ʉ00 X4 `8,'`Z 'X:)6 (` 'X( ) ʠ( #( 8i,~ @ #( 8i,`)2?*w( ) #((*,. ,2 ʠ( ) ʠ  (ʩ(**ʃ,ʩ,.ʩ.02ʠ468 ,2:( ) ʠ( *}#((*,. ,2 ʠ(ʩ(**ʃ,ʩ,.ʩ.02ʠ468 M( ) ʠ( #((*,. ..#((*,. ,2 ʠ(ʩ(*  ʩ*,,ʃ.ʩ.02ʠ468 >#(* ,2 ( ) ʠ( #( ,2 #( ʠ( ) ʠ( #( .`F:)6 (: 'Xʉ(( L  8<#|C` 8  ,c~ 8,c8#C`i<8``)2 ( ) ʠ( ʠ( ) ʠ( `)(#(* ,2 ( ) ʠ( ʠ( ʠ( )(L / Ɩ#((*,. .W % #((*,  . ,2 ʠ(ʩ(*ʩ*,,ʃ.ʩ.02ʠ468% % #( ,2 #( #( . #(   " 8:ɠ4: #(4 . ' (( 6 8 ,   `20*(64 >.J B48(# V' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O `4$' ((ʉ00 X4 :,`R' 'X)6'( ) ʠ(  8#  |Cʠ(*ʥ, 0 ʠ(ʠ*ʥ, X)40 2L 'X( ) #(20*( ,2 ʠ( ) ʠ(ʩ2*0ʃ,ʩ*.ʩ(02ʠ468 ,2<( ) ʠ( 0`#(20*( ,2 ʠ(ʩ2*0ʃ  ,ʩ*.ʩ(02ʠ468w#(0*( ,2 ( ) ʠ( #( ,2 #(7( ) ʠ( #(20*( ,2 ʠ(ʩ2*ʩ0,*ʃ.ʩ(02ʠ468 #(   . `4)6 2`< 'Xʉ(( L  8>#|C` 8*c~ 8*c8#C`i>`^$]ʠ(ʉ** n . 3# .Cd8#C`f( ((ʠ02ʠ46 ` ' ((0  2ʠ46 ` #( wzv<.. 3# .C%`<.<.vov.C@E@ 3' &( .. 3# 6C``. 3# .Cd`8#C`f("$)4( ) `:2   j  " ,  n' (( 6 : ,  ` 7?* 048(# V$,`,`.`,`.8#C`f(e *࢔,ʈ),*: 8*ϋ&x18࢖ʩ,(ʉ*  * n * 3# .Ce(d#(.ࢌ࢚( . `A I$I$BB@I@"I PT@)$BDB@@$! $   "@AP$PB@ $$I @* $ @@!BHD @ @$! B *   $$   " @@H P(.ࢌ࢚( . `A I$I$BB@I@"I PT@)$BDB@@$! $   "@AP$PB@ $$I @* $ @@!BHD @ @$! B *   $$  '5OVLY53  ^  >6,(2@8.*4  CMP$ST  hHPvv`XvvpDl48(# V$&z$(vĬࡦࡨ F Ĭࡪࡨ ' ʉ00ʉ22ʉ44ʉ66ʉ88 O 'ʉ00ʉ22ʉ44ʉ66ʉ88   O $(`B`BB>6,(@8.* ,2`0'ʉ00ʉ22ʉ44ʉ66ʉ88 O ' 02ʠ46 ` '02ʠ46 ` '"ʉ00ʉ22ʉ44ʉ66ʉ88 O 2  , 0>6,( ,2 ʠ0 2 0'  'X`<`<`< `<`<`< `.`>*`>&`>"0'  'X`>`>`> ` >`>`>6 @8.(B:0* ,2`0+*()> )0 ()0` > )> )0$0`  >)0& )> 0`>0 @.``">`Ј)>)>(  )>`>`>@8.( ``*F VU' ʉ0,0 X4 )HC)>)> 05 '6X`L`JiL0  )JL CLJiL0)>)>  `F)>)>`>P0L)>)>iL0 0L7`>3)>)>` F)> `> )>)> )>` >`.F `0F`2F`4F)F*)F0F<*80 01F8 .&F8J . 0ɤऴ   ud @8.(0 ,2  `>C2*̦̃,>. vR `@D*! !BD("$!@B(RH@?!? B! D!H@ " D@" DDDB!$DP$D@@ "DHB$HD$DDDD8 .&F8J . 0ɤऴ '6OVLY54  XJ6(FZL8*H2xx^HxxN:P< ȤȤ¤ ::^^ hDll48(# VÉ$$Ƀ6ɠ*ɠ(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O 6ɠ(' ((ʉ0  0ʉ22ʉ44ʉ66ʉ88 O )F)HViJNi6:ʩX(ʉ**ʉ,,  iLPi8<ʩZ(ʉ**ʉ,, )F"iZXiLJi64i86i*(i48iPNi<:`H0'` 'X 86c~`cb 88c~dcf0  ' F 'XÊi`d;ibf75Êi`d0ibf-+Êi`d&&ibf" Êi`dibfÊi`dibf  Êi`dibfC^o*^`*o,\o.\(ʩ\* vR`0 0ࡤ00iXTiZVi(,i*.i60i82)XiJLʩJ(   ) `T0,`X`:0' 9 'X`>`@/0`B'`B#`>`@/0`B`B`>`@/0`B`B)H 88c~dcf)d)f@O)XʩJ( ) )ZiJLʩL( ) `V2.`Z`<#(  TJ0,VL2. ,2`/0/0/0;/0 7X``#(XJ6(  /0`>`>*  `>C>o,\o.\ʩ>(ʩ\*]' ((ʉ0 0 X4 )hiJL`L#(TJ0,L ,2 #(   XN:(L ,2 *ʩB(ʯ,*/0ʠ(ʠ(ʯ.* vR`d #(J ,ʠ(ʩJ*ʩd, 0 ʩ8(ʉ** |v #(ࡰTJ0,8 ,2 * `BCBi>Ri@>iR@D*o,\o.\/0*/0  *ʉ(( wN ʩ>(ʩD*ʩ>(ʩ\* vR /0 /0  ʩ@(ʩ\* vR )HfX'2#(ࡰXN:(ZP<* ,21#(XN:( #ʠ(ʩN*ʩf, 0#(ࡰXN:(8 ,2 ʩB(ʩ\* vR DʩD  (  `h.( 'X,*`! BB@TD@H $"DH  )P" (H "  @'(ʩN*ʩf, 0#(ࡰXN:(8 ,2 ʩB(ʩ\* vR DʩD '7OVLY55   63>;@8,(4B:.*.<<<<DFFL$ITP  ަ  ާ PZl48(# V$, `.`2`< `2`<`.`(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O  `(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O )4 )6$,1i,.-)4`@8(ʩ,(ʉ** |v L)6 8.#~#``L` 8,c~NcP 8.c~RcTNFRWNP`R`TBVCXM  )V)X&$)V)XVÈ)VXÈ)V  XVCHo*H&`PR  RT`N`P)V)XV`X0'  'X*o,Jo.J(ʩJ*`J`B:*ʩ.(ʉ** |v ' ((ʉ00 X4 ' ((  ʉ00 X4 DF#sr  ((ʠ0 2 ɠ( ) ʠ( $,ʠ( ʠ( @#(2@8,( . `DL.B)B'`(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O )DL#(<  B:.* . 0' d 'X@)@'`(' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O #(<@8,( . 0'  ' X`>`>`> `>`>`>#(   `>C0*ʃ(ʯ,*ʩ>  (ʯ.* vR ` $I B@"$D@H@ @DD$$$@$!BD$!B@@ 66ʉ88 O #(<@8,( . 0'  ' X`>`>`> `>`>`>#(   `>C0*ʃ(ʯ,*ʩ> '8OVLY56   RH2,B <4RRLD ND.(>  &PF0*@JXSET$EQ SUB$ST §§اʩ(^l48(# V'"ʉ00ʉ22ʉ44ʉ66ʉ88 O B)2CT&0&0$T 8  ~$>T; 8~2' (6'( '6(0' 'Xɠ0 ɠ0ɠ0ɠ0TE' 02ʠ46 ` '02ʠ46 ` ɤ {X D ) B`Z2 0`~  )2`V`V' ʉ00ʉ22ʉ44ʉ66ʉ88 O >`ND.ɤ ud `4`L$\$X'ʉ00ʉ22ʉ44ʉ66ʉ88 O &0&0` @0ɤ ud `PFVND  .(PF0* ,2 &0in@*$d0  8~R00&0ɠ0&0ɠ0&0&0#iNZV  )2% ̡`ZZD.(  &0&0 4`Lɠ0&0 `4L`4`L`P@iFJ3  ɤ ~ @ 0J @)2PF0*J ,2 )2V$R$N' ʉ00 X4 )X D 0 1ɤࡤ ~ H . ND.(H ,2 NiHD.(N  D.(J D ERH2, ,2 &0&0 ʠ0 2 0'  'X`L `L`4`L`4*4,&0L. Ƨࡨ wN , vR &0}TO' 02ʠ46 ` '  02ʠ46 ` B 2 0RH2, ,2 ʠ0 2VND.(J ,2 *, vR . vR ,  `0B4 %  R&t $$0D( Y`,G2 gGI`  .G* GG0I`0G,GI`2G`5)*6U`8`: 0U`8`<U`8`>& &  Z )*),).)0  ` B:*(8 ?EOF$ EOLN$ &dFl48(# V*f,@f.@Ĭ  F ' ʉ00ʉ22ʉ4  4ʉ66ʉ88 O B:*( ,2 $* $ (0` . . (0`0.'0ʠ20 2 '  6 * `.C..@ vR `!B@@"" B E$@B@)" D!H@ D ! "DE@  BDDD@(R@H! AJBHP"$@ !@  $* $ (0` . . (0`0.'0ʠ20 2 '  6 * `.C..@ vR `!B@@"" B E$@B@)" D!H@ D ! "DE@ '9OVLY57  284:$#2 6<  8HHl48(# Vd*.Š.У B0' ((ʉ00ʉ22  ' ((ʉ00ʉ22  )2)4`,`,).).i46i:<k. Nʄ((ʠ  * F ʄ((ʠ* 2`8C>4`:B@i@BCBi8:i:<i8<B<C, B<BC6,`BC 9)<ʠ (ʩF*ʩ<, .  )<ʠ (ʠ* zV ʠ(ʠ*ʠ (ʠ* zV $( )F . ,*,,  )( (( 6 ʩ((ʩF*ʩB, ^ `8$Ĉ DH`B`B2&XoʩB(ʉ** n ): 4$ .De˭,ˠ0ˠ. $( )F.0..., ,2 Hʠ(*)Fʄ,.0ʮ02ʮ.4.,ʄ68 ɠ  fF 8  8$ę ɠɩF 8F$ɩBɥɥɥ H 8F`fFD.  SRD$ SLD$ <|(ìl48($ VD ࠆB4ʯB(ʠ*ʏ,, ~ (F ,ʯF( ) (  D .ʠ &(ʏ**ʏ,, Z /</84 $( /F . ʠ(*/Fʄ,.0`:   8F$Šɠ`<<8 $( & (    ,2 ` $(    ʠ(ʠ*ʠ, . ` =   &/F ( $( & (  /F ,2 $( /FF ,2 ʠ(ʯF*ʠ, . `: - & $( (  &DF` $( &/D/. /F ,2J &/F (D $( & (  /F ,2 & $(   ( F $( &/D/. F ,2 `< & $( (  $( &/D/.   ,2 <࠮(J/8 0/8/<ࠤ(J/< 0/< 2/0$0 N/2$0 O'  J ((ʠ0 2 ' $(  /F ,2 542 8F$Šɠ$ $(  /F ,2 $(  F `3TEMP OVFLOW - H248(# V|0.0~.80#C   % @`B.00~)(0~/~D!ʯ@(ʠF*ʠF,ʠV. t ʯ@(ʠB*ʯx, & ʯ@(  80#C`Bo|`B % )*@`Xi*)*@ 8*#C%`Bi0 i,),X 8*i(i0`B`j N|.  ìl48($ VDʎ(( L  8j$|%,Š),ɩ*ɩ(Š),ɩ(  ɩ(ɩ*&`zrh.( 'RX,*`(`0l ,@(C. ,.*M 8(*ģ*@(  ɤৄ {X  8(#$ 8 c,$ 8 c,`,*ˆ),*( ) `$A,$$D " h(`R @B,.CVTD$L CVTD$R fjfjjjjjRVì48($ VD !P /ʉ((ʉ**' (,  *'  'X`2`2`2ʩ2(ʉ** n )6 4  $ .ɥ8$ɠɮ(*' `j 'XoZF)($ ʃ(ʉ** n )6 4d 04 $(    ,2 ʠ(ʠ*ʩ4, 0 ' ((02ʠ46 ` $( )(4  %*%**`   $(   ,2 ʠ(ʠ*ʠ, 0 $(    ,2 *  )*D0`Hi*0`H  FDorTFT4 8ơ$|D1- +-'`:):):  : F:): `DF<D  ʩ<(4ʉ(( L  8R$|Šɠʆ((ʠ* F   ɠġ&#FʩR(ʉ** |v $( )> 1 $( )0)(  $(    ,2  ((ʠ02ʠ46 ` Z* $()*)  (   FZ $( )(2 #  `j' ((0ʠ2ʠ4ʠ6 ` ʩ((ʉ** ud ʩ*(ʉ** $( )@  ,2 $( )B   ((ʠ0ʠ2ʠ4ʠ6 ` %*   ((ʠ0 2    ' (( 6 `f*.0(, 2CVTF$D   CVTR$D CVTL$D >jHjN448(# Vʉ((ʉ** (,  *# #ʃ(ʉ** n 0 3# .Cd8#  C`f( !P /,'`H 'X' ((ʉ00ʉ22 T ' ((0ʠ2ʠ4ʠ6 ` #(( @ #(,  ((ʠ0ʠ2ʠ4ʠ6 ` #(* @ #(.   ((ʠ0 2 `#( ,2 0 3c 02ʠ(ʩ2*  ' ((02ʠ46 ` $,`(`(#((*  . ʩ.(ʩ**ʠ,  `2' ((0ʠ2ʠ4ʠ6 `  ((ʠ  0ʠ2ʠ4ʠ6 ` #(* @ #(. #(Z $, ((ʠ0 2`0ʉ((ʉ**' (,   ((ʠ02ʠ46 ` ' ((02ʠ46 ` i*(=#(  (*  i.,(i.,,`.ʃ(ʩ**ʠ,.02 .`,ʃ(ʩ**ʠ,  |(# #ʃ(ʉ** n 0 3c 02#( ,2 ʠ(ʩ2*  #((  i.,(i.,,`.ʃ(ʩ(*ʠ,.  02 .`,ʃ(ʩ(*ʠ,  #((*  ' (( 6   `h4ѩ* i0Fi+)2` FD$ITP ~D<( Z`v2G2J`x2`z2* GGG2,GG2460C8.C9   &t|  ʠ0 2 t t #X,,t #X00t ##0C` c2 Z )( )(V 2 `FD$ITP DV6`.i)/0*C2i-3࠺ʠ0 2 t #X࠾00  t ##0C` c. Z `2Z HJFD$ITP |DR^i(>Z`Z4`\4ZZ`^4``4Z`^4i?56i*E8i-9Z`:i>E<> `bN`dNF ILorXʉ(f(  L  9)ZO%|ŠhɠjLiX\M\:MD 9 O%|ÅhKn & Cn&;`lF)FniF I)F .%LF)Fp `lLL ʆ((ʠr* F   M  fdLiZDXrʩD(ʉ*t* |v ʠl(ʠl*ʉ,v, ~   J%(`xiJiH 1 iK=Z`n>`z>ࡄ ((ʠx0 2 ot %O> GY`0G0i>E\F\ot %O%0E`F Ie4 Z `fh4ѩ. i(Fi/)*`!  @B$ DA I$(  $H *$QB! H  $ @ ( HI *@TH   AA@DH I QB!T APH*$ AH!!$@$D@ @$I HR i(Fi/)*`!  @B$ DA I$(  $H *$QB! H ';OVLY59     PH2,B T 4NF0*@SETIN$ $TB V6<`22TT|Zì49/(N% V*o,J`4o.J`4X*X   )>  9).Ne.>> . o*4`&, LD.`L  L)RJ%(`iLiDi.i(` ,2 `Dʠ(ʩD*ʠ, .  )4`4`4' `~'" ((ʉ00ʉ22ʉ44ʉ66ʉ88 O &KBHf2  *4`4`f2f2 *)&49&N% VE-  *-' (ꩭi2 m 2m2& ʆ((ʠ* F & ʆ((* F &&&"f 4 8Ρ#~E  **`44`xB*)2&&. ơ.ʆ((ʆ**ʉ,,... `  vʆ((ʠ* F ʆ((ʠ* ' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O   > ʠ(ʠ*ʩ., 0J%(`iLiDi.i(` ,2 ' ((02ʠ46 ` B ʠ(ʠ*ʦ(, 0J%(`iPiHi2i,  ` ,2 ((ʠ0 2 ' (( 6 ' (( 6 '" (( 6Uʯ(( mB & 9&N%~   &. ai4E4`J%(` %&  &,9&Nʯ(( mBJ%(F`F`I` `   ' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O ' ((ʉ00 X4 ' (( 6 ' (( 6 )RiDT2)ViFT*`TiFTJ%(`iNiFi0i* J%(`iLiDi.i(iT ,2 iFTJ%(`iNi  Fi0i*iT ,2J%(`iLiDi.i(iT ,2ʠ(ʦ**  ʩ4(ʩJ* vR XʩX(  ` LD.(>R( l48(# Vʄ((ʠ* F ' ((ʏ00ʏ22ʏ44ʏ66ʏ88 O ' ((  ʏ00 X4 `@BDFH :J 86204LXV l,`PeRʩ*(ʠ* F *#$* ((ʉ00ʉ22ʉ44ʉ66ʉ88 O `N(#4c2)2 )@`@D22#(@  BDF  *,੬,੨``N)J*#!@* ((ʉ00 X4 ): iBJ)N)JJJI* (( 6 Pʠ(ʩN*ʉ,, ~ *#"( 8#D~̩̓J @#(ੲ@BDFJ ,2  (T੶7 ,TJ,RTC(")2 `<`2B>`<2C>`fLʩ((ʠ* F ( ((ʉ00ʉ22ʉ44ʉ66ʉ88 O ( (( 6 8 i6LʩL( )!ʠ(*ʉ,, ~ #(ੲ862  0L ,2 .'ʠ(ʩL*ʦ2, 0 ,ʠ(ʯ,*ʆ((  ʠ(ʦX* vR ʩL(ʠ*  `ʩ<(ʩJ*ʩ>, .  *,,P * (( 6 `N@  I@D!H D "D@!! ! A" A"B  @("D@ I*!   @@  ! @!$"@" $@"$ A$@ @ `ʩ<(ʩJ*ʩ>, .  *,,P * (( 6 `N@  I@D!H D "D@!! ! A" A"B '48(# Vɬɬ'  \ ɬɬ' \ (`*,`.,`.C66i*.i.8i*8  `68B868C0i82# ʉ** n 8 3 28 3c 04> !P & ,2 4 0 ' 02ʠ46 ` (0  i2**`2ʩ0*ʠ,.02  i2*  2`*ʩ0*ʠ,  i.2'02ʠ46 ` ,0`\0# ʉ** n 6 3c 04 ,2 4 0 '02ʠ46 ` ,0  i2..`2ʩ  0*ʠ,.02  i2.2`.ʩ0*ʠ,  0  0'  'X`<`<`< `<`<`<>g . 0'  'X`B `B`B`B%0%0`D`DBD zV )  D  .    ,2 `< `Z`4`4ZZ`4`4Z`4i?56i*E8i-9Z`:i>E<> `N`NF ILorXʉ(  ( L  9)ZO%|ŠɠLiX\M\:MD 9 O%|ÅKn & Cn&;`F)FiF I)F .%LF)F `LL ʆ((ʠ* F   M  fdLiZDXrʩD(ʉ** |v ʠ(ʠ*ʉ,  , ~ J%(`iJiH 1 iK=Z`>`> ((ʠ0 2 ot %O> GY`0G0i>E\F\ot %O%0E`F Ie4 Z `fh4ѩ. i(Fi/)*`H  @$"("@H"A E T """"""D  E$HD  I)H)@@H$@DH@DH@$@D H ot %O> GY`0G0i>E\F\ot %O%0E`F Ie4 Z `fh4ѩ. i(Fi/)*`H  @$"("@H"A E T """"""D '=OVLY61    <>( 26*,. CVTR$F CVTE$F 480CVTD$F hhh䖆@l48(# V,  C: !P &,'` 'X`(' (( &ʇ0 (ʇ2 ʇ4 ʇ6 *ʇ8 O ' (( ,ʇ0  X4  (( ʇ0 $ʇ2 l  "$,' (( ʇ0 "ʇ2 l  $,   $` "     * * ʄ((* H``0 0#((0ɬɬɤ UB #( & (  <>(   ,2 )0=ʠ &( (ʇ* ʇ,  ʩ<(ʉ**ʉ,, )<`<`(#( & (  <>( ,2 ' (( 6` ((ʉ00ʉ22 l `0)20#((0 & (  UB ' ((0ʠ2ʠ4  ʠ6 `  ((ʠ0ʠ2ʠ4ʠ6 ` ʩ2(ʉ** ud ʩ6(ʉ** #(( ,2 #(* $, ((ʠ0 2 `ʉ((ʉ**' (,   ((ʉ00ʉ  22 l )4`0`0#((0 & (  UB ' ((0ʠ2ʠ4ʠ6 ` ʩ2(ʉ** ud ʩ6(ʉ** ʩ4(ʉ** ʩ8(ʉ** #(( ,2 #(*  ((  ʠ0ʠ2ʠ4ʠ6 ` #(, ,2 #(. ((ʠ0 2 ' (( 6 :  `"h.( 'X,*`(0l ,@(C. ,.*  M 8(*ģ*@(ɤ& {X  8(#$( 8 c,$* 8 c,`,,*ˆ),,*( ) `Rb:ĞğL:nnF  : Rpì48($ VD "a $D<D8È   CH4`B`,8.( (( &ʇ0 (ʇ2 ʇ4 ʇ6 *ʇ8 O )( (( ,ʇ0 X4 i(l)l* '"X &H  (ʄ(ʉ* * 2 R`44ʠ (( ) `:)($ dT )( 8#| fT f  TfV V )TDVDTi<XiXXU)XTVLZ`\)X8Z8\CZD\j`XX)X  ,C8i\G9Z8i\HAZB\<\8TV8ZV8\CTDV4 )Z)\    |^\`Ti^)`  ^i^Ti`VT )T)V)Z)\  |T\VʩT(ʩV*ʠ, . )( )()j*/ 8j$|Š iVTVɩTɩV٠ !٠ %8 8)j`)(8#Cn)nC 'X`4;H  (ʄ(ʉ* *   2 R ,ʠ (( )  ,`4)(8#&ɠH/ *``)(8#)( (b`ffhʉ((ʩ** H ɩh`o4ʠ(ʠ*ʉ,,, ~ ` (F ,ʩF( ) )<)8. $( 0)F .x   &)F ( $( 2 & (  )F ,2 < 8Zʠ>(ʩF*ʩ8, . J  < A<> 9)<.ʠ4(ʩF*ʩ<, .  )<ʠ6(ʠ8* zV ʠ:(ʠ*ʠ6(ʠ* zV $( <)F . ,*,,)( (( 6  ʩ((ʩF*ʩB,  `8$Ĉ DH`B`8B2&8XoʩB(ʉ*@* n ): 4$ .De˭,ˠ80ˠB. $( 2)F.0..., ,2 Hʠ2(*)Fʄ,.0ʮ02ʮ.4.,ʄ68 ɠfF 8    8$ě8 ɠ8ɩF 8F$ɩBɥɥɥ H 8F`fFD.  SRD$ SLD$ f|(ìl48($ VD ࢰB4ʯB(ʠ*ʏ,, ~ (F ,ʯF( ) (D .ʠ &(ʏ*  *ʏ,,  /</84 $( /F . ʠ(*/Fʄ,.0`d   8F$Šɠ`f<8 $( & (    ,2 ` $(    ʠ(ʠ*ʠ, . `. = &/F ( $(   & (  /F ,2 $( /FF ,2 ʠ(ʯF*ʠ, . `d - & $( (  &DF` $( &/D/. /F ,2J &/F (D $( & (  /F ,2 & $( (   F $( &/D/. F ,2 `f & $( (  $( &/D/.   ,2 <(J/8 0/8/<(J/< 0/< 2/0$0 N/2$0 O'J ((ʠ0 2   ' $(  /F ,2 542 8F$Šɠ$ $(  /F ,2 $(  F `h4ѩ* i0Fi+)2`h4ѩ. i(Fi/)*`3TEMP OVFLOW - 248(  # V|0.0~.80#C % `.00~)(0~/~!ʯ@(ʠ*ʠ,ʠ. t ʯ@(ʠ*ʯx, & ʯ@(  80#C`o|` % )*`i*)* 8*#C%`i0 i,), 8*  i(i0``j |.ìl48($ VDʎ("( L  8j$|%,$Š&),(ɩ*ɩ(Š$),(ɩ(  ɩ(ɩ*&`$A,$$D " h(`OVLY62  J:,(>L<.*@F$MPY 2143 DT48(# V` 4` 8' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O ' ((ʉ00ʉ22ʉ44ʉ66ʉ88 O (B443i40  V`G`G( )  )4`0i4RER0 C0V`G`G)>  8,c~,>> #(, @#(J:,( ,2 )@ʩ.(ʉ** |v `L<*@ʩ.(ʉ** ud `L<*4  #(L<.* ,2#(L<.*  /t  4I'B ((ʠ0 2 V t #X(( t #X((t ##0C`i0 Z Vt ##0C`d2 Z )8`6`6#((6ɬ  ɬɤ UB `<)8 4)4`<#(<J:, ,2 )8$ʩJ(ʉ**ʉ,,  #(J:, ,2 ' (( 6 ' (( 6 `4.*(2 0,SLD$X D648(  # V ((ʉ00ʉ22ʉ44ʉ66ʉ88 O i.0i*,( ) #(4.*( ,2 ʩ4(ʉ**ʉ,,  #(40,( ,2 /t  ((ʠ0 2 t #X((t ##0  C` $C Z t ##0C`d2 Z  ((ʉ00ʉ22ʉ44ʉ66ʉ88 O i.0i*,ʩ4(ʉ**ʉ,,  4= 8.  80  80 $#(4.* ,2 ʩ4(ʉ*  *ʉ,,  #(4.* ,2 `К֚h.( 'X,*`0B4 %  R&t $$0D( Y`G2 gGI`G* GG0I`G,GI`G`)*U`` 0U``  U``& &  Z )*),).)0  `2 C$FTN 0EB|2ìl48($ VD 8~ (( !P  b %*  /t  ((ʠ0 2 /t $Y ( ('( ((ʠ024ʉ66 u /t $$0  ٠ɩ0 Z /t $$0٠ɭ8 Z   `2*,.0 |8ìl48(# V$*`R($'ɠ( ((ʉ00ʉ22ʉ44ʉ66ʉ88 O #((.ɬɬɤ UB 0*,  `̈..1ʠ(ʠ*, 0  ((ʠ02ʠ46 ` #(.  wK..3)*`*#((*,.0 ,2 (*,.....ۈ)*`*#((*,.0 ,2 $*<.C6  E6 8.ˆ$8#C` 8#C`/  $*$m(4)4ʩ4( +X `2.#FUNCTION RESULT OF FORTRAN ROUTINE 0WILL BE TRUNCATED FROM TO 4 WORDS |,ìl  48($ VD%*`% D(%, D.!.%,)($ $ʥ,(ʏ** { /../.Mʮ@(ʠ*ʠ,ʠ. t $(.@   ʮ@(ʠ*ʠ,ʠ. ʮ@(ʠ*ʯ., & ʮ@(ʠ*ʠ,ʠ. t ʮ@(  ./  .D*F*`ʆ( ) 21#6 4HJLND C$RFTN jE8TR$RFTN ~^|Vìl48(# V 8~ (*'* ((ʠH024ʉ6J6 u  !P 8d (m(P48(ψ# L<# VC%*N&`HR8%*P%,R   48ψ# RRʅ(T(ʩR* Fi(( 4 48(c v(iP(d (48(ψ# Lr$*J  /th  r ((ʠt0 2 t #8" BXv((t #y1t #22 Z t #c1t #82 d (48(ψ# L`>  # VC%*N`4%X`8c8`# VC%*NBB{ʠH(ʉ*V* n |~4 3# .ɯ~f88~#ɯ|ŠX& ɠH ɠH' ((ʉ0Z0ʉ2\2ʉ4^4ʉ6`6ʉ8b8 O #(dHJLNXf8   ,2 ' `Ho~e (`ʥ(ʉ*z*ʉ,|, %> 8ψ#X  (( 6 t #c18t "ȃ2 Z ' (( 6 e (`Pࡆ ((ʠt0 2   `H! BB$" D$ $RD%"@  "$D$"HR$! $@BA @ J P@ "HRP AA$! ! JI!BDDH D@ D@ )HD I$HD@ H" AH@  B@ (H )$`H! BB$" D$ $RD%"@ '@OVLY64   420.*lR6ìl 8#| 6# *m6(o*4E4ʍ(( *0 #4.600#(Ϭ3ϬϬ(ɤ  .*,.0ʠ(ʯ.*  o2'* 8#|CC4F4,   8Έ#|, 8Ήc~$ 8Ήc 8Ήc 8Ήc F2/``f420.*R2ìl 8#| t6# *n6(o*0E0ʎ(v( *0 #4.60x0#(Ϭz3xϬ|Ϭ~  (ɤ  . *,ʠ(ʯ.*  o.)*), 8#|CC0F0 8͈#|t 8  ~   F./ˠ<˩.>`fDER$T +- .6>0EQRZ\Nr*`Z.cb_2_`Z.ß*N2  S._R`f`dhZ*.ß*N2iR2(Rӯ NP =Nf)Nd&`ZXV`Tb (6 (>iR2Z`L`ψ)POh`d`f`ZR(Rӯ NP009-b".NFʉ((ʎ*ʉ,,   > '> (6`bViXVZ>iPT)X`T4)P)P0*2cRO*R/((*ɯɯ2ɧ \h Z$i\VRO2R`*iR2(Rӯ  R`Z`)6)8):)<hU`\6  ʉ(( P )  \i]6V98), ʩV0  *(j* * )6 6 !ʩV0  @jAlBnCp'j'( * 6)j6 V@), Vʏ0  *(j* * j 6 ij 6 #Vʏ0  @jAlBnCp'j'( * 6ij6 2é.Ǐh  *   6  6 ), )4)6)84'60Z`~$)(p0 xA xE)*),$)(p0 x      [TEN$ AABdD'G_^N#[NvO6Xz  <2`460 2y 'X`8: * 8 )4 4 h`8: * 8 )4 4 X`8`: * 8 )4 4 G`8`: * 8 )4 4 6`8`: * 8 )4 4 %`8`: * 8 )4 4 `8`: * 8 )4 4    0F020`i4(i6*`QC@(``FL$ERR 4.0,;*.H(&@F2`6.OI`8`:`6I``@I`B WT ʼn8͠Dʼn<ʼn>͠@͠F  ʼn8͠:͠6ʼn<ʼn>͠@ʼnH WT .F F4&4F.Oi2F   `ENC$T  h<`6i,>=U0:*`*i,)*D4D0&i40i,i0E:F:i(F`i(i0i36i0),`6i.i6`ιιιƙ zzzZZ[9)`     '  :*        r@=gg9Ha`Lg9H``Lg9H``ELg9H`F`L *)Lš' gEވ ވ  B`n*' Hѧ +LFb(@:z*-D C B A D @D ΀΁΂ƃ* @ [JC"CI@#8 h4  @  ACBCЙB#B DB  EB B FB GJ  Йp ЂC ց(@[( i F*GEBЃp֪ڪڪzF  8΄Z΄΄Ƅ*FaF@% Ё@pEG  @ABCԠ@ABC)  D @  A D B CЁ@Dƀʁʂʃ  @\ C B A D @[Ġj[FL$ITP (|ȍ,$ɂ6@ ABA MB @ @ j~Ӥ~"C @2B aA M 2 SSB RB  A?  A M @2A~',, A M@ |,@ A~[Q~[ |,4 Ɂ(Ɏ*ɦ6,6`N`D 2*明z*Ē"ގĖdlΖhpȕ̔zzzzzz((Yi4G  @AH&pAFB @  AЁ@ƀʁʂ kipF&?& &@FЁ@ B A C @ Ƃ@ABƁʂ    [( (i@E)тFpAЃpÁ8 (((((C())F)aFE$e  C Bpp   FGĠ C B"@AĠ  )(BCD B CDЄƂʃE@[9`9)G  (::*   7L=9a`9``G   ކ ކ*Gj2B AB BB @IUѥFa'@ +% ƀʁ @ [CD9)8*8)8ġ#CЙB#H F ȡ GHш(Ɔ  ʇ@[ιƙzZZ[TEN$D AABdD'G_^N#o[N[vO? Hpě~D2 (40 22`L 'X`<>@B  <)44 `<>@B  <)44 q`<`>@B   <)44 \`<`>@B  <)44 G`<`>`@B  <)44 1`<`>`@`B  <)44 `<`>`@`B  <)44   0F020`'4 ((``CFLOATING POINT ERROR -- r3ILL  EGAL INSTRUCTION\INSTRUCTION = ?1 ADDRESS = ?2s0DIVISION BY ZERO\INSTRUCTION = ?1 ADDRESS = ?2t(OVERFLOW\INSTRUCTION = ?1 ADDRESS = ?2uRELINK FOR EXTENDED PRECISIONv)UNDERFLOW\INSTRUCTION = ?1 ADDRESS = ?2`H $ @4@@  (@A$$H"@$@(@ABI$@  h*JP%(@i@ @ @@ @  @$@ $$ @ $ *BI$@  h*JP%(@i@ @ @@ @ 'AOVLY65  z T| 76PVVVVVR>ì49.(O% V*' M 'X&.E P"!oz(ʏ((ʠ* F Vozi(oooo | P }|49O% VE-*q o kʏ((ʠ* F Vo|`o  &,  9&Oe~,e.fE.E,i,i. &*` &&,  9&Oe~0e2fE2E0)0i2a-am E |ro8oi, i. o|^o % , ).o||Ai8),)  . U8i8Ui8o|*ox o!ox o49.(O% E-*-. o`  `fTVXZ\ d: .*  CCASE$J LN8|jìl48(# V$,Z 8c~A>B@ 8 c  ~BcDC@C>)@)> CDCB*fBBf  c ,diDh(<˯66Sn6Ո  UB C f V r  BFCHidXCVd`` G E<=  <˯6' ((ʉ0\0ʉ2^2ʉ4`4ʉ6b6ʉ8d8 O $,ZD\ ʠf(ʠh*ʩX, 0(FidHiHh(6ˮ6<˕6`~#(jTVXZh ,2 PRd*d ,`* 8c~PcR 8 c~`iP`RA2B  4A !A ʠl(*  2)4`pRPj`p4)2i4,)\rʠf(ʠh* 8Xʣ, 0ʠj(ʩT*ʩV,Xʃ.ʩZ02ʠh468 ,2 ʠh(Rʃ*  8(C^/ Ɩt # C^BD`>`@i^JCG/tz   ((ʠ0 2 t #X,,ʠ(ʠ*ʯ &,  `J˯88`(ʠ*ʯ &,  f``*:9)*t / Ɩt0)*r,ʎ(v(ʠx* F n:oo`z i* :*jB>jC@)>* NihdJId#h  / Ɩt=d  #h6ʎ(v(ʠx* F n:o`zhC Cd`hC CABBDB::id,o &b˯88 (`$ (`,8c `i>`@A6B8>@B:C<)6|:87ʉ((ʠx* F x Vi.n80.o &o  `zi:i< i8 8  & ʠ(*  n8E.  B>C@o &e  &i.0˕8` * *ʎ(( wN f&*#ʠh(*ʃ*  ji*,ji*d  i,d ʠ(ʮ** vR ** *`t`ʠ(ʠh*ʩ*, 0  ʠ(ʮ** vR `r` i,dʠ(ʠh*ʩ,, 0 ʩ`(ʮ** vR ʠh(*ʃ*  ʠ(ʠh*ʠ, .  /t  #(rhb . t #-)#(jhb ,2 t #-#( . `:ʉ(  (ʩJ* F ʉ((ʩJ* J  ViLNiNŮ8o & &ɯ & &`ɠ$,Z8c `iP`RB8c 8 ɂ (L ( *L8 *n8` o & &˕8`ʎ((ʠx* F x Vn8`zo` ʎ((ʩJ* F )  J Vn8`2 Co & & *88 *(* vR   *p**p' (( 6 / Poz˕( (z/ P`.02468 :ͩ(͠ F (ʉ00ʉ22ʉ44ʉ66ʉ88 O 6 .  *8(ʉ00 X4 )8,ũ0,ŠͶͩ, ~ 6 ͩ2i,͕ @ͩ͠.ͩ0ͩ2ͩ4i,͕ ,2 `? I  !D"@! H  $@$@"(I@  $@@HDA  $$A  DAD  !B@i,͕ @ͩ͠.ͩ0ͩ2ͩ4i,͕ ,2 `? I  !D"@! H  $@$@"(I@ 'BOVLY66  _p 2 IDT '   6 DXPSCL PSEG!(PDEF !|LIT$ !CSEG '!*BSS !4RORG !>BSS !FCEND !NEPILOGUE DISPLACEMENT !Z 0000 DATA !r LITERALS AREA !PSCL$$!DEF PSCL$$ !REF !PSCL$$!PSCL$$!LEND !+&'  b  ' (ʠ (  ^ʠ ( ʯ@(ʠ *ʠ , rR ʯ@(ʠ *ʠ ,ʠ . t $(/@ 4  /@' $(/@  j t $(/@  r ʯ@(  /@*ʯ@(  /@*ʯ@(ʠ *ʠ ,ʠ . t $(/@ 4    ʯ@(  /@*ʯ@(  ʯ@(ʠ *ʠ , rR ʯ@(ʠ!*ʠ!,ʠ!. t ʯ@(  P  '`! $( ! 4 ! ! ! ! -b i|i~i`! $( ! 4 ! ! ! ! !& (oTE?>xʠ!2  (  ʯ@(ʠ *ʠ , rR $(/@ 4 !V t ʯ@(  oo (`'rʩ( 1: )T 8š/ $ʠ!((  ʯ@(ʠ *ʠ , rR ʯ@(ʠ *ʠ ,ʠ!0. t ʯ@(ʠ *ʠ ,ʆ. /@'ʯ@(  Ezʯ@(ʠ *ʠ , rR ʯ@(ʠ *ʠ   ,ʆ. t ʯ@(  x  )z $ dx`'ʠ!2(  x`&ʩx( /`&i-!wmxmʠ!2(  mx6ʯ@(ʠ!<*ʠ ,ʠ!D. t  C /@/@+ʯ@(ʠ!2*ʭ,!ʩx( / ʯ@(ʠ *ʠ ,ʠ!:  . t ʯ@(ʠ!2*-a)xʄ, & ʯ@(  mxʩ( 1: ]`%ʯ@(ʠ *ʠ , rR ʯ@(ʠ *ʠ ,ʠ!L. t ʯ@(ʠ!2*&a)xʄ, & ʯ@(  ʠ!2(  ʯ@(ʠ *ʠ , rR ʯ@(ʠ *ʠ ,ʠ!T. t ʯ@(  `$"`!2ʯ@(ʠ!X*ʠ , rR ʯ  @(ʠ!*ʠ!,ʠ!p. t ʯ@(  ʠ!((  ʩx( / xʯ@(ʠ *ʠ ,ʠ!. t $(/@ 4 !V ʯ@(ʠ!*ʠ , rR ʯ@(ʠ!*ʠ!,ʠ!. t ʯ@(  /@*ʯ@(  ʠ!2(  $(/@ !4 !  t ʯ@(  1'| !   'ʠ!2(  ʯ@(ʠ *ʠ , rR ʯ@(ʠ *ʠ ,ʠ!. t ʯ@(  otEC8š$&!26 3ʠ!2(  ʯ@(ʠ *ʠ , rR ʯ@(ʠ *ʠ ,ʠ!. t ʯ@(ʠ *ʠ ,ʆ. ʯ@(  ʠ!2(  /@*ʯ@(  o &xonʠ!2(    ʯ@(ʠ *ʠ , rR $(/@ 4 ! t ʯ@(  %'| ! ʠ!2(  ʯ@(ʠ!*ʠ ,ʠ!. t ʯ@(  ) *ʠ!2(  ʯ@(ʠ *ʠ!, rR ʯ@(ʠ!*ʠ!(,)$ʄ. . ʯ@(   @. ʠ!2(  ʩx( / ʯ@(ʠ!*ʠ  !,ʠ!. t ʯ@(  ʠ!2(  ʯ@(  `~+6i02i0 U0i0d!`+*d0i20i0e44 &4 O`+,i4  i4(`COLUM$ ++h20fE(`ENX$T 0 -L+`+6i. ),+ U2  ,`-D8,=): D `+i%0)8  @8),i8*i*8  i8 I%<+)8i.)*DD25iE2ai8E).EFi(F`+8i(i)8  d=)86i  2).`+6i0i6`ENS$T  .(-Ph>`-Z6i.UTU2Q,NMi*,i,*i.)*D8D27i8E2ai,E8).E  =U0:*`.6*i,)*D4D0&i40i,i0E:F:i(F`.9i(i0i36i0),`.46i.i6`WRX$T 20/.4(f Oi(`. O)(  i(  AfE2&)*), . .). + )0.*    i(  `.0)0.i2Ʌ)()0  `(/*/@ &(ͯ@͠/͠/ʼn/ . ` DATA / Z'4STATIC NESTING LEVEL0 DATA > 0,LONGINT VALUE = 0B REAL VALUE = 0VREAL VALUE = 0h+ DATA 0z ' DATA  $-08 06 TEXT ' 0 BYTE > 0,>0TRACEBACK TEXT STRING 0 (TEXT '0DATA 0ADATA 0DATA L0' DATA L 1D 1z1z321z?R479<265>?R77 =6?j(Hìi(ʠ/(  ʥ( / `?R '1Xʥ( / ʯ@(ʠ/*ʠ/,ʠ0. t %/%0  %0 %0 /@'/@/@' ʯ@(ʠ/*ʥ, & %0ʯ@(ʠ0*ʠ0,ʠ0(. t `7ʥ( / ʯ@(ʠ0**ʠ0*,ʠ08. t $(/@ 0: 0< 0> . ʯ@(*ʯ@0 + *(*6`ʃ*ʠ0, rR ʯ@(ʠ0@*ʠ0@,ʠ0R. t  ʯ@(ʠ/*ʥ,ʥ. r`5Nʥ( / ʯ@(ʠ0**ʠ0*,ʠ08. t $(/@ 0: 0< 0> . % 6ʯ@(  ʠ/(  xʮx( / ʥ( ʯ@(ʠ0**ʠ0*,ʠ08. t $(/@ 0: 0< 0 . `7%ʔ( / ʯ@(ʠ0**ʠ0*,ʠ08. t $(/@ 0: 0<%   . % $ $DFFFʯ@(  ʠ/(  xʮx( /  %ʤ( ʯ@(ʠ0**ʠ0*,ʠ08. t ʯ@(ʠ0:*ʠ0<, %Dʄ. . ʥ( / ʯ@(ʠ0**ʠ0*,ʠ08. t $(/@ 0: 0< 0> . ʯ@(*ʯ@0 + *(*6`ʃ*ʠ0, rR  ʯ@(ʠ0T*ʠ0T,ʠ0d. t $(/@ 0T4 0f 0> s ʯ@(  ʠ/(  %ʄ( / ʥ( ʯ@(ʠ0**ʠ0*,ʠ08. t $(/@ 0: 0< 0 . 0:x`?^ʥ( / ʯ@(ʠ0**ʠ0*,ʠ08. t $(/@ 0: 0< 0> . ʯ@(*ʯ@0 + *(*6  `ʃ*ʠ0, rR ʯ@(ʠ0T*ʠ0T,ʠ0v. t $(/@ 0T4 0f 0> s ʠ0x(  9ʯ@(  xʮx( /  ʤ( ʯ@(ʠ0**ʠ0*,ʠ08. t ʯ@(ʠ0:*ʠ0<, $ʄ. . uʥ( / ʯ@(ʠ/*ʠ/,ʠ0. t  8/ $       /@/@+1ʯ@(ʠ/*ʥ, & $ʥ( / ʯ@(ʠ0*ʠ0,ʠ0. t ʯ@(ʠ/*%a%ʄ, & x`?^e)>0vʯ@(  ʠ/(  ʮx( / ʥ( ʯ@(ʠ/*ʠ0,ʠ0. t Z% D@@`?^)@0`0Bi@Bʯ@(ʠ0*  *ʠ0>,ʠ0. t ʯ@()Bʄ*ʠ0 , rR BxjiB@ʯ@(  ʠ/(  ʮx( / ʥ( )>0/@,ʯ@(ʠ/*ʥ, & x`=r%dDe FFFHʯ@(  ʠ/(  ʮx( / ʩD( / ʯ@(ʠ0**ʠ0*,ʠ1. t $(/@ 0:  0< 1 . x t ʯ@(  `< ?z . TP* ------------------?(------? LINE ?xDATA ?+DATA >? A$$D**BBBCrCCCxDDC~EEDNNNDTSSDEAT@EEF2(ì`?nF`?n`?n  ,*`?p(Pɠ?sS`?t`?v`?x`?t`?v`?x? (.? (:C G  '@"XcNQ.ʠ?n(  ʯ@(ʠ?*ʠ?r, rR /@L#(@??? . ʯ@(  cN xBRcA  BB D `EDʯ(ʩ*ʩ,ʉ.?. t B BHH)H?nxRH ##CU`?X?@ `?n`E#x &ʠ?(  ʯ@(ʠ?*ʠ?, rR ʯ@(  iPCeP`  ?#(ɬ??ɬ?ɬ??? -b `?#(ɬ??ɬ?ɬ??? `?r#(ɬ??ɬ?ɬ??? #(ɬ??nɬ?ɬ??  #(ɬ??nɬ?ɬ???r .>p Fm Lj`?#(ɬ???ɬ?ɬ??Τ? +   `?#(ɬ???ɬ?ɬ?? `?p#(ɬ??ɬ?ɬ??? -b #(ɬ??nɬ?ɬ??  ,*T O6TH # 8cʠ " ƠУ   ɠ(S(#(ɬ??nɬ?ɬ??? .>   ʠ?( Qlʥ(ʠ?* Q Hh Rd`?#(ɬ???ɬ?ɬ??Τ? + `?#(ɬ???ɬ?ɬ??Ϥ? `?p#(ɬ??ɬ?ɬ??? -b #(ɬ???ɬ?ɬ??Ϥ? +  U& H`A X  ˓`@  ʠ?(  ʯ@(ʠ?*ʠ?, rR ʯ@(  `<T.P x(RTWPFN+DATA FXGGGGGGGGGGGGGGGGGHHHDATA F,L\R4ìH &&F,*`H/,FF`I`KN/(F6ʠFB( Ql`LZ`F8.&(ŏF:͠F8ʼnF<ŏF>͠  F@͠FB .> &(ŏF:͠FD͠FFʼnF<ŏF>͠F@ŎFH + &(ŏF:͠F8ʼnF<ŏF>͠F@͠FB .> &(ŏF:͠FD͠FFʼnF<ŏF>͠F@ō +  G00p 'FX2m32 'F`X ]] `lZ `lW dT-FJ&(ŏF:ŠFDͶŏFLŏF>͠F@ŠFR -b:-FT   f3&(ŏF:ŠFVͶŏFLŏF>͠F@ŠF^ -b &(ŏF:͠F8ŏFLŏF>͠F@ͭ  g jD l`LZ/*F/,FF9ma*F8`F8.&(ŏF:͠F8ʼnF<ŏF>͠F@͠FB .> &(ŏF:͠FD͠FFʼnF<ŏF>͠F@ŎFH + &(ŏF:͠F8ʼn  F<ŏF>͠F@͠FB .> &(ŏF:͠FD͠FFʼnF<ŏF>͠F@ō + &(ŏF:ŠFVͶŏFLŏF>͠F@ŠF -b &(ŏF:͠F8ŏFLŏF>͠F@ͭ  /(F6ʠFB( Ql`LZFFF.`F8.&(ŏF:͠F8ʼnF<ŏF>͠F@͠FB .> &(ŏF:͠FD͠FFʼnF<ŏF>͠F@ŎFH +   &(ŏF:͠F8ʼnF<ŏF>͠F@͠FB .> &(ŏF:͠FD͠FFʼnF<ŏF>͠F@ō + &(ŏF:ŠFVͶŏFLŏF>͠F@ŠF -b &(ŏF:͠F8ŏFLŏF>͠F@ͭ  &(ŏF:͠F8ŏFLŏF>͠F@͠F .>`LZ`F8.&(ŏF:͠F8ʼnF<ŏF>͠F@͠FB .> &(ŏF:͠FD͠FF  ʼnF<ŏF>͠F@ŎFH + &(ŏF:͠F8ʼnF<ŏF>͠F@͠FB .> &(ŏF:͠FD͠FFʼnF<ŏF>͠F@ō + &(ŏF:ŠFVͶŏFLŏF>͠F@ŠF -b &(ŏF:͠F8ŏFLŏF>͠F@ͭ  `fT(P x'DATA Lx+>L+>LNR*ìn/H $$/(L`     ˃ `N/(.S(`Lb( $( Ld Lb Lf Lh Lj Ll .> $( Ld Ln Lp Lf Lh Lj Lr + $( Ld Lb Lf Lh Lj Ll .> $( Ld Ln Lp Lf Lh Lj + $( Ld Lb Lf Lh Lj Lt .> $(   Ld Lv4 Lf Lh Lj L~ -b   ˃  /(.S( $( Ld Lp4 Lf Lh Lj L -b $( Ld Ln Lp Lf Lh Lj +5 $( Ld Lp4 Lf Lh Lj L -b $( Ld Ln Lp Lf Lh Lj + ʦ(ʠLt* Q `  fT.P x---- O (DATA OR$CAS1 OR$CAS2 O(QZR2ìl,m/H $$/(Np`N. $( N N N N N O .> $( N O O N N N O + $( N N N N N O .> $( N O4 N N N   O -b $( N O4 O N N O O O O`N,/`N*8)*  )*O $( N N O N N .> *,*`N*`N( 8*)(!   $( N N O N N .> (8' O&   N,8' O0 O,`fT(PQ.&H $$D Q^ Q` Qb Qd Qf%  %)( Q `0(TPR2f  `Q.٩+`Q0OF`Q `Q.٩+`Q0OF`Q`Q`QI`QF`Q`QI`Q + `Q,  9).i,F%!  OF`Q`QF`QF`Q`QD .> ,&`T,P x*(DATA LR-$RL-$RT.&H ##Cʥ0 +2 (C(`xC*/(R`TT`R,"(ďR̠RĉRďR̠R̠R .> #(ϬRRRɬRϬRRƤR +  #(ϬRRɬRϬRRR .> #(ϬRRRɬRϬRRɤR + #(ϬRRϬRϬRRR -b #(ϬRRRϬRϬRRɤR + #(ϬRRϬRϬRRR -bK#(ϬRRϬRϬRRR .> #(ϬRRR  ϬRϬRRɤR + #(ϬRRϬRϬRRR -b ʩ*(ʠR* Q `PT   UW@R(ìl/H $$D/T`W,%ʯ(  $(.@ T4 T t ʮ@( /ʄ(  % *x  P TS/T`W/  0 ʮ@(ʠT*ʠT, rR $(.@ T4 T t ʮ@(  UUUx/ ʮ@(ʠT*ʠT, rR $(.@ T4 U t ʮ@(  UU U x/U. ʮ@(ʠT*ʠT, rR $(.@  T4 U t ʮ@(  UUUxTU(U (.U (:,/*,`fx 046WJ. B @LWV Wf0( JMP L Wv JLT L W JGT L WJEQ JL JLE JH JHE JLT JGT JNE JOC JNC \\\6\^\\\\\\\J  \r\\\\ * LX]4l%CQ`xBɂL!ʠWP(  /@ #(@WFWDŤWH . /@ xCC `ZfL(GG22 'WXx`xBɂJnkjJɃLC(`Wq(Wʠ  WP(  /@ #(@WFWDŤWH . /@ #(@WFWDɤWr . ʯ@(ʠWt*ʠWt,ʠW. t ʯ@(ʠWF*ʠWD,#ʃ. . ʯ@(  x`]c0.`ZʠWD(  /@ #(@WFWDŤWH . ʯ@(ʠWF*ʠWF,ʠWN. t  #(@WPWDɤWR . ʯ@(ʠWT*ʠWT,ʠWb. t ʯ@(ʠWF*ʠWD,#ʃ. . ʯ@(  ʯ@(ʠWd*ʠWd,ʠWl. t #(@WFWDɤWn . /@'ʯ@(  `WFx`]ɦLJC%fL(`W(a#(@WFWDɤWr . ʯ@(ʠWt*ʠWt,  ʠW.$fL(`W(<#(@WFWDɤWr . ʯ@(ʠWt*ʠWt,ʠW. t ʯ@(ʠWF*ʠWD,#ʃ. . ʯ@(  ʠWP(  JC(`W(/@ #(@WFWDŤWH . /@ x+`W(`W*`W,Y`W(`W*`W,O`W(`W*`W,E  `W(`W*`W,;`W(`W*`W,1`W(`W*`W,'`W(`W*`W,`W(`W*`W,`W(`W*`W, `W(`W*`W,N#(@WFWDɤWr . ʯ@(ʠW*ʠW, rR #(@WFɤX t ʯ@(ʠWD*ʠWD,ʠX. ʯ@(ʠWF*ʠWD,#ʃ. .  ʯ@(  `SRA SRL SLA SRC ^^ ^.^<T(P ,R_*lH ##(d)(% "' ']X`](`]*`](`]*`](`]* `](`]*( t Ƭ]]Ƭ]Ƭ]]Ť] -b Ƭ]]Ƭ]Ƭ]]] .> Cʃ  *,ʅ.]. o Ơ(]S( Ơ(]S(Ƭ]]Ƭ]Ƭ]]   `BINDDIVSMPYSBLWPB CLR NEG INV INC INCTDEC DECTBL SWPBSETOABS CRI CDI NEGRNEGDCRE CDE CER CED XIT DATAaaaaaaaabbbbbbaAR CIR SR MR DR LR STR AD CID SD MD   DD LD STD ```bbbbbbbb``b`aaaa*a8aFaTabapa~bbbbbbbbbbbbbbbbbbb b b.b(ɠ_@*oɠ_B(ɠ_D*oɠ_F(ɠ_H*zɠ_J(ɠ_L*sɠ_N(ɠ_P*Sɠ_R(ɠ_T*Sɠ_V(ɠ_X*^ɠ_Z(ɠ_\*Wɠ_^(ɠ_`*7ɠ_b(ɠ_d*7ɠ_f(ɠ_h*Bɠ_j(ɠ_l*;ɠ_n(ɠ_p*ɠ_r(ɠ_t*ɠ_v(ɠ_x*&ɠ_z(ɠ_|*ɠ_~(ɠ_*zɠ_(ɠ_*s'  f '_Xɠ_(ɠ_*aɠ_(ɠ_*Zɠ_(ɠ_*Sɠ_(ɠ_*Lɠ_(ɠ_*Eɠ_(ɠ_*>ɠ_(ɠ_*7ɠ_(ɠ_*0ɠ_(ɠ_*)ɠ_(ɠ_*"ɠ_(ɠ_*ɠ_(ɠ_*ɠ_(ɠ_* ɠ_(ɠ_*ɠ_(ɠ_*Ŭ`V`XŬ`ZŬ`\`^Ƥ`Z -b Ŭ`V``Ŭ`ZŬ`\  `^`b .> '( `d  c0( Cʃ*,ʆ.`f. oŬ`V``Ŭ`ZŬ`\`^  `cT(PSTWP c,LI AI ANDIORI CI ddddd DATA ce*lH ## S c`e&ƬccƬc  ccc -b Cʃ*,ʅ.c. o`eɠcɠc WG(('& 'cX`c(`c*`c(`c*`c(`c* `c(`c*`c(`c*ƬccƬcƬccŤc -b ƬccƬcƬccc .> Cʃ*,ʅ.c. o Ƭc  cƬcƬccc .>&ƬccƬcƬccc -b ƬccƬcƬcc  `T(PMOVA e,g*lƬeeƬeƬeee -b HH ##`e(ƬeeeɬeƬee +  Cʃ  *,ʅ.e. o h @Ơ,e-ƬeeƬeƬeee .>  C  c ʃ* ʃ,ʅ.e. o `JMP JLT JLE JEQ JHE JGT JNE JNC JOC JNO JL JH JOP SBO SBZ TB ggghhh h.h`g>(`g@*7`gB(`gD*0`gF(`gH*)`gJ(`gL*"`gN(`gP*`gR(`gT*`gV(`gX* `gZ(`g\** t  ;  Ƭg~gƬgƬggŤg -b Ƭg~gƬgƬggg .> Ƭg~gƬgƬggФSƬg~gƬgƬggŤg -b Ƭg~gƬgƬggg  C(Ƭg~gƬgƬggg .> Ƭg~gƬgƬgg(    `COC CZC XOR XOP LDCRSTCRMPY DIV jjjjjjjjT(P ,. j  Cʃ*,ʅ.j6. o h @Ƭj8j2Ŭj6Ƭj.j:Ƭj(j2Ƭj,Ƭj.j0j6 .>  j> c ʃ* ʃ,ʅ.j6. o*h @Ƭj8j2Ŭj6Ƭj.j:Ƭj(j2Ƭ  j,Ƭj.j0 b   `SZC SZCBS SB C 0 -T JPINCREMENT lv BY FOURlCB A AB MOV MOVBSOC SOCBmmm*m8mFnnn n.n  Cʃ*,ʅ.l. o h @Ơ,l-ƬlllƬlƬlrltl .>  C  c ʃ* ʃ,ʅ.l. o `: ()@ .*+TPq2i.  `ob),odT)(od`qh*2OF`ot`obi.F`oh`oj`ol .> Oi*`ojuF`oti. q OF`ot`obi.F`oh`oj`on .> OF`o|`obF`olF`oh`o~`op .> `q)(odL*2OF`of`obi.F`oh`oj`ol .> Oi*`ojuF`ofi. q OF`of`obi.F`oh`oj`on   .> 00Fi0%-  `oq-Fi0`os.i.-  (OF`ot`obi.F`oh`oj`ov .> Oi*`ojuF`oti. q )(oxJOF`ot`obi.F`oh`oj7(OF`o|`obF`olF`oh`o~`ov .> Oi*`o~uF`o|F`ol q )(oxOF`o|`obF`olF`oh  `o~`oz .> `Rr<2Oi.`qi0F`qi*`q .> Oi.`qi0F`qi*i(  `WRC$T rr@.)(ʌ(,rLʠrJ*  *,   -`ʠrJ*  WRL$T 20sr4(f   Oi(`r O)(  i(  AfE2&)* r r),). ur )0r*  i(  `r0)0ri2Ʌ)()0  `WRR$T 42ts6(f Oi(`s W)(  i(  IfE4&  )*),). s s)0 v )2s2)2s*  i(  `s2)2si4Ʌ)()2  `CHK$L tt(ʾ(ʭ* 2 `READ$REL0uVt4(f.i.2Ofi2i*i,f I`t  )0t٠tɠt٠t  0Oi(`tOi(`t  `ENL$T  - vuZl`uddi,U0`vd2Ef88 )2)4 uf uh f <\D%08 : )2)4 uf uh \ |2\4)2)4f 8i8 I`uj:i*8i8*i,)*D6D  03i6E0ai8E6),EjFji(F`um86i(i6)8  d;)8i0),`ubdi.id`ENR$T  -0. E+*{v"`vé010^4-).v).&%).v`v`v`v*i*é.Né0^i M4  `{).v )6Xhé6 (`vZ`v' (ʉ(v(ʉ*v*ʉ,v, { ,é c,Néc.Nijiʉ(v(ʉ*v*ʩ, |R ʉ(v(ʉ*v*ʠv, | `v`v,)v  `zé0^i M O `{é(۠v`v é ˠv6`vé NN`vé,NQ   é ˠv6 )vÉn é ˍ6é ˠv6)é ˠv6,é   ˠv6)),)v",Én é ˍ6),é ˠv6),,`{Né ˠv6é ˠv6Én é ˍ6é ˠv6éNN O )vÉn é ˍ6é ˠv6é   ˠv6 é ˠv6 é ˠv6) )  Ç.0i IsN6)  È.0i IsN8éN*Né0^ici Mé0M O é(۠v`v؊ié(i Iۭ7éi0Né0`vé2ǩ`~CRID  E$ |@{NF )(  &.G~@}i*~),`~RNDDE$ ||DNJB8)(C~)*P@%i,".~G~}N~~^i@}i(~)*`~ENCFR$ }|NJB.)(G~©*i,D  @ ~ހE~~)D  ©B`~ 6}p ~ }~.}}H[ E }~.}}H[2$ ~ @b ̀ @Ā[BBA~[ aB&~ G!QA}pH[~'G8L[ B  6W<'}pH[ 8#'CG ~~H[#c A @CW A[p[ d'j$P.0GET$RLRE V~4(٠~ɩ*ɩ, ɩ.ɩ0(  f )2 3E0i  2`$A,$$D " h(`a` d(l b  a '(z'('( b   &`1 `  a  b &`'( `  a '( b &a ` `a`6GTNAME AZ$09_ b a d(l b %a%a%a '(`6ɠä&a&% ` %a%a%a%a%a݈%  aو&a& aGTNONBLA bb d(&b ` `6GTCARD *COPYb (Pdb*ì/`dr d bb a '( 4 '( 4;'z( 40'z ((0ʉ2b2 F~ ((9i(F 6  ((' ('( 4 '( 4.ʠb( G &(ͮŠbͶŏb  ʮ( v &(ͮ@ŠbͶŏb  ʮ@( v' ((' (0 e / dʯ(ʏ*b* S '* b 4`c`POPFILE  ***  MODULE =d $ed*ìTʮ(ʠd*ʠd,ʠd.  ʮ(ʠd*ʠd,(9o(ʆ. ʮ( v ʮ@(ʠd*ʠd,ʠd.  ʮ@(ʠd*ʠd,(9o(ʆ. ʮ@( v ʠd( I ʏ(d(  o( m (ʏ(d( @ (`PUSHFILE  "<INFILE eP:fe<o8ʏ(e(ʠe* v ʠe( I ï˩8 ï' ʏ(e(e (*2ʠe4  ʏ(e(ʉ*e*, T ʏ(e('( (*'0 (2 T ʯ( U ʏ0e0 Ul ê(ʠe( G `WRIT  EPROINFILE fP,* ,| *** MODULE =g .knfUʉ(f(g (*2ʠg4  `g', (* `g ,ʯ(ʉ*g *ʯ, SJ (9i(F 6( ((' (0 e  b ѩ* Bѩ* b0ѩ+   Eѩ+ e$ѩ, Gѩ, gѩ- Iѩ- i ѩ. N ѩ. nʯ(ʉ*g *ʯ, SJ )`g ʠg( I [`g$m  (9i&$H(9i&$H@ (9if""ʯ(ʏ*g*ʯ, SJ ʩ  ( g4 ʯ(ʏ*g*ʯ, SJ k-$H@ʯ(ʏ*g**ʯ, SJ `jMN٥ʯ(ʉ*g *ʯ, SJ  b ʯ(ʉ*g *ʯ, SJ ѩ* Eѩ* eѩ+ Nѩ+ nѩ, Dѩ, d)hʯ(ʠg*ʠg,ʠg$.   ʯ(ʠg&*ʠg(,(9i(ʆ. ʯ( v ʯ@(ʠg*ʠg,ʠg$.  ʯ@(ʠg&*ʠg(,(9i(ʆ. ʯ@( v ʠg(( Gg-ʯ(ʏ*g.*ʯ, SJ d ʍ(ʠg(*   (9i(f"((9i(&$H (9i(&$H@(`glʉ(  f(  `UCONSTRUCCOMPFILEk(*)CPTEMP k *USE PROCESS #k *SPLIT OBJECT k*COLLECT OBJECT k*EXIT knrkv*ï(9n &$H[k$.$H`nrʯ(k (* / ʏ(k(ʉ*k*, T ʯ( -n ʏ0k0 Ul j(ʠk(  I '<( kkʮ (ʠk* _. kkʯ(ʏ*k*ʯ, SJ ʮ ( g4 ʏ(k(  ʯ (k (* / ʏ(k(ʉ*k*, T ʯ ( -n ʏ0k0 Ul j(ʠk( I ʯ (ʠk*ʠk,ʠk.  ʯ ( v 0ʏ(k( >  ʯ( I ʯ ( v .$Hʯ (ʠk*ʠk,ʠk.  ʯ ( v .$Hʯ (ʠk*ʠk,ʠk.  ʯ ( v ʯ (ʠk*ʠk,ʠk.  ʯ ( v ʏ(k(  `$INITIALIIF nNO nTO nADD nALL nCAT nUSE nEDIT nEXIT   nLIST nMOVE nNONE nTHEN nALPHA oBUILD o CHECK oSPLIT o ALTOBJ o*DELETE o4MASTER o>OBJECT oHOBJLIB oRSETLIB o\SOURCE ofCHANGED opCOMPILE ozCOLLECT oDEFAULT oDISPLAY oLIBRARY oLISTDOC oPROCESS oSETFLAG oLISTORDEo, BEGIN (*$NULLBODY *)oEND  (* @@@@@@@@ *); o(*+ *)-??* DXPSCLCP 1.8.0 83.357 TI 990 COp"NFIGURATION PROCESSOR @@@@@@@@ @@@@@@@@pL,@(xzP4I`Junv d~n(n(n("n(*n(2n(:n(Bn(Jn  (Rn(Zn(bn(jo(ro (zo(o(o((o2(o<(oF(oP(oZ(od(on(ox(o(o(o(o(  o(o( o(o(o( o . P o;'<( '<( '<(, o( p( ɠp,ɠp.٠p r٠p s',(| ٠p~'<(ɠpɠpɠp  $'(Ip'('(   3D, Rpp(* p p T  -n ʆ0p0 Ul p  I pJ (( pt (P Ƨpv u `pxx pz p|4 p~ p   p pv # Ƨp v `px pz p|4 p~ p p p # &@ p4 pz  @ v & p4 pz   v  p p T ` U ʆ0p0 Ul p I ɠpɠp.ʆ0p0 " ɟ6Ĉ&6p ʆ0p0 Ʉ2 V  ɠp4   Jt  K `6DATE$  d/vTu8I!.A,`u*/*.. ʯ@(ʠ}@*ʠ}B,ʠ}N. ʯ@( v ʯ@(ʠ},*ʠ},,ʠ}d.  ʯ@  (ʠ},*ʠ}f,ʠ}|. ʯ@(ʠ},*ʠ}f,ʠ}|. ʯ@(ʠ},*ʠ}f,ʠ}|. }~}~ʦ (ʠ}~*ʏ,}, N^ ʯ@( v ʯ@( ʯ@(ʠ}*ʠ},ʠ}.  ʯ@(ʠ}*ʠ},ʠ}. } ((ʏ0}0 0|  o(U)M( oM /@pʏ(}( @ ʯ  @( v ʯ@(ʠ}*ʠ},ʠ}.  ʯ@(ʠ}*ʠ},ʠ}. } ((ʏ0}0 0|  o(U)M( oM /@pʏ(}( @ ʯ@( v ʯ@(ʠ}*ʠ},ʠ}.  ʯ@(ʠ}*ʠ},ʠ}. } ((ʏ0}0 0|  o(U)M( oM  /@pʏ(}( @ ʯ@( v ʯ@(ʠ}*ʠ},ʠ}.  ʯ@(ʠ}*ʠ},ʠ}. } ((ʏ0}0 0|  o(U)M( oM /@pʏ(}( @ ʯ@( v ʯ@(ʠ}*ʠ},ʠ}.  ʯ@(ʠ}*ʠ},ʠ}. } ((ʏ0}0 0|   o(U)M( oM /@pʏ(}( @ ʯ@( v ʯ@(ʠ}*ʠ},ʠ}.  ʯ@(ʠ}*ʠ},ʠ}. } ((ʏ0}0 0|  o(U)M( oM /@pʏ(}( @ ʯ@( v ʯ@(  o"(M(Xʯ@(ʠ}*ʠ},M 5o(ʅ.    ʯ@(ʠ}*ʠ},ʠ}. M 5o( ((ʏ0}0 0| o*U+N* oN /@pʯ@( v ʏ(}( @ o&E(M(tP9 o*( 4dʯ@( v ʯ@(ʠ}*ʠ},ʠ}.  ʯ@(ʠ}*M% ʅ,  ʯ@(ʠ}*ʠ},ʠ}.   ʯ@(ʠ}*ʠ},P9 o*ʅ. ʯ@( v ʯ@(ʠ}*ʠ},P9 o*%ʅ.  ʯ@( v &$H  ʦ ( zz Y}$&$Hʯ@( h ʦ ( w  Y}$`$ >*l ` >*) i"é$`6DEV$TYPER2i0f$ f% a`f% E(`  8PAGE$ P V d*i( v (O)(T```b Y i( v `6  4HHRD@D D4Q$@ "( $%4$HI $$F$@DHB@PBA$@ $$    $@A  @@A IB!$ $$$I I$!B!B!B!B!B(PB (PB (PB (PB "@ @ I"@ ! @JBJ) %("BB!I@@B QH@@(4@H$!!A H!@P" (@A(  h% $(@" (IHP(! @   "4$H@H$$ BAI !$I !$I !$I !$I !$I !$A$D$$@A$@  H@A"@ ! @JBJ) %("BB!I@@B QH@@(4@H$!!A H!@P" (@A(  h% $(@" (IHP(! @  'ROVLY82 _A~ DECD$X  09AF__4(V.0*.f E2)2_.0 F2&F0.*.f E2)2_ )2_")2_$)2_&)2_ ؈)2_"0 F2&(ũ.,ũ0`8ADDSON  /:TMP$$$ _*(9?,c_ d(l 0 mɠ_  fdɠ_ɠ_ (8''( 4'ʆ0_0   Y _' ( 4 ' (  (  _ _ P &_$'0ʆ2_2 F~ ɠ_k`c'( 4]ɦ  (8( 4& >ɦ(8' (8'  `ɠ`(8' M0 2((('(_ (0 " (Ƨ_ @ *Ƨ` Ƨ`   @ '(_ (0  {`ax  '( 4'ʆ0_0   Y _' ( 4 ' ( '(  _ _G?I `( _ _ P &`  Jt  0 `  a6`6BUILDPRO(*6ec d( 0 Ƨc @ (Ƨc @ *Ƨc @ Ƨc&$ 4ʄ* v (ɠcɠcO&('&('(&('(&('(&('( ɠc"& $ɄƧc(8ʃ* v    Ƨc @ ɠc]&' &'(( f' ( 40'( 4Y`c`c'ʆ0c0   Y`cG' ( `c`c&`6COLLECTO?* . = e8-mle4(8(   ʤ ( e $$H`mDC?`g$ʏ(e(C? 3( (*' (2 T ʏ(e(ʉ*e*, T ʯ( U ʏ0e0 Ul (@' (,`e2`e3ʏ(e(C? 3( (*', (2 T ʏ(e(ʉ*e*, T  ʯ( U ʏ0e0 Ul (`ixe`mDI e e' (ʏ(e(C? 3( (*' (2 T ʏ(e(ʉ*e*, T ʯ( U ʏ0e0 Ul (@' (,`e2`e3ʏ(e(C? 3( (*', (2 T ʏ(  e(ʉ*e*, T ʯ( U ʏ0e0 Ul (8I e eʏ(e(C? 3( (*' (2 T ʏ(e(ʉ*e*, T ʯ( U ʏ0e0 Ul (Q' (,`e2`e3ʏ(e(C? 3( (*', (2 T ʏ(e  (ʉ*e*, T ʯ( U ʏ0e0 Ul (ʠe( I ʯ@(ʠe*ʠe,ʄ.  ʯ@(ʠe*ʠe,ʠe. ʯ@(ʠe*ʠe,C? 3(ʃ. /@,p#(@eĤe  /@>pʯ(ʠe*ʠe,ʄ.  ʯ(ʠe*ʠe,ʠe. ʯ(ʠe*ʠe,  C? 3(ʃ. /,p#(eĤe  />pʯ(ʏ*e* S $%H{qĠУ Ϡc Bcʯ@( v ʯ( ʯ@(ʠe*ʠe,ʄ.  ʯ@(ʠe*ʠe,ʠe. ʯ(ʠe*ʠe,ʄ. ʯ(ʠe*ʠe,ʠe. ϠУ /@p  /pʯ@( v ʯ( e`mD!/`lʯ(ʏ*e*ʯ, SJ ʯ(ʏ*e* S ĠУ Ϡc BĠУ  ϠУ  ʯ@( v ʯ( ʯ@(ʠe*ʠe,ʄ.  ʯ@(ʠe*ʠe,ʠe. ʯ(ʠe*ʠe,ʄ. ʯ(  ʠe*ʠe,ʠe. `kϠУ /@p/pʯ(ʏ*e*ʯ, SJ #(@eϤe  ʯ@( v #(eϤe  ʯ( v ʏ(e(  (8(c"(`e`6EDITNODE*+-JI 09,6*@omp dOi,F`mz T   , U . -n ʩ.0 Ul _m| I `m~4&mɠm Jt &m),`oO),TI`m S O).TI`mT SJ  Jt &m&m0&m&m 9)0f%E0 Jt &m#i40`o),}O),TI`m S O).TI`mT SJ 4   Jt &m&m2&m&m 9)2f%E2 Jt i40),O),TI`m S O).TI`mT SJ 4ߊi42),O),TI`m S 4O).TF`mT SJ ɠm Jt &m fA -ɠm&m&m`m.  , `6  ENTERFLA"1*P63(*IrRo d2 P '(".). 4'( 4.).oɠpi* p p v *Wɠp&*|**&P8*&*( 4*ꉩ*&`**&P8*&*( 4*ꉩ*&D&&&p  ɠp zɧpP8&ʄ* v (ɠpg&&DD0E0P8*ġ)( &&D*Ƨp @ ɩ(*P8*&*'< P8*&*' P &pP8*&*'ɠp)*$ ʄ* u `p,P8*&*),& Jt   ,&p),p`6IFFLAG 4 sLsls\stsdsDsTs|/@0 ttttttt?urV d, P ɠr`'( 4 P '("*i* 5F'( 4`t^*ɠr`:ɠrb6  ɠr^2ɠrd.ɠrf*ɠrh&ɠrj"̉&P9&̡f*( 4ꉦ&Qf% Ʌ P '(r 4Gfɥ ɠr` P ɠr`'( 4 P '("*i* 5F'( 49*rrɠrl.*rnr'  0ʆ2r2 F~ ɠr~ P '(r 4ɠrl*ɠr`6ɠrb2ɠr^.ɠrd*ɠrf&ɠrh"̉&P9&̡f*( 4ꉦ&f% Ʌ P '(2 4ɠr`ɠr'( 4ɠr Offf v  `6SETFLAG uu d6)*uɦOi(`uF`u N^ `6(9)(fe$,e&.i* 4 E,, R(9)(fi,$i.&fe$,e&.i* 4 E$,  ,, Rfi,$i.&(9)(fe ((Oi(  i* u (9)(fe"(SETIFFLAxbv d<(8(&D* 2C"$  &}), 3D,$ R),vI"i(.(8.& v$(8.&d.(8.& v$.%f0f2f4ɠvɠvɠv)( v4 v ɩ0  ɩ2ɩ4), 3D#$  ,$ R (8(&d (()()*), v (8(&d"(`6SPLITOBJ@? = x8 -~\xf4(8( ʤ ( x $$H@$$H`~DY xp$C?I xr  xt' (ʯ@(ʠxv*ʠxv,ʄ.  ʯ@(ʠxt*ʠxt,ʠx|. ʯ@(ʠxv*ʠxv,C? 3(ʃ. /@,p#(@xvĤx~  /@>pʯ(ʠxv*ʠxv,ʄ.  ʯ(ʠxt*ʠxt,ʠx|. ʯ(ʠxv*ʠxv,C? 3(ʃ. /,p#(xvĤ  x~  />p/ʠx( I ʯ(ʏ*x* S $%H 0`x*`xn*z`|ĠУ *Šc Bgʯ@( v ʯ( ʯ@(ʠx*ʠxv,ʄ.  ʯ@(ʠxt*ʠxt,ʠx. ʯ(ʠx*ʠxv,ʄ. ʯ(ʠxt*ʠxt,ʠx.   *ƠУ /@p/pʯ@( v ʯ( ʠx( I`~B`z|ĠУ *Šc BĠУ  `z*ŠУ  ʯ@( v ʯ( ʯ@(ʠx*ʠxv,ʄ.  ʯ@(ʠxt*ʠxt,ʠx. ʯ(ʠx*ʠxv,ʄ. ʯ(ʠxt*ʠxt,ʠx. *Ơ  У /@p/pʯ@( v ʯ( ʠx( I`~Bʏ(x(C? 3( (*' (2 T ʯ( -n ʏ0x0 Ul (1' (,`x2`x3ʏ(x(C? 3( (*', (2 T ʯ( -n ʏ0x0 Ul (ʠx( I  ʯ(ʏ*x*ʯ, SJ /ʠx( I ʯ(ʏ*x* S  :#(@xϤx  ʯ@( v #(xϤx  ʯ( v ʯ(ʏ*x*ʯ, SJ ʏ(x(  (8(c"(`x`6USEPR (*VERSION1~rH6VERSIO~".   *?',1"&"~`Uʏ(~j( @ (ʏ(~l( @ *ʏ(~n( @ '< (6 `~p0)()(V,G4 )0)550)(ʔ( Vt '6 ~z 4& $(/@ ~|4 ~~  ʯ@( v '6 ~ 4~4~0  )>   )? 0`~p`~.ʉ(~(ʉ*~~*ʏ,~, _, //~`ʏ(~j((8ʄ* v `oE)(`(8š/' ( )(``~p0)()(V,G4 )0)550)(ʔ( Vt '6    ɠ#A  #M ٠~٠~٠~٠~`~.ʉ(~(ʉ*~~*ʉ,~, _, * Y~`~.ʉ(~(ʉ*~~*ʉ,~, *G?I~`~.ʉ(~(ʉ*~~*ʉ,~, ɩ*`~.ʉ(~(ʉ*~~*ʉ,~, ɩ*`~.ʉ(~(ʉ*  ~~*ʉ,~, ɩ*`~.ʉ(~(ʉ*~~*ʉ,~, ɩ* `~~.ʉ(~(ʉ*~~*ʉ,~, ɩ*"E8$;D.ʉ(~(ʉ*~~*ʉ,~, _, 4#ÃDN 3D* ,$ R)*D*`F`~p0)()(V,  G4 )0)550)(ʔ( Vt `~.ʉ(~(ʉ*~~*ʏ,~, _, ʏ(~l(/$ 4ʄ* v (`/('o"E6)(``~p0)()(V,G4 )0)550)(ʔ( Vt  4/('6?b)([`~p0)()(  V,G4 )0)550)(ʔ( Vt `~.ʉ(~(ʉ*~~*ʏ,~, _, &&ʏ(~n(P8&ʄ* v *~~/&DE)()~!ʏ(~j( @ (ʏ(~l( @ *ʏ(~n( @ `U'< (6 `~p0)()(V,  G4 )0)550)(ʔ( Vt P8š/*'6 USEPROCE8INFILE X  dZɧ (*ʠ2ʠ4  8'( (*'0 (2 T Oi8I` T 8 U ʩ80  _' `6`78'( (*'0 (2   T 8 U ʩ80  _ɠ ɧ ~ 8  ɧ  `6DISPATCHBD/,C# ` ?ZŒZ"hΈZ@Zl·bȉ:ȇv6`Z 'X `S P o(' ( ` P '(   4 c5b  j+ (` <  P '( 4 P ' ((ʏ00 x'( 4" P '(j 4<' ((ʏ00  +x/o' (( vʯ(  ʯ( H   P /| Jt  P ' ((0ʏ22 F~ `R }`q rm P o(' (> ^ P '(z 4T'( 4tp P o(' (  P o(' (V p  4 P  /ʯ`( Vt ʏ(( ~ 4 0 -'( 4 ' ( 4' ((' (0  ``'( 4r`(' ((0ʏ22 F~ `R'( 4' ((ʏ00    (9o衯G?I' ( 4 (9o衯' (9o衯( P /  Jt  0 v 0 p'( 4' ((ʏ00  (9o衯Æ [' ( 4( ' (  P  /" Jt  P ' ((0ʏ22 F~ ʯ( G  K /(`$/*`HENTERLIB7 d2f" e I f" 5f('((i0`i0 4&( (( 4i0f"ɕ"`6GETFULLN<,> d  ( P  P '('('(  P &&1 Jt  P  P &('( Jt  P '(  P &* Jt ɠ*`6LINKIN 9 d0(9)*fi((9)(fe ,i* g(9)*f(8,&   4 (9)(fi* Ai,.(9).fe",(9),f(8*& 4(9),f(8*& 4 I (9).fi*"(9)*fi,"`6LINKOUT .(9)(fe,(8,&d *i*(%" i*,(9),fe"*i*((  8(&d""(9)(f"`8THRDIN ,2 d.(8*ʩ(0ʉ22 F~ ,ɠ"(8 C 4i* 4i* I `6THRDOUT *N6 d0(8(&d ,,(8,&d"., H i.,(8  (&0ʉ2@2 F~ i*(B I (8 &De( e(B I (8(&D%  %  (8(&' `6CATCMD B5pR d( P '( 4ɠ\l 0 f&' (   4,'( 4'ʆ0`0   Y ^' (   ' ( 4ɠbɠd0f 3(' (0 " `6COLCMD OBJECT ~(/?,t d* P '( 4`  (* /   T  -n ʆ00 Ul  If k  e Ƨ  fɠ%'0ʆ22 F~ ɠK P '(2 4ɠ '( 4+&  u  P &⒚ Jt  P '(2 4  & ɠɠ`6FLGCMD /? U, d. P '(2 4 f ɠCɠ%'0ʆ2 2 F~ ɠ"( P '(2 4ɠ '( 4Ȕ(4ɠ$`6Of u Of`   ɦ(9&fɥ(9&f`&$.f(f*f,ɠɠɠOf`u v ɩ(ɩ*ɩ,Off u  P &6 Jt `FEDITCMD )*A`@ dH 0 x'( 4'0ʆ22 F~   e'( 4 ' ( 4ɠ=' ((' (0 P '(" 4  0 '( 4 ' ( 4ɠs' (8' `|(8&D`$' ( 4)'( 4'  ʆ00   Y`G' ( % 4&( ((' (0 P '(" 4K 0 '( 4ɠ`' ( 4)'( 4'ʆ00   Y`G' ( % 4&( (8  ' (@Ƨ'( (*'0 (2 T Ƨ'8 (*'@ (2 T      m `6MOVCMD (/A*2, d. P '0ʉ2 2 F~ (( P '(" 4ɠ$ P '0ʉ2  2 F~ *ɠ i*,i,(ɠ`6(9),fe,(  Oi*i(   P & Jt SPLITCMDOBJECT ( /?, d2 P '( 47 (* /    T  U ʆ00 Ul Jf i   x Ƨ  <`#0`#1'*( 4` (* /    T  U ʆ00 Ul ɠ[' (*`#0`#1'*(2 4 & `ɠ 7'0ʆ2&2 F~ ' (*`#0`#1'*  0ʆ2&2 F~ ɠ(` P '(2 4' (*`#0`#1'*(2 4ɠ$&'( 4' (*`#0`#1'*( 4/& , u  P &.! Jt  P '(2 4`B& `ɠ$  ɠ*`6CATPROCE8OUTFILE X&Ɲ dZɧ  (*ʠ2ʠ 4  ɧ '( (*'0 (2 T OI` I` T 8 -n ʉ0 0 Ul _ɠɧ  > ɧ   `6SETLIB  *(2ĝ d P '( 4   GQ Ơ#(`1` )(  ) D( P &&  )&2 Jt ) D2   `6;;H  \̏\ʌ(ʇ*  > \STATU$ 20f(`8CSLAB$ 0,.  ;" d@`*,ʼn,͠.ʼn0ʼn2͠4ͩ( * ʼn,͠.ʼn0ʼn2͠4͠6  ʼn,͠.ʼn0ʼn2͠4ͩ* * ,F F0&0F,O`8F  `6ENC$T  <`6i,>=U0:*`*i,)*D4D0&i40i,i0E:F:i(  F`i(i0i36i0),`6i.i6`84 @ RD  @(P(@A @ h@  @$M@@ (BB@!BH)H@B) (BBA!BH A B HBB H@HA$ $ $ I!( "   A D @"DA ( D"AЀ@@  !@$`I$@HDDD@ $@CA@ @4R@  hBB HBB HD$ I!!$H%@PB@!$I @ @HB  "D! D BBB!@!B!@! (AHB@@ @A@  $(A@4) B@P$@RHH D@$D $A$$HA@$  @ $A  @ I @( h h H @    h@ D )@ "$$((A@"H 4 @A  H H$H @ $ @@@PR4 A  A   BB$$EH ! @ A RHR@R$F$@@P (J@BRU J I  h H @  '[OVLY91 0$ INITIALIOBJECT CRI CDI NEGRNEGDCRE CDE CER CED XIT AR AD CIR CID SR SD MR MD DR DD LR LD STR STD SZC A SZCBAB S MOV SB MOVBC SOC CB SOCBJMP JOC JLT JNO JLE JL JEQ JH JHE JOP JGT SBO JNE SBZ JNC TB LDCRSTCRSRA SLA SRL SRC ~(ʯ`( (* F  ʯ`( H   68    :<RT>@VXBD Z"\$F&H(^*`,J.L0b2d4N6P8f:h<j>l@BDnFpHJLrNtPRTvVxXZ\z^|`bd~fh  jlnprtvxz|~ @ `~INIT2 BLWPDEC B DECTX BL CLR SWPBNEG SETOINV ABS INC LDS INCTLDD LI STWPAI STSTANDILWPIORI LIMICI RTWPCOC CZC XOR XOP MPY DIV BINDDIVSMPYSCS  SEQBMOVSSRAMSLAMINSFXV XF MOVA!Zh(ɠɠɠɠɠɠɠɠɠɠɠɠɠɠɠɠɠɠɠɠ ɠɠɠ"ɠ$ɠɠɠ&ɠ(ɠ ɠ ɠ*ɠ,ɠ.ɠ0ɠBɠDɠ2ɠ4ɠFɠHɠ  6ɠ8ɠJɠLɠ:ɠ<ɠNɠPɠ>ɠ@ɠ^ɠ`ɠbɠdɠfɠhɠjɠlɠnɠpɠzɠ|ɠ~ɠ ɠ ɠɠɠɠɠɠɠɠɠɠ ɠ"ɠ$ɠ&ɠ(ɠ*ɠ,ɠ.ɠ0ɠ2ɠ4ɠ6ɠ8ɠ:`   |12! |1`a2! ? ?mCD[-mqp00A #0 'J)#ȂG"(09(H E`!  #` m@  @ p@ bA@AI#Zmqm  #0"FEmGHmr#0899@DDE    ba [[BCEEF[A#~I1܀ ܱ@[>K-+09A/*m  `#ѱ * ##@m  @"  *@* **@  #* #EF HIm  4##)## # +М+   88GB # b@B@ABE F ABI@0$.( :61 %%%$%&%' `p܀4 ܴ1 `CܱC@./*(ځ/  /jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`&l=`&nF%00څڅj ʁ* J!B &C&&A&1܀ ܱ@[j Y *   H  v 8 8 @Œ[(''@jY* *  ђ ' 6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ   r[m* "ròAC*(x* ā*/ *p *xJ!ʁp*v)() (jd )(I`@*v*pʪhj)) ) (@)) @ڻb*zʐnʪpf/`*a ;   K/r[\.B)X`!^.B)``!`!.B)l )t`!)d.B) )t`"n.B) )t`".) )`#)d)))).b) )`#.B) )`$Z.B) )`%(*x*X*|*\.B) *`%* .S$FTLF00.)+.B*6 *@ `&x*x*|.6.B*P *@`&`&    *@`&.B*j *r`'( .6`(`(.* *`($****f.6.b* *`(|.B* *`(.B* *`)`:`SYSTEMp      `* )*CREAT$ .>0/.:* * . HT  )* H ߡD6,.   .)6  .). HT ),a0^),T  D2 )2,)0D"i($(`.*,i0.D006C2)0)(0i0)6DD8F8 )0$D),&/D2c&),`-  0 / ʀ(  GET$PARM8..4* 01 0D"8Ԡ0$ʂ(  bAAI!>"BĠ00 )hؠ03ؠ03"02ؠ03""`0)4`0 0, *2 ɠ0.  )), 0* `0)4`0*0, *2 ɠ0. )), 0*  `~INIT$ SYSMSG 1. 1:.FL* EXECUTION BEGINS1J,31$Nʇ(16 (*ʠ182ʠ184 =h  G(  08 ʠ1<(ʠ1,*  1?~`1@FHJʉ(1B(  )G)H  ʉ(1D(* HT ʉ(1F(/ʏ*  *j`1H*  *ïN*ʎ( < ʠ(ʠ*ʩ(, . ( 18ʉ(1D(ʩL* HT (6ß|" H OO*Ï^*1d (, ** (,ʉ(1f(ʠ1h*   H  H `~TERM$ NORMAL TERMINATION3>,*2e(9-:./)0144 4T4\4x4  4444CBPD@STACK USED = HEAP USED = 3t"& 383(`7)(d:% 3)(< C0Ф= B20 `50 '3PX3$ʠ3&*  `6`5B`3,)23()2$ $`3*6 3, 34 3.Z`366m)238)2$ )2$)2  $2D6X2)23<`3>6M`3@6I2`3:6B)23<`3B6:`3D66`3F622`3H6+`3J6'`3L6`3 3, 34 3N 30 32 34 , `3> $>De 6i6`3d`3fB 3h%%% H iB)3j`3jB )BC  )BB  $CD0`6)3ji 3l) `3j)$Dɬ3l3j   3n) &H 5$@D4H3@   3p) 3l t @   3p) 3n t @  )03r)2 D ' (D iB&H &$@  D430 )( 3 . ( .  H )4I 3@ RECORD LENGTH)?  1 NOT OPENED FOR WRITING-*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3.*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3/*?1 ACCESS NAME ?2\READ ERROR - STATUS = ?30+?1 ACCESS NAME ?2\WRITE ERROR - STATUS = ?39C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICT:C?1 ACCE  SS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICTC MEMORY PARITY ILLEGAL OPCODE ILLEGAL TILINE ADDRESSILLEGAL SUPERVISOR CALLADDRESSING ERRORPRIVILEGED INSTRUCTION TASK KILLEDTASK ERROR #?1STACK OVERFLOW HALT CALLED HEAP FULL DIVIDE BY Z  ERO&INVALID PACKET POINTER'INVALID LENGTH OF PACKET2CANNOT GET MEMORY3ERROR CODE = P4015ERROR CODE = P4038TCA ACCESS ERROR7"CASE" ALTERNATIVE ERROR\ STATEMENT ?1 ALTERNATIVE ?2*FILE ?1 LUNO #?2 NOT ASSIGNED1 CANNOT LOAD OVERLAY, STATUS = ?1CLOSE$ 0<=T<F i  ((ũ(2 gGI=^=`٠=ai4Ʌɩ4 '*(f EOI`=b`=`OI`=b E ɩ6`MAP$ O8$TIP.>>IF%'  F4e'i4 E`>8OI`>I`> G^ i8=`>OI`>I`> i   ' (8 i8 E60Eʅ*  i6؊F`i0IF%8)4>`>4`>4i4 E8`>9`>:`>;`>!<`>#=i4%E؊FIFe'=Ii4`7Ii4`8`>OI`>I`> G^ ii  j`>$4i4 Ei4؊F   IFe<i E40i4ʅ*  i4؊F`>i0IF%OPEN$ 0.,A@2i(% ( * (ɩ6`SCB$FREE,*EE.i(f,ɧE  i(U*ɧE  i(`SCB$INIT,&F.E2OI`E`E  F i,,i(i,E`SET$ACNM,FF22)(d *Г S B"e,ɧF<    *Г B. .ɬF<.  i,*0S1F0 *`SET$NAMEG F2(ʯ('* (* E> ``~ʠG(  ( *, *i(* *f *,i(* )WREOF$  GGt*i(% ,%   &% D٠G  &)( G   )(  `REST$T H@G*(Oi( @4 f E ( Dl ( L `HEAP$TERHHD.  (O,* i(F* [HN**``(INIT$1 @OUTPUT HHH(Ƨ  HH (*ʠH2ʠH4 =h @ D `P$CMSG IBH:g i- IF)(i*JII,!Ji2J `~MDCD   .[KB). G4/4  5@JJIi*JB[K@rF GHiDJL  FS)HPOJ )HPܠJJܴ)HiH G:É.<00χׇt?/:;!J GL)L6JJ)LLF ܶ)LܠJ@[E LFܵ[*** ERROR >?1 *** ?;\ @  I$I$I$I$I$I$I$I$I$I$I$I$I$I$  I ВI$I$I$I$I$I$I$I$I$I$I$@   @H$ BU @ X]u]u@ q.uD   %%@JJ P BI$ ؄AI A DH? JAQ $ $@!D H@@HP  H))!I@* !*$T @4!   JH $H$%@4AD$ HA $  A$@@@!HH D@@ H ! H (P h B"@B @44I HD @4!   JH $H$%@4AD$ HA $ '\OVLY92 r LOADMODU0 EXPECTED TAG 0, RECEIVED TAG  ABORT LOAD :,LB COMMON BLOCK NUMBER  WAS NOT FOUND: ABORT LOADING . COMMON BLOCK NUMBER : WAS NOT FOUND; TABORT LOADING fNJ* TERMINATE SEARCH  FOR ADDRESS 6) IN  STOP   SEARCH FOR ADDRESS ) IN HALT SEARCH FOR ADDRESS " EXPECTED TAG A,B,C,F,M,N,3,5,7 OR 8; RECEIVED (; :"&F"&F""&F&F&F&F&F&F&F&F 6&F&F&F&F&F&F&F&F r&F!V&F!|&F&F" HALT SEARCHERROR - SEE OUTPUT FILE *\ʏ((  /` G4  F)4)4%͈)4MHʏ(( +x /6/` G2ONi3i(ʯ@(ʠ*ʠ,ʠ. t /@4ʯ@(ʠ*ʠ,ʠ. t`!D,@D<//RTVX/` G4)49`&/` G2ON  i3s4'"`&F '>Xʉ(( +x RR]ʉ(( +x ʉ((ʩN* . Bʉ((ʩL*ʩ,, / Gʯ@(ʠ*ʠ,ʠ. t ʯ@(ʠ*ʩN, & ʯ@(ʠ*ʠ,ʠ. t ʯ@(ʠ*ʠ,ʠ*.`!,( * T, i<L`T  H),0T i<&/5i<`V`XV ),2Vi<Xi<),,X i<ʠ( * ` ʯ`( L`"ʉ(4( +x /` G2INi35ʉ((ʠ6*  éBǩ6˩8˩:˩. ˠ .ʉ(  4( +x iBi.@i@iB BiB@&( * ʉ(4( +x ʉ((ʩ.* . B ʩ,(ʩB* *. ,\ʯ@(ʠ8*ʠ8,ʠR. t ʯ@(ʠ*ʩ., & ʯ@(ʠ*ʠ,ʠd. t ʯ@(ʠ*ʠ,ʠt. J-(o@`,}O`. ʯ@(  `&ʉ(  ( +x ʉ(v( `R`ʉ(( +x ʉ(x( ʉ((ʩN* . BiJZNZ]ʉ((ʩL*ʩ,, / ,ʯ@(ʠ*ʠ,ʠ. t ʯ@(ʠ*ʩN, & ʯ@(ʠ*ʠ,ʠ. t ʯ@(ʠ*ʠ,ʠt. J-(o@`,}O`. ʯ@(  `  &(ʉ(4( +x  ,&ʉ(4( +x sʏ(z( +x ^/` G2ONi3ʉ(|( +x /` G2INi35ʉ((ʠ6*  éB ǩ6˩8˩:˩*@i@iB BiB@i<>H`&<`ʯ@(ʠ~  *ʠ~,ʠ. t ʯ@(ʠ*ʠ,ʠ. J-(o@`0`I`| L /@(J-(o@`2}I` t ʯ@(ʠ*ʠ,ʠ. J-(o@`,}O`.rm>`%ʯ@(ʠ*ʠ,ʠ. t ʯ@(ʠ*ʠ,ʠ. ʯ@(ʠ,*ʠ,,ʠ. J-(o@`0`I`| L   /@(J-(o@`2}I` t ʯ@(ʠ0*ʠ0,ʠ. /@ J-(o@`,}O`. tWʯ@(ʠ*ʠ,ʠ. t ʯ@(ʠ*ʠ,ʠ. J-(o@`0`I`| L /@(J-(o@`2}I` t ʯ@(ʠ*ʠ,ʠ. J-(o@`,}O`. ʯ@  (  `F`i>m*`$Bi>m*[`i>`ʩ*(ʩB* *. i>]**]>`#ʯ@(ʠ*ʠ,ʠ$. t ʯ@(ʠ&*ʠ&,ʠ8. /@4ʯ@(ʠ*ʠ,ʠ<. t ʯ@(ʠ*ʠ,ʠt. J-(o@`,}O`. ʯ@(  i(`F`*`o  BH`)`)i<>iBm*`(`)ʯ@(ʠ~*ʠ~,ʠ. t ʯ@(ʠ*ʠ,ʠ. J-(o@`0`I`| L /@(J-(o@`2}I` t ʯ@(ʠ*ʠ,ʠ. J-(o@`,}O`.rm>`(ʯ@(ʠ*ʠ,ʠ. t ʯ@(ʠ*ʠ,ʠ  . ʯ@(ʠ,*ʠ,,ʠ. J-(o@`0`I`| L /@(J-(o@`2}I` t ʯ@(ʠ0*ʠ0,ʠ. /@ J-(o@`,}O`. t`)[`i>`ʩ*(ʩB* *. i>]**u>`',i>m*`'i>m*ʯ@(ʠ*ʠ,ʠ. t ʯ  @(ʠ*ʠ,ʠ. J-(o@`0`I`| L /@(J-(o@`2}I` t ʯ@(ʠ*ʠ,ʠ. J-(o@`,}O`. ʯ@(  `FiBm BB`'i(`F ʠ(ʠ8*  `~ADDADDRE,**2OI`*&`*(  i,i*i,i(  i,%.f00 i0U(i0.e00i, i,i0.ɩ,i.i,`ADDMODUL, *+X*.lɬ**  ɧ* +x ),)*&,I *( G &<<<,i,ɩ,<`READHEX 09+AF+++\  4lH&` G0i1.&` G2i3/(.`&` G**,+f+r #*" #*" ,. ,ADDLOADR(,,2l&` G*ɠ++ɬ,,   )(),).)0ɩ(D(  i(D`GGGGG ?G?G  @[;;H  \̏\ʌ(ʇ*  -P \CSLAB$ 0,.;--4@`-<,ʼn->͠-@ʼn-Bʼn-D͠-Fͩ(  ʼn->͠-@ʼn-Bʼn-D͠-F͠-H . ʼn->͠-@ʼn-Bʼn  -D͠-Fͩ*  ,F F0&0F,O`-JF  `ENC$T  .-h<`.6i,>=U0:*`.*i,)*D4D0&i40i,i0E:F:i(F`.i(i0i36i0),`-6i.i6`FINDCOMB..h0f,,i,i,e*  i,e ,i(i,`INITCOMD20 .4(Vʼn/͠/  2ũ,2ɩ*2U.(Ve00 0V,i0.f00ʼn/͠/  2ũ,2ɩ*2*0V,ɩ*&ʼn/͠/  2ũ,2ɩ*2ɩ0.(Vi2  .ɩ2`  @ $@@ I $HD@ !D H@II HA$A H @$$H("H@ IPI($IPI$@BI H$DJ $@)@@"$IH("HT @ $@)@@" "IThE@-  @@@*@BRQH h * @@ I $HD@ !D H@II HA$A H @$$H("H@ IPI($IPI$@BI H$DJ $@)@@"$IH("HT @ $@)@@" "IThE@- ']OVLY93  FINDALLLaaN I-.o(i(EDé(n =^M,M=` f.,ʩ,(  n(^  ^ nM*Ѯ FM,F=` f.ʍ(  n((é(n =^M,M=` f.,ʩ,(`~GENERATE@a.h,  l(1(-f**')*d((  d*d( (C< (.`@ @  nM*Ѯ FM,F=` f.ʍ(  n((é(n =^M,M=` f.,ʩ,(`~GENERATE@a.h, '^OVLY94  DECODEIN IDT '  LC HEX CHAR PSEG  DEF  EQU $   DATA : "+ ( ..( EQU $-1:STANDARD EQUATESHRC$ EQU R11 \CR$ EQU R12 nCB$ EQU R13 SP$ EQU R14 LF$ EQU R15    REF  LOAD  LC WORD(S)PROLOG EQU $ EPILOG EQU $  EQU $,_0+ ` END#D/@*ʯ@(  ʯ@(ʠ*ʠ,ʠ. t J-(o@`}O` /@' ' " ONѭs /@ʯ@(  /@*ʯ@(  /  @* ' '9 ONѭs /@ʯ@(  /@*ʯ@(  ʏ((ʠ*   +H /@* ' ʯ@(ʠ*ʠ,ʠ. t ʯ@(  ʯ@(ʠ*ʠ,ʠ. t ʯ@(  Bʯ@(ʠ*ʠ,ʠ. t J-(o@`}O` ʯ@(    J-(o@`}O` t ʯ@(ʠ*ʠ,ʠ. ʯ@(  oo/@*ʯ@(  `!`"ï ʯ@(ʠ*ʠ,ʠ. /@DJ-(o@``N L ʯ@(ʠ*ʠ,ʠ. t ʯ@(ʠ*ʠ,ʠ. t ʮ(ʉ** ( :  (Z o86/@+ʯ@(ʠ*ʞ, &$n = /@L /@>/@Dʯ@(ʠ*ʠ,ʎ. L  ' J-(o@``N L ʯ@(ʠ *ʠ ,ʠ&. t ʯ@(ʠ*ʠ,ʎ. L n = ʯ@(ʠ*ʠ,ʠ,. ʯ@(ʠ*ʠ,ʠ2. t ^   M* _`4*/@*n M* _`4*/@*ʯ@(  n -/nM(/@D&(ͯ@͠͠ʼn6 L ʯ@(ʠ8*ʠ8,ʠD. t ʯ@(  `D/@* ' ʯ@(ʠF*ʠF,ʠX. t ʯ@(  ʯ@(ʠZ*ʠZ,ʠl. t   ʯ@(  ʯ@(ʠZ*ʠZ,ʠ~. t ʯ@(  ʯ@(ʠZ*ʠZ,ʠ. t ʯ@(  ʯ@(ʠZ*ʠZ,ʠ. t ʯ@(  ʯ@(ʠZ*ʠZ,ʠ. tʯ@(ʠ*ʠ,ʠ. t J-(o@`}O` ʯ@(  o44+i4 ʯ@(ʠ*ʠ,ʠ. t  J-(o@`}i4 ʯ@(  i4m 4o88&ʯ@(ʠ*ʠ,ʠ. t J-(o@`}i8 ʯ@(  i8m8/@* ' ʯ@(ʠ*ʠ,ʠ. t ʯ@(  ʯ@(ʠ*ʠ,ʠ. t ʯ@(  J-(o@`}O` t ʯ@(ʠ*ʠ,  ʠ. ʯ@(  ʯ@(ʠ8*ʠ8,ʠ$. t ʯ@(  `~om((ʯ@(ʠ*ʠ,ʠ. t ʯ@(  o2o+*/@LJ-(o@``I`6 L ʯ@(ʠ*ʠ,ʠ . t ʯ@(  ʯ@(ʠ*ʠ,ʠ. t ʉ(( ' ʠ  (  ʩ,(ʩ(*ʩ2,ʉ.. 0  ' J-(o@``I`6 L ʯ@(ʠ *ʠ ,ʠ&. t i0BNB7J-(o@``i2 L i2 6 ʯ@(ʠ*ʠ,ʠ. ʯ@(ʠ*ʠ,ʠ. t i2m2ʯ@(  ʠ( & ʠ ( &  Pom(o2ʯ@(ʠ*ʠ,ʠ. t ʉ(( ' ʩ,(ʩ(*ʩ2,ʉ.. 0 ʯ@(   ʠ( & o]0i0ʍ( & `#ʠ(   0`#DATADIRE DATA > & &'&,i(*E*K&@ &4 &   t &@ & && L  ' &@ & & L &@ &4 & t &@ & && L @  &ɤ`TAB ''(ʦ@0 ( D*&@ `GETWORD ''h*f)(ɥ`EXTERNAL(,'h,i* f  U(i*`'`fU(ɥPRINTREFFL$ITP(N((D.&d(( (T Ʉ)( C* &@`COLUM$ ((h20fE(`CHK$L )((ʾ(ʭ* )& `CSLAB$ 0,.;)) @`),ʼn)͠  )ʼn)ʼn)͠)ͩ(  ʼn)͠)ʼn)ʼn)͠)͠) ) ʼn)͠)ʼn)ʼn)͠)ͩ*  ,F F0&0F,O`) F  `ENC$T  *v)h<`)6i,>=U0:*`)*i,)*D4D0&i40i,i0E:F:i(F`)i(i0i36i  0),`)6i.i6`DATASEGS LC HEX CHAR* CSEG ' * BSS *0000* DATA > * * *. DATA > * BSS *( DATA > * CEND + CSEG ' + BSS +. DSEG +6+b*z*lf66`%656@  ++B t @  @* t @*+4 @*  & @  d 6%&@*@  @*+, t @* &@'&@* ' @** t @  @** t @* &@'@    <@* t @** @* &  ' @** t @  @** t@* t @** @** L  ' @** L @** t @** L @*  * t c@@ @ ]`*@A A ]`*A@ &@A &@@  S>c<<E `>C3@** t @* `>B &  ' @**>B(ɤ* L @  @++ t`+<`>  B4@** t @*A &  ' @**>B(ɤ* L @  @*+  t @**< L  ' @**< L @** t @**< L @** t `.< $!@  B $@ @ BIIH I@E (HA$I !! (I$ $ @ RIPI IH A$I "I AA@I $)A$ $$IJ $$ $ HH$H AD   AD 4D4@  BRU J I @DJD@ " $ PH(PPA( P@$%% (HA$I !! (I$ $ @ RIPI IH A$I "I AA@I $)A$ $$IJ $$ $ HH$H AD '_OVLY95 0T%  FINDINSTDATA 0b0(+DATA 0x30T(4é.Ǡ0^é,n n =Iʯ@(ʠ0`*ʠ0`,ʠ0h. t ʩ*(ʉ*0j* ( 0 (Zvé,n = ( /@L /@>/@DÊ.(ϯ@Ϡ0lϠ0nlj0p L]é( é( N  ʩ((ʩ.* 6Hө(  ө(   ʩ*(ʩ(* :,Mé( é(   ʩ((ʩ.* DFNé(  é(   ʩ((ʩ.* :Rө(  ө(  ʩ(( =]é( né(  ʩ*(ʩ(*ʩ., >\é( é(  ʩ*(ʩ(*ʩ., >Hé( é( ^é( ^ ʩ((ʩ.* AWé(   é(   é(  ʩ((ʩ.* DFoé( Né( N ʩ((ʩ.* F<é( n8"é( n0é(  é(Né(  ʩ((ʩ.* 4.gé( Né( N ʩ((ʩ.* JR)(0r )(0t ʩ((ʩ.* O(A)(0v ʩ((ʩ.* Q4ʯ@(ʠ0`*ʠ0`,ʠ0~. t ʩ  *(ʉ*0j* ( 0 (Z/@>Ê.(ϯ@Ϡ0lϠ0nlj0p L `&@DOf@`4 `4I`  4 L ."Of@`4u`4  t Of@`4i. & &@)0 ( `FORM1 *R6X*R6\08(R6d667^7**R6p(R6t8898:6J:i( E.&@ 6R4 %F%* t &@ i( E6)(DD46`8X '6hX&@R Of@`6Vu`6Z t O  f@`6Ti4 & `8dOf@`6Vu`6^ t Of@`6Ti4 & &@+zi*`6Vf,ɧ6` ' &@@O),dI`6b ( 8 (Z 07&@+Of@`6Ti0 &&i,% 4 0 &@L &@>&@DOf@`6R`6VI`6` L 4"Of@`6Vu`6f t   Of@`6Ti4 & &@)6 ( &@,i( E E6)( d D26`: '6xX&@R Of@`6Vu`6r t Of@`6Ti2 & `:Of@`6Vu`6r t Of@`6Ti2 & &@+yi*f,ɧ6` ' &@@O),dI`6b ( 8 (Z  07&@+Of@`6Ti0 &&i,% 4 0 &@L &@>&@DOf@`6R`6VI`6` L 2"Of@`6Vu`6v t Of@`6Ti2 & &@)6 ( -`FORM2 .::2i* E,&@ :4 %F%* t &@ ),: i+   E0i(E.&@L&@ : :" :$ L Of@`:&)+D & `FORM4 *R:*R:.6(R:;\;j;;<:8i( E,&@ :4 %F%z t &@ i(EE2)( D44`< ':X&@R Of@`:u`: t Of@`:i2 &  `&@DOf@`:`:I`: L 2"Of@`:u`: t Of@`:i2   & &@)4 ( &@,Of@`:)( d D & `FORM5  R==<,i( E*&@ =4 %F% t Of@`=u`=  Of@`= )(DD & &@,Of@`= )( D & `FORM6 *R=*R=2:ALCPY$=ALLOC$=ASSRT$=CKTO  P$=PROB$ =O$FLOW=F$XREC=C$FTN =C$RFTN=(R>>>?6?A^=@)* dD.@= $$ t &@ ).= Ĉ&=ɄĈ&=ɄĈ&=ɄĈ&=Ʉ)*DD4* C66`AR '>X&@R &@ =4 = t &@ =)  4 & `A^&@ =4 = t &@ =)4 & &@+`AL), =f8ɧ= ' &@@)(D0ɤ= ( :)8 3`@2`@&@D`@ (Z ).=z&d E N  T $D< = + = #   =  = < =  = Ʉ = Ʉ = Ʉ = Ʉ).=3).>/).=+2(&@+&@ =)2 &&@L&@>&@ = = = L 4"&@ =4 > t &  @ =)4 & &@)6 ( *`FORM8  RApAv.2FL$ITPAFD$ITPACOMP$DACOMP$IACOMP$PAPREC$FAPREC$RAPREC$DADAb8f0)( TD,@Aj $$ t ),Al&@ An4 Ar &@ At(C & , Az`D&@,  )* AnɧA| ' 0# A~ ( 2)0 3`C.`C&@D`C (Z ),A{)(D t&d C H  K $D4 A ɠAtI A ɠAn= A  A  A 4ɠA   A  A  A ɠAj&+.(&@+&@ At). &&@L&@>&@ Aj An A| L `FORM9 *RD&*RD*.6(RD2DDE D,RD>FVD8i( E,&@ D 4 %F%B t &@ i(EE2)(   D44`F 'D6X&@R Of@`D$u`D( t Of@`D"i2 & `F&Of@`D$u`D, t Of@`D"i2 & &@+zi*`D$f0ɧD. ' &@@O)0dI`D0 ( 6 (Z .7&@+Of@`D"i. &&i0% 4 . &@L &@>  &@DOf@`D `D$I`D. L 2"Of@`D$u`D4 t Of@`D"i2 & &@)4 ( Of@`D$u`D@ t Of@`D")( d D & `FORM16 0*RFj*RFn8(RFvG:GHGGv*RF(RFHHINIJFZ@i*`Fdi( EE.&@ Fb4 %F% t &@   i(EE:ɧFf ' i0E> E6)>DD4> c C2> B<6`H 'FzX&@R Of@`Fdu`Fl t Of@`Fhi4 & `HOf@`Fdu`Fp t Of@`Fhi4 & &@+zi*`Frf,ɧFf ' &@@O),dI`Ft ( 8 (Z  07&@+Of@`Fhi0 &&i,% 4 0 &@L &@>&@DOf@`Fb`FdI`Ff L 4"Of@`Fdu`Fx t Of@`Fhi4 & &@)6 ( &@,i> E E66`JF 'FX&@R Of@`Fdu`F t Of@`Fhi2 &   `JROf@`Fdu`F t Of@`Fhi2 & &@+yi*f,ɧFf ' &@@O),dI`Ft ( 8 (Z 07&@+Of@`Fhi0 &&i,% 4 0 &@L &@>&@DOf@`Fb`FdI`Ff L 2"Of@`Fdu`F t Of@`Fhi2   & &@)6 ( 2&@,&@(Of@`Fhi< & &@,Of@`Fhi: & &@)`FORM12 0*RJ*RJ8(RJKKKK*RJ(RJM2M@MMnNJ@i*`Ji( EE.&@ J4 %F%r t &@ i(EE:ɧJ ' i0E> E  6)>DD4> c C2> B<6`L 'JX&@R Of@`Ju`J t Of@`Ji4 & `MOf@`Ju`J t Of@`Ji4 & &@+zi*`Jf,ɧJ ' &@@O),dI`J ( 8 (Z 07&@+Of@`Ji0 &&i,%   4 0 &@L &@>&@DOf@`J`JI`J L 4"Of@`Ju`J t Of@`Ji4 & &@)6 ( &@,i> E E66`N 'JX&@R Of@`Ju`J t Of@`Ji2 & `NOf@`Ju`J t Of@`Ji2   & &@+yi*f,ɧJ ' &@@O),dI`J ( 8 (Z 07&@+Of@`Ji0 &&i,% 4 0 &@L &@>&@DOf@`J`JI`J L 2"Of@`Ju`J t Of@`Ji2 & &@)6 ( 2&@,  < Of@`Ji< & &@,&@ROf@`Ji: & `FORM13 0*RO *RO6(ROOOP0OQvN>i*`Oi(.Of@`Ou). $$D t &@ ɧO ' i0E< E4)<DD2< C:< b B84`Q* 'OX&@R Of@  `Ou`O t Of@`O i2 & `Q6Of@`Ou`O t Of@`O i2 & &@+zi*`Of,ɧO ' &@@O),dI`O ( 6 (Z 07&@+Of@`O i0 &&i,% 4 0 &@L &@>&@DOf@`O`OI`O L 2"O  f@`Ou`O t Of@`O i2 & &@)4 ( &@,Of@`O i: & &@,Of@`O i8 & `FORM19 0*RQ*RQ8(RQRDRRRR*RQ(RQSSTXT$U\Qz<i*`Qi(.Of@`Qu). $$D t &@ ɧQ ' i0E: E  6):DD4: c C26`S 'QX&@R Of@`Qu`Q t Of@`Qi4 & `SOf@`Qu`Q t Of@`Qi4 & &@+zi*`Qf,ɧQ ' &@@O),dI`Q ( 8 (Z 07&@+Of@`Qi0 &&i,% 4 0   &@L &@>&@DOf@`Q`QI`Q L 4"Of@`Qu`Q t Of@`Qi4 & &@)6 ( &@,i: E E66`UP 'QX&@R Of@`Qu`Q t Of@`Qi2 & `U\Of@`Qu`Q t Of@`Qi2 & &@  +yi*f,ɧQ ' &@@O),dI`Q ( 8 (Z 07&@+Of@`Qi0 &&i,% 4 0 &@L &@>&@DOf@`Q`QI`Q L 2"Of@`Qu`Q t Of@`Qi2 & &@)6 ( 0` @$@   D $ R@ @@PD ! B }@ !("AB )@%@ !("@RJ4 H@( A("BPD@RJ@!@ DDDD $%@(ADDDDD"!J(""""!"AP@!""  "@"!J@(HJA@! B >@ @PD  !("@RJ!!( !("AB )@%@$%HJ@! B A HJA@! B >@@%$%@P ( D( A("BPDD"" '`OVLY96 0TX DECINSTR,.024 INVALID DECIMAL OPCODE = 0n1.1P1P1P1P1P1P1P1P1f12222222222$2* DATA > 0 03,0T(8o(ʉ(0^( ' ʉ(0`( ʉ(0b( , G66 9 '0X`0d*ʉ(0f( ' ʉ(0h(I`0j*ʉ(0f( '>i, }`0d*  ʉ(0f( ' ʉ(0h()`0\*&`0\*ʯ@(ʠ0l*ʠ0l,ʠ0. t ʯ@(ʠ0*i, ʍ, & ʯ@(  /@*ʯ@(  , G66  '0X 3 7B : =^ 6 ( ʯ@(  /@*ʯ@(  i*6N6[ʯ@(ʠ0*ʠ0,ʠ0. t J-  (o@`0j`0i( L  ' ʯ@(ʠ0j*ʠ0,i(ʍ. L ʯ@(ʠ0\*ʠ0\,ʠ0. t J-(o@`0j`0i( L ʯ@(  i(m(`3^.(R3d,@> 3l0(R3t*R3x,*R 3| LEN1 = 3 LEN2 = 3 PAD = 3(2036 30  *l%,  &@ 3:4 3J&@ 3:4 3Z t %, dq&@ 3\4 3` t &@ 38 3\ 3b L %2&@ 3\4 3f t &@ 3h2  & &@)&@ 3j4 3p t &@ 38 3\ 3r L %3L&@ 3\4 3v t &@ 3h3  & &@)  .&@ 3\4 3z t &@ 3h2  & &@ 3j4 3 t &@ 3h3  & %, !&@ 34 3 t %, &@R&@ 3h4  & &@ 34 3 t %, T&@R&@ 3h-  & %, +&@ 34 3 t %, t&@ 3\4  5 C( 3 L &@ 3\4 3 t `OPCOD28  * ADD 60* SUB 6>* MPY 6L* DIV 6Z* ZAP 6h* CNVR 6v* CNVB 6777l7~77777@>6.(R6*R6,@> 60(R6,*R 6 LEN1 = 6 LEN2 = 6 LEN1 AND LEN2 = 5 6 LEN1 = 5, LEN2 = 10  6LEN1 = 2, LEN2 = 57:<:<::::::$:$:H6$*l, G((F '6X&@ 6.4 6<5&@ 6.4 6J,&@ 6.4 6X#&@ 6.4 6f&@ 6.4 6t&@ 6.4 6&@ 6.4 6 t ( ( .<&@ 64 6 t &@ 6, 6 6 L %  , 7&@ 64 6 t &@ 6,  & &@)&@ 64 6 t &@ 6,  & 0<&@ 64 6 t &@ 6, 6 6 L %,D7&@ 64 6 t &@ 6,C & &@)&@ 64 6 t &@ 6,C   & %, TB&@ 64 6 t %, t&@R&@ 63  & &@ 64 6 t %, d&@R&@ 62  &*, G((" '7,X&@ 64 6&@ 64 7&@ 74 7* t ( ( `OPCOD9  * SRA :X@>:h.(R:n  *R:t LEN = :z SHIFT COUNT = : R = :@>:2(R: LEN R = := :L(l&@ :V4 :d t .7&@ :f4 :j &@ :T :f :l L %15&@ :f4 :p t &@ :r1  & &@)&@ :f4 :v t &@ :r1  & &@ :x4 :   t %, d&@R&@ :r0  & &@ :4 : t %, T&@R&@ :r-  & %, t}&@ :4 : t 27&@ :f4 : &@ :T :f : L %55&@ :f4 : t &@ :r5  & &@)&@ :f4 :v t &  @ :r5  & &@ :4 : t %, &@R&@ :r4  & `OPCOD10  * SLA =@>=*.(R=0*R=6 LEN = =< SHIFT COUNT = =H>=(l&@ =4 =& t .7&@ =(4 =, &@ = =( =. L %15&@ =(4 =2 t &  @ =41  & &@)&@ =(4 =8 t &@ =41  & &@ =:4 =D t %, T&@R&@ =40  & &@ =F4 =X t %, d&@R&@ =4-  & ` B I  H @H $ $@BRNA(PRJ BPRJ  A( PAJB%!(A) @$ A H$ P@ A( @%(( @P@%!$ AAB:AJ(  @A %RJ A( PHI :AJ(  @A =X t %, d&@R&@ =4-  & ` B I  H @H $ $@BRNA(PRJ BPRJ 'pT9INIT  8Q^ M9INIT ( **** NO INPUT FOUND IN CIL FILE8,98"^,ɠ6nɠ8"Ƨ8$& 8ʃ*  ɠ8&d& ɧ8( : &d $&n &d $&d $&@ 8*4 8L , @ B fX   8 ɠ8 $ɠ8 R  ɠ8 nɠ8 j  8N&0  8P,ɠ8P^ɠ8Pf`T9TERM 99"^(jljjl  f`T9WRDF  ***** 9 ,DXPSCL 1.8.0 83.357 OPTIMIZATION SUMMARY9=n9"^69  9 9   9h 9H  B 9  9 9 96f 96h  B 9  9 9 9 9 9j  B 9   B    G, H.i,4D4 9 8D    B i.4D49 8i,   . B 2C4D4 82c29  92  B C4D4  6 8C9  9 9 9 9  B 99 , 9Ƥ9 99 " 9: ,  B n  `DINIT >=r"^Pl  BD  FHJL&fNDN  8'BƧ=|8*ʃ*  (*,.02468:<>@e*NDN8'(( Ƨ=~ 8ʃ*   ɠ=8:`T9RDDF (  h Hj4RANGE TABLE OVERFLOWED WHILE READING DESCRIPTOR FILE>,A>"^6n3Ƥ> \ n3ɤ> n3Ƥ> n3Ƥ> n>Ƥ> n  È)(>Ƀn3Ƥ> \ n3Ƥ> n3Ƥ> n>6f   n>6h n  n3Ƥ> \ n3Ƥ> n3ɤ> n3Ƥ> n3Ƥ> n>Ƥ> n  È)(>Ƀn3Ƥ> \ n  @B>C4D4n3 " \ n3Ƥ> \ n   @>?* , @ B  % C4D44 8Cn3 \ n3 n3Ť?, n3Ť?. n3Ť?0 n  n3?2ɤ?4   n3?0Ƥ?6 `WRITEBB BXA"^,l8(c*)*  ɤx  x B xɓx*S*`WRITEOPD   BCCbCCD~DvDDnBDTDEF$FHB\%8ìoxe-`FB 'BXF0`DJ 'BrX`Bg,ʩ,(ʩ.* H`Bm,ʩ,(ʩ.*  &D.D,ʄ(ʩ.*&Bh`Bk,f.ʩ,(ʩ.  * `FF`Bm,ʩ,(ʩ.*  f,f.ʩ,(ʩ.*]`Bo,f.ʩ,(ʩ.*  ((IH  (+(ʩ,(ʩ.*  `Bq,f.ʩ,(ʩ.*  & D6M6 $&ʔ(ʤ*   jx `FHF2 'BX`B},`  B, `B,`Be, jx f.ʩ,(ʩ.*  &`F`B,ʥ0ʯ:2 j (o:4)4Td4)4de.ʩ,(ʩ.*  .D6F6F 8ĉS;!P 8 8n 8o 8. 8  ./OL`B,ʥ0ʯ:2 j (o:4)4Td4)4de.ʩ,(ʩ.*  %D.D,ʄ(ʩ.*`B,e.ʩ,(ʩ.*  jx `&PASSERRO*** HEAP OVERFLOW FV*** RANGE TABLE OVERFLOWFl*** DEP TABLE OVERFLOWF*** ASSERTION ERROR F  *** ABORT CALLED TO TERMINATE PASSF"*** RUN TIME CHECK FAILUREFG|G,G8GDGPG\GlGFL"^,, 'FXFhʠFj*FʠF*FʠF* FʠF*FʠF*  FʠF*  %  % `READBB v$G GD KpKKKKKKKKKKKKKKKKK  JJJJJJJJJJJJJJJ4J4JJJIJKKvJKKKKIKJKvJJnIJJJnJ4J:JJKvKvJJtJtJnJnKvILJnKvJJnJFJnK>J4KvJtILKvKK^JK"K"ILKvJzCJ GD,vjvnxV(5vv5 ʏ(G(ʠG*  /vʄ(( : Ф    !! G&  GU& L X`Kp 'GX 'trr tz 8t#CoroV$G`G(oV>;r  8czȯV/r7 >G@,/>)GC L ( x 8otȣ` L @  j@x> ȣ@^ LbG L\G L x#GGG L  LhG LPG L Gd L G[ L8G L% L  x(BG L  9G LG L  )G L    GG L   G  L   G jx nvvnv#Hf`J `HREADOPD Xx LLLLLLLLLLLL8\dMDMNNNOP$P.P>P~Q0Q0Q0QQQQvQ~Q MQ>RRnRRK%Fìxpʏ(K( : 6x/x6 ʏ(K  (ʠK*  /x/BoXCB ! 'KX/x K/x K/x K/x K/x jx /xovox/p/xox/Y D`R 'L Xʉ(K(  BoXCB'`O 'KXʏ(K( : /v ʏ(K(ʠK*    dɠKɯ^"ʏ(K(ʠK*  dɠKɯ\ɯ^&D.kʏ(K(ʠK*  dɠKɯZo6o<& D4/  ʏ(K(ʠK* //Ʉ400=<ʏ(K( :  &)0Ϡ#[0ʏ(K(ʠK  *  /dʏ(K(ʠK*  dɠKɯZ.oʏ(K(ʠK*  dɠKɯZo:o>& D4/T ʏ(K(ʠK*  / $/Ʉ42& CDMDʏ(K( : $&/\/^2\/^D2 jx d  /v Ƀ). `l`P). Ť`). /d`dlolld{`Rfg_ 'KXfYfUffM00&)0 -)0Д 0ꉩ0֋f-0& D2i02)0 $&0 # 0i02   jx /ll`Oolf 'KX6< :> jx ʩ8( `Rʏ(K( : oZ*o^,BoXCB 'KX`K(( `K( `K( jx .). f*f,f(=ʏ(K(ʠL*  ).   Ť). /ɩ(ɩ*ɩ,ɩ, )(K)(K)(KL o L oZʏ(K( : o^oZ jx `&T9ERASE RR0( i(e,, ,V.Š6),6i.,U*`5)(5i*(`M9FOLD KTU SSv  xz@S@   l )0' **** WARNING: 'ASSERT' FAILED AT LINE S61| //// UNEXPECTED CIL OPCODE: Shr[WXYbX,XXXYbYbXXX,X,XXWYbW[XM> 9 oÅ2E2):\6):\i.׈):\):\):\`bi60i.8i2% D<`]: )<])<]`  ]:):\):\i8U88`b '] Xfi6 &\ -\ i6,i62&\Pm uLmEE8i:E:):\`]:`6z66-\*i62cé6n.\.\-\-\ n8n:˩6 ^6ϋ8i6.):\fE  = \ Ie<,,"):\i, ɭ.i. Ii8$H],):\ jx `\22 )2 ] &G20#: ]"X&i: O):\):\ i: O%\ c i.>F>[F Ie$ 9/om4 9)4oU4  4 9)4oÅ˩(˩(ʯ@(ʠ\*ʠ\,ʠ]L. , ʯ@( B \]N ((  i24i2U2`]ʩ0(  `&M9RCHK dddd|e e e e*4( //// M9LCSE ERROR: RANGE TABLE OVERFLOWcDOMODULE,fczD6.8.68  M/8*: 'cX3de * 3 so.*o.*o,* %co,*%c *2o2*o0*i.*i*.8.C*%w`w>ɩ>6 3ʯ@(ʠw*ʠw,ʠx. , ʯ@(ʠw*ʠ6d,  ʯ@( B ʠx((ʠx**  ʠx,( : `w 4   e4)(w$)42$)4Ɉ- +$%#$ %)  (x. yɤ $ %ɇ $%ɇ}d å wso-x0gʤ 0ʥ 2 z j(6$ )6G:% )6G<ʤ0ʥ2 z j(4$)4ǀ:4%)4ǀ<*)(w ):)<ɇ  ):)<H8488Ƀi6  8i8ɂ ɤ `{  $$ %% )(x.& ʤ0ʤ 2 z (ʃ0ʥ2 (ʃ0ʥ 2 j(8)8x,*$)8$ )8 %)8G% )8G )(x. 88Ƀ ʉ(x2(ʩ.* R ʉ(x4(ʩ0* #(Ƭx.(*,> Z `  M9DBOOL    }{D@)4i6)({)({ )({ )({ `} `} (d $ &{    *  #{! #{d:%i:d :% i: d <% i< id)8  {  )({)({ebʩ*(ʩ4* R #(Ĭ{{*{ Z { D P`{>d)({)({)({>d)({)({)({>d)({)({)({>)> {ʩ.(ʩ4*ʩ0, s 22ʩ*(ʩ4  * R ʩ,(ʩ6* `M9DSET  0~ QR8}"^8)(}-ͩ2i*͕͠}ͩ0 n8 ͩ*ͩ2 R ,V ~&lͩ4ͩ,͠~ͩ0 l _)(~)(~2*V ~& ͩ2ͩ*͠~ͩ0 l  ͩ4ͩ,͠}ͩ0 l  )(~0ͩ6ͩ.͠}ͩ0%*V%~   ͩ2ͩ*͠~ͩ0 l  ,V%~  ͩ4ͩ,͠~ͩ0 l  `M9FORCE 2z<"^4i*  )(%    % F)(% s &H% FɠFɠJ)(% We0e,i,e .i.i,. ). ),).F! L% %%   )0  )()2% )0  L% % )0  )()2%)0  )(`OLDCIL ~*(V`55(`NEWOPD  "^*i(`6i(6Oi(`  i(`NEWCIL :"^*(Š5(V5ͩ(͠    `OLDARG p>*(!V`55(`M9FMPY  * 2>t"^4*!)0~)0|`0,ʼnͩ͠*ͩ,ͩ0 Z ). ʼnͩ͠*͠).ʼnͩ.  ʼnͩ͠*ͩ2ͩ0 Z (ũ*`M9FGEN 42&  B"^6l,!ɧL  )4& N P. .4,.,4ɧR  )2),)*)1 Un2i2nɧL  )4& N P(4`NEWARG h*"^*(Š5(V5ͩ(͠4  `GCD   l6i0i22)0)2H4i20i42i0(`M9FADD  2*z"^4*!)0)0`0. ɧ.Fʆ*  ,ʼnͩ͠*ͩ,ͩ0 Z . .ʼn͠ʼnͩ͠*ͩ2ͩ0 Z (ũ*`M9FCST , ~"^.  `6|,, ,&f*V,OI``  ,ɠɩ*Š6|),6|(  i(ɠɩ,`WRC$T D.)(ʌ(,ʠ* #x *, B  -`ʠ* +6 7 [WRX$T 2  0"^4(f Oi(` #xO)(*   i( B AfE2&)*), ). 4 )0*  i( B `0)0i2Ʌ)()0 +6 `RETRN$  ҆"^H> \ _<> i@DiBF x 0$&$ɩ6ɩ6$>`` \l `: \) i"  é$` \ 0,2b $  0[b`%BP$UC X,*(f( f`$M(E$FAIL hD(ʠr( % `C#DYNAMIC ARRAY SIZE OUT OF RANGE6ESCAPE-FROM-ROUTINE ERROR7INVALID RELEASE POINTEROVERFLOW\ STATEMENT ?1&PRECISION CHECK F  AILURE\ STATEMENT ?1 "ASSERT" FAILED\ AT STATEMENT ?1FATAL COMPILATION ERRORS IN ?1&D!@ BHA tA"@A %H!B@ B$Jh@Ǐ @ *  $H@ @ _QE@ C$@B$$@($BH $$BI@@D%?H!$A! HHI !$$ @ @@@ H @ `DD"@ A   !P@A@ @" @P !H A@$H!H$" @ @ Q$Bz!H"ADQD@@@ D@"@ I I @ $I@  "" HB  BI @h"  P  4@"@ @@@(@((PH@   "  HD @!@@@HP A@@@A@!H$II@@  @@! h @ @" 4@" "" "" "@   h@@Ё "@D(D" P A4 (P @ H @hP$@"Z@A @A@I @!H$II@@ 'qGO$INIT  8 INIT$ SYSMSG 8" 8..FL* EXECUTION BEGINS8>,98*Nʇ(8* (*ʠ8,2ʠ8,4 =6  :n  : ʠ80(ʠ8 *  83^`84FHJʉ(86( &P )G_)H` n pʉ(88(* T ʉ(8:(np/ʏ*  *j`8<**ï  N*ʎ(  ʠl(ʠn*ʩ(, ; ( 8,ʉ(88(ʩL* T (6ß\" : lOO*Ï^*8X (, ** (,ʉ(8Z(ʠ8\*   =   `INIT$1 @OUTPUT ::R9"^(Ƨ:: (*ʠ:2ʠ:4 =6 Ƨ: > `  `ʠ:V( % *( P*, Pi(* Pf P*,i(* OGET$PARM8..4* 0;:*D"8Ԡ:ʂ( &P bAAI!>"BĠ: Ohؠ:ؠ:":ؠ:""`:4`:: P2 ɠ:  O),   : `:4`:: P2 ɠ: O), : `CREAT$ .>0=;"^:* * ; T )* = ߡD6,;   ;)6  ;). T ),a0^),T $ D2 )2,)0D"i($(`;*,i  0.D006C2)0)(0i0)6DD8F8 )0$D),&D2c&),``$(FL$INIT 6==""^<F i((ũ(2 gGI=,=.٠=/i4Ʌɩ4 '*(f EOI`=0`=.  OI`=0 ? ɩ6`REST$S >$="^*(Oi( @, f E( A Oi(f &| `REWRT$ >>("^*(Oi(`>2 @, i(( A i( f E( 'D `REST$T >>"^*(Oi( @, f E ( A (   `EXTND$ ? >D*ʩ((ʠ>* @, (`SET$ACNM,??"^2)(d *Г S B"e,ɧ?  *Г B. .ɬ?.  i,*0S1F0 *`SCB$INIT,&@?"^2OI`?`?  F i,  ,i(i,?`OPEN$ 0.,A@ "^2i(% (  `A% (' (* B % 0e 0%)* @ @  Bv i.e 0* *`@+`@')( #x  `@٠@ &P %@  *`@ `@"`@%e,e 0&,ɧ@&  i0 % De 0e 0 @&)0  i,% D`REWND$ BA"^*i(%#f% f% E٠A &P f Oi( #x i(`A`SET$NAMEB@B D2(ʯ('* (*   E `OPN$FILEPDBD"^4()0BLIBNBLIBNBPIBRBT*BR)0BPIBR)*BL )0BLIBRBV ٠BYBZ*IB\B\i,IBRBTIBRi, i,ɕ٠B_( &P f   ci,ɕ( f٠BY( &P )*BL*ff!`B`f ;٠BQ( &P fEEIBRBV٠Bc( &P f ).&&&  ٠Be( &P i.٥f2i.)0BL)2Bf٠BQ( &P ٠Be( i.`B`٠Ba2 i,ɠ  Bhi,ɕ)2BP)2BjɠBh)2BL&Bl i,ɠBni,ɕf)2BT ɠBpɦi,fɦ$`S$NAME 86ELD"^:(f8ɧE  '*ʉ0E0 Et (ɩ6`MAP$ O8$TIP.F.EP"^IF%'  F4  e'i4 E`E[8OI`E\I`E^ : i8=`E[OI`E^I`E\ i ' (8 i8 E60Eʅ*  i6؊F`i0IF%8)4E``Eb4`E`4i4 E8`Ee9`Eg:`Ei;`Ek<`Em=i4%E؊FIFe'=Ii4`7Ii4  `8`E[OI`E^I`E\ : ii  j`En4i4 Ei4؊F IFe<i E40i4ʅ*  i4؊F`F.i0IF% |12G |1`a2G ? ?mCD[-mq  p00A I0 'J)#ȂGH(09(H E`G  #` m@  @ p@ bA@AIIZmqmI0HFEmGHmrI0899@DDE      ba [[BCEEF[AI~I1܀ ܱ@[>K-+09A/*m `Iѱ * II@m  @"  *@*   **@  I* IEF HIm  4II)II I +М+ 88GB I b@B@ABE F ABI@0$.( :  61 K%K$K&K' `p܀4 ܴ1 `CܱC@./*(ځ//jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`Ll=`LnF%00څ  څj ʁ* J!B LCLLAL1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[NMM@jY* *  ђ '   6 6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[m* "ròAC*Nx* ā*/ *p *xJ!ʁp*v  ONO Njd ONI`@*v*pʪhjOO O N@OO @ڻb*zʐnʪpf/`*a ; K/r[\TBOX`G^TBO``G`GTBOl Ot`GOdTBO Ot`HnTBO Ot`HTO O  `IOdOOOOTbO O`ITBO O`JZTBO O`K(PxPXP|P\TBO P`KP .S$FTLF00T)+TBP6 P@ `LxPxP|T6TBPP P@`L`L  P@`LTBPj Pr`M( T6`N`NTP P`N$PPPPfT6TbP P`N|TBP P`NTBP P`O`:`SY  STEMp    `  P OPHEAP$TERTTD. $ (O,* i(F* [T**`HD)$M-H@@ I$$R"BD IA@JAP @   @ @P A h  B@ B"("BAHA $A$@@@!HH D@@ @@I$HJ @  $ @( A@Pu]~]PuK]}  8@BA$@@@!HH D@@ @@I$HJ @  $ @( A@Pu]~]PuK]} 'rGO$TERM  8F TERM$ NORMAL TERMINATION8$>,*2e(9-:./)019929f9n999999CBPD@STACK USED = HEAP USED = 8"& 8=.8"^(`<)(d:% 8")(< C0Ф= B20 `:B '8bX86ʠ88*  `;`:T`8 ,  )28:)2$ $`8<6 8> 8 4 8@Z`8H6m)28J)2$ )2$)2$2D6X2)28N`8P6M`8R6I2`8L6B)28N`8T6:`8V66`8X622`8Z6+`8\6'`8^6`8  8> 8 4 8` 8B 8D 8F 4 `8!> $>De 6i6`8v`8x  B 8z%%% Q iB)8|`8|B )BC  )BB $CD0`;)8|i 8~) `8|)$Dɬ8~8|   8) &H 5$@D4H8"@ B  8) 8~ , @ B  8)  8 , @ B )08)2 D ' (D iB&H &$@D48"0 )( 8" K  ( K    )4I 8"@  8 ( i(%0a%.D.`8,ɬ88ɬ8@ɬ8B8| ' `8, 8 8 8@ 8B 88#  8 8    . $ D(d:`8|B 8z 8v 8F Q  8~)B  $CD`8 `8F`8v8ʠ8 *  )(:c  )(: 4j ` |12= |1`a2= ? ?mCD[-mqp00  A ? 'J)#ȂG>(09(H E`=  #` m@  @ p@ bA@AI?.mqm?>FEmGHmr?899@DDE      ba [[BCEEF[A?RI1܀ ܱ@[>K-+09A/*m `?zѱ * ?W?V@m  @"  *@* **  @  ?\* ?[EF HIm  4?W?V)?X?T ?X +М+ 88GB ?U b@B@ABE F ABI@0$.( :6  1 @@@@ `p܀4 ܴ1 `CܱC@./*(ځ//jB/j **"/*$P  Rʁ A?ʁ C*&*BFʃ*ڄA9`B@=`BBF%00څڅj ʁ  * J!B BCBBAB1܀ ܱ@[j Y *   Hȡv 8 8 @Œ[CCxCjY* *  ђ ' 6   6v[@[jY- * H s 8 8 8 jYɠS؂G[@[NB qMQ r[m* "ròAC*DL* ā*/ *p *xJ!ʁp*vDD  D Djd DDI`@*v*pʪhjDDD D@DD @ڻb*zʐnʪpf/`*a ; K/r[\JE,`=2JE4`=V`=JE@ EH`=E8JEp EH`>BJE| EH`>JVE E`?^E8ElExE  EJ6E E`?JE E`@.JE E`@FLF,FPF0JE E`AE .S$FTLF00I+JF  F `BLFLFPJ JF$ F`Bx`B  F`BJF> FF`B J `C`CJVFX F``CEFvFF:J J6Fz F`DPJF F`DJF F`D`:`SYSTEMp      `EEE  P$TERM JJv(,:h a FTCLS$ ,*KJ"^.i(`J(  (f,ɧJ K: f*ɧJ  `DUMP$HEAK K *L(`K SCB$FREE,*Kx  K("^.i(f,ɧK2  i(U*ɧK4  i(`KOMPC MEMORY PARITY ILLEGAL OPCODE ILLEGAL TILINE ADDRESSILLEGAL SUPERVISOR CALLADDRESSING ERRORPRIVILEGED INSTRUCTION TASK KILLEDTASK ERROR #?1STACK OVERFLOW HALT CA  LLED HEAP FULL DIVIDE BY ZERO&INVALID PACKET POINTER'INVALID LENGTH OF PACKET2CANNOT GET MEMORY3ERROR CODE = P4015ERROR CODE = P4038TCA ACCESS ERROR7"CASE" ALTERNATIVE ERROR\ STATEMENT ?1 ALTERNATIVE ?2*FILE ?1 LUNO #?2 NOT ASSIGNED1 CANNOT LOAD OVERLAY, STATUS   = ?1CFILE *?1 ACCESS NAME ?2\ATTEMPT TO READ PAST EOF,?1 ACCESS NAME ?2\ATTEMPT TO SKIP BEYOND EOM?1 NOT OPENED FOR READING(;?1 ACCESS NAME ?2\OPEN ERROR - ELEMENT SIZE > RECORD LENGTH)?1 NOT OPENED FOR WRITING-*?1 ACCESS NAME ?2\OPEN ERROR - STATUS = ?3.*?1 ACCESS N  AME ?2\OPEN ERROR - STATUS = ?3/*?1 ACCESS NAME ?2\READ ERROR - STATUS = ?30+?1 ACCESS NAME ?2\WRITE ERROR - STATUS = ?39C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICT:C?1 ACCESS NAME ?2\OPEN ERROR - FILE TYPE AND ACCESS METHOD CONFLICTC#DYNAMIC ARRAY S  IZE OUT OF RANGE6ESCAPE-FROM-ROUTINE ERROR7INVALID RELEASE POINTEROVERFLOW\ STATEMENT ?1&PRECISION CHECK FAILURE\ STATEMENT ?1 "ASSERT" FAILED\ AT STATEMENT ?1FATAL COMPILATION ERRORS IN ?1CTEXT FILE I/O ERROR: SPARAMETER OUT OF RANGE NAME=?1TFIELD WIDTH TOO L  ARGE NAME=?1UINCOMPLETE DATA NAME=?1V#INVALID CHARACTER IN FIELD NAME=?1WVALUE TOO LARGE NAME=?1XREAD PAST END OF FILE NAME=?1Y"FIELD EXCEEDS RECORD SIZE NAME=?1P$CMSG QQ*:g i- Q)(i*JR"R\,!SDi2S* `MD  CD   .[KB). G4/4  5@JSFR\i*S*B[K@rF GHiDS*LFS)HPOS[ )HPܠS\SYܴ)HiH G:É.<00χׇt?/:;!J GL)L6SZSZ)LLF ܶ)L  ܠSY@[E LFܵ[*** ERROR >?1 *** ?;\  tIH* !D"$( @* ! %$)(D%B $ H @@HH @P  PPu5_  _ARW_A PP^D$DDP  PPu5_ TIPBATXT`P G  +*`@BATCH LS=NO " P$SYN % 2.SPLIT LIST="@$XP$P", FIRST=PREIN,REST=$XP$P22.SPLIT LIST="@$XP$P", FIRST=OBJECT, REST=$XP$P22.SPLIT LIST="@$XP$P", FIRST=OUTPUT, REST=$XP$P22.SPLIT LIST="@$XP$P", FIRST=SYSMSG, REST=$XP$P20.SPLIT LIST="@$XP$P", FIRST=$P1,REST=$XP$P00.SPLIT LIST="@$XP$P", FIRST=$P, REST=$XP$P0 .SYN $P1 = "@$P1,@$P" 0.SPLIT LIST="@$XP$P", FIRST=$P2,REST=$XP$P00.SPLIT LIST="@$XP$P", FIRST=$P, REST=$XP$P0 .SYN $P2 = "@$P2,@$P" 0.SPLIT LIST="@$XP$P", FIRST=$P3,REST=$XP$P0".SPLIT LIST="@$XP$P", FIRST=$P" .SYN $P3 = "@$P3,@$P"  .IF @$TIP, EQ, $TIP .SYN $TIP=" "  .ENDIF% @.SYN $XP$P ="", INPUT = @$TIP.PREOUT@$$ST, $$UC = 0, $P = "" @* 'XP$2 @$XP$O "* '0.BID TASK = 012, LUNO = 021, PARMS =(8,1,@$XR$0``1,@$XR$2) * ' .IF @$$CC,LT,04000@.BID TASK = 01, LUNO = 021, PARMS = (@$P1)! EXECUTE SILT1 @* '@ .IF @$$CC,LT,0C000! IF NO RUN-TIME ERRORS (DURING SILT1), @D .BID TASK = 02, LUNO = 021, PARMS = (@$P2,@$XR$2)! EXECUTE SILT2D .IF @$$CC,LE,04000 .SYN $$UC = @$$CC ..BID TASK = 0D, LUNO = 021, PARMS = (5,12). .IF @$$CC,LT,0C0006MFN O=@$TIP.DE$CFI@$$ST, N=@$TIP.DESCFI@$$ST, R=Y 66MFN O=@$TIP.CIL$FI@$$ST, N=@$TIP.CILFIL@$$ST, R=Y 6..BID TASK = 03, LUNO = 021, PARMS = (@$P3). .ENDIF" .ENDIF#  .IF @$$UC,LT,@$$CC$ .SYN $$UC = @$$CC  !SAVE $$CC $ .ENDIF#  .IF @$XR$3,EQ,"Y" D .BID TASK = 0F, LUNO = 021, PARMS = (15,3,@$XR$2)! EXECUTE XREF D .ENDIF# .ENDIF$ *.ELSE !SYNTAX ERRORS IN PREPROCESSOR * .STOP TEXT ``0 = "PREPROCESSOR ERROR, ABORT", CODE = @$$CC 0 .ENDIF%  .IF @$$CC,GE,0C000D .STOP TEXT="TIP COMPILATION ABORTED - RUN-TIME ERRORS DETECTED" DCODE=@$$CC .ENDIF%  .IF $$CC,LT,@$$UC  .SYN $$CC = @$$UC  .ENDIF%  .IF @$$CC,LT,04000 DF P=@$TIP.CILFIL@$$ST DF P=@$TIP.TOKENS@$$ST:.STOP TEXT = "TIP COMPILATION COMPLETE", CODE = @$$UC : .ENDIF%  .IF @$$CC,LT,06000@.STOP TEXT="TIP COMPILATION COMPLETE - WARNINGS IN PROGRAM", @CODE=@$$CC .ENDIF%  .IF @$$CC,LT,08000H".STOP TEXT="TIP COMPILATION COMPLETE - NONFATAL ERRORS IN PROGRAM", HCODE=@$$CC .ELSE % D .STOP TEXT="TIP COMPILATION COMPLETE - FATAL ERRORS IN PROGRAM",DCODE=@$$CCNDIF# .ENDIF$ *.ELSE !SYNTAX ERRORS IN PREPROCESSOR * .STOP TEXT `MISC D +m+-ACCDXO `P &+1`@PACCEPT 54ACCEPT36ENT$MD3SVC$ 3MSG$ 3RET$M ABACBCEBPT7qF PPB BB BBBB B@BABI/BO BERBROBR BONB ABCCBEPBT CB7F PPA0CCBBB8BB(BBB٠C BAHBɠC BBɠCBBB*7F PPB B BiB*A`BBBمBBCBBB,B B BiAxB,BBBم7-F PPBBCBBɦBBBiAB(BBBBCBB BCBBiA7F PPB(B٥BBBCBBɩB2B BiB4AB.BBɩB4B BBɩB.B 7lF PPBiB(B%ABBB BB BfBBBC,BʠC.AB*B BB Bf7F PPBB B)B6BB`B7 F PP: ACCEPT 11/18/83 16:01:47 DXPSCL 1.8.0 83.357 PPhCLEARSCR5"CLEARS3$ENT$MD3DSVC$ 3ZMSG$ 3`HALT$ 3fRET$M A7F PBCLBEABRSBCRBB``>BBREBWIBNDB EBRRABORCB CdCBBB*B7yF >PB(B٠C A0BB٠C BBiB(B%BBB BB AHBfBB BC7)F PPBʠCB*B BB B A`BB B`B7F PP: CLEARSCR 11/18/83 16:01:47 DXPSCL 1.8.0 83.357 PPDISPLAY 5.DISPLA30ENT$MD3SVC$ 3MSG$ 3RET$M ABDIBSPBLA7F PPBY BB BBBBI/BO BERABROBR BONB DBISBPLBAYCBCCB7F PPA0BB6BB(BBB٠C BBɠC BAHBɠCBBB*B B Bi7)F PPB*BBBمA`BBCBBB,B B BiB,BBAxBمBBC7F PPBBɩB2B BB4BBAB)B4BICBBiB4B.BBɩB4BA7F PPBBɩB.BBiB(B%BBB BB ABfBBBC&BʠC(B*B 7F P$BB B`AB76F $``, ,P: DISPLAY 11/18/83 16:01:47 DXPSCL 1.8.0 83.357 PP:INITSCRE5INITSC3ENT$MD32OPENTE38RET$M ABINBITBSCBREBC67F PPCBBB,BB(AB٩B+BBiB(BBiB(BBBB(A0B B7qF PPB B`B7F PP: INITSCRE 11/18/83 16:01:47 DXPSCL 1.8.0 83.357 PPOPENTERM5NOPENTE3PENT$MD3SVC$ 3MSG$ 3HALT$ 3RET$M A7F PPBOPBENBTEBRMBBBBBUNBABBLEB TABO BOPBENB TBERBMIBNABL C7 F PPBBBTEA0BRMBINBALB IBS BNOBT BA BVDBT C.BAHBCCBB7F PPB*BiB(BB:BB(A`BBB٠C BBɠC BBB BB AxBI7F P6CBBiB(B%BBB BB BfABB BC(BʠC*6``B*B BB 7GF PB BAB B&B C,B BCDBʠCFB*B CAB B CB BiB(7F PPB`CHB`B7F PP: OPENTERM 11/18/83 16:01:47 DXPSCL 1.8.0 83.357 PP"SETFILLE5SETFIL3ENT$S 3 RET$S ABSEBTFBILBLEBCCBB7F PPB,BB(ABɩB*BB`B7F PP: SETFILLE 11/18/83 16:01:47 DXPSCL 1.8.0 83.357 P7F PPBOPBENBTEBRMBBBBBUNBABBLEB TABO BOPBENB TBERBMIBNABL C7 F PPBBBTEA0BRMBINBALB IBS BNOBT BA BVDBT C.BAHBCCBB7F PPB*BiB(BB:BB(A`BBB٠C BBɠC BBB BB AxBI7F P6CBBiB(B%BBB BB BfABB BC(BʠC*6` TIPKIF D +;+3BATCH P.nj+5 BATCH % * '6*  BATCH STREAM TO COMPILE THE KIF TIP ROUTINES 6* '8*  SYNONYMDXPASCAL AND LIST MUST BE PRE-DEFINED 84* DXPASCAL IS THE DIRECTORY WHICH CONTAINS THE 4*  DIRECTORY "TIPKIF". 0* LIST IS THE LISTING FILE OF THE COMPILE 0* '4*  BATCH STREAM TO PERFORM A CONFIG / COMPILE 4* '  Q$SYN%  P$SYN% ** ASSIGN LIBRARY SYNONYMS FOR CONFIG*, .SYN  MASTER  = DXPASCAL.TIPKIF.SRC,* ' .DATA .INPUT@$$ST "*USE PROCESS "*COMPILE ALL" *NO COMPILE KIFTST.EOD&* '(* EXECUTE CONFIGURATION PROCESSOR (0* TO STAGE THE TIP SOURCE FOR COMPILATION. 0* '& XCONFIGCOMMANDS = .INPUT@$$ST&* '* '0* ASSIGN LIBRARY SYNONYMS FOR COMPILATION 0* '. .SYN  MASTER  = @DXPASCAL.TIPKIF.SRC .* '* '"*  EXECUTE THE TIP COMPILER "* ' XTIP LISTING  = LIST,OBJECT = DXPASCAL.KEY$FI* '* '*  DELETE TEMPORARY FILES* '* ' DF PATHNAME=.INPUT@$$ST * ' EBATCH% P$  H .& .Z  PPp<6 PP & . Z  PPp5  & PP4. Z  pppH /F  ?)?FPPH 0H 1$  (H 26 PP SRC D +b+7KIFTYPE `P +;`@J$(*********************** KEYED INDEX DATA TYPES ***********************)JKIF_BIT  = 0..1;KIF_BYTE  = 0..255;& T_KIF_STATUS_BLOCK= PACKED RECORD &4KIF_STATUS_CODE  : KIF_BYTE; (* RETURN CODE *)4<KIF_KEY_NUMBER : KIF_BYTE; (* KEY # TO BE ACCESSED *) <4KIF_ACCESS : KIF_BYTE; (* FILE ACCESS FLAGS *)4<KIF_RESERVED : KIF_BYTE; (* RESERVED--DO NOT MODIFY *)<>KIF_RECORD_LEN : INTEGER;  (* REC. SIZE--IF 0, =LRECL *)>2KIF_PATHNAME : PACKED ARRAY(.1..30.) OF CHAR; 2 END; (* T_KIF_STATUS_BLOCK *) $ T_FILE_CHARACTERISTICS = RECORD $, FG  : PACKED ARRAY(.0..15.) OF KIF_BIT;, PHY_REC_LNG : INTEGER;  LOG_REC_LNG : INTEGER;  END_OF_MEDIA  : INTEGER;  NUM_OF_BLKS : INTEGER;  NUM_OF_KEYS : INTEGER;  KEY_INFO  : PACKED ARRAY(`` .1..14.) OF PACKED RECORD KEY_FG : KIF_BYTE;KEY_LNG  : KIF_BYTE;KEY_OFFSET : INTEGER; END; END; F_STATUS_BLOCK= PACKED RECORD &4KIF_STATUS_CODE  : KIF_BYTE; (* RETURN CODE *)4<KIF_KEY_NUMBER : KIF_BYTE; (* KEY # TO BE ACCESSED *) <4KIF_ACCESS : KIF_BYTE; (* FILE ACCESS FLAGS *)4<KIF_RESERVED : KIF_BYTE; (* RESERVED--DO NOT MODIFY *)<>KIF_RECORD_LEN : INTEGER;  (* REC. SIZE--IF 0, =LRECL *)>2KIF_PATHNAME : PACKED ARRAY(.1..30.) OF CHAR; 2 END; (* T_KIF_STATUS_BLOCK *) $ T_FILE_CHARACTERISTICS = RECORD $, FG  : PACKED ARRAY(.0..15.) OF KIF_BIT;, PHY_REC_LNG : INTEGER;  LOG_REC_LNG : INTEGER;  END_OF_MEDIA  : INTEGER;  NUM_OF_BLKS : INTEGER;  NUM_OF_KEYS : INTEGER;  KEY_INFO  : PACKED ARRAY(`KI0006 P O?[+=@ (*$ PAGE *),PROCEDURE KI0006SET_ACCESS; (*$ MAP *) , (*"*) *(* MODULE NAME: KI0006SET_ACCESS*)*F (* DESCRIPTIVE SENTENCE: SET FILE ACCESS PARAMETERS TO THAT *)F.(*SPECIFIED IN USER'S STATUS BLOCK.*). (*"*)  (* FULL DESCRIPTION:*)@(* THIS MODULE SETS THE ACCESS PRIVILEGES FOR THE FILE*)@B(*DEFINED BY KIF_FILE_PATHNAME TO THE STATE SPECIFIED BY*)B@(*KIF_ACCESS. THE VALID ACCESS STATES ARE AS FOLLOWS:*)@(* CODE  MEANING*) (*0  EXCLUSIVE WRITE*) (*1  EXCLUSIVE ALL*)(*2  SHARED *)(*3  READ ONLY*) (*"*) "(* DATE CREATED: 11/06/78 *)"& (* DATE IMPLEMENTED:11/20/78 *)& (* TEST PROCEDURES: *)8(* DATE CHECKED OUT FOR MODIFICATION: MM/DD/YY *)8,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)&D(*SHEPARD  07/20/83 FIXED BUG IN TYPE TRANSFER IN THE *)D2(* ASSIGNMENT OF THE KIF_ACCESS TO BITS. *)2F(*SHEPARD  07/21/83 ADDED CHECK FOR INVALID ACCESS CODE.*)FH(*WAGNER 10/10/83 TURN OFF WARNINGS TO AVOID 263 ERROR WHEN *)H((* PERFORMING A TYPE-TRANSFER. *)( (*"*) " (* PARAMETER DESCRIPTIONS:*)"((* FILE_CONTROL_BLOCK:T_FCB; *)( (*"*)  (* EXPECTED OUTPUT(S):*) (* ERROR CONDITIONS:*)"(* ACCESS REQUEST INVALID*)" (*"*) (* GLOBAL VARIABLES:*)" (* REFERENCED PROCEDURES: *)"(*SVC$*) (*"*) CONST $ SET_ACCESS = #11;  KIF_ACCESS_BIT6 = 6; KIF_ACCESS_BIT7 = 7;ACCESS_PRIV_1 = 3;ACCESS_PRIV_2 = 4;MAX_ACCESS= 3;TYPE%,T_BITS = PACKED ARRAY(.0..7.) OF BIT; ,.T_BYTES  = PACKED ARRAY(.1..2.) OF BYTE;.VAR %BITS :T_BITS;  ACCESS$  KIF_STATUS_BLOCK; (*PROCEDURE *)("BEGIN (* KI0006SET_ACCESS *) "L$(**********************************************************************)L"(**  KI0006SET_ACCESS  **)"L$(**********************************************************************)LJ# WITH FILE_CONTROL_BLOCK, KIF_STATUS_BLOCK, FILE_CONTROL_BLOCK.FILE_CBJDO$ BEGIN " $IF KIF_ACCESS > MAX_ACCESS THEN $ BEGIN ! *KIF_STATUS_CODE := KIF_ACCESS_INVALID;* ESCAPE KI0006SET_ACCESS;END;" OP_CODE := SET_ACCESS; (*$ NO WARNINGS *) &BITS :: T_BYTES[1] := KIF_ACCESS; & (*$ RESUME WARNINGS *) 8USER_FG(.ACCESS_PRIV_1.) := BITS(.KIF_ACCESS_BIT6.); 88USER_FG(.ACCESS_PRIV_2.) := BITS(.KIF_ACCESS_BIT7.); 8SVC$(FILE_CB);END;#"END  (* KI0006SET_ACCESS *);" 00000300PP OVERHEAD = 2 (* NUMBER OF OVERHEAD BYTES IN THE STACK REGION *); 00000310PH MARGIN = 128 (* STACK MARGIN *); HKI0010 `P  =&+@` (*$ PAGE *)*PROCEDURE KI0010GET_CHAR; (*$ MAP *) * (*"*) .(* MODULE NAME: KI0010GET_CHAR*) *) .F (* DESCRIPTIVE SENTENCE: GET KEY INDEX FILE CHARACTERISTICS *)F (*"*) J (* FULL DESCRIPTION:THIS MODULE PROVIDES THE FILE CHARACTERISTICS *)JB(*FOR THE USER. THE FORMAT RETURNED IS THE SAME AS THAT*)BH(*OUTLINED IN VOL III, TABLE 7-4 OF THE DX10 OPERATING SYSTEM *)H(*MANUAL. *) (*"*) $(* DATE CREATED: 11/03/78 *)$ (* DATE IMPLEMENTED:*) (* TEST PROCEDURES: *).(* DATE CHECKED OUT FOR MODIFICATION: *).,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)& (*"*) " (* PARAMETER DESCRIPTIONS:*)".(*1) VAR FILE_CONTROL_BLOCK : T_FCB *).``@2(*2) VAR BUFFER : ARRAY(.1..?.) OF CHAR *)2 (* EXPECTED OUTPUT(S):*)*(*FILE CHARACTERISTICS IN BUFFER*)* (* ERROR CONDITIONS:*)D(* IF THE BUFFER PASSED TO THIS MODULE IS NOT LARGE ENOUGH*)DD(*TO CONTAIN ALL THE INFORMATION TO BE RETURNED, THE ERROR*)D4(*CODE 'BUFFER_SIZE_INVALID' IS RETURNED. *)4 (* GLOBAL VARIABLES:*)" (* REFERENCED PROCEDURES: *)"(* SVC$ *) (*"*) CONST $  GET_CHARACTERISTICS = #05;((*COMMON*) ACCESS$  KIF_STATUS_BLOCK,  FILE_CHARACTERISTICS; (*PROCEDURE *)( BEGIN (* KI0010GET_CHAR *)  L$(**********************************************************************)L (**  KI0010GET_CHAR  **) <(*********************************************************<``*************)( WITH FILE_CONTROL_BLOCK.FILE_CB DO ( BEGIN " 2IF UB(BUFFER) >= SIZE(T_FILE_CHARACTERISTICS) 2  THEN ! BEGIN  $OP_CODE := GET_CHARACTERISTICS; $*DATA_BUFFER_ADDR := LOCATION(BUFFER);*.LOG_REC_LEN := SIZE(FILE_CHARACTERISTICS); .&SVC$(FILE_CONTROL_BLOCK.FILE_CB); &4KIF_STATUS_BLOCK.KIF_STATUS_CODE := STATUS_CODE; 4END   ELSE ! <KIF_STATUS_BLOCK.KIF_STATUS_CODE := BUFFER_SIZE_INVALID;<END; (* WITH *) END; (* KI0010GET_CHAR*)UE; 00001500ESCAPE PROC 00001510END;00001520" RADRESS:= RADRESS + 2 00001530"END;00001540 'U':(* 'U' TAG *) 00001550 BEGIN 00001560READHEX(WORD);00001570ADDLOADREC; 00001580END;00001590 '7',(* '7' TAG *) 00001600 '8':(* '8' T`KI0001 `P  B+C`@ (*$ PAGE *)&PROCEDURE KI0001CLOSE; (*$ MAP *) & (*"*) ,(* MODULE NAME: KI0001CLOSE *) *) ,8 (* DESCRIPTIVE SENTENCE: CLOSE KEY INDEX FILE *)8 (*"*) D (* FULL DESCRIPTION:THIS MODULE CLOSES THE FILE SPECIFIED *)DD(*BY THE FILE NUMBER PASSED TO IT AS A PARAMETER. IT ALSO*)DF(*PERFORMS A 'DISPOSE' ON THE ASSOCIATED FILE CONTROL BLOCK *)FD(*AND ZEROS THE KIF_RESERVED BYTE IN THE KIF_STATUS_BLOCK.*)D (*"*) $(* DATE CREATED: 11/03/78 *)$ (* DATE IMPLEMENTED:*) (* TEST PROCEDURES: *).(* DATE CHECKED OUT FOR MODIFICATION: *).,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)& (*"*) " (* PARAMETER DESCRIPTIONS:*)"(*1) FILE_NUMBER :`` INTEGER; *) (* EXPECTED OUTPUT(S):*) (* ERROR CONDITIONS:*) (* GLOBAL VARIABLES:*)(*1) FILE_CB*)" (* REFERENCED PROCEDURES: *)"(* SVC$ *) (*"*) CONST $  CLOSE_OPERATION = #01;RELEASE_LUNO= #93;((*VAR *)((*COMMON*) ACCESS% KIF$COMMON,  KIF_STATUS_BLOCK; (((*PROCEDURE *)( BEGIN (* KI0001CLOSE *)L$(**********************************************************************)L(**  KI0001CLOSE **)L$(**********************************************************************)L8 WITH KIF$COMMON, FCB_PNTRS(.FILE_NUMBER.)@.FILE_CB, 8 KIF_STATUS_BLOCK DO &IF FCB_PNTRS(.FILE_NUMBER.) <> NIL&  THEN ! BEGIN  OP_CODE := CLOSE_OPERATION;  ``,SVC$(FCB_PNTRS(.FILE_NUMBER.)@.FILE_CB);, IF STATUS_CODE <> 0   THEN  & KIF_STATUS_CODE := FILE_NOT_OPEN; & OP_CODE := RELEASE_LUNO;,SVC$(FCB_PNTRS(.FILE_NUMBER.)@.FILE_CB);, IF FILE_NUMBER <> 0   THEN  & DISPOSE(FCB_PNTRS(.FILE_NUMBER.));& KIF_RESERVED := 0;END; (* PNTR <> NIL *)(END  (* KI0001CLOSE *); MMON,  KIF_STATUS_BLOCK; (((*PROCEDURE *)( BEGIN (* KI0001CLOSE *)L$(**********************************************************************)L(**  KI0001CLOSE **)L$(**********************************************************************)L8 WITH KIF$COMMON, FCB_PNTRS(.FILE_NUMBER.)@.FILE_CB, 8 KIF_STATUS_BLOCK DO &IF FCB_PNTRS(.FILE_NUMBER.) <> NIL&  THEN ! BEGIN  `KI0012 `P  I+E`@ (*$ PAGE *) PROCEDURE KI0012REWRITE; (*"*) ((* MODULE NAME: KI0012REWRITE *)(F (* DESCRIPTIVE SENTENCE: REWRITE A KEYED INDEX FILE RECORD. *)F (*"*) D (* FULL DESCRIPTION:THIS MODULE REWRITES A RECORD THAT HAS*)DD(* BEEN PREVIOUSLY READ AND LOCKED (AND PERHAPS MODIFIED).*)D@(* THE LOCK CHARACTERISTICS FOR THE REWRITE OPERATION *)@D(* SPECIFIY DISPOSITION OF THE RECORD AFTER THE OPERATION *)D(* COMPLETES. *) (*"*) $(* DATE CREATED:  11/07/78 *)$( (* DATE IMPLEMENTED:  MM/DD/YY *)( (* TEST PROCEDURES: *)8(* DATE CHECKED OUT FOR MODIFICATION: MM/DD/YY *)8,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)& (* CC WEBB05/17/79 UNABLE ``*TO REWRITE RECORD AND CHANGE LENGTH *)*((*  RESET CHAR_COUNT ON REWRITE*)( (*"*) " (* PARAMETER DESCRIPTIONS:*)",(* VAR FILE_CONTROL_BLOCK:T_FCB; *), (*"*)  (* EXPECTED OUTPUT(S):*)4(*1)RETURN_CODE SET TO OPERATION RESULT *)4<(*2)A RECORD IN "BUFFER" IF RETURN_CODE IS ZERO.*)< (*"*)  (* ERROR CONDITIONS:*):(*1)THOSE DX10 ERRORS ASSOCIATED WITH THE SVC *):(*2)FILE NOT OPEN *) (* GLOBAL VARIABLES:*) (*"*) " (* REFERENCED PROCEDURES: *)"$(* SVC$ - TO ISSUE THE SVC *)$ (*"*) ( CONST $  REWRITE_RECORD  = #47; ((*VAR *)( ACCESS$  KIF_STATUS_BLOCK, KIF_BUFFER_NAME,KIF_COMMAND; (*PROCEDURE *)( BEGIN (* KI0012REWR`` ITE *) L$(**********************************************************************)L(** KI0012REWRITE  **)L$(**********************************************************************)L: WITH FILE_CONTROL_BLOCK, FILE_CONTROL_BLOCK.FILE_CB, : KIF_STATUS_BLOCK DO  BEGIN " (IF KIF_COMMAND = KIF_REWRITE_RECORD (THEN" USER_FG(.5.) := 0 ELSE" USER_FG(.5.) := 1; OP_CODE := REWRITE_RECORD;2DATA_BUFFER_ADDR := LOCATION(KIF_BUFFER_NAME);2 IF KIF_RECORD_LEN <> 0THEN" CHAR_CNT := KIF_RECORD_LEN;  IF ODD(CHAR_CNT)THEN" CHAR_CNT := CHAR_CNT + 1; SVC$(FILE_CB);END; (* WITH *) END; (* KI0012REWRITE *)ACCESS$  KIF_STATUS_BLOCK, KIF_BUFFER_NAME,KIF_COMMAND; (*PROCEDURE *)`KI0009 P8U+G@ (*$ PAGE *)  PROCEDURE KI0009OPEN;  (*"*) $(* MODULE NAME: KI0009OPEN*)$8 (* DESCRIPTIVE SENTENCE: OPEN KEY INDEXED FILE *)8 (*"*) B (* FULL DESCRIPTION:THIS MODULE OPENS THE SPECIFIED FILE*)BD(*AND MAKES SURE THAT IT IS A KEYED INDEX FILE. THE FILE *)DB(*CONTROL BLOCK AND CURRENCY BLOCK ARE ALLOCATED BY THIS*)B@(*MODULE. ENTRIES ARE MADE IN THE FCB_PNTRS TABLE AND*)@B(*THE KIF_RESERVED BYTE TO INDICATE THE FILE IS ACTIVE. *)BD(*IF THE OPEN FAILS OR THE FILE IS NOT KIF, THE 'NEW' AREA*)D*(*IS DEALLOCATED BY KI0001CLOSE.*)* (*"*) $(* DATE CREATED:  11/03/78 *)$( (* DATE IMPLEMENTED:  MM/DD/YY *)( (* TEST PROCEDURES: *)8(* DATE CHECKED OUT FOR MODIFICATION: MM/DD/YY *)8,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)&H(* SHEPARD 08/29/83  ADDED CHECK FOR TOO MANY FILES OPENED*)H (*"*) " (* PARAMETER DESCRIPTIONS:*)"(* NONE *) (*"*)  (* EXPECTED OUTPUT(S):*)8(*1)LUNO ASSIGNED TO THE FILE AND STORED IN *)8((* FILE_CB(.FILE_NUMBER.).LUNO *)(2(*2)THE FILE OPENED AND READY FOR USE *)28(*3)RETURN_CODE SET TO ZERO IF THE ABOVE HAS*)8(* HAPPENED CORRECTLY *)(* ELSE NON-ZERO *) (*"*)  (* ERROR CONDITIONS:*)*(*1)THOSE DX10 ERRORS ASSOCIATED WIT*H THE SVC'S *)*(*2) TOO MANY KIF FILES OPENED *)* (*"*)  (* GLOBAL VARIABLES:*)(*1)FILE_CB *) (*2)KIF_STATUS_BLOCK*) (" (* REFERENCED PROCEDURES: *)"0(*1)SVC$ - TO ISSUE THE SVC TO DX10 *)0:(*3)NEW - STANDARD FUNCTION TO ACQUIRE STORAGE*):4(* (USED TO ACQUIRE AN AREA FOR THE FILE'S *)4(*  CURRENCY BLOCK) *) (*"*) ( CONST $ ACCESS_PRIV_1  = 3; GENERATE_LUNO  = 5; LRL_FLAG = 8; BLANK_SUPPRESS = 12;EXPAND_ALLOC = 13;OPEN_OP  = #40; ASSG_LUNO_OP = #91; TYPE%.T_STR68 = PACKED ARRAY(.1..68.) OF CHAR; .(VAR %CNT :INTEGER; IND :INTEGER; ,FILE2 :PACKED ARRAY(.1..50.) OF CHAR; ,0PATH_NAME :PACKED ARRAY(.1..50.) OF CHAR; 0TEMP_STATUS :BYTE;(*COMMON*) ACCESS% KIF$COMMON,  KIF_STATUS_BLOCK,  FILE_CHARACTERISTICS; (8PROCEDURE FIND$SYN(VAR SYN, VAL : STRING); EXTERNAL; 8( BEGIN (* KI0009OPEN *) L$(**********************************************************************)L(**  KI0009OPEN  **)L$(**********************************************************************)L* WITH KIF$COMMON, KIF_STATUS_BLOCK DO *BEGIN (* COMMON *)(* (*ALLOCATE SLOT IN POINTER TABLE *) *IND := 1; "WHILE IND <= UB(FCB_PNTRS) AND" FCB_PNTRS(.IND.) <> NIL DO IND := IND + 1; IF IND > UB(FCB_PNTRS) THEN   BEGIN! . KIF_STATUS_CODE := TOO_MANY_FILES_OPENED;. ESCAPE KI0009OPEN;   END; !  NEW(FCB_PNTRS(.IND.));*KIF_STATUS_BLOCK.KIF_RESERVED := IND; *( WITH FCB_PNTRS(.IND.)@ DO   BEGIN(*WITH NEW PNTR *) ((* GET LUNO NUMBER *) (, FOR IDX := UB(KIF_PATHNAME) DOWNTO 1 DO,.PATH_NAME(.IDX+1.) := KIF_PATHNAME(.IDX.); . CNT := 0;, PATH_NAME(.UB(KIF_PATHNAME)+2.) := ' ';,( WHILE PATH_NAME(.CNT+2.) <> ' ' DO (CNT := CNT + 1;   PATH_NAME(.1.) := CHR(CNT); (" FILE2(.1.) := CHR(UB(FILE2));"  FIND$SYN(PATH_NAME,FILE2);  " WHILE ORD(FILE2(.1.)) <> 0 DO"*BEGIN (* RECURSIVE SYNONYM SEARCH *) * PATH_NAME := FILE2; "FILE2(.1.) := CHR(UB(FILE2)); " FIND$SYN(PATH_NAME,FILE2);(END;(* RECURSIVE SYNONYM SEARCH *) (( WITH FILE_CB DO (* WITH FILE_CB *)( BEGIN  "KI0005ZERO(FCB_PNTRS(.IND.)@);" OP_CODE := ASSG_LUNO_OP;*PATHNAME_ADDR := LOCATION(PATH_NAME); *&UTILITY_FG(.BLANK_SUPPRESS.) := 1;&&UTILITY_FG(.GENERATE_LUNO.) := 1; &$UTILITY_FG(.EXPAND_ALLOC.) := 1;$ UTILITY_FG(.LRL_FLAG.) := 1; (SVC$(FILE_CB);(( IF STATUS_CODE = 0  THEN   BEGIN  (* OPEN FILE *) USER_FG :: BYTE := 0; 2 USER_FG(.ACCESS_PRIV_1.) := 1;(* SHARE FILE *)2 OP_CODE := OPEN_OP; ( SVC$(FILE_CB);( IF STATUS_CODE = 0  THEN  BEGIN  & KI0010GET_CHAR(FCB_PNTRS(.IND.)@, && FILE_CHARACTERISTICS:: T_STR68); & DEF_LOG_REC_LEN :=& FILE_CHARACTERISTICS.LOG_REC_LNG;& FOR I := 1 TO 14 DO "  BEGIN (* SET UP KEY MAP *) " KEY_MAP(.I.).KEY_LEN :=0  FILE_CHARACTERISTICS.KEY_INFO(.I.).KEY_LNG;0 KEY_MAP(.I.).KEY_DISPL :=4  FILE_CHARACTERISTICS.KEY_INFO(.I.).KEY_OFFSET; 4"  END;  (* SET UP KEY MAP *) " END  (* STATUS = 0 *) &  ELSE  (* FILE HAS NOT OPENED *) & BEGIN  TEMP_STATUS := STATUS_CODE;   KI0001CLOSE(IND); $ KIF_STATUS_CODE := TEMP_STATUS; $$ END; (* FILE HAS NOT OPENED *) $ END  (* OPEN FILE *)$ ELSE  (* LUNO NOT ASSIGNED *) $ BEGIN  TEMP_STATUS := STATUS_CODE;   KI0001CLOSE(IND); $ KIF_STATUS_CODE := TEMP_STATUS; $" END; (* LUNO NOT ASSIGNED *) " END;(* WITH FILE_CB *)  END;(* WITH NEW PNTR *)  END; (* COMMON *)(END  (* KI0009OPEN *); .S$BTLF1111$$STOFFTTYY KI0004 `P  ?+I`@ (*$ PAGE *),PROCEDURE KI0004SET_CURRENT;(*$ MAP *), (*"*) ,(* MODULE NAME:  KI0004SET_CURRENT *),: (* DESCRIPTIVE SENTENCE: RESET CURRENCY POINTER. *): (*"*) B (* FULL DESCRIPTION: THIS MODULE SETS THE CURRENCY BLOCK*)B@(*POINTERS TO THE RECORD SPECIFIED BY THE KEY AND THE *)@2(*SPECIFIC OPERATION. THE OPTIONS ARE: *)2(*1)SET EQUAL *)*(*2) SET GREATER THAN OR EQUAL *)*(*3)SET GREATER *) (*"*) "(* DATE CREATED:11/07/78*)"( (* DATE IMPLEMENTED:  MM/DD/YY *)( (* TEST PROCEDURES: *)8(* DATE CHECKED OUT FOR MODIFICATION: MM/DD/YY *)8,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)& (*"*)  (* PARAMETER DESCRIPTI`` ONS:*) ,(* VAR FILE_CONTROL_BLOCK :T_FCB; *), (* EXPECTED OUTPUT(S):*) (* ERROR CONDITIONS:*) (* GLOBAL VARIABLES:*)" (* REFERENCED PROCEDURES: *)" (*"*) CONST $ SET_EQUAL  = #50; SET_GR_OR_EQ = #51; SET_GREATER  = #52;  ACCESS$ KIF_COMMAND, KIF_KEYNAME,  KIF_STATUS_BLOCK; ((*PROCEDURE *)("BEGIN (* KI0004SET_CURRENT *)"L$(**********************************************************************)L"(**  KI0004SET_CURRENT  **)"L$(**********************************************************************)LH" WITH FILE_CONTROL_BLOCK.FILE_CB, FILE_CONTROL_BLOCK.CURRENCY_BLOCK,H KIF_STATUS_BLOCK DO  BEGIN# , IF KIF_COMMAND = KIF_SET_CURRENT_EQUAL ,  THEN "  OP_CODE `` := SET_EQUAL   ELSE " . IF KIF_COMMAND = KIF_SET_CURRENT_GR_OR_EQ.  THEN  OP_CODE := SET_GR_OR_EQ  ELSE  OP_CODE := SET_GREATER;( COMPLETION_CODE := UB(KIF_KEYNAME);(" KEY_NUMBER := KIF_KEY_NUMBER;"* KEY_ADDRESS := LOCATION(KIF_KEYNAME);*& SVC$(FILE_CONTROL_BLOCK.FILE_CB);& END(* WITH *)("END  (* KI0004SET_GE_KEY *);"CK; ((*PROCEDURE *)("BEGIN (* KI0004SET_CURRENT *)"L$(**********************************************************************)L"(**  KI0004SET_CURRENT  **)"L$(**********************************************************************)LH" WITH FILE_CONTROL_BLOCK.FILE_CB, FILE_CONTROL_BLOCK.CURRENCY_BLOCK,H KIF_STATUS_BLOCK DO  BEGIN# ( IF KIF_COMMAND = KIF_SET_CURRENT_EQUA(` KIFTST P*q+L@&(*&FILL- *)  (*$ MAP,WIDELIST *)&PROGRAM KIFTST;  (*"*) (* MODULE NAME: KIFTST *) F (* DESCRIPTIVE SENTENCE: KEY INDEX FILE HANDLERTEST PROGRAM*)F (*"*) H (* FULL DESCRIPTION: THIS PROGRAM PROVIDES THE TEST BED FOR THE *)HB(*KEYED INDEX FILE HANDLING ROUTINES. IT TAKES AS INPUT*)BH(*THE FILE ASSOCIATED WITH THE SYNONYM 'KIFCMD' AND PROCESSES *)H*(*EACH LINE AS A COMMAND STREAM.*)* (*"*)  (* TEST PROCEDURES: *)$(* FORMAT OF INPUT STREAM *)$2(*NNOP CODE NUMBER ( 0 < VALUE < 30 ) *)2(*(B) (1 BLANK) *)6(*NAMEKEY NAME TO BE USED (MAX OF 10 CHAR)*)6(*(B) (1 BLANK) *):(*NAMEKIF FILE TO BE ACCESSED (MAX OF 30 CHAR)*):(*(B) (1 BLANK) *).(*NNKEY NUMBER ( 0 < VALUE < 15 ) *).(*(B) (1 BLANK) *)4(*NNRECORD LENGTH ( 0 <= VALUE < ???? ) *)4(*(B) (1 BLANK) *).(*NNACCESS CODE ( 0 <= VALUE < 3) *).(* COMMENTS*)D(* IF OP CODE IS 19, 20 OR 21, THE NEXT RECORD IS ASSUMED *)D,(* TO BE THE RECORD TO BE WRITTEN *), (*"*)  (*PARAMETERS: NONE *) (*"*)  (* EXPECTED OUTPUT(S):*)$(* KEY INDEX I/O FUNCTIONS *)$:(*SUMMARY OF EACH OPERATION PERFORMED, INCLUDING *): (* 1) KIF STATUS CODE*) (* 2) KEY NUMBER *)(* 3) KIF ACCESS *)(* 4) KIF RESERVED *)(* 5 ) KIF RECORD LENGTH*)(* 6) PATHNAME *)(* 7) KEYNAME*)4(* 8) BUFFER MOST RECEINTLY WRITTEN/READ. *)4 (* ERROR CONDITIONS:*)"(* TEXT-FILE I/O ERRORS *)" (* GLOBAL VARIABLES:*)" (* REFERENCED PROCEDURES: *)"(* KEY$FILE *)( CONST % .(************* KIF CONSTANTS ***********) .2(*COMMAND  CODE  OPERATION  SVC ISSUED *)2L$(*====================================================================*)L:KIF_INIT= 01; (* INITIALIZE KEYED INDEX FILE--*): (* HANDLER FUNCTION. *)(:KIF_TERM= 02; (* TERMINATE KEYED INDEX FILE --*):(* HANDLER. *)(4KIF_OPEN= 03; (* OPENS SPECIFIED FILE.40*)4(8KIF_CLOSE = 04; (* CLOSES SPECIFIED FILE. 01*)8(F KIF_READ_FILE_CHAR= 05; (* RETURNS FILE CHARACTERISTICS 05*)F (* IN KIF_BUFFER_NAME. *)(>KIF_SET_ACCESS= 06; (* SETS FILE ACCESS TO STATE11*)>&(* SPECIFIED IN STATUS BLOCK. *)&(DKIF_READ_GREATER= 07; (* THE KIF RECORD WHICH HAS THE 41*)D((* NEXT VALUE GREATER THAN THAT *)(((* OF THE KEY SPECIFIED IS READ *)(  (* INTO KIF_BUFFER_NAME.*) (FKIF_READ_GREATER_LOCKED = 08; (* SAME AS KIF_READ_GREATER 41*)F((* EXCEPT RECORD IS LOCKED AFTER*)( (* A SUCCESSFUL READ. *)(BKIF_READ_BY_KEY = 09; (* THE KIF RECORD SPECIFIED BY42*)B$(* KIF_KEY_NAME IS READ INTO*)$@ (* KIF_BUFFER_NAME. *)(D KIF_READ_BY_KEY_LOCKED= 10; (* SAME AS KIF_READ_BY_KEY42*)D((* EXCEPT RECORD IS LOCKED AFTER*)( (* A SUCCESSFUL READ. *)(>KIF_READ_CURRENT= 11; (* SAME AS KIF_READ_BY_KEY42*)>&(* EXCEPT THAT POINTER SET BY *)&$(* SET CURRENCY COMMANDS IS *)$((* USED INSTEAD OF KIF_KEY_NAME *)((FKIF_READ_CURRENT_LOCKED = 12; (* SAME AS KIF_READ_CURRENT 42*)F((* EXCEPT RECORD IS LOCKED AFTER*)( (* SUCCESSFUL READ. *)(B KIF_READ_GR_OR_EQ = 15; (* SAME AS KIF_READ_GREATER 44*)B&(* EXCEPT THAT RECORD SELECTED*)&&(* WILL BE EQUAL TO OR GREATER*)& (* THAN KIF_KEY_NAME. *)(FKIF_READ_GR_OR_EQ_LOCKED= 16; (* SAME AS KIF_READ_GR_OR_EQ44*)F((* EXCEPT RECORD IS LOCKED AFTER*)( (* A SUCCESSFUL READ. *)(>KIF_READ_NEXT = 17; (* READS THE NEXT SEQUENTIAL45*)>&(* RECORD AS INDICATED BY THE *)& (* CURRENCY POINTERS. *)(@ KIF_READ_NEXT_LOCKED= 18; (* SAME AS KIF_READ_NEXT45*)@((* EXCEPT RECORD IS LOCKED AFTER*)( (* A SUCCESSFUL READ. *)(D KIF_INSERT_RECORD = 19; (* RECORD SPECIFIED BY KEYNAME46*)D$(* WILL BE WRITTEN INTO FILE*)$  (* USING THE CONTENTS OF*)  (* KIF_BUFFER_NAME. *)(F KIF_REWRITE_RECORD= 20; (* REPLACES THE RECORD PREVIOUSLY 47*)F$(* READ AND LOCKED WITH THE *)$(* CONTENTS OF KIF_BUFFER_NA ME. *) (H KIF_REWRITE_REC_UNLOCK= 21; (* SAME AS KIF_REWRITE_RECORD 47*)H$(* EXCEPT THAT THE RECORD IS*)$&(* UNLOCKED AT THE COMPLETION *)& (* OF THE COMMAND. *)(B KIF_READ_PREVIOUS = 22; (* SAME AS KIF_READ_GREATER 48*)B&(* EXCEPT THAT RECORD ACCESSED*)&&(* HAS A KEY-VALUE JUST BEFORE*)&$(* THE ONE SPECIFIED BY THE *)$ (* CURRENCY POINTERS. *)(FKIF_READ_PREVIOUS_LOCKED= 23; (* SAME AS KIF_READ_PREVIOUS48*)F((* EXCEPT RECORD IS LOCKED AFTER*)( (* A SUCCESSFUL READ. *)(D KIF_DELETE_BY_KEY = 24; (* DELETES RECORD SPECIFIED BY49*)D(* KIF_KEY_NAME. *)(H KIF_DELETE_CURRENT_REC= 25; (* DELETES RECORD SPECIFIED BY49*)H" (* THE CURRENCY POINTERS. *)"(D KIF_UNLOCK_RECORD = 26; (* UNLOCKS RECORD SPECIFIED BY4A*)D" (* THE CURRENCY POINTERS. *)"(J KIF_SET_CURRENT_EQUAL = 27; (* SETS CURRENCY POINTERS TO THE50*)J((* RECORD SPECIFIED BY KIF_KEY_ *)((* NAME.*)(JKIF_SET_CURRENT_GR_OR_EQ= 28; (* SETS CURRENCY POINTERS AT OR 51*)J((* PAST THE RECORD SPECIFIED BY *)((* KIF_KEY_NAME. *)(HKIF_SET_CURRENT_GREATER = 29; (* SETS THE CURRENCY POINTERS 52*)H((* PAST THE RECORD SPECIFIED BY *)((* KIF_KEY_NAME. *)F KIF_READ_PRIMARY_KEY= 30; (* FASTER THAN KIF_READ_BY_KEY43*)F&(* BUT ONLY KEY 1 MAY BE USED.*)& (* READ NE  XT OR PREVIOUS RETURN *) (* DUPLICATE KEYS. *)JKIF_READ_PRIMARY_LOCKED = 31; (* SAME AS KIF_READ_PRIMARY_KEY 43*)J((* EXCEPT RECORD IS LOCKED AFTER*)( (* SUCCESSFUL REQD. *)(TYPE& BYTE =0..255; ( T_KIF_STATUS_BLOCK = PACKED RECORD (KIF_STATUS_CODE :BYTE;KIF_KEY_NUMBER:BYTE;KIF_ACCESS:BYTE;KIF_RESERVED:BYTE;KIF_RECORD_LEN:INTEGER; 2KIF_PATHNAME:PACKED ARRAY(.1..30.) OF CHAR; 2"END; (* T_KIF_STATUS_BLOCK *) "L$(**********************************************************************)LVAR &L$(**********************************************************************)L BUFF_LEN  :INTEGER; I  :INTEGER; INTEGER_INPUT :INTEGER; CHAR_INPUT  :CHAR;  KIFCMD  :TEXT;  CMD_INPUT :INTEGER;2 KIF_BUFF  :PACKED ARRAY (.1..80.) OF CHAR; 22 KEY_NAME  :PACKED ARRAY (.1..10.) OF CHAR; 2. KIF_STATUS_BLOCK  :T_KIF_STATUS_BLOCK; .( PROCEDURE KEY$FILE  (KIF_COMMAND :INTEGER;  4VAR KIF_KEYNAME :PACKED ARRAY(.1..?.) OF CHAR; 48 VAR KIF_BUFFER_NAME :PACKED ARRAY(.1..?.) OF CHAR; 8: VAR KIF_STATUS_BLOCK:T_KIF_STATUS_BLOCK); FORWARD; :( BEGIN (* KIFTST *) L$(**********************************************************************)L(** KIFTST **)L$(**********************************************************************)L RESET (KIFCMD); WHILE NOT EOF(KIFCMD) DO  BEGIN " 0(************ GET COMMAND *****************)0&READ(KIFCMD,CMD_INPUT,CHAR_INPUT);&6WHILE CHAR_INPUT = ' ' DO READ(KIFCMD,CHAR_INPUT); 60(************* READ KEY NAME **************)0 I := 1; !  WHILE NOT EOLN(KIFCMD) AND I <= UB(KEY_NAME) AND CHAR_INPUT <> ' ' DO   BEGIN! " KEY_NAME(.I.) := CHAR_INPUT; " I := I+1; READ(KIFCMD,CHAR_INPUT);   END;  (* WHILE NOT EOLN *)  IF I <= UB(KEY_NAME) THEN & FOR INDX := I TO UB(KEY_NAME) DO & KEY_NAME(.INDX.) := ' ';6(****************READ PATHNAME *****************) 6 I := 1; !  CHAR_INPUT := 'X'; WHILE NOT EOLN(KIFCMD) AND0 I <= UB(KIF_STATUS_BLOCK.KIF_PATHNAME) AND 0 CHAR_INPUT <> ' ' DO   BEGIN!  READ(KIFCMD,CHAR_INPUT); 6 KIF_STATUS_BLOCK.KIF_PATHNAME(.I.) := CHAR_INPUT; 6 I := I+1;  END;  (* WHILE NOT EOLN *) 2IF I <= UB(KIF_STATUS_BLOCK.KIF_PATHNAME) THEN2: FOR INDX := I TO UB(KIF_STATUS_BLOCK.KIF_PATHNAME) DO :2KIF_STATUS_BLOCK.KIF_PATHNAME(.INDX.) := ' '; 2(8(****************** READ KEY NUMBER ***************)8 READ(KIFCMD,INTEGER_INPUT);  6KIF_STATUS_BLOCK.KIF_KEY_NUMBER := INTEGER_INPUT; 6(8(***************** READ RECORD LENGTH *************)8 READ(KIFCMD,INTEGER_INPUT);  6KIF_STATUS_BLOCK.KIF_RECORD_LEN := INTEGER_INPUT; 6($(**************** READ ACCESS CODE$ *******************) "READLN(KIFCMD,INTEGER_INPUT); "2KIF_STATUS_BLOCK.KIF_ACCESS := INTEGER_INPUT; 2(<(**************** CHECK FOR NEXT RECORD=BUFFER ********) < CASE CMD_INPUT OF  KIF_INSERT_RECORD,  KIF_REWRITE_RECORD,@ KIF_REWRITE_REC_UNLOCK: BEGIN(* READ NEXT LINE AS BUFF *)@ READLN(KIFCMD,KIF_BUFF);  END;  (* READ BUFFER *)  OTHERWISE FOR I:= 1 TO UB(KIF_BUFF) DO  KIF_BUFF(.I.) := ' '; END;  (* CASE *) (H"(********************* CALL KEYED INDEX FILE HANDLER *************) HBUFF_LEN := 80; <WRITELN('***************PROCESSING COMMAND:',CMD_INPUT); <(<KEY$FILE (CMD_INPUT,KEY_NAME,KIF_BUFF,KIF_STATUS_BLOCK);<(>WRITELN('***************AFTER CALL*********************');>F!WRITELN('KIF STATUS CODE: ',KIF_STATUS_BLOCK.KIF_STATUS_CODE HEX);FD WRITELN('KEY NUMBER : ',KIF_STATUS_BLOCK.KIF_KEY_NUMBER HEX); D@ WRITELN('KIF ACCESS : ',KIF_STATUS_BLOCK.KIF_ACCESS HEX); @D WRITELN('KIF RESERVED : ',KIF_STATUS_BLOCK.KIF_RESERVED HEX); DD WRITELN('KIF REC LEN: ',KIF_STATUS_BLOCK.KIF_RECORD_LEN HEX); D< WRITELN('PATHNAME : ',KIF_STATUS_BLOCK.KIF_PATHNAME); <& WRITELN('KEY NAME : ',KEY_NAME);& WRITELN('BUFFER:');  FOR I := 1 TO BUFF_LEN DO  WRITE(KIF_BUFF(.I.)); .WRITELN;(* WRITE FULL KIF FILE BUFFER *) .  END;  (* WHILE NOT EOF *) END. (* KIFTST *) ;$xWzP|; KI0007 `PI 0$+N`@ (*$ PAGE *)( PROCEDURE KI0007DELETE; (*$ MAP *)( (*"*) &(* MODULE NAME: KI0007DELETE*)&H (* DESCRIPTIVE SENTENCE: DELETE RECORD FROM KEY INDEXED FILE. *)H (*"*) D (* FULL DESCRIPTION:BUILDS THE CONTROL BLOCK FOR A DELETE.*)DB(*SETS BIT TO INDICATE CURRENT OR BY KEY AND ISSUES SVC.*)B (*"*) $(* DATE CREATED:  11/06/78 *)$( (* DATE IMPLEMENTED:  MM/DD/YY *)( (* TEST PROCEDURES: *)8(* DATE CHECKED OUT FOR MODIFICATION: MM/DD/YY *)8,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)& (*"*) " (* PARAMETER DESCRIPTIONS:*)".(* VAR FILE_CONTROL_BLOCK  :T_FCB; *).$ (* EXPECTED OUTPUT(S):NONE*)$" (* ERROR CONDITIONS:NONE*)" (* GLOBA ``0L VARIABLES: KIF_COMMAND, KIF_KEYNAME, *)0,(* KIF_STATUS_BLOCK.KIF_KEY_NUMBER *),((* REFERENCED PROCEDURES: SVC$ *)( (*"*) CONST $ DELETE_BY_KEY_OP = #49;  ACCESS$ KIF_COMMAND, KIF_KEYNAME,  KIF_STATUS_BLOCK; ( BEGIN (* KI0007DELETE *) < WITH FILE_CONTROL_BLOCK, FILE_CONTROL_BLOCK.FILE_CB DO < BEGIN # OP_CODE := DELETE_BY_KEY_OP; &IF KIF_COMMAND = KIF_DELETE_BY_KEY&THEN#"USER_FG(.KEY_SPECIFIED.) := 1 "ELSE#"USER_FG(.KEY_SPECIFIED.) := 0;"BCURRENCY_BLOCK.KEY_NUMBER := KIF_STATUS_BLOCK.KIF_KEY_NUMBER; B8CURRENCY_BLOCK.KEY_ADDRESS := LOCATION(KIF_KEYNAME); 8SVC$(FILE_CB);END; (* WITH *) (END  (* KI0007DELETE *);.$ (* EXPECTED OUTPUT(S):NONE*)$ (* ERROR C `KI0002 `P O J+P`*PROCEDURE KI0002GET_KEYVAL; (*$ MAP *)* (*"*) ((* MODULE NAME: KI0002GET_KEYVAL*)(B(* DESCRIPTIVE SENTENCE: RETURNS THE VALUE OF THE KEY FROM*)B"(* THE SPECIFIED RECORD.*)" (* FULL DESCRIPTION:*) (*"*) (*"*) "(* DATE CREATED:12/27/78*)"& (* DATE IMPLEMENTED:MM/DD/YY*)& (* PARMS REQUIRED: :*)>(*FILE CONTROL_BLOCK : FILE INFORMATION AND SVC CALL*)>((* BLOCKS FOR SPECIFIED FILE. *)( (* EXPECTED OUTPUT(S):*)(*VALUE OF KEY" (* REFERENCED PROCEDURES: *)" (*"*)  CONST$ READ_CURRENT = #42; READ_NEXT  = #45;  READ_PREVIOUS = #48; ( VAR%DISPL : INTEGER;LENGTH: INTEGER;(  ACCESS # KIF$COMMON, KIF_BUFFER_NAME,KIF_COMMAND,``@KIF_KEYNAME, KIF_STATUS_BLOCK;  (*$ PAGE *)$BEGIN  (* KI0002GET_KEYVAL *) $L$(**********************************************************************)L"(**  KI0002GET_KEYVAL  **)"L$(**********************************************************************)L8 WITH KIF_STATUS_BLOCK, FILE_CONTROL_BLOCK.FILE_CB, 8 FILE_CONTROL_BLOCK DO *BEGIN  (* READ RECORD INTO BUFFER *)*(IF KIF_COMMAND = KIF_GET_CURR_KEYVAL(  THEN !  OP_CODE := READ_CURRENT   ELSE !  OP_CODE := READ_NEXT;  USER_FG :: BYTE := 0; 2DATA_BUFFER_ADDR := LOCATION(KIF_BUFFER_NAME);2(LOG_REC_LEN := UB(KIF_BUFFER_NAME); (0CURRENCY_BLOCK.KEY_NUMBER := KIF_KEY_NUMBER;0SVC$(FILE_CB);0LENGTH := KEY_MAP(.KIF_KEY_NUMBER.).KEY_LEN;0DISPL := KEY_MAP(.KIF_KEY_N`` UMBER.).KEY_DISPL;$(* BLANK OUT PREV KEYNAME *)$$FOR I := 1 TO UB(KIF_KEYNAME) DO$ KIF_KEYNAME(.I.) := ' ';&(* CALCULATE LENGTH OF MOVE *)& IF UB(KIF_KEYNAME) < LENGTH  THEN" LENGTH := UB(KIF_KEYNAME); WHILE LENGTH > 0 DO "BEGIN (* MOVE IN KEY VALUE *) "@KIF_KEYNAME(.LENGTH.) := KIF_BUFFER_NAME(.LENGTH + DISPL.); @ LENGTH := LENGTH - 1; "END; (* MOVE IN KEY VALUE *) " IF OP_CODE = READ_NEXTTHEN".BEGIN (* CORRECT THE CURRENCY POINTERS *). OP_CODE := READ_PREVIOUS; SVC$(FILE_CB);.END; (* CORRECT THE CURRENCY POINTERS *).END;(* END WITH *)("END; (* KI0002GET_KEYVAL *) "(0CURRENCY_BLOCK.KEY_NUMBER := KIF_KEY_NUMBER;0SVC$(FILE_CB);,LENGTH := KEY_MAP(.KIF_KEY_NUMBER.).KEY_LE,` KIFCNST PX&+S(L$(**********************************************************************)L (*"*) ((* KEY INDEX FILE COMMAND CONST *)( (*"*) L$(**********************************************************************)L(KIF_INIT= 01; KIF_TERM= 02; KIF_OPEN= 03; KIF_CLOSE = 04;  KIF_READ_FILE_CHAR= 05; KIF_SET_ACCESS= 06; KIF_READ_GREATER= 07; "KIF_READ_GREATER_LOCKED = 08; "KIF_READ_BY_KEY = 09; " KIF_READ_BY_KEY_LOCKED= 10; "KIF_READ_CURRENT= 11; "KIF_READ_CURRENT_LOCKED = 12; " KIF_READ_GR_OR_EQ = 15; "KIF_READ_GR_OR_EQ_LOCKED= 16; "KIF_READ_NEXT = 17;  KIF_READ_NEXT_LOCKED= 18;   KIF_INSERT_RECORD = 19;  KIF_REWRITE_RECORD= 20; " KIF_REWRITE_REC_UNLOCK= 21; " KIF_READ_PREVIOUS = 22; "KIF_READ_PREVIOUS_LOCKED= 23; " KIF_DELETE_BY_KEY = 24; " KIF_DELETE_CURRENT_REC= 25; " KIF_UNLOCK_RECORD = 26; " KIF_SET_CURRENT_EQUAL = 27; ""KIF_SET_CURRENT_GR_OR_EQ= 28; ""KIF_SET_CURRENT_GREATER = 29; " KIF_READ_PRIMARY_KEY= 30;  "KIF_READ_PRIMARY_LOCKED = 31; "(BCB C:B B&B@BB-BCDApBB&B@B 7FHH#C B CBB,BBCBPAB B CB C`B BB&B@B CB4A7FH*B C4B CB BB@B CB B`C\7F*>:  PRT$MEM 06/22/81 14:44:48  DXPSCL  1.7.0 81.091 >SHRPROC P$B`CB4BdBB0BiB0BUB*BB*$PROCES `P^ +V`@H#VERSION1 00 10/26/79 00 13:47:04 000E 0000 0000 0000 0000 00 00 00 00 H: 01 PROCESS 00  0001 0001 0000 0001 0000 02 80 00 00 :BKIFTST 01 KIFTST 00  0002 0000 0000 0002 0000 02 80 00 00 BB KEY$FILE 01 KEY$FILE 00  0000 0003 0001 0003 0000 02 80 00 00 BB KI0001CL 01 KI0001CL 00  0000 0005 0002 0000 0005 02 80 00 00 B4 00  00  0000 0000 0000 0000 0000 02 80 00 00 4B KI0003IN 01 KI0003IN 00  0000 0006 0002 0000 0006 02 80 00 00 BB KI0004SE 01 KI0004SE 00  0000 0007 0002 0000 0007 02 80 00 00 BB KI0005ZE 01 KI0005ZE 00  0000 0008 0002 0000 0008 02 80 00 00 BB KI0006SE 01 KI0006SE 00  0000 0009 0002 0000 0009 02 80 00 00 BB KI0007DE 01 KI0007DE 00  0000 000A 0002 0000 000A 02 80 00 00 BB KI0008RE 01 KI0008RE 00  0000 000B 0002 0000 000B 02 80 00 00 B" KI0009OP 01 KI0009OP 00  0000 "``"000C 0002 0000 000C 02 80 00 00 "B KI0010GE 01 KI0010GE 00  0000 000D 0002 0000 000D 02 80 00 00 BB KI0011UN 01 KI0011UN 00  0000 000E 0002 0000 000E 02 80 00 00 BB KI0012RE 01 KI0012RE 00  0000 0000 0002 0000 0000 02 80 00 00 BHLIBTBL 00 00000000 00 00000000 0004 0000 0000 0000 0000 00 00 00 00 HHMASTER 00 00000000 00 00000000 0000 0000 0000 0000 0000 00 00 00 00 HH#LIBRARY 00 00000000 00 00000000 0000 0000 0000 0000 0000 00 00 00 00 HHOBJLIB 00 00000000 00 00000000 0000 0000 0000 0000 0000 00 00 00 00 HHALTOBJ 00 00000000 00 00000000 0000 0000 0000 0000 0000 00 00 00 00 HH#FLAGTBL 00 00000000 00 00000000 0000 0000 0000 0000 0000 00 00 00 00 H 00  0000 000A 0002 0000 000A 02 80 00 00 BB KI0008RE 01 KI0008RE 00  0000 000B 0002 0000 000B 02 80 00 00 B" KI0009OP 01 KI0009OP 00  0000 "`KI0011 `Pd /+X`@(*$PAGE *)( PROCEDURE KI0011UNLOCK; (*$ MAP *)( (*"*) &(* MODULE NAME: KI0011UNLOCK*)&: (* DESCRIPTIVE SENTENCE: UNLOCK CURRENT RECORD. *): (*"*) F (* FULL DESCRIPTION:THIS MODULE UNLOCKS THE RECORD SPECIFIED*)F$(* BY THE CURRENCY BLOCK. *)$ (*"*) (*"*) (*"*) $(* DATE CREATED: 11/06/78 *)$( (* DATE IMPLEMENTED:  MM/DD/YY *)( (* TEST PROCEDURES: *)8(* DATE CHECKED OUT FOR MODIFICATION: MM/DD/YY *)8,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)& (*"*) " (* PARAMETER DESCRIPTIONS:*)"0(* VAR FILE_CONTROL_BLOCK  : T_FCB; *)0 (*"*)  (* EXPECTED OUTPUT(S):*) (* ERROR CONDITIONS:*) (* GLOBAL VARIABLES:``*)" (* REFERENCED PROCEDURES: *)"(*CONST *)  CONST$ UNLOCK_RECORD =#4A; (*COMMON*)( ACCESS$  KIF_STATUS_BLOCK;(*PROCEDURE *)( BEGIN (* KI0011UNLOCK *) L$(**********************************************************************)L(**  KI0011UNLOCK  **)L$(**********************************************************************)L  WITH FILE_CONTROL_BLOCK DO   BEGIN# & FILE_CB.OP_CODE := UNLOCK_RECORD;&B CURRENCY_BLOCK.KEY_NUMBER := KIF_STATUS_BLOCK.KIF_KEY_NUMBER;B SVC$(FILE_CB);  END; (* COMMON *)END  (* KI0011UNLOCK *); (*"*) " (* PARAMETER DESCRIPTIONS:*)"0(* VAR FILE_CONTROL_BLOCK  : T_FCB; *)0 (*"*)  (* EXPECTED OUTPUT(S):*) (* ERROR CONDITION`KI0005 `P j @2+Z` (*$ PAGE *) PROCEDURE KI0005ZERO;  (*"*) &(* MODULE NAME: KI0005ZERO*) *&D (* DESCRIPTIVE SENTENCE: ZERO OUT FILE_CB FOR SVC COMMANDS*)D (*"*)  (* FULL DESCRIPTION:*) (*"*) (*"*) (*"*) (*"*) $(* DATE CREATED:  11/03/78 *)$( (* DATE IMPLEMENTED:  MM/DD/YY *)( (* TEST PROCEDURES: *)8(* DATE CHECKED OUT FOR MODIFICATION: MM/DD/YY *)8,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)&6(*R.E.B 09/22/78 SCV_CODE CHANGE TO ARRAY *)60(* PARAMETER DESCRIPTIONS:NO PARAMETERS.*)0 (* EXPECTED OUTPUT(S):*)*(* INITIALIZED FILE CONTROL BLOCK*)* (*"*) $ (* ERROR CONDITIONS:NONE. *)$ (* GLOBAL VARIABLES:*) ``@((* FILE_CB - FILE CONTROL BLOCK *)(&(* REFERENCED PROCEDURES:NONE.*)&((*CONST *)(*VAR *)(*COMMON*) ACCESS% KIF$COMMON; (*PROCEDURE *)( BEGIN (* KI0005ZERO *) L$(**********************************************************************)L(** KI0005ZERO **)L$(**********************************************************************)L  WITH FILE_CONTROL_BLOCK DO  BEGIN " WITH FILE_CB DO   BEGIN!  SVC_CODE  := 0; LUNO  := 0; SYSTEM_FG := 0; USER_FG :: BYTE := 0; DATA_BUFFER_ADDR  := 0; LOG_REC_LEN := 0; CHAR_CNT  := 0;@ CURR_BLOCK_ADDR::INTEGER := LOCATION(FILE_CONTROL_BLOCK) +@SIZE(T_FILE_CB);  FGFILL6 := 0; UTILITY_FG :: INTEGER``  := 0;  DEF_LOG_REC_LEN := 0; DEF_PHY_REC_LEN := 0; PASSCODE_ADDR := 0; FGFILL7 := 0; INITIAL_ALLOC := 0; SECOND_ALLOC  := 0; END; (* WITH FILE_CB *)( END; (* WITH FILE_CONTROL_BLOCK *) (END  (* KI0005ZERO *);*****************)L(** KI0005ZERO **)L$(**********************************************************************)L  WITH FILE_CONTROL_BLOCK DO  BEGIN " WITH FILE_CB DO   BEGIN!  SVC_CODE  := 0; LUNO  := 0; SYSTEM_FG := 0; USER_FG :: BYTE := 0; DATA_BUFFER_ADDR  := 0; LOG_REC_LEN := 0; CHAR_CNT  := 0;@ CURR_BLOCK_ADDR::INTEGER := LOCATION(FILE_CONTROL_BLOCK) +@SIZE(T_FILE_CB);  FGFILL6 := 0; UTILITY_FG :: INTEGER`KEY$FI P$s$/+\@ PROCEDURE KEY$FILE;  (*$ MAP,GLOBALS *)L$(*====================================================================*)L (*"*) "(* MODULE NAME: KEY$FILE*)"J (* DESCRIPTIVE SENTENCE: MULTIPLE FILE, KEYED INDEX FILE HANDLER*)J (*"*) H (* FULL DESCRIPTION:THIS ROUTINE PROVIDES A SIMPLIFIED METHOD *)HF(*OF ACCESSING KEYED INDEX FILES ON THE 990.IT IS CAPABLE *)FB(*OF HANDLING UP TO 255 OPENED FILES. THIS VERSION HAS A*)B2(*LIMIT OF 16 FILES OPENED AT ONE TIME. *)2 (*"*) (*"*) (*"*) $(* DATE CREATED:  11/02/78 *)$( (* DATE IMPLEMENTED:  MM/DD/YY *)(F (* TEST PROCEDURES: KIFTST PROVIDES THE TEST ENVIRONMENT FOR*)F(*THIS ROUTINE. *)8(* DATE CHECKED OUT FOR MODIFICATION: MM/DD/YY *)8,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)& (*"*) " (*PARAMETER DESCRIPTIONS:*)"8(*1)KIF_COMMAND, OPERATION TO BE PERFORMED *)8,(*3)KIF_KEYNAME,KEY TO BE USED *),D(*5)KIF_BUFFER_NAME BUFFER FOR RECORD TO BE PROCESSED *)D4(*6)KIF_STATUS_BLOCK USER CONTROL BLOCK *)4 (* EXPECTED OUTPUT(S):*)< (* ERROR CONDITIONS:SEE KIF ERROR CODES IN CONST *)<" (* GLOBAL VARIABLES:NONE*)"" (* REFERENCED PROCEDURES: *)"(*KI0001CLOSE *)(*KI0003INSERT*)(* KI0004SET_CURRENT *) (*KI00 06SET_ACCESS*)(*KI0007DELETE*)(*KI0008READ*)(*KI0009OPEN*)(*KI0010GET_CHAR*)(*KI0012REWRITE *) (*"*) CONST $ FIVE_DIG = 5; INITIATE_IO  = 0; LOCK_UNLOCK  = 5; KEY_SPECIFIED  = 1; DO_NOT_REPLACE = 5;  ?COPY MASTER.KIFCNST (* KIF ERROR CODES *)FILE_NOT_OPEN  = #F0; FILE_NOT_KIF = #F1; " KIF_COMMAND_INVALID  = #F2; "FILE_NOT_FOUND = #F3; " BUFFER_SIZE_INVALID  = #F4; "  KIF_ACCESS_INVALID = #F5;  "TOO_MANY_FILES_OPENED = #F6; "(&  (* INFORMATION CODES FROM DX10 *)&((*NO_MORE_RECORDS  = #B3;  *) (((*DUPLICATE_FOUND  = #B4;  *) (*(* RECORD_NOT_IN_FILE = #B5;  *) *&(*RECORD_LOCKED  = #B7;  *) &6(*NO_RECORD_SATISFIES_CONDITION  = #B8;  *) 60(* CANNOT_FIND_NEXT_RECORD  = #BD;  *) 0 (*! *)  TYPE%BIT  = 0..1;BYTE  = 0..255;(.STRING  = PACKED ARRAY (.1..50.) OF CHAR; .($T_CURRENCY_BLOCK = PACKED RECORD$COMPLETION_CODE  :BYTE; KEY_NUMBER :BYTE; KEY_ADDRESS  :INTEGER;&FILL :ARRAY(.1..8.) OF INTEGER; & END; (* T_CURRENCY_BLOCK *)  (< T_FILE_CB = PACKED RECORD  (* FILE CONTROL BLOCK *) <SVC_CODE :BYTE; STATUS_CODE  :BYTE; OP_CODE  :BYTE; LUNO :BYTE; SYSTEM_FG  :BYTE;  USER_FG  $ :PACKED ARRAY (.0..7.) OF BIT; $ DATA_BUFFER_ADDR :INTEGER; LOG_REC_LEN  :INTEGER;CHAR_CNT :INTEGER;*CURR_BLOCK_ADDR  :@T_CURRENCY_BLOCK;*FGFILL6  :INTEGER;0UTILITY_FG :PACKED ARRAY (.0..15.) OF BIT; 0 DEF_LOG_REC_LEN  :INTEGER; DEF_PHY_REC_LEN  :INTEGER; PATHNAME_ADDR  :INTEGER;PASSCODE_ADDR  :INTEGER;FGFILL7  :INTEGER;INITIAL_ALLOC  :LONGINT;SECOND_ALLOC :LONGINT; END; (* T_FILE_CB *)( T_KEY_MAP  = PACKED RECORD KEY_LEN  : BYTE;KEY_DISPL  : INTEGER; END; (* T_KEY_MAP *)((T_FCB = RECORDFILE_CB  : T_FILE_CB; &CURRENCY_BLOCK : T_CURRENCY_BLOCK;&4KEY_MAP  : PACKED ARRAY(.1..14.) OF T_KEY_MAP; 4END; (* T_FCB *)(T_FCB_PNTR = @T_FCB;( ?COPY MASTER.KIFTYPE((,T_STR2= PACKED ARRAY(.1..2.) OF CHAR; ,,T_STR6= PACKED ARRAY(.1..6.) OF CHAR; ,.T_STR20 = PACKED ARRAY(.1..20.) OF CHAR; ..T_STR40 = PACKED ARRAY(.1..40.) OF CHAR; .(VAR %K_FILE_SIZE  :INTEGER;IND  :INTEGER;K_PATH  :STRING; 4 FILE_CHARACTERISTICS :T_FILE_CHARACTERISTICS; 4( COMMON% KIF$COMMON :RECORD6 FCB_PNTRS :PACKED ARRAY(.1..16.) OF T_FCB_PNTR;6 END; (* COMMON *)( ACCESS% KIF$COMMON; ((@ PROCEDURE KI0001CLOSE (  FILE_NUMBER :INTEGER); FORWARD;@B@F PROCEDURE KI0003INSERT(VAR FILE_CONTROL_BLOCK :T_FCB); FORWARD; FJ#PROCEDURE KI0004SET_CURRENT (VAR FILE_CONTROL_BLOCK :T_FCB); FORWARD; JD PROCEDURE KI0005ZERO(VAR FILE_CONTROL_BLOCK :T_FCB); FORWARD; DJ PROCEDURE KI0006SET_ACCESS(VAR FILE_CONTROL_BLOCK :T_FCB); FORWARD; JF PROCEDURE KI0007DELETE(VAR FILE_CONTROL_BLOCK :T_FCB); FORWARD; FD PROCEDURE KI0008READ(VAR FILE_CONTROL_BLOCK :T_FCB); FORWARD; D$ PROCEDURE KI0009OPEN; FORWARD;$> PROCEDURE KI0010GET_CHAR(VAR FILE_CONTROL_BLOCK :T_FCB; >. VAR BUFFER :PACKED ARRAY(.1..?.) OF CHAR). ; FORWARD; F PROCEDURE KI0011UNLOCK(VAR FILE_CONTROL_BLOCK :T_FCB); FORWARD; FH PROCEDURE KI0012REWRITE (VAR FILE_CONTROL_BLOCK :T_FCB); FORWARD; H(>PROCEDURE SVC$(VAR FILE_CB : T_FILE_CB); EXTERNAL PASCAL; >( BEGIN (* KI0000KEY_INDEX *) L$(**********************************************************************)L(*KI0000KEY_INDEX *)L$(**********************************************************************)L((WITH KIF$COMMON, KIF_STATUS_BLOCK DO(BEGIN  (* COMMON *)  KIF_STATUS_CODE := 0; (( CASE KIF_COMMAND OF  (* CASE 1 *) (&KIF_INIT:  BEGIN (* KIF_INIT *) &" FOR I := 1 TO UB(FCB_PNTRS) DO " FCB_PNTRS(.I.) := NIL;  KIF_RESERVED := 0; END; (* KIF_INIT *) (KIF_TERM: BEGIN " FOR I := 1 TO UB(FCB_PNTRS) DO" IF FCB_PNTRS(.I.) <> NIL  THEN  KI0001CLOSE(I);  KIF_STATUS_CODE := 0;  END;(* KIF_TERM *)( KIF_OPEN: KI0009OPEN; ((OTHERWISE IF KIF_RESERVED <> 0 AND (&  FCB_PNTRS(.KIF_RESERVED.) <> NIL & THEN BEGIN (* FILE OPENED *) ( CASE KIF_COMMAND OF (* CASE 2 *) ( KIF_CLOSE:  BEGIN   IND := KIF_RESERVED;  KI0001CLOSE(IND); END;( KIF_READ_FILE_CHAR: KI0010GET_CHAR (" (FCB_PNTRS(.KIF_RESERVED.)@, " KIF_BUFFER_NAME); & KIF_SET_ACCESS: KI0006SET_ACCESS &" (FCB_PNTRS(.KIF_RESERVED.)@);" KIF_READ_GREATER, KIF_READ_GREATER_LOCKED,  KIF_READ_BY_KEY,  KIF_READ_BY_KEY_LOCKED,  KIF_READ_PRIMARY_KEY, KIF_READ_PRIMARY_LOCKED,  KIF_READ_CURRENT, KIF_READ_CURRENT_LOCKED,  KIF_READ_GR_OR_EQ,  KIF_READ_GR_OR_EQ_LOCKED,  KIF_READ_NEXT,  KIF_READ_NEXT_LOCKED, KIF_READ_PREVIOUS, * KIF_READ_PREVIOUS_LOCKED: KI0008READ *" (FCB_PNTRS(.KIF_RESERVED.)@);"$ KIF_INSERT_RECORD: KI0003INSERT $" (FCB_PNTRS(.KIF_RESERVED.)@);" KIF_REWRITE_RECORD,* KIF_REWRITE_REC_UNLOCK: KI0012REWRITE*" (FCB_PNTRS(.KIF_RESERVED.)@);" KIF_DELETE_BY_KEY, * KIF_DELETE_CURRENT_REC: KI0007DELETE *" (FCB_PNTRS(.KIF_RESERVED.)@);"$ KIF_UNLOCK_RECORD: KI0011UNLOCK $" (FCB_PNTRS(.KIF_RESERVED.)@);" KIF_SET_CURRENT_EQUAL,  KIF_SET_CURRENT_GR_OR_EQ,  KIF_SET_CURRENT_GREATER:   KI0004SET_CURRENT " (FCB_PNTRS(.KIF_RESERVED.)@);"" OTHERWISE KIF_STATUS_CODE := " KIF_COMMAND_INVALID;  END; (* END CASE 2 *)( WITH FCB_PNTRS(.KIF_RESERVED.)@ DO (  BEGIN  IF KIF_STATUS_CODE = 0 AND " KIF_COMMAND <> KIF_CLOSE AND " KIF_COMMAND <> KIF_TERM   THEN   BEGIN  KIF_STATUS_CODE := $ CURRENCY_BLOCK.COMPLETION_CODE;$ IF FILE_CB.STATUS_CODE <> 0  THEN KIF_STATUS_CODE :=  FILE_CB.STATUS_CODE;   END;  (* KIF STATUS = 0 *)  END; (* WITH FCB_PNTRS *)   END (* END FILE OPENED *)  ELSE& KIF_STATUS_CODE := FILE_NOT_OPEN; & END; (* END CASE 1 *)  END; (* WITH KIF$COMMON *).END; (* KI0000KEY_INDEX *)  (*$ PAGE *).93,-(A7) JSR_check ADDQ.L #8,A7 *----------  LINE #45  MOVE.W #255,-(A7) JSR_icopy ADDQ.L #2,A7  MOVE.W D0,-6(A6) *----------  LINE #46  MOVE.W -8(A6),D1   NOT.WD1  MOVE.W D1,-2(A6) *----------  LINE #47   NOT.WD0  MOVE.W D0,-4(A6) *----------  LINE #48  MOVE.W #-9,-(A7)  MOVE.W D1,-(A7) MOVE.W #1,-(A7) MOVE.W #694,-(A7) JSR_check ADDQ.L #8,A7 *----------  LINE #49  MOVE.W #-256,-(A7)  MOVE.W -4(A6),-(A7) MOVE.W #2,-(A7) MOVE.W #694,-(A7) JSR_check ADDQ.L #8,A7 *----------  LINE #53   PEA-1 KI0008 Pr+_@ (*$ PAGE *) PROCEDURE KI0008READ;  (*"*) $(* MODULE NAME: KI0008READ*)$@(* DESCRIPTIVE SENTENCE:READ A KEYED INDEX FILE RECORD. *)@ (*"*) J (* FULL DESCRIPTION:THIS MODULE DECODES THE SPECIFIC 'READ' CODE*)JD(* SPECIFIED BY THE USER AND ASSIGNS THE PROPER SVC OPCODE*)D>(* AND LOCK CHARACTERISTICS FOR THE READ OPERATION. *)> (*"*) (*"*) $(* DATE CREATED:  11/06/78 *)$( (* DATE IMPLEMENTED:  MM/DD/YY *)( (* TEST PROCEDURES: *)8(* DATE CHECKED OUT FOR MODIFICATION: MM/DD/YY *)8,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)&F(*CC WEBB 05/21/79 INCLUDE READ BY PRIMARY KEY FUNCTION *)F2(*  TO IMPROVE ACCESS SPEED OF PRIME KEYS*)2F(*SHEPARD 07/21/83 SET CHAR_CNT TO ZERO BEFORE THE READ *)F,(*  IN CASE READ FAILS SO THAT THE *),4(*  KIF_RECORD_LENGTH WILL BE SET PROPERLY.*)4J(*SHEPARD 08/30/83 SET KEY NUMBER TO 1 ON KIF_READ_PRIMARY_KEY*)J (*"*) " (* PARAMETER DESCRIPTIONS:*)",(* VAR FILE_CONTROL_BLOCK:T_FCB; *), (*"*)  (* EXPECTED OUTPUT(S):*)4(*1)RETURN_CODE SET TO OPERATION RESULT *)4<(*2)A RECORD IN "BUFFER" IF RETURN_CODE IS ZERO.*)< (*"*)  (* ERROR CONDITIONS:*):(*1)THOSE DX10 ERRORS ASSOCIATED WITH THE SVC *):(*2)FILE NOT OPEN *)(* GLOBAL VARIABLES:*) (*"*) " (* REFERENCED PROCEDURES: *)"$(* SVC$ - TO ISSUE THE SVC *)$ (*"*) CONST $  READ_BY_KEY= #42; READ_GREATER = #41; READ_CURRENT = #42; READ_PRIME_KEY = #43; READ_GR_OR_EQ= #44; READ_NEXT= #45; READ_PREVIOUS= #48;( ACCESS$  KIF_STATUS_BLOCK, KIF_BUFFER_NAME,  KIF_KEYNAME,  KIF_COMMAND; ( BEGIN (* KI0008READ *) L$(**********************************************************************)L(** KI0008READ **)L$(**********************************************************************)L: WITH FILE_CONTROL_BLOCK, FILE_CONTROL_BLOCK.FILE_CB, : KIF_STATUS_BLOCK DO  BEGIN "  USER_FG :: BYTE := 0; 4DATA_BUFFER_ADDR:= LOCATION(KIF_BUFFER_NAME); 4(LOG_REC_LEN := UB(KIF_BUFFER_NAME); (CHAR_CNT := 0;0CURRENCY_BLOCK.KEY_NUMBER := KIF_KEY_NUMBER;08CURRENCY_BLOCK.KEY_ADDRESS := LOCATION(KIF_KEYNAME); 8( CASE KIF_COMMAND OF  KIF_READ_GREATER,& KIF_READ_GREATER_LOCKED: BEGIN & OP_CODE := READ_GREATER;  USER_FG(.1.) := 1; END; KIF_READ_BY_KEY, $ KIF_READ_BY_KEY_LOCKED:BEGIN $ OP_CODE := READ_BY_KEY;  USER_FG(.1.) := 1; END; KIF_READ_PRIMARY_KEY,& KIF_READ_PRIMARY_LOCKED: BEGIN & OP_CODE := READ_PRIME_KEY; $CURRENCY_BLOCK.KEY_NUMBER := 1; $ USER_FG( .1.) := 1; END; KIF_READ_CURRENT,8 KIF_READ_CURRENT_LOCKED:  OP_CODE := READ_CURRENT; 8 KIF_READ_GR_OR_EQ, & KIF_READ_GR_OR_EQ_LOCKED:BEGIN & OP_CODE := READ_GR_OR_EQ;  USER_FG(.1.) := 1; END; KIF_READ_NEXT, 2 KIF_READ_NEXT_LOCKED: OP_CODE := READ_NEXT; 2 KIF_READ_PREVIOUS, : KIF_READ_PREVIOUS_LOCKED: OP_CODE := READ_PREVIOUS; : OTHERWISE;  END;  (* CASE 1 *) 0IF KIF_COMMAND = KIF_READ_GREATER_LOCKED OR 0. KIF_COMMAND = KIF_READ_BY_KEY_LOCKED OR .. KIF_COMMAND = KIF_READ_PRIMARY_LOCKED OR .. KIF_COMMAND = KIF_READ_CURRENT_LOCKED OR .. KIF_COMMAND = KIF_READ_GR_OR_EQ_LOCKED OR.. KIF_COMMAND = KIF_READ_NEXT_LOCKED  OR ., KIF_COMMAND = KIF_READ_PREVIOUS_LOCKED ,  THEN !  USER_FG(.5.) := 1; SVC$(FILE_CB); KIF_RECORD_LEN := CHAR_CNT;   END;(* WITH FILE_CB *)($END  (* KI0008READ_BY_KEY *); $* TESTBIT 2 1 02364 08499 0 0 090 2 1 0 0 0 5 8 0 010 3 2 2 197 1 1282931 2 0433636 0 0***** BOOL2 2 1 0 778 06634 8 0 052 1 1 0 0 0 5 4 4 0 013 4 5 4 8 1 1 7 5 7 2 010 634 1 312 911 2 2271418 0 0281418 3 1311616 4 0421719 3KI0003 `P  5 +a`@ (*$ PAGE *)* PROCEDURE KI0003INSERT;  (*$ MAP *) * (*"*) &(* MODULE NAME: KI0003INSERT*)&H (* DESCRIPTIVE SENTENCE:INSERT NEW RECORD INTO KEY INDEXED FILE *)H (*"*) J (* FULL DESCRIPTION:BUILDS THE CONTROL BLOCK TO DO AN INSERT AND*)J(* ISSUES THE SVC*)$(* DATE CREATED:  11/03/78 *)$( (* DATE IMPLEMENTED:  MM/DD/YY *)( (* TEST PROCEDURES: *)8(* DATE CHECKED OUT FOR MODIFICATION: MM/DD/YY *)8,(* WHO CHECKED OUT FOR MODIFICATION:*), (* MODIFICATION HISTORY *) &(* WHO:  WHEN:WHY:HOW: *)& (*"*) " (* PARAMETER DESCRIPTIONS:*)",(* VAR FILE_CONTROL_BLOCK : T_FCB; *), (* EXPECTED OUTPUT(S):*)*(* NEW RECORD IN KEY INDEXED FILE*)*" (* ERROR CONDITIONS:NONE*)"(* GLOBAL VARIAB`` LES:*) ,(* KIF_STATUS_BLOCK.KIF_KEY_NUMBER,*),,(* KIF_STATUS_BLOCK.KIF_RECORD_LEN,*),(* KIF_BUFFER_NAME *)" (* REFERENCED PROCEDURES: *)".(* SVC$ - PASCAL RUN-TIME SVC CALLER *).( CONST $  INSERT_OPERATION = #46; ACCESS$  KIF_STATUS_BLOCK, KIF_BUFFER_NAME; ( BEGIN (* KI0003INSERT *) L$WITH FILE_CONTROL_BLOCK, FILE_CONTROL_BLOCK.FILE_CB, KIF_STATUS_BLOCK DOL  BEGIN$ " OP_CODE := INSERT_OPERATION; "4 DATA_BUFFER_ADDR := LOCATION(KIF_BUFFER_NAME); 4 IF KIF_RECORD_LEN <> 0   THEN #  CHAR_CNT := KIF_RECORD_LEN   ELSE # " CHAR_CNT := DEF_LOG_REC_LEN; " IF ODD(CHAR_CNT)   THEN "  CHAR_CNT := CHAR_CNT + 1;& CURRENCY_BLOCK.KEY_ADDRESS := 0; & CURRENCY_BLOCK.KEY_NUMBER :`` = KIF_KEY_NUMBER;  SVC$(FILE_CB); * END;  (* WITH FILE_CONTROL_BLOCK *)*END  (* KI0003INSERT *);D_LEN,*),(* KIF_BUFFER_NAME *)" (* REFERENCED PROCEDURES: *)".(* SVC$ - PASCAL RUN-TIME SVC CALLER *).( CONST $  INSERT_OPERATION = #46; ACCESS$  KIF_STATUS_BLOCK, KIF_BUFFER_NAME; ( BEGIN (* KI0003INSERT *) L$WITH FILE_CONTROL_BLOCK, FILE_CONTROL_BLOCK.FILE_CB, KIF_STATUS_BLOCK DOL  BEGIN$ " OP_CODE := INSERT_OPERATION; "4 DATA_BUFFER_ADDR := LOCATION(KIF_BUFFER_NAME); 4 IF KIF_RECORD_LEN <> 0   THEN #  CHAR_CNT := KIF_RECORD_LEN   ELSE # " CHAR_CNT := DEF_LOG_REC_LEN; " IF ODD(CHAR_CNT)   THEN "  CHAR_CNT := CHAR_CNT + 1;$ CURRENCY_BLOCK.KEY_ADDRESS := 0; $`EOD EOD  ACCDXS `PZ-D+c`@P(*+ DVDTP PP + DACCEPT PP , DCLEARS PP , DDISPLA PP , DINITSC PP , DOPENTE PP , DSETFIL PP -- *) PP (*$ PAGE, 72COL, WIDELIST, MAP *) PPPROGRAM VDTP; P" ``> >P" TITLE = VDTP -- VDT PROCEDURES PP" LANGUAGE = TI PASCAL PP" COMPUTER = TI 990/10 WITH DX10 3.0 PP" ABSTRACT = THIS DUMMY PROGRAM DEFINES A SET OF PROCEDURES WHICH PP" CAN BE INVOKED AS EXTERNAL PASCAL PROCEDURES TO DO PP" I/O WITH THE USER'S VDT TERMINAL. ALL PROCEDURES PP" REQUIRE ACCESS TO AN ARRAY 'B' WHICH IS DEFINED AS PP" B : ARRAY (.1..16.) OF INTEGER; PP" P$" THE PROCEDURES ARE: $``, ,P" PP" INITSCREEN(B,U) INITIALIZES THE DATA PP" STRUCTURE 'B' AND SUPPLIES PP" THE UNIT NUMBER U FOR THE PP" VDT TO WHICH THE ACCEPT PP" DISPLAY CALLS WILL BE MADE. PP" THIS CALL MUST BE MADE BEFORE PP" ANY OTHER CALLS. PP" CLEARSCREEN(B) BLANKS THE SCREEN P6" DISPLAY(B,L,C,S,N) DISPLAYS STRING6`` S BEGINNING AT P" LINE L, COLUMN C. THE LENGTH OF PP" THE FIELD IS THE LESSER OF N OR PP" THE LENGTH OF S. PP" ACCEPT(B,L,C,S,N,T) READ INTO STRING VARIABLE S FROM PP" THE FIELD BEGINNING AT LINE L, PP" COLUMN C. THE LENGTH OF THE PP" FIELD IS THE LESSER OF N OR THE PP" LENGTH OF THE FIELD. CHARACTER PP" VARIABLE T IS SET TO THE PH" TERMINATION CHARACTER ('#8D' = H`` P" RETURN, '#89' = TAB, ETC.). PP" SETFILLER(B,X) USE CHARACTER X AS THE FILLER PP" CHARACTER ON SUBSEQUENT ACCEPT PP" CALLS. (DEFAULT IS BLANK FILL) PP" PP" ON BOTH ACCEPT AND DISPLAY, IF THE LINE AND COLUMN ARE PP" GIVEN AS ZERO, THE FIELD WILL BEGIN AT THE END OF THE PP" PREVIOUS FIELD. PP" PP" PROGRAMS WHICH USE THESE ROUTINES WILL NEED TO INCLUDE THE P" FO``JLLOWING SET OF EXTERNAL PROCEDURE DECLARATIONS: JP" PP" TYPE BTYPE = ARRAY(.1..16.) OF INTEGER; PP" PROCEDURE INITSCREEN( VAR BLOCK : BTYPE; PP" UNIT : INTEGER ); EXTERNAL; PP" PROCEDURE DISPLAY( VAR BLOCK : BTYPE; PP" LINE, COLUMN : INTEGER; PP" BUFFER: PACKED ARRAY(.1..?.) OF CHAR; PP" LENGTH: INTEGER ); EXTERNAL; PP" PROCEDURE ACCEPT( VAR BLOCK : BTYPE; P" LI``8NE, COLUMN : INTEGER; 8P" VAR BUFFER: PACKED ARRAY(.1..?.) OF CHAR; PP" LENGTH: INTEGER ; PP" VAR TERMINATION_CHARACTER: CHAR ); EXTERNAL; PP" PROCEDURE CLEARSCREEN( VAR BLOCK : BTYPE ); EXTERNAL; PP" PROCEDURE SETFILLER( VAR BLOCK : BTYPE; PP" C: CHAR ); EXTERNAL; PP"----------------------------------------------------------------------- PP" PPCONST P* IO = 0 ; *``& &PTYPE PP BYTE = 0 .. #FF ; PP WORD = 0 .. #7FFF ; (* NOTE: THIS SHOULD BE #FFFF, BUT THE TIP PP COMPILER WOULD THEN ALLOCATE 2 PP WORDS INSTEAD OF 1 WORD. *) PP SCREEN_POSITION = PP PACKED RECORD PP ROW: BYTE; PP COLUMN: BYTE; P< END; <`` P OS_STRING = PACKED ARRAY(.0..80.) OF CHAR; PP IOFLAGS = ( BUSY, ERROR, EOF, EVENT, SF4, SF5, SF6, SF7, PP INITIATE, OUTPUT_WITH_REPLY, UF2, UF3, UF4, UF5, PP EXTENDED_CALL_BLOCK, BLANK_OR_EVENT ); PP VDT_FLAGS = ( SET_FIELD_START, LOW_INTENSITY, BLINK_CURSOR, PP GRAPHICS, EIGHT_BIT, CARRIAGE_CONTROL, BEEP, PP RIGHT_BOUNDRY, SET_CURSOR_POSITION, PP USE_FILL_CHARACTER, DONT_INITIALIZE_FIELD, PP RETURN_ON_TERMINATION_CHARACTER, PN VF12, VF13, VF14, WARNING_BEEP ); N`` P UTILITY_FLAGS = ( AF0, PROGRAM_FILE, DIRECTORY_FILE, PP GLOBAL_LUNO, TERMINAL_LOCAL_LUNO, GENERATE_LUNO, PP AUTO_CREATE, AF7, LRL, TEMPORARY_FILE, PP IMMEDIATE_WRITE, AF11, BLANK_SUPPRESSED, PP EXTENDABLE, REL_REC, SEQUENTIAL ); PP I_O_CALL_BLOCK = PACKED RECORD PP (* 0 *) SVC_CODE: BYTE; PP (* 1 *) STATUS_CODE: BYTE; PP (* 2 *) OP_CODE: BYTE; PP (* 3 *) LUNO: BYTE; P (* 4, ``D5 *) FLAG_WORD: SET OF IOFLAGS; DP (* 6,7 *) BUFFER_ADDRESS: WORD; PP (* 8,9 *) LOGICAL_RECORD_LENGTH: WORD; PP (* 10,11 *) CHARACTER_COUNT: WORD; PP (* 12,13 *) REPLY_BLOCK_ADDRESS: WORD; PP CASE (* OP_CODE: *) INTEGER OF PP 0..#0F: ( PP (* 14,15 *) EXTENDED_USER_FLAGS: SET OF VDT_FLAGS; PP (* 16 *) FILL_CHARACTER: CHAR; PP (* 17 *) EVENT_CHARACTER: CHAR; P (* 18,19 *) CURSOR_POSIT``2ION: SCREEN_POSITION; 2P (* 20,21 *) FIELD_BEGINNING: SCREEN_POSITION; ); PP #90..#9F: ( PP (* 14,15 *) BYTE_14_15: WORD; PP (* 16,17 *) UTILITY_FLAG_WORD: SET OF UTILITY_FLAGS; PP (* 18,19 *) DEFINED_LOGICAL_RECORD_LENGTH: WORD; PP (* 20,21 *) DEFINED_PHYSICAL_RECORD_LENGTH: WORD; PP (* 22,23 *) PATHNAME_POINTER: @ OS_STRING; PP (* 24,25 *) BYTE_24_25: WORD; PP (* 26,27 *) BYTE_26_27: WORD; ) P0 END; 0`` P BLOCK = RECORD PP OPEN_FLAG: BOOLEAN; PP FILLER_CHAR: CHAR; PP CALL_BLOCK: I_O_CALL_BLOCK; PP END; PPPROCEDURE SVC$( VAR SUPERVISOR_CONTROL_BLOCK: I_O_CALL_BLOCK );EXTERNAL; PPPROCEDURE INITSCREEN( VAR VDT$ : BLOCK; UNIT : INTEGER ); FORWARD; PPPROCEDURE OPENTERMINAL( VAR VDT$ : BLOCK ); FORWARD; PPPROCEDURE DISPLAY( VAR VDT$ : BLOCK; PB LINE, COLUMN : INTEGER; B`` P VAR BUFFER: PACKED ARRAY(.1..?.) OF CHAR; PP LENGTH: INTEGER ); PP FORWARD; PPPROCEDURE ACCEPT( VAR VDT$ : BLOCK; PP LINE, COLUMN : INTEGER; PP VAR BUFFER: PACKED ARRAY(.1..?.) OF CHAR; PP LENGTH: INTEGER ; PP VAR TERMINATION_CHARACTER: CHAR ); PP FORWARD; PPPROCEDURE CLEARSCREEN( VAR VDT$ : BLOCK ); FORWARD; P T``@PPROCEDURE SETFILLER( VAR VDT$ : BLOCK; C: CHAR ); FORWARD; PP PP(*+ *) PP(*$ PAGE *) PP" PP" # #### #### ####### ##### ####### PP" # # # # # # # # PP" ##### # # #### ##### # PP" # # # # # # # PP" # # ### #### ####### # # P" ``> >PPROCEDURE ACCEPT; PPCONST READ_ASCII = #09 ; PPBEGIN PP WITH VDT$.CALL_BLOCK DO BEGIN PP SVC_CODE := IO ; PP STATUS_CODE := 0 ; PP OP_CODE := READ_ASCII; PP FLAG_WORD := (. EXTENDED_CALL_BLOCK .); PP EXTENDED_USER_FLAGS := (. CARRIAGE_CONTROL, SET_CURSOR_POSITION, P$ RETURN_ON_TERMINATION_CH$``,ARACTER, WARNING_BEEP .); ,P IF LINE > 0 THEN BEGIN PP FIELD_BEGINNING.ROW := LINE - 1 ; PP EXTENDED_USER_FLAGS := EXTENDED_USER_FLAGS +(. SET_FIELD_START.) PP END; PP IF COLUMN > 0 THEN BEGIN PP FIELD_BEGINNING.COLUMN := COLUMN - 1 ; PP EXTENDED_USER_FLAGS := EXTENDED_USER_FLAGS +(. SET_FIELD_START.) PP END; PP CURSOR_POSITION := FIELD_BEGINNING; P6 IF VDT$.FILLER_CHAR = '#00' THEN 6`` P EXTENDED_USER_FLAGS := PP EXTENDED_USER_FLAGS + (. DONT_INITIALIZE_FIELD .) PP ELSE BEGIN PP EXTENDED_USER_FLAGS := PP EXTENDED_USER_FLAGS + (. USE_FILL_CHARACTER .) ; PP FILL_CHARACTER := VDT$.FILLER_CHAR ; PP FLAG_WORD := FLAG_WORD + (. BLANK_OR_EVENT .) PP END; PP BUFFER_ADDRESS := LOCATION( BUFFER ); PH IF LENGTH <= UB( BUFFER ) THEN H`` P LOGICAL_RECORD_LENGTH := LENGTH PP ELSE LOGICAL_RECORD_LENGTH := UB(BUFFER); PP SVC$( VDT$.CALL_BLOCK ); PP IF STATUS_CODE <> 0 THEN PP MESSAGE( 'I/O ERROR ON ACCEPT' ); PP TERMINATION_CHARACTER := EVENT_CHARACTER; PP END; PPEND; PP(*, *) PP(*$ PAGE *) PPROCED``JURE CLEARSCREEN; JPCONST REWIND = #0E; PPBEGIN PP WITH VDT$.CALL_BLOCK DO BEGIN PP SVC_CODE := IO; PP OP_CODE := REWIND; PP SVC$( VDT$.CALL_BLOCK ); PP IF STATUS_CODE <> 0 THEN BEGIN PP MESSAGE ( 'REWIND ERROR' ); PP HALT; P END; ``8 8P END; PPEND; PP(*, *) PP(*$ PAGE *) PP" PP" ##### ### ##### ###### # # # # PP" # # # # # # # # # # # PP" # # # ####### ###### # ##### ## PP" # # # # # # # # # P*" ##### ### ##### # *``& ###### # # # &P" PPPROCEDURE DISPLAY; PPCONST WRITE_ASCII = #0B ; PPBEGIN PP WITH VDT$.CALL_BLOCK DO BEGIN PP SVC_CODE := IO ; PP STATUS_CODE := 0 ; PP OP_CODE := WRITE_ASCII; PP FLAG_WORD := (. EXTENDED_CALL_BLOCK .) ; P< EXTENDED_USER_FLAGS := (. GRAPHICS .) ; <`` P IF LINE > 0 THEN BEGIN PP FIELD_BEGINNING.ROW := LINE - 1 ; PP EXTENDED_USER_FLAGS := EXTENDED_USER_FLAGS + (.SET_FIELD_START.) PP END; PP IF COLUMN > 0 THEN BEGIN PP FIELD_BEGINNING.COLUMN := COLUMN - 1 ; PP EXTENDED_USER_FLAGS := EXTENDED_USER_FLAGS + (.SET_FIELD_START.) PP END; PP BUFFER_ADDRESS := LOCATION( BUFFER ); PN IF LENGTH < 0 THEN BEGIN N`` P LENGTH := - LENGTH; PP EXTENDED_USER_FLAGS := PP EXTENDED_USER_FLAGS - (. GRAPHICS .) ; PP END; PP IF LENGTH <= UB( BUFFER ) THEN PP CHARACTER_COUNT := LENGTH PP ELSE CHARACTER_COUNT := UB(BUFFER); PP SVC$( VDT$.CALL_BLOCK ); PP IF STATUS_CODE <> 0 THEN PP MESSAGE( 'I/O ERROR ON DISPLAY' ); P END; ``D DPEND; PP(*, *) PP(*$ PAGE *) PPPROCEDURE INITSCREEN; PPBEGIN PP WITH VDT$.CALL_BLOCK DO BEGIN PP LUNO := UNIT; (* SET STATION NUMBER IN PRB *) PP VDT$.OPEN_FLAG := FALSE; (* INIT OPEN FLAG TO 'NOT OPEN' *) PP VDT$.FILLER_CHAR := CHR(0); (* INIT FILL CHARACTER *) P OPENTERMINAL( VDT$ ); ``2 2P END; PPEND; PP(*, *) PP" PP" #### ##### ####### ## # PP" # # # # # # # # PP" # # ##### #### # # # PP" # # # # # # # PP" #### # ####### # ## P0" 0`` PPROCEDURE OPENTERMINAL; PPCONST OPEN = 0 ; OPEN_REWIND = 3 ; PPBEGIN PP IF NOT VDT$.OPEN_FLAG THEN PP WITH VDT$.CALL_BLOCK DO BEGIN PP SVC_CODE := IO ; PP STATUS_CODE := 0 ; PP OP_CODE := OPEN_REWIND ; PP FLAG_WORD := (. BLANK_OR_EVENT .) ; PB BUFFER_ADDRESS := 0 ; B`` P LOGICAL_RECORD_LENGTH := 0 ; PP REPLY_BLOCK_ADDRESS := 0 ; PP SVC$( VDT$.CALL_BLOCK ); PP IF STATUS_CODE <> 0 THEN BEGIN PP MESSAGE( 'UNABLE TO OPEN TERMINAL' ); PP HALT; PP END; PP IF BUFFER_ADDRESS <> 5 THEN BEGIN PP MESSAGE( 'TERMINAL IS NOT A VDT' ); PP HALT; P T``@P END; PP VDT$.OPEN_FLAG := TRUE; PP END; PPEND; PP(*, *) PP(*$ PAGE *) PPPROCEDURE SETFILLER; PPBEGIN PP VDT$.FILLER_CHAR := C ; PPEND; P(*- ``> *) >PBEGIN PP (*$ NO OBJECT *) PPEND. P PP(*, *) PP(*$ PAGE *) PPPROCEDURE SETFILLER; PPBEGIN PP VDT$.FILLER_CHAR := C ; PPEND; P(*- `FPMACROSPB * HY+h@. TITL 'FORTRAN TO PASCAL INTERFACE MACROS'.* '>*(C) COPYRIGHT, TEXAS INSTRUMENTS INCORPORATED, 1979. ALL >>*RIGHTS RESERVED. PROPERTY OF TEXAS INSTRUMENTS INCORPOR- >>*ATED. RESTRICTED RIGHTS - USE, DUPLICATION OR DISCLOSURE >>*SUBJECT TO RESTRICTIONS SET FORTH IN TI'S PROGRAM LICENSE >,*AGREEMENT AND ASSOCIATED DOCUMENTATION.,* '* TITLE:FPMACROS8* MACRO DEFINITIONS FOR ASSEMBLY LANGUAGE ROUTINES 88* USED TO INTERFACE PASCAL ROUTINES FROM FORTRAN. 8$ * REVISION: 07/20/79 ORIGINAL $4* 08/20/79 ADD FORCE LOADS & MAKE STACK AND 4*  HEAP OPTIONAL. 2* 08/23/79 SPECIAL CASE 0 PARMS IN MODULE 2$*  MACRO - DON'T CALL F$RGMY. $* ABSTRACT: "8* THIS FILE CONTAINS THE MACRO SOURCE FOR A MACRO 86* LIBRARY.THE FOLLOWING MACROS ARE DEFINED FOR 66* TOP LEVEL REFERENCING BY THE ASSEMBLY LANGUAGE 6*  INTERFACE ROUTINE:* '$* MODULE - MODULE DEFINITION $ * MOVPRM -MOVE PARAMETER ** MOVECT - MOVE 1-DIMENSIONAL ARRAY*,* PSHPRM - PUSH PARAMETER ONTO STACK ,(* CALL - CALL PASCAL PROCEDURE (,* EXIT - RETURN TO FORTRAN ROUTINE ,* '4* CONTAINED IN THESE MACROS ARE REFERENCES TO 4$* SEVERAL LOWER LEVEL MACROS: $* '4* MODCOM - MODULE COMMON SEGMENTS DECLARATIONS 40* MVNXT - FOR MULTI-WORD PASSED-BY-VALUE 0*  PARAMETERS * '*  THE MACROS USE SOME SY MBOLS IN THE ASSEMBLY TO 6* RETAIN INFORMATION. ALL THESE SYMBOLS CONTAIN 66* A SEMI-COLON CHARACTER. THESE SYMBOLS MAY NOT 6.* BE USED BY THE INTERFACE MODULE SOURCE.* EXPLICITLY: * '** C;PARM - CURRENT PARAMETER KEEPER *"*  CALL;D - "CALL" DONE FLAG "&* L; - UNIQUE LABEL GENERATION&6* M;PARM - MAXIMUM NUMBER OF PARAMETERS ALLOWED 62* PL;  - PARAMETER LOCATION STRING KEEPER 2* ' * CALLING SEQUENCE: ,* SEE INDIVIDUAL MACRO DEFINITIONS FOR,(* DEFINITION OF THEIR PARAMETERS. (@*----------------------------------------------------------- @* ' MODULE $MACRO MN,NA,ST,HP,HT * '> * PARAMETER DEFINITIONS:MN = MODULE NAME ( 6 CHAR MAX.) >"* NA = NUMBER OF PARAMETERS "* ST = STACK SIZE * HP = HEAP SIZE"* HT = HEAP TYPE- COMMON OR ""*  UNIQUE - IF PRESENT, THEN "*  UNIQUE IS ASSUMED* ' $VAR Q,C,TB* $ASG '''' TO Q.S  {FOR QUOTE MARKS} *0 $ASG '*' TO C.S  {FOR EXPANSION COMMENTS} 0 IDT:Q::MN::Q::C: &":C: WORKSPACE REGISTER EQUATES":C: &$SCRTCH EQUR6SCRATCH REGISTER$"SP$  EQUR7STACK POINTER ":C: &":C: MACRO KEYWORD DEFINITIONS ":C: &$VALUE EQU-1PASSED BY VALUE $(REF  EQU-2 PASSED BY REFERENCE ( BOOL EQU-3TYPE BOOLEAN INT  EQU-4TYPE INTEGER LINT EQU-5TYPE LONGINT @.REAL EQU-6 TYPE SINGLE PRECISION REAL ..DREAL EQU-7 TYPE DOUBLE PRECISION REAL .CHAR EQU-8TYPE CHAR .STRING EQU-9 TYPE STRING (PACKED ARRAY) .*DYNMIC EQU-10  QUESTION MARK ARRAY *&STATIC EQU-11 FIXED SIZE ARRAY&:C: & :C: PARAMETER EQUATES :C: &.C;PARM EQU1  CURRENT PARM NUMBER KEEPER .,M;PARM EQU15 MAXIMUM NUMBER OF PARMS ,* ' * VALIDATE NUMBER OF PARMS* ' $IF NA.V>=M;PARM . ERROR - MAXIMUM NUMBER OF PARMS EXCEEDED .  $ENDIF !  UNL# MODCOM :ST:,:HP:,:HT:  LIST "  PSEG " :MN.S: DEF:MN.S: DATA FRAME0 DATA ENTRY ENTRY EQU$ ! REFF$RGMY BL @F$RGMY . DATA :NA.S: NUMBER OF PARAMETERS PASSED . $IF NA.V#=0& DATA BUF  PTR TO PARAMETER AREA&  $ENDIF !  $IFMN.L=1 TEXT :Q.S::MN.S: :Q.S:   $ELSE"  $IFMN.L=2 TEXT :Q.S::MN.S:  :Q.S:  $ELSE!  $IFMN.L=3 TEXT :Q.S::MN.S: :Q.S:   $ELSE  $IFMN.L=4 TEXT :Q.S::MN.S: :Q.S:  $ELSE  $IFMN.L=5 TEXT :Q.S::MN.S: :Q.S:   $ELSE  $IFMN.L=6 TEXT :Q.S::MN.S::Q.S:  $ELSE 2 ERROR - MODULE NAME LONGER THAN 6 CHARACTERS 2  $ENDIF   $ENDIF   $ENDIF   $ENDIF   $ENDIF  $ENDIF ! :C: &(:C:  SAVE FORTRAN ENVIRONMENT DATA(:C: & MOVR13,SAVR13 MOVR14,SAVR14 MOVR15,SAVR15:C: &0:C: DO TASK INFORMATION BLOCK INITIALIZATION0:C: & LI R4,T$TIB REFIN$TIB0 BL IN$TIBSET TASK INITIALIZATION BLOCK 04 LI SP$,ST$BOT+2+>28 SET TOP OF STACK POINTER 4 $IF HT.A&$PCALL=06* {NO INITIALIZATION NECESSARY FOR UNIQUE HEAPS} 6:C: & :C: INITIALIZE HEAP PACKET:C: & LI SCRTCH,H1-H0" MOVSCRTCH,H0 PACKET SIZE " AI SCRTCH,H0   MOVSCRTCH,H0+2 PRED PTR  MOVSCRTCH,H0+4 SUCC PTR  $ENDIF ! :C: &2:C: FORCE INCLUSION OF SPECIAL RUNTIME MODULES2:C: & LOAD FP$MSG LOAD FP$STP LOAD FP$DEF  $END "  PAGE " * ' MODCOM $MACRO ST,HP,HT* ',* PARAMETER DEFINITIONS: ST = STACK SIZE,*  HP = HEAP SIZE &*  HT = HEAP TYPE - "UNIQUE" OR &* "COMMON"  $VAR C ! 4 $ASG '*' TO C.SSET UP FOR EXPANSION COMMENTS 4:C: &":C:  TASK INFORMATION BLOCK ":C: & CSEG 'CUR$ 'T$TIB EQU$ !$ DATA PREC PROCESS RECORD PTR $  BYTE 1 ! " BYTE 0  * RUNTIME TASK ID"$ BYTE 0  * INSTALLED TASK ID$" BYTE 1  * STATION NUMBER " DATA FRAME0 INITIAL WP 0 DATA SYSMSG SYSMSG FILE DESCRIPTOR BLOCK 0( DATA 0  COMPLETION SEVERITY CODE ($ DATA 0  COMPLETION ERROR CODE$, DATA 0  COMPLETION MESSAGE STRING PTR , DATA 0,0  SPARES :C: &:C:  STACK MARGIN WORD:C: &MARG$N DATA 64!:C: &0:C:  SYSTEM MESSAGE DUMMY FILE DESCRIPTOR 0:C: &SYSMSG EQU$ ! DATA 0,0,0,0  DATA 0,0,0,0  DATA 0,0,0,0 :C: &:C:  PROCESS RECORD :C: &PREC EQU$ !$ DATA PREC PROCESS RECORD LIST$X  EQU>FF00 & DATA X,X,X,X  DISPLAY POINTERS & DATA X,X,X,X  DATA X,X,X,X  DATA X,X,X,X  DATA 0,0,0  WP, PC, ST  DATA 0  RESUMER& DATA >8000  HEAP CONTROL FLAGS &$ DATA 0  NON-STANDARD LINKAGE $( DATA ST$BOT STACK REGION POINTER (, DATA ST$BOT MAX STACK REGION ADDRESS ,0 DATA ST$TOP 1ST WORD BEYOND STACK REGION 0FTOP DATA 1  * FTOP  DATA 0  SPARE* DATA HEAP$  HEAP CONTROL BLOCK PTR *& DATA T$TIB  TASK INFO BLOCK PTR& BYTE >FF  TERM CODE BYTE >FF  REASON CODE DATA 0  SPARE:C: &:C:  HEAP DESCRIPTOR:C: &MEM0 DATA HP$BOT DATA HP$TOP DATA MEM0 :C: &:C:  HEAP CONTROL BLOCK :C: &HEAP$ EQU$ !( DATA HP$BOT LIST OF FREE PACKETS (& DATA MEM0 LIST OF HEAP REGIONS && DATA MEM0 FIRST HEAP REGION PTR&  DATA 0  CURRENT HEAP USED  DATA 0  MAX HEAP USED DATA 0  STATISTICS FLAG  DATA 0 ! :C: &(:C:  INTERFACE ROUTINE WORK SPACE (@:C: &2SAVCAL DATA $-$ ADDRESS WHERE PASCAL CALLED 2SAVR13 DATA $-$ SAVR14 DATA $-$ SAVR15 DATA $-$  REFF$RWRK2 DATA F$RWRK REQUIRED FOR FORTRAN TRACEBACK 2FRAME0 EQU$ ! DATA 0,0,0,0  * DATA 0,0,0,0  * DATA 0,0,0,0  * DATA 0,0,0,0  * DATA 0  * NAME PTR  DATA 0  * ENTRY PTR" DATA 1  NON-REENTRANT FLAG "BUF  EQU$ !0 BSS2*M;PARM * FORTRAN PARAMETER AREA 0  CEND " :C: &:C:  HEAP REGION:C: && $IF HP.A&$PCALL=0 {DEFAULT TO 1K}& $ASG '1024' TO HP.S  $ENDIF ! , $IF HT.A&$PCALL {MAKE A UNIQUE HEAP} ,  DSEG " " $ELSE {MAKE A COMMON HEAP} " CSEG 'HP$'   $ENDIF ! HP$BOT EQU$ !"H0 DATA H1-H0  PACKET SIZE" DATA H1 PRED PTR  DATA H1 SUCC PTR  BSS:HP.S: HEAP AREA H1 DATA 0  DUMMY PACKET   DATA H0 PRED PTR  DATA H0 SUCC PTR HP$TOP EQU$ !. $IF HT.A&$PCALL {TERMINATE UNIQUE HEAP}.  DEND " $ $ELSE {TERMINATE COMMON HEAP}$  CEND "  $ENDIF ! :C: &:C:  STACK REGION :C: && $IF ST.A&$PCALL=0 {DEFAULT TO 1K}& $ASG '1024' TO ST.S  $ENDIF !  CSEG 'ST$' ST$BOT EQU$ !. DATA 0  * PASCAL ROUTINE ENTRY POINT . DATA 0,0,0,0  R0-R3 DATA 0,0,0  R4-R6$ DATA PREC PROCESS RECORD PTR $ DATA 0,0,0,0  R8-R12  DATA ST$BOT-(2*R11) R13& DATA 0  * RETURN TO INTERFACE& DATA >010F  STATUS  BSS:ST.S: STACK AREA ST$TOP EQU$ !  CEND "  $END "  PAGE "  MOVPRM $MACRO VR,TP,PO* ': * PARAMETER DEFINITIONS:VR = VALUE OR REF INDICATING :&*  PASSED BY VALUE OR REFERENCE &(* TP = PARAMETER TYPE - BOOL,INT, (*  LINT, REAL, DREAL** PO = PARAMETER POSITION IN FORTRAN **  ROUTINE - OPTIONAL   $VAR CP!  $ASG 'C;PARM' TO CP.S. $IF PO.A&$PCALL {SET NEW PARM POSITION} . $ASG PO.V TO CP.SV   $ENDIF ! & $IF VR.V=REF  {PASS THE ADDRESS}&" MOV (:CP.SV:-1)*2+BUF,*SP$+ " $ELSE {PASS THE VALUE} $IF VR.V=VALUE " MOV (:CP.SV:-1)*2+BUF,SCRTCH"$ MOV*SCRTCH+,*SP$+ 1ST WORD $. $IF TP.V=LINT++(TP.V=REAL)++(TP.V=DREAL) .$ MOV*SCRTCH+,*SP$+ 2ND WORD $ $IF TP.V=DREAL 8 MOV*SCRTCH+,*SP$+ 3RD AND 4TH WORDS FORDOUBLE 8, MOV*SCRTCH,*SP$+  --PRECISION REAL ,  $ENDIF   $ELSE  $IF TP.V#=BOOL&(TP.V#=INT)  : ERROR - 2ND PARM NOT BOOL, INT, LINT, REAL, OR DREAL :  $ENDIF   $ENDIF   $ELSE! 4 ERROR - 1ST PARAMETER MUST BE "VALUE" OR "REF" 4  $ENDIF  $ENDIF ! 4 $ASG CP.SV+1 TO CP.SV {BUMP CUR PARM POSITION} 4  $END "  PSHPRM $MACRO VR,TP,PL* '6 * PARAMETER DEFINITIONS: VR = VALUE OR REF INDICATI6NG &*  PASSED BY VALUE OR REFERENCE &(* TP = PARAMETER TYPE - BOOL, INT, ( *  LINT, REAL, DREAL, CHAR (* PL = PARAMETER LOCATION - CAN BE (*  Rn, *Rn, *Rn+, @X.   $VAR PS!  $ASG 'PL;' TO PS.S 6 $ASG 0 TO PS.SV {AVOID UNDEFINED SYMBOL ERROR} 6* ':* IF PASSED BY VALUE, CALL "MVNXT" MACRO TO MOVE EACH :8* SUCCESSIVE WORD DEPENDING THE NUMBER WORDS USED BY88* THE SPECIFIC VARIABLE TYPE. THE SUB MACRO "MVNXT"8:* WILL MAKE THE PROPER INCREMENT BASED ON THE ADDRESS : * MODE. $ * ' $IF VR.V=VALUE  MOV:PL:,*SP$+. $IF TP.V=LINT++(TP.V=REAL)++(TP.V=DREAL) . MVNXT :PL:  $IF TP.V=DREAL  MVNXT :PS.SS: MVNXT :PS.SS:  $ENDIF   $ELSE!  $IF TP.V#=INT&(TP.V#=BOOL)  : ERROR - 2ND PARM NOT BOOL, INT, LINT, REAL, OR DREAL :  $ENDIF   $ENDIF  $ELSE" * ':* IF PASSED BY REFERENCE, THE PARAMETER LOCATION MUST :8* BE TRANSLATED INTO AN ADDRESS AND PUSHED ONTO THE 8 * STACK.$ * ' $IF VR.V=REF  $IF PL.A&$PSYM  LI SCRTCH,:PL.S:   $ELSE  $IF PL.A&$PNDX 8 ERROR - INDEXED MODE ON 3RD PARAMATER NOT SUPPORTED8  $ELSE " $IF PL.A&$PIND++(PL.A&$PATO) " MOVR:PL.V:,SCRTCH $IF PL.A&$PATO  INCT R:PL.V:   $ENDIF  $ $ELSE {ASSUME REGISTER MODE} $  LI  SCRTCH,2*:PL.V:+FRAME0  $ENDIF   $ENDIF  TI@  $ENDIF   MOVSCRTCH,*SP$+  $ELSE! 4 ERROR - 1ST PARAMETER MUST BE "VALUE" OR "REF" 4  $ENDIF  $ENDIF !  $END "  PAGE " * '6* SUB MACRO TO INCREMENT THE PARAMETER LOCATION BY6>* STORING THE PARAMETER STRING IN THE GLOBAL SYMBOL "PL;" >.* AND PRINT OUT THE NEXT "MOV" INSTRUCTION.* 'MVNXT $MACRO PL * '2* PARAMETER DEFINITION: PL= PARAMETER LOCATION2* '$ $VAR PS FOR POINTING TO "PL;"$ $ASG 'PL;' TO PS.S * '&* IF SYMBOLIC OR INDEXED, ADD TWO &* ' $IF PL.A&($PNDX++$PSYM) $ASG :PL:'+2' TO PS.SS   $ELSE" * '$* IF *RN, TURN INTO INDEXED MODE$* ' $IF PL.A&$PIND " $ASG '2(R':PL.V:')' TO PS.SS "  $ELSE! * '.* IF REGISTER MODE, ADD 1 TO THE REGISTER .* ',$IF PL.A&$PATO=0 {ASSUME REGISTER MODE}, $ASG :PL:+1 TO PS.SS $ELSE  * '0* IF AUTOINCREMENT, LEAVE WELL ENOUGH ALONE 0* ' $ASG :PL.S: TO PS.SS $ENDIF  $ENDIF  $ENDIF ! * '<* GENERATE A MOVE INSTRUCTION USING THE NEW VALUE OF THE < * PARAMETER LOCATION* ' MOV:PS.SS:,*SP$+   $END "  PAGE " * ' MOVECT $MACRO A,TP,PO * '@ * PARAMETER DEFINITIONS: A= ALLOCATION TYPE: "DYNMIC" FOR @&* FOR QUESTION MARK VECTORS, AND &"*  "STATIC" FOR REGULAR ONES "**  TP = VARIABLE TYPE: "BOOL", "INT" ** ""LINT","REAL","DREAL","CHAR", "* "STRING",*  PO = PARAMETER POSITION - OPTIONAL. ,  $VAR CP!  $ASG 'C;PARM' TO CP.S $IF PO.A&$PCALL $ASG PO.V TO CP.SV   $ENDIF ! 8 $IF A.V=DYNMIC  { PASS UB INDEX, BYTE SIZE, LOC } 8* ' * SET THE UPPER BOUND INDEX  * ' MOV :CP.SV:*2+BUF,SCRTCH MOV*SCRTCH,SCRTCH. MOVSCRTCH,*SP$+ SET UPPER BOUND INDEX .* '@* CALCULATE THE BYTE SIZE OF THE VECTOR FROM THE UPPER BOUND @>* AND THE VARIABLE TYPE AND SET THE RESULT ONTO THE STACK >* ' $IF TP.V=STRING"*  {DON'T ADJUST BYTE SIZE} "  $ELSE! , $IF TP.V=CHAR++(TP.V=BOOL)++(TP.V=INT) ,( SLASCRTCH,1 SIZE <- UB INDEX * 2(  $ELSE  $IF TP.V=LINT++(TP.V=REAL)  ( SLASCRTCH,2 SIZE <- UB INDEX * 4(  $ELSE  $IF TP.V=DREAL ( SLASCRTCH,3 SIZE <- UB INDEX * 8(  $ELSE > ERROR - 2ND PARM NOT BOOL,INT,STRING,CHAR,REAL, OR DREAL >  $ENDIF   $ENDIF   $ENDIF   $ENDIF 0 MOVSCRTCH,*SP$+ SET BYTE SIZE INTO STACK 0( $ELSE {STATIC - PASS ONLY POINTER} ( $IF A.V#=STATIC8 ERROR - 1ST PARAMETER MUST BE "DYNMIC" OR "STATIC" 8  $ENDIF  $ENDIF ! * ' * SET ARRAY POINTER * '. MOV(:CP.SV:-1)*2+BUF,*SP$+ SET POINTER .* '>* IF DYNAMIC ALLOCATION, PARMATER N+1 IS DEFINED TO BE THE >6* UPPER BOUND INDEX, SO BUMP THE CURRENT PARAMETER K6 EEPER * BY 2% * ' $IF A.V=DYNMIC  $ASG CP.SV+2 TO CP.SV  $ELSE"  $ASG CP.SV+1 TO CP.SV  $ENDIF !  $END "  PAGE " * '@* MACRO TO ACTUALLY TRANSFER CONTROL TO THE PASCAL SUBSYSTEM @* 'CALL $MACRO NM * '6 * PARAMETER DEFINITION:  NM = NAME OF SUBROUTINE 6* '& $VAR C  FOR EXPANSION COMMENTS & $ASG '*' TO C.S. $VAR L  FOR REFERENCING LABEL GENERATOR . $ASG 'L;' TO L.S :C: &&:C:  SET PASCAL ENVIRONMENT DATA&:C: &* LWPI ST$BOT+2 USE PASCALS WORKSPACE ** LI R7,PREC SET PROCESS RECORD PTR *0 LI  R13,ST$BOT-(2*R11) SET FAKE RETURN WP 0& LI R14,L:L.SV: SET RETURN PC &. MOVR14,SAVCAL SAVE RETURN ADDRESS FOR .":C:  USE BY TRACEBACK ROUTINE " STST R15 :C: & :C:  GO TO PASCAL ROUTINE  :C: &$ CLRFTOP CLEAR "FORTRAN" FLAG $ REF:NM:   B:NM: L:L.SV: $ " INCFTOP SET "FORTRAN" FLAG "" LWPI FRAME0 RESET WORKSPACE "8 $ASG L.SV+1 TO L.SV{BUMP UNIQUE LABEL GENERATOR} 8  $END " @*----------------------------------------------------------- @EXIT $MACRO !6 LWPI SAVR13-(R13*2)RETRIEVE FORTRAN ENVIRONMENT 6  RTWP "  $END " . MOV(:CP.SV:-1)*2+BUF,*SP$+ SET POINTER .* '>* IF DYNAMIC ALLOCATION, PARMATER N+1 IS DEFINED TO BE THE >6* UPPER BOUND INDEX, SO BUMP THE CURRENT PARAMETER K6KEY$FI `PNU+k`@PKI0001CLM KIF$CO5KI00013ENT$MD3fSVC$ 3~FREE$ 3RET$M 7F PPABKIB00B01BCLBBBBBCCBABB*BBBB(B B#7F PPNBfB6A.BNB*B C BBB(B BABNB BB B7iF PPBBB`C B CAXBBB(B BNB CFB BB(AnB BB(72F PPB B#NBB BB B`ACBB`B7IF PP: KI0001CL 11/18/83 16:04:28 DXPSCL 1.8.0 83.357 PPjKI0003IN5KI00033ENT$M 3bSVC$ 3hRET$M ABKIB00B03BINBBF7F PPCfCBBB*BABB)B(BiB(BB6B`C BBoB4A0BB7F PPBBBfBB BBeBB BAHB B BBB BB&B&BB%Bʄ7F PPB(A`B BB B`B7F P: KI0003IN 1``>1/18/83 16:04:28 DXPSCL 1.8.0 83.357 >PvKI0004SE5KI00043ENT$M 3nSVC$ 3tRET$M ABKIB00B04BSEBB7 F PPBPBBQBRCrCABBB*BBB)B(BiB(BB6B/A0B(C 7F PPBB C BB B/B(CBB AHCBBB CBBoB+B$BfB7F PPB%A`BoB.B&BʩB(B(B BB B`B7F PP: KI0004SE 11/18/83 16:04:28 DXPSCL 1.8.0 83.357 PPlKI0005ZEM KIF$CO5KI00053ENT$S 3jRET$S ABKIB00B05BZEB7`F PPBChCBBB*BAB(BՠC B٠C BBBBBBBA0B7HF PPB BiB(B%B$BɅB BBBBAHBBBBBBBBBB7F PPBBA`BB BB"B`B7F P$: KI0005ZE 11/18/83 16:04:28 $``, DXPSCL 1.8.0 83.357 ,P|KI0006SE5KI00063ENT$M 3tSVC$ 3zRET$M ABKIB00B06BSEBB7F PPBBBCxCBABB,BBB)B(BoB6BB(BBA0B B7,F PPB`C BB٠C BBeBB*BAHB*B cB B CBICBBBBB*7F PPB sA`B B 3BICBBBBʄB(B BB AxB`B7xF PP: KI0006SE 11/18/83 16:04:28 DXPSCL 1.8.0 83.357 PP^KI0007DE5KI00073ENT$MD3VSVC$ 3\RET$M ABKIB00B07BDEBBI7F PPBB@CZCBBAB*BBB)B(BiB(B`C BB&B(A0C B7:F PPB`CBBBI`CBBB6B#AHBB%B&B.B&BB BB B`B7`F PP: KI0007DE 11/18/83 16:04:28 DXPSCL 1.8.0 83.357 P6&KI0008RE5NKI00083PENT$M 3CASE$J3SVC$ 3$RET$6``M ABKIB00B087F PBREBBBAB@BBBCBBDABEBHBBCB B CB B CB7mF PPA0BCBBCBBCBBCCAHBC"CBBB*BB7F PPB)B(BiB(A`BB6B`C BBoB4BBoB0BBAxB B&BB%7F PPB/B.B&BB(BBCACFB`C BBB`CBBB`CBA7F PPB CB%BB`CBBB`CBB`ACBBB`CBBB`C7%F PPBB/B(ACBB/B(C$BB/B(CBBB/B(AC*B B/B(C07F PPBB/B(C6BB/B(AC IDT ON OBJECT MODULE *** ES GUARANTEE A O*** NAME IS ALREADY IN THE PROCESS *** *** HEAP SPACE IS EXHAUSTED *** --- UNUSED ERROR MESSAGE --- *** UNRECOGNIZED TEXT IN COMMAND --- --- UNRECOGNIZED TEXT IN COMMAND *** *** '>' EXPECTED *** *** 'ALL' IS THE ONLY WORD PERMITTED *** *** 'THEN' EXPECTED *** *** 'TO' EXPECTED *** *** 'PROCESS' EXPECTED *** *** ONLY ARGUMENTS TO COMMAND 'LISTORDER' ARE 'ALPHA' AND 'PROCESS' *** *** ONLY ARGUMENTS TO COMMAND 'DEFAULT' ARE 'SOURCE' AND 'OBJECT' *** ----- UNUSED ERROR MESSAGE ----- ----- UNUSED ERROR MESSAGE ----- 'ENTRY POINTS"DATA XLATE DATA DIVISION* 'PATCH AREA POPS BSS  >50!* 'POP $OVERLAY TWO " XLATE DATA DIVISION  FEX  RECOVER DATA DIVISION FET  ESECT INIT LOCATIONASP  ESECT LOCATION ZER  PRESET LOCATION BOX"ZER  PRESET PACKET START BOX"ZER  SECTION FLAG SCAN DATA TITLE TSF  TTIPBATXS`P qH $`@BATCH LS=NO " P$SYN % * '2.SPLIT LIST="@$XP$P", FIRST=PREIN,REST=$XP$P22.SPLIT LIST="@$XP$P", FIRST=OUTPUT, REST=$XP$P22.SPLIT LIST="@$XP$P", FIRST=SYSMSG, REST=$XP$P20.SPLIT LIST="@$XP$P", FIRST=$P1,REST=$XP$P00.SPLIT LIST="@$XP$P", FIRST=$P, REST=$XP$P0 .SYN $P1 = "@$P1,@$P" 0.SPLIT LIST="@$XP$P", FIRST=$P2,REST=$XP$P0".SPLIT LIST="@$XP$P", FIRST=$P" .SYN $P2 = "@$P2,@$P" &.SYN $XP$P ="", $$UC = 0, $P = "" & .IF @$TIP, NE, $TIP  .SYN INPUT=@$TIP.PREOUT@$$ST .ELSE %  .SYN INPUT=.PREOUT@$$ST  .ENDIF% * 'XP$2 @$XP$O "* '<.BID TASK = 012, LUNO = 021, PARMS =(8,1,@$XR$1,@$XR$2) <* ' .IF @$$CC,LT,04000@.BID TASK = 01, LUNO = 021, PARMS = (@$P1)! EXECUTE SILT1 @* '.IF @$$CC,LT``4,0C000! IF NO RUN-TIME ERRORS (DURING SILT1), 4D .BID TASK = 02, LUNO = 021, PARMS = (@$P2,@$XR$2)! EXECUTE SILT2D .IF @$$CC,LT,08000 .SYN $$UC = @$$CC ..BID TASK = 0D, LUNO = 021, PARMS = (5,12). .IF @$$CC,LT,0C000 .IF @$TIP, NE, $TIP 6MFN O=@$TIP.DE$CFI@$$ST, N=@$TIP.DESCFI@$$ST, R=Y 66MFN O=@$TIP.CIL$FI@$$ST, N=@$TIP.CILFIL@$$ST, R=Y 6 .ELSE ! ,MFN O=.DE$CFI@$$ST, N=.DESCFI@$$ST, R=Y ,,MFN O=.CIL$FI@$$ST, N=.CILFIL@$$ST, R=Y , .ENDIF! .ENDIF" .ENDIF#  .IF @$$UC,LT,@$$CC$ .SYN $$UC = @$$CC  !SAVE $$CC $ .ENDIF#  .IF @$XR$3,EQ,"Y" D .BID TASK = 0F, LUNO = 021, PARMS = (15,3,@$XR$2)! EXECUTE XREF D .ENDIF# .ENDIF$ *.ELSE !SYNTAX ERRORS IN PREPROCESSOR *6.STOP TEXT = "PREPROCESSOR ERROR, ABORT", CODE = @$$6``CC  .ENDIF%  .IF @$$CC,GE,0C000D .STOP TEXT="TIP SYNTAX CHECK ABORTED - RUN-TIME ERRORS DETECTED"DCODE=@$$CC .ENDIF%  .IF $$CC,LT,@$$UC  .SYN $$CC = @$$UC  .ENDIF%  .IF @$$CC,LT,04000:.STOP TEXT = "TIP SYNTAX CHECK COMPLETE", CODE = @$$CC : .ENDIF%  .IF @$$CC,LT,06000B.STOP TEXT="TIP SYNTAX CHECK COMPLETE - WARNINGS IN PROGRAM", BCODE=@$$CC .ENDIF%  .IF @$$CC,LT,08000H".STOP TEXT="TIP SYNTAX CHECK COMPLETE - NONFATAL ERRORS IN PROGRAM",HCODE=@$$CC .ELSE % F!.STOP TEXT="TIP SYNTAX CHECK COMPLETE - FATAL ERRORS IN PROGRAM", FCODE=@$$CCNO = 021, PARMS = (15,3,@$XR$2)! EXECUTE XREF D .ENDIF# .ENDIF$ *.ELSE !SYNTAX ERRORS IN PREPROCESSOR *6.STOP TEXT = "PREPROCESSOR ERROR, ABORT", CODE = @$$6`EOD  TIPINST `P!   +`@ BATCH LS$ * '8* THIS BATCH PROCEDURE INSTALLS THE PASCAL SYSTEM. 8B* THIS VERSION IS FOR PASCAL EXECUTION UNDER DX10 RELEASE 3.B0* THE FOLLOWING SYNONYMS MUST BE ASSIGNED:0* '>* CMPVOL - MUST BE ASSIGNED TO THE DISK VOLUME WHERE THE>:*  PASCAL COMPILER IS TO BE INSTALLED.FOR EXAMPLE::* .SYN CMPVOL=VOLX6*  WILL CAUSE THE COMPILER TO BE INSTALLED UNDER68* DIRECTORY "VOLX.TIP". IF YOU WANT TO INSTALL 88*  THE COMPILER ON THE SYSTEM DISK, YOU CAN ASSIGN8:*  CMPVOL TO " " (BLANK). IF YOU WANT TO LEAVE THE ::*  COMPILER ON THE INSTALLATION DISK, YOU CAN ASSIGN:8* CMPVOL TO DXPASCAL. IF YOU WANT TO INSTALL THE84*  RUN-TIME ONLY, THEN ASSIGN CMPVOL TO DUMY. 4* '8* RTLVOL - MUST BE ASSIGNED TO THE DISK VOLUME WHERE8`` THE PASCAL <*  RUN-TIME LIBRARY IS TO BE INSTALLED. FOR EXAMPLE: <* .SYN RTLVOL=VOLZ6*  WILL CAUSE THE RUN-TIME TO BE INSTALLED UNDER68* DIRECTORY "VOLZ.TIP". IF YOU WANT TO INSTALL 88*  THE RUN-TIME ON THE SYSTEM DISK, YOU CAN ASSIGN8:*  RTLVOL TO " " (BLANK). IF YOU WANT TO LEAVE THE ::*  RUN-TIME ON THE INSTALLATION DISK, YOU CAN ASSIGN:8*  RTLVOL TO DXPASCAL (THIS ALSO REQUIRES THAT THE8(*  DXPASCAL DISK BE UN-PROTECTED).(8*  IF YOU WANT TO INSTALL THE COMPILER ONLY, THEN 8 * ASSIGN RTLVOL TO DUMY.  * '** THE FOLLOWING SYNONYM IS OPTIONAL:** '@* SYSVOL - THE VOLUME NAME OF THE DISK WHICH WILL BE USED @8*  AS THE SYSTEM DISK WHEN PASCAL IS RUN. THE SCI82*  PROCS AND ERROR MESSAGE FILES WILL BE INSTA2``LLED8*  HERE.IF THIS SYNONYM IS NOT DEFINED, THEN THE8:*  CURRENT SYSTEM DISK WILL BE USED.IF YOU DO NOT :<*  WANT TO INSTALL THE PROCS AND ERROR MESSAGE FILES, <$*  THEN ASSIGN SYSVOL TO DUMY.$* '*  NOTE:"* 'H*  THE PASCAL PROCS ACCESS THE COMPILER USING THE GLOBAL LUNO >21. HD* IF PASCAL HAS BEEN INSTALLED ON THE SYSTEM DISK, AND GLOBAL DH*  LUNO >21 IS TO BE ASSIGNED AUTOMATICALLY, THE INITIALIZE SYSTEM HF* PROC ".S$PROC.IS" SHOULD BE MODIFIED TO ASSIGN GLOBAL LUNO >21FB* TO "@CMPVOL.TIP.PROGRAM". THIS LUNO SHOULD BE PROTECTED. B* ' .IF @CMPVOL, NE, DUMY  MLP LUNO=021, PROTECT=U &RGL LUNO=021 ! ERROR 0001 IS OK & .ENDIF%  .IF @CMPVOL, NE, DUMY MFP  P = @CMPVOL.TIPMFP  P = @CMPVOL.TIP.P`` ROGRAM $MFP  P = @CMPVOL.TIP.TIPBATXS $$MFP  P = @CMPVOL.TIP.TIPBATXT $$MFP  P = @CMPVOL.TIP.TIPBATXL $2MFP  P = @CMPVOL.TIP.MACROS ! ERROR IS OK 2 .ENDIF%  .IF "@SYSVOL", NE, "DUMY" MFP  P = @SYSVOL.TIP$MFP  P = @SYSVOL.TIP.TIPBATXS $$MFP  P = @SYSVOL.TIP.TIPBATXT $$MFP  P = @SYSVOL.TIP.TIPBATXL $"MFP  P = @SYSVOL.TIP.ERRORS ""MFP  P = @SYSVOL.TIP.CFGERR " .ENDIF% * '*  DELETE OLD DIRECTORIES* ' .IF @RTLVOL, NE, DUMY MFP  P = @RTLVOL.TIPMFP  P = @RTLVOL.TIP.OBJ"MFP  P = @RTLVOL.TIP.LUNOBJ ""MFP  P = @RTLVOL.TIP.MINOBJ " MFP  P = @RTLVOL.TIP.MISC  2MFP  P = @RTLVOL.TIP.MACROS  ! ERROR IS OK2 .IF @@RTLVOL, NE, @DXPASCAL  CC IN=@RTLVOL.TIP.OBJ.P$MAIN, `` OUT=DUMY J.IF @$$CC,EQ,0! IF PASCAL PREVIOUSLY INSTALLED HERE, THEN DELETE IT.J .IF @CMPVOL, NE, DUMY  DD PATH=@RTLVOL.TIP, AYS=YES .ELSE # $DD PATH=@RTLVOL.TIP.OBJ, AYS=YES$(DD PATH=@RTLVOL.TIP.LUNOBJ, AYS=YES ((DD PATH=@RTLVOL.TIP.MINOBJ, AYS=YES (&DD PATH=@RTLVOL.TIP.MISC, AYS=YES &. DF PATH=@RTLVOL.TIP.MACROS ! ERROR IS OK. DF PATH=@RTLVOL.TIP  .ENDIF# 4CM MSG = "DELETE @RTLVOL.TIP DIRECTORY COMPLETE"4 .ELSE $ 6 .IF @RTLVOL, EQ, RTLVOL  ! IF SYNONYM NOT DEFINED 64 .SYN RTLVOL="@SYSVOL"  ! DEFAULT TO SYSTEM DISK 4BCM MSG="RTLVOL NOT DEFINED; INSTALLING RUNTIME ON @SYSVOL.TIP"B .ENDIF# .ENDIF$ .ENDIF ! RTLVOL NE DXPASCAL .ENDIF! RTLVOL NE DUMY* ' .IF @CMPVOL, NE, DUMY  .IF @@CMPVOL, NE, @DXPASCAL  ``@ DF PATH=@CMPVOL.TIP.PROGRAM  B.IF @$$CC,EQ,0! IF OLD TIP DIRECTORY EXISTS, THEN DELETE IT.B .IF @RTLVOL, NE, DUMY  DD PATH=@CMPVOL.TIP, AYS=YES .ELSE #  DF PATH=@CMPVOL.TIP  .ENDIF# .ELSE $ 6 .IF @CMPVOL, EQ, CMPVOL  ! IF SYNONYM NOT DEFINED 64 .SYN CMPVOL="@SYSVOL"  ! DEFAULT TO SYSTEM DISK 4D CM MSG="CMPVOL NOT DEFINED; INSTALLING COMPILER ON @SYSVOL.TIP" D .ENDIF# .ENDIF$ * 'D* CREATE THE DIRECTORY FOR THE TIP PROCS AND PROGRAM LIBRARY. D* '4CFDIR PATHNAME = @CMPVOL.TIP, MAX ENTRIES = 14 4* '* '6* COPY THE DIRECTORY CONTAINING THE TIP PROGRAM 6* LIBRARY.* ' .DATA .CPTEMP@$$ST INCLUDE PROGRAM .EOD& CD INPUT = @DXPASCAL.TIP,   OUTPUT = @CMPVOL.TIP, CONTROL = .CPTE`` MP@$$ST  EC'2CM MSG = "COPY @CMPVOL.TIP.PROGRAM COMPLETE"2DF P = .CPTEMP@$$ST 0MFP P=@CMPVOL.TIP.PROGRAM, W-DP=YES, DP=YES 0 .ENDIF ! CMPVOL NE DXPASCAL 4AGL LUNO=021, ACNM=@CMPVOL.TIP.PROGRAM, PGM=YES 4EC'.ENDIF! CMPVOL NE DUMY* ' .IF @SYSVOL, NE, DUMY 4CFDIR P=@SYSVOL.TIP, MAX=14 ! ERROR 0026 IS OK 4>CC IN=@DXPASCAL.TIP.ERRORS, OUT=@SYSVOL.TIP.ERRORS, R=YES >EC&>CC IN=@DXPASCAL.TIP.CFGERR, OUT=@SYSVOL.TIP.CFGERR, R=YES >EC&BCC IN=@DXPASCAL.TIP.TIPBATXS, OUT=@SYSVOL.TIP.TIPBATXS, R=YES BEC&BCC IN=@DXPASCAL.TIP.TIPBATXT, OUT=@SYSVOL.TIP.TIPBATXT, R=YES BEC&BCC IN=@DXPASCAL.TIP.TIPBATXL, OUT=@SYSVOL.TIP.TIPBATXL, R=YES BEC& .ENDIF% * '2* CREATE DIRECTORY FOR RUN-TIME SUPPORT LIBRAR2``Y, :* 480 IF BOTH "OBJ" AND "FIXEDOBJ" ARE TO BE MERGED, :** 380 IF ONLY "OBJ" IS TO BE COPIED.** ' .IF @RTLVOL, NE, DUMY H"CFDIR PATHNAME = @RTLVOL.TIP, MAX ENTRIES = 14 ! ERROR 0026 IS OK H8CFDIR PATHNAME = @RTLVOL.TIP.OBJ, MAX ENTRIES = 48084AA PATH=@RTLVOL.TIP.OBJ, ALIAS=@RTLVOL.TIP.DXOBJ4* ',*  COPY THE RUN-TIME SUPPORT LIBRARIES,* '@*  (THE MODULES WHICH ARE EXCLUDED WERE USED AS COMPONENTS @>* OF PARTIAL LINKS, SO THEY ARE NOT NEEDED BY THEMSELVES > *  IN THE OBJECT LIBRARY.)  * ' .DATA .CPTEMP@$$ST0EXCLUDE DUMPPR,ENR$T$,FL$DBL$$,FLITP,FPINIT 0 EXCLUDE FTDOBJ,FTSOBJ,RHELP$ &EXCLUDE DER$T$,TEN$,TEN$DX,Q$MULA &6EXCLUDE TEN$D$,FL$ITX,E$FAI$,FATA$$,TX$ER$,RELEA$ 6END &.EOD& CD CON=.CPTEMP@$$ST,``2 IN=@DXPASCAL.TIP.COMOBJ, OUT=@RTLVOL.TIP.OBJ 2EC'@ .IF @$TIP$F,NE,$TIP$F ! INSTALL FIXED AND DECIMAL SUPPORT @<CD I=@DXPASCAL.TIP.FIXEDOBJ, OUT=@RTLVOL.TIP.OBJ, CON="" <EC' .ENDIF% :CD I=@DXPASCAL.TIP.OSLOBJ, OUT=@RTLVOL.TIP.OBJ, CON="" :EC' .DATA .CPTEMP@$$ST EXCLUDE FPTERM,SCIFRTNS END &.EOD&F!CD CON=.CPTEMP@$$ST, IN=@DXPASCAL.TIP.SCIOBJ, OUT=@RTLVOL.TIP.OBJ FEC' .IF @@RTLVOL, NE, @DXPASCAL   .DATA .CPTEMP@$$ST EXCLUDE FLITP,FPTERMEND %.EOD%H"CD CON=.CPTEMP@$$ST, IN=@DXPASCAL.TIP.LUNOBJ, OUT=@RTLVOL.TIP.LUNOBJHEC&>CD I=@DXPASCAL.TIP.MINOBJ, OUT=@RTLVOL.TIP.MINOBJ, CON="" >EC& .DATA .CPTEMP@$$ST INCLUDE ACCDXO,KEY$FI END %.EOD%,CD CON=.CPTEMP@$$ST, IN=@DXPASCAL.TIP.MISC,`` , OUT=@RTLVOL.TIP.MISCEC& .ENDIF%  DF P=.CPTEMP@$$ST * ',CM MSG = "COPY TIP RUN-TIME COMPLETE" ,0MFP  P = @RTLVOL.TIP, W-DP = YES, DP = YES04MFP  P = @RTLVOL.TIP.OBJ, W-DP = YES, DP = YES48MFP  P = @RTLVOL.TIP.LUNOBJ, W-DP = YES, DP = YES 88MFP  P = @RTLVOL.TIP.MINOBJ, W-DP = YES, DP = YES 86MFP  P = @RTLVOL.TIP.MISC, W-DP = YES, DP = YES 6.ENDIF! RTLVOL NE DUMY* '$* PROTECT ALL TIP DIRECTORIES.$* ' .IF @CMPVOL, NE, DUMY 0MFP  P = @CMPVOL.TIP, W-DP = YES, DP = YES0 .ENDIF%  .IF @SYSVOL, NE, DUMY :MFP  P = @SYSVOL.TIP.TIPBATXS, W-DP = YES, DP = YES ::MFP  P = @SYSVOL.TIP.TIPBATXT, W-DP = YES, DP = YES :* '*  INSTALL TIP PROCS * ' .SYN PO=@SYSVOL.S$PROC .SYN EC$$= `` @$E$C .XB IAN=@DXPASCAL.PROCS, LIST=.CPTEMP@$$ST . .EVAL $E$C = @EC$$ + @$$BC.SYN EC$$=""".IF @$$BC, NE, 0  SF FILE=.CPTEMP@$$ST .ENDIF%  DF P=.CPTEMP@$$ST .SYN PO=""#.ENDIF! SYSVOL NE DUMY* ' .IF "@SYSVOL", EQ, " ".SYN SYSVOL=""  .ENDIF% * 'SDT &J#EBATCH TEXT="TIP INSTALLATION COMPLETED WITH @$E$C ERRORS", CODE=@$E$CJLVOL NE DUMY* '$* PROTECT ALL TIP DIRECTORIES.$* ' .IF @CMPVOL, NE, DUMY 0MFP  P = @CMPVOL.TIP, W-DP = YES, DP = YES0 .ENDIF%  .IF @SYSVOL, NE, DUMY :MFP  P = @SYSVOL.TIP.TIPBATXS, W-DP = YES, DP = YES ::MFP  P = @SYSVOL.TIP.TIPBATXT, W-DP = YES, DP = YES :* '*  INSTALL TIP PROCS * ' .SYN PO=@SYSVOL.S$PROC .SYN EC$$= `PROCS `PA'> +` BATCH % .USE @PO$ .PROC SPID (SHOW PASCAL ID) L$************************************************************************L,* PURPOSE: SHOW VERSION OF PASCAL SYSTEM, * PROCEDURES CALLED: * MSG $ * OUTPUTS:# *  VERSION OF PASCAL SYSTEM L$************************************************************************LDMSG T = "DXPSCL  1.8.083.357TI 990 PASCAL COMPILER (DX10)"D.EOP&EC' .PROC % FP$DELETE (DELETE TIP TEMPORARY FILES ) = 0,FL$************************************************************************LF!* PURPOSE: DELETE ALL TEMPORARY FILES GENERATED BY THE COMPONENTS F"*  OF THE TI PASCAL SYSTEM. "* INPUTS: #B* STATION: STATION NUMBER OF THE USER FOR WHOM THE FILES ARE B*  TO BE DELETED. ``@ * PROCEDURES CALLED: * NONE$ * HISTORY:#*  10/25/77: ORIGINAL. 4* 12/07/77: REMOVE XTIP "CONCATENATION" FILES.4 *  10/06/78: ADD "IDFILE".  ,* 11/01/78: SWITCH TO DELETE FILE TASK,8* 11/02/78: ADD VERSION INFO TO PROC DISPLAY LINE 8L$************************************************************************L STATION = INT (@$$ST)  .IF @&STATION,GT,"39" "MSG TEXT="INVALID STATION ID" " .EXIT % .ENDIF% ..BID TASK=0B, LUNO=021, PARMS=(@&STATION) .L.EOP! !================================================================LEC' .PROC MODE$$ = 0, L$************************************************************************LF!* PURPOSE: SET SYNONYM "BID$" BASED ON THE DESIRED EXECUTION MODE.F* INPUTS: #* MODE: EXECUTIO`` N MODE.  * OUTPUTS:#B* BID$: SET TO "QBID" (BACKGROUND OR BATCH), "DBID" (DEBUG), B*  OR "BID" (FOREGROUND).* HISTORY:#*  10/25/77: ORIGINAL. 8* 12/07/77: ALWAYS GENERATE "QBID" IN BATCH MODE. 8H*  07/03/80: CHANGE PARAMETER NAME FROM "INPUT" TO "MODE" TO REDUCEH.* CONFUSION WHEN READING BATCH LISTINGS..L* "07/11/80: FORCE FOREGROUND MODE IF SYSMSG FILE ASSIGNED TO TERMINAL.LD* 07/07/80: CHANGE PROC NAME FROM "MODE$" TO "MODE$$" TO AVOIDD.* CONFUSION WITH PROCS USING OLD MODE$. .L$************************************************************************LMODE = *STRING!.SYNBID$ = ""  .IF "&MODE", GE, "B"  .IF "&MODE", LT, "C".SYNBID$ = "QBID"  .ENDIF% .ENDIF% *.IF "@@SYSMSG", EQ, "@ME" ! IF MESSAGE F*`` ILE TO USER'S TERMINAL 4 .SYN BID$ = "BID" ! THEN FORCE FOREGROUND MODE 4 .ENDIF%  .IF "&MODE", GE, "D"  .IF "&MODE", LT, "E".SYNBID$ = "DBID"  .ENDIF% .ENDIF%  .IF "&MODE", GE, "F"  .IF "&MODE", LT, "G".SYNBID$ = "BID" .ENDIF% .ENDIF%  .IF @BID$, EQ, BID$J#MSG T = "ERROR: MODE NOT BACKGROUND (OR BATCH), DEBUG, OR FOREGROUND" J,MSG T = " BACKGROUND / BATCH ASSUMED" , .SYN BID$ = "QBID" .ENDIF%  .IF @$$MO, EQ, 0  .SYN BID$ = "QBID" .ENDIF% .EOP&EC',DF PATH=@PO.LPWIDTH ! ERROR 0027 IS OK ,.SYN $$CC=0 ".DATA @PO.M$TIP  TI PASCAL COMMANDS( EXECUTE TI PASCAL TASKS<XTIP- TIP COMPILERXCONFIG - CONFIGURATION PROCESSOR< XSILT - TIP PARSERXCONFIGI`` - (CONFIG) INTERACTIVELY @ XCODE - TIP CODE GENERATORXNESTER - SOURCE PROGRAM NESTER@>XTIPL - TIP COMPILE AND LINKXRASS  - REVERSE ASSEMBLER>6XPP  - TIP PREPROCESSORXSPLIT - SPLIT OBJECT 6BXPX  - TIP CROSS REFERENCE XSPLITPG - SPLIT SOURCE PROGRAM B>XPT - TI PASCAL TASKXALX - EXTRACT ASSEMBLY LANGUAGE>(0P$DELETE - DELETE TI PASCAL TEMPORARY FILES 00P$SYN  - DELETE TI PASCAL GLOBAL SYNONYMS 0.EOD&.PROC P$SYN "F!.SYN $PS = "", $PO = "", $PL = "", $PM = "", P$SC = "", P$UC = "",FF! BID$ = "", $PCL = "", $PCC = "", $PID = "", $PINP = "", P$CC="", FB $POUT = "", $PTM = "", $P = "", $P1 = "", $P2 = "", $P3 = "",BH" $P4 = "", $$TID = "", $XR$1 = "", $XR$2 = "", $XR$3 = "", $$UC = ""H.EOP&EC'.PROC TIP$MSG, ************``@************************************************************@B* PURPOSE: SHOWS THE MESSAGE FILE IF NOT SPECIFIED IN THE PROC B* INPUTS: #0* MSG: THE VALUE OF THE MESSAGE PARAMETER 0* HISTORY:#*  02/20/78: ORIGINAL. 6* 11/21/80: USE SYNONYM $TIP AS PATHNAME PREFIX.6L$************************************************************************L MSG = *ACNM .IF "&MSG", NE, "" .EXIT $ .ENDIF%  .IF "@$TIP", NE, "$TIP"  .SHOW @$TIP.SYSMSG@$$ST  .ELSE %  .SHOW .SYSMSG@$$ST .ENDIF% .EOP&EC'D .PROC XCODE (EXECUTE TI 990 CODEGEN ) =2, DL$************************************************************************LJ#* PURPOSE: EXECUTE THE CODE GENERATION PASS OF THE TI PASCAL COMPILER.J* INPUTS: #**``@,* OBJECT:  GENERATED OBJECT MODULES. , * LISTING:LISTING FILE.  *  MESSAGES: MESSAGES FILE. 0* MEMORY: STACK/HEAP MEMORY ALLOCATION. 0F* MODE: EXECUTION MODE: BACKGROUND (BATCH), DEBUG, FOREGROUND.F * PROCEDURES CALLED:* MODE$$, TIP$MSG * OUTPUTS:#J* !1. THE SYNONYMS P$, BID$, OBJECT, OUTPUT, AND SYSMSG ARE DELETED. J8* 2. THE SYNONYMS $PL, $PM, $PO, $P3 ARE MODIFIED.8* HISTORY:#&* 10/25/77: ORIGINAL (XCODEGEN).&B* 12/07/77: REMOVE OUTPUT FILE CONCATENATION; USE LUNO >21. B&* 01/30/77: IMPROVE MASK FORMAT.&"*  02/20/78: ADD TIP$MSG CALL"D* 10/26/78: MODIFY FOR CONDITION CODE IN $$CC INSTEAD OF P$SC.DJ* !10/23/79: DEFAULT MEMORY TO 10,6 INSTEAD OF 10,8 FOR VERSION 1.6. J(* 06/18/80: FIX TO DELETE SYNONYM BI(``D$<* 07/03/80: DO SYNONYM MAPPING ON "SAME" FILE CHECKS. <8* 07/22/80: DEFAULT MEMORY TO 10,4 INSTEAD OF 10,68L$************************************************************************L OBJECT = *ACNM (@$PO),  LISTING = *ACNM (@$PL), MESSAGES = *ACNM (@$PM),  MEMORY = *(INT) ("@$P3"),& MODE (B,F,D) = *NAME (BACKGROUND)&* ' *  VALIDATE INPUT ARGUMENTS * ' .IF "&OBJECT", NE, ""  .IF "@&OBJECT", EQ, "@$PS"> MSG TEXT = "ERROR: SOURCE AND OBJECT FILES ARE THE SAME" > .EXIT % .ENDIF% .ENDIF% * ' .IF "&LISTING", NE, "" .IF "@&LISTING", EQ, "@$PS"  > MSG TEXT = "ERROR: SOURCE AND LISTING FILES ARE THE SAME" > .EXIT % .ENDIF% .ENDIF% * ' .IF "&MESSAGES", NE, "" .IF "@&MESSAGE``S", EQ, "@$PS"> MSG TEXT = "ERROR: SOURCE AND MESSAGE FILES ARE THE SAME" > .EXIT % .ENDIF% .ENDIF% * '.SYN P$ = """6 .IF "&MESSAGES",EQ,""  ! IF "MESSAGES" IS DEFAULT 60.IF @$PM,NE,$PM  ! AND LAST TIME IT WASN'T 06 .SYN P$ = .SYSMSG@$$ST ! THEN DELETE DEFAULT FILE 6 .ENDIF% .ENDIF% : .IF "&MESSAGES",NE,"" ! IF "MESSAGES" IS NOT DEFAULT :< .IF "&MESSAGES",NE,@$PM ! AND DIFFERENT FROM LAST TIME <2 .SYN P$ = "&MESSAGES"  ! THEN DELETE IT FIRST2 .ENDIF% .ENDIF% .IF @P$,NE,P$ !.IF @P$,NE,ME !.DATA @@P$"@++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ @"+  SILT MESSAGES MISSING  + "@++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ @.EOD& .ENDIF% .ENDIF% * '.SYN``  P$ = """ 4 .IF "&LISTING",EQ,"" ! IF "LISTING" IS DEFAULT 40.IF @$PL,NE,$PL  ! AND LAST TIME IT WASN'T 06 .SYN P$ = .OUTPUT@$$ST ! THEN DELETE DEFAULT FILE 6 .ENDIF% .ENDIF% 8 .IF "&LISTING",NE,""! IF "LISTING" IS NOT DEFAULT 8: .IF "&LISTING",NE,@$PL! BUT DIFFERENT FROM LAST TIME :0 .SYN P$ = "&LISTING" ! THEN DELETE IT FIRST0 .ENDIF% .ENDIF% .IF @P$,NE,P$ !.IF @P$,NE,ME !.DATA @@P$"@++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ @ +  SILT LISTING MISSING  + @++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ @.EOD& .ENDIF% .ENDIF% * '.SYN P$ = """* '&* DELETE GLOBAL PASCAL SYNONYMS &* '.SYN $PO = "" !.SYN $PL = "" !.SYN $PM = "" !* '``$* SET UP LOGICAL FILE SYNONYMS$* ' .SYN OBJECT = "&OBJECT"  .SYN OUTPUT = "&LISTING" .SYN SYSMSG = "&MESSAGES" * ' *  SET UP MEMORY PARAMETERS * ' .IF "&MEMORY",EQ,""  .SYN $P3 = "10,4"  .ELSE %  .SYN $P3 = "&MEMORY" .ENDIF% * '2* BID CODEGEN IN APPROPRIATE EXECUTION MODE 2* '6 MODE$$ MODE = "&MODE (B,F,D)" ! SET SYNONYM BID$62.@BID$TASK = >03, LUNO = >21, PARMS = (@$P3)2* '$* DELETE LOGICAL FILE SYNONYMS$* '.SYN OBJECT = "" .SYN OUTPUT = "" .SYN SYSMSG = "" * '&* RESTORE GLOBAL PASCAL SYNONYMS&* ' .SYN $PO = "&OBJECT" .SYN $PL = "&LISTING"  .SYN $PM = "&MESSAGES"* '2* IF EXECUTING FROM BATCH STREAM, WE'RE DONE2* '``.IF @$$MO, EQ, 0  .EXIT % .ENDIF% * 'D* IF BACKGROUND EXECUTION INTERACTIVELY INITIATED, WE'RE DONE D* ' .IF @BID$, NE, BID.SYN BID$ = ""! .EXIT % .ENDIF% * '.SYN BID$ = ""!* '$* SEND COMFORTING (?) MESSAGE $* '8 .SYN P$CC = @$$CC  ! SAVE CONDITION CODE10/26/788: .IF @P$CC, LT, 0C000 ! TEST CONDITION CODE10/26/78:, MSG TEXT = "CODEGEN EXECUTION COMPLETE", .ELSE % F! MSG TEXT = "CODEGEN EXECUTION ABORTED - RUN-TIME ERRORS DETECTED"F .ENDIF% * '** DISPLAY MESSAGE FILE, IF POSSIBLE ** ' TIP$MSG MSG = "&MESSAGES" 8.SYN $$CC = P$CC ! RESTORE CODITION CODE10/26/7886.SYN P$CC = "" ! DELETE TEMPORARY SYN.10/26/7868.EOP!-----------------------------------------------8`` ------------------EC' .PROC % H" XTIPL(EXECUTE TI PASCAL COMPILE AND LINK )=2,H* HISTORY:#.* 1/07/80: ORIGINAL EXPERIMENTAL VERSION.&* 6/17/80: PREPARED FOR RELEASE &@* 7/03/80: FORCE FOREGROUND MODE IF SYSMSG ASSIGNED TO ME.@D*  12/09/80: USE SYNONYM $TIP AS PREFIX TO DEFAULT PATHNAMES. DL* " 08/11/81: CHANGE TASK NAME TO "NAME" PARAMETER INSTEAD OF "STRING".L* ' SOURCE = *ACNM (@$PS), OBJECT = *ACNM (@$PO), LISTING = *ACNM (@$PL),  MESSAGES = *ACNM (@$PM), OPTIONS = *STRING, PROGRAM FILE = ACNM (@$$PF),  TASK NAME = NAME(@$PID),"LINK LISTING = ACNM(@$XLE$L), " MEM1, % MEM2, % MEM3& .IF "&SOURCE", NE, "" $.IF "@&SOURCE", EQ, "@&LISTING" $ MSG TEXT = "ERROR:SOUR``&CE AND LISTING FILES ARE THE SAME" & .EXIT % .ENDIF% .ENDIF%  .IF "&SOURCE", NE, "" ".IF "@&SOURCE", EQ, "@&OBJECT""<MSG TEXT = "ERROR: SOURCE AND OBJECT FILES ARE THE SAME" < .EXIT % .ENDIF% .ENDIF%  .IF "&SOURCE", NE, "" $.IF "@&SOURCE", EQ, "@&MESSAGES"$> MSG TEXT = "ERROR:SOURCE AND MESSAGE FILES ARE THE SAME" > .EXIT % .ENDIF% .ENDIF% 0.SYN $PS = "", $PL = "", $PM = "", $PO = "" 0 .IF "&MEM1",EQ,"" .SYN $P1 = "6,4"  .ELSE %  .SYN $P1 = "&MEM1" .ENDIF%  .IF "&MEM2",EQ,""  .SYN $P2 = "13,4"  .ELSE %  .SYN $P2 = "&MEM2" .ENDIF%  .IF "&MEM3",EQ,""  .SYN $P3 = "10,4"  .ELSE %  .SYN $P3 = "&MEM3" .ENDIF% 6.IF "@&MESSAGES", EQ, "@ME" ! IF MESSAGES ASSIGNED 6`` TO USER'S TERMINAL4.SYN BID$="BID"  ! THEN FORCE FOREGROUND MODE 4 .ELSE % 4XR$1 &OPTIONS  ! ELSE CHECK FOREGROUND OPTION 4 .ENDIF%  .IF @BID$, EQ, QBID 6.SYN $XP$O = "&OPTIONS", $XP$P = "@$P1,@$P2,@$P3",68$XP$P = "(&SOURCE,&OBJECT,&LISTING,&MESSAGE,@$XP$P)"8H".SYN $PID="&TASK NAME", $$PF="&PROGRAM FILE", $XLE$L="&LINK LISTING"H4XB INPUT = .TIP.TIPBATXL, LISTING = .TIPBAT@$$ST4 .ELSE % >.SYN $$UC = "0", SYSMSG = "&MESSAGES", OBJECT = "&OBJECT", >, PREIN = "&SOURCE", OUTPUT = "&LISTING" , .IF "@$TIP", EQ, "$TIP"  .SYN INPUT=".PREOUT@$$ST"  .ELSE % .SYN INPUT=@$TIP.PREOUT@$$ST .ENDIF% XP$2 &OPTIONS !>.BIDTASK = 012, LUNO = 021, PARMS = (8,1,@$XR$1,@$XR$2) > .IF @$$CC,LT,04000*.BID TASK = 01, LUNO = 021, PARMS = (@$P*``1)! SILT1  .IF @$$CC,LT,0C000@.BID TASK = 02, LUNO = 021, PARMS = (@$P2,@$XR$2) ! SILT2 @ .IF @$$CC,LE,04000 .SYN $$UC = @$$CC 8.BID TASK = 0D, LUNO = 021, PARMS = (5,12)! T9OPT 8 .IF @$$CC,LT,0C000 .IF "@$TIP", NE, "$TIP" 6MFN O=@$TIP.DE$CFI@$$ST, N=@$TIP.DESCFI@$$ST, R=Y 66MFN O=@$TIP.CIL$FI@$$ST, N=@$TIP.CILFIL@$$ST, R=Y 6 .ELSE % ,MFN O=.DE$CFI@$$ST, N=.DESCFI@$$ST, R=Y ,,MFN O=.CIL$FI@$$ST, N=.CILFIL@$$ST, R=Y , .ENDIF% :.BID TASK = 03, LUNO =021, PARMS = (@$P3) ! CODEGEN : .IF @$$CC,LT,06000 .IF "@OBJECT", EQ, "OBJECT"   .IF "@$TIP", NE, "$TIP" ".SYN OBJECT=@$TIP.OBJECT@$$ST " .ELSE #  .SYN OBJECT=".OBJECT@$$ST" .ENDIF# .ENDIF$ (.DATA .INPUT@$$ST, SUBSTITUTION=YES ( FORMAT IMAGE, REPL``ACE LIBRARY .TIP.OBJ TASK &TASK NAME INCLUDE (MAIN)!INCLUDE @OBJECT END &.EOD%.SYN PREIN="" F!XLE CON=.INPUT@$$ST, LINKOUT="&PROGRAM FILE",LIST="&LINK LISTING" F .ENDIF% .ENDIF% .ENDIF% .IF @$XR$3,EQ,Y  .IF @$$UC,LT,@$$CC .SYN $$UC = @$$CC  .ENDIF% >.BIDTASK = 0F, LUNO = 021, PARMS = (15,3,@$XR$2)! XREF > .ENDIF% .ENDIF% .ELSE %  .SYN $$UC = @$$CC *MSG TEXT = "PREPROCESSOR ERROR, ABORT"* .SYN $$CC = @$$UC, $$UC = "" .EXIT % .ENDIF% .ENDIF% H".SYN PREIN = "", INPUT = "", OBJECT = "", OUTPUT = "", SYSMSG = "", HD $PS = "&SOURCE", $PL = "&LISTING", $PM = "&MESSAGES", $XR$1="", D<$XR$2="", $XR$3="", $XP$O="", $XP$P="", $PO = "&OBJECT" <.SYN $$PF="&PROGRAM FILE", $``PID="&TASK NAME" .IF @BID$, EQ, QBID .SYN BID$ = ""! .EXIT % .ENDIF%  .IF @$$CC,LT,@$$UC .SYN $$CC = @$$UC  .ENDIF% .SYN BID$ = "", $$UC = @$$CC  .IF @$$CC, EQ, 00000*MSG TEXT = "TIP COMPILATION COMPLETE" * .ELSE %  .IF @$$CC, GE, 0C000D MSG TEXT = "TIP COMPILATION ABORTED - RUN-TIME ERRORS DETECTED" D .ENDIF%  .IF @$$CC, EQ, 08000D MSG TEXT = "TIP COMPILATION COMPLETE - FATAL ERRORS IN PROGRAM" D .ENDIF%  .IF @$$CC, EQ, 06000F!MSG TEXT = "TIP COMPILATION COMPLETE - NONFATAL ERRORS IN PROGRAM"F .ENDIF%  .IF @$$CC, EQ, 04000@MSG TEXT = "TIP COMPILATION COMPLETE - WARNINGS IN PROGRAM" @ .ENDIF% .ENDIF% .IF @$$MO,NE,"0"  TIP$MSG MSG = "&MESSAGES"  .ENDIF%  .SYN $$CC = @$$UC, $$UC ``= "".EOP&EC' .PROC % D XCONFIG (EXECUTE CONFIG PROCESSOR ) = 0, DL$************************************************************************L4* PURPOSE: EXECUTE THE CONFIGURATION PROCESSOR. 4* INPUTS: #J* !COMMANDS: FILE CONTAINING COMMANDS FOR THE CONFIGURTION PROCESSOR.JL* "CRT FILE: FILE ON WHICH COMMANDS ARE ECHOED IN THE INTERACTIVE MODE.LJ* LISTING:LISTING OF COMMANDS AND CONFIGURATION PROCESSOR OUTPUT. J *  MESSAGES: MESSAGE FILE.  F* MODE: EXECUTION MODE: BACKGROUND (BATCH), DEBUG, FOREGROUND.FB* SOURCE: FILE ON WHICH SOURCE FOR COMPILATION IS STAGED. BL* OBJECT: FILE ON WHICH OBJECT MODULES ARE COLLECTED AND FROM WHICH L(* THEY ARE SPLIT INTO A DIRECTORY.(,* MEMORY: STACK/HEAP MEMORY ALLOCATION,`` * PROCEDURES CALLED:"*  DF, MODE$$, MSG, TIP$MSG. "* OUTPUTS:#F* 1. THE SYNONYMS BID$, COMPFILE, CPTEMP, CRTFIL, INPUT, OBJECT,F(*  OUTPUT, AND SYSMSG ARE DELETED.(D* 2. THE SYNONYMS $PCC, $PCL, $PM, $PS, AND $PO ARE MODIFIED. D* HISTORY:#*  10/25/77: ORIGINAL. J* !12/07/77: GET STACK/HEAP ORDERED PAIR; DEFAULT CRT FILE TO "DUMY";J* USE LUNO >21. &* 02/20/78: ADD CALL TO TIP$MSG.&<* 10/26/78: MODIFY TO PRESERVE CONDITION CODE IN $$CC. <8* 11/02/78: ADD VERSION INFO TO PROC DISPLAY LINE.8H*  06/18/80: USE SYNONYM $PO AS DEFAULT VALUE OF OBJECT PARAMETER. H@* 08/11/81: CHANGE MODE PARAMETER FROM "STRING" TO "NAME". @L* "08/24/81: IN BATCH STREAM, SET COMMAND SYNONYM FOR NEXT STEP TO USE L"* DEFERRED COMMAND FILE INSTEA"`` D OF THE SAME COMMANDS AS .* THIS STEP. (PARTIAL FIX FOR STR 9092).L$************************************************************************L COMMANDS = *ACNM (@$PCC), CRT FILE = *ACNM (DUMY),  LISTING = *ACNM (@$PCL),  MESSAGES = *ACNM (@$PM),  MODE = NAME (BATCH),  SOURCE = *ACNM, OBJECT = *ACNM(@$PO), MEMORY = (INT) ("4,8") * '0*  DELETE GLOBAL SYNONYMS TO RELEASE SPACE0* '.SYN $PCC = ""!.SYN $PCL = ""!.SYN $PM = "" !.SYN $PS = "" !.SYN $PO = "" !* '(*  ASSIGN VALUES TO LOCAL SYNONYMS (* ' .SYN INPUT = "&COMMANDS" .SYN CRTFIL = "&CRT FILE"  .SYN SYSMSG = "&MESSAGES"  .SYN OUTPUT = "&LISTING" .SYN COMPFILE = "&SOURCE"  .SYN OBJECT = "&OBJECT" ``@>.SYN CPTEMP = ""! FORCE THE DEFAULT VALUE "CPTEMP@$$ST" >* '*  BID THE TASK * ' MODE$$ MODE = "&MODE" 4.@BID$ TASK = 04, LUNO = 021, PARMS = (&MEMORY) 4* '* DELETE LOCAL SYNONYMS* '.SYN INPUT = "" .SYN CRTFIL = "" .SYN SYSMSG = "" .SYN OUTPUT = ""  .SYN COMPFILE = "".SYN OBJECT = ""  .SYN P$CC = @$$CC * ' * RESTORE GLOBAL SYNONYMS * '.IF @$$MO, NE, 0  .SYN $PCC = "&COMMANDS"  .ELSE %  .IF "@$TIP", NE, "$TIP" B.SYN $PCC = @$TIP.CPTEMP@$$ST ! COMMANDS FOR NEXT CONFIG STEP B .ELSE $ > .SYN $PCC = .CPTEMP@$$ST! COMMANDS FOR NEXT CONFIG STEP > .ENDIF$ .ENDIF%  .SYN $PCL = "&LISTING" .SYN $PM = "&MESSAGES"& .IF "&SOURCE", EQ, "" ! SET UP SOU&`` RCE SYNONYM FOR COMPILER .IF "@$TIP", NE, "$TIP"  .SYN $PS = @$TIP.COMPFI@$$ST .ELSE $  .SYN $PS = .COMPFI@$$ST  .ENDIF$ .ELSE %  .SYN $PS = "&SOURCE" .ENDIF%  .SYN $PO = "&OBJECT"* '0*  SIGNAL COMPLETION IF MODE IS FOREGROUND0* ' .IF "@BID$", EQ, "BID" .IF @$$CC, LT, 0C000D MSG T = "EXECUTION OF THE CONFIGURATION PROCESSOR IS COMPLETE." D .ENDIF% * '*  DISPLAY MESSAGE FILE* ' TIP$MSG MSG = "&MESSAGES" .ENDIF% .SYN BID$ = ""! .SYN $$CC = @P$CC .SYN P$CC = ""!.EOP&EC' .PROC % FXCONFIGI (EXECUTE CONFIG INTERACTIVELY )=0,FL$************************************************************************L&* PURPOSE: EXECUTE THE CONFIGURATION&`` PROCESSOR INTERACTIVELY. * INPUTS: #J* LISTING:LISTING OF COMMANDS AND CONFIGURATION PROCESSOR OUTPUT. JB* SOURCE: FILE ON WHICH SOURCE FOR COMPILATION IS STAGED. BL* OBJECT: FILE ON WHICH OBJECT MODULES ARE COLLECTED AND FROM WHICH L(* THEY ARE SPLIT INTO A DIRECTORY.(2* MEMORY: STACK/HEAP MEMORY REQUIREMENTS. 2 * PROCEDURES CALLED: * MSG.$ * OUTPUTS:#@* 1. THE SYNONYMS COMPFILE, CPTEMP, CRTFIL, INPUT, OBJECT, @(*  OUTPUT, AND SYSMSG ARE DELETED.(>* 2. THE SYNONYMS $PCC, $PCL, $PS, AND $PO ARE MODIFIED. >* HISTORY:#*  10/25/77: ORIGINAL. @* 12/07/77: USE ORDERED PAIR FOR STACK/HEAP; USE LUNO >21. @<* 10/26/78: MODIFY TO PRESERVE CONDITION CODE IN $$CC. <8* 11/02/78: ADD VERSION INFO TO PROC DISPLAY LINE.8:``@** 06/18/80: DON'T CHANGE SYNONYM $PO*L$************************************************************************L LISTING = *ACNM (@$PCL),  SOURCE = *ACNM, OBJECT = *ACNM, MEMORY = (INT) ("4,8") * '0*  DELETE GLOBAL SYNONYMS TO RELEASE SPACE0* '.SYN $PCC = ""!.SYN $PCL = ""!.SYN $PS = "" !&** .SYN $PO = ""DELETED 6/18/80 &* '(*  ASSIGN VALUES TO LOCAL SYNONYMS (* '.SYN INPUT = ME .SYN CRTFIL = ME .SYN SYSMSG = ME  .SYN OUTPUT = "&LISTING" .SYN COMPFILE = "&SOURCE"  .SYN OBJECT = "&OBJECT" >.SYN CPTEMP = ""! FORCE THE DEFAULT VALUE "CPTEMP@$$ST" >* '*  BID THE TASK * '2.BID TASK = 04, LUNO = >21, PARMS = (&MEMORY) 2* '* DELETE LOCAL SYNONYMS``* '.SYN INPUT = "" .SYN CRTFIL = "" .SYN SYSMSG = "" .SYN OUTPUT = ""  .SYN COMPFILE = "".SYN OBJECT = ""  .SYN P$CC = @$$CC * ' * RESTORE GLOBAL SYNONYMS * ' .IF "@$TIP", NE, "$TIP" B.SYN $PCC = @$TIP.CPTEMP@$$ST ! COMMANDS FOR NEXT CONFIG STEP B .ELSE % > .SYN $PCC = .CPTEMP@$$ST! COMMANDS FOR NEXT CONFIG STEP > .ENDIF%  .SYN $PCL = "&LISTING"D .IF "&SOURCE", EQ, "" ! SET UP SOURCE SYNONYM FOR THE COMPILERD .IF "@$TIP", NE, "$TIP"  .SYN $PS = @$TIP.COMPFI@$$ST .ELSE $  .SYN $PS = .COMPFI@$$ST  .ENDIF$ .ELSE %  .SYN $PS = "&SOURCE" .ENDIF% ,** .SYN $PO = "&OBJECT" DELETED 6/18/80,* '* SIGNAL COMPLETION* '"MSG T = "EXECUTION OF THE CONFIG"``$URATION PROCESSOR IS COMPLETE." $ .SYN $$CC = @P$CC .SYN P$CC = ""!.EOP&EC' .PROC % JXNESTER (EXECUTE PASCAL SRC PROGRAM NESTER )=2,JL$************************************************************************LB* PURPOSE: STRUCTURE A TI PASCAL ROUTINE SO ITS INDENTATION IS B.*  CONSISTENT WITH ITS LOGICAL STRUCUTE..* INPUTS: #** SOURCE:  ROUTINES TO BE NESTED. *F* NESTED SOURCE: FILE ON WHICH THE NESTED ROUTINES ARE PLACED.F0* NESTER OPTIONS: LIST OF NESTER OPTIONS.0>* ERROR LISTING: FILE ON WHICH ANY ERRORS ARE PLACED. >"* MESSAGES:  MESSAGE FILE."<* MODE:  EXECUTION MODE: BACKGROUND (BATCH), DEBUG, <*  FOREGROUND.0* MEMORY:  STACK/HEAP MEMORY ALLOCATION.0 * PROCEDURES CALLED:``* MODE$$#* OUTPUTS:#F* THE SYNONYMS BID$, INPUT, NESTSRC, NESTOUT, OUTPUT, AND SYSMSGF* ARE DELETED. * HISTORY:#*  10/26/77: ORIGINALL* "12/07/77: GET STACK/HEAP ORDERED PAIR"; CHANGE "LISTING" PARAMETER; L* USE LUNO >21. &* 02/20/78: ADD CALL TO TIP$MSG.&D* 10/19/78: FIXED TO NOT PROMPT COMMANDS WITH "ME" (STR 2992).D6* 11/02/78: ADDED VERSION INFO TO DISPLAY LINE. 6L* "09/28/79: FIX INCORRECT CHECK FOR DEFAULT COMMAND PARAM. (STR 4095) LJ* !09/28/79: MAKE "COMMANDS" AN UN-PROMPTED PARAMETER -- INTERACTIVE J@* MODE IS NO LONGER DOCUMENTED BECAUSE OF STR 3765, 3770, @>* AND 3771. "COMMAND LISTING" BECOMES "ERROR LISTING". >H*  12/10/79: INSURE THAT SOURCE AND NESTED SOURCE ARE NOT THE SAME.H*  06/17/80: CHANGE P`` RIVILEGE LEVEL FROM 0 TO 2.  :* 07/03/80: DO SYNONYM MAPPING ON "SAME FILE" CHECK. :J* !01/22/81: FOR DEFAULT SOURCE ACCESS NAME, USE @$$S INSTEAD OF @$PSJ@* (USE EDIT OUTPUT INSTEAD OF COMPILER INPUT).IF NESTING@D* IS SUCCESSFUL, SET COMPILER INPUT SYNONYM TO NESTED OUTPUT. D@* 08/11/81: CHANGE MODE PARAMETER FROM "STRING" TO "NAME". @2* 09/27/83: ENHANCEMENTS FOR RELEASE 1.8.0. 2L$************************************************************************L SOURCE = *ACNM(@$$S),  NESTED SOURCE = *ACNM,(NESTER OPTIONS = *STRING("SLIM(0)"),( ERROR LISTING = *ACNM(ME), MESSAGES = *ACNM(ME),  MODE = NAME(FOREGROUND) * '(*  ASSIGN VALUES TO LOCAL SYNONYMS (* ' .SYN NESTSRC = "&SOURCE"$.SYN NESTOUT = "&NESTED SOURCE" $.S`` YN SYSMSG = "&MESSAGES"  .IF "&SOURCE",NE,"" (.IF "@&SOURCE",EQ,"@&NESTED SOURCE" (B MSG TEXT="ERROR: SOURCE AND NESTED SOURCE FILES ARE THE SAME"B  .EXIT$ .ENDIF% (.IF "@&SOURCE",EQ,"@&ERROR LISTING" (B MSG TEXT="ERROR: SOURCE AND ERROR LISTING FILES ARE THE SAME"B  .EXIT$ .ENDIF% .ENDIF% ".SYN OUTPUT = "&ERROR LISTING"" MODE$$ MODE = "&MODE" B.@BID$ TASK = 05, LUNO = 021, PARMS = (5,1,"&NESTER OPTIONS") B .SYN NESTSRC = ""  .SYN NESTOUT = "" .SYN OUTPUT = "" .SYN SYSMSG = ""  .IF "@BID$", EQ, "BID".IF @$$CC, EQ, 0 .SYN $PS="&NESTED SOURCE"  .ENDIF$ >MSG T = "EXECUTION OF SOURCE PROGRAM NESTER IS COMPLETE." > TIP$MSG MSG = "&MESSAGES"  .ENDIF% .SYN BID$ = ""!.EOP&EC'``.PROC XP$2, "F!FOREGROUND, BACKGROUND, PRINT WIDTH, SUPPRESS PREPROCESSOR LINES, FBXREFERENCE, NUMBER OF LINES/PAGE, NO PREPROCESSOR, NO ASSERTS, BD FORINDEX, NO LIST, LISTOBJ, NO WARNINGS, SIDEEFFECTS, GLOBALOPT,D<NO GLOBALOPT, NO MAP, MAP, NO OPTIMIZE, PROBER, PROBES, <F!NO TRACEBACK, UNSAFEOPT, NO WIDELIST, WIDELIST, LOCALS, SPEEDOPT, F@CKINDEX, CKOVER, CKPREC, CKSET, CKSUB, CKTAG, CKPTR, 990/12 @4.SYN $XR$1="990", $XR$2="0", $XR$3="", $XP$O="" 4 .IF "&NO ASSERTS",GE,"Y"".SYN $XR$1="@$XR$1,NO ASSERTS"" .ENDIF%  .IF "&FORINDEX",GE,"Y" .SYN $XR$1="@$XR$1,FORINDEX" .ENDIF%  .IF "&NO LIST",GE,"Y"  .SYN $XR$1="@$XR$1,NO LIST"  .ENDIF%  .IF "&LISTOBJ",GE,"Y"  .SYN $XR$1="@$XR$1,LISTOBJ"  .ENDIF%  .IF "&LOCALS",GE,"Y".SYN $`` XR$1="@$XR$1,LOCALS" .ENDIF%  .IF "&NO WARNINGS",GE,"Y" $.SYN $XR$1="@$XR$1,NO WARNINGS" $ .ENDIF%  .IF "&SIDEEFFECTS",GE,"Y" ".SYN $XR$1="@$XR$1,SIDEFFECTS"" .ENDIF%  .IF "&GLOBALOPT",GE,"Y" ".SYN $XR$1="@$XR$1,GLOBALOPT" " .ENDIF%  .IF "&NO GLOBALOPT",GE,"Y"$.SYN $XR$1="@$XR$1,NO GLOBALOPT"$ .ENDIF%  .IF "&NO MAP",GE,"Y" .SYN $XR$1="@$XR$1,NO MAP" .ENDIF%  .IF "&MAP",GE,"Y"  .SYN $XR$1="@$XR$1,MAP"  .ENDIF%  .IF "&NO OPTIMIZE",GE,"Y" $.SYN $XR$1="@$XR$1,NO OPTIMIZE" $ .ENDIF%  .IF "&PROBER",GE,"Y" .SYN $XR$1="@$XR$1,PROBER" .ENDIF%  .IF "&PROBES",GE,"Y" .SYN $XR$1="@$XR$1,PROBES" .ENDIF%  .IF "&NO TRACEBACK",GE,"Y"$.SYN $XR$1="@$XR$1,NO TRACEBACK"$.ENDIF``% .IF "&UNSAFEOPT",GE,"Y" ".SYN $XR$1="@$XR$1,UNSAFEOPT" " .ENDIF%  .IF "&NO WIDELIST",GE,"Y" $.SYN $XR$1="@$XR$1,NO WIDELIST" $ .ENDIF%  .IF "&WIDELIST",GE,"Y" .SYN $XR$1="@$XR$1,WIDELIST" .ENDIF%  .IF "&SPEEDOPT",GE,"Y"" .SYN $XR$1="@$XR$1,SPEEDOPT" " .ENDIF%  .IF "&CKINDEX",GE,"Y"  .SYN $XR$1="@$XR$1,CKINDEX"  .ENDIF%  .IF "&CKOVER",GE,"Y" .SYN $XR$1="@$XR$1,CKOVER" .ENDIF%  .IF "&CKPTR",GE,"Y"  .SYN $XR$1="@$XR$1,CKPTR"  .ENDIF%  .IF "&CKPREC",GE,"Y" .SYN $XR$1="@$XR$1,CKPREC" .ENDIF%  .IF "&CKSET",GE,"Y"  .SYN $XR$1="@$XR$1,CKSET"  .ENDIF%  .IF "&CKSUB",GE,"Y"  .SYN $XR$1="@$XR$1,CKSUB"  .ENDIF%  .IF "&CKTAG",GE,"Y"  .SYN $XR$1="@$XR$1,CKTAG" ``@ .ENDIF%  .IF "&990/12",GE,"Y" .SYN $XR$1="@$XR$1,990/12" .ENDIF% * ' .IF "*@$XR$1", EQ, "*990" .SYN $XR$1 = ""  .ELSE % .SYN $XR$1 = "(*$@$XR$1^*)"  .ENDIF% * ' .IF "&XREFERENCE",GE,"Y".SYN $XR$3="Y" .ENDIF%  .IF "&PRINT WIDTH",NE,"" .EVAL $XR$2=&PRINT WIDTH .ELSE % .SYN $XR$2="80"  .ENDIF%  .EVAL $XR$2=256*@$XR$2&.IF "&NUMBER OF LINES/PAGE",NE,"" &,.EVAL $XR$2=@$XR$2+&NUMBER OF LINES/PAGE, .ELSE %  .EVAL $XR$2=@$XR$2+60  .ENDIF%  .EVAL $XR$2=256*@$XR$2,.IF "&SUPPRESS PREPROCESSOR LINES",EQ,"", .EVAL $XR$2=@$XR$2+1 .ENDIF% ..IF "&SUPPRESS PREPROCESSOR LINES",GE,"Y" . .EVAL $XR$2=@$XR$2+1 .ENDIF% $.IF "&NO PREPROCESSOR", GE, "Y" $ .EVAL $XR$ ``2=@$XR$2+4.SYN $XR$1 = ""  .SYN INPUT = "@PREIN"  .ENDIF% .EOP&EC'F!.PROC XPP ( EXECUTE PASCAL PREPROCESSOR ), F INPUT = *ACNM(@$PINP), OUTPUT = *ACNM(@$POUT), LISTING = *ACNM,  MESSAGES = *ACNM(@$PTM), OPTIONS = *STRING 6.SYN $PINP = "", $POUT = "", $PTM = "", BID$ = "",6@ PREIN = "@&INPUT", OUTPUT = "@&LISTING", PREOUT="@&OUTPUT",@ SYSMSG = "@&MESSAGES"J.IF "@&MESSAGES", EQ, "@ME" ! IF MESSAGES TO USER'S TERMINAL 7/7/80 J<.SYN BID$="BID" ! THEN FORCE FOREGROUND MODE 7/7/80 <.ELSE  7/7/80 2XR$1 &OPTIONS  !DETERMINE MODE OF EXECUTION 2.ENDIF 7/7/80 XP$2 &OPTIONS !>.@BID$ TASK = >12, LUNO = >21, PARMS = (8,1,@$XR$1,@$XR$2) >,.SYN INPUT = "", OUTPUT = "", SYSMSG = "",,`` PREIN = "", PREOUT = "", 4 P$CC = @$$CC, $PINP="&INPUT", $POUT="&OUTPUT", 4& $PTM = "&MESSAGES", $PS="&OUTPUT"& .IF "@BID$", EQ, "BID" .IF @$$MO, EQ, 0F D*  DISPLAY MESSAGE IN DX10 FOREGROUND VDT MODE ONLY  12/4/80D8MSG T="EXECUTION OF PREPROCESSOR TASK IS COMPLETE." 8 TIP$MSG MSG = "&MESSAGES"  .ENDIF$ .ENDIF% *.SYN BID$ = "", $$CC = @P$CC, P$CC="" *.EOP&EC',.PROC XPT ( EXECUTE TI PASCAL TASK) = 0,,L$************************************************************************L(* PURPOSE: EXECUTE A TI PASCAL TASK.(* INPUTS: #2* PROGRAM FILE:  FILE CONTAINING THE TASK. 2<* TASK NAME OR ID:IDENTIFICATION NUMBER OF THE TASK. <(* INPUT: TI PASCAL FILE "INPUT". (** OUTPUT:  TI PASCAL FILE "OUTPUT".* * MESS ``"AGES:  MESSAGE FILE "SYSMSG".">* MODE: EXECUTION MODE: FOREGROUND, BACKGROUND, DEBUG >0* MEMORY: STACK/HEAP MEMORY ALLOCATION. 0 * PROCEDURES CALLED:*  MODE$$, MSG, TIP$MSG. <* MAPID: (ASSEMBLY LANGUAGE TASK MAPPER: NAME --> ID) <* OUTPUTS:#@* 1. SYNONYMS BID$, INPUT, OUTPUT, AND SYSMSG ARE DELETED. @D* 2. SYNONYNS $$PF, $PID, $PINP, $POUT, $PTM, $P4 ARE MODIFIEDD* EXCEPTIONS: !@* THE VALUES FOR INPUT, OUTPUT, AND SYSMSG ARE MAPPED ONCE @F* IN THIS PROCEDURE SO IT CAN BE USED WITH INTERIM PASCAL TASKS.F* HISTORY:#*  10/25/77: ORIGINAL. D* 12/07/77: USE ORDERED PAIR FOR STACK AND HEAP; USE LUNO >21.D6* 12/20/77: PERFORM "STS" WHEN MODE IS "DEBUG". 6@* MODIFIED TO USE MESSAGE SYNONYM "$PTM" INSTEAD OF "$PM".@* ``"02/20/78: ADD CALL TO TIP$MSG.".* 10/26/78: USE CONDITION CODE IN $$CC. .<* 06/19/80: DON'T NEED MAPID TASK ANYMORE (STR 4983); <>* ADD "DISPLAY=NO" TO AGL PROC TO SUPPRESS LUNO DISPLAY.>@* 08/11/81: CHANGE MODE PARAMETER FROM "STRING" TO "NAME". @L* "09/19/83: EXIT IF UNABLE TO ASSIGN LUNO TO PROGRAM FILE (STR 4578). LL$************************************************************************L PROGRAM FILE = ACNM(@$$PF),  $TASK NAME OR ID = STRING(@$PID),$ INPUT = *ACNM(@$PINP), OUTPUT = *ACNM(@$POUT),  MESSAGES = *ACNM(@$PTM),$MODE (F,B,D) = NAME(FOREGROUND),$ MEMORY = *(INT)("@$P4") * '0*  DELETE GLOBAL SYNONYMS TO RELEASE SPACE0* '.SYN $$PF = ""!.SYN $PID = ""!.SYN $PINP = "" .SYN $POUT = "" .SYN`` $PTM = ""!.SYN BID$ = ""!* ',*  SUPPLY DEFAULTS FOR STACK AND HEAP ,* ' .IF "&MEMORY", EQ, "" .SYN $P4 = "1,1"  .ELSE %  .SYN $P4 = "&MEMORY" .ENDIF% * '(*  ASSIGN VALUES TO LOCAL SYNONYMS (* ' .SYN INPUT = "@&INPUT" .SYN OUTPUT = "@&OUTPUT" .SYN SYSMSG = "@&MESSAGES"* '2*  ASSIGN GLOBAL LUNO TO USER'S PROGRAM FILE2* '8AGL ACCESS NAME = @&PROGRAM FILE, P=YES, DISPLAY=NO 8(.IF @$$CC, NE, 0 ! STR 4578, 10599(4MSG T="UNABLE TO ASSIGN LUNO TO @&PROGRAM FILE" 4 .EXIT $ .ENDIF% * '*  BID THE TASK * '"MODE$$ MODE = "&MODE (F,B,D)" "<.@BID$ TASK = &TASK NAME OR ID, LUNO=@$$LU, PARMS=(@$P4) <.SYN P$CC=@$$CC * RELEASE GLOBAL LUNO* 'RG``L LUNO = @$$LU * '"* DELETE THE LOCAL SYNONYMS"* '.SYN INPUT = "" .SYN OUTPUT = "" .SYN SYSMSG = "" * '$*  RESTORE THE GLOBAL SYNONYMS$* ' .SYN $$PF = "&PROGRAM FILE"  ".SYN $PID = "&TASK NAME OR ID"" .SYN $PINP = "&INPUT"  .SYN $POUT = "&OUTPUT" .SYN $PTM = "&MESSAGES" * '0*  SIGNAL COMPLETION IF MODE IS FOREGROUND0* ' .IF "@BID$", EQ, "BID"2MSG T="EXECUTION OF PASCAL TASK IS COMPLETE." 2* '*  DISPLAY MESSAGE FILE* ' TIP$MSG MSG = "&MESSAGES"  .ENDIF%  .IF "@BID$", EQ, "DBID" >.SYN $XD$D = "0@$$BT" ! SET RUN-TIME TASK ID FOR "XD" PROC >4SPS RUN="0@$$BT"! DISPLAY TASK STATUS FOR USER 4 .MENU # .ENDIF% .SYN BID$ = ""! .SYN $$CC = @P$CC ``* ! RESTORE CONDITION CODE  10/26/78 *<.SYN P$CC = "" ! DELETE TEMPORARY SYNONYM  10/26/78 <L.EOP!!-----------------------------------------------------------------LEC'F!.PROC XPX( EXECUTE PASCAL CROSS REFERENCE ),F INPUT = *ACNM(@$PINP), OUTPUT = *ACNM(@$POUT),  MESSAGES = *ACNM(@$PTM),$NUMBER OF LINES/PAGE = *INT(60),$"MODE (F,B) = NAME(FOREGROUND) "@.SYN $PINP="", $POUT="", $PTM="", BID$="", INPUT="@&INPUT", @, OUTPUT="@&OUTPUT", SYSMSG="@&MESSAGES" , MODE$$ MODE = "&MODE (F,B)"  .EVAL $XR$2 = 2+256*&NUMBER  8.@BID$ TASK = >F, LUNO = >21, PARMS = (15,3,@$XR$2) 88.SYN INPUT = "", OUTPUT="", SYSMSG="", $PINP=&INPUT,80$POUT = "&OUTPUT", $PTM=&MESSAGES, $XR$2="" 0 .IF "@BID$", EQ, "BID" MSG T="EXECUTION OF ``&CROSS REFERENCE TASK IS COMPLETE." & TIP$MSG MSG = "&MESSAGES"  .ENDIF% .SYN BID$ = ""!.EOP&EC'.PROC XR$1, "FOREGROUND# .IF "&FOREGROUND",EQ,"Y" .SYN BID$ = "BID"  .ELSE %  .SYN BID$ = "QBID" .ENDIF% .IF @$$MO, EQ, 0  .SYN BID$ = "BID"  .ENDIF% .EOP&EC' .PROC % BXRASS (EXECUTE REVERSE ASSEMBLER ) = 2, BL$************************************************************************LD * PURPOSE: EXECUTE THE REVERSE ASSEMBLER TO PRODUCE AN ASSEMBLY D<*  LANGUAGE SOURCE PROGRAM THAT IS EQUIVALENT TO A TI <*  PASCAL OBJECT MODULE.* INPUTS: #D* OBJECT: CONCATENATED FILE OF OBJECT MODULES TO BE REVERSE D* ASSEMBLED.** LISTING: LISTING OF THE ASSEMBLY LA*`` NGUAGE EQUIVALENTS.  *  MESSAGES: MESSAGE FILE.  F* MODE: EXECUTION MODE: BACKGROUND (BATCH), DEBUG, FOREGROUND.F0* MEMORY: STACK/HEAP MEMORY ALLOCATION. 0 * PROCEDURES CALLED:*  MODE$$, MSG, TIP$MSG. * OUTPUTS:#F* 1. THE SYNONYMS BID$, OBJECT, OUTPUT, AND SYSMSG ARE DELETED. F8* 2. THE SYNONYMS $PL, $PM, AND $PO ARE MODIFIED. 8* HISTORY:#*  10/25/77: ORIGINAL. @* 12/07/77: USE ORDERED PAIR FOR STACK/HEAP; USE LUNO >21. @&* 02/20/78: ADD CALL TO TIP$MSG.&8* 11/02/78: ADD VERSION INFO TO PROC DISPLAY LINE 8D* 09/28/79: DEFAULT TO FOREGROUND MODE INSTEAD OF BACKGROUND. D6* 06/17/80: PRIVILEGE LEVEL CHANGED FROM 0 TO 2 6H*  08/14/81: DELETE COMPLETION MESSAGE SINCE RUNTIME WILL GIVE ONE H*  IF THERE IS AN ERROR; `` CHANGE MODE TO "NAME" TYPE;  "*  DELETE USE OF $PM SYNONYM."L$************************************************************************L OBJECT = *ACNM(@$PO), LISTING = *ACNM(@$PL),  MESSAGES = *ACNM, MODE = NAME (FOREGROUND), MEMORY = (INT) ("2,8") * '0*  DELETE GLOBAL SYNONYMS TO RELEASE SPACE0* '.SYN $PO = "" !.SYN $PL = "" !* '(*  ASSIGN VALUES TO LOCAL SYNONYMS (* ' .SYN OBJECT = "&OBJECT"  .SYN OUTPUT = "&LISTING" .SYN SYSMSG = "&MESSAGE"* '*  BID THE TASK * ' MODE$$ MODE = "&MODE" 4.@BID$ TASK = 07, LUNO = 021, PARMS = (&MEMORY) 4* '* DELETE LOCAL SYNONYMS* '.SYN OBJECT = "" .SYN OUTPUT = "" .SYN SYSMSG = "" * '* ``  RESTORE THE GLOBAL SYNONYMS * ' .SYN $PO = "&OBJECT" .SYN $PL = "&LISTING" * '.IF @$$CC, NE, 0 * '*  DISPLAY MESSAGE FILE* ' TIP$MSG MSG = "&MESSAGES"  .ENDIF% .SYN BID$ = ""!.EOP&EC'H".PROC XSILT (EXECUTE TIP SYNTAX CHECKER )=2, H SOURCE = *ACNM (@$PS), LISTING = *ACNM (@$PL),  MESSAGES = *ACNM (@$PM), OPTIONS = *STRING, MEM1 = *(INT) ("@$P1"),  MEM2 = *(INT) ("@$P2") .IF "&SOURCE", NE, "" $ .IF "@&SOURCE", EQ, "@&LISTING"$@ MSG TEXT = "ERROR: SOURCE AND LISTING FILES ARE THE SAME" @  .EXIT"  .ENDIF # .ENDIF%  .IF "&SOURCE", NE, "" & .IF "@&SOURCE", EQ, "@&MESSAGES" &@ MSG TEXT = "ERROR: SOURCE AND MESSAGE FILES ARE THE SAME" @``@  .EXIT"  .ENDIF # .ENDIF% &.SYN $PS = "", $PL = "", $PM = "" & .IF "&MEM1",EQ,"" .SYN $P1 = "6,4" .ELSE %  .SYN $P1 = "&MEM1" .ENDIF%  .IF "&MEM2",EQ,""  .SYN $P2 = "13,4"  .ELSE %  .SYN $P2 = "&MEM2" .ENDIF% J.IF "@&MESSAGES", EQ, "@ME" ! IF MESSAGES TO USER'S TERMINAL 7/3/80 J<.SYN BID$="BID" ! THEN FORCE FOREGROUND MODE 7/3/80 <.ELSE  7/3/80 2XR$1 &OPTIONS  !DETERMINE MODE OF EXECUTION 2.ENDIF 7/3/80  .IF @BID$, EQ, QBID 2.SYN $XP$O = "&OPTIONS", $XP$P = "@$P1,@$P2", 22 $XP$P = "(&SOURCE,&LISTING,&MESSAGE,@$XP$P)" 24XB INPUT = .TIP.TIPBATXS, LISTING = .TIPBAT@$$ST4 .ELSE % , .SYN $$UC = "0", SYSMSG = "&MESSAGES", ,, PREIN = "&SOURCE", OUTPUT = "&LISTING" , .IF @$TIP, NE`` , $TIP $ .SYN INPUT = @$TIP.PREOUT@$$ST $  .ELSE$  .SYN INPUT = ".PREOUT@$$ST"  .ENDIF # ( XP$2 &OPTIONS !EXPAND OPTION LINE (> .BID TASK = 012, LUNO = 021, PARMS = (8,1,@$XR$1,@$XR$2) > .IF @$$CC,LT,04000 0 .BID TASK = 01, LUNO = 021, PARMS = (@$P1) 0 .IF @$$CC,LT,0C000 6 .BID TASK = 02, LUNO = 021, PARMS = (@$P2,@$XR$2) 68 .IF @$$CC,LT,0A000 !MODIFIED 6/18/80 FOR STR 5568 8 .SYN $$UC = @$$CC0 .BID TASK = 0D, LUNO = 021, PARMS = (5,12) 0 .IF @$$CC,LT,0C000  .IF "@$TIP", NE, "$TIP" 6 MFN O=@$TIP.DE$CFI@$$ST, N=@$TIP.DESCFI@$$ST, R=Y 66 MFN O=@$TIP.CIL$FI@$$ST, N=@$TIP.CILFIL@$$ST, R=Y 6 .ELSE , MFN O=.DE$CFI@$$ST, N=.DESCFI@$$ST, R=Y,, MFN O=.CIL$FI@$$ST, N=.CILFIL@$$ST, R=Y, .ENDIF  .ENDIF  .ENDI``F ! .IF @$XR$3,EQ,Y .IF @$$UC,LT,@$$CC  .SYN $$UC = @$$CC  .ENDIF 8 .BID TASK = 0F, LUNO = 021, PARMS = (15,3,@$XR$2) 8  .ENDIF !  .ENDIF "  .ELSE$  .SYN $$UC = @$$CC, MSG TEXT = "PREPROCESSOR ERROR, ABORT" ," .SYN $$CC = @$$UC, $$UC = "" "  .EXIT#  .ENDIF # .ENDIF% H".SYN PREIN = "", INPUT = "", OBJECT = "", OUTPUT = "", SYSMSG = "", HD $PS = "&SOURCE", $PL = "&LISTING", $PM = "&MESSAGES", $XR$1="", D*$XR$2="", $XR$3="", $XP$O="", $XP$P=""* .IF @BID$, EQ, QBID .SYN BID$ = "" .EXIT # .ENDIF%  .IF @$$CC,LT,@$$UC .SYN $$CC = @$$UC  .ENDIF% .SYN BID$ = "", $$UC = @$$CC  .IF @$$CC, EQ, 00000*MSG TEXT = "TIP SYNTAX CHECK COMPLETE"* .ELSE %  .IF @$$CC, GE, 0C000``D MSG TEXT = "TIP SYNTAX CHECK ABORTED - RUN-TIME ERRORS DETECTED"D .ENDIF$  .IF @$$CC, EQ, 08000D MSG TEXT = "TIP SYNTAX CHECK COMPLETE - FATAL ERRORS IN PROGRAM"D .ENDIF$  .IF @$$CC, EQ, 06000H"MSG TEXT = "TIP SYNTAX CHECK COMPLETE - NONFATAL ERRORS IN PROGRAM" H .ENDIF$  .IF @$$CC, EQ, 04000@MSG TEXT = "TIP SYNTAX CHECK COMPLETE - WARNINGS IN PROGRAM"@ .ENDIF$ .ENDIF% .IF @$$MO,NE,"0"  TIP$MSG MSG = "&MESSAGES"  .ENDIF% .SYN $$CC = @$$UC, $$UC = "" .EOP&EC' .PROC % JXSPLIT (SPLIT OBJECT FILE INTO A DIRECTORY )=0,JL$************************************************************************L@* PURPOSE: SPLIT A CONCATENATED FILE OF OBJECT MODULES INTO @.*  ELEMENTS OF A DIRECTORY; THE NAME OF EA.``CH IS THE ,*  FIRST SIX CHARACTERS OF ITS "IDT". ,* INPUTS: #.* OBJECT FILE: FILE OF OBJECT MODULES. .L* "OBJECT DIRECTORY: DIRECTORY INTO WHICH TO STORE THE OBJECT MODULES. L0* ERROR LISTING: FILE FOR ERROR MESSAGES.0"* MESSAGES: MESSAGE FILE. ":* MODE: EXECUTION MODE: BACKGROUND (BATCH), DEBUG,:* FOREGROUND. <* COMPRESSFLAG TO INDICATE WHETHER MODULES ARE TO BE<2* CONVERTED FROM ASCII TO COMPRESSED FORMAT.2 * PROCEDURES CALLED:*  MODE$$, MSG, TIP$MSG. * OUTPUTS:#D* 1. THE SYNONYMS BID$, INPUT, OBJLIB, OUTPUT, AND SYSMSG ARE D*  DELETED. 8* 2. THE SYNONYMS $PL, $PM, AND $PO ARE MODIFIED. 8* HISTORY:#*  10/26/77: ORIGINAL. @* 11/30/77: CHANGE "LISTING" PARAMETER TO "ERROR LISTING"; @B``* USE LUNO >21. &* 02/20/78: ADD CALL TO TIP$MSG.&:* 04/17/79: MODIFIED TO ACCEPT VALUE TO USE FOR $C$. :<* OBJECT FILE POINTED TO BY INPUT RATHER THAN OBJECT. <F* 06/09/79: MODIFIED FOR DEFAULT OBJECT FILE AND ERROR DETECTIONFD* 11/13/79: MODIFIED TO TEST $$CC INSTEAD OF P$SC FOR ERRORS. D,* 09/29/80: DELETE SYNONYM $C$ AT END.,F* 08/11/81: DELETE ABORT MESSAGE -- WILL BE SUPPLIED BY RUNTIME;F6* CHANGE MODE PARAMETER FROM "STRING" TO "NAME". 6L$************************************************************************L OBJECT FILE = *ACNM(@$PO), OBJECT DIRECTORY = ACNM, ERROR LISTING = *ACNM(@$PL),  MESSAGES = *ACNM(@$PM),  MODE = NAME (BACKGROUND),  COMPRESS = YESNO(NO)* '0*  DELETE GLOBAL SYNONYMS TO RELEASE SPACE0@4``@* '.SYN $PL = "" !.SYN $PM = "" !.SYN $PO = "" !* '(*  ASSIGN VALUES TO LOCAL SYNONYMS (* ' .IF "&OBJECT FILE", EQ, "" .IF "@$TIP", NE, "$TIP" ".SYN INPUT = @$TIP.OBJECT@$$ST" .ELSE $  .SYN INPUT = .OBJECT@$$ST  .ENDIF$ .ELSE % .SYN INPUT = "&OBJECT FILE"  .ENDIF% * '&.SYN OBJLIB = "&OBJECT DIRECTORY" &".SYN OUTPUT = "&ERROR LISTING"" .SYN SYSMSG = "&MESSAGE"* '(*  SEE WHETHER TO COMPRESS OBJECT ( .IF &COMPRESS, NE, "NO" .SYN $C$ = "C"! .ELSE % .SYN $C$ = "" ! .ENDIF% * '*  BID THE TASK * ' MODE$$ MODE = "&MODE" 0.@BID$ TASK = 06, LUNO = 021, PARMS = (1,1) 0* '0*  SIGNAL COMPLETION IF MODE IS FOREGROUND0* '.IF "@``BID$", EQ, "BID"* '.IF @$$CC, EQ, 0 0MSG TEXT = "OBJECT MODULES HAVE BEEN SPLIT" 0 .ENDIF% * '* '*  DISPLAY MESSAGE FILE* ' TIP$MSG MSG = &MESSAGES  .ENDIF% * '* DELETE LOCAL SYNONYMS* '.SYN INPUT= "" .SYN OBJLIB = "" .SYN OUTPUT = ""  .SYN SYSMSG = "", $C$=""* ' * RESTORE GLOBAL SYNONYMS * ' .SYN $PO = "&OBJECT FILE"  .SYN $PL = "&ERROR LISTING"   .SYN $PM = "&MESSAGES".SYN BID$ = ""!L.EOP !==============================================================LEC' .PROC % F!XSPLITPG(PASCAL SPLIT PROGRAM UTILITY )=0, FL$************************************************************************L * PURPOSE: SPLIT A SOURCE PROG ``&RAM INTO INDIVIDUAL PROCEDURES AND&.*  FUNCTIONS AS ELEMENTS OF A DIRECTORY..* INPUTS: #&* SOURCE FILE:FILE OF SOURCE. &B* COMMAND FILE: FILE NAME TO STORE CONFIGURATION COMMANDS.BL* "SOURCE DIRECTORY: DIRECTORY INTO WHICH TO STORE THE SOURCE MODULES. L"* MESSAGES: MESSAGE FILE. ":* MODE: EXECUTION MODE: BACKGROUND (BATCH), DEBUG,:* FOREGROUND. >* OPTIONS:OPTION AS TO WHETHER OR NOT TO SEQUENCE EACH>* SOURCE LINE. * PROCEDURES CALLED:* MODE$$#* OUTPUTS:#D* 1. THE SYNONYMS BID$, INPUT, OBJLIB, OUTPUT, AND SYSMSG ARE D*  DELETED. 8* 2. THE SYNONYMS $PL, $PM, AND $PO ARE MODIFIED. 8* HISTORY:#.* 09/20/83: ADAPTED FOR USE WITH DXPSCL..8******************************************************8`` ******************$SOURCE FILE INPUT = ACNM(@$PS), $&COMMAND FILE OUTPUT = ACNM(@$PCC),&&SOURCE DIRECTORY = ACNM(@LIBRARY),& MESSAGES = *ACNM(@$PM),  MODE = NAME (BACKGROUND)* '(*  ASSIGN VALUES TO LOCAL SYNONYMS (* '.SYN $PCC="""&.SYN INPUT = "&SOURCE FILE INPUT" &(.SYN OUTPUT = "&COMMAND FILE OUTPUT"(&.SYN LIBRARY = "&SOURCE DIRECTORY"& .IF "&MESSAGES",EQ," ".SYN SYSMSG = ME .ELSE %  .SYN SYSMSG = "&MESSAGES"  .ENDIF% * '*  BID THE TASK * ' MODE$$ MODE = "&MODE" 0.@BID$ TASK = 09, LUNO = 021, PARMS = (2,1) 0* '0*  SIGNAL COMPLETION IF MODE IS FOREGROUND0* ' .IF "@BID$", EQ, "BID".IF @$$CC, EQ, 0,MSG TEXT = "SOURCE FILE HAS BEEN SPLIT" , .ENDIF$ **``@ .ENDIF% * '* DELETE LOCAL SYNONYMS* '.SYN INPUT= "" .SYN OUTPUT = "" .SYN SYSMSG = "" * ' * RESTORE GLOBAL SYNONYMS * '.SYN BID$ = ""!&.SYN $PCC = "&COMMAND FILE OUTPUT"&.EOP&EC'F!.PROC XTIP (EXECUTE TI PASCAL COMPILER )=2, F SOURCE = *ACNM (@$PS), OBJECT = *ACNM (@$PO), LISTING = *ACNM (@$PL),  MESSAGES = *ACNM (@$PM), OPTIONS = *STRING, MEM1 = *(INT) ("@$P1"),  MEM2 = *(INT) ("@$P2"),  MEM3 = *(INT) ("@$P3") .IF "&SOURCE", NE, "" $.IF "@&SOURCE", EQ, "@&LISTING" $> MSG TEXT = "ERROR:SOURCE AND LISTING FILES ARE THE SAME"> .EXIT ! .ENDIF# .ENDIF%  .IF "&SOURCE", NE, "" ".IF "@&SOURCE", EQ, "@&OBJECT"" MSG TEXT = ``2 "ERROR: SOURCE AND OBJECT FILES ARE THE SAME"2 .EXIT ! .ENDIF# .ENDIF%  .IF "&SOURCE", NE, "" $.IF "@&SOURCE", EQ, "@&MESSAGES"$> MSG TEXT = "ERROR:SOURCE AND MESSAGE FILES ARE THE SAME"> .EXIT ! .ENDIF# .ENDIF% 0.SYN $PS = "", $PL = "", $PM = "", $PO = "" 0 .IF "&MEM1",EQ,"" .SYN $P1 = "6,4" .ELSE %  .SYN $P1 = "&MEM1" .ENDIF%  .IF "&MEM2",EQ,""  .SYN $P2 = "13,4"  .ELSE %  .SYN $P2 = "&MEM2" .ENDIF%  .IF "&MEM3",EQ,""  .SYN $P3 = "10,4"  .ELSE %  .SYN $P3 = "&MEM3" .ENDIF% L.IF "@&MESSAGES", EQ, "@ME"  ! IF MESSAGES TO USER'S TERMINAL 7/3/80 L>.SYN BID$="BID"  ! THEN FORCE FOREGROUND MODE  7/3/80 >.ELSE  ! 7/3/80 *XR$1 &OPTIONS  !DETERMINE MODE OF EXEC*`` UTION .ENDIF  ! 7/3/80  .IF @BID$, EQ, QBID 6.SYN $XP$O = "&OPTIONS", $XP$P = "@$P1,@$P2,@$P3", 6: $XP$P = "(&SOURCE,&OBJECT,&LISTING,&MESSAGE,@$XP$P)" :4XB INPUT = .TIP.TIPBATXT, LISTING = .TIPBAT@$$ST4 .ELSE % > .SYN $$UC = "0", SYSMSG = "&MESSAGES", OBJECT = "&OBJECT" > .IF "@$TIP", NE, "$TIP"F! .SYN PREIN="&SOURCE", INPUT=@$TIP.PREOUT@$$ST, OUTPUT="&LISTING" F  .ELSE$ B .SYN PREIN="&SOURCE", INPUT=".PREOUT@$$ST", OUTPUT="&LISTING"B  .ENDIF # ( XP$2 &OPTIONS !EXPAND OPTION LINE (> .BID TASK = 012, LUNO = 021, PARMS = (8,1,@$XR$1,@$XR$2) > .IF @$$CC,LT,04000 0 .BID TASK = 01, LUNO = 021, PARMS = (@$P1) 0 .IF @$$CC,LT,0C000 6 .BID TASK = 02, LUNO = 021, PARMS = (@$P2,@$XR$2) 6 .IF @$$CC,LE,04000  .SYN $$UC = @$$CC``@0 .BID TASK = 0D, LUNO = 021, PARMS = (5,12) 0 .IF @$$CC,LT,0C000  .IF "@$TIP", NE, "$TIP" 6 MFN O=@$TIP.DE$CFI@$$ST, N=@$TIP.DESCFI@$$ST, R=Y 66 MFN O=@$TIP.CIL$FI@$$ST, N=@$TIP.CILFIL@$$ST, R=Y 6 .ELSE , MFN O=.DE$CFI@$$ST, N=.DESCFI@$$ST, R=Y,, MFN O=.CIL$FI@$$ST, N=.CILFIL@$$ST, R=Y, .ENDIF . .BID TASK = 03, LUNO =021, PARMS = (@$P3).  .ENDIF  .ENDIF !  .IF @$XR$3,EQ,Y .IF @$$UC,LT,@$$CC  .SYN $$UC = @$$CC  .ENDIF 8 .BID TASK = 0F, LUNO = 021, PARMS = (15,3,@$XR$2) 8  .ENDIF !  .ENDIF "  .ELSE$  .SYN $$UC = @$$CC, MSG TEXT = "PREPROCESSOR ERROR, ABORT" ," .SYN $$CC = @$$UC, $$UC = "" "  .EXIT#  .ENDIF # .ENDIF% D!.SYN PREIN = "", INPUT = "", OBJECT = "", OUTPUT = "", SYSMSG = ""D``, D $PS = "&SOURCE", $PL = "&LISTING", $PM = "&MESSAGES", $XR$1="", D<$XR$2="", $XR$3="", $XP$O="", $XP$P="", $PO = "&OBJECT" < .IF @BID$, EQ, QBID .SYN BID$ = "" .EXIT # .ENDIF%  .IF @$$CC,LT,@$$UC .SYN $$CC = @$$UC  .ENDIF% .SYN BID$ = "", $$UC = @$$CC  .IF @$$CC, EQ, 00000*MSG TEXT = "TIP COMPILATION COMPLETE" * .ELSE %  .IF @$$CC, GE, 0C000D MSG TEXT = "TIP COMPILATION ABORTED - RUN-TIME ERRORS DETECTED" D .ENDIF$  .IF @$$CC, EQ, 08000D MSG TEXT = "TIP COMPILATION COMPLETE - FATAL ERRORS IN PROGRAM" D .ENDIF$  .IF @$$CC, EQ, 06000F!MSG TEXT = "TIP COMPILATION COMPLETE - NONFATAL ERRORS IN PROGRAM"F .ENDIF$  .IF @$$CC, EQ, 04000@MSG TEXT = "TIP COMPILATION COMPLETE - WARNINGS IN PROGRAM" @.E``NDIF$ .ENDIF% .IF @$$MO,NE,"0"  TIP$MSG MSG = "&MESSAGES"  .ENDIF% .SYN $$CC = @$$UC, $$UC = "" L.EOP !============================================================= LEC' .PROC % J#XALX (EXECUTE ASSEMBLY LANGUAGE EXTRACTOR )=2, JL$************************************************************************LD * PURPOSE: EXTRACT ASSEMBLY LANGUAGE LISTING FROM LISTOBJ OUTPUTD* INPUTS: #@* INPUT LISTING: LISTING FILE CONTAINING LISTOBJ LISTING@* OUTPUTS:#<* OUTPUT SOURCE: GENERATED ASSEMBLY LANGUAGE SOURCE <"* MESSAGES:  MESSAGE FILE "* EXCEPTIONS: !* NONE. #* HISTORY:#.* 09/20/83: ADAPTED FOR USE WITH DXPSCL..L$************************************************************************L``@,INPUT LISTING ACCESS NAME = *ACNM(@$PL),,,OUTPUT SOURCE ACCESS NAME = *ACNM(@$$S),, MESSAGES = *ACNM(@$PM),  MODE (F,B) = NAME (F) * '(*  ASSIGN VALUES TO LOCAL SYNONYMS (* ' .IF "&INPUT", EQ, "" .IF "@$TIP", EQ, "$TIP"  .SYN INPUT=".OUTPUT@$$ST"  .ELSE $ .SYN INPUT=@$TIP.OUTPUT@$$ST .ENDIF$ .ELSE %  .SYN INPUT="&INPUT" .ENDIF% .IF "@&INPUT",EQ,"@&OUTPUT"  : MSG TEXT="ERROR: INPUT AND OUTPUT FILES ARE THE SAME" : .SYN $PL="&INPUT" .SYN $$S = "&OUTPUT"   .EXIT$ .ENDIF% .SYN $$S="" " .SYN OUTPUT = "&OUTPUT"  .SYN SYSMSG = "&MESSAGES" * '*  BID THE TASK * ' MODE$$ MODE = "&MODE" 0.@BID$ TASK = 0E, LUNO = 021, PARMS = (1,1) 0* '*  DELETE LO``CAL SYNONYMS* '.SYN INPUT = "" .SYN OUTPUT = "" .SYN SYSMSG = "" * '2*  SIGNAL COMPLETION IF MODE IS FOREGROUND. 2* ' .IF "@BID$", EQ, "BID"D MSG T = "EXECUTION OF ASSEMBLY LANGUAGE EXTRACTOR IS COMPLETE." D .ENDIF% .SYN BID$ = ""!.SYN $$S = "&OUTPUT".EOP&EC'.USE&* 'H"EBATCH TEXT="**** @$E$C ERRORS IN TIP PROC INSTALLATION", CODE=@$E$CH* 'SG TEXT="ERROR: INPUT AND OUTPUT FILES ARE THE SAME" : .SYN $PL="&INPUT" .SYN $$S = "&OUTPUT"   .EXIT$ .ENDIF% .SYN $$S="" " .SYN OUTPUT = "&OUTPUT"  .SYN SYSMSG = "&MESSAGES" * '*  BID THE TASK * ' MODE$$ MODE = "&MODE" 0.@BID$ TASK = 0E, LUNO = 021, PARMS = (1,1) 0* '*  DELETE LO`VERIFY `P* +`,VERIFY (VERIFY TI PASCAL INSTALLATION), ,(OUTPUT FILE DIRECTORY=ACNM(".TEMP"),(*BATCH STREAM LISTING=ACNM(".LISTING"),**INSTALLING FROM DISKETTES?=YESNO(YES) ** '(.SYN TEMP="@&OUTPUT FILE DIRECTORY" ((.SYN $TIP$L="@&BATCH STREAM LISTING"( .IF @TEMP,NE,DUMY ,.IF "&INSTALLING FROM DISKETTES?",EQ,YES, .SYN $TIP$I=DXPASCA3.UTBATCH .SYN TESTSRC=DXPASCA3.UTSRC  .ELSE $ .SYN $TIP$I=DXPASCAL.UTBATCH .SYN TESTSRC=DXPASCAL.UTSRC  .ENDIF$ XB IAN=@$TIP$I, LAN=@$TIP$L  .MSG T="BEGIN TI PASCAL VERIFICATION TEST" . .ELSE % 2MSG T="VERIFICATION TEST WILL NOT BE EXECUTED"2 .ENDIF% * '2.SYN CMPVOL="", RTLVOL="", SYSVOL="", TEMP="" 2(.SYN $TIP$I="", $TIP$L="", $TIP$F=""(ET POINTER TO WORD CONTAINING CALLER'S WS ADDRESS } `EOD