Skip to content

Commit 84a2af8

Browse files
GSoftwareDevelopmentGSoftwareDevelopment
committed
convert tab characters into space
1 parent e3f600a commit 84a2af8

54 files changed

Lines changed: 2349 additions & 2369 deletions

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

‎SFXMM.pas‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -71,7 +71,6 @@
7171
{$i modules/ui_helpers.inc}
7272
{$i units/heap_manage.inc}
7373
{$i modules/io/io_clear_all_data.inc}
74-
{$i modules/io/io_error.inc}
7574
{$i modules/io/io_tag_compare.inc}
7675
{$i modules/io/io_manage.inc}
7776
{$i modules/io/io_options.inc}

‎loader/loader.pas‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,11 +1,11 @@
11
const
2-
SDLST = 560;
3-
SDMCTL = 559;
4-
PFCOLS = 708;
5-
CHBAS = 756;
6-
CHARSET_ADDR = $B800;
7-
DLIST_ADDR = $BC20;
8-
SCREEN_ADDR = $BC40+7*40;
2+
SDLST = 560;
3+
SDMCTL = 559;
4+
PFCOLS = 708;
5+
CHBAS = 756;
6+
CHARSET_ADDR = $B800;
7+
DLIST_ADDR = $BC20;
8+
SCREEN_ADDR = $BC40+7*40;
99

1010
{$r resources.rc}
1111

‎modules/gsd/credits.inc‎

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,8 @@
11
procedure credits();
22
begin
3-
box(0,1,20,11,$80);
4-
putMultiText(resptr[msg_Credits],2);
5-
screen2video();
6-
kbcode:=255; repeat until kbcode<>255; kbcode:=255;
7-
move(@tmpbuf[20],@screen[20],220);
3+
box(0,1,20,11,$80);
4+
putMultiText(resptr[msg_Credits],2);
5+
screen2video();
6+
kbcode:=255; repeat until kbcode<>255; kbcode:=255;
7+
move(@tmpbuf[20],@screen[20],220);
88
end;

‎modules/gsd/dli_interrupt.inc‎

Lines changed: 42 additions & 42 deletions
Original file line numberDiff line numberDiff line change
@@ -1,67 +1,67 @@
11
const
2-
DLICount = $1c; // DLI counter used for current color table offset
3-
// on each interrupt incrase about 4
4-
// max. value 44
5-
// reset to 0 before initialize interrupt
2+
DLICount = $1c; // DLI counter used for current color table offset
3+
// on each interrupt incrase about 4
4+
// max. value 44
5+
// reset to 0 before initialize interrupt
66

77
var
8-
DLIThemeCnt:byte absolute DLICount;
9-
DLIColTab:array[0..6*5-1] of byte absolute DLI_COLOR_TABLE_ADDR;
10-
NMIEN:byte absolute $d40e;
11-
oldDLI:pointer;
8+
DLIThemeCnt:byte absolute DLICount;
9+
DLIColTab:array[0..6*5-1] of byte absolute DLI_COLOR_TABLE_ADDR;
10+
NMIEN:byte absolute $d40e;
11+
oldDLI:pointer;
1212

1313
procedure DLI_theme;assembler;interrupt;
1414
asm
1515
; Register backup for DLI interrupt
16-
_regA = $1d;
17-
_regX = $1e;
18-
_regY = $1f;
16+
_regA = $1d;
17+
_regX = $1e;
18+
_regY = $1f;
1919

20-
sta _regA ; store registers A & Y
21-
sty _regY
20+
sta _regA ; store registers A & Y
21+
sty _regY
2222

23-
ldy DLICount ; read line counter register
23+
ldy DLICount ; read line counter register
2424

