#include <midimah.asm> ; pgm head 


; OUT   / PIN   / PORT   MAPPING:
;---------------------
; out0  = pin4  = RA2
; out1  = pin3  = RA1
; out2  = pin2  = RA0
; out3  = pin5  = RA3
; out4  = pin6  = RA4
; out5  = pin7  = RA5
; out6  = pin28 = RB7
; out7  = pin27 = RB6
; out8  = pin26 = RB5
; out9  = pin25 = RB4
; out10 = pin24 = RB3
; out11 = pin23 = RB2
; out12 = pin22 = RB1
; out13 = pin21 = RB0
; out14 = pin16 = RC5
; out15 = pin15 = RC4

; LED   = pin11 = RC0

#define Timer0PinClr 	bcf OutsA,	2;
#define Timer1PinClr 	bcf OutsA,	1;
#define Timer2PinClr 	bcf OutsA,	0;
#define Timer3PinClr 	bcf OutsA,	3;
#define Timer4PinClr 	bcf OutsA,	4;
#define Timer5PinClr 	bcf OutsA,	5;
#define Timer6PinClr 	bcf OutsB,	7;
#define Timer7PinClr 	bcf OutsB,	6;
#define Timer8PinClr 	bcf OutsB,	5;
#define Timer9PinClr 	bcf OutsB,	4;
#define Timer10PinClr 	bcf OutsB,	3;
#define Timer11PinClr 	bcf OutsB,	2;
#define Timer12PinClr 	bcf OutsB,	1;
#define Timer13PinClr 	bcf OutsB,	0;
#define Timer14PinClr 	nop;
; bcf OutsC,	5;
#define Timer15PinClr 	nop;
;bcf OutsC,	4;


	ORG	0x0430
MidiInNoteOn2:
; for non-timered note outputs
	movlw	0x68;   104 dec
	subwf	MidiByte1,0;
	bz		SetHold104;

	movlw	0x69;   105 dec
	subwf	MidiByte1,0;
	bz		SetHold105;
	
	return

MidiInNoteOff:
	movlw	0x68;   
	subwf	MidiByte1,0;
	bz		ClrHold104;

	movlw	0x69;   
	subwf	MidiByte1,0;
	bz		ClrHold105;
	
	return

SetHold104:
	bsf	OutsC, 5;
	return
SetHold105:
	bsf	OutsC, 4;
	return
ClrHold104:
	bcf	OutsC, 5;
	return
ClrHold105:
	bcf	OutsC, 4;
	return


#include <midima.asm> ; main pgm



;************************************************************
; Timer # to three-byte pin mask (A, B, C)
; ### or can it better be done directly in a function ? 
; ### Where is this pinamsk used?
; ### cycle-budget: a. lookup
; ### 			 4 for lookup, 6 for applying, makes 10 cycles
; ### 				b. function: 
	org 0E00h	;
	; address : 0E00h+timer*4
	; data	  : OutMaskA OutMaskB OutMaskC dummy
TimerPinMask
	DB	 04h, 00h, 00h, 00h; out0
	DB	 02h, 00h, 00h, 00h; out1
	DB	 01h, 00h, 00h, 00h; out2
	DB	 08h, 00h, 00h, 00h; out3
	DB	 10h, 00h, 00h, 00h; out4
	DB	 20h, 00h, 00h, 00h; out5
	DB	 00h, 80h, 00h, 00h; out6
	DB	 00h, 40h, 00h, 00h; out7
	DB	 00h, 20h, 00h, 00h; out8
	DB	 00h, 10h, 00h, 00h; out9
	DB	 00h, 08h, 00h, 00h; out10
	DB	 00h, 04h, 00h, 00h; out11
	DB	 00h, 02h, 00h, 00h; out12
	DB	 00h, 01h, 00h, 00h; out13
	DB	 00h, 00h, 20h, 00h; out14
	DB	 00h, 00h, 10h, 00h; out15


;************************************************************
; Midi Note number to timer number table (offset by 1!)
;   00h -> no action
	org 0F00h	;
MidiNoteMap
; note # offset=0h
	DB	 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
	DB	 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
	DB	 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
	DB	 00h, 00h, 00h, 00h, 05h, 04h, 03h, 02h ;
; note # offset=20h=32
	DB	 01h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
	DB	 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
	DB	 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
	DB	 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
; note # offset=40h=64
	DB	 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
	DB	 00h, 00h, 00h, 00h, 0dh, 0ch, 0bh, 0ah ;
	DB	 09h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
	DB	 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
; note # offset=60h=96
	DB	 00h, 00h, 00h, 00h, 06h, 07h, 08h, 0eh ;
	DB	 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
	DB	 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;
	DB	 00h, 00h, 00h, 00h, 00h, 00h, 00h, 00h ;


; Velocity to time tables

; Timer0 Lookup Table
; first dword : dummy
; following dwords : timer cycles for velocity 1,2,..128
; inverted endianess!
	org	1000h	;  LATB:0 , LATA:0
	; linear table
velTime0
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;
;Timer1 Lookup Table
	org	1100h
velTime1
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;
  		 
	org	1200h
velTime2
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;

	org	1300h
velTime3 
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;

	org	1400h
velTime4 
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;

	org	1500h
velTime5 
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;

	org	1600h
velTime6
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;

	org	1700h	
velTime7 
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;

	org	1800h	
velTime8 
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;

	org	1900h	
velTime9 
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;

	org	1A00h	
velTime10 
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;

	org	1B00h	
velTime11
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;
  		 
	org	1C00h	
velTime12
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;
  		 
	org	1D00h	
velTime13 
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;
  		 
	org	1E00h	
velTime14 
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;

	org	1F00h	
velTime15 
		DATA	00000h,00032h,00051h,00070h,00090h,000AFh,000CEh,000EEh;
		DATA	0010Dh,0012Ch,0014Ch,0016Bh,0018Ah,001AAh,001C9h,001E8h;
		DATA	00208h,00227h,00246h,00266h,00285h,002A4h,002C4h,002E3h;
		DATA	00303h,00322h,00341h,00361h,00380h,0039Fh,003BFh,003DEh;
		DATA	003FDh,0041Dh,0043Ch,0045Bh,0047Bh,0049Ah,004B9h,004D9h;
		DATA	004F8h,00517h,00537h,00556h,00576h,00595h,005B4h,005D4h;
		DATA	005F3h,00612h,00632h,00651h,00670h,00690h,006AFh,006CEh;
		DATA	006EEh,0070Dh,0072Ch,0074Ch,0076Bh,0078Ah,007AAh,007C9h;
		DATA	007E9h,00808h,00827h,00847h,00866h,00885h,008A5h,008C4h;
		DATA	008E3h,00903h,00922h,00941h,00961h,00980h,0099Fh,009BFh;
		DATA	009DEh,009FDh,00A1Dh,00A3Ch,00A5Bh,00A7Bh,00A9Ah,00ABAh;
		DATA	00AD9h,00AF8h,00B18h,00B37h,00B56h,00B76h,00B95h,00BB4h;
		DATA	00BD4h,00BF3h,00C12h,00C32h,00C51h,00C70h,00C90h,00CAFh;
		DATA	00CCEh,00CEEh,00D0Dh,00D2Dh,00D4Ch,00D6Bh,00D8Bh,00DAAh;
		DATA	00DC9h,00DE9h,00E08h,00E27h,00E47h,00E66h,00E85h,00EA5h;
		DATA	00EC4h,00EE3h,00F03h,00F22h,00F41h,00F61h,00F80h,00FA0h;

	END