00001 *************************
00002 *
00003 * GPSET.ASM
00004 * MDJ 04-23-91
00005 *
00006 * PSET, PSETS, AND LINE 
00007 * NORMALIZATION 
00008 * OF COORDINATES
00009 * ROUTINES PLUS PCLSS
00010 * IMPLEMENTATION
00011 *
00012 *************************
00013 *
00014 * GPSETS CALLED BY PSETS
00015 * GPSET CALLED BY PSET
00016 * GLINE CALLED BY LINE
00017 * GPCLSS CALLED BY PCLSS
00018 *
00019 * PSETS, PCLSS,
00020 * PSET & LINE IN GPKG.ASM
00021 *
00022 *************************
00023 *
00024 FORCOL  EQU     $B2
00025 BAKCOL  EQU     $B3
00026 HORBEG  EQU     $BD
00027 VERBEG  EQU     $BF
00028 SETFLG  EQU     $C2
00029 XPCLSS  EQU     $3BDE
00030 RPSET   EQU     $9374
00031 RNORM1  EQU     $931D
00032 RNORM   EQU     $9420
00033 RLINE   EQU     $94A1
00034 RSACT   EQU     $959A
00035 RXCLSS  EQU     $9563
00036 RAMROM  EQU     $FFDE
00037 ALLRAM  EQU     $FFDF
00038         ORG     $47AD
00039 GPSETS  PSHS    A
00040         LDA     #1      USE TEMP. FOREGROUND COLOR
00041         BSR     GPSET
00042         PULS    A       RESTORE CURRENT COLOR NUMBER
00043         STA     FORCOL
00044         PULS    A,B
00045         RTS
00046 GPSET   STA     SETFLG
00047         PULU    A,B
00048         STD     HORBEG
00049         PULU    A,B
00050         STD     VERBEG
00051         PSHS    A,B,X,Y,U,DP,CC
00052         STA     RAMROM  SET RAM/ROM MODE
00053         JSR     RNORM1  GO DO ROM NORMALIZE
00054         JSR     RSACT   GO DO ROM SET ACTIVE COLOR
00055         JSR     RPSET   GO DO ROM PSET
00056         STA     ALLRAM  SET ALL RAM MODE
00057         PULS    A,B,X,Y,U,DP,CC
00058         RTS
 
 
 
 
 
 
 
 
00059 GLINE   PSHS    A,B,X,Y,U,DP,CC
00060         STA     RAMROM  SET RAM/ROM MODE
00061         JSR     RNORM   GO DO ROM NORMALIZE
00062         JSR     RSACT   GO DO ROM SET ACTIVE COLOR
00063         JSR     RLINE   GO DO ROM LINE
00064         STA     ALLRAM  SET ALL RAM MODE
00065         PULS    A,B,X,Y,U,DP,CC
00066         RTS
00067 GPCLSS  PULU    A,B     GET COLOR NUMBER
00068         STA     RAMROM  SET RAM/ROM MODE
00069         JSR     RXCLSS  GO DO ROM XCLSS
00070         STA     ALLRAM  SET ALL RAM MODE
00071         JSR     XPCLSS
00072 ZEND    RTS
00073         END
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
