* ciul w lewo
fzl0 equ *

     dta d'      ',b(28),b(28),b(76),b(12),b(12),b(8),b(48)
     dta b(3),b(23)
     dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),b(2),b(0)
     dta b(0),b(32),d'        '

     dta d'     ',b(120),b(224),d'      ',b(56),b(72)
     dta b(88),b(64),b(64),b(0),b(16),b(40),b(24),b(40),b(24)
     dta b(56),b(24),b(24),b(24),d'      '

     dta d'       ',b(96),b(48),b(112),b(115),b(56),b(6),b(4)
     dta b(32)
     dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32)
     dta d'  ',b(4),b(4),b(4),b(24),b(56),d'   '

     dta d'    ',b(120),b(132),b(2),b(130),b(130),b(131)
     dta b(128),b(65),b(73),b(64),b(128)
     dta b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(69)
     dta b(70),b(68),b(68),b(34),b(34),b(26),b(36),b(68),d'   '


fzl1 equ *

     dta d'      ',b(28),b(28),b(76),b(12),b(12),b(8),b(48)
     dta b(3),b(23)
     dta b(35),b(47),b(43),b(111),b(43),b(5),b(39),b(66),b(36)
     dta b(100),b(96),b(16),d'       '

     dta d'     ',b(120),b(224),d'      ',b(56),b(72)
     dta b(88),b(64),b(64),b(0),b(16),b(40),b(24),b(40),b(88)
     dta b(8),b(28),b(12),b(12),b(0),b(0),b(4),d'   '

     dta d'       ',b(96),b(48),b(112),b(115),b(56),b(6),b(4)
     dta b(32)
     dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(0)
     dta b(16),b(0),b(0),b(96),b(192),b(12),b(24),d'   '

     dta d'    ',b(120),b(132),b(2),b(130),b(130),b(131)
     dta b(128),b(65),b(73),b(64),b(128)
     dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(133)
     dta b(130),b(130),b(130),b(98),b(146),b(44),b(210),b(34)
     dta d'    '

fzl2 equ *

     dta d'      ',b(28),b(28),b(76),b(12),b(12),b(8),b(48)
     dta b(3),b(23)
     dta b(35),b(47),b(75),b(79),b(19),b(37),b(39),b(66),b(32)
     dta b(34),b(112),b(96),b(96),b(0),b(0),b(34),d'   '

     dta d'     ',b(120),b(224),d'      ',b(56),b(72)
     dta b(88),b(64),b(32),b(16),b(8),b(8),b(24),b(44),b(92)
     dta b(84),b(6),b(14),b(6),d'      '

     dta d'       ',b(96),b(48),b(112),b(115),b(56),b(6),b(4)
     dta b(32)
     dta b(4),b(16),b(20),b(32),b(36),b(18),b(0),b(16),b(0)
     dta b(8),b(8),d'   ',b(102),b(204),d'   '

     dta d'    ',b(120),b(132),b(2),b(130),b(130),b(131)
     dta b(128),b(65),b(73),b(64),b(128)
     dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(129)
     dta b(130),b(129),b(129),b(145),b(153),b(102),b(153),b(17)
     dta d'   '


fzl3 equ *

     dta d'      ',b(28),b(28),b(76),b(12),b(12),b(8),b(48)
     dta b(3),b(23)
     dta b(35),b(47),b(75),b(79),b(19),b(5),b(39),b(2),b(32)
     dta b(96),b(112),b(48),b(48),d'      '

     dta d'     ',b(120),b(224),d'      ',b(56),b(72)
     dta b(88),b(64),b(32),b(16),b(8),b(40),b(24),b(44),b(84)
     dta b(22),b(14),b(6),d'       '

     dta d'       ',b(96),b(48),b(112),b(115),b(56),b(6),b(4)
     dta b(32)
     dta b(4),b(16),b(20),b(32),b(36),b(18),b(0),b(16),b(8)
     dta b(8),d'   ',b(6),b(60),b(112),d'   '

     dta d'    ',b(120),b(132),b(2),b(130),b(130),b(131)
     dta b(128),b(65),b(73),b(64),b(128)
     dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(65)
     dta b(130),b(129),b(129),b(73),b(78),b(57),b(66),b(140)
     dta d'   '


