Subversion Repositories pentevo

Rev

Rev 683 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 683 Rev 781
Line 1... Line 1...
1 
 
 1 
 
- 
 
 2 
;LAST UPDATE: 21.07.2018 savelij
- 
 
 3 
 
2 
;BASIC BLOCK FOR MONOLOADER
 4 
;BASIC BLOCK FOR MONOLOADER
3 
 
 5 
 
4 
BASIC_START     DW 0X100,BASIC_END-STROKA1
 6 
BASIC_START     DW 0X100,BASIC_END-STROKA1
5 
STROKA1         DB 0XE7,0XC3,0XA7,0X3A                  ;BORDER NOT PI:
 7 
STROKA1         DB __BORDER,__NOT,__PI,":"
6 
                DB 0XD9,0XC3,0XA7,0X3A                  ;INK NOT PI:
 8 
                DB __INK,__NOT,__PI,":"
7 
                DB 0XDA,0XC3,0XA7,0X3A                  ;PAPER NOT INK:
 9 
                DB __PAPER,__NOT,__PI,":"
8 
                DB 0XFD,0XB0,0X22,"24575",0X22,0X3A     ;CLEAR VAL "ADDRESS":
 10 
                DB __CLEAR,__VAL,"\"24575\":"
9 
                DB 0XF9,0XC0,0XB0,0X22,"23905",0X22     ;RANDOMIZE USR VAL "ADDRESS"
 11 
                DB __RANDOMIZE,__USR,__VAL,"\"23905\":",__REM
10 
                DB 0X3A,0XEA
 - 
 
11 
 
 12 
 
12 
                LD DE,(0X5CF4)
 13 
                LD DE,(0X5CF4)
13 
                LD BC,SIZE_SECTORS*256+5
 14 
                LD BC,SIZE_SECTORS*256+5
14 
                LD HL,ADR_LOADING
 15 
                LD HL,ADR_LOADING
15 
                PUSH HL
 16 
                PUSH HL