ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG013.ARC/BIG.PRO

Text File | 1979-12-31 | 2KB | 44 lines

procedure Big;

{ This procedure shifts the big (64 X 16)
  character set into the PCG memory,
  only shifted up a little to fit properly.
  Descenders are truncated.

  Writeen by Neil Brown/Gordon Rowell.
}

begin { Big }
                          { SCNTOP        EQU   0F000H  }
                          { PCGRAM        EQU   0F800H  }
                          { PCGSIZE       EQU   800H    }
                          { ROMPORT       EQU   0BH     }
                          { CRTSLCT       EQU   0CH     }
                          { CRTDATA       EQU   0DH     }


inline($3E/ $0C/          { BIG:   LD      A,12         }
       $D3/ $0C/          {        OUT     (CRTSLCT),A  }
       $AF/               {        XOR     A            }
       $D3/ $0D/          {        OUT     (CRTDATA),A  }
       $3C/               {        INC     A            }
       $D3/ $0B/          {        OUT     (ROMPORT),A  }
       $21/ $1388/        {        LD      HL,5000      }
       $2B/               { BIG_1: DEC     HL           }
       $7C/               {        LD      A,H          }
       $B5/               {        OR      L            }
       $20/ $FB/          {        JR      NZ,BIG_1     }
       $21/ $F004/        {        LD      HL,SCNTOP+4  }
       $11/ $F800/        {        LD      DE,PCGRAM    }
       $01/ $0800/        {        LD      BC,PCGSIZE   }
       $ED/ $B0/          {        LDIR                 }
       $AF/               {        XOR     A            }
       $D3/ $0B/          {        OUT     (ROMPORT),A  }
       $3E/ $0C/          {        LD      A,12         }
       $D3/ $0C/          {        OUT     (CRTSLCT),A  }
       $3E/ $20/          {        LD      A,20H        }
       $D3/ $0D           {        OUT     (CRTDATA),A  }
      )

end; { Big }