Return to addr.s CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / j

Annotation of researchv9/jerq/src/lib/j/addr.s, revision 1.1.1.1

1.1       root        1:        .text
                      2:        .def    addr;   .val    addr;   .scl    2;      .type   0144;   .endef
                      3:        .globl  addr
                      4:        .align  8
                      5: addr:
                      6:        MOVW    0(%ap),%r2              # get pointer to bitmap
                      7:        ARSH3   &5,4(%ap),%r0           # p.x >> 5
                      8:        ARSH3   &5,8(%r2),%r1           # dm->rect.origin.x >> 5
                      9:        SUBW2   %r1,%r0                 # (p.x >> 5) - (dm->rect.origin.x >> 5)
                     10:        SUBH3   10(%r2),6(%ap),%r1      # p.y - dm->rect.origin.y -> r1
                     11:        MULW2   {uword}4(%r2),%r1       # above * dm->width
                     12:        ADDW2   %r1,%r0                 # add word offsets for x and y
                     13:        ALSW3   &2,%r0,%r0              # mult by 4 to get offset in bytes -> r0
                     14:        ADDW2   0(%r2),%r0              # add Bitmap.base to offset -> r0
                     15:        RET     
                     16:        .def    addr;   .val    .;      .scl    -1;     .endef

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.