fzl4 equ *

     dta d'      ',b(28),b(28),b(76),b(12),b(12),b(8),b(48)
     dta b(3),b(23)
     dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),b(2),b(8)
     dta b(8),b(32),b(0),b(24),d'      '

     dta d'     ',b(120),b(224),d'      ',b(56),b(72)
     dta b(88),b(64),b(64),b(0),b(16),b(40),b(24),b(40),b(16)
     dta b(48),b(24),b(24),d'       '

     dta d'       ',b(96),b(48),b(112),b(115),b(56),b(6),b(4)
     dta b(32)
     dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32)
     dta d'  ',b(4),b(4),b(4),b(24),b(56),d'   '

     dta d'    ',b(120),b(132),b(2),b(130),b(130),b(131)
     dta b(128),b(65),b(73),b(64),b(128)
     dta b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(69)
     dta b(70),b(68),b(68),b(34),b(34),b(26),b(36),b(68)
     dta d'   '


fzl5 equ *

     dta d'      ',b(28),b(28),b(76),b(12),b(12),b(8),b(48)
     dta b(3),b(23)
     dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),b(10),b(8)
     dta b(12),b(20),b(12),b(12),d'      '

     dta d'     ',b(120),b(224),d'      ',b(56),b(72)
     dta b(88),b(64),b(64),b(0),b(16),b(40),b(56),b(64),b(48)
     dta b(112),b(104),d'    ',b(4),d'   '

     dta d'       ',b(96),b(48),b(112),b(115),b(56),b(6),b(4)
     dta b(32)
     dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(48),b(64)
     dta d'   ',b(96),b(192),b(12),b(24),d'   '

     dta d'    ',b(120),b(132),b(2),b(130),b(130),b(131)
     dta b(128),b(65),b(73),b(64),b(128)
     dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(133)
     dta b(134),b(130),b(130),b(114),b(146),b(44),b(210),b(34)
     dta d'   '


fzl6 equ *

     dta d'      ',b(28),b(28),b(76),b(12),b(12),b(8),b(48)
     dta b(3),b(23)
     dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),b(2),b(68)
     dta b(8),b(22),b(6),b(6),d'  ',b(34),d'   '

     dta d'     ',b(120),b(224),d'      ',b(56),b(72)
     dta b(88),b(64),b(64),b(0),b(16),b(40),b(56),b(44),b(24)
     dta b(52),b(104),b(96),b(96),d'      '

     dta d'       ',b(96),b(48),b(112),b(115),b(56),b(6),b(4)
     dta b(32)
     dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32)
     dta b(64),d'    ',b(102),b(204),d'   '

     dta d'    ',b(120),b(132),b(2),b(130),b(130),b(131)
     dta b(128),b(65),b(73),b(64),b(128)
     dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(65)
     dta b(130),b(30),b(128),b(153),b(153),b(102),b(153),b(17)
     dta d'   '


fzl7 equ *

     dta d'      ',b(28),b(28),b(76),b(12),b(12),b(8),b(48)
     dta b(3),b(23)
     dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),b(2),b(72)
     dta b(6),b(86),b(6),d'       '

     dta d'     ',b(120),b(224),d'      ',b(56),b(72)
     dta b(88),b(64),b(64),b(0),b(16),b(40),b(24),b(44),b(20)
     dta b(56),b(40),b(48),b(48),d'      '

     dta d'       ',b(96),b(48),b(112),b(115),b(56),b(6),b(4)
     dta b(32)
     dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32)
     dta b(64),d'   ',b(6),b(60),b(112),d'   '

     dta d'    ',b(120),b(132),b(2),b(130),b(130),b(131)
     dta b(128),b(65),b(73),b(64),b(128)
     dta b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(65)
     dta b(130),b(129),b(129),b(73),b(78),b(57),b(66),b(140)
     dta d'   '


