INCLUDE "Z80.POD"

SETUP
   TRAP ACTIVE FORCE LINE NO
   TRAP ACTIVE INTERRUPT NO


PROGRAM MAIN

   REGF = 8800

1: LABEL 1
   DPY-$F
   WRITE @REGF=FF
   INC REGF
   IF REGF = 9000 GOTO 2

   GOTO 1

2: LABEL 2
   STOP