home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / forst / gem.s < prev    next >
Encoding:
Text File  |  1993-10-23  |  1.7 KB  |  110 lines
  1. ; GEM.S: VDI and AES interface words
  2. ; Copyright <C> John Redmond 1989,1990
  3. ; Public domain for non-commercial use.
  4. ;
  5.     section    text
  6.     even
  7.  
  8. _aes:    lea    _aespb,a0
  9.     move.l    a0,d1
  10.     move.w    #$c8,d0
  11.     movem.l d2/a2/a6,-(a7)
  12.     trap    #2
  13.     movem.l (a7)+,d2/a2/a6
  14.     rts
  15. ;
  16. _vdi:    lea    _vdipb,a0
  17.     move.l    a0,d1
  18.     move.w    #$73,d0
  19.     move.l    d2,-(a7)
  20.     movem.l d2/a2/a6,-(a7)
  21.     trap    #2
  22.     movem.l (a7)+,d2/a2/a6
  23.     rts
  24. ;
  25. _control: dc.w    1
  26. sintin: dc.w    1
  27. sintout: dc.w    1
  28. saddrin: dc.w    1
  29. saddrout: dc.w    1
  30.     ds.w    5
  31. ;
  32. _global:
  33. version: dc.w    1
  34. apcount: dc.w    1
  35. apid:    dc.w    1
  36. apprivate: dc.l 1
  37. apptree: dc.l    1
  38. reserve: dc.l    4
  39. ;
  40. _intin:    ds.w    256
  41. _ptsin:    ds.w    128
  42. _intout: ds.w    45
  43. _ptsout: ds.w    12
  44. _addrin: ds.w    128
  45. _addrout: ds.w    128
  46. ;
  47. ; Initialization of the following (with _iarrays) will be necessary.
  48. _aespb: ds.l    6 ;control,global,intin,intout,addrin,addrout
  49. _vdipb: ds.l    5 ;control,intin,ptsin,intout,ptsout
  50. ;
  51. _iarrays:
  52.     move.l    a7,a1
  53.     lea    _vdipb+20,a7
  54.     pea    _ptsout
  55.     pea    _intout
  56.     pea    _ptsin
  57.     pea    _intin
  58.     pea    _control
  59.     pea    _addrout
  60.     pea    _addrin
  61.     pea    _intout
  62.     pea    _intin
  63.     pea    _global
  64.     pea    _control
  65.     move.l    a1,a7
  66.     rts
  67. ;
  68.     section    data
  69.     even
  70. ;
  71.     dc.b    $83,'VD','I'!$80
  72.     ptrs    _vdi,16
  73. ;
  74.     dc.b    $83,'AE','S'!$80
  75.     ptrs    _aes,16
  76. ;
  77.     dc.b    $c7,'CONTRO','L'!$80
  78.     vptrs    _control,20
  79. ;
  80.     dc.b    $c6,'GLOBAL',$a0
  81.     vptrs    _global,20
  82. ;
  83.     dc.b    $c5,'INTI','N'!$80
  84.     vptrs    _intin,18
  85. ;
  86.     dc.b    $c6,'INTOUT',$a0
  87.     vptrs    _intout,20
  88. ;
  89.     dc.b    $c5,'PTSI','N'!$80
  90.     vptrs    _ptsin,18
  91. ;
  92.     dc.b    $c6,'PTSOUT',$a0
  93.     vptrs    _ptsout,20
  94. ;
  95.     dc.b    $c6,'ADDRIN',$a0
  96.     vptrs    _addrin,20
  97. ;
  98.     dc.b    $c7,'ADDROU','T'!$80
  99.     vptrs    _addrout,20
  100. ;
  101.     dc.b    $c5,'AESP','B'!$80
  102.     vptrs    _aespb,18
  103. ;
  104.     dc.b    $c5,'VDIP','B'!$80
  105.     vptrs    _vdipb,18
  106. ;
  107.     dc.b    $87,'IARRAY','S'!$80
  108.     ptrs    _iarrays,20
  109. ;
  110.