Cleaning up HGR code in preparation for SHR.

applecorn.s

@@ -265,7 +265,7 @@ MAINZP      MAC
             PUT   AUXMEM.MOSEQU
             PUT   AUXMEM.INIT
             PUT   AUXMEM.VDU
-            PUT   AUXMEM.GFX
+            PUT   AUXMEM.HGR
             PUT   AUXMEM.HOSTFS
             PUT   AUXMEM.OSCLI
             PUT   AUXMEM.BYTWRD
@@ -276,7 +276,7 @@ MAINZP      MAC
             PUT   MAINMEM.FSEQU
             PUT   MAINMEM.INIT
             PUT   MAINMEM.SVC
-            PUT   MAINMEM.GFX
+            PUT   MAINMEM.HGR
             PUT   MAINMEM.PATH
             PUT   MAINMEM.WILD
             PUT   MAINMEM.LISTS

auxmem.hgr.s

@@ -1,7 +1,9 @@
-* AUXMEM.GFX.S
+* AUXMEM.HGR.S
 * (c) Bobbi 2021 GPLv3
 *
-* Graphics operations
+* Routines for drawing bitmapped text and graphics in HGR mode (280x192)
+* Most of these routines call into MAINMEM.HGR.S to actually do the
+* drawing.
 *
 * 26-Sep-2021 All graphics screen code moved to here.
 * 02-Oct-2021 Added temp'y wrapper to HGRPLOT.
@@ -32,6 +34,24 @@ PRCHRSOFT    CMP   #$A0              ; Convert to screen code
 PUTCHRET     >>>   ENTAUX
              RTS
 
+
+* Calculate character address in HGR screen memory
+* This is the address of the first pixel row of the char
+* Add $0400 for each subsequent row of the char
+HCHARADDR     LDA   VDUTEXTY
+              ASL
+              TAY
+              CLC
+              LDA   HGRTAB+0,Y             ; LSB of row address
+              ADC   VDUTEXTX
+              STA   VDUADDR+0
+              LDA   HGRTAB+1,Y             ; MSB of row address
+              ADC   #$00
+              STA   VDUADDR+1
+              RTS
+* (VDUADDR)=>character address, X=preserved
+
+
 * Forwards scroll one line
 HSCR1LINE    >>>   WRTMAIN
              LDX   TXTWINLFT

auxmem.vdu.s

@@ -462,22 +462,6 @@ CHARADDROK    STA   VDUBANK
 *  VDUBANK   = AppleGS screen bank
 * CC=auxmem, CS=mainmem, X=preserved
 
-* Calculate character address in HGR screen memory
-* This is the address of the first pixel row of the char
-* Add $0400 for each subsequent row of the char
-HCHARADDR     LDA   VDUTEXTY
-              ASL
-              TAY
-              CLC
-              LDA   HGRTAB+0,Y             ; LSB of row address
-              ADC   VDUTEXTX
-              STA   VDUADDR+0
-              LDA   HGRTAB+1,Y             ; MSB of row address
-              ADC   #$00
-              STA   VDUADDR+1
-              RTS
-* (VDUADDR)=>character address, X=preserved
-
 
 * Move text cursor position
 ***************************

mainmem.hgr.s

@@ -1,7 +1,8 @@
-* MAINMEM.GFX.S
+* MAINMEM.HGR.S
 * (c) Bobbi 2021 GPLv3
 *
-* Main memory HGR graphics routines.
+* Routines for drawing bitmapped text and graphics in HGR mode (280x192)
+* Uses the FDraw library to actually do the drawing.
 
 * Call FDraw Clear routine
 CLRHGR      >>>   ENTMAIN