home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / mint / lib / mntc6846.zoo / patch / linea.spp < prev    next >
Encoding:
Text File  |  1995-03-16  |  1.4 KB  |  120 lines
  1. ; Line A bindings for Sozobon C/c68 by dpg, adapted from jrb''s
  2. ; minor bug fixes by tr, with help from Paul Pospisil
  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.     .dc.w   $A000
  21.     move.l    a0,___aline    
  22.     move.l    a1,___fonts
  23.     move.l    a2,___funcs                    
  24.     rts
  25.  
  26.     .globl _linea1
  27. _linea1:                             
  28.     .dc.w   $A001
  29.     rts
  30.  
  31.     .globl _linea2
  32. _linea2:
  33.     .dc.w   $A002
  34.     rts
  35.  
  36.     .globl _linea3
  37. _linea3:                             
  38.     .dc.w   $A003
  39.     rts
  40.  
  41.     .globl _linea4
  42. _linea4:                             
  43.     .dc.w   $A004
  44.     rts
  45.  
  46.     .globl _linea5
  47. _linea5:                             
  48.     .dc.w   $A005
  49.     rts
  50.  
  51.     .globl _linea6
  52. _linea6:                             
  53.     .dc.w   $A006
  54.     rts
  55.  
  56.     .globl _linea7
  57. _linea7:
  58.     move.l    a6,-(sp)
  59.     move.l    8(sp),a6
  60.     .dc.w   $A007
  61.     move.l    (sp)+,a6
  62.     rts
  63.  
  64.     .globl _linea8
  65. _linea8:                             
  66.     .dc.w   $A008
  67.     rts
  68.  
  69.     .globl _linea9
  70. _linea9:                             
  71.     .dc.w   $A009
  72.     rts
  73.  
  74.     .globl _lineaa
  75. _lineaa:                             
  76.     .dc.w   $A00A
  77.     rts
  78.  
  79.     .globl _lineab
  80. _lineab:                             
  81.     .dc.w   $A00B
  82.     rts
  83.  
  84.     .globl _lineac
  85. _lineac:
  86.     move.l    a6,-(sp)
  87.     move.l    8(sp),a2
  88.     .dc.w   $A00C
  89.     move.l    (sp)+,a6
  90.     rts
  91.  
  92.     .globl _linead
  93. _linead:
  94.     move.l    a6,-(sp)
  95. #ifdef __MSHORT__
  96.     move.w    8(sp),d0
  97.     move.w    10(sp),d1
  98.     move.l    12(sp),a0
  99.     move.l    16(sp),a2
  100. #else
  101.     move.l    8(sp),d0
  102.     move.l    12(sp),d1
  103.     move.l    16(sp),a0
  104.     move.l    20(sp),a2
  105. #endif
  106.     .dc.w   $A00D
  107.     move.l    (sp)+,a6
  108.     rts
  109.  
  110.     .globl _lineae
  111. _lineae:                             
  112.     .dc.w   $A00E
  113.     rts
  114.  
  115.     .globl _lineaf
  116. _lineaf:                             
  117.     .dc.w   $A00F
  118.     rts
  119.  
  120.