Rev 678 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 678 | savelij | 1 | |
| 811 | savelij | 2 | ;LAST UPDATE: 17.03.2019 savelij |
| 678 | savelij | 3 | |
| 4 | RST8_CMP EX (SP),HL ;HL |
||
| 5 | PUSH AF ;AF |
||
| 6 | LD A,(HL) |
||
| 7 | CP _AY_PRN_INIT |
||
| 8 | JR NC,RST8_YES |
||
| 9 | RST8_NO POP AF |
||
| 10 | EX (SP),HL |
||
| 11 | LD HL,($5C5D) |
||
| 12 | LD ($5C5F),HL |
||
| 13 | JP L0053 |
||
| 14 | |||
| 15 | RST8_YES CP _AY_PRN_INIT+0X30 |
||
| 16 | JR NC,RST8_NO |
||
| 17 | PUSH BC ;BC |
||
| 18 | LD A,R |
||
| 19 | JP PE,RST8YES1 |
||
| 20 | LD A,R |
||
| 21 | RST8YES1 DI |
||
| 22 | PUSH AF ;RF |
||
| 23 | PUSH HL ;ADR_RET |
||
| 24 | PUSH DE ;RAMNROM+DOS7FFD |
||
| 811 | savelij | 25 | LD BC,RD_7FFD |
| 26 | IN A,(C) |
||
| 27 | AND 0X10 ; 0 |
||
| 28 | LD B,HIGH (RD_1WINA0) ; 0 0 |
||
| 29 | JR NZ,RST8YES2 |
||
| 30 | LD B,HIGH (RD_0WINA0) ; 0 1 |
||
| 31 | RST8YES2 IN H,(C) |
||
| 678 | savelij | 32 | IN A,(PEVO_CONF) |
| 33 | LD L,A |
||
| 34 | OR 1 |
||
| 35 | OUT (PEVO_CONF),A |
||
| 36 | LD B,HIGH (RD_DOS7FFD) |
||
| 37 | IN E,(C) |
||
| 38 | DEC B |
||
| 39 | IN D,(C) |
||
| 40 | LD BC,WIN_A0 |
||
| 41 | LD A,3 |
||
| 42 | OUT (C),A |
||
| 43 | LD B,HIGH (WIN_P0) |
||
| 44 | XOR A |
||
| 45 | JP ADR_SEL_ROM |
||
| 46 | |||
| 47 | DUPL ADR_RST8END-$,0 |
||
| 48 | RST8_END LD A,L |
||
| 49 | OUT (PEVO_CONF),A |
||
| 50 | POP DE |
||
| 51 | POP HL |
||
| 52 | POP AF |
||
| 53 | JP PO,RST8END1 |
||
| 54 | EI |
||
| 55 | RST8END1 POP BC |
||
| 56 | POP AF |
||
| 57 | EX (SP),HL |
||
| 58 | RET |