Subversion Repositories ngs

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ; LAST UPDATE: 19.04.2023 savelij
  3.  
  4. ; RGC - номер функции BIOS
  5. ; RGB - регистр B
  6. ; RGA - регистр A
  7. SPBIOS          MACRO RGC,RGB,RGA,RGIX
  8.         IFNB RGIX
  9.                 LD IX,RGIX
  10.         ENDIF
  11.  
  12.         IFNB RGA
  13.         IF RGA = 0
  14.                 XOR A
  15.         ELSE
  16.                 LD A,RGA
  17.         ENDIF
  18.         ENDIF
  19.  
  20.         IFNB RGB
  21.                 LD BC,RGB << 8 + RGC
  22.         ELSE
  23.                 LD C,RGC
  24.         ENDIF
  25.                 RST 8
  26.                 ENDM
  27.  
  28. SPDSS           MACRO RGC,RGB,RGA,RGIX
  29.         IFNB RGIX
  30.                 LD IX,RGIX
  31.         ENDIF
  32.  
  33.         IFNB RGA
  34.         IF RGA = 0
  35.                 XOR A
  36.         ELSE
  37.                 LD A,RGA
  38.         ENDIF
  39.         ENDIF
  40.  
  41.         IFNB RGB
  42.                 LD BC,RGB << 8 + RGC
  43.         ELSE
  44.                 LD C,RGC
  45.         ENDIF
  46.                 RST 0x10
  47.                 ENDM
  48.