HATMS_CLUSTER_CONROL            Source Code Listing             18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 1
01                                                              18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

IDC-PL-SL

     0  0	      1 [INHERIT('SYS$LIBRARY:STARLET',
     0  0	      2         'SYS$LIBRARY:PASCAL$LIB_ROUTINES',
     0  0	      3         'SYS$LIBRARY:PASCAL$STR_ROUTINES')]
     0  0	      4 
     0  0	      5 PROGRAM HATMS_CLUSTER_CONROL (INPUT,OUTPUT);
     0  0	      6 
     0  0	      7 CONST
     0  0	      8     assoc_name		= 'HATMS_CLUSTER' ;
     0  0	      9     logical_name	= 'HATMS_CLUSTER' ;
     0  0	     10 
     0  0	     11 
     0  0	     12 VAR
     0  0	     13     assoc_handle	: UNSIGNED ;
     0  0	     14 
     0  0	     15 
     0  0	     16 [ASYNCHRONOUS,UNBOUND]
     1  0	     17 PROCEDURE receive_event (	p1		:  UNSIGNED ;
     1  0	     18 			    	p2		:  UNSIGNED ;
     1  0	     19 			    	p3		:  UNSIGNED ) ;
     1  0	     20 
     1  0	     21 
     1  0	     22 BEGIN
     1  1	     23     WRITELN ('In here');
			....1                    
%PASCAL-W-ASYREQVOL, (1) ASYNCHRONOUS RECEIVE_EVENT requires that OUTPUT be VOLATILE

     1  1	     24 
     0  0	     25 END ;
     0  0	     26 
     0  0	     27 
     0  0	     28 
     0  0	     29 [ASYNCHRONOUS,UNBOUND]
     1  0	     30 PROCEDURE connection_event (	event_type	:  UNSIGNED ;
     1  0	     31 			    	handle		:  UNSIGNED ;
     1  0	     32 			    	data_len	:  UNSIGNED ;
     1  0	     33 			    	data		:  [CLASS_S] PACKED ARRAY [$l1..$u1:INTEGER] OF CHAR ;
     1  0	     34 			    	p5		:  UNSIGNED ;
     1  0	     35 			    	p6		:  UNSIGNED ;
     1  0	     36 			    	p7		:  [CLASS_S] PACKED ARRAY [$l2..$u2:INTEGER] OF CHAR ) ;
     1  0	     37 
     1  0	     38 
     1  0	     39 VAR
     1  0	     40     p	: UNSIGNED := 0 ;
     1  0	     41 
     1  0	     42 BEGIN
     1  1	     43     IF event_type = ICC$C_EV_CONNECT THEN
     1  1	     44         LIB$SIGNAL (1) ;
     0  0	     45 END ;
     0  0	     46 
     0  0	     47 
     1  0	     48 FUNCTION open_association : INTEGER ;
     1  0	     49 
     1  0	     50 VAR
     1  0	     51     return_status	: INTEGER ; 
     1  0	     52 

HATMS_CLUSTER_CONROL            Source Code Listing             18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 2
01                                                              18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

IDC-PL-SL

     1  0	     53 BEGIN
     1  1	     54     return_status := $ICC_OPEN_ASSOC (	assoc_handle ,
     1  1	     55 					assoc_name ,
     1  1	     56 					logical_name ,
     1  1	     57 					'ICC$REGISTRY_TABLE',			
     1  1	     58 					connection_event ,
			........................................1                  
%PASCAL-I-NOFRMINDECL, (1) Declaration of PROCEDURE parameter CONN_RTN supplied no formal parameter list

     1  1	     59 					connection_event ,
			........................................1                  
%PASCAL-I-NOFRMINDECL, (1) Declaration of PROCEDURE parameter DISC_RTN supplied no formal parameter list

     1  1	     60 					receive_event ) ;
			........................................1                 
