c $9007 PRILOO
; @label:$9007=PRILOO
C $9007 read byte pointed at by HL in A (two bytes past HISPEL)
C $9008 jump to INITGO if A is zero
C $900B move HL along two bytes
C $900D loop back to PRILOO eighteen times