1 REM Ins{nd av Kristoffer Eriksson <5357>    1987-03-19 17.58.16 (KERMIT)
; Fil: DOTSCRL.ASM 
; Flyttar blockgrafik en dot }t v{nster 
; Av Kristoffer Eriksson <5357> 85-03-29

SPECIALDOT  EQU   6                ; 7 f|r ABC 806, 6 f|r ABC802 
RADL[NGD    EQU   79               ; 79 f|r att bevara styrtecken p} 802-an 

START       LD    HL,30800         ; Slutet av f|rsta raden + 1 
            LD    C,24             ; Antal rader 

RADLOOP     LD    B,RADL[NGD       ; Antal tecken att skifta 
            LD    D,0              ; Nollor skiftas in till h|ger 
 
TKNLOOP     DEC   HL 
            LD    E,(HL) 
 
            LD    A,D 
            AND   5                ; 00000101, V{nsterhalvan 
            RLCA 
            BIT   4,D 
            JR    Z,X1 
            SET   SPECIALDOT,A     ; "Den illmariga dotten" 
X1          LD    D,A 

            LD    A,E 
            AND   10               ; 00001010, H|gerhalvan 
            RRCA 
            BIT   SPECIALDOT,E 
            JR    Z,X2 
            SET   4,A 
 
X2          OR    D 
            SET   5,A              ; Endast f|r ABC 802 
            LD    (HL),A 
            LD    D,E 
            DJNZ  TKNLOOP 


            LD    DE,80+RADL[NGD 
            ADD   HL,DE            ; \ka adressen till slutet av n{sta rad 
            DEC   C 
            JR    NZ,RADLOOP 
            RET