v4.0/src/INC/PCGEQU.INC

   1
   2 ;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""          =B
   3 ;              CONDITIONAL ASSEMBLY CONTROLS
   4 ;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""          =B
   5 WINTHORN        EQU      1       ;OS/2 compatible
   6
   7 ;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""          =B
   8 ;                VIDEO REGISTER PORT ADDRESS EQUATES                              =B
   9 ;                                                                                 =B
  10 ;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""          =B
  11 seq_addr        EQU     0C4H    ;Sequencer  Address                               =B
  12 seq_data        EQU     0C5H    ;Sequencer  Data                                  =B
  13 crtc_addr       EQU     0D4H    ;CRT Controller Address (Color)                   =B
  14 crtc_addr_b     EQU     0B4H    ;CRT Controller Address (Mono)                    =B
  15 crtc_data       EQU     0D5H    ;CRT Controller Data                              =B
  16 graph_1_pos     EQU     0CCH    ;Graphics 1 Position                              =B
  17 graph_2_pos     EQU     0CAH    ;Graphics 2 Position                              =B
  18 graph_addr      EQU     0CEH    ;Graphics 1 & 2 Address                           =B
  19 graph_data      EQU     0CFH    ;Graphics 1 & 2 Data                              =B
  20 misc_output     EQU     0C2H    ;Miscellaneous Output                             =B
  21 misc_read       EQU     0CCH    ;Miscellaneous Output Read Port Address           =B
  22 in_stat_0       EQU     0C2H    ;Input Status Register 0                          =B
  23 input_status_b  EQU     0BAH    ;Feature Control (Mono)                           =B
  24 input_status    EQU     0DAH    ;Feature Control (Color)                          =B
  25 attr_read       EQU     0C1H    ;Attribute Controller Read Address                =B
  26 attr_write      EQU     0C0H    ;Attribute Controller Write Address               =B
  27 fctrl_read      EQU     0CAH    ;Feature Control Regiester Read Address           =B
  28
  29 ;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  30 ;            SEQUENCER ADDRESS REGISTER EQUATES
  31 ;
  32 ;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  33 s_reset         EQU     00H     ;Reset                                            =B
  34 s_clock         EQU     01H     ;Clocking Mode                                    =B
  35 s_map           EQU     02H     ;Map Mask                                         =B
  36 s_cgen          EQU     03H     ;Character Map Select                             =B
  37 s_mem           EQU     04H     ;Memory Mode                                      =B
  38
  39
  40 ;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  41 ;            GRAPHICS ADDRESS REGISTER EQUATES
  42 ;
  43 ;"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
  44 g_set_reset     EQU     00H     ;set/reset                                        =B
  45 g_enbl_set      EQU     01H     ;enable set/reset                                 =B
  46 g_clr_comp      EQU     02H     ;color compare                                    =B
  47 g_data_rot      EQU     03H     ;data rotate                                      =B
  48 g_read_map      EQU     04H     ;read map select                                  =B
  49 g_mode          EQU     05H     ;mode                                             =B
  50 g_misc          EQU     06H     ;miscellaneous                                    =B
  51 g_color         EQU     07H     ;color don't care                                 =B
  52 g_bit_mask      EQU     08H     ;bit mask                                         =B
  53
  54 ;---------------------------------------------------------------------+
  55 ;                                                                     |
  56 ;        Miscellaneous Equates                                        |
  57 ;                                                                     |
  58 ;---------------------------------------------------------------------+
  59
  60 LINELEN        EQU  80                       ; Length of a Graphics Buffer Line
  61 COLPELS        EQU  8                        ; Number of pels per text column
  62 ;DEFROFFU       EQU  1                        ; Default Pointer Icon Row Center Offset
  63 ;DEFROFFD       EQU  14                       ; Default Pointer Icon Row Center Offset
  64 ;DEFCOFFR       EQU  11                       ; Default Pointer Icon Column Center Offst
  65 ;DEFCOFFL       EQU  4                        ; Default Pointer Icon Column Center Offst
  66 ;ICONROWS       EQU  16                       ; Number of Rows in Pointer Icon
  67 ;M_WHITE        EQU  15                       ;default foreground color (icon)
  68 ;M_DAXIS        EQU  11                       ;default axis mouse pointer
  69
  70 DEFROFFU       EQU  1                        ; Default Pointer Icon Row Center Offset
  71 DEFROFFD       EQU  14                       ; Default Pointer Icon Row Center Offset
  72 DEFCOFFR       EQU  14                       ; Default Pointer Icon Column Center Offst
  73 DEFCOFFL       EQU  2                        ; Default Pointer Icon Column Center Offst
  74 ICONROWS       EQU  20                       ; Number of Rows in Pointer Icon
  75 M_DAXIS        EQU  800                      ;default axis mouse pointer
  76
  77 ICONCOLS       EQU  16                       ; Number of Columns in Pointer Icon
  78 SHFTMSK        EQU  07H                      ; Column Shift Count Bit Mask (Hi-Res)
  79 M_BLACK        EQU  0                        ;default background color (icon)
  80 M_WHITE        EQU  15                       ;default foreground color (icon)
  81 VSICONR        EQU  28                       ;# pel rows
  82 VSICONC        EQU  2*8                      ;# pel columns
  83 MVSICONR       EQU  16                       ;minimun pel rows in sb icon
  84 MHSICONC       EQU  3*8                      ;minimum pel cols in sb icon
  85
  86 ;;
  87 ;;  Long Conditional Jump Macros
  88 ;;
  89 lja             macro   Farlabel
  90                 local   Nearlabel
  91                 jna     Nearlabel
  92                 jmp     Farlabel
  93 Nearlabel:
  94                 endm
  95 ljae            macro   Farlabel
  96                 local   Nearlabel
  97                 jnae    Nearlabel
  98                 jmp     Farlabel
  99 Nearlabel:
 100                 endm
 101 ljb             macro   Farlabel
 102                 local   Nearlabel
 103                 jnb     Nearlabel
 104                 jmp     Farlabel
 105 Nearlabel:
 106                 endm
 107 ljc             macro   Farlabel
 108                 local   Nearlabel
 109                 jnc     Nearlabel
 110                 jmp     Farlabel
 111 Nearlabel:
 112                 endm
 113 ljbe            macro   Farlabel
 114                 local   Nearlabel
 115                 jnbe    Nearlabel
 116                 jmp     Farlabel
 117 Nearlabel:
 118                 endm
 119 lje             macro   Farlabel
 120                 local   Nearlabel
 121                 jne     Nearlabel
 122                 jmp     Farlabel
 123 Nearlabel:
 124                 endm
 125 ljz             macro   Farlabel
 126                 local   Nearlabel
 127                 jnz     Nearlabel
 128                 jmp     Farlabel
 129 Nearlabel:
 130                 endm
 131 ljg             macro   Farlabel
 132                 local   Nearlabel
 133                 jng     Nearlabel
 134                 jmp     Farlabel
 135 Nearlabel:
 136                 endm
 137 ljge            macro   Farlabel
 138                 local   Nearlabel
 139                 jnge    Nearlabel
 140                 jmp     Farlabel
 141 Nearlabel:
 142                 endm
 143 ljl             macro   Farlabel
 144                 local   Nearlabel
 145                 jnl     Nearlabel
 146                 jmp     Farlabel
 147 Nearlabel:
 148                 endm
 149 ljle            macro   Farlabel
 150                 local   Nearlabel
 151                 jnle    Nearlabel
 152                 jmp     Farlabel
 153 Nearlabel:
 154                 endm
 155 ljnc            macro   Farlabel
 156                 local   Nearlabel
 157                 jc      Nearlabel
 158                 jmp     Farlabel
 159 Nearlabel:
 160                 endm
 161 ljne            macro   Farlabel
 162                 local   Nearlabel
 163                 je      Nearlabel
 164                 jmp     Farlabel
 165 Nearlabel:
 166                 endm
 167 ljnz            macro   Farlabel
 168                 local   Nearlabel
 169                 jz      Nearlabel
 170                 jmp     Farlabel
 171 Nearlabel:
 172                 endm
 173 ljno            macro   Farlabel
 174                 local   Nearlabel
 175                 jo      Nearlabel
 176                 jmp     Farlabel
 177 Nearlabel:
 178                 endm
 179 ljo             macro   Farlabel
 180                 local   Nearlabel
 181                 jno     Nearlabel
 182                 jmp     Farlabel
 183 Nearlabel:
 184                 endm