* Gates of Delirium
* In-game Cheat Module
* January 2005 - July 2006
* v2.2
* John Riddle

	org	$3900
start	cmpa	#$21
	beq	igce
	bne	exit2
exit	lda	#$3A
	sta	$FFA2
exit2	ldu	#$5E10
	ANDCC	#$AF
	jmp	#$60F4 
igce	orcc	#$50	
	lda	#$2F
	sta	$FFA2
	jmp	$4200
	
	org	$4200
	ldx	#$400
	ldy	#$4000
memmov	ldu	,x++
	stu	,y++
	cmpx	#$600
	bne	memmov
clear	lda	#$20
	ldx	#$400
clrscrn	sta	,x+
	cmpx	#$600
	bne	clrscrn
	clr	#$FFDE
	jsr	#$95AC
	sta	#$FFDF
	LDX	#$0400
        LDY	#title
WRTLP   LDA	,Y+
        cmpa	#$0
        BEQ	WRTST2
        STA	,X+
        BNE	WRTLP
WRTST2	LDX	#$0420
        LDY	#title2
WRTLP2  LDA	,Y+
        cmpa	#$0
        BEQ	WRTST3
        STA	,X+
        BNE	WRTLP2
WRTST3  LDX	#$0460
        LDY	#choose
WRTLP3	LDA	,Y+
	cmpa	#$0
	BEQ	WRTST4
	STA	,X+
	BNE	WRTLP3
WRTST4	LDX	#$0480
        LDY	#choose1
WRTLP4  LDA	,Y+
        cmpa	#$0
        BEQ	WRTST5
        STA	,X+
        BNE	WRTLP4
WRTST5	LDX	#$04A0
        LDY	#choose2
WRTLP5  LDA	,Y+
        cmpa	#$0
        BEQ	INKEY
        STA	,X+
        BNE	WRTLP5
	
RETURN	ldx	#$4000
	ldy	#$400
memmov1	ldu	,x++
	stu	,y++
	cmpy	#$600
	bne	memmov1
	CLR	$FFC7
	CLR	$FFC8
	CLR	$FFCA
	CLR	$FFCC
	CLR	$FFCE
	CLR	$FFD0
	CLR	$FFD2
	LDA	#$20
	STA	$FF98
	CLR	$FFC0
	CLR	$FFC3
	CLR	$FFC5
	LDA	#$FD
	STA	$FF22
	JMP	exit
		
INKEY	NOP
INKEYLP	CLR	#$FFDE
	JSR	$a1cb
	STA	#$FFDF
	BEQ	INKEYLP
	CMPA	#$21
	BEQ	RETURN
	CMPA	#$41
	BEQ	GATEKEY
	CMPA	#$46
	BEQ	FOOD
	CMPA	#$47
	BEQ	GEM
	CMPA	#$48
	BEQ	HORN
	CMPA	#$4B
	BEQ	KEY
	CMPA	#$4F
	BEQ	GOLD
	CMPA	#$54
	BEQ	TORCH
	CMPA	#$30
	BHI	inkeylp2
	BRA	INKEYLP	

inkeylp2
	CMPA	#$39
	BLO	CHARMOD
	BRA	INKEYLP


CHARMOD	JMP	SECONDSCRN	

ERASE1  LDX	#$0580
	LDA	#$20
ERASLP1	STA	,x+
	cmpx	#$059F
	BEQ	INKEY
	STA	,X+
	BNE	ERASLP1


GEM	JSR	PROCESS
	STB	$88F3
	JMP	ERASE1

KEY	JSR	PROCESS
	STB	$88F6
	JMP	ERASE1
	
GATEKEY	JSR	PROCESS
	STB	$88F7
	JMP	ERASE1		
	
TORCH	JSR	PROCESS
	STB	$88F5
	JMP	ERASE1
	
HORN	JSR	PROCESS
	STB	$88F4
	JMP	ERASE1

FOOD	CLRA	
	JSR	PROCES2
	STB	$88EF
	LDY	#BYTE3
	LDD	,Y
	LDY	#BYTE1
	STD	,Y
	JSR	CONVERT
	STB	$88F0
	JMP	ERASE1

GOLD	CLRA
	JSR	PROCES2
	STB	$88F1
	LDY	#BYTE3
	LDD	,Y
	LDY	#BYTE1
	STD	,Y
	JSR	CONVERT
	STB	$88F2
	JMP	ERASE1

	
	
SECONDSCRN	JMP SECSCR

