fix codestyle
This commit is contained in:
17
libsrc/agat/_scrsize.s
Normal file
17
libsrc/agat/_scrsize.s
Normal file
@@ -0,0 +1,17 @@
|
|||||||
|
;
|
||||||
|
; Ullrich von Bassewitz, 26.10.2000
|
||||||
|
;
|
||||||
|
; Screen size variables
|
||||||
|
;
|
||||||
|
|
||||||
|
.export screensize
|
||||||
|
|
||||||
|
.include "agat.inc"
|
||||||
|
|
||||||
|
screensize:
|
||||||
|
ldx WNDWDTH
|
||||||
|
lda WNDBTM
|
||||||
|
sec
|
||||||
|
sbc WNDTOP
|
||||||
|
tay
|
||||||
|
rts
|
||||||
@@ -11,7 +11,8 @@
|
|||||||
_cclear:
|
_cclear:
|
||||||
sta ptr1
|
sta ptr1
|
||||||
lda #$A0
|
lda #$A0
|
||||||
next: jsr COUT
|
next:
|
||||||
|
jsr COUT
|
||||||
dec ptr1
|
dec ptr1
|
||||||
bne next
|
bne next
|
||||||
rts
|
rts
|
||||||
|
|||||||
@@ -13,7 +13,8 @@ _cgetc:
|
|||||||
bit cursor
|
bit cursor
|
||||||
bne hascur
|
bne hascur
|
||||||
lda #$00
|
lda #$00
|
||||||
hascur: sta CURSOR
|
hascur:
|
||||||
|
sta CURSOR
|
||||||
jsr j1
|
jsr j1
|
||||||
cmp #$A0
|
cmp #$A0
|
||||||
bpl :+
|
bpl :+
|
||||||
|
|||||||
@@ -20,7 +20,8 @@ _cputc:
|
|||||||
ldy #$00
|
ldy #$00
|
||||||
sty CH
|
sty CH
|
||||||
rts
|
rts
|
||||||
notleft:cmp #$0A
|
notleft:
|
||||||
|
cmp #$0A
|
||||||
beq newline
|
beq newline
|
||||||
putchar:
|
putchar:
|
||||||
ldy CH
|
ldy CH
|
||||||
@@ -30,16 +31,19 @@ putchar:
|
|||||||
bmi wch
|
bmi wch
|
||||||
sta (BASL),Y
|
sta (BASL),Y
|
||||||
iny
|
iny
|
||||||
wch:sty CH
|
wch:
|
||||||
|
sty CH
|
||||||
cpy WNDWDTH
|
cpy WNDWDTH
|
||||||
bcc noend
|
bcc noend
|
||||||
ldy #$00
|
ldy #$00
|
||||||
sty CH
|
sty CH
|
||||||
newline:inc CV
|
newline:
|
||||||
|
inc CV
|
||||||
lda CV
|
lda CV
|
||||||
cmp WNDBTM
|
cmp WNDBTM
|
||||||
bcc :+
|
bcc :+
|
||||||
lda WNDTOP
|
lda WNDTOP
|
||||||
sta CV
|
sta CV
|
||||||
: jmp VTABZ
|
: jmp VTABZ
|
||||||
noend: rts
|
noend:
|
||||||
|
rts
|
||||||
|
|||||||
@@ -18,11 +18,13 @@
|
|||||||
jsr init
|
jsr init
|
||||||
jsr zerobss
|
jsr zerobss
|
||||||
jsr callmain
|
jsr callmain
|
||||||
_exit: ldx #<exit
|
_exit:
|
||||||
|
ldx #<exit
|
||||||
lda #>exit
|
lda #>exit
|
||||||
jsr reset
|
jsr reset
|
||||||
jsr donelib
|
jsr donelib
|
||||||
exit: ldx #$02
|
exit:
|
||||||
|
ldx #$02
|
||||||
: lda rvsave,x
|
: lda rvsave,x
|
||||||
sta SOFTEV,x
|
sta SOFTEV,x
|
||||||
dex
|
dex
|
||||||
@@ -40,7 +42,8 @@ exit: ldx #$02
|
|||||||
|
|
||||||
.segment "ONCE"
|
.segment "ONCE"
|
||||||
|
|
||||||
init: ldx #zpspace-1
|
init:
|
||||||
|
ldx #zpspace-1
|
||||||
: lda sp,x
|
: lda sp,x
|
||||||
sta zpsave,x
|
sta zpsave,x
|
||||||
dex
|
dex
|
||||||
@@ -63,7 +66,8 @@ init: ldx #zpspace-1
|
|||||||
|
|
||||||
.code
|
.code
|
||||||
|
|
||||||
reset: stx SOFTEV
|
reset:
|
||||||
|
stx SOFTEV
|
||||||
sta SOFTEV+1
|
sta SOFTEV+1
|
||||||
eor #$A5
|
eor #$A5
|
||||||
sta PWREDUP
|
sta PWREDUP
|
||||||
|
|||||||
@@ -9,7 +9,7 @@
|
|||||||
.export __randomize
|
.export __randomize
|
||||||
.import _srand
|
.import _srand
|
||||||
|
|
||||||
.include "apple2.inc"
|
.include "agat.inc"
|
||||||
|
|
||||||
__randomize:
|
__randomize:
|
||||||
ldx RNDH ; Use random value supplied by ROM
|
ldx RNDH ; Use random value supplied by ROM
|
||||||
|
|||||||
Reference in New Issue
Block a user