home *** CD-ROM | disk | FTP | other *** search
/ CD/PC Actual 13 / CDA13.ISO / cdactual / demobin / share / program / Asm / 86LIB3.ZIP / FORMAT_T.8 < prev    next >
Encoding:
Text File  |  1989-01-14  |  340 b   |  25 lines
  1. _field1  db 0
  2. _field2  db 0
  3. _field3  db 0
  4. _field4  db 0
  5. _format_t:
  6.   pop bx,ax,dx
  7.   push dx,bx
  8.   cmp ax,0ff
  9.   jz _format_t2
  10.   mov ah,017
  11.   int 013
  12.   if c ret
  13. _format_t2:
  14.   pop si,dx,bx
  15.   mov _field4,bl
  16.   pop bx,cx,ax
  17.   push si
  18.   xchg ch,cl
  19.   mov dh,bl
  20.   mov es,cs
  21.   mov bx,offset _field1
  22.   mov  ah,5
  23.   int 013
  24.   ret
  25.