remove dangling spaces

This commit is contained in:
mrdudz
2022-04-17 16:06:22 +02:00
parent 5276033be1
commit c6f23eefc8
212 changed files with 432 additions and 432 deletions

View File

@@ -9,7 +9,7 @@
.import setoserror
.include "jumptab.inc"
_ChangeDiskDevice:
jsr ChangeDiskDevice
jmp setoserror

View File

@@ -10,7 +10,7 @@
.include "jumptab.inc"
.include "geossym.inc"
_ChkDkGEOS:
jsr ChkDkGEOS
jsr setoserror

View File

@@ -20,21 +20,21 @@
_dio_phys_to_log:
sta ptr1
stx ptr1+1 ; pointer to result
jsr popax
sta ptr2
stx ptr2+1 ; pointer to input structure
jsr popax
sta ptr3
stx ptr3+1 ; pointer to handle
ldy #sst_flag
lda (ptr3),y
and #128
beq _inv_hand ; handle not open or invalid
ldy #diopp_head
lda (ptr2),y
bne _inv_data ; there is only head 0
@@ -66,7 +66,7 @@ _dio_phys_to_log:
beq dio_cts1571
cmp #DRV_1581
beq dio_cts1581
lda #INCOMPATIBLE ; unsupported device
ldx #0
beq ret
@@ -78,10 +78,10 @@ dio_ctsend:
dey
lda tmp1
sta (ptr1),y
ldx #0
txa
ret:
ret:
sta __oserror
rts ; return success

View File

@@ -45,7 +45,7 @@ _dio_open:
asl a ; make index from drive id
asl a
tax
lda #0
sta sectsizetab+sst_sectsize,x
lda #128
@@ -54,7 +54,7 @@ _dio_open:
sta sectsizetab+sst_sectsize+1,x
tya
sta sectsizetab+sst_driveno,x
stx tmp1
lda #<sectsizetab
clc

View File

@@ -20,15 +20,15 @@ _dio_log_to_phys:
; check device type
sta ptr1
stx ptr1+1 ; pointer to result (struct dio_phys_pos)
jsr popax
sta ptr2
stx ptr2+1 ; pointer to input structure (pointer to int)
jsr popax
sta ptr3
stx ptr3+1 ; pointer to handle
ldy #sst_flag
lda (ptr3),y
and #128
@@ -42,18 +42,18 @@ _dio_log_to_phys:
sta (ptr1),y ; track <256
ldy #diopp_sector+1
sta (ptr1),y ; sector <256
ldy #0
lda (ptr2),y
sta tmp1
iny
iny
lda (ptr2),y
sta tmp2
; get drive info
ldy #sst_driveno
lda (ptr3),y
tay
tay
lda driveType,y
and #%00001111 ; remove ramDisk flags
cmp #DRV_1541
@@ -62,7 +62,7 @@ _dio_log_to_phys:
beq dio_stc1571
cmp #DRV_1581
beq dio_stc1581
lda #INCOMPATIBLE ; unsupported device
ldx #0
beq _ret
@@ -74,10 +74,10 @@ dio_stcend:
ldy #diopp_sector
lda tmp2
sta (ptr1),y
ldx #0
txa
_ret:
txa
_ret:
sta __oserror
rts ; return success
@@ -107,14 +107,14 @@ _nxt: bcc _found
cpx #35
bne _loop41
beq _inv_data
_found:
_found:
lda tmp1
sec
sec
sbc sectab_1541_l,x
sta tmp2
_fndend:
inx
_fndend:
inx
stx tmp1
jmp dio_stcend
@@ -128,9 +128,9 @@ dio_stc1571:
lda tmp1
cmp #<683
_if71: bcc dio_stc1541
lda tmp1
sec
sec
sbc #<683
sta tmp1
lda tmp2
@@ -139,10 +139,10 @@ _if71: bcc dio_stc1541
jsr dio_stc1541 ; will fall through here
tay
bne _ret ; result beyond track 70
ldy #diopp_track
lda (ptr1),y
clc
clc
adc #35
sta (ptr1),y
lda #0
@@ -153,26 +153,26 @@ _if71: bcc dio_stc1541
; - the remainder is sector
dio_stc1581:
ldx #0 ; index=(track-1)
_loop81:
_loop81:
lda tmp2
bne _sub81
lda tmp1
cmp #40
bcc _got81
_sub81: lda tmp1
sec
sec
sbc #40
sta tmp1
lda tmp2
sbc #0
sta tmp2
inx
inx
cpx #80
bne _loop81
beq _inv_data
_got81: lda tmp1
sta tmp2
inx
inx
stx tmp1
jmp dio_stcend

View File

@@ -8,5 +8,5 @@
.export _EnterTurbo
.include "jumptab.inc"
_EnterTurbo = EnterTurbo

View File

@@ -8,5 +8,5 @@
.export _ExitTurbo
.include "jumptab.inc"
_ExitTurbo = ExitTurbo

View File

@@ -12,7 +12,7 @@
.include "jumptab.inc"
.include "geossym.inc"
_FindBAMBit:
jsr gettrse
sta r6L

View File

@@ -9,7 +9,7 @@
.import setoserror
.include "jumptab.inc"
_NewDisk:
jsr NewDisk
jmp setoserror

View File

@@ -8,5 +8,5 @@
.export _PurgeTurbo
.include "jumptab.inc"
_PurgeTurbo = PurgeTurbo

View File

@@ -11,7 +11,7 @@
.include "jumptab.inc"
.include "geossym.inc"
_ReadBlock:
sta r4L
stx r4H

View File

@@ -11,7 +11,7 @@
.include "diskdrv.inc"
.include "geossym.inc"
_ReadBuff:
jsr gettrse
sta r1L

View File

@@ -11,7 +11,7 @@
.include "jumptab.inc"
.include "geossym.inc"
_VerWriteBlock:
sta r4L
stx r4H

View File

@@ -11,7 +11,7 @@
.include "jumptab.inc"
.include "geossym.inc"
_WriteBlock:
sta r4L
stx r4H

View File

@@ -11,7 +11,7 @@
.include "diskdrv.inc"
.include "geossym.inc"
_WriteBuff:
jsr gettrse
sta r1L