Ext. Interrupt Programm beim 90S8515 in Bascom

[papuadive]

Hallo, brauche wieder einmal hilfe...
Habe schon gesucht aber nicht das passendes gefunden.....
kann mir einer das Komplette Programmgerüst (inkl. Unterprogr.) für ein ext. Interrupt der ja an Pin 13 klebt (12 ist vergeben) schicken....
bringe es einfach nicht auf die reihe
danke papua

$regfile = "8515def.dat"
$crystal = 3686000
$eepleave
*
*'************************************************ ****
On Int1 Binklicht 'Interrupt-Routine für INT1 festlegen
Ddrd = &B00000000 'alle auf INPUT (PD3/INT1=In)
Ddrc = &B00000001 'PC0=Out, für LED Anzeige,bei einem Interrupt
Portd = &B00001000 'Pullups von PD3/INT1 an
Mcucr = &B00001000 'INT1 jeweils bei H/L - Flanke
Gifr = &B10000000 'Interrupts INT1 einschalten
Sreg.7 = 1 'Interrupts global freigeben (I-Bit)
'************************************************* ***
'Ende Interruptkonf.
'************************************************* ***
Binklicht:
Portc.0 = Not Portc.0
Wait 1
Portc.0 = Not Portc.0
Wait 1
Portc.0 = Not Portc.0
Wait 1
Portc.0 = Not Portc.0
Wait 1
Return
'_____________________________
'Ende Unterprogramm Interrupt

*
*