#
# eq.pasm
#
# A program to test and demonstrate eq
#
# Copyright (C) 2001 Yet Another Society. All rights reserved.
# This program is free software. It is subject to the same
# license as The Parrot Interpreter.
#
bsr waLA
print " ok\n"
bsr iSA
print " ok\n"
bsr dalaWA
print " ok\n"
bsr tatLO
print " ok\n"
bsr Apat
print " ok\n"
bsr liMA
print " ok\n"
bsr Anim
print " ok\n"
bsr PIto
print " ok\n"
bsr waLO
print " ok\n"
bsr siYAM
print " ok\n"
bsr samPU
print " ok\n"
bsr laBING
print " ok\n"
end
waLA:
set I0, 0
print I0
eq I0, I0
print " not"
ret
iSA:
set I1, 1
print I1
eq I1, 1
print " not"
ret
dalaWA:
set I2, 2
print I2
eq 2, I2
print " not"
ret
tatLO:
print 3
eq 3, 3
print " not"
ret
Apat:
set N4, 4.0
print 4
eq N4, N4
print " not"
ret
liMA:
set N5, 5.0
print 5
eq N5, N5
print " not"
ret
Anim:
set N6, 6.0
print 6
eq 6.0, N6
print " not"
ret
PIto:
print 7
eq 7.0, 7.0
print " not"
ret
waLO:
set S8, "8"
print S8
eq S8, S8
print " not"
ret
siYAM:
set S9, "9"
print S9
eq S9, "9"
print " not"
ret
samPU:
set S10, "10"
print S10
eq "10", S10
print " not"
ret
laBING:
print 11
eq "11", "11"
print " not"
ret
