Fix codestyle

This commit is contained in:
Konstantin
2025-06-07 12:36:49 +03:00
parent 5ff18c1ebc
commit 1a109c0b34
14 changed files with 215 additions and 219 deletions

View File

@@ -5,41 +5,41 @@
; void __fastcall__ cputc (char c);
;
.import COUT
.export _cputcxy, _cputc
.import gotoxy, VTABZ
.include "agat.inc"
.import COUT
.export _cputcxy, _cputc
.import gotoxy, VTABZ
.include "agat.inc"
_cputcxy:
pha
jsr gotoxy
pla
pha
jsr gotoxy
pla
_cputc:
cmp #$0D
bne notleft
ldy #$00
sty CH
rts
notleft:cmp #$0A
beq newline
cmp #$0D
bne notleft
ldy #$00
sty CH
rts
notleft:cmp #$0A
beq newline
putchar:
ldy CH
sta (BASL),Y
iny
lda TATTR
bmi wch
sta (BASL),Y
iny
wch: sty CH
cpy WNDWDTH
bcc noend
ldy #$00
sty CH
newline:inc CV
lda CV
cmp WNDBTM
bcc :+
lda WNDTOP
sta CV
: jmp VTABZ
noend: rts
ldy CH
sta (BASL),Y
iny
lda TATTR
bmi wch
sta (BASL),Y
iny
wch:sty CH
cpy WNDWDTH
bcc noend
ldy #$00
sty CH
newline:inc CV
lda CV
cmp WNDBTM
bcc :+
lda WNDTOP
sta CV
: jmp VTABZ
noend: rts