testcall.cos

DBG: OUTS "1..n"

NEW: SIMP 3 2 1 "bluebell" 1 0 0
TICK 1

SCRP 3 2 1 9
    SETV OV00 0
    CALL 42 "hello, world" TARG
    DOIF OV00 eq 0
        DBG: OUTS "not ok 3 - CALL blocks"
    ELSE
        DBG: OUTS "ok 3 - CALL blocks"
    ENDI
    TICK 0
ENDM

SCRP 3 2 1 42
    DBG: OUTS "ok 1 - CALL"
    DOIF _P1_ ne "hello, world"
        DBG: OUTS "not ok 2 - _P1_"
    ELSE
        DBG: OUTS "ok 2 - _P1_"
    ENDI
    SETV OV00 1
ENDM