35 lines
750 B
Plaintext
35 lines
750 B
Plaintext
# 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 r
|
|
|