mirror of
https://github.com/Tolik-Trek/2D-Studio.git
synced 2026-06-15 01:21:33 +03:00
61 lines
838 B
NASM
61 lines
838 B
NASM
|
|
APOINT EQU 8 ;#3D13
|
|
GO DI
|
|
LD IX,TAB00
|
|
LD HL,#0000
|
|
LD E,1
|
|
LD C,#B0
|
|
CALL APOINT
|
|
LD IX,TAB01
|
|
LD HL,#0703
|
|
LD E,1
|
|
LD C,#B0
|
|
CALL APOINT
|
|
LD IX,TAB02
|
|
LD HL,#0826
|
|
LD E,1
|
|
LD C,#B0
|
|
CALL APOINT
|
|
LD IX,TAB03
|
|
LD HL,#0000
|
|
LD E,1
|
|
LD C,#B0
|
|
CALL APOINT
|
|
LD IX,TAB04
|
|
LD HL,#0000
|
|
LD E,1
|
|
LD C,#B0
|
|
CALL APOINT
|
|
RET
|
|
|
|
TAB00 DEFB 40,32,#00,#00,#20,#00,#08,#00
|
|
TAB01 DEFB 33,23,#03,#07,#60,#00,#0B,#07
|
|
TAB02 DEFB 01,21,038,#08,#60,#00,046,#08
|
|
|
|
TAB03 DEFB 08,02,028,#04,#60,#00,#24,#04
|
|
TAB04 DEFB 02,02,037,#04,#60,#00,#2D,#04
|
|
|
|
NORTAB DEFB 12,23,#0F,#07,#20,#00,#17,#07
|
|
SECTAB DEFB 12,23,#0F,#07,#60,#00,#17,#07
|
|
|
|
SETNWIN DI
|
|
LD IX,NORTAB
|
|
LD HL,#0F07
|
|
LD E,1
|
|
LD C,#B0
|
|
CALL IPOINT
|
|
EI
|
|
RET
|
|
|
|
SETAWIN DI
|
|
LD IX,SECTAB
|
|
LD HL,#0F07
|
|
LD E,1
|
|
LD C,#B0
|
|
CALL IPOINT
|
|
EI
|
|
RET
|
|
|
|
|
|
|