Aktualności: C64 Power - online od stycznia 2000 !
0 użytkowników i 2 Gości przegląda ten wątek.
use c64xk,yk:bytexk,yk=KGetCursorKChrOut xkKChrOut ykKSetCursor 10 10loop@inc borderColorgoto loop
_borderColor equ 53280_KChrOut equ 65490 opt f+ h-_CODE_START equ $801 org [a(_CODE_START)],_CODE_START dta a($80c), a(10), b($9e), c'2061', b(0), a(0) jsr _KGetCursor txa jsr _KChrOut tya jsr _KChrOut ldx #10 ldy #10 jsr _KSetCursor_loop: inc _borderColor jmp _loop icl './platform/c64/c64.asm' icl './cpu/m6502/m6502.asm'_CODE_END equ *-1;end
KGetCursor .proc sec jmp $fff0.endpKSetCursor .proc clc jmp $fff0.endp