Subversion Repositories ngs

Rev

Rev 163 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 163 Rev 165
Line 1... Line 1...
1 
 
 1 
 
2 
; LAST UPDATE: 21.04.2023 savelij
 2 
; LAST UPDATE: 13.01.2024 savelij
3 
 
 3 
 
4 
OUT_GSDAT       MACRO NUM
 4 
OUT_GSDAT       MACRO NUM
5 
        IF NUM = 0
 5 
        IF NUM = 0
6 
                XOR A
 6 
                XOR A
7 
        ELSE
 7 
        ELSE
Line 73... Line 73...
73 
                CALL SET_DE_ADR_SCR
 73 
                CALL SET_DE_ADR_SCR
74 
        ELSE
 74 
        ELSE
75 
                LD DE,(((y & 0x18) | 0x40) << 8) + (((y & 7) << 5) + x)
 75 
                LD DE,(((y & 0x18) | 0x40) << 8) + (((y & 7) << 5) + x)
76 
        ENDIF
 76 
        ENDIF
77 
                ENDM
 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