fixed small font and omnicalc font text to allow archived font data #14

src/gfx/text.z80

@@ -101,14 +101,15 @@ _:
   add hl,bc
   add hl,bc
   adc hl,bc
+  ld a,(font_ptr_page)
   jp p,+_
-  ld a,h
-  add a,-$40
-  ld h,a
+  or a
+  jr z,+_
+  set 6,h
+  res 7,h
+  inc a
 _:
-  ld a,(font_ptr_page)
   ld bc,3
-  adc a,b
   ld de,$8005
   call readarc
   pop bc
@@ -194,29 +195,27 @@ OmniCalcFont:
   add hl,bc
   ld bc,(FontPointer)
   adc hl,bc
+  ld a,(font_ptr_page)
   jp p,+_
-  ld a,h
-  add a,-$40
-  ld h,a
+  or a
+  jr z,+_
+  set 6,h
+  res 7,h
+  inc a
 _:
-  ld a,(font_ptr_page)
   ld bc,7
-  adc a,b
   ld de,$8005
   call readarc
-  ld de,$8005
-  ld b,7
+  ld hl,0706h
+  ld b,h
 _:
-  ld a,(hl)
+  dec e
+  ld a,(de)
   rlca
   rlca
   rlca
   ld (de),a
-  inc e
-  inc hl
   djnz -_
-  ld de,$8005
-  ld hl,0706h
   jr VputSCStepIn
 VPutSC:
 ;Inputs:
@@ -227,14 +226,15 @@ VPutSC:
   add hl,bc
   add hl,bc
   adc hl,bc ;*3
+  ld a,(font_ptr_page)
   jp p,+_
-  ld a,h
-  add a,-$40
-  ld h,a
+  or a
+  jr z,+_
+  set 6,h
+  res 7,h
+  inc a
 _:
-  ld a,(font_ptr_page)
   ld bc,3
-  adc a,b
   ld de,$8005+6
   call readarc
   ld hl,$8005+6