-p

debug program from $0007CF50
user  program from $000840A0
              end  $000844A0
              exec $000840A0
-l 840a0 8449f

40A0	bra.s	$000840B4

40A2	ori.b	#$04,$E8E007	*キーデータ送信許可
40AA	rte

40AC	tst.w	$6B65(A7)
40B0	moveq	#$4B,D1
40B2	bvs.s	$00084118

40B4
40BA	moveq	#0,D1
40BC	movea.l	D1,A1
	IOCS	_B_SUPER
40C0	move.l	#$2002,$7C
40CA	move.l	#$200A,$B0
40D4	lea	$32000,A7
	IOCS	_B_CUROFF
40E0	move.b	#$01,D1		*textを
40E4	move.b	#$02,D2		*aprで使用
	IOCS	_TGUSEND

		bsr.w	設定_CRTC
*		bsr.w	TEXT_OFF
		bsr.w	$00084238	*sp_off
		bsr.w	$0008424C	*グラフィック画面のon/off
		bsr.w	CLR__GRAM
*		bsr.w	CLR__TRAM
		bsr.w	CLR__SP
		bsr.w	$0008437A	*BG_TEXT1_clr
		bsr.w	$00084396	*SP_clr_途中から
		bsr.w	$000843B2	*SP_REG_clr

4112	move.b	#$7D,D0		*0111_1101
4116	move.b	#$01,D1
411A	move.w	#$0005,D2	*0000_0101
411E	movea.l	#$00006400,A0
4124	bsr.w	$000841D2

4128	move.b	#$75,D0
412C	move.b	#$01,D1
4130	move.w	#$0011,D2
4134	movea.l	#$00033000,A0
413A	bsr.w	$000841D2

413E	move.b	#$78,D0
4142	move.b	#$01,D1
4146	move.w	#$0024,D2
414A	movea.l	#$00038000,A0
4150	bsr.w	$000841D2

4154	move.b	#$7E,D0
4158	move.b	#$01,D1
415C	move.w	#$0003,D2
4160	movea.l	#$00041000,A0
4166	bsr.s	$000841D2

4168	movea.l	$00006430,A0
416E	move.l	#$00033000,(A0)
4174	movea.l	$00006434,A0
417A	move.l	#$00038000,(A0)
4180	movea.l	$00006438,A0
4186	move.l	#$00041000,(A0)
418C	movea.l	$0000643C,A0
4192	move.l	#$00038000,(A0)
4198	movea.l	#$00006400,A0
419E	movea.l	(A0),A0
41A0	jsr	(A0)
41A2	movea.l	#$00006440,A0
41A8	movea.l	(A0),A0
41AA	jsr	(A0)
41AC	move.w	#$0003,$00042000
41B4	move.b	#$00,D0
41B8	move.b	#$02,D1
41BC	move.w	#$000F,D2
41C0	movea.l	#$00002400,A0
41C6	bsr.s	$000841D2
41C8	move.b	#$00,D0
41CC	jmp	$00002400
*--------
41D2	movem.l	D0-D4/A0-A1,-(A7)
41D6	movea.l	A0,A1
41D8	moveq	#0,D3
41DA	move.w	D2,D3
41DC	asl.l	#8,D3
41DE	asl.l	#2,D3
41E0	move.l	#$00000300,D2
41E6	move.b	D0,D4
41E8	lsr.b	#1,D4
41EA	move.b	D4,D2
41EC	swap	D2
41EE	move.w	#$0100,D2
41F2	lsr.b	#1,D0
41F4	bcs.s	$000841FA
41F6		move.w	#$0000,D2
41FA	move.b	D1,D2
41FC	move.w	#$9070,D1
4200	moveq	#$46,D0
4202	trap	#$0F		*diskから読み込み
4204	move.l	D0,D1
4206	swap	D1
4208	and.w	#$C000,D1
420C	bne.s	$00084214
420E	movem.l	(A7)+,D0-D4/A0-A1
4212	rts
*-----------
4214	movem.l	(A7)+,D0-D4/A0-A1
4218	bra.s	$000841D2
421A	bset.b	#$0005,$00E82601
4222	rts
*-------------------------
TEXT__OFF:	MLT	<BCLR	#5,$E82601>,	<rts>
*----------------
422E	bset.b	#6,$00E82601	*sp_off
4236	rts
*----------------
4238	bclr.b	#$0006,$00E82601
4240	rts
*----------------
4242	ori.w	#$0003,$00E82600
424A	rts
*----------------
424C	andi.w	#$FFFC,$00E82600	*#%……1100
4254	rts
*-------------------------
設定_CRTC
		movem.l	A0,-(A7)
