; A program that takes a while and makes no sound.
;
; Fixture. Something has to happen after a program that left a note sounding has stopped, or
; there is nothing for the sound device to be measured DURING: the machine halts the moment
; the shell runs out of input, and a note quietened at that instant leaves no samples behind
; to say whether it was quietened at all.
;
; So this burns about two million cycles and exits. Two nested counts and a third around
; them, because a byte only reaches 256 and a fifth of a second is a great deal more than
; that.
;
; Written by Anachronaut

#Include services.asm

#Program

  #Base 0x5000

start:
  INIA 0d16
outer:
  PSHA                      ; The outer count, which the inner ones need A for.
  RSTB
middle:
  RSTA
inner:
  DECA
  BNA inner
  DECB
  BNB middle
  POPA
  DECA
  BNA outer

  SWI osExit

#Data

  #Base 0x3000

Unused:
  0x00

#Vectors

  Boot start