home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGASM.ZIP / PROG072.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-04-10  |  1.4 KB  |  37 lines
  1.  
  2. ;************************************************************************
  3. ;  Display 'Hello' in a single line box                                 *
  4. ;************************************************************************
  5.  
  6. line1   DB      218,196,196,196,196,196,196,196,191
  7. line2   DB      179,' ','H','e','l','l','o',' ',179
  8. line3   DB      192,196,196,196,196,196,196,196,217
  9.  
  10. Boxed_Hello     PROC    NEAR
  11.         PUSH    BP
  12.         PUSH    ES
  13.         MOV     AX,CS                   ;Get pointer to the string
  14.         MOV     ES,AX                   ;into register pair ES:BP
  15.         LEA     BP,Line1
  16.         MOV     BX,0                    ;Select page 0
  17.         MOV     BL,7                    ;Use normal attribute
  18.         MOV     CX,9                    ;Display 9 characters
  19.         MOV     DH,12                   ;Start at row 12
  20.         MOV     DL,35                   ;Start at column 35
  21.         MOV     AH,13H                  ;Function = WRITE TEXT STRING
  22.         MOV     AL,0H                   ;Subfunction = Update Cursor Pos.
  23.         INT     10H                     ;Ask BIOS to display the text
  24.  
  25.         MOV     DH,13                   ;Next line at row 13
  26.         LEA     BP,Line2
  27.         INT     10H
  28.  
  29.         MOV     DH,14                   ;Next line at row 14
  30.         LEA     BP,Line3
  31.         INT     10H
  32.  
  33.         POP     ES
  34.         POP     BP
  35.         RET
  36. Boxed_Hello     ENDP
  37.