fixed chardim for the default font

src/subroutines/chardim.z80

@@ -5,13 +5,15 @@ chardim:
 ;Destroys: A
   ld b,a
   ld a,(textmode)
+  or a
+  jr z,grammer_small_size
   dec a
   jr z,var_width_size
   dec a
-  jr z,OS_large_size
-  dec a
   jr z,grammer_small_size
   dec a
+  jr z,OS_large_size
+  dec a
   jr z,OS_small_size
 OS_large_size:
   ld bc,$0608