Table lookup deep dive

new

« Prev
1
Next »

dino2gnt
Full Member

Posts: 127

Table lookup deep dive Aug 10, 2022 18:59:42 GMT

Quote

Post by dino2gnt on Aug 10, 2022 18:59:42 GMT

Is anyone out there?

I've been taking a several week break after going hard on SBEC3 reverse engineering for 8-9 months, but I'm starting to get back into it and figure I should stir up some discussion.

I've been trying to figure out from the table lookup function how table axes are laid out, for example how the pointer moves in the table Y axis when only the X axis scale is included in the table data and I feel like I'm right on the edge of understanding (and the edge of ability!) and would love some feedback on what I've got here.

This is from 05293190AC (USDM MY 98 / 99), and surprisingly is completely different than the 05293013AC (USDM MY 97) I have (figuratively) right next to it.

ROM:C214 ; Lookup rB by prescaled rA in a table, return interpolated value in rA, rB & maybe 0xF8C5D
ROM:C214
ROM:C214 Table_2D:                               ; CODE XREF: sub_104AE+22p
ROM:C214                                         ; sub_10A6E+4Ep ...
ROM:C214                 pshm    E, Y, K
ROM:C216                 ais     #-0Ah           ; add -10 to the stack pointer (move the stack pointer 10 bytes towards zero)
ROM:C21A                 txy                     ; y = x
ROM:C21C                 tsx                     ; x = stack pointer
ROM:C21E                 tde                     ; e = d, save our original A & B values to E
ROM:C220                 clrb
ROM:C222                 tbyk                    ; 0, Y = HEIGHT (# of ROWS)
ROM:C222                                         ; 1, Y = WIDTH (# of COLUMNS)
ROM:C222                                         ; 2, Y = SIGNED or UNSIGNED
ROM:C222                                         ; 3, Y = First cell of the X axis scale
ROM:C222                                         ;
ROM:C222                                         ; 0, X = rA value (the Y axis value)
ROM:C222                                         ; 1, X = Calculated slope?
ROM:C222                                         ; 2, X = HEIGHT (Table Y axis)
ROM:C222                                         ; 3, X = WIDTH (Table X axis)
ROM:C222                                         ; 4, X = SIGNED or UNSIGNED
ROM:C222                                         ; 7, X = Pointer to table
ROM:C224 ; assume YK = 0
ROM:C224                 sty     7, X            ; store table base address to X+7
ROM:C226                 ldaa    1, Y            ; Table width value (# of columns)
ROM:C228                 staa    3, X            ; Store width to 3,X
ROM:C228                                         ; .
ROM:C22A                 lbeq    loc_C312        ; If the value stored was a zero, special case
ROM:C22E                 ldaa    0, Y            ; Table height value (# of rows)
ROM:C230                 staa    2, X            ; store height to 2,X
ROM:C230                                         ; .
ROM:C232                 lbeq    loc_C31C        ; if width is zero, special case
ROM:C236                 ldaa    2, Y            ; Signed or unsigned
ROM:C238                 staa    4, X            ; Store it in stack-land
ROM:C238                                         ; .
ROM:C23A                 ted                     ; move D (A&B) back from E
ROM:C23C                 staa    0, X            ; Store our index value A to stack-land
ROM:C23E                 aiy     #3              ; Move to the beginging of the table data
ROM:C23E                                         ; .
ROM:C240                 cmpb    0, Y            ; Check if X-axis value in B is ...
ROM:C242                 bls     loc_C254        ;  ... less than or equal to the lowest X-axis value
ROM:C244                 ldaa    3, X            ; else load A with the table width
ROM:C246                 deca                    ;  ...and subtract 1 from the width
ROM:C248
ROM:C248 loc_C248:                               ; CODE XREF: Table_2D+3Ej
ROM:C248                 beq     loc_C254        ; Branch if the dec made A = 0
ROM:C24A                 cmpb    1, Y            ; compare B to the width/X-axis value (this is starting in the top-left cell of the table and moving right / incrementing)
ROM:C24C                 bcs     loc_C258        ; Branch if width-axis value is greater than B
ROM:C24E                 aiy     #1              ; Move in width / increase Y to the next cell
ROM:C24E                                         ; IY should increment to the highest cell that is less than rB (0,Y)
ROM:C250                 deca                    ; Dec A and loop
ROM:C252                 bra     loc_C248        ; loop
ROM:C254 ; ---------------------------------------------------------------------------
ROM:C254
ROM:C254 loc_C254:                               ; CODE XREF: Table_2D+2Ej
ROM:C254                                         ; Table_2D:loc_C248j
ROM:C254                 clr     1, X
ROM:C256                 bra     loc_C278        ; Table width from memory
ROM:C258 ; ---------------------------------------------------------------------------
ROM:C258
ROM:C258 loc_C258:                               ; CODE XREF: Table_2D+38j
ROM:C258                 tba                     ; B -> A
ROM:C25A                 pshm    X               ; Push X to stack
ROM:C25C                 ldx     #0              ; zero IX
ROM:C260                 ldab    1, Y            ; Calculate the difference between the cell below us 0,Y and the cell we where we stopped 1,Y
ROM:C260                                         ; This is all still in the X axis value-index
ROM:C262                 subb    0, Y
ROM:C264                 bne     loc_C26A        ; if not zero
ROM:C266                 ldaa    #0FFh
ROM:C268                 bra     loc_C274
ROM:C26A ; ---------------------------------------------------------------------------
ROM:C26A
ROM:C26A loc_C26A:                               ; CODE XREF: Table_2D+50j
ROM:C26A                 abx                     ; Add the difference in (0,Y) and (1,Y) to IX
ROM:C26C                 suba    0, Y            ; rA is a copy of rB from the tba @ c258
ROM:C26C                                         ; subtract 0,Y from rA
ROM:C26C                                         ; This is the difference between the cell below us (0,Y) and the lookup value rB
ROM:C26E                 clrb                    ; Zero B
ROM:C270                 idiv                    ; IX = D / IX (remainder in D)
ROM:C270                                         ; IX is the difference between the two cells
ROM:C270                                         ; rA is the difference between the lower cell and the raw value
ROM:C272                 xgdx                    ; Swap the remainder(D) and the quotient(IX); D is now the quotient and IX is the remainder
ROM:C274
ROM:C274 loc_C274:                               ; CODE XREF: Table_2D+54j
ROM:C274                 pulm    X               ; Pull X back off the stack; overwrite remainder from above, IX is now the modified stack pointer again
ROM:C276                 stab    1, X            ; This is the difference between the cell above us (1,Y) and the cell below us (0,Y) divided by the difference in the raw value (rB) and the cell below us (0,Y).  This must be for interpolation
ROM:C278
ROM:C278 loc_C278:                               ; CODE XREF: Table_2D+42j
ROM:C278                 ldab    3, X            ; Table width from memory
ROM:C27A                 aby                     ; add B to IY
ROM:C27C                 ldd     7, X            ; load D with pointer to the table base address
ROM:C27E                 pshm    Y               ; Push Y
ROM:C280                 pulm    E               ; Pull Y back off the stack as E
ROM:C282                 sde                     ; Subtract D from E (result in E)
ROM:C282                                         ; This is the difference between the base table pointer and IY - how far we've moved "to the right" to find the correct column.
ROM:C284                 ted                     ; Move result back to D
ROM:C286                 subb    #3              ; Subtract 3 from B (don't count the header)
ROM:C288                 subb    3, X            ; Subtract B from the table width (don't count the X axis values?)
ROM:C28A                 bra     loc_C2C8
ROM:C28C ; ---------------------------------------------------------------------------
[ ... ]
ROM:C2C8 loc_C2C8:                               ; CODE XREF: Table_2D+76j
ROM:C2C8                 aslb
ROM:C2CA                 aslb
ROM:C2CC                 aslb                    ; 4x left-shift rB
ROM:C2CE                 aslb
ROM:C2D0                 tde                     ; D -> E
ROM:C2D2                 ldab    0, X            ; rA, the height(Y)-axis value
ROM:C2D4                 ldaa    2, X            ; Table height in rows
ROM:C2D6                 deca                    ; Decrement table height by 1
ROM:C2D8                 mul                     ; Multiply the Y-axis value by the table row count
ROM:C2DA                 tab                     ; A -> B (Copy the high byte of the MUL result to B)
ROM:C2DC                 ade                     ; Add A:B to E (this seems weird after a MUL -> TAB)
ROM:C2DE                 ldab    3, X            ; rB = table width
ROM:C2E0                 mul                     ; Multiple the high byte of the previous MUL by the table width
ROM:C2E2                 aby                     ; Add the low byte of the result to IY
ROM:C2E4                 ldab    1, X            ; Load the slope-something-whatever value
ROM:C2E6                 bsr     sub_C32E        ; I super don't understand what's going on here.
ROM:C2E8                 tba
ROM:C2EA                 ldab    3, X            ; rB = table width
ROM:C2EC                 aby
ROM:C2EE                 ldab    1, X            ; Load the slope-something-whatever value
ROM:C2F0                 bsr     sub_C32E
ROM:C2F2                 xgdy
ROM:C2F4                 pshm    Y
ROM:C2F6                 tsy
ROM:C2F8                 ldaa    0, X            ; rA = the height-axis value
ROM:C2FA                 ldab    2, X            ; rB = The table height
ROM:C2FC                 decb                    ; rB =  the table height minus 1
ROM:C2FE                 mul                     ; D = B * A
ROM:C300                 bsr     sub_C32E
ROM:C302                 pulm    Y
ROM:C304                 ste     5, X
ROM:C308                 xgex
ROM:C30A                 tba
ROM:C30C                 staa    0xF8C5D
ROM:C310                 bra     loc_C328
ROM:C312 ; ---------------------------------------------------------------------------
ROM:C312
ROM:C312 loc_C312:                               ; CODE XREF: Table_2D+16j
ROM:C312                                         ; Table_2D+8Ej ...
ROM:C312                 ldy     7, X            ; IY = table pointer
ROM:C314                 aiy     #3              ; Skip header
ROM:C316                 ldaa    3, Y            ; Why 3?
ROM:C318                 tab
ROM:C31A                 bra     loc_C328
ROM:C31C ; ---------------------------------------------------------------------------
ROM:C31C
ROM:C31C loc_C31C:                               ; CODE XREF: Table_2D+1Ej
ROM:C31C                 ldd     7, X            ; D = table pointer
ROM:C31E                 addd    3, X            ;  add the width value
ROM:C320                 xgdy                    ; Swap D to IY
ROM:C322                 aiy     #3              ; Move Y to the beginging of the table data
ROM:C324                 ldaa    3, Y            ; Read this byte from table (why 3?)
ROM:C326                 tab                     ; Copy it to B
ROM:C328
ROM:C328 loc_C328:                               ; CODE XREF: Table_2D+FCj
ROM:C328                                         ; Table_2D+106j
ROM:C328                 ais     #0Ah
ROM:C32A                 pulm    K, Y, E
ROM:C32C                 rts
ROM:C32C ; End of function Table_2D
ROM:C32C
ROM:C32E
ROM:C32E ; =============== S U B R O U T I N E =======================================
ROM:C32E
ROM:C32E
ROM:C32E sub_C32E:                               ; CODE XREF: Table_2D+D2p
ROM:C32E                                         ; Table_2D+DCp ...
ROM:C32E                 pshm    E
ROM:C330                 pshm    D
ROM:C332                 ldaa    1, Y
ROM:C334                 suba    0, Y            ; Calc delta between 1,Y and 0,Y (again?)
ROM:C336                 brclr   4, X, #0FFh, loc_C340 ; 4,X is Signed or Unsigned flag
ROM:C336                                         ; 0x0 unsigned, 0x80 or 0xFF is signed
ROM:C336                                         ; This is clear for unsigned tables
ROM:C33C                 blt     loc_C34C
ROM:C33E                 bra     loc_C342
ROM:C340 ; ---------------------------------------------------------------------------
ROM:C340
ROM:C340 loc_C340:                               ; CODE XREF: sub_C32E+8j
ROM:C340                 bcs     loc_C34C        ; if 0,Y is greater than 1,Y for some reason, carry would be set
ROM:C342
ROM:C342 loc_C342:                               ; CODE XREF: sub_C32E+10j
ROM:C342                 mul                     ; D = A * B
ROM:C342                                         ; A is the delta between Y,0 and Y,1
ROM:C342                                         ; B is the slope-something-whatever value 1,X
ROM:C344                 adca    #0              ; Add 0 to A with carry, i.e. round the high byte of the result in A
ROM:C346                 tab                     ; Copy the high byte to B
ROM:C348                 addb    0, Y            ; Add the table HEIGHT to B / move us down a row?
ROM:C34A                 bra     loc_C358        ; Move A & B to E
ROM:C34C ; ---------------------------------------------------------------------------
ROM:C34C
ROM:C34C loc_C34C:                               ; CODE XREF: sub_C32E+Ej
ROM:C34C                                         ; sub_C32E:loc_C340j
ROM:C34C                 nega
ROM:C34E                 mul
ROM:C350                 adca    #0
ROM:C352                 nega
ROM:C354                 adda    0, Y            ; 0, Y = HEIGHT (# of ROWS)
ROM:C356                 tab
ROM:C358
ROM:C358 loc_C358:                               ; CODE XREF: sub_C32E+1Cj
ROM:C358                 tde                     ; Move A & B to E
ROM:C35A                 pulm    D               ; Pull D back off the stack
ROM:C35C                 ande    #0FFh           ; And 0xFF with E / this appears to discard the high byte?
ROM:C360                 clrb                    ; Clear B / discard the low byte of D
ROM:C362                 ade                     ; Add D to E
ROM:C364                 ted                     ; Copy E to D
ROM:C366                 pulm    E               ; Pull E back off the stack
ROM:C368                 rts                     ; Values in D and E
ROM:C368 ; End of function sub_C32E              ; The calling function cares about B, so...

dino2gnt
Full Member

Posts: 127

Table lookup deep dive Aug 14, 2022 20:29:52 GMT

Quote

Post by dino2gnt on Aug 14, 2022 20:29:52 GMT

I copied the entire function (from the '97) into some bootable code so I can execute it while varying the inputs, and provided a 9x9 unsigned table of unique values to use for testing:

TABLEHERE:
         DB 9,9,0                       ;Header 9x9 unsigned
         DB 10,20,30,40,50,60,70,80,90  ;X-axis
         DB 11,21,31,41,51,61,71,81,91  ;Data row 1
         DB 12,22,32,42,52,62,72,82,92  ;Data row 2
         DB 13,23,33,43,53,63,73,83,93  ;Data row 3
         DB 14,24,34,44,54,64,74,84,94  ;Data row 4
         DB 15,25,35,45,55,65,75,85,95  ;Data row 5
         DB 16,26,36,46,56,66,76,86,96  ;Data row 6
         DB 17,27,37,47,57,67,77,87,97  ;Data row 7
         DB 18,28,38,48,58,68,78,88,98  ;Data row 8
         DB 19,29,39,49,59,69,79,89,99  ;Data row 9

(these are all decimal values)

It appears the the Y scale is always 0 - 255, and X is coded into the table (in some cases). There's a different entry point into Table_2D for tables that don't encode the X axis that I haven't explored yet.

         ldaa    #253          ; Should be Y
         ldab    #70           ; Should be X
         ldx     #TABLEHERE       ; base table address
         lbra    Table_2D

Returns 4Fh -> 79d

         ldaa    #20          ; Should be Y
         ldab    #70           ; Should be X
         ldx     #TABLEHERE       ; base table address
         lbra    Table_2D

Returns 48h -> 72d

         ldaa    #2          ; Should be Y
         ldab    #70           ; Should be X
         ldx     #TABLEHERE       ; base table address
         lbra    Table_2D

Returns 47h -> 71d

Last Edit: Aug 14, 2022 21:05:00 GMT by dino2gnt

dino2gnt
Full Member

Posts: 127

Table lookup deep dive Aug 15, 2022 2:56:46 GMT

Quote

Post by dino2gnt on Aug 15, 2022 2:56:46 GMT

For the 9x9 synthetic table I'm testing against, the Y-axis distribution appears to be:

TABLEHERE:
              DB 9,9,0                       ;Header 9x9 unsigned
              DB 10,20,30,40,50,60,70,80,90  ;X-axis
       0-15   DB 11,21,31,41,51,61,71,81,91  ;Data row 1
      16-47   DB 12,22,32,42,52,62,72,82,92  ;Data row 2
      48-79   DB 13,23,33,43,53,63,73,83,93  ;Data row 3
     80-111   DB 14,24,34,44,54,64,74,84,94  ;Data row 4
    112-143   DB 15,25,35,45,55,65,75,85,95  ;Data row 5
    144-175   DB 16,26,36,46,56,66,76,86,96  ;Data row 6
    176-207   DB 17,27,37,47,57,67,77,87,97  ;Data row 7
    208-239   DB 18,28,38,48,58,68,78,88,98  ;Data row 8
    240-256   DB 19,29,39,49,59,69,79,89,99  ;Data row 9

Still need to test against 5x5, 9x17, 17x9, 17x17...

admin
Administrator

Posts: 136

Table lookup deep dive Aug 15, 2022 7:35:09 GMT

Quote

Post by admin on Aug 15, 2022 7:35:09 GMT

Good call doing this in RAM!

The Y-axis looks symmetric with first/last intervals being halved down: 16-32-32-32-32-32-32-32-16.
Same should apply for 17 rows: 8-16-16-16-16-16-16-16-16-16-16-16-16-16-16-16-8.

At table boundaries half of the values are ignored (***) due to how linear interpolation looks left and right (also up and down) at the same time:

        A      B      C
        *      *      *
        *      *      *
        *      *      *
X * * * O--><--O--><--O * * *
        |      |      |
        |      |      |
Y * * * O--><--O--><--O * * *
        |      |      |
        |      |      |
Z * * * O--><--O--><--O * * *
        *      *      *
        *      *      *
        *      *      *

In summary: first the Y-axis value is interpolated, using another small table, from a dimensioned value to 0-255 (TLR1, TLR2), then X-axis value is provided and Table_2D outputs the result.

I suppose X-axis is assumed to be 0-255 when no X-value is provided, right?

Piton
Junior Member

Posts: 94

Table lookup deep dive Aug 15, 2022 19:07:39 GMT

Quote

Post by Piton on Aug 15, 2022 19:07:39 GMT

Aug 15, 2022 2:56:46 GMT dino2gnt said:

For the 9x9 synthetic table I'm testing against, the Y-axis distribution appears to be:

TABLEHERE:
              DB 9,9,0                       ;Header 9x9 unsigned
              DB 10,20,30,40,50,60,70,80,90  ;X-axis
       0-15   DB 11,21,31,41,51,61,71,81,91  ;Data row 1
      16-47   DB 12,22,32,42,52,62,72,82,92  ;Data row 2
      48-79   DB 13,23,33,43,53,63,73,83,93  ;Data row 3
     80-111   DB 14,24,34,44,54,64,74,84,94  ;Data row 4
    112-143   DB 15,25,35,45,55,65,75,85,95  ;Data row 5
    144-175   DB 16,26,36,46,56,66,76,86,96  ;Data row 6
    176-207   DB 17,27,37,47,57,67,77,87,97  ;Data row 7
    208-239   DB 18,28,38,48,58,68,78,88,98  ;Data row 8
    240-256   DB 19,29,39,49,59,69,79,89,99  ;Data row 9

Still need to test against 5x5, 9x17, 17x9, 17x17...

for jteg tables can have any value in rows, but only a fixed value in columns (9 columns)
For example
17x9, 9x9, 5x9 allowed
5x5, 9x17 is not allowed.

In fact, the index on the rows is calculated in advance
For example

ROM:2D51 MAP_INDEX:      dc.b 9                  ; DATA XREF: INJ_PW+34Co
ROM:2D51                                         ; CRANK_INJ_PW+5Eo ...
ROM:2D52                 dc.b  36,  0
ROM:2D52                 dc.b  58, 32
ROM:2D52                 dc.b  76, 64
ROM:2D52                 dc.b  96, 96
ROM:2D52                 dc.b 128,128
ROM:2D52                 dc.b 160,160
ROM:2D52                 dc.b 192,192
ROM:2D52                 dc.b 224,224
ROM:2D52                 dc.b 255,255

ROM:334F RPM_INDEX:      dc.b 17                 ; DATA XREF: INJ_PW:loc_11670o
ROM:334F                                         ; CRANK_INJ_PWo
ROM:3350                 dc.b  16,  0            ; 512
ROM:3352                 dc.b  20, 16            ; 640
ROM:3354                 dc.b  25, 32            ; 800
ROM:3356                 dc.b  28, 48            ; 896
ROM:3358                 dc.b  31, 64            ; 999
ROM:335A                 dc.b  35, 80            ; 1120
ROM:335C                 dc.b  39, 96            ; 1248
ROM:335E                 dc.b  47,112            ; 1504
ROM:3360                 dc.b  55,128            ; 1760
ROM:3362                 dc.b  62,144            ; 1984
ROM:3364                 dc.b  70,160            ; 2240
ROM:3366                 dc.b  78,176            ; 2496
ROM:3368                 dc.b  94,192            ; 3008
ROM:336A                 dc.b 109,208            ; 3488
ROM:336C                 dc.b 125,224            ; 4000
ROM:336E                 dc.b 140,240            ; 4480
ROM:3370                 dc.b 156,255            ; 4992


ROM:35A6 byte_35A6:      dc.b 11h                ; DATA XREF: SPARK_ADVANCE+524o

ROM:35A6                                         ; SPARK_ADVANCE+AF8o

ROM:35A6                                         ; ADV(RPM,MAP)
ROM:35A7                 dc.b 9
ROM:35A8                 dc.b 0
ROM:35A9                 dc.b  28, 28, 28, 24, 26, 20, 26, 10,  4
ROM:35A9                 dc.b  28, 28, 28, 24, 26, 30, 26, 10,  4
ROM:35A9                 dc.b  28, 28, 28, 24, 26, 28, 26, 10,  4
ROM:35A9                 dc.b  28, 28, 28, 26, 32, 40, 26, 12,  4
ROM:35A9                 dc.b  28, 28, 24, 28, 32, 40, 30, 12,  4
ROM:35A9                 dc.b  28, 28, 25, 32, 34, 36, 30, 18,  6
ROM:35A9                 dc.b  28, 30, 26, 34, 40, 40, 30, 21,  8
ROM:35A9                 dc.b  28, 40, 40, 40, 41, 42, 36, 26, 18
ROM:35A9                 dc.b  28, 42, 42, 42, 42, 42, 45, 37, 24
ROM:35A9                 dc.b  28, 42, 42, 42, 42, 48, 51, 38, 28
ROM:35A9                 dc.b  28, 42, 42, 42, 42, 52, 54, 43, 30
ROM:35A9                 dc.b  28, 50, 54, 54, 60, 68, 56, 44, 34
ROM:35A9                 dc.b  41, 56, 72, 84, 84, 69, 56, 46, 37
ROM:35A9                 dc.b  57, 63, 72, 84, 81, 67, 54, 44, 37
ROM:35A9                 dc.b  72, 72, 72, 80, 76, 62, 52, 46, 38
ROM:35A9                 dc.b  72, 72, 72, 84, 84, 66, 54, 48, 40
ROM:35A9                 dc.b  72, 72, 72, 92, 86, 70, 60, 52, 43

Actually MAP_INDEX and RPM_INDEX are the axes.

Last Edit: Aug 15, 2022 19:16:21 GMT by Piton

admin
Administrator

Posts: 136

Table lookup deep dive Aug 16, 2022 6:18:53 GMT

Quote

Post by admin on Aug 16, 2022 6:18:53 GMT

In SBEC3 there are 17x17 tables like this:

ROM:22CA TABLE_22CA:     dc.b 3                  ; DATA XREF: sub_1D822+9Co
ROM:22CB                 dc.b 20h
ROM:22CC                 dc.b    0,   0
ROM:22CC                 dc.b  24h,   0
ROM:22CC                 dc.b  28h,0F4h
ROM:22D2 TABLE_22D2:     dc.b 2                  ; DATA XREF: sub_1D822+B8o
ROM:22D3                 dc.b 20h
ROM:22D4                 dc.b 0B2h,0C4h
ROM:22D4                 dc.b 0E3h,0F0h
ROM:22D8                 dc.b 0FFh
ROM:22D9                 dc.b 0FFh
ROM:22DA BASE_SPARK:     dc.b 11h                ; DATA XREF: sub_1DAB4+40o
ROM:22DA                                         ; number of rows
ROM:22DB                 dc.b 11h                ; number of columns
ROM:22DC                 dc.b 0                  ; 00 = unsigned, 80/FF = signed
ROM:22DD                 dc.b  11h, 14h, 17h, 1Ah, 1Dh, 20h, 26h, 2Ch, 32h, 38h, 3Eh, 4Bh, 58h, 71h, 8Ah,0A3h,0BCh
ROM:22DD                 dc.b  1Ah, 16h, 16h, 16h, 1Ah, 1Ch, 1Eh, 20h, 22h, 24h, 26h, 28h, 2Ah, 2Ah, 2Ch, 34h, 34h
ROM:22DD                 dc.b  1Ah, 16h, 16h, 16h, 1Ah, 1Ch, 1Eh, 20h, 22h, 24h, 26h, 28h, 2Ah, 2Ah, 2Ch, 34h, 34h
ROM:22DD                 dc.b  1Ah, 16h, 16h, 16h, 1Ch, 1Eh, 20h, 22h, 24h, 26h, 28h, 2Ch, 2Eh, 2Eh, 34h, 34h, 34h
ROM:22DD                 dc.b  1Ah, 16h, 16h, 16h, 1Ch, 1Eh, 22h, 24h, 26h, 28h, 2Ah, 2Eh, 32h, 32h, 3Ch, 34h, 34h
ROM:22DD                 dc.b  1Ah, 16h, 16h, 16h, 1Ch, 1Eh, 22h, 26h, 28h, 2Ah, 32h, 36h, 3Ah, 3Ah, 44h, 3Ah, 3Ah
ROM:22DD                 dc.b  1Ah, 16h, 16h, 16h, 1Ch, 1Eh, 22h, 26h, 28h, 2Ah, 32h, 36h, 3Ah, 3Ah, 4Ah, 44h, 44h
ROM:22DD                 dc.b  1Ah, 16h, 16h, 16h, 1Ch, 1Eh, 22h, 26h, 2Ah, 2Ch, 32h, 36h, 3Ah, 3Ah, 4Ah, 44h, 44h
ROM:22DD                 dc.b  1Ah, 16h, 16h, 16h, 1Ch, 1Eh, 22h, 26h, 2Ah, 2Eh, 32h, 36h, 3Ah, 3Ah, 4Ah, 42h, 42h
ROM:22DD                 dc.b  1Ah, 16h, 16h, 16h, 1Ch, 1Eh, 22h, 26h, 2Ah, 2Eh, 32h, 36h, 3Ah, 3Ah, 40h, 40h, 40h
ROM:22DD                 dc.b  1Ah, 16h, 16h, 16h, 1Ch, 1Eh, 22h, 20h, 2Ah, 2Eh, 32h, 36h, 38h, 38h, 3Ah, 3Eh, 3Eh
ROM:22DD                 dc.b  18h, 16h, 16h, 16h, 18h, 1Ah, 1Eh, 22h, 26h, 28h, 2Ch, 30h, 34h, 34h, 34h, 3Ch, 3Ch
ROM:22DD                 dc.b  14h, 14h, 14h, 14h, 14h, 16h, 1Ah, 1Eh, 20h, 22h, 26h, 2Ch, 30h, 30h, 2Ch, 36h, 36h
ROM:22DD                 dc.b  10h, 10h, 10h, 10h, 12h, 14h, 16h, 16h, 18h, 1Eh, 22h, 28h, 2Ch, 2Ch, 28h, 36h, 36h
ROM:22DD                 dc.b  0Ch, 0Ch, 0Ch, 0Ch, 12h, 12h, 14h, 14h, 14h, 1Dh, 1Fh, 24h, 2Ah, 2Ah, 28h, 36h, 36h
ROM:22DD                 dc.b    6,   6,   6, 0Ah, 12h, 12h, 14h, 14h, 14h, 1Dh, 1Fh, 24h, 2Ah, 2Ah, 28h, 32h, 32h
ROM:22DD                 dc.b    6,   6,   6, 0Ah, 12h, 12h, 14h, 14h, 14h, 1Dh, 1Fh, 24h, 2Ah, 2Ah, 28h, 32h, 32h
ROM:22DD                 dc.b    6,   6,   6, 0Ah, 12h, 12h, 14h, 14h, 14h, 1Dh, 1Fh, 24h, 2Ah, 2Ah, 28h, 32h, 32h

X-axis is integrated in the first line, so usually only Y-axis is looked up in advance.
Point pairs also have a signed/unsigned flag.
I wonder if the JTEC method is actually easier when doing table lookup.

Piton
Junior Member

Posts: 94

Table lookup deep dive Aug 16, 2022 6:32:57 GMT

Quote

Post by Piton on Aug 16, 2022 6:32:57 GMT

ROM:2C888 ; =============== S U B R O U T I N E =======================================

ROM:2C888

ROM:2C888 ; Input IX pTable

ROM:2C888

ROM:2C888 MATH_2D:                                ; CODE XREF: sub_10140+12p

ROM:2C888                                         ; sub_10140+26p ...

ROM:2C888                 pshm    Z, K
ROM:2C88A                 pshb
ROM:2C88C                 ldab    #0              ; page IX
ROM:2C88E                 tbxk
ROM:2C890                 ldz     #InterpUnsigned
ROM:2C894                 brclr   2, X, #0FFh, loc_2C89E ; Check Signed flag
ROM:2C89A                 ldz     #InterpSigned
ROM:2C89E
ROM:2C89E loc_2C89E:                              ; CODE XREF: MATH_2D+Cj
ROM:2C89E                 pulb
ROM:2C8A0                 tde                     ; Save to E = D
ROM:2C8A2                 ldaa    1, X            ; # of columns
ROM:2C8A4                 deca
ROM:2C8A6                 mul                     ; D = A * B
ROM:2C8A8                 xgab
ROM:2C8AA                 xgde
ROM:2C8AC                 ldab    0, X            ; # of rows
ROM:2C8AE                 decb
ROM:2C8B0                 mul                     ; D = A * B
ROM:2C8B2                 pshb
ROM:2C8B4                 ldab    1, X
ROM:2C8B6                 pshb                    ; Save # of columns
ROM:2C8B8                 mul                     ; D = A * B
ROM:2C8BA                 aix     #3              ; skip count the header
ROM:2C8BC                 adx                     ; IX pntDATA
ROM:2C8BE                 ted                     ; D = E
ROM:2C8C0                 abx
ROM:2C8C2                 txy                     ; IY = pntRow
ROM:2C8C4                 pulb                    ; Restore # of columns
ROM:2C8C6                 aby
ROM:2C8C8                 ldab    0, Y
ROM:2C8CA                 subb    1, Y
ROM:2C8CC                 xgab
ROM:2C8CE                 jsr     0, Z
ROM:2C8D2                 adda    0, Y
ROM:2C8D4                 psha
ROM:2C8D6                 ted
ROM:2C8D8                 ldab    0, X
ROM:2C8DA                 subb    1, X
ROM:2C8DC                 xgab
ROM:2C8DE                 jsr     0, Z
ROM:2C8E2                 adda    0, X
ROM:2C8E4                 pulb
ROM:2C8E6                 tde
ROM:2C8E8                 sba
ROM:2C8EA                 pulb
ROM:2C8EC                 jsr     0, Z
ROM:2C8F0                 psha
ROM:2C8F2                 ted
ROM:2C8F4                 pulb
ROM:2C8F6                 aba
ROM:2C8F8                 tab
ROM:2C8FA                 pulm    K, Z
ROM:2C8FC                 rts

ROM:2C8FC ; End of function MATH_2D

ROM:2C8FC
ROM:2C8FE
ROM:2C8FE ; =============== S U B R O U T I N E =======================================
ROM:2C8FE
ROM:2C8FE
ROM:2C8FE InterpSigned:                           ; DATA XREF: MATH_2D+12t
ROM:2C8FE                 blt     loc_2C90C       ; branch if less
ROM:2C900                 bra     loc_2C904
ROM:2C900 ; End of function InterpSigned
ROM:2C900
ROM:2C902
ROM:2C902 ; =============== S U B R O U T I N E =======================================
ROM:2C902
ROM:2C902
ROM:2C902 InterpUnsigned:                         ; DATA XREF: MATH_2D+8t
ROM:2C902                 bcs     loc_2C90C       ; branch if lower
ROM:2C904
ROM:2C904 loc_2C904:                              ; CODE XREF: InterpSigned+2j
ROM:2C904                 mul                     ; D = A * B
ROM:2C906                 adca    #0              ; round up
ROM:2C908                 nega
ROM:2C90A                 bra     locret
ROM:2C90C ; ---------------------------------------------------------------------------
ROM:2C90C
ROM:2C90C loc_2C90C:                              ; CODE XREF: InterpSignedj
ROM:2C90C                                         ; InterpUnsignedj
ROM:2C90C                 nega
ROM:2C90E                 mul                     ; D = A * B
ROM:2C910                 adca    #0              ; round up
ROM:2C912
ROM:2C912 locret:                                 ; CODE XREF: InterpUnsigned+8j
ROM:2C912                 rts

ROM:2C912 ; End of function InterpUnsigned

Last Edit: Aug 16, 2022 8:55:09 GMT by Piton

admin Administrator Posts: 136	Table lookup deep dive Aug 16, 2022 6:36:35 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by admin on Aug 16, 2022 6:36:35 GMT Yeah, no stack-land fun in there.

dino2gnt
Full Member

Posts: 127

Table lookup deep dive Aug 16, 2022 13:17:04 GMT

Quote

Post by dino2gnt on Aug 16, 2022 13:17:04 GMT

Aug 16, 2022 6:36:35 GMT admin said:

Yeah, no stack-land fun in there.

The table routine from 5293013AC that I have running in RAM also doesn't do all the stack math. Once I dove into it, it reads like a more simple version of the routine versus 05293190AC. That's why I started there, I thought it would be easier to understand

Piton Junior Member Posts: 94	Table lookup deep dive Aug 28, 2022 14:20:27 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by Piton on Aug 28, 2022 14:20:27 GMT My observations. Base Tables are built with an 8x8 matrix and plus a 1x1 interpretation margin As a result, the tables are 9x9 (8+1 x 8+1) or 17x9 ((8+8)+1 x 8+1) or 17x17 ((8+8)+1 x (8+8)+1)

dino2gnt
Full Member

Posts: 127

Table lookup deep dive Aug 31, 2022 1:52:57 GMT

Quote

Post by dino2gnt on Aug 31, 2022 1:52:57 GMT

What's going to be really interesting is going through this same exercise with the prescaling function. Seeing how the table lookups work has shown me the scales in a new light, and now I see routines where the prescaler is being used with what looks like an "inverted" scale to calculate an adder value to modify other values, and now I'm really curious to see what some of the outputs look like for the different scaling tables.

Last Edit: Aug 31, 2022 1:53:11 GMT by dino2gnt

Piton
Junior Member

Posts: 94

Table lookup deep dive Aug 31, 2022 6:58:39 GMT

Quote

Post by Piton on Aug 31, 2022 6:58:39 GMT

Preliminary calculation of the RPM index


;Column_1 ->RPM => X mul 32 
;Column_2 ->Index 
ROM:334F RPM_INDEX:      dc.b 17                 
ROM:334F                                         
ROM:3350                 dc.b  16,  0            ; 512 RPM ((16*32) => 512 - 608)      row_1  index  0-7
ROM:3352                 dc.b  20, 16            ; 640 RPM ((20*32) 640 - 768)         row_2  index  8-16   
ROM:3354                 dc.b  25, 32            ; 800
ROM:3356                 dc.b  28, 48            ; 896
ROM:3358                 dc.b  31, 64            ; 999
ROM:335A                 dc.b  35, 80            ; 1120
ROM:335C                 dc.b  39, 96            ; 1248
ROM:335E                 dc.b  47,112            ; 1504
ROM:3360                 dc.b  55,128            ; 1760
ROM:3362                 dc.b  62,144            ; 1984
ROM:3364                 dc.b  70,160            ; 2240
ROM:3366                 dc.b  78,176            ; 2496
ROM:3368                 dc.b  94,192            ; 3008
ROM:336A                 dc.b 109,208            ; 3488
ROM:336C                 dc.b 125,224            ; 4000
ROM:336E                 dc.b 140,240            ; 4480				   row_16  index  240 - 247									
ROM:3370                 dc.b 156,255            ; 4992 RPM ((156*32) =>4992)      row_17  index  248 - 255


;============ Preliminary calculation       ===============
ROM:12C82                 ldx     #RPM_INDEX      ; Table 1_D
ROM:12C86                 ldd     RPM, Z          ; RPM Range
ROM:12C8A                 aslb
ROM:12C8C                 adca    #0
ROM:12C8E                 jsr     INTERPOLATIN    ; Interpolatin Byte to Byte
ROM:12C92                 staa    1B0h, Z         ; >>>>>>>>>>>>>>> Set RPM_INDEX
;==========================================================


ROM:104C4                 ldx     #byte_346E      ; (RPM,MAP)
ROM:104C8
ROM:104C8 loc_104C8:                              ; CODE XREF: SPARK_ADVANCE+2E8j
ROM:104C8                                         ; SPARK_ADVANCE:loc_104BEj
ROM:104C8                 ldaa    1B0h, Z         ; RPM_INDEX
ROM:104CC                 ldab    1AFh, Z         ; MAP INDEX
ROM:104D0                 jsr     MATH_2D         ; Input IX pTable


ROM:2C766 ; =============== S U B R O U T I N E =======================================
ROM:2C766
ROM:2C766 ; Interpolatin Byte to Byte
ROM:2C766
ROM:2C766 INTERPOLATIN:                           ; CODE XREF: Task_0x10_5+Cp
ROM:2C766                                         ; Task_0x10_5+20p ...
ROM:2C766                 pshm    E, X, Y, Z, K
ROM:2C768                 ldab    #0
ROM:2C76A                 tbxk
ROM:2C76C                 ldy     #0
ROM:2C770                 ldab    0, X            ; Size
ROM:2C772                 bpl     loc_2C7A6
ROM:2C774                 andb    #7Fh
ROM:2C776                 aby
ROM:2C778                 aix     #1
ROM:2C77A                 cmpa    0, X
ROM:2C77C                 bhi     loc_2C782
ROM:2C77E
ROM:2C77E loc_2C77E:                              ; CODE XREF: INTERPOLATIN+20j
ROM:2C77E                 ldab    1, X
ROM:2C780                 bra     loc_2C7F6
ROM:2C782 ; ---------------------------------------------------------------------------
ROM:2C782
ROM:2C782 loc_2C782:                              ; CODE XREF: INTERPOLATIN+16j
ROM:2C782                                         ; INTERPOLATIN+28j
ROM:2C782                 aiy     #-1
ROM:2C786                 beq     loc_2C77E
ROM:2C788                 cmpa    2, X
ROM:2C78A                 bcs     loc_2C790
ROM:2C78C                 aix     #2
ROM:2C78E                 bra     loc_2C782
ROM:2C790 ; ---------------------------------------------------------------------------
ROM:2C790
ROM:2C790 loc_2C790:                              ; CODE XREF: INTERPOLATIN+24j
ROM:2C790                 psha
ROM:2C792                 ldab    2, X
ROM:2C794                 subb    0, X
ROM:2C796                 clra
ROM:2C798                 txy
ROM:2C79A                 xgdx
ROM:2C79C                 clrb
ROM:2C79E                 ldaa    3, Y
ROM:2C7A0                 suba    1, Y
ROM:2C7A2                 bge     loc_2C7DE
ROM:2C7A4                 bra     loc_2C7D4
ROM:2C7A6 ; ---------------------------------------------------------------------------
ROM:2C7A6
ROM:2C7A6 loc_2C7A6:                              ; CODE XREF: INTERPOLATIN+Cj
ROM:2C7A6                 aby
ROM:2C7A8                 aix     #1
ROM:2C7AA                 cmpa    0, X
ROM:2C7AC                 bhi     loc_2C7B2
ROM:2C7AE
ROM:2C7AE loc_2C7AE:                              ; CODE XREF: INTERPOLATIN+50j
ROM:2C7AE                 ldab    1, X
ROM:2C7B0                 bra     loc_2C7F6
ROM:2C7B2 ; ---------------------------------------------------------------------------
ROM:2C7B2
ROM:2C7B2 loc_2C7B2:                              ; CODE XREF: INTERPOLATIN+46j
ROM:2C7B2                                         ; INTERPOLATIN+58j
ROM:2C7B2                 aiy     #-1
ROM:2C7B6                 beq     loc_2C7AE
ROM:2C7B8                 cmpa    2, X
ROM:2C7BA                 bcs     loc_2C7C0
ROM:2C7BC                 aix     #2
ROM:2C7BE                 bra     loc_2C7B2
ROM:2C7C0 ; ---------------------------------------------------------------------------
ROM:2C7C0
ROM:2C7C0 loc_2C7C0:                              ; CODE XREF: INTERPOLATIN+54j
ROM:2C7C0                 psha
ROM:2C7C2                 ldab    2, X
ROM:2C7C4                 subb    0, X
ROM:2C7C6                 clra
ROM:2C7C8                 txy
ROM:2C7CA                 xgdx
ROM:2C7CC                 clrb
ROM:2C7CE                 ldaa    3, Y
ROM:2C7D0                 suba    1, Y
ROM:2C7D2                 bcc     loc_2C7DE
ROM:2C7D4
ROM:2C7D4 loc_2C7D4:                              ; CODE XREF: INTERPOLATIN+3Ej
ROM:2C7D4                 negd
ROM:2C7D6                 idiv
ROM:2C7D8                 xgex
ROM:2C7DA                 nege
ROM:2C7DC                 bra     loc_2C7E2
ROM:2C7DE ; ---------------------------------------------------------------------------
ROM:2C7DE
ROM:2C7DE loc_2C7DE:                              ; CODE XREF: INTERPOLATIN+3Cj
ROM:2C7DE                                         ; INTERPOLATIN+6Cj
ROM:2C7DE                 idiv
ROM:2C7E0                 xgex
ROM:2C7E2
ROM:2C7E2 loc_2C7E2:                              ; CODE XREF: INTERPOLATIN+76j
ROM:2C7E2                 pula
ROM:2C7E4                 suba    0, Y
ROM:2C7E6                 clrb
ROM:2C7E8                 emul
ROM:2C7EA                 adce    #0
ROM:2C7EE                 ldab    1, Y
ROM:2C7F0                 clra
ROM:2C7F2                 ade
ROM:2C7F4                 xgde
ROM:2C7F6
ROM:2C7F6 loc_2C7F6:                              ; CODE XREF: INTERPOLATIN+1Aj
ROM:2C7F6                                         ; INTERPOLATIN+4Aj
ROM:2C7F6                 tba
ROM:2C7F8                 pulm    K, Z, Y, X, E
ROM:2C7FA                 rts
ROM:2C7FA ; End of function INTERPOLATIN
ROM:2C7FA
ROM:2C7FC

Last Edit: Aug 31, 2022 7:24:10 GMT by Piton

dino2gnt
Full Member

Posts: 127

Table lookup deep dive Sept 2, 2022 2:34:49 GMT

Quote

Post by dino2gnt on Sept 2, 2022 2:34:49 GMT

Got the prescaling function running standalone in RAM tonight.

The value distributions are interesting, at least on the single adder scale I've put in there to play with.

Now I need to check all the scales and see if the input values are all separated by a power-of-two value...

dino2gnt
Full Member

Posts: 127

Table lookup deep dive Sept 2, 2022 13:48:09 GMT admin likes this

Quote

Post by dino2gnt on Sept 2, 2022 13:48:09 GMT

Scale:
input, output
 88,  20
 121, 11
 154, 7
 202, 3

input,output
ff,03
fe,03
fd,03
fc,03
fb,03
fa,03
f9,03
f8,03
f7,03
f6,03
f5,03
f4,03
f3,03
f2,03
f1,03
f0,03
ef,03
ee,03
ed,03
ec,03
eb,03
ea,03
e9,03
e8,03
e7,03
e6,03
e5,03
e4,03
e3,03
e2,03
e1,03
e0,03
df,03
de,03
dd,03
dc,03
db,03
da,03
d9,03
d8,03
d7,03
d6,03
d5,03
d4,03
d3,03
d2,03
d1,03
d0,03
cf,03
ce,03
cd,03
cc,03
cb,03
ca,03
--,--
c9,04
c8,04
c7,04
c6,04
c5,04
c4,04
c3,04
c2,04
c1,04
c0,04
bf,04
be,04
--,--
bd,05
bc,05
bb,05
ba,05
b9,05
b8,05
b7,05
b6,05
b5,05
b4,05
b3,05
b2,05
--,--
b1,06
b0,06
af,06
ae,06
ad,06
ac,06
ab,06
aa,06
a9,06
a8,06
a7,06
a6,06
--,--
a5,07
a4,07
a3,07
a2,07
a1,07
a0,07
9f,07
9e,07
9d,07
9c,07
9b,07
9a,07
 --,--
99,08
98,08
97,08
96,08
95,08
94,08
93,08
92,08
--,--
91,09
90,09
8f,09
8e,09
8d,09
8c,09
8b,09
8a,09
--,--
89,0a
88,0a
87,0a
86,0a
85,0a
84,0a
83,0a
82,0a
 --,--
81,0b
80,0b
7f,0b
7e,0b
7d,0b
7c,0b
7b,0b
7a,0b
79,0b
--,--
78,0c
77,0c
76,0c
 --,--
75,0d
74,0d
73,0d
72,0d
 --,--
71,0e
70,0e
6f,0e
6e,0e
 --,--
6d,0f
6c,0f
6b,0f
 --,--
6a,10
69,10
68,10
67,10
 --,--
66,11
65,11
64,11
63,11
--,--
62,12
61,12
60,12
--,--
5f,13
5e,13
5d,13
5c,13
--,--
5b,14
5a,14
59,14
58,14
57,14
56,14
55,14
54,14
53,14
52,14
51,14
50,14
4f,14
4e,14
4d,14
4c,14
4b,14
4a,14
49,14
48,14
47,14
46,14
45,14
44,14
43,14
42,14
41,14
40,14
3f,14
3e,14
3d,14
3c,14
3b,14
3a,14
39,14
38,14
37,14
36,14
35,14
34,14
33,14
32,14
31,14
30,14
2f,14
2e,14
2d,14
2c,14
2b,14
2a,14
29,14
28,14
27,14
26,14
25,14
24,14
23,14
22,14
21,14
20,14
1f,14
1e,14
1d,14
1c,14
1b,14
1a,14
19,14
18,14
17,14
16,14
15,14
14,14
13,14
12,14
11,14
10,14
0f,14
0e,14
0d,14
0c,14
0b,14
0a,14
09,14
08,14
07,14
06,14
05,14
04,14
03,14
02,14
01,14

Table lookup deep dive

Post by dino2gnt on Aug 10, 2022 18:59:42 GMT

Post by dino2gnt on Aug 14, 2022 20:29:52 GMT

Post by dino2gnt on Aug 15, 2022 2:56:46 GMT

Post by admin on Aug 15, 2022 7:35:09 GMT

Post by Piton on Aug 15, 2022 19:07:39 GMT

Post by admin on Aug 16, 2022 6:18:53 GMT

Post by Piton on Aug 16, 2022 6:32:57 GMT

Post by admin on Aug 16, 2022 6:36:35 GMT

Post by dino2gnt on Aug 16, 2022 13:17:04 GMT

Post by Piton on Aug 28, 2022 14:20:27 GMT

Post by dino2gnt on Aug 31, 2022 1:52:57 GMT

Post by Piton on Aug 31, 2022 6:58:39 GMT

Post by dino2gnt on Sept 2, 2022 2:34:49 GMT

Post by dino2gnt on Sept 2, 2022 13:48:09 GMT