.OPT NO LIST
         .OPT OBJ
         .INCLUDE #SHORTSYS.S65
B        =   203     °‘
DLINES   =   $28
         .MACRO DLINE 
;DLINE offset->przes wzgl. pocz.data
         .BYTE "κκκκκκκκ"
         LDA COLDAT+%1
         STA $D013
         LDA COLDAT+1+%1
         STA $D014
         STA WSYNC
         LDA COLDAT+2+%1
         STA $D015
         LDA COLDAT+3+%1
         STA $D016
         LDA COLDAT+4+%1
         STA $D017
         LDA COLDAT+5+%1
         STA $D018
         .ENDM 
;
;
         *=  $6000
          POKE  INLETT,8
          POKE  $02C7,0
          POKE  DMACTLS,33
          POKE  GTIACTLS,$80
          VDL  DL
          VMAIN  MAIN,6
          VDLI  DLI
         RTS 
DO        KEY  
         JSR AMIMAIN
         JMP DO
;
DL
         .BYTE $70,$70,$70,$70,$70+$80
         .BYTE $4F
         .WORD AMISCR
         .SBYTE "/////////"
         .BYTE $4F
         .WORD AMISCR
         .SBYTE "/////////"
         .BYTE $4F
         .WORD AMISCR
         .SBYTE "/////////"
         .BYTE $4F
         .WORD AMISCR
         .SBYTE "/////////"
         .BYTE $41
         .WORD DL
;---
DLI
         PHA 
          DLINE  0
          DLINE  6
          DLINE  6*2
          DLINE  6*3
          DLINE  6*4
          DLINE  6*5
          DLINE  6*6
          DLINE  6*7
          DLINE  6*8
          DLINE  6*9
          DLINE  6*10
          DLINE  6*11
          DLINE  6*12
          DLINE  6*13
          DLINE  6*14
          DLINE  6*15
          DLINE  6*16
          DLINE  6*17
          DLINE  6*18
          DLINE  6*19
          DLINE  6*20
          DLINE  6*21
          DLINE  6*23
          DLINE  6*24
          DLINE  6*25
          DLINE  6*26
          DLINE  6*27
          DLINE  6*28
          DLINE  6*29
          DLINE  6*30
          DLINE  6*31
          DLINE  6*32
          DLINE  6*33
          DLINE  6*34
          DLINE  6*35
          DLINE  6*36
          DLINE  6*37
          DLINE  6*38
          DLINE  6*39
         PLA 
         RTI 
;-----------
MAIN
         JSR AMIMAIN
         JMP SYSVBV
AMISCR
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
         .BYTE $00,$11,$22,$33,$44,$55,$66,$77,$88,$00,$00,$00,$00,$00,$00,$00
;--------
COLDAT
         *=  *+6*DLINES
         .SBYTE "                   " ;neccesary for deleting of the bottom line
;---------
AMIMAIN
         LDY INLETT
         CPY #8
         BNE PUTYLINE
;NeXT letter
          VINC  TEXTPTR+1
          VCMP  TEXTPTR+1,TEXTEND,CONT
          DPOKE  TEXTPTR+1,TEXTBEG
CONT
          DPOKE  B,0
TEXTPTR  LDA TEXTBEG
         ASL A
         ROL B+1
         ASL A
         ROL B+1
         ASL A
         ROL B+1
         STA B
         LDA B+1
         ORA #$E0    ;FONT address
         STA B+1
         LDY #0
         STY INLETT
PUTYLINE
;move up coldat (1 line)
         LDX #0
MOVELOOP
         LDA COLDAT+6,X
         STA COLDAT,X
         INX 
         CPX #6*[DLINES+1]
         BNE MOVELOOP
;-------
;put line according to y
CSH      =   COLDAT+6*[DLINES-1]
         LDA (B),Y
         STA DUMMY
         AND #$02
         BEQ NO1
          POKE  CSH+5,$04
NO1
         LDA DUMMY
         AND #$04
         BEQ NO2
          POKE  CSH+4,$06
NO2
         LDA DUMMY
         AND #$08
         BEQ NO3
          POKE  CSH+3,$08
NO3
         LDA DUMMY
         AND #$10
         BEQ NO4
          POKE  CSH+2,$0A
NO4
         LDA DUMMY
         AND #$20
         BEQ NO5
          POKE  CSH+1,$0C
NO5
         LDA DUMMY
         AND #$40
         BEQ NO6
          POKE  CSH+0,$0E
NO6
;------
        INC INLETT
;end of AMI interrupts
         RTS 
;--------------
DUMMY    .BYTE 0
INLETT   .BYTE 8
;-----
TEXTBEG  .SBYTE "  AMIPRO EFFECT. STUPID NAME, EH.... "
TEXTEND
;	     .opt list