diff --git a/mist/Makefile b/mist/Makefile
index a353cea4..e6a152c5 100644
--- a/mist/Makefile
+++ b/mist/Makefile
@@ -54,7 +54,8 @@ LOADER: loader.o
 loader.o:	loader.s \
 	gr_copy.s gr_offsets.s gr_pageflip.s gr_putsprite_crop.s \
 	text_print.s gr_fast_clear.s decompress_fast_v2.s \
-	keyboard.s draw_pointer.s end_level.s audio.s loadstore.s
+	keyboard.s draw_pointer.s end_level.s audio.s loadstore.s \
+	qkumba_popwr.s
 	ca65 -o loader.o loader.s -l loader.lst
 
 ###
diff --git a/mist/common_routines.inc b/mist/common_routines.inc
index d50bb055..94a99f2e 100644
--- a/mist/common_routines.inc
+++ b/mist/common_routines.inc
@@ -5,50 +5,50 @@
 opendir_filename	=$1042
 
 ; linking_noise.s
-play_link_noise	=$147a
+play_link_noise	=$1590
 
 ; decompress_fast_v2.s
-decompress_lzsa2_fast	=$1496
-getsrc_smc	=$158c
+decompress_lzsa2_fast	=$15ac
+getsrc_smc	=$16a2
 
 ; draw_pointer.s
-draw_pointer	=$1599
+draw_pointer	=$16af
 
 ; end_level.s
-end_level	=$1707
+end_level	=$181d
 
 ; gr_copy.s
-gr_copy_to_current	=$1729
+gr_copy_to_current	=$183f
 
 ; gr_fast_clear.s
-clear_bottom	=$184f
-clear_all	=$188d
-clear_all_color	=$18b2
+clear_bottom	=$1965
+clear_all	=$19a3
+clear_all_color	=$19c8
 
 ; gr_offsets.s
-gr_offsets	=$18d0
+gr_offsets	=$19e6
 
 ; gr_page_flip.s
-page_flip	=$1900
+page_flip	=$1a16
 
 ; gr_putsprite_crop.s
-put_sprite_crop	=$191a
-psc_smc1	=$193d
-psc_smc2	=$19d5
+put_sprite_crop	=$1a30
+psc_smc1	=$1a53
+psc_smc2	=$1aeb
 
 ; keyboard.s
-handle_keypress	=$1a56
-change_direction	=$1b1a
-change_location	=$1b53
+handle_keypress	=$1b6c
+change_direction	=$1c30
+change_location	=$1c69
 
 ; text_print.s
-move_and_print	=$1beb
-ps_smc1	=$1c18
+move_and_print	=$1d01
+ps_smc1	=$1d2e
 
 ; page_sprites.inc
-blue_page_sprite	=$1d00
-red_page_sprite	=$1d16
-white_page_sprite	=$1d2c
-blue_page_small_sprite	=$1d42
-red_page_small_sprite	=$1d4a
+blue_page_sprite	=$1e16
+red_page_sprite	=$1e2c
+white_page_sprite	=$1e42
+blue_page_small_sprite	=$1e58
+red_page_small_sprite	=$1e60
 
diff --git a/mist/loader.s b/mist/loader.s
index 78c2d02e..887830aa 100644
--- a/mist/loader.s
+++ b/mist/loader.s
@@ -49,6 +49,7 @@ filbuf  = $3D6  ; filbuf:	.res 4			;	= bit2tbl+86
 	;===================================================
 
 loader_start:
+
 	lda	#LOAD_TITLE
 	sta	WHICH_LOAD
 
@@ -742,6 +743,7 @@ sectbl:	.byte $00,$0d,$0b,$09,$07,$05,$03,$01,$0e,$0c,$0a,$08,$06,$04,$02,$0f
 ;filbuf:		.res 4			;	= bit2tbl+86
 					;dataend         = filbuf+4
 
+	.include	"qkumba_popwr.s"
 
 
 
