# The OS/K Team licenses this file to you under the MIT license.
# See the LICENSE file in the project root for more information.

#---------------------------------------------------------------------------#
# I/O instructions                                                          #
#---------------------------------------------------------------------------#

#
# Send a character to standard output (PRN)
#
prn rim

#
# Print a string to standard output (PRN)
#
#       COMPARE([%1], 0)
#
#       IF (ZF == 0) THEN
#           PRN([%1])
#           IF (DF == 0) THEN
#               %1 = %1 + 1
#           ELSE
#               %1 = %1 - 1
#           FI
#       FI
#       
#
prns r

#
# Scan a character from standard input (SCAN)
#
scan rm