CaChars Code

Graphics mode console I/O for the TRS-80 Color Computer

Status: Beta
Brought to you by: juanccyc
[r9]: / trunk / cachars.asm Maximize Restore History
1666 lines (1487 with data), 29.5 kB

* CACHARS - GRAPHICS MODE CONSOLE I/O FOR THE TRS-80 COLOR COMPUTER
*
* COPYRIGHT (C) 2012 JUAN CARLOS CASTRO Y CASTRO
*
* THIS PROGRAM REQUIRES AT LEAST 32 KB RAM, AND OCCUPIES AROUND 2 KB
* OF BASIC RAM.
*
* USAGE EXAMPLE:
* 10 CLEAR nnnn,&H6FFF
* 20 LOADM "CACHARS.BIN"
* 30 PMODE 4,1:SCREEN 1,0
* 40 EXEC
* 50 VA=USR8(0) 'VA POINTS TO CACHARS DATA AREA
* 60 POKE VA,18:POKE VA+1,12
* 70 PRINT "HELLO CENTERED!"
*
* COMMENT, SUGGESTIONS, AND CONTRIBUTIONS:
* jccyc[YEAR-JIM-CLARK-WON-SECOND-FORMULA-ONE-TITLE]@gmail.com
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License as
* published by the Free Software Foundation, either version 2.1 of the
* License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
* GNU Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this program.
* If not, see <http://www.gnu.org/licenses/>.

* COLOR BASIC VARIABLES
FRETOP		EQU $0021	* STRING AREA START
MEMSIZ		EQU $0027	* END OF BASIC RAM
DEVCFW		EQU $006A	* TAB WIDTH
DEVLCF		EQU $006B	* LAST TAB STOP
DEVPOS		EQU $006C	* PRINT POSITION
DEVWID		EQU $006D	* PRINT WIDTH
PRTDEV		EQU $006E	* PRINT DEVICE (0=NOT CASS; -1=CASS)
DEVNUM		EQU $006F	* DEVICE NUMBER
CINBFL		EQU $0070	* CONSOLE IN BUFFER EMPTY FLAG
HRWIDTH		EQU $00E7	* COCO 3 HI-RES TEXT MODE
USRADR		EQU $00B0	* POINTER TO ARRAY OF USR FUNCTIONS (0-9)
GRAPHRAM	EQU $00BA	* ADDRESS OF VIDEO RAM

* RAM VECTOR LOCATIONS
RVEC2		EQU $0164	* SET PRINT PARAMS
VEC2		EQU RVEC2+1
RVEC3		EQU $0167	* CONSOLE OUT
VEC3		EQU RVEC3+1
RVEC4		EQU $016A	* CONSOLE IN
VEC4		EQU RVEC4+1
RVEC12		EQU $0182	* LINE INPUT
VEC12		EQU RVEC12+1
RVEC22		EQU $01A0	* CLS
VEC22		EQU RVEC22+1

* COCO 3 PATCH JUMP LOCATIONS
PATCH23JMP	EQU $A910	* COCO 3 CLS PATCH JUMP
PATCH23ADDR	EQU PATCH23JMP+1
PATCHCLEARJSR   EQU $F75B		* CALL TO "LOW-RES" CLS WHEN
PATCHCLEARADDR	EQU PATCHCLEARJSR+1	* CLEAR KEY IS PRESSED

* ROM SUBROUTINE ADDRESSES
KEYIN		EQU $A1CB
CLEAR		EQU $AD26
GETBYTEARG	EQU $B70B	* PARSE A BYTE ARGUMENT FROM BASIC LINE
GIVABF		EQU $B4F4	* CONVERT ACCD TO FLOATING POINT
ALINK23		EQU $F6AD	* COCO 3 HI-RES CLS

* COCO I/O PORTS
PIA1		EQU $FF20

*
* MACROS
*

* LOGICAL SHIFT RIGHT ACCA BY ACCB BITS (TRASHES ACCB)
SHRABYB		MACRO
@L		LSRA
		DECB
		BNE @L
		ENDM

* LOGICAL SHIFT RIGHT X BY ACCB BITS
SHRXBYB		MACRO
		PSHS B
		EXG D,X
@L		LSRA
		RORB
		DEC ,S
		BNE @L
		EXG D,X
		LEAS 1,S
		ENDM
		
*
* MAIN CODE
*

		ORG $7840

MSG		FCC	'Welcome to CaChars '
		INCLUDE	version.asm
		FCB	13
		FCC	'© 2012 Juan Carlos Castro y Castro'
		FCB	13
		FCC	'Distributed under the terms of the GNU LGPL v2.1+'
		FCB	13,13
		FCB	0

* START: DISPLAY MESSAGE ONTO PMODE 4 SCREEN,
* THEN HOOK BASIC ROM, THEN RETURN

BEG		LBSR CLS
		LBSR GETPARMS
		LDX #MSG
		LBSR PRINTSTR

* REDIRECT RAM VECTORS; SAVE OLD ONES FOR DAISYCHAINING

		LDD VEC2	* SAVE ALL OLD RAM VECTORS
		STD OLDVEC2
		LDD VEC3
		STD OLDVEC3
		LDD VEC4
		STD OLDVEC4
		LDD VEC12
		STD OLDVEC12
		LDD VEC22
		STD OLDVEC22
		
		LDD #NEWPRINTPARMS	* HOOK COMMON VECTORS
		STD VEC2
		LDD #NEWCONIN
		STD VEC4
		
		LDX USRADR	* POINT TO START OF USR ARRAY
		LEAX 16,X	* POINT TO USR8
		LDD #USRFUNC
		STD ,X

		LDD $FFFE	* ARE WE RUNNING IN A COCO 3?
		CMPD #$8C1B	* IF SO...
		BEQ COCO3SETUP	* DO COCO 3 SPECIFIC INIT

