; .include "devices.xyw"
 
; Print an 8bit integer
; a8 -- | [x]
.label print8
  POPx 
  ; If value is less than 10, print single digit
  PSHx $0A LTH print8.single JCNw
  ; Divide by 10: stack becomes [remainder, quotient] with quotient on TOP
  PSHx $0A DIV
  ; Call print8 recursively with quotient (on top, consumed by POPx)
  print8 JSRw
  ; Remainder is still on stack, print it
  $30 ADD terminal.output STB
  CLRx
  RTS
  .label print8.single
    ; Print single digit
    PSHx $30 ADD terminal.output STB 
    CLRx
    RTS