; include device macros 
.include "devices.xyw" 

; main program
hello print JSRw
; terminate
$0 system.state STB

; a16 --
; printing subroutine
.label print
  ; store top of stack to register XW
  POPxw
  .label print.loop
    ; dereference address in XW and print 
    LDBxw console.output STB
    ; increment address, dereference 
    ; go back to loop unless zero
    INCxw LDBxw print.loop JCNw
    RTS

; store null-terminated string
.label hello
.string "Hello, World!\n"