PROCESS	LDA	#1
PROCES2	PSHS	A
	JSR	INPUTIT
	PULS	A
	JSR	CONVERT
	RTS
	
INPUTIT	JSR	AMTPRNT
	JSR	INKEYA1	
	STA	BYTE1
	STA	$0595
	JSR	INKEYA1
	STA	BYTE2
	STA	$0596
	LDA	2,S
	CMPA	#1
	BEQ	EXITINP
	JSR	INKEYA1
	STA	BYTE3
	STA	$0597
	JSR	INKEYA1
	STA	BYTE4
	STA	$0598
EXITINP	RTS

AMTPRNT	LDY	#INPUTPRNTFLAG
	LDA	,Y
	CMPA	#0
	BEQ	FIRST	
	
SECOND	LDX	#$0580
	JMP	PASTHIS

FIRST:	LDX	#$0580

PASTHIS LDY	#input
AMTLP	LDA	,Y+
        cmpa	#$0
        BEQ	EXITLP
        STA	,X+
        BNE	AMTLP
EXITLP	RTS	

INKEYA1	CLR	#$FFDE
	JSR	$a1cb
	STA	#$FFDF
	BEQ	INKEYA1
	CMPA	#$30
	BLO	INKEYA1
	CMPA	#$46
	BHI	INKEYA1
	RTS
	
CONVERT	LDA	BYTE2
	CMPA	#$40
	BHI	SUB1
	BLO	SUB2

SUB1	SUBA	#$37
	JMP	CVT2

SUB2	SUBA	#$30

CVT2	STA	BYTE5
	LDA	BYTE1
	CMPA	#$40
	BHI	SUB3
	BLO	SUB4
	
SUB3	SUBA	#$37
	JMP	CVT3

SUB4	SUBA	#$30

CVT3	LDB	#$10
	MUL
	ADDB	BYTE5
	STB	BYTE5
	RTS

SECSCR	PSHS	A
	PSHS	A
	lda	#$20
	ldx	#$400
clrsc1	sta	,x+
	cmpx	#$600
	bne	clrsc1
        LDA     $FF22
        ORA     #%00010000      ACTIVATE LOWERCASE
        STA     $FF22
	LDX	#$0400
        LDY	#screen2
WRTLP7  LDA	,Y+
        cmpa	#$0
        BEQ	WRTST8
        STA	,X+
        BNE	WRTLP7
WRTST8	LDX	#$0460
        LDY	#scrn21
WRTLP8  LDA	,Y+
        cmpa	#$0
        BEQ	CHARPTR
        STA	,X+
        BNE	WRTLP8

CHARPTR	PULS	A
	SUBA	#$31
	LDY	#CHAR1
	LDX	,Y
COUNT	CMPA	#0
	BNE	CHAROFS
	JMP	PRTSTAT

CHAROFS	LDB	#$1F
	ABX
	SUBA	#1
	JMP	COUNT

PRTSTAT	PSHS	X	
	PSHS	X
	LDY	#$040A
PRTLOOP	LDA	,X+
	CMPA	#0
	BEQ	PS2

	cmpa	#$FF
	beq skipthis

	cmpa	#$61
	blo	skiplower
	suba	#$60

skiplower	STA	,Y+
	JMP	PRTLOOP

skipthis	jmp	clear

PS2	PULS	X
	LDB	#$0C
	ABX
	LDA	,X+
	LDY	#$046B
	JSR	REVERT		STRENGTH
	
	LDA	,X+
	LDY	#$048B
	JSR	REVERT		DEX
	
	LDA	,X+
	LDY	#$04A8
	JSR	REVERT		INTEL
		
	LDA	,X+
	LDY	#$04C8
	JSR	REVERT		WISDOM
	
	LDA	,X+
	LDU	#$0420
	CMPA	#0
	BHI	FEMALE1
	LDY	#male
	BRA	WRTLP9	
FEMALE1	LDY	#female
WRTLP9  LDA	,Y+
        cmpa	#$0
        BEQ	RACE
        STA	,U+
        BNE	WRTLP9	
		
RACE	LDA	,X+
	LDU	#$0427
	CMPA	#0
	BEQ	DWARF1
	CMPA	#1
	BEQ	ELF1
	CMPA	#2
	BEQ	HUMAN1
	CMPA	#3
	BEQ	GNOME1
	CMPA	#4
	BEQ	ORC1
	
DWARF1	LDY	#dwarf
	BRA	WRTL10