diff --git a/mist/qkumba_popwr.s b/mist/qkumba_popwr.s
new file mode 100644
index 00000000..e048dde4
--- /dev/null
+++ b/mist/qkumba_popwr.s
@@ -0,0 +1,209 @@
+; popwr -- code provided by qkumba
+
+;	!cpu 6502
+;	!to "popwr",plain
+;	*=$d500
+
+;bit2tbl=$dc00		; in loader.s
+
+encbuf=$e00
+frombuff=$d00
+
+
+popwr:
+	lda	#$60
+
+	and	#$70		; the slot number is in the top here
+	sta	slotpatchw1+1	; self modify the code
+	sta	slotpatchw2+1
+	sta	slotpatchw3+1
+	sta	slotpatchw4+1
+
+	; convert the input to nibbles?
+
+	ldy	#2			; why start at 2?
+aa:
+	ldx	#$aa
+b1:
+	dey
+frombuff_smc:
+	lda	frombuff, y
+	lsr
+	rol	bit2tbl-$aa, x
+	lsr
+	rol	bit2tbl-$aa, x
+	sta	encbuf, y
+	lda	bit2tbl-$aa, x
+	and	#$3f
+	sta	bit2tbl-$aa, x
+        inx
+        bne     b1
+        tya
+        bne     aa
+
+	; look for the proper sector to write
+
+cmpsecwr:
+b2:
+	jsr	readd5aa	; look for dd55aa marker
+	cmp	#$96
+	bne	b2
+
+	ldy	#3		; try getting the sector number
+b3:
+	jsr	readnib
+	rol
+	sta	tmpsec
+	jsr	readnib
+	and	tmpsec		; and with prev nibble?
+	dey
+	bne	b3
+;reqsec:
+	tay
+	bne	cmpsecwr	; retry if not what we want?
+
+        ;skip tail #$DE #$AA #$EB some #$FFs ...
+
+	ldy	#$24
+b4:
+	dey
+	bpl     b4
+
+
+	; c0e0	slot 6 ph0 off
+	; c0e1	slot 6 ph0 on
+	; c0e2	slot 6 ph1 off
+	; c0e3	slot 6 ph1 on
+	; c0e4	slot 6 ph2 off
+	; c0e5	slot 6 ph2 on
+	; c0e6	slot 6 ph3 off
+	; c0e7	slot 6 ph3 on
+	; c0e8	slot 6 motor off
+	; c0e9	slot 6 motor on
+	; c0ea	slot 6 drive 1
+	; c0eb	slot 6 drive 2
+	; c0ec	slot 6 q6 off read
+	; c0ed	slot 6 q6 on  wp sense
+	; c0ee	slot 6 q7 off read/wp sense
+	; c0ef	slot 6 q7 on  write
+
+        ; write sector data
+
+slotpatchw1:
+        ldx	#$d1
+        lda	$c08d, x	; prime drive		; c0ed if X=$60
+        lda	$c08e, x	; required by Unidisk	; c0ee
+        tya
+        sta	$c08f, x				; c0ef write
+        ora	$c08c, x				; c0ec read?
+
+        ;40 cycles
+
+        ldy	#4		; 2 cycles
+        cmp	$ea		; 3 cycles
+        cmp	($ea,x)		; 6 cycles
+b5:
+	jsr	writenib1	; (29 cycles)
+
+				; +6 cycles
+        dey			; 2 cycles
+        bne	b5		; 3 cycles if taken, 2 if not
+
+        ; 36 cycles
+                                ; +10 cycles
+	ldy	#(prolog_e-prolog)
+				; 2 cycles
+	cmp	$ea		; 3 cycles
+b6:
+	lda	prolog-1, y	; 4 cycles
+	jsr	writenib3	; (17 cycles)
+
+        ; 32 cycles if branch taken
+				; +6 cycles
+	dey			; 2 cycles
+	bne	b6		; 3 cycles if taken, 2 if not
+
+        ;36 cycles on first pass
+                                ;+10 cycles
+        tya                     ;2 cycles
+        ldy     #$56            ;2 cycles
+b7:       eor     bit2tbl-1, y    ;5 cycles
+        tax                     ;2 cycles
+        lda     xlattbl, x      ;4 cycles
+slotpatchw2:
+        ldx     #$d1            ;2 cycles
+        sta     $c08d, x        ;5 cycles
+        lda     $c08c, x        ;4 cycles
+
+        ;32 cycles if branch taken
+
+        lda     bit2tbl-1, y    ;5 cycles
+        dey                     ;2 cycles
+        bne     b7               ;3 cycles if taken, 2 if not
+
+        ;32 cycles
+                                ;+9 cycles
+        clc                     ;2 cycles
+b88:      eor     encbuf, y       ;4 cycles
+b8:       tax                     ;2 cycles
+        lda     xlattbl, x      ;4 cycles
+slotpatchw3:
+        ldx     #$d1            ;2 cycles
+        sta     $c08d, x        ;5 cycles
+        lda     $c08c, x        ;4 cycles
+        bcs     f1               ;3 cycles if taken, 2 if not
+
+        ;32 cycles if branch taken
+
+        lda     encbuf, y       ;4 cycles
+        iny                     ;2 cycles
+        bne     b88              ;3 cycles if taken, 2 if not
+
+        ;32 cycles
+                                ;+10 cycles
+        sec                     ;2 cycles
+        bcs     b8               ;3 cycles
+
+        ;32 cycles
+                                ;+3 cycles
+f1:       ldy     #(epilog_e-epilog)
+                                ;2 cycles
+        cmp     ($ea,x)         ;6 cycles
+b9:       lda     epilog-1, y     ;4 cycles
+        jsr     writenib3       ;(17 cycles)
+
+        ;32 cycles if branch taken
+                                ;+6 cycles
+        dey                     ;2 cycles
+        bne     b9               ;3 cycles if branch taken, 2 if not
+
+        lda     $c08e, x
+        lda     $c08c, x
+        lda     $c088, x
+	rts
+
+writenib1:
+        cmp     ($ea,x)         ;6 cycles
+        cmp     ($ea,x)         ;6 cycles
+writenib3:
+slotpatchw4:
+        ldx     #$d1            ;2 cycles
+writenib4:
+        sta     $c08d, x        ;5 cycles
+        ora     $c08c, x        ;4 cycles
+        rts                     ;6 cycles
+
+prolog:	.byte $ad, $aa, $d5
+prolog_e:
+epilog:	.byte $ff, $eb, $aa, $de
+epilog_e:
+
+xlattbl:
+.byte $96,$97,$9A,$9B,$9D,$9E,$9F,$A6
+.byte $A7,$AB,$AC,$AD,$AE,$AF,$B2,$B3
+.byte $B4,$B5,$B6,$B7,$B9,$BA,$BB,$BC
+.byte $BD,$BE,$BF,$CB,$CD,$CE,$CF,$D3
+.byte $D6,$D7,$D9,$DA,$DB,$DC,$DD,$DE
+.byte $DF,$E5,$E6,$E7,$E9,$EA,$EB,$EC
+.byte $ED,$EE,$EF,$F2,$F3,$F4,$F5,$F6
+.byte $F7,$F9,$FA,$FB,$FC,$FD,$FE,$FF