切换11111111

显示a到z并且摁ESC切换颜色

assume cs:codesg，ds:data,ss:stack

stack segment
db 128 dup(0)
stack ends



codesg segment

data segment

dw 0,0

data ends
   start:
  
   call clc
   mov ax,stack
   mov ss,ax
   mov sp,128
   mov ax,data
   mov ds,ax
   
   ;
   
   mov ax,0
   mov es,ax
  push es:[9*4]
  pop ds:[0]
  push es:[9*4+2]
  pop ds:[2]
  mov word ptr es:[9*4],offset int9
  mov es:[9*4+2],cs
  ;

push cx
mov cx,10
mov ax,0b800h
mov es,ax
mov ah,'a'
s:mov es:[160*12+80],ah
call delay
inc ah
cmp ah,'z'
jna s
mov ax,0
mov es,ax

pop cx
;

push ds:[0]
pop es:[9*4]
push ds:[2]
pop es:[9*4+2]

mov ax,4c00h
int 21h


int9:
push ax
push bx
push es
in al,60h
pushf
pushf
pop bx
and bh,11111100b
push bx
popf
call dword ptr ds:[0]
cmp al,1
jne int9ret
mov ax,0b800h
mov es,ax
inc byte ptr es:[160*12+40*2+1]

int9ret:pop es
pop bx
pop ax
iret

















 delay:   
push ax
push dx
mov dx,10h
mov ax,0
mov cx,9fffh
s1:sub ax,1
   sub ax,dx
   sub ax,ax
   sub ax,1
   sub ax,dx
   sub ax,ax
   sub ax,1
   sub ax,dx
   sub ax,ax
loop s1
pop dx
pop ax
ret

clc:
 push bx
push cx
push es
mov bx,0b800h
mov es,bx
mov bx,0
mov cx,2000
sub1s:
mov byte ptr es:[bx],' '
add bx,2
loop sub1s
pop es
pop cx
pop bx
ret


codesg ends
end  start