diff --git a/src/constants.a b/src/constants.a
index c25e179cf..66a747667 100644
--- a/src/constants.a
+++ b/src/constants.a
@@ -17,8 +17,8 @@
 ; LC RAM BANK 2
 ; D000..D3FF - ProRWTS data
 ; D400..D66F - ProRWTS code
-; D670..DB9C - HGR font code & ProRWTS glue code
-; DB9D..DBAB - backup of stack (during gameplay and self-running demos)
+; D670..DB9B - HGR font code & ProRWTS glue code
+; DB9C..DBAA - backup of stack (during gameplay and self-running demos)
 ; ...unused...
 ; DBB4..DBFF - (de)acceleration function
 ; DC00..DFFF - HGR font data
diff --git a/src/prodos.impl.lc2.a b/src/prodos.impl.lc2.a
index bde19b179..5d6b60e91 100644
--- a/src/prodos.impl.lc2.a
+++ b/src/prodos.impl.lc2.a
@@ -193,7 +193,7 @@ ProDOS_enter
          sta   (buffer), y
          ldy   #1
          sta   (buffer), y
-         bne   @jmp_zp2
+         bne   @jmp_zp2 ;always
 
 @imp_open
          ldx   #namlo
@@ -213,26 +213,26 @@ ProDOS_enter
          sta   sizehi
          sta   sizelo
          jsr   hddopendir
-         lda   #0
-         sta   blkidx
+         stx   blkidx
          beq   @jmp_zp ;always
 
+resetval=$f0
 @imp_seek
          jsr   @set_rdwrbuff
-         lda   #0
-         sta   blkidx
-         sta   blkofflo
-         sta   blkoffhi
-         sta   reqcmd
+         ldx   #0
+         stx   blkidx
+         stx   blkofflo
+         stx   blkoffhi
+         stx   reqcmd
          jsr   @reset
          ldx   sizelo
          beq   @seek64
          sta   sizehi
          sta   sizelo
          jsr   @seekreset
-         inc   ldrlo
-         bne   @seek64
-         inc   ldrhi
+         lda   ldrhi
+         sbc   #resetval
+         sta   ldrhi
 
 @seek64
          lda   ldrhi
@@ -249,9 +249,9 @@ ProDOS_enter
 @seekreset
          jsr   hddrdwrpart
 @reset
-         lda   #$f0
+         lda   #resetval
          sta   blefthi
-         sta   bleftlo
+         stx   bleftlo
          rts
 
 @imp_read