HP OpenVMS Systems

ask the wizard
Content starts here

Help with Macro32 DATINCODE error?

» close window

The Question is:

 
I have is old macro that I can't compile? What is the problem?  Looks to me
 that it should complile.  Any assist would be wonderful.
 
Thank you.
 
RFILE                           Source Listing                  19-JUN-2000
 10:17:33  AMAC V4.1-11-3381U                Page 1
                                    19-JUN-2000 10:17:22
 PES_DISK:[TEST]MY_RFILE.MAR;2
        00000000	      1 	.TITLE	RFILE
 00000000	      2 	.SBTTL	DECLARATIONS
 00000000	      3 ;                      00000000	      4 ;
        00000000	      5 ;	Routine to read many different types
of VAX files (from                      00000000	      6 ;	batch
 log files thru variable length and no record                       00000000
	      7 ;	attributes).  This routine was originally written to
                   00000000	      8 ;	read the mi
nimum number of files to satisfy DA/CRS work                      00000000
	      9 ;	with PLM.  This includes:                      00000000
	     10 ;		log files:	VFC, print files
       00000000	     11 ;		obj files:	variable length, no rec
ord attributes                      00000000	     12 ;		lst
 files:	variable length, no record attributes                      00000000
	     13 ;		SOS files:	VFC, carriage return (line
 sequence                      00000000	     14 ;
	numbers are strippe
d).                      00000000	     15 ;		Fortran files:
	variable length, Fortran                      00000000	     16 ;
		Fortran files:	VFC, Fortran                      00000000
	     17 ;                      00000000	     18 ;
00000000	     19 ;                      00000000	     20 ;
        00000000	     21 ; FUNCTIONAL DESCRIPTION:
 00000000	     22 ;	Fill the byte array BUFFER with data from file.
                      00000000	     23 ;
                 00000000	     24 ; FORTRAN CALLING SEQUENCE:
          00000000	     25 ;	CALL RFILE ( NAME, BUFFER, NBUFF,
 BUFFN, IERROR )                      00000000	     26 ;
 00000000	     27 ; INPUTS:
      00000000	     28 ;	NAME-	Character descriptor of file name to be
 opened.                      00000000	     29 ;	BUFFER-	buffer holding
 binary data.                      00000000	     30 ;	NBUFF-	size of
 BUFFER (number of 8-bit bytes).
        00000000	     31 ;                      00000000	     32 ;
 OUTPUTS:                      00000000	     33 ;	BUFFN-	Number of bytes
 in file (used in BUFFER).                      00000000	     34 ;
	IERROR-	Error flag.  0=OK. Non-zero then problem.
                     00000000	     35 ;                      00000000	     36
 ; ROUTINE VALUE:                      00000000	     37 ;	Success status
                     00000000	     38 ;                      00000000	     39
 ; SIDE EFFECTS:
          00000000	     40 ;	none                      00000000
	     41 ;                      00000000	     42 ; REGISTER CONVENTIONS:
                      00000000	     43 ;	R8	<--	FAB address
                  00000000	     44 ;	R9	<--	RAB address
                    00000000	     45 ;	R10	<--	BUFFER address
                     00000000	     46 ;	R11	<--	Number of bytes
 in BUFFER to output.                      00000000	     47 ;
        00000000	     48 ;                      0000000
0	     49 ;                      00000000	     50
 ;***************************************************************
        00000000	     51 ;                      00000000	     52 ; Macro
 Library Calls                      00000000	     53 ;
Define necessary symbols...                      00000000	     54
	.LIBRARY	/SYS$LIBRARY:LIB/                      00000000	     55
 	$FIBDEF         ; File Information Block                      00000000
	    413 	$IODEF          ; I/O definitions
             00000000	    952 	$RMSDEF         ; Record Management
 Services RFILE                           Source Listing
 19-JUN-2000 10:17:33  AMAC V4.1-11-3381U                Page 2
                DECLARATIONS
            19-JUN-2000 10:17:22  PES_DISK:[TEST]MY_RFILE.MAR;2
      00000000	   1236 ;                      00000000	   1237 ; EQUATED
 SYMBOLS                      00000000	   1238 ;00000004              00000000
	   1239 	NAME = 400000008
              00000000	   1240 	BUFFER = NAME+40000000C
 00000000	   1241 	NBUFF = BUFFER+400000010              00000000
	   1242 	BUFFN = NBUFF+400000014              00000000	   1243
 	IERROR= BUFFN+4                      00000000	   1244 ;
                    00000000	   1245 ;                      00000000	   1246
 ; Define the source file FAB and RAB control Blocks
 00000000	   1247 ;                      00000000	   1248 ;
        00000000	   1249 SRC_FAB:
                       00000000	   1250 	$FAB	FAC=<GET>, -    ; File
 access for GET only                      00000000	   1332
	FOP=<SQO>, -    ; DAP file transfer mode                      00000000
	   1333 		FNM=<SRC:>     ; Name of input file
				1...