* ciul w prawo

fzp0 equ *

     dta d'      ',b(56),b(56),b(50),b(48),b(48),b(16),b(12)
     dta b(192),b(232)
     dta b(196),b(244),b(212),b(246),b(212),b(160),b(224)
     dta b(64),d'  ',b(4),d'        '

     dta d'     ',b(30),b(7),d'      ',b(28),b(18)
     dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20),b(24)
     dta b(28),b(24),b(24),b(24),d'      '

     dta d'       ',b(6),b(12),b(14),b(206),b(108),b(96)
     dta b(32),b(4)
     dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4),d'  '
     dta b(32),b(32),b(32),b(24),b(28),d'   '

     dta d'    ',b(30),b(33),b(64),b(65),b(65),b(193),b(1)
     dta b(130),b(146),b(2),b(1)
     dta b(1),b(1),b(1),b(1),b(2),b(2),b(4),b(162),b(98),b(34)
     dta b(34),b(68),b(68),b(88),b(36),b(34),d'   '


fzp1 equ *

     dta d'      ',b(56),b(56),b(50),b(48),b(48),b(16),b(12)
     dta b(192),b(232)
     dta b(196),b(244),b(212),b(246),b(212),b(160),b(228)
     dta b(66),b(36),b(38),b(6),b(8),d'       '

     dta d'     ',b(30),b(7),d'      ',b(28),b(18)
     dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20),b(26)
     dta b(16),b(56),b(48),b(48),b(0),b(0),b(32),d'   '

     dta d'       ',b(6),b(12),b(14),b(206),b(108),b(96)
     dta b(32),b(4)
     dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(0),b(8)
     dta b(0),b(0),b(6),b(3),b(48),b(24),d'   '

     dta d'    ',b(30),b(33),b(64),b(65),b(65),b(193),b(1)
     dta b(130),b(146),b(2),b(1)
     dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(161),b(65),b(65)
     dta b(65),b(70),b(73),b(52),b(75),b(68),d'   '

fzp2 equ *

     dta d'      ',b(56),b(56),b(50),b(48),b(48),b(16),b(12)
     dta b(192),b(232)
     dta b(196),b(244),b(210),b(242),b(200),b(164),b(228)
     dta b(66),b(4),b(68),b(16),b(6),b(6),d'  ',b(68),d'   '

     dta d'     ',b(30),b(7),d'      ',b(28),b(18)
     dta b(26),b(2),b(4),b(8),b(16),b(16),b(24),b(52),b(58)
     dta b(42),b(96),b(112),b(86),d'      '

     dta d'       ',b(6),b(12),b(14),b(206),b(108),b(96)
     dta b(32),b(4)
     dta b(32),b(8),b(40),b(4),b(36),b(72),b(0),b(8),b(0)
     dta b(16),b(16),d'   ',b(102),b(51),d'   '

     dta d'    ',b(30),b(33),b(64),b(65),b(65),b(193),b(1)
     dta b(130),b(146),b(2),b(1)
     dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(129),b(65),b(129)
     dta b(129),b(137),b(153),b(102),b(153),b(136),d'   '

fzp3 equ *

     dta d'      ',b(56),b(56),b(50),b(48),b(48),b(16),b(12)
     dta b(192),b(232)
     dta b(196),b(244),b(210),b(242),b(210),b(160),b(228)
     dta b(64),b(4),b(16),b(14),b(12),b(12),d'      '

     dta d'     ',b(30),b(7),d'      ',b(28),b(18)
     dta b(26),b(2),b(4),b(8),b(16),b(20),b(24),b(52),b(42)
     dta b(104),b(112),b(96),d'       '

     dta d'       ',b(6),b(12),b(14),b(206),b(108),b(96)
     dta b(32),b(4)
     dta b(32),b(8),b(40),b(4),b(36),b(72),b(0),b(8),b(16)
     dta b(16),d'   ',b(96),b(60),b(14),d'   '

     dta d'    ',b(30),b(33),b(64),b(65),b(65),b(193),b(1)
     dta b(130),b(146),b(2),b(1)
     dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(130),b(65),b(129)
     dta b(129),b(146),b(114),b(156),b(66),b(49),d'   '


