;
;   CMPC5 test.  The strings should compare leaving the PSL Z bit set.  The
;   first comparison will succeed even though they are not the same length
;   because the fill byte is  a hex 30 which is the digit "0".
;
;   The second comparison should fail.
;

            .base       100

one:        .ascii      "TEST000"
two:        .ascii      "TEST"
three:      .ascii      "TEST001"

            .base       200

main:       cmpc5       #7, one, #30, #4, two
            beql        main2
            bpt

main2:      cmpc5       #7, three, #30, #4, two
            bneq        done
            bpt

done:       halt