....                                             %AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code st
ream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code strea
m%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%A
MAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code streamRFILE
   Source Listing                  19-JUN-2000 10:17:33  AMAC V4.1-11-3381U
            Page 3
                            DECLARATIONS                    19-JUN-2000
 10:17:22  PES_DISK:[TEST]MY_RFILE.MAR;2%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE,
 (1) data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%AMAC-E-DATINCODE, (1
) data in code stream%AMAC-E-DATINCODE, (1) data in code stream
      00000050	   1589 SRC_RAB:                      00000050	   1590
	$RAB	FAB=SRC_FAB, -  ; Address of associated FAB
  00000050	   1633 		RAC=SEQ, -
; Sequential record accesss                      00000050	   1634
		UBF=BUFFER, -    ; Buffer address                      00000050
	   1635 		USZ=BUFFER_SIZE ; Buffer Size
			1.......
 %AMAC-E-DATINCODE, (1) data in co
de stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data
 in code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code
stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code str
eam%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code streamRFILE                           Source Listing
 19-JUN-2000 10:17:33  AMAC V4.1-11-3381U                Page 4
                DECLARATI
ONS                    19-JUN-2000 10:17:22
 PES_DISK:[TEST]MY_RFILE.MAR;2%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATIN
CODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream                      00000094	   1979 ;
 00000094	   1980 ;
  00000094	   1981 ; Local storage...                      00000094
	   1982 DST_FAB:                      00000094	   1983 	$FAB
	FAC=<GET>, -		; File access for GET only
 00000094	   1984 		FOP=<CBT>, -       	; Contiguous
 Best try fil
e access                       00000094	   1985 		SHR = <NIL>, -
                     00000094	   1986 		FNM=<DST:>, -
            00000094	   1987 		RFM=VAR, -
 000000E4	   1988 		RAT=<CR>
		1.......                 %AMAC-E
-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%AMAC-E-DA
TINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%AMAC-E-DATIN
CODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code streamRFILE
   Source Listing                  19-JUN-2000 10:17:33  AMAC V4.1-11-3381U
            Page 5
                 DECLARATIONS                    19-JUN-2000 10:17:22
 PES_DISK:[TEST]MY_RFILE.MAR;2%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data i
n code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in c
ode stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data
 in code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code
 stream                      000000E4	   1989 DST_RAB:
 000000E4	   1990 	$RAB	FAB=DST_FAB,-	;
 000000E4	   1991 		MBF=3,-                      000000E4
	   1992 		RBF=BUFFER,-                      00000128
	   1993
	RSZ=BUFFER_SIZE						1.......
                  %AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE,
 (1) data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in c
ode stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data
 in code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%AMAC-E-DATINCODE, (1) data in code streamRFILE
                So
urce Listing                  19-JUN-2000 10:17:33  AMAC V4.1-11-3381U
       Page 6                                DECLARATIONS
 19-JUN-2000 10:17:22  PES_DISK:[TEST]MY_RFILE.MAR;2%AMAC-E-DATINCODE, (1) data
 in code stream%AMAC-
E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream%AMAC-E-D
ATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in code stream%AMAC-E-DATINCODE, (1)
 data in code stream
          00000128	   1994                       00000128	   1995 ;
                00000128	   1996 ;                      00000128	   1997
 CRLF:	.BYTE	13,10			;<cr>,<lf>
		1
 %AMAC-E-DATINCODE, (1)
data in code stream%AMAC-E-DATINCODE, (1) data in code stream
    0000012A	   1998 REQV2I:	.LONG	^XAAAAAAAA		;First 4 bytes
 of a V2I file					1
                                      %AMAC-E-DATINCODE, (1) data
 in code stream                      0000012E	   1999 PRNBUF:	.BLKB	4096
                   0000112E	   2000 NPRNBF:	.LONG	4096
			1                    %AMAC-E-DATINCODE, (1) data in
 code stream%AMAC-E-DATINCODE, (1) data in code stream
      00001132	   2001 VFCBUF:	.BLKB	100                      00001196
	   2002 RECLEN:	.LONG	20000			;Set max record size to
 read					1
                              %AMAC-E-DATINCODE, (1) data in code
 stream%AMAC-E-DA