ELF1	LDY	#elf
	BRA	WRTL10
HUMAN1	LDY	#human
	BRA	WRTL10
GNOME1	LDY	#gnome
	BRA	WRTL10
ORC1	LDY	#orc
			
WRTL10	LDA	,Y+
        cmpa	#$0
        BEQ	TYPE
        STA	,U+
        BNE	WRTL10	

TYPE	LDA	,X+
	LDU	#$042D
	CMPA	#0
	BEQ	CLERIC1
	CMPA	#1
	BEQ	DRUID1
	CMPA	#2
	BEQ	FIGHTER1
	CMPA	#3
	BEQ	PALADIN1
	CMPA	#4
	BEQ	RANGER1
	CMPA	#5
	BEQ	MAGIC1
	CMPA	#6
	BEQ	ILLUS1
	CMPA	#7
	BEQ	THIEF1
	
CLERIC1	LDY	#cleric
	BRA	WRTL11
DRUID1	LDY	#druid
	BRA	WRTL11
FIGHTER1	LDY	#fighter
	BRA	WRTL11
PALADIN1	LDY	#paladin
	BRA	WRTL11
RANGER1	LDY	#ranger
	BRA	WRTL11
MAGIC1	LDY	#magic
	BRA	WRTL11
ILLUS1	LDY	#illus
	BRA	WRTL11
THIEF1	LDY	#thief
	
			
WRTL11	LDA	,Y+
        cmpa	#$0
        BEQ	HP
        STA	,U+
        BNE	WRTL11	


	
HP	LDA	,X+
	LDY	#$049C
	JSR	REVERT
	LDA	,X+
	LDY	#$049E
	JSR	REVERT		HP
	
	LDA	,X+
	LDY	#$04BC
	JSR	REVERT
	LDA	,X+
	LDY	#$04BE
	JSR	REVERT		HPM
	
	LDA	,X+
	LDY	#$04DC
	JSR	REVERT
	LDA	,X+
	LDY	#$04DE
	JSR	REVERT		EXPER
	
	LDA	,X+
	LDU	#$0437
	CMPA	#0
	BEQ	GOOD1
	CMPA	#1
	BEQ	POISON1
	CMPA	#2
	BEQ	V1
	CMPA	#3
	BEQ	DEAD1
		
GOOD1	LDY	#good
	BRA	WRTL12
POISON1	LDY	#poison
	BRA	WRTL12
V1	LDY	#v
	BRA	WRTL12
DEAD1	LDY	#dead
			
WRTL12	LDA	,Y+
        cmpa	#$0
        BEQ	WEAPON
        STA	,U+
        BNE	WRTL12	

WEAPON	LDA	,X+
	LDU	#$0508
	CMPA	#0
	BEQ	HANDS1
	CMPA	#1
	BEQ	DAGGER1
	CMPA	#2
	BEQ	HAMMER1
	CMPA	#3
	BEQ	SLING1
	CMPA	#4
	BEQ	AXE1
	CMPA	#5
	BEQ	BOW1
	CMPA	#6
	BEQ	SWORD1
	CMPA	#7
	BEQ	TWOHSWORD1
	CMPA	#8
	BEQ	AXE2
	CMPA	#9
	BEQ	BOW2
	CMPA	#10
	BEQ	BOW4
	CMPA	#11
	BEQ	SWORD4
	
HANDS1	LDY	#hands
	BRA	WRTL13
DAGGER1	LDY	#dagger
	BRA	WRTL13
HAMMER1	LDY	#hammer
	BRA	WRTL13
SLING1	LDY	#sling
	BRA	WRTL13
AXE1	LDY	#axe
	BRA	WRTL13
BOW1	LDY	#bow
	BRA	WRTL13
SWORD1	LDY	#sword
	BRA	WRTL13
TWOHSWORD1	LDY	#twohsword
	BRA	WRTL13
AXE2	LDY	#axe22
	BRA	WRTL13
BOW2	LDY	#bow22
	BRA	WRTL13
BOW4	LDY	#bow44
	BRA	WRTL13
SWORD4	LDY	#sword44
				
WRTL13	LDA	,Y+
        cmpa	#$0
        BEQ	ARMOUR
        STA	,U+
        BNE	WRTL13	