%PASCAL-I-NOFRMINDECL, (1) Declaration of PROCEDURE parameter RECV_RTN supplied no formal parameter list

     1  1	     61 
     1  1	     62     open_association := return_status ;
     1  1	     63 
     0  0	     64 END ;
     0  0	     65 
     0  0	     66 
     0  0	     67 VAR
     0  0	     68     return_status 	: INTEGER ;
     0  0	     69 
     0  0	     70 
     0  0	     71 BEGIN
     0  1	     72     return_status := open_association ;
     0  1	     73   
     0  1	     74     writeln ( return_status ) ;
     0  1	     75 
     0  1	     76     $hiber ;    
     0  0	     77 END.
     0  0	     78 
     0  0	     79 

HATMS_CLUSTER_CONROL            Machine Code Listing            18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 3
01                                                              18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

IDC-PL-SL

				      .psect $CODE$, CON, LCL, SHR, EXE, NOWRT, NOVEC, NOSHORT
				      .proc   RECEIVE_EVENT
				      .align 32
			RECEIVE_EVENT:											   // 000017
			   { .mii 
002C00714940     0000		      alloc   r37 = rspfs, 3, 4, 3, 0
0120001000C0     0001		      add     r3 = @ltoff($LITERAL$+40), gp	// r3 = @ltoff($LITERAL$+40), r1	   // 000023
0120001008C0     0002		      add     r35 = @ltoffx(PAS$FV_OUTPUT), 	// r35 = @ltoffx(PAS$FV_OUTPUT), r1
					      gp
			   }
			   { .mmi 
012000006640     0010		      mov     ai = 3 ;;				// r25 = 3
0080C03000C0     0011		      ld8     r3 = $LITERAL$			// r3 = [r3]
000188000900     0012		      mov     r36 = rp				// r36 = br0				   // 000017
			   }
			   { .mii 
0080C23008C0     0020		      ld8.mov r35 = [r35], PAS$FV_OUTPUT						   // 000023
01200000EA00     0021		      mov     out1 = 7 ;;			// r40 = 7
010800300A40     0022		      mov     out2 = r3				// r41 = r3
			   }
			   { .mib 
0108023009C0     0030		      mov     out0 = r35			// r39 = r35
010800100980     0031		      mov     r38 = gp				// r38 = r1				   // 000017
00A000001000     0032		      br.call.sptk.many rp = 			// br0 = PAS$WRITE_STRING		   // 000023
					      PAS$WRITE_STRING ;;
			   }
			   { .mii 
012000002640     0040		      mov     ai = 1				// r25 = 1
0108023009C0     0041		      mov     out0 = r35			// r39 = r35
010802600040     0042		      mov     gp = r38 ;;			// r1 = r38
			   }
			   { .mfb 
000008000000     0050		      nop.m   0
000008000000     0051		      nop.f   0
00A000001000     0052		      br.call.sptk.many rp = PAS$WRITELN2 ;;	// br0 = PAS$WRITELN2
			   }
			   { .mii 
010802600040     0060		      mov     gp = r38				// r1 = r38
00015404A000     0061		      mov.i   rspfs = r37 ;;								   // 000025
000E00148000     0062		      mov     rp = r36				// br0 = r36
			   }
			   { .mfb 
000008000000     0070		      nop.m   0
000008000000     0071		      nop.f   0
000108001100     0072		      br.ret.sptk.many rp ;;			// br0
			   }
				      .endp   RECEIVE_EVENT

