+#ifndef WUMP_UI
+#define WUMP_UI
+
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ This files contains user interface functions for Hunt the Wumpus.
+@ (c) 2019 Aaron Taylor <ataylor at subgeniuskitty dot com>
+@ See LICENSE.txt file for copyright and license details.
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@ seed_rng
+@ Description:
+@ Generate seed from keyboard input.
+@ Call Stack:
+@ <empty>
+@ Return Stack:
+@ <empty>
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#include <logic.pvvs>
+NSSVTSSSSSTTN | MARK: 10000011 (seed_rng)
+
+SSSTSSSSN | PUSH 16 (loop counter)
+SSSSN | PUSH 0 (rng seed)
+
+NSSVTSSSSSTTSSSSSSSSN | MARK: 10000011 00000000 (seed_rng:main loop)
+@ Get character from user and print ASCII '.' as feedback.
+SSSTTSSSSSSSSSSSSN | PUSH 0x3000 (USER_INPUT_BUFFER address)
+TNTS | GETCHAR
+SSSTSTTTSN | PUSH ASCII '.'
+TNSS | PUTCHAR
+@ Left shift the seed by 4 bits.
+SSSTSSN | PUSH 4 (shift count)
+NSTTSTTSTN | JSR > 101101 (lshift)
+@ XOR seed with character from user.
+SSSTTSSSSSSSSSSSSN | PUSH 0x3000 (USER_INPUT_BUFFER address)
+TTT | LOAD
+NSTTSTSTTN | JSR > 101011 (xor)
+@ Decrement counter
+SNT | SWAP
+SSSTN | PUSH +1
+TSST | SUBTRACT
+@ Test for loop completion
+SNS | DUP
+NTSTSSSSSTTSSSSSSSTN | BRZ > 10000011 00000001 (seed_rng:cleanup and return)
+SNT | SWAP
+NSNTSSSSSTTSSSSSSSSN | JMP > 10000011 00000000 (seed_rng:main loop)
+
+@ Store seed, clean up and return.
+NSSVTSSSSSTTSSSSSSSTN | MARK: 10000011 00000001 (seed_rng:cleanup and return)
+SNN | DROP
+SSSSN | PUSH 0 (seed address)
+SNT | SWAP
+TTS | STORE
+SSSTSTSN | PUSH ASCII '\n'
+SSSTSTSN | PUSH ASCII '\n'
+TNSS | PUTCHAR
+TNSS | PUTCHAR
+NTN | RTS
+
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@ get_answer
+@ Description:
+@ Parse user input, returning 0 if user string started with 'n' or 1 if 'y'.
+@ This function does not perform any boundary checks/limits.
+@ Call Stack:
+@ <empty>
+@ Return Stack:
+@ (1 or 0 for True/False) <--- TOS
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#include <stdio.pvvs>
+NSSVTSSTTSSSN | MARK: 10011000 (get_answer)
+
+@ TODO: Consider extending the GETCHAR instruction in VVS to indicate an empty
+@ buffer instead of blocking. This would allow a character by character
+@ check without printing a slew of retry messages if the buffer is
+@ non-empty.
+NSTTSSTTSSTN | JSR > 10011001 (get_line)
+
+@ Examine the first character of the user input buffer for 'y' or 'n'.
+@ If character is something else, prompt user to try again.
+SSSTTSSSSSSSSSSSSN | PUSH 0x3000 (USER_INPUT_BUFFER address)
+TTT | LOAD
+SSSSTTTTSSTN | PUSH 121 (ASCII 'y')
+TSST | SUBTRACT
+NTSTSSTTSSSSSSSSSSSN | BRZ > 10011000 00000000 (answer: yes)
+SSSTTSSSSSSSSSSSSN | PUSH 0x3000 (USER_INPUT_BUFFER address)
+TTT | LOAD
+SSSSTTSTTTSN | PUSH 110 (ASCII 'n')
+TSST | SUBTRACT
+NTSTSSTTSSSSSSSSSSTN | BRZ > 10011000 00000001 (answer: no)
+NSTTTTTTTTTSSSSTSSSN | JSR > 11111111 00001000 (problem_with_yes_no_answer)
+SSSSN | PUSH 0 (number of string substitutions)
+NSTTSSSN | JSR > 1000 (printf)
+NSNTSSTTSSSN | JMP > 10011000 (get_answer)
+
+@ User typed 'y'
+NSSVTSSTTSSSSSSSSSSSN | MARK: 10011000 00000000 (answer: yes)
+SSSTN | PUSH 1
+NTN | RTS
+
+@ User typed 'n'
+NSSVTSSTTSSSSSSSSSSTN | MARK: 10011000 00000001 (answer: no)
+SSSSN | PUSH 0
+NTN | RTS
+
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@ get_line
+@ Description:
+@ Read one line of user input and store in buffer.
+@ Appends null terminator to end of string.
+@ This function does not perform any boundary checks/limits.
+@ Call Stack:
+@ <empty>
+@ Return Stack:
+@ <empty>
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+NSSVTSSTTSSTN | MARK: 10011001 (get_line)
+
+@ Get one character from user on each pass through this loop.
+@ Terminate loop when line break character is received.
+SSSTTSSSSSSSSSSSSN | PUSH 0x3000 (USER_INPUT_BUFFER address)
+NSSVTSSTTSSTSSSSSSSSN | MARK: 10011001 00000000 (input loop)
+SNS | DUP
+SNS | DUP
+TNTS | GETCHAR
+TTT | LOAD
+SNS | DUP
+TNSS | PUTCHAR
+SSSTSTSN | PUSH 10 (ASCII '\n')
+TSST | SUBTRACT
+NTSTSSTTSSTSSSSSSSTN | BRZ > 10011001 00000001 (input loop:terminate)
+@ Character was not ENTER. Increment buffer pointer and loop again.
+SSSTN | PUSH 1
+TSSS | ADD
+NSNTSSTTSSTSSSSSSSSN | JMP > 10011001 00000000 (input loop)
+@ Character was ENTER. Overwrite the line feed with a null term and return.
+NSSVTSSTTSSTSSSSSSSTN | MARK: 10011001 00000001 (input loop:terminate)
+SSSSN | PUSH 0 (ASCII '\0')
+TTS | STORE
+NTN | RTS
+
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@ print_cave_description
+@ Description:
+@ Prints information about the cave (number of rooms, etc).
+@ Call Stack:
+@ <empty>
+@ Return Stack:
+@ <empty>
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#include <stdio.pvvs>
+NSSVTSSTTSTTN | MARK: 10011011 (print_cave_description)
+NSTTTTTTTTTSSSSTSTSN | JSR > 11111111 00001010 (cave_description)
+SSSTSSSSSSSSSTSTN | PUSH 0x1005 (number_of_arrows address)
+TTT | LOAD
+SSSTSSSSSSSSSSSTN | PUSH 0x1001 (number_of_pits address)
+TTT | LOAD
+SSSTSSSSSSSSSSTSN | PUSH 0x1002 (number_of_bats address)
+TTT | LOAD
+SSSTSSSSSSSSSSTTN | PUSH 0x1003 (number_of_tunnels address)
+TTT | LOAD
+SSSTSSSSSSSSSSSSN | PUSH 0x1000 (number_of_rooms address)
+TTT | LOAD
+SSSTSTN | PUSH 5 (number of substitions)
+NSTTSSSN | JSR > 1000 (printf)
+NTN | RTS
+
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@ print_room_stats
+@ Description:
+@ Prints information about current room and hints about nearby rooms.
+@ Call Stack:
+@ <empty>
+@ Return Stack:
+@ <empty>
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+#include <wump_game.pvvs>
+#include <stdio.pvvs>
+#include <stack.pvvs>
+NSSVTSTSSSSTN | MARK: 10100001 (print_room_stats)
+
+@ Print location and arrow quantity remaining.
+A"You are in room %u of the cave and have %u arrows remaining.\n"
+SSSTSSSSSSSSSTSTN | PUSH 0x1005 (number_of_arrows address)
+TTT | LOAD
+SSSTSSSSSSSSSTTSN | PUSH 0x1006 (player_location address)
+TTT | LOAD
+SSSTSN | PUSH 2 (number of substitutions)
+NSTTSSSN | JSR > 1000 (printf)
+
+@ Print if bats/pits/wumpus nearby.
+SSSTSSSSSSSSSTTSN | PUSH 0x1006 (player_location address)
+TTT | LOAD
+SNS | DUP
+NSTTSSTTTSSN | JSR > 10011100 (are_bats_near)
+NTSTSTSSSSTSSSSSSSSN | BRZ > 10100001 00000000 (no_bats)
+A"*rustle* (Bats must be nearby.)\n"
+SSSSN | PUSH 0 (number of substitutions)
+NSTTSSSN | JSR > 1000 (printf)
+NSSVTSTSSSSTSSSSSSSSN | MARK: 10100001 00000000 (no_bats)
+SNS | DUP
+NSTTSSTTTSTN | JSR > 10011101 (are_pits_near)
+NTSTSTSSSSTSSSSSSSTN | BRZ > 10100001 00000001 (no_pits)
+A"*whoosh* (You feel a draft from nearby pits.)\n"
+SSSSN | PUSH 0 (number of substitutions)
+NSTTSSSN | JSR > 1000 (printf)
+NSSVTSTSSSSTSSSSSSSTN | MARK: 10100001 00000001 (no_pits)
+NSTTSSTTTTSN | JSR > 10011110 (is_wumpus_near)
+NTSTSTSSSSTSSSSSSTSN | BRZ > 10100001 00000010 (no_wumpus)
+A"*sniff* (You smell the evil Wumpus nearby!)\n"
+SSSSN | PUSH 0 (number of substitutions)
+NSTTSSSN | JSR > 1000 (printf)
+NSSVTSTSSSSTSSSSSSTSN | MARK: 10100001 00000010 (no_wumpus)
+
+@ Print a list of nearby rooms.
+A"This room contains tunnels to the following rooms:"
+SSSSN | PUSH 0 (number of substitutions)
+NSTTSSSN | JSR > 1000 (printf)
+SSSTSSSSSSSSSTTSN | PUSH 0x1006 (player_location address)
+TTT | LOAD
+SSSTSSSSSSSSSSTTN | PUSH 0x1003 (number_of_links_per_room address)
+TTT | LOAD
+SSSTN | PUSH 1
+TSST | SUBTRACT
+@ Print one room on each pass through this loop.
+@ TOS> tunnel_index, room_number
+NSSVTSTSSSSTSSSSSSTTN | MARK: 10100001 00000011 (print_room_list_loop)
+A" %u"
+SSSTSTN | PUSH 5
+NSTTTSSN | JSR > 1100 (deepdup)
+SSSTTTN | PUSH 7
+NSTTTSSN | JSR > 1100 (deepdup)
+NSTTSSSTSSSN | JSR > 10001000 (get_tunnel_destination)
+SSSTN | PUSH 1 (number of substitutions)
+NSTTSSSN | JSR > 1000 (printf)
+@ Test for end of loop
+SNS | DUP
+NTSTSTSSSSTSSSSSTSSN | BRZ > 10100001 00000100 (print_room_list_loop_end)
+SSSTN | PUSH 1
+TSST | SUBTRACT
+NSNTSTSSSSTSSSSSSTTN | JMP > 10100001 00000011 (print_room_list_loop)
+@ Clean up and return.
+NSSVTSTSSSSTSSSSSTSSN | MARK: 10100001 00000100 (print_room_list_loop_end)
+SSSTSTSN | PUSH 10 (ASCII '\n')
+TNSS | PUTCHAR
+SNN | DROP
+SNN | DROP
+NTN | RTS
+
+#endif