fzp4 equ *

     dta d'      ',b(56),b(56),b(50),b(48),b(48),b(16),b(12)
     dta b(192),b(232)
     dta b(196),b(244),b(212),b(246),b(212),b(160),b(224)
     dta b(64),b(16),b(16),b(4),b(0),b(24),d'      '

     dta d'     ',b(30),b(7),d'      ',b(28),b(18)
     dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20),b(8),b(12)
     dta b(24),b(24),d'       '

     dta d'       ',b(6),b(12),b(14),b(206),b(108),b(96)
     dta b(32),b(4)
     dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4),d'  '
     dta b(32),b(32),b(32),b(24),b(28),d'   '

     dta d'    ',b(30),b(33),b(64),b(65),b(65),b(193),b(1)
     dta b(130),b(146),b(2),b(1)
     dta b(1),b(1),b(1),b(1),b(2),b(2),b(4),b(162),b(98),b(34)
     dta b(34),b(68),b(68),b(88),b(36),b(34),d'   '

fzp5 equ *

     dta d'      ',b(56),b(56),b(50),b(48),b(48),b(16),b(12)
     dta b(192),b(232)
     dta b(196),b(244),b(212),b(246),b(212),b(160),b(224)
     dta b(80),b(16),b(48),b(40),b(48),b(48),d'      '

     dta d'     ',b(30),b(7),d'      ',b(28),b(18)
     dta b(26),b(2),b(2),b(0),b(8),b(20),b(28),b(2),b(12)
     dta b(14),b(22),d'    ',b(32),d'   '

     dta d'       ',b(6),b(12),b(14),b(206),b(108),b(96)
     dta b(32),b(4)
     dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(12),b(12)
     dta d'   ',b(6),b(3),b(48),b(24),d'   '

     dta d'    ',b(30),b(33),b(64),b(65),b(65),b(193),b(1)
     dta b(130),b(146),b(2),b(1)
     dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(161),b(97)
     dta b(65),b(65),b(78),b(73),b(52),b(75),b(68),d'   '

fzp6 equ *

     dta d'      ',b(56),b(56),b(50),b(48),b(48),b(16),b(12)
     dta b(192),b(232)
     dta b(196),b(244),b(212),b(246),b(212),b(160),b(224)
     dta b(64),b(34),b(16),b(104),b(96),b(96),d'  ',b(68),d'  '
     dta b(0)

     dta d'     ',b(30),b(7),d'      ',b(28),b(18)
    dta b(26),b(2),b(2),b(0),b(8),b(20),b(28),b(52),b(24),b(44)
     dta b(22),b(6),b(6),d'      '

     dta d'       ',b(6),b(12),b(14),b(206),b(108),b(96)
     dta b(32),b(4)
     dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4)
     dta b(2),d'    ',b(102),b(51),d'   '

     dta d'    ',b(30),b(33),b(64),b(65),b(65),b(193),b(1)
     dta b(130),b(146),b(2),b(1)
     dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(130),b(65)
     dta b(65),b(129),b(153),b(153),b(102),b(153),b(136),d'   '


fzp7 equ *

     dta d'      ',b(56),b(56),b(50),b(48),b(48),b(16),b(12)
     dta b(192),b(232)
     dta b(196),b(244),b(212),b(246),b(212),b(160),b(224)
     dta b(64),b(18),b(86),b(106),b(96),d'       '

     dta d'     ',b(30),b(7),d'      ',b(28),b(18)
     dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(52),b(40)
     dta b(28),b(20),b(12),b(12),d'      '

     dta d'       ',b(6),b(12),b(14),b(206),b(108),b(96)
     dta b(32),b(4)
     dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4)
     dta b(2),d'   ',b(96),b(60),b(14),d'   '

     dta d'    ',b(30),b(33),b(64),b(65),b(65),b(193),b(1)
     dta b(130),b(146),b(2),b(1)
     dta b(1),b(1),b(1),b(1),b(2),b(2),b(4),b(130),b(65),b(129)
     dta b(129),b(146),b(114),b(156),b(66),b(49),d'   '