Routine Size: 128 bytes,    Routine Base: $CODE$ + 0000

				      .proc   CONNECTION_EVENT
				      .align 32
			CONNECTION_EVENT:										   // 000030
			   { .mmi 
002C00E26AC0     0080		      alloc   r43 = rspfs, 7, 7, 5, 0

HATMS_CLUSTER_CONROL            Machine Code Listing            18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 4
01                              CONNECTION_EVENT                18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

IDC-PL-SL

0080C23008C0     0081		      ld8     in3 = [in3]			// r35 = [r35]
010800C00B00     0082		      mov     r44 = sp ;;			// r44 = r12
			   }
			   { .mii 
0119FACC0200     0090		      adds    r8 = -32, r44
012000020080     0091		      mov     r2 = 16
0119FACC0240     0092		      adds    r9 = -32, r44
			   }
			   { .mmi 
0119F8C60300     00A0		      adds    sp = -80, sp ;;			// r12 = -80, r12
008CC0846000     00A1		      st8     [r8] = in3			// [r8] = r35
010000C04940     00A2		      add     in5 = r2, sp			// r37 = r2, r12
			   }
			   { .mii 
0119FAC802C0     00B0		      adds    r11 = -64, r44
0119FAC80480     00B1		      adds    r18 = -64, r44 ;;
0119FAC88440     00B2		      adds    r17 = -60, r44
			   }
			   { .mmi 
0080409009C0     00C0		      ld2     r39 = [r9]
0080C2600980     00C1		      ld8     in6 = [in6]			// r38 = [r38]
0119FACC8280     00C2		      adds    r10 = -28, r44 ;;
			   }
			   { .mmi 
01002A74A940     00D0		      sub     in5 = in5, r39			// r37 = r37, r39
008CC0B4C000     00D1		      st8     [r11] = in6			// [r11] = r38
000188000A80     00D2		      mov     r42 = rp ;;			// r42 = br0
			   }
			   { .mmi 
0111625E0940     00E0		      and     in5 = -16, in5			// r37 = -16, r37
008041200900     00E1		      ld2     in4 = [r18]			// r36 = [r18]
010800100B40     00E2		      mov     r45 = gp ;;			// r45 = r1
			   }
			   { .mmi 
01002824A940     00F0		      sub     in5 = in5, r2			// r37 = r37, r2
008081100880     00F1		      ld4     in2 = [r17]			// r34 = [r17]
012000020080     00F2		      mov     r2 = 16 ;;
			   }
			   { .mii 
008080A00840     0100		      ld4     in1 = [r10]			// r33 = [r10]
010802500300     0101		      mov     sp = in5				// r12 = r37
0119FACC8540     0102		      adds    r21 = -28, r44
			   }
			   { .mmi 
0119FAC88580     0110		      adds    r22 = -60, r44 ;;
010000C04980     0111		      add     in6 = r2, sp			// r38 = r2, r12
010802520940     0112		      adds    in5 = 16, in5			// r37 = 16, r37
			   }
			   { .mii 
010802700BC0     0120		      mov     out1 = r39			// r47 = r39
0000B22008C0     0121		      sxt4    in3 = in2 ;;			// r35 = r34
01002A44C980     0122		      sub     in6 = in6, in4			// r38 = r38, r36
			   }
			   { .mii 
010802500B80     0130		      mov     out0 = in5			// r46 = r37

HATMS_CLUSTER_CONROL            Machine Code Listing            18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 5
01                              CONNECTION_EVENT                18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

IDC-PL-SL

0000B2100C00     0131		      sxt4    out2 = in1 ;;			// r48 = r33
0111626E0980     0132		      and     in6 = -16, in6 ;;			// r38 = -16, r38
			   }
			   { .mmi 
01002824C980     0140		      sub     in6 = in6, r2 ;;			// r38 = r38, r2
010802600300     0141		      mov     sp = in6				// r12 = r38
010802620980     0142		      adds    in6 = 16, in6			// r38 = 16, r38
			   }
			   { .mmi 
008081500540     0150		      ld4     r21 = [r21] ;;
008081600A00     0151		      ld4     r40 = [r22]
0119F95FEA40     0152		      adds    r41 = -1, r21
			   }
			   { .mfb 
008082000800     0160		      ld4     in0 = [in0]			// r32 = [r32]
000008000000     0161		      nop.f   0
00A000001000     0162		      br.call.sptk.many rp = OTS$MOVE ;;	// br0 = OTS$MOVE
			   }
			   { .mii 
010802300C00     0170		      mov     out2 = in3			// r48 = r35
010802400BC0     0171		      mov     out1 = in4			// r47 = r36
010802600B80     0172		      mov     out0 = in6			// r46 = r38
			   }
			   { .mmi 
01002A14A840     0180		      sub     in1 = in5, in1 ;;			// r33 = r37, r33
010802D00040     0181		      mov     gp = r45				// r1 = r45
0119FA8FEA00     0182		      adds    r40 = -1, r40 ;;
			   }
			   { .mfb 
000008000000     0190		      nop.m   0
000008000000     0191		      nop.f   0
00A000001000     0192		      br.call.sptk.many rp = OTS$MOVE ;;	// br0 = OTS$MOVE
			   }
			   { .mii 
01002A24C880     01A0		      sub     in2 = in6, in2			// r34 = r38, r34
0119FAC98240     01A1		      adds    r9 = -52, r44
0119FACD88C0     01A2		      adds    in3 = -20, r44			// r35 = -20, r44
			   }
			   { .mmi 
0119FACA8280     01B0		      adds    r10 = -44, r44 ;;
0119FACE80C0     01B1		      adds    r3 = -12, r44
0119FACB82C0     01B2		      adds    r11 = -36, r44
			   }
			   { .mii 
0119FACF8200     01C0		      adds    r8 = -4, r44
0119FAC90640     01C1		      adds    ai = -56, r44 ;;			// r25 = -56, r44
0119FACD0480     01C2		      adds    r18 = -24, r44
			   }
			   { .mlx 
0119FACB0680     01D0		      adds    r26 = -40, r44
800000000007     01D1		      movl    r17 = 29360128 ;;
0180000008
			   }
			   { .mii 
0119FACF0500     01E0		      adds    r20 = -8, r44

HATMS_CLUSTER_CONROL            Machine Code Listing            18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 6
01                              CONNECTION_EVENT                18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

IDC-PL-SL

0120000024C0     01E1		      mov     r19 = 1
0119FAC806C0     01E2		      adds    r27 = -64, r44
			   }
			   { .mmi 
0119FACC0580     01F0		      adds    r22 = -32, r44 ;;
0119FACA0700     01F1		      adds    r28 = -48, r44
0119FACE05C0     01F2		      adds    r23 = -16, r44
			   }
			   { .mlx 
010002250880     0200		      add     in2 = r40, in2			// r34 = r40, r34
800000000010     0201		      movl    r21 = 68026369 ;;
018007004A
			   }
			   { .mii 
010002152840     0210		      add     in1 = r41, in1			// r33 = r41, r33
0119FAC88740     0211		      adds    r29 = -60, r44
0119FACC8600     0212		      adds    r24 = -28, r44
			   }
			   { .mmi 
008C80948000     0220		      st4     [r9] = in4 ;;			// [r9] = r36
008C8234E000     0221		      st4     [in3] = r39			// [r35] = r39
01C432000000     0222		      cmp4.eq pr0, pr6 = r0, in0		// pr0, pr6 = r0, r32			   // 000043
			   }
			   { .mii 
008C80A48000     0230		      st4     [r10] = in4			// [r10] = r36				   // 000030
010802D00040     0231		      mov     gp = r45				// r1 = r45
000008000000     0232		      nop.i   0 ;;
			   }
			   { .mmi 
008C8034E000     0240		      st4     [r3] = r39
008C80B48000     0241		      st4     [r11] = in4			// [r11] = r36
000008000000     0242		      nop.i   0 ;;
			   }
			   { .mmi 
008C8084E000     0250		      st4     [r8] = r39
008C81922000     0251		      st4     [ai] = r17			// [r25] = r17
000008000000     0252		      nop.i   0 ;;
			   }
			   { .mmi 
008C81222000     0260		      st4     [r18] = r17
008C81A26000     0261		      st4     [r26] = r19
000008000000     0262		      nop.i   0 ;;
			   }
			   { .mmi 
008C81426000     0270		      st4     [r20] = r19
008C81B2A000     0271		      st4     [r27] = r21
000008000000     0272		      nop.i   0 ;;
			   }
			   { .mmi 
008C8162A000     0280		      st4     [r22] = r21
008C81C44000     0281		      st4     [r28] = in2			// [r28] = r34
000008000000     0282		      nop.i   0 ;;
			   }
			   { .mmi 
008C81742000     0290		      st4     [r23] = in1			// [r23] = r33

HATMS_CLUSTER_CONROL            Machine Code Listing            18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 7
01                              CONNECTION_EVENT                18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

IDC-PL-SL

008C81D4C000     0291		      st4     [r29] = in6			// [r29] = r38
000008000000     0292		      nop.i   0 ;;
			   }
			   { .mfb 
008C8184A000     02A0		      st4     [r24] = in5			// [r24] = r37
000008000000     02A1		      nop.f   0
008600008006     02A2	       (pr6)  br.cond.dpnt.many L$8 ;;								   // 000043
			   }
			   { .mii 
012000004640     02B0		      mov     ai = 2				// r25 = 2				   // 000044
012000000BC0     02B1		      mov     out1 = 0				// r47 = 0
012000002B80     02B2		      mov     out0 = 1				// r46 = 1
			   }
			   { .mfb 
000008000000     02C0		      nop.m   0
000008000000     02C1		      nop.f   0
00A000001000     02C2		      br.call.sptk.many rp = LIB$SIGNAL ;;	// br0 = LIB$SIGNAL
			   }
			   { .mfi 
010802D00040     02D0		      mov     gp = r45				// r1 = r45
000008000000     02D1		      nop.f   0
000008000000     02D2		      nop.i   0
			   }
	         02E0	L$8:
			   { .mii 
000008000000     02E0		      nop.m   0
000154056000     02E1		      mov.i   rspfs = r43								   // 000045
010802C00300     02E2		      mov     sp = r44 ;;			// r12 = r44
			   }
			   { .mib 
000008000000     02F0		      nop.m   0
000E00154000     02F1		      mov     rp = r42				// br0 = r42
000108001100     02F2		      br.ret.sptk.many rp ;;			// br0
			   }
				      .endp   CONNECTION_EVENT

