Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 627 | savelij | 1 | |
| 2 | ;LAST UPDATE: 09.12.2013 savelij |
||
| 3 | |||
| 4 | ; DISPLAY "FREE BEFORE 0X3C30=",0X3C30-$ |
||
| 5 | ; DUPL 0X3C30-$,0XFF; DS 0X3C30-$,0XFF |
||
| 6 | ;��� � 5.04 �⮨� IN A,(0X1F):RET |
||
| 7 | ;� 5.03 ���� |
||
| 8 | IN A,(0X1F) |
||
| 9 | RET |
||
| 10 | IF atm=3; IFN atm |
||
| 11 | JUMP_RES |
||
| 12 | LD BC,0XFFF7 |
||
| 13 | OUT (C),D |
||
| 14 | LD BC,0X7FFD |
||
| 15 | OUT (C),E |
||
| 16 | JP (HL) |
||
| 17 | RETURN_COM_END |
||
| 18 | PUSH BC |
||
| 19 | PUSH AF |
||
| 20 | LD A,R |
||
| 21 | JP PO,$+6 |
||
| 22 | NOP |
||
| 23 | JR $+4 |
||
| 24 | LD A,R |
||
| 25 | DI |
||
| 26 | LD BC,0XFFF7 |
||
| 27 | OUT (C),D |
||
| 28 | LD BC,0X7FFD |
||
| 29 | OUT (C),E |
||
| 30 | JP 0XDB0E ;�� �窨 �室� ��� ���ᬠ |
||
| 31 | RES_WL |
||
| 32 | LD BC,0XFFF7 |
||
| 33 | OUT (C),H |
||
| 34 | LD BC,0X7FFD |
||
| 35 | OUT (C),L |
||
| 36 | EXX |
||
| 37 | RWL_CKL |
||
| 38 | LD A,(HL) |
||
| 39 | SUB 2 |
||
| 40 | ;LD E,A ;for nextpage |
||
| 41 | JR C,RWL_END;!!! |
||
| 42 | AND 0X3F |
||
| 43 | LD E,A |
||
| 44 | INC HL |
||
| 45 | LD A,C |
||
| 46 | CP (HL) |
||
| 47 | INC HL |
||
| 48 | LD A,(HL) |
||
| 49 | ADD HL,DE |
||
| 50 | JR NZ,RWL_CKL |
||
| 51 | CP B |
||
| 52 | JR NZ,RWL_CKL |
||
| 53 | RWL_END EXX |
||
| 54 | OUT (C),E |
||
| 55 | LD BC,0XFFF7 |
||
| 56 | OUT (C),D |
||
| 57 | RET |
||
| 58 | ENDIF |
||
| 59 | |||
| 60 | IF resident=1; IFN resident |
||
| 61 | ;ORG 0X3C48 |
||
| 62 | ;NORESC000 |
||
| 63 | ;JP PPNORESC000;0X379A |
||
| 64 | ;A7JP9 |
||
| 65 | ;LD A,0X07 |
||
| 66 | ;JP 0X0009 |
||
| 67 | NACALO |
||
| 68 | ;��ઠ १����⮢ (3 ࠧ���) |
||
| 69 | ;jp �� 4 |
||
| 70 | ;����� a,7:jr 9 |
||
| 71 | LD SP,0X5BFF |
||
| 72 | ;��ઠ �����㬥�������� १����� 0XC000 |
||
| 73 | LD A,0XC7;1F |
||
| 74 | CALL MEMDRV_ |
||
| 75 | LD HL,0XC000 |
||
| 76 | LD A,(HL) |
||
| 77 | CP 0XC3 |
||
| 78 | NORESC000 |
||
| 79 | JP NZ,PPNORESC000 |
||
| 80 | XOR A |
||
| 81 | LL3c61 ADD A,(HL) |
||
| 82 | ADC A,0 |
||
| 83 | INC HL |
||
| 84 | BIT 7,H |
||
| 85 | JR NZ,LL3c61 |
||
| 86 | DEC A |
||
| 87 | JR NZ,NORESC000 |
||
| 88 | LD A,0XAA |
||
| 89 | DEC HL |
||
| 90 | CP (HL) |
||
| 91 | JR NZ,NORESC000 |
||
| 92 | CPL |
||
| 93 | DEC HL |
||
| 94 | CP (HL) |
||
| 95 | JR NZ,NORESC000 |
||
| 96 | LD HL,0XD000 |
||
| 97 | LD DE,0X5B00 |
||
| 98 | LD BC,0X2500 |
||
| 99 | LDIR |
||
| 100 | LD SP,0X5F00 |
||
| 101 | LD A,0XC6;1E |
||
| 102 | ;CALL MEMDRV |
||
| 103 | CALL LDIfrC0 |
||
| 104 | LD A,0X03 |
||
| 105 | ;CALL MEMDRV |
||
| 106 | CALL LDItoC0 |
||
| 107 | LD A,0XC5;1D |
||
| 108 | ;CALL MEMDRV |
||
| 109 | CALL LDIfrC0 |
||
| 110 | LD A,0X01 |
||
| 111 | ;CALL MEMDRV |
||
| 112 | CALL LDItoC0 |
||
| 113 | LD A,0XC4;1C |
||
| 114 | ;CALL MEMDRV |
||
| 115 | CALL LDIfrC0 |
||
| 116 | XOR A |
||
| 117 | ;CALL MEMDRV |
||
| 118 | CALL LDItoC0 |
||
| 119 | LD A,0XC3;1B |
||
| 120 | ;CALL MEMDRV |
||
| 121 | CALL LDIfrC0 |
||
| 122 | XOR A |
||
| 123 | CALL MEMDRV_ |
||
| 124 | LD SP,(0X5B73) |
||
| 125 | RET |
||
| 126 | LDItoC0 |
||
| 127 | CALL MEMDRV_ |
||
| 128 | ;LD A,0XFF |
||
| 129 | ;OR A |
||
| 130 | SCF |
||
| 131 | JR LDIR40 |
||
| 132 | LDIfrC0 |
||
| 133 | CALL MEMDRV_ |
||
| 134 | XOR A |
||
| 135 | LDIR40 LD HL,0XC000 |
||
| 136 | LD DE,0X8000 |
||
| 137 | LD BC,0X4000 |
||
| 138 | JR NC,$+3 |
||
| 139 | EX DE,HL; EXD |
||
| 140 | LDIR |
||
| 141 | RET |
||
| 142 | ENDIF ;resident |
||
| 143 | |||
| 144 | ; DISPLAY "FREE BEFORE 0X3CFA=",0X3CFA-$ |
||
| 145 | ; DUPL 0X3CFA-$,0XFF; DS 0X3CFA-$,0XFF |
||
| 146 |