Context Navigation

etiosc.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: 29.5 KB

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

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

Download in other formats:

Original Format