File: fakerom.z

package info (click to toggle)
xtrs 4.9-5
  • links: PTS
  • area: contrib
  • in suites: sarge
  • size: 2,164 kB
  • ctags: 1,433
  • sloc: ansic: 19,840; makefile: 242; csh: 132; sh: 129
file content (42 lines) | stat: -rw-r--r-- 581 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
;
; Fake ROM for xtrs, initial hack
;

video	equ	3c00h+7*64

	org	0
start:	di
	ld	hl,fakemsg
	ld	de,video
	ld	bc,fmend-fakemsg
	ldir
	ld	a,5		;query model
	defw	3cedh		;emt_misc
	ld	a,'0'
	add	a,l
	cp	'5'
	jr	z,mod4p
	ld	(model-fakemsg+video),a
	cp	'4'
	jr	z,mod4
	jr	$

mod4:	ld	hl,m4msg
	ld	de,video+64
	ld	bc,m4end-m4msg
	ldir
	jr	$

mod4p:	ld	hl,model-fakemsg+video
	ld	(hl),'4'
	inc	hl
	ld	(hl),'P'
	jr	$

fakemsg:defb	'You do not have a ROM image installed for Model '
model	equ	$
fmend	equ	$
m4msg:	defb	'(Model 4 mode requires a Model 3 ROM image)'
m4end	equ	$

	end	start