pass3.dat

UART transmitter and receiver mocros

    ADDRESS-0CD
      LABEL-
INSTRUCTION-COMPARE
   OPERAND1-UART_data
   OPERAND2-character_BS
    COMMENT-;test for back space
    ADDRESS-0CE
      LABEL-
INSTRUCTION-JUMP
   OPERAND1-Z
   OPERAND2-BS_edit
    COMMENT-
    ADDRESS-0CF
      LABEL-
INSTRUCTION-ADD
   OPERAND1-s1
   OPERAND2-01
    COMMENT-;increment memory pointer
    ADDRESS-0D0
      LABEL-
INSTRUCTION-COMPARE
   OPERAND1-s1
   OPERAND2-s2
    COMMENT-;test for pointer exceeding 16 characters
    ADDRESS-0D1
      LABEL-
INSTRUCTION-JUMP
   OPERAND1-NZ
   OPERAND2-receive_full_test
    COMMENT-;next character
    ADDRESS-0D2
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_backspace
   OPERAND2-
    COMMENT-;hold end of string position on terminal display
    ADDRESS-0D3
      LABEL-BS_edit
INSTRUCTION-SUB
   OPERAND1-s1
   OPERAND2-01
    COMMENT-;memory pointer back one
    ADDRESS-0D4
      LABEL-
INSTRUCTION-COMPARE
   OPERAND1-s1
   OPERAND2-string_start
    COMMENT-;test for under flow
    ADDRESS-0D5
      LABEL-
INSTRUCTION-JUMP
   OPERAND1-C
   OPERAND2-string_start_again
    COMMENT-
    ADDRESS-0D6
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_space
   OPERAND2-
    COMMENT-;clear character at current position
    ADDRESS-0D7
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_backspace
   OPERAND2-
    COMMENT-;position cursor
    ADDRESS-0D8
      LABEL-
INSTRUCTION-JUMP
   OPERAND1-receive_full_test
   OPERAND2-
    COMMENT-;next character
    ADDRESS-0D9
      LABEL-string_start_again
INSTRUCTION-CALL
   OPERAND1-send_greater_than
   OPERAND2-
    COMMENT-;restore '>' at prompt
    ADDRESS-0DA
      LABEL-
INSTRUCTION-JUMP
   OPERAND1-receive_string
   OPERAND2-
    COMMENT-;begin again
    ADDRESS-0DB
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;Receiver buffer overflow condition
    ADDRESS-0DB
      LABEL-read_error
INSTRUCTION-CALL
   OPERAND1-send_CR
   OPERAND2-
    COMMENT-;Transmit error message
    ADDRESS-0DC
      LABEL-
INSTRUCTION-STORE
   OPERAND1-UART_data
   OPERAND2-string_start
    COMMENT-;empty string in memory (start with CR)
    ADDRESS-0DD
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_Overflow_Error
   OPERAND2-
    COMMENT-
    ADDRESS-0DE
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_CR
   OPERAND2-
    COMMENT-
    ADDRESS-0DF
      LABEL-clear_UART_Rx_loop
INSTRUCTION-INPUT
   OPERAND1-s0
   OPERAND2-UART_status_port
    COMMENT-;test Rx_FIFO buffer for data
    ADDRESS-0E0
      LABEL-
INSTRUCTION-TEST
   OPERAND1-s0
   OPERAND2-rx_data_present
    COMMENT-
    ADDRESS-0E1
      LABEL-
INSTRUCTION-RETURN
   OPERAND1-Z
   OPERAND2-
    COMMENT-;finish when buffer is empty
    ADDRESS-0E2
      LABEL-
INSTRUCTION-INPUT
   OPERAND1-UART_data
   OPERAND2-UART_read_port
    COMMENT-;read from FIFO and ignore
    ADDRESS-0E3
      LABEL-
INSTRUCTION-JUMP
   OPERAND1-clear_UART_Rx_loop
   OPERAND2-
    COMMENT-
    ADDRESS-0E4
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0E4
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0E4
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0E4
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;Send Carriage Return to the UART
    ADDRESS-0E4
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0E4
      LABEL-send_CR
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_CR
    COMMENT-
    ADDRESS-0E5
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-0E6
      LABEL-
