.segment        "SRPREP"
 
+; ***** entry point *****
+
 sramprep:
 .ifdef DEBUG
         print_string "entering stage #2"
 iocbok:
 .endif
 
-        ; Reopen it in Graphics 0
+        ; reopen it in Graphics 0
         lda     #OPEN
         sta     ICCOM,x
         lda     #OPNIN | OPNOT
 
 ; switch to temporary chargen
 
-        sta CHBASE
-        sta CHBAS
+        sta     CHBASE
+        sta     CHBAS
 
 ; copy shadow RAM contents to their destination (segment SHADOW_RAM)
 
         lda     #<__SHADOW_RAM2_SIZE__
         bne     do_copy2
         lda     #>__SHADOW_RAM2_SIZE__
-        beq     no_copy2                ; we have no shadow RAM contents
+        beq     no_copy2                ; we have no shadow RAM #2 contents
 
         ; ptr1 - src; ptr2 - dest; tmp1, tmp2 - len
 do_copy2:
 
 ; and that enough memory is installed (which isn't the case for a 600XL).
 ; For the non-XL target it checks whether there is enough memory
 ; installed to run the program.
-; For both target it checks that the program won't load below MEMLO.
-; If one of the checks fails the loading of the main program
+; For both targets it checks that the program won't load below MEMLO.
+; If one of the checks fails, the loading of the main program
 ; is aborted by jumping to DOSVEC.
 ;
 ; Christian Groessler, chris@groessler.org, 2013
         sta     ICCOM,x
         jsr     CIOV_org
 .endmacro
-.macro print_string2 addr, len
 
+.macro print_string2 addr, len
         ldx     #0              ; channel 0
         lda     #<addr
         sta     ICBAL,x         ; address
         lda     #PUTCHR
         sta     ICCOM,x
         jsr     CIOV_org
-
 .endmacro