pass5.dat

UART transmitter and receiver mocros

  FORMATTED-CALL fetch_char_from_memory
  LOGFORMAT-CALL fetch_char_from_memory[091]
INSTRUCTION-CALL
   OPERAND1-fetch_char_from_memory
  OP1 VALUE-091
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-025
      LABEL-
  FORMATTED-COMPARE s0, character_E
  LOGFORMAT-COMPARE s0, character_E[45]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_E
  OP2 VALUE-45
    COMMENT-
    ADDRESS-026
      LABEL-
  FORMATTED-JUMP NZ, bad_input_command
  LOGFORMAT-JUMP NZ, bad_input_command[01C]
INSTRUCTION-JUMP
   OPERAND1-NZ
  OP1 VALUE-NZ
   OPERAND2-bad_input_command
  OP2 VALUE-01C
    COMMENT-
    ADDRESS-027
      LABEL-
  FORMATTED-
  LOGFORMAT-
INSTRUCTION-
   OPERAND1-
  OP1 VALUE-
   OPERAND2-
  OP2 VALUE-
    COMMENT-;now have a valid TIME command to process
    ADDRESS-027
      LABEL-
  FORMATTED-CALL fetch_char_from_memory
  LOGFORMAT-CALL fetch_char_from_memory[091]
INSTRUCTION-CALL
   OPERAND1-fetch_char_from_memory
  OP1 VALUE-091
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-028
      LABEL-
  FORMATTED-COMPARE s0, character_CR
  LOGFORMAT-COMPARE s0, character_CR[0D]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_CR
  OP2 VALUE-0D
    COMMENT-;carriage return means display time
    ADDRESS-029
      LABEL-
  FORMATTED-JUMP NZ, set_time_command
  LOGFORMAT-JUMP NZ, set_time_command[02C]
INSTRUCTION-JUMP
   OPERAND1-NZ
  OP1 VALUE-NZ
   OPERAND2-set_time_command
  OP2 VALUE-02C
    COMMENT-
    ADDRESS-02A
      LABEL-
  FORMATTED-CALL transmit_time
  LOGFORMAT-CALL transmit_time[0A8]
INSTRUCTION-CALL
   OPERAND1-transmit_time
  OP1 VALUE-0A8
   OPERAND2-
  OP2 VALUE-
    COMMENT-;transmit time to UART
    ADDRESS-02B
      LABEL-
  FORMATTED-JUMP prompt_input
  LOGFORMAT-JUMP prompt_input[012]
INSTRUCTION-JUMP
   OPERAND1-prompt_input
  OP1 VALUE-012
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-02C
      LABEL-set_time_command
  FORMATTED-COMPARE s0, character_space
  LOGFORMAT-COMPARE s0, character_space[20]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_space
  OP2 VALUE-20
    COMMENT-
    ADDRESS-02D
      LABEL-
  FORMATTED-JUMP NZ, bad_input_command
  LOGFORMAT-JUMP NZ, bad_input_command[01C]
INSTRUCTION-JUMP
   OPERAND1-NZ
  OP1 VALUE-NZ
   OPERAND2-bad_input_command
  OP2 VALUE-01C
    COMMENT-
    ADDRESS-02E
      LABEL-
  FORMATTED-CALL test_time_string
  LOGFORMAT-CALL test_time_string[06D]
INSTRUCTION-CALL
   OPERAND1-test_time_string
  OP1 VALUE-06D
   OPERAND2-
  OP2 VALUE-
    COMMENT-;interpret 'hh:mm:ss' string
    ADDRESS-02F
      LABEL-
  FORMATTED-JUMP C, prompt_input
  LOGFORMAT-JUMP C, prompt_input[012]
INSTRUCTION-JUMP
   OPERAND1-C
  OP1 VALUE-C
   OPERAND2-prompt_input
  OP2 VALUE-012
    COMMENT-;test for invalid input
    ADDRESS-030
      LABEL-
  FORMATTED-STORE s6, real_time_hours
  LOGFORMAT-STORE s6, real_time_hours[06]
