Subversion Repositories ngs

Rev

Rev 163 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ; LAST UPDATE: 13.01.2024 savelij
  3.  
  4. OUT_GSDAT       MACRO NUM
  5.         IF NUM = 0
  6.                 XOR A
  7.         ELSE
  8.                 LD A,NUM
  9.         ENDIF
  10.  
  11.         IFDEF _SPRINTER
  12.                 LD (0xC000 + GSDAT),A
  13.         ELSE
  14.                 OUT (GSDAT),A
  15.         ENDIF
  16.                 ENDM
  17.  
  18. OUT_GSCOM       MACRO NUM
  19.         IF NUM = 0
  20.                 XOR A
  21.         ELSE
  22.                 LD A,NUM
  23.         ENDIF
  24.  
  25.         IFDEF _SPRINTER
  26.                 LD (0xC000 + GSCOM),A
  27.         ELSE
  28.                 OUT (GSCOM),A
  29.         ENDIF
  30.                 ENDM
  31.  
  32. IN_GSDAT        MACRO
  33.         IFDEF _SPRINTER
  34.                 LD A,(0xC000 + GSDAT)
  35.         ELSE
  36.                 IN A,(GSDAT)
  37.         ENDIF
  38.                 ENDM
  39.  
  40. IN_GSCOM        MACRO
  41.         IFDEF _SPRINTER
  42.                 LD A,(0xC000 + GSCOM)
  43.         ELSE
  44.                 IN A,(GSCOM)
  45.         ENDIF
  46.                 ENDM
  47.  
  48. OUT_GSCTR       MACRO NUM
  49.         IF NUM = 0
  50.                 XOR A
  51.         ELSE
  52.                 LD A,NUM
  53.         ENDIF
  54.  
  55.         IFDEF _SPRINTER
  56.                 LD (0xC000 + GSCTR),A
  57.         ELSE
  58.                 OUT (GSCTR),A
  59.         ENDIF
  60.                 ENDM
  61.  
  62. OUT_GSDAT_A     MACRO
  63.         IFDEF _SPRINTER
  64.                 LD (0xC000 + GSDAT),A
  65.         ELSE
  66.                 OUT (GSDAT),A
  67.         ENDIF
  68.                 ENDM
  69.  
  70. DE_ADR_SCR      MACRO x,y
  71.         IFDEF _SPRINTER
  72.                 LD DE,(y + 1) << 8 + x + 1
  73.                 CALL SET_DE_ADR_SCR
  74.         ELSE
  75.                 LD DE,(((y & 0x18) | 0x40) << 8) + (((y & 7) << 5) + x)
  76.         ENDIF
  77.                 ENDM
  78.  
  79. LD_A            MACRO NUM
  80.         IF NUM = 0
  81.                 XOR A
  82.         ELSE
  83.                 LD A,NUM
  84.         ENDIF
  85.                 ENDM
  86.