Code:
D2A_Result var word ' raw data from D2A conversion
D2A_Conversion var word ' converted result
' read the D2A, place Result in D2A_result
select case D2A_result
case is <256
lookup D2A_result.byte0, _
[$00, $00, $00, $00, $00, $00, $00, $00, _ ' 0-7 lo bytes
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 8-15 lo bytes
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 16
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 24
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 32
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 40
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 48
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 56
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 64
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 72
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 80
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 88
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 96
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 104
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 112
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 120
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 128
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 136
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 144
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 152
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 160
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 168
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 176
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 184
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 192
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 200
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 208
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 216
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 224
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 232
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 240
$00, $00, $00, $00, $00, $00, $00], _ ' 248 - 255
D2A_Conversion.byte0
lookup D2A_result.byte0, _
[$00, $00, $00, $00, $00, $00, $00, $00, _ ' 0-7 hi bytes
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 8
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 16
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 24
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 32
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 40
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 48
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 56
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 64
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 72
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 80
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 88
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 96
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 104
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 112
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 120
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 128
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 136
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 144
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 152
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 160
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 168
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 176
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 184
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 192
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 200
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 208
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 216
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 224
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 232
$00, $00, $00, $00, $00, $00, $00, $00, _ ' 240
$00, $00, $00, $00, $00, $00, $00], _ ' 248 - 255
D2A_Conversion.byte1
case 256
D2A_Conversion.byte0 = $00
D2A_Conversion.byte1 = $00
case is < 512
' same as before, 2 LOOKUP tables
case 512
D2A_Conversion.byte0 = $00
D2A_Conversion.byte1 = $00
case is < 768
' same as before, 2 LOOKUP tables
case 768
D2A_Conversion.byte0 = $00
D2A_Conversion.byte1 = $00
case else
' this case handles 769 to 1023
' same as before, 2 LOOKUP tables
end select
If you do run out of codespace, let me know and I'll help with some asm code for this.
Bookmarks