COCO1AND2SETUP	LDD #NEWCONOUT
		STD VEC3
		LDD #NEWLINEINPUT
		STD VEC12
		LDD #NEWCLS
		STD VEC22		
		BRA SHEDINITCODE

COCO3SETUP	LDD #NEWCONOUTCOCO3	* IN COCO3, CONOUT HAS TO TEST
		STD VEC3		* FOR HI-RES TEXT MODES
		LDD PATCH23ADDR		* PATCH BASIC BECAUSE RVEC22 IS
		STD OLDVEC22		* NONFUNCTIONAL IN A COCO 3
		LDD #NEWCLSCOCO3
		STD PATCH23ADDR
		LDD #NEWCLSCOCO3LI
		STD PATCHCLEARADDR
		
SHEDINITCODE	LDD FRETOP
		SUBD MEMSIZ	* ACCD = MINUS STRING AREA SIZE
		LDX #RESIDENT-1
		STX MEMSIZ
		LEAX D,X
		STX FRETOP
		JMP CLEAR	* PERFORM CLEAR WITH NEW RAM LIMITS

* START OF RESIDENT CODE

RESIDENT	EQU *

* CACHARS VARIABLES
		
DATAAREA	EQU *
CURX		FCB 0		* CURSOR COLUMN POSITION (0-50 OR 0-63)
CURY		FCB 0		* CURSOR ROW POSITION (0-23)
CURSORCHAR	FCB $8D		* $81 = BLOCK, $8D = THICK UL
CURSORDELAY	FDB $240
REVERSE		FCB 0		* 0 = GREEN ON BLACK; 1 = BLACK ON GREEN
CURSORENABLE	FCB 2		* 0 = NO TEXT CURSOR; 1 = FIXED; 2 = BLINK
TEXTMODE	FCB 0		* 0 = 51x24; 1 = 64x24
FONTLOCATION	FDB CHARSET
CLEARKEYCLEARS	FCB 0		* NEXT PRESS OF CLEAR KEY DOES CLS

* PREVIOUS RAM VECTOR STORAGE & JUMP TABLE

OLDRVEC2	JMP $8000
OLDVEC2		EQU OLDRVEC2+1	* PREVIOUS PRINT PARAMS VECTOR
OLDRVEC3	JMP $8000
OLDVEC3		EQU OLDRVEC3+1	* PREVIOUS CONSOLE OUT VECTOR
OLDRVEC4	JMP $8000
OLDVEC4		EQU OLDRVEC4+1	* PREVIOUS CONSOLE IN VECTOR
OLDRVEC12	JMP $8000
OLDVEC12	EQU OLDRVEC12+1	* PREVIOUS LINE INPUT VECTOR
OLDRVEC22	JMP $8000
OLDVEC22	EQU OLDRVEC22+1	* PREVIOUS CLS VECTOR

* LOOKUP TABLES FOR BYTE POSITION AND BIT DISPLACEMENTS
* OF A 5-BIT STRING WITHIN A 40-BIT BLOCK

BITDISPS	FCB 1,6,3,0,5,2,7,4
BYTEDISPS	FCB 0,0,1,2,2,3,3,4	

EEMSG		FCC 'Good Idea'
		FCB 13,0

USRFUNC		LDD #DATAAREA
		JMP GIVABF

* OBTAIN MEMORY LOCATION FOR CHARACTER COORDINATES
*
* INPUT:   ACCA = LINE NUMBER (0-23)
*          ACCB = COLUMN NUMBER (0-63)
*                 (NOT TESTED FOR OUT OF RANGE)
* OUTPUT:  Y    = MEMORY LOCATION
*          ACCB = BIT DISPLACEMENT
* TRASHES: ACCA, X

GETMEMPOSXY	TST TEXTMODE
		BEQ GETMEMPOSXY51

		PSHS B
		CLRB
		LDY GRAPHRAM
		LEAY D,Y	* 256 BYTES/LINE. SO CONVENIENT,
		LDB ,S		* SO NOT PORTABLE.
		LSRB		* HALF THE COLUMN NUMBER IS HOW MANY
		LEAY B,Y	* WE HAVE TO MOVE FORWARD IN THIS MODE
		PULS B		* GET COLUMN NUMBER AGAIN
		ANDB #$01
		LSLB
		LSLB		* IF ODD, BIT DISPLACEMENT IS 4
		RTS

GETMEMPOSXY51	PSHS B
		CLRB
		LDY GRAPHRAM
		LEAY D,Y	* 256 BYTES/LINE. SO CONVENIENT,
		LDB ,S		* SO NOT PORTABLE.
		LSRB		* PUSH LINE POS
		LSRB
		LSRB		* B = # OF 5-BYTE ADVS
		LEAY B,Y	* ADD 1X IT
		LSLB
		LSLB
		LEAY B,Y	* PLUS 4X IT
		PULS B
		ANDB #7		* REMAINDER OF ADVANCEMENT
		LDX #BYTEDISPS	* WE GET FROM TABLE
		LDA B,X
		LEAY A,Y	* Y IS IN CORRECT BYTE POS
		LDX #BITDISPS
		LDB B,X		* GOT BIT DISPLACEMENT
RTS01		RTS

