Hall of Fame

home *** CD-ROM | disk | FTP | other *** search

/ Hall of Fame / HallofFameCDROM.cdr / util2 / timer.lzh / TIMER.ASM next >

Wrap

Assembly Source File | 1985-12-08 | 8.5 KB | 376 lines

eseg segment at 0000h org 4*60h irq60ip dw ? irq60cs dw ? eseg ends dseg segment Header db '╔═════════════════════════════════════════════════════════════════════════════╗',0ah,0dh db '║ IBM PC Timing Program - Tests speed of 8088 µProcessor ║',0ah,0dh db '║ ───────────────written by Allen Priest──────────────── ║',0ah,0dh db '║ ║',0ah,0dh db '║ Times are based on the internal clock and are only ║',0ah,0dh db '║ accurate to 1/18 of a second. The number of clock ║',0ah,0dh db '║ cycles is based on an 8088 µP running at 4.77 MHz. ║',0ah,0dh db '╠═════════════════════════════════════════════════════════════════════════════╣',0ah,0dh,'$' Last db '╚═════════════════════════════════════════════════════════════════════════════╝',0ah,0dh,'$' TotTime dw 0 E_Time dw ? Sec db ' 1/100 seconds $' Clocks db ' Clock Cycles/Instruction ║',0ah,0dh,'$' LOPMess db '║ Loops: $' DivMess db '║ Divides: $' IdiMess db '║ Signed Divides: $' MulMess db '║ Multiplies: $' ImuMess db '║ Signed Multiplies: $' AAMMess db '║ Ascii Adjusts for Mul: $' AADMess db '║ Ascii Adjusts for Div: $' ADDMess db '║ Additions: $' SUBMess db '║ Subtractions: $' CALMess db '║ Subroutine Calls: $' INTMess db '║ Interrupt Calls: $' JMPMess db '║ Short Jumps: $' CMPMess db '║ Compares: $' P_PMess db '║ Pushes and Pops: $' LoopCnt dw 0 dseg ends cseg segment assume cs:cseg,ds:dseg,es:eseg main proc far start: push ds xor ax,ax push ax mov ax,dseg mov ds,ax mov ax,eseg mov es,ax mov es:[irq60ip],offset DummyInt mov es:[irq60cs],seg DummyInt mov dx,offset header mov ah,09h int 21h Call Set_Start Call Get_Start mov di,4 LOP: mov cx,0ffffh mov bx,00001h mov ax,00001h mov dx,00000h Bloopl: loop bloopl dec di jnz LOP Call Get_Finish mov dx,offset LOPMess mov ah,09h int 21h Call Out_Time Mov LOOPCnt,ax Call Get_Start mov di,4 Div: mov cx,0ffffh mov bx,00001h mov ax,00001h mov dx,00000h Bloop1: div bx loop bloop1 dec di jnz Div Call Get_Finish mov dx,offset DivMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 IDiv: mov cx,0ffffh mov bx,00001h mov ax,00001h mov dx,00000h Bloop4: idiv bx loop bloop4 dec di jnz Idiv Call Get_Finish mov dx,offset IdiMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 Mul: mov cx,0ffffh mov bx,00000h mov ax,00001h mov dx,00000h Bloop2: mul bx loop bloop2 dec di jnz Mul Call Get_Finish mov dx,offset MulMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 IMul: mov cx,0ffffh mov bx,00000h mov ax,00001h mov dx,00000h Bloop5: imul bx loop bloop5 dec di jnz IMul Call Get_Finish mov dx,offset ImuMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 AAM: mov cx,0ffffh mov bx,00000h mov ax,00001h mov dx,00000h Bloop3: aam loop bloop3 dec di jnz AAM Call Get_Finish mov dx,offset AAMMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 AAD: mov cx,0ffffh mov bx,00000h mov ax,00001h mov dx,00000h Bloop6: aad loop bloop6 dec di jnz AAD Call Get_Finish mov dx,offset AADMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 ADDING: mov cx,0ffffh mov bx,00000h mov ax,00001h mov dx,00000h Bloop7: add ax,[0000] loop bloop7 dec di jnz ADDING Call Get_Finish mov dx,offset ADDMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 SUBING: mov cx,0ffffh mov bx,00000h mov ax,00001h mov dx,00000h Bloop8: sub ax,[0000] loop bloop8 dec di jnz SUBING Call Get_Finish mov dx,offset SUBMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 CALL: mov cx,0ffffh mov bx,00000h mov ax,00001h mov dx,00000h Bloop9: Call Dummy loop bloop9 dec di jnz CALL Call Get_Finish mov dx,offset CALMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 INT: mov cx,0ffffh mov bx,00000h mov ax,00001h mov dx,00000h Bloop0: Int 60h loop bloop0 dec di jnz INT Call Get_Finish mov dx,offset INTMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 JMP: mov cx,0ffffh mov bx,00000h mov ax,00001h mov dx,00000h Bloopa: jmp Dumb Dumb: loop bloopa dec di jnz JMP Call Get_Finish mov dx,offset JMPMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 CMP: mov cx,0ffffh mov bx,00000h mov ax,00001h mov dx,00000h Bloopb: cmp ax,[0000] loop bloopb dec di jnz CMP Call Get_Finish mov dx,offset CMPMess mov ah,09h int 21h Call Out_Time Call Get_Start mov di,4 P_P1: mov cx,0ffffh mov bx,00000h mov ax,00001h mov dx,00000h Bloopc: push ax pop ax loop bloopc dec di jnz P_P1 Call Get_Finish mov dx,offset P_PMess mov ah,09h int 21h Call Out_Time mov dx,offset last mov ah,09h int 21h Call Set_End ret main endp Dummy proc near ret Dummy endp DummyInt proc near iret DummyInt endp Set_Start proc near mov ah,02ch int 21h xor bx,bx mov bl,dl mov al,dh mov cl,100 mul cl add bx,ax mov TotTime,bx ret Set_Start endp Set_End proc near mov ax,TotTime mov cl,100 div cl mov TotTime,ax mov ah,02ch int 21h mov dx,TotTime cmp dh,60 jl SetTime inc cl sub dh,60 cmp cl,60 jl SetTime inc ch sub cl,60 cmp ch,23 jl SetTime mov ch,00 SetTime: mov ah,02dh int 21h ret Set_End endp Get_Start proc near mov ah,02ch int 21h mov dx,0000h mov ah,02dh int 21h ret Get_Start endp Get_Finish proc near mov ah,02ch int 21h mov E_Time,DX ret Get_Finish endp Out_Time proc near mov ax,E_Time mov bx,ax xor bh,bh mov al,ah mov cl,100 mul cl add bx,ax add TotTime,bx push bx call binidec mov dx,offset sec mov ah,09h int 21h pop bx mov ax,bx shl ax,1 mov dx,0000 mov cx,11 div cx cmp dx,3 jl OutDec add ax,1 OutDec: sub ax,LoopCnt ;subtract time of LOOP instruction mov bx,ax push ax call binidec mov dx,offset clocks mov ah,09h int 21h pop ax ret Out_Time endp include outdec.asm cseg ends end start