.include "lib/macros.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 LDB $1 EQU on_error.div-by-zero.print JCNw
  unknown-error PUTS JSRw
  $0 system.error STB
  RTS
  .label on_error.div-by-zero.print
    div-by-zero-error PUTS JSRw
    $3 system.error STB
    RTS

.include "lib/PUTS.xyw"

.label div-by-zero-error
.string "Error: Division by zero.\n"
.label unknown-error
.string "Error: Unknown error.\n"
.label end