v4.0/src/SELECT/PCGEQU.INC

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