Note: This is the June 17, 2006 capture of http://bentong.topcities.com/comp/progs/asm/testbin.htm from the Wayback Machine. This was uploaded to the reloaded ISLESV.NET on June 22, 2023.
; Program TESTBIN.ASM: Test the DISPBIN display procedure.
; This file Copyright (C) 2004 by Vincent "Bentong" S. Isles
EXTRN DISPBIN:NEAR ; it's not in this file, and use 32
; bit addressing!
MAIN PROC NEAR
MOV AL,05H ; five counts of rape...
AGAIN: PUSH AX ; save counter
CALL DISPBIN ; display our counter in binary
MOV DL,20H ; load blank character
MOV AH,02H ; disp char
MOV AH,02H ; again
POP AX ; get counter back
JNZ AGAIN ; repeat until counter equals zero
END MAIN ; start at main