Routine Size: 640 bytes,    Routine Base: $CODE$ + 0080

				      .proc   HATMS_CLUSTER_CONROL
				      .align 32
			HATMS_CLUSTER_CONROL:										   // 000005
			   { .mii 
002C00418880     0300		      alloc   r34 = rspfs, 0, 4, 8, 0
0120001000C0     0301		      add     r3 = @ltoff($LITERAL$+24), gp	// r3 = @ltoff($LITERAL$+24), r1	   // 000054
0120001004C0     0302		      add     r19 = @ltoffx($LITERAL$), gp	// r19 = @ltoffx($LITERAL$), r1
			   }
			   { .mmi 
0119F8CA0300     0310		      adds    sp = -48, sp ;;			// r12 = -48, r12			   // 000005
0080C03000C0     0311		      ld8     r3 = $LITERAL$			// r3 = [r3]				   // 000054
010800C60540     0312		      adds    r21 = 48, sp			// r21 = 48, r12
			   }
			   { .mlx 
0080C13004C0     0320		      ld8.mov r19 = [r19], $LITERAL$
000000000004     0321		      movl    r20 = 17694738 ;;
018007048A

HATMS_CLUSTER_CONROL            Machine Code Listing            18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 8
01                              HATMS_CLUSTER_CONROL            18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

IDC-PL-SL

			   }
			   { .mii 
010800C50440     0330		      adds    r17 = 40, sp			// r17 = 40, r12
010800C40280     0331		      adds    r10 = 32, sp			// r10 = 32, r12
000008000000     0332		      nop.i   0
			   }
			   { .mlx 
012000100A80     0340		      add     out6 = 				// r42 = @ltoff(@fptr(RECEIVE_EVENT)), 
					      @ltoff(@fptr(RECEIVE_EVENT)), 	// r1
					      gp
800000000004     0341		      movl    r9 = 17694733 ;;
0180070344
			   }
			   { .mii 
012000100A40     0350		      add     out5 = 				// r41 = 
					      @ltoff(@fptr(CONNECTION_EVENT)),  // @ltoff(@fptr(CONNECTION_EVENT)), r1
					      gp
012000100A00     0351		      add     out4 = 				// r40 = 
					      @ltoff(@fptr(CONNECTION_EVENT)),  // @ltoff(@fptr(CONNECTION_EVENT)), r1
					      gp
010800C205C0     0352		      adds    r23 = 16, sp			// r23 = 16, r12
			   }
			   { .mmi 
010800C68580     0360		      adds    r22 = 52, sp ;;			// r22 = 52, r12
010800C58480     0361		      adds    r18 = 44, sp			// r18 = 44, r12
010800C482C0     0362		      adds    r11 = 36, sp			// r11 = 36, r12
			   }
			   { .mii 
008C81528000     0370		      st4     [r21] = r20
012000012640     0371		      mov     ai = 9 ;;				// r25 = 9
000188000840     0372		      mov     r33 = rp				// r33 = br0				   // 000005
			   }
			   { .mmi 
0108001008C0     0380		      mov     r35 = gp				// r35 = r1
008C81112000     0381		      st4     [r17] = r9								   // 000054
012000000AC0     0382		      mov     out7 = 0 ;;			// r43 = 0
			   }
			   { .mii 
008C80A12000     0390		      st4     [r10] = r9
010800C609C0     0391		      adds    out3 = 48, sp			// r39 = 48, r12
010800C50980     0392		      adds    out2 = 40, sp			// r38 = 40, r12
			   }
			   { .mmi 
010800C40940     03A0		      adds    out1 = 32, sp ;;			// r37 = 32, r12
0080C2A00A80     03A1		      ld8     out6 = RECEIVE_EVENT		// r42 = [r42]
012000100900     03A2		      add     out0 = @gprel(ASSOC_HANDLE), 	// r36 = @gprel(ASSOC_HANDLE), r1
					      gp
			   }
			   { .mmi 
0080C2900A40     03B0		      ld8     out5 = CONNECTION_EVENT ;;	// r41 = [r41]
0080C2800A00     03B1		      ld8     out4 = CONNECTION_EVENT		// r40 = [r40]
000008000000     03B2		      nop.i   0 ;;
			   }
			   { .mmi 
008CC1700000     03C0		      st8     [r23] = r0

HATMS_CLUSTER_CONROL            Machine Code Listing            18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 9
01                              HATMS_CLUSTER_CONROL            18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

IDC-PL-SL

008C81626000     03C1		      st4     [r22] = r19
000008000000     03C2		      nop.i   0 ;;
			   }
			   { .mmb 
008C81206000     03D0		      st4     [r18] = r3
008C80B06000     03D1		      st4     [r11] = r3
00A000001000     03D2		      br.call.sptk.many rp = 			// br0 = SYS$ICC_OPEN_ASSOC
					      SYS$ICC_OPEN_ASSOC ;;
			   }
			   { .mii 
010802300040     03E0		      mov     gp = r35				// r1 = r35
012000006640     03E1		      mov     ai = 3				// r25 = 3				   // 000074
012000014980     03E2		      mov     out2 = 10 ;;			// r38 = 10
			   }
			   { .mib 
012000100800     03F0		      add     r32 = @ltoffx(PAS$FV_OUTPUT), 	// r32 = @ltoffx(PAS$FV_OUTPUT), r1
					      gp
0000B0800940     03F1		      sxt4    out1 = r8				// r37 = r8
004000000000     03F2		      nop.b   0 ;;
			   }
			   { .mmi 
0080C2000800     0400		      ld8.mov r32 = [r32], PAS$FV_OUTPUT ;;
010802000900     0401		      mov     out0 = r32			// r36 = r32
000008000000     0402		      nop.i   0
			   }
			   { .mfb 
000008000000     0410		      nop.m   0
000008000000     0411		      nop.f   0
00A000001000     0412		      br.call.sptk.many rp = 			// br0 = PAS$WRITE_INTEGER
					      PAS$WRITE_INTEGER ;;
			   }
			   { .mii 
012000002640     0420		      mov     ai = 1				// r25 = 1
010802000900     0421		      mov     out0 = r32			// r36 = r32
010802300040     0422		      mov     gp = r35 ;;			// r1 = r35
			   }
			   { .mfb 
000008000000     0430		      nop.m   0
000008000000     0431		      nop.f   0
00A000001000     0432		      br.call.sptk.many rp = PAS$WRITELN2 ;;	// br0 = PAS$WRITELN2
			   }
			   { .mii 
012000000640     0440		      mov     ai = 0				// r25 = 0				   // 000076
010802300040     0441		      mov     gp = r35				// r1 = r35				   // 000074
000008000000     0442		      nop.i   0 ;;
			   }
			   { .mfb 
000008000000     0450		      nop.m   0
000008000000     0451		      nop.f   0
00A000001000     0452		      br.call.sptk.many rp = SYS$HIBER ;;	// br0 = SYS$HIBER			   // 000076
			   }
			   { .mii 
012000002200     0460		      mov     r8 = 1									   // 000077
010802300040     0461		      mov     gp = r35				// r1 = r35				   // 000076
000154044000     0462		      mov.i   rspfs = r34 ;;								   // 000077

HATMS_CLUSTER_CONROL            Machine Code Listing            18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 10
01                              HATMS_CLUSTER_CONROL            18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

IDC-PL-SL

			   }
			   { .mib 
010800C60300     0470		      adds    sp = 48, sp			// r12 = 48, r12
000E00142000     0471		      mov     rp = r33				// br0 = r33
000108001100     0472		      br.ret.sptk.many rp ;;			// br0
			   }
				      .endp   HATMS_CLUSTER_CONROL