ARMOUR	LDA	,X++
	LDU	#$0528
	CMPA	#0
	BEQ	SKIN1
	CMPA	#1
	BEQ	CLOTH1
	CMPA	#2
	BEQ	LEATHER1
	CMPA	#3
	BEQ	RING1
	CMPA	#4
	BEQ	SCALE1
	CMPA	#5
	BEQ	CHAIN1
	CMPA	#6
	BEQ	BANDED1
	CMPA	#7
	BEQ	PLATE1
	CMPA	#8
	BEQ	PLATE2
	
SKIN1	LDY	#skin
	BRA	WRTL14
CLOTH1	LDY	#cloth
	BRA	WRTL14
RING1	LDY	#ring
	BRA	WRTL14
LEATHER1	LDY	#leather
	BRA	WRTL14
SCALE1	LDY	#scale
	BRA	WRTL14
CHAIN1	LDY	#chain
	BRA	WRTL14
BANDED1	LDY	#banded
	BRA	WRTL14
PLATE1	LDY	#plate
	BRA	WRTL14
PLATE2	LDY	#plate22
				
WRTL14	LDA	,Y+
        cmpa	#$0
        BEQ	MP
        STA	,U+
        BNE	WRTL14


MP	LDA	,X+
	LDY	#$047C
	JSR	REVERT		MAGIC PTS

ORDER	LDA	,X
	LDY	#$0550
	JSR	REVERT

	LDX	#$0420
	LDY	#POSCOUNT
	LDA	#0
	STA	,Y
	JSR	INVERT

	
	JMP	INKEYA2	

REVERT	PSHS	A
	LSRA
 	LSRA		
        LSRA
        LSRA
        CMPA	#9
        BLE	RVT2
        ADDA	#$37
        JMP	RVT3
        
RVT2	ADDA	#$30

RVT3	STA	,Y+
	PULS	A
	LSLA
	LSLA
	LSLA
	LSLA
	LSRA
	LSRA
	LSRA
	LSRA
	CMPA	#9
        BLE	RVT4
        ADDA	#$37
        JMP	RVT5
       
RVT4	ADDA	#$30

RVT5	STA	,Y	
	RTS      
       
INKEYA2	CLR	#$FFDE
	JSR	$a1cb
	STA	#$FFDF
	BEQ	INKEYA2
	CMPA	#10
	BEQ	DOWN
	CMPA	#8
	BEQ	LEFT1
	CMPA	#9
	BEQ	RIGHT
	CMPA	#$5E
	BEQ	UP1
	CMPA	#13
	BEQ	ENTER1
	CMPA	#$21
	BEQ	RTN2
	BRA	INKEYA2

RTN2	LDY	#INPUTPRNTFLAG
	CLRB
	STB	,Y
	
	JMP	clear

ENTER1	JMP	ENTER
UP1	JMP	UP
LEFT1	JMP	LEFT

RIGHT	LDY	#POSCOUNT
	LDA	,Y
	CMPA	#14
	BEQ	INKEYA2
	LDB	#2
	MUL
	LDX	#chart1
	ABX
	LDY	,X
	EXG	X,Y
	JSR	INVERT
	
	LDY	#POSCOUNT
	LDA	,Y
	ADDA	#1
	STA	,Y
	LDB	#2
	MUL
	LDX	#chart1
	ABX
	LDY	,X
	EXG	X,Y
			
	JSR	INVERT
	JMP	INKEYA2



DOWN	LDY	#POSCOUNT
	LDA	,Y
	CMPA	#11
	BEQ	INKEYA2
	CMPA	#14
	BEQ	INKEYA2
	LDB	#2
	MUL
	LDX	#chart1
	ABX
	LDY	,X
	EXG	X,Y
	JSR	INVERT
	
	LDY	#POSCOUNT
	LDA	,Y
		
	CMPA	#2
	BLO	DOWN1
	CMPA	#4
	BLO	DOWN11
	CMPA	#10
	BHI	DOWN22
	JMP	DOWN2
	
DOWN1	LDA	#4
	STA	,Y
	JMP	DOWN3
	
DOWN11	LDA	#5
	STA	,Y
	JMP	DOWN3

DOWN2	ADDA	#2
	STA	,Y
	JMP	DOWN3
	
DOWN22  ADDA	#1
	STA	,Y
	
	
DOWN3	LDB	#2
	MUL
	LDX	#chart1
	ABX
	LDY	,X
	EXG	X,Y
	JSR	INVERT
	JMP	INKEYA2	


	