TINCODE, (1) data in code stream                      0000119A	   2003 ;
                0000119A	   2004 ;                      0000119A	   2005
 ;***************************************************************
        0000119A	   2006 ;
RFILE                           Source Listing                  19-JUN-2000
 10:17:33  AMAC V4.1-11-3381U                Page 7
    DECLARATIONS                    19-JUN-2000 10:17:22
 PES_DISK:[TEST]MY_RFILE.MAR;2
         0000119A	   2007 ;                      0000119A	   2008
	.ENTRY	RFILE,^M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11>
 0000119C	   2009 ;                      0000119C	   2010 ; Open the
 output file...                      0000119C	   20
11 	MOVAB	DST_FAB,R8		;Get FAB address
			1.......
  %AMAC-E-STORCODLAB, (1) stored code labels must be declared entry points in
 routine RFILE                      000011A1	   2012 	MOVAB
	DST_RAB,R9		;Get RAB
 address					1.......
                          %AMAC-E-STORCODLAB, (1) stored code labels must be
 declared entry points in routine RFILE                      000011A6	   2013
 ;	Update FAB with desired file name...
   000011A6	   2014 	MOVQ	@NAME(AP),R4		;Get
 "descriptor"                      000011AA	   2015 	MOVZBL	R4,R4
			;zero all but count                      000011AD
	   2016 	$FAB_STORE FAB=R8,FNS=R4,FNA=(R5)
 000011B5	   2207 ;	Create the
 file...                      000011B5	   2208 	$OPEN	FAB=R8
             000011BE	   2257 	BLBC	R0,PROB2
 000011C1	   2258 	$CONNECT RAB=R9                      000011CA
	   2262 	BLBC	R0,PROB2                      000011CD
2263 ;	Initialize buffer address, number of bytes and buffer index...
             000011CD	   2264 	MOVL	BUFFER(AP),R10		;R10 <=
 ADDR( BUFFER )                      000011D1	   2265 	MOVL
	@NBUFF(AP),R11		;R11 <= number of bytes
   000011D5	   2266 	MOVL	#0,@BUFFN(AP)		;Number of
 bytes read=0.                      000011D9	   2267 ;	Get the "record
 attribute" byte...                      000011D9	   2268 	MOVZBL
	FAB$B_RAT(R8),R1                      000011DD	   2269 ;	Print
 file?
                      000011DD	   2270 	BBC	#FAB$V_PRN,R1,NXT1
                 000011E1	   2271 	JSB	PRINTF
	;It's a "print" file...                      000011E7	   2272
	BRW	EOB                      000011EA	   2273 ;
	Carriage return attribute fil
e?                      000011EA	   2274 NXT1:	BBC
	#FAB$V_CR,R1,NXT2                      000011EE	   2275 	JSB
	VARCR			;It's a "carriage return" file.
      000011F4	   2276 	BRW	EOB                      000011F7
	   2277 ;	Fortran file?
                   000011F7	   2278 NXT2:	BBC	#FAB$V_FTN,R1,NXT3
                 000011FB	   2279 	JSB	VARCR
	;It's a "fortran" file...                      00001201	   2280
	BRW	EOB                      00001204	   2281 ;	None of
 the above...must b
e "none"...                      00001204	   2282 NXT3:	JSB	VARNO
                    0000120A	   2283 	BRW	EOB
  0000120D	   2284 ;	All data has been read.  Close file.
           0000120D	   2285 EOB:                      0
000120D	   2286 	CMPL	#RMS$_EOF,R0                      00001214
	   2287 	BNEQ	PROB1                      00001216	   2288
 ;                      00001216	   2289 ;	Compute buffer size...
                     00001216	   2290 	MOVL	@NBUFF(AP),R1
            0000121A	   2291 	SUBL2	R11,R1
 0000121D	   2292 	MOVL	R1,@BUFFN(AP)
 00001221	   2293 	$DISCONNECT RAB=R9
 0000122A	   2297 	BLBC	R0,PROB3                      0000122D
	   2298 	$CLO
SE	FAB=R8                      00001236	   2302 	BLBC
	R0,PROB3                      00001239	   2303 	CLRL
	@IERROR(AP)                      0000123C	   2304
	RETRFILE                           Source Listing
 19-JUN-2000 10:17:33  AMAC V4
