TITLE A08DISAR (EXE) Display all ASCII character set
STACK SEGMENT PARA STACK 'Stack'
DB 64 DUP(?)
STACK ENDS
DATASEG SEGMENT PARA 'Data'
ASCHAR DB 00,'$'
DATASEG ENDS
.286
CODESEG SEGMENT PARA 'Code'
A10MAIN PROC FAR
ASSUME SS:STACK,DS:DATASEG,CS:CODESEG
MOV AX,CODESEG
MOV DS,AX
CALL B10SCREEN
CALL C10CURSOR
CALL D10DISPLY
MOV AX,4C00H
INT 21H
A10MAIN ENDP
B10SCREEN PROC NEAR
PUSHA
MOV AX,0600H
MOV BH,07
MOV CX,0000
MOV DX,184FH
INT 10H
POPA
RET
B10SCREEN ENDP
C10CURSOR PROC NEAR
PUSHA
MOV AH,02H
MOV BH,00
MOV DX,0800H
INT 10H
POPA
RET
TITLE A08DISAR (EXE) Display all ASCII character set
.MODEL SMALL
.STACK 64
.DATA
ASCHAR DB 00,'$'
.286
.CODE
A10MAIN PROC FAR
MOV AX,@data
MOV DS,AX
CALL B10SCREEN
CALL C10CURSOR
CALL D10DISPLY
MOV AX,4C00H
INT 21H
A10MAIN ENDP
B10SCREEN PROC NEAR
PUSHA
MOV AX,0600H
MOV BH,07
MOV CX,0000
MOV DX,184FH
INT 10H
POPA
RET
B10SCREEN ENDP
C10CURSOR PROC NEAR
PUSHA
MOV AH,02H
MOV BH,00
MOV DX,0800H
INT 10H
POPA
RET