INSTRUCTION-STORE
   OPERAND1-s6
  OP1 VALUE-s6
   OPERAND2-real_time_hours
  OP2 VALUE-06
    COMMENT-;set new time into clock
    ADDRESS-031
      LABEL-
  FORMATTED-STORE s5, real_time_minutes
  LOGFORMAT-STORE s5, real_time_minutes[07]
INSTRUCTION-STORE
   OPERAND1-s5
  OP1 VALUE-s5
   OPERAND2-real_time_minutes
  OP2 VALUE-07
    COMMENT-
    ADDRESS-032
      LABEL-
  FORMATTED-STORE s4, real_time_seconds
  LOGFORMAT-STORE s4, real_time_seconds[08]
INSTRUCTION-STORE
   OPERAND1-s4
  OP1 VALUE-s4
   OPERAND2-real_time_seconds
  OP2 VALUE-08
    COMMENT-
    ADDRESS-033
      LABEL-
  FORMATTED-STORE s0, ms_time_lsb
  LOGFORMAT-STORE s0, ms_time_lsb[04]
INSTRUCTION-STORE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-ms_time_lsb
  OP2 VALUE-04
    COMMENT-;clear 'ms' counter (s0=00)
    ADDRESS-034
      LABEL-
  FORMATTED-STORE s0, ms_time_msb
  LOGFORMAT-STORE s0, ms_time_msb[05]
INSTRUCTION-STORE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-ms_time_msb
  OP2 VALUE-05
    COMMENT-
    ADDRESS-035
      LABEL-
  FORMATTED-CALL transmit_time
  LOGFORMAT-CALL transmit_time[0A8]
INSTRUCTION-CALL
   OPERAND1-transmit_time
  OP1 VALUE-0A8
   OPERAND2-
  OP2 VALUE-
    COMMENT-;transmit new time to UART
    ADDRESS-036
      LABEL-
  FORMATTED-JUMP prompt_input
  LOGFORMAT-JUMP prompt_input[012]
INSTRUCTION-JUMP
   OPERAND1-prompt_input
  OP1 VALUE-012
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-037
      LABEL-
  FORMATTED-
  LOGFORMAT-
INSTRUCTION-
   OPERAND1-
  OP1 VALUE-
   OPERAND2-
  OP2 VALUE-
    COMMENT-;
    ADDRESS-037
      LABEL-
  FORMATTED-
  LOGFORMAT-
INSTRUCTION-
   OPERAND1-
  OP1 VALUE-
   OPERAND2-
  OP2 VALUE-
    COMMENT-;
    ADDRESS-037
      LABEL-test_for_ALARM
  FORMATTED-CALL fetch_char_from_memory
  LOGFORMAT-CALL fetch_char_from_memory[091]
INSTRUCTION-CALL
   OPERAND1-fetch_char_from_memory
  OP1 VALUE-091
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-038
      LABEL-
  FORMATTED-COMPARE s0, character_L
  LOGFORMAT-COMPARE s0, character_L[4C]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_L
  OP2 VALUE-4C
    COMMENT-;test for rest of 'ALARM'
    ADDRESS-039
      LABEL-
  FORMATTED-JUMP NZ, bad_input_command
  LOGFORMAT-JUMP NZ, bad_input_command[01C]
INSTRUCTION-JUMP
   OPERAND1-NZ
  OP1 VALUE-NZ
   OPERAND2-bad_input_command
  OP2 VALUE-01C
    COMMENT-
    ADDRESS-03A
      LABEL-
  FORMATTED-CALL fetch_char_from_memory
  LOGFORMAT-CALL fetch_char_from_memory[091]
