Context Navigation

ptfield.s@ f7c91fc

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

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

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

Download in other formats:

Original Format