mirror of
https://gitlab.com/camelot/kickc.git
synced 2025-08-09 20:25:17 +00:00
26 lines
459 B
Plaintext
26 lines
459 B
Plaintext
byte* PROCPORT = $01;
|
|
byte* CHARGEN = $d000;
|
|
byte* SCREEN = $0400;
|
|
|
|
void main() {
|
|
asm { sei }
|
|
byte* CHAR_A = CHARGEN+8;
|
|
*PROCPORT = $32;
|
|
byte* sc = SCREEN;
|
|
for(byte y:0..7) {
|
|
byte bits = CHAR_A[y];
|
|
for(byte x:0..7) {
|
|
byte c = '.';
|
|
if((bits & $80) != 0) {
|
|
c = '*';
|
|
}
|
|
*sc = c;
|
|
sc++;
|
|
bits = bits<<1;
|
|
}
|
|
sc = sc+32;
|
|
}
|
|
*PROCPORT = $37;
|
|
asm { cli }
|
|
}
|