Context Navigation

scselbx.s@ 4810254

Last change on this file since 4810254 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Added Alcyon C reference output.
Property mode set to `100644`
File size: 62.8 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 _ebflag
	38	.globl _ebuf
	39	.globl _curfet
	40	.globl _cfetp
	41	.globl _infetp
	42	.globl _v_obtab
	43	.globl _v_curob
	44	.globl _v_nobj
	45	.globl _v_obpri
	46	.globl _lcdx
	47	.globl _lcdy
	48	.globl _lcdbit
	49	.globl _lcdrow
	50	.globl _lcdcol
	51	.globl _lcdbase
	52	.globl _lcdctl1
	53	.globl _lcdctl2
	54	.globl _ac_code
	55	.globl _scname
	56	.globl _se_chg
	57	.globl _curscor
	58	.globl _cursect
	59	.globl _se1_cnt
	60	.globl _se2_cnt
	61	.globl _se3_cnt
	62	.globl _spool
	63	.globl _pspool
	64	.globl _spcount
	65	.globl _frags
	66	.globl _t_bak
	67	.globl _t_cur
	68	.globl _t_ctr
	69	.globl _t_fwd
	70	.globl _size1
	71	.globl _size2
	72	.globl _size3
	73	.globl _scores
	74	.globl _scp
	75	.globl _seclist
	76	.globl _hplist
	77	.globl _p_bak
	78	.globl _p_cur
	79	.globl _p_ctr
	80	.globl _p_fwd
	81	.globl _secopok
	82	.globl _t_sbgn
	83	.globl _t_send
	84	.globl _t_sect
	85	.globl _t_sec1
	86	.globl _t_sec2
	87	.globl _t_cbgn
	88	.globl _t_cend
	89	.globl _p_sbgn
	90	.globl _p_send
	91	.globl _p_sec1
	92	.globl _p_sec2
	93	.globl _p_cbgn
	94	.globl _p_cend
	95	.globl _itxput
	96	.globl _point
	97	.globl _ancmsw
	98	.globl _angroup
	99	.globl _asmode
	100	.globl _clkrun
	101	.globl _clkctl
	102	.globl _clksrc
	103	.globl _ctrsw
	104	.globl _cxval
	105	.globl _cyval
	106	.globl _dubsw
	107	.globl _gomode
	108	.globl _grptran
	109	.globl _gtmsel
	110	.globl _hitbox
	111	.globl _hitcx
	112	.globl _hitcy
	113	.globl _insmode
	114	.globl _ismode
	115	.globl _lastam
	116	.globl _midiclk
	117	.globl _noteop
	118	.globl _notesel
	119	.globl _oldpk
	120	.globl _oldsl
	121	.globl _pchsw
	122	.globl _pkctrl
	123	.globl _pulsclk
	124	.globl _recsw
	125	.globl _scmctl
	126	.globl _sdmcol
	127	.globl _sdmctl
	128	.globl _sdmrow
	129	.globl _secop
	130	.globl _sgoflag
	131	.globl _sliders
	132	.globl _stccol
	133	.globl _stcrow
	134	.globl _stepclk
	135	.globl _stepenb
	136	.globl _submenu
	137	.globl _velflag
	138	.globl _vtccol
	139	.globl _vtcrow
	140	.globl _grptmap
	141	.globl _sctctab
	142	.globl _asgtab
	143	.globl _csbp
	144	.globl _curboxp
	145	.globl _stimes
	146	.globl _obj8
	147	.globl _obj11
	148	.globl _swpt
	149	.globl _oldsw
	150	.globl _t_ngrp
	151	.globl _bfs
	152	.globl _tunname
	153	.globl _gdstbc
	154	.globl _sdmenus
	155	.data
	156	_sdmenus:
	157	*line 122
	158	.dc.l L1
	159	*line 123
	160	.dc.l L2
	161	*line 124
	162	.dc.l L3
	163	*line 128
	164	.dc.l L4
	165	*line 129
	166	.dc.l L5
	167	*line 130
	168	.dc.l L6
	169	*line 134
	170	.dc.l L7
	171	*line 135
	172	.dc.l L8
	173	*line 136
	174	.dc.l L9
	175	*line 140
	176	.dc.l L10
	177	*line 141
	178	.dc.l L11
	179	*line 142
	180	.dc.l L12
	181	*line 146
	182	.dc.l L13
	183	*line 147
	184	.dc.l L14
	185	*line 148
	186	.dc.l L15
	187	.globl _sdmln3
	188	.data
	189	_sdmln3:
	190	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$52,$65,$47,$72,$70,$20,$20,$52,$65,$6D,$6F,$76,$65,$20,$54,$72,$6E,$20,$53,$20,$20,$20
	191	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	192	.dc.b $20,$20,$20,$20,$0
	193	.even
	194	.globl _sdmln4
	195	.data
	196	_sdmln4:
	197	.dc.b $45,$73,$63,$61,$70,$65,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$44,$20,$20,$20
	198	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	199	.dc.b $20,$20,$20,$20,$0
	200	.even
	201	.globl _sdmht
	202	.data
	203	_sdmht:
	204	.dc.w $6
	205	.dc.w $0
	206	.dc.w $0
	207	.dc.w $3
	208	.dc.w $1
	209	.dc.w $4
	210	.dc.w $4
	211	.dc.w $1
	212	.dc.w $5
	213	.dc.w $5
	214	.dc.w $1
	215	.dc.w $3
	216	.dc.w $3
	217	.dc.w $8
	218	.dc.w $B
	219	.dc.w $4
	220	.dc.w $8
	221	.dc.w $B
	222	.dc.w $5
	223	.dc.w $8
	224	.dc.w $C
	225	.dc.w $3
	226	.dc.w $F
	227	.dc.w $13
	228	.dc.w $4
	229	.dc.w $F
	230	.dc.w $17
	231	.dc.w $5
	232	.dc.w $F
	233	.dc.w $17
	234	.dc.w $6
	235	.dc.w $F
	236	.dc.w $14
	237	.dc.w $6
	238	.dc.w $8
	239	.dc.w $C
	240	.globl _sdmlim
	241	.data
	242	_sdmlim:
	243	.dc.w $13
	244	.dc.w $1
	245	.dc.w $15
	246	.dc.w $1E
	247	.dc.w $13
	248	.dc.w $1
	249	.dc.w $15
	250	.dc.w $1E
	251	.dc.w $13
	252	.dc.w $1
	253	.dc.w $15
	254	.dc.w $14
	255	.dc.w $13
	256	.dc.w $1
	257	.dc.w $15
	258	.dc.w $13
	259	.dc.w $13
	260	.dc.w $1
	261	.dc.w $17
	262	.dc.w $3E
	263	.globl _nedlbl
	264	.data
	265	_nedlbl:
	266	*line 194
	267	.dc.l L18
	268	*line 195
	269	.dc.l L19
	270	*line 196
	271	.dc.l L20
	272	*line 197
	273	.dc.l L21
	274	*line 198
	275	.dc.l L22
	276	*line 199
	277	.dc.l L23
	278	*line 201
	279	.dc.l L24
	280	.globl _sdboxes
	281	.data
	282	_sdboxes:
	283	.dc.w $0
	284	.dc.w $0
	285	.dc.w $AF
	286	.dc.w $D
	287	.dc.w $0
	288	*line 208
	289	.dc.l _sdboxfn
	290	.dc.w $B0
	291	.dc.w $0
	292	.dc.w $E7
	293	.dc.w $D
	294	.dc.w $1
	295	*line 209
	296	.dc.l _sdboxfn
	297	.dc.w $E8
	298	.dc.w $0
	299	.dc.w $1B7
	300	.dc.w $D
	301	.dc.w $2
	302	*line 210
	303	.dc.l _sdboxfn
	304	.dc.w $1B8
	305	.dc.w $0
	306	.dc.w $1FF
	307	.dc.w $D
	308	.dc.w $3
	309	*line 211
	310	.dc.l _sdboxfn
	311	.dc.w $0
	312	.dc.w $EE
	313	.dc.w $6F
	314	.dc.w $FB
	315	.dc.w $4
	316	*line 213
	317	.dc.l _sdboxfn
	318	.dc.w $70
	319	.dc.w $EE
	320	.dc.w $A7
	321	.dc.w $FB
	322	.dc.w $5
	323	*line 214
	324	.dc.l _sdboxfn
	325	.dc.w $A8
	326	.dc.w $EE
	327	.dc.w $F7
	328	.dc.w $FB
	329	.dc.w $6
	330	*line 215
	331	.dc.l _enterit
	332	.dc.w $F8
	333	.dc.w $EE
	334	.dc.w $13F
	335	.dc.w $FB
	336	.dc.w $7
	337	*line 216
	338	.dc.l _enterit
	339	.dc.w $140
	340	.dc.w $EE
	341	.dc.w $18E
	342	.dc.w $FB
	343	.dc.w $8
	344	*line 217
	345	.dc.l _sdboxfn
	346	.dc.w $190
	347	.dc.w $EE
	348	.dc.w $1C7
	349	.dc.w $FB
	350	.dc.w $9
	351	*line 218
	352	.dc.l _sdboxfn
	353	.dc.w $1C8
	354	.dc.w $EE
	355	.dc.w $1FF
	356	.dc.w $FB
	357	.dc.w $A
	358	*line 219
	359	.dc.l _sdboxfn
	360	.dc.w $0
	361	.dc.w $FC
	362	.dc.w $1FF
	363	.dc.w $133
	364	.dc.w $B
	365	*line 221
	366	.dc.l _sdboxfn
	367	.dc.w $0
	368	.dc.w $134
	369	.dc.w $1FF
	370	.dc.w $14F
	371	.dc.w $C
	372	*line 223
	373	.dc.l _sdboxfn
	374	.dc.w $0
	375	.dc.w $150
	376	.dc.w $D7
	377	.dc.w $15D
	378	.dc.w $D
	379	*line 225
	380	.dc.l _sdboxfn
	381	.dc.w $D8
	382	.dc.w $150
	383	.dc.w $1C7
	384	.dc.w $15D
	385	.dc.w $E
	386	*line 226
	387	.dc.l _sdboxfn
	388	.dc.w $1C8
	389	.dc.w $150
	390	.dc.w $1FF
	391	.dc.w $15D
	392	.dc.w $F
	393	*line 227
	394	.dc.l _sdboxfn
	395	.dc.w $0
	396	.dc.w $E
	397	.dc.w $1FF
	398	.dc.w $ED
	399	.dc.w $10
	400	*line 229
	401	.dc.l _sdboxfn
	402	.dc.w $0
	403	.dc.w $0
	404	.dc.w $0
	405	.dc.w $0
	406	.dc.w $0
	407	.dc.l $0
	408	.globl _insect
	409	.text
	410	_insect:
	411	~~insect:
	412	link R14,#0
	413	movem.l R6-R7,-(sp)
	414	~col=R7
	415	*line 248
	416	move _vtccol,R7
	417	add #-24,R7
	418	*line 250
	419	*line 251
	420	tst R7
	421	bge L26
	422	*line 251
	423	move #-1,R0
	424	bra L25
	425	*line 252
	426	L26:
	427	*line 253
	428	move R7,R0
	429	and #3,R0
	430	move R0,_sgoflag
	431	*line 255
	432	*line 256
	433	cmp #19,_vtcrow
	434	blt L10000
	435	cmp #20,_vtcrow
	436	ble L27
	437	L10000:*line 256
	438	move #-1,R0
	439	bra L25
	440	*line 257
	441	L27:
	442	*line 258
	443	move R7,R0
	444	asr #2,R0
	445	move _vtcrow,R1
	446	add #-19,R1
	447	muls #10,R1
	448	add R1,R0
	449	bra L25
	450	L25:tst.l (sp)+
	451	movem.l (sp)+,R7-R7
	452	unlk R14
	453	rts
	454	.globl _svtdsp
	455	.text
	456	_svtdsp:
	457	~~svtdsp:
	458	~obj=8
	459	~fg=12
	460	~bg=14
	461	~row=16
	462	~col=18
	463	~buf=20
	464	link R14,#-4
	465	*line 273
	466	*line 274
	467	clr R0
	468	move 10+_v_regs,R0
	469	and #384,R0
	470	beq L29
	471	*line 274
	472	clr (sp)
	473	jsr _vbank
	474	*line 275
	475	L29:
	476	*line 276
	477	move #19,(sp)
	478	move.l 20(R14),-(sp)
	479	move 18(R14),-(sp)
	480	move 16(R14),-(sp)
	481	add #-16,(sp)
	482	move.l 8(R14),-(sp)
	483	jsr _vputs
	484	adda.l #12,sp
	485	L28:unlk R14
	486	rts
	487	.globl _svtstop
	488	.text
	489	_svtstop:
	490	~~svtstop:
	491	link R14,#-4
	492	*line 290
	493	move #-1,(sp)
	494	jsr _sdmenu
	495	L30:unlk R14
	496	rts
	497	.globl _bspscur
	498	.text
	499	_bspscur:
	500	~~bspscur:
	501	link R14,#0
	502	movem.l R6-R7,-(sp)
	503	~newcol=R7
	504	*line 303
	505	*line 304
	506	move.l _curfet,(sp)
	507	move _stccol,-(sp)
	508	move _stcrow,-(sp)
	509	jsr _infield
	510	addq.l #4,sp
	511	tst R0
	512	beq L32
	513	*line 304
	514	move.l _infetp,_cfetp
	515	*line 305
	516	bra L33
	517	L32:bra L31
	518	L33:
	519	*line 308
	520	move _stccol,R7
	521	sub #1,R7
	522	*line 310
	523	*line 311
	524	move.l _cfetp,R8
	525	cmp 2(R8),R7
	526	blt L34
	527	*line 311
	528	move R7,(sp)
	529	move _stcrow,-(sp)
	530	jsr _stcpos
	531	addq.l #2,sp
	532	*line 312
	533	L34:
	534	*line 313
	535	move _stccol,R0
	536	asl #3,R0
	537	move R0,_cxval
	538	*line 314
	539	move _stcrow,R0
	540	muls #14,R0
	541	move R0,_cyval
	542	L31:tst.l (sp)+
	543	movem.l (sp)+,R7-R7
	544	unlk R14
	545	rts
	546	.globl _dsects
	547	.text
	548	_dsects:
	549	~~dsects:
	550	link R14,#-18
	551	movem.l R2-R7/R13-R13,-(sp)
	552	~atr=R7
	553	~row=R6
	554	~col=R5
	555	~i=R4
	556	~j=R3
	557	~buf=-8
	558	~cl=-10
	559	~cr=-12
	560	~csl=-14
	561	~csr=-16
	562	~begun=-18
	563	~sp=R13
	564	*line 336
	565	*line 337
	566	clr R0
	567	move 10+_v_regs,R0
	568	and #384,R0
	569	beq L36
	570	*line 337
	571	clr (sp)
	572	jsr _vbank
	573	*line 338
	574	L36:
	575	*line 339
	576	move #3,R6
	577	*line 341
	578	clr R4
	579	bra L39
	580	L40:
	581	*line 342
	582	*line 343
	583	move #24,R5
	584	*line 344
	585	*line 345
	586	clr R3
	587	bra L43
	588	L44:
	589	*line 346
	590	*line 347
	591	*line 347
	592	move _curscor,R0
	593	muls #240,R0
	594	move R4,R1
	595	add R3,R1
	596	muls #12,R1
	597	add.l R1,R0
	598	move.l R0,R8
	599	move.l #_stimes,R9
	600	tst 0(R8,R9.l)
	601	beq L45
	602	*line 348
	603	*line 349
	604	move.b #91,-14(R14)
	605	*line 350
	606	move.b #93,-16(R14)
	607	*line 351
	608	bra L46
	609	L45:
	610	*line 352
	611	*line 353
	612	*line 354
	613	move.b #123,-14(R14)
	614	*line 355
	615	move.b #125,-16(R14)
	616	L46:
	617	*line 356
	618	*line 357
	619	*line 358
	620	move.b #32,-10(R14)
	621	*line 359
	622	move.b #32,-12(R14)
	623	*line 360
	624	*line 361
	625	*line 361
	626	move _curscor,R0
	627	muls #80,R0
	628	move R4,R1
	629	add R3,R1
	630	asl #2,R1
	631	ext.l R1
	632	add.l R1,R0
	633	add.l #_seclist,R0
	634	move.l R0,R8
	635	tst.l (R8)
	636	beq L47
	637	*line 362
	638	*line 363
	639	move #1,-18(R14)
	640	*line 364
	641	move #84,R7
	642	*line 365
	643	move.b -14(R14),-10(R14)
	644	*line 366
	645	bra L48
	646	L47:
	647	*line 367
	648	*line 368
	649	*line 369
	650	clr -18(R14)
	651	*line 370
	652	move #20,R7
	653	L48:
	654	*line 371
	655	*line 372
	656	*line 373
	657	move _curscor,R0
	658	muls #48,R0
	659	add.l #_hplist,R0
	660	move.l R0,R8
	661	move.l 44(R8),R13
	662	*line 374
	663	*line 375
	664	bra L51
	665	L50:
	666	*line 376
	667	*line 377
	668	*line 377
	669	move R4,R0
	670	add R3,R0
	671	move.b 6(R13),R1
	672	ext.w R1
	673	cmp R1,R0
	674	bne L52
	675	*line 378
	676	*line 379
	677	tst -18(R14)
	678	beq L10001
	679	move.b -16(R14),R0
	680	ext.w R0
	681	bra L10003
	682	L10001:move #125,R0
	683	L10003:move.b R0,-12(R14)
	684	bra L49
	685	*line 380
	686	*line 381
	687	*line 382
	688	L52:
	689	*line 383
	690	move.l 20(R13),R13
	691	L51:
	692	*line 384
	693	move.l R13,R0
	694	bne L50
	695	L49:
	696	*line 385
	697	*line 386
	698	move.b -12(R14),R0
	699	ext.w R0
	700	move R0,(sp)
	701	move R4,-(sp)
	702	move R3,R0
	703	add R0,(sp)
	704	add #1,(sp)
	705	move.b -10(R14),R0
	706	ext.w R0
	707	move R0,-(sp)
	708	move.l #L53,-(sp)
	709	move.l R14,-(sp)
	710	sub.l #8,(sp)
	711	jsr _sprintf
	712	adda.l #12,sp
	713	*line 387
	714	*line 388
	715	move R7,(sp)
	716	move.l R14,-(sp)
	717	sub.l #8,(sp)
	718	move R5,-(sp)
	719	move R6,-(sp)
	720	move.l _obj8,-(sp)
	721	jsr _vputs
	722	adda.l #12,sp
	723	*line 389
	724	add #4,R5
	725	L42:
	726	*line 345
	727	add #1,R3
	728	L43:
	729	*line 345
	730	cmp #10,R3
	731	blt L44
	732	L41:
	733	*line 390
	734	*line 391
	735	*line 392
	736	add #1,R6
	737	L38:
	738	*line 341
	739	add #10,R4
	740	L39:
	741	*line 341
	742	cmp #20,R4
	743	blt L40
	744	L37:L35:tst.l (sp)+
	745	movem.l (sp)+,R3-R7/R13-R13
	746	unlk R14
	747	rts
	748	.globl _dsgtmn
	749	.text
	750	_dsgtmn:
	751	~~dsgtmn:
	752	~n=8
	753	~f=10
	754	link R14,#-12
	755	~buf=-4
	756	~atr=-6
	757	~col=-8
	758	*line 411
	759	move 8(R14),(sp)
	760	add #1,(sp)
	761	move.l #L55,-(sp)
	762	move.l R14,-(sp)
	763	sub.l #4,(sp)
	764	jsr _sprintf
	765	addq.l #8,sp
	766	*line 413
	767	move 8(R14),R0
	768	muls #3,R0
	769	add #28,R0
	770	move R0,-8(R14)
	771	*line 414
	772	tst 10(R14)
	773	beq L10004
	774	move #84,R0
	775	bra L10006
	776	L10004:move #20,R0
	777	L10006:move R0,-6(R14)
	778	*line 416
	779	*line 417
	780	clr R0
	781	move 10+_v_regs,R0
	782	and #384,R0
	783	beq L56
	784	*line 417
	785	clr (sp)
	786	jsr _vbank
	787	*line 418
	788	L56:
	789	*line 419
	790	move -6(R14),(sp)
	791	move.l R14,-(sp)
	792	sub.l #4,(sp)
	793	move -8(R14),-(sp)
	794	move #6,-(sp)
	795	move.l _obj8,-(sp)
	796	jsr _vputs
	797	adda.l #12,sp
	798	L54:unlk R14
	799	rts
	800	.globl _dsgtme
	801	.text
	802	_dsgtme:
	803	~~dsgtme:
	804	~n=8
	805	link R14,#-10
	806	~buf=-4
	807	~col=-6
	808	*line 434
	809	*line 435
	810	move 8(R14),R8
	811	add.l R8,R8
	812	add.l #_grptmap,R8
	813	cmp #-1,(R8)
	814	bne L58
	815	*line 435
	816	move.l #L59,(sp)
	817	move.l R14,-(sp)
	818	sub.l #4,(sp)
	819	jsr _strcpy
	820	addq.l #4,sp
	821	*line 436
	822	bra L60
	823	L58:
	824	*line 437
	825	move 8(R14),R8
	826	add.l R8,R8
	827	move.l #_grptmap,R9
	828	move 0(R8,R9.l),(sp)
	829	add #1,(sp)
	830	move.l #L61,-(sp)
	831	move.l R14,-(sp)
	832	sub.l #4,(sp)
	833	jsr _sprintf
	834	addq.l #8,sp
	835	L60:
	836	*line 439
	837	move 8(R14),R0
	838	muls #3,R0
	839	add #28,R0
	840	move R0,-6(R14)
	841	*line 441
	842	*line 442
	843	clr R0
	844	move 10+_v_regs,R0
	845	and #384,R0
	846	beq L62
	847	*line 442
	848	clr (sp)
	849	jsr _vbank
	850	*line 443
	851	L62:
	852	*line 444
	853	move #20,(sp)
	854	move.l R14,-(sp)
	855	sub.l #4,(sp)
	856	move -6(R14),-(sp)
	857	move #7,-(sp)
	858	move.l _obj8,-(sp)
	859	jsr _vputs
	860	adda.l #12,sp
	861	L57:unlk R14
	862	rts
	863	.globl _dsgtmap
	864	.text
	865	_dsgtmap:
	866	~~dsgtmap:
	867	link R14,#-6
	868	movem.l R6-R7,-(sp)
	869	~buf=-6
	870	~i=R7
	871	*line 461
	872	*line 462
	873	clr R0
	874	move 10+_v_regs,R0
	875	and #384,R0
	876	beq L64
	877	*line 462
	878	clr (sp)
	879	jsr _vbank
	880	*line 463
	881	L64:
	882	*line 464
	883	tst _grptran
	884	bge L10007
	885	move _grptran,R0
	886	neg R0
	887	move R0,(sp)
	888	bra L10009
	889	L10007:move _grptran,(sp)
	890	L10009:tst _grptran
	891	bge L10010
	892	move #45,-(sp)
	893	bra L10012
	894	L10010:move #43,-(sp)
	895	L10012:move.l #L65,-(sp)
	896	move.l R14,-(sp)
	897	sub.l #6,(sp)
	898	jsr _sprintf
	899	adda.l #10,sp
	900	*line 466
	901	move #20,(sp)
	902	move.l R14,-(sp)
	903	sub.l #6,(sp)
	904	move #22,-(sp)
	905	move #7,-(sp)
	906	move.l _obj8,-(sp)
	907	jsr _vputs
	908	adda.l #12,sp
	909	*line 468
	910	clr R7
	911	bra L68
	912	L69:
	913	*line 469
	914	*line 470
	915	cmp _gtmsel,R7
	916	beq L10013
	917	clr (sp)
	918	bra L10014
	919	L10013:move #1,(sp)
	920	L10014:move R7,-(sp)
	921	jsr _dsgtmn
	922	addq.l #2,sp
	923	*line 471
	924	move R7,(sp)
	925	jsr _dsgtme
	926	L67:
	927	*line 468
	928	add #1,R7
	929	L68:
	930	*line 468
	931	cmp #12,R7
	932	blt L69
	933	L66:L63:tst.l (sp)+
	934	movem.l (sp)+,R7-R7
	935	unlk R14
	936	rts
	937	.globl _ingroup
	938	.text
	939	_ingroup:
	940	~~ingroup:
	941	link R14,#0
	942	movem.l R6-R7,-(sp)
	943	~col=R7
	944	*line 486
	945	move _vtccol,R7
	946	add #-28,R7
	947	*line 488
	948	*line 489
	949	tst R7
	950	bge L71
	951	*line 489
	952	move #-1,R0
	953	bra L70
	954	*line 490
	955	L71:
	956	*line 491
	957	*line 492
	958	move R7,R0
	959	ext.l R0
	960	divs #3,R0
	961	swap R0
	962	cmp #2,R0
	963	bne L72
	964	*line 492
	965	move #-1,R0
	966	bra L70
	967	*line 493
	968	L72:
	969	*line 494
	970	move R7,R0
	971	ext.l R0
	972	divs #3,R0
	973	bra L70
	974	L70:tst.l (sp)+
	975	movem.l (sp)+,R7-R7
	976	unlk R14
	977	rts
	978	.globl _sdmtxt
	979	.text
	980	_sdmtxt:
	981	~~sdmtxt:
	982	~row=8
	983	~col=10
	984	~txt=12
	985	~tag=16
	986	link R14,#-4
	987	*line 511
	988	*line 512
	989	clr R0
	990	move 10+_v_regs,R0
	991	and #384,R0
	992	cmp #256,R0
	993	beq L74
	994	*line 512
	995	move #1,(sp)
	996	jsr _vbank
	997	*line 513
	998	L74:
	999	*line 514
	1000	move #14,(sp)
	1001	move.l 12(R14),-(sp)
	1002	move 10(R14),-(sp)
	1003	move 8(R14),-(sp)
	1004	move #2,-(sp)
	1005	move #1,-(sp)
	1006	move #64,-(sp)
	1007	move.l _obj11,-(sp)
	1008	jsr _vcputsv
	1009	adda.l #18,sp
	1010	L73:unlk R14
	1011	rts
	1012	.globl _showam
	1013	.text
	1014	_showam:
	1015	~~showam:
	1016	~asg=R7
	1017	link R14,#0
	1018	movem.l R3-R7,-(sp)
	1019	~col=R6
	1020	~na=R5
	1021	~row=R4
	1022	*line 531
	1023	move 8(R14),R7
	1024	*line 531
	1025	*line 532
	1026	cmp #1,R7
	1027	bne L76
	1028	*line 532
	1029	move #48,R5
	1030	*line 533
	1031	bra L77
	1032	L76:
	1033	*line 534
	1034	move #100,R5
	1035	L77:
	1036	*line 536
	1037	move #2,R6
	1038	bra L80
	1039	L81:
	1040	*line 537
	1041	*line 538
	1042	*line 539
	1043	cmp R5,R7
	1044	bge L75
	1045	*line 540
	1046	*line 541
	1047	clr -(sp)
	1048	move.l #L82,-(sp)
	1049	move R6,-(sp)
	1050	clr -(sp)
	1051	move.l _itxput,R8
	1052	jsr (R8)
	1053	adda.l #10,sp
	1054	*line 542
	1055	*line 543
	1056	move #1,R4
	1057	bra L85
	1058	L86:
	1059	*line 544
	1060	*line 545
	1061	*line 546
	1062	cmp R5,R7
	1063	bge L75
	1064	*line 547
	1065	*line 548
	1066	move R7,R0
	1067	muls #332,R0
	1068	add.l #_asgtab,R0
	1069	move.l R0,(sp)
	1070	add.l #316,(sp)
	1071	move R7,-(sp)
	1072	move.l #L87,-(sp)
	1073	move.l #_bfs,-(sp)
	1074	jsr _sprintf
	1075	adda.l #10,sp
	1076	*line 549
	1077	move #1,-(sp)
	1078	move.l #_bfs,-(sp)
	1079	move R6,-(sp)
	1080	move R4,-(sp)
	1081	move.l _itxput,R8
	1082	jsr (R8)
	1083	adda.l #10,sp
	1084	*line 550
	1085	add #1,R7
	1086	L84:
	1087	*line 543
	1088	add #1,R4
	1089	L85:
	1090	*line 543
	1091	cmp #15,R4
	1092	blt L86
	1093	L83:
	1094	*line 551
	1095	L79:
	1096	*line 536
	1097	add #15,R6
	1098	L80:
	1099	*line 536
	1100	cmp #60,R6
	1101	blt L81
	1102	L78:L75:tst.l (sp)+
	1103	movem.l (sp)+,R4-R7
	1104	unlk R14
	1105	rts
	1106	.globl _showtm
	1107	.text
	1108	_showtm:
	1109	~~showtm:
	1110	link R14,#0
	1111	movem.l R5-R7,-(sp)
	1112	~row=R7
	1113	~tun=R6
	1114	*line 568
	1115	clr R6
	1116	*line 570
	1117	clr -(sp)
	1118	move.l #L89,-(sp)
	1119	clr -(sp)
	1120	clr -(sp)
	1121	move.l _itxput,R8
	1122	jsr (R8)
	1123	adda.l #10,sp
	1124	*line 572
	1125	move #1,R7
	1126	bra L92
	1127	L93:
	1128	*line 573
	1129	*line 574
	1130	move R6,R0
	1131	asl #5,R0
	1132	ext.l R0
	1133	add.l #_tunname,R0
	1134	move.l R0,(sp)
	1135	move R6,-(sp)
	1136	move.l #L94,-(sp)
	1137	move.l #_bfs,-(sp)
	1138	jsr _sprintf
	1139	adda.l #10,sp
	1140	*line 575
	1141	move #1,-(sp)
	1142	move.l #_bfs,-(sp)
	1143	clr -(sp)
	1144	move R7,-(sp)
	1145	move.l _itxput,R8
	1146	jsr (R8)
	1147	adda.l #10,sp
	1148	*line 576
	1149	add #1,R6
	1150	L91:
	1151	*line 572
	1152	add #1,R7
	1153	L92:
	1154	*line 572
	1155	cmp #11,R7
	1156	blt L93
	1157	L90:L88:tst.l (sp)+
	1158	movem.l (sp)+,R6-R7
	1159	unlk R14
	1160	rts
	1161	.globl _showsm
	1162	.text
	1163	_showsm:
	1164	~~showsm:
	1165	link R14,#0
	1166	movem.l R4-R7,-(sp)
	1167	~col=R7
	1168	~row=R6
	1169	~scr=R5
	1170	*line 593
	1171	move #1,R5
	1172	*line 595
	1173	move #1,R7
	1174	bra L98
	1175	L99:
	1176	*line 596
	1177	*line 597
	1178	*line 598
	1179	cmp #20,R5
	1180	bgt L95
	1181	*line 599
	1182	*line 600
	1183	clr -(sp)
	1184	move.l #L100,-(sp)
	1185	move R7,-(sp)
	1186	clr -(sp)
	1187	move.l _itxput,R8
	1188	jsr (R8)
	1189	adda.l #10,sp
	1190	*line 601
	1191	*line 602
	1192	move #1,R6
	1193	bra L103
	1194	L104:
	1195	*line 603
	1196	*line 604
	1197	*line 605
	1198	cmp #20,R5
	1199	bgt L95
	1200	*line 606
	1201	*line 607
	1202	move R5,R0
	1203	sub #1,R0
	1204	asl #4,R0
	1205	ext.l R0
	1206	add.l #_scname,R0
	1207	move.l R0,(sp)
	1208	move R5,-(sp)
	1209	move.l #L105,-(sp)
	1210	move.l #_bfs,-(sp)
	1211	jsr _sprintf
	1212	adda.l #10,sp
	1213	*line 608
	1214	move #1,-(sp)
	1215	move.l #_bfs,-(sp)
	1216	move R7,-(sp)
	1217	move R6,-(sp)
	1218	move.l _itxput,R8
	1219	jsr (R8)
	1220	adda.l #10,sp
	1221	*line 609
	1222	add #1,R5
	1223	L102:
	1224	*line 602
	1225	add #1,R6
	1226	L103:
	1227	*line 602
	1228	cmp #15,R6
	1229	blt L104
	1230	L101:
	1231	*line 610
	1232	L97:
	1233	*line 595
	1234	add #22,R7
	1235	L98:
	1236	*line 595
	1237	cmp #46,R7
	1238	blt L99
	1239	L96:L95:tst.l (sp)+
	1240	movem.l (sp)+,R5-R7
	1241	unlk R14
	1242	rts
	1243	.globl _scmenu
	1244	.text
	1245	_scmenu:
	1246	~~scmenu:
	1247	~n=R7
	1248	link R14,#0
	1249	movem.l R5-R7/R13-R13,-(sp)
	1250	~i=R6
	1251	~op=R13
	1252	*line 629
	1253	move 8(R14),R7
	1254	*line 629
	1255	*line 629
	1256	tst R7
	1257	blt L107
	1258	*line 630
	1259	*line 631
	1260	move.l #_sdmtxt,_itxput
	1261	*line 632
	1262	*line 633
	1263	clr (sp)
	1264	jsr _vbank
	1265	*line 634
	1266	*line 635
	1267	or #16,_v_odtab
	1268	*line 636
	1269	clr (sp)
	1270	jsr _objclr
	1271	*line 637
	1272	*line 638
	1273	or #16,8+_v_odtab
	1274	*line 639
	1275	move #1,(sp)
	1276	jsr _objclr
	1277	*line 640
	1278	*line 641
	1279	or #16,16+_v_odtab
	1280	*line 642
	1281	move #2,(sp)
	1282	jsr _objclr
	1283	*line 643
	1284	*line 644
	1285	move #1,(sp)
	1286	jsr _vbank
	1287	*line 645
	1288	move #2,(sp)
	1289	jsr _exp_c
	1290	move R0,(sp)
	1291	move #223,-(sp)
	1292	move #511,-(sp)
	1293	clr -(sp)
	1294	clr -(sp)
	1295	move #128,-(sp)
	1296	move.l _obj11,-(sp)
	1297	jsr _vbfill4
	1298	adda.l #14,sp
	1299	*line 646
	1300	*line 647
	1301	clr (sp)
	1302	jsr _vbank
	1303	*line 648
	1304	move #4,(sp)
	1305	move #11,-(sp)
	1306	jsr _SetPri
	1307	addq.l #2,sp
	1308	*line 649
	1309	*line 650
	1310	move R7,R0
	1311	bra L109
	1312	*line 651
	1313	L110:
	1314	*line 652
	1315	*line 653
	1316	*line 654
	1317	jsr _showim
	1318	bra L108
	1319	*line 655
	1320	*line 656
	1321	L111:
	1322	*line 657
	1323	*line 658
	1324	*line 659
	1325	move _lastam,(sp)
	1326	jsr _showam
	1327	*line 660
	1328	move #11,(sp)
	1329	move #17,-(sp)
	1330	jsr _stcpos
	1331	addq.l #2,sp
	1332	*line 661
	1333	*line 662
	1334	move #88,_cxval
	1335	*line 663
	1336	move #238,_cyval
	1337	*line 664
	1338	*line 665
	1339	*line 666
	1340	move.l _curfet,(sp)
	1341	move _stccol,-(sp)
	1342	move _stcrow,-(sp)
	1343	jsr _infield
	1344	addq.l #4,sp
	1345	tst R0
	1346	beq L112
	1347	*line 666
	1348	move.l _infetp,_cfetp
	1349	*line 667
	1350	L112:bra L108
	1351	*line 668
	1352	*line 669
	1353	L113:
	1354	*line 670
	1355	*line 671
	1356	*line 672
	1357	jsr _showtm
	1358	*line 673
	1359	move #19,(sp)
	1360	move #17,-(sp)
	1361	jsr _stcpos
	1362	addq.l #2,sp
	1363	*line 674
	1364	*line 675
	1365	move #152,_cxval
	1366	*line 676
	1367	move #238,_cyval
	1368	*line 677
	1369	*line 678
	1370	*line 679
	1371	move.l _curfet,(sp)
	1372	move _stccol,-(sp)
	1373	move _stcrow,-(sp)
	1374	jsr _infield
	1375	addq.l #4,sp
	1376	tst R0
	1377	beq L114
	1378	*line 679
	1379	move.l _infetp,_cfetp
	1380	*line 680
	1381	L114:bra L108
	1382	*line 681
	1383	*line 682
	1384	L115:
	1385	*line 683
	1386	*line 684
	1387	*line 685
	1388	jsr _showsm
	1389	*line 686
	1390	move #7,(sp)
	1391	move #24,-(sp)
	1392	jsr _stcpos
	1393	addq.l #2,sp
	1394	*line 687
	1395	*line 688
	1396	move #56,_cxval
	1397	*line 689
	1398	move #336,_cyval
	1399	*line 690
	1400	*line 691
	1401	*line 692
	1402	move.l _curfet,(sp)
	1403	move _stccol,-(sp)
	1404	move _stcrow,-(sp)
	1405	jsr _infield
	1406	addq.l #4,sp
	1407	tst R0
	1408	beq L116
	1409	*line 692
	1410	move.l _infetp,_cfetp
	1411	*line 693
	1412	L116:bra L108
	1413	*line 694
	1414	*line 695
	1415	L117:
	1416	*line 696
	1417	*line 697
	1418	bra L108
	1419	*line 698
	1420	bra L108
	1421	L109:tst R0
	1422	beq L110
	1423	cmp #1,R0
	1424	beq L111
	1425	cmp #2,R0
	1426	beq L113
	1427	cmp #3,R0
	1428	beq L115
	1429	bra L117
	1430	L108:
	1431	*line 699
	1432	*line 700
	1433	bra L118
	1434	L107:
	1435	*line 701
	1436	*line 702
	1437	*line 703
	1438	clr (sp)
	1439	jsr _vbank
	1440	*line 704
	1441	*line 705
	1442	or #16,32+_v_odtab
	1443	*line 706
	1444	move #4,(sp)
	1445	jsr _objclr
	1446	*line 707
	1447	*line 708
	1448	move.l #234+_v_obtab,R13
	1449	*line 709
	1450	move (R13),(sp)
	1451	move 6(R13),-(sp)
	1452	move #2,-(sp)
	1453	jsr _objon
	1454	addq.l #4,sp
	1455	*line 710
	1456	and #-17,16+_v_odtab
	1457	*line 711
	1458	*line 712
	1459	move.l #252+_v_obtab,R13
	1460	*line 713
	1461	move (R13),(sp)
	1462	move 6(R13),-(sp)
	1463	move #1,-(sp)
	1464	jsr _objon
	1465	addq.l #4,sp
	1466	*line 714
	1467	and #-17,8+_v_odtab
	1468	*line 715
	1469	*line 716
	1470	move.l #270+_v_obtab,R13
	1471	*line 717
	1472	move (R13),(sp)
	1473	move 6(R13),-(sp)
	1474	clr -(sp)
	1475	jsr _objon
	1476	addq.l #4,sp
	1477	*line 718
	1478	and #-17,_v_odtab
	1479	L118:
	1480	*line 721
	1481	move R7,_scmctl
	1482	L106:tst.l (sp)+
	1483	movem.l (sp)+,R6-R7/R13-R13
	1484	unlk R14
	1485	rts
	1486	.globl _sdmenu
	1487	.text
	1488	_sdmenu:
	1489	~~sdmenu:
	1490	~n=R7
	1491	link R14,#0
	1492	movem.l R4-R7,-(sp)
	1493	~i=R6
	1494	~wasup=R5
	1495	*line 737
	1496	move 8(R14),R7
	1497	*line 737
	1498	move _sdmctl,R5
	1499	*line 738
	1500	move R7,_sdmctl
	1501	*line 740
	1502	*line 740
	1503	tst R7
	1504	blt L120
	1505	*line 741
	1506	*line 742
	1507	move #1,_submenu
	1508	*line 743
	1509	*line 744
	1510	move _stcrow,_sdmrow
	1511	*line 745
	1512	move _stccol,_sdmcol
	1513	*line 746
	1514	*line 747
	1515	move #64,(sp)
	1516	move #4,-(sp)
	1517	jsr _exp_c
	1518	addq.l #2,sp
	1519	move R0,-(sp)
	1520	move.l #384+_sctctab,-(sp)
	1521	jsr _memsetw
	1522	addq.l #6,sp
	1523	*line 748
	1524	move #64,(sp)
	1525	move #4,-(sp)
	1526	jsr _exp_c
	1527	addq.l #2,sp
	1528	move R0,-(sp)
	1529	move.l #512+_sctctab,-(sp)
	1530	jsr _memsetw
	1531	addq.l #6,sp
	1532	*line 749
	1533	move #64,(sp)
	1534	move #4,-(sp)
	1535	jsr _exp_c
	1536	addq.l #2,sp
	1537	move R0,-(sp)
	1538	move.l #640+_sctctab,-(sp)
	1539	jsr _memsetw
	1540	addq.l #6,sp
	1541	*line 750
	1542	*line 751
	1543	*line 751
	1544	cmp #4,R7
	1545	bne L121
	1546	*line 752
	1547	*line 753
	1548	move #64,(sp)
	1549	move #4,-(sp)
	1550	jsr _exp_c
	1551	addq.l #2,sp
	1552	move R0,-(sp)
	1553	move.l #768+_sctctab,-(sp)
	1554	jsr _memsetw
	1555	addq.l #6,sp
	1556	*line 754
	1557	move #64,(sp)
	1558	move #4,-(sp)
	1559	jsr _exp_c
	1560	addq.l #2,sp
	1561	move R0,-(sp)
	1562	move.l #896+_sctctab,-(sp)
	1563	jsr _memsetw
	1564	addq.l #6,sp
	1565	*line 755
	1566	*line 756
	1567	L121:
	1568	*line 757
	1569	jsr _stcclr
	1570	*line 758
	1571	move _sdmcol,(sp)
	1572	move _sdmrow,-(sp)
	1573	jsr _stcpos
	1574	addq.l #2,sp
	1575	*line 759
	1576	*line 760
	1577	*line 761
	1578	move.l _curfet,(sp)
	1579	move _stccol,-(sp)
	1580	move _stcrow,-(sp)
	1581	jsr _infield
	1582	addq.l #4,sp
	1583	tst R0
	1584	beq L122
	1585	*line 761
	1586	move.l _infetp,_cfetp
	1587	*line 762
	1588	L122:
	1589	*line 763
	1590	*line 764
	1591	clr R0
	1592	move 10+_v_regs,R0
	1593	and #384,R0
	1594	beq L123
	1595	*line 764
	1596	clr (sp)
	1597	jsr _vbank
	1598	*line 765
	1599	L123:
	1600	*line 766
	1601	clr R6
	1602	bra L126
	1603	L127:
	1604	*line 767
	1605	move #20,(sp)
	1606	move R7,R0
	1607	muls #12,R0
	1608	move R6,R1
	1609	asl #2,R1
	1610	ext.l R1
	1611	add.l R1,R0
	1612	move.l R0,R8
	1613	move.l #_sdmenus,R9
	1614	move.l 0(R8,R9.l),-(sp)
	1615	clr -(sp)
	1616	move R6,-(sp)
	1617	add #3,(sp)
	1618	move.l _obj8,-(sp)
	1619	jsr _vputs
	1620	adda.l #12,sp
	1621	L125:
	1622	*line 766
	1623	add #1,R6
	1624	L126:
	1625	*line 766
	1626	cmp #3,R6
	1627	blt L127
	1628	L124:
	1629	*line 767
	1630	*line 768
	1631	*line 769
	1632	*line 770
	1633	*line 770
	1634	cmp #4,R7
	1635	bne L128
	1636	*line 771
	1637	*line 772
	1638	move #20,(sp)
	1639	move.l #_sdmln3,-(sp)
	1640	clr -(sp)
	1641	move #6,-(sp)
	1642	move.l _obj8,-(sp)
	1643	jsr _vputs
	1644	adda.l #12,sp
	1645	*line 773
	1646	move #20,(sp)
	1647	move.l #_sdmln4,-(sp)
	1648	clr -(sp)
	1649	move #7,-(sp)
	1650	move.l _obj8,-(sp)
	1651	jsr _vputs
	1652	adda.l #12,sp
	1653	*line 774
	1654	*line 775
	1655	clr _secop
	1656	*line 776
	1657	*line 777
	1658	clr _grptran
	1659	*line 778
	1660	move #-1,_gtmsel
	1661	*line 779
	1662	*line 780
	1663	clr R6
	1664	bra L131
	1665	L132:
	1666	*line 781
	1667	move R6,R8
	1668	add.l R8,R8
	1669	add.l #_grptmap,R8
	1670	move R6,(R8)
	1671	L130:
	1672	*line 780
	1673	add #1,R6
	1674	L131:
	1675	*line 780
	1676	cmp #12,R6
	1677	blt L132
	1678	L129:
	1679	*line 781
	1680	*line 782
	1681	*line 783
	1682	jsr _dsects
	1683	*line 784
	1684	jsr _dsgtmap
	1685	*line 785
	1686	*line 786
	1687	move.l #_GLCplot,_point
	1688	*line 787
	1689	move #1,(sp)
	1690	jsr _GLCcurs
	1691	*line 788
	1692	*line 789
	1693	*line 789
	1694	tst _ismode
	1695	beq L133
	1696	*line 790
	1697	*line 791
	1698	clr _ismode
	1699	*line 792
	1700	move _oldpk,_pkctrl
	1701	*line 793
	1702	move _oldsl,_sliders
	1703	*line 794
	1704	move.l _oldsw,_swpt
	1705	*line 795
	1706	jsr _lcdlbls
	1707	*line 796
	1708	*line 797
	1709	L133:
	1710	*line 798
	1711	*line 798
	1712	tst _gomode
	1713	beq L134
	1714	*line 799
	1715	*line 800
	1716	clr _gomode
	1717	*line 801
	1718	move _oldpk,_pkctrl
	1719	*line 802
	1720	clr (sp)
	1721	move #54,-(sp)
	1722	move #215,-(sp)
	1723	move #54,-(sp)
	1724	move #186,-(sp)
	1725	jsr _lseg
	1726	addq.l #8,sp
	1727	*line 803
	1728	*line 804
	1729	L134:
	1730	*line 805
	1731	*line 805
	1732	tst _asmode
	1733	beq L135
	1734	*line 806
	1735	*line 807
	1736	clr _asmode
	1737	*line 808
	1738	move _oldpk,_pkctrl
	1739	*line 809
	1740	move.l _oldsw,_swpt
	1741	*line 810
	1742	clr (sp)
	1743	move #54,-(sp)
	1744	move #287,-(sp)
	1745	move #54,-(sp)
	1746	move #258,-(sp)
	1747	jsr _lseg
	1748	addq.l #8,sp
	1749	*line 811
	1750	*line 812
	1751	L135:
	1752	*line 813
	1753	*line 814
	1754	tst _pkctrl
	1755	beq L10015
	1756	cmp #1,_pkctrl
	1757	bne L136
	1758	L10015:*line 814
	1759	move _pkctrl,_oldpk
	1760	*line 815
	1761	L136:
	1762	*line 816
	1763	*line 817
	1764	cmp #5,_sliders
	1765	beq L137
	1766	*line 817
	1767	move _sliders,_oldsl
	1768	*line 818
	1769	L137:
	1770	*line 819
	1771	move.l _swpt,_oldsw
	1772	*line 820
	1773	move.l #_t_ngrp,_swpt
	1774	*line 821
	1775	move #6,_pkctrl
	1776	*line 822
	1777	move #6,_sliders
	1778	*line 823
	1779	*line 824
	1780	jsr _lcdlbls
	1781	*line 825
	1782	jsr _setleds
	1783	*line 826
	1784	*line 827
	1785	L128:
	1786	*line 828
	1787	move #14,(sp)
	1788	move #2,-(sp)
	1789	jsr _SetPri
	1790	addq.l #2,sp
	1791	*line 829
	1792	move R7,R0
	1793	asl #3,R0
	1794	ext.l R0
	1795	move.l R0,R8
	1796	move.l #_sdmlim,R9
	1797	move 2(R8,R9.l),(sp)
	1798	move R7,R0
	1799	asl #3,R0
	1800	ext.l R0
	1801	move.l R0,R8
	1802	move.l #_sdmlim,R9
	1803	move 0(R8,R9.l),-(sp)
	1804	jsr _ttcpos
	1805	addq.l #2,sp
	1806	*line 830
	1807	*line 831
	1808	bra L138
	1809	L120:
	1810	*line 832
	1811	*line 833
	1812	*line 834
	1813	clr _submenu
	1814	*line 835
	1815	*line 836
	1816	*line 837
	1817	clr R0
	1818	move 10+_v_regs,R0
	1819	and #384,R0
	1820	beq L139
	1821	*line 837
	1822	clr (sp)
	1823	jsr _vbank
	1824	*line 838
	1825	L139:
	1826	*line 839
	1827	move #14,(sp)
	1828	jsr _objclr
	1829	*line 840
	1830	jsr _stcset
	1831	*line 841
	1832	jsr _stcclr
	1833	*line 842
	1834	move #11,(sp)
	1835	jsr _sdwin
	1836	*line 843
	1837	*line 844
	1838	*line 844
	1839	cmp #4,R5
	1840	bne L140
	1841	*line 845
	1842	*line 846
	1843	move #12,(sp)
	1844	jsr _sdwin
	1845	*line 847
	1846	*line 848
	1847	move _sdmcol,(sp)
	1848	move _sdmrow,-(sp)
	1849	jsr _stcpos
	1850	addq.l #2,sp
	1851	*line 849
	1852	*line 850
	1853	move _sdmcol,R0
	1854	asl #3,R0
	1855	move R0,_cxval
	1856	*line 851
	1857	move _sdmrow,R0
	1858	muls #14,R0
	1859	move R0,_cyval
	1860	*line 852
	1861	*line 853
	1862	*line 854
	1863	move.l _curfet,(sp)
	1864	move _stccol,-(sp)
	1865	move _stcrow,-(sp)
	1866	jsr _infield
	1867	addq.l #4,sp
	1868	tst R0
	1869	beq L141
	1870	*line 854
	1871	move.l _infetp,_cfetp
	1872	*line 855
	1873	L141:
	1874	*line 856
	1875	move _oldpk,_pkctrl
	1876	*line 857
	1877	move _oldsl,_sliders
	1878	*line 858
	1879	move.l _oldsw,_swpt
	1880	*line 859
	1881	*line 860
	1882	jsr _lcdlbls
	1883	*line 861
	1884	jsr _setleds
	1885	*line 862
	1886	bra L142
	1887	L140:
	1888	*line 863
	1889	*line 864
	1890	*line 865
	1891	move _sdmcol,(sp)
	1892	move _sdmrow,-(sp)
	1893	jsr _stcpos
	1894	addq.l #2,sp
	1895	*line 866
	1896	*line 867
	1897	move _sdmcol,R0
	1898	asl #3,R0
	1899	move R0,_cxval
	1900	*line 868
	1901	move _sdmrow,R0
	1902	muls #14,R0
	1903	move R0,_cyval
	1904	*line 869
	1905	*line 870
	1906	*line 871
	1907	move.l _curfet,(sp)
	1908	move _stccol,-(sp)
	1909	move _stcrow,-(sp)
	1910	jsr _infield
	1911	addq.l #4,sp
	1912	tst R0
	1913	beq L143
	1914	*line 871
	1915	move.l _infetp,_cfetp
	1916	L143:L142:
	1917	*line 872
	1918	L138:L119:tst.l (sp)+
	1919	movem.l (sp)+,R5-R7
	1920	unlk R14
	1921	rts
	1922	.globl _hilitnt
	1923	.text
	1924	_hilitnt:
	1925	~~hilitnt:
	1926	~nop=8
	1927	link R14,#-4
	1928	*line 888
	1929	move 8(R14),_noteop
	1930	*line 889
	1931	clr _notesel
	1932	*line 890
	1933	move #-1,(sp)
	1934	jsr _sdmenu
	1935	*line 891
	1936	jsr _dnedmod
	1937	L144:unlk R14
	1938	rts
	1939	.globl _hilitop
	1940	.text
	1941	_hilitop:
	1942	~~hilitop:
	1943	~n=R7
	1944	link R14,#0
	1945	movem.l R2-R7,-(sp)
	1946	~row=R6
	1947	~lc=R5
	1948	~rc=R4
	1949	~col=R3
	1950	*line 908
	1951	move 8(R14),R7
	1952	*line 908
	1953	*line 909
	1954	tst _clkrun
	1955	bne L145
	1956	*line 910
	1957	*line 911
	1958	*line 912
	1959	clr R0
	1960	move 10+_v_regs,R0
	1961	and #384,R0
	1962	beq L146
	1963	*line 912
	1964	clr (sp)
	1965	jsr _vbank
	1966	*line 913
	1967	L146:
	1968	*line 914
	1969	*line 914
	1970	tst _secop
	1971	beq L147
	1972	*line 915
	1973	*line 916
	1974	move _secop,R0
	1975	muls #6,R0
	1976	add.l #_sdmht,R0
	1977	move.l R0,R8
	1978	move (R8),R6
	1979	*line 917
	1980	move _secop,R0
	1981	muls #6,R0
	1982	add.l #_sdmht,R0
	1983	move.l R0,R8
	1984	move 2(R8),R5
	1985	*line 918
	1986	move _secop,R0
	1987	muls #6,R0
	1988	add.l #_sdmht,R0
	1989	move.l R0,R8
	1990	move 4(R8),R4
	1991	*line 919
	1992	*line 920
	1993	move R5,R3
	1994	bra L150
	1995	L151:
	1996	*line 921
	1997	move #20,(sp)
	1998	move R3,-(sp)
	1999	move R6,-(sp)
	2000	move.l _obj8,-(sp)
	2001	jsr _vputa
	2002	addq.l #8,sp
	2003	L149:
	2004	*line 920
	2005	add #1,R3
	2006	L150:
	2007	*line 920
	2008	cmp R4,R3
	2009	ble L151
	2010	L148:
	2011	*line 921
	2012	*line 922
	2013	*line 923
	2014	L147:
	2015	*line 924
	2016	move R7,_secop
	2017	*line 926
	2018	move R7,R0
	2019	muls #6,R0
	2020	add.l #_sdmht,R0
	2021	move.l R0,R8
	2022	move (R8),R6
	2023	*line 927
	2024	move R7,R0
	2025	muls #6,R0
	2026	add.l #_sdmht,R0
	2027	move.l R0,R8
	2028	move 2(R8),R5
	2029	*line 928
	2030	move R7,R0
	2031	muls #6,R0
	2032	add.l #_sdmht,R0
	2033	move.l R0,R8
	2034	move 4(R8),R4
	2035	*line 930
	2036	move R5,R3
	2037	bra L154
	2038	L155:
	2039	*line 931
	2040	move #100,(sp)
	2041	move R3,-(sp)
	2042	move R6,-(sp)
	2043	move.l _obj8,-(sp)
	2044	jsr _vputa
	2045	addq.l #8,sp
	2046	L153:
	2047	*line 930
	2048	add #1,R3
	2049	L154:
	2050	*line 930
	2051	cmp R4,R3
	2052	ble L155
	2053	L152:L145:tst.l (sp)+
	2054	movem.l (sp)+,R3-R7
	2055	unlk R14
	2056	rts
	2057	.globl _dosecop
	2058	.text
	2059	_dosecop:
	2060	~~dosecop:
	2061	link R14,#0
	2062	movem.l R6-R7/R13-R13,-(sp)
	2063	~sect=R7
	2064	~ep=R13
	2065	*line 948
	2066	*line 948
	2067	tst _clkrun
	2068	bne L10016
	2069	jsr _insect
	2070	move R0,R7
	2071	cmp #-1,R7
	2072	bne L157
	2073	L10016:*line 949
	2074	*line 950
	2075	clr _secop
	2076	bra L156
	2077	*line 951
	2078	*line 952
	2079	*line 953
	2080	L157:
	2081	*line 954
	2082	*line 954
	2083	tst _insmode
	2084	beq L158
	2085	*line 955
	2086	*line 956
	2087	jsr _icancel
	2088	*line 957
	2089	jsr _dsimode
	2090	*line 958
	2091	*line 959
	2092	L158:
	2093	*line 960
	2094	move _secop,R0
	2095	bra L160
	2096	*line 961
	2097	L161:
	2098	*line 962
	2099	*line 963
	2100	*line 964
	2101	*line 964
	2102	cmp #3,_sgoflag
	2103	bne L162
	2104	*line 965
	2105	*line 966
	2106	move _curscor,R0
	2107	muls #48,R0
	2108	add.l #_hplist,R0
	2109	move.l R0,R8
	2110	move.l 44(R8),R13
	2111	*line 967
	2112	*line 968
	2113	bra L165
	2114	L164:
	2115	*line 969
	2116	*line 970
	2117	*line 970
	2118	move.b 6(R13),R0
	2119	ext.w R0
	2120	cmp R0,R7
	2121	bne L166
	2122	*line 971
	2123	*line 972
	2124	move.l (R13),R0
	2125	move.l R0,_fc_val
	2126	move.l R0,(sp)
	2127	jsr _sc_goto
	2128	bra L163
	2129	*line 973
	2130	*line 974
	2131	*line 975
	2132	L166:
	2133	*line 976
	2134	move.l 20(R13),R13
	2135	L165:
	2136	*line 977
	2137	move.l R13,R0
	2138	bne L164
	2139	L163:
	2140	*line 978
	2141	bra L167
	2142	L162:
	2143	*line 979
	2144	*line 980
	2145	*line 981
	2146	*line 982
	2147	move _curscor,R0
	2148	muls #80,R0
	2149	move R7,R1
	2150	asl #2,R1
	2151	ext.l R1
	2152	add.l R1,R0
	2153	add.l #_seclist,R0
	2154	move.l R0,R8
	2155	move.l (R8),R13
	2156	move.l R13,R0
	2157	beq L168
	2158	*line 982
	2159	move.l (R13),R0
	2160	move.l R0,_fc_val
	2161	move.l R0,(sp)
	2162	jsr _sc_goto
	2163	L168:L167:
	2164	*line 983
	2165	*line 984
	2166	bra L159
	2167	*line 985
	2168	*line 986
	2169	*line 987
	2170	L169:
	2171	*line 988
	2172	*line 989
	2173	*line 990
	2174	*line 991
	2175	tst _recsw
	2176	beq L159
	2177	*line 992
	2178	*line 993
	2179	*line 994
	2180	clr R0
	2181	move 10+_v_regs,R0
	2182	and #384,R0
	2183	beq L170
	2184	*line 994
	2185	clr (sp)
	2186	jsr _vbank
	2187	*line 995
	2188	L170:
	2189	*line 996
	2190	*line 996
	2191	move _curscor,R0
	2192	muls #80,R0
	2193	move R7,R1
	2194	asl #2,R1
	2195	ext.l R1
	2196	add.l R1,R0
	2197	add.l #_seclist,R0
	2198	move.l R0,R8
	2199	move.l (R8),R13
	2200	move.l R13,R0
	2201	beq L171
	2202	*line 997
	2203	*line 998
	2204	move #10,(sp)
	2205	move.l R13,-(sp)
	2206	jsr _eh_rmv
	2207	addq.l #4,sp
	2208	*line 999
	2209	move.l R13,(sp)
	2210	jsr _e_rmv
	2211	*line 1000
	2212	move.l _t_cur,(R13)
	2213	*line 1001
	2214	move.l _t_cur,(sp)
	2215	move #1,-(sp)
	2216	move.l _p_cur,-(sp)
	2217	jsr _ep_adj
	2218	addq.l #6,sp
	2219	move.l R0,R8
	2220	move.l 8(R8),(sp)
	2221	move.l R13,-(sp)
	2222	jsr _e_ins
	2223	addq.l #4,sp
	2224	move.l R0,R8
	2225	move.l 12(R8),_p_cur
	2226	*line 1002
	2227	move #10,(sp)
	2228	move.l R13,-(sp)
	2229	jsr _eh_ins
	2230	addq.l #4,sp
	2231	*line 1003
	2232	clr (sp)
	2233	move.l R13,-(sp)
	2234	jsr _se_exec
	2235	addq.l #4,sp
	2236	*line 1004
	2237	bra L172
	2238	L171:
	2239	*line 1005
	2240	*line 1005
	2241	move #6,(sp)
	2242	jsr _e_alc
	2243	move.l R0,R13
	2244	move.l R13,R0
	2245	beq L173
	2246	*line 1006
	2247	*line 1007
	2248	move.l _t_cur,(R13)
	2249	*line 1008
	2250	move.b #2,5(R13)
	2251	*line 1009
	2252	move.b R7,6(R13)
	2253	*line 1010
	2254	move.l _t_cur,(sp)
	2255	move #1,-(sp)
	2256	move.l _p_cur,-(sp)
	2257	jsr _ep_adj
	2258	addq.l #6,sp
	2259	move.l R0,R8
	2260	move.l 8(R8),(sp)
	2261	move.l R13,-(sp)
	2262	jsr _e_ins
	2263	addq.l #4,sp
	2264	move.l R0,R8
	2265	move.l 12(R8),_p_cur
	2266	*line 1011
	2267	move #10,(sp)
	2268	move.l R13,-(sp)
	2269	jsr _eh_ins
	2270	addq.l #4,sp
	2271	*line 1012
	2272	move _curscor,R0
	2273	muls #80,R0
	2274	move R7,R1
	2275	asl #2,R1
	2276	ext.l R1
	2277	add.l R1,R0
	2278	add.l #_seclist,R0
	2279	move.l R0,R8
	2280	move.l R13,(R8)
	2281	*line 1013
	2282	clr (sp)
	2283	move.l R13,-(sp)
	2284	jsr _se_exec
	2285	addq.l #4,sp
	2286	*line 1014
	2287	*line 1015
	2288	L173:L172:
	2289	*line 1016
	2290	move.l _fc_val,(sp)
	2291	jsr _sc_refr
	2292	bra L159
	2293	*line 1017
	2294	*line 1018
	2295	*line 1019
	2296	L174:
	2297	*line 1020
	2298	*line 1021
	2299	*line 1022
	2300	*line 1023
	2301	tst _recsw
	2302	beq L159
	2303	*line 1024
	2304	*line 1025
	2305	*line 1026
	2306	clr R0
	2307	move 10+_v_regs,R0
	2308	and #384,R0
	2309	beq L175
	2310	*line 1026
	2311	clr (sp)
	2312	jsr _vbank
	2313	*line 1027
	2314	L175:
	2315	*line 1028
	2316	*line 1028
	2317	move #-1,(sp)
	2318	move R7,-(sp)
	2319	move.l #$ffffffff,-(sp)
	2320	move #11,-(sp)
	2321	jsr _ehfind
	2322	addq.l #8,sp
	2323	move.l R0,R13
	2324	move.l R13,R0
	2325	beq L176
	2326	*line 1029
	2327	*line 1030
	2328	move #11,(sp)
	2329	move.l R13,-(sp)
	2330	jsr _eh_rmv
	2331	addq.l #4,sp
	2332	*line 1031
	2333	move.l R13,(sp)
	2334	jsr _e_rmv
	2335	*line 1032
	2336	move.l _t_cur,(R13)
	2337	*line 1033
	2338	move.l _t_cur,(sp)
	2339	clr -(sp)
	2340	move.l _p_cur,-(sp)
	2341	jsr _ep_adj
	2342	addq.l #6,sp
	2343	move.l R0,(sp)
	2344	move.l R13,-(sp)
	2345	jsr _e_ins
	2346	addq.l #4,sp
	2347	move.l R0,R8
	2348	move.l 12(R8),_p_cur
	2349	*line 1034
	2350	move #11,(sp)
	2351	move.l R13,-(sp)
	2352	jsr _eh_ins
	2353	addq.l #4,sp
	2354	*line 1035
	2355	clr (sp)
	2356	move.l R13,-(sp)
	2357	jsr _se_exec
	2358	addq.l #4,sp
	2359	*line 1036
	2360	bra L177
	2361	L176:
	2362	*line 1037
	2363	*line 1037
	2364	move #6,(sp)
	2365	jsr _e_alc
	2366	move.l R0,R13
	2367	move.l R13,R0
	2368	beq L178
	2369	*line 1038
	2370	*line 1039
	2371	move.l _t_cur,(R13)
	2372	*line 1040
	2373	move.b #3,5(R13)
	2374	*line 1041
	2375	move.b R7,6(R13)
	2376	*line 1042
	2377	move.l _t_cur,(sp)
	2378	clr -(sp)
	2379	move.l _p_cur,-(sp)
	2380	jsr _ep_adj
	2381	addq.l #6,sp
	2382	move.l R0,(sp)
	2383	move.l R13,-(sp)
	2384	jsr _e_ins
	2385	addq.l #4,sp
	2386	move.l R0,R8
	2387	move.l 12(R8),_p_cur
	2388	*line 1043
	2389	move #11,(sp)
	2390	move.l R13,-(sp)
	2391	jsr _eh_ins
	2392	addq.l #4,sp
	2393	*line 1044
	2394	clr (sp)
	2395	move.l R13,-(sp)
	2396	jsr _se_exec
	2397	addq.l #4,sp
	2398	*line 1045
	2399	*line 1046
	2400	L178:L177:
	2401	*line 1047
	2402	move.l _fc_val,(sp)
	2403	jsr _sc_refr
	2404	bra L159
	2405	*line 1048
	2406	*line 1049
	2407	*line 1050
	2408	L179:
	2409	*line 1051
	2410	*line 1052
	2411	*line 1053
	2412	*line 1054
	2413	tst _recsw
	2414	beq L159
	2415	*line 1055
	2416	*line 1056
	2417	*line 1057
	2418	move R7,(sp)
	2419	jsr _sec_mov
	2420	tst R0
	2421	bne L159
	2422	*line 1058
	2423	*line 1059
	2424	move.l _fc_val,(sp)
	2425	jsr _sc_refr
	2426	bra L159
	2427	*line 1060
	2428	*line 1061
	2429	L180:
	2430	*line 1062
	2431	*line 1063
	2432	*line 1064
	2433	*line 1065
	2434	tst _recsw
	2435	beq L159
	2436	*line 1066
	2437	*line 1067
	2438	*line 1068
	2439	move R7,(sp)
	2440	jsr _sec_cpy
	2441	tst R0
	2442	bne L159
	2443	*line 1069
	2444	*line 1070
	2445	move.l _fc_val,(sp)
	2446	jsr _sc_refr
	2447	bra L159
	2448	*line 1071
	2449	*line 1072
	2450	L181:
	2451	*line 1073
	2452	*line 1074
	2453	*line 1075
	2454	*line 1076
	2455	tst _recsw
	2456	beq L159
	2457	*line 1077
	2458	*line 1078
	2459	*line 1079
	2460	move R7,(sp)
	2461	jsr _sec_mrg
	2462	tst R0
	2463	bne L159
	2464	*line 1080
	2465	*line 1081
	2466	move.l _fc_val,(sp)
	2467	jsr _sc_refr
	2468	bra L159
	2469	*line 1082
	2470	*line 1083
	2471	L182:
	2472	*line 1084
	2473	*line 1085
	2474	*line 1086
	2475	*line 1087
	2476	tst _recsw
	2477	beq L159
	2478	*line 1088
	2479	*line 1089
	2480	*line 1090
	2481	move R7,(sp)
	2482	jsr _sec_grp
	2483	tst R0
	2484	bne L159
	2485	*line 1091
	2486	*line 1092
	2487	move.l _fc_val,(sp)
	2488	jsr _sc_refr
	2489	bra L159
	2490	*line 1093
	2491	*line 1094
	2492	*line 1095
	2493	*line 1096
	2494	L183:
	2495	*line 1097
	2496	*line 1098
	2497	*line 1099
	2498	*line 1100
	2499	tst _recsw
	2500	beq L159
	2501	*line 1101
	2502	bra L159
	2503	*line 1102
	2504	*line 1103
	2505	L184:
	2506	*line 1104
	2507	*line 1105
	2508	*line 1106
	2509	*line 1107
	2510	tst _recsw
	2511	beq L159
	2512	*line 1108
	2513	*line 1109
	2514	*line 1110
	2515	move R7,(sp)
	2516	jsr _sec_dgr
	2517	tst R0
	2518	bne L159
	2519	*line 1111
	2520	*line 1112
	2521	move.l _fc_val,(sp)
	2522	jsr _sc_refr
	2523	bra L159
	2524	*line 1113
	2525	*line 1114
	2526	L185:
	2527	*line 1115
	2528	*line 1116
	2529	*line 1117
	2530	*line 1118
	2531	tst _recsw
	2532	beq L159
	2533	*line 1119
	2534	*line 1120
	2535	*line 1121
	2536	move R7,(sp)
	2537	jsr _sec_dev
	2538	tst R0
	2539	bne L159
	2540	*line 1122
	2541	*line 1123
	2542	move.l _fc_val,(sp)
	2543	jsr _sc_refr
	2544	bra L159
	2545	*line 1124
	2546	*line 1125
	2547	L186:
	2548	*line 1126
	2549	*line 1127
	2550	*line 1128
	2551	*line 1129
	2552	tst _recsw
	2553	beq L159
	2554	*line 1130
	2555	*line 1131
	2556	*line 1132
	2557	move R7,(sp)
	2558	jsr _sec_rmv
	2559	tst R0
	2560	bne L159
	2561	*line 1133
	2562	*line 1134
	2563	move.l _fc_val,(sp)
	2564	jsr _sc_refr
	2565	bra L159
	2566	*line 1135
	2567	bra L159
	2568	L160:sub #1,R0
	2569	cmp #10,R0
	2570	bhi L159
	2571	asl #2,R0
	2572	move R0,R8
	2573	add.l #L187,R8
	2574	move.l (R8),R8
	2575	jmp (R8)
	2576	.data
	2577	L187:.dc.l L161
	2578	.dc.l L169
	2579	.dc.l L174
	2580	.dc.l L179
	2581	.dc.l L180
	2582	.dc.l L181
	2583	.dc.l L183
	2584	.dc.l L184
	2585	.dc.l L185
	2586	.dc.l L186
	2587	.dc.l L182
	2588	.text
	2589	L159:
	2590	*line 1138
	2591	clr _secop
	2592	L156:tst.l (sp)+
	2593	movem.l (sp)+,R7-R7/R13-R13
	2594	unlk R14
	2595	rts
	2596	.globl _clkset
	2597	.text
	2598	_clkset:
	2599	~~clkset:
	2600	~st=R7
	2601	link R14,#0
	2602	movem.l R6-R7,-(sp)
	2603	*line 1153
	2604	move 8(R14),R7
	2605	*line 1153
	2606	move R7,_clkrun
	2607	*line 1155
	2608	move _clksrc,R0
	2609	bra L190
	2610	*line 1156
	2611	L191:
	2612	*line 1157
	2613	L192:
	2614	*line 1158
	2615	*line 1159
	2616	*line 1160
	2617	clr _midiclk
	2618	*line 1161
	2619	clr _pulsclk
	2620	*line 1162
	2621	*line 1163
	2622	*line 1164
	2623	tst R7
	2624	beq L193
	2625	*line 1164
	2626	move #1,_fc_sw
	2627	*line 1165
	2628	bra L194
	2629	L193:
	2630	*line 1166
	2631	clr _fc_sw
	2632	L194:
	2633	*line 1167
	2634	bra L188
	2635	*line 1168
	2636	*line 1169
	2637	L195:
	2638	*line 1170
	2639	*line 1171
	2640	*line 1172
	2641	clr _fc_sw
	2642	*line 1173
	2643	clr _pulsclk
	2644	*line 1174
	2645	*line 1175
	2646	*line 1176
	2647	tst R7
	2648	beq L196
	2649	*line 1176
	2650	move #1,_midiclk
	2651	*line 1177
	2652	bra L197
	2653	L196:
	2654	*line 1178
	2655	clr _midiclk
	2656	L197:
	2657	*line 1179
	2658	bra L188
	2659	*line 1180
	2660	*line 1181
	2661	*line 1182
	2662	L198:
	2663	*line 1183
	2664	L199:
	2665	*line 1184
	2666	L200:
	2667	*line 1185
	2668	*line 1186
	2669	*line 1187
	2670	clr _fc_sw
	2671	*line 1188
	2672	clr _midiclk
	2673	*line 1189
	2674	*line 1190
	2675	*line 1191
	2676	tst R7
	2677	beq L201
	2678	*line 1191
	2679	move #1,_pulsclk
	2680	*line 1192
	2681	bra L202
	2682	L201:
	2683	*line 1193
	2684	clr _pulsclk
	2685	L202:
	2686	*line 1194
	2687	bra L188
	2688	*line 1195
	2689	*line 1196
	2690	L203:
	2691	*line 1197
	2692	*line 1198
	2693	*line 1199
	2694	clr _fc_sw
	2695	*line 1200
	2696	clr _midiclk
	2697	*line 1201
	2698	clr _pulsclk
	2699	*line 1202
	2700	bra L188
	2701	*line 1203
	2702	bra L189
	2703	L190:cmp #6,R0
	2704	bhi L189
	2705	asl #2,R0
	2706	move R0,R8
	2707	add.l #L204,R8
	2708	move.l (R8),R8
	2709	jmp (R8)
	2710	.data
	2711	L204:.dc.l L191
	2712	.dc.l L195
	2713	.dc.l L192
	2714	.dc.l L198
	2715	.dc.l L199
	2716	.dc.l L200
	2717	.dc.l L203
	2718	.text
	2719	L189:L188:tst.l (sp)+
	2720	movem.l (sp)+,R7-R7
	2721	unlk R14
	2722	rts
	2723	.globl _sdboxfn
	2724	.text
	2725	_sdboxfn:
	2726	~~sdboxfn:
	2727	~n=8
	2728	link R14,#-4
	2729	movem.l R2-R7/R13-R13,-(sp)
	2730	~row=R7
	2731	~col=R6
	2732	~grp=R5
	2733	~what=R4
	2734	~i=R3
	2735	~ep=R13
	2736	~atr=-2
	2737	~modewas=-4
	2738	*line 1224
	2739	move _hitcy,R7
	2740	ext.l R7
	2741	divs #14,R7
	2742	*line 1225
	2743	move _hitcx,R6
	2744	asr #3,R6
	2745	*line 1227
	2746	move _hitbox,R0
	2747	bra L207
	2748	*line 1228
	2749	L208:
	2750	*line 1229
	2751	*line 1230
	2752	*line 1231
	2753	*line 1231
	2754	tst R6
	2755	bne L209
	2756	*line 1232
	2757	*line 1233
	2758	*line 1234
	2759	tst _clkrun
	2760	beq L210
	2761	*line 1234
	2762	move #-1,R0
	2763	bra L205
	2764	*line 1235
	2765	L210:
	2766	*line 1236
	2767	*line 1237
	2768	cmp.b #4,_ac_code
	2769	bne L211
	2770	*line 1237
	2771	move.b #1,_ac_code
	2772	*line 1238
	2773	bra L212
	2774	L211:
	2775	*line 1239
	2776	move.b #4,_ac_code
	2777	L212:
	2778	*line 1240
	2779	*line 1241
	2780	move.l _fc_val,(sp)
	2781	jsr _sc_refr
	2782	*line 1242
	2783	clr R0
	2784	bra L205
	2785	*line 1243
	2786	bra L213
	2787	L209:
	2788	*line 1244
	2789	*line 1244
	2790	cmp #2,R6
	2791	blt L214
	2792	cmp #4,R6
	2793	bgt L214
	2794	*line 1245
	2795	*line 1246
	2796	*line 1247
	2797	tst _clkrun
	2798	beq L215
	2799	*line 1247
	2800	move #-1,R0
	2801	bra L205
	2802	*line 1248
	2803	L215:
	2804	*line 1249
	2805	*line 1249
	2806	cmp #-1,_sdmctl
	2807	bne L216
	2808	*line 1250
	2809	*line 1251
	2810	move #4,(sp)
	2811	jsr _sdmenu
	2812	*line 1252
	2813	clr R0
	2814	bra L205
	2815	*line 1253
	2816	*line 1254
	2817	bra L217
	2818	L216:
	2819	*line 1255
	2820	*line 1256
	2821	*line 1257
	2822	*line 1257
	2823	cmp #19,_vtcrow
	2824	bne L218
	2825	*line 1258
	2826	*line 1259
	2827	*line 1260
	2828	cmp #1,_vtccol
	2829	blt L219
	2830	cmp #4,_vtccol
	2831	bgt L219
	2832	*line 1261
	2833	*line 1262
	2834	move #1,(sp)
	2835	jsr _hilitop
	2836	*line 1263
	2837	clr R0
	2838	bra L205
	2839	*line 1264
	2840	bra L220
	2841	L219:
	2842	*line 1265
	2843	*line 1266
	2844	cmp #8,_vtccol
	2845	blt L221
	2846	cmp #11,_vtccol
	2847	bgt L221
	2848	*line 1267
	2849	*line 1268
	2850	move #4,(sp)
	2851	jsr _hilitop
	2852	*line 1269
	2853	clr R0
	2854	bra L205
	2855	*line 1270
	2856	bra L222
	2857	L221:
	2858	*line 1271
	2859	*line 1272
	2860	cmp #15,_vtccol
	2861	blt L223
	2862	cmp #19,_vtccol
	2863	bgt L223
	2864	*line 1273
	2865	*line 1274
	2866	move #7,(sp)
	2867	jsr _hilitop
	2868	*line 1275
	2869	clr R0
	2870	bra L205
	2871	*line 1276
	2872	bra L224
	2873	L223:
	2874	*line 1277
	2875	*line 1278
	2876	cmp #24,_vtccol
	2877	blt L225
	2878	cmp #62,_vtccol
	2879	bgt L225
	2880	*line 1279
	2881	*line 1280
	2882	*line 1280
	2883	jsr _insect
	2884	cmp #-1,R0
	2885	beq L226
	2886	*line 1281
	2887	*line 1282
	2888	move #-1,(sp)
	2889	jsr _sdmenu
	2890	*line 1283
	2891	jsr _dosecop
	2892	*line 1284
	2893	*line 1285
	2894	L226:
	2895	*line 1286
	2896	clr R0
	2897	bra L205
	2898	*line 1287
	2899	*line 1288
	2900	*line 1289
	2901	L225:L224:L222:L220:bra L227
	2902	L218:
	2903	*line 1290
	2904	*line 1290
	2905	cmp #20,_vtcrow
	2906	bne L228
	2907	*line 1291
	2908	*line 1292
	2909	*line 1293
	2910	cmp #1,_vtccol
	2911	blt L229
	2912	cmp #5,_vtccol
	2913	bgt L229
	2914	*line 1294
	2915	*line 1295
	2916	move #2,(sp)
	2917	jsr _hilitop
	2918	*line 1296
	2919	clr R0
	2920	bra L205
	2921	*line 1297
	2922	bra L230
	2923	L229:
	2924	*line 1298
	2925	*line 1299
	2926	cmp #8,_vtccol
	2927	blt L231
	2928	cmp #11,_vtccol
	2929	bgt L231
	2930	*line 1300
	2931	*line 1301
	2932	move #5,(sp)
	2933	jsr _hilitop
	2934	*line 1302
	2935	clr R0
	2936	bra L205
	2937	*line 1303
	2938	bra L232
	2939	L231:
	2940	*line 1304
	2941	*line 1305
	2942	cmp #15,_vtccol
	2943	blt L233
	2944	cmp #20,_vtccol
	2945	bgt L233
	2946	*line 1306
	2947	*line 1307
	2948	move #8,(sp)
	2949	jsr _hilitop
	2950	*line 1308
	2951	clr R0
	2952	bra L205
	2953	*line 1309
	2954	bra L234
	2955	L233:
	2956	*line 1310
	2957	*line 1311
	2958	cmp #24,_vtccol
	2959	blt L235
	2960	cmp #62,_vtccol
	2961	bgt L235
	2962	*line 1312
	2963	*line 1313
	2964	*line 1313
	2965	jsr _insect
	2966	cmp #-1,R0
	2967	beq L236
	2968	*line 1314
	2969	*line 1315
	2970	move #-1,(sp)
	2971	jsr _sdmenu
	2972	*line 1316
	2973	jsr _dosecop
	2974	*line 1317
	2975	*line 1318
	2976	L236:
	2977	*line 1319
	2978	clr R0
	2979	bra L205
	2980	*line 1320
	2981	*line 1321
	2982	*line 1322
	2983	L235:L234:L232:L230:bra L237
	2984	L228:
	2985	*line 1323
	2986	*line 1323
	2987	cmp #21,_vtcrow
	2988	bne L238
	2989	*line 1324
	2990	*line 1325
	2991	*line 1326
	2992	cmp #1,_vtccol
	2993	blt L239
	2994	cmp #3,_vtccol
	2995	bgt L239
	2996	*line 1327
	2997	*line 1328
	2998	move #3,(sp)
	2999	jsr _hilitop
	3000	*line 1329
	3001	clr R0
	3002	bra L205
	3003	*line 1330
	3004	bra L240
	3005	L239:
	3006	*line 1331
	3007	*line 1332
	3008	cmp #8,_vtccol
	3009	blt L241
	3010	cmp #12,_vtccol
	3011	bgt L241
	3012	*line 1333
	3013	*line 1334
	3014	move #6,(sp)
	3015	jsr _hilitop
	3016	*line 1335
	3017	clr R0
	3018	bra L205
	3019	*line 1336
	3020	bra L242
	3021	L241:
	3022	*line 1337
	3023	*line 1338
	3024	cmp #15,_vtccol
	3025	blt L243
	3026	cmp #20,_vtccol
	3027	bgt L243
	3028	*line 1339
	3029	*line 1340
	3030	move #9,(sp)
	3031	jsr _hilitop
	3032	*line 1341
	3033	clr R0
	3034	bra L205
	3035	*line 1342
	3036	*line 1343
	3037	*line 1344
	3038	*line 1345
	3039	L243:L242:L240:bra L244
	3040	L238:
	3041	*line 1346
	3042	*line 1346
	3043	cmp #22,_vtcrow
	3044	bne L245
	3045	*line 1347
	3046	*line 1348
	3047	*line 1349
	3048	cmp #8,_vtccol
	3049	blt L246
	3050	cmp #12,_vtccol
	3051	bgt L246
	3052	*line 1350
	3053	*line 1351
	3054	move #11,(sp)
	3055	jsr _hilitop
	3056	*line 1352
	3057	clr R0
	3058	bra L205
	3059	*line 1353
	3060	bra L247
	3061	L246:
	3062	*line 1354
	3063	*line 1355
	3064	cmp #15,_vtccol
	3065	blt L248
	3066	cmp #20,_vtccol
	3067	bgt L248
	3068	*line 1356
	3069	*line 1357
	3070	move #10,(sp)
	3071	jsr _hilitop
	3072	*line 1358
	3073	clr R0
	3074	bra L205
	3075	*line 1359
	3076	bra L249
	3077	L248:
	3078	*line 1360
	3079	*line 1361
	3080	cmp #28,_vtccol
	3081	blt L250
	3082	cmp #62,_vtccol
	3083	bgt L250
	3084	*line 1362
	3085	*line 1363
	3086	*line 1364
	3087	tst _gtmsel
	3088	blt L251
	3089	*line 1364
	3090	clr (sp)
	3091	move _gtmsel,-(sp)
	3092	jsr _dsgtmn
	3093	addq.l #2,sp
	3094	*line 1365
	3095	L251:
	3096	*line 1366
	3097	*line 1367
	3098	jsr _ingroup
	3099	move R0,_gtmsel
	3100	cmp #-1,R0
	3101	beq L252
	3102	*line 1367
	3103	move #1,(sp)
	3104	move _gtmsel,-(sp)
	3105	jsr _dsgtmn
	3106	addq.l #2,sp
	3107	*line 1368
	3108	L252:
	3109	*line 1369
	3110	clr R0
	3111	bra L205
	3112	*line 1370
	3113	*line 1371
	3114	L250:L249:L247:bra L253
	3115	L245:
	3116	*line 1372
	3117	*line 1372
	3118	cmp #23,_vtcrow
	3119	bne L254
	3120	*line 1373
	3121	*line 1374
	3122	*line 1375
	3123	cmp #1,_vtccol
	3124	blt L255
	3125	cmp #6,_vtccol
	3126	bgt L255
	3127	*line 1376
	3128	*line 1377
	3129	clr _secop
	3130	*line 1378
	3131	move #-1,(sp)
	3132	jsr _sdmenu
	3133	*line 1379
	3134	clr R0
	3135	bra L205
	3136	*line 1380
	3137	bra L256
	3138	L255:
	3139	*line 1381
	3140	*line 1382
	3141	cmp #22,_vtccol
	3142	blt L257
	3143	cmp #24,_vtccol
	3144	bgt L257
	3145	*line 1383
	3146	*line 1384
	3147	jsr _enterit
	3148	bra L205
	3149	*line 1385
	3150	L257:L256:
	3151	*line 1386
	3152	L254:L253:L244:L237:L227:L217:
	3153	*line 1387
	3154	*line 1388
	3155	*line 1389
	3156	move #-1,R0
	3157	bra L205
	3158	*line 1390
	3159	*line 1391
	3160	bra L258
	3161	L214:
	3162	*line 1392
	3163	jsr _enterit
	3164	bra L205
	3165	L258:L213:
	3166	*line 1393
	3167	*line 1394
	3168	*line 1395
	3169	L259:
	3170	*line 1396
	3171	*line 1397
	3172	*line 1398
	3173	move _insmode,-4(R14)
	3174	*line 1399
	3175	*line 1400
	3176	*line 1401
	3177	tst _insmode
	3178	beq L260
	3179	*line 1401
	3180	jsr _icancel
	3181	*line 1402
	3182	bra L261
	3183	L260:
	3184	*line 1403
	3185	jsr _istart
	3186	L261:
	3187	*line 1404
	3188	*line 1405
	3189	*line 1406
	3190	move -4(R14),R0
	3191	cmp _insmode,R0
	3192	beq L262
	3193	*line 1406
	3194	move.l _fc_val,(sp)
	3195	jsr _sc_refr
	3196	*line 1407
	3197	L262:
	3198	*line 1408
	3199	jsr _dsimode
	3200	*line 1409
	3201	clr R0
	3202	bra L205
	3203	*line 1410
	3204	L263:
	3205	*line 1411
	3206	*line 1412
	3207	*line 1413
	3208	*line 1413
	3209	cmp #33,R6
	3210	bgt L264
	3211	*line 1414
	3212	*line 1415
	3213	tst _clkrun
	3214	beq L10017
	3215	clr (sp)
	3216	bra L10018
	3217	L10017:move #1,(sp)
	3218	L10018:jsr _clkset
	3219	*line 1416
	3220	jsr _dsclk
	3221	*line 1417
	3222	clr R0
	3223	bra L205
	3224	*line 1418
	3225	*line 1419
	3226	*line 1420
	3227	bra L265
	3228	L264:
	3229	*line 1421
	3230	*line 1421
	3231	cmp #35,R6
	3232	blt L266
	3233	cmp #43,R6
	3234	bgt L266
	3235	*line 1422
	3236	*line 1423
	3237	*line 1423
	3238	cmp #-1,_sdmctl
	3239	bne L267
	3240	*line 1424
	3241	*line 1425
	3242	move #3,(sp)
	3243	jsr _sdmenu
	3244	*line 1426
	3245	clr R0
	3246	bra L205
	3247	*line 1427
	3248	bra L268
	3249	L267:
	3250	*line 1428
	3251	*line 1429
	3252	*line 1430
	3253	*line 1430
	3254	cmp #19,_vtcrow
	3255	bne L269
	3256	*line 1431
	3257	*line 1432
	3258	*line 1433
	3259	cmp #1,_vtccol
	3260	blt L270
	3261	cmp #5,_vtccol
	3262	bgt L270
	3263	*line 1434
	3264	*line 1435
	3265	clr _clkctl
	3266	*line 1436
	3267	move #-1,(sp)
	3268	jsr _sdmenu
	3269	*line 1437
	3270	move #2,(sp)
	3271	jsr _sdwin
	3272	*line 1438
	3273	clr R0
	3274	bra L205
	3275	*line 1439
	3276	*line 1440
	3277	L270:bra L271
	3278	L269:
	3279	*line 1441
	3280	*line 1441
	3281	cmp #20,_vtcrow
	3282	bne L272
	3283	*line 1442
	3284	*line 1443
	3285	*line 1444
	3286	cmp #1,_vtccol
	3287	blt L273
	3288	cmp #5,_vtccol
	3289	bgt L273
	3290	*line 1445
	3291	*line 1446
	3292	move #1,_clkctl
	3293	*line 1447
	3294	move #-1,(sp)
	3295	jsr _sdmenu
	3296	*line 1448
	3297	move #2,(sp)
	3298	jsr _sdwin
	3299	*line 1449
	3300	clr R0
	3301	bra L205
	3302	*line 1450
	3303	*line 1451
	3304	L273:bra L274
	3305	L272:
	3306	*line 1452
	3307	*line 1452
	3308	cmp #21,_vtcrow
	3309	bne L275
	3310	*line 1453
	3311	*line 1454
	3312	*line 1455
	3313	cmp #1,_vtccol
	3314	blt L276
	3315	cmp #5,_vtccol
	3316	bgt L276
	3317	*line 1456
	3318	*line 1457
	3319	move #2,_clkctl
	3320	*line 1458
	3321	move #-1,(sp)
	3322	jsr _sdmenu
	3323	*line 1459
	3324	move #2,(sp)
	3325	jsr _sdwin
	3326	*line 1460
	3327	clr R0
	3328	bra L205
	3329	*line 1461
	3330	L276:
	3331	*line 1462
	3332	L275:L274:L271:L268:
	3333	*line 1463
	3334	*line 1464
	3335	*line 1465
	3336	move #-1,R0
	3337	bra L205
	3338	*line 1466
	3339	*line 1467
	3340	bra L277
	3341	L266:
	3342	*line 1468
	3343	*line 1468
	3344	cmp #45,R6
	3345	blt L278
	3346	*line 1469
	3347	*line 1470
	3348	*line 1470
	3349	cmp #-1,_sdmctl
	3350	bne L279
	3351	*line 1471
	3352	*line 1472
	3353	move #2,(sp)
	3354	jsr _sdmenu
	3355	*line 1473
	3356	jsr _setleds
	3357	*line 1474
	3358	clr R0
	3359	bra L205
	3360	*line 1475
	3361	bra L280
	3362	L279:
	3363	*line 1476
	3364	*line 1477
	3365	*line 1478
	3366	*line 1478
	3367	cmp #19,_vtcrow
	3368	bne L281
	3369	*line 1479
	3370	*line 1480
	3371	*line 1481
	3372	cmp #1,_vtccol
	3373	blt L282
	3374	cmp #5,_vtccol
	3375	bgt L282
	3376	*line 1482
	3377	*line 1483
	3378	clr _clksrc
	3379	*line 1484
	3380	clr _pkctrl
	3381	*line 1485
	3382	jsr _setleds
	3383	*line 1486
	3384	move #-1,(sp)
	3385	jsr _sdmenu
	3386	*line 1487
	3387	move #2,(sp)
	3388	jsr _sdwin
	3389	*line 1488
	3390	clr R0
	3391	bra L205
	3392	*line 1489
	3393	bra L283
	3394	L282:
	3395	*line 1490
	3396	*line 1491
	3397	cmp #9,_vtccol
	3398	blt L284
	3399	cmp #13,_vtccol
	3400	bgt L284
	3401	*line 1492
	3402	*line 1493
	3403	move #3,_clksrc
	3404	*line 1494
	3405	clr _pkctrl
	3406	*line 1495
	3407	jsr _setleds
	3408	*line 1496
	3409	move #-1,(sp)
	3410	jsr _sdmenu
	3411	*line 1497
	3412	move #2,(sp)
	3413	jsr _sdwin
	3414	*line 1498
	3415	clr R0
	3416	bra L205
	3417	*line 1499
	3418	bra L285
	3419	L284:
	3420	*line 1500
	3421	*line 1501
	3422	cmp #17,_vtccol
	3423	blt L286
	3424	cmp #20,_vtccol
	3425	bgt L286
	3426	*line 1502
	3427	*line 1503
	3428	move #6,_clksrc
	3429	*line 1504
	3430	move #1,_pkctrl
	3431	*line 1505
	3432	move #1,_stepenb
	3433	*line 1506
	3434	jsr _setleds
	3435	*line 1507
	3436	move #-1,(sp)
	3437	jsr _sdmenu
	3438	*line 1508
	3439	move #2,(sp)
	3440	jsr _sdwin
	3441	*line 1509
	3442	clr R0
	3443	bra L205
	3444	*line 1510
	3445	*line 1511
	3446	*line 1512
	3447	*line 1513
	3448	L286:L285:L283:bra L287
	3449	L281:
	3450	*line 1514
	3451	*line 1514
	3452	cmp #20,_vtcrow
	3453	bne L288
	3454	*line 1515
	3455	*line 1516
	3456	*line 1517
	3457	cmp #1,_vtccol
	3458	blt L289
	3459	cmp #5,_vtccol
	3460	bgt L289
	3461	*line 1518
	3462	*line 1519
	3463	move #1,_clksrc
	3464	*line 1520
	3465	clr _pkctrl
	3466	*line 1521
	3467	jsr _setleds
	3468	*line 1522
	3469	move #-1,(sp)
	3470	jsr _sdmenu
	3471	*line 1523
	3472	move #2,(sp)
	3473	jsr _sdwin
	3474	*line 1524
	3475	clr R0
	3476	bra L205
	3477	*line 1525
	3478	bra L290
	3479	L289:
	3480	*line 1526
	3481	*line 1527
	3482	cmp #9,_vtccol
	3483	blt L291
	3484	cmp #13,_vtccol
	3485	bgt L291
	3486	*line 1528
	3487	*line 1529
	3488	move #4,_clksrc
	3489	*line 1530
	3490	clr _pkctrl
	3491	*line 1531
	3492	jsr _setleds
	3493	*line 1532
	3494	move #-1,(sp)
	3495	jsr _sdmenu
	3496	*line 1533
	3497	move #2,(sp)
	3498	jsr _sdwin
	3499	*line 1534
	3500	clr R0
	3501	bra L205
	3502	*line 1535
	3503	*line 1536
	3504	*line 1537
	3505	L291:L290:bra L292
	3506	L288:
	3507	*line 1538
	3508	*line 1538
	3509	cmp #21,_vtcrow
	3510	bne L293
	3511	*line 1539
	3512	*line 1540
	3513	*line 1541
	3514	cmp #1,_vtccol
	3515	blt L294
	3516	cmp #5,_vtccol
	3517	bgt L294
	3518	*line 1542
	3519	*line 1543
	3520	move #2,_clksrc
	3521	*line 1544
	3522	clr _pkctrl
	3523	*line 1545
	3524	jsr _setleds
	3525	*line 1546
	3526	move #-1,(sp)
	3527	jsr _sdmenu
	3528	*line 1547
	3529	move #2,(sp)
	3530	jsr _sdwin
	3531	*line 1548
	3532	clr R0
	3533	bra L205
	3534	*line 1549
	3535	bra L295
	3536	L294:
	3537	*line 1550
	3538	*line 1551
	3539	cmp #9,_vtccol
	3540	blt L296
	3541	cmp #13,_vtccol
	3542	bgt L296
	3543	*line 1552
	3544	*line 1553
	3545	move #5,_clksrc
	3546	*line 1554
	3547	clr _pkctrl
	3548	*line 1555
	3549	jsr _setleds
	3550	*line 1556
	3551	move #-1,(sp)
	3552	jsr _sdmenu
	3553	*line 1557
	3554	move #2,(sp)
	3555	jsr _sdwin
	3556	*line 1558
	3557	clr R0
	3558	bra L205
	3559	*line 1559
	3560	L296:L295:
	3561	*line 1560
	3562	L293:L292:L287:L280:
	3563	*line 1561
	3564	*line 1562
	3565	*line 1563
	3566	L278:L277:L265:
	3567	*line 1564
	3568	move #-1,R0
	3569	bra L205
	3570	*line 1565
	3571	*line 1566
	3572	*line 1567
	3573	L297:
	3574	*line 1568
	3575	*line 1569
	3576	*line 1570
	3577	*line 1571
	3578	tst _clkrun
	3579	beq L298
	3580	*line 1571
	3581	move #-1,R0
	3582	bra L205
	3583	*line 1572
	3584	L298:
	3585	*line 1573
	3586	*line 1574
	3587	cmp #-1,_scmctl
	3588	beq L299
	3589	*line 1574
	3590	move #-1,(sp)
	3591	jsr _scmenu
	3592	*line 1575
	3593	L299:
	3594	*line 1576
	3595	*line 1576
	3596	cmp #-1,_sdmctl
	3597	bne L300
	3598	*line 1577
	3599	*line 1578
	3600	move #1,(sp)
	3601	jsr _sdmenu
	3602	*line 1579
	3603	clr _noteop
	3604	*line 1580
	3605	clr R0
	3606	bra L205
	3607	*line 1581
	3608	bra L301
	3609	L300:
	3610	*line 1582
	3611	*line 1583
	3612	*line 1584
	3613	*line 1584
	3614	cmp #19,_vtcrow
	3615	bne L302
	3616	*line 1585
	3617	*line 1586
	3618	*line 1587
	3619	cmp #1,_vtccol
	3620	blt L303
	3621	cmp #9,_vtccol
	3622	bgt L303
	3623	*line 1588
	3624	*line 1589
	3625	move #1,(sp)
	3626	jsr _hilitnt
	3627	*line 1590
	3628	clr R0
	3629	bra L205
	3630	*line 1591
	3631	bra L304
	3632	L303:
	3633	*line 1592
	3634	*line 1593
	3635	cmp #13,_vtccol
	3636	blt L305
	3637	cmp #21,_vtccol
	3638	bgt L305
	3639	*line 1594
	3640	*line 1595
	3641	move #4,(sp)
	3642	jsr _hilitnt
	3643	*line 1596
	3644	clr R0
	3645	bra L205
	3646	*line 1597
	3647	bra L306
	3648	L305:
	3649	*line 1598
	3650	*line 1599
	3651	cmp #25,_vtccol
	3652	blt L307
	3653	cmp #30,_vtccol
	3654	bgt L307
	3655	*line 1600
	3656	*line 1601
	3657	clr (sp)
	3658	jsr _hilitnt
	3659	*line 1602
	3660	clr R0
	3661	bra L205
	3662	*line 1603
	3663	*line 1604
	3664	*line 1605
	3665	L307:L306:L304:
	3666	*line 1606
	3667	move #-1,R0
	3668	bra L205
	3669	*line 1607
	3670	*line 1608
	3671	bra L308
	3672	L302:
	3673	*line 1609
	3674	*line 1609
	3675	cmp #20,_vtcrow
	3676	bne L309
	3677	*line 1610
	3678	*line 1611
	3679	*line 1612
	3680	cmp #1,_vtccol
	3681	blt L310
	3682	cmp #9,_vtccol
	3683	bgt L310
	3684	*line 1613
	3685	*line 1614
	3686	move #2,(sp)
	3687	jsr _hilitnt
	3688	*line 1615
	3689	clr R0
	3690	bra L205
	3691	*line 1616
	3692	bra L311
	3693	L310:
	3694	*line 1617
	3695	*line 1618
	3696	cmp #13,_vtccol
	3697	blt L312
	3698	cmp #22,_vtccol
	3699	bgt L312
	3700	*line 1619
	3701	*line 1620
	3702	move #5,(sp)
	3703	jsr _hilitnt
	3704	*line 1621
	3705	clr R0
	3706	bra L205
	3707	*line 1622
	3708	*line 1623
	3709	L312:L311:
	3710	*line 1624
	3711	move #-1,R0
	3712	bra L205
	3713	*line 1625
	3714	bra L313
	3715	L309:
	3716	*line 1626
	3717	*line 1626
	3718	cmp #21,_vtcrow
	3719	bne L314
	3720	*line 1627
	3721	*line 1628
	3722	*line 1629
	3723	cmp #1,_vtccol
	3724	blt L315
	3725	cmp #8,_vtccol
	3726	bgt L315
	3727	*line 1630
	3728	*line 1631
	3729	move #3,(sp)
	3730	jsr _hilitnt
	3731	*line 1632
	3732	clr R0
	3733	bra L205
	3734	*line 1633
	3735	bra L316
	3736	L315:
	3737	*line 1634
	3738	*line 1635
	3739	cmp #13,_vtccol
	3740	blt L317
	3741	cmp #20,_vtccol
	3742	bgt L317
	3743	*line 1636
	3744	*line 1637
	3745	move #6,(sp)
	3746	jsr _hilitnt
	3747	*line 1638
	3748	clr R0
	3749	bra L205
	3750	*line 1639
	3751	*line 1640
	3752	L317:L316:
	3753	*line 1641
	3754	move #-1,R0
	3755	bra L205
	3756	*line 1642
	3757	*line 1643
	3758	bra L318
	3759	L314:
	3760	*line 1644
	3761	move #-1,R0
	3762	bra L205
	3763	L318:L313:L308:L301:
	3764	*line 1645
	3765	*line 1646
	3766	*line 1647
	3767	move #-1,R0
	3768	bra L205
	3769	*line 1648
	3770	*line 1649
	3771	*line 1650
	3772	L319:
	3773	*line 1651
	3774	*line 1652
	3775	*line 1653
	3776	*line 1653
	3777	cmp #9,R6
	3778	bgt L320
	3779	*line 1654
	3780	*line 1655
	3781	*line 1655
	3782	cmp #1,_scmctl
	3783	beq L321
	3784	*line 1656
	3785	*line 1657
	3786	clr _lastam
	3787	*line 1658
	3788	move #1,(sp)
	3789	jsr _scmenu
	3790	*line 1659
	3791	bra L322
	3792	L321:
	3793	*line 1660
	3794	*line 1661
	3795	*line 1662
	3796	*line 1662
	3797	tst _lastam
	3798	bne L323
	3799	*line 1663
	3800	*line 1664
	3801	move #60,_lastam
	3802	*line 1665
	3803	move #1,(sp)
	3804	jsr _scmenu
	3805	*line 1666
	3806	bra L324
	3807	L323:
	3808	*line 1667
	3809	*line 1668
	3810	*line 1669
	3811	clr _lastam
	3812	*line 1670
	3813	move #-1,(sp)
	3814	jsr _scmenu
	3815	L324:
	3816	*line 1671
	3817	L322:
	3818	*line 1672
	3819	*line 1673
	3820	*line 1674
	3821	clr R0
	3822	bra L205
	3823	*line 1675
	3824	bra L325
	3825	L320:
	3826	*line 1676
	3827	*line 1677
	3828	*line 1678
	3829	jsr _enterit
	3830	bra L205
	3831	L325:
	3832	*line 1679
	3833	*line 1680
	3834	L326:
	3835	*line 1681
	3836	*line 1682
	3837	*line 1683
	3838	*line 1683
	3839	cmp #14,R6
	3840	blt L327
	3841	cmp #17,R6
	3842	bgt L327
	3843	*line 1684
	3844	*line 1685
	3845	*line 1686
	3846	cmp #2,_scmctl
	3847	beq L328
	3848	*line 1686
	3849	move #2,(sp)
	3850	jsr _scmenu
	3851	*line 1687
	3852	bra L329
	3853	L328:
	3854	*line 1688
	3855	move #-1,(sp)
	3856	jsr _scmenu
	3857	L329:
	3858	*line 1689
	3859	*line 1690
	3860	clr R0
	3861	bra L205
	3862	*line 1691
	3863	bra L330
	3864	L327:
	3865	*line 1692
	3866	*line 1693
	3867	*line 1694
	3868	jsr _enterit
	3869	bra L205
	3870	L330:
	3871	*line 1695
	3872	*line 1696
	3873	*line 1697
	3874	L331:
	3875	*line 1698
	3876	*line 1699
	3877	*line 1700
	3878	*line 1700
	3879	cmp #40,R6
	3880	blt L332
	3881	cmp #43,R6
	3882	bgt L332
	3883	*line 1701
	3884	*line 1702
	3885	*line 1702
	3886	tst _recsw
	3887	beq L333
	3888	*line 1703
	3889	*line 1704
	3890	*line 1705
	3891	clr R0
	3892	move 10+_v_regs,R0
	3893	and #384,R0
	3894	beq L334
	3895	*line 1705
	3896	clr (sp)
	3897	jsr _vbank
	3898	*line 1706
	3899	L334:
	3900	*line 1707
	3901	*line 1707
	3902	move #-1,(sp)
	3903	move #-1,-(sp)
	3904	move #7,-(sp)
	3905	move.l _t_cur,-(sp)
	3906	move.l _p_cur,-(sp)
	3907	jsr _findev
	3908	adda.l #12,sp
	3909	move.l R0,R13
	3910	move.l R13,R0
	3911	beq L335
	3912	*line 1708
	3913	*line 1709
	3914	clr (sp)
	3915	move.l R13,-(sp)
	3916	jsr _se_exec
	3917	addq.l #4,sp
	3918	*line 1710
	3919	bra L336
	3920	L335:
	3921	*line 1711
	3922	*line 1711
	3923	move #5,(sp)
	3924	jsr _e_alc
	3925	move.l R0,R13
	3926	move.l R13,R0
	3927	beq L337
	3928	*line 1712
	3929	*line 1713
	3930	move.l _t_cur,(R13)
	3931	*line 1714
	3932	move.b #7,5(R13)
	3933	*line 1715
	3934	move.l _t_cur,(sp)
	3935	clr -(sp)
	3936	move.l _p_cur,-(sp)
	3937	jsr _ep_adj
	3938	addq.l #6,sp
	3939	move.l R0,(sp)
	3940	move.l R13,-(sp)
	3941	jsr _e_ins
	3942	addq.l #4,sp
	3943	move.l R0,R8
	3944	move.l 12(R8),_p_cur
	3945	*line 1716
	3946	clr (sp)
	3947	move.l R13,-(sp)
	3948	jsr _se_exec
	3949	addq.l #4,sp
	3950	*line 1717
	3951	move #1,_ctrsw
	3952	*line 1718
	3953	move #1,(sp)
	3954	move.l #_gdstbc,-(sp)
	3955	clr -(sp)
	3956	move.l R13,-(sp)
	3957	jsr _se_disp
	3958	adda.l #10,sp
	3959	*line 1719
	3960	jsr _scupd
	3961	*line 1720
	3962	L337:L336:
	3963	*line 1721
	3964	*line 1722
	3965	L333:bra L338
	3966	L332:
	3967	*line 1723
	3968	*line 1723
	3969	cmp #45,R6
	3970	blt L339
	3971	cmp #48,R6
	3972	bgt L339
	3973	*line 1724
	3974	*line 1725
	3975	*line 1725
	3976	tst _recsw
	3977	beq L340
	3978	*line 1726
	3979	*line 1727
	3980	*line 1728
	3981	clr R0
	3982	move 10+_v_regs,R0
	3983	and #384,R0
	3984	beq L341
	3985	*line 1728
	3986	clr (sp)
	3987	jsr _vbank
	3988	*line 1729
	3989	L341:
	3990	*line 1730
	3991	*line 1730
	3992	move #-1,(sp)
	3993	move #-1,-(sp)
	3994	move #24,-(sp)
	3995	move.l _t_cur,-(sp)
	3996	move.l _p_cur,-(sp)
	3997	jsr _findev
	3998	adda.l #12,sp
	3999	move.l R0,R13
	4000	move.l R13,R0
	4001	beq L342
	4002	*line 1731
	4003	*line 1732
	4004	clr (sp)
	4005	move.l R13,-(sp)
	4006	jsr _se_exec
	4007	addq.l #4,sp
	4008	*line 1733
	4009	bra L343
	4010	L342:
	4011	*line 1734
	4012	*line 1734
	4013	move #5,(sp)
	4014	jsr _e_alc
	4015	move.l R0,R13
	4016	move.l R13,R0
	4017	beq L344
	4018	*line 1735
	4019	*line 1736
	4020	move.l _t_cur,(R13)
	4021	*line 1737
	4022	move.b #24,5(R13)
	4023	*line 1738
	4024	move.l _t_cur,(sp)
	4025	clr -(sp)
	4026	move.l _p_cur,-(sp)
	4027	jsr _ep_adj
	4028	addq.l #6,sp
	4029	move.l R0,(sp)
	4030	move.l R13,-(sp)
	4031	jsr _e_ins
	4032	addq.l #4,sp
	4033	move.l R0,R8
	4034	move.l 12(R8),_p_cur
	4035	*line 1739
	4036	clr (sp)
	4037	move.l R13,-(sp)
	4038	jsr _se_exec
	4039	addq.l #4,sp
	4040	*line 1740
	4041	move #1,_ctrsw
	4042	*line 1741
	4043	move #1,(sp)
	4044	move.l #_gdstbc,-(sp)
	4045	clr -(sp)
	4046	move.l R13,-(sp)
	4047	jsr _se_disp
	4048	adda.l #10,sp
	4049	*line 1742
	4050	jsr _scupd
	4051	*line 1743
	4052	L344:L343:
	4053	*line 1744
	4054	*line 1745
	4055	L340:
	4056	*line 1746
	4057	*line 1747
	4058	L339:L338:
	4059	*line 1748
	4060	clr R0
	4061	bra L205
	4062	*line 1749
	4063	*line 1750
	4064	*line 1751
	4065	L345:
	4066	*line 1752
	4067	*line 1753
	4068	*line 1754
	4069	*line 1754
	4070	cmp #50,R6
	4071	blt L346
	4072	cmp #51,R6
	4073	bgt L346
	4074	*line 1755
	4075	*line 1756
	4076	*line 1756
	4077	tst _recsw
	4078	beq L347
	4079	*line 1757
	4080	*line 1758
	4081	*line 1759
	4082	clr R0
	4083	move 10+_v_regs,R0
	4084	and #384,R0
	4085	beq L348
	4086	*line 1759
	4087	clr (sp)
	4088	jsr _vbank
	4089	*line 1760
	4090	L348:
	4091	*line 1761
	4092	*line 1761
	4093	move #-1,(sp)
	4094	move #1,-(sp)
	4095	move #7,-(sp)
	4096	move.l _t_cur,-(sp)
	4097	move.l _p_cur,-(sp)
	4098	jsr _findev
	4099	adda.l #12,sp
	4100	move.l R0,R13
	4101	move.l R13,R0
	4102	beq L349
	4103	*line 1762
	4104	*line 1763
	4105	clr (sp)
	4106	move.l R13,-(sp)
	4107	jsr _se_exec
	4108	addq.l #4,sp
	4109	*line 1764
	4110	bra L350
	4111	L349:
	4112	*line 1765
	4113	*line 1765
	4114	move #5,(sp)
	4115	jsr _e_alc
	4116	move.l R0,R13
	4117	move.l R13,R0
	4118	beq L351
	4119	*line 1766
	4120	*line 1767
	4121	move.l _t_cur,(R13)
	4122	*line 1768
	4123	move.b #19,5(R13)
	4124	*line 1769
	4125	move.b #1,6(R13)
	4126	*line 1770
	4127	move.l _t_cur,(sp)
	4128	clr -(sp)
	4129	move.l _p_cur,-(sp)
	4130	jsr _ep_adj
	4131	addq.l #6,sp
	4132	move.l R0,(sp)
	4133	move.l R13,-(sp)
	4134	jsr _e_ins
	4135	addq.l #4,sp
	4136	move.l R0,R8
	4137	move.l 12(R8),_p_cur
	4138	*line 1771
	4139	clr (sp)
	4140	move.l R13,-(sp)
	4141	jsr _se_exec
	4142	addq.l #4,sp
	4143	*line 1772
	4144	move #1,_ctrsw
	4145	*line 1773
	4146	move #1,(sp)
	4147	move.l #_gdstbc,-(sp)
	4148	clr -(sp)
	4149	move.l R13,-(sp)
	4150	jsr _se_disp
	4151	adda.l #10,sp
	4152	*line 1774
	4153	jsr _scupd
	4154	*line 1775
	4155	L351:L350:
	4156	*line 1776
	4157	*line 1777
	4158	L347:bra L352
	4159	L346:
	4160	*line 1778
	4161	*line 1778
	4162	cmp #53,R6
	4163	blt L353
	4164	cmp #55,R6
	4165	bgt L353
	4166	*line 1779
	4167	*line 1780
	4168	*line 1780
	4169	tst _recsw
	4170	beq L354
	4171	*line 1781
	4172	*line 1782
	4173	*line 1783
	4174	clr R0
	4175	move 10+_v_regs,R0
	4176	and #384,R0
	4177	beq L355
	4178	*line 1783
	4179	clr (sp)
	4180	jsr _vbank
	4181	*line 1784
	4182	L355:
	4183	*line 1785
	4184	*line 1785
	4185	move #-1,(sp)
	4186	clr -(sp)
	4187	move #19,-(sp)
	4188	move.l _t_cur,-(sp)
	4189	move.l _p_cur,-(sp)
	4190	jsr _findev
	4191	adda.l #12,sp
	4192	move.l R0,R13
	4193	move.l R13,R0
	4194	beq L356
	4195	*line 1786
	4196	*line 1787
	4197	clr (sp)
	4198	move.l R13,-(sp)
	4199	jsr _se_exec
	4200	addq.l #4,sp
	4201	*line 1788
	4202	bra L357
	4203	L356:
	4204	*line 1789
	4205	*line 1789
	4206	move #5,(sp)
	4207	jsr _e_alc
	4208	move.l R0,R13
	4209	move.l R13,R0
	4210	beq L358
	4211	*line 1790
	4212	*line 1791
	4213	move.l _t_cur,(R13)
	4214	*line 1792
	4215	move.b #19,5(R13)
	4216	*line 1793
	4217	clr.b 6(R13)
	4218	*line 1794
	4219	move.l _t_cur,(sp)
	4220	clr -(sp)
	4221	move.l _p_cur,-(sp)
	4222	jsr _ep_adj
	4223	addq.l #6,sp
	4224	move.l R0,(sp)
	4225	move.l R13,-(sp)
	4226	jsr _e_ins
	4227	addq.l #4,sp
	4228	move.l R0,R8
	4229	move.l 12(R8),_p_cur
	4230	*line 1795
	4231	clr (sp)
	4232	move.l R13,-(sp)
	4233	jsr _se_exec
	4234	addq.l #4,sp
	4235	*line 1796
	4236	move #1,_ctrsw
	4237	*line 1797
	4238	move #1,(sp)
	4239	move.l #_gdstbc,-(sp)
	4240	clr -(sp)
	4241	move.l R13,-(sp)
	4242	jsr _se_disp
	4243	adda.l #10,sp
	4244	*line 1798
	4245	jsr _scupd
	4246	*line 1799
	4247	L358:L357:
	4248	*line 1800
	4249	*line 1801
	4250	L354:
	4251	*line 1802
	4252	*line 1803
	4253	L353:L352:
	4254	*line 1804
	4255	clr R0
	4256	bra L205
	4257	*line 1805
	4258	*line 1806
	4259	L359:
	4260	*line 1807
	4261	*line 1808
	4262	*line 1809
	4263	clr R0
	4264	bra L205
	4265	*line 1810
	4266	L360:
	4267	*line 1811
	4268	*line 1812
	4269	*line 1813
	4270	*line 1813
	4271	cmp #18,R7
	4272	bne L361
	4273	cmp #3,R6
	4274	bgt L361
	4275	*line 1814
	4276	*line 1815
	4277	*line 1816
	4278	tst _scmctl
	4279	beq L362
	4280	*line 1816
	4281	clr (sp)
	4282	jsr _scmenu
	4283	*line 1817
	4284	bra L363
	4285	L362:
	4286	*line 1818
	4287	move #-1,(sp)
	4288	jsr _scmenu
	4289	L363:
	4290	*line 1819
	4291	*line 1820
	4292	clr R0
	4293	bra L205
	4294	*line 1821
	4295	bra L364
	4296	L361:
	4297	*line 1822
	4298	*line 1822
	4299	cmp #21,R7
	4300	bne L365
	4301	cmp #3,R6
	4302	bgt L365
	4303	*line 1823
	4304	*line 1824
	4305	tst _velflag
	4306	beq L10019
	4307	clr R0
	4308	bra L10020
	4309	L10019:move #1,R0
	4310	L10020:move R0,_velflag
	4311	*line 1825
	4312	jsr _ds_vmod
	4313	*line 1826
	4314	clr R0
	4315	bra L205
	4316	*line 1827
	4317	*line 1828
	4318	bra L366
	4319	L365:
	4320	*line 1829
	4321	jsr _enterit
	4322	bra L205
	4323	L366:L364:
	4324	*line 1830
	4325	*line 1831
	4326	*line 1832
	4327	L367:
	4328	*line 1833
	4329	*line 1834
	4330	*line 1835
	4331	*line 1835
	4332	cmp #23,R7
	4333	bne L368
	4334	cmp #4,R6
	4335	bgt L368
	4336	*line 1836
	4337	*line 1837
	4338	move _angroup,R0
	4339	neg R0
	4340	move R0,_angroup
	4341	*line 1838
	4342	*line 1839
	4343	*line 1840
	4344	tst _angroup
	4345	bge L369
	4346	*line 1840
	4347	move #18,-2(R14)
	4348	*line 1841
	4349	bra L370
	4350	L369:
	4351	*line 1842
	4352	move #82,-2(R14)
	4353	L370:
	4354	*line 1843
	4355	*line 1844
	4356	*line 1845
	4357	clr R0
	4358	move 10+_v_regs,R0
	4359	and #384,R0
	4360	beq L371
	4361	*line 1845
	4362	clr (sp)
	4363	jsr _vbank
	4364	*line 1846
	4365	L371:
	4366	*line 1847
	4367	clr R3
	4368	bra L374
	4369	L375:
	4370	*line 1848
	4371	move -2(R14),(sp)
	4372	move R3,-(sp)
	4373	move #7,-(sp)
	4374	move.l _obj8,-(sp)
	4375	jsr _vputa
	4376	addq.l #8,sp
	4377	L373:
	4378	*line 1847
	4379	add #1,R3
	4380	L374:
	4381	*line 1847
	4382	cmp #4,R3
	4383	blt L375
	4384	L372:
	4385	*line 1848
	4386	*line 1849
	4387	*line 1850
	4388	clr R0
	4389	bra L205
	4390	*line 1851
	4391	bra L376
	4392	L368:
	4393	*line 1852
	4394	*line 1852
	4395	cmp #22,R7
	4396	bne L377
	4397	cmp #4,R6
	4398	bgt L377
	4399	*line 1853
	4400	*line 1854
	4401	tst _ancmsw
	4402	beq L10021
	4403	clr R0
	4404	bra L10022
	4405	L10021:move #1,R0
	4406	L10022:move R0,_ancmsw
	4407	*line 1855
	4408	*line 1856
	4409	*line 1857
	4410	tst _ancmsw
	4411	beq L378
	4412	*line 1857
	4413	move #82,-2(R14)
	4414	*line 1858
	4415	bra L379
	4416	L378:
	4417	*line 1859
	4418	move #18,-2(R14)
	4419	L379:
	4420	*line 1860
	4421	*line 1861
	4422	*line 1862
	4423	clr R0
	4424	move 10+_v_regs,R0
	4425	and #384,R0
	4426	beq L380
	4427	*line 1862
	4428	clr (sp)
	4429	jsr _vbank
	4430	*line 1863
	4431	L380:
	4432	*line 1864
	4433	clr R3
	4434	bra L383
	4435	L384:
	4436	*line 1865
	4437	move -2(R14),(sp)
	4438	move R3,-(sp)
	4439	move #6,-(sp)
	4440	move.l _obj8,-(sp)
	4441	jsr _vputa
	4442	addq.l #8,sp
	4443	L382:
	4444	*line 1864
	4445	add #1,R3
	4446	L383:
	4447	*line 1864
	4448	cmp #4,R3
	4449	blt L384
	4450	L381:
	4451	*line 1865
	4452	*line 1866
	4453	*line 1867
	4454	clr R0
	4455	bra L205
	4456	*line 1868
	4457	bra L385
	4458	L377:
	4459	*line 1869
	4460	*line 1870
	4461	*line 1871
	4462	jsr _enterit
	4463	bra L205
	4464	L385:L376:
	4465	*line 1872
	4466	*line 1873
	4467	*line 1874
	4468	L386:
	4469	*line 1875
	4470	*line 1876
	4471	*line 1877
	4472	*line 1877
	4473	cmp #4,R6
	4474	bgt L387
	4475	*line 1878
	4476	*line 1879
	4477	*line 1880
	4478	cmp #3,_scmctl
	4479	beq L388
	4480	*line 1880
	4481	move #3,(sp)
	4482	jsr _scmenu
	4483	*line 1881
	4484	bra L389
	4485	L388:
	4486	*line 1882
	4487	move #-1,(sp)
	4488	jsr _scmenu
	4489	L389:
	4490	*line 1883
	4491	*line 1884
	4492	clr R0
	4493	bra L205
	4494	*line 1885
	4495	bra L390
	4496	L387:
	4497	*line 1886
	4498	*line 1886
	4499	cmp #10,R6
	4500	blt L391
	4501	cmp #25,R6
	4502	bgt L391
	4503	*line 1887
	4504	*line 1888
	4505	*line 1888
	4506	tst _sdmctl
	4507	beq L392
	4508	*line 1889
	4509	*line 1890
	4510	clr (sp)
	4511	jsr _sdmenu
	4512	*line 1891
	4513	*line 1892
	4514	*line 1893
	4515	*line 1894
	4516	move #3,(sp)
	4517	move #99,-(sp)
	4518	move.l #_svtstop,-(sp)
	4519	move.l #_nokey,-(sp)
	4520	move.l #_nokey,-(sp)
	4521	move.l #_bspscur,-(sp)
	4522	move.l #_advscur,-(sp)
	4523	move #1,-(sp)
	4524	move #19,-(sp)
	4525	move _curscor,R0
	4526	asl #4,R0
	4527	ext.l R0
	4528	add.l #_scname,R0
	4529	move.l R0,-(sp)
	4530	move #10,-(sp)
	4531	move.l #_svtdsp,-(sp)
	4532	move.l _obj8,-(sp)
	4533	jsr _vtsetup
	4534	adda.l #40,sp
	4535	*line 1895
	4536	bra L393
	4537	L392:
	4538	*line 1896
	4539	*line 1897
	4540	*line 1898
	4541	jsr _vtyper
	4542	L393:
	4543	*line 1899
	4544	*line 1900
	4545	*line 1901
	4546	clr R0
	4547	bra L205
	4548	*line 1902
	4549	*line 1903
	4550	bra L394
	4551	L391:
	4552	*line 1904
	4553	jsr _enterit
	4554	bra L205
	4555	L394:L390:
	4556	*line 1905
	4557	*line 1906
	4558	L395:
	4559	*line 1907
	4560	*line 1908
	4561	*line 1909
	4562	*line 1909
	4563	cmp #31,R6
	4564	blt L396
	4565	cmp #34,R6
	4566	bgt L396
	4567	*line 1910
	4568	*line 1911
	4569	clr _recsw
	4570	*line 1912
	4571	jsr _dsrpmod
	4572	*line 1913
	4573	clr R0
	4574	bra L205
	4575	*line 1914
	4576	bra L397
	4577	L396:
	4578	*line 1915
	4579	*line 1915
	4580	cmp #36,R6
	4581	blt L398
	4582	cmp #40,R6
	4583	bgt L398
	4584	*line 1916
	4585	*line 1917
	4586	move #1,_recsw
	4587	*line 1918
	4588	jsr _dsrpmod
	4589	*line 1919
	4590	clr R0
	4591	bra L205
	4592	*line 1920
	4593	bra L399
	4594	L398:
	4595	*line 1921
	4596	*line 1921
	4597	cmp #42,R6
	4598	blt L400
	4599	cmp #47,R6
	4600	bgt L400
	4601	*line 1922
	4602	*line 1923
	4603	tst _dubsw
	4604	beq L10023
	4605	clr R0
	4606	bra L10024
	4607	L10023:move #1,R0
	4608	L10024:move R0,_dubsw
	4609	*line 1924
	4610	jsr _dsrpmod
	4611	*line 1925
	4612	clr R0
	4613	bra L205
	4614	*line 1926
	4615	bra L401
	4616	L400:
	4617	*line 1927
	4618	*line 1927
	4619	cmp #49,R6
	4620	blt L402
	4621	cmp #55,R6
	4622	bgt L402
	4623	*line 1928
	4624	*line 1929
	4625	tst _pchsw
	4626	beq L10025
	4627	clr R0
	4628	bra L10026
	4629	L10025:move #1,R0
	4630	L10026:move R0,_pchsw
	4631	*line 1930
	4632	jsr _dsrpmod
	4633	*line 1931
	4634	clr R0
	4635	bra L205
	4636	*line 1932
	4637	*line 1933
	4638	*line 1934
	4639	L402:L401:L399:L397:
	4640	*line 1935
	4641	move #-1,R0
	4642	bra L205
	4643	*line 1936
	4644	L403:
	4645	*line 1937
	4646	*line 1938
	4647	*line 1939
	4648	*line 1940
	4649	tst _noteop
	4650	beq L404
	4651	*line 1940
	4652	jsr _donote
	4653	*line 1941
	4654	L404:
	4655	*line 1942
	4656	clr R0
	4657	bra L205
	4658	bra L206
	4659	L207:cmp #16,R0
	4660	bhi L206
	4661	asl #2,R0
	4662	move R0,R8
	4663	add.l #L405,R8
	4664	move.l (R8),R8
	4665	jmp (R8)
	4666	.data
	4667	L405:.dc.l L208
	4668	.dc.l L259
	4669	.dc.l L263
	4670	.dc.l L297
	4671	.dc.l L319
	4672	.dc.l L326
	4673	.dc.l L206
	4674	.dc.l L206
	4675	.dc.l L331
	4676	.dc.l L345
	4677	.dc.l L359
	4678	.dc.l L360
	4679	.dc.l L367
	4680	.dc.l L386
	4681	.dc.l L395
	4682	.dc.l L206
	4683	.dc.l L403
	4684	.text
	4685	L206:
	4686	*line 1945
	4687	move #-1,R0
	4688	bra L205
	4689	L205:tst.l (sp)+
	4690	movem.l (sp)+,R3-R7/R13-R13
	4691	unlk R14
	4692	rts
	4693	.data
	4694	L1:.dc.b $20,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4A,$4B,$4C,$4D,$4E,$4F,$50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5A,$20,$20,$7C
	4695	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4696	.dc.b $20,$20,$20,$20,$0
	4697	L2:.dc.b $20,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6A,$6B,$6C,$6D,$6E,$6F,$70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7A,$20,$2D,$2A
	4698	.dc.b $2D,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4699	.dc.b $20,$20,$20,$20,$0
	4700	L3:.dc.b $20,$20,$30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$2B,$2D,$2F,$2A,$28,$29,$2E,$2C,$3A,$3B,$21,$3F,$26,$3C,$3E,$20,$20,$7C
	4701	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4702	.dc.b $20,$20,$20,$20,$0
	4703	L4:.dc.b $20,$42,$65,$67,$69,$6E,$20,$41,$63,$63,$20,$20,$20,$4D,$6F,$76,$65,$20,$4E,$6F,$74,$65,$20,$20,$20,$45,$73,$63,$61,$70
	4704	.dc.b $65,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4705	.dc.b $20,$20,$20,$20,$0
	4706	L5:.dc.b $20,$42,$65,$67,$69,$6E,$20,$4E,$61,$74,$20,$20,$20,$4D,$6F,$76,$65,$20,$42,$65,$67,$69,$6E,$20,$20,$20,$20,$20,$20,$20
	4707	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4708	.dc.b $20,$20,$20,$20,$0
	4709	L6:.dc.b $20,$45,$6E,$64,$20,$4E,$6F,$74,$65,$20,$20,$20,$20,$4D,$6F,$76,$65,$20,$45,$6E,$64,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4710	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4711	.dc.b $20,$20,$20,$20,$0
	4712	L7:.dc.b $20,$4C,$6F,$63,$61,$6C,$20,$20,$20,$50,$4C,$53,$32,$34,$20,$20,$20,$53,$74,$65,$70,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4713	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4714	.dc.b $20,$20,$20,$20,$0
	4715	L8:.dc.b $20,$4D,$49,$44,$49,$20,$20,$20,$20,$50,$4C,$53,$34,$38,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4716	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4717	.dc.b $20,$20,$20,$20,$0
	4718	L9:.dc.b $20,$53,$4D,$50,$54,$45,$20,$20,$20,$50,$4C,$53,$39,$36,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4719	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4720	.dc.b $20,$20,$20,$20,$0
	4721	L10:.dc.b $20,$4C,$6F,$63,$61,$6C,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4722	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4723	.dc.b $20,$20,$20,$20,$0
	4724	L11:.dc.b $20,$4D,$49,$44,$49,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4725	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4726	.dc.b $20,$20,$20,$20,$0
	4727	L12:.dc.b $20,$53,$4D,$50,$54,$45,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4728	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4729	.dc.b $20,$20,$20,$20,$0
	4730	L13:.dc.b $20,$47,$6F,$54,$6F,$20,$20,$20,$4D,$6F,$76,$65,$20,$20,$20,$53,$4D,$50,$54,$45,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4731	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4732	.dc.b $20,$20,$20,$20,$0
	4733	L14:.dc.b $20,$42,$65,$67,$69,$6E,$20,$20,$43,$6F,$70,$79,$20,$20,$20,$44,$65,$6C,$20,$47,$72,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4734	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4735	.dc.b $20,$20,$20,$20,$0
	4736	L15:.dc.b $20,$45,$6E,$64,$20,$20,$20,$20,$4D,$65,$72,$67,$65,$20,$20,$44,$65,$6C,$20,$45,$76,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4737	.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
	4738	.dc.b $20,$20,$20,$20,$0
	4739	L18:.dc.b $4E,$6F,$74,$65,$20,$45,$64,$69,$74,$0
	4740	L19:.dc.b $42,$65,$67,$69,$6E,$20,$41,$63,$63,$0
	4741	L20:.dc.b $42,$65,$67,$69,$6E,$20,$4E,$61,$74,$0
	4742	L21:.dc.b $45,$6E,$64,$20,$4E,$6F,$74,$65,$20,$0
	4743	L22:.dc.b $4D,$6F,$76,$65,$20,$4E,$6F,$74,$65,$0
	4744	L23:.dc.b $4D,$6F,$76,$65,$20,$42,$65,$67,$20,$0
	4745	L24:.dc.b $4D,$6F,$76,$65,$20,$45,$6E,$64,$20,$0
	4746	L53:.dc.b $25,$63,$25,$30,$32,$64,$25,$63,$0
	4747	L55:.dc.b $25,$30,$32,$64,$0
	4748	L59:.dc.b $20,$20,$0
	4749	L61:.dc.b $25,$30,$32,$64,$0
	4750	L65:.dc.b $25,$63,$25,$30,$32,$64,$0
	4751	L82:.dc.b $4E,$6F,$20,$41,$73,$73,$69,$67,$6E,$6D,$65,$6E,$74,$0
	4752	L87:.dc.b $25,$30,$32,$64,$20,$25,$2D,$31,$30,$2E,$31,$30,$73,$0
	4753	L89:.dc.b $4E,$20,$4E,$61,$6D,$65,$0
	4754	L94:.dc.b $25,$64,$20,$25,$2D,$33,$32,$2E,$33,$32,$73,$0
	4755	L100:.dc.b $4E,$6F,$20,$53,$63,$6F,$72,$65,$0
	4756	L105:.dc.b $25,$30,$32,$64,$20,$25,$2D,$31,$36,$2E,$31,$36,$73,$0

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

Download in other formats:

Original Format