* CONSOLE OUT RAM HOOK
NEWCONOUTCOCO3	TST HRWIDTH
		BNE OLDRVEC3
NEWCONOUT	BSR TSTHIRES
		BNE OLDRVEC3
		TST DEVNUM
		BNE OLDRVEC3
		LEAS 2,S	* BLEED INTO CHAROUT

* OUTPUT ASCII CHARACTER
* INPUT:   ACCA = ASCII CHARACTER
* OUTPUT:  NONE
* TRASHES: NONE

CHAROUT		PSHS D,X,Y
		CMPA #$0D
		BEQ OUTEOL
		CMPA #$0A
		BEQ OUTLF
		CMPA #$08
		BEQ OUTBS
		LDB CURX
		LDA CURY
		BSR GETMEMPOSXY
		LDA ,S
		BSR PUTCHAR
UPDATECURSOR	LDA CURX
		INCA
		CMPA DEVWID
		BHS OUTEOL
		STA CURX
CHAROUTEND	PULS D,X,Y,PC
OUTBS		LDB CURX
		TSTB
		BEQ CHAROUTEND
		DECB
		STB CURX
		LDA CURY
		LBSR GETMEMPOSXY
		LDA #$20
		BSR PUTCHAR
		BRA CHAROUTEND
OUTEOL		CLR CURX
OUTLF		LDA CURY
		INCA
		CMPA #24
		BHS DOSCROLL
		STA CURY
		BRA CHAROUTEND
DOSCROLL	LBSR SCROLLUP
		BRA CHAROUTEND

* OUTPUT AN ASCIIZ STRING POINTED BY X
* (TRASHES: ACCA, X)

PRINTSTR	LDA ,X+
		TSTA
		BEQ RTS01	* SAVE 1 BYTE USING SOMEONE ELSE'S RTS
		BSR CHAROUT
		BRA PRINTSTR

* SET ZF IF IN 256x192 GRAPHICS SCREEN

TSTHIRES	PSHS A
		LDA PIA1+2
		ANDA #$F0
		CMPA #$F0
		PULS A,PC
		
* APPLY ASCII CHARACTER TO SCREEN MEMORY
* INPUT:   ACCA = ASCII CHARACTER
*          Y    = MEMORY LOCATION
*          ACCB = BIT DISPLACEMENT (0-7)
* OUTPUT:  NONE
* TRASHES: ACCD, X

OUTARANGE	CLRA
		BRA PROCEED
PUTCHAR		PSHS D
		SUBA #32
		CMPA #224
		BHS OUTARANGE
PROCEED		EXG A,B
		CLRA
		LSLB
		ROLA
		LSLB
		ROLA
		ANDB #$F8
		LDX #CHARSET
		LEAX D,X
		PULS D
		ANDA #1
		BNE RENDERCHARODD	* BLEED INTO RENDERCHAR

* APPLY A CHARACTER CELL TO A MEMORY LOCATION
* INPUT:   X    = CHARACTER CELL (HIGH NIBBLES)
*          Y    = MEMORY LOCATION
*          ACCB = BIT DISPLACEMENT (0-7)
* OUTPUT:  NONE
* TRASHES: ACCA, X

RENDERCHAR	LDA #8
		PSHS D,Y
LOOPCHAR	LDA ,X+
		LDB 1,S
		PSHS X
		ANDA #$F0
		BSR APPLYNIBBLE
		PULS X
		LEAY 32,Y	* BYTES PER SCANLINE
		DEC ,S
		BNE LOOPCHAR
		PULS D,Y,PC

* APPLY A CHARACTER CELL TO A MEMORY LOCATION
* INPUT:   X    = CHARACTER CELL (LOW NIBBLES)
*          Y    = MEMORY LOCATION
*          ACCB = BIT DISPLACEMENT (0-7)
* OUTPUT:  NONE
* TRASHES: ACCA, X

RENDERCHARODD	LDA #8
		PSHS D,Y
LOOPCHARODD	LDA ,X+
		LSLA
		LSLA
		LSLA
		LSLA
		LDB 1,S
		PSHS X
		BSR APPLYNIBBLE
		PULS X
		LEAY 32,Y	* BYTES PER SCANLINE
		DEC ,S
		BNE LOOPCHARODD
		PULS D,Y,PC

* SET PRINT PARAMETERS RAM HOOK
NEWPRINTPARMS	BSR TSTHIRES
		LBNE OLDRVEC2
		TST DEVNUM
		LBNE OLDRVEC2
		LEAS 2,S
GETPARMS	PSHS D
		CLR PRTDEV
		LDA CURX
		STA DEVPOS
		TST TEXTMODE
		BNE PARMS64
		LDA #51
		STA DEVWID
		LDD #$1020
		STD DEVCFW
		PULS D,PC
PARMS64		LDA #64
		STA DEVWID
		LDD #$1030
		STD DEVCFW
		PULS D,PC

* APPLY A NIBBLE TO A MEMORY LOCATION
* INPUT:   ACCA = NIBBLE (USES THE HIGH ONE)
*                 LOW 4 BITS MUST BE ALREADY ZEROED OUT
*          Y    = MEMORY LOCATION
*          ACCB = BIT DISPLACEMENT (0-7)
* OUTPUT:  NONE
* TRASHES: ACCD, X

APPLYNIBBLE	TST TEXTMODE
		BEQ APPLYNIBBLE51

		TST REVERSE
		BNE FLIPNIBBLE
APPLYNIBBLE64	TSTB
		BNE RIGHTNIBBLE64
		LDB ,Y
		ANDB #$0F
		PSHS B
		ORA ,S+
		STA ,Y
		RTS