INSTRUCTION-RETURN
   OPERAND1-
   OPERAND2-
    COMMENT-
    ADDRESS-0E7
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0E7
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0E7
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0E7
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;Send a space to the UART
    ADDRESS-0E7
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0E7
      LABEL-send_space
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_space
    COMMENT-
    ADDRESS-0E8
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-0E9
      LABEL-
INSTRUCTION-RETURN
   OPERAND1-
   OPERAND2-
    COMMENT-
    ADDRESS-0EA
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0EA
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0EA
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;Send a back space to the UART
    ADDRESS-0EA
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0EA
      LABEL-send_backspace
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_BS
    COMMENT-
    ADDRESS-0EB
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-0EC
      LABEL-
INSTRUCTION-RETURN
   OPERAND1-
   OPERAND2-
    COMMENT-
    ADDRESS-0ED
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0ED
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;Send 'Syntax Error' to the UART
    ADDRESS-0ED
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0ED
      LABEL-send_Syntax_Error
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_S
    COMMENT-
    ADDRESS-0EE
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-0EF
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_y
    COMMENT-
    ADDRESS-0F0
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-0F1
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_n
    COMMENT-
    ADDRESS-0F2
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-0F3
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_t
    COMMENT-
    ADDRESS-0F4
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-0F5
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_a
    COMMENT-
    ADDRESS-0F6
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-0F7
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_x
    COMMENT-
    ADDRESS-0F8
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-0F9
      LABEL-
INSTRUCTION-JUMP
   OPERAND1-send_space_Error
   OPERAND2-
    COMMENT-
    ADDRESS-0FA
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0FA
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;Send 'Overflow Error' to the UART
    ADDRESS-0FA
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-0FA
      LABEL-send_Overflow_Error
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_O
    COMMENT-
    ADDRESS-0FB
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-0FC
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_v
    COMMENT-
    ADDRESS-0FD
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-0FE
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_e
    COMMENT-
    ADDRESS-0FF
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-100
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_r
    COMMENT-
    ADDRESS-101
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-102
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_f
    COMMENT-
    ADDRESS-103
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-104
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_l
    COMMENT-
    ADDRESS-105
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-106
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_o
    COMMENT-
    ADDRESS-107
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-108
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_w
    COMMENT-
    ADDRESS-109
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-10A
      LABEL-send_space_Error
INSTRUCTION-CALL
   OPERAND1-send_space
   OPERAND2-
    COMMENT-
    ADDRESS-10B
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-10B
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;Send 'Error' to the UART
    ADDRESS-10B
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-10B
      LABEL-send_Error
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_E
    COMMENT-
    ADDRESS-10C
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-10D
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_r
    COMMENT-
    ADDRESS-10E
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-10F
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-110
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_o
    COMMENT-
    ADDRESS-111
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-112
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_r
    COMMENT-
    ADDRESS-113
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-114
      LABEL-
INSTRUCTION-RETURN
   OPERAND1-
   OPERAND2-
    COMMENT-
    ADDRESS-115
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-115
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;Send 'KCPSM3>' prompt to the UART
    ADDRESS-115
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-115
      LABEL-send_prompt
INSTRUCTION-CALL
   OPERAND1-send_CR
   OPERAND2-
    COMMENT-;start new line
    ADDRESS-116
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_K
    COMMENT-
    ADDRESS-117
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-118
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_C
    COMMENT-
    ADDRESS-119
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-11A
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_P
    COMMENT-
    ADDRESS-11B
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-11C
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_S
    COMMENT-
    ADDRESS-11D
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-11E
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_M
    COMMENT-
    ADDRESS-11F
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-120
      LABEL-
INSTRUCTION-LOAD
   OPERAND1-UART_data
   OPERAND2-character_3
    COMMENT-
    ADDRESS-121
      LABEL-
INSTRUCTION-CALL
   OPERAND1-send_to_UART
   OPERAND2-
    COMMENT-
    ADDRESS-122
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;
    ADDRESS-122
      LABEL-
INSTRUCTION-
   OPERAND1-
   OPERAND2-
    COMMENT-;Send '>' character to the UART
    ADDRESS-122
      LABEL-
INSTRUCTION-
   OPERAND1-