南邮 微型计算机原理与接口技术 汇编语言 实验三

DATAS SEGMENT

     hello   DB 'Welecome to China',0AH,'$'

     ICOUNT  DB  18          

     OLD1C   DD  ?        

DATAS ENDS 

CODES SEGMENT

ASSUME   CS:CODES,DS:DATAS

START:

    MOV  AX,DATAS

    MOV  DS,AX

    CLI                 

    CALL READ1C         

    CALL WRITE1C

    STI                 

NEXT:

    MOV   AH,01H

    INT   21H             

    JZ    NEXT              

    CALL  REXIT1C    

    MOV   AH,4CH

    INT   21H   

SERVICE   PROC            

    PUSH  DS               

    MOV   AX,DATAS

    MOV   DS,AX

    DEC   ICOUNT           

    JNZ   EXIT             

    MOV   ICOUNT,18        

    MOV   AH,09H          

    LEA   DX,hello

    INT   21H

    EXIT:                  

    POP   DS                

    IRET              

SERVICE   ENDP

READ1C    PROC              

    MOV   AX,351CH

    INT   21H

    MOV   WORD PTR OLD1C,BX

    MOV   WORD PTR  OLD1C+2,ES

    RET

READ1C    ENDP

WRITE1C   PROC            

    PUSH  DS

    MOV   AX,SEG SERVICE

    MOV   DS,AX

    LEA   DX,SERVICE

    MOV   AX,251CH

    INT   21H

    POP   DS

    RET

WRITE1C   ENDP

REXIT1C   PROC               

    MOV   AX,WORD PTR  OLD1C

    MOV   DS,AX

    MOV   DX,WORD  PTR OLD1C+2

    MOV   AX,251CH

    INT   21H

    RET

REXIT1C   ENDP

CODES     ENDS

END       START