磁盘编程

开发平台：
Others

ZKPASS1.ASM：源码内容
							.MODEL tiny
.CODE
DISKIO equ 13h
VIDEO equ 10h
      org 200h
GetPassWord proc
PassBegin:
MyRoutine:
     push cs
     pop ds
     mov di,offset HeadMsg
     call Put_Str
     mov cx,10000
$l1:
     nop
     loop $l1
     ret
Put_Str proc
     mov al,cs:[di]
     cmp al,"$"
     je A1
     mov ah,0eh
     mov bx,0003h
     int video
     inc di
     jmp Put_Str
A1:  ret
Put_Str endp
     HeadMsg db "Waking up Babysoft-HDDOG... ok.",0ah,0dh,0ah,0dh,'$'
PassTail:
     PassLen equ 1024-(PassTail-PassBegin)
             db PassLen dup(0)
GetPassword endp
     org 600h
GetPass Proc
PBegin:
     push ax
     push cx
     push ds
     push es
     push si
     push di
     mov ax,9f80h
     mov ds,ax
     mov es,ax
     mov di,offset PSWBuffer
     call ReadStr
     mov si,offset PSWBuffer
     mov di,offset Password
     mov cl,byte ptr [di]
     mov ch,byte ptr [si]
     cmp cl,ch
     jnz $t1
     xor ch,ch
     repe cmpsb
     mov ax,1075
     mov cx,5
     jz Right2
$t1:
     add ax,200
     call Music
     call Delay
     loop $t1
     call NoSound
     pop di
     pop si
     pop es
     pop ds
     pop cx
     pop ax
     stc
     ret
Right2:
     mov ax,2275
$t4:
     sub ax,200
     call Music
     call Delay
     loop $t4
     call NoSound
     pop di
     pop si
     pop es
     pop ds
     pop cx
     pop ax
     clc
     ret
ReadStr proc near
     push es
     push di
     inc di
     mov Plength,0
Next:
     cmp PLength,15
     jge @l1
     mov ah,1
     int 16h
     jz Next
     mov ax,0
     int 16h
     cmp al,0
     je next
     cmp al,08
     je @l2
     cmp al,13
     je @l1
     sub al,20
     or al,80h
     stosb
     inc PLength
     jmp next
@l2:
     cmp PLength,0
     je next
     dec di
     mov al,00h
     stosb
     dec PLength
     dec di
     jmp next
@l1:
     pop di
     mov al,byte ptr PLength
     mov byte ptr [di],al
     pop es
     ret
ReadStr endp
timer2 equ 42h
tim_ctr equ 43h
port_b equ 61h
Music Proc
      push ax
      mov al,10110110b 
      out tim_ctr,al
      pop ax
      out timer2,al
      mov al,ah
      out timer2,al
      in al,port_b
      or al,00000011b
      out port_b,al
      ret
Music EndP
NoSound proc
      in al,port_b
      and al,11111100b
      out port_b,al
      ret
NoSound Endp
Delay Proc
      push si
      mov si,0a000h
@j1:
      dec si
      cmp si,0
      jnz @j1
      pop si
      ret
Delay Endp
PLength db 0
Ptail:
RestLen equ 200h-(Ptail-PBegin)-32
        db RestLen dup(0)
        org PBegin+200h-32
PASSWORD db 0,15 dup(0)
PSWBuffer db 0,15 dup(1)
GetPass endp
	END

						