home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / mint / mntlib18 / linea.s < prev    next >
Encoding:
Text File  |  1993-08-03  |  1.2 KB  |  109 lines
  1. ; Line A bindings for Sozobon C by dpg, adapted from jrb's
  2.  
  3.     .bss
  4.  
  5.     .globl ___aline
  6. ___aline:
  7.     .ds.l    1
  8.     .globl ___fonts
  9. ___fonts:
  10.     .ds.b    1
  11.     .globl ___funcs
  12. ___funcs:
  13.     .ds.l    1
  14.  
  15.     .text
  16.  
  17.     .globl _linea0
  18. _linea0:
  19.     .dc.w   $A000
  20.     move.l    a0,___aline    
  21.     move.l    a1,___fonts
  22.     move.l    a2,___funcs                    
  23.     rts
  24.  
  25.     .globl _linea1
  26. _linea1:                             
  27.     .dc.w   $A001
  28.     rts
  29.  
  30.     .globl _linea2
  31. _linea2:
  32.     .dc.w   $A002
  33.     rts
  34.  
  35.     .globl _linea3
  36. _linea3:                             
  37.     .dc.w   $A003
  38.     rts
  39.  
  40.     .globl _linea4
  41. _linea4:                             
  42.     .dc.w   $A004
  43.     rts
  44.  
  45.     .globl _linea5
  46. _linea5:                             
  47.     .dc.w   $A005
  48.     rts
  49.  
  50.     .globl _linea6
  51. _linea6:                             
  52.     .dc.w   $A006
  53.     rts
  54.  
  55.     .globl _linea7
  56. _linea7:
  57.     move.l    a6,-(sp)
  58.     move.l    8(sp),a6
  59.     .dc.w   $A007
  60.     move.l    (sp)+,a6
  61.     rts
  62.  
  63.     .globl _linea8
  64. _linea8:                             
  65.     .dc.w   $A008
  66.     rts
  67.  
  68.     .globl _linea9
  69. _linea9:                             
  70.     .dc.w   $A009
  71.     rts
  72.  
  73.     .globl _lineaa
  74. _lineaa:                             
  75.     .dc.w   $A00A
  76.     rts
  77.  
  78.     .globl _lineab
  79. _lineab:                             
  80.     .dc.w   $A00B
  81.     rts
  82.  
  83.     .globl _lineac
  84. _lineac:
  85.     move.l    a6,-(sp)
  86.     move.l    8(sp),a6
  87.     .dc.w   $A00C
  88.     move.l    (sp)+,a6
  89.     rts
  90.  
  91.     .globl _linead
  92. _linead:
  93.     move.w    8(sp),d0
  94.     move.w    10(sp),d1
  95.     move.l    12(sp),a0
  96.     move.l    16(sp),a2
  97.     .dc.w   $A00D
  98.     rts
  99.  
  100.     .globl _lineae
  101. _lineae:                             
  102.     .dc.w   $A00E
  103.     rts
  104.  
  105.     .globl _lineaf
  106. _lineaf:                             
  107.     .dc.w   $A00F
  108.     rts
  109.