Phoenix Rising BBS/phoenixrising.zip/phoenixrising/vir-docs/crptlt16.arj/WOLF.LIB

Text File | 1993-06-16 | 3KB | 212 lines

.xlist
.radix 16

;WOLF assembly macro routines by Black Wolf.

;alloc          size[WORD]
;changealloc    size[WORD], segment[WORD]
;cls            screen_mode[BYTE]
;fclose         handle[WORD]
;fopen          mode[BYTE], filename_off[WORD], filename_seg[WORD]
;gets           string_offset[WORD], string_seg[WORD], max_len[BYTE]
;get_int        int_no[BYTE]
;set_int        int_no[BYTE], new_offset[WORD], new_segment[WORD]
;keyhit
;terminate      error_code[BYTE]

alloc   macro   size
    mov     ah,48
    ifdif   <bx>,<size>
    mov     bx,size
    endif
    int     21
    endm

changealloc macro size, segment
    mov     ah,4a
    ifdif   <es>,<segment>
    push    bx
    mov     bx,segment
    mov     es,bx
    pop     bx
    endif
    ifdif   <bx>,<size>
    mov     bx,size
    endif
    int     21
    endm


cls macro screen_mode
    ifnb    <screen_mode>
    mov     al,screen_mode
    else
    mov     al,3
    endif
    xor     ah,ah
    int     10
    endm

terminate macro error_code
    ifnb    <error_code>
    mov     al, error_code
    mov     ah,4c
    int     21
    else
    mov     ax,4c00
    int     21
    endif
    endm

keyhit macro
    xor     ax,ax
    int     16
    endm

gets macro string_offset, string_seg, max_len
    ifdif   <string_seg>,<ds>
    push    ax
    mov     ax,string_seg
    mov     ds,ax
    pop     ax
    endif
    ifdif   <string_offset>,<dx>
    mov     dx,offset string_offset
    endif
    ifdif   <max_len>, <al>
    mov     al,max_len
    endif
    mov     ah,0a
    push    bx
    mov     bx,dx
    mov     byte ptr ds:[bx],al
    int     21
    mov     al, byte ptr ds:[bx+1]
    add     bl, al
    adc     bh,0
    mov     byte ptr ds:[bx+2],0
    pop     bx
    endm

fopen   macro  mode, filename_off, filename_seg
    ifdif   <filename_off>, <dx>
    mov     dx,offset filename_off
    endif
    ifdif   <filename_seg>,<ds>
    push    dx
    mov     dx,filename_seg
    mov     ds,dx
    pop     dx
    endif
    mov     al,mode
    mov     ah,3dh
    int     21
    jc      done_fopen
    xchg    bx,ax
    done_fopen:
    endm

fclose  macro   handle
    ifdif   <handle>,<bx>
    mov     bx,handle
    endif
    mov     ah,3e
    int     21
    endm


fread   macro   handle, size, dest_seg, dest_off
    ifdif   <bx>, <handle>
    mov     bx,handle
    endif
    ifdif   <size>,<cx>
    mov     cx,size
    endif
    ifdif   <dest_seg>,<dx>
    mov     dx,offset dest_seg
    endif
    ifdif   <dest_off>, <ds>
    push    dx
    mov     dx,dest_off
    mov     ds,dx
    pop     dx
    endif
    mov     ah,3f
    int     21
    endm

printf  macro   string_off, string_seg, length
    ifdif   <string_off>, <dx>
    mov     dx,offset string_off
    endif
    ifdif   <string_seg>, <ds>
    push    dx
    mov     dx,string_seg
    mov     ds,dx
    pop     dx
    endif
    ifnb    <length>
    mov     cx,length

    else

    push    es di
    push    ds
    pop     es
    mov     di,dx
    mov     cx,0ffff
    cld
    xor     al,al
    repnz   scasb
    mov     cx,di
    sub     cx,dx
    dec     cx
    pop     di es
    endif

    mov     ah,40
    xor     bx,bx
    int     21
    endm

get_int macro   int_no
    mov     ah,35
    mov     al,int_no
    int     21
    endm

set_int macro   int_no, new_offset, new_segment
    ifdif   <new_segment>,<ds>
    mov     ax,new_segment
    mov     ds,ax
    endif
    mov     ah,25
    mov     al,int_no
    mov     dx,offset new_offset
    int     21
    endm
set_trap macro
    push    ax
    pushf
    pop     ax
    or      ax,100
    push    ax
    popf
    pop     ax
    endm

clear_trap macro
    push    ax
    pushf
    pop     ax
    and     ax,0feff
    push    ax
    popf
    pop     ax
    endm



.list