;PROGRAMMET FYLLER HELA SK[RMEN
;MED SENAST INSKRIVNA TECKEN.
;VALTER PETTERSSON, ABC-2008
;
      ORG 65408  ;ADRESS F\R DET
;                 F[RDIGA PROGRAMMETS
;                 STARTADRESS.
;
NYTT  LD HL,31744;BILDMINNETS START
      LD  B,32   ;32*32=1024
      LD  C,32   ;(HELA BILDMINNET)
;
MERA  IN A,(56)  ;L[S SENASTE TANGENT
      LD (HL),A  ;SKRIV TECKEN P] SK[RM
      INC HL     ;BILDMINNE+1
      DEC B      ;MINSKA INRE LOOP
      JP NZ,MERA ;B EJ=0 ?
      LD B,40    ;B=0. NY SLINGA
      DEC C      ;MINSKA YTTRE LOOP
      JP NZ,MERA ;C EJ=0 ?
      JP NYTT    ;FULL SK[RM=>OMSTART