Context Navigation

idfield.s@ 526a993

Last change on this file since 526a993 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Added Alcyon C reference output.
Property mode set to `100644`
File size: 19.3 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 _curvce
	43	.globl _curfunc
	44	.globl _curpnt
	45	.globl _hitbox
	46	.globl _astat
	47	.globl _idnamsw
	48	.globl _cxval
	49	.globl _cyval
	50	.globl _cxrate
	51	.globl _cyrate
	52	.globl _curslim
	53	.globl _cmtype
	54	.globl _cmfirst
	55	.globl _pecase
	56	.globl _pntsv
	57	.globl _npts
	58	.globl _subj
	59	.globl _idimsw
	60	.globl _wcflag
	61	.globl _imflag
	62	.globl _idcfsw
	63	.globl _idsrcsw
	64	.globl _vtcrow
	65	.globl _vtccol
	66	.globl _stcrow
	67	.globl _stccol
	68	.globl _vtxval
	69	.globl _vtyval
	70	.globl _temax
	71	.globl _temin
	72	.globl _cratex
	73	.globl _cratey
	74	.globl _crate0
	75	.globl _crate1
	76	.globl _instob
	77	.globl _bfs
	78	.globl _idbxlbl
	79	.globl _fnoff
	80	.globl _idbox
	81	.globl _csbp
	82	.globl _idboxes
	83	.globl _sments
	84	.globl _vpsms
	85	.globl _valents
	86	.globl _pntptr
	87	.globl _vbufs
	88	.globl _zonemax
	89	.data
	90	_zonemax:
	91	.dc.w $3F
	92	.dc.w $77
	93	.dc.w $AF
	94	.dc.w $E7
	95	.dc.w $11F
	96	.dc.w $157
	97	.dc.w $18F
	98	.dc.w $1C7
	99	.dc.w $1FD
	100	.globl _zoneinc
	101	.data
	102	_zoneinc:
	103	.dc.w $2
	104	.dc.w $2
	105	.dc.w $4
	106	.dc.w $9
	107	.dc.w $12
	108	.dc.w $24
	109	.dc.w $49
	110	.dc.w $92
	111	.dc.w $12F
	112	.globl _id_fet1
	113	.data
	114	_id_fet1:
	115	.dc.w $5
	116	.dc.w $3E
	117	.dc.w $3E
	118	.dc.w $C
	119	*line 84
	120	.dc.l _et_ires
	121	*line 84
	122	.dc.l _ef_ires
	123	*line 84
	124	.dc.l _rd_ires
	125	*line 84
	126	.dc.l _nd_ires
	127	.dc.w $10
	128	.dc.w $1
	129	.dc.w $C
	130	.dc.w $D
	131	*line 85
	132	.dc.l _et_imlt
	133	*line 85
	134	.dc.l _ef_imlt
	135	*line 85
	136	.dc.l _rd_imlt
	137	*line 85
	138	.dc.l _nd_imlt
	139	.dc.w $10
	140	.dc.w $F
	141	.dc.w $10
	142	.dc.w $E
	143	*line 86
	144	.dc.l _et_ipnt
	145	*line 86
	146	.dc.l _ef_ipnt
	147	*line 86
	148	.dc.l _rd_ipnt
	149	*line 86
	150	.dc.l _nd_ipnt
	151	.dc.w $10
	152	.dc.w $13
	153	.dc.w $18
	154	.dc.w $F
	155	*line 87
	156	.dc.l _et_itim
	157	*line 87
	158	.dc.l _ef_itim
	159	*line 87
	160	.dc.l _rd_itim
	161	*line 87
	162	.dc.l _nd_itim
	163	.dc.w $10
	164	.dc.w $1B
	165	.dc.w $2C
	166	.dc.w $10
	167	*line 88
	168	.dc.l _et_ival
	169	*line 88
	170	.dc.l _ef_ival
	171	*line 88
	172	.dc.l _rd_ival
	173	*line 88
	174	.dc.l _nd_ival
	175	.dc.w $10
	176	.dc.w $2F
	177	.dc.w $3E
	178	.dc.w $11
	179	*line 89
	180	.dc.l _et_iact
	181	*line 89
	182	.dc.l _ef_iact
	183	*line 89
	184	.dc.l _rd_iact
	185	*line 89
	186	.dc.l _nd_iact
	187	.dc.w $11
	188	.dc.w $C
	189	.dc.w $D
	190	.dc.w $12
	191	*line 90
	192	.dc.l _et_icnf
	193	*line 90
	194	.dc.l _ef_icnf
	195	*line 90
	196	.dc.l _rd_icnf
	197	*line 90
	198	.dc.l _nd_icnf
	199	.dc.w $11
	200	.dc.w $17
	201	.dc.w $18
	202	.dc.w $13
	203	*line 91
	204	.dc.l _et_ivce
	205	*line 91
	206	.dc.l _ef_ivce
	207	*line 91
	208	.dc.l _rd_ivce
	209	*line 91
	210	.dc.l _nd_ivce
	211	.dc.w $11
	212	.dc.w $1F
	213	.dc.w $20
	214	.dc.w $13
	215	*line 92
	216	.dc.l _et_idin
	217	*line 92
	218	.dc.l _ef_idin
	219	*line 92
	220	.dc.l _rd_idin
	221	*line 92
	222	.dc.l _nd_idin
	223	.dc.w $11
	224	.dc.w $39
	225	.dc.w $3A
	226	.dc.w $15
	227	*line 93
	228	.dc.l _et_iwsn
	229	*line 93
	230	.dc.l _ef_iwsn
	231	*line 93
	232	.dc.l _rd_iwsn
	233	*line 93
	234	.dc.l _nd_iwsn
	235	.dc.w $11
	236	.dc.w $3D
	237	.dc.w $3E
	238	.dc.w $115
	239	*line 94
	240	.dc.l _et_iwsn
	241	*line 94
	242	.dc.l _ef_iwsn
	243	*line 94
	244	.dc.l _rd_iwsn
	245	*line 94
	246	.dc.l _nd_iwsn
	247	.dc.w $12
	248	.dc.w $24
	249	.dc.w $2E
	250	.dc.w $8014
	251	*line 95
	252	.dc.l _et_iosc
	253	*line 95
	254	.dc.l _ef_iosc
	255	*line 95
	256	.dc.l _rd_iosc
	257	*line 95
	258	.dc.l _nd_iosc
	259	.dc.w $12
	260	.dc.w $11
	261	.dc.w $20
	262	.dc.w $0
	263	*line 96
	264	.dc.l _et_null
	265	*line 96
	266	.dc.l _ef_null
	267	*line 96
	268	.dc.l _rd_null
	269	*line 96
	270	.dc.l _nd_null
	271	.dc.w $13
	272	.dc.w $24
	273	.dc.w $2E
	274	.dc.w $8114
	275	*line 97
	276	.dc.l _et_iosc
	277	*line 97
	278	.dc.l _ef_iosc
	279	*line 97
	280	.dc.l _rd_iosc
	281	*line 97
	282	.dc.l _nd_iosc
	283	.dc.w $13
	284	.dc.w $11
	285	.dc.w $20
	286	.dc.w $0
	287	*line 98
	288	.dc.l _et_null
	289	*line 98
	290	.dc.l _ef_null
	291	*line 98
	292	.dc.l _rd_null
	293	*line 98
	294	.dc.l _nd_null
	295	.dc.w $14
	296	.dc.w $24
	297	.dc.w $2E
	298	.dc.w $8214
	299	*line 99
	300	.dc.l _et_iosc
	301	*line 99
	302	.dc.l _ef_iosc
	303	*line 99
	304	.dc.l _rd_iosc
	305	*line 99
	306	.dc.l _nd_iosc
	307	.dc.w $14
	308	.dc.w $11
	309	.dc.w $20
	310	.dc.w $0
	311	*line 100
	312	.dc.l _et_null
	313	*line 100
	314	.dc.l _ef_null
	315	*line 100
	316	.dc.l _rd_null
	317	*line 100
	318	.dc.l _nd_null
	319	.dc.w $15
	320	.dc.w $24
	321	.dc.w $2E
	322	.dc.w $8314
	323	*line 101
	324	.dc.l _et_iosc
	325	*line 101
	326	.dc.l _ef_iosc
	327	*line 101
	328	.dc.l _rd_iosc
	329	*line 101
	330	.dc.l _nd_iosc
	331	.dc.w $15
	332	.dc.w $11
	333	.dc.w $20
	334	.dc.w $0
	335	*line 102
	336	.dc.l _et_null
	337	*line 102
	338	.dc.l _ef_null
	339	*line 102
	340	.dc.l _rd_null
	341	*line 102
	342	.dc.l _nd_null
	343	.dc.w $0
	344	.dc.w $0
	345	.dc.w $0
	346	.dc.w $0
	347	.dc.l $0
	348	.dc.l $0
	349	.dc.l $0
	350	.dc.l $0
	351	.globl _srctbl
	352	.data
	353	_srctbl:
	354	*line 109
	355	.dc.l L1
	356	*line 110
	357	.dc.l L2
	358	*line 111
	359	.dc.l L3
	360	*line 112
	361	.dc.l L4
	362	*line 113
	363	.dc.l L5
	364	*line 114
	365	.dc.l L6
	366	*line 115
	367	.dc.l L7
	368	*line 116
	369	.dc.l L8
	370	*line 117
	371	.dc.l L9
	372	*line 118
	373	.dc.l L10
	374	*line 119
	375	.dc.l L11
	376	*line 120
	377	.dc.l L12
	378	*line 121
	379	.dc.l L13
	380	*line 122
	381	.dc.l L14
	382	.globl _id_flds
	383	.data
	384	_id_flds:
	385	*line 130
	386	.dc.l _stdctp1
	387	*line 131
	388	.dc.l _nokey
	389	*line 132
	390	.dc.l _nokey
	391	*line 133
	392	.dc.l _cxkstd
	393	*line 134
	394	.dc.l _cykstd
	395	*line 135
	396	.dc.l _idcxupd
	397	*line 136
	398	.dc.l _idcyupd
	399	*line 137
	400	.dc.l _ikyup
	401	*line 138
	402	.dc.l _ikydn
	403	*line 139
	404	.dc.l _idx_key
	405	*line 140
	406	.dc.l _select
	407	*line 141
	408	.dc.l _stdmkey
	409	*line 142
	410	.dc.l _stddkey
	411	*line 143
	412	.dc.l _idnfld
	413	*line 144
	414	.dc.l _id_fet1
	415	*line 145
	416	.dc.l _idboxes
	417	*line 146
	418	.dc.l _crate1
	419	*line 147
	420	.dc.l _crate1
	421	.dc.w $0
	422	.dc.w $100
	423	.dc.w $AF
	424	.globl _ikydn
	425	.text
	426	_ikydn:
	427	~~ikydn:
	428	link R14,#-4
	429	*line 164
	430	clr _imflag
	431	L15:unlk R14
	432	rts
	433	.globl _ikyup
	434	.text
	435	_ikyup:
	436	~~ikyup:
	437	link R14,#-4
	438	*line 175
	439	*line 176
	440	tst _imflag
	441	beq L17
	442	*line 176
	443	jsr _modinst
	444	L17:L16:unlk R14
	445	rts
	446	.globl _idcyupd
	447	.text
	448	_idcyupd:
	449	~~idcyupd:
	450	link R14,#0
	451	movem.l R4-R7,-(sp)
	452	~pval=R7
	453	~vh=R6
	454	~vl=R5
	455	*line 191
	456	*line 192
	457	cmp #-1,_wcflag
	458	bne L18
	459	*line 193
	460	*line 194
	461	*line 195
	462	tst _idimsw
	463	bne L18
	464	*line 196
	465	*line 197
	466	*line 197
	467	tst _idsrcsw
	468	bne L10000
	469	tst _idcfsw
	470	beq L19
	471	L10000:*line 198
	472	*line 199
	473	move _cyrate,R0
	474	add R0,_vtyval
	475	move _vtyval,R0
	476	ext.l R0
	477	divs #14,R0
	478	move R0,_vtcrow
	479	*line 200
	480	*line 201
	481	*line 202
	482	cmp #24,_vtcrow
	483	ble L20
	484	*line 202
	485	move #24,R0
	486	move R0,_vtcrow
	487	muls #14,R0
	488	move R0,_vtyval
	489	bra L21
	490	L20:
	491	*line 203
	492	*line 204
	493	cmp #22,_vtcrow
	494	bge L22
	495	*line 204
	496	move #22,R0
	497	move R0,_vtcrow
	498	muls #14,R0
	499	move R0,_vtyval
	500	*line 205
	501	L22:L21:bra L23
	502	L19:
	503	*line 206
	504	*line 206
	505	tst _idnamsw
	506	beq L24
	507	*line 207
	508	*line 208
	509	jsr _vtcyupd
	510	*line 209
	511	bra L25
	512	L24:
	513	*line 210
	514	*line 210
	515	tst _pntsv
	516	beq L26
	517	*line 211
	518	*line 212
	519	move.l _pntptr,R8
	520	move 2(R8),R7
	521	asr #5,R7
	522	move _cyrate,R0
	523	muls #7,R0
	524	sub R0,R7
	525	*line 213
	526	*line 214
	527	*line 215
	528	cmp #1000,R7
	529	ble L27
	530	*line 215
	531	move #1000,R7
	532	bra L28
	533	L27:
	534	*line 216
	535	*line 217
	536	tst R7
	537	bge L29
	538	*line 217
	539	clr R7
	540	*line 218
	541	L29:L28:
	542	*line 219
	543	move #12,(sp)
	544	move R7,-(sp)
	545	jsr _vtoy
	546	addq.l #2,sp
	547	move R0,_cyval
	548	*line 220
	549	move R7,R0
	550	asl #5,R0
	551	move.l _pntptr,R9
	552	move R0,2(R9)
	553	*line 221
	554	*line 222
	555	move R7,R6
	556	ext.l R6
	557	divs #100,R6
	558	*line 223
	559	move R7,R5
	560	move R6,R0
	561	muls #100,R0
	562	sub R0,R5
	563	*line 224
	564	*line 225
	565	move R5,(sp)
	566	move R6,-(sp)
	567	move.l #L30,-(sp)
	568	move.l #_bfs,-(sp)
	569	jsr _sprintf
	570	adda.l #10,sp
	571	*line 226
	572	*line 227
	573	clr (sp)
	574	jsr _vbank
	575	*line 228
	576	*line 229
	577	move #14,(sp)
	578	move.l #_bfs,-(sp)
	579	move 270+_idbox,-(sp)
	580	move 268+_idbox,-(sp)
	581	add #1,(sp)
	582	move 266+_idbox,-(sp)
	583	move 264+_idbox,-(sp)
	584	move #64,-(sp)
	585	move.l _instob,-(sp)
	586	jsr _vcputsv
	587	adda.l #18,sp
	588	*line 230
	589	*line 231
	590	move #1,_imflag
	591	*line 232
	592	*line 233
	593	bra L31
	594	L26:
	595	*line 234
	596	*line 235
	597	*line 236
	598	move _cyrate,R0
	599	add R0,_cyval
	600	*line 237
	601	*line 238
	602	*line 239
	603	cmp #348,_cyval
	604	ble L32
	605	*line 239
	606	move #348,_cyval
	607	bra L33
	608	L32:
	609	*line 240
	610	*line 241
	611	cmp #1,_cyval
	612	bge L34
	613	*line 241
	614	move #1,_cyval
	615	L34:L33:L31:L25:L23:L18:tst.l (sp)+
	616	movem.l (sp)+,R5-R7
	617	unlk R14
	618	rts
	619	.globl _idcxupd
	620	.text
	621	_idcxupd:
	622	~~idcxupd:
	623	link R14,#-2
	624	movem.l R3-R7,-(sp)
	625	~th=R7
	626	~tl=R6
	627	~fptime=R5
	628	~stime=R4
	629	~zone=-2
	630	*line 260
	631	*line 260
	632	tst _idimsw
	633	beq L36
	634	*line 261
	635	*line 262
	636	move _cxrate,R0
	637	add R0,_cxval
	638	*line 263
	639	*line 264
	640	*line 265
	641	cmp #256,_cxval
	642	ble L37
	643	*line 265
	644	move #256,_cxval
	645	bra L38
	646	L37:
	647	*line 266
	648	*line 267
	649	cmp #208,_cxval
	650	bge L39
	651	*line 267
	652	move #208,_cxval
	653	*line 268
	654	L39:L38:L36:
	655	*line 269
	656	*line 269
	657	tst _idsrcsw
	658	bne L10001
	659	tst _idcfsw
	660	beq L40
	661	L10001:*line 270
	662	*line 271
	663	move _cxrate,R0
	664	add R0,_vtxval
	665	move _vtxval,R0
	666	asr #3,R0
	667	move R0,_vtccol
	668	*line 272
	669	*line 273
	670	*line 274
	671	cmp #46,_vtccol
	672	ble L41
	673	*line 274
	674	move #46,R0
	675	move R0,_vtccol
	676	asl #3,R0
	677	move R0,_vtxval
	678	bra L42
	679	L41:
	680	*line 275
	681	*line 276
	682	cmp #17,_vtccol
	683	bge L43
	684	*line 276
	685	move #17,R0
	686	move R0,_vtccol
	687	asl #3,R0
	688	move R0,_vtxval
	689	*line 277
	690	L43:L42:bra L44
	691	L40:
	692	*line 278
	693	*line 278
	694	tst _idnamsw
	695	beq L45
	696	*line 279
	697	*line 280
	698	jsr _vtcxupd
	699	*line 281
	700	*line 282
	701	bra L46
	702	L45:
	703	*line 283
	704	*line 283
	705	tst _pntsv
	706	beq L47
	707	*line 284
	708	*line 285
	709	clr -2(R14)
	710	bra L50
	711	L51:
	712	*line 286
	713	*line 287
	714	move -2(R14),R8
	715	add.l R8,R8
	716	move.l #_zonemax,R9
	717	move 0(R8,R9.l),R0
	718	cmp _cxval,R0
	719	bge L48
	720	*line 288
	721	L49:
	722	*line 285
	723	add #1,-2(R14)
	724	L50:
	725	*line 285
	726	cmp #8,-2(R14)
	727	ble L51
	728	L48:
	729	*line 289
	730	move _pecase,R0
	731	bra L53
	732	*line 290
	733	L54:
	734	*line 291
	735	L55:
	736	*line 292
	737	*line 293
	738	*line 294
	739	*line 295
	740	tst _cxrate
	741	blt L56
	742	*line 296
	743	move -2(R14),R8
	744	add.l R8,R8
	745	move.l #_zoneinc,R9
	746	move 0(R8,R9.l),R0
	747	muls _cxrate,R0
	748	move R0,(sp)
	749	move.l _pntptr,R8
	750	move (R8),-(sp)
	751	jsr _addfpu
	752	addq.l #2,sp
	753	move R0,R5
	754	*line 297
	755	bra L57
	756	L56:
	757	*line 298
	758	*line 299
	759	move _cxrate,R0
	760	neg R0
	761	move -2(R14),R9
	762	add.l R9,R9
	763	add.l #_zoneinc,R9
	764	muls (R9),R0
	765	move R0,(sp)
	766	move.l _pntptr,R8
	767	move (R8),-(sp)
	768	jsr _subfpu
	769	addq.l #2,sp
	770	move R0,R5
	771	L57:
	772	*line 300
	773	*line 301
	774	move R5,(sp)
	775	move _subj,-(sp)
	776	jsr _segtime
	777	addq.l #2,sp
	778	move R0,R4
	779	*line 302
	780	*line 303
	781	*line 303
	782	cmp _temax,R4
	783	blo L58
	784	*line 304
	785	*line 305
	786	move _temax,(sp)
	787	sub #1,(sp)
	788	move _subj,-(sp)
	789	jsr _setseg
	790	addq.l #2,sp
	791	bra L52
	792	*line 306
	793	*line 307
	794	bra L59
	795	L58:
	796	*line 308
	797	*line 308
	798	tst R4
	799	bne L60
	800	*line 309
	801	*line 310
	802	move #1,(sp)
	803	move _subj,-(sp)
	804	jsr _setseg
	805	addq.l #2,sp
	806	bra L52
	807	*line 311
	808	*line 312
	809	*line 313
	810	L60:L59:
	811	*line 314
	812	move R4,(sp)
	813	move _subj,-(sp)
	814	jsr _setseg
	815	addq.l #2,sp
	816	bra L52
	817	*line 315
	818	*line 316
	819	*line 317
	820	*line 318
	821	L61:
	822	*line 319
	823	*line 320
	824	*line 321
	825	*line 322
	826	tst _cxrate
	827	blt L62
	828	*line 322
	829	move -2(R14),R8
	830	add.l R8,R8
	831	move.l #_zoneinc,R9
	832	move 0(R8,R9.l),R0
	833	muls _cxrate,R0
	834	move R0,(sp)
	835	move.l _pntptr,R8
	836	move (R8),-(sp)
	837	jsr _addfpu
	838	addq.l #2,sp
	839	move R0,R5
	840	*line 323
	841	bra L63
	842	L62:
	843	*line 324
	844	move _cxrate,R0
	845	neg R0
	846	move -2(R14),R9
	847	add.l R9,R9
	848	add.l #_zoneinc,R9
	849	muls (R9),R0
	850	move R0,(sp)
	851	move.l _pntptr,R8
	852	move (R8),-(sp)
	853	jsr _subfpu
	854	addq.l #2,sp
	855	move R0,R5
	856	L63:
	857	*line 325
	858	*line 326
	859	move R5,(sp)
	860	jsr _fromfpu
	861	move R0,R4
	862	add _temin,R4
	863	*line 327
	864	*line 328
	865	*line 329
	866	cmp _temax,R4
	867	bcc L52
	868	*line 330
	869	*line 331
	870	move R5,(sp)
	871	move _subj,-(sp)
	872	jsr _segtime
	873	addq.l #2,sp
	874	move R0,(sp)
	875	move _subj,-(sp)
	876	jsr _setseg
	877	addq.l #2,sp
	878	*line 332
	879	move _temax,(sp)
	880	move _subj,-(sp)
	881	add #1,(sp)
	882	jsr _setseg
	883	addq.l #2,sp
	884	bra L52
	885	*line 333
	886	bra L52
	887	L53:tst R0
	888	beq L54
	889	cmp #1,R0
	890	beq L55
	891	cmp #2,R0
	892	beq L61
	893	bra L52
	894	L52:
	895	*line 334
	896	*line 335
	897	*line 336
	898	move _subj,(sp)
	899	move _curfunc,-(sp)
	900	jsr _timeto
	901	addq.l #2,sp
	902	move R0,R7
	903	*line 337
	904	move R7,R6
	905	clr.l R0
	906	move R7,R0
	907	divu #1000,R0
	908	mulu #1000,R0
	909	sub R0,R6
	910	*line 338
	911	clr.l R0
	912	move R7,R0
	913	divu #1000,R0
	914	move R0,R7
	915	*line 339
	916	*line 340
	917	move R6,(sp)
	918	move R7,-(sp)
	919	move.l #L64,-(sp)
	920	move.l #_bfs,-(sp)
	921	jsr _sprintf
	922	adda.l #10,sp
	923	*line 341
	924	*line 342
	925	*line 343
	926	clr R0
	927	move 10+_v_regs,R0
	928	and #384,R0
	929	beq L65
	930	*line 343
	931	clr (sp)
	932	jsr _vbank
	933	*line 344
	934	L65:
	935	*line 345
	936	*line 346
	937	move #14,(sp)
	938	move.l #_bfs,-(sp)
	939	move 254+_idbox,-(sp)
	940	move 252+_idbox,-(sp)
	941	add #1,(sp)
	942	move 250+_idbox,-(sp)
	943	move 248+_idbox,-(sp)
	944	move #64,-(sp)
	945	move.l _instob,-(sp)
	946	jsr _vcputsv
	947	adda.l #18,sp
	948	*line 347
	949	*line 348
	950	move #1,_imflag
	951	*line 349
	952	move #12,(sp)
	953	move _subj,-(sp)
	954	move _curfunc,-(sp)
	955	jsr _timeto
	956	addq.l #4,sp
	957	move R0,-(sp)
	958	jsr _ttox
	959	addq.l #2,sp
	960	move R0,_cxval
	961	*line 350
	962	bra L66
	963	L47:
	964	*line 351
	965	*line 352
	966	*line 353
	967	move _cxrate,R0
	968	add R0,_cxval
	969	*line 354
	970	*line 355
	971	*line 356
	972	cmp #510,_cxval
	973	ble L67
	974	*line 356
	975	move #510,_cxval
	976	bra L68
	977	L67:
	978	*line 357
	979	*line 358
	980	cmp #1,_cxval
	981	bge L69
	982	*line 358
	983	move #1,_cxval
	984	L69:L68:L66:L46:L44:L35:tst.l (sp)+
	985	movem.l (sp)+,R4-R7
	986	unlk R14
	987	rts
	988	.globl _idnfld
	989	.text
	990	_idnfld:
	991	~~idnfld:
	992	~k=8
	993	link R14,#0
	994	movem.l R3-R7/R12-R13,-(sp)
	995	~endpnt=R7
	996	~basepnt=R6
	997	~t=R5
	998	~fn=R4
	999	~fp=R13
	1000	~ip=R12
	1001	*line 379
	1002	move _curvce,R0
	1003	muls #3938,R0
	1004	move.l R0,R12
	1005	add.l #_vbufs,R12
	1006	*line 380
	1007	move.l R12,R13
	1008	move _curfunc,R0
	1009	muls #12,R0
	1010	add.l R0,R13
	1011	add.l #86,R13
	1012	*line 382
	1013	*line 382
	1014	tst _astat
	1015	beq L71
	1016	*line 383
	1017	*line 384
	1018	*line 384
	1019	jsr _whatbox
	1020	tst R0
	1021	beq L72
	1022	*line 385
	1023	*line 386
	1024	*line 386
	1025	cmp #12,_hitbox
	1026	bne L73
	1027	*line 387
	1028	*line 388
	1029	*line 388
	1030	cmp #8,8(R14)
	1031	bne L74
	1032	*line 389
	1033	*line 390
	1034	move #1,R0
	1035	eor.b R0,7(R13)
	1036	move.b 7(R13),R0
	1037	move R0,R5
	1038	*line 391
	1039	*line 392
	1040	*line 393
	1041	clr R0
	1042	move 10+_v_regs,R0
	1043	and #384,R0
	1044	beq L75
	1045	*line 393
	1046	clr (sp)
	1047	jsr _vbank
	1048	*line 394
	1049	L75:
	1050	*line 395
	1051	*line 396
	1052	*line 397
	1053	*line 398
	1054	move #14,(sp)
	1055	move _curfunc,R8
	1056	add.l R8,R8
	1057	add.l R8,R8
	1058	move.l #_idbxlbl,R9
	1059	move.l 0(R8,R9.l),-(sp)
	1060	move #54,-(sp)
	1061	move #4,-(sp)
	1062	btst #0,R5
	1063	beq L10002
	1064	move _curfunc,R0
	1065	asl #4,R0
	1066	ext.l R0
	1067	move.l R0,R8
	1068	move.l #_idbox,R9
	1069	move 8(R8,R9.l),-(sp)
	1070	bra L10004
	1071	L10002:move #2,-(sp)
	1072	L10004:move #64,-(sp)
	1073	move.l _instob,-(sp)
	1074	jsr _tsplot4
	1075	adda.l #16,sp
	1076	*line 399
	1077	*line 400
	1078	jsr _modinst
	1079	*line 401
	1080	clr R0
	1081	bra L70
	1082	*line 402
	1083	*line 403
	1084	bra L76
	1085	L74:
	1086	*line 404
	1087	*line 404
	1088	cmp #9,8(R14)
	1089	bne L77
	1090	*line 405
	1091	*line 406
	1092	move.b 6(R13),R6
	1093	ext.w R6
	1094	*line 407
	1095	move R6,R7
	1096	move.b 5(R13),R0
	1097	ext.w R0
	1098	add R0,R7
	1099	sub #1,R7
	1100	*line 408
	1101	*line 409
	1102	*line 410
	1103	cmp.b #99,5(R13)
	1104	bne L78
	1105	*line 410
	1106	move #-1,R0
	1107	bra L70
	1108	*line 411
	1109	L78:
	1110	*line 412
	1111	*line 412
	1112	move R7,(sp)
	1113	move _curfunc,-(sp)
	1114	move.l R12,-(sp)
	1115	jsr _inspnt
	1116	addq.l #6,sp
	1117	tst R0
	1118	bne L79
	1119	*line 413
	1120	*line 414
	1121	move #-1,R0
	1122	bra L70
	1123	*line 415
	1124	bra L80
	1125	L79:
	1126	*line 416
	1127	*line 417
	1128	*line 418
	1129	move.b 5(R13),R0
	1130	ext.w R0
	1131	sub #1,R0
	1132	move R0,_subj
	1133	*line 419
	1134	jsr _pntsel
	1135	*line 420
	1136	move #1,_pntsv
	1137	*line 421
	1138	move #12,(sp)
	1139	clr -(sp)
	1140	move.l _pntptr,-(sp)
	1141	jsr _memset
	1142	addq.l #6,sp
	1143	*line 422
	1144	move.l _pntptr,R8
	1145	move.l _pntptr,R9
	1146	move -10(R9),2(R8)
	1147	*line 423
	1148	move _subj,(sp)
	1149	sub #1,(sp)
	1150	move _curfunc,-(sp)
	1151	jsr _timeto
	1152	addq.l #2,sp
	1153	move R0,(sp)
	1154	add #1,(sp)
	1155	move _subj,-(sp)
	1156	jsr _setseg
	1157	addq.l #2,sp
	1158	*line 424
	1159	move _curfunc,(sp)
	1160	jsr _edfunc
	1161	*line 425
	1162	move #1,(sp)
	1163	jsr _showpt
	1164	*line 426
	1165	move #12,(sp)
	1166	move _subj,-(sp)
	1167	move _curfunc,-(sp)
	1168	jsr _timeto
	1169	addq.l #4,sp
	1170	move R0,-(sp)
	1171	jsr _ttox
	1172	addq.l #2,sp
	1173	move R0,_cxval
	1174	*line 427
	1175	move #12,(sp)
	1176	move.l _pntptr,R8
	1177	move 2(R8),R0
	1178	asr #5,R0
	1179	move R0,-(sp)
	1180	jsr _vtoy
	1181	addq.l #2,sp
	1182	move R0,_cyval
	1183	*line 428
	1184	move #3,(sp)
	1185	jsr _arcurs
	1186	*line 429
	1187	move _cyval,(sp)
	1188	move _cxval,-(sp)
	1189	jsr _gcurpos
	1190	addq.l #2,sp
	1191	*line 430
	1192	jsr _modinst
	1193	*line 431
	1194	clr R0
	1195	bra L70
	1196	L80:
	1197	*line 432
	1198	*line 433
	1199	*line 434
	1200	*line 435
	1201	*line 436
	1202	L77:L76:bra L81
	1203	L73:
	1204	*line 437
	1205	*line 437
	1206	cmp #12,_hitbox
	1207	bge L82
	1208	*line 438
	1209	*line 439
	1210	move _hitbox,R0
	1211	cmp _curfunc,R0
	1212	bne L10005
	1213	move #12,R0
	1214	bra L10007
	1215	L10005:move _hitbox,R0
	1216	L10007:move R0,R4
	1217	*line 440
	1218	*line 441
	1219	*line 441
	1220	cmp #8,8(R14)
	1221	bne L83
	1222	*line 442
	1223	*line 443
	1224	*line 444
	1225	clr R0
	1226	move 10+_v_regs,R0
	1227	and #384,R0
	1228	beq L84
	1229	*line 444
	1230	clr (sp)
	1231	jsr _vbank
	1232	*line 445
	1233	L84:
	1234	*line 446
	1235	*line 447
	1236	*line 448
	1237	*line 449
	1238	*line 450
	1239	move #14,(sp)
	1240	move R4,R8
	1241	add.l R8,R8
	1242	add.l R8,R8
	1243	move.l #_idbxlbl,R9
	1244	move.l 0(R8,R9.l),-(sp)
	1245	move _hitbox,R0
	1246	asl #4,R0
	1247	ext.l R0
	1248	move.l R0,R8
	1249	move.l #_idbox,R9
	1250	move 14(R8,R9.l),-(sp)
	1251	move _hitbox,R0
	1252	asl #4,R0
	1253	ext.l R0
	1254	move.l R0,R8
	1255	move.l #_idbox,R9
	1256	move 12(R8,R9.l),-(sp)
	1257	move.l R12,R8
	1258	move R4,R1
	1259	muls #12,R1
	1260	add.l R1,R8
	1261	move.l R8,-(sp)
	1262	move #1,R0
	1263	move.l (sp)+,R8
	1264	eor.b R0,93(R8)
	1265	move.b 93(R8),R0
	1266	and #1,R0
	1267	beq L10008
	1268	move R4,R0
	1269	asl #4,R0
	1270	ext.l R0
	1271	move.l R0,R8
	1272	move.l #_idbox,R9
	1273	move 8(R8,R9.l),-(sp)
	1274	bra L10010
	1275	L10008:move #2,-(sp)
	1276	L10010:move #64,-(sp)
	1277	move.l _instob,-(sp)
	1278	jsr _tsplot4
	1279	adda.l #16,sp
	1280	*line 451
	1281	*line 452
	1282	jsr _modinst
	1283	*line 453
	1284	L83:
	1285	*line 454
	1286	L82:L81:
	1287	*line 455
	1288	*line 456
	1289	L72:
	1290	*line 457
	1291	move #-1,R0
	1292	bra L70
	1293	*line 458
	1294	L71:L70:tst.l (sp)+
	1295	movem.l (sp)+,R4-R7/R12-R13
	1296	unlk R14
	1297	rts
	1298	.globl _idx_key
	1299	.text
	1300	_idx_key:
	1301	~~idx_key:
	1302	link R14,#0
	1303	movem.l R6-R7/R11-R13,-(sp)
	1304	~smp=R13
	1305	~vep=R12
	1306	~i=R7
	1307	~ip=R11
	1308	*line 477
	1309	*line 477
	1310	tst _astat
	1311	beq L86
	1312	*line 478
	1313	*line 479
	1314	*line 480
	1315	tst _idsrcsw
	1316	bne L85
	1317	tst _idcfsw
	1318	bne L85
	1319	tst _idnamsw
	1320	bne L85
	1321	cmp #-1,_wcflag
	1322	bne L85
	1323	*line 481
	1324	*line 482
	1325	*line 482
	1326	cmp #16,_stcrow
	1327	bne L87
	1328	*line 483
	1329	*line 484
	1330	*line 484
	1331	cmp #1,_stccol
	1332	blt L88
	1333	cmp #7,_stccol
	1334	bgt L88
	1335	*line 485
	1336	*line 486
	1337	*line 487
	1338	*line 488
	1339	move.l #_valents,R12
	1340	*line 489
	1341	move _curvce,R0
	1342	asl #4,R0
	1343	move _curfunc,R9
	1344	add.l R9,R9
	1345	add.l #_fnoff,R9
	1346	move (R9),R1
	1347	add R1,R0
	1348	move R0,R8
	1349	add.l R8,R8
	1350	add.l R8,R8
	1351	add.l #_vpsms,R8
	1352	move.l (R8),R13
	1353	*line 490
	1354	*line 491
	1355	*line 491
	1356	tst 10(R13)
	1357	beq L89
	1358	*line 492
	1359	*line 493
	1360	move.l 4(R13),R8
	1361	move.l (R13),(R8)
	1362	*line 494
	1363	move.l (R13),R8
	1364	move.l 4(R13),4(R8)
	1365	*line 495
	1366	*line 496
	1367	move.l R12,4(R13)
	1368	*line 497
	1369	move.l (R12),(R13)
	1370	*line 498
	1371	move.l (R12),R8
	1372	move.l R13,4(R8)
	1373	*line 499
	1374	move.l R13,(R12)
	1375	*line 500
	1376	*line 501
	1377	clr 10(R13)
	1378	*line 502
	1379	*line 503
	1380	L89:
	1381	*line 504
	1382	move _curvce,R0
	1383	muls #3938,R0
	1384	move _curfunc,R1
	1385	muls #12,R1
	1386	add.l R1,R0
	1387	add.l #_vbufs,R0
	1388	move.l R0,R8
	1389	clr.b 90(R8)
	1390	*line 505
	1391	move #13,(sp)
	1392	jsr _dswin
	1393	*line 506
	1394	jsr _modinst
	1395	*line 507
	1396	*line 508
	1397	bra L90
	1398	L88:
	1399	*line 509
	1400	*line 509
	1401	cmp #15,_stccol
	1402	beq L10011
	1403	cmp #16,_stccol
	1404	bne L91
	1405	L10011:*line 510
	1406	*line 511
	1407	*line 512
	1408	*line 513
	1409	jsr _delpnts
	1410	*line 514
	1411	bra L92
	1412	L91:
	1413	*line 515
	1414	*line 515
	1415	cmp #33,_stccol
	1416	blt L93
	1417	cmp #39,_stccol
	1418	bgt L93
	1419	*line 516
	1420	*line 517
	1421	*line 518
	1422	*line 519
	1423	move.l _pntptr,R8
	1424	clr.b 6(R8)
	1425	*line 520
	1426	move #16,(sp)
	1427	jsr _dswin
	1428	*line 521
	1429	jsr _modinst
	1430	*line 522
	1431	*line 523
	1432	L93:L92:L90:bra L94
	1433	L87:
	1434	*line 524
	1435	*line 525
	1436	cmp #17,_stcrow
	1437	bne L95
	1438	cmp #31,_stccol
	1439	beq L10012
	1440	cmp #32,_stccol
	1441	bne L95
	1442	L10012:*line 526
	1443	*line 527
	1444	*line 528
	1445	*line 529
	1446	move _curvce,R0
	1447	muls #3938,R0
	1448	add.l #_vbufs,R0
	1449	move.l R0,(sp)
	1450	jsr _initi
	1451	*line 530
	1452	clr (sp)
	1453	clr -(sp)
	1454	move _curvce,-(sp)
	1455	jsr _execins
	1456	addq.l #4,sp
	1457	*line 531
	1458	jsr _setinst
	1459	*line 532
	1460	jsr _allwins
	1461	*line 533
	1462	jsr _modinst
	1463	*line 534
	1464	L95:L94:
	1465	*line 535
	1466	L86:L85:tst.l (sp)+
	1467	movem.l (sp)+,R7-R7/R11-R13
	1468	unlk R14
	1469	rts
	1470	.globl _idfield
	1471	.text
	1472	_idfield:
	1473	~~idfield:
	1474	link R14,#-4
	1475	*line 549
	1476	clr _idimsw
	1477	*line 550
	1478	move #210,_curslim
	1479	*line 552
	1480	move.l #_id_flds,(sp)
	1481	jsr _curset
	1482	L96:unlk R14
	1483	rts
	1484	.data
	1485	L1:.dc.b $20,$20,$20,$20,$20,$20,$20,$0
	1486	L2:.dc.b $52,$61,$6E,$64,$6F,$6D,$20,$0
	1487	L3:.dc.b $47,$50,$43,$2F,$43,$56,$31,$0
	1488	L4:.dc.b $3F,$3F,$3F,$3F,$3F,$3F,$3F,$0
	1489	L5:.dc.b $3F,$3F,$3F,$3F,$3F,$3F,$3F,$0
	1490	L6:.dc.b $50,$69,$74,$63,$68,$20,$20,$0
	1491	L7:.dc.b $4B,$65,$79,$20,$50,$72,$73,$0
	1492	L8:.dc.b $4B,$65,$79,$20,$56,$65,$6C,$0
	1493	L9:.dc.b $50,$65,$64,$61,$6C,$20,$31,$0
	1494	L10:.dc.b $3F,$3F,$3F,$3F,$3F,$3F,$3F,$0
	1495	L11:.dc.b $46,$72,$65,$71,$20,$20,$20,$0
	1496	L12:.dc.b $50,$63,$68,$57,$2F,$48,$54,$0
	1497	L13:.dc.b $4D,$6F,$64,$57,$2F,$56,$54,$0
	1498	L14:.dc.b $42,$72,$74,$68,$2F,$4C,$50,$0
	1499	L30:.dc.b $25,$30,$32,$64,$2E,$25,$30,$32,$64,$0
	1500	L64:.dc.b $25,$30,$32,$64,$2E,$25,$30,$33,$64,$0

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

Download in other formats:

Original Format