the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove dangling spaces

Browse Source
This commit is contained in:
mrdudz
2022-04-17 16:06:22 +02:00
parent 3c1641e3e3
commit f8f901b05e
212 changed files with 432 additions and 432 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
libsrc/telestrat/cclear.s
View File

@@ -6,9 +6,9 @@
;
.export _cclearxy, _cclear
.import update_adscr, display_conio
.import update_adscr, display_conio
.importzp tmp1
.importzp tmp1
.import popax
.include "telestrat.inc"

4
libsrc/telestrat/chline.s
View File

@@ -4,7 +4,7 @@
;
.export _chlinexy, _chline
.import rvs, display_conio, update_adscr
.import popax
@@ -22,7 +22,7 @@ _chlinexy:
_chline:
tax ; Is the length zero?
beq @L9 ; Jump if done
@L1:
@L1:
lda #'-' ; Horizontal line screen code
ora rvs

8
libsrc/telestrat/clrscr.s
View File

@@ -4,7 +4,7 @@
.export _clrscr
.import OLD_CHARCOLOR, OLD_BGCOLOR, BGCOLOR, CHARCOLOR
.include "telestrat.inc"
.proc _clrscr
@@ -35,13 +35,13 @@
ldx #$00
stx SCRY
stx SCRX
stx OLD_BGCOLOR ; Black
stx BGCOLOR
ldx #$07 ; White
stx OLD_CHARCOLOR
stx CHARCOLOR
rts
.endproc

12
libsrc/telestrat/cputc.s
View File

@@ -6,7 +6,7 @@
.export _cputc, _cputcxy, cputdirect, display_conio
.export CHARCOLOR, OLD_CHARCOLOR, BGCOLOR, OLD_BGCOLOR
.import update_adscr
.import popax
@@ -19,13 +19,13 @@ _cputcxy:
sta SCRY ; Store Y
stx SCRX ; Store X
jsr update_adscr
pla
pla
_cputc:
cmp #$0D
bne @not_CR
ldy #$00
sty SCRX
sty SCRX
rts
@not_CR:
cmp #$0A
@@ -80,10 +80,10 @@ do_not_change_color:
sty SCRX
inc SCRY
jmp update_adscr
@no_inc:
@no_inc:
sty SCRX
rts
.endproc

4
libsrc/telestrat/gotoxy.s
View File

@@ -19,7 +19,7 @@ gotoxy: jsr popa ; Get Y
; In telemon, there is a position for the prompt, and another for the cursor.
sta SCRY
jsr popa
sta SCRX
@@ -48,6 +48,6 @@ skip:
sta ADSCR
dey
bne loop
out:
out:
rts
.endproc

12
libsrc/telestrat/joy/telestrat.s
View File

@@ -52,7 +52,7 @@ INSTALL:
lda #%11000000
sta VIA2::DDRB
sta VIA2::PRB
; We could detect joysticks because with previous command bit0,1,2,3,4 should be set to 1 after
; We could detect joysticks because with previous command bit0,1,2,3,4 should be set to 1 after
; But if some one press fire or press direction, we could reach others values which could break joystick detection.
lda #<JOY_ERR_OK
ldx #>JOY_ERR_OK
@@ -83,7 +83,7 @@ COUNT:
; PB7 and PB6 select right or left port
; When PB7 and PB6 are high, it controls two CA3083 (2 NPN transistors array) bases.
; In that case, PB0 to PB4 are set to high (it means no action are pressed)
; When the user press something then bit will be set to 0.
; When the user press something then bit will be set to 0.
; Bit 0 is right
; Bit 1 is left
; Bit 2 is fire
@@ -94,18 +94,18 @@ READ:
lda VIA2::PRB
and #%01111111
ora #%01000000
ora #%01000000
sta VIA2::PRB
; then read
lda VIA2::PRB
eor #%01011111
rts
right:
right:
lda VIA2::PRB
and #%10111111
ora #%10000000
sta VIA2::PRB
sta VIA2::PRB
; then read
lda VIA2::PRB

2
libsrc/telestrat/orixhdr.s
View File

@@ -24,7 +24,7 @@
.byte $01 ; Version of the header
.byte $00,%00000000 ; 6502 only
.byte $00,$00 ; Type of language
.byte $00,$00 ; OS version
.byte $00,$00 ; OS version
.byte $00 ; Reserved
.byte $00 ; Auto or not

2
libsrc/telestrat/sound.s
View File

@@ -33,7 +33,7 @@ sound_bip_keyboard:
rts
.endproc
.proc _zap
.proc _zap
BRK_TELEMON XZAP
rts
.endproc

6
libsrc/telestrat/syschdir.s
View File

