home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30B / MSG3.ASM < prev    next >
Assembly Source File  |  1994-11-15  |  3KB  |  109 lines
  1.     page    66,132
  2. ;******************************** MSG3.ASM   *********************************
  3.  
  4. LIBSEG           segment byte public "LIB"
  5.         assume cs:LIBSEG , ds:nothing
  6.  
  7. ;----------------------------------------------------------------------------
  8. .xlist
  9.     include  mac.inc
  10.     include  common.inc
  11. .list
  12. ;----------------------------------------------------------------------------
  13.     extrn    message:far
  14.     extrn    msg_text_color:byte
  15.     extrn    err_asciiz:byte
  16.     extrn    bar_hotkey_color:byte
  17.     extrn    save_window:far
  18.     extrn    restore_window:far
  19.     extrn    draw_box:far
  20.     extrn    key_read:far
  21.     extrn    window_string:far
  22.     extrn    box_shrink:far
  23. comment 
  24. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( MESSAGE )
  25. QMESSAGE - Quick message display in box & wait for keypress (msg in file)
  26. ;
  27. ; inputs:     cx = record # to display.
  28. ; 
  29. ; output:  carry set if error reading file on disk. File must be in current
  30. ;          default directory.
  31. ;          
  32. ; note:    The display location, colors, and box size is calculated.
  33. ;          The message is obtained from the standard error file, See
  34. ;          ERROR_PRIME for selecting file to use.  The message is placed
  35. ;          in a box 10 rows long and 40 columns wide.  It waits for any
  36. ;          key before preceeding.
  37. ;* * * * * * * * * * * * * *
  38. 
  39.     public    qmessage
  40. QMESSAGE    PROC    FAR
  41.     apush    ax,bx,cx,dx,si,di,bp,ds,es
  42.     mov    ax,cs
  43.     mov    ds,ax
  44.     mov    ah,msg_text_color
  45.     mov    al,0            ;separator of zero
  46.     mov    bx,0a28h            ;box is 10 lines long, 40 columns wide
  47.     mov    dx,0814h        ;box at row 8 column 20
  48.     mov    si,offset err_asciiz    ;get filename ptr
  49.     mov    bp,msg_save_win+msg_restore_win+msg_anykey+msg_open+msg_close+msg_disp
  50.     call    message
  51.     apop    es,ds,bp,di,si,dx,cx,bx,ax
  52.     retf    
  53. QMESSAGE    ENDP
  54. comment 
  55. ;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -( MESSAGE )
  56. QWARN - Quick message display in box & wait for keypress (msg in mem)
  57. ;
  58. ; inputs:  ds:si = pointer to message text, zero at end.
  59. ; 
  60. ; output:  none
  61. ; 
  62. ; note:    The display location, colors, and box size is calculated.
  63. ;* * * * * * * * * * * * * *
  64. 
  65. qsav_si    dw    0
  66. qsav_ds    dw    0
  67.  
  68.     public    qwarn
  69. QWARN    PROC    FAR
  70.     apush    bx,cx,dx,si,di,ds,es
  71.     mov    cs:qsav_ds,ds
  72.     mov    bx,cs
  73.     mov    ds,bx
  74.     mov    es,bx
  75.  
  76.     mov    qsav_si,si
  77. ;
  78.     mov    ah,byte ptr bar_hotkey_color
  79.     mov    dx,0101h
  80.     mov    bx,0630h
  81. ;
  82.     call    save_window
  83.     call    draw_box
  84.     call    box_shrink
  85.     push    es
  86.     pop    ds
  87.     mov    ah,byte ptr bar_hotkey_color
  88. ;
  89. ; display the error text inside the box
  90. ;
  91.     push    ds
  92.     mov    si,cs:qsav_si
  93.     mov    ds,cs:qsav_ds
  94.     call    window_string
  95.     pop    ds
  96. ;
  97. ; check type of exit processing, and wait for key if necessary, then exit
  98. ;
  99. error_key:
  100.     call    KEY_READ            ;get key press
  101.     call    restore_window
  102.     apop    es,ds,di,si,dx,cx,bx
  103.     retf
  104. QWARN    ENDP
  105. ;-----------------------------------------------------------------------------
  106.  
  107. LIBSEG    ENDS
  108.     end
  109.