home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / C / CLFEB88.ZIP / C&ASM.LTG next >
Encoding:
Text File  |  1988-02-04  |  7.9 KB  |  293 lines
  1. Interfacing C and Assembler by Jean-Pierre Schachter
  2.  
  3. LISTING 1
  4.  
  5. ODOMETER.C
  6.  
  7. #define  VID00   0XB800
  8.  
  9. int scr_start;
  10.  
  11. main ()
  12.      {
  13.      int i;
  14.      unsigned int whereat, meterset ();
  15.      scr_start = VID00;
  16.      cls ();
  17.      whereat = meterset ();
  18.      for (i=0; i<1000;i++)
  19.          {
  20.          bytmeter (whereat);
  21.          }
  22.      }
  23.  
  24. ; meterset.asm  Sept. 1987 J.-P. Schachter
  25. ; in the Public Domain
  26. ; for linking with ECO-C88 C code
  27. ;
  28. EXTRN       _scr_start:WORD
  29. DGROU╨    grou≡    $c$strtseg¼ $d$dataseg¼ $e$usdseg¼ $f$udseg¼ ì
  30.                 $g$uedseg¼ $h$stkseg¼ $i$end,seg
  31. PGROUP    group    $a$chain,$b$prog
  32. ;
  33. $a$chain        segment    public 'code'
  34. $a$chain        ends
  35. ;
  36. $b$prog        segment    word public 'code'
  37. $b$prog        ends
  38. ;
  39. $c$strtseg    segment    public 'data1'
  40. $c$strtseg    ends
  41. ;
  42. $d$dataseg    segment    word public 'data2'
  43. meter db 0,'-',70h,'0',70h,'0',70h,'0',70h,'0',70h,'0',70h,'-',70h,1
  44. $d$dataseg    ends
  45. ;
  46. $e$usdseg    segment    word public 'data3'
  47. $e$usdseg    ends
  48. ;
  49. $f$udseg    segment    word public 'data4'
  50. $f$udseg    ends
  51. ;
  52. $g$uedseg    segment    word public 'data5'
  53. $g$uedseg    ends
  54. ;
  55. $h$stkseg    segment    word STACK 'data6'
  56. è$h$stkseg    ends
  57. ;
  58. $i$endseg    segment    word public 'data7'
  59. $i$endseg    ends
  60. ;
  61. assume cs:PGROUP,ds:DGROUP,es:DGROUP,ss:DGROUP
  62. ;
  63. $b$prog segment public 'code'
  64.       public _meterset
  65. _meterset    proc
  66.       push   bp
  67.       mov    bp,sp
  68.       push   si
  69.       push   di
  70. ;
  71.       mov    ah,15      ; gets video status
  72.       int    10h
  73.       mov    ah,3       ; puts row, col into dh, dl
  74.       int    10h
  75. ;
  76.       mov    al,dh
  77.       mov    bl,dl
  78.       mov    ah,0
  79.       mov    cx,0A0h
  80.       mul    cx         ; multiply rows by 160
  81. ;
  82.       push   ax
  83.       mov    al,bl
  84.       mov    ah,0
  85.       mov    cx,2
  86.       mul    cx         ; multiply part row by two
  87. ;
  88.       mov    cx,ax
  89.       pop    ax
  90.       add    cx,ax
  91. ;
  92.       mov    ax,_scr_start       ; 0xB800 - comp; 0xB000 - mono
  93.       mov    es,ax               ; set the extra segment to screen
  94.       mov    di,cx               ; offset into di
  95.       sub    di,13
  96.       mov    si, offset meter
  97. ;
  98. re:   lodsb                      ; move the string 'meter' into
  99.       cmp    al,1                
  100.       je     over
  101.       mov    BYTE PTR es:[di],al ; the display
  102.       inc    di
  103.       jmp    re
  104. over:
  105.       mov    ax,cx               ; return the offset for bytmeter
  106. ;
  107.       pop    di
  108.       pop    si
  109.       mov    sp,bp
  110.       pop    bp
  111. è      ret
  112. _meterset    endp
  113. $b$prog      ends
  114.       end
  115.  
  116.  
  117. ; bytmeter.asm Sept. 1987 J.-P. Schachter
  118. ; in the Public Domain
  119. ;
  120. ; bytmeter (*char) take a single ppointer to char as a parameter
  121. ;
  122. EXTRN       _scr_start:WORD
  123. ;
  124. ; insert here the lines in meterset.asm from
  125. ; DGROUP group $c$strtseg, $d$dataseg, $e$usdseg, $f$udseg,
  126. ; to
  127. ; $b$prog segment public 'code'
  128. ;
  129.       public _bytmeter
  130. _bytmeter    proc
  131.       push   bp
  132.       mov    bp,sp
  133.       push   si
  134.       push   di
  135. ;
  136.       mov    ax,_scr_start                ;0xB000 for Monochrome
  137.       mov    si, WORD PTR [bp+4]        ;0xB800 for Composite
  138.       add    si,0Eh                    
  139.       mov    es,ax                  ;set the extra segment to screen
  140.       mov    AH,'9'
  141. over: cmp    AH, BYTE PTR es:[si]
  142.       je     sub
  143.       inc    BYTE PTR es:[si]
  144.       jmp    quit
  145. sub:  mov    BYTE PTR es:[si],'0'
  146.       sub    si,02h
  147.       jmp    over
  148. quit:
  149.       pop    di
  150.       pop    si
  151.       mov    sp,bp
  152.       pop    bp
  153.       ret
  154. _bytmeter    endp
  155. $b$prog      ends
  156.       end
  157.  
  158. LISTING 2
  159.  
  160. select.c
  161.  
  162. main () {
  163.      char title[12];
  164.      hilite (title);
  165.      clrscr ();
  166. è     puts (title);
  167.      }
  168.  
  169. ; hilite.asm (c) Sept. 1987 J.-P. Schachter
  170. ; In the Public Domain for personal use only.
  171. ; for linking with Microsoft C code
  172. ; 
  173. ; hilite () takes one parameter, a pointer to a 12 character array.
  174. ;
  175. beep  macro
  176.       mov    ah, 2
  177.       mov    dl, 7
  178.       int    21h
  179.       endm
  180. ;
  181. upper_left      equ      1
  182. screen_start    equ      0b800h
  183. normal_display  equ      6
  184. highlit_display equ      70h
  185. cursor_off      equ      20h
  186. up_arrow        equ      48h
  187. left_arrow      equ      4bh
  188. right_arrow     equ      4dh
  189. down_arrow      equ      50h
  190. top_line        equ      160
  191. bottom_right    equ      3968
  192. bottom_line     equ      3840
  193. ;
  194.       TITLE   hilite
  195.       _TEXT SEGMENT  BYTE PUBLIC 'CODE'
  196.       _TEXT ENDS
  197.       _DATA SEGMENT  WORD PUBLIC 'DATA'
  198.       _DATA ENDS
  199.       CONST SEGMENT  WORD PUBLIC 'CONST'
  200.       CONST ENDS
  201.       _BSS SEGMENT  WORD PUBLIC 'BSS'
  202.       _BSS ENDS
  203. ;
  204. DGROUP GROUP CONST, _BSS, _DATA
  205.       ASSUME  CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
  206. ;
  207. _TEXT     SEGMENT
  208. ;
  209.       PUBLIC _hilite
  210. _hilite PROC NEAR
  211.       push   bp
  212.       mov    bp,sp
  213. ;
  214.       mov    si, upper_left             ; initial screen offset value
  215.       mov    ax, screen_start           ; display segment
  216.       mov    es, ax            ; set the extra segment to the display
  217.       mov    cl, normal_display         ; normal attribute
  218.       mov    ch, highlit_display        ; highlighted attribute
  219. ;
  220.       mov    ch, cursor_off             ; cursor turn-off value
  221. è      mov    ah, 1                      ; cursor change routine
  222.       int    10h                        ; turn it off
  223. ;
  224.       call   hi_copy                    ; hilite and copy
  225.       jmp    arrowtest                  ; the input loop follows
  226. onerror:     beep
  227. arrowtest:
  228.       mov    ah, 0
  229.       int    16h                        ; read a character
  230.       cmp    al, 01bh                   ; is it ESC?
  231.       je     quit                       ; Yes? Then quit!
  232.       cmp    ah, up_arrow               ; up arrow?
  233.       je     goup                       ;
  234.       cmp    ah, left_arrow             ; left arrow?
  235.       je     goleft                     ;
  236.       cmp    ah, right_arrow            ; right arrow?
  237.       je     goright                    ;
  238.       cmp    ah, down_arrow             ; down arrow?
  239.       je     godown                     ;
  240.       beep                              ; no? Then Beep!
  241.       jmp    arrowtest                  ; and do it again!
  242. goup:
  243.       cmp    si, top_line               ; On the top line?
  244.       jbe    onerror                    ; Then Beep and do again!
  245.       call   hi_copy
  246.       sub    si, 160
  247.       call   hi_copy
  248.       jmp    arrowtest
  249. goleft:
  250.       cmp    si, upper_left             ; Top left corner?
  251.       jbe    onerror                    ; Then Beep and do again!
  252.       call   hi_copy
  253.       sub    si, 32
  254.       call   hi_copy
  255.       jmp    arrowtest
  256. goright:
  257.       cmp    si, bottom_right           ; Bottom right corner?
  258.       jae    onerror
  259.       call   hi_copy
  260.       add    si, 32
  261.       call   hi_copy
  262.       jmp    arrowtest
  263. godown:
  264.       cmp    si, bottom_line            ; Bottom line?
  265.       jae    onerror
  266.       call   hi_copy
  267.       add    si, 160
  268.       call   hi_copy
  269.       jmp    arrowtest
  270. quit:
  271.       mov    ch, 6                      ; cursor start-line
  272.       mov    cl, 7                      ; cursor end-line
  273.       mov    ah, 1                      ; cursor change routine
  274.       int    10h                        ; turn it off
  275.       mov    sp,bp
  276. è      pop    bp
  277.       ret
  278. _hilite ENDP
  279. ;
  280. hi_copy PROC NEAR
  281.       mov    di, [bp+4]                 ; param 1 into di
  282.       mov    bx, 0                      ; counter to 0
  283.       xchg   cl, ch                     ; toggle attribute
  284. nextchar:
  285.       mov    BYTE PTR es:[si], cl       ; change the attribute
  286.       mov    al, BYTE PTR es:[si-1]     ; character into cl
  287.       add    si, 2                      ; inc the screen counter by 2
  288.       mov    BYTE PTR [di+bx], al       ; cl into buffer 'title'
  289.       inc    bx                         ; inc the buffer counter by 1
  290.       cmp    bx, 12                     ; have we done 12 chars?
  291.       jne    nextchar                   ; if not, do more
  292.       sub    si, 24                     ; back to start of field
  293.       ret
  294. hi_copy ENDP
  295.  _TEXT ENDS
  296.  END
  297.  
  298.