Rev 736 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 507 | savelij | 1 | |
| 761 | savelij | 2 | ;LAST UPDATE: 31.07.2017 savelij |
| 507 | savelij | 3 | |
| 573 | savelij | 4 | TAPE_EMUL LD H,CMOS_BYTE_00 |
| 507 | savelij | 5 | CALL READCMOS |
| 761 | savelij | 6 | AND M_EMUL_TAPE |
| 507 | savelij | 7 | JR NZ,EMULOADTAP |
| 553 | savelij | 8 | LD A,(RREG_A) |
| 9 | LD (RREG_C),A |
||
| 550 | savelij | 10 | CP A |
| 11 | PUSH AF |
||
| 12 | POP HL |
||
| 553 | savelij | 13 | LD (RREG_F),HL |
| 507 | savelij | 14 | RET |
| 15 | |||
| 643 | savelij | 16 | EMULOADTAP LD A,(CPU6+2) ; |
| 507 | savelij | 17 | LD IYL,A |
| 736 | savelij | 18 | ADD A,RAM_TAPE |
| 643 | savelij | 19 | LD BC,WIN_P5 |
| 507 | savelij | 20 | OUT (C),A ; |
| 643 | savelij | 21 | LD HL,(CPU6) ; |
| 553 | savelij | 22 | LD DE,(RREG_IXL) ; |
| 507 | savelij | 23 | LD A,D |
| 24 | EXX |
||
| 643 | savelij | 25 | LD BC,WIN_P6 |
| 507 | savelij | 26 | CP 0X80 |
| 27 | LD A,0XFA ; 4000-7FFF |
||
| 28 | JR C,ELT01 |
||
| 29 | LD A,0XFD ; 8000 |
||
| 30 | ELT01 OUT (C),A |
||
| 31 | LD IYH,A ; |
||
| 32 | EXX |
||
| 33 | LD A,0X40 ; 4000-7FFF 4000 |
||
| 34 | JR C,ELT02 |
||
| 35 | LD A,0 ; 8000 |
||
| 36 | ELT02 ADD A,D |
||
| 37 | LD D,A ; |
||
| 38 | SET 6,H |
||
| 39 | LD C,(HL) |
||
| 40 | INC HL |
||
| 41 | LD B,(HL) ; |
||
| 42 | INC HL |
||
| 43 | INC HL ; |
||
| 705 | savelij | 44 | DEC BC |
| 507 | savelij | 45 | DEC BC ; 2 ( CRC) |
| 46 | ELT07 LDI |
||
| 47 | JP PO,ELT05 |
||
| 48 | LD A,D |
||
| 49 | CP 0XC0 |
||
| 50 | JR C,ELT06 |
||
| 51 | LD A,IYH |
||
| 52 | CP 0XFA |
||
| 53 | JR NZ,ELT06 |
||
| 54 | LD A,0XFD |
||
| 55 | LD IYH,A |
||
| 56 | EXX |
||
| 643 | savelij | 57 | LD B,HIGH (WIN_P6) |
| 507 | savelij | 58 | OUT (C),A |
| 59 | EXX |
||
| 60 | LD D,0X80 |
||
| 61 | ELT06 LD A,H |
||
| 62 | CP 0X80 |
||
| 63 | JR C,ELT07 |
||
| 64 | INC IYL |
||
| 65 | LD A,IYL |
||
| 736 | savelij | 66 | ADD A,RAM_TAPE |
| 507 | savelij | 67 | EXX |
| 643 | savelij | 68 | LD B,HIGH (WIN_P5) |
| 507 | savelij | 69 | OUT (C),A |
| 70 | EXX |
||
| 71 | LD H,0X40 |
||
| 72 | JR ELT07 |
||
| 73 | |||
| 705 | savelij | 74 | ELT05 INC HL ; |
| 75 | RES 6,H |
||
| 665 | savelij | 76 | EVOPORT WIN_P5,0XFA ; 1 |
| 643 | savelij | 77 | LD B,HIGH (WIN_P6) |
| 507 | savelij | 78 | XOR A |
| 79 | OUT (C),A ; |
||
| 643 | savelij | 80 | LD (CPU6),HL ; |
| 507 | savelij | 81 | LD A,IYL |
| 643 | savelij | 82 | LD (CPU6+2),A ; |
| 553 | savelij | 83 | LD HL,(RREG_IXL) |
| 84 | LD DE,(RREG_E) |
||
| 507 | savelij | 85 | ADD HL,DE |
| 553 | savelij | 86 | LD (RREG_IXL),HL |
| 507 | savelij | 87 | LD HL,0 |
| 553 | savelij | 88 | LD (RREG_E),HL |
| 89 | LD HL,RREG_F |
||
| 507 | savelij | 90 | RES 6,(HL) |
| 91 | SET 0,(HL) |
||
| 92 | RET |
||
| 93 | |||
| 94 | TAPE_INIT XOR A |
||
| 643 | savelij | 95 | LD HL,CPU6 |
| 507 | savelij | 96 | LD (HL),A |
| 97 | INC L |
||
| 98 | LD (HL),A |
||
| 99 | INC L |
||
| 100 | LD (HL),A |
||
| 101 | RET |