; Assumes .include "devices.xyw"
 
; Printing subroutine
; a8 -- | [xy]
.label print8
  POPx 
  ; If value is less than 10, print single digit
  PSHx $A LTH print8.single JCNw
  ; Divide by 10: stack becomes [remainder, quotient]
  PSHx $A DIV
  ; Save remainder to y for later
  SWP POPy
  ; Call print8 recursively with quotient (still on stack)
  print8 JSRw
  ; Print the saved remainder
  PSHy $30 ADD terminal.output STB
  CLRxy
  RTS
  .label print8.single
    ; Print single digit
    PSHx $30 ADD terminal.output STB 
    CLRx
    RTS