Rev 683 | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 643 | savelij | 1 | |
| 781 | savelij | 2 | ;LAST UPDATE: 21.07.2018 savelij |
| 3 | |||
| 643 | savelij | 4 | ;BASIC BLOCK FOR MONOLOADER |
| 5 | |||
| 6 | BASIC_START DW 0X100,BASIC_END-STROKA1 |
||
| 781 | savelij | 7 | STROKA1 DB __BORDER,__NOT,__PI,":" |
| 8 | DB __INK,__NOT,__PI,":" |
||
| 9 | DB __PAPER,__NOT,__PI,":" |
||
| 10 | DB __CLEAR,__VAL,"\"24575\":" |
||
| 11 | DB __RANDOMIZE,__USR,__VAL,"\"23905\":",__REM |
||
| 643 | savelij | 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 ; |
||
| 21 | |||
| 22 | BASIC_FULL EQU BASIC_END-BASIC_START+1 |
||
| 23 | |||
| 24 | DUPL 0X100-BASIC_FULL-4,0 ; 256 |
||
| 25 |