workbench/devs/AHI/Toccata/stubs.a

   1 *
   2 *    toccata.library - AHI-based Toccata emulation library
   3 *    Copyright (C) 1997-2005 Martin Blom <martin@blom.org> and Teemu Suikki.
   4 *
   5 *    This library is free software; you can redistribute it and/or
   6 *    modify it under the terms of the GNU Library General Public
   7 *    License as published by the Free Software Foundation; either
   8 *    version 2 of the License, or (at your option) any later version.
   9 *
  10 *    This library is distributed in the hope that it will be useful,
  11 *    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 *    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13 *    Library General Public License for more details.
  14 *
  15 *    You should have received a copy of the GNU Library General Public
  16 *    License along with this library; if not, write to the
  17 *    Free Software Foundation, Inc., 59 Temple Place - Suite 330, Cambridge,
  18 *    MA 02139, USA.
  19 *
  20
  21
  22         include exec/tasks.i
  23         include utility/hooks.i
  24         include lvo/ahi_lib.i
  25
  26 pushm   macro
  27         movem.l \1,-(a7)
  28         endm
  29
  30 popm    macro
  31         movem.l (a7)+,\1
  32         endm
  33
  34 push    macro
  35         move.l  \1,-(a7)
  36         endm
  37
  38 pop             macro
  39         move.l  (a7)+,\1
  40         endm
  41
  42 call    macro
  43         xref    _LVO\1
  44         jsr             _LVO\1(a6)
  45         endm
  46
  47
  48         XREF    _ToccataBase
  49         XREF    _SlaveTask
  50         XREF    _IOTask
  51         XdEF    _RawReply
  52
  53         xref    _NextBufferOK
  54         XREF    _t_NextFrequency
  55         XREF    _t_FindFrequency
  56         XREF    _t_SetPart
  57         XREF    _t_GetPart
  58         XREF    _t_Capture
  59         XREF    _t_Playback
  60         XREF    _t_Pause
  61         XREF    _t_Stop
  62         XREF    _t_StartLevel
  63         XREF    _t_StopLevel
  64         XREF    _t_Expand
  65         XREF    _t_SaveSettings
  66         XREF    _t_LoadSettings
  67         XREF    _t_RawPlayback
  68         XREF    _t_IoErr
  69         XREF    _t_Open
  70         XREF    _t_Close
  71         XREF    _t_Record
  72         XREF    _t_Play
  73         XREF    _t_Convert
  74         XREF    _t_BytesPerSample
  75         XREF    _t_OpenFile
  76         XREF    _t_CloseFile
  77         XREF    _t_ReadFile
  78         XREF    _t_WriteSmpte
  79         XREF    _t_StopSmpte
  80         XREF    _t_Reserved1
  81         XREF    _t_Reserved2
  82         XREF    _t_Reserved3
  83         XREF    _t_Reserved4
  84         XREF    _t_Own
  85         XREF    _t_Disown
  86         XREF    _t_SetReg
  87         XREF    _t_GetReg
  88
  89
  90
  91         XDEF    _GetRawReply
  92         XDEF    _HookLoad
  93         XDEF    _SlaveTaskEntry
  94         XDEF    _IOTaskEntry
  95
  96         XDEF    _T_NextFrequency
  97         XDEF    _T_FindFrequency
  98         XDEF    _T_SetPart
  99         XDEF    _T_GetPart
 100         XDEF    _T_Capture
 101         XDEF    _T_Playback
 102         XDEF    _T_Pause
 103         XDEF    _T_Stop
 104         XDEF    _T_StartLevel
 105         XDEF    _T_StopLevel
 106         XDEF    _T_Expand
 107         XDEF    _T_SaveSettings
 108         XDEF    _T_LoadSettings
 109         XDEF    _T_RawPlayback
 110         XDEF    _T_IoErr
 111         XDEF    _T_Open
 112         XDEF    _T_Close
 113         XDEF    _T_Record
 114         XDEF    _T_Play
 115         XDEF    _T_Convert
 116         XDEF    _T_BytesPerSample
 117         XDEF    _T_OpenFile
 118         XDEF    _T_CloseFile
 119         XDEF    _T_ReadFile
 120         XDEF    _T_WriteSmpte
 121         XDEF    _T_StopSmpte
 122         XDEF    _T_Reserved1
 123         XDEF    _T_Reserved2
 124         XDEF    _T_Reserved3
 125         XDEF    _T_Reserved4
 126         XDEF    _T_Own
 127         XDEF    _T_Disown
 128         XDEF    _T_SetReg
 129         XDEF    _T_GetReg
 130
 131         xdef    _puta4
 132         xref    _ToccataBase
 133
 134 _puta4
 135         move.l  a4,varbase
 136         rts
 137
 138 _GetRawReply:
 139         move.l  #_RawReply,d0
 140         rts
 141
 142 _RawReply:
 143         move.l  a0,-(a7)
 144         move.l  varbase,a0
 145         move.l  #1,_NextBufferOK(a0)
 146         move.l  (a7)+,a0
 147         rts
 148
 149 _HookLoad:
 150         pushm   a5/a6
 151         move.l  h_Data(a0),a6
 152         move.l  h_SubEntry(a0),a5
 153         jsr     (a5)
 154         popm    a5/a6
 155         rts
 156
 157 _SlaveTaskEntry:
 158         move.l  varbase,a4
 159         move.l  _ToccataBase(a4),a6
 160         jmp     _SlaveTask
 161
 162 _IOTaskEntry:
 163         move.l  varbase,a4
 164         move.l  _ToccataBase(a4),a6
 165         jmp     _IOTask
 166
 167
 168 * T_NextFrequency(freq)(d0)
 169
 170 _T_NextFrequency:
 171         pushm   d1/a0-a1
 172         jsr     _t_NextFrequency
 173         popm    d1/a0-a1
 174         rts
 175
 176 * T_FindFrequency(freq)(d0)
 177
 178 _T_FindFrequency:
 179         pushm   d1/a0-a1
 180         jsr     _t_FindFrequency
 181         popm    d1/a0-a1
 182         rts
 183
 184 * T_SetPart(tags)(a0)
 185
 186 _T_SetPart:
 187         pushm   d0-d1/a0-a1
 188         jsr     _t_SetPart
 189         popm    d0-d1/a0-a1
 190         rts
 191
 192 * T_GetPart(num)(a0)
 193
 194 _T_GetPart:
 195         pushm   d0-d1/a0-a1
 196         jsr     _t_GetPart
 197         popm    d0-d1/a0-a1
 198         rts
 199
 200 * T_Capture(tags)(a0)
 201
 202 _T_Capture:
 203         pushm   d1/a0-a1
 204         jsr     _t_Capture
 205         popm    d1/a0-a1
 206         rts
 207
 208 * T_Playback(tags)(a0)
 209
 210 _T_Playback:
 211         pushm   d1/a0-a1
 212         jsr     _t_Playback
 213         popm    d1/a0-a1
 214         rts
 215
 216 * T_Pause(pause)(d0)
 217
 218 _T_Pause:
 219         pushm   d0-d1/a0-a1
 220         jsr     _t_Pause
 221         popm    d0-d1/a0-a1
 222         rts
 223
 224 * T_Stop(flags)(d0)
 225
 226 _T_Stop:
 227         pushm   d0-d1/a0-a1
 228         jsr     _t_Stop
 229         popm    d0-d1/a0-a1
 230         rts
 231
 232 * T_StartLevel(tags)(a0)
 233
 234 _T_StartLevel:
 235         pushm   d1/a0-a1
 236         jsr     _t_StartLevel
 237         popm    d1/a0-a1
 238         rts
 239
 240 * T_StopLevel()()
 241
 242 _T_StopLevel:
 243         pushm   d0-d1/a0-a1
 244         jsr     _t_StopLevel
 245         popm    d0-d1/a0-a1
 246         rts
 247
 248 * T_Expand(value,mode)(d0,d1)
 249
 250 _T_Expand:
 251         pushm   d1/a0-a1
 252         jsr     _t_Expand
 253         popm    d1/a0-a1
 254         rts
 255
 256 * T_SaveSettings(flags)(d0)
 257
 258 _T_SaveSettings:
 259         pushm   d1/a0-a1
 260         jsr     _t_SaveSettings
 261         popm    d1/a0-a1
 262         rts
 263
 264 * T_LoadSettings(flags)(d0)
 265
 266 _T_LoadSettings:
 267         pushm   d1/a0-a1
 268         jsr     _t_LoadSettings
 269         popm    d1/a0-a1
 270         rts
 271
 272 * T_RawPlayback(tags)(a0)
 273 _T_RawPlayback:
 274         pushm   d1/a0-a1
 275         jsr     _t_RawPlayback
 276         popm    d1/a0-a1
 277         rts
 278 *
 279 * functions added in v2:
 280 *
 281
 282 * T_IoErr()()
 283
 284 _T_IoErr:
 285         pushm   d1/a0-a1
 286         jsr     _t_IoErr
 287         popm    d1/a0-a1
 288         rts
 289 *
 290 * functions added in v4:
 291 *
 292
 293 * T_Open(name,tags)(a0,a1)
 294
 295 _T_Open:
 296         pushm   d1/a0-a1
 297         jsr     _t_Open
 298         popm    d1/a0-a1
 299         rts
 300
 301 * T_Close(handle)(a0)
 302
 303 _T_Close:
 304         pushm   d0-d1/a0-a1
 305         jsr     _t_Close
 306         popm    d0-d1/a0-a1
 307         rts
 308
 309 * T_Record(handle,tags)(a0,a1)
 310
 311 _T_Record:
 312         pushm   d1/a0-a1
 313         jsr     _t_Record
 314         popm    d1/a0-a1
 315         rts
 316
 317 * T_Play(handle,tags)(a0,a1)
 318
 319 _T_Play:
 320         pushm   d1/a0-a1
 321         jsr     _t_Play
 322         popm    d1/a0-a1
 323         rts
 324
 325 * T_Convert(src,dest,samples,srcMode,destMode)(a0,a1,d0,d1,d2)
 326
 327 _T_Convert:
 328         pushm   d0-d1/a0-a1
 329         jsr     _t_Convert
 330         popm    d0-d1/a0-a1
 331         rts
 332
 333 * T_BytesPerSample(mode)(d0)
 334
 335 _T_BytesPerSample:
 336         pushm   d1/a0-a1
 337         jsr     _t_BytesPerSample
 338         popm    d1/a0-a1
 339         rts
 340
 341 * T_OpenFile(name,flags)(a0,d0)
 342 _T_OpenFile:
 343         pushm   d1/a0-a1
 344         jsr     _t_OpenFile
 345         popm    d1/a0-a1
 346         rts
 347
 348 * T_CloseFile(msh)(a0)
 349
 350 _T_CloseFile:
 351         pushm   d0-d1/a0-a1
 352         jsr     _t_CloseFile
 353         popm    d0-d1/a0-a1
 354         rts
 355
 356 * T_ReadFile(msh,buffer,size)(a0,a1,d0)
 357
 358 _T_ReadFile:
 359         pushm   d1/a0-a1
 360         jsr     _t_ReadFile
 361         popm    d1/a0-a1
 362         rts
 363 *
 364 * functions added in v5:
 365 *
 366
 367 * T_WriteSmpte(startVal,fps,task,mask)(d0,d1,a0,d2)
 368
 369 _T_WriteSmpte:
 370         pushm   d1/a0-a1
 371         jsr     _t_WriteSmpte
 372         popm    d1/a0-a1
 373         rts
 374
 375 * T_StopSmpte(sh)(a0)
 376
 377 _T_StopSmpte:
 378         pushm   d1/a0-a1
 379         jsr     _t_StopSmpte
 380         popm    d1/a0-a1
 381         rts
 382
 383 *
 384 * functions added in v6:
 385 *
 386 *
 387 *---------- End of public part.
 388 *---------- Private part is subject to change!
 389 *
 390 *
 391
 392 * T_Reserved1()()
 393
 394 _T_Reserved1:
 395         pushm   d1/a0-a1
 396         jsr     _t_Reserved1
 397         popm    d1/a0-a1
 398         rts
 399
 400 * T_Reserved2()()
 401
 402 _T_Reserved2:
 403         pushm   d1/a0-a1
 404         jsr     _t_Reserved2
 405         popm    d1/a0-a1
 406         rts
 407
 408 * T_Reserved3()()
 409
 410 _T_Reserved3:
 411         pushm   d1/a0-a1
 412         jsr     _t_Reserved3
 413         popm    d1/a0-a1
 414         rts
 415
 416 * T_Reserved4()()
 417
 418 _T_Reserved4:
 419         pushm   d1/a0-a1
 420         jsr     _t_Reserved4
 421         popm    d1/a0-a1
 422         rts
 423
 424 * T_Own()()
 425
 426 _T_Own:
 427         pushm   d0-d1/a0-a1
 428         jsr     _t_Own
 429         popm    d0-d1/a0-a1
 430         rts
 431
 432 * T_Disown()()
 433
 434 _T_Disown:
 435         pushm   d0-d1/a0-a1
 436         jsr     _t_Disown
 437         popm    d0-d1/a0-a1
 438         rts
 439
 440 * T_SetReg(reg,val)(d0,d1)
 441
 442 _T_SetReg:
 443         pushm   d0-d1/a0-a1
 444         jsr     _t_SetReg
 445         popm    d0-d1/a0-a1
 446         rts
 447
 448 * T_GetReg(reg)(d0)
 449
 450 _T_GetReg:
 451         pushm   d1/a0-a1
 452         jsr     _t_GetReg
 453         popm    d1/a0-a1
 454         rts
 455
 456 *****************************************************
 457
 458
 459         xdef    varbase
 460
 461         section data,data
 462 varbase dc.l    $BADC0DED