.1-11-3381U                Page 8                                DECLARATIONS
                  19-JUN-2000 10:17:22  PES_DISK:[TEST]MY_RFILE.MAR;2
            0000123D	   2305 PROB1:                      0000123D	   2306
 PROB2:
     0000123D	   2307 PROB3:                      0000123D	   2308 PROB4:
                     0000123D	   2309 	MOVL	R0,@IERROR(AP)
             00001241	   2310 	RET                      00001242
	   2311 ;****************************************
***********************                      00001242	   2312 ;
        00001242	   2313 ;	Routine to handle variable length, no
 record attributes.                      00001242	   2314 ;
        00001242	   2315 VARNO:					1
  %AMAC-E-UNDECJSB, (1) undeclared local JSB target: VARNO
 00001242	   2316 	MOVL	RECLEN,R5		;Set max record
 size                      00001247	   2317 	$RAB_STORE
	RAB=R9,UBF=(R10),USZ=R5                      0000124F	   2365
	$GET		R
AB=R9                      00001258	   2369 	BLBC	R0,EVARNO
                0000125B	   2370 	MOVZWL	RAB$W_RSZ(R9),R1
	;Get size of record just read                      0000125F	   2371
 	SUBL2	R1,R11			;                      00001262	   2372
 	ADDL2	R
1,R10			;Inc addr by record size.                      00001265
	   2373 	BRW	VARNO                      00001268	   2374
 EVARNO:                      00001268	   2375 	RSB
		;Return                      00001269	   2376
 ;*********************************
******************************                      00001269	   2377 ;
                00001269	   2378 VARCR:
	1      %AMAC-E-UNDECJSB, (1) undeclared local JSB target: VARCR
              00001269	   2379 	MOVL	RECLEN,R5		;Set
 max record
size.                      00001276	   2380 	$RAB_STORE
	RAB=R9,UBF=(R10),USZ=R5                      0000127F	   2381
	$GET	RAB=R9                      0000127F	   2382 	BLBC
	R0,EVARCR                      00001282	   2383 ;
 00001282
   2384 	MOVZWL	RAB$W_RSZ(R9),R1                      00001286	   2385
 	SUBL2	R1,R11                      00001289	   2386 	ADDL2
	R1,R10                      0000128C	   2387 ;
 0000128C	   2388 	MOVW	CRLF,(R10)		;Add <cr>,<lf>
 to file
...                      00001291	   2389 	ADDL2	#2,R10
		;Incr address                      00001294	   2390
	SUBL2	#2,R11			;Reduce byte count.
  00001297	   2391 	BRW	VARCR                      0000129A
	   2392 EVARCR:
       0000129A	   2393 	RSB				;Return
              0000129B	   2394
 ;***************************************************************
        0000129B	   2395 ;                      0000129B	   2396 ;
	Routine to read and expand a bat
ch log file or a VFC                      0000129B	   2397 ;	file
 with PRINT attribute.                      0000129B	   2398 ;
        0000129B	   2399 PRINTF:					1
 %AMAC-E-UNDECJSB, (1) undeclared local JSB target: PRINTF
          000012AD	   2400 	$RAB_STORE
	RAB=R9,UBF=PRNBUF,USZ=NPRNBF,RHB=VFCBUF                      000012B6
	   2401 	$GET	RAB=R9                      000012B6	   2402
 	BLBC	R0,EPRINTRFILE                           Source Listing
           19-JUN-
2000 10:17:33  AMAC V4.1-11-3381U                Page 9
        DECLARATIONS                    19-JUN-2000 10:17:22
 PES_DISK:[TEST]MY_RFILE.MAR;2                      000012B9	   2403 ;
	Add the "prefix" carriage control...
              000012B9	   2404 XP1:                      000012B9	   2405
 	MOVZBL	VFCBUF,R1                      000012BE	   2406 	JSB
	PRNTC                      000012C4	   2407 ;	Set up and
 blast the block into the buffer...                      000012C
4	   2408 XP2:                      000012C4	   2409 	MOVZWL
	RAB$W_RSZ(R9),R6	;Get the number of bytes
 000012C8	   2410 	MOVL	RAB$L_RBF(R9),R7	;Get the buffer
 address                      000012CC	   2411 	MOVC3	R6,(R7),(R10)
 
             000012D0	   2412 	ADDL2	R6,R10	;Update buffer address
                     000012D3	   2413 	SUBL2	R6,R11	;Update byte
 count.                      000012D6	   2414 ;	Add the "postfix"
 carriage control...                      000012D6	   2415
