textio.c

Go to the documentation of this file.

 
#pragma once
 
 
void setPenRow(char row) __naked __z88dk_fastcall __preserves_regs(bc, de){
    #asm
        ld a, l
        ld (penRow), a
 
        ret
    #endasm
}
void setPenCol(char col) __naked __z88dk_fastcall __preserves_regs(bc, de){
    #asm
        ld a, l
 
        ld (penCol), a
 
        ret
    #endasm
}
void resetPen() __naked __preserves_regs(bc, de, hl){
    #asm
        xor a, a
 
        ld (penCol), a
        ld (penRow), a
        ret
    #endasm;
}
void fputs(char* loc) __naked __z88dk_fastcall{
    #asm
    push ix
    fputs_char_loop:
        ld a, (hl)
        or a
        jp z, fputs_end
        abcall(_VPutMap)
        inc hl
        jp fputs_char_loop
 
    fputs_end:
        pop ix
        ret
    #endasm
}
void println(char* loc) __z88dk_fastcall{
    fputs(loc);
    #asm
        ld a, (penRow)
        ld b, 6
        add b
        ld (penRow), a
 
        xor a, a
        ld (penCol), a
    #endasm;
}
void newline() __naked{
    #asm
        ld a, (penRow)
        ld b, 6
        add b
        ld (penRow), a
 
        xor a, a
        ld (penCol), a
        ret
    #endasm
}
void printc(char ch) __naked __z88dk_fastcall{
    #asm
        ld a, l
        push ix
        abcall(_VPutMap)
        pop ix
        ret
    #endasm
}
 
#if defined(USE_NUMBER) || defined(DOXYGEN)
 
void number(int num) __naked __z88dk_fastcall   {
    #asm
 
            ld   bc,55536
            call OneDigit_
            ld   bc,64536
            call OneDigit_
            ld   bc,65436
            call OneDigit_
            ld   c,-10
            call OneDigit_
            ld   c,b
OneDigit_:   ld   a,47         ;replace with $16 (for $17-$20)
DivideMe_:   inc  a
            add  hl,bc
            jr   c,DivideMe_
            sbc  hl,bc
            
            cp '0'
            ret z
            push ix
            abcall(_VPutMap)
            pop ix
            ret
 
 
    #endasm
}
#endif
 
#if defined(USE_HEXDUMP) || defined(DOXYGEN)
 
const char hexTab[16] = {'0', '1', '2', '3', '4', '5', '6', '7', 
    '8', '9', 'A', 'B', 'C', 'D', 'E', 'F', };
 
 
void hexdump(char v)__naked { 
    #asm
        pop hl      ; Get input
        pop bc      ; and perserve
        push bc
        push hl
        
        push ix
 
        ld a, c
        ld  hl, _hexTab
        and a, 0xF0
        SRL a
        SRL a
        SRL a
        SRL a
 
        ld e, a
        ld d, 0
        add hl, de
        ld a, (hl)
        abcall(_VPutMap)
 
        ld a, c
        ld  hl, _hexTab
        and a, 0x0F
        ld e, a
        ld d, 0
        add hl, de
        ld a, (hl)
        abcall(_VPutMap)
        
 
        pop ix
        ret
    #endasm
}
void doubleHexdump(int v) __naked __z88dk_fastcall{
    #asm
 
        push hl
        push hl
        inc sp
        call _hexdump
        inc sp
        call _hexdump
        pop hl
        ret
    #endasm
}
 
#endif