Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 548 | savelij | 1 | |
| 2 | include ../../macros.a80 |
||
| 3 | include ../../global_vars.a80 |
||
| 4 | |||
| 5 | ORG 0X6000 |
||
| 6 | DI |
||
| 7 | LD E,0X3F |
||
| 8 | LD A,0XF7 |
||
| 9 | CALL SET_PAGES |
||
| 10 | LD A,0XD7 |
||
| 11 | CALL SET_PAGES |
||
| 12 | LD BC,0X7FFD |
||
| 13 | LD A,0X10 |
||
| 14 | OUT (C),A |
||
| 15 | LD A,1 |
||
| 16 | OUT (PEVO_CONF),A |
||
| 17 | CALL READ_NUM_PAGES |
||
| 18 | LD BC,WIN_P2 |
||
| 19 | LD A,0XFD |
||
| 20 | OUT (C),A |
||
| 21 | XOR A |
||
| 22 | OUT (PEVO_CONF),A |
||
| 23 | JR $ |
||
| 24 | |||
| 25 | SET_PAGES LD BC,0X7FFD |
||
| 26 | OUT (C),A |
||
| 27 | SETPAGES2 LD D,A |
||
| 28 | LD A,E |
||
| 29 | LD (0XC000),A |
||
| 30 | DEC E |
||
| 31 | LD A,D |
||
| 32 | AND 0XC7 |
||
| 33 | RET Z |
||
| 34 | AND 7 |
||
| 35 | LD A,D |
||
| 36 | JR NZ,SETPAGES3 |
||
| 37 | SUB 0X38 |
||
| 38 | SETPAGES3 DEC A |
||
| 39 | JR SET_PAGES |
||
| 40 | |||
| 41 | READ_NUM_PAGES LD HL,0X7000 |
||
| 42 | LD D,0XC0 |
||
| 43 | LD BC,WIN_P2 |
||
| 44 | RDNUMPAGES1 OUT (C),D |
||
| 45 | INC D |
||
| 46 | RET Z |
||
| 47 | LD A,(0X8000) |
||
| 48 | LD (HL),A |
||
| 49 | INC HL |
||
| 50 | JR RDNUMPAGES1 |