Rev 181 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 181 | Rev 182 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | 1 | ||
| 2 | ; LAST UPDATE 11.12.2024 savelij |
2 | ; LAST UPDATE 20.05.2025 savelij |
| 3 | 3 | ||
| 4 | include macros.a80 |
4 | include macros.a80 |
| 5 | include ports_ngs.a80 |
5 | include ports_ngs.a80 |
| 6 | include local_define.a80 |
6 | include local_define.a80 |
| 7 | 7 | ||
| Line 835... | Line 835... | ||
| 835 | PUSH BC |
835 | PUSH BC |
| 836 | DE_ADR_SCR 0,15 |
836 | DE_ADR_SCR 0,15 |
| 837 | POP BC |
837 | POP BC |
| 838 | PUSH BC |
838 | PUSH BC |
| 839 | LD A,C |
839 | LD A,C |
| - | 840 | CP CYAN |
|
| - | 841 | LD B,BLUE |
|
| - | 842 | JR C,.L3 |
|
| - | 843 | LD B,YELLOW |
|
| 840 | XOR %00000111 |
844 | .L3 XOR %00000111 |
| 841 | ADD A,A |
845 | ADD A,A |
| 842 | ADD A,A |
846 | ADD A,A |
| 843 | ADD A,A |
847 | ADD A,A |
| 844 | ADD A,A |
848 | ADD A,A |
| 845 | OR BLUE |
849 | OR B |
| 846 | LD E,A |
850 | LD E,A |
| 847 | SPBIOS BIOSF.LP_PRINT_ATR,32 |
851 | SPBIOS BIOSF.LP_PRINT_ATR,32 |
| 848 | POP BC |
852 | POP BC |
| 849 | ELSE ; SPRINTER |
853 | ELSE ; SPRINTER |
| - | 854 | CP CYAN |
|
| - | 855 | LD B,1 ; BLUE |
|
| - | 856 | JR C,.L3 |
|
| - | 857 | LD B,6 ; YELLOW |
|
| 850 | XOR %00000111 |
858 | .L3 XOR %00000111 |
| 851 | ADD A,A |
859 | ADD A,A |
| 852 | ADD A,A |
860 | ADD A,A |
| 853 | ADD A,A |
861 | ADD A,A |
| 854 | OR BLUE |
862 | OR B |
| 855 | LD HL,0x59E0 |
863 | LD HL,0x59E0 |
| 856 | LD B,32 |
864 | LD B,32 |
| 857 | .L1 LD (HL),A |
865 | .L1 LD (HL),A |
| 858 | INC L |
866 | INC L |
| 859 | DJNZ .L1 |
867 | DJNZ .L1 |