diff --git a/etc/asma-test.sh b/etc/asma-test.sh index 6d88124..ba04123 100755 --- a/etc/asma-test.sh +++ b/etc/asma-test.sh @@ -70,5 +70,14 @@ EOD expect_failure 'Recursion level too deep: include' <<'EOD' include asma-test/in.tal EOD +expect_failure 'Label not found: ;blah' <<'EOD' +|1000 ;blah +EOD +expect_failure 'Label not found: ,blah' <<'EOD' +|1000 ,blah +EOD +expect_failure 'Label not found: .blah' <<'EOD' +|1000 .blah +EOD echo 'All OK' diff --git a/projects/library/asma.tal b/projects/library/asma.tal index 3d619cb..15a3b70 100644 --- a/projects/library/asma.tal +++ b/projects/library/asma.tal @@ -671,7 +671,11 @@ include projects/library/heap.tal JMP2r ¬-zero-page + ;asma/pass LDA #00 EQU + ;asma/error LDA2 ORA + ORA ,&ignore-error JCN ;asma-msg-zero-page ;asma/error STA2 + &ignore-error JMP2r @asma-literal-rel-addr