Subversion Repositories pentevo

Rev

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

Rev 627 Rev 1120
Line 1... Line 1...
1
 
1
 
2
;LAST UPDATE: 21.11.2013 savelij
2
; LAST UPDATE: 17.10.2023 savelij
3
 
3
 
4
;               PHASE 0XEA00-0X31
4
;               PHASE 0XEA00-0X31
5
; FLAG'S BIT LAYOUT
5
; FLAG'S BIT LAYOUT
6
_VMODE EQU  0
6
_VMODE EQU  0
7
_C_STA EQU  1
7
_C_STA EQU  1
Line 557... Line 557...
557
       DEFW PHOME,  RLF_P,  CLR_EOP,CLREOL ; HIJK
557
       DEFW PHOME,  RLF_P,  CLR_EOP,CLREOL ; HIJK
558
       DEFW SET_CA, MODE,   PALLET, PLAY   ; LMNO
558
       DEFW SET_CA, MODE,   PALLET, PLAY   ; LMNO
559
       DEFW I_CH,   D_CH,   SETENC, I_LIN  ; PQRS
559
       DEFW I_CH,   D_CH,   SETENC, I_LIN  ; PQRS
560
       DEFW D_LIN,  BORD_P, GET_ALL,WIND   ; TUVW
560
       DEFW D_LIN,  BORD_P, GET_ALL,WIND   ; TUVW
561
       DEFW WROLL,  C_GOXY, S_CUR,  CUR_PAR; XYZ[
561
       DEFW WROLL,  C_GOXY, S_CUR,  CUR_PAR; XYZ[
562
       DEFW KEY_PA, CUR_LN, SET_MOD,CLRALL ; \]^_
562
       DEFW KEY_PA, CUR_LN, SET_MOD,CLRALL ; 0x5C]^_
563
       DEFW SP_AUX, _CUR_PA,_KEY_PA,PRN_SC ; 'ABC
563
       DEFW SP_AUX, _CUR_PA,_KEY_PA,PRN_SC ; 'ABC
564
 
564
 
565
;       LD   B,0
565
;       LD   B,0
566
;       LD   C,(IX-_FUNC)
566
;       LD   C,(IX-_FUNC)
567
;       INC  C
567
;       INC  C
Line 583... Line 583...
583
       DEFB 0, 0, 0, 0  ; HIJK
583
       DEFB 0, 0, 0, 0  ; HIJK
584
       DEFB 16,1, 1, 1  ; LMNO
584
       DEFB 16,1, 1, 1  ; LMNO
585
       DEFB 0, 0, 9, 0  ; PQRS
585
       DEFB 0, 0, 9, 0  ; PQRS
586
       DEFB 0, 2, 0, 4  ; TUVW
586
       DEFB 0, 2, 0, 4  ; TUVW
587
       DEFB 1, 2, 1, 1  ; XYZ[
587
       DEFB 1, 2, 1, 1  ; XYZ[
588
       DEFB 2, 2, 2, 0  ; \]^_
588
       DEFB 2, 2, 2, 0  ; 0x5C]^_
589
       DEFB 16,1, 2, 16 ; 'AB
589
       DEFB 16,1, 2, 16 ; 'AB
590
NPAR_L EQU  $-NPAR_T
590
NPAR_L EQU  $-NPAR_T
591
 
591
 
592
GET_ALL:
592
GET_ALL:
593
GRAPH:
593
GRAPH: