home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Mint / mntlib32.zoo / purec / linea.s < prev    next >
Text File  |  1992-06-29  |  1KB  |  115 lines

  1. ; Line A bindings, Pure C version; adapted from jrb's
  2. ; why is this part of the MiNT library?
  3.  
  4.     .bss
  5.  
  6.     .globl __aline
  7. __aline:
  8.     .ds.l    1
  9.     .globl __fonts
  10. __fonts:
  11.     .ds.l    1
  12.     .globl __funcs
  13. __funcs:
  14.     .ds.l    1
  15.  
  16.     .text
  17.  
  18.     .globl linea0
  19. linea0:
  20.     move.l    a2,-(sp)
  21.     .dc.w   $A000
  22.     move.l    a0,__aline    
  23.     move.l    a1,__fonts
  24.     move.l    a2,__funcs
  25.     move.l    (sp)+,a2
  26.     rts
  27.  
  28.     .globl linea1
  29. linea1:                             
  30.     .dc.w   $A001
  31.     rts
  32.  
  33.     .globl linea2
  34. linea2:
  35.     .dc.w   $A002
  36.     rts
  37.  
  38.     .globl linea3
  39. linea3:                             
  40.     .dc.w   $A003
  41.     rts
  42.  
  43.     .globl linea4
  44. linea4:                             
  45.     .dc.w   $A004
  46.     rts
  47.  
  48.     .globl linea5
  49. linea5:                             
  50.     .dc.w   $A005
  51.     rts
  52.  
  53.     .globl linea6
  54. linea6:                             
  55.     .dc.w   $A006
  56.     rts
  57.  
  58.     .globl linea7
  59. linea7:
  60.     move.l    a6,-(sp)
  61.     move.l    a0,a6
  62.     .dc.w   $A007
  63.     move.l    (sp)+,a6
  64.     rts
  65.  
  66.     .globl linea8
  67. linea8:                             
  68.     .dc.w   $A008
  69.     rts
  70.  
  71.     .globl linea9
  72. linea9:                             
  73.     .dc.w   $A009
  74.     rts
  75.  
  76.     .globl lineaa
  77. lineaa:                             
  78.     .dc.w   $A00A
  79.     rts
  80.  
  81.     .globl lineab
  82. lineab:                             
  83.     .dc.w   $A00B
  84.     rts
  85.  
  86.     .globl lineac
  87. lineac:
  88.     move.l    a6,-(sp)
  89.     move.l    a2,-(sp)
  90.     move.l    a0,a2
  91.     .dc.w   $A00C
  92.     move.l    (sp)+,a2
  93.     move.l    (sp)+,a6
  94.     rts
  95.  
  96.     .globl linead
  97. linead:
  98.     move.l    a6,-(sp)
  99.     move.l    a2,-(sp)
  100.     move.l    a1,a2
  101.     .dc.w   $A00D
  102.     move.l    (sp)+,a2
  103.     move.l    (sp)+,a6
  104.     rts
  105.  
  106.     .globl lineae
  107. lineae:                             
  108.     .dc.w   $A00E
  109.     rts
  110.  
  111.     .globl lineaf
  112. lineaf:                             
  113.     .dc.w   $A00F
  114.     rts
  115.