mirror of
https://github.com/open-simh/simtools.git
synced 2026-01-25 19:56:30 +00:00
Add .ENABL LCM. Its default setting was incorrect.
This commit is contained in:
@@ -11,6 +11,7 @@ TESTS="test-asciz \
|
||||
test-blkb \
|
||||
test-bsl-mac-arg \
|
||||
test-complex-reloc \
|
||||
test-enabl-lcm \
|
||||
test-endm \
|
||||
test-if \
|
||||
test-impword \
|
||||
|
||||
44
tests/test-enabl-lcm.lst.ok
Normal file
44
tests/test-enabl-lcm.lst.ok
Normal file
@@ -0,0 +1,44 @@
|
||||
1 ;;;;;
|
||||
2 ;
|
||||
3 ; Test case (in)sensitivity of .IF IDN/DIF.
|
||||
4 ;
|
||||
5
|
||||
6 ; Default: case insensitive.
|
||||
7
|
||||
8 000000 001 .iif idn <hallo> <hallo> .byte 1
|
||||
9 000001 001 .iif idn <HALLO> <hallo> .byte 1
|
||||
10 000002 001 .iif idn <hallo> <HALLO> .byte 1
|
||||
11 000003 001 .iif idn <HAllo> <halLO> .byte 1
|
||||
12
|
||||
13 .iif dif <hallo> <hallo> .byte 0
|
||||
14 .iif dif <HALLO> <hallo> .byte 0
|
||||
15 .iif dif <hallo> <HALLO> .byte 0
|
||||
16 .iif dif <HAllo> <halLO> .byte 0
|
||||
17
|
||||
18 .enabl lcm
|
||||
19 ; Now: case sensitive
|
||||
20
|
||||
21 000004 001 .iif idn <hallo> <hallo> .byte 1
|
||||
22 .iif idn <HALLO> <hallo> .byte 0
|
||||
23 .iif idn <hallo> <HALLO> .byte 0
|
||||
24 .iif idn <HAllo> <halLO> .byte 0
|
||||
25
|
||||
26 .iif dif <hallo> <hallo> .byte 0
|
||||
27 000005 001 .iif dif <HALLO> <hallo> .byte 1
|
||||
28 000006 001 .iif dif <hallo> <HALLO> .byte 1
|
||||
29 000007 001 .iif dif <HAllo> <halLO> .byte 1
|
||||
30
|
||||
31 ; Setting is now non-default.
|
||||
32 ; Check if it reverts to default in the next pass.
|
||||
32
|
||||
|
||||
|
||||
Symbol table
|
||||
|
||||
. ******R 001
|
||||
|
||||
|
||||
Program sections:
|
||||
|
||||
. ABS. 000000 000 (RW,I,GBL,ABS,OVR,NOSAV)
|
||||
000010 001 (RW,I,LCL,REL,CON,NOSAV)
|
||||
32
tests/test-enabl-lcm.mac
Normal file
32
tests/test-enabl-lcm.mac
Normal file
@@ -0,0 +1,32 @@
|
||||
;;;;;
|
||||
;
|
||||
; Test case (in)sensitivity of .IF IDN/DIF.
|
||||
;
|
||||
|
||||
; Default: case insensitive.
|
||||
|
||||
.iif idn <hallo> <hallo> .byte 1
|
||||
.iif idn <HALLO> <hallo> .byte 1
|
||||
.iif idn <hallo> <HALLO> .byte 1
|
||||
.iif idn <HAllo> <halLO> .byte 1
|
||||
|
||||
.iif dif <hallo> <hallo> .byte 0
|
||||
.iif dif <HALLO> <hallo> .byte 0
|
||||
.iif dif <hallo> <HALLO> .byte 0
|
||||
.iif dif <HAllo> <halLO> .byte 0
|
||||
|
||||
.enabl lcm
|
||||
; Now: case sensitive
|
||||
|
||||
.iif idn <hallo> <hallo> .byte 1
|
||||
.iif idn <HALLO> <hallo> .byte 0
|
||||
.iif idn <hallo> <HALLO> .byte 0
|
||||
.iif idn <HAllo> <halLO> .byte 0
|
||||
|
||||
.iif dif <hallo> <hallo> .byte 0
|
||||
.iif dif <HALLO> <hallo> .byte 1
|
||||
.iif dif <hallo> <HALLO> .byte 1
|
||||
.iif dif <HAllo> <halLO> .byte 1
|
||||
|
||||
; Setting is now non-default.
|
||||
; Check if it reverts to default in the next pass.
|
||||
Reference in New Issue
Block a user