*odbicie do lotu w lewo

fzol0 equ *

     dta d'      ',b(28),b(28),b(76),b(12),b(12),b(8),b(48)
     dta b(3),b(23)
     dta b(35),b(47),b(43),b(111),b(43),b(5),b(7),b(2),d'  '
     dta b(32),d'        '

     dta d'     ',b(120),b(224),d'      ',b(56),b(72)
     dta b(88),b(64),b(64),b(0),b(16),b(40),b(24),b(40)
     dta b(24),b(56),b(24),b(24),b(24),d'      '

     dta d'       ',b(96),b(48),b(112),b(115),b(56),b(6),b(4)
     dta b(32)
     dta b(4),b(16),b(20),b(16),b(4),b(18),b(0),b(16),b(32)
     dta d'     ',b(24),b(56),d'   '

     dta d'    ',b(120),b(132),b(2),b(130),b(130),b(131)
     dta b(128),b(65),b(73),b(64),b(128)
     dta b(128),b(128),b(128),b(128),b(64),b(64),b(32),b(69)
     dta b(70),b(68),b(68),b(36),b(36),b(24),b(36),b(68)
     dta d'   '

fzol1 equ *

     dta d'      ',b(28),b(28),b(76),b(12),b(12),b(8),b(48)
     dta b(3),b(23)
     dta b(35),b(47),b(75),b(79),b(19),b(5),b(7),b(2),b(64)
     dta b(64),b(32),d'        '

     dta d'     ',b(120),b(224),d'      ',b(56),b(72)
     dta b(88),b(64),b(32),b(16),b(8),b(40),b(24),b(40),b(16)
     dta b(48),b(24),b(24),d'       '

     dta d'       ',b(96),b(48),b(112),b(115),b(56),b(6),b(4)
     dta b(32)
     dta b(4),b(16),b(20),b(32),b(36),b(18),b(0),b(16),b(32)
     dta d'    ',b(24),b(48),b(0),d'   '

     dta d'    ',b(120),b(132),b(2),b(130),b(130),b(131)
     dta b(128),b(65),b(73),b(64),b(128)
     dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(141)
     dta b(138),b(136),b(68),b(36),b(24),b(36),b(72),b(48)
     dta d'   '

fzol2 equ *

     dta d'      ',b(28),b(28),b(76),b(12),b(12),b(8),b(48)
     dta b(3),b(23)
     dta b(35),b(47),b(75),b(31),b(43),b(5),b(7),b(66),b(64)
     dta b(32),d'         '

     dta d'     ',b(120),b(224),d'      ',b(56),b(72)
     dta b(88),b(64),b(32),b(0),b(16),b(40),b(40),b(16),b(48)
     dta b(24),d'         '

     dta d'       ',b(96),b(48),b(112),b(115),b(56),b(6),b(4)
     dta b(32)
     dta b(4),b(16),b(20),b(96),b(4),b(18),b(16),b(32),d'   '
     dta b(24),b(56),d'      '

     dta d'    ',b(120),b(132),b(2),b(130),b(130),b(131)
     dta b(128),b(65),b(73),b(64),b(128)
     dta b(128),b(128),b(128),b(128),b(64),b(64),b(64),b(141)
     dta b(138),b(68),b(56),b(36),b(68),b(56),d'     '


* odbicie do lotu w prawo