INSTRUCTION-CALL
   OPERAND1-fetch_char_from_memory
  OP1 VALUE-091
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-03B
      LABEL-
  FORMATTED-COMPARE s0, character_A
  LOGFORMAT-COMPARE s0, character_A[41]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_A
  OP2 VALUE-41
    COMMENT-
    ADDRESS-03C
      LABEL-
  FORMATTED-JUMP NZ, bad_input_command
  LOGFORMAT-JUMP NZ, bad_input_command[01C]
INSTRUCTION-JUMP
   OPERAND1-NZ
  OP1 VALUE-NZ
   OPERAND2-bad_input_command
  OP2 VALUE-01C
    COMMENT-
    ADDRESS-03D
      LABEL-
  FORMATTED-CALL fetch_char_from_memory
  LOGFORMAT-CALL fetch_char_from_memory[091]
INSTRUCTION-CALL
   OPERAND1-fetch_char_from_memory
  OP1 VALUE-091
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-03E
      LABEL-
  FORMATTED-COMPARE s0, character_R
  LOGFORMAT-COMPARE s0, character_R[52]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_R
  OP2 VALUE-52
    COMMENT-
    ADDRESS-03F
      LABEL-
  FORMATTED-JUMP NZ, bad_input_command
  LOGFORMAT-JUMP NZ, bad_input_command[01C]
INSTRUCTION-JUMP
   OPERAND1-NZ
  OP1 VALUE-NZ
   OPERAND2-bad_input_command
  OP2 VALUE-01C
    COMMENT-
    ADDRESS-040
      LABEL-
  FORMATTED-CALL fetch_char_from_memory
  LOGFORMAT-CALL fetch_char_from_memory[091]
INSTRUCTION-CALL
   OPERAND1-fetch_char_from_memory
  OP1 VALUE-091
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-041
      LABEL-
  FORMATTED-COMPARE s0, character_M
  LOGFORMAT-COMPARE s0, character_M[4D]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_M
  OP2 VALUE-4D
    COMMENT-
    ADDRESS-042
      LABEL-
  FORMATTED-JUMP NZ, bad_input_command
  LOGFORMAT-JUMP NZ, bad_input_command[01C]
INSTRUCTION-JUMP
   OPERAND1-NZ
  OP1 VALUE-NZ
   OPERAND2-bad_input_command
  OP2 VALUE-01C
    COMMENT-
    ADDRESS-043
      LABEL-
  FORMATTED-
  LOGFORMAT-
INSTRUCTION-
   OPERAND1-
  OP1 VALUE-
   OPERAND2-
  OP2 VALUE-
    COMMENT-;now have a valid ALARM command to process
    ADDRESS-043
      LABEL-
  FORMATTED-CALL fetch_char_from_memory
  LOGFORMAT-CALL fetch_char_from_memory[091]
INSTRUCTION-CALL
   OPERAND1-fetch_char_from_memory
  OP1 VALUE-091
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-044
      LABEL-
  FORMATTED-COMPARE s0, character_CR
  LOGFORMAT-COMPARE s0, character_CR[0D]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_CR
  OP2 VALUE-0D
    COMMENT-;carriage return means display alarm time
    ADDRESS-045
      LABEL-
  FORMATTED-JUMP NZ, set_alarm_command
  LOGFORMAT-JUMP NZ, set_alarm_command[048]
INSTRUCTION-JUMP
   OPERAND1-NZ
  OP1 VALUE-NZ
   OPERAND2-set_alarm_command
  OP2 VALUE-048
    COMMENT-
    ADDRESS-046
      LABEL-
  FORMATTED-CALL transmit_alarm_time
  LOGFORMAT-CALL transmit_alarm_time[0AC]
INSTRUCTION-CALL
   OPERAND1-transmit_alarm_time
  OP1 VALUE-0AC
   OPERAND2-
  OP2 VALUE-
    COMMENT-;transmit time to UART
    ADDRESS-047
      LABEL-
  FORMATTED-JUMP prompt_input
  LOGFORMAT-JUMP prompt_input[012]
