
        NAM     INITIKTK
        
***     Initierar hela tidssparningsutrymmet
*       till $00.
*
*       Version 1.0
*       hjoel   1988-01-05
*
*       Ingang: Startadr for utrymme som
*                 ska initieras i IX.
*               Initieringsvardet i AccA.
*               Antal celler som ska ini-
*                 tieras i AccB.
*       AccB och IX andras. Ovr reg oforandr.
***

        ORG     $8000
        
INITIK  STA     ,X+
        DECB
        BNE     INITIK
        RTS
        
        END     INITIK
        
