Top secrets sources NedoPC pentevo

Rev

Rev 683 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?


;LAST UPDATE: 21.07.2018 savelij

;BASIC BLOCK FOR MONOLOADER

BASIC_START     DW 0X100,BASIC_END-STROKA1
STROKA1         DB __BORDER,__NOT,__PI,":"
                DB __INK,__NOT,__PI,":"
                DB __PAPER,__NOT,__PI,":"
                DB __CLEAR,__VAL,"\"24575\":"
                DB __RANDOMIZE,__USR,__VAL,"\"23905\":",__REM

                LD DE,(0X5CF4)
                LD BC,SIZE_SECTORS*256+5
                LD HL,ADR_LOADING
                PUSH HL
                JP 0X3D13

BASIC_END       DB 0X0D,0X80,0XAA
                DW 1                                    ;ŽŒ… ‘’ŽŠˆ ‡€“‘Š€

BASIC_FULL      EQU BASIC_END-BASIC_START+1

                DUPL 0X100-BASIC_FULL-4,0               ;„ŽŽ‹…ˆ… „Ž ‘…Š’Ž€ 256 €‰’