LEFT	LDY	#POSCOUNT
	LDA	,Y
	CMPA	#0
	BEQ	INKEYA3
	LDB	#2
	MUL
	LDX	#chart1
	ABX
	LDY	,X
	EXG	X,Y
	JSR	INVERT
	
	LDY	#POSCOUNT
	LDA	,Y
	SUBA	#1
	STA	,Y
	LDB	#2
	MUL
	LDX	#chart1
	ABX
	LDY	,X
	EXG	X,Y
			
	JSR	INVERT
	JMP	INKEYA2

INKEYA3	JMP	INKEYA2

UP	LDY	#POSCOUNT
	LDA	,Y
	CMPA	#4
	BLO	INKEYA3
	LDB	#2
	MUL
	LDX	#chart1
	ABX
	LDY	,X
	EXG	X,Y
	JSR	INVERT
	
	LDY	#POSCOUNT
	LDA	,Y
		
	CMPA	#12
	BLO	UP2
	JMP	UP22
	
UP2	CMPA	#4
	BEQ	UP223
	CMPA	#5
	BEQ	UP224
	SUBA	#2
	STA	,Y
	JMP	UP3

UP223	CLRA
	STA	,Y
	JMP	UP3
	
UP224	LDA	#2
	STA	,Y
	JMP	UP3
	
UP22    CMPA	#12
	BEQ	UP23
	SUBA	#1
	STA	,Y
	JMP	UP3
UP23	SUBA	#2
	STA	,Y	
	
UP3	LDB	#2
	MUL
	LDX	#chart1
	ABX
	LDY	,X
	EXG	X,Y
	JSR	INVERT
	JMP	INKEYA3
	
ENTER	LDY	#INPUTPRNTFLAG
	LDB	#$FF
	STB	,Y
	LDY	#POSCOUNT
	LDB	,Y
	CMPB	#7
	BEQ	MODHP
	CMPB	#9
	BEQ	MODHPM
	CMPB	#11
	BEQ	MODEXP

	JSR	PROCESS
	TFR	B,A
	LDY	#POSCOUNT
	LDB	,Y
	CMPB	#0
	BEQ	MODNAME
	CMPB	#1
	BEQ	MODRACE
	CMPB	#2
	BEQ	MODTYPE
	CMPB	#3
	BEQ	MODSTAT
	CMPB	#4
	BEQ	MODSTRENGTH
	CMPB	#5
	BEQ	MODMP
	CMPB	#6
	BEQ	MODDEX
	CMPB	#8
	BEQ	MODINTEL
	CMPB	#10
	BEQ	MODWIS
	CMPB	#12
	BEQ	MODWEAP
	CMPB	#13
	BEQ	MODARM
	CMPB	#14
	BEQ	MODORDER
	JMP	ENTER

MODHP	LDB	#$13
	PSHS	B
	JMP	MOD2
MODHPM	LDB	#$15
	PSHS	B
	JMP	MOD2
MODEXP	LDB	#$17	
	PSHS	B
	JMP	MOD2

MODNAME	LDB	#$10
	JMP	STOREMOD
MODRACE	LDB	#$11
	JMP	STOREMOD
MODTYPE	LDB	#$12
	JMP	STOREMOD
MODSTAT	LDB	#$19
	JMP	STOREMOD
MODSTRENGTH	LDB	#$0C
	JMP	STOREMOD
MODMP	LDB	#$1D
	JMP	STOREMOD
MODDEX	LDB	#$0D
	JMP	STOREMOD
MODINTEL	LDB	#$0E
	JMP	STOREMOD
MODWIS	LDB	#$0F
	JMP	STOREMOD
MODWEAP	LDB	#$1A
	JMP	STOREMOD
MODARM	LDB	#$1B
	JMP	STOREMOD
MODORDER	LDB	#$1E
	JMP	STOREMOD	


STOREMOD PULS	X
	ABX
	STA	,X
	PULS	A
	JMP 	SECSCR		

MOD2	CLRA
	JSR	PROCES2
	TFR	B,A
	PULS	B
	PULS	X
	ABX
	STA	,X+
	LDY	#BYTE3
	LDD	,Y
	LDY	#BYTE1
	STD	,Y
	JSR	CONVERT
	STB	,X
	PULS	A
	JMP	SECSCR

INVERT	LDA	,X
	CMPA	#$3A
	BEQ	FOUNDEND
	CMPA	#$20
	BEQ	FOUNDEND
	CMPA	#$2E
	BEQ	SKIP
	ANDA	#$DF
	EORA	#$40
	STA	,X
SKIP	LDB	#1	
	ABX
	JMP	INVERT
	