XP3:                      000012D6	   2416 	MOVZBL	VFCBUF+1,R1
                  000012DB	   2417 	JSB	PRNTC
    000012E1	   2418 	BRW	PRINTF			;Loop until EOF
                      000012E4	   2419 EPRINT:                      000012E4
	   2420 	RSB                      000012E5	   2421 ;
                000012E5	   2422 ;	Routine to expand the VFC byte
 of a print file and place                      000012E5	   2423 ;
	the expanded control in the output buffer.  The VFC portion
                 000012E5	   2424 ;	of a print file contain various
 carriage control for both                      000012E5	   2425 ;
	the beginning and ending of the data.                      000012E5
	   2426 PRNTC:					1
 %AMAC-E-UNDECJSB, (1) undec
lared local JSB target: PRNTC%AMAC-I-UNRCHCODE, (1) unreachable code
           000012E5	   2427 	CMPB	#0,R1		;Is control
 <nul>?                      000012E8	   2428 	BEQL	EPRNTC
	;If so, do nothing...go exit.                      000012EA	   2
429 	BBS	#7,R1,PRNSC	;Test the 'special control char' bit.
            000012EE	   2430 ;	This is a count for new lines.  Add the
 appropriate number                      000012EE	   2431 ;	of
 <cr><lf> pairs to data buffer.                      00
0012EE	   2432 PRNCR:                      000012EE	   2433 	MOVW
	CRLF,(R10)	;<cr> and <lf> into buffer...
 000012F3	   2434 	ADDL2	#2,R10		;Buffer addr <= Buffer
 addr + 2                      000012F6	   2435 	SUBL2	#2,R11
	;Buffer cn
t <= Buffer cnt - 2                      000012F9	   2436 	SOBGTR
	R1,PRNCR	;CRLF count zero? If not, loop
 000012FC	   2437 	RSB			;Count zero...return
                   000012FD	   2438 ;	This is a special control
 character (form f
eed,?).  There                      000012FD	   2439 ;	are 2 forms.
 First test for reserved DEC characters.                      000012FD	   2440
 PRNSC:                      000012FD	   2441 	BBS	#5,R1,EPRNTC
	;If bit 5 is on, don't do anything.
            00001301	   2442 	EXTZV	#0,#5,R1,R2	;Isolate bits 0
 to 4...                      00001306	   2443 	BBC	#6,R1,PRNSC1
	;If bit 6 is off, output char as is..                      0000130A
	   2444 	ADDL2	#128,R2		;Bit 6 is on...bias char by 128
 
                  00001311	   2445 PRNSC1:	MOVB	R2,(R10)	;Place
 character in buffer.                      00001314	   2446 	INCL
	R10		;Addr = Addr + 1                      00001316	   2447
 	DECL	R11		;Cnt = Cnt - 1                      00001318
	   2448 EP
RNTC:                      00001318	   2449 	RSBRFILE
             Source Listing                  19-JUN-2000 10:17:33  AMAC
 V4.1-11-3381U                Page 10
 DECLARATIONS                    19-JUN-2000 10:
17:22  PES_DISK:[TEST]MY_RFILE.MAR;2                      00001319	   2450
 	.END					1.......     %AMAC-E-PREVERROR,
 (1) previous errors prevent further analysis
 
 


The Answer is :

 
  With the OpenVMS Alpha Macro32 compiler, you must segregate data from code.
  (This is what the error message is (unsuccessfully) trying to tell you.)
  Unfortunately, your source code got a bit scrambled in posting, so the
  OpenVMS Wizard cannot provide exact line numbers, however, adding PSECT
  definitions should help.  Place something like:
 
	.PSECT DATA,RD,WRT,NOEXE
 
  above your data definitions, and:
 
	.PSECT CODE,RD,NOWRT,EXE
 
  above your code.
 
 
$ HELP/MESSAGE DATINCODE
 
 DATINCODE,  data in code stream
 
  Facility:     AMAC, MACRO-32 Compiler for OpenVMS Alpha
 
  Explanation:  Data was found in the code stream. This condition is not
                allowed on OpenVMS Alpha systems.
 
  User Action:  For implicit JSB parameters, pass the parameter value in a
                register. If any values are larger than a longword, put them
                in another program section (psect) and explicitly pass its
                address.
 
                For data contiguous with code in the code stream, rewrite the
                code so that the data is in a data program section.
 
 

answer written or last revised on ( 29-JUN-2000 )

» close window