; programm   : zeittest.asm
; syntax     : a86
; datum      : 22.07.88
; das programm testet das zeitverhalten des rechners
; auf einen schneider pc1512 sollten 10 sek fuer die schleife benoetigt
; werden

verz       macro
           mov cx,#1
l0:        push cx
           mov cx,013f   ; mit diesem wert experimentieren
l1:        nop
           loop l1
           pop cx
           loop l0
#em
bild       macro
           mov ah,09
           mov dx,offset #1
           int 021
#em
warten     macro
           mov ah,01
           int 021
#em
           jmp start
anfang     db 13,10
           db 'Dieses Programm pr’t das Zeitverhalten eines PC.',13,10
           db 'Es wurde auf einen Scheider PC 1512 erstellt.',13,10
           db 'Das Programm braucht auf einem PC 1512 genau 10 Sekunden',13,10
           db 'f〉 eine Zeitschleife',13,10
           db 'Uhr auf 0 und zusammen mit einer Taste starten$'
schluss    db 13,10,'Jetzt sollten 10 Sekunden vorbei sein$'

start:     push ax,bx,cx,dx,di,si
           pushf
           bild anfang
           warten
           verz 10000
           bild schluss
           warten
back:      popf
           pop si,di,dx,cx,bx,ax
           mov ah,04c
           int 021