fzop0 equ *

     dta d'      ',b(56),b(56),b(50),b(48),b(48),b(16),b(12)
     dta b(192),b(232)
     dta b(196),b(244),b(212),b(246),b(212),b(160),b(224)
     dta b(64),d'  ',b(4),d'        '


     dta d'     ',b(30),b(7),d'      ',b(28),b(18)
     dta b(26),b(2),b(2),b(0),b(8),b(20),b(24),b(20),b(24)
     dta b(28),b(24),b(24),b(24),d'      '

     dta d'       ',b(6),b(12),b(14),b(206),b(108),b(96)
     dta b(32),b(4)
     dta b(32),b(8),b(40),b(8),b(32),b(72),b(0),b(8),b(4)
     dta d'     ',b(24),b(28),d'   '

     dta d'    ',b(30),b(33),b(64),b(65),b(65),b(193),b(1)
     dta b(130),b(146),b(2),b(1)
     dta b(1),b(1),b(1),b(1),b(2),b(2),b(4),b(162),b(98),b(34)
     dta b(34),b(36),b(36),b(24),b(36),b(34),d'   '


fzop1 equ *

     dta d'      ',b(56),b(56),b(50),b(48),b(48),b(16),b(12)
     dta b(192),b(232)
     dta b(196),b(244),b(210),b(242),b(200),b(160),b(224)
     dta b(64),b(2),b(2),b(4),d'        '

     dta d'     ',b(30),b(7),d'      ',b(28),b(18)
     dta b(26),b(2),b(4),b(8),b(16),b(20),b(24),b(20),b(8)
     dta b(12),b(24),b(24),d'       '

     dta d'       ',b(6),b(12),b(14),b(206),b(108),b(96)
     dta b(32),b(4)
     dta b(32),b(8),b(40),b(4),b(36),b(72),b(0),b(8),b(4)
     dta d'    ',b(24),b(12),b(0),d'   '

     dta d'    ',b(30),b(33),b(64),b(65),b(65),b(193),b(1)
     dta b(130),b(146),b(2),b(1)
     dta b(1),b(1),b(1),b(1),b(2),b(2),b(4),b(162),b(81),b(17)
     dta b(34),b(36),b(24),b(36),b(18),b(12),d'   '

fzop2 equ *

     dta d'      ',b(56),b(56),b(50),b(48),b(48),b(16),b(12)
     dta b(192),b(232)
     dta b(196),b(244),b(210),b(248),b(212),b(160),b(224)
     dta b(66),b(2),b(4),d'         '

     dta d'     ',b(30),b(7),d'      ',b(28),b(18)
     dta b(26),b(2),b(4),b(0),b(8),b(20),b(20),b(8),b(12),b(24)
     dta d'         '

     dta d'       ',b(6),b(12),b(14),b(206),b(108),b(96)
     dta b(32),b(4)
     dta b(32),b(8),b(40),b(6),b(32),b(72),b(8),b(4),d'   '
     dta b(24),b(28),d'      '

     dta d'    ',b(30),b(33),b(64),b(65),b(65),b(193),b(1)
     dta b(130),b(146),b(2),b(1)
     dta b(1),b(1),b(1),b(1),b(2),b(2),b(2),b(177),b(81),b(34)
     dta b(28),b(36),b(34),b(29),d'     '




* --- system --- *
dliv           equ 512
dmactls        equ 559
dlist          equ 560
nmien          equ 54286
wsync          equ 54282
vcount         equ 54283
chbase         equ 54281
* --- stale --- *
fonts          equ $b800
* --- strona0 --- *



*         --- podprogramy ---    *

init           equ *

               lda #61
               sta dmactls
               lda <displaylist
               sta dlist
               lda >displaylist
               sta dlist+1
               lda #4
               sta 708
               lda #10
               sta 709
               lda #15
               sta 710
               rts

dli_on         equ *

               lda <dli
               sta dliv
               lda >dli
               sta dliv+1
               lda #192
               sta nmien
               rts

wyswietl       equ *

               sta screen,y
               ora #1
               sta screen+1,y
               rts

position       equ *

               pha
               txa
               clc
               adc piontable,y
               asl @
               tay
               pla
               jsr wyswietl
               rts

locate         equ *

               txa
               clc
               adc piontable,y
               asl @
               tay
               lda screen,y
               rts

translacja     equ *

               ldx #0
               ldy #0