@@ -11,7 +11,7 @@
.include "telestrat.inc"
.include "zeropage.inc"
__syschdir:
; Throw away all parameters except the name
@@ -24,9 +24,9 @@ __syschdir:
stx tmp1
ldy tmp1
; Call telemon primitive
BRK_TELEMON(XPUTCWD)
jmp initcwd ; Update cwd

8
libsrc/telestrat/sysmkdir.s
View File

@@ -9,7 +9,7 @@
.include "telestrat.inc"
.include "zeropage.inc"
__sysmkdir:
; Throw away all parameters except the name
@@ -19,11 +19,11 @@ __sysmkdir:
; Get name
jsr popax
; Call telemon primitive
BRK_TELEMON(XMKDIR)
rts

38
libsrc/telestrat/tgi/telestrat-228-200-3.s
View File

@@ -107,7 +107,7 @@ INIT:
; Switch into graphics mode.
BRK_TELEMON(XHIRES)
; Done, reset the error code.
lda #TGI_ERR_OK
@@ -255,18 +255,18 @@ GETDEFPALETTE:
SETPIXEL:
lda #$80
SETPIXELSETMODE:
sta HRSFB
lda X1
sta HRS1
lda Y1
sta HRS2
BRK_TELEMON(XCURSE)
rts
; ------------------------------------------------------------------------
@@ -291,7 +291,7 @@ LINE:
sta HRS1
lda Y1
sta HRS2
lda X2
sta HRS3
lda Y2
@@ -300,14 +300,14 @@ LINE:
lda X1+1
sta HRS1+1
lda Y1+1
lda Y1+1
sta HRS2+1
lda X2+1
sta HRS3+1
lda Y2+1
sta HRS4+1
lda Y2+1
sta HRS4+1
lda #$FF
sta HRSPAT
@@ -315,12 +315,12 @@ LINE:
BRK_TELEMON(XDRAWA)
rts
CIRCLE:
; not done yet
rts
; ------------------------------------------------------------------------
; BAR: Draw a filled rectangle with the corners X1/Y1, X2/Y2, where
; X1/Y1 = ptr1/ptr2 and X2/Y2 = ptr3/ptr4, using the current drawing color.
@@ -364,11 +364,11 @@ OUTTEXT:
; put hires cursor in X & Y
lda #$00
jsr SETPIXELSETMODE
; count the length of the string
ldy #$00
loop:
loop:
lda (ptr3),y
beq out
iny
@@ -376,10 +376,10 @@ loop:
out:
; XSCHAR routine from telemon needs to have the length of the string in X register
; copy Y register to X register. It could be optimized in 65C02 with TYX
tya
tya
tax
lda ptr3 ; XSCHAR needs in A and Y the address of the string
ldy ptr3+1
ldy ptr3+1
BRK_TELEMON(XSCHAR)
rts

44
libsrc/telestrat/tgi/telestrat-240-200-2.s
View File

@@ -124,7 +124,7 @@ INIT:
; Switch into graphics mode
BRK_TELEMON(XHIRES)
; Done, reset the error code
lda #TGI_ERR_OK
@@ -247,17 +247,17 @@ GETDEFPALETTE:
;
SETPIXEL:
lda #$80 ; curset on
SETPIXELSETMODE:
lda #$80 ; curset on
SETPIXELSETMODE:
sta HRSFB
lda X1
sta HRS1
lda Y1
sta HRS2
BRK_TELEMON(XCURSE)
rts
@@ -289,19 +289,19 @@ LINE:
sta HRS3
lda Y2
sta HRS4
lda X1+1
sta HRS1+1
lda Y1+1
lda Y1+1
sta HRS2+1
lda X2+1
sta HRS3+1
lda Y2+1
sta HRS4+1
lda Y2+1
sta HRS4+1
lda #$FF
sta HRSPAT
@@ -309,11 +309,11 @@ LINE:
BRK_TELEMON(XDRAWA)
rts
CIRCLE:
CIRCLE:
; not done yet
rts
rts
; ------------------------------------------------------------------------
; BAR: Draw a filled rectangle with the corners X1/Y1, X2/Y2, where
; X1/Y1 = ptr1/ptr2 and X2/Y2 = ptr3/ptr4 using the current drawing color.
@@ -357,11 +357,11 @@ OUTTEXT:
; put hires cursor in X & Y
lda #$00
jsr SETPIXELSETMODE
; count the length of the string
ldy #$00
loop:
loop:
lda (ptr3),y
beq out
iny
@@ -369,10 +369,10 @@ loop:
out:
; XSCHAR routine from telemon needs to have the length of the string in X register
; copy Y register to X register. It could be optimized in 65C02 with TYX
tya
tya
tax
lda ptr3 ; XSCHAR needs in A and Y the address of the string
ldy ptr3+1
ldy ptr3+1
BRK_TELEMON(XSCHAR)
rts