ORCA-C/Tests/Spec.Conform/SPC25.2.1.CC

54 lines
1.4 KiB
Plaintext
Raw Normal View History

/* Second file comprising Special Conformance Test 25.0.2 */
#pragma memorymodel 1
#define SIZE 3
char ch0 [3]; /* global integers */
int i0 [3];
/* global functions */
/*****************************************************************************/
char * Init_Ch (void)
{
asm
{
lda #'c' /* init starting value for array */
sep #0x20 /* set the accumulator to 8 bits */
ldx #SIZE
Top: dex ; loop to initialize uch0 array
bmi Out
sta ch0,X
inc A
bra Top
Out: rep #0x20 /* reset accumulator to 16 bits */
}
return (ch0);
}
/*****************************************************************************/
int * Init_Int (int i [])
{
int j, *iptr = i;
asm
{
lda #10 /* init starting value for array */
sta j
ldx #SIZE
ldy #0
Top: sta [iptr],Y ; loop to initialize i array
lda j
clc
adc #10
sta j
iny
iny
dex
bne Top
}
return (iptr);
}