00001 *************************
00002 *
00003 * SETSCR.ASM
00004 * MDJ 09-25-90
00005 *
00006 * SETS UP STANDARD SCREEN
00007 * WHICH IS GENERALLY USED
00008 * AT THE BEGINNING OF ALL
00009 * PROGRAMS
00010 *
00011 * REVERSED PMODE 4 SCREEN
00012 * USING PSET (NOT PRESET)
00013 *
00014 *************************
00015 *
00016 * THIS SEQUENCE IDENTICAL
00017 * TO BASIC'S:
00018 *
00019 *   10PCLEAR4
00020 *   20PMODE4,1
00021 *   30POKE&HB2,0
00022 *   40POKE&HB3,3
00023 *   50POKE&HB4,0
00024 *   60PCLS
00025 *   70SCREEN1,1
00026 *
00027 *************************
00028 FORCOL  EQU     $B2     FOREGROUND COLOR
00029 BAKCOL  EQU     $B3     BACKGROUND COLOR
00030 WCOLOR  EQU     $B4     WORKING COLOR
00031 PCLEAR  EQU     $3E6C   SEE GPKG.ASM
00032 PMODE   EQU     $3E32   SEE GPKG.ASM
00033 PCLS    EQU     $3E4F   SEE GPKG.ASM
00034 SCREEN  EQU     $3E5F   SEE GPKG.ASM
00035 SETUP   EQU     $3E26   SEE GPKG.ASM
00036         ORG     $3ED4
00037 SETSCR  PSHS    A,B
00038         LDB     #4
00039         PSHU    B
00040         JSR     PCLEAR  PCLEAR4
00041         LDA     #4
00042         LDB     #1
00043         PSHU    A,B
00044         JSR     PMODE   PMODE4,1
00045         LDA     #0
00046         STA     FORCOL  POKE&HB2,0
00047         LDB     #3
00048         STB     BAKCOL  POKE&HB3,3
00049         STA     WCOLOR  POKE&HB4,0
00050         JSR     PCLS    PCLS
00051         LDB     #1
00052         PSHU    B
00053         JSR     SCREEN  SCREEN1,1
00054         JSR     SETUP   GO SET-UP SCREEN
00055         PULS    A,B
00056 ZEND    RTS
00057         END
 
 
 
 
 
 
 
 
 
00001 *************************
00002 *
00003 * SETSCR.ASM
00004 * MDJ 09-25-90
00005 *
00006 * SETS UP STANDARD SCREEN
00007 * WHICH IS GENERALLY USED
00008 * AT THE BEGINNING OF ALL
00009 * PROGRAMS
00010 *
00011 * REVERSED PMODE 4 SCREEN
00012 * USING PSET (NOT PRESET)
00013 *
00014 *************************
00015 *
00016 * THIS SEQUENCE IDENTICAL
00017 * TO BASIC'S:
00018 *
00019 *   10PCLEAR4
00020 *   20PMODE4,1
00021 *   30POKE&HB2,0
00022 *   40POKE&HB3,3
00023 *   50POKE&HB4,0
00024 *   60PCLS
00025 *   70SCREEN1,1
00026 *
00027 *************************
00028 FORCOL  EQU     $B2     FOREGROUND COLOR
00029 BAKCOL  EQU     $B3     BACKGROUND COLOR
00030 WCOLOR  EQU     $B4     WORKING COLOR
00031 PCLEAR  EQU     $3E6C   SEE GPKG.ASM
00032 PMODE   EQU     $3E32   SEE GPKG.ASM
00033 PCLS    EQU     $3E4F   SEE GPKG.ASM
00034 SCREEN  EQU     $3E5F   SEE GPKG.ASM
00035 SETUP   EQU     $3E26   SEE GPKG.ASM
00036         ORG     $3ED4
00037 SETSCR  PSHS    A,B
00038         LDB     #4
00039         PSHU    B
00040         JSR     PCLEAR  PCLEAR4
00041         LDA     #4
00042         LDB     #1
00043         PSHU    A,B
00044         JSR     PMODE   PMODE4,1
00045         LDA     #0
00046         STA     FORCOL  POKE&HB2,0
00047         LDB     #3
00048         STB     BAKCOL  POKE&HB3,3
00049         STA     WCOLOR  POKE&HB4,0
00050         JSR     PCLS    PCLS
00051         LDB     #1
00052         PSHU    B
00053         JSR     SCREEN  SCREEN1,1
00054         JSR     SETUP   GO SET-UP SCREEN
00055         PULS    A,B
00056 ZEND    RTS
00057         END
 
 
 
 
 
 
 
 
 
