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