Changeset 8325447 in buchla-68k for ram/serintr.s
- Timestamp:
- 08/07/2017 02:04:35 PM (7 years ago)
- Branches:
- master
- Children:
- 27c8d40
- Parents:
- 84c0125
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ram/serintr.s
r84c0125 r8325447 13 13 .text 14 14 15 .xdef _setsio16 17 .xdef _foot118 .xdef _foot219 .xdef _pulse120 .xdef _pulse215 .xdef setsio 16 17 .xdef foot1 18 .xdef foot2 19 .xdef pulse1 20 .xdef pulse2 21 21 22 22 .xdef serintr … … 108 108 lea SR1IOREC,a0 | Point at Serial-1 iorec 109 109 lea SR1ACIA,a1 | Point at Serial-1 ACIA 110 movea.l _foot1,a2 | Point at foot sw. 1 processor110 movea.l foot1,a2 | Point at foot sw. 1 processor 111 111 bsr serint | Go process (possible) int. 112 112 113 113 lea SR2IOREC,a0 | Point at Serial-2 iorec 114 114 lea SR2ACIA,a1 | Point at Serial-2 ACIA 115 movea.l _foot2,a2 | Point at foot sw. 2 processor115 movea.l foot2,a2 | Point at foot sw. 2 processor 116 116 bsr serint | Go process (possible) int. 117 117 118 118 lea MC1IOREC,a0 | Point at MIDI-1 iorec 119 119 lea MC1ACIA,a1 | Point at MIDI-1 ACIA 120 movea.l _pulse1,a2 | Point at pulse 1 processor120 movea.l pulse1,a2 | Point at pulse 1 processor 121 121 bsr midint | Go process (possible) int. 122 122 123 123 lea MC2IOREC,a0 | Point at MIDI-2 iorec 124 124 lea MC2ACIA,a1 | Point at MIDI-2 ACIA 125 movea.l _pulse2,a2 | Point at pulse 2 processor125 movea.l pulse2,a2 | Point at pulse 2 processor 126 126 bsr midint | Go process (possible) int. 127 127 … … 490 490 .page 491 491 492 | _setsio -- setsio() -- initialize serial I/O vectors and DCD interrupts493 | ------ -------------------------------------------------------------494 _setsio:move.w sr,-(a7) | Preserve status register492 | setsio -- setsio() -- initialize serial I/O vectors and DCD interrupts 493 | ------ ------------------------------------------------------------ 494 setsio: move.w sr,-(a7) | Preserve status register 495 495 ori.w #IPL7,sr | DISABLE INTERRUPTS 496 496 497 497 lea nulsiox,a0 | Get null return address 498 move.l a0, _foot1 | Initialize foot1 vector499 move.l a0, _foot2 | Initialize foot2 vector500 move.l a0, _pulse1 | Initialize pulse1 vector501 move.l a0, _pulse2 | Initialize pulse2 vector498 move.l a0,foot1 | Initialize foot1 vector 499 move.l a0,foot2 | Initialize foot2 vector 500 move.l a0,pulse1 | Initialize pulse1 vector 501 move.l a0,pulse2 | Initialize pulse2 vector 502 502 503 503 lea SR1ACIA,a1 | Point at Serial-1 ACIA … … 524 524 | DCD interrupt processor vectors 525 525 | ------------------------------- 526 _foot1: .ds.l 1 | short (*foot1)();527 _foot2: .ds.l 1 | short (*foot2)();528 _pulse1:.ds.l 1 | short (*pulse1)();529 _pulse2:.ds.l 1 | short (*pulse2)();526 foot1: .ds.l 1 | short (*foot1)(); 527 foot2: .ds.l 1 | short (*foot2)(); 528 pulse1: .ds.l 1 | short (*pulse1)(); 529 pulse2: .ds.l 1 | short (*pulse2)(); 530 530 531 531 .end
Note:
See TracChangeset
for help on using the changeset viewer.