restructure

femto.tal

@@ -72,15 +72,10 @@
 %pen-line { ;term/rows LDA2 #0002 SUB2 NIP }
 %pen-col { ;term/cols LDA2 #0002 SUB2 NIP }
 
-|0100
-    ;read-filename .Console/vector DEO2
+( startup )
+|0100 ;startup JMP2
 
-    ( use this if hardcoding to 80x24 )
-    ( ;setup-80x24 JSR2 )
-
-    ( use this to detect terminal size )
-    ( ;setup-terminal-size JSR2 )
-    BRK
+@startup ;read-filename .Console/vector DEO2 BRK
 
 ( ERROR HANDLING )
 
@@ -177,6 +172,7 @@
     ;filename ;open-file JSR2          ( open file )
     ;setup-linecount JSR2              ( determine # of lines )
     ;setup-terminal-size JSR2          ( detect terminal dimensions )
+    ( ;setup-80x24 JSR2                  ( hardcoded terminal size ) )
     BRK
 
 @bol