INSTRUCTION-JUMP
   OPERAND1-prompt_input
  OP1 VALUE-012
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-048
      LABEL-set_alarm_command
  FORMATTED-COMPARE s0, character_space
  LOGFORMAT-COMPARE s0, character_space[20]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_space
  OP2 VALUE-20
    COMMENT-;test for ON or OFF command
    ADDRESS-049
      LABEL-
  FORMATTED-JUMP NZ, bad_input_command
  LOGFORMAT-JUMP NZ, bad_input_command[01C]
INSTRUCTION-JUMP
   OPERAND1-NZ
  OP1 VALUE-NZ
   OPERAND2-bad_input_command
  OP2 VALUE-01C
    COMMENT-
    ADDRESS-04A
      LABEL-
  FORMATTED-CALL fetch_char_from_memory
  LOGFORMAT-CALL fetch_char_from_memory[091]
INSTRUCTION-CALL
   OPERAND1-fetch_char_from_memory
  OP1 VALUE-091
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-04B
      LABEL-
  FORMATTED-COMPARE s0, character_O
  LOGFORMAT-COMPARE s0, character_O[4F]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_O
  OP2 VALUE-4F
    COMMENT-
    ADDRESS-04C
      LABEL-
  FORMATTED-JUMP Z, set_alarm_on_off
  LOGFORMAT-JUMP Z, set_alarm_on_off[055]
INSTRUCTION-JUMP
   OPERAND1-Z
  OP1 VALUE-Z
   OPERAND2-set_alarm_on_off
  OP2 VALUE-055
    COMMENT-
    ADDRESS-04D
      LABEL-
  FORMATTED-SUB s1, 01
  LOGFORMAT-SUB s1, 01
INSTRUCTION-SUB
   OPERAND1-s1
  OP1 VALUE-s1
   OPERAND2-01
  OP2 VALUE-01
    COMMENT-;move memory pointer back to first character of 'hh:mm:ss' string
    ADDRESS-04E
      LABEL-
  FORMATTED-CALL test_time_string
  LOGFORMAT-CALL test_time_string[06D]
INSTRUCTION-CALL
   OPERAND1-test_time_string
  OP1 VALUE-06D
   OPERAND2-
  OP2 VALUE-
    COMMENT-;interpret 'hh:mm:ss' string
    ADDRESS-04F
      LABEL-
  FORMATTED-JUMP C, prompt_input
  LOGFORMAT-JUMP C, prompt_input[012]
INSTRUCTION-JUMP
   OPERAND1-C
  OP1 VALUE-C
   OPERAND2-prompt_input
  OP2 VALUE-012
    COMMENT-;test for invalid input
    ADDRESS-050
      LABEL-
  FORMATTED-STORE s6, alarm_time_hours
  LOGFORMAT-STORE s6, alarm_time_hours[09]
INSTRUCTION-STORE
   OPERAND1-s6
  OP1 VALUE-s6
   OPERAND2-alarm_time_hours
  OP2 VALUE-09
    COMMENT-;set new time into clock
    ADDRESS-051
      LABEL-
  FORMATTED-STORE s5, alarm_time_minutes
  LOGFORMAT-STORE s5, alarm_time_minutes[0A]
INSTRUCTION-STORE
   OPERAND1-s5
  OP1 VALUE-s5
   OPERAND2-alarm_time_minutes
  OP2 VALUE-0A
    COMMENT-
    ADDRESS-052
      LABEL-
  FORMATTED-STORE s4, alarm_time_seconds
  LOGFORMAT-STORE s4, alarm_time_seconds[0B]
INSTRUCTION-STORE
   OPERAND1-s4
  OP1 VALUE-s4
   OPERAND2-alarm_time_seconds
  OP2 VALUE-0B
    COMMENT-
    ADDRESS-053
      LABEL-
  FORMATTED-CALL transmit_alarm_time
  LOGFORMAT-CALL transmit_alarm_time[0AC]
