diff --git a/games/peasant/vblank.s b/games/peasant/vblank.s
new file mode 100644
index 00000000..e2045e69
--- /dev/null
+++ b/games/peasant/vblank.s
@@ -0,0 +1,21 @@
+; wait for VBLANK
+
+; no way to do this on II/II+ short of vapor lock / floating bus
+; IIe you can read $C019 (in VBLANK when top bit 0)
+; IIc you can also read $C019 (also can setup interrupt)
+; IIgs you can read $C019 but reverse of IIe (in VBLANK when top bit 1)
+
+
+VBLANK	= $C019		;
+
+	; wait for vblank on IIe
+	; positive? during vblank
+
+wait_vblank_iie:
+	lda	VBLANK
+	bmi	wait_vblank_iie		; wait for positive (in vblank)
+wait_vblank_done_iie:
+	lda	VBLANK			; wait for negative (vlank done)
+	bpl	wait_vblank_done_iie
+
+	rts
diff --git a/vaporlock/iie/Makefile b/vaporlock/iie/Makefile
index 121a050d..cf4080f2 100644
--- a/vaporlock/iie/Makefile
+++ b/vaporlock/iie/Makefile
@@ -7,10 +7,11 @@ EMPTYDISK = ../../empty_disk/empty.dsk
 
 all:	split.dsk
 
-split.dsk:	HELLO SPLIT
+split.dsk:	HELLO SPLIT NOTWORK
 	cp $(EMPTYDISK) split.dsk
 	$(DOS33) -y split.dsk SAVE A HELLO
 	$(DOS33) -y split.dsk BSAVE -a 0x384 SPLIT
+	$(DOS33) -y split.dsk BSAVE -a 0x384 NOTWORK
 
 ###
 
@@ -27,5 +28,14 @@ split.o:	split.s
 
 ###
 
+NOTWORK:	notwork.o
+	ld65 -o NOTWORK notwork.o -C $(LINKERSCRIPTS)/apple2_384.inc
+
+notwork.o:	notwork.s
+	ca65 -o notwork.o notwork.s -l notwork.lst
+
+
+###
+
 clean:	
-	rm -f *~ *.o *.lst HELLO SPLIT
+	rm -f *~ *.o *.lst HELLO SPLIT NOTWORK
diff --git a/vaporlock/iie/README b/vaporlock/iie/README
new file mode 100644
index 00000000..30bf0cb4
--- /dev/null
+++ b/vaporlock/iie/README
@@ -0,0 +1,3 @@
+was trying some vaporlock for the AppleIIbot
+but forgot the emulator used there (linapple?)
+doesn't implement the VBLANK register, or mid-screen mode switching
diff --git a/vaporlock/iie/notwork.s b/vaporlock/iie/notwork.s
new file mode 100644
index 00000000..3d38ef95
--- /dev/null
+++ b/vaporlock/iie/notwork.s
@@ -0,0 +1,174 @@
+; split screen?
+
+; apple ii bot $C019 doesn't work, so skip it and hope for best
+
+; by Vince `deater` Weaver
+
+; zero page
+GBASL	= $26
+GBASH	= $27
+V2	= $2D
+MASK	= $2E
+COLOR	= $30
+;CTEMP	= $68
+YY	= $69
+
+FRAME	= $FC
+SUM	= $FD
+SAVEX	= $FE
+SAVEY	= $FF
+
+; soft-switches
+SET_GR	= $C050
+SET_TEXT= $C051
+FULLGR	= $C052
+TEXTGR	= $C053
+PAGE1	= $C054
+LORES	= $C056
+HIRES	= $C057
+VBLANK	= $C019		; *not* RDVBL (VBL signal low)
+
+; ROM routines
+SETCOL  = $F864		;; COLOR=A*17
+SETGR	= $FB40
+VLINE	= $F828			;; VLINE A,$2D at Y
+HGR	= $F3E2
+HPLOT0  = $F457		; plot at (Y,X), (A)
+HGLIN	= $F53A		; line to (X,A),(Y)
+
+	;================================
+	; Clear screen and setup graphics
+	;================================
+split:
+
+	jsr	SETGR		; set lo-res 40x40 mode
+
+	;===================
+	; draw lo-res lines
+
+	ldx	#39
+draw_lores_lines:
+	txa
+	tay
+	jsr	SETCOL
+
+	lda	#47
+	sta	V2
+	lda	#0
+	jsr	VLINE	; VLINE A,$2D at Y
+
+	dex
+	bpl	draw_lores_lines
+
+	;===================
+	; draw hi-res lines
+
+	jsr	HGR
+	bit	FULLGR		; make it 40x48
+
+
+	ldx	#0
+	ldy	#0
+	lda	#96
+	jsr	HPLOT0		; plot at (Y,X), (A)
+
+	ldx	#0
+	lda	#140
+	ldy	#191
+	jsr	HGLIN		; line to (X,A),(Y)
+
+	ldx	#1
+	lda	#23
+	ldy	#96
+	jsr	HGLIN		; line to (X,A),(Y)
+
+
+	; wait for vblank on IIe
+	; positive? during vblank
+
+;wait_vblank_iie:
+;	lda	VBLANK
+;	bmi	wait_vblank_iie		; wait for positive (in vblank)
+;wait_vblank_done_iie:
+;	lda	VBLANK			; wait for negative (vlank done)
+;	bpl	wait_vblank_done_iie
+
+
+	nop
+	nop
+	nop
+
+	nop
+	nop
+
+	nop
+	nop
+	nop
+
+	nop
+	nop
+
+	;
+split_loop:
+	;===========================
+	; text mode first 6*8 (48) lines
+	;	each line 65 cycles (25 hblank+40 bytes)
+
+	bit	LORES		; 4
+	bit	SET_TEXT	; 4
+
+	; wait 6*8=48 lines
+	; (48*65)-8 = 3120-8 = 3112
+
+	jsr	delay_3112
+
+	; lores next 6 lines
+
+	bit	LORES		; 4
+	bit	SET_GR		; 4
+
+	jsr	delay_3112
+
+	; hi-res for last 96 lines + horizontal blank
+	; vblank = 4550 cycles
+
+	; (96*65)+4550-7 = 6240+4550-7 = 10783
+
+	bit	HIRES		; 4
+
+	; Try X=38 Y=55 cycles=10781
+
+	nop
+
+        ldy     #55                                                     ; 2
+loop3:  ldx     #38                                                      ; 2
+loop4:  dex                                                             ; 2
+        bne     loop4                                                   ; 2nt/3
+        dey                                                             ; 2
+        bne     loop3                                                   ; 2nt/3
+
+
+
+	jmp	split_loop	; 3
+
+
+	; actually want 3112-12 (6 each for jsr/rts)
+	; 3100
+	; Try X=6 Y=86 cycles=3097
+delay_3112:
+
+	lda	$0		; 3-cycle nop
+
+        ldy     #86                                                     ; 2
+loop1:  ldx     #6                                                      ; 2
+loop2:  dex                                                             ; 2
+        bne     loop2                                                   ; 2nt/3
+        dey                                                             ; 2
+        bne     loop1                                                   ; 2nt/3
+
+	rts
+
+	; to run on bot, want this to be at $3F5
+	; so load at $384
+
+	jmp	split