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