; +----------------------+
; |                      |
; +--  size (3 or 4 bytes)
; |                      |
; +----------------------+
; |                      |
; +--  next (3 bytes)  --+
; |                      |
; +----------------------+
; |                      |
; |   available bytes    |
; |                      |

; +----------------------+
; |                      |
; +--  size (3 or 4 bytes)
; |                      |
; +----------------------+
' |
' |  Allocated data

; Entry: hl = physical address
;       ebc = logical address
__msx_incptr:
    inc     hl
    inc     c
    ret     nz
    inc     b
    jr      nz,skiphigh
    inc     e
skiphigh:
    ; We end up repaging every 256 bytes which isn't optimal§
    push    af
    call    __msx_virt2log_page
    pop    af
    ret



; Entry: ebc = logical address
;         a' = local memory page
; Exit:   hl = physical address to access (bank paged in)
;        ebc = logical address
;
; Corrupts: d,a
__msx_virt2log_page:
    ld      a,e        ;With e=0 it refers to local memory
    and     a
    jr      z,localfar
    ld      d,e
    dec     d    ;Fudge (e=0=local memory, e=1=first banked memory)
    ld      a,b
    rla
    rl      d
    rla
    rl      d
    ; d is now which bank we should look at
    ld      a,b
    and     @00111111      ;Take mod 16384
    or      @01000000   ;Map to 0x8000 page
    ld      h,a
    ld      l,c
    ; hl = offset within bank
    push    hl
    push    de
    ld      hl,__msx_bank_mappings
    ld      e,d
    ld      d,0
    add     hl,de
    ld      a,(hl)
    call    PUT_P2
    pop     de
    pop     hl
    ret

localfar:
    ex     af,af
    ld     d,a
    call   PUT_P2
    ld     a,d
    ex     af,af
    ld     hl,bc
    ret

; Entry ehl = logical address
;        hl =  int to return
lp_gint:
    call    GET_P2
    ex      af,af
    ld      bc,hl
    call    __msx_virt2log_page
    ; hl = physical address
    ld      a,(hl)
    call    __msx_incptr
    ld      h,(hl)
    ld      l,a
    ex      af,af
    call    PUT_P2
    re

    int *__far p;

    p = 0x00010000;
    printf("Far pointer value is %d\n",*p);

    *p = 52;

    printf("Value in address space 1 is %d\n", value_in_b1);