Context Navigation

ldselbx.s@ ca867c1

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

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

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

Download in other formats:

Original Format