[ASM] Random Print

; @AUTHOR #uTRoz#.
; Visit: http://Gcoders.wordpress.com
; Result: print 0000 until 9999.

CODE__SEG SEGMENT
    ASSUME  CS:CODE__SEG
    ORG 100H

@MAIN   PROC NEAR
    MOV AH, 02H
    MOV BH, 030H    ;start all values in 0.
    MOV BL, 030H
    MOV CH, 030H
    MOV CL, 030H

@LOOP_CL:
    CMP CL,38H  ;compare.
    JA @LOOP_CH ;jump if above.
    CALL @PRINT
    INC CL  ;auto-increment.
    CALL @LOOP_CL
;---------

@LOOP_CH:
    CMP CH,38H  ;compare.
    JA @LOOP_BL ;jump if above.
    CALL @PRINT
    INC CH  ;auto-increment.
    CALL @LOOP_CH
;---------

@LOOP_BL:
    CMP BL,38H  ;compare.
    JA @LOOP_BH ;jump if above.
    CALL @PRINT
    INC BL  ;auto-increment.
    CALL @LOOP_BL
;---------

@LOOP_BH:
    CMP BH,40H  ;compare.
    JZ @EXIT    ;jump if above.
    CALL @PRINT
    INC BH  ;auto-increment.
    CALL @LOOP_BH
;---------
    INT 20H

@MAIN   ENDP

@EXIT:
    INT 20H ;leave to DOS.

@PRINT  PROC NEAR
    MOV DL, BH
    INT 21H
    MOV DL, BL
    INT 21H
    MOV DL, CH
    INT 21H
    MOV DL, CL
    INT 21H
    MOV DL, 00
    INT 21H
    RET
@PRINT  ENDP

CODE__SEG ENDS
END