; Copyright 2013, Sinclair R.F., Inc.
; Test bench for ../../char.s

.include char.s

.main

  ; Test the single hex digit to nibble conversion.
  0x00 ${ord('0')-1} '0' '9' ${ord('9')+1} ${ord('A')-1} 'A' 'F' ${ord('F')+1} ${ord('a')-1} 'a' 'f' ${ord('f')+1}
  ${13-1} :loop__hex_to_nibble .call(test__hex_to_nibble,swap) .jumpc(loop__hex_to_nibble,1-) drop

  ; Test dual hex digit to nibble conversion.
  "0A" "0F" "0G" "A0" "F0" "G0"
  ${6-1} :loop__2hex_to_byte >r .call(test__2hex_to_byte) r> .jumpc(loop__2hex_to_byte,1-) drop

  ; Test the nibble to hex digit conversion.
  0x00 0x09 0x0A 0x0F
  ${4-1} :loop__nibble_to_hex .call(test__nibble_to_hex,swap) .jumpc(loop__nibble_to_hex,1-) drop

  ; Test the byte to 2-digit hex conversion.
  0x00 0x09 0x0A 0x0F 0x90 0x99 0x9A 0x9F 0xA0 0xA9 0xAA 0xAF 0xF0 0xF9 0xFA 0xFF
  ${16-1} :loop__byte_to_2hex .call(test__byte_to_2hex,swap) .jumpc(loop__byte_to_2hex,1-) drop

  ; terminate and wait forever
  .outstrobe(O_TERMINATE) :infinite .jump(infinite)

; Evaluate the nibble to hex conversion and the output the error status, the
; converted value, and the original value.
.function test__byte_to_2hex
  .call(char__byte_to_2hex,dup) .outport(O_VALUE) .outport(O_VALUE) .outport(O_VALUE) .return

; Evaluate the nibble to hex conversion and the output the error status, the
; converted value, and the original value.
.function test__nibble_to_hex
  .call(char__nibble_to_hex,dup) .outport(O_VALUE) .outport(O_VALUE) .return

; Evaluate the 2-digit hex to byte conversion and the output the error status,
; the converted value, and the original values.
.function test__2hex_to_byte
  over .call(char__2hex_to_byte,over) .outport(O_VALUE) .outport(O_VALUE) .outport(O_VALUE) .outport(O_VALUE) .return

; Evaluate the hex to nibble conversion and the output the error status, the
; converted value, and the original value.
.function test__hex_to_nibble
  .call(char__hex_to_nibble,dup) .outport(O_VALUE) .outport(O_VALUE) .outport(O_VALUE) .return