mirror of
https://github.com/marketideas/qasm.git
synced 2024-06-11 06:29:29 +00:00
moving some test scripts around
This commit is contained in:
parent
630ea66623
commit
eba951f00f
6
Makefile
6
Makefile
|
@ -61,13 +61,13 @@ compare:
|
||||||
asm:
|
asm:
|
||||||
|
|
||||||
test1:
|
test1:
|
||||||
-qasm src/main.s
|
-qasm testdata/3001-lroathe.S
|
||||||
|
|
||||||
test2:
|
test2:
|
||||||
-qasm src/testfile.s
|
-qasm testdata/3002-testfile.S
|
||||||
|
|
||||||
test3:
|
test3:
|
||||||
-qasm src/var.s
|
-qasm testdata/3003-var.S
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
5
asm.cpp
5
asm.cpp
|
@ -1342,6 +1342,11 @@ int CLASS::callOpCode(std::string op, MerlinLine &line)
|
||||||
//line.expr_value = (line.expr_value >> 16) & 0xFFFF;
|
//line.expr_value = (line.expr_value >> 16) & 0xFFFF;
|
||||||
break;
|
break;
|
||||||
case '|':
|
case '|':
|
||||||
|
if (syntax==SYNTAX_MERLIN)
|
||||||
|
{
|
||||||
|
line.setError(errBadLabel);
|
||||||
|
line.expr_value=0;
|
||||||
|
}
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
|
@ -18,8 +18,8 @@ for S in $SRC ; do
|
||||||
BASE=${S/.S/}
|
BASE=${S/.S/}
|
||||||
BASE=${BASE/.s/}
|
BASE=${BASE/.s/}
|
||||||
cd ./testdata
|
cd ./testdata
|
||||||
#merlin32 $S 2>/dev/null >/dev/null
|
merlin32 $S 2>/dev/null >/dev/null
|
||||||
merlin32 . $S 2>/dev/null
|
#merlin32 . $S 2>/dev/null
|
||||||
|
|
||||||
R=?$
|
R=?$
|
||||||
cd - >/dev/null
|
cd - >/dev/null
|
||||||
|
|
28
testdata/3000-addresses.S
vendored
Normal file
28
testdata/3000-addresses.S
vendored
Normal file
|
@ -0,0 +1,28 @@
|
||||||
|
lst
|
||||||
|
xc
|
||||||
|
xc
|
||||||
|
org $018200
|
||||||
|
|
||||||
|
bank02 equ $020000
|
||||||
|
bank03 equ $030000
|
||||||
|
dp equ $A5
|
||||||
|
long equ $020304
|
||||||
|
|
||||||
|
mx %00
|
||||||
|
start nop
|
||||||
|
pea ^start
|
||||||
|
pea start
|
||||||
|
mvn bank02,bank03
|
||||||
|
mvp bank03,bank02
|
||||||
|
lda dp
|
||||||
|
lda <dp
|
||||||
|
lda >dp
|
||||||
|
lda ^dp
|
||||||
|
lda |dp
|
||||||
|
lda #long
|
||||||
|
lda #<long
|
||||||
|
lda #>long
|
||||||
|
lda #^long
|
||||||
|
lda #|long
|
||||||
|
|
||||||
|
lst off
|
0
src/main.s → testdata/3001-lroathe.S
vendored
0
src/main.s → testdata/3001-lroathe.S
vendored
0
src/var.s → testdata/3003-var.S
vendored
0
src/var.s → testdata/3003-var.S
vendored
Loading…
Reference in New Issue
Block a user