mirror of
https://github.com/marketideas/qasm.git
synced 2024-06-13 03:29:33 +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:
|
||||
|
||||
test1:
|
||||
-qasm src/main.s
|
||||
-qasm testdata/3001-lroathe.S
|
||||
|
||||
test2:
|
||||
-qasm src/testfile.s
|
||||
-qasm testdata/3002-testfile.S
|
||||
|
||||
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;
|
||||
break;
|
||||
case '|':
|
||||
if (syntax==SYNTAX_MERLIN)
|
||||
{
|
||||
line.setError(errBadLabel);
|
||||
line.expr_value=0;
|
||||
}
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
|
|
@ -18,8 +18,8 @@ for S in $SRC ; do
|
|||
BASE=${S/.S/}
|
||||
BASE=${BASE/.s/}
|
||||
cd ./testdata
|
||||
#merlin32 $S 2>/dev/null >/dev/null
|
||||
merlin32 . $S 2>/dev/null
|
||||
merlin32 $S 2>/dev/null >/dev/null
|
||||
#merlin32 . $S 2>/dev/null
|
||||
|
||||
R=?$
|
||||
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