INSTRUCTION-CALL
   OPERAND1-transmit_alarm_time
  OP1 VALUE-0AC
   OPERAND2-
  OP2 VALUE-
    COMMENT-;transmit new alarm time and status
    ADDRESS-054
      LABEL-
  FORMATTED-JUMP prompt_input
  LOGFORMAT-JUMP prompt_input[012]
INSTRUCTION-JUMP
   OPERAND1-prompt_input
  OP1 VALUE-012
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-055
      LABEL-set_alarm_on_off
  FORMATTED-CALL fetch_char_from_memory
  LOGFORMAT-CALL fetch_char_from_memory[091]
INSTRUCTION-CALL
   OPERAND1-fetch_char_from_memory
  OP1 VALUE-091
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-056
      LABEL-
  FORMATTED-COMPARE s0, character_N
  LOGFORMAT-COMPARE s0, character_N[4E]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_N
  OP2 VALUE-4E
    COMMENT-;test for 'ON'
    ADDRESS-057
      LABEL-
  FORMATTED-JUMP NZ, test_OFF
  LOGFORMAT-JUMP NZ, test_OFF[060]
INSTRUCTION-JUMP
   OPERAND1-NZ
  OP1 VALUE-NZ
   OPERAND2-test_OFF
  OP2 VALUE-060
    COMMENT-
    ADDRESS-058
      LABEL-
  FORMATTED-CALL fetch_char_from_memory
  LOGFORMAT-CALL fetch_char_from_memory[091]
INSTRUCTION-CALL
   OPERAND1-fetch_char_from_memory
  OP1 VALUE-091
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-059
      LABEL-
  FORMATTED-COMPARE s0, character_CR
  LOGFORMAT-COMPARE s0, character_CR[0D]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_CR
  OP2 VALUE-0D
    COMMENT-
    ADDRESS-05A
      LABEL-
  FORMATTED-JUMP NZ, bad_input_command
  LOGFORMAT-JUMP NZ, bad_input_command[01C]
INSTRUCTION-JUMP
   OPERAND1-NZ
  OP1 VALUE-NZ
   OPERAND2-bad_input_command
  OP2 VALUE-01C
    COMMENT-
    ADDRESS-05B
      LABEL-
  FORMATTED-FETCH s0, alarm_status
  LOGFORMAT-FETCH s0, alarm_status[0C]
INSTRUCTION-FETCH
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-alarm_status
  OP2 VALUE-0C
    COMMENT-;turn alarm on
    ADDRESS-05C
      LABEL-
  FORMATTED-OR s0, alarm_armed
  LOGFORMAT-OR s0, alarm_armed[02]
INSTRUCTION-OR
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-alarm_armed
  OP2 VALUE-02
    COMMENT-
    ADDRESS-05D
      LABEL-
  FORMATTED-STORE s0, alarm_status
  LOGFORMAT-STORE s0, alarm_status[0C]
INSTRUCTION-STORE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-alarm_status
  OP2 VALUE-0C
    COMMENT-
    ADDRESS-05E
      LABEL-
  FORMATTED-CALL transmit_alarm_time
  LOGFORMAT-CALL transmit_alarm_time[0AC]
INSTRUCTION-CALL
   OPERAND1-transmit_alarm_time
  OP1 VALUE-0AC
   OPERAND2-
  OP2 VALUE-
    COMMENT-;transmit alarm time and status
    ADDRESS-05F
      LABEL-
  FORMATTED-JUMP prompt_input
  LOGFORMAT-JUMP prompt_input[012]
INSTRUCTION-JUMP
   OPERAND1-prompt_input
  OP1 VALUE-012
   OPERAND2-
  OP2 VALUE-
    COMMENT-
    ADDRESS-060
      LABEL-test_OFF
  FORMATTED-COMPARE s0, character_F
  LOGFORMAT-COMPARE s0, character_F[46]
INSTRUCTION-COMPARE
   OPERAND1-s0
  OP1 VALUE-s0
   OPERAND2-character_F