Context Navigation

etiact.s@ 4b63bf3

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

Rev	Line
[7bf3856]	1	.globl _ebflag
	2	.globl _ebuf
	3	.globl _curfet
	4	.globl _cfetp
	5	.globl _infetp
	6	.globl _stcrow
	7	.globl _stccol
	8	.globl _curvce
	9	.globl _curpnt
	10	.globl _curfunc
	11	.globl _debugsw
	12	.globl _idbox
	13	.globl _instob
	14	.globl _dspbuf
	15	.globl _vbufs
	16	.globl _aform
	17	.globl _et_iact
	18	.text
	19	_et_iact:
	20	~~et_iact:
	21	~nn=8
	22	link R14,#0
	23	movem.l R7-R7/R13-R13,-(sp)
	24	~pp=R13
	25	*line 56
	26	move _curvce,R0
	27	muls #3938,R0
	28	move.l R0,R13
	29	move _curpnt,R0
	30	muls #12,R0
	31	add.l R0,R13
	32	add.l #_vbufs,R13
	33	add.l #242,R13
	34	*line 58
	35	move.b 7(R13),R0
	36	ext.w R0
	37	move R0,_aform
	38	*line 60
	39	move _aform,R0
	40	bra L3
	41	*line 61
	42	L4:
	43	*line 62
	44	L5:
	45	*line 63
	46	L6:
	47	*line 64
	48	L7:
	49	*line 65
	50	*line 66
	51	*line 67
	52	clr.b _ebuf
	53	bra L2
	54	*line 68
	55	*line 69
	56	L8:
	57	*line 70
	58	L9:
	59	*line 71
	60	L10:
	61	*line 72
	62	*line 73
	63	*line 74
	64	move.b 8(R13),R0
	65	ext.w R0
	66	move R0,(sp)
	67	move.l #L11,-(sp)
	68	move.l #_ebuf,-(sp)
	69	jsr _sprintf
	70	addq.l #8,sp
	71	bra L2
	72	*line 75
	73	*line 76
	74	L12:
	75	*line 77
	76	*line 78
	77	*line 79
	78	move.b 9(R13),R0
	79	ext.w R0
	80	move R0,(sp)
	81	move.b 8(R13),R0
	82	ext.w R0
	83	move R0,-(sp)
	84	move.l #L13,-(sp)
	85	move.l #_ebuf,-(sp)
	86	jsr _sprintf
	87	adda.l #10,sp
	88	bra L2
	89	*line 80
	90	bra L2
	91	L3:cmp #7,R0
	92	bhi L2
	93	asl #2,R0
	94	move R0,R8
	95	add.l #L14,R8
	96	move.l (R8),R8
	97	jmp (R8)
	98	.data
	99	L14:.dc.l L4
	100	.dc.l L5
	101	.dc.l L6
	102	.dc.l L8
	103	.dc.l L12
	104	.dc.l L9
	105	.dc.l L10
	106	.dc.l L7
	107	.text
	108	L2:
	109	*line 88
	110	move #1,_ebflag
	111	*line 89
	112	clr R0
	113	bra L1
	114	L1:tst.l (sp)+
	115	movem.l (sp)+,R13-R13
	116	unlk R14
	117	rts
	118	.globl _ef_iact
	119	.text
	120	_ef_iact:
	121	~~ef_iact:
	122	~nn=8
	123	link R14,#0
	124	movem.l R4-R7/R12-R13,-(sp)
	125	~i=R7
	126	~tmp1=R6
	127	~tmp2=R5
	128	~pp=R13
	129	~fp=R12
	130	*line 109
	131	move _curvce,R0
	132	muls #3938,R0
	133	move.l R0,R12
	134	move _curfunc,R0
	135	muls #12,R0
	136	add.l R0,R12
	137	add.l #_vbufs,R12
	138	add.l #86,R12
	139	*line 110
	140	move _curvce,R0
	141	muls #3938,R0
	142	move.l R0,R13
	143	move _curpnt,R0
	144	muls #12,R0
	145	add.l R0,R13
	146	add.l #_vbufs,R13
	147	add.l #242,R13
	148	*line 111
	149	clr _ebflag
	150	*line 119
	151	move _aform,R0
	152	bra L17
	153	*line 120
	154	L18:
	155	*line 121
	156	L19:
	157	*line 122
	158	*line 123
	159	*line 124
	160	clr _aform
	161	*line 125
	162	L20:
	163	*line 126
	164	L21:
	165	*line 127
	166	*line 128
	167	*line 129
	168	move _aform,R0
	169	move.b R0,7(R13)
	170	*line 130
	171	*line 135
	172	*line 136
	173	*line 137
	174	jsr _modinst
	175	*line 138
	176	clr R0
	177	bra L15
	178	*line 139
	179	L22:
	180	*line 140
	181	L23:
	182	*line 141
	183	L24:
	184	*line 142
	185	*line 143
	186	*line 144
	187	clr R6
	188	*line 145
	189	*line 146
	190	clr R7
	191	bra L27
	192	L28:
	193	*line 147
	194	muls #10,R6
	195	move.l #_ebuf,R8
	196	move.b 0(R8,R7),R0
	197	ext.w R0
	198	add R0,R6
	199	add #-48,R6
	200	L26:
	201	*line 146
	202	add #1,R7
	203	L27:
	204	*line 146
	205	cmp #2,R7
	206	blt L28
	207	L25:
	208	*line 147
	209	*line 148
	210	*line 149
	211	*line 150
	212	move.b 5(R12),R0
	213	ext.w R0
	214	cmp R0,R6
	215	blt L29
	216	*line 150
	217	move #-1,R0
	218	bra L15
	219	*line 151
	220	L29:
	221	*line 152
	222	move _aform,R0
	223	move.b R0,7(R13)
	224	*line 153
	225	move.b R6,8(R13)
	226	*line 154
	227	clr.b 9(R13)
	228	*line 155
	229	clr.b 10(R13)
	230	*line 156
	231	*line 161
	232	*line 162
	233	*line 163
	234	jsr _modinst
	235	*line 164
	236	clr R0
	237	bra L15
	238	*line 165
	239	*line 166
	240	L30:
	241	*line 167
	242	*line 168
	243	*line 169
	244	clr R6
	245	*line 170
	246	*line 171
	247	clr R7
	248	bra L33
	249	L34:
	250	*line 172
	251	muls #10,R6
	252	move.l #_ebuf,R8
	253	move.b 0(R8,R7),R0
	254	ext.w R0
	255	add R0,R6
	256	add #-48,R6
	257	L32:
	258	*line 171
	259	add #1,R7
	260	L33:
	261	*line 171
	262	cmp #2,R7
	263	blt L34
	264	L31:
	265	*line 172
	266	*line 173
	267	*line 174
	268	*line 175
	269	move.b 5(R12),R0
	270	ext.w R0
	271	cmp R0,R6
	272	blt L35
	273	*line 175
	274	move #-1,R0
	275	bra L15
	276	*line 176
	277	L35:
	278	*line 177
	279	clr R5
	280	*line 178
	281	*line 179
	282	move #3,R7
	283	bra L38
	284	L39:
	285	*line 180
	286	muls #10,R5
	287	move.l #_ebuf,R8
	288	move.b 0(R8,R7),R0
	289	ext.w R0
	290	add R0,R5
	291	add #-48,R5
	292	L37:
	293	*line 179
	294	add #1,R7
	295	L38:
	296	*line 179
	297	cmp #5,R7
	298	blt L39
	299	L36:
	300	*line 180
	301	*line 181
	302	*line 182
	303	move _aform,R0
	304	move.b R0,7(R13)
	305	*line 183
	306	move.b R6,8(R13)
	307	*line 184
	308	move.b R5,9(R13)
	309	*line 185
	310	clr.b 10(R13)
	311	*line 186
	312	*line 191
	313	*line 192
	314	*line 193
	315	jsr _modinst
	316	*line 194
	317	clr R0
	318	bra L15
	319	bra L16
	320	L17:cmp #7,R0
	321	bhi L16
	322	asl #2,R0
	323	move R0,R8
	324	add.l #L40,R8
	325	move.l (R8),R8
	326	jmp (R8)
	327	.data
	328	L40:.dc.l L18
	329	.dc.l L20
	330	.dc.l L21
	331	.dc.l L22
	332	.dc.l L30
	333	.dc.l L23
	334	.dc.l L24
	335	.dc.l L19
	336	.text
	337	L16:L15:tst.l (sp)+
	338	movem.l (sp)+,R5-R7/R12-R13
	339	unlk R14
	340	rts
	341	.globl _rd_iact
	342	.text
	343	_rd_iact:
	344	~~rd_iact:
	345	~nn=8
	346	link R14,#0
	347	movem.l R4-R7/R12-R13,-(sp)
	348	~pnt=R7
	349	~par=R6
	350	~n=R5
	351	~pp=R13
	352	~s1=R12
	353	*line 215
	354	move 8(R14),R5
	355	and #255,R5
	356	*line 216
	357	move _curvce,R0
	358	muls #3938,R0
	359	move.l R0,R13
	360	move _curpnt,R0
	361	muls #12,R0
	362	add.l R0,R13
	363	add.l #_vbufs,R13
	364	add.l #242,R13
	365	*line 217
	366	move.b 8(R13),R7
	367	ext.w R7
	368	*line 218
	369	move.b 9(R13),R6
	370	ext.w R6
	371	*line 219
	372	move.b 7(R13),R0
	373	ext.w R0
	374	move R0,_aform
	375	*line 227
	376	move _aform,R0
	377	bra L43
	378	*line 228
	379	L44:
	380	*line 229
	381	*line 230
	382	*line 231
	383	move.l #L45,R12
	384	bra L42
	385	*line 232
	386	*line 233
	387	L46:
	388	*line 234
	389	*line 235
	390	*line 236
	391	move #170,(sp)
	392	move.l #L47,-(sp)
	393	move.l #_dspbuf,-(sp)
	394	jsr _sprintf
	395	addq.l #8,sp
	396	*line 237
	397	move.l #_dspbuf,R12
	398	bra L42
	399	*line 238
	400	*line 239
	401	L48:
	402	*line 240
	403	*line 241
	404	*line 242
	405	move #171,(sp)
	406	move.l #L49,-(sp)
	407	move.l #_dspbuf,-(sp)
	408	jsr _sprintf
	409	addq.l #8,sp
	410	*line 243
	411	move.l #_dspbuf,R12
	412	bra L42
	413	*line 244
	414	*line 245
	415	L50:
	416	*line 246
	417	*line 247
	418	*line 248
	419	move R7,(sp)
	420	move.l #L51,-(sp)
	421	move.l #_dspbuf,-(sp)
	422	jsr _sprintf
	423	addq.l #8,sp
	424	*line 249
	425	move.l #_dspbuf,R12
	426	bra L42
	427	*line 250
	428	*line 251
	429	*line 252
	430	*line 253
	431	L52:
	432	*line 254
	433	*line 255
	434	*line 256
	435	move R6,(sp)
	436	move R7,-(sp)
	437	move.l #L53,-(sp)
	438	move.l #_dspbuf,-(sp)
	439	jsr _sprintf
	440	adda.l #10,sp
	441	*line 257
	442	*line 258
	443	*line 259
	444	cmp.b #57,8+_dspbuf
	445	bne L54
	446	*line 259
	447	move.b #82,8+_dspbuf
	448	*line 260
	449	L54:
	450	*line 261
	451	move.l #_dspbuf,R12
	452	bra L42
	453	*line 262
	454	*line 263
	455	L55:
	456	*line 264
	457	*line 265
	458	*line 266
	459	move #171,(sp)
	460	move R7,-(sp)
	461	move.l #L56,-(sp)
	462	move.l #_dspbuf,-(sp)
	463	jsr _sprintf
	464	adda.l #10,sp
	465	*line 267
	466	move.l #_dspbuf,R12
	467	bra L42
	468	*line 268
	469	*line 269
	470	L57:
	471	*line 270
	472	*line 271
	473	*line 272
	474	move #170,(sp)
	475	move R7,-(sp)
	476	move.l #L58,-(sp)
	477	move.l #_dspbuf,-(sp)
	478	jsr _sprintf
	479	adda.l #10,sp
	480	*line 273
	481	move.l #_dspbuf,R12
	482	bra L42
	483	*line 274
	484	*line 275
	485	L59:
	486	*line 276
	487	*line 277
	488	*line 278
	489	move.l #L60,R12
	490	bra L42
	491	*line 279
	492	bra L42
	493	L43:cmp #6,R0
	494	bhi L59
	495	asl #2,R0
	496	move R0,R8
	497	add.l #L61,R8
	498	move.l (R8),R8
	499	jmp (R8)
	500	.data
	501	L61:.dc.l L44
	502	.dc.l L46
	503	.dc.l L48
	504	.dc.l L50
	505	.dc.l L52
	506	.dc.l L55
	507	.dc.l L57
	508	.text
	509	L42:
	510	*line 282
	511	clr (sp)
	512	jsr _vbank
	513	*line 283
	514	*line 284
	515	move #14,(sp)
	516	move.l R12,-(sp)
	517	move R5,R0
	518	asl #4,R0
	519	ext.l R0
	520	move.l R0,R8
	521	move.l #_idbox,R9
	522	move 14(R8,R9.l),-(sp)
	523	move R5,R0
	524	asl #4,R0
	525	ext.l R0
	526	move.l R0,R8
	527	move.l #_idbox,R9
	528	move 12(R8,R9.l),-(sp)
	529	add #1,(sp)
	530	move R5,R0
	531	asl #4,R0
	532	ext.l R0
	533	move.l R0,R8
	534	move.l #_idbox,R9
	535	move 10(R8,R9.l),-(sp)
	536	move R5,R0
	537	asl #4,R0
	538	ext.l R0
	539	move.l R0,R8
	540	move.l #_idbox,R9
	541	move 8(R8,R9.l),-(sp)
	542	move #64,-(sp)
	543	move.l _instob,-(sp)
	544	jsr _vcputsv
	545	adda.l #18,sp
	546	L41:tst.l (sp)+
	547	movem.l (sp)+,R5-R7/R12-R13
	548	unlk R14
	549	rts
	550	.globl _setactb
	551	.text
	552	_setactb:
	553	~~setactb:
	554	~n=8
	555	link R14,#0
	556	movem.l R7-R7/R13-R13,-(sp)
	557	~s1=R13
	558	*line 301
	559	move _aform,R0
	560	bra L64
	561	*line 302
	562	L65:
	563	*line 303
	564	*line 304
	565	*line 305
	566	move.l #L66,R13
	567	*line 306
	568	clr.b _ebuf
	569	bra L63
	570	*line 307
	571	*line 308
	572	L67:
	573	*line 309
	574	*line 310
	575	*line 311
	576	move #170,(sp)
	577	move.l #L68,-(sp)
	578	move.l #_dspbuf,-(sp)
	579	jsr _sprintf
	580	addq.l #8,sp
	581	*line 312
	582	move.l #_dspbuf,R13
	583	*line 313
	584	clr.b _ebuf
	585	bra L63
	586	*line 314
	587	*line 315
	588	L69:
	589	*line 316
	590	*line 317
	591	*line 318
	592	move #171,(sp)
	593	move.l #L70,-(sp)
	594	move.l #_dspbuf,-(sp)
	595	jsr _sprintf
	596	addq.l #8,sp
	597	*line 319
	598	move.l #_dspbuf,R13
	599	*line 320
	600	clr.b _ebuf
	601	bra L63
	602	*line 321
	603	*line 322
	604	L71:
	605	*line 323
	606	*line 324
	607	*line 325
	608	move.l #L72,R13
	609	*line 326
	610	move.b #48,_ebuf
	611	*line 327
	612	move.b #48,1+_ebuf
	613	*line 328
	614	clr.b 2+_ebuf
	615	bra L63
	616	*line 329
	617	*line 330
	618	*line 331
	619	*line 332
	620	L73:
	621	*line 333
	622	*line 334
	623	*line 335
	624	move.l #L74,R13
	625	*line 336
	626	move.b #48,_ebuf
	627	*line 337
	628	move.b #48,1+_ebuf
	629	*line 338
	630	move.b #32,2+_ebuf
	631	*line 339
	632	move.b #48,3+_ebuf
	633	*line 340
	634	move.b #48,4+_ebuf
	635	*line 341
	636	clr.b 5+_ebuf
	637	bra L63
	638	*line 342
	639	*line 343
	640	L75:
	641	*line 344
	642	*line 345
	643	*line 346
	644	move #171,(sp)
	645	move.l #L76,-(sp)
	646	move.l #_dspbuf,-(sp)
	647	jsr _sprintf
	648	addq.l #8,sp
	649	*line 347
	650	move.l #_dspbuf,R13
	651	*line 348
	652	move.b #48,_ebuf
	653	*line 349
	654	move.b #48,1+_ebuf
	655	*line 350
	656	clr.b 2+_ebuf
	657	bra L63
	658	*line 351
	659	*line 352
	660	L77:
	661	*line 353
	662	*line 354
	663	*line 355
	664	move #170,(sp)
	665	move.l #L78,-(sp)
	666	move.l #_dspbuf,-(sp)
	667	jsr _sprintf
	668	addq.l #8,sp
	669	*line 356
	670	move.l #_dspbuf,R13
	671	*line 357
	672	move.b #48,_ebuf
	673	*line 358
	674	move.b #48,1+_ebuf
	675	*line 359
	676	clr.b 2+_ebuf
	677	bra L63
	678	*line 360
	679	*line 361
	680	L79:
	681	*line 362
	682	*line 363
	683	*line 364
	684	move.l #L80,R13
	685	*line 365
	686	clr.b _ebuf
	687	bra L63
	688	*line 366
	689	bra L63
	690	L64:cmp #6,R0
	691	bhi L79
	692	asl #2,R0
	693	move R0,R8
	694	add.l #L81,R8
	695	move.l (R8),R8
	696	jmp (R8)
	697	.data
	698	L81:.dc.l L65
	699	.dc.l L67
	700	.dc.l L69
	701	.dc.l L71
	702	.dc.l L73
	703	.dc.l L75
	704	.dc.l L77
	705	.text
	706	L63:
	707	*line 369
	708	clr (sp)
	709	jsr _vbank
	710	*line 370
	711	*line 371
	712	move #14,(sp)
	713	move.l R13,-(sp)
	714	move 8(R14),R0
	715	asl #4,R0
	716	ext.l R0
	717	move.l R0,R8
	718	move.l #_idbox,R9
	719	move 14(R8,R9.l),-(sp)
	720	move 8(R14),R0
	721	asl #4,R0
	722	ext.l R0
	723	move.l R0,R8
	724	move.l #_idbox,R9
	725	move 12(R8,R9.l),-(sp)
	726	add #1,(sp)
	727	move 8(R14),R0
	728	asl #4,R0
	729	ext.l R0
	730	move.l R0,R8
	731	move.l #_idbox,R9
	732	move 10(R8,R9.l),-(sp)
	733	move #10,-(sp)
	734	move #64,-(sp)
	735	move.l _instob,-(sp)
	736	jsr _vcputsv
	737	adda.l #18,sp
	738	L62:tst.l (sp)+
	739	movem.l (sp)+,R13-R13
	740	unlk R14
	741	rts
	742	.globl _nd_iact
	743	.text
	744	_nd_iact:
	745	~~nd_iact:
	746	~nn=8
	747	~k=10
	748	link R14,#0
	749	movem.l R5-R7,-(sp)
	750	~n=R7
	751	~ec=R6
	752	*line 389
	753	move 8(R14),R7
	754	and #255,R7
	755	*line 391
	756	*line 391
	757	move R7,R0
	758	asl #4,R0
	759	ext.l R0
	760	move.l R0,R8
	761	move.l #_idbox,R9
	762	move 14(R8,R9.l),R0
	763	add #5,R0
	764	cmp _stccol,R0
	765	ble L83
	766	*line 392
	767	*line 393
	768	*line 393
	769	cmp #8,10(R14)
	770	bne L84
	771	*line 394
	772	*line 395
	773	*line 396
	774	sub #1,_aform
	775	bge L85
	776	*line 396
	777	move #6,_aform
	778	*line 397
	779	L85:
	780	*line 398
	781	move R7,(sp)
	782	jsr _setactb
	783	*line 399
	784	clr R0
	785	bra L82
	786	*line 400
	787	bra L86
	788	L84:
	789	*line 401
	790	*line 401
	791	cmp #9,10(R14)
	792	bne L87
	793	*line 402
	794	*line 403
	795	*line 404
	796	add #1,_aform
	797	move _aform,R0
	798	cmp #6,R0
	799	ble L88
	800	*line 404
	801	clr _aform
	802	*line 405
	803	L88:
	804	*line 406
	805	move R7,(sp)
	806	jsr _setactb
	807	*line 407
	808	clr R0
	809	bra L82
	810	*line 408
	811	*line 409
	812	L87:L86:
	813	*line 410
	814	move #-1,R0
	815	bra L82
	816	*line 411
	817	*line 412
	818	*line 413
	819	bra L89
	820	L83:
	821	*line 414
	822	*line 415
	823	*line 416
	824	move _aform,R0
	825	bra L91
	826	*line 417
	827	L92:
	828	*line 418
	829	L93:
	830	*line 419
	831	L94:
	832	*line 420
	833	L95:
	834	*line 421
	835	*line 422
	836	*line 423
	837	move #-1,R0
	838	bra L82
	839	*line 424
	840	L96:
	841	*line 425
	842	L97:
	843	*line 426
	844	L98:
	845	*line 427
	846	*line 428
	847	*line 429
	848	*line 430
	849	move R7,R0
	850	asl #4,R0
	851	ext.l R0
	852	move.l R0,R8
	853	move.l #_idbox,R9
	854	move 14(R8,R9.l),R0
	855	add #5,R0
	856	cmp _stccol,R0
	857	beq L10000
	858	move R7,R0
	859	asl #4,R0
	860	ext.l R0
	861	move.l R0,R8
	862	move.l #_idbox,R9
	863	move 14(R8,R9.l),R0
	864	add #6,R0
	865	cmp _stccol,R0
	866	bne L99
	867	L10000:*line 431
	868	*line 432
	869	move 10(R14),R0
	870	add #48,R0
	871	move _stccol,R9
	872	move R7,R2
	873	asl #4,R2
	874	ext.l R2
	875	add.l #_idbox,R2
	876	move.l R2,R10
	877	move 14(R10),R10
	878	add #5,R10
	879	sub R10,R9
	880	add.l #_ebuf,R9
	881	move.b R0,(R9)
	882	*line 433
	883	move 10(R14),R0
	884	add #48,R0
	885	move.b R0,_dspbuf
	886	*line 434
	887	clr.b 1+_dspbuf
	888	*line 435
	889	*line 436
	890	clr (sp)
	891	jsr _vbank
	892	*line 437
	893	*line 438
	894	move #14,(sp)
	895	move.l #_dspbuf,-(sp)
	896	move _stccol,-(sp)
	897	move _stcrow,-(sp)
	898	move R7,R0
	899	asl #4,R0
	900	ext.l R0
	901	move.l R0,R8
	902	move.l #_idbox,R9
	903	move 10(R8,R9.l),-(sp)
	904	move #10,-(sp)
	905	move #64,-(sp)
	906	move.l _instob,-(sp)
	907	jsr _vcputsv
	908	adda.l #18,sp
	909	*line 439
	910	*line 440
	911	jsr _advicur
	912	*line 441
	913	clr R0
	914	bra L82
	915	*line 442
	916	bra L100
	917	L99:
	918	*line 443
	919	*line 444
	920	*line 445
	921	move #-1,R0
	922	bra L82
	923	L100:
	924	*line 446
	925	*line 447
	926	*line 448
	927	L101:
	928	*line 449
	929	*line 450
	930	*line 451
	931	*line 452
	932	move R7,R0
	933	asl #4,R0
	934	ext.l R0
	935	move.l R0,R8
	936	move.l #_idbox,R9
	937	move 14(R8,R9.l),R0
	938	add #5,R0
	939	cmp _stccol,R0
	940	bgt L102
	941	move R7,R0
	942	asl #4,R0
	943	ext.l R0
	944	move.l R0,R8
	945	move.l #_idbox,R9
	946	move 14(R8,R9.l),R0
	947	add #9,R0
	948	cmp _stccol,R0
	949	blt L102
	950	*line 453
	951	*line 454
	952	move _stccol,R6
	953	move R7,R0
	954	asl #4,R0
	955	ext.l R0
	956	move.l R0,R8
	957	move.l #_idbox,R9
	958	move 14(R8,R9.l),R0
	959	add #5,R0
	960	sub R0,R6
	961	*line 455
	962	*line 456
	963	*line 457
	964	cmp #2,R6
	965	bne L103
	966	*line 457
	967	move #-1,R0
	968	bra L82
	969	*line 458
	970	L103:
	971	*line 459
	972	move 10(R14),R0
	973	add #48,R0
	974	move R6,R9
	975	add.l #_ebuf,R9
	976	move.b R0,(R9)
	977	*line 460
	978	move 10(R14),R0
	979	add #48,R0
	980	move.b R0,_dspbuf
	981	*line 461
	982	clr.b 1+_dspbuf
	983	*line 462
	984	*line 463
	985	*line 464
	986	cmp #3,R6
	987	bne L104
	988	cmp #9,10(R14)
	989	bne L104
	990	*line 464
	991	move.b #82,_dspbuf
	992	*line 465
	993	L104:
	994	*line 466
	995	clr (sp)
	996	jsr _vbank
	997	*line 467
	998	*line 468
	999	move #14,(sp)
	1000	move.l #_dspbuf,-(sp)
	1001	move _stccol,-(sp)
	1002	move _stcrow,-(sp)
	1003	move R7,R0
	1004	asl #4,R0
	1005	ext.l R0
	1006	move.l R0,R8
	1007	move.l #_idbox,R9
	1008	move 10(R8,R9.l),-(sp)
	1009	move #10,-(sp)
	1010	move #64,-(sp)
	1011	move.l _instob,-(sp)
	1012	jsr _vcputsv
	1013	adda.l #18,sp
	1014	*line 469
	1015	*line 470
	1016	jsr _advicur
	1017	*line 471
	1018	*line 472
	1019	*line 473
	1020	cmp #1,R6
	1021	bne L105
	1022	*line 473
	1023	jsr _advicur
	1024	*line 474
	1025	L105:
	1026	*line 475
	1027	clr R0
	1028	bra L82
	1029	*line 476
	1030	bra L106
	1031	L102:
	1032	*line 477
	1033	*line 478
	1034	*line 479
	1035	move #-1,R0
	1036	bra L82
	1037	L106:
	1038	*line 480
	1039	bra L90
	1040	L91:cmp #7,R0
	1041	bhi L90
	1042	asl #2,R0
	1043	move R0,R8
	1044	add.l #L107,R8
	1045	move.l (R8),R8
	1046	jmp (R8)
	1047	.data
	1048	L107:.dc.l L92
	1049	.dc.l L95
	1050	.dc.l L94
	1051	.dc.l L98
	1052	.dc.l L101
	1053	.dc.l L96
	1054	.dc.l L97
	1055	.dc.l L93
	1056	.text
	1057	L90:
	1058	*line 481
	1059	L89:L82:tst.l (sp)+
	1060	movem.l (sp)+,R6-R7
	1061	unlk R14
	1062	rts
	1063	.data
	1064	L11:.dc.b $25,$30,$32,$64,$0
	1065	L13:.dc.b $25,$30,$32,$64,$20,$25,$30,$32,$64,$0
	1066	L45:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
	1067	L47:.dc.b $50,$61,$75,$73,$65,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$20,$20,$0
	1068	L49:.dc.b $53,$74,$6F,$70,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$20,$20,$20,$0
	1069	L51:.dc.b $47,$6F,$54,$6F,$20,$25,$30,$32,$64,$20,$66,$6F,$72,$65,$76,$65,$72,$20,$0
	1070	L53:.dc.b $47,$6F,$54,$6F,$20,$25,$30,$32,$64,$20,$25,$30,$32,$64,$20,$74,$69,$6D,$65,$73,$0
	1071	L56:.dc.b $47,$6F,$54,$6F,$20,$25,$30,$32,$64,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$0
	1072	L58:.dc.b $47,$6F,$54,$6F,$20,$25,$30,$32,$64,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$0
	1073	L60:.dc.b $3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$0
	1074	L66:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
	1075	L68:.dc.b $50,$61,$75,$73,$65,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$20,$20,$0
	1076	L70:.dc.b $53,$74,$6F,$70,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$20,$20,$20,$0
	1077	L72:.dc.b $47,$6F,$54,$6F,$20,$30,$30,$20,$66,$6F,$72,$65,$76,$65,$72,$20,$0
	1078	L74:.dc.b $47,$6F,$54,$6F,$20,$30,$30,$20,$30,$30,$20,$74,$69,$6D,$65,$73,$0
	1079	L76:.dc.b $47,$6F,$54,$6F,$20,$30,$30,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$0
	1080	L78:.dc.b $47,$6F,$54,$6F,$20,$30,$30,$20,$69,$66,$20,$6B,$65,$79,$20,$25,$63,$0
	1081	L80:.dc.b $3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$3F,$0

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

Download in other formats:

Original Format