\ AMIGA JForth Include file.
include? :struct ju:c_struct
decimal
EXISTS? HARDWARE_CUSTOM_H NOT .IF	
: HARDWARE_CUSTOM_H ;

:STRUCT	AudChannel
  APTR ac_ptr
  USHORT ac_len
  USHORT ac_per
  USHORT ac_vol
  USHORT ac_dat
( %?)   2 2 *  BYTES ac_pad
;STRUCT

:STRUCT	SpriteDef
  USHORT  sd_pos
  USHORT sd_ctl
  USHORT sd_dataa
  USHORT sd_datab
;STRUCT

:STRUCT Custom
  USHORT bltddat
  USHORT dmaconr
  USHORT vposr
  USHORT vhposr
  USHORT dskdatr
  USHORT joy0dat
  USHORT joy1dat
  USHORT clxdat
  USHORT adkconr
  USHORT pot0dat
  USHORT pot1dat
  USHORT potinp
  USHORT serdatr
  USHORT dskbytr
  USHORT intenar
  USHORT intreqr
  APTR dskpt
  USHORT dsklen
  USHORT dskdat
  USHORT refptr
  USHORT vposw
  USHORT vhposw
  USHORT copcon
  USHORT serdat
  USHORT serper
  USHORT potgo
  USHORT joytest
  USHORT strequ
  USHORT strvbl
  USHORT strhor
  USHORT strlong
  USHORT bltcon0
  USHORT bltcon1
  USHORT bltafwm
  USHORT bltalwm
  APTR bltcpt
  APTR bltbpt
  APTR bltapt
  APTR bltdpt
  USHORT bltsize
( %?)   3 2 *  BYTES pad2d
  USHORT bltcmod
  USHORT bltbmod
  USHORT bltamod
  USHORT bltdmod
( %?)   4 2 *  BYTES pad34
  USHORT bltcdat
  USHORT bltbdat
  USHORT bltadat
( %?)   4 2 *  BYTES pad3b
  USHORT dsksync
  ULONG cop1lc
  ULONG cop2lc
  USHORT copjmp1
  USHORT copjmp2
  USHORT copins
  USHORT diwstrt
  USHORT diwstop
  USHORT ddfstrt
  USHORT ddfstop
  USHORT dmacon
  USHORT clxcon
  USHORT intena
  USHORT intreq
  USHORT adkcon
  struct AudChannel aud[0]
  struct AudChannel aud[1]
  struct AudChannel aud[2]
  struct AudChannel aud[3]
( %?)   6 4 *  BYTES bplpt
( %?)   4 2 *  BYTES pad7c
  USHORT bplcon0
  USHORT bplcon1
  USHORT bplcon2
  USHORT pad83
  USHORT bpl1mod
  USHORT bpl2mod
( %?)   2 2 *  BYTES pad86
( %?)   6 2 *  BYTES bpldat
( %?)   2 2 *  BYTES pad8e
( %?)   8 4 *  BYTES sprpt
  sizeof() SpriteDef 8 * BYTES spr
( %?)   32 2 *  BYTES color
;STRUCT 

.THEN