Screen 12 
Author Message
 Screen 12

I found a subroutine for BLOADing and BSAVEing the video screen in
QuickBASIC. What I need to know is the values of TOTAL!, CYCLE, and DEF SEG
to make it work for screen mode 12 (it came programmed for screen mode 9),
and if any of the OUT commands need to be changed.

SUB SCREENIO (Filnam$, MODE, RW)
total! = 24000 'space to reserve
cycle = 3          'allows for four bit plane
DEF SEG = &HA000        'Set segment for EGA/VGA graphics.
        FOR i = 0 TO cycle          'cycle through each bit plane of
EGA/VGA.
            IF RW = 1 THEN          'BLOAD files.
                OUT &H3C4, 2            'To index the map register.

                'Load each file into its corresponding bit plane.
                f$ = Filnam$ + CHR$(i + 48) + ".GRA"
                BLOAD f$, 0        '0 is the offset to page 0.
            ELSE                    'BSAVE files.
                OUT &H3CE, 4        'Select Read Map Select Register.

                'Save each bit plane in its own file.
                f$ = Filnam$ + CHR$(i + 48) + ".GRA"
                BSAVE f$, 0, total!    'SAve the visual page, at offset 0.
           END IF
        NEXT i
DEF SEG            'restores segment.
END SUB



Tue, 15 Jul 2003 16:15:10 GMT  
 Screen 12
Jon,

Quote:
>  What I need to know is the values of TOTAL!, CYCLE, and DEF

SEG to make it work for screen mode 12<

Nothing has to be changed except for the total number of bytes
per cycle, which is 38400 for SCREEN 12.

--Ethan



Wed, 16 Jul 2003 00:53:56 GMT  
 Screen 12


Quote:
> Jon,

> >  What I need to know is the values of TOTAL!, CYCLE, and DEF
> SEG to make it work for screen mode 12<

> Nothing has to be changed except for the total number of bytes
> per cycle, which is 38400 for SCREEN 12.

OK, when I do this, I get it back in black-and-white instead of color. Is
there another area of memory I should be saving? Or is the palette just
messed up?


Thu, 17 Jul 2003 05:14:45 GMT  
 
 [ 3 post ] 

 Relevant Pages 

1. faster PSET for SCREEN 12 / memory layout of SCREEN 12

2. save/load SCREEN 12 screens in QBasic?

3. Screen 12 backgrounds in QB 4.5

4. 80x60 in PowerBASIC Screen 12

5. Getting screen 12 in ASIC

6. QBasic Screen 12 Text

7. Bload and bsave in screen 12

8. :Need Help, Fading screen 12

9. palette in screen 12

10. BLOAD/BSAVE Screen 12

11. How to Bsave Screen 12 picture

12. Print text to SCREEN 12 in any color combination

 

 
Powered by phpBB® Forum Software