Context Navigation

tundsp.s@ 3fcb810

Last change on this file since 3fcb810 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Added Alcyon C reference output.
Property mode set to `100644`
File size: 25.5 KB

Rev	Line
[7bf3856]	1	.globl _io_time
	2	.globl _io_lcd
	3	.globl _io_ser
	4	.globl _io_midi
	5	.globl _io_disk
	6	.globl _io_tone
	7	.globl _io_leds
	8	.globl _io_kbrd
	9	.globl _lcd_a0
	10	.globl _lcd_a1
	11	.globl _io_vreg
	12	.globl _io_vraw
	13	.globl _io_vram
	14	.globl _io_fpu
	15	.globl _v_regs
	16	.globl _v_odtab
	17	.globl _v_actab
	18	.globl _v_ct0
	19	.globl _v_gt1
	20	.globl _v_score
	21	.globl _v_cgtab
	22	.globl _v_curs0
	23	.globl _v_curs1
	24	.globl _v_curs2
	25	.globl _v_curs3
	26	.globl _v_curs4
	27	.globl _v_curs5
	28	.globl _v_curs6
	29	.globl _v_curs7
	30	.globl _v_tcur
	31	.globl _v_kbobj
	32	.globl _v_lnobj
	33	.globl _v_win0
	34	.globl _v_cur
	35	.globl _fc_sw
	36	.globl _fc_val
	37	.globl _v_obtab
	38	.globl _v_curob
	39	.globl _v_nobj
	40	.globl _v_obpri
	41	.globl _ebflag
	42	.globl _ebuf
	43	.globl _curfet
	44	.globl _cfetp
	45	.globl _infetp
	46	.globl _stcrow
	47	.globl _stccol
	48	.globl _cxval
	49	.globl _cyval
	50	.globl _curtun
	51	.globl _submenu
	52	.globl _tunmod
	53	.globl _tunval
	54	.globl _ttcmdsv
	55	.globl _tdnamsw
	56	.globl _oldtun
	57	.globl _tuntab
	58	.globl _tunlib
	59	.globl _panlkey
	60	.globl _lclkmap
	61	.globl _tuncurn
	62	.globl _tunname
	63	.globl _sfdsp
	64	.globl _obj0
	65	.globl _obj2
	66	.globl _bfs
	67	.globl _tdbxlb
	68	.globl _tdbox
	69	.globl _tunob
	70	.globl _tdoct
	71	.globl _tunpal
	72	.data
	73	_tunpal:
	74	.dc.w $0
	75	.dc.w $0
	76	.dc.w $0
	77	.dc.w $3
	78	.dc.w $3
	79	.dc.w $3
	80	.dc.w $0
	81	.dc.w $0
	82	.dc.w $0
	83	.dc.w $3
	84	.dc.w $3
	85	.dc.w $3
	86	.dc.w $1
	87	.dc.w $1
	88	.dc.w $0
	89	.dc.w $1
	90	.dc.w $0
	91	.dc.w $1
	92	.dc.w $0
	93	.dc.w $1
	94	.dc.w $1
	95	.dc.w $0
	96	.dc.w $1
	97	.dc.w $1
	98	.dc.w $0
	99	.dc.w $0
	100	.dc.w $1
	101	.dc.w $0
	102	.dc.w $2
	103	.dc.w $3
	104	.dc.w $2
	105	.dc.w $2
	106	.dc.w $2
	107	.dc.w $2
	108	.dc.w $3
	109	.dc.w $3
	110	.dc.w $3
	111	.dc.w $3
	112	.dc.w $0
	113	.dc.w $3
	114	.dc.w $3
	115	.dc.w $0
	116	.dc.w $3
	117	.dc.w $0
	118	.dc.w $0
	119	.dc.w $0
	120	.dc.w $0
	121	.dc.w $3
	122	.data
	123	L1:.dc.b $4C,$6F,$63,$61,$6C,$20,$33,$72,$64,$73,$20,$2B,$20,$4D,$49,$44,$49,$20,$31,$32,$20,$74,$6F,$6E,$65,$20,$73,$63,$61,$6C
	124	.dc.b $65,$20,$0
	125	.even
	126	.text
	127	.globl _tdlabl
	128	.data
	129	_tdlabl:
	130	*line 82
	131	.dc.l L3
	132	*line 82
	133	.dc.l L4
	134	*line 82
	135	.dc.l L5
	136	*line 82
	137	.dc.l L6
	138	*line 82
	139	.dc.l L7
	140	*line 82
	141	.dc.l L8
	142	*line 82
	143	.dc.l L9
	144	*line 82
	145	.dc.l L10
	146	*line 83
	147	.dc.l L11
	148	*line 83
	149	.dc.l L12
	150	*line 83
	151	.dc.l L13
	152	*line 83
	153	.dc.l L14
	154	*line 83
	155	.dc.l L15
	156	*line 83
	157	.dc.l L16
	158	*line 83
	159	.dc.l L17
	160	*line 83
	161	.dc.l L18
	162	*line 84
	163	.dc.l L19
	164	*line 84
	165	.dc.l L20
	166	*line 84
	167	.dc.l L21
	168	*line 84
	169	.dc.l L22
	170	*line 84
	171	.dc.l L23
	172	*line 84
	173	.dc.l L24
	174	*line 84
	175	.dc.l L25
	176	*line 85
	177	.dc.l L26
	178	.globl _gettun
	179	.text
	180	_gettun:
	181	~~gettun:
	182	~n=8
	183	link R14,#-4
	184	*line 99
	185	move #128,(sp)
	186	move 8(R14),R0
	187	asl #8,R0
	188	ext.l R0
	189	add.l #_tunlib,R0
	190	move.l R0,-(sp)
	191	move.l #_tuntab,-(sp)
	192	jsr _memcpyw
	193	addq.l #8,sp
	194	*line 100
	195	move #32,(sp)
	196	move 8(R14),R0
	197	asl #5,R0
	198	ext.l R0
	199	add.l #_tunname,R0
	200	move.l R0,-(sp)
	201	move.l #_tuncurn,-(sp)
	202	jsr _memcpy
	203	addq.l #8,sp
	204	*line 101
	205	move 8(R14),_curtun
	206	*line 102
	207	clr _tunmod
	208	L27:unlk R14
	209	rts
	210	.globl _puttun
	211	.text
	212	_puttun:
	213	~~puttun:
	214	~n=8
	215	link R14,#-4
	216	*line 114
	217	move #128,(sp)
	218	move.l #_tuntab,-(sp)
	219	move 8(R14),R0
	220	asl #8,R0
	221	ext.l R0
	222	add.l #_tunlib,R0
	223	move.l R0,-(sp)
	224	jsr _memcpyw
	225	addq.l #8,sp
	226	*line 115
	227	move #32,(sp)
	228	move.l #_tuncurn,-(sp)
	229	move 8(R14),R0
	230	asl #5,R0
	231	ext.l R0
	232	add.l #_tunname,R0
	233	move.l R0,-(sp)
	234	jsr _memcpy
	235	addq.l #8,sp
	236	*line 116
	237	clr _tunmod
	238	L28:unlk R14
	239	rts
	240	.globl _inittt
	241	.text
	242	_inittt:
	243	~~inittt:
	244	~n=8
	245	link R14,#0
	246	movem.l R6-R7,-(sp)
	247	~i=R7
	248	*line 133
	249	clr R7
	250	bra L32
	251	L33:
	252	*line 134
	253	*line 135
	254	cmp #21,R7
	255	bge L10000
	256	move #160,R0
	257	bra L10002
	258	L10000:cmp #108,R7
	259	ble L10003
	260	move #10960,R0
	261	bra L10005
	262	L10003:move R7,R0
	263	add #-12,R0
	264	muls #100,R0
	265	add #160,R0
	266	L10005:L10002:asl #1,R0
	267	move 8(R14),R1
	268	asl #8,R1
	269	ext.l R1
	270	move R7,R2
	271	asl #1,R2
	272	ext.l R2
	273	add.l R2,R1
	274	add.l #_tunlib,R1
	275	move.l R1,R9
	276	move R0,(R9)
	277	L31:
	278	*line 133
	279	add #1,R7
	280	L32:
	281	*line 133
	282	cmp #128,R7
	283	blt L33
	284	L30:
	285	*line 137
	286	clr R7
	287	bra L36
	288	L37:
	289	*line 138
	290	move R7,R8
	291	add.l R8,R8
	292	move.l #_panlkey,R9
	293	move 0(R8,R9.l),R0
	294	asl #1,R0
	295	move 8(R14),R1
	296	asl #8,R1
	297	ext.l R1
	298	move R7,R10
	299	add.l R10,R10
	300	add.l #_lclkmap,R10
	301	move (R10),R2
	302	asl #1,R2
	303	ext.l R2
	304	add.l R2,R1
	305	add.l #_tunlib,R1
	306	move.l R1,R9
	307	move R0,(R9)
	308	L35:
	309	*line 137
	310	add #1,R7
	311	L36:
	312	*line 137
	313	cmp #24,R7
	314	blt L37
	315	L34:
	316	*line 140
	317	move.l #L1,(sp)
	318	move 8(R14),R0
	319	asl #5,R0
	320	ext.l R0
	321	add.l #_tunname,R0
	322	move.l R0,-(sp)
	323	jsr _strcpy
	324	addq.l #4,sp
	325	L29:tst.l (sp)+
	326	movem.l (sp)+,R7-R7
	327	unlk R14
	328	rts
	329	.globl _inittl
	330	.text
	331	_inittl:
	332	~~inittl:
	333	link R14,#0
	334	movem.l R6-R7,-(sp)
	335	~i=R7
	336	*line 154
	337	clr R7
	338	bra L41
	339	L42:
	340	*line 155
	341	move R7,(sp)
	342	jsr _inittt
	343	L40:
	344	*line 154
	345	add #1,R7
	346	L41:
	347	*line 154
	348	cmp #10,R7
	349	blt L42
	350	L39:
	351	*line 157
	352	move #200,_tunval
	353	*line 158
	354	clr (sp)
	355	jsr _gettun
	356	*line 159
	357	move #128,(sp)
	358	move.l #_tuntab,-(sp)
	359	move.l #_oldtun,-(sp)
	360	jsr _memcpyw
	361	addq.l #8,sp
	362	L38:tst.l (sp)+
	363	movem.l (sp)+,R7-R7
	364	unlk R14
	365	rts
	366	.globl _tt_trcp
	367	.text
	368	_tt_trcp:
	369	~~tt_trcp:
	370	~start=8
	371	~finish=10
	372	~dest=12
	373	link R14,#0
	374	movem.l R5-R7,-(sp)
	375	~i=R7
	376	~v=R6
	377	*line 177
	378	move #128,(sp)
	379	move.l #_tuntab,-(sp)
	380	move.l #_oldtun,-(sp)
	381	jsr _memcpyw
	382	addq.l #8,sp
	383	*line 179
	384	*line 179
	385	move 8(R14),R0
	386	cmp 10(R14),R0
	387	ble L44
	388	*line 180
	389	*line 181
	390	move 10(R14),R7
	391	bra L47
	392	L48:
	393	*line 182
	394	*line 183
	395	*line 184
	396	*line 185
	397	move R7,R8
	398	add.l R8,R8
	399	move.l #_oldtun,R9
	400	move 0(R8,R9.l),R0
	401	ext.l R0
	402	move.l R0,R6
	403	move _tunval,R0
	404	ext.l R0
	405	add.l R0,R6
	406	*line 186
	407	*line 187
	408	*line 188
	409	cmp.l #$55a0,R6
	410	ble L49
	411	*line 188
	412	move.l #$55a0,R6
	413	bra L50
	414	L49:
	415	*line 189
	416	*line 190
	417	cmp.l #$140,R6
	418	bge L51
	419	*line 190
	420	move.l #$140,R6
	421	*line 191
	422	L51:L50:
	423	*line 192
	424	move.l R6,R0
	425	move 12(R14),R9
	426	add.l R9,R9
	427	add.l #_tuntab,R9
	428	move R0,(R9)
	429	add #1,12(R14)
	430	L46:
	431	*line 181
	432	add #1,R7
	433	L47:
	434	*line 181
	435	cmp 8(R14),R7
	436	bgt L10006
	437	cmp #128,12(R14)
	438	blt L48
	439	L10006:L45:
	440	*line 193
	441	*line 194
	442	bra L52
	443	L44:
	444	*line 195
	445	*line 196
	446	*line 197
	447	move 8(R14),R7
	448	bra L55
	449	L56:
	450	*line 198
	451	*line 199
	452	*line 200
	453	*line 201
	454	move R7,R8
	455	add.l R8,R8
	456	move.l #_oldtun,R9
	457	move 0(R8,R9.l),R0
	458	ext.l R0
	459	move.l R0,R6
	460	move _tunval,R0
	461	ext.l R0
	462	add.l R0,R6
	463	*line 202
	464	*line 203
	465	*line 204
	466	cmp.l #$55a0,R6
	467	ble L57
	468	*line 204
	469	move.l #$55a0,R6
	470	bra L58
	471	L57:
	472	*line 205
	473	*line 206
	474	cmp.l #$140,R6
	475	bge L59
	476	*line 206
	477	move.l #$140,R6
	478	*line 207
	479	L59:L58:
	480	*line 208
	481	move.l R6,R0
	482	move 12(R14),R9
	483	add.l R9,R9
	484	add.l #_tuntab,R9
	485	move R0,(R9)
	486	add #1,12(R14)
	487	L54:
	488	*line 197
	489	add #1,R7
	490	L55:
	491	*line 197
	492	cmp 10(R14),R7
	493	bgt L10007
	494	cmp #128,12(R14)
	495	blt L56
	496	L10007:L53:
	497	*line 209
	498	L52:
	499	*line 212
	500	move #1,_tunmod
	501	L43:tst.l (sp)+
	502	movem.l (sp)+,R6-R7
	503	unlk R14
	504	rts
	505	.globl _tt_intp
	506	.text
	507	_tt_intp:
	508	~~tt_intp:
	509	~from=8
	510	~to=10
	511	link R14,#0
	512	movem.l R2-R7,-(sp)
	513	~i=R7
	514	~j=R6
	515	~k=R5
	516	~n=R4
	517	~t=R3
	518	*line 231
	519	move #128,(sp)
	520	move.l #_tuntab,-(sp)
	521	move.l #_oldtun,-(sp)
	522	jsr _memcpyw
	523	addq.l #8,sp
	524	*line 233
	525	*line 233
	526	move 8(R14),R0
	527	cmp 10(R14),R0
	528	ble L61
	529	*line 234
	530	*line 235
	531	move 8(R14),R7
	532	*line 236
	533	move 10(R14),8(R14)
	534	*line 237
	535	move R7,10(R14)
	536	*line 238
	537	*line 239
	538	L61:
	539	*line 240
	540	move 10(R14),R4
	541	sub 8(R14),R4
	542	*line 242
	543	*line 243
	544	cmp #2,R4
	545	bge L62
	546	*line 243
	547	move #-1,R0
	548	bra L60
	549	*line 244
	550	L62:
	551	*line 245
	552	move 8(R14),R8
	553	add.l R8,R8
	554	add.l #_tuntab,R8
	555	move (R8),R5
	556	*line 246
	557	move R4,R0
	558	ext.l R0
	559	move.l R0,-(sp)
	560	move 10(R14),R8
	561	add.l R8,R8
	562	move.l #_tuntab,R9
	563	move 0(R8,R9.l),R0
	564	ext.l R0
	565	move R5,R1
	566	ext.l R1
	567	sub.l R1,R0
	568	move.l #$10,R1
	569	asl.l R1,R0
	570	move.l R0,-(sp)
	571	jsr ldiv
	572	addq.l #8,sp
	573	move.l R0,R3
	574	*line 247
	575	move 8(R14),R6
	576	add #1,R6
	577	*line 248
	578	sub #1,R4
	579	*line 250
	580	clr R7
	581	bra L65
	582	L66:
	583	*line 251
	584	move R7,R0
	585	add #1,R0
	586	ext.l R0
	587	move.l R0,-(sp)
	588	move.l R3,-(sp)
	589	jsr lmul
	590	addq.l #8,sp
	591	move.l #$10,R1
	592	asr.l R1,R0
	593	move R0,-(sp)
	594	move R5,R0
	595	add R0,(sp)
	596	move R6,R8
	597	add.l R8,R8
	598	add.l #_tuntab,R8
	599	move (sp)+,(R8)
	600	add #1,R6
	601	L64:
	602	*line 250
	603	add #1,R7
	604	L65:
	605	*line 250
	606	cmp R4,R7
	607	blt L66
	608	L63:
	609	*line 253
	610	move #1,_tunmod
	611	*line 254
	612	clr R0
	613	bra L60
	614	L60:tst.l (sp)+
	615	movem.l (sp)+,R3-R7
	616	unlk R14
	617	rts
	618	.globl _tt_incr
	619	.text
	620	_tt_incr:
	621	~~tt_incr:
	622	~from=8
	623	~to=10
	624	link R14,#0
	625	movem.l R5-R7,-(sp)
	626	~i=R7
	627	~v=R6
	628	*line 272
	629	move #128,(sp)
	630	move.l #_tuntab,-(sp)
	631	move.l #_oldtun,-(sp)
	632	jsr _memcpyw
	633	addq.l #8,sp
	634	*line 274
	635	*line 274
	636	move 8(R14),R0
	637	cmp 10(R14),R0
	638	ble L68
	639	*line 275
	640	*line 276
	641	move 8(R14),R7
	642	*line 277
	643	move 10(R14),8(R14)
	644	*line 278
	645	move R7,10(R14)
	646	*line 279
	647	*line 280
	648	*line 281
	649	L68:
	650	*line 282
	651	move 8(R14),R8
	652	add.l R8,R8
	653	move.l #_oldtun,R9
	654	move 0(R8,R9.l),R0
	655	ext.l R0
	656	move.l R0,R6
	657	*line 284
	658	*line 285
	659	move 8(R14),R0
	660	cmp 10(R14),R0
	661	move sr,R0
	662	add #1,8(R14)
	663	move R0,ccr
	664	bne L69
	665	*line 285
	666	move #-1,R0
	667	bra L67
	668	*line 286
	669	L69:
	670	*line 287
	671	move 8(R14),R7
	672	bra L72
	673	L73:
	674	*line 288
	675	*line 289
	676	move _tunval,R0
	677	ext.l R0
	678	add.l R0,R6
	679	*line 290
	680	*line 291
	681	*line 292
	682	cmp.l #$55a0,R6
	683	ble L74
	684	*line 292
	685	move.l #$55a0,R6
	686	bra L75
	687	L74:
	688	*line 293
	689	*line 294
	690	cmp.l #$140,R6
	691	bge L76
	692	*line 294
	693	move.l #$140,R6
	694	*line 295
	695	L76:L75:
	696	*line 296
	697	move.l R6,R0
	698	move R7,R9
	699	add.l R9,R9
	700	add.l #_tuntab,R9
	701	move R0,(R9)
	702	L71:
	703	*line 287
	704	add #1,R7
	705	L72:
	706	*line 287
	707	cmp 10(R14),R7
	708	ble L73
	709	L70:
	710	*line 299
	711	move #1,_tunmod
	712	*line 300
	713	clr R0
	714	bra L67
	715	L67:tst.l (sp)+
	716	movem.l (sp)+,R6-R7
	717	unlk R14
	718	rts
	719	.globl _td_trcp
	720	.text
	721	_td_trcp:
	722	~~td_trcp:
	723	~mode=8
	724	link R14,#0
	725	movem.l R6-R7,-(sp)
	726	~cx=R7
	727	*line 317
	728	tst 8(R14)
	729	beq L10008
	730	move #13,(sp)
	731	bra L10010
	732	L10008:move 104+_tdbox,(sp)
	733	L10010:jsr _exp_c
	734	move R0,R7
	735	*line 318
	736	clr (sp)
	737	jsr _vbank
	738	*line 319
	739	move #14,(sp)
	740	move.l #L78,-(sp)
	741	move #54,-(sp)
	742	move #9,-(sp)
	743	move 106+_tdbox,-(sp)
	744	move R7,-(sp)
	745	move #64,-(sp)
	746	move.l _tunob,-(sp)
	747	jsr _vcputsv
	748	adda.l #18,sp
	749	*line 320
	750	move #14,(sp)
	751	move.l #L79,-(sp)
	752	move #54,-(sp)
	753	move #10,-(sp)
	754	move 106+_tdbox,-(sp)
	755	move R7,-(sp)
	756	move #64,-(sp)
	757	move.l _tunob,-(sp)
	758	jsr _vcputsv
	759	adda.l #18,sp
	760	L77:tst.l (sp)+
	761	movem.l (sp)+,R7-R7
	762	unlk R14
	763	rts
	764	.globl _td_incr
	765	.text
	766	_td_incr:
	767	~~td_incr:
	768	~mode=8
	769	link R14,#0
	770	movem.l R6-R7,-(sp)
	771	~cx=R7
	772	*line 334
	773	tst 8(R14)
	774	beq L10011
	775	move #13,(sp)
	776	bra L10013
	777	L10011:move 104+_tdbox,(sp)
	778	L10013:jsr _exp_c
	779	move R0,R7
	780	*line 335
	781	clr (sp)
	782	jsr _vbank
	783	*line 336
	784	move #14,(sp)
	785	move.l #L81,-(sp)
	786	move #54,-(sp)
	787	move #12,-(sp)
	788	move 106+_tdbox,-(sp)
	789	move R7,-(sp)
	790	move #64,-(sp)
	791	move.l _tunob,-(sp)
	792	jsr _vcputsv
	793	adda.l #18,sp
	794	L80:tst.l (sp)+
	795	movem.l (sp)+,R7-R7
	796	unlk R14
	797	rts
	798	.globl _td_intp
	799	.text
	800	_td_intp:
	801	~~td_intp:
	802	~mode=8
	803	link R14,#0
	804	movem.l R6-R7,-(sp)
	805	~cx=R7
	806	*line 350
	807	tst 8(R14)
	808	beq L10014
	809	move #13,(sp)
	810	bra L10016
	811	L10014:move 104+_tdbox,(sp)
	812	L10016:jsr _exp_c
	813	move R0,R7
	814	*line 351
	815	clr (sp)
	816	jsr _vbank
	817	*line 352
	818	move #14,(sp)
	819	move.l #L83,-(sp)
	820	move #54,-(sp)
	821	move #14,-(sp)
	822	move 106+_tdbox,-(sp)
	823	move R7,-(sp)
	824	move #64,-(sp)
	825	move.l _tunob,-(sp)
	826	jsr _vcputsv
	827	adda.l #18,sp
	828	L82:tst.l (sp)+
	829	movem.l (sp)+,R7-R7
	830	unlk R14
	831	rts
	832	.globl _advtcur
	833	.text
	834	_advtcur:
	835	~~advtcur:
	836	link R14,#0
	837	movem.l R6-R7,-(sp)
	838	~newcol=R7
	839	*line 368
	840	*line 369
	841	move.l _curfet,(sp)
	842	move _stccol,-(sp)
	843	move _stcrow,-(sp)
	844	jsr _infield
	845	addq.l #4,sp
	846	tst R0
	847	beq L85
	848	*line 369
	849	move.l _infetp,_cfetp
	850	*line 370
	851	bra L86
	852	L85:bra L84
	853	L86:
	854	*line 373
	855	move _stccol,R7
	856	add #1,R7
	857	*line 375
	858	*line 376
	859	move.l _cfetp,R8
	860	cmp 4(R8),R7
	861	bgt L87
	862	*line 376
	863	move R7,(sp)
	864	move _stcrow,-(sp)
	865	jsr _itcpos
	866	addq.l #2,sp
	867	*line 377
	868	L87:
	869	*line 378
	870	move _stccol,R0
	871	asl #3,R0
	872	move R0,_cxval
	873	*line 379
	874	move _stcrow,R0
	875	muls #14,R0
	876	move R0,_cyval
	877	L84:tst.l (sp)+
	878	movem.l (sp)+,R7-R7
	879	unlk R14
	880	rts
	881	.globl _bsptcur
	882	.text
	883	_bsptcur:
	884	~~bsptcur:
	885	link R14,#0
	886	movem.l R6-R7,-(sp)
	887	~newcol=R7
	888	*line 392
	889	*line 393
	890	move.l _curfet,(sp)
	891	move _stccol,-(sp)
	892	move _stcrow,-(sp)
	893	jsr _infield
	894	addq.l #4,sp
	895	tst R0
	896	beq L89
	897	*line 393
	898	move.l _infetp,_cfetp
	899	*line 394
	900	bra L90
	901	L89:bra L88
	902	L90:
	903	*line 397
	904	move _stccol,R7
	905	sub #1,R7
	906	*line 399
	907	*line 400
	908	move.l _cfetp,R8
	909	cmp 2(R8),R7
	910	blt L91
	911	*line 400
	912	move R7,(sp)
	913	move _stcrow,-(sp)
	914	jsr _itcpos
	915	addq.l #2,sp
	916	*line 401
	917	L91:
	918	*line 402
	919	move _stccol,R0
	920	asl #3,R0
	921	move R0,_cxval
	922	*line 403
	923	move _stcrow,R0
	924	muls #14,R0
	925	move R0,_cyval
	926	L88:tst.l (sp)+
	927	movem.l (sp)+,R7-R7
	928	unlk R14
	929	rts
	930	.globl _dsttval
	931	.text
	932	_dsttval:
	933	~~dsttval:
	934	~row=8
	935	~col=10
	936	~val=12
	937	~fg=14
	938	~bg=16
	939	link R14,#0
	940	movem.l R5-R7,-(sp)
	941	~cfg=R7
	942	~cbg=R6
	943	*line 421
	944	move 14(R14),(sp)
	945	jsr _exp_c
	946	move R0,R7
	947	*line 422
	948	move 16(R14),(sp)
	949	jsr _exp_c
	950	move R0,R6
	951	*line 424
	952	move 12(R14),R0
	953	asr #1,R0
	954	move R0,(sp)
	955	move.l #_bfs,-(sp)
	956	jsr _cnvc2p
	957	addq.l #4,sp
	958	*line 426
	959	add.b #48,_bfs
	960	*line 427
	961	add.b #65,1+_bfs
	962	*line 428
	963	move.b 2+_bfs,R0
	964	ext.w R0
	965	ext.l R0
	966	add.l #_sfdsp,R0
	967	move.l R0,R8
	968	move.b -7(R8),2+_bfs
	969	*line 429
	970	add.b #48,3+_bfs
	971	*line 430
	972	add.b #48,4+_bfs
	973	*line 431
	974	clr.b 5+_bfs
	975	*line 433
	976	clr (sp)
	977	jsr _vbank
	978	*line 434
	979	move #14,(sp)
	980	move.l #_bfs,-(sp)
	981	move 10(R14),-(sp)
	982	move 8(R14),-(sp)
	983	move R6,-(sp)
	984	move R7,-(sp)
	985	move #64,-(sp)
	986	move.l _tunob,-(sp)
	987	jsr _vcputsv
	988	adda.l #18,sp
	989	L92:tst.l (sp)+
	990	movem.l (sp)+,R6-R7
	991	unlk R14
	992	rts
	993	.globl _tdswin
	994	.text
	995	_tdswin:
	996	~~tdswin:
	997	~n=R7
	998	link R14,#-2
	999	movem.l R3-R7,-(sp)
	1000	~cx=R6
	1001	~i=R5
	1002	~tv=R4
	1003	~ts=-2
	1004	*line 452
	1005	move 8(R14),R7
	1006	*line 452
	1007	move R7,R0
	1008	asl #4,R0
	1009	ext.l R0
	1010	move.l R0,R8
	1011	move.l #_tdbox,R9
	1012	move 10(R8,R9.l),(sp)
	1013	jsr _exp_c
	1014	move R0,R6
	1015	*line 456
	1016	clr (sp)
	1017	jsr _vbank
	1018	*line 457
	1019	*line 458
	1020	move R6,(sp)
	1021	move R7,R0
	1022	asl #4,R0
	1023	ext.l R0
	1024	move.l R0,R8
	1025	move.l #_tdbox,R9
	1026	move 6(R8,R9.l),-(sp)
	1027	move R7,R0
	1028	asl #4,R0
	1029	ext.l R0
	1030	move.l R0,R8
	1031	move.l #_tdbox,R9
	1032	move 4(R8,R9.l),-(sp)
	1033	move R7,R0
	1034	asl #4,R0
	1035	ext.l R0
	1036	move.l R0,R8
	1037	move.l #_tdbox,R9
	1038	move 2(R8,R9.l),-(sp)
	1039	move R7,R0
	1040	asl #4,R0
	1041	ext.l R0
	1042	move.l R0,R8
	1043	move.l #_tdbox,R9
	1044	move 0(R8,R9.l),-(sp)
	1045	move #128,-(sp)
	1046	move.l _tunob,-(sp)
	1047	jsr _vbfill4
	1048	adda.l #14,sp
	1049	*line 462
	1050	*line 463
	1051	move #14,(sp)
	1052	move R7,R8
	1053	add.l R8,R8
	1054	add.l R8,R8
	1055	move.l #_tdbxlb,R9
	1056	move.l 0(R8,R9.l),-(sp)
	1057	move R7,R0
	1058	asl #4,R0
	1059	ext.l R0
	1060	move.l R0,R8
	1061	move.l #_tdbox,R9
	1062	move 14(R8,R9.l),-(sp)
	1063	move R7,R0
	1064	asl #4,R0
	1065	ext.l R0
	1066	move.l R0,R8
	1067	move.l #_tdbox,R9
	1068	move 12(R8,R9.l),-(sp)
	1069	move R7,R0
	1070	asl #4,R0
	1071	ext.l R0
	1072	move.l R0,R8
	1073	move.l #_tdbox,R9
	1074	move 8(R8,R9.l),-(sp)
	1075	move #64,-(sp)
	1076	move.l _tunob,-(sp)
	1077	jsr _tsplot4
	1078	adda.l #16,sp
	1079	*line 467
	1080	move R7,R0
	1081	bra L95
	1082	*line 468
	1083	L96:
	1084	*line 469
	1085	*line 470
	1086	*line 471
	1087	clr R5
	1088	bra L99
	1089	L100:
	1090	*line 472
	1091	*line 473
	1092	move #14,(sp)
	1093	move R5,R8
	1094	add.l R8,R8
	1095	add.l R8,R8
	1096	move.l #_tdlabl,R9
	1097	move.l 0(R8,R9.l),-(sp)
	1098	move #1,-(sp)
	1099	move R5,-(sp)
	1100	move #9,-(sp)
	1101	move #64,-(sp)
	1102	move.l _tunob,-(sp)
	1103	jsr _tsplot4
	1104	adda.l #16,sp
	1105	*line 474
	1106	move R5,(sp)
	1107	add #1,(sp)
	1108	move.l #L101,-(sp)
	1109	move.l #_bfs,-(sp)
	1110	jsr _sprintf
	1111	addq.l #8,sp
	1112	*line 475
	1113	move #14,(sp)
	1114	move.l #_bfs,-(sp)
	1115	move #3,-(sp)
	1116	move R5,-(sp)
	1117	move #10,-(sp)
	1118	move #64,-(sp)
	1119	move.l _tunob,-(sp)
	1120	jsr _tsplot4
	1121	adda.l #16,sp
	1122	*line 476
	1123	*line 477
	1124	*line 478
	1125	move R7,R0
	1126	asl #4,R0
	1127	ext.l R0
	1128	move.l R0,R8
	1129	move.l #_tdbox,R9
	1130	move 10(R8,R9.l),(sp)
	1131	move R5,R8
	1132	add.l R8,R8
	1133	add.l #_tuntab,R8
	1134	cmp #320,(R8)
	1135	beq L10018
	1136	move R5,R8
	1137	add.l R8,R8
	1138	add.l #_tuntab,R8
	1139	cmp #21920,(R8)
	1140	bne L10017
	1141	L10018:move #10,-(sp)
	1142	bra L10020
	1143	L10017:move R7,R0
	1144	asl #4,R0
	1145	ext.l R0
	1146	move.l R0,R8
	1147	move.l #_tdbox,R9
	1148	move 8(R8,R9.l),-(sp)
	1149	L10020:move R5,R8
	1150	add.l R8,R8
	1151	move.l #_tuntab,R9
	1152	move 0(R8,R9.l),-(sp)
	1153	move #6,-(sp)
	1154	move R5,-(sp)
	1155	jsr _dsttval
	1156	addq.l #8,sp
	1157	L98:
	1158	*line 471
	1159	add #1,R5
	1160	L99:
	1161	*line 471
	1162	cmp #24,R5
	1163	blt L100
	1164	L97:
	1165	*line 479
	1166	*line 480
	1167	bra L93
	1168	*line 481
	1169	*line 482
	1170	L102:
	1171	*line 483
	1172	*line 484
	1173	*line 485
	1174	move #24,R5
	1175	bra L105
	1176	L106:
	1177	*line 486
	1178	*line 487
	1179	move R5,(sp)
	1180	add #1,(sp)
	1181	move.l #L107,-(sp)
	1182	move.l #_bfs,-(sp)
	1183	jsr _sprintf
	1184	addq.l #8,sp
	1185	*line 488
	1186	move #14,(sp)
	1187	move.l #_bfs,-(sp)
	1188	move #13,-(sp)
	1189	move R5,-(sp)
	1190	add #-24,(sp)
	1191	move #10,-(sp)
	1192	move #64,-(sp)
	1193	move.l _tunob,-(sp)
	1194	jsr _tsplot4
	1195	adda.l #16,sp
	1196	*line 489
	1197	*line 490
	1198	*line 491
	1199	move R7,R0
	1200	asl #4,R0
	1201	ext.l R0
	1202	move.l R0,R8
	1203	move.l #_tdbox,R9
	1204	move 10(R8,R9.l),(sp)
	1205	move R5,R8
	1206	add.l R8,R8
	1207	add.l #_tuntab,R8
	1208	cmp #320,(R8)
	1209	beq L10022
	1210	move R5,R8
	1211	add.l R8,R8
	1212	add.l #_tuntab,R8
	1213	cmp #21920,(R8)
	1214	bne L10021
	1215	L10022:move #10,-(sp)
	1216	bra L10024
	1217	L10021:move R7,R0
	1218	asl #4,R0
	1219	ext.l R0
	1220	move.l R0,R8
	1221	move.l #_tdbox,R9
	1222	move 8(R8,R9.l),-(sp)
	1223	L10024:move R5,R8
	1224	add.l R8,R8
	1225	move.l #_tuntab,R9
	1226	move 0(R8,R9.l),-(sp)
	1227	move #16,-(sp)
	1228	move R5,-(sp)
	1229	add #-24,(sp)
	1230	jsr _dsttval
	1231	addq.l #8,sp
	1232	L104:
	1233	*line 485
	1234	add #1,R5
	1235	L105:
	1236	*line 485
	1237	cmp #48,R5
	1238	blt L106
	1239	L103:
	1240	*line 492
	1241	*line 493
	1242	bra L93
	1243	*line 494
	1244	*line 495
	1245	L108:
	1246	*line 496
	1247	*line 497
	1248	*line 498
	1249	move #48,R5
	1250	bra L111
	1251	L112:
	1252	*line 499
	1253	*line 500
	1254	move R5,(sp)
	1255	add #1,(sp)
	1256	move.l #L113,-(sp)
	1257	move.l #_bfs,-(sp)
	1258	jsr _sprintf
	1259	addq.l #8,sp
	1260	*line 501
	1261	move #14,(sp)
	1262	move.l #_bfs,-(sp)
	1263	move #23,-(sp)
	1264	move R5,-(sp)
	1265	add #-48,(sp)
	1266	move #10,-(sp)
	1267	move #64,-(sp)
	1268	move.l _tunob,-(sp)
	1269	jsr _tsplot4
	1270	adda.l #16,sp
	1271	*line 502
	1272	*line 503
	1273	*line 504
	1274	move R7,R0
	1275	asl #4,R0
	1276	ext.l R0
	1277	move.l R0,R8
	1278	move.l #_tdbox,R9
	1279	move 10(R8,R9.l),(sp)
	1280	move R5,R8
	1281	add.l R8,R8
	1282	add.l #_tuntab,R8
	1283	cmp #320,(R8)
	1284	beq L10026
	1285	move R5,R8
	1286	add.l R8,R8
	1287	add.l #_tuntab,R8
	1288	cmp #21920,(R8)
	1289	bne L10025
	1290	L10026:move #10,-(sp)
	1291	bra L10028
	1292	L10025:move R7,R0
	1293	asl #4,R0
	1294	ext.l R0
	1295	move.l R0,R8
	1296	move.l #_tdbox,R9
	1297	move 8(R8,R9.l),-(sp)
	1298	L10028:move R5,R8
	1299	add.l R8,R8
	1300	move.l #_tuntab,R9
	1301	move 0(R8,R9.l),-(sp)
	1302	move #26,-(sp)
	1303	move R5,-(sp)
	1304	add #-48,(sp)
	1305	jsr _dsttval
	1306	addq.l #8,sp
	1307	L110:
	1308	*line 498
	1309	add #1,R5
	1310	L111:
	1311	*line 498
	1312	cmp #72,R5
	1313	blt L112
	1314	L109:
	1315	*line 505
	1316	*line 506
	1317	bra L93
	1318	*line 507
	1319	*line 508
	1320	*line 509
	1321	L114:
	1322	*line 510
	1323	*line 511
	1324	*line 512
	1325	move #72,R5
	1326	bra L117
	1327	L118:
	1328	*line 513
	1329	*line 514
	1330	move R5,(sp)
	1331	add #1,(sp)
	1332	move.l #L119,-(sp)
	1333	move.l #_bfs,-(sp)
	1334	jsr _sprintf
	1335	addq.l #8,sp
	1336	*line 515
	1337	move #14,(sp)
	1338	move.l #_bfs,-(sp)
	1339	move #33,-(sp)
	1340	move R5,-(sp)
	1341	add #-72,(sp)
	1342	move #10,-(sp)
	1343	move #64,-(sp)
	1344	move.l _tunob,-(sp)
	1345	jsr _tsplot4
	1346	adda.l #16,sp
	1347	*line 516
	1348	*line 517
	1349	*line 518
	1350	move R7,R0
	1351	asl #4,R0
	1352	ext.l R0
	1353	move.l R0,R8
	1354	move.l #_tdbox,R9
	1355	move 10(R8,R9.l),(sp)
	1356	move R5,R8
	1357	add.l R8,R8
	1358	add.l #_tuntab,R8
	1359	cmp #320,(R8)
	1360	beq L10030
	1361	move R5,R8
	1362	add.l R8,R8
	1363	add.l #_tuntab,R8
	1364	cmp #21920,(R8)
	1365	bne L10029
	1366	L10030:move #10,-(sp)
	1367	bra L10032
	1368	L10029:move R7,R0
	1369	asl #4,R0
	1370	ext.l R0
	1371	move.l R0,R8
	1372	move.l #_tdbox,R9
	1373	move 8(R8,R9.l),-(sp)
	1374	L10032:move R5,R8
	1375	add.l R8,R8
	1376	move.l #_tuntab,R9
	1377	move 0(R8,R9.l),-(sp)
	1378	move #36,-(sp)
	1379	move R5,-(sp)
	1380	add #-72,(sp)
	1381	jsr _dsttval
	1382	addq.l #8,sp
	1383	L116:
	1384	*line 512
	1385	add #1,R5
	1386	L117:
	1387	*line 512
	1388	cmp #96,R5
	1389	blt L118
	1390	L115:
	1391	*line 519
	1392	*line 520
	1393	bra L93
	1394	*line 521
	1395	*line 522
	1396	L120:
	1397	*line 523
	1398	*line 524
	1399	*line 525
	1400	move #96,R5
	1401	bra L123
	1402	L124:
	1403	*line 526
	1404	*line 527
	1405	move R5,(sp)
	1406	add #1,(sp)
	1407	move.l #L125,-(sp)
	1408	move.l #_bfs,-(sp)
	1409	jsr _sprintf
	1410	addq.l #8,sp
	1411	*line 528
	1412	move #14,(sp)
	1413	move.l #_bfs,-(sp)
	1414	move #43,-(sp)
	1415	move R5,-(sp)
	1416	add #-96,(sp)
	1417	move #10,-(sp)
	1418	move #64,-(sp)
	1419	move.l _tunob,-(sp)
	1420	jsr _tsplot4
	1421	adda.l #16,sp
	1422	*line 529
	1423	*line 530
	1424	*line 531
	1425	move R7,R0
	1426	asl #4,R0
	1427	ext.l R0
	1428	move.l R0,R8
	1429	move.l #_tdbox,R9
	1430	move 10(R8,R9.l),(sp)
	1431	move R5,R8
	1432	add.l R8,R8
	1433	add.l #_tuntab,R8
	1434	cmp #320,(R8)
	1435	beq L10034
	1436	move R5,R8
	1437	add.l R8,R8
	1438	add.l #_tuntab,R8
	1439	cmp #21920,(R8)
	1440	bne L10033
	1441	L10034:move #10,-(sp)
	1442	bra L10036
	1443	L10033:move R7,R0
	1444	asl #4,R0
	1445	ext.l R0
	1446	move.l R0,R8
	1447	move.l #_tdbox,R9
	1448	move 8(R8,R9.l),-(sp)
	1449	L10036:move R5,R8
	1450	add.l R8,R8
	1451	move.l #_tuntab,R9
	1452	move 0(R8,R9.l),-(sp)
	1453	move #47,-(sp)
	1454	move R5,-(sp)
	1455	add #-96,(sp)
	1456	jsr _dsttval
	1457	addq.l #8,sp
	1458	L122:
	1459	*line 525
	1460	add #1,R5
	1461	L123:
	1462	*line 525
	1463	cmp #120,R5
	1464	blt L124
	1465	L121:
	1466	*line 532
	1467	*line 533
	1468	bra L93
	1469	*line 534
	1470	*line 535
	1471	L126:
	1472	*line 536
	1473	*line 537
	1474	*line 538
	1475	move #120,R5
	1476	bra L129
	1477	L130:
	1478	*line 539
	1479	*line 540
	1480	move R5,(sp)
	1481	add #1,(sp)
	1482	move.l #L131,-(sp)
	1483	move.l #_bfs,-(sp)
	1484	jsr _sprintf
	1485	addq.l #8,sp
	1486	*line 541
	1487	move #14,(sp)
	1488	move.l #_bfs,-(sp)
	1489	move #54,-(sp)
	1490	move R5,-(sp)
	1491	add #-120,(sp)
	1492	move #10,-(sp)
	1493	move #64,-(sp)
	1494	move.l _tunob,-(sp)
	1495	jsr _tsplot4
	1496	adda.l #16,sp
	1497	*line 542
	1498	*line 543
	1499	*line 544
	1500	move R7,R0
	1501	asl #4,R0
	1502	ext.l R0
	1503	move.l R0,R8
	1504	move.l #_tdbox,R9
	1505	move 10(R8,R9.l),(sp)
	1506	move R5,R8
	1507	add.l R8,R8
	1508	add.l #_tuntab,R8
	1509	cmp #320,(R8)
	1510	beq L10038
	1511	move R5,R8
	1512	add.l R8,R8
	1513	add.l #_tuntab,R8
	1514	cmp #21920,(R8)
	1515	bne L10037
	1516	L10038:move #10,-(sp)
	1517	bra L10040
	1518	L10037:move R7,R0
	1519	asl #4,R0
	1520	ext.l R0
	1521	move.l R0,R8
	1522	move.l #_tdbox,R9
	1523	move 8(R8,R9.l),-(sp)
	1524	L10040:move R5,R8
	1525	add.l R8,R8
	1526	move.l #_tuntab,R9
	1527	move 0(R8,R9.l),-(sp)
	1528	move #58,-(sp)
	1529	move R5,-(sp)
	1530	add #-120,(sp)
	1531	jsr _dsttval
	1532	addq.l #8,sp
	1533	L128:
	1534	*line 538
	1535	add #1,R5
	1536	L129:
	1537	*line 538
	1538	cmp #128,R5
	1539	blt L130
	1540	L127:
	1541	*line 545
	1542	*line 546
	1543	bra L93
	1544	*line 547
	1545	*line 548
	1546	*line 549
	1547	L132:
	1548	*line 550
	1549	*line 551
	1550	*line 552
	1551	clr (sp)
	1552	jsr _td_trcp
	1553	*line 553
	1554	clr (sp)
	1555	jsr _td_incr
	1556	*line 554
	1557	clr (sp)
	1558	jsr _td_intp
	1559	*line 555
	1560	move #14,(sp)
	1561	move.l #L133,-(sp)
	1562	move #54,-(sp)
	1563	move #16,-(sp)
	1564	move R7,R0
	1565	asl #4,R0
	1566	ext.l R0
	1567	move.l R0,R8
	1568	move.l #_tdbox,R9
	1569	move 8(R8,R9.l),-(sp)
	1570	move #64,-(sp)
	1571	move.l _tunob,-(sp)
	1572	jsr _tsplot4
	1573	adda.l #16,sp
	1574	*line 556
	1575	*line 557
	1576	tst _tunval
	1577	blt L10041
	1578	move _tunval,R0
	1579	bra L10043
	1580	L10041:move _tunval,R0
	1581	neg R0
	1582	L10043:move R0,R4
	1583	asr R4
	1584	*line 558
	1585	tst _tunval
	1586	blt L10044
	1587	move #43,R0
	1588	bra L10046
	1589	L10044:move #45,R0
	1590	L10046:move.b R0,-2(R14)
	1591	*line 559
	1592	move R4,(sp)
	1593	move.b -2(R14),R0
	1594	ext.w R0
	1595	move R0,-(sp)
	1596	move.l #L134,-(sp)
	1597	move.l #_bfs,-(sp)
	1598	jsr _sprintf
	1599	adda.l #10,sp
	1600	*line 560
	1601	move #14,(sp)
	1602	move.l #_bfs,-(sp)
	1603	move #54,-(sp)
	1604	move #18,-(sp)
	1605	move R7,R0
	1606	asl #4,R0
	1607	ext.l R0
	1608	move.l R0,R8
	1609	move.l #_tdbox,R9
	1610	move 8(R8,R9.l),-(sp)
	1611	move #64,-(sp)
	1612	move.l _tunob,-(sp)
	1613	jsr _tsplot4
	1614	adda.l #16,sp
	1615	*line 561
	1616	*line 562
	1617	move #14,(sp)
	1618	move.l #L135,-(sp)
	1619	move #54,-(sp)
	1620	move #20,-(sp)
	1621	move R7,R0
	1622	asl #4,R0
	1623	ext.l R0
	1624	move.l R0,R8
	1625	move.l #_tdbox,R9
	1626	move 8(R8,R9.l),-(sp)
	1627	move #64,-(sp)
	1628	move.l _tunob,-(sp)
	1629	jsr _tsplot4
	1630	adda.l #16,sp
	1631	*line 563
	1632	move #14,(sp)
	1633	move.l #L136,-(sp)
	1634	move #54,-(sp)
	1635	move #22,-(sp)
	1636	move R7,R0
	1637	asl #4,R0
	1638	ext.l R0
	1639	move.l R0,R8
	1640	move.l #_tdbox,R9
	1641	move 8(R8,R9.l),-(sp)
	1642	move #64,-(sp)
	1643	move.l _tunob,-(sp)
	1644	jsr _tsplot4
	1645	adda.l #16,sp
	1646	*line 564
	1647	*line 565
	1648	move #14,(sp)
	1649	move.l #L137,-(sp)
	1650	move #54,-(sp)
	1651	move #24,-(sp)
	1652	move R7,R0
	1653	asl #4,R0
	1654	ext.l R0
	1655	move.l R0,R8
	1656	move.l #_tdbox,R9
	1657	move 8(R8,R9.l),-(sp)
	1658	move #64,-(sp)
	1659	move.l _tunob,-(sp)
	1660	jsr _tsplot4
	1661	adda.l #16,sp
	1662	*line 566
	1663	move _curtun,R0
	1664	add #48,R0
	1665	move.b R0,_bfs
	1666	*line 567
	1667	clr.b 1+_bfs
	1668	*line 568
	1669	*line 569
	1670	move #14,(sp)
	1671	move.l #_bfs,-(sp)
	1672	move #61,-(sp)
	1673	move #24,-(sp)
	1674	tst _tunmod
	1675	beq L10047
	1676	move #14,-(sp)
	1677	bra L10049
	1678	L10047:move R7,R0
	1679	asl #4,R0
	1680	ext.l R0
	1681	move.l R0,R8
	1682	move.l #_tdbox,R9
	1683	move 8(R8,R9.l),-(sp)
	1684	L10049:move #64,-(sp)
	1685	move.l _tunob,-(sp)
	1686	jsr _tsplot4
	1687	adda.l #16,sp
	1688	*line 570
	1689	bra L93
	1690	*line 571
	1691	*line 572
	1692	L138:
	1693	*line 573
	1694	*line 574
	1695	*line 575
	1696	move #14,(sp)
	1697	move.l #_tuncurn,-(sp)
	1698	move #7,-(sp)
	1699	move #24,-(sp)
	1700	move R7,R0
	1701	asl #4,R0
	1702	ext.l R0
	1703	move.l R0,R8
	1704	move.l #_tdbox,R9
	1705	move 8(R8,R9.l),-(sp)
	1706	move #64,-(sp)
	1707	move.l _tunob,-(sp)
	1708	jsr _tsplot4
	1709	adda.l #16,sp
	1710	bra L93
	1711	*line 576
	1712	bra L94
	1713	L95:cmp #7,R0
	1714	bhi L94
	1715	asl #2,R0
	1716	move R0,R8
	1717	add.l #L139,R8
	1718	move.l (R8),R8
	1719	jmp (R8)
	1720	.data
	1721	L139:.dc.l L96
	1722	.dc.l L102
	1723	.dc.l L108
	1724	.dc.l L114
	1725	.dc.l L120
	1726	.dc.l L126
	1727	.dc.l L132
	1728	.dc.l L138
	1729	.text
	1730	L94:L93:tst.l (sp)+
	1731	movem.l (sp)+,R4-R7
	1732	unlk R14
	1733	rts
	1734	.globl _twins
	1735	.text
	1736	_twins:
	1737	~~twins:
	1738	link R14,#0
	1739	movem.l R6-R7,-(sp)
	1740	~i=R7
	1741	*line 593
	1742	clr R7
	1743	bra L143
	1744	L144:
	1745	*line 594
	1746	move R7,(sp)
	1747	jsr _tdswin
	1748	L142:
	1749	*line 593
	1750	add #1,R7
	1751	L143:
	1752	*line 593
	1753	cmp #8,R7
	1754	blt L144
	1755	L141:L140:tst.l (sp)+
	1756	movem.l (sp)+,R7-R7
	1757	unlk R14
	1758	rts
	1759	.globl _tundsp
	1760	.text
	1761	_tundsp:
	1762	~~tundsp:
	1763	link R14,#-4
	1764	*line 608
	1765	move.l #_v_score,_tunob
	1766	*line 609
	1767	move.l #_v_curs0,_obj0
	1768	*line 610
	1769	move.l #_v_tcur,_obj2
	1770	*line 611
	1771	move.l #144+_v_obtab,_tdoct
	1772	*line 613
	1773	clr _ttcmdsv
	1774	*line 614
	1775	clr _tdnamsw
	1776	*line 615
	1777	clr _submenu
	1778	*line 617
	1779	jsr _dswap
	1780	*line 619
	1781	*line 620
	1782	clr R0
	1783	move 10+_v_regs,R0
	1784	and #384,R0
	1785	beq L146
	1786	*line 620
	1787	clr (sp)
	1788	jsr _vbank
	1789	*line 621
	1790	L146:
	1791	*line 622
	1792	move #32767,(sp)
	1793	clr -(sp)
	1794	move.l _tunob,-(sp)
	1795	jsr _memsetw
	1796	addq.l #6,sp
	1797	*line 623
	1798	move #12033,(sp)
	1799	clr -(sp)
	1800	move.l _tunob,R0
	1801	add.l #$fffe,R0
	1802	move.l R0,-(sp)
	1803	jsr _memsetw
	1804	addq.l #6,sp
	1805	*line 625
	1806	move #-1,(sp)
	1807	move #1536,-(sp)
	1808	clr -(sp)
	1809	clr -(sp)
	1810	move #350,-(sp)
	1811	move #512,-(sp)
	1812	move.l _tunob,-(sp)
	1813	clr -(sp)
	1814	clr -(sp)
	1815	move #8,-(sp)
	1816	jsr _SetObj
	1817	adda.l #20,sp
	1818	*line 626
	1819	move #-1,(sp)
	1820	move #1540,-(sp)
	1821	move #336,-(sp)
	1822	move #488,-(sp)
	1823	move #16,-(sp)
	1824	move #16,-(sp)
	1825	move.l _obj0,-(sp)
	1826	move #1,-(sp)
	1827	clr -(sp)
	1828	clr -(sp)
	1829	jsr _SetObj
	1830	adda.l #20,sp
	1831	*line 627
	1832	move #-1,(sp)
	1833	move #1572,-(sp)
	1834	clr -(sp)
	1835	clr -(sp)
	1836	move #16,-(sp)
	1837	move #16,-(sp)
	1838	move.l _obj2,-(sp)
	1839	move #1,-(sp)
	1840	clr -(sp)
	1841	move #2,-(sp)
	1842	jsr _SetObj
	1843	adda.l #20,sp
	1844	*line 629
	1845	move #1,(sp)
	1846	jsr _arcurs
	1847	*line 630
	1848	move #1,(sp)
	1849	jsr _itcini
	1850	*line 631
	1851	move #3,(sp)
	1852	jsr _ttcini
	1853	*line 633
	1854	jsr _twins
	1855	*line 635
	1856	move #8,(sp)
	1857	move #8,-(sp)
	1858	jsr _SetPri
	1859	addq.l #2,sp
	1860	*line 637
	1861	move #61,(sp)
	1862	move #24,-(sp)
	1863	jsr _settc
	1864	addq.l #2,sp
	1865	*line 639
	1866	move.l #_tunpal,(sp)
	1867	jsr _vsndpal
	1868	L145:unlk R14
	1869	rts
	1870	.data
	1871	L3:.dc.b $43,$0
	1872	L4:.dc.b $23,$0
	1873	L5:.dc.b $44,$0
	1874	L6:.dc.b $23,$0
	1875	L7:.dc.b $45,$0
	1876	L8:.dc.b $46,$0
	1877	L9:.dc.b $23,$0
	1878	L10:.dc.b $47,$0
	1879	L11:.dc.b $23,$0
	1880	L12:.dc.b $41,$0
	1881	L13:.dc.b $23,$0
	1882	L14:.dc.b $42,$0
	1883	L15:.dc.b $43,$0
	1884	L16:.dc.b $23,$0
	1885	L17:.dc.b $44,$0
	1886	L18:.dc.b $23,$0
	1887	L19:.dc.b $45,$0
	1888	L20:.dc.b $46,$0
	1889	L21:.dc.b $23,$0
	1890	L22:.dc.b $47,$0
	1891	L23:.dc.b $23,$0
	1892	L24:.dc.b $41,$0
	1893	L25:.dc.b $23,$0
	1894	L26:.dc.b $42,$0
	1895	L78:.dc.b $54,$72,$61,$6E,$73,$70,$6F,$73,$65,$0
	1896	L79:.dc.b $61,$6E,$64,$20,$43,$6F,$70,$79,$0
	1897	L81:.dc.b $49,$6E,$63,$72,$65,$6D,$65,$6E,$74,$0
	1898	L83:.dc.b $49,$6E,$74,$72,$70,$6F,$6C,$61,$74,$0
	1899	L101:.dc.b $25,$32,$64,$0
	1900	L107:.dc.b $25,$32,$64,$0
	1901	L113:.dc.b $25,$32,$64,$0
	1902	L119:.dc.b $25,$32,$64,$0
	1903	L125:.dc.b $25,$33,$64,$0
	1904	L131:.dc.b $25,$33,$64,$0
	1905	L133:.dc.b $55,$6E,$64,$6F,$0
	1906	L134:.dc.b $56,$61,$6C,$20,$25,$63,$25,$30,$34,$64,$0
	1907	L135:.dc.b $53,$74,$6F,$72,$65,$0
	1908	L136:.dc.b $52,$65,$74,$72,$69,$65,$76,$65,$0
	1909	L137:.dc.b $54,$61,$62,$6C,$65,$20,$23,$0

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format