; $Id: tcode_std_base.mac 830 2016-12-26 20:25:49Z mueller $
; Copyright 2015- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
; License disclaimer see License.txt in $RETROBASE directory 
;
; Default tcode base code for simple tests
;
        .include        |lib/tcode_std_start.mac|
;
        clr     @pdreg          ; clear display reg
        jmp     loop1
;
; IOT handler
;   called at end of each test
;   increments tstno and updates display register
;
vh.iot: inc     tstno           ; bump test number
                                ; setup display reg
        movb    tstno,swdreg    ;    low byte: test number
        movb    runno,swdreg+1  ;   high byte: pass number
        mov     swdreg,@pdreg   ; write display reg (is noop when sw dreg used)
        rtt
;
loop:   bit     #bit00,@psreg   ; test 'loop bit'
        bne     1$
        jmp     stop

1$:     reset                   ; re-reset CPU for each pass
        mov     #stack,sp       ; re-init  SP
        clr     tstno           ; reset test counter
        inc     runno           ; bump  pass counter
; 
        .include        |lib/vec_cpucatch_reset.mac|
        .include        |lib/vec_devcatch_reset.mac|
; 
loop1:  
        mov     #vh.iot,v..iot  ; setup IOT trap handler
        mov     #cp.pr7,v..iot+2