FOUNDEND	RTS

ENDLESS	JMP	ENDLESS

title	fcc	'GATES OF DELIRIUM'
	fcb	0
title2	fcc	'IN-GAME CHEAT MODULE'
	fcb	0
choose	fcc	'MODIFY CHARACTER # (1-8):'
	fcb	0
choose1	fcc	'ADD:(G)EM,(H)ORN,(T)ORCH,(K)EY'
	fcb	0
choose2	fcc	'ADD:(F)OOD, G(O)LD, G(A)TE KEY'
	fcb	0
input	fcc	'INPUT AMOUNT IN HEX:'
 	fcb	0
screen2	fcc	'CHARACTER: '
	fcb	0
scrn21	fcc	'STRENGTH:     MAGIC.POINTS:     '
	fcc	'DEXTERITY:    HIT.POINTS:       '
	fcc	'INTEL:        MAX.HIT.PTS:      '
	fcc	'WISDOM:       EXPERIENCE:       '
	fcc	'                                '
	fcc	'WEAPON:                         '
	fcc	'ARMOUR:                         '
	fcc	'PLAY.ORDER:			 '

	fcb	0
male	fcc	'MALE'
	fcb	0
female	fcc	'FEMALE'
	fcb	0
dwarf	fcc	'DWARF'
	fcb	0
elf	FCC	'ELF'
	fcb	0
human	FCC	'HUMAN'
	fcb	0
gnome	fcc	'GNOME'
	fcb	0
orc	fcc	'ORC'
	fcb	0
cleric	fcc	'CLERIC'
	fcb	0
druid	fcc	'DRUID'
	fcb	0
fighter	fcc	'FIGHTER'
	fcb	0
ranger	fcc	'RANGER'
	fcb	0
magic	fcc	'MAGICUSER'
	fcb	0
paladin	fcc	'PALADIN'
	fcb	0
illus	fcc	'ILLUS.'
	fcb	0
thief	fcc	'THIEF'
	fcb	0
good	fcc	'GOOD'
	fcb	0
poison	fcc	'POISIONED'
	fcb	0
dead	fcc	'DEAD'
	fcb	0
v	fcc	'V'
	fcb	0
hands	fcc	'HANDS'
	fcb	0
dagger	fcc	'DAGGER'
	fcb	0
hammer	fcc	'HAMMER'
	fcb	0
sling	fcc	'SLING'
	fcb	0
axe	fcc	'AXE'
	fcb	0
bow	fcc	'BOW'
	fcb	0
sword	fcc	'SWORD'
	fcb	0
twohsword	fcc	'2-H-SWORD'
	fcb	0
axe22	fcc	'+2 AXE'
	fcb	0
bow22	fcc	'+2 BOW'
	fcb	0
bow44	fcc	'+4 BOW'
	fcb	0
sword44	fcc	'+4 SWORD'
	fcb	0
skin	fcc	'SKIN'
	fcb	0
cloth	fcc	'CLOTH'
	fcb	0
leather	fcc	'LEATHER'
	fcb	0
ring	fcc	'RING'
	fcb	0
scale	fcc	'SCALE'
	fcb	0
chain	fcc	'CHAIN'
	fcb	0
banded	fcc	'BANDED'
	fcb	0
plate	fcc	'PLATE'
	fcb	0
plate22	fcc	'+2 PLATE'
	fcb	0


CHAR1	FDB	#$890D
CHAR2	FDB	#$892C
CHAR3	FDB	#$894B
CHAR4	FDB	#$896A
CHAR5	FDB	#$8989
CHAR6	FDB	#$89A8
CHAR7	FDB	#$89C7
CHAR8	FDB	#$89E6

chart1	fdb	#$0420
chart2	fdb	#$0427
chart3	fdb	#$042D
chart4	fdb	#$0437
chart5	fdb	#$0460
chart6	fdb	#$046E
chart7	fdb	#$0480
chart8	fdb	#$048E
chart9	fdb	#$04A0
charta	fdb	#$04AE
chartb	fdb	#$04C0
chartc	fdb	#$04CE
chartd	fdb	#$0500
charte	fdb	#$0520
chartf	fdb	#$0540


BYTE1	fcb	0
BYTE2	fcb	0
BYTE3	fcb	0
BYTE4	fcb	0
BYTE5	fcb	0
BYTE6	fcb	0
INPUTPRNTFLAG	fcb	0
POSCOUNT	fcb	0
	end	start