;gg.asm
;for template<8086>
;2005-05
;p_Sa
data	SEGMENT
        DAT DB  100h DUP(0)
        PA	EQU	280h
        PB	EQU	281h
        PC	EQU	282h
        PCTL	EQU	283h
        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 AL, 10001000b
        MOV DX, PCTL
        OUT DX, AL
        
        MOV CX, 100h
        LEA BX, DAT
     l0:MOV DX, oOOo
        MOV AL, 0
        OUT DX, AL
        MOV DX, PC
     l3:IN  AL, DX
        TEST AL, 80h
        JE  l3
        MOV DX, oOOo
        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      
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