1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-12-24 15:29:23 +00:00
millfork/include/stdio.mfk
Karol Stasiak 75e572f58c Library improvements:
– random module
– ensure_mixedcase() function
2018-12-30 18:59:32 +01:00

77 lines
1.2 KiB
Plaintext

// target-independent standard I/O routines
import string
#if ZX_SPECTRUM
import stdio_zxspectrum
#endif
#if not(ZX_SPECTRUM)
void putstr(pointer str, byte len) {
byte index
index = 0
while (index != len) {
putchar(str[index])
index += 1
}
}
#endif
#if NEC_PC_88
asm void putstrz(pointer hl) @$5550 extern
#endif
#if not(ZX_SPECTRUM) && not(NEC_PC_88)
void putstrz(pointer str) {
byte index
index = 0
while str[index] != 0 {
putchar(str[index])
index += 1
}
}
#endif
void putword(word w) {
byte digits
byte lastdigit
digits = 0
word mask
for mask:[40000,4000,400,40,4] {
lastdigit = 0
while w >= mask {
w -= mask
lastdigit += 4
}
mask >>= 2
while w >= mask {
w -= mask
lastdigit += 1
}
if digits != 0 || lastdigit != 0 {
putchar('0' + lastdigit)
digits += 1
}
}
if digits == 0 {
putchar('0')
}
}
#if CBM_PET
inline asm void ensure_mixedcase() {
? lda #14
! sta 59468
? rts
}
#elseif CBM
inline void ensure_mixedcase() {
putchar(14)
}
#else
inline void ensure_mixedcase() {
}
#endif