home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume4 / uemacs / part4 / sys / atari / getn.s < prev    next >
Encoding:
Text File  |  1986-11-30  |  583 b   |  42 lines
  1. * Routines to read the size of the display.
  2. * MicroEMACS works even on a screen that has been blessed
  3. * by the "hi50" program.
  4. * MicroEMACS version 30, for the Atari.
  5.  
  6.     .text
  7.  
  8. * getnrow() -- get number of rows.
  9.  
  10.     .globl    _getnrow
  11.  
  12. _getnrow:
  13.  
  14.     move.l    a2, -(sp)
  15.     move.l    d2, -(sp)
  16.     dc.w    $A000
  17.     move.l    (sp)+, d2
  18.     movea.l    (sp)+, a2
  19.  
  20.     move.w    -42(a0), d0
  21.     addq.w    #1, d0
  22.     ext.l    d0
  23.  
  24.     rts
  25.  
  26. * getncol() -- get number of columns.
  27.  
  28.     .globl    _getncol
  29.  
  30. _getncol:
  31.     move.l    a2, -(sp)
  32.     move.l    d2, -(sp)
  33.     dc.w    $A000
  34.     move.l    (sp)+, d2
  35.     movea.l    (sp)+, a2
  36.  
  37.     move.w    -44(a0), d0
  38.     addq.w    #1, d0
  39.     ext.l    d0
  40.  
  41.     rts
  42.