source: buchla-68k/orig/MT/MTINT1.S

Last change on this file was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Imported original source code.
  • Property mode set to 100755
File size: 806 bytes
Line 
1* ------------------------------------------------------------------------------
2* mtint1.s -- Multi-Tasker -- Video Second Level Interrupt Handler
3* Version 2 -- 1988-04-13 -- D.N. Lynx Crowe
4* ------------------------------------------------------------------------------
5*
6 .text
7*
8 .xdef __MTInt1 * Video Second Level Interrupt Handler
9*
10 .xref SM_Wait * Sempahore wait function
11*
12 .xref MT_ISEM1 * Video interrupt semaphore
13 .xref resvec4 * Video interrupt vector
14*
15* __MTInt1 -- Video Second Level Interrupt Handler
16* -------- ------------------------------------
17__MTInt1: move.l #MT_ISEM1,-(a7) * Wait on interrupt semaphore
18 jsr SM_Wait * ...
19 tst.l (a7)+ *
20 movea.l resvec4,a0 * (*resvec4)()
21 jsr (a0) * ...
22 bra __MTInt1 * do it again
23*
24*
25 .end
Note: See TracBrowser for help on using the repository browser.