X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fgeos-cbm%2Fdisk%2Fdio_openclose.s;h=cdb9f477c03c9cc3813ddc2b4f8dd10feb9cabab;hb=refs%2Ftags%2FV2.13.3;hp=727a66dc3e349e3ef921c96cbe94de00f2436c33;hpb=286d5979a2b502156e850b2925d37d9d0bbea358;p=cc65

diff --git a/libsrc/geos-cbm/disk/dio_openclose.s b/libsrc/geos-cbm/disk/dio_openclose.s
index 727a66dc3..cdb9f477c 100644
--- a/libsrc/geos-cbm/disk/dio_openclose.s
+++ b/libsrc/geos-cbm/disk/dio_openclose.s
@@ -10,22 +10,23 @@
 ; dio_open sets given device as current and initializes disk
 ; dio_close does nothing special
 
-	.export _dio_open, _dio_close
-	.import __oserror, _OpenDisk
-	.importzp ptr1, tmp1
-	.include "dio.inc"
-        .include "jumptab.inc"
-        .include "geossym.inc"
-	.include "const.inc"
+	    .export _dio_open, _dio_close
+	    .import __oserror, _OpenDisk
+	    .importzp ptr1, tmp1
+
+	    .include "dio.inc"
+            .include "jumptab.inc"
+            .include "geossym.inc"
+	    .include "const.inc"
 
 .bss
 
 sectsizetab:
-	.res	4 * sst_size		; this is hardcoded
+	.res 4 * sst_size	; this is hardcoded
 
 .code
 
-.proc	_dio_open
+_dio_open:
 	pha
 	tax
 	lda driveType,x		; check if there's a device
@@ -39,28 +40,28 @@ sectsizetab:
 
 	pla
 	tay			; drive #
-	asl	a		; make index from drive id
-	asl	a
+	asl a			; make index from drive id
+	asl a
 	tax
-
-	lda 	#0
-	sta 	sectsizetab+sst_sectsize,x
-	lda	#128
-	sta	sectsizetab+sst_flag,x		; set flag that drive is "open"
-	lda	#1
-	sta	sectsizetab+sst_sectsize+1,x
+	    
+	lda #0
+	sta sectsizetab+sst_sectsize,x
+	lda #128
+	sta sectsizetab+sst_flag,x ; set flag that drive is "open"
+	lda #1
+	sta sectsizetab+sst_sectsize+1,x
 	tya
-	sta	sectsizetab+sst_driveno,x
-
-	stx	tmp1
-	lda	#<sectsizetab
+	sta sectsizetab+sst_driveno,x
+	    
+	stx tmp1
+	lda #<sectsizetab
 	clc
-	adc	tmp1
-	sta	tmp1
-	lda	#>sectsizetab
-	adc	#0
+	adc tmp1
+	sta tmp1
+	lda #>sectsizetab
+	adc #0
 	tax
-	lda	tmp1
+	lda tmp1
 
 	rts
 
@@ -71,15 +72,12 @@ _inv_drive:
 	tax
 	rts
 
-.endproc
-
-.proc	_dio_close
-	sta	ptr1
-	stx	ptr1+1
-	lda	#0
-	ldy	#sst_flag
-	sta	(ptr1),y
-	sta	__oserror	; success
+_dio_close:
+	sta ptr1
+	stx ptr1+1
+	lda #0
+	ldy #sst_flag
+	sta (ptr1),y
+	sta __oserror		; success
 	tax
 	rts			; return no error
-.endproc