25-
lda DLI_COLOR_TABLE_ADDR,y ; read first color entry
26-
sta $D012 ; store player 0 color
27-
iny ; increment y reg
28-
lda DLI_COLOR_TABLE_ADDR,y ; 2nd color
29-
sta $D013
30-
iny
31-
lda DLI_COLOR_TABLE_ADDR,y ; 3rd color
32-
sta $d014
33-
iny
34-
lda DLI_COLOR_TABLE_ADDR,y ; 4th color
35-
sta $d015
36-
iny
37-
lda DLI_COLOR_TABLE_ADDR,y ; 5th color (for background)
38-
sta $d018
39-
iny
25+
lda DLI_COLOR_TABLE_ADDR,y ; read first color entry
26+
sta $D012 ; store player 0 color
27+
iny ; increment y reg
28+
lda DLI_COLOR_TABLE_ADDR,y ; 2nd color
29+
sta $D013
30+
iny
31+
lda DLI_COLOR_TABLE_ADDR,y ; 3rd color
32+
sta $d014
33+
iny
34+
lda DLI_COLOR_TABLE_ADDR,y ; 4th color
35+
sta $d015
36+
iny
37+
lda DLI_COLOR_TABLE_ADDR,y ; 5th color (for background)
38+
sta $d018
39+
iny
4040

41-
cpy #30 ; check, if its last line?
41+
cpy #30 ; check, if its last line?
4242
bne storeRegY
43-
ldy #0 ; yes, reset register
43+
ldy #0 ; yes, reset register
4444

4545
storeRegY:
46-
sty DLICount ; store register value
46+
sty DLICount ; store register value
4747

48-
ldy _regY ; restore old A & Y register
48+
ldy _regY ; restore old A & Y register
4949
lda _regA
5050
end;
5151

5252
procedure DLIInit();
5353
begin
54-
SFX_End();
55-
NMIEN:=%00000000; // turn off DLI
56-
DLIThemeCnt:=0; // reset DLI counter
57-
getIntVec(iDLI, oldDLI);
58-
SetIntVec(iDLI, @DLI_theme);
59-
NMIEN:=%11000000; // turn on DLI
54+
SFX_End();
55+
NMIEN:=%00000000; // turn off DLI
56+
DLIThemeCnt:=0; // reset DLI counter
57+
getIntVec(iDLI, oldDLI);
58+
SetIntVec(iDLI, @DLI_theme);
59+
NMIEN:=%11000000; // turn on DLI
6060
end;
6161

6262
procedure DLIDone();
6363
begin
64-
NMIEN:=%01000000; // turn off DLI
65-
setIntVec(iDLI, oldDLI);
66-
SFX_Start();
64+
NMIEN:=%01000000; // turn off DLI
65+
setIntVec(iDLI, oldDLI);
66+
SFX_Start();
6767
end;

‎modules/gsd/gsd.pas‎

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -4,20 +4,20 @@
44

55
procedure GSDLoop();
66
begin
7-
section:=1;
8-
repeat
9-
if optionsList(menu_GSD,width_menuTop,2,section,key_Left,key_Right) then
10-
case section of
11-
0: break;
12-
1: theme_selector();
13-
end
14-
else
15-
break;
16-
until false;
7+
section:=1;
8+
repeat
9+
if optionsList(menu_GSD,width_menuTop,2,section,key_Left,key_Right) then
10+
case section of
11+
0: break;
12+
1: theme_selector();
13+
end
14+
else
15+
break;
16+
until false;
1717
end;
1818

1919
procedure GSDModule();
2020
begin
21-
GSDScreen();
22-
GSDLoop();
21+
GSDScreen();
22+
GSDLoop();
2323
end;

‎modules/gsd/gsd_view.inc‎

Lines changed: 6 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -1,16 +1,15 @@
11
procedure updateFreeMem();
22
var
3-
s:string[6];
3+
s:string[6];
44

55
begin
6-
// free:=trunc((HEAP_FreeMem/HEAP_MEMORY_SIZE)*100);
7-
str((HEAP_MEMORY_SIZE-HEAP_TOP),s);
8-
putASCIIText(20-length(s),0,s,1);
6+
str((HEAP_MEMORY_SIZE-HEAP_TOP),s);
7+
putASCIIText(20-length(s),0,s,1);
98
end;
109