Routine Size: 384 bytes,    Routine Base: $CODE$ + 0300

				      .psect $SDATA$, CON, LCL, NOSHR, NOEXE, WRT, NOVEC, SHORT
				      .lcomm  ASSOC_HANDLE, 4, 4

				      .psect $LITERAL$, CON, LCL, SHR, NOEXE, NOWRT, NOVEC, NOSHORT
24434349         0000		      string  "ICC$REGISTRY_TABLE"
49474552         0004
59525453         0008
4241545F         000C
    454C         0010

4D544148         0018		      string  "HATMS_CLUSTER"
4C435F53         001C
45545355         0020
      52         0024

68206E49         0028		      string  "In here"
  657265         002C

				      .global PAS$FV_OUTPUT
				      .section .data
				      .type   PAS$WRITE_STRING, @function 
				      .global  PAS$WRITE_STRING
				      .section .data
				      .type   PAS$WRITELN2, @function 
				      .global  PAS$WRITELN2
				      .section .data
				      .type   OTS$MOVE, @function 
				      .global  OTS$MOVE
				      .section .data
				      .type   LIB$SIGNAL, @function 
				      .global  LIB$SIGNAL
				      .section .data
				      .type   SYS$ICC_OPEN_ASSOC, @function 
				      .global  SYS$ICC_OPEN_ASSOC
				      .section .data
				      .type   PAS$WRITE_INTEGER, @function 
				      .global  PAS$WRITE_INTEGER
				      .section .data
				      .type   SYS$HIBER, @function 
				      .global  SYS$HIBER

                                Pascal Compilation Statistics   18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 11
                                                                18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

