Subversion Repositories pentevo

Rev

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

Rev 736 Rev 831
Line 5... Line 5...
5 
;
 5 
;
6 
; сорец для аласма
 6 
; сорец для аласма
7 
 
 7 
 
8 
;ПЕРЕДЕЛКА ДЛЯ КОМПИЛЯЦИИ В СОСТАВЕ EVO RESET SERVICE 16.04.2012 savelij
 8 
;ПЕРЕДЕЛКА ДЛЯ КОМПИЛЯЦИИ В СОСТАВЕ EVO RESET SERVICE 16.04.2012 savelij
9 
 
 9 
 
- 
 
 10 
;LAST UPDATE: 30.06.2019 savelij
- 
 
 11 
 
10 
;START   EQU     #6000
 12 
;START   EQU     #6000
11 
 ;       ORG     START
 13 
 ;       ORG     START
12 
 
 14 
 
13 
FREAD           EQU CPU1+OFFSET_SCRSAVE;OFFSET_FNTSAVE;-0X800
 15 
FREAD           EQU CPU1+OFFSET_SCRSAVE;OFFSET_FNTSAVE;-0X800
14 
FONT            EQU CPU1+OFFSET_FNTSAVE;0XD800
 16 
FONT            EQU CPU1+OFFSET_FNTSAVE;0XD800
Line 71... Line 73...
71 
;        LD      BC,0X3FFF
 73 
;        LD      BC,0X3FFF
72 
;        LDIR
74 
;        LDIR
73 
 
 75 
 
74 
                XOR A
 76 
                XOR A
75 
                LD HL,CPU3+LATTR
 77 
                LD HL,CPU3+LATTR
76 
                PCALL CLSTXTMD1,ROM_RST82
 78 
                ROMCALL CLSTXTMD1,ROM_RST82
77 
                XOR A
 79 
                XOR A
78 
                LD HL,CPU3+RATTR
 80 
                LD HL,CPU3+RATTR
79 
                PCALL CLSTXTMD1,ROM_RST82
 81 
                ROMCALL CLSTXTMD1,ROM_RST82
80 
 
 82 
 
81 
        XOR     A         ; код печатаемого символа
 83 
        XOR     A         ; код печатаемого символа
82 
        LD      HL,CPU3+LSYM    ;0XC1C0  ; откуда начинаем печатать
 84 
        LD      HL,CPU3+LSYM    ;0XC1C0  ; откуда начинаем печатать
83 
        LD      DE,64-40
 85 
        LD      DE,64-40
84 
        LD      C,25      ; сколько строк печатаем. Достаточно напечатать 16 строк сверху.
 86 
        LD      C,25      ; сколько строк печатаем. Достаточно напечатать 16 строк сверху.