RIGHTNIBBLE64	LSRA
		LSRA
		LSRA
		LSRA
		LDB ,Y
		ANDB #$F0
		PSHS B
		ORA ,S+
		STA ,Y
		RTS
FLIPNIBBLE	COMA
		ANDA #$F0
		BRA APPLYNIBBLE64

APPLYNIBBLE51	CMPB #3
		BHI NASTY
		TSTB
		BEQ SIMPLE

MEDIUM		PSHS B		* STACK HAS 1: DISP
		SHRABYB
		PSHS A		* STACK HAS 2: SHIFTED NIBBLE, DISP
		LDA #$F8
		LDB 1,S
		SHRABYB
		PULS B		* ACCB HAS SHIFTED NIBBLE, STACK HAS 1: DISP
		EXG A,B		* CORRECT REGS FOR APPLYBITS
		LEAS 1,S	* DISCARD STACK
APPLYBITS	TST REVERSE
		BEQ NOREVM	* APPLY COMPLEMENT IF IN REVERSE MODE
		COMA
NOREVM		PSHS B		* APPLY BITS OF ACCA TO MEMORY POINTED BY Y,
		ANDA ,S+	* WITH MASK IN ACCB
		COMB
		ANDB ,Y
		PSHS B
		ORA ,S+
		STA ,Y
		RTS

NASTY		PSHS D		* STACK HAS 2: NIBBLE,DISPL
		LDX #$F800
		SHRXBYB
		PSHS X		* STACK HAS 4: 16BMASK,NIBBLE,DISP
		LDX 2,S
		LDB 3,S
		SHRXBYB		* X HAS SHIFTED NIBBLE
		PULS D		* D HAS 16BMASK, STACK HAS 2: NIBBLE,DISP
		EXG D,X		* CORRECT REGS FOR APPLYBITSD
		LEAS 2,S	* DISCARD STACK
		TST REVERSE
		BEQ NOREVN	* APPLY COMPLEMENT IF IN REVERSE MODE
		COMA
		COMB
NOREVN		PSHS X		* APPLYBITSD: APPLY BITS OF ACCD TO
		ANDA ,S		* MEMORY POINTED BY Y, WITH MASK IN X
		ANDB 1,S
		PSHS D
		LDD 2,S
		COMA
		COMB
		ANDA ,Y
		ANDB 1,Y
		ORA ,S
		ORB 1,S
		STD ,Y
		PULS D,X,PC

SIMPLE		LDB #$F8
		BRA APPLYBITS

* SCROLL SCREEN UP ONE LINE
* (A 6309 WOULD MAKE THIS WAAAAY FASTER)
SCROLLUP	PSHS D,X,Y
		LDY GRAPHRAM
		LEAX $1800,Y
		PSHS X
		LEAX 256,Y
SCRLOOP		LDD ,X++	* MOVE 4 WORDS AT A TIME TO DO
		STD ,Y++	* LESS BRANCHES (~15% FASTER)
		LDD ,X++
		STD ,Y++
		LDD ,X++
		STD ,Y++
		LDD ,X++
		STD ,Y++
		CMPX ,S
		BLO SCRLOOP
		LDA REVERSE	* FILL LAST LINE WITH $FF IF
		TFR A,B		* REVERSE OR 0 IF NORMAL
		TFR Y,X		* USE THE BETTER INDEX REGISTER
CLRLASTLOOP	STD ,X++
		CMPX ,S
		BLO CLRLASTLOOP
		LEAS 2,S
		PULS D,X,Y,PC

* CONSOLE IN RAM HOOK
NEWCONIN	TST CURSORENABLE
		LBEQ OLDRVEC4
		TST DEVNUM
		LBNE OLDRVEC4
		LBSR TSTHIRES
		LBNE OLDRVEC4
		LEAS 2,S
		PSHS B,X,Y
		LDA CURSORENABLE
		CMPA #1
		BEQ FIXEDCURSOR
		LDX #$1
		LDB #$20
WAITFORKEY	JSR KEYIN
		BNE GOTACHAR
		LDA CURSORENABLE
		CMPA #1
		BEQ WAITFORKEY
		LEAX -1,X
		BNE WAITFORKEY
		LDX CURSORDELAY
		NEGB
		ADDB CURSORCHAR
		ADDB #$20		* MOVE TO ALTERNATING CHAR
		BSR PAINTCHAR
		BRA WAITFORKEY
GOTACHAR	CMPA #$0C		* CLEAR?
		BNE NOCLEARKEY
		TST CLEARKEYCLEARS	* ARE WE WITHIN A LINE INPUT?
		BEQ NOCLEARKEY
		BSR CLS
		CLR CLEARKEYCLEARS	* NEXT CLEAR WON'T CLEAR
		LDA #08			* CHAR = BS AND CHAR COUNT = -1
		LDB #1			* WILL FORCE A LINE INPUT RESTART
		STB ,S
NOCLEARKEY	PSHS A
		CMPB #$20
		BEQ NONEEDTOWIPE
		LDB #$20
		BSR PAINTCHAR		* PAINT SPACE
NONEEDTOWIPE	CLR CINBFL		* CLEAR CONSOLE IN BUFFER EMPTY FLAG
		PULS A,B,X,Y,PC

FIXEDCURSOR	LDB CURSORCHAR
		BSR PAINTCHAR
		BRA WAITFORKEY
		
