Category : Science and Education
Archive   : PFSA.ZIP
Filename : TSUBS.ASM

 
Output of file : TSUBS.ASM contained in archive : PFSA.ZIP

code segment 'code'
assume cs:code
public date,time
date proc far
push bp
mov bp,sp
mov ah,2ah
int 21h
les bx,dword ptr[bp+14]
mov es:[bx],cx
mov ah,0
mov al,dh
les bx,dword ptr[bp+10]
mov es:[bx],ax
les bx,dword ptr[bp+6]
mov al,dl
mov es:[bx],ax
mov sp,bp
pop bp
ret
date endp
time proc far
push bp
mov bp,sp
mov ah,2ch
int 21h
les bx,dword ptr[bp+18]
mov ah,0
mov al,ch
mov es:[bx],ax
les bx,dword ptr[bp+14]
mov al,cl
mov es:[bx],ax
mov al,dh
les bx,dword ptr[bp+10]
mov es:[bx],ax
mov al,dl
les bx,dword ptr[bp+6]
mov es:[bx],ax
mov sp,bp
pop bp
ret
time endp
code ends
end