;UPRAVA HRY STARSHIP SIMULATION
;(C) ROS, 1990
;ADJSSIM;0 ; 06-OCT-90 ; 14:50
;
	.RADIX 16T

	ORG	0C000

;--------------------------------
START	LD	A,1
	LD	(800D),A
	LD	A,(0006)
	CP	10
	RET	NZ
OBRAZ	CALL	00CC
	CALL	006F
	LD	HL,TEXT
TISK	LD	A,(HL)
	OR	A
	JR	Z,PAUSE
	CALL	00A2
	INC	HL
	JR	TISK
PAUSE	CALL	009F
	LD	HL,DATA1
	LD	DE,0A45C
	LD	BC,DATA2-DATA1
	LDIR
	LD	DE,0AAA1
	LD	BC,DATA3-DATA2
	LDIR
	LD	HL,33DB
	LD	(0B388),HL
	XOR	A
	LD	(0B38A),A
	LD	A,80
	LD	(0B38C),A
	RET
;--------------------------------
TEXT	DB 0C,0A,'STARSHIP SIMULATION',0D,0A,0A
	DB 'qwertyuiop   : 1234567890',0D,0A
	DB 'asdfg        : F1 F2 F3 F4',0D,0A
	DB 'k            : na zakladnu',0D,0A
	DB 'h            : STOP',0D,0A
	DB 'g ATB(2)     : unik',0D,0A
	DB 'j ATA(2)     : ochrana',0D,0A
	DB '@/[_ JOY(2)  : rychlost',0D,0A
	DB 'SHIFT ATA(1) : laser',0D,0A
	DB ';: ATB(1)    : bomby',0D,0A
	DB 'ATA(0)       : laser + bomby',0D,0A
	DB 'JOY(0) a (1) : pohyby',0D,0A
	DB 'FUNC         : restart',0D,0A,0A
	DB 'F1 F2 a F3   : start hry',0D,0A,0A,0A,0A
	DB 'Upravil LZR Soft 6.10.1990',0D,0A,0A,0A
	DB 'Precteno ?',0
;--------------------------------
DATA1	DS 009D
DATA2	DS 0062
DATA3
ZKONEC
	END	START
