;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