PSECT SUMMARY

          Name                     Bytes                         Attributes

  $CODE$                               1152    pic, con, rel, lcl,   shr,   exe, nord, nowrt, noshort, align(4)
  $LITERAL$                              47    pic, con, rel, lcl,   shr, noexe,   rd, nowrt, noshort, align(4)
  $SDATA$                                 4  nopic, con, rel, lcl, noshr, noexe,   rd,   wrt,   short, align(4)


ENVIRONMENT STATISTICS

                                                       -------- Symbols --------
        File                                           Total    Loaded   Percent

SYS$COMMON:[SYSLIB]STARLET.PEN;3                       63235        30         0
SYS$COMMON:[SYSLIB]PASCAL$LIB_ROUTINES.PEN;3            1853         6         0
SYS$COMMON:[SYSLIB]PASCAL$STR_ROUTINES.PEN;3             297         1         0


COMMAND QUALIFIERS

  PAS/LIST/MACHINE_CODE HATMS_CLUSTER_CONTROL

  /ALIGN=NATURAL
  /NOANALYSIS_DATA
  /ARCHITECTURE=GENERIC
  /ASSUME=(ACCURACY_SENSITIVE,NOBYTE_ALIGNED_POINTERS,
           NOLONG_CALLS,NOREDUCED_RELOCATIONS)
  /CDD_QUAD_TYPE=EMPTY_RECORD
  /CHECK=(BOUNDS,NOCASE_SELECTORS,DECLARATIONS,NOOVERFLOW,
          NOPOINTERS,NOSUBRANGE)
  /CONSTANT=NONE
  /NOCROSS_REFERENCE
  /DEBUG=(NOSYMBOLS,TRACEBACK)
  /NODESIGN
  /NODIAGNOSTICS
  /ENUMERATION_SIZE=LONG
  /NOENVIRONMENT
  /ERROR_LIMIT=30
  /FLOAT=IEEE_FLOAT
  /GRANULARITY=QUADWORD
  /IDENT=01
  /INCLUDE=None Specified
  /LIST=HATMS$USER:[REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.LIS;21
  /MACHINE
  /MATH_LIBRARY=ACCURATE
  /OBJECT=HATMS$USER:[REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.OBJ;50
  /OPTIMIZE=(LEVEL=4,TUNE=GENERIC,INLINE=SPEED)
  /PEN_CHECKING_STYLE=COMPILATION_TIME
  /NOPLATFORMS
  /PSECT_MODEL=NOMULTILANGUAGE
  /SHOW=(DICTIONARY,INCLUDE,HEADER,SOURCE,NOSTRUCTURE_LAYOUT,STATISTICS)
  /NOSTANDARD
  /TERMINAL=NONE
  /NOTIE
  /USAGE=(NOUNCERTAIN,UNINITIALIZED,NOUNUSED,VOLATILE,EMPTY_RECORDS,
          PACKED_ACTUALS,UNSUPPORTED_CDD,NOPERFORMANCE,NONGRNACC,NOUNCALLABLE)

                                Pascal Compilation Statistics   18-JUL-2011 10:18:53  HP Pascal I64 V6.0-111            Page 12
                                                                18-JUL-2011 09:26:38  [REITER.ICC_TEST]HATMS_CLUSTER_CONTROL.PAS;57

  /WARNINGS
  /ZERO_HEAP

COMPILER INTERNAL TIMING

        Phase                          CPU    Elapsed    Page      I/O
                                     seconds  seconds   faults    count
    Initialization                      0.00     0.00       25        0
    Source analysis                     0.03     0.08      327     1724
    Symbol Table and IL Generation      0.00     0.00       54        0
      Symbol Table Conversion           0.00     0.00       13        0
      CIL Generation                    0.00     0.00       39        0
      CIL Fixup                         0.00     0.00        0        0
    Pointer type alias analysis         0.00     0.00        0        0
    IL expansion                        0.00     0.00       76        0
    Optimization                        0.00     0.00      209        0
      Dominator tree construction       0.00     0.00        1        0
      Loop dominator insertion          0.00     0.00        1        0
      Lifetime analysis                 0.00     0.00        0        0
      IDEF computation                  0.00     0.00        1        0
      DATAFLOW computation              0.00     0.00       76        0
      Loop transforms                   0.00     0.00        0        0
      BR loop/branch optimization       0.00     0.00       10        0
      Strength reduction                0.00     0.00        6        0
      Loop unroll/Loop optimization     0.00     0.00        4        0
      Test replacement                  0.00     0.00        0        0
      Profitability determination       0.00     0.00        8        0
      Profitability reordering          0.00     0.00        0        0
      Use propagation                   0.00     0.00        0        0
      Split lifetime analysis           0.00     0.00       17        0
      Base Binding                      0.00     0.00       13        0
    Code Generation                     0.02     0.02      232        0
      Context analysis                  0.01     0.00       85        0
      Register History                  0.00     0.00        8        0
      Temporary allocation              0.01     0.02       54        0
      Code emission                     0.00     0.00       51        0
    Final                               0.01     0.01      431        0
      Peepholing                        0.00     0.00      196        0
      Final flow analysis               0.00     0.00        0        0
      Object scheduling                 0.01     0.01      227        0
      Branch/jump resolution            0.00     0.00        2        0
    Object module generation            0.02     0.02       44       25
    DST generation                      0.00     0.00        0        0
    Listing                             0.00     0.00        3        0
  Compiler totals                       0.09     0.15     1637     1777

COMPILATION STATISTICS

  CPU time:          0.09 seconds
  Elapsed time:      0.15 seconds
  Pagefaults:        1637
  I/O Count:         1777
  Source lines:        79

  52666 lines per CPU minute.