1110
procedure GSDScreen();
1211
begin
13-
clearTopMenu();
14-
showAppSplash();
15-
updateFreeMem();
12+
clearTopMenu();
13+
showAppSplash();
14+
updateFreeMem();
1615
end;

‎modules/io/io.pas‎

Lines changed: 13 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -5,17 +5,17 @@
55

66
procedure IOModule();
77
begin
8-
section:=1;
9-
clearTopMenu();
10-
if optionsList(menu_IO,width_menuTop,5,section,key_Left,key_Right) then
11-
begin
12-
case section of
13-
0: exit;
14-
1: IOLoad();
15-
2: IOSave();
16-
3: IONew();
17-
4: IOQuit();
18-
end;
19-
showAppSplash();
20-
end;
8+
section:=1;
9+
clearTopMenu();
10+
if optionsList(menu_IO,width_menuTop,5,section,key_Left,key_Right) then
11+
begin
12+
case section of
13+
0: exit;
14+
1: IOLoad();
15+
2: IOSave();
16+
3: IONew();
17+
4: IOQuit();
18+
end;
19+
showAppSplash();
20+
end;
2121
end;

‎modules/io/io_clear_all_data.inc‎

Lines changed: 18 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -1,23 +1,23 @@
11
procedure IO_clearAllData();
22
begin
3-
// Clear HEAP
4-
HEAP_TOP:=HEAP_MEMORY_ADDR; // reset heap start address
5-
fillchar(pointer(HEAP_MEMORY_ADDR),HEAP_MEMORY_SIZE,$FF); // clear heap memory
6-
fillchar(@_heap_sizes,HEAP_ENTRIES*2,$FF); // clear heap sizes table
7-
fillchar(@HEAP_PTR,256,$FF); // This will also delete the indicators for SFXs and TABs
3+
// Clear HEAP
4+
HEAP_TOP:=HEAP_MEMORY_ADDR; // reset heap start address
5+
fillchar(pointer(HEAP_MEMORY_ADDR),HEAP_MEMORY_SIZE,$FF); // clear heap memory
6+
fillchar(@_heap_sizes,HEAP_ENTRIES*2,$FF); // clear heap sizes table
7+
fillchar(@HEAP_PTR,256,$FF); // This will also delete the indicators for SFXs and TABs
88

9-
// Clear other data
10-
fillchar(@SFXNoteSetOfs,maxSFXs,0);
11-
fillchar(pointer(NOTE_TABLE_ADDR),256,0);
12-
fillchar(@SFXModMode,maxSFXs,$00);
13-
fillchar(@SONGData,256,chnBlank);
14-
fillchar(@SONGTitle,SONGNameLength+1,0);
15-
move(@defaultSongTitle,@SONGTitle,length(defaultSongTitle)+1);
9+
// Clear other data
10+
fillchar(@SFXNoteSetOfs,maxSFXs,0);
11+
fillchar(pointer(NOTE_TABLE_ADDR),256,0);
12+
fillchar(@SFXModMode,maxSFXs,$00);
13+
fillchar(@SONGData,256,chnBlank);
14+
fillchar(@SONGTitle,SONGNameLength+1,0);
15+
move(@defaultSongTitle,@SONGTitle,length(defaultSongTitle)+1);
1616

17-
// Set defaults
18-
SONGChn:=0; SONGPos:=0; SONGShift:=0;
19-
currentSFX:=0; currentTAB:=0;
20-
currentOct:=defaultPianoOctave;
21-
SONG_Beat:=defaultSongBeat;
22-
SONG_tempo:=defaultSongTempo;
17+
// Set defaults
18+
SONGChn:=0; SONGPos:=0; SONGShift:=0;
19+
currentSFX:=0; currentTAB:=0;
20+
currentOct:=defaultPianoOctave;
21+
SONG_Beat:=defaultSongBeat;
22+
SONG_tempo:=defaultSongTempo;
2323
end;

0 commit comments

Comments
 (0)