dmactls        equ 559
dlist          equ 560
dliv           equ 512
nmien          equ 54286
vcount         equ 54283
wsync          equ 54282
chbase         equ $d409
fonts          equ $b800


init           equ *

               lda #%101001
               sta dmactls
               lda <displaylist
               sta dlist
               lda >displaylist
               sta dlist+1
               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


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'LNL,.,.H,.""""""'
               dta d'LN6222:J6222:"""'
               dta d'N6<0008H40000:""'
               dta d'2<0000  400000:"'
               dta d'000000  <8$$$002'
               dta d'>@4000  00222<00'
               dta d'>@4000  000008>@'
               dta d'(*(*(*  (*(*(*(*'
               dta d'        '

   dta b(0),b(0),b(0),b(0),b(5),b(0),b(80),b(1),b(%00001110)
   dta b(0),b(0),b(0),b(0),b(50),b(40),b(100),b(2),b(%00001111)
   dta b(0),b(0),b(0),b(0),b(34),b(0),b(80),b(3),b(%00001100)
   dta b(0),b(0),b(0),b(0),b(90),b(40),b(100),b(4),b(%00001101)