home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / ASM / ALIB30A / QUOTE.ASM < prev    next >
Assembly Source File  |  1994-12-03  |  5KB  |  166 lines
  1. ;**************************** QUOTE.ASM *********************************
  2. PAGE  70,132
  3. comment 
  4.                              QUOTE.ASM 
  5.                              ---------
  6.  
  7.      Purpose:
  8.      --------
  9.  
  10.      QUOTE.ASM is intended to demonstrate calling a random generator
  11.      and finding files located in same directory as executable.
  12.      It will display a random quote each time it is called.
  13.  
  14.      Using QUOTE.ASM
  15.      ---------------
  16.  
  17.      The files QUOTE.EXE and QUOTE.DAT must be in the same directory.
  18.      QUOTE is started by typing "QUOTE"<cr> without any parameters.
  19.      
  20.  
  21.      Compiling
  22.      ---------
  23.  
  24.      QUOTE.ASM was compiled using MASM and then linked with LINK.
  25.      
  26.      The following commands can be used:
  27.  
  28.         masm QUOTE;
  29.         link QUOTE,QUOTE,,alib.lib;
  30.  
  31.      The file QUOTE.DAT was built using EDREC.        
  32.  
  33. 
  34.  
  35. ;----------------------------------------------------------------------------
  36. .xlist
  37.     include  mac.inc
  38.     include  common.inc
  39.     extrn    library_setup:far
  40.     extrn    library_terminate:far
  41.     extrn    message:far
  42.     extrn    insert_home_path:far
  43.     extrn    last_charc:far
  44.     extrn    random_word1:far
  45. .list
  46.     
  47. ;------------------------------------------------------------------------------
  48. code        segment para public 'CODE'
  49.         assume    cs:code, ds:code
  50. ;-----------------------------------------------------------------------------
  51. ; 
  52.  
  53. stacksize    equ    1024
  54.     db    stacksize dup (0)
  55. stack_    label    word
  56. ;
  57. pspseg        dw    0        ;program segment prefix
  58.  
  59. file_asciiz       db    'quote.dat',0
  60. file_path          db    50 dup (0)
  61. ;-----------------------------------------------------------------------------
  62. start:    cli
  63.     mov    cs:pspseg,es    ;save PSP segment
  64.     mov    ax,cs        ;get CODE segment
  65.     mov    ss,ax
  66.     mov    ds,ax
  67.     mov    es,ax
  68.     mov    sp,offset stack_
  69.     sti
  70.     
  71. ; next, release memory beyond the end of the program
  72. ; The  definition for ZSEG marks the
  73. ; end of the program's code, data and stack area.
  74. ; When linking be sure ZSEG is at the end of the program.
  75.  
  76.     mov    ax,zseg
  77.  
  78.     mov    bx,cs:pspseg        ;
  79.     mov    es,bx
  80.     sub    bx,ax
  81.     neg    bx            ; size of program in paragraphs
  82.     mov    ah,4Ah            ; resize memory block
  83.     int    21h
  84. ;
  85. ; setup the library information
  86. ;
  87.     mov    ax,pspseg        ;pass psp segment to setup
  88.     mov    bx,0            ;number of floating point variables
  89.     call    library_setup
  90.  
  91.     mov    ax,cs
  92.     mov    es,ax
  93. ;
  94. ; find where this program was loaded from, then assume the
  95. ; quote.dat file is at that location.
  96. ;
  97.     mov    si,offset file_asciiz
  98.     mov    di,offset file_path
  99.     call    insert_home_path
  100. ;
  101. ; now get our random record#
  102. ;
  103.     mov    bx,1
  104.     mov    bp,166
  105.     call    random_word1
  106.     mov    cx,ax
  107.     
  108. ;
  109. ; 
  110. ;  inputs:    al = separator           (if flag msg_open)
  111. ;             bh = rows in box         (if flag msg_disp)
  112. ;             bl = columns in box      (if flag msg_disp)
  113. ;             cx = record #            (if flag msg_disp & not msg_rand)
  114. ;             dx = box upper left loc  (if flag msg_disp)
  115. ;          ds:si = ptr to file name    (if flag msg_open and not msg_ram)
  116. ;          ds:si = ptr to msg text     (if flag msg_ram and msg_open)
  117. ;             bp = flags, see equates
  118. ;             es = file selector       (if not flag msg_open)
  119. ; 
  120. ; The following equates are inputs to the MESSAGE routine to contol its
  121. ; actions.  See flags in -BP-
  122. ;
  123. ; msg_save_win    equ    001h    ;save screen area before drawing box
  124. ; msg_restore_win equ    002h    ;restore screen before exit
  125. ; msg_hyper    equ    004h    ;this is a hyper msg & key processing
  126. ; msg_yesno    equ    008h    ;this message needs yes/no response
  127. ; msg_anykey    equ    010h    ;this message waits for any key
  128. ; msg_nokey    equ    020h    ;this message does not pause for key
  129. ; msg_close    equ    040h    ;close message file before exit
  130. ; msg_open    equ    080h    ;open message file before attempting read
  131. ;             equ    100h    ;                          
  132. ; msg_disp    equ    200h    ;display the message
  133. ; msg_ram        equ    400h    ;message in memory (ds:si) rather than in file
  134. ;
  135.     mov    al,0        ;message separators
  136.     mov    bh,5        ;box is 5 rows
  137.     mov    bl,75        ;box length
  138.     mov    dx,0905h    ;put box here
  139.     mov    si,offset file_path
  140.     mov    bp,msg_save_win+msg_restore_win+msg_anykey+msg_open+msg_close+msg_disp
  141.     call    message
  142.  
  143.     mov    ax,1
  144.     call    library_terminate
  145. exit2:
  146.           mov    ax,4C00h
  147.     int    21h
  148.  
  149. code        ends
  150.  
  151. ;-------------------------------------------------------------------------
  152. ;
  153. ; This segment definition is needed so linker will put the LIBSEG here
  154. ; before the ZSEG.  We want ZSEG to be last so memory allocation will
  155. ; work correctly.
  156. ;
  157. LIBSEG           segment byte public 'LIB'
  158. LIBSEG    ENDS
  159. ;-------------------------------------------------------------------------
  160. ; zseg must be at the end of the program for memory allocation from
  161. ; DOS.
  162. ;
  163. zseg    segment    para public 'ZZ'
  164. zseg    ends
  165.         end    start
  166.