* LINE INPUT RAM HOOK
NEWLINEINPUT	LBSR TSTHIRES
		BNE GOOLDRVEC12
		TST DEVNUM
		BNE GOOLDRVEC12
		PSHS A
		LDA #1
		STA CLEARKEYCLEARS
		PULS A
GOOLDRVEC12	LBRA OLDRVEC12

* PAINT CHARACTER IN ACCB AT CURSOR POSITION, DON'T ADVANCE
* TODO: GENERALIZE AND USE SAME ROUTINE CHAROUT USES
PAINTCHAR	PSHS B,X
		LDB CURX
		LDA CURY
		LBSR GETMEMPOSXY
		LDA ,S
		LBSR PUTCHAR
		PULS B,X,PC

GOOLDRVEC22	PULS CC
		LBRA OLDRVEC22
		
* CLS RAM HOOK
NEWCLS		PSHS CC			* CLS HOOK HAS TO PRESERVE FLAGS
		LBSR TSTHIRES
		BNE GOOLDRVEC22
		PULS CC			* RECOVER FLAGS
		BEQ NOCLSARG		* ZF => NO ARGUMENTS
		JSR GETBYTEARG		* PARSE & IGNORE (IN THIS VERSION)
NOCLSARG	LEAS 2,S		* DISCARD RET ADDR
CLS		PSHS D,X,Y,U
		LDX GRAPHRAM
		LDA REVERSE		* FILL WITH EITHER FF OR 00
		TFR A,B
		TFR D,Y
		LDD #$600
		TFR Y,U
LOOPCLS		STY ,X++
		STU ,X++
		SUBD #1
		BNE LOOPCLS
		CLR CURX
		CLR CURY
		LDA 1,S
		CMPA #51
		BNE NOEE
		LDX #EEMSG
		LBSR PRINTSTR
NOEE		PULS D,X,Y,U,PC

* COCO 3 CLS PATCH CODE
NEWCLSCOCO3LI	ORCC #4			* SET ZF TO AVOID BASIC PARSING
NEWCLSCOCO3	PSHS CC
		TST HRWIDTH
		BNE GOALINK23
		LBSR TSTHIRES
		BNE GOOLDRVEC22
		PULS CC
		BEQ CLS
		JSR GETBYTEARG		* PARSE & IGNORE (IN THIS VERSION)
		BRA CLS
GOALINK23	JMP ALINK23
		
* THE "FONT", SUCH AS IT IS. DRAWN ON NOTEPAD FROM SWEET, SWEET
* MEMORIES OF SUPER COLOR WRITER. NO, REALLY. NOT KIDDING. HONEST.

