Rev 105 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 105 | savelij | 1 | |
| 2 | ;BASIC BLOCK FOR MONOLOADER |
||
| 3 | |||
| 163 | savelij | 4 | PHASE 0x5D3B |
| 105 | savelij | 5 | BASIC_START DW 0X100,BASIC_END-STROKA1 |
| 6 | STROKA1 DB 0XE7,0XC3,0XA7,0X3A ;BORDER NOT PI: |
||
| 7 | DB 0XD9,0XC3,0XA7,0X3A ;INK NOT PI: |
||
| 8 | DB 0XDA,0XC3,0XA7,0X3A ;PAPER NOT INK: |
||
| 9 | DB 0XFD,0XB0,0X22,"24575",0X22,0X3A ;CLEAR VAL "ADDRESS": |
||
| 10 | DB 0XF9,0XC0,0XB0,0X22,"23905",0X22 ;RANDOMIZE USR VAL "ADDRESS" |
||
| 11 | DB 0X3A,0XEA |
||
| 12 | |||
| 13 | LD DE,(0X5CF4) |
||
| 14 | LD BC,SIZE_SECTORS*256+5 |
||
| 15 | LD HL,ADR_LOADING |
||
| 16 | PUSH HL |
||
| 17 | JP 0X3D13 |
||
| 18 | |||
| 19 | BASIC_END DB 0X0D,0X80,0XAA |
||
| 20 | DW 1 ;����� ������ ������� |
||
| 163 | savelij | 21 | DEPHASE |
| 105 | savelij | 22 | |
| 23 | BASIC_FULL EQU BASIC_END-BASIC_START+1 |
||
| 24 | |||
| 25 | DUPL 0X100-BASIC_FULL-4,0 ;���������� �� ������� 256 ���� |
||
| 26 | |||
| 27 |