; ----------------------------------------------------
; Stimuls Ramp, an IST User Program
; ----------------------------------------------------

const mmu_stc  0x0406 ; Stimulus Current
const cntr     0x0200 ; Counter variable
ld A,(cntr)       ; Increment our 
inc A             ; counter and
ld (cntr),A       ; store.
srl A             ; Shift right
srl A             ; a total
srl A             ; of four 
srl A             ; times.
ld (mmu_stc),A    ; Set stimulus current.
ret               ; Return to main program.