home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / EDITOR / MG2A_SRC.ZIP / SYS / ATARI / GETN.S < prev    next >
Encoding:
Text File  |  1988-08-23  |  636 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.