.include "devices.xyw" 

; register on error handler
on_error system.on_error STW

; main program
$10 $0 DIV
end JMPw

; on error handler
.label on_error
    system.error $1 EQU on_error.print JCNw
    RTS
    .label on_error.print
        error print JSRw
        $2 system.error STB
    RTS

; printing subroutine
; a16 --
.label print
  POPxw
  .label print.loop
    LDBxw terminal.output STB
    INCxw LDBxw print.loop JCNw
    CLRxw
    RTS

.label error
.string "Error: Division by zero.\n"
.label end