www.pudn.com > 11.asm.rar > 11.asm.ASM

vardata segment 
        filename        db      'ttttt.txt',00 
vardata ends 
condata segment 
        names   db      10      dup(?) 
        age     db      ?,? 
        mess_n  db      0dh,0ah,'       name:   $' 
        mess_a  db      0dh,0ah,'       age:    $' 
        str     db      0dh,0ah 
                db      '1: print list     [L]',0dh,0ah 
                db      '2: insert new ele [I]',0dh,0ah 
                db      '3: quit           [q]',0dh,0ah 
                db      '$' 
condata ends 
 
code segment 
        assume cs:code,ds:vardata,es:condata 
main    proc    far 
start: 
        mov     ax,     condata 
        mov     es,     ax 
        mov     ax,     vardata 
        mov     ds,     ax 
        push    ds 
;--------------print command hint------------------- 
        mov     ax,     es 
        mov     ds,     ax 
        mov     dx,     offset str 
        mov     ah,     9h 
        int     21h 
        pop     ds 
;----------------intepret command------------------ 
cmp_l:  mov     ah,     01h 
        int     21h 
        cmp     al,     'l' 
        jnz     cmp_i 
        call    list_all 
        jmp     start 
cmp_i: 
        cmp     al,     'i' 
        jnz     cmp_q 
        call    insert 
        jmp     start 
cmp_q: 
        cmp     al,     'q' 
        jnz     cmp_l 
         
exit: 
        mov     ax,     4c00h 
        int     21h 
main    endp 
list_all proc near 
        call    open_create     ;open or create file 
        push    ds 
        mov     ax,     es 
        mov     ds,     ax 
loop_rd: 
        mov     ah,     3fh    ;read record from file to memory 
        mov     dx,     offset  names 
        mov     cx,     12 
        mov     bx,     si 
        int     21h 
        cmp     ax,     0 
        je      read_finish    ;read to the end,then finish 
 
 
;--------------------print      the     record---------- 
 
        mov     dx,     offset  mess_n  ;print the name 
        mov     ah,     9 
        int     21h 
 
        mov     bx,     0 
go_on: 
        mov     dl,     names[bx] 
        mov     ah,     2h 
        int     21h 
 
        inc     bx 
        cmp     bx,     10 
        jl      go_on 
                                                 
        mov     dx,     offset  mess_a      ;print the age 
        mov     ah,     9 
        int     21h 
 
        mov     dl,     age[0] 
        mov     ah,     2 
        int     21h 
 
        mov     dl,     age[1] 
        mov     ah,     2 
        int     21h 
        jmp     loop_rd   ;     a record finished ,then to read the next 
read_finish: 
        call    closef 
        pop     ds 
        ret 
list_all endp 
insert  proc    near 
        call    open_create            ; open of create file 
        push    ds 
        mov     ax,     es 
        mov     ds,     ax 
        mov     dx,     offset  mess_n 
        mov     ah,     9h 
        int     21h 
        mov     bx,     0 
init:                                 ;memory initialize 
        mov     names[bx],0 
        inc     bx 
        cmp     bx,     12 
        jl      init 
        mov     bx,     0 
lp:                         ;accept keyboard input(name) 
        mov     ah,     1 
        int     21h 
        cmp     al,     0dh ;whether it is carriage return 
        jz      i_end 
        cmp     al,     0ah ;whether it is line feed 
        jz      i_end 
        mov     names[bx],al 
        inc     bx 
        cmp     bx,     12 
        jl      lp 
i_end: 
        cmp     al,     0dh ;trim surplus char 
        jz      inext 
        cmp     al,     0ah 
        jz      inext 
        mov     ah,     1 
        int     21h 
        jmp     i_end 
inext: 
        mov     dx,     offset      mess_a 
        mov     ah,     9h 
        int     21h 
        mov     bx,     0 
lp2:    mov     ah,     1h 
        int     21h 
        cmp     al,     0dh 
        jz      ii_end 
        cmp     al,     0ah 
        jz      ii_end 
        mov     age[bx],al 
        inc     bx 
        cmp     bx,     1 
        jle     lp2 
ii_end: 
        cmp     al,     0dh 
        jz      iexit 
        cmp     al,     0ah 
        jz      iexit 
        mov     ah,     1 
        int     21h 
        jmp     ii_end 
iexit:                         ;move the file pointer to the end of file 
         
        mov     ah,     42h 
        mov     al,     2 
        mov     bx,     si 
        mov     cx,     0 
        mov     dx,     0 
        int     21h 
 
        mov     ah,     40h  ;write the record to file 
        mov     bx,     si 
        mov     cx,     12 
        mov     dx,     offset  names 
        int     21h 
 
back: 
        call    closef 
        pop     ds 
        ret 
insert  endp 
open_create     proc    near 
        push    ds 
        mov     ax,     seg     filename 
        mov     ds,     ax 
        mov     ah,     3dh  ;open the file 
        mov     dx,     offset filename 
        mov     al,     2h 
        int     21h 
        jnc     ok 
        mov     ah,     3ch     ;if not exit,create it 
        mov     dx,     offset filename 
        mov     cx,     00 
        int     21h 
 
ok: 
        mov     si,     ax 
        pop     ds 
        ret 
open_create     endp 
closef  proc    near 
        mov     bx,     si 
        mov     ah,     3eh 
        int     21h 
        ret 
closef  endp 
code    ends 
end     start