CHARSET		FCB %00000100
		FCB %00000100
		FCB %00000100
		FCB %00000100
		FCB %00000100
		FCB %00000000
		FCB %00000100
		FCB %00000000

		FCB %01010110
		FCB %01010110
		FCB %10101111
		FCB %00000110
		FCB %00001111
		FCB %00000110
		FCB %00000110
		FCB %00000000

		FCB %01101100
		FCB %01111101
		FCB %10000010
		FCB %01100100
		FCB %00011000
		FCB %11101011
		FCB %01100011
		FCB %00000000

		FCB %01000010
		FCB %10100010
		FCB %10100100
		FCB %01000000
		FCB %10110000
		FCB %10100000
		FCB %01010000
		FCB %00000000

		FCB %00011000
		FCB %00100100
		FCB %01000010
		FCB %01000010
		FCB %01000010
		FCB %00100100
		FCB %00011000
		FCB %00000000

		FCB %00000000
		FCB %10010100
		FCB %01100100
		FCB %11111110
		FCB %01100100
		FCB %10010100
		FCB %00000000
		FCB %00000000

		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %00001111
		FCB %01100000
		FCB %01100000
		FCB %00100000
		FCB %01000000

		FCB %00000000
		FCB %00000001
		FCB %00000010
		FCB %00000100
		FCB %00001000
		FCB %01101000
		FCB %01100000
		FCB %00000000

		FCB %01100010
		FCB %10010110
		FCB %10111010
		FCB %11010010
		FCB %10010010
		FCB %10010010
		FCB %01101111
		FCB %00000000

		FCB %01100110
		FCB %10011001
		FCB %00010001
		FCB %00100010
		FCB %01000001
		FCB %10001001
		FCB %11110110
		FCB %00000000

		FCB %00011111
		FCB %00111000
		FCB %01011110
		FCB %10010001
		FCB %11110001
		FCB %00011001
		FCB %00010110
		FCB %00000000

		FCB %01111111
		FCB %10001001
		FCB %10000001
		FCB %11100010
		FCB %10010100
		FCB %10011000
		FCB %01101000
		FCB %00000000

		FCB %01100110
		FCB %10011001
		FCB %10011001
		FCB %01100111
		FCB %10010001
		FCB %10010001
		FCB %01100110
		FCB %00000000

		FCB %00000000
		FCB %01100110
		FCB %01100110
		FCB %00000000
		FCB %01100110
		FCB %01100110
		FCB %00000010
		FCB %00000100

		FCB %00010000
		FCB %00100000
		FCB %01001111
		FCB %10000000
		FCB %01001111
		FCB %00100000
		FCB %00010000
		FCB %00000000

		FCB %10000110
		FCB %01001001
		FCB %00100001
		FCB %00010010
		FCB %00100100
		FCB %01000000
		FCB %10000100
		FCB %00000000

		FCB %01100110
		FCB %10011001
		FCB %10111001
		FCB %10111111
		FCB %10101001
		FCB %10001001
		FCB %01111001
		FCB %00000000

		FCB %11100110
		FCB %10011001
		FCB %10011000
		FCB %11101000
		FCB %10011000
		FCB %10011001
		FCB %11100110
		FCB %00000000

		FCB %11001111
		FCB %10101000
		FCB %10011000
		FCB %10011110
		FCB %10011000
		FCB %10101000
		FCB %11001111
		FCB %00000000

		FCB %11110111
		FCB %10001000
		FCB %10001000
		FCB %11101011
		FCB %10001001
		FCB %10001001
		FCB %10000111
		FCB %00000000

		FCB %10011110
		FCB %10010100
		FCB %10010100
		FCB %11110100
		FCB %10010100
		FCB %10010100
		FCB %10011110
		FCB %00000000

		FCB %00011001
		FCB %00011010
		FCB %00011100
		FCB %00011100
		FCB %10011010
		FCB %10011001
		FCB %01101001
		FCB %00000000

		FCB %10001001
		FCB %10001111
		FCB %10001111
		FCB %10001001
		FCB %10001001
		FCB %10001001
		FCB %11111001
		FCB %00000000

		FCB %10010110
		FCB %11011001
		FCB %11011001
		FCB %10111001
		FCB %10111001
		FCB %10011001
		FCB %10010110
		FCB %00000000

		FCB %11100110
		FCB %10011001
		FCB %10011001
		FCB %11101001
		FCB %10001101
		FCB %10001010
		FCB %10000101
		FCB %00000000

		FCB %11100111
		FCB %10011000
		FCB %10011000
		FCB %11100110
		FCB %11000001
		FCB %10100001
		FCB %10011110
		FCB %00000000

		FCB %11111001
		FCB %01001001
		FCB %01001001
		FCB %01001001
		FCB %01001001
		FCB %01001001
		FCB %01000110
		FCB %00000000

		FCB %10011001
		FCB %10011001
		FCB %10011001
		FCB %10011001
		FCB %10101111
		FCB %10101111
		FCB %01001001
		FCB %00000000

		FCB %10011001
		FCB %10011001
		FCB %01101001
		FCB %01100111
		FCB %10010001
		FCB %10010001
		FCB %10010110
		FCB %00000000

		FCB %11110111
		FCB %00010100
		FCB %00100100
		FCB %01000100
		FCB %10000100
		FCB %10000100
		FCB %11110111
		FCB %00000000

		FCB %00001110
		FCB %10000010
		FCB %01000010
		FCB %00100010
		FCB %00010010
		FCB %00010010
		FCB %00001110
		FCB %00000000

		FCB %01000000
		FCB %10100000
		FCB %10100000
		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %00001111

		FCB %01000000
		FCB %01000000
		FCB %00100110
		FCB %00000001
		FCB %00000111
		FCB %00001001
		FCB %00000111
		FCB %00000000

		FCB %10000000
		FCB %10000000
		FCB %10000111
		FCB %11101000
		FCB %10011000
		FCB %10011000
		FCB %11100111
		FCB %00000000

		FCB %00010000
		FCB %00010000
		FCB %00010110
		FCB %01111001
		FCB %10011111
		FCB %10011000
		FCB %01110111
		FCB %00000000

		FCB %00110000
		FCB %01000000
		FCB %01000111
		FCB %11101001
		FCB %01001001
		FCB %01000111
		FCB %01000001
		FCB %00000110

		FCB %10000100
		FCB %10000000
		FCB %10001100
		FCB %11100100
		FCB %10010100
		FCB %10010100
		FCB %10011110
		FCB %00000000

		FCB %00101000
		FCB %00001000
		FCB %01101001
		FCB %00101010
		FCB %00101100
		FCB %00101010
		FCB %00101001
		FCB %11000000

		FCB %11000000
		FCB %01000000
		FCB %01001110
		FCB %01001111
		FCB %01001111
		FCB %01001001
		FCB %11101001
		FCB %00000000

		FCB %00000000
		FCB %00000000
		FCB %11100110
		FCB %10011001
		FCB %10011001
		FCB %10011001
		FCB %10010110
		FCB %00000000

		FCB %00000000
		FCB %00000000
		FCB %11100111
		FCB %10011001
		FCB %10011001
		FCB %11100111
		FCB %10000001
		FCB %10000001

		FCB %00000000
		FCB %00000000
		FCB %10110111
		FCB %11001000
		FCB %10000110
		FCB %10000001
		FCB %10001110
		FCB %00000000

		FCB %01000000
		FCB %01000000
		FCB %11111001
		FCB %01001001
		FCB %01001001
		FCB %01001001
		FCB %00110111
		FCB %00000000

		FCB %00000000
		FCB %00000000
		FCB %10011001
		FCB %10011001
		FCB %10011111
		FCB %10101111
		FCB %01001001
		FCB %00000000

		FCB %00000000
		FCB %00000000
		FCB %10011001
		FCB %10011001
		FCB %01101001
		FCB %10010111
		FCB %10010001
		FCB %00000110

		FCB %00000011
		FCB %00000100
		FCB %11110100
		FCB %00101000
		FCB %01000100
		FCB %10000100
		FCB %11110011
		FCB %00000000

		FCB %01001100
		FCB %01000010
		FCB %01000010
		FCB %00000001
		FCB %01000010
		FCB %01000010
		FCB %01001100
		FCB %00000000

		FCB %01011111
		FCB %10100000
		FCB %00001111
		FCB %00000000
		FCB %00001111
		FCB %00000000
		FCB %00001111
		FCB %00000000

		FCB %00111111
		FCB %01001111
		FCB %11111111
		FCB %10001111
		FCB %11111111
		FCB %01001111
		FCB %00111111
		FCB %00000000

		FCB %00000010
		FCB %00000100
		FCB %00000100
		FCB %00001110
		FCB %00000100
		FCB %00100100
		FCB %01001000
		FCB %10000000

		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %01011010
		FCB %01011010
		FCB %10100000

		FCB %01000100
		FCB %01000100
		FCB %11101110
		FCB %01000100
		FCB %01001110
		FCB %01000100
		FCB %01000100
		FCB %00000000

		FCB %01001100
		FCB %10101101
		FCB %10100010
		FCB %00000100
		FCB %00001000
		FCB %00000101
		FCB %00000101
		FCB %00000000

		FCB %01010000
		FCB %00100000
		FCB %01110001
		FCB %10000010
		FCB %01100100
		FCB %00010010
		FCB %11100001
		FCB %00000000

		FCB %01110000
		FCB %10100000
		FCB %10100000
		FCB %10110000
		FCB %10100000
		FCB %10100000
		FCB %01111111
		FCB %00001111

		FCB %01010000
		FCB %00100000
		FCB %11110000
		FCB %00100000
		FCB %01000000
		FCB %10000000
		FCB %11110000
		FCB %00000000

		FCB %00000100
		FCB %00000010
		FCB %00000001
		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %00000000

		FCB %00100101
		FCB %01000101
		FCB %10001010
		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %00000000

		FCB %10100000
		FCB %10100000
		FCB %01010110
		FCB %00001111
		FCB %00000110
		FCB %00000000
		FCB %00000000
		FCB %00000000

		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %11111111
		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %00000000

		FCB %01011110
		FCB %10100100
		FCB %00000100
		FCB %00000000
		FCB %00000111
		FCB %00000111
		FCB %00000101
		FCB %00000000

		FCB %01010000
		FCB %00100000
		FCB %01100100
		FCB %10000010
		FCB %01100001
		FCB %00010010
		FCB %01100100
		FCB %00000000

		FCB %00000000
		FCB %00000000
		FCB %01110000
		FCB %10100000
		FCB %10110000
		FCB %10100000
		FCB %01110000
		FCB %00000000

		FCB %00001001
		FCB %01010000
		FCB %00101001
		FCB %11111001
		FCB %00100111
		FCB %01000001
		FCB %11111110
		FCB %00000000

		FCB %00000100
		FCB %00000000
		FCB %00000100
		FCB %00000100
		FCB %00000100
		FCB %00000100
		FCB %00000100
		FCB %00000000

		FCB %00000010
		FCB %00100100
		FCB %01110100
		FCB %10001110
		FCB %10000100
		FCB %01110100
		FCB %00101111
		FCB %00000000

		FCB %00001001
		FCB %10011001
		FCB %01100110
		FCB %10010010
		FCB %01100111
		FCB %10010111
		FCB %00000010
		FCB %00000000

		FCB %01000111
		FCB %01001000
		FCB %01000110
		FCB %00001001
		FCB %01000110
		FCB %01000001
		FCB %01001110
		FCB %00000000

		FCB %10010110
		FCB %00001001
		FCB %00001011
		FCB %00001101
		FCB %00001011
		FCB %00001001
		FCB %00000110
		FCB %00000000

		FCB %11100000
		FCB %00010000
		FCB %11110000
		FCB %01110011
		FCB %00000110
		FCB %00001100
		FCB %00000110
		FCB %00000011

		FCB %00000000
		FCB %00000000
		FCB %00000000
		FCB %11111110
		FCB %00010000
		FCB %00000000
		FCB %00000000
		FCB %00000000

		FCB %00001111
		FCB %00000000
		FCB %11100000
		FCB %11110000
		FCB %10100000
		FCB %10010000
		FCB %00000000
		FCB %00000000

		FCB %01100100
		FCB %10010100
		FCB %01101110
		FCB %00000100
		FCB %00000100
		FCB %00000000
		FCB %00001110
		FCB %00000000

		FCB %11001100
		FCB %00100010
		FCB %01101100
		FCB %10000010
		FCB %11101100
		FCB %00000000
		FCB %00000000
		FCB %00000000

		FCB %00100000
		FCB %01000000
		FCB %00000101
		FCB %00000101
		FCB %00000101
		FCB %00000111
		FCB %00000100
		FCB %00001000

		FCB %01110000
		FCB %10110000
		FCB %10110000
		FCB %10110110
		FCB %01110110
		FCB %00110000
		FCB %00110000
		FCB %00000000

		FCB %00000100
		FCB %00001100
		FCB %00000100
		FCB %00000100
		FCB %00001110
		FCB %01000000
		FCB %00100000
		FCB %11000000

		FCB %01100000
		FCB %10010000
		FCB %10011100
		FCB %01100110
		FCB %00000011
		FCB %00000110
		FCB %00001100
		FCB %00000000

		FCB %10001000
		FCB %10011001
		FCB %10101010
		FCB %01000110
		FCB %11011001
		FCB %01110110
		FCB %00010111
		FCB %00000000

		FCB %11000010
		FCB %11110000
		FCB %11100010
		FCB %01000100
		FCB %11011000
		FCB %01111001
		FCB %00010110
		FCB %00000000

		FCB %10000001
		FCB %01000010
		FCB %01100110
		FCB %10011001
		FCB %10011001
		FCB %11111111
		FCB %10011001
		FCB %00000000

		FCB %01101111
		FCB %10010000
		FCB %01100110
		FCB %10011001
		FCB %10011001
		FCB %11111111
		FCB %10011001
		FCB %00000000

		FCB %10010110
		FCB %00000110
		FCB %01100110
		FCB %10011001
		FCB %10011001
		FCB %11111111
		FCB %10011001
		FCB %00000000

		FCB %00110110
		FCB %01101001
		FCB %10101000
		FCB %10111000
		FCB %11101000
		FCB %10101001
		FCB %10110110
		FCB %00001100

		FCB %01000010
		FCB %00100100
		FCB %11111111
		FCB %10001000
		FCB %11101110
		FCB %10001000
		FCB %11111111
		FCB %00000000

		FCB %01101001
		FCB %10010000
		FCB %11111111
		FCB %10001000
		FCB %11101110
		FCB %10001000
		FCB %11111111
		FCB %00000000

		FCB %10000010
		FCB %01000100
		FCB %11101110
		FCB %01000100
		FCB %01000100
		FCB %01000100
		FCB %11101110
		FCB %00000000

		FCB %01001010
		FCB %10100000
		FCB %11101110
		FCB %01000100
		FCB %01000100
		FCB %01000100
		FCB %11101110
		FCB %00000000

		FCB %11001111
		FCB %10100000
		FCB %10011001
		FCB %11011101
		FCB %10011011
		FCB %10101001
		FCB %11001001
		FCB %00000000

		FCB %10000001
		FCB %01000010
		FCB %01100110
		FCB %10011001
		FCB %10011001
		FCB %10011001
		FCB %01100110
		FCB %00000000

		FCB %01101111
		FCB %10010000
		FCB %01100110
		FCB %10011001
		FCB %10011001
		FCB %10011001
		FCB %01100110
		FCB %00000000

		FCB %10010000
		FCB %00000000
		FCB %01101001
		FCB %10010110
		FCB %10010110
		FCB %10011001
		FCB %01100000
		FCB %00000000

		FCB %00010100
		FCB %01100010
		FCB %10011001
		FCB %10111001
		FCB %11011001
		FCB %10011001
		FCB %01100110
		FCB %10000000

		FCB %00100110
		FCB %01001001
		FCB %10010000
		FCB %10011001
		FCB %10011001
		FCB %10011001
		FCB %01100110
		FCB %00000000

		FCB %10010010
		FCB %00000100
		FCB %10011001
		FCB %10011001
		FCB %10010111
		FCB %10010001
		FCB %01101110
		FCB %00000000

		FCB %10000110
		FCB %10001001
		FCB %11001001
		FCB %10101010
		FCB %11001001
		FCB %10001001
		FCB %10001010
		FCB %00000000

		FCB %01000001
		FCB %00100010
		FCB %01100110
		FCB %00010001
		FCB %01110111
		FCB %10011001
		FCB %01110111
		FCB %00000000

		FCB %01101111
		FCB %10010000
		FCB %01100110
		FCB %00010001
		FCB %01110111
		FCB %10011001
		FCB %01110111
		FCB %00000000

		FCB %10010110
		FCB %00000110
		FCB %01100110
		FCB %00010001
		FCB %01110111
		FCB %10011001
		FCB %01110111
		FCB %00000000

		FCB %00000000
		FCB %00000000
		FCB %11010111
		FCB %00111000
		FCB %01111000
		FCB %10101000
		FCB %01110111
		FCB %00001100

		FCB %10000001
		FCB %01000010
		FCB %01100110
		FCB %10011001
		FCB %11111111
		FCB %10001000
		FCB %01110111
		FCB %00000000

		FCB %01101001
		FCB %10010000
		FCB %01100110
		FCB %10011001
		FCB %11111111
		FCB %10001000
		FCB %01110111
		FCB %00000000

		FCB %10000001
		FCB %01000010
		FCB %11001100
		FCB %01000100
		FCB %01000100
		FCB %01000100
		FCB %11101110
		FCB %00000000

		FCB %01001010
		FCB %10100000
		FCB %11001100
		FCB %01000100
		FCB %01000100
		FCB %01000100
		FCB %11101110
		FCB %00000000

		FCB %10001111
		FCB %01010000
		FCB %00101110
		FCB %01011001
		FCB %10011001
		FCB %10011001
		FCB %01101001
		FCB %00000000

		FCB %10000001
		FCB %01000010
		FCB %00000000
		FCB %01100110
		FCB %10011001
		FCB %10011001
		FCB %01100110
		FCB %00000000

		FCB %01100000
		FCB %10011111
		FCB %00000000
		FCB %01100110
		FCB %10011001
		FCB %10011001
		FCB %01100110
		FCB %00000000

		FCB %00000110
		FCB %10010110
		FCB %00000000
		FCB %01101111
		FCB %10010000
		FCB %10010110
		FCB %01100110
		FCB %00000000

		FCB %00000100
		FCB %00010010
		FCB %01101001
		FCB %10111001
		FCB %11011001
		FCB %10011001
		FCB %01100111
		FCB %10000000

		FCB %00100110
		FCB %01001001
		FCB %10010000
		FCB %10011001
		FCB %10011001
		FCB %10011001
		FCB %01110111
		FCB %00000000

		FCB %10010010
		FCB %00000100
		FCB %10011001
		FCB %10011001
		FCB %10011001
		FCB %10010111
		FCB %01110001
		FCB %00000110

		FCB %10001001
		FCB %10000000
		FCB %11101001
		FCB %10011001
		FCB %11101001
		FCB %10000111
		FCB %10000001
		FCB %00000110
		
		END BEG