trans          lda (reals),y
               sta screen,x
               ora #1
               sta screen+1,x
               inx
               inx
               iny
               cpy #128
               bne trans
               rts

dli            equ *

               pha
               lda vcount
               and #4
               eor #4
               clc
               adc >fonts
               sta wsync
               sta chbase
               pla
               rti

*          --- dane ---          *


piontable      equ *

               dta b(0),b(16),b(32)
               dta b(48),b(64),b(80)
               dta b(96),b(112)

displaylist    equ *

               dta b(112),b(112),b($f0)
               dta b(196),a(screen)
               dta b(196),a(screen)
               dta b(196),a(screen+32)
               dta b(196),a(screen+32)
               dta b(196),a(screen+64)
               dta b(196),a(screen+64)
               dta b(196),a(screen+96)
               dta b(196),a(screen+96)
               dta b(196),a(screen+128)
               dta b(196),a(screen+128)
               dta b(196),a(screen+160)
               dta b(196),a(screen+160)
               dta b(196),a(screen+192)
               dta b(196),a(screen+192)
               dta b(196),a(screen+224)
               dta b(196),a(screen+224)
               dta b(65),a(displaylist)

screen         equ *

               dta d'                                '
               dta d'                                '
               dta d'                                '
               dta d'                                '
               dta d'                                '
               dta d'                                '
               dta d'                                '
               dta d'                                '

pl1            equ *

               dta d'0000008"""""4008'
               dta d'"400008"6"62<08"'
               dta d'"" "40028"4008""'
               dta d'""400000000008""'
               dta d'""000000000000""'
               dta d'""48"400000008""'
               dta d'""402<008""408""'
               dta d'""""""""""""""""'


_pmXY          equ *


               ldx _pos_x
               lda _pos_Y
               sec
               sbc _jmp_Yposition
               tay
               lda _faza_nr

               stx 53248
               stx 53249
               stx 53250
               stx 53251

               asl @
               tax
               lda _fz_table,x
               sta __zero
               lda _fz_table+1,x
               sta __zero+1

               tya
               tax
               stx _memory
               ldy #0

_sp0           lda (__zero),y
               sta pmadres+1024,x
               inx
               iny
               cpy #34
               bne _sp0

               jsr _dymek

               ldx _memory
_sp2           lda (__zero),y
               sta pmadres+1280,x
               inx
               iny
               cpy #68
               bne _sp2

               ldx _memory
_sp3           lda (__zero),y
               sta pmadres+1536,x
               inx
               iny
               cpy #102
               bne _sp3

               ldx _memory
_sp4           lda (__zero),y
               sta pmadres+1792,x
               inx
               iny
               cpy #136
               bne _sp4
               rts


_service_nr    dta b(0)
_new_joy       dta b(0)
_old_joy       dta b(0)
_faza_nr       dta b(0)
_jmp_counter   dta b(0)
_jmp_Yposition dta b(0)
_fz0_5         dta b(0)
_pos_X         dta b(100)
_pos_Y         dta b(70)
_fz05          dta b(0)
_posX          dta b(0)
_posY          dta b(0)
granica        dta b(0)

_jmp_table     equ *

     dta b(3),b(6),b(8),b(10),b(12),b(14),b(16),b(17),b(18)
     dta b(19),b(19),b(20),b(20),b(21),b(21),b(21),b(20),b(20)
     dta b(19),b(19),b(18),b(17),b(16),b(14),b(12),b(10),b(8)
     dta b(6),b(3),b(0)




_fz_table      equ *

     dta a(fzl0),a(fzl1),a(fzl2),a(fzl3),a(fzl4),a(fzl5)
     dta a(fzl6),a(fzl7),a(fzp0),a(fzp1),a(fzp2),a(fzp3)
     dta a(fzp4),a(fzp5),a(fzp6),a(fzp7),a(fzol0),a(fzop0)
     dta a(fzol0),a(fzol1),a(fzol2)
     dta a(fzop0),a(fzop1),a(fzop2)