diff --git a/src/main.S b/src/main.S
index 4f1c84e..f526a15 100644
--- a/src/main.S
+++ b/src/main.S
@@ -2,91 +2,65 @@
             typ   $B3
             dsk   main.l
 
-                              ; this doesn't actually modeset the cpu
-            mx    %00
+            ; ensure 16-bit mode (unnecessary?)
+            clc
+            xce
+            rep   #$30
+
             phk
             plb
 
-; we're going to enter into emulation mode, so we can toggle softswitches
-; doing so clobbers our stack pointer and supposedly other things so let's 
-; save the state of as many things as we can. 
 
-ncpui       da
-nstack      da
+*            sec
+*            clc
+            sep   #$30        ; a, m, x half bank
 
-; cpu status register first
-            php
-            pla
-            sta   ncpui
-
-; the stack pointer too            
-            tsc
-            sta   nstack
-
-; enable emulation mode, tell merlin we did so
-            sec
-            xce
-            sep   #$30
-            mx    %11
-
-; the manuals all seem to use zero page addresses, so we'll oblige and slide
-; the DP offset all the way up and go to bank 00
-            lda   $0000
-            pha
-            pld
-            lda   $00
+            lda   #$00
             pha
             plb
 
-; toggle the softswitches; they don't take any values. some are only triggered
-; by writes, $C054 can be triggered by a read
+            lda   #$0000
+            pha
+            pld
+
+                              ; direct acc for these?
+
+
+*; toggle the softswitches; they don't take any values. some are only triggered
+*; by writes, $C054 can be triggered by a read
             sta   $C000       ; disable 80 column store?
+
             sta   $C00C       ; disable 80 column hardware?!
-*            sta   $C050       ; set standard apple ii gfx mode
+            sta   $C050       ; set standard apple ii gfx mode
             sta   $C051       ; select text mode only. "only"?
             lda   $C054       ; select text page 1 (there are 2)
-*            lda   $C056       ; select "low res" graphics
+            lda   $C056       ; select "low res" graphics
 
-
-            lda   $CF
+            lda   #"H"
             sta   $0400
-            sta   $0480
+            lda   #"e"
+            sta   $0401
+            lda   #"l"
+            sta   $0402
+            lda   #"l"
+            sta   $0403
+            lda   #"o"
+            sta   $0404
+            lda   #" "
+            sta   $0405
+            lda   #"W"
+            sta   $0406
+            lda   #"o"
+            sta   $0407
+            lda   #"r"
+            sta   $0408
+            lda   #"l"
+            sta   $0409
+            lda   #"d"
+            sta   $040A
+            brk
 
 
-*; let's write more interesting (broken)
-*mood        asc   "this is excruciating"
-*nult        db
-*            lda   $00
-*            sta   nult        ; i.e null terminator
-
-*loop        clc
-*            ldx   #0
-*            lda   mood,x
-*            cmp   $00
-
-*            sta   $040,x
-
-*            inx
-*            bcc   loop
-
-*            brk
-
-*EPOC2
-
-*            clc
-*            xce
-*            rep   #$30
-*; disable emulation mode
-
-*            mx    %00
-*            brk
-
-*; load a char and write it to the 40 char text buffer
-*bois        lda   "B"
-*            sta   $E00400
-*            sta   $E00401
-*            sta   $E00402
-*            jmp   bois
 
 ; Important locations
 SPEAKER     equ   $E0C030
@@ -245,6 +219,46 @@ QP          adrl  $0000
 
 
 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+