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 |