Context Navigation

librw.s@ 0170798

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

Rev	Line
[7bf3856]	1	.globl _Cbuffs
	2	.globl _Stdbufs
	3	.globl _Stdbuf
	4	.globl _errno
	5	.globl _io_time
	6	.globl _io_lcd
	7	.globl _io_ser
	8	.globl _io_midi
	9	.globl _io_disk
	10	.globl _io_tone
	11	.globl _io_leds
	12	.globl _io_kbrd
	13	.globl _lcd_a0
	14	.globl _lcd_a1
	15	.globl _io_vreg
	16	.globl _io_vraw
	17	.globl _io_vram
	18	.globl _io_fpu
	19	.globl _v_regs
	20	.globl _v_odtab
	21	.globl _v_actab
	22	.globl _v_ct0
	23	.globl _v_gt1
	24	.globl _v_score
	25	.globl _v_cgtab
	26	.globl _v_curs0
	27	.globl _v_curs1
	28	.globl _v_curs2
	29	.globl _v_curs3
	30	.globl _v_curs4
	31	.globl _v_curs5
	32	.globl _v_curs6
	33	.globl _v_curs7
	34	.globl _v_tcur
	35	.globl _v_kbobj
	36	.globl _v_lnobj
	37	.globl _v_win0
	38	.globl _v_cur
	39	.globl _fc_sw
	40	.globl _fc_val
	41	.globl _v_obtab
	42	.globl _v_curob
	43	.globl _v_nobj
	44	.globl _v_obpri
	45	.globl _ebflag
	46	.globl _ebuf
	47	.globl _curfet
	48	.globl _cfetp
	49	.globl _infetp
	50	.globl _stmptr
	51	.globl _defptr
	52	.globl _patches
	53	.globl _defents
	54	.globl _seqtab
	55	.globl _seqflag
	56	.globl _seqline
	57	.globl _seqstim
	58	.globl _seqtime
	59	.globl _sregval
	60	.globl _trstate
	61	.globl _ac_code
	62	.globl _scname
	63	.globl _se_chg
	64	.globl _curscor
	65	.globl _cursect
	66	.globl _se1_cnt
	67	.globl _se2_cnt
	68	.globl _se3_cnt
	69	.globl _spool
	70	.globl _pspool
	71	.globl _spcount
	72	.globl _frags
	73	.globl _t_bak
	74	.globl _t_cur
	75	.globl _t_ctr
	76	.globl _t_fwd
	77	.globl _size1
	78	.globl _size2
	79	.globl _size3
	80	.globl _scores
	81	.globl _scp
	82	.globl _seclist
	83	.globl _hplist
	84	.globl _p_bak
	85	.globl _p_cur
	86	.globl _p_ctr
	87	.globl _p_fwd
	88	.globl _filecat
	89	.globl _ldslot
	90	.globl _lderrsw
	91	.globl _lrasw
	92	.globl _tunlib
	93	.globl _lcsum
	94	.globl _schksum
	95	.globl _sntlreq
	96	.globl _tunname
	97	.globl _ldfile
	98	.globl _ldcmnt
	99	.globl _ldhead
	100	.globl _asgtab
	101	.globl _wslib
	102	.globl _idefs
	103	.globl _stimes
	104	.globl _wrt_asg
	105	.text
	106	_wrt_asg:
	107	~~wrt_asg:
	108	~slot=8
	109	link R14,#-8
	110	movem.l R6-R7/R13-R13,-(sp)
	111	~fp=R13
	112	~i=R7
	113	~cstemp=-8
	114	*line 79
	115	jsr _preio
	116	*line 81
	117	move.l #L2,(sp)
	118	move #1,-(sp)
	119	move 8(R14),-(sp)
	120	jsr _slotnam
	121	addq.l #4,sp
	122	move.l R0,-(sp)
	123	jsr _fopenb
	124	addq.l #4,sp
	125	move.l R0,R13
	126	*line 83
	127	*line 83
	128	move.l R13,R0
	129	bne L3
	130	*line 84
	131	*line 85
	132	*line 86
	133	*line 87
	134	move #9,(sp)
	135	move #14,-(sp)
	136	clr.l -(sp)
	137	move.l #L5,-(sp)
	138	move.l #L4,-(sp)
	139	jsr _ldermsg
	140	adda.l #14,sp
	141	*line 88
	142	*line 89
	143	jsr _postio
	144	*line 90
	145	jsr _streset
	146	*line 91
	147	move #-1,R0
	148	bra L1
	149	*line 92
	150	*line 93
	151	L3:
	152	*line 94
	153	move #1,(sp)
	154	jsr _makelh
	155	*line 96
	156	clr R7
	157	bra L8
	158	L9:
	159	*line 97
	160	move.l #$14c,(sp)
	161	move R7,R0
	162	add #1,R0
	163	muls #332,R0
	164	add.l #_asgtab,R0
	165	move.l R0,-(sp)
	166	jsr _chksum
	167	addq.l #4,sp
	168	add.l R0,_lcsum
	169	L7:
	170	*line 96
	171	add #1,R7
	172	L8:
	173	*line 96
	174	cmp #99,R7
	175	blt L9
	176	L6:
	177	*line 99
	178	move.l _lcsum,(sp)
	179	move.l #L10,-(sp)
	180	move.l R14,-(sp)
	181	sub.l #8,(sp)
	182	jsr _sprintf
	183	addq.l #8,sp
	184	*line 100
	185	move #8,(sp)
	186	move.l R14,-(sp)
	187	sub.l #8,(sp)
	188	move.l #_ldhead,-(sp)
	189	jsr _memcpy
	190	addq.l #8,sp
	191	*line 109
	192	*line 109
	193	move.l #$38,(sp)
	194	move.l #_ldhead,-(sp)
	195	move.l R13,-(sp)
	196	jsr _wr_ec
	197	addq.l #8,sp
	198	tst R0
	199	beq L11
	200	*line 110
	201	*line 111
	202	jsr _streset
	203	*line 112
	204	move #-1,R0
	205	bra L1
	206	*line 113
	207	*line 114
	208	L11:
	209	*line 115
	210	clr R7
	211	bra L14
	212	L15:
	213	*line 116
	214	*line 117
	215	*line 117
	216	move.l #$14c,(sp)
	217	move R7,R0
	218	add #1,R0
	219	muls #332,R0
	220	add.l #_asgtab,R0
	221	move.l R0,-(sp)
	222	move.l R13,-(sp)
	223	jsr _wr_ec
	224	addq.l #8,sp
	225	tst R0
	226	beq L16
	227	*line 118
	228	*line 119
	229	jsr _streset
	230	*line 120
	231	move #-1,R0
	232	bra L1
	233	*line 121
	234	L16:L13:
	235	*line 115
	236	add #1,R7
	237	L14:
	238	*line 115
	239	cmp #99,R7
	240	blt L15
	241	L12:
	242	*line 124
	243	move.l R13,(sp)
	244	jsr _fclose
	245	*line 125
	246	jsr _postio
	247	*line 126
	248	clr R0
	249	bra L1
	250	L1:tst.l (sp)+
	251	movem.l (sp)+,R7-R7/R13-R13
	252	unlk R14
	253	rts
	254	.globl _get_asg
	255	.text
	256	_get_asg:
	257	~~get_asg:
	258	link R14,#0
	259	movem.l R6-R7/R13-R13,-(sp)
	260	~fp=R13
	261	~i=R7
	262	*line 144
	263	jsr _preio
	264	*line 146
	265	move.l #L18,(sp)
	266	move #1,-(sp)
	267	move _ldslot,-(sp)
	268	jsr _slotnam
	269	addq.l #4,sp
	270	move.l R0,-(sp)
	271	jsr _fopenb
	272	addq.l #4,sp
	273	move.l R0,R13
	274	*line 148
	275	*line 148
	276	move.l R13,R0
	277	bne L19
	278	*line 149
	279	*line 150
	280	*line 151
	281	*line 152
	282	move #9,(sp)
	283	move #14,-(sp)
	284	clr.l -(sp)
	285	move.l #L21,-(sp)
	286	move.l #L20,-(sp)
	287	jsr _ldermsg
	288	adda.l #14,sp
	289	*line 153
	290	*line 154
	291	jsr _postio
	292	*line 155
	293	jsr _clrlsel
	294	*line 156
	295	move #-1,R0
	296	bra L17
	297	*line 157
	298	*line 158
	299	L19:
	300	*line 159
	301	move #8,(sp)
	302	move.l #L22,-(sp)
	303	move.l #_ldfile,-(sp)
	304	jsr _memcpy
	305	addq.l #8,sp
	306	*line 160
	307	move #37,(sp)
	308	move.l #L23,-(sp)
	309	move.l #_ldcmnt,-(sp)
	310	jsr _memcpy
	311	addq.l #8,sp
	312	*line 161
	313	move #3,(sp)
	314	jsr _ldswin
	315	*line 162
	316	move #5,(sp)
	317	jsr _ldswin
	318	*line 166
	319	*line 166
	320	move.l #$38,(sp)
	321	move.l #_ldhead,-(sp)
	322	move.l R13,-(sp)
	323	jsr _rd_ec
	324	addq.l #8,sp
	325	tst R0
	326	beq L24
	327	*line 167
	328	*line 168
	329	jsr _clrlsel
	330	*line 169
	331	move #-1,R0
	332	bra L17
	333	*line 170
	334	*line 171
	335	*line 175
	336	*line 176
	337	*line 177
	338	L24:
	339	*line 178
	340	clr R7
	341	bra L27
	342	L28:
	343	*line 179
	344	*line 180
	345	*line 180
	346	move.l #$14c,(sp)
	347	move R7,R0
	348	add #1,R0
	349	muls #332,R0
	350	add.l #_asgtab,R0
	351	move.l R0,-(sp)
	352	move.l R13,-(sp)
	353	jsr _rd_ec
	354	addq.l #8,sp
	355	tst R0
	356	beq L29
	357	*line 181
	358	*line 182
	359	jsr _clrlsel
	360	*line 183
	361	move #-1,R0
	362	bra L17
	363	*line 184
	364	L29:L26:
	365	*line 178
	366	add #1,R7
	367	L27:
	368	*line 178
	369	cmp #99,R7
	370	blt L28
	371	L25:
	372	*line 187
	373	jsr _clrlsel
	374	*line 188
	375	move.l R13,(sp)
	376	jsr _fclose
	377	*line 189
	378	jsr _postio
	379	*line 190
	380	clr R0
	381	bra L17
	382	L17:tst.l (sp)+
	383	movem.l (sp)+,R7-R7/R13-R13
	384	unlk R14
	385	rts
	386	.globl _wrt_orc
	387	.text
	388	_wrt_orc:
	389	~~wrt_orc:
	390	~slot=8
	391	~lorh=10
	392	link R14,#-8
	393	movem.l R6-R7/R12-R13,-(sp)
	394	~fp=R13
	395	~i=R7
	396	~ip=R12
	397	~cstemp=-8
	398	*line 211
	399	*line 212
	400	tst 10(R14)
	401	beq L31
	402	*line 212
	403	move.l #L32,(sp)
	404	jsr _ldbusy
	405	*line 213
	406	bra L33
	407	L31:
	408	*line 214
	409	move.l #L34,(sp)
	410	jsr _ldbusy
	411	L33:
	412	*line 216
	413	jsr _preio
	414	*line 218
	415	move.l #L35,(sp)
	416	move #7,-(sp)
	417	move 8(R14),-(sp)
	418	jsr _slotnam
	419	addq.l #4,sp
	420	move.l R0,-(sp)
	421	jsr _fopenb
	422	addq.l #4,sp
	423	move.l R0,R13
	424	*line 220
	425	*line 220
	426	move.l R13,R0
	427	bne L36
	428	*line 221
	429	*line 222
	430	*line 223
	431	*line 224
	432	move #9,(sp)
	433	move #14,-(sp)
	434	clr.l -(sp)
	435	move.l #L38,-(sp)
	436	move.l #L37,-(sp)
	437	jsr _ldermsg
	438	adda.l #14,sp
	439	*line 225
	440	*line 226
	441	jsr _postio
	442	*line 227
	443	jsr _streset
	444	*line 228
	445	move #-1,R0
	446	bra L30
	447	*line 229
	448	*line 230
	449	L36:
	450	*line 231
	451	move #7,(sp)
	452	jsr _makelh
	453	*line 233
	454	clr R7
	455	bra L41
	456	L42:
	457	*line 234
	458	*line 235
	459	move R7,R0
	460	tst 10(R14)
	461	beq L10000
	462	move #20,R1
	463	bra L10002
	464	L10000:clr R1
	465	L10002:add R1,R0
	466	add #1,R0
	467	muls #3938,R0
	468	move.l R0,R12
	469	add.l #_idefs,R12
	470	*line 236
	471	*line 237
	472	move.l #1778+_idefs,R0
	473	sub.l #_idefs,R0
	474	move.l R0,(sp)
	475	move.l R12,-(sp)
	476	jsr _chksum
	477	addq.l #4,sp
	478	add.l R0,_lcsum
	479	*line 238
	480	move.l #$23c,(sp)
	481	move.l R12,-(sp)
	482	add.l #2286,(sp)
	483	jsr _chksum
	484	addq.l #4,sp
	485	add.l R0,_lcsum
	486	*line 239
	487	move.l #$23c,(sp)
	488	move.l R12,-(sp)
	489	add.l #3366,(sp)
	490	jsr _chksum
	491	addq.l #4,sp
	492	add.l R0,_lcsum
	493	L40:
	494	*line 233
	495	add #1,R7
	496	L41:
	497	*line 233
	498	cmp #20,R7
	499	blt L42
	500	L39:
	501	*line 242
	502	move.l _lcsum,(sp)
	503	move.l #L43,-(sp)
	504	move.l R14,-(sp)
	505	sub.l #8,(sp)
	506	jsr _sprintf
	507	addq.l #8,sp
	508	*line 243
	509	move #8,(sp)
	510	move.l R14,-(sp)
	511	sub.l #8,(sp)
	512	move.l #_ldhead,-(sp)
	513	jsr _memcpy
	514	addq.l #8,sp
	515	*line 252
	516	*line 252
	517	move.l #$38,(sp)
	518	move.l #_ldhead,-(sp)
	519	move.l R13,-(sp)
	520	jsr _wr_ec
	521	addq.l #8,sp
	522	tst R0
	523	beq L44
	524	*line 253
	525	*line 254
	526	jsr _streset
	527	*line 255
	528	move #-1,R0
	529	bra L30
	530	*line 256
	531	*line 257
	532	L44:
	533	*line 258
	534	clr R7
	535	bra L47
	536	L48:
	537	*line 259
	538	*line 260
	539	move R7,R0
	540	tst 10(R14)
	541	beq L10003
	542	move #20,R1
	543	bra L10005
	544	L10003:clr R1
	545	L10005:add R1,R0
	546	add #1,R0
	547	muls #3938,R0
	548	move.l R0,R12
	549	add.l #_idefs,R12
	550	*line 261
	551	*line 262
	552	*line 262
	553	move.l #1778+_idefs,R0
	554	sub.l #_idefs,R0
	555	move.l R0,(sp)
	556	move.l R12,-(sp)
	557	move.l R13,-(sp)
	558	jsr _wr_ec
	559	addq.l #8,sp
	560	tst R0
	561	beq L49
	562	*line 263
	563	*line 264
	564	jsr _streset
	565	*line 265
	566	move #-1,R0
	567	bra L30
	568	*line 266
	569	*line 267
	570	L49:
	571	*line 268
	572	*line 268
	573	move.l #$23c,(sp)
	574	move.l R12,-(sp)
	575	add.l #2286,(sp)
	576	move.l R13,-(sp)
	577	jsr _wr_ec
	578	addq.l #8,sp
	579	tst R0
	580	beq L50
	581	*line 269
	582	*line 270
	583	jsr _streset
	584	*line 271
	585	move #-1,R0
	586	bra L30
	587	*line 272
	588	*line 273
	589	L50:
	590	*line 274
	591	*line 274
	592	move.l #$23c,(sp)
	593	move.l R12,-(sp)
	594	add.l #3366,(sp)
	595	move.l R13,-(sp)
	596	jsr _wr_ec
	597	addq.l #8,sp
	598	tst R0
	599	beq L51
	600	*line 275
	601	*line 276
	602	jsr _streset
	603	*line 277
	604	move #-1,R0
	605	bra L30
	606	*line 278
	607	L51:L46:
	608	*line 258
	609	add #1,R7
	610	L47:
	611	*line 258
	612	cmp #20,R7
	613	blt L48
	614	L45:
	615	*line 281
	616	move.l R13,(sp)
	617	jsr _fclose
	618	*line 282
	619	jsr _postio
	620	*line 283
	621	clr R0
	622	bra L30
	623	L30:tst.l (sp)+
	624	movem.l (sp)+,R7-R7/R12-R13
	625	unlk R14
	626	rts
	627	.globl _get_orc
	628	.text
	629	_get_orc:
	630	~~get_orc:
	631	~lorh=8
	632	~kind=10
	633	link R14,#0
	634	movem.l R6-R7/R12-R13,-(sp)
	635	~fp=R13
	636	~i=R7
	637	~ip=R12
	638	*line 303
	639	*line 304
	640	tst 8(R14)
	641	beq L53
	642	*line 304
	643	move.l #L54,(sp)
	644	jsr _ldbusy
	645	*line 305
	646	bra L55
	647	L53:
	648	*line 306
	649	move.l #L56,(sp)
	650	jsr _ldbusy
	651	L55:
	652	*line 308
	653	jsr _preio
	654	*line 310
	655	move.l #L57,(sp)
	656	move 10(R14),-(sp)
	657	move _ldslot,-(sp)
	658	jsr _slotnam
	659	addq.l #4,sp
	660	move.l R0,-(sp)
	661	jsr _fopenb
	662	addq.l #4,sp
	663	move.l R0,R13
	664	*line 312
	665	*line 312
	666	move.l R13,R0
	667	bne L58
	668	*line 313
	669	*line 314
	670	*line 315
	671	*line 316
	672	move #9,(sp)
	673	move #14,-(sp)
	674	clr.l -(sp)
	675	move.l #L60,-(sp)
	676	move.l #L59,-(sp)
	677	jsr _ldermsg
	678	adda.l #14,sp
	679	*line 317
	680	*line 318
	681	jsr _postio
	682	*line 319
	683	jsr _clrlsel
	684	*line 320
	685	move #-1,R0
	686	bra L52
	687	*line 321
	688	*line 322
	689	L58:
	690	*line 323
	691	move #8,(sp)
	692	move.l #L61,-(sp)
	693	move.l #_ldfile,-(sp)
	694	jsr _memcpy
	695	addq.l #8,sp
	696	*line 324
	697	move #37,(sp)
	698	move.l #L62,-(sp)
	699	move.l #_ldcmnt,-(sp)
	700	jsr _memcpy
	701	addq.l #8,sp
	702	*line 325
	703	move #3,(sp)
	704	jsr _ldswin
	705	*line 326
	706	move #5,(sp)
	707	jsr _ldswin
	708	*line 330
	709	*line 330
	710	move.l #$38,(sp)
	711	move.l #_ldhead,-(sp)
	712	move.l R13,-(sp)
	713	jsr _rd_ec
	714	addq.l #8,sp
	715	tst R0
	716	beq L63
	717	*line 331
	718	*line 332
	719	jsr _clrlsel
	720	*line 333
	721	move #-1,R0
	722	bra L52
	723	*line 334
	724	*line 335
	725	*line 339
	726	*line 340
	727	*line 341
	728	L63:
	729	*line 342
	730	clr R7
	731	bra L66
	732	L67:
	733	*line 343
	734	*line 344
	735	move R7,R0
	736	tst 8(R14)
	737	beq L10006
	738	move #20,R1
	739	bra L10008
	740	L10006:clr R1
	741	L10008:add R1,R0
	742	add #1,R0
	743	muls #3938,R0
	744	move.l R0,R12
	745	add.l #_idefs,R12
	746	*line 345
	747	*line 346
	748	*line 346
	749	move.l #1778+_idefs,R0
	750	sub.l #_idefs,R0
	751	move.l R0,(sp)
	752	move.l R12,-(sp)
	753	move.l R13,-(sp)
	754	jsr _rd_ec
	755	addq.l #8,sp
	756	tst R0
	757	beq L68
	758	*line 347
	759	*line 348
	760	jsr _clrlsel
	761	*line 349
	762	move #-1,R0
	763	bra L52
	764	*line 350
	765	*line 351
	766	L68:
	767	*line 352
	768	*line 352
	769	move.l #$23c,(sp)
	770	move.l R12,-(sp)
	771	add.l #2286,(sp)
	772	move.l R13,-(sp)
	773	jsr _rd_ec
	774	addq.l #8,sp
	775	tst R0
	776	beq L69
	777	*line 353
	778	*line 354
	779	jsr _clrlsel
	780	*line 355
	781	move #-1,R0
	782	bra L52
	783	*line 356
	784	*line 357
	785	L69:
	786	*line 358
	787	*line 358
	788	move.l #$23c,(sp)
	789	move.l R12,-(sp)
	790	add.l #3366,(sp)
	791	move.l R13,-(sp)
	792	jsr _rd_ec
	793	addq.l #8,sp
	794	tst R0
	795	beq L70
	796	*line 359
	797	*line 360
	798	jsr _clrlsel
	799	*line 361
	800	move #-1,R0
	801	bra L52
	802	*line 362
	803	*line 363
	804	*line 364
	805	*line 365
	806	L70:
	807	*line 366
	808	move #254,(sp)
	809	move.l R12,-(sp)
	810	add.l #2286,(sp)
	811	move.l R12,-(sp)
	812	add.l #1778,(sp)
	813	jsr _memcpyw
	814	addq.l #8,sp
	815	*line 367
	816	move #254,(sp)
	817	move.l R12,-(sp)
	818	add.l #3366,(sp)
	819	move.l R12,-(sp)
	820	add.l #2858,(sp)
	821	jsr _memcpyw
	822	addq.l #8,sp
	823	L65:
	824	*line 342
	825	add #1,R7
	826	L66:
	827	*line 342
	828	cmp #20,R7
	829	blt L67
	830	L64:
	831	*line 370
	832	jsr _clrlsel
	833	*line 371
	834	move.l R13,(sp)
	835	jsr _fclose
	836	*line 372
	837	jsr _postio
	838	*line 373
	839	clr R0
	840	bra L52
	841	L52:tst.l (sp)+
	842	movem.l (sp)+,R7-R7/R12-R13
	843	unlk R14
	844	rts
	845	.globl _wrt_tun
	846	.text
	847	_wrt_tun:
	848	~~wrt_tun:
	849	~slot=8
	850	link R14,#-8
	851	movem.l R6-R7/R13-R13,-(sp)
	852	~fp=R13
	853	~i=R7
	854	~cstemp=-8
	855	*line 393
	856	jsr _preio
	857	*line 395
	858	move.l #L72,(sp)
	859	move #5,-(sp)
	860	move 8(R14),-(sp)
	861	jsr _slotnam
	862	addq.l #4,sp
	863	move.l R0,-(sp)
	864	jsr _fopenb
	865	addq.l #4,sp
	866	move.l R0,R13
	867	*line 397
	868	*line 397
	869	move.l R13,R0
	870	bne L73
	871	*line 398
	872	*line 399
	873	*line 400
	874	*line 401
	875	move #9,(sp)
	876	move #14,-(sp)
	877	clr.l -(sp)
	878	move.l #L75,-(sp)
	879	move.l #L74,-(sp)
	880	jsr _ldermsg
	881	adda.l #14,sp
	882	*line 402
	883	*line 403
	884	jsr _postio
	885	*line 404
	886	jsr _streset
	887	*line 405
	888	move #-1,R0
	889	bra L71
	890	*line 406
	891	*line 407
	892	L73:
	893	*line 408
	894	move #5,(sp)
	895	jsr _makelh
	896	*line 410
	897	clr R7
	898	bra L78
	899	L79:
	900	*line 411
	901	*line 412
	902	move.l #$100,(sp)
	903	move R7,R0
	904	add #1,R0
	905	asl #8,R0
	906	ext.l R0
	907	add.l #_tunlib,R0
	908	move.l R0,-(sp)
	909	jsr _chksum
	910	addq.l #4,sp
	911	add.l R0,_lcsum
	912	*line 413
	913	move.l #$20,(sp)
	914	move R7,R0
	915	add #1,R0
	916	asl #5,R0
	917	ext.l R0
	918	add.l #_tunname,R0
	919	move.l R0,-(sp)
	920	jsr _chksum
	921	addq.l #4,sp
	922	add.l R0,_lcsum
	923	L77:
	924	*line 410
	925	add #1,R7
	926	L78:
	927	*line 410
	928	cmp #9,R7
	929	blt L79
	930	L76:
	931	*line 416
	932	move.l _lcsum,(sp)
	933	move.l #L80,-(sp)
	934	move.l R14,-(sp)
	935	sub.l #8,(sp)
	936	jsr _sprintf
	937	addq.l #8,sp
	938	*line 417
	939	move #8,(sp)
	940	move.l R14,-(sp)
	941	sub.l #8,(sp)
	942	move.l #_ldhead,-(sp)
	943	jsr _memcpy
	944	addq.l #8,sp
	945	*line 426
	946	*line 426
	947	move.l #$38,(sp)
	948	move.l #_ldhead,-(sp)
	949	move.l R13,-(sp)
	950	jsr _wr_ec
	951	addq.l #8,sp
	952	tst R0
	953	beq L81
	954	*line 427
	955	*line 428
	956	jsr _streset
	957	*line 429
	958	move #-1,R0
	959	bra L71
	960	*line 430
	961	*line 431
	962	L81:
	963	*line 432
	964	clr R7
	965	bra L84
	966	L85:
	967	*line 433
	968	*line 434
	969	*line 434
	970	move.l #$100,(sp)
	971	move R7,R0
	972	add #1,R0
	973	asl #8,R0
	974	ext.l R0
	975	add.l #_tunlib,R0
	976	move.l R0,-(sp)
	977	move.l R13,-(sp)
	978	jsr _wr_ec
	979	addq.l #8,sp
	980	tst R0
	981	beq L86
	982	*line 435
	983	*line 436
	984	jsr _streset
	985	*line 437
	986	move #-1,R0
	987	bra L71
	988	*line 438
	989	*line 439
	990	L86:
	991	*line 440
	992	*line 440
	993	move.l #$20,(sp)
	994	move R7,R0
	995	add #1,R0
	996	asl #5,R0
	997	ext.l R0
	998	add.l #_tunname,R0
	999	move.l R0,-(sp)
	1000	move.l R13,-(sp)
	1001	jsr _wr_ec
	1002	addq.l #8,sp
	1003	tst R0
	1004	beq L87
	1005	*line 441
	1006	*line 442
	1007	jsr _streset
	1008	*line 443
	1009	move #-1,R0
	1010	bra L71
	1011	*line 444
	1012	L87:L83:
	1013	*line 432
	1014	add #1,R7
	1015	L84:
	1016	*line 432
	1017	cmp #9,R7
	1018	blt L85
	1019	L82:
	1020	*line 447
	1021	move.l R13,(sp)
	1022	jsr _fclose
	1023	*line 448
	1024	jsr _postio
	1025	*line 449
	1026	clr R0
	1027	bra L71
	1028	L71:tst.l (sp)+
	1029	movem.l (sp)+,R7-R7/R13-R13
	1030	unlk R14
	1031	rts
	1032	.globl _get_tun
	1033	.text
	1034	_get_tun:
	1035	~~get_tun:
	1036	link R14,#0
	1037	movem.l R6-R7/R13-R13,-(sp)
	1038	~fp=R13
	1039	~i=R7
	1040	*line 467
	1041	jsr _preio
	1042	*line 469
	1043	move.l #L89,(sp)
	1044	move #5,-(sp)
	1045	move _ldslot,-(sp)
	1046	jsr _slotnam
	1047	addq.l #4,sp
	1048	move.l R0,-(sp)
	1049	jsr _fopenb
	1050	addq.l #4,sp
	1051	move.l R0,R13
	1052	*line 471
	1053	*line 471
	1054	move.l R13,R0
	1055	bne L90
	1056	*line 472
	1057	*line 473
	1058	*line 474
	1059	*line 475
	1060	move #9,(sp)
	1061	move #14,-(sp)
	1062	clr.l -(sp)
	1063	move.l #L92,-(sp)
	1064	move.l #L91,-(sp)
	1065	jsr _ldermsg
	1066	adda.l #14,sp
	1067	*line 476
	1068	*line 477
	1069	jsr _postio
	1070	*line 478
	1071	jsr _clrlsel
	1072	*line 479
	1073	move #-1,R0
	1074	bra L88
	1075	*line 480
	1076	*line 481
	1077	L90:
	1078	*line 482
	1079	move #8,(sp)
	1080	move.l #L93,-(sp)
	1081	move.l #_ldfile,-(sp)
	1082	jsr _memcpy
	1083	addq.l #8,sp
	1084	*line 483
	1085	move #37,(sp)
	1086	move.l #L94,-(sp)
	1087	move.l #_ldcmnt,-(sp)
	1088	jsr _memcpy
	1089	addq.l #8,sp
	1090	*line 484
	1091	move #3,(sp)
	1092	jsr _ldswin
	1093	*line 485
	1094	move #5,(sp)
	1095	jsr _ldswin
	1096	*line 489
	1097	*line 489
	1098	move.l #$38,(sp)
	1099	move.l #_ldhead,-(sp)
	1100	move.l R13,-(sp)
	1101	jsr _rd_ec
	1102	addq.l #8,sp
	1103	tst R0
	1104	beq L95
	1105	*line 490
	1106	*line 491
	1107	jsr _clrlsel
	1108	*line 492
	1109	move #-1,R0
	1110	bra L88
	1111	*line 493
	1112	*line 494
	1113	*line 498
	1114	*line 499
	1115	*line 500
	1116	L95:
	1117	*line 501
	1118	clr R7
	1119	bra L98
	1120	L99:
	1121	*line 502
	1122	*line 503
	1123	*line 503
	1124	move.l #$100,(sp)
	1125	move R7,R0
	1126	add #1,R0
	1127	asl #8,R0
	1128	ext.l R0
	1129	add.l #_tunlib,R0
	1130	move.l R0,-(sp)
	1131	move.l R13,-(sp)
	1132	jsr _rd_ec
	1133	addq.l #8,sp
	1134	tst R0
	1135	beq L100
	1136	*line 504
	1137	*line 505
	1138	jsr _clrlsel
	1139	*line 506
	1140	move #-1,R0
	1141	bra L88
	1142	*line 507
	1143	*line 508
	1144	L100:
	1145	*line 509
	1146	*line 509
	1147	move.l #$20,(sp)
	1148	move R7,R0
	1149	add #1,R0
	1150	asl #5,R0
	1151	ext.l R0
	1152	add.l #_tunname,R0
	1153	move.l R0,-(sp)
	1154	move.l R13,-(sp)
	1155	jsr _rd_ec
	1156	addq.l #8,sp
	1157	tst R0
	1158	beq L101
	1159	*line 510
	1160	*line 511
	1161	jsr _clrlsel
	1162	*line 512
	1163	move #-1,R0
	1164	bra L88
	1165	*line 513
	1166	L101:L97:
	1167	*line 501
	1168	add #1,R7
	1169	L98:
	1170	*line 501
	1171	cmp #9,R7
	1172	blt L99
	1173	L96:
	1174	*line 516
	1175	jsr _clrlsel
	1176	*line 517
	1177	move.l R13,(sp)
	1178	jsr _fclose
	1179	*line 518
	1180	jsr _postio
	1181	*line 519
	1182	clr R0
	1183	bra L88
	1184	L88:tst.l (sp)+
	1185	movem.l (sp)+,R7-R7/R13-R13
	1186	unlk R14
	1187	rts
	1188	.globl _wrt_pat
	1189	.text
	1190	_wrt_pat:
	1191	~~wrt_pat:
	1192	~slot=8
	1193	link R14,#-8
	1194	movem.l R7-R7/R13-R13,-(sp)
	1195	~fp=R13
	1196	~cstemp=-8
	1197	*line 538
	1198	jsr _preio
	1199	*line 540
	1200	move.l #L103,(sp)
	1201	move #8,-(sp)
	1202	move 8(R14),-(sp)
	1203	jsr _slotnam
	1204	addq.l #4,sp
	1205	move.l R0,-(sp)
	1206	jsr _fopenb
	1207	addq.l #4,sp
	1208	move.l R0,R13
	1209	*line 542
	1210	*line 542
	1211	move.l R13,R0
	1212	bne L104
	1213	*line 543
	1214	*line 544
	1215	*line 545
	1216	*line 546
	1217	move #9,(sp)
	1218	move #14,-(sp)
	1219	clr.l -(sp)
	1220	move.l #L106,-(sp)
	1221	move.l #L105,-(sp)
	1222	jsr _ldermsg
	1223	adda.l #14,sp
	1224	*line 547
	1225	*line 548
	1226	jsr _postio
	1227	*line 549
	1228	jsr _streset
	1229	*line 550
	1230	move #-1,R0
	1231	bra L102
	1232	*line 551
	1233	*line 552
	1234	L104:
	1235	*line 553
	1236	move #8,(sp)
	1237	jsr _makelh
	1238	*line 555
	1239	move.l _lcsum,(sp)
	1240	move.l #L107,-(sp)
	1241	move.l R14,-(sp)
	1242	sub.l #8,(sp)
	1243	jsr _sprintf
	1244	addq.l #8,sp
	1245	*line 556
	1246	move #8,(sp)
	1247	move.l R14,-(sp)
	1248	sub.l #8,(sp)
	1249	move.l #_ldhead,-(sp)
	1250	jsr _memcpy
	1251	addq.l #8,sp
	1252	*line 565
	1253	*line 565
	1254	move.l #$38,(sp)
	1255	move.l #_ldhead,-(sp)
	1256	move.l R13,-(sp)
	1257	jsr _wr_ec
	1258	addq.l #8,sp
	1259	tst R0
	1260	beq L108
	1261	*line 566
	1262	*line 567
	1263	jsr _streset
	1264	*line 568
	1265	move #-1,R0
	1266	bra L102
	1267	*line 569
	1268	*line 570
	1269	L108:
	1270	*line 571
	1271	*line 571
	1272	move.l R13,(sp)
	1273	jsr _ptwrite
	1274	tst R0
	1275	beq L109
	1276	*line 572
	1277	*line 573
	1278	jsr _streset
	1279	*line 574
	1280	move #-1,R0
	1281	bra L102
	1282	*line 575
	1283	*line 576
	1284	L109:
	1285	*line 577
	1286	move.l R13,(sp)
	1287	jsr _fclose
	1288	*line 578
	1289	jsr _postio
	1290	*line 579
	1291	clr R0
	1292	bra L102
	1293	L102:tst.l (sp)+
	1294	movem.l (sp)+,R13-R13
	1295	unlk R14
	1296	rts
	1297	.globl _get_pat
	1298	.text
	1299	_get_pat:
	1300	~~get_pat:
	1301	link R14,#0
	1302	movem.l R7-R7/R13-R13,-(sp)
	1303	~fp=R13
	1304	*line 596
	1305	jsr _preio
	1306	*line 598
	1307	move.l #L111,(sp)
	1308	move #8,-(sp)
	1309	move _ldslot,-(sp)
	1310	jsr _slotnam
	1311	addq.l #4,sp
	1312	move.l R0,-(sp)
	1313	jsr _fopenb
	1314	addq.l #4,sp
	1315	move.l R0,R13
	1316	*line 600
	1317	*line 600
	1318	move.l R13,R0
	1319	bne L112
	1320	*line 601
	1321	*line 602
	1322	*line 603
	1323	*line 604
	1324	move #9,(sp)
	1325	move #14,-(sp)
	1326	clr.l -(sp)
	1327	move.l #L114,-(sp)
	1328	move.l #L113,-(sp)
	1329	jsr _ldermsg
	1330	adda.l #14,sp
	1331	*line 605
	1332	*line 606
	1333	jsr _postio
	1334	*line 607
	1335	jsr _clrlsel
	1336	*line 608
	1337	move #-1,R0
	1338	bra L110
	1339	*line 609
	1340	*line 610
	1341	L112:
	1342	*line 611
	1343	move #8,(sp)
	1344	move.l #L115,-(sp)
	1345	move.l #_ldfile,-(sp)
	1346	jsr _memcpy
	1347	addq.l #8,sp
	1348	*line 612
	1349	move #37,(sp)
	1350	move.l #L116,-(sp)
	1351	move.l #_ldcmnt,-(sp)
	1352	jsr _memcpy
	1353	addq.l #8,sp
	1354	*line 613
	1355	move #3,(sp)
	1356	jsr _ldswin
	1357	*line 614
	1358	move #5,(sp)
	1359	jsr _ldswin
	1360	*line 618
	1361	*line 618
	1362	move.l #$38,(sp)
	1363	move.l #_ldhead,-(sp)
	1364	move.l R13,-(sp)
	1365	jsr _rd_ec
	1366	addq.l #8,sp
	1367	tst R0
	1368	beq L117
	1369	*line 619
	1370	*line 620
	1371	jsr _clrlsel
	1372	*line 621
	1373	move #-1,R0
	1374	bra L110
	1375	*line 622
	1376	*line 623
	1377	*line 627
	1378	*line 628
	1379	L117:
	1380	*line 629
	1381	*line 630
	1382	tst _lrasw
	1383	bne L118
	1384	*line 630
	1385	jsr _initpt
	1386	*line 631
	1387	L118:
	1388	*line 632
	1389	*line 632
	1390	move.l R13,(sp)
	1391	jsr _ptread
	1392	tst R0
	1393	beq L119
	1394	*line 633
	1395	*line 634
	1396	jsr _clrlsel
	1397	*line 635
	1398	move #-1,R0
	1399	bra L110
	1400	*line 636
	1401	*line 637
	1402	L119:
	1403	*line 638
	1404	move.l R13,(sp)
	1405	jsr _fclose
	1406	*line 639
	1407	jsr _postio
	1408	*line 640
	1409	jsr _clrlsel
	1410	*line 641
	1411	clr R0
	1412	bra L110
	1413	L110:tst.l (sp)+
	1414	movem.l (sp)+,R13-R13
	1415	unlk R14
	1416	rts
	1417	.globl _wrt_scr
	1418	.text
	1419	_wrt_scr:
	1420	~~wrt_scr:
	1421	~slot=8
	1422	link R14,#-12
	1423	movem.l R6-R7/R13-R13,-(sp)
	1424	~fp=R13
	1425	~i=R7
	1426	~tnb=-4
	1427	~cstemp=-12
	1428	*line 662
	1429	jsr _preio
	1430	*line 664
	1431	move.l #L121,(sp)
	1432	move #4,-(sp)
	1433	move 8(R14),-(sp)
	1434	jsr _slotnam
	1435	addq.l #4,sp
	1436	move.l R0,-(sp)
	1437	jsr _fopenb
	1438	addq.l #4,sp
	1439	move.l R0,R13
	1440	*line 666
	1441	*line 666
	1442	move.l R13,R0
	1443	bne L122
	1444	*line 667
	1445	*line 668
	1446	*line 669
	1447	*line 670
	1448	move #9,(sp)
	1449	move #14,-(sp)
	1450	clr.l -(sp)
	1451	move.l #L124,-(sp)
	1452	move.l #L123,-(sp)
	1453	jsr _ldermsg
	1454	adda.l #14,sp
	1455	*line 671
	1456	*line 672
	1457	jsr _postio
	1458	*line 673
	1459	jsr _streset
	1460	*line 674
	1461	move #-1,R0
	1462	bra L120
	1463	*line 675
	1464	*line 676
	1465	L122:
	1466	*line 677
	1467	move #4,(sp)
	1468	jsr _makelh
	1469	*line 679
	1470	move.l _sntlreq,R0
	1471	add.l R0,_lcsum
	1472	*line 681
	1473	move.l _lcsum,(sp)
	1474	move.l #L125,-(sp)
	1475	move.l R14,-(sp)
	1476	add.l #-12,(sp)
	1477	jsr _sprintf
	1478	addq.l #8,sp
	1479	*line 682
	1480	move #8,(sp)
	1481	move.l R14,-(sp)
	1482	add.l #-12,(sp)
	1483	move.l #_ldhead,-(sp)
	1484	jsr _memcpy
	1485	addq.l #8,sp
	1486	*line 691
	1487	*line 691
	1488	move.l #$38,(sp)
	1489	move.l #_ldhead,-(sp)
	1490	move.l R13,-(sp)
	1491	jsr _wr_ec
	1492	addq.l #8,sp
	1493	tst R0
	1494	beq L126
	1495	*line 692
	1496	*line 693
	1497	jsr _streset
	1498	*line 694
	1499	move #-1,R0
	1500	bra L120
	1501	*line 695
	1502	*line 696
	1503	L126:
	1504	*line 697
	1505	*line 697
	1506	move.l #$4,(sp)
	1507	move.l #_sntlreq,-(sp)
	1508	move.l R13,-(sp)
	1509	jsr _wr_ec
	1510	addq.l #8,sp
	1511	tst R0
	1512	beq L127
	1513	*line 698
	1514	*line 699
	1515	jsr _streset
	1516	*line 700
	1517	move #-1,R0
	1518	bra L120
	1519	*line 701
	1520	*line 702
	1521	L127:
	1522	*line 703
	1523	clr R7
	1524	bra L130
	1525	L131:
	1526	*line 704
	1527	*line 705
	1528	*line 705
	1529	move.l R13,(sp)
	1530	move R7,-(sp)
	1531	jsr _scwrite
	1532	addq.l #2,sp
	1533	tst R0
	1534	beq L132
	1535	*line 706
	1536	*line 707
	1537	jsr _streset
	1538	*line 708
	1539	move #-1,R0
	1540	bra L120
	1541	*line 709
	1542	L132:L129:
	1543	*line 703
	1544	add #1,R7
	1545	L130:
	1546	*line 703
	1547	cmp #20,R7
	1548	blt L131
	1549	L128:
	1550	*line 712
	1551	move.l R13,(sp)
	1552	jsr _fclose
	1553	*line 713
	1554	jsr _postio
	1555	*line 714
	1556	clr R0
	1557	bra L120
	1558	L120:tst.l (sp)+
	1559	movem.l (sp)+,R7-R7/R13-R13
	1560	unlk R14
	1561	rts
	1562	.globl _get_scr
	1563	.text
	1564	_get_scr:
	1565	~~get_scr:
	1566	link R14,#-4
	1567	movem.l R6-R7/R13-R13,-(sp)
	1568	~fp=R13
	1569	~i=R7
	1570	~tnl=-4
	1571	*line 733
	1572	jsr _preio
	1573	*line 735
	1574	move.l #L134,(sp)
	1575	move #4,-(sp)
	1576	move _ldslot,-(sp)
	1577	jsr _slotnam
	1578	addq.l #4,sp
	1579	move.l R0,-(sp)
	1580	jsr _fopenb
	1581	addq.l #4,sp
	1582	move.l R0,R13
	1583	*line 737
	1584	*line 737
	1585	move.l R13,R0
	1586	bne L135
	1587	*line 738
	1588	*line 739
	1589	*line 740
	1590	*line 741
	1591	move #9,(sp)
	1592	move #14,-(sp)
	1593	clr.l -(sp)
	1594	move.l #L137,-(sp)
	1595	move.l #L136,-(sp)
	1596	jsr _ldermsg
	1597	adda.l #14,sp
	1598	*line 742
	1599	*line 743
	1600	jsr _postio
	1601	*line 744
	1602	jsr _clrlsel
	1603	*line 745
	1604	move #-1,R0
	1605	bra L133
	1606	*line 746
	1607	*line 747
	1608	L135:
	1609	*line 748
	1610	move #8,(sp)
	1611	move.l #L138,-(sp)
	1612	move.l #_ldfile,-(sp)
	1613	jsr _memcpy
	1614	addq.l #8,sp
	1615	*line 749
	1616	move #37,(sp)
	1617	move.l #L139,-(sp)
	1618	move.l #_ldcmnt,-(sp)
	1619	jsr _memcpy
	1620	addq.l #8,sp
	1621	*line 750
	1622	move #3,(sp)
	1623	jsr _ldswin
	1624	*line 751
	1625	move #5,(sp)
	1626	jsr _ldswin
	1627	*line 755
	1628	*line 755
	1629	move.l #$38,(sp)
	1630	move.l #_ldhead,-(sp)
	1631	move.l R13,-(sp)
	1632	jsr _rd_ec
	1633	addq.l #8,sp
	1634	tst R0
	1635	beq L140
	1636	*line 756
	1637	*line 757
	1638	jsr _clrlsel
	1639	*line 758
	1640	move #-1,R0
	1641	bra L133
	1642	*line 759
	1643	*line 760
	1644	*line 764
	1645	*line 765
	1646	*line 766
	1647	L140:
	1648	*line 767
	1649	*line 767
	1650	move.l #$4,(sp)
	1651	move.l R14,-(sp)
	1652	sub.l #4,(sp)
	1653	move.l R13,-(sp)
	1654	jsr _rd_ec
	1655	addq.l #8,sp
	1656	tst R0
	1657	beq L141
	1658	*line 768
	1659	*line 769
	1660	jsr _clrlsel
	1661	*line 770
	1662	move #-1,R0
	1663	bra L133
	1664	*line 771
	1665	*line 772
	1666	L141:
	1667	*line 773
	1668	*line 774
	1669	tst _lrasw
	1670	bne L142
	1671	*line 774
	1672	jsr _scinit
	1673	*line 775
	1674	L142:
	1675	*line 776
	1676	clr R7
	1677	bra L145
	1678	L146:
	1679	*line 777
	1680	*line 778
	1681	*line 778
	1682	move.l R13,(sp)
	1683	move R7,-(sp)
	1684	jsr _scread
	1685	addq.l #2,sp
	1686	tst R0
	1687	beq L147
	1688	*line 779
	1689	*line 780
	1690	jsr _clrlsel
	1691	*line 781
	1692	move #-1,R0
	1693	bra L133
	1694	*line 782
	1695	L147:L144:
	1696	*line 776
	1697	add #1,R7
	1698	L145:
	1699	*line 776
	1700	cmp #20,R7
	1701	blt L146
	1702	L143:
	1703	*line 785
	1704	move.l R13,(sp)
	1705	jsr _fclose
	1706	*line 786
	1707	jsr _postio
	1708	*line 788
	1709	clr.l R0
	1710	move.l R0,_scp
	1711	move.l R0,_p_fwd
	1712	move.l R0,_p_ctr
	1713	move.l R0,_p_cur
	1714	move.l R0,_p_bak
	1715	*line 789
	1716	clr.l R0
	1717	move.l R0,_t_ctr
	1718	move.l R0,_t_cur
	1719	*line 790
	1720	move.l _t_cur,R0
	1721	add.l #$ffffff10,R0
	1722	move.l R0,_t_bak
	1723	*line 791
	1724	move.l _t_cur,R0
	1725	add.l #$102,R0
	1726	move.l R0,_t_fwd
	1727	*line 793
	1728	clr (sp)
	1729	jsr _selscor
	1730	*line 795
	1731	jsr _clrlsel
	1732	*line 796
	1733	clr R0
	1734	bra L133
	1735	L133:tst.l (sp)+
	1736	movem.l (sp)+,R7-R7/R13-R13
	1737	unlk R14
	1738	rts
	1739	.globl _wrt_seq
	1740	.text
	1741	_wrt_seq:
	1742	~~wrt_seq:
	1743	~slot=8
	1744	link R14,#-8
	1745	movem.l R7-R7/R13-R13,-(sp)
	1746	~fp=R13
	1747	~cstemp=-8
	1748	*line 815
	1749	jsr _preio
	1750	*line 817
	1751	move.l #L149,(sp)
	1752	move #9,-(sp)
	1753	move 8(R14),-(sp)
	1754	jsr _slotnam
	1755	addq.l #4,sp
	1756	move.l R0,-(sp)
	1757	jsr _fopenb
	1758	addq.l #4,sp
	1759	move.l R0,R13
	1760	*line 819
	1761	*line 819
	1762	move.l R13,R0
	1763	bne L150
	1764	*line 820
	1765	*line 821
	1766	*line 822
	1767	*line 823
	1768	move #9,(sp)
	1769	move #14,-(sp)
	1770	clr.l -(sp)
	1771	move.l #L152,-(sp)
	1772	move.l #L151,-(sp)
	1773	jsr _ldermsg
	1774	adda.l #14,sp
	1775	*line 824
	1776	*line 825
	1777	jsr _postio
	1778	*line 826
	1779	jsr _streset
	1780	*line 827
	1781	move #-1,R0
	1782	bra L148
	1783	*line 828
	1784	*line 829
	1785	L150:
	1786	*line 830
	1787	move #9,(sp)
	1788	jsr _makelh
	1789	*line 832
	1790	move.l _lcsum,(sp)
	1791	move.l #L153,-(sp)
	1792	move.l R14,-(sp)
	1793	sub.l #8,(sp)
	1794	jsr _sprintf
	1795	addq.l #8,sp
	1796	*line 833
	1797	move #8,(sp)
	1798	move.l R14,-(sp)
	1799	sub.l #8,(sp)
	1800	move.l #_ldhead,-(sp)
	1801	jsr _memcpy
	1802	addq.l #8,sp
	1803	*line 842
	1804	*line 842
	1805	move.l #$38,(sp)
	1806	move.l #_ldhead,-(sp)
	1807	move.l R13,-(sp)
	1808	jsr _wr_ec
	1809	addq.l #8,sp
	1810	tst R0
	1811	beq L154
	1812	*line 843
	1813	*line 844
	1814	jsr _streset
	1815	*line 845
	1816	move #-1,R0
	1817	bra L148
	1818	*line 846
	1819	*line 847
	1820	L154:
	1821	*line 848
	1822	*line 848
	1823	move.l R13,(sp)
	1824	jsr _sqwrite
	1825	tst R0
	1826	beq L155
	1827	*line 849
	1828	*line 850
	1829	jsr _streset
	1830	*line 851
	1831	move #-1,R0
	1832	bra L148
	1833	*line 852
	1834	*line 853
	1835	L155:
	1836	*line 854
	1837	move.l R13,(sp)
	1838	jsr _fclose
	1839	*line 855
	1840	jsr _postio
	1841	*line 856
	1842	clr R0
	1843	bra L148
	1844	L148:tst.l (sp)+
	1845	movem.l (sp)+,R13-R13
	1846	unlk R14
	1847	rts
	1848	.globl _get_seq
	1849	.text
	1850	_get_seq:
	1851	~~get_seq:
	1852	link R14,#0
	1853	movem.l R7-R7/R13-R13,-(sp)
	1854	~fp=R13
	1855	*line 873
	1856	jsr _preio
	1857	*line 875
	1858	move.l #L157,(sp)
	1859	move #9,-(sp)
	1860	move _ldslot,-(sp)
	1861	jsr _slotnam
	1862	addq.l #4,sp
	1863	move.l R0,-(sp)
	1864	jsr _fopenb
	1865	addq.l #4,sp
	1866	move.l R0,R13
	1867	*line 877
	1868	*line 877
	1869	move.l R13,R0
	1870	bne L158
	1871	*line 878
	1872	*line 879
	1873	*line 880
	1874	*line 881
	1875	move #9,(sp)
	1876	move #14,-(sp)
	1877	clr.l -(sp)
	1878	move.l #L160,-(sp)
	1879	move.l #L159,-(sp)
	1880	jsr _ldermsg
	1881	adda.l #14,sp
	1882	*line 882
	1883	*line 883
	1884	jsr _postio
	1885	*line 884
	1886	jsr _clrlsel
	1887	*line 885
	1888	move #-1,R0
	1889	bra L156
	1890	*line 886
	1891	*line 887
	1892	L158:
	1893	*line 888
	1894	move #8,(sp)
	1895	move.l #L161,-(sp)
	1896	move.l #_ldfile,-(sp)
	1897	jsr _memcpy
	1898	addq.l #8,sp
	1899	*line 889
	1900	move #37,(sp)
	1901	move.l #L162,-(sp)
	1902	move.l #_ldcmnt,-(sp)
	1903	jsr _memcpy
	1904	addq.l #8,sp
	1905	*line 890
	1906	move #3,(sp)
	1907	jsr _ldswin
	1908	*line 891
	1909	move #5,(sp)
	1910	jsr _ldswin
	1911	*line 895
	1912	*line 895
	1913	move.l #$38,(sp)
	1914	move.l #_ldhead,-(sp)
	1915	move.l R13,-(sp)
	1916	jsr _rd_ec
	1917	addq.l #8,sp
	1918	tst R0
	1919	beq L163
	1920	*line 896
	1921	*line 897
	1922	jsr _clrlsel
	1923	*line 898
	1924	move #-1,R0
	1925	bra L156
	1926	*line 899
	1927	*line 900
	1928	*line 904
	1929	*line 905
	1930	L163:
	1931	*line 906
	1932	jsr _initsq
	1933	*line 908
	1934	*line 908
	1935	move.l R13,(sp)
	1936	jsr _sqread
	1937	tst R0
	1938	beq L164
	1939	*line 909
	1940	*line 910
	1941	jsr _clrlsel
	1942	*line 911
	1943	move #-1,R0
	1944	bra L156
	1945	*line 912
	1946	*line 913
	1947	L164:
	1948	*line 914
	1949	move.l R13,(sp)
	1950	jsr _fclose
	1951	*line 915
	1952	jsr _postio
	1953	*line 916
	1954	jsr _clrlsel
	1955	*line 917
	1956	clr R0
	1957	bra L156
	1958	L156:tst.l (sp)+
	1959	movem.l (sp)+,R13-R13
	1960	unlk R14
	1961	rts
	1962	.globl _wrt_wav
	1963	.text
	1964	_wrt_wav:
	1965	~~wrt_wav:
	1966	~slot=8
	1967	link R14,#-8
	1968	movem.l R6-R7/R12-R13,-(sp)
	1969	~fp=R13
	1970	~i=R7
	1971	~cstemp=-8
	1972	~wp=R12
	1973	*line 938
	1974	jsr _preio
	1975	*line 940
	1976	move.l #L166,(sp)
	1977	move #6,-(sp)
	1978	move 8(R14),-(sp)
	1979	jsr _slotnam
	1980	addq.l #4,sp
	1981	move.l R0,-(sp)
	1982	jsr _fopenb
	1983	addq.l #4,sp
	1984	move.l R0,R13
	1985	*line 942
	1986	*line 942
	1987	move.l R13,R0
	1988	bne L167
	1989	*line 943
	1990	*line 944
	1991	*line 945
	1992	*line 946
	1993	move #9,(sp)
	1994	move #14,-(sp)
	1995	clr.l -(sp)
	1996	move.l #L169,-(sp)
	1997	move.l #L168,-(sp)
	1998	jsr _ldermsg
	1999	adda.l #14,sp
	2000	*line 947
	2001	*line 948
	2002	jsr _postio
	2003	*line 949
	2004	jsr _streset
	2005	*line 950
	2006	move #-1,R0
	2007	bra L165
	2008	*line 951
	2009	*line 952
	2010	L167:
	2011	*line 953
	2012	move #6,(sp)
	2013	jsr _makelh
	2014	*line 955
	2015	clr R7
	2016	bra L172
	2017	L173:
	2018	*line 956
	2019	*line 957
	2020	move R7,R0
	2021	muls #1080,R0
	2022	move.l R0,R12
	2023	add.l #_wslib,R12
	2024	*line 958
	2025	*line 959
	2026	move.l #$1fc,(sp)
	2027	move.l R12,-(sp)
	2028	add.l #508,(sp)
	2029	jsr _chksum
	2030	addq.l #4,sp
	2031	add.l R0,_lcsum
	2032	*line 960
	2033	move.l #$40,(sp)
	2034	move.l R12,-(sp)
	2035	add.l #1016,(sp)
	2036	jsr _chksum
	2037	addq.l #4,sp
	2038	add.l R0,_lcsum
	2039	L171:
	2040	*line 955
	2041	add #1,R7
	2042	L172:
	2043	*line 955
	2044	cmp #20,R7
	2045	blt L173
	2046	L170:
	2047	*line 963
	2048	move.l _lcsum,(sp)
	2049	move.l #L174,-(sp)
	2050	move.l R14,-(sp)
	2051	sub.l #8,(sp)
	2052	jsr _sprintf
	2053	addq.l #8,sp
	2054	*line 964
	2055	move #8,(sp)
	2056	move.l R14,-(sp)
	2057	sub.l #8,(sp)
	2058	move.l #_ldhead,-(sp)
	2059	jsr _memcpy
	2060	addq.l #8,sp
	2061	*line 973
	2062	*line 973
	2063	move.l #$38,(sp)
	2064	move.l #_ldhead,-(sp)
	2065	move.l R13,-(sp)
	2066	jsr _wr_ec
	2067	addq.l #8,sp
	2068	tst R0
	2069	beq L175
	2070	*line 974
	2071	*line 975
	2072	jsr _streset
	2073	*line 976
	2074	move #-1,R0
	2075	bra L165
	2076	*line 977
	2077	*line 978
	2078	L175:
	2079	*line 979
	2080	clr R7
	2081	bra L178
	2082	L179:
	2083	*line 980
	2084	*line 981
	2085	move R7,R0
	2086	muls #1080,R0
	2087	move.l R0,R12
	2088	add.l #_wslib,R12
	2089	*line 982
	2090	*line 983
	2091	*line 983
	2092	move.l #$1fc,(sp)
	2093	move.l R12,-(sp)
	2094	add.l #508,(sp)
	2095	move.l R13,-(sp)
	2096	jsr _wr_ec
	2097	addq.l #8,sp
	2098	tst R0
	2099	beq L180
	2100	*line 984
	2101	*line 985
	2102	jsr _streset
	2103	*line 986
	2104	move #-1,R0
	2105	bra L165
	2106	*line 987
	2107	*line 988
	2108	L180:
	2109	*line 989
	2110	*line 989
	2111	move.l #$40,(sp)
	2112	move.l R12,-(sp)
	2113	add.l #1016,(sp)
	2114	move.l R13,-(sp)
	2115	jsr _wr_ec
	2116	addq.l #8,sp
	2117	tst R0
	2118	beq L181
	2119	*line 990
	2120	*line 991
	2121	jsr _streset
	2122	*line 992
	2123	move #-1,R0
	2124	bra L165
	2125	*line 993
	2126	L181:L177:
	2127	*line 979
	2128	add #1,R7
	2129	L178:
	2130	*line 979
	2131	cmp #20,R7
	2132	blt L179
	2133	L176:
	2134	*line 996
	2135	move.l R13,(sp)
	2136	jsr _fclose
	2137	*line 997
	2138	jsr _postio
	2139	*line 998
	2140	clr R0
	2141	bra L165
	2142	L165:tst.l (sp)+
	2143	movem.l (sp)+,R7-R7/R12-R13
	2144	unlk R14
	2145	rts
	2146	.globl _get_wav
	2147	.text
	2148	_get_wav:
	2149	~~get_wav:
	2150	link R14,#0
	2151	movem.l R6-R7/R12-R13,-(sp)
	2152	~fp=R13
	2153	~i=R7
	2154	~wp=R12
	2155	*line 1017
	2156	jsr _preio
	2157	*line 1019
	2158	move.l #L183,(sp)
	2159	move #6,-(sp)
	2160	move _ldslot,-(sp)
	2161	jsr _slotnam
	2162	addq.l #4,sp
	2163	move.l R0,-(sp)
	2164	jsr _fopenb
	2165	addq.l #4,sp
	2166	move.l R0,R13
	2167	*line 1021
	2168	*line 1021
	2169	move.l R13,R0
	2170	bne L184
	2171	*line 1022
	2172	*line 1023
	2173	*line 1024
	2174	*line 1025
	2175	move #9,(sp)
	2176	move #14,-(sp)
	2177	clr.l -(sp)
	2178	move.l #L186,-(sp)
	2179	move.l #L185,-(sp)
	2180	jsr _ldermsg
	2181	adda.l #14,sp
	2182	*line 1026
	2183	*line 1027
	2184	jsr _postio
	2185	*line 1028
	2186	jsr _clrlsel
	2187	*line 1029
	2188	move #-1,R0
	2189	bra L182
	2190	*line 1030
	2191	*line 1031
	2192	L184:
	2193	*line 1032
	2194	move #8,(sp)
	2195	move.l #L187,-(sp)
	2196	move.l #_ldfile,-(sp)
	2197	jsr _memcpy
	2198	addq.l #8,sp
	2199	*line 1033
	2200	move #37,(sp)
	2201	move.l #L188,-(sp)
	2202	move.l #_ldcmnt,-(sp)
	2203	jsr _memcpy
	2204	addq.l #8,sp
	2205	*line 1034
	2206	move #3,(sp)
	2207	jsr _ldswin
	2208	*line 1035
	2209	move #5,(sp)
	2210	jsr _ldswin
	2211	*line 1039
	2212	*line 1039
	2213	move.l #$38,(sp)
	2214	move.l #_ldhead,-(sp)
	2215	move.l R13,-(sp)
	2216	jsr _rd_ec
	2217	addq.l #8,sp
	2218	tst R0
	2219	beq L189
	2220	*line 1040
	2221	*line 1041
	2222	jsr _clrlsel
	2223	*line 1042
	2224	move #-1,R0
	2225	bra L182
	2226	*line 1043
	2227	*line 1044
	2228	*line 1048
	2229	*line 1049
	2230	*line 1050
	2231	L189:
	2232	*line 1051
	2233	clr R7
	2234	bra L192
	2235	L193:
	2236	*line 1052
	2237	*line 1053
	2238	move R7,R0
	2239	muls #1080,R0
	2240	move.l R0,R12
	2241	add.l #_wslib,R12
	2242	*line 1054
	2243	*line 1055
	2244	*line 1055
	2245	move.l #$1fc,(sp)
	2246	move.l R12,-(sp)
	2247	add.l #508,(sp)
	2248	move.l R13,-(sp)
	2249	jsr _rd_ec
	2250	addq.l #8,sp
	2251	tst R0
	2252	beq L194
	2253	*line 1056
	2254	*line 1057
	2255	jsr _clrlsel
	2256	*line 1058
	2257	move #-1,R0
	2258	bra L182
	2259	*line 1059
	2260	*line 1060
	2261	L194:
	2262	*line 1061
	2263	*line 1061
	2264	move.l #$40,(sp)
	2265	move.l R12,-(sp)
	2266	add.l #1016,(sp)
	2267	move.l R13,-(sp)
	2268	jsr _rd_ec
	2269	addq.l #8,sp
	2270	tst R0
	2271	beq L195
	2272	*line 1062
	2273	*line 1063
	2274	jsr _clrlsel
	2275	*line 1064
	2276	move #-1,R0
	2277	bra L182
	2278	*line 1065
	2279	*line 1066
	2280	*line 1067
	2281	*line 1068
	2282	L195:
	2283	*line 1069
	2284	move #254,(sp)
	2285	move.l R12,-(sp)
	2286	add.l #508,(sp)
	2287	move.l R12,-(sp)
	2288	jsr _memcpyw
	2289	addq.l #8,sp
	2290	L191:
	2291	*line 1051
	2292	add #1,R7
	2293	L192:
	2294	*line 1051
	2295	cmp #20,R7
	2296	blt L193
	2297	L190:
	2298	*line 1072
	2299	jsr _clrlsel
	2300	*line 1073
	2301	move.l R13,(sp)
	2302	jsr _fclose
	2303	*line 1074
	2304	jsr _postio
	2305	*line 1075
	2306	clr R0
	2307	bra L182
	2308	L182:tst.l (sp)+
	2309	movem.l (sp)+,R7-R7/R12-R13
	2310	unlk R14
	2311	rts
	2312	.data
	2313	L2:.dc.b $77,$0
	2314	L4:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
	2315	L5:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$61,$73,$73,$69,$67,$6E,$6D,$65,$6E,$74,$73,$0
	2316	L10:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
	2317	L18:.dc.b $72,$0
	2318	L20:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$6F,$70,$65,$6E,$20,$74,$68,$65,$20,$66,$69,$6C,$65,$0
	2319	L21:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$61,$73,$73,$69,$67,$6E,$6D,$65,$6E,$74,$73,$0
	2320	L22:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
	2321	L23:.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
	2322	.dc.b $20,$20,$20,$20,$20,$20,$20,$0
	2323	L32:.dc.b $20,$20,$20,$20,$20,$20,$20,$57,$72,$69,$74,$69,$6E,$67,$20,$48,$69,$20,$4F,$72,$63,$68,$0
	2324	L34:.dc.b $20,$20,$20,$20,$20,$20,$20,$57,$72,$69,$74,$69,$6E,$67,$20,$4C,$6F,$20,$4F,$72,$63,$68,$0
	2325	L35:.dc.b $77,$0
	2326	L37:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
	2327	L38:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$6F,$72,$63,$68,$65,$73,$74,$72,$61,$0
	2328	L43:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
	2329	L54:.dc.b $20,$20,$20,$20,$20,$20,$20,$52,$65,$61,$64,$69,$6E,$67,$20,$48,$69,$20,$4F,$72,$63,$68,$0
	2330	L56:.dc.b $20,$20,$20,$20,$20,$20,$20,$52,$65,$61,$64,$69,$6E,$67,$20,$4C,$6F,$20,$4F,$72,$63,$68,$0
	2331	L57:.dc.b $72,$0
	2332	L59:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$6F,$70,$65,$6E,$20,$74,$68,$65,$20,$66,$69,$6C,$65,$0
	2333	L60:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$6F,$72,$63,$68,$65,$73,$74,$72,$61,$0
	2334	L61:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
	2335	L62:.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
	2336	.dc.b $20,$20,$20,$20,$20,$20,$20,$0
	2337	L72:.dc.b $77,$0
	2338	L74:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
	2339	L75:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$74,$75,$6E,$69,$6E,$67,$73,$0
	2340	L80:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
	2341	L89:.dc.b $72,$0
	2342	L91:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$6F,$70,$65,$6E,$20,$74,$68,$65,$20,$66,$69,$6C,$65,$0
	2343	L92:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$74,$75,$6E,$69,$6E,$67,$73,$0
	2344	L93:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
	2345	L94:.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
	2346	.dc.b $20,$20,$20,$20,$20,$20,$20,$0
	2347	L103:.dc.b $77,$0
	2348	L105:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
	2349	L106:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$70,$61,$74,$63,$68,$65,$73,$0
	2350	L107:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
	2351	L111:.dc.b $72,$0
	2352	L113:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$6F,$70,$65,$6E,$20,$74,$68,$65,$20,$66,$69,$6C,$65,$0
	2353	L114:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$70,$61,$74,$63,$68,$65,$73,$0
	2354	L115:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
	2355	L116:.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
	2356	.dc.b $20,$20,$20,$20,$20,$20,$20,$0
	2357	L121:.dc.b $77,$0
	2358	L123:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
	2359	L124:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$73,$63,$6F,$72,$65,$73,$0
	2360	L125:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
	2361	L134:.dc.b $72,$0
	2362	L136:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$6F,$70,$65,$6E,$20,$74,$68,$65,$20,$66,$69,$6C,$65,$0
	2363	L137:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$73,$63,$6F,$72,$65,$73,$0
	2364	L138:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
	2365	L139:.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
	2366	.dc.b $20,$20,$20,$20,$20,$20,$20,$0
	2367	L149:.dc.b $77,$0
	2368	L151:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
	2369	L152:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$73,$65,$71,$75,$65,$6E,$63,$65,$73,$0
	2370	L153:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
	2371	L157:.dc.b $72,$0
	2372	L159:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$6F,$70,$65,$6E,$20,$74,$68,$65,$20,$66,$69,$6C,$65,$0
	2373	L160:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$73,$65,$71,$75,$65,$6E,$63,$65,$73,$0
	2374	L161:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
	2375	L162:.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
	2376	.dc.b $20,$20,$20,$20,$20,$20,$20,$0
	2377	L166:.dc.b $77,$0
	2378	L168:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$63,$72,$65,$61,$74,$65,$20,$61,$20,$66,$69,$6C,$65,$0
	2379	L169:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$77,$61,$76,$65,$73,$68,$61,$70,$65,$73,$0
	2380	L174:.dc.b $25,$30,$38,$2E,$38,$6C,$58,$0
	2381	L183:.dc.b $72,$0
	2382	L185:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$6F,$70,$65,$6E,$20,$74,$68,$65,$20,$66,$69,$6C,$65,$0
	2383	L186:.dc.b $20,$66,$6F,$72,$20,$74,$68,$65,$20,$77,$61,$76,$65,$73,$68,$61,$70,$65,$73,$0
	2384	L187:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$0
	2385	L188:.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
	2386	.dc.b $20,$20,$20,$20,$20,$20,$20,$0

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

Download in other formats:

Original Format