425A	lea	$00E80000,A0
4260	move.w	#$002D,(A0)
4264	move.w	#$0004,$0002(A0)
426A	move.w	#$0006,$0004(A0)
4270	move.w	#$0026,$0006(A0)
4276	move.w	#$0237,$0008(A0)
427C	move.w	#$0005,$000A(A0)
4282	move.w	#$0028,$000C(A0)
4288	move.w	#$0228,$000E(A0)
428E	move.w	#$001B,$0010(A0)
4294	lea	$00E80014,A0
429A	move.l	#$00000000,(A0)
42A0	move.l	#$00200100,$0004(A0)
42A8	move.l	#$00200100,$0008(A0)
42B0	move.l	#$00200100,$000C(A0)
42B8	move.l	#$00200100,$0010(A0)
42C0	move.w	#$0110,$0014(A0)
42C6	lea	$00EB0800,A0
42CC	move.l	#$00200100,(A0)
42D2	move.l	#$01000000,$0004(A0)
42DA	move.w	#$0213,$0008(A0)
42E0	move.w	#$00FF,$000A(A0)
42E6	move.w	#$000A,$000C(A0)
42EC	move.w	#$0028,$000E(A0)
42F2	move.w	#$0010,$0010(A0)
42F8	move.w	#$0001,$00E82400
4300	move.w	#$12E4,$00E82500
4308	movem.l	(A7)+,A0
430C	rts
*---------------------
CLR__GRAM
	movem.l	D0-D2/A0,-(A7)
4312	movea.l	#$00C00000,A0
4318	moveq	#$00,D0
431A	move.w	#$0001,D2
431E	move.w	#$FFFF,D1
@@			move.l	D0,(A0)+
4324	dbf	D1,@b
4328	dbf	D2,@b
432C	movem.l	(A7)+,D0-D2/A0
4330	rts
*--------------------
CLR__TRAM
	movem.l	D0-D1/A0,-(A7)
4336	move.w	#$03F0,$00E8002A
433E	movea.l	#$00E00000,A0
4344	moveq	#0,D0
4346	move.w	#$7FFF,D1
@@			move.l	D0,(A0)+
434C	dbf	D1,@B
4350	move.w	#0,$00E8002A
4358	movem.l	(A7)+,D0-D1/A0
435C	rts
*---------------------
CLR__SP
	movem.l	D0-D1/A0,-(A7)
4362	movea.l	#$00EB8000,A0
4368	moveq	#0,D0
436A	move.w	#$03FF,D1
@@			move.l	D0,(A0)+
4370	dbf	D1,@B
4374	movem.l	(A7)+,D0-D1/A0
4378	rts
*-------------------
437A	movem.l	D0-D1/A0,-(A7)	*BG_TEXT1_clr
437E	movea.l	#$00EBE000,A0
4384	moveq	#$00,D0
4386	move.w	#$07FF,D1
438A	move.l	D0,(A0)+
438C	dbf	D1,$0008438A
4390	movem.l	(A7)+,D0-D1/A0
4394	rts
*--------------------
4396	movem.l	D0-D1/A0,-(A7)	*SP_clr_途中から
439A	movea.l	#$00EBA000,A0
43A0	moveq	#$00,D0
43A2	move.w	#$0BFF,D1
43A6	move.l	D0,(A0)+
43A8	dbf	D1,$000843A6
43AC	movem.l	(A7)+,D0-D1/A0
43B0	rts
*---------------------
43B2	movem.l	D0-D1/A0,-(A7)
43B6	movea.l	#$00EB0000,A0	*SP_REG_clr
43BC	moveq	#$00,D0
43BE	move.w	#$00FF,D1
43C2	move.l	D0,(A0)+
43C4	dbf	D1,$000843C2
43C8	movem.l	(A7)+,D0-D1/A0
43CC	rts
*===================
-q


d0		d1	d2				d3		d4		a1
0111_1101	1	0101

							0101				6400
			00000300			10100_0000_0000	0111_1101
			~~_~~__~11_0011_1110				0011_1110
0011_1110		~11_0011_1110_~1_0000_0000
46		9070	~11_0011_1110_~1_0000_0001