;gg.asm
;for template<8086>
;2005-05
;p_Sa
data	SEGMENT
        DAT DB  100h DUP(0)
        oOOo	EQU	2A0h
data	ENDS
stack0 SEGMENT para stack
        DW	20h	DUP(0)
stack0 ENDS
        
coseg	SEGMENT
        ASSUME CS:coseg,DS:data,SS:stack0
start:  MOV AX, data
        MOV DS, AX
;================MOV-DS-AX==============
        MOV CX, 100h
        LEA BX, DAT
     l0:MOV DX, oOOo
        MOV AL, 0
        OUT DX, AL
        CALL delay
        IN  AL, DX
        MOV [BX], AL
        INC BX
        LOOP l0
        
        MOV CX, 100h
        LEA SI, DAT
     l1:MOV BL, [SI]
        CALL show
        MOV DL, ' '
        MOV AH, 2
        INT 21h
        INC SI
        LOOP l1
;================INT-21H================
        MOV AH, 4ch
        INT 21h
delay PROC
        PUSH CX
        MOV CX, 0f000h
     ys:NOP
        LOOP ys
        POP CX 
        RET     
delay ENDP
        
show PROC
        PUSH CX
        MOV CH, 2
 rotate:MOV CL, 4
        ROL BL, CL
        MOV AL, BL
        AND AL, 0fh
        ADD AL, 30h
        CMP AL, 3ah
        JB  princh
        ADD AL, 7h
 princh:MOV DL, AL
        MOV AH, 02h
        INT 21h
        DEC CH
        JNZ rotate
        POP CX 
        RET     
show ENDP
coseg	ENDS
        END	start