소스 검색

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

Zeda Thomas 4 년 전
부모
커밋
92349f7118
1개의 변경된 파일22개의 추가작업 그리고 22개의 파일을 삭제
  1. 22 22
      src/gfx/text.z80

+ 22 - 22
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