Context Navigation

ptdkey.s@ 3fcb810

Last change on this file since 3fcb810 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Added Alcyon C reference output.
Property mode set to `100644`
File size: 43.1 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 _asig
	54	.globl _astat
	55	.globl _dpepred
	56	.globl _dpecpos
	57	.globl _dpesucc
	58	.globl _ptegood
	59	.globl _ptedfok
	60	.globl _ptestok
	61	.globl _ptedsok
	62	.globl _ptedtok
	63	.globl _ptedef
	64	.globl _ptestm
	65	.globl _ptespec
	66	.globl _ptesuba
	67	.globl _ptedat1
	68	.globl _ptedat2
	69	.globl _ptedftp
	70	.globl _ptedfst
	71	.globl _ptedest
	72	.globl _ptedata
	73	.globl _pteset
	74	.globl _ptbflag
	75	.globl _ptemenu
	76	.globl _ptepred
	77	.globl _ptecpos
	78	.globl _ptesucc
	79	.globl _stccol
	80	.globl _stcrow
	81	.globl _ptdebuf
	82	.globl _ptebuf
	83	.globl _dsdecol
	84	.data
	85	_dsdecol:
	86	.dc.w $6
	87	.dc.w $8
	88	.dc.w $13
	89	.dc.w $15
	90	.dc.w $7
	91	.dc.w $8
	92	.dc.w $14
	93	.dc.w $15
	94	.dc.w $8
	95	.dc.w $8
	96	.dc.w $15
	97	.dc.w $15
	98	.dc.w $A
	99	.dc.w $A
	100	.dc.w $17
	101	.dc.w $17
	102	.dc.w $C
	103	.dc.w $D
	104	.dc.w $19
	105	.dc.w $1A
	106	.globl _des2fmt
	107	.data
	108	_des2fmt:
	109	.dc.w $FFFF
	110	.dc.w $0
	111	.dc.w $1
	112	.dc.w $2
	113	.dc.w $3
	114	.dc.w $4
	115	.dc.w $4
	116	.dc.w $5
	117	.dc.w $4
	118	.dc.w $4
	119	.dc.w $6
	120	.dc.w $9
	121	.dc.w $6
	122	.dc.w $6
	123	.dc.w $6
	124	.dc.w $A
	125	.dc.w $9
	126	.dc.w $9
	127	.dc.w $A
	128	.dc.w $A
	129	.dc.w $A
	130	.dc.w $A
	131	.dc.w $7
	132	.dc.w $7
	133	.dc.w $7
	134	.dc.w $7
	135	.dc.w $8
	136	.globl _dtabl7
	137	.data
	138	_dtabl7:
	139	.dc.w $B
	140	.dc.w $1
	141	.dc.w $2
	142	.dc.w $3
	143	.dc.w $A
	144	.globl _dtabl9
	145	.data
	146	_dtabl9:
	147	.dc.w $B
	148	.dc.w $1
	149	.dc.w $2
	150	.dc.w $3
	151	.dc.w $9
	152	.globl _SnapPTV
	153	.text
	154	_SnapPTV:
	155	~~SnapPTV:
	156	~s=8
	157	link R14,#-50
	158	movem.l R5-R7,-(sp)
	159	~stim=R7
	160	~i=R6
	161	~dbuf=-50
	162	*line 105
	163	move.l 8(R14),(sp)
	164	move.l #L2,-(sp)
	165	jsr _printf
	166	addq.l #4,sp
	167	*line 107
	168	move #48,(sp)
	169	move.l #_ptdebuf,-(sp)
	170	move.l R14,-(sp)
	171	add.l #-50,(sp)
	172	jsr _memcpy
	173	addq.l #8,sp
	174	*line 109
	175	clr R6
	176	bra L5
	177	L6:
	178	*line 110
	179	*line 111
	180	move R6,R8
	181	add.l R14,R8
	182	tst.b -50(R8)
	183	bne L7
	184	*line 111
	185	move R6,R8
	186	add.l R14,R8
	187	move.b #32,-50(R8)
	188	bra L8
	189	L7:
	190	*line 112
	191	*line 113
	192	move R6,R8
	193	add.l R14,R8
	194	btst #7,-50(R8)
	195	beq L9
	196	*line 113
	197	move R6,R8
	198	add.l R14,R8
	199	move.b #126,-50(R8)
	200	*line 114
	201	L9:L8:L4:
	202	*line 109
	203	add #1,R6
	204	L5:
	205	*line 109
	206	cmp #48,R6
	207	blt L6
	208	L3:
	209	*line 115
	210	clr.b -2(R14)
	211	*line 117
	212	move.l R14,(sp)
	213	add.l #-50,(sp)
	214	move.l #L10,-(sp)
	215	jsr _printf
	216	addq.l #4,sp
	217	*line 119
	218	*line 120
	219	move _ptedat2,(sp)
	220	move _ptedat1,-(sp)
	221	move _ptesuba,-(sp)
	222	move _ptespec,-(sp)
	223	move _ptestm,-(sp)
	224	move _ptedef,-(sp)
	225	move.l #L11,-(sp)
	226	jsr _printf
	227	adda.l #14,sp
	228	*line 122
	229	*line 123
	230	*line 124
	231	move 14+_ptebuf,(sp)
	232	move 12+_ptebuf,-(sp)
	233	move 10+_ptebuf,-(sp)
	234	move 8+_ptebuf,-(sp)
	235	move 6+_ptebuf,-(sp)
	236	move 4+_ptebuf,-(sp)
	237	move.l #L12,-(sp)
	238	jsr _printf
	239	adda.l #14,sp
	240	*line 126
	241	*line 127
	242	move _ptemenu,(sp)
	243	move _ptedata,-(sp)
	244	move _ptedest,-(sp)
	245	move _ptedfst,-(sp)
	246	move _ptedftp,-(sp)
	247	move.l #L13,-(sp)
	248	jsr _printf
	249	adda.l #12,sp
	250	*line 129
	251	*line 130
	252	move _ptbflag,(sp)
	253	move _pteset,-(sp)
	254	move _ptedtok,-(sp)
	255	move _ptedsok,-(sp)
	256	move _ptestok,-(sp)
	257	move _ptedfok,-(sp)
	258	move _ptegood,-(sp)
	259	move.l #L14,-(sp)
	260	jsr _printf
	261	adda.l #16,sp
	262	*line 132
	263	*line 133
	264	move _ptesucc,(sp)
	265	move _ptecpos,-(sp)
	266	move _ptepred,-(sp)
	267	move.l #L15,-(sp)
	268	jsr _printf
	269	addq.l #8,sp
	270	*line 170
	271	move.l #L16,(sp)
	272	jsr _printf
	273	L1:tst.l (sp)+
	274	movem.l (sp)+,R6-R7
	275	unlk R14
	276	rts
	277	.globl _buf2pte
	278	.text
	279	_buf2pte:
	280	~~buf2pte:
	281	link R14,#-4
	282	*line 184
	283	move _ptedef,4+_ptebuf
	284	*line 185
	285	move _ptestm,6+_ptebuf
	286	*line 186
	287	move _ptespec,8+_ptebuf
	288	*line 187
	289	move _ptesuba,10+_ptebuf
	290	*line 188
	291	move _ptedat1,12+_ptebuf
	292	*line 189
	293	move _ptedat2,14+_ptebuf
	294	*line 191
	295	move #1,_pteset
	296	L17:unlk R14
	297	rts
	298	.globl _voidpb
	299	.text
	300	_voidpb:
	301	~~voidpb:
	302	link R14,#-4
	303	*line 216
	304	move #50,(sp)
	305	move #32,-(sp)
	306	move.l #_ptdebuf,-(sp)
	307	jsr _memset
	308	addq.l #6,sp
	309	*line 218
	310	move #4608,R0
	311	move R0,_ptedef
	312	move R0,4+_ptebuf
	313	*line 219
	314	clr R0
	315	move R0,_ptestm
	316	move R0,6+_ptebuf
	317	*line 220
	318	clr R0
	319	move R0,_ptespec
	320	move R0,8+_ptebuf
	321	*line 221
	322	clr R0
	323	move R0,_ptesuba
	324	move R0,10+_ptebuf
	325	*line 222
	326	clr R0
	327	move R0,_ptedat1
	328	move R0,12+_ptebuf
	329	*line 223
	330	clr R0
	331	move R0,_ptedat2
	332	move R0,14+_ptebuf
	333	*line 225
	334	clr _ptbflag
	335	*line 227
	336	clr _pteset
	337	*line 229
	338	clr _ptegood
	339	*line 231
	340	move #1,_ptedfok
	341	*line 232
	342	clr _ptestok
	343	*line 233
	344	clr _ptedsok
	345	*line 234
	346	clr _ptedtok
	347	*line 236
	348	move #-1,_ptedfst
	349	*line 237
	350	move #-1,_ptedest
	351	*line 238
	352	move #-1,_ptedata
	353	L18:unlk R14
	354	rts
	355	.globl _setptcv
	356	.text
	357	_setptcv:
	358	~~setptcv:
	359	link R14,#0
	360	movem.l R6-R7,-(sp)
	361	~spec=R7
	362	*line 265
	363	move _ptespec,R7
	364	and #255,R7
	365	clr R0
	366	move R7,R0
	367	lsl #1,R0
	368	swap R0
	369	clr R0
	370	swap R0
	371	add.l #_des2fmt,R0
	372	move.l R0,R8
	373	move (R8),_ptedest
	374	*line 267
	375	move _ptedest,R0
	376	bra L21
	377	*line 268
	378	L22:
	379	*line 269
	380	L23:
	381	*line 270
	382	*line 271
	383	*line 272
	384	move #8,_ptedata
	385	bra L20
	386	*line 273
	387	*line 274
	388	L24:
	389	*line 275
	390	*line 276
	391	*line 277
	392	move #9,_ptedata
	393	bra L20
	394	*line 278
	395	*line 279
	396	L25:
	397	*line 280
	398	*line 281
	399	*line 282
	400	move #14,_ptedata
	401	bra L20
	402	*line 283
	403	*line 284
	404	*line 285
	405	L26:
	406	*line 286
	407	*line 287
	408	*line 288
	409	*line 289
	410	cmp #5,R7
	411	bne L27
	412	*line 289
	413	move #13,_ptedata
	414	bra L28
	415	L27:
	416	*line 290
	417	*line 291
	418	cmp #6,R7
	419	bne L29
	420	*line 291
	421	move #9,_ptedata
	422	*line 292
	423	bra L30
	424	L29:
	425	*line 293
	426	move #12,_ptedata
	427	L30:L28:
	428	*line 294
	429	bra L20
	430	*line 295
	431	*line 296
	432	L31:
	433	*line 297
	434	*line 298
	435	*line 299
	436	move #18,_ptedata
	437	bra L20
	438	*line 300
	439	*line 301
	440	L32:
	441	*line 302
	442	*line 303
	443	*line 304
	444	*line 305
	445	cmp #10,R7
	446	bne L33
	447	*line 305
	448	move #15,_ptedata
	449	bra L34
	450	L33:
	451	*line 306
	452	*line 307
	453	cmp #14,R7
	454	bne L35
	455	*line 307
	456	move #17,_ptedata
	457	*line 308
	458	bra L36
	459	L35:
	460	*line 309
	461	move #16,_ptedata
	462	L36:L34:
	463	*line 310
	464	bra L20
	465	*line 311
	466	*line 312
	467	L37:
	468	*line 313
	469	L38:
	470	*line 314
	471	*line 315
	472	*line 316
	473	move _ptedat1,R8
	474	add.l R8,R8
	475	add.l #_dtabl7,R8
	476	move (R8),_ptedata
	477	bra L20
	478	*line 317
	479	*line 318
	480	L39:
	481	*line 319
	482	L40:
	483	*line 320
	484	*line 321
	485	*line 322
	486	*line 323
	487	cmp #11,R7
	488	bne L41
	489	*line 323
	490	move _ptedat1,R0
	491	add #4,R0
	492	move R0,_ptedata
	493	*line 324
	494	bra L42
	495	L41:
	496	*line 325
	497	move _ptedat1,R8
	498	add.l R8,R8
	499	add.l #_dtabl9,R8
	500	move (R8),_ptedata
	501	L42:
	502	*line 326
	503	bra L20
	504	*line 327
	505	*line 328
	506	L43:
	507	*line 329
	508	*line 330
	509	*line 335
	510	*line 336
	511	*line 337
	512	move #-1,_ptedata
	513	bra L20
	514	*line 338
	515	bra L20
	516	L21:cmp #10,R0
	517	bhi L43
	518	asl #2,R0
	519	move R0,R8
	520	add.l #L44,R8
	521	move.l (R8),R8
	522	jmp (R8)
	523	.data
	524	L44:.dc.l L22
	525	.dc.l L24
	526	.dc.l L23
	527	.dc.l L25
	528	.dc.l L26
	529	.dc.l L31
	530	.dc.l L32
	531	.dc.l L37
	532	.dc.l L38
	533	.dc.l L39
	534	.dc.l L40
	535	.text
	536	L20:L19:tst.l (sp)+
	537	movem.l (sp)+,R7-R7
	538	unlk R14
	539	rts
	540	.globl _pte2buf
	541	.text
	542	_pte2buf:
	543	~~pte2buf:
	544	link R14,#0
	545	movem.l R6-R7,-(sp)
	546	~spec=R7
	547	*line 355
	548	move #50,(sp)
	549	move #32,-(sp)
	550	move.l #_ptdebuf,-(sp)
	551	jsr _memset
	552	addq.l #6,sp
	553	*line 357
	554	move #1,_ptbflag
	555	*line 359
	556	*line 359
	557	tst _pteset
	558	beq L46
	559	*line 360
	560	*line 361
	561	move 4+_ptebuf,_ptedef
	562	*line 362
	563	move 6+_ptebuf,_ptestm
	564	*line 363
	565	move 8+_ptebuf,_ptespec
	566	*line 364
	567	move 10+_ptebuf,_ptesuba
	568	*line 365
	569	move 12+_ptebuf,_ptedat1
	570	*line 366
	571	move 14+_ptebuf,_ptedat2
	572	*line 367
	573	*line 368
	574	jsr _setptcv
	575	*line 369
	576	*line 370
	577	move _ptedef,(sp)
	578	move.l #2+_ptdebuf,-(sp)
	579	jsr _dspdfst
	580	addq.l #4,sp
	581	*line 371
	582	move _ptestm,(sp)
	583	move.l #15+_ptdebuf,-(sp)
	584	jsr _dspdfst
	585	addq.l #4,sp
	586	*line 372
	587	move.l #_ptebuf,(sp)
	588	move.l #28+_ptdebuf,-(sp)
	589	jsr _dspdest
	590	addq.l #4,sp
	591	*line 373
	592	move.b #32,_ptdebuf
	593	*line 374
	594	move.b #32,1+_ptdebuf
	595	*line 375
	596	move.b #32,14+_ptdebuf
	597	*line 376
	598	move.b #32,27+_ptdebuf
	599	*line 377
	600	*line 378
	601	*line 379
	602	*line 380
	603	move #1,_ptegood
	604	*line 381
	605	move #1,_ptedfok
	606	*line 382
	607	move #1,_ptestok
	608	*line 383
	609	move #1,_ptedsok
	610	*line 384
	611	move #1,_ptedtok
	612	*line 385
	613	*line 394
	614	*line 395
	615	bra L47
	616	L46:
	617	*line 396
	618	*line 397
	619	*line 398
	620	jsr _voidpb
	621	*line 399
	622	*line 403
	623	*line 404
	624	L47:L45:tst.l (sp)+
	625	movem.l (sp)+,R7-R7
	626	unlk R14
	627	rts
	628	.globl _ptde_ds
	629	.text
	630	_ptde_ds:
	631	~~ptde_ds:
	632	~n=R7
	633	~key=R6
	634	link R14,#-16
	635	movem.l R2-R7,-(sp)
	636	~chan=R5
	637	~port=R4
	638	~stim=R3
	639	~buf=-8
	640	~buf2=-16
	641	*line 423
	642	move 8(R14),R7
	643	*line 423
	644	move 10(R14),R6
	645	*line 423
	646	*line 423
	647	tst R7
	648	beq L10000
	649	move _ptestok,R0
	650	bra L10002
	651	L10000:move _ptedfok,R0
	652	L10002:tst R0
	653	beq L49
	654	*line 424
	655	*line 425
	656	*line 426
	657	tst R7
	658	bne L10003
	659	cmp #-1,_ptedef
	660	beq L48
	661	L10003:*line 427
	662	*line 428
	663	tst R7
	664	beq L10004
	665	move _ptestm,R0
	666	bra L10006
	667	L10004:move _ptedef,R0
	668	L10006:move R0,R4
	669	move #11,R0
	670	asr R0,R4
	671	and #3,R4
	672	*line 429
	673	tst R7
	674	beq L10007
	675	move _ptestm,R0
	676	bra L10009
	677	L10007:move _ptedef,R0
	678	L10009:move R0,R5
	679	asr #7,R5
	680	and #15,R5
	681	*line 430
	682	tst R7
	683	beq L10010
	684	move _ptestm,R0
	685	bra L10012
	686	L10010:move _ptedef,R0
	687	L10012:move R0,R3
	688	and #127,R3
	689	*line 431
	690	*line 432
	691	*line 432
	692	tst R4
	693	beq L10013
	694	cmp #1,R4
	695	beq L10013
	696	cmp #2,R4
	697	bne L50
	698	cmp #2,R5
	699	bge L50
	700	L10013:*line 433
	701	*line 434
	702	*line 435
	703	*line 436
	704	*line 437
	705	*line 438
	706	move R7,R8
	707	add.l R8,R8
	708	add.l R8,R8
	709	move.l #_dsdecol,R9
	710	move 0(R8,R9.l),R0
	711	cmp _stccol,R0
	712	bgt L10015
	713	move R7,R8
	714	add.l R8,R8
	715	add.l R8,R8
	716	move.l #_dsdecol,R9
	717	move 2(R8,R9.l),R0
	718	cmp _stccol,R0
	719	bge L10014
	720	L10015:move R7,R8
	721	add.l R8,R8
	722	add.l R8,R8
	723	move.l #_dsdecol,R9
	724	move 24(R8,R9.l),R0
	725	cmp _stccol,R0
	726	bgt L10016
	727	move R7,R8
	728	add.l R8,R8
	729	add.l R8,R8
	730	move.l #_dsdecol,R9
	731	move 26(R8,R9.l),R0
	732	cmp _stccol,R0
	733	bge L10014
	734	L10016:move R7,R8
	735	add.l R8,R8
	736	add.l R8,R8
	737	move.l #_dsdecol,R9
	738	move 32(R8,R9.l),R0
	739	cmp _stccol,R0
	740	bgt L51
	741	move R7,R8
	742	add.l R8,R8
	743	add.l R8,R8
	744	move.l #_dsdecol,R9
	745	move 34(R8,R9.l),R0
	746	cmp _stccol,R0
	747	blt L51
	748	L10014:*line 439
	749	*line 440
	750	*line 440
	751	move R7,R8
	752	add.l R8,R8
	753	add.l R8,R8
	754	move.l #_dsdecol,R9
	755	move 26(R8,R9.l),R0
	756	cmp _stccol,R0
	757	bne L52
	758	*line 441
	759	*line 442
	760	*line 443
	761	cmp #1,R6
	762	blt L48
	763	cmp #3,R6
	764	bgt L48
	765	*line 444
	766	*line 445
	767	*line 445
	768	cmp #3,R6
	769	bne L53
	770	*line 446
	771	*line 447
	772	move.b #76,-8(R14)
	773	*line 448
	774	move #98,(sp)
	775	move.l #L54,-(sp)
	776	tst R7
	777	beq L10017
	778	move #25,-(sp)
	779	bra L10019
	780	L10017:move #12,-(sp)
	781	L10019:move #7,-(sp)
	782	jsr _UpdVid
	783	addq.l #8,sp
	784	*line 449
	785	*line 450
	786	*line 451
	787	tst R7
	788	beq L55
	789	*line 451
	790	and #-1921,_ptestm
	791	*line 452
	792	bra L56
	793	L55:
	794	*line 453
	795	and #-1921,_ptedef
	796	L56:
	797	*line 454
	798	bra L57
	799	L53:
	800	*line 455
	801	*line 456
	802	*line 457
	803	move R5,(sp)
	804	add #1,(sp)
	805	move.l #L58,-(sp)
	806	move.l R14,-(sp)
	807	add.l #-16,(sp)
	808	jsr _sprintf
	809	addq.l #8,sp
	810	*line 458
	811	move R6,R0
	812	add #48,R0
	813	move.b R0,-8(R14)
	814	*line 459
	815	move #98,(sp)
	816	move.l R14,-(sp)
	817	add.l #-16,(sp)
	818	tst R7
	819	beq L10020
	820	move #25,-(sp)
	821	bra L10022
	822	L10020:move #12,-(sp)
	823	L10022:move #7,-(sp)
	824	jsr _UpdVid
	825	addq.l #8,sp
	826	L57:
	827	*line 460
	828	*line 461
	829	*line 462
	830	*line 463
	831	move R6,R4
	832	sub #1,R4
	833	*line 464
	834	*line 465
	835	*line 466
	836	tst R7
	837	beq L59
	838	*line 466
	839	move _ptestm,R0
	840	and #-6145,R0
	841	move R4,R1
	842	move #11,R2
	843	asl R2,R1
	844	or R1,R0
	845	move R0,_ptestm
	846	*line 467
	847	bra L60
	848	L59:
	849	*line 468
	850	move _ptestm,R0
	851	and #-6145,R0
	852	move R4,R1
	853	move #11,R2
	854	asl R2,R1
	855	or R1,R0
	856	move R0,_ptedef
	857	L60:
	858	*line 469
	859	bra L61
	860	L52:
	861	*line 470
	862	*line 471
	863	*line 472
	864	move R6,R0
	865	add #48,R0
	866	move.b R0,-8(R14)
	867	L61:
	868	*line 473
	869	*line 474
	870	*line 475
	871	move.l #_ptdebuf,R8
	872	move _stccol,R9
	873	add.l R9,R8
	874	move.b -8(R14),(R8)
	875	*line 476
	876	clr.b -7(R14)
	877	*line 477
	878	*line 478
	879	move #98,(sp)
	880	move.l R14,-(sp)
	881	sub.l #8,(sp)
	882	move _stccol,-(sp)
	883	move #7,-(sp)
	884	jsr _UpdVid
	885	addq.l #8,sp
	886	*line 479
	887	*line 480
	888	*line 480
	889	move R7,R8
	890	add.l R8,R8
	891	add.l R8,R8
	892	move.l #_dsdecol,R9
	893	move 34(R8,R9.l),R0
	894	cmp _stccol,R0
	895	bne L62
	896	*line 481
	897	*line 482
	898	jsr _ctcon
	899	bra L48
	900	*line 483
	901	*line 484
	902	*line 485
	903	L62:
	904	*line 486
	905	*line 487
	906	*line 488
	907	move R7,R8
	908	add.l R8,R8
	909	add.l R8,R8
	910	move.l #_dsdecol,R9
	911	move 2(R8,R9.l),R0
	912	cmp _stccol,R0
	913	beq L10023
	914	move R7,R8
	915	add.l R8,R8
	916	add.l R8,R8
	917	move.l #_dsdecol,R9
	918	move 26(R8,R9.l),R0
	919	cmp _stccol,R0
	920	bne L63
	921	L10023:*line 488
	922	add #1,_stccol
	923	*line 489
	924	L63:
	925	*line 490
	926	add #1,_stccol
	927	move _stccol,(sp)
	928	move _stcrow,-(sp)
	929	jsr _movectc
	930	addq.l #2,sp
	931	*line 491
	932	*line 492
	933	L51:bra L48
	934	*line 493
	935	*line 494
	936	*line 495
	937	bra L64
	938	L50:
	939	*line 496
	940	*line 496
	941	cmp #2,R4
	942	bne L65
	943	cmp #2,R5
	944	bne L65
	945	*line 497
	946	*line 498
	947	*line 499
	948	*line 500
	949	*line 500
	950	move R7,R8
	951	add.l R8,R8
	952	add.l R8,R8
	953	move.l #_dsdecol,R9
	954	move 8(R8,R9.l),R0
	955	cmp _stccol,R0
	956	bgt L66
	957	move R7,R8
	958	add.l R8,R8
	959	add.l R8,R8
	960	move.l #_dsdecol,R9
	961	move 10(R8,R9.l),R0
	962	cmp _stccol,R0
	963	blt L66
	964	*line 501
	965	*line 502
	966	move R6,R0
	967	add #48,R0
	968	move.l #_ptdebuf,R9
	969	move _stccol,R10
	970	add.l R10,R9
	971	move.b R0,(R9)
	972	*line 503
	973	move R6,R0
	974	add #48,R0
	975	move.b R0,-8(R14)
	976	*line 504
	977	clr.b -7(R14)
	978	*line 505
	979	*line 506
	980	move #98,(sp)
	981	move.l R14,-(sp)
	982	sub.l #8,(sp)
	983	move _stccol,-(sp)
	984	move #7,-(sp)
	985	jsr _UpdVid
	986	addq.l #8,sp
	987	*line 507
	988	*line 508
	989	*line 508
	990	move R7,R8
	991	add.l R8,R8
	992	add.l R8,R8
	993	move.l #_dsdecol,R9
	994	move 10(R8,R9.l),R0
	995	cmp _stccol,R0
	996	bne L67
	997	*line 509
	998	*line 510
	999	jsr _ctcon
	1000	bra L48
	1001	*line 511
	1002	*line 512
	1003	*line 513
	1004	L67:
	1005	*line 514
	1006	add #1,_stccol
	1007	move _stccol,(sp)
	1008	move _stcrow,-(sp)
	1009	jsr _movectc
	1010	addq.l #2,sp
	1011	*line 515
	1012	*line 516
	1013	L66:bra L48
	1014	*line 517
	1015	*line 518
	1016	bra L68
	1017	L65:
	1018	*line 519
	1019	*line 519
	1020	cmp #2,R4
	1021	bne L69
	1022	cmp #3,R5
	1023	bne L69
	1024	*line 520
	1025	*line 521
	1026	*line 522
	1027	*line 523
	1028	*line 523
	1029	move R7,R8
	1030	add.l R8,R8
	1031	add.l R8,R8
	1032	move.l #_dsdecol,R9
	1033	move 18(R8,R9.l),R0
	1034	cmp _stccol,R0
	1035	bne L70
	1036	*line 524
	1037	*line 525
	1038	*line 526
	1039	cmp #1,R6
	1040	blt L48
	1041	cmp #2,R6
	1042	bgt L48
	1043	*line 527
	1044	*line 528
	1045	move R6,R0
	1046	add #48,R0
	1047	move.l #_ptdebuf,R9
	1048	move _stccol,R10
	1049	add.l R10,R9
	1050	move.b R0,(R9)
	1051	*line 529
	1052	move R6,R0
	1053	add #48,R0
	1054	move.b R0,-8(R14)
	1055	*line 530
	1056	clr.b -7(R14)
	1057	*line 531
	1058	*line 532
	1059	move #98,(sp)
	1060	move.l R14,-(sp)
	1061	sub.l #8,(sp)
	1062	move _stccol,-(sp)
	1063	move #7,-(sp)
	1064	jsr _UpdVid
	1065	addq.l #8,sp
	1066	*line 533
	1067	jsr _ctcon
	1068	*line 534
	1069	*line 535
	1070	L70:bra L48
	1071	*line 536
	1072	*line 537
	1073	L69:L68:L64:
	1074	*line 538
	1075	L49:L48:tst.l (sp)+
	1076	movem.l (sp)+,R3-R7
	1077	unlk R14
	1078	rts
	1079	.globl _ptdkey
	1080	.text
	1081	_ptdkey:
	1082	~~ptdkey:
	1083	link R14,#-8
	1084	movem.l R4-R7,-(sp)
	1085	~key=R7
	1086	~val=R6
	1087	~vg=R5
	1088	~buf=-8
	1089	*line 555
	1090	*line 556
	1091	tst _astat
	1092	beq L71
	1093	*line 557
	1094	*line 558
	1095	*line 559
	1096	tst _ptbflag
	1097	bne L72
	1098	*line 559
	1099	jsr _pte2buf
	1100	*line 560
	1101	L72:
	1102	*line 561
	1103	move _asig,R7
	1104	add #-60,R7
	1105	*line 563
	1106	*line 563
	1107	cmp #2,_stccol
	1108	blt L73
	1109	cmp #13,_stccol
	1110	bgt L73
	1111	*line 564
	1112	*line 565
	1113	move R7,(sp)
	1114	clr -(sp)
	1115	jsr _ptde_ds
	1116	addq.l #2,sp
	1117	bra L71
	1118	*line 566
	1119	*line 567
	1120	bra L74
	1121	L73:
	1122	*line 568
	1123	*line 568
	1124	cmp #15,_stccol
	1125	blt L75
	1126	cmp #26,_stccol
	1127	bgt L75
	1128	*line 569
	1129	*line 570
	1130	move R7,(sp)
	1131	move #1,-(sp)
	1132	jsr _ptde_ds
	1133	addq.l #2,sp
	1134	bra L71
	1135	*line 571
	1136	*line 572
	1137	*line 573
	1138	bra L76
	1139	L75:
	1140	*line 574
	1141	*line 574
	1142	cmp #28,_stccol
	1143	blt L77
	1144	cmp #40,_stccol
	1145	bgt L77
	1146	*line 575
	1147	*line 576
	1148	*line 576
	1149	tst _ptedsok
	1150	beq L78
	1151	*line 577
	1152	*line 578
	1153	move _ptedest,R0
	1154	bra L80
	1155	*line 579
	1156	L81:
	1157	*line 580
	1158	*line 581
	1159	*line 582
	1160	*line 583
	1161	*line 584
	1162	cmp #30,_stccol
	1163	blt L10025
	1164	cmp #32,_stccol
	1165	ble L10024
	1166	L10025:cmp #34,_stccol
	1167	beq L10024
	1168	cmp #36,_stccol
	1169	blt L82
	1170	cmp #37,_stccol
	1171	bgt L82
	1172	L10024:*line 585
	1173	*line 586
	1174	*line 586
	1175	cmp #34,_stccol
	1176	bne L83
	1177	*line 587
	1178	*line 588
	1179	*line 589
	1180	cmp #1,R7
	1181	blt L71
	1182	cmp #3,R7
	1183	bgt L71
	1184	*line 590
	1185	*line 591
	1186	*line 592
	1187	cmp #3,R7
	1188	bne L84
	1189	*line 592
	1190	move.b #76,-8(R14)
	1191	*line 593
	1192	bra L85
	1193	L84:
	1194	*line 594
	1195	move R7,R0
	1196	add #48,R0
	1197	move.b R0,-8(R14)
	1198	L85:
	1199	*line 595
	1200	bra L86
	1201	L83:
	1202	*line 596
	1203	*line 597
	1204	*line 598
	1205	move R7,R0
	1206	add #48,R0
	1207	move.b R0,-8(R14)
	1208	L86:
	1209	*line 599
	1210	*line 600
	1211	*line 601
	1212	move.l #_ptdebuf,R8
	1213	move _stccol,R9
	1214	add.l R9,R8
	1215	move.b -8(R14),(R8)
	1216	*line 602
	1217	clr.b -7(R14)
	1218	*line 603
	1219	*line 604
	1220	move #98,(sp)
	1221	move.l R14,-(sp)
	1222	sub.l #8,(sp)
	1223	move _stccol,-(sp)
	1224	move #7,-(sp)
	1225	jsr _UpdVid
	1226	addq.l #8,sp
	1227	*line 605
	1228	*line 606
	1229	*line 607
	1230	cmp #32,_stccol
	1231	beq L10026
	1232	cmp #34,_stccol
	1233	bne L87
	1234	L10026:*line 607
	1235	add #1,_stccol
	1236	*line 608
	1237	L87:
	1238	*line 609
	1239	*line 610
	1240	cmp #37,_stccol
	1241	bne L88
	1242	*line 610
	1243	jsr _ctcon
	1244	*line 611
	1245	bra L89
	1246	L88:
	1247	*line 612
	1248	add #1,_stccol
	1249	move _stccol,(sp)
	1250	move _stcrow,-(sp)
	1251	jsr _movectc
	1252	addq.l #2,sp
	1253	L89:
	1254	*line 613
	1255	*line 614
	1256	L82:bra L71
	1257	*line 615
	1258	*line 616
	1259	*line 617
	1260	L90:
	1261	*line 618
	1262	*line 619
	1263	*line 620
	1264	*line 620
	1265	cmp #36,_stccol
	1266	blt L91
	1267	cmp #37,_stccol
	1268	bgt L91
	1269	*line 621
	1270	*line 622
	1271	move R7,R0
	1272	add #48,R0
	1273	move.l #_ptdebuf,R9
	1274	move _stccol,R10
	1275	add.l R10,R9
	1276	move.b R0,(R9)
	1277	*line 623
	1278	move R7,R0
	1279	add #48,R0
	1280	move.b R0,-8(R14)
	1281	*line 624
	1282	clr.b -7(R14)
	1283	*line 625
	1284	*line 626
	1285	move #98,(sp)
	1286	move.l R14,-(sp)
	1287	sub.l #8,(sp)
	1288	move _stccol,-(sp)
	1289	move #7,-(sp)
	1290	jsr _UpdVid
	1291	addq.l #8,sp
	1292	*line 627
	1293	*line 628
	1294	*line 629
	1295	cmp #37,_stccol
	1296	bne L92
	1297	*line 629
	1298	jsr _ctcon
	1299	*line 630
	1300	bra L93
	1301	L92:
	1302	*line 631
	1303	add #1,_stccol
	1304	move _stccol,(sp)
	1305	move _stcrow,-(sp)
	1306	jsr _movectc
	1307	addq.l #2,sp
	1308	L93:
	1309	*line 632
	1310	*line 633
	1311	L91:bra L71
	1312	*line 634
	1313	*line 635
	1314	L94:
	1315	*line 636
	1316	*line 637
	1317	*line 638
	1318	*line 638
	1319	cmp #34,_stccol
	1320	bne L95
	1321	*line 639
	1322	*line 640
	1323	*line 641
	1324	cmp #1,R7
	1325	blt L71
	1326	cmp #2,R7
	1327	bgt L71
	1328	*line 642
	1329	*line 643
	1330	move R7,R0
	1331	add #48,R0
	1332	move.l #_ptdebuf,R9
	1333	move _stccol,R10
	1334	add.l R10,R9
	1335	move.b R0,(R9)
	1336	*line 644
	1337	move R7,R0
	1338	add #48,R0
	1339	move.b R0,-8(R14)
	1340	*line 645
	1341	clr.b -7(R14)
	1342	*line 646
	1343	*line 647
	1344	move #98,(sp)
	1345	move.l R14,-(sp)
	1346	sub.l #8,(sp)
	1347	move _stccol,-(sp)
	1348	move #7,-(sp)
	1349	jsr _UpdVid
	1350	addq.l #8,sp
	1351	*line 648
	1352	jsr _ctcon
	1353	*line 649
	1354	*line 650
	1355	L95:bra L71
	1356	*line 651
	1357	*line 652
	1358	*line 653
	1359	L96:
	1360	*line 654
	1361	*line 655
	1362	*line 656
	1363	*line 656
	1364	cmp #32,_stccol
	1365	bne L97
	1366	*line 657
	1367	*line 658
	1368	*line 659
	1369	cmp #6,R7
	1370	bgt L71
	1371	*line 660
	1372	*line 661
	1373	move R7,R0
	1374	add #65,R0
	1375	move.l #_ptdebuf,R9
	1376	move _stccol,R10
	1377	add.l R10,R9
	1378	move.b R0,(R9)
	1379	*line 662
	1380	move R7,R0
	1381	add #65,R0
	1382	move.b R0,-8(R14)
	1383	*line 663
	1384	clr.b -7(R14)
	1385	*line 664
	1386	*line 665
	1387	move #98,(sp)
	1388	move.l R14,-(sp)
	1389	sub.l #8,(sp)
	1390	move _stccol,-(sp)
	1391	move #7,-(sp)
	1392	jsr _UpdVid
	1393	addq.l #8,sp
	1394	*line 666
	1395	jsr _ctcon
	1396	*line 667
	1397	*line 668
	1398	L97:bra L71
	1399	*line 669
	1400	*line 670
	1401	L98:
	1402	*line 671
	1403	*line 672
	1404	*line 673
	1405	*line 673
	1406	cmp #32,_stccol
	1407	blt L99
	1408	cmp #33,_stccol
	1409	bgt L99
	1410	*line 674
	1411	*line 675
	1412	move R7,R0
	1413	add #48,R0
	1414	move.l #_ptdebuf,R9
	1415	move _stccol,R10
	1416	add.l R10,R9
	1417	move.b R0,(R9)
	1418	*line 676
	1419	move R7,R0
	1420	add #48,R0
	1421	move.b R0,-8(R14)
	1422	*line 677
	1423	clr.b -7(R14)
	1424	*line 678
	1425	*line 679
	1426	move #98,(sp)
	1427	move.l R14,-(sp)
	1428	sub.l #8,(sp)
	1429	move _stccol,-(sp)
	1430	move #7,-(sp)
	1431	jsr _UpdVid
	1432	addq.l #8,sp
	1433	*line 680
	1434	*line 681
	1435	*line 682
	1436	cmp #33,_stccol
	1437	bne L100
	1438	*line 682
	1439	jsr _ctcon
	1440	*line 683
	1441	bra L101
	1442	L100:
	1443	*line 684
	1444	add #1,_stccol
	1445	move _stccol,(sp)
	1446	move _stcrow,-(sp)
	1447	jsr _movectc
	1448	addq.l #2,sp
	1449	L101:
	1450	*line 685
	1451	*line 686
	1452	L99:bra L71
	1453	*line 687
	1454	*line 688
	1455	*line 689
	1456	L102:
	1457	*line 690
	1458	L103:
	1459	*line 691
	1460	*line 692
	1461	bra L71
	1462	*line 693
	1463	*line 694
	1464	L104:
	1465	*line 695
	1466	*line 696
	1467	*line 697
	1468	*line 697
	1469	cmp #32,_stccol
	1470	bne L105
	1471	*line 698
	1472	*line 699
	1473	*line 700
	1474	cmp #1,R7
	1475	blt L71
	1476	cmp #5,R7
	1477	bgt L71
	1478	*line 701
	1479	*line 702
	1480	move R7,R0
	1481	add #48,R0
	1482	move.l #_ptdebuf,R9
	1483	move _stccol,R10
	1484	add.l R10,R9
	1485	move.b R0,(R9)
	1486	*line 703
	1487	move R7,R0
	1488	add #48,R0
	1489	move.b R0,-8(R14)
	1490	*line 704
	1491	clr.b -7(R14)
	1492	*line 705
	1493	*line 706
	1494	move #98,(sp)
	1495	move.l R14,-(sp)
	1496	sub.l #8,(sp)
	1497	move _stccol,-(sp)
	1498	move #7,-(sp)
	1499	jsr _UpdVid
	1500	addq.l #8,sp
	1501	*line 707
	1502	move #34,(sp)
	1503	move #9,-(sp)
	1504	jsr _movectc
	1505	addq.l #2,sp
	1506	*line 708
	1507	*line 709
	1508	L105:bra L71
	1509	*line 710
	1510	*line 711
	1511	L106:
	1512	*line 712
	1513	*line 713
	1514	*line 714
	1515	*line 714
	1516	cmp #32,_stccol
	1517	bne L107
	1518	*line 715
	1519	*line 716
	1520	*line 717
	1521	cmp #1,R7
	1522	blt L71
	1523	cmp #4,R7
	1524	bgt L71
	1525	*line 718
	1526	*line 719
	1527	move R7,R0
	1528	add #48,R0
	1529	move.l #_ptdebuf,R9
	1530	move _stccol,R10
	1531	add.l R10,R9
	1532	move.b R0,(R9)
	1533	*line 720
	1534	move R7,R0
	1535	add #48,R0
	1536	move.b R0,-8(R14)
	1537	*line 721
	1538	clr.b -7(R14)
	1539	*line 722
	1540	*line 723
	1541	move #98,(sp)
	1542	move.l R14,-(sp)
	1543	sub.l #8,(sp)
	1544	move _stccol,-(sp)
	1545	move #7,-(sp)
	1546	jsr _UpdVid
	1547	addq.l #8,sp
	1548	*line 724
	1549	move #34,(sp)
	1550	move #9,-(sp)
	1551	jsr _movectc
	1552	addq.l #2,sp
	1553	bra L71
	1554	*line 725
	1555	*line 726
	1556	*line 727
	1557	*line 728
	1558	*line 729
	1559	*line 730
	1560	L107:L108:
	1561	*line 731
	1562	L109:
	1563	*line 732
	1564	*line 733
	1565	*line 734
	1566	*line 734
	1567	cmp #39,_stccol
	1568	blt L110
	1569	cmp #40,_stccol
	1570	bgt L110
	1571	*line 735
	1572	*line 736
	1573	move _ptesuba,R5
	1574	asr #8,R5
	1575	and #255,R5
	1576	*line 737
	1577	*line 738
	1578	*line 738
	1579	cmp #39,_stccol
	1580	bne L111
	1581	*line 739
	1582	*line 740
	1583	*line 740
	1584	cmp #8,R7
	1585	beq L10027
	1586	cmp #9,R7
	1587	bne L112
	1588	L10027:*line 741
	1589	*line 742
	1590	*line 742
	1591	cmp #11,R5
	1592	ble L113
	1593	*line 743
	1594	*line 744
	1595	sub #12,R5
	1596	*line 745
	1597	move #86,R6
	1598	*line 746
	1599	bra L114
	1600	L113:
	1601	*line 747
	1602	*line 748
	1603	*line 749
	1604	add #12,R5
	1605	*line 750
	1606	move #71,R6
	1607	L114:
	1608	*line 751
	1609	*line 752
	1610	*line 753
	1611	*line 754
	1612	move _ptesuba,R0
	1613	and #255,R0
	1614	move R5,R1
	1615	asl #8,R1
	1616	or R1,R0
	1617	move R0,_ptesuba
	1618	*line 755
	1619	bra L115
	1620	L112:
	1621	*line 756
	1622	*line 757
	1623	bra L71
	1624	*line 758
	1625	L115:
	1626	*line 759
	1627	*line 760
	1628	*line 761
	1629	bra L116
	1630	L111:
	1631	*line 762
	1632	*line 763
	1633	*line 764
	1634	*line 765
	1635	*line 766
	1636	tst R5
	1637	beq L10028
	1638	cmp #12,R5
	1639	bne L117
	1640	L10028:tst R7
	1641	beq L10029
	1642	cmp #1,R7
	1643	beq L10029
	1644	cmp #2,R7
	1645	bne L117
	1646	L10029:*line 766
	1647	add #10,R7
	1648	bra L118
	1649	L117:
	1650	*line 767
	1651	*line 768
	1652	tst R7
	1653	beq L71
	1654	*line 769
	1655	L118:
	1656	*line 770
	1657	move R7,R6
	1658	cmp #9,R7
	1659	ble L10030
	1660	move #162,R0
	1661	bra L10032
	1662	L10030:move #48,R0
	1663	L10032:add R0,R6
	1664	*line 771
	1665	*line 772
	1666	sub #1,R7
	1667	*line 773
	1668	*line 774
	1669	*line 775
	1670	cmp #11,R5
	1671	ble L119
	1672	*line 775
	1673	move R7,R5
	1674	add #12,R5
	1675	*line 776
	1676	bra L120
	1677	L119:
	1678	*line 777
	1679	move R7,R5
	1680	L120:
	1681	*line 778
	1682	*line 779
	1683	*line 780
	1684	move _ptesuba,R0
	1685	and #255,R0
	1686	move R5,R1
	1687	asl #8,R1
	1688	or R1,R0
	1689	move R0,_ptesuba
	1690	L116:
	1691	*line 781
	1692	*line 782
	1693	*line 783
	1694	move R6,R0
	1695	move.l #_ptdebuf,R9
	1696	move _stccol,R10
	1697	add.l R10,R9
	1698	move.b R0,(R9)
	1699	*line 784
	1700	move.b R6,-8(R14)
	1701	*line 785
	1702	clr.b -7(R14)
	1703	*line 786
	1704	*line 787
	1705	move #98,(sp)
	1706	move.l R14,-(sp)
	1707	sub.l #8,(sp)
	1708	move _stccol,-(sp)
	1709	move #7,-(sp)
	1710	jsr _UpdVid
	1711	addq.l #8,sp
	1712	*line 788
	1713	*line 789
	1714	*line 790
	1715	cmp #40,_stccol
	1716	bne L121
	1717	*line 790
	1718	jsr _ctcon
	1719	*line 791
	1720	bra L122
	1721	L121:
	1722	*line 792
	1723	add #1,_stccol
	1724	move _stccol,(sp)
	1725	move _stcrow,-(sp)
	1726	jsr _movectc
	1727	addq.l #2,sp
	1728	L122:
	1729	*line 793
	1730	*line 794
	1731	L110:bra L71
	1732	*line 795
	1733	*line 796
	1734	L123:
	1735	*line 797
	1736	*line 798
	1737	bra L71
	1738	*line 799
	1739	bra L79
	1740	L80:cmp #10,R0
	1741	bhi L123
	1742	asl #2,R0
	1743	move R0,R8
	1744	add.l #L124,R8
	1745	move.l (R8),R8
	1746	jmp (R8)
	1747	.data
	1748	L124:.dc.l L81
	1749	.dc.l L90
	1750	.dc.l L94
	1751	.dc.l L96
	1752	.dc.l L98
	1753	.dc.l L102
	1754	.dc.l L108
	1755	.dc.l L103
	1756	.dc.l L104
	1757	.dc.l L106
	1758	.dc.l L109
	1759	.text
	1760	L79:
	1761	*line 800
	1762	*line 801
	1763	*line 802
	1764	*line 803
	1765	L78:bra L125
	1766	L77:
	1767	*line 804
	1768	*line 804
	1769	cmp #42,_stccol
	1770	blt L126
	1771	cmp #46,_stccol
	1772	bgt L126
	1773	*line 805
	1774	*line 806
	1775	move _ptedata,R0
	1776	bra L128
	1777	*line 807
	1778	L129:
	1779	*line 808
	1780	*line 809
	1781	*line 810
	1782	move _stccol,R0
	1783	bra L131
	1784	*line 811
	1785	L132:
	1786	*line 812
	1787	*line 813
	1788	*line 814
	1789	*line 815
	1790	cmp #8,R7
	1791	bne L133
	1792	*line 815
	1793	move.b #45,-8(R14)
	1794	bra L134
	1795	L133:
	1796	*line 816
	1797	*line 817
	1798	cmp #9,R7
	1799	bne L135
	1800	*line 817
	1801	move.b #43,-8(R14)
	1802	*line 818
	1803	bra L136
	1804	L135:bra L71
	1805	L136:L134:
	1806	*line 819
	1807	*line 820
	1808	bra L130
	1809	*line 821
	1810	*line 822
	1811	L137:
	1812	*line 823
	1813	*line 824
	1814	*line 825
	1815	*line 826
	1816	tst R7
	1817	beq L10033
	1818	cmp #1,R7
	1819	bne L138
	1820	L10033:*line 826
	1821	move R7,R0
	1822	add #48,R0
	1823	move.b R0,-8(R14)
	1824	*line 827
	1825	bra L139
	1826	L138:bra L71
	1827	L139:
	1828	*line 828
	1829	*line 829
	1830	bra L130
	1831	*line 830
	1832	*line 831
	1833	L140:
	1834	*line 832
	1835	L141:
	1836	*line 833
	1837	*line 834
	1838	*line 835
	1839	move R7,R0
	1840	add #48,R0
	1841	move.b R0,-8(R14)
	1842	bra L130
	1843	*line 836
	1844	*line 837
	1845	L142:
	1846	*line 838
	1847	L143:
	1848	*line 839
	1849	*line 840
	1850	bra L71
	1851	*line 841
	1852	bra L130
	1853	L131:sub #42,R0
	1854	cmp #4,R0
	1855	bhi L143
	1856	asl #2,R0
	1857	move R0,R8
	1858	add.l #L144,R8
	1859	move.l (R8),R8
	1860	jmp (R8)
	1861	.data
	1862	L144:.dc.l L132
	1863	.dc.l L137
	1864	.dc.l L142
	1865	.dc.l L140
	1866	.dc.l L141
	1867	.text
	1868	L130:
	1869	*line 842
	1870	*line 843
	1871	*line 844
	1872	*line 845
	1873	clr.b -7(R14)
	1874	*line 846
	1875	move.l #_ptdebuf,R8
	1876	move _stccol,R9
	1877	add.l R9,R8
	1878	move.b -8(R14),(R8)
	1879	*line 847
	1880	*line 848
	1881	move #98,(sp)
	1882	move.l R14,-(sp)
	1883	sub.l #8,(sp)
	1884	move _stccol,-(sp)
	1885	move #7,-(sp)
	1886	jsr _UpdVid
	1887	addq.l #8,sp
	1888	*line 849
	1889	*line 850
	1890	*line 851
	1891	cmp #43,_stccol
	1892	bne L145
	1893	*line 851
	1894	add #1,_stccol
	1895	*line 852
	1896	L145:
	1897	*line 853
	1898	*line 854
	1899	cmp #46,_stccol
	1900	bne L146
	1901	*line 854
	1902	jsr _ctcon
	1903	*line 855
	1904	bra L147
	1905	L146:
	1906	*line 856
	1907	add #1,_stccol
	1908	move _stccol,(sp)
	1909	move _stcrow,-(sp)
	1910	jsr _movectc
	1911	addq.l #2,sp
	1912	L147:
	1913	*line 857
	1914	bra L71
	1915	*line 858
	1916	*line 859
	1917	*line 860
	1918	L148:
	1919	*line 861
	1920	*line 862
	1921	*line 863
	1922	*line 864
	1923	cmp #42,_stccol
	1924	bne L10034
	1925	cmp #3,R7
	1926	bgt L71
	1927	L10034:*line 865
	1928	*line 866
	1929	move R7,R0
	1930	add #48,R0
	1931	move.b R0,-8(R14)
	1932	*line 867
	1933	clr.b -7(R14)
	1934	*line 868
	1935	move.l #_ptdebuf,R8
	1936	move _stccol,R9
	1937	add.l R9,R8
	1938	move.b -8(R14),(R8)
	1939	*line 869
	1940	*line 870
	1941	move #98,(sp)
	1942	move.l R14,-(sp)
	1943	sub.l #8,(sp)
	1944	move _stccol,-(sp)
	1945	move #7,-(sp)
	1946	jsr _UpdVid
	1947	addq.l #8,sp
	1948	*line 871
	1949	*line 872
	1950	*line 873
	1951	cmp #46,_stccol
	1952	bne L149
	1953	*line 873
	1954	jsr _ctcon
	1955	*line 874
	1956	bra L150
	1957	L149:
	1958	*line 875
	1959	add #1,_stccol
	1960	move _stccol,(sp)
	1961	move _stcrow,-(sp)
	1962	jsr _movectc
	1963	addq.l #2,sp
	1964	L150:
	1965	*line 876
	1966	bra L71
	1967	*line 877
	1968	*line 878
	1969	*line 879
	1970	*line 880
	1971	L151:
	1972	*line 881
	1973	*line 882
	1974	*line 883
	1975	move _stccol,R0
	1976	bra L153
	1977	*line 884
	1978	L154:
	1979	*line 885
	1980	*line 886
	1981	*line 887
	1982	*line 887
	1983	cmp #8,R7
	1984	bne L155
	1985	*line 888
	1986	*line 889
	1987	*line 890
	1988	cmp.b #160,42+_ptdebuf
	1989	bne L156
	1990	*line 890
	1991	move.b #161,-8(R14)
	1992	bra L157
	1993	L156:
	1994	*line 891
	1995	*line 892
	1996	cmp.b #161,42+_ptdebuf
	1997	bne L158
	1998	*line 892
	1999	move.b #161,-8(R14)
	2000	*line 893
	2001	bra L159
	2002	L158:
	2003	*line 894
	2004	move.b #45,-8(R14)
	2005	L159:L157:
	2006	*line 895
	2007	bra L160
	2008	L155:
	2009	*line 896
	2010	*line 896
	2011	cmp #9,R7
	2012	bne L161
	2013	*line 897
	2014	*line 898
	2015	*line 899
	2016	cmp.b #160,42+_ptdebuf
	2017	bne L162
	2018	*line 899
	2019	move.b #160,-8(R14)
	2020	bra L163
	2021	L162:
	2022	*line 900
	2023	*line 901
	2024	cmp.b #161,42+_ptdebuf
	2025	bne L164
	2026	*line 901
	2027	move.b #160,-8(R14)
	2028	*line 902
	2029	bra L165
	2030	L164:
	2031	*line 903
	2032	move.b #43,-8(R14)
	2033	L165:L163:
	2034	*line 904
	2035	bra L166
	2036	L161:
	2037	*line 905
	2038	*line 905
	2039	tst R7
	2040	bne L167
	2041	*line 906
	2042	*line 907
	2043	*line 908
	2044	cmp.b #160,42+_ptdebuf
	2045	bne L168
	2046	*line 908
	2047	move.b #43,-8(R14)
	2048	bra L169
	2049	L168:
	2050	*line 909
	2051	*line 910
	2052	cmp.b #161,42+_ptdebuf
	2053	bne L170
	2054	*line 910
	2055	move.b #45,-8(R14)
	2056	*line 911
	2057	bra L171
	2058	L170:bra L71
	2059	L171:L169:
	2060	*line 912
	2061	*line 913
	2062	bra L172
	2063	L167:
	2064	*line 914
	2065	*line 914
	2066	cmp #1,R7
	2067	bne L173
	2068	*line 915
	2069	*line 916
	2070	*line 917
	2071	cmp.b #160,42+_ptdebuf
	2072	bne L174
	2073	*line 917
	2074	move.b #160,-8(R14)
	2075	bra L175
	2076	L174:
	2077	*line 918
	2078	*line 919
	2079	cmp.b #161,42+_ptdebuf
	2080	bne L176
	2081	*line 919
	2082	move.b #161,-8(R14)
	2083	bra L177
	2084	L176:
	2085	*line 920
	2086	*line 921
	2087	cmp.b #43,42+_ptdebuf
	2088	bne L178
	2089	*line 921
	2090	move.b #160,-8(R14)
	2091	bra L179
	2092	L178:
	2093	*line 922
	2094	*line 923
	2095	cmp.b #45,42+_ptdebuf
	2096	bne L180
	2097	*line 923
	2098	move.b #161,-8(R14)
	2099	*line 924
	2100	bra L181
	2101	L180:bra L71
	2102	L181:L179:L177:L175:
	2103	*line 925
	2104	*line 926
	2105	*line 927
	2106	bra L182
	2107	L173:bra L71
	2108	L182:L172:L166:L160:
	2109	*line 928
	2110	*line 929
	2111	bra L152
	2112	*line 930
	2113	*line 931
	2114	*line 932
	2115	L183:
	2116	*line 933
	2117	L184:
	2118	*line 934
	2119	L185:
	2120	*line 935
	2121	*line 936
	2122	*line 937
	2123	move R7,R0
	2124	add #48,R0
	2125	move.b R0,-8(R14)
	2126	bra L152
	2127	*line 938
	2128	*line 939
	2129	L186:
	2130	*line 940
	2131	L187:
	2132	*line 941
	2133	bra L71
	2134	*line 942
	2135	bra L152
	2136	L153:sub #42,R0
	2137	cmp #4,R0
	2138	bhi L187
	2139	asl #2,R0
	2140	move R0,R8
	2141	add.l #L188,R8
	2142	move.l (R8),R8
	2143	jmp (R8)
	2144	.data
	2145	L188:.dc.l L154
	2146	.dc.l L183
	2147	.dc.l L186
	2148	.dc.l L184
	2149	.dc.l L185
	2150	.text
	2151	L152:
	2152	*line 943
	2153	*line 944
	2154	*line 945
	2155	clr.b -7(R14)
	2156	*line 946
	2157	move.l #_ptdebuf,R8
	2158	move _stccol,R9
	2159	add.l R9,R8
	2160	move.b -8(R14),(R8)
	2161	*line 947
	2162	*line 948
	2163	move #98,(sp)
	2164	move.l R14,-(sp)
	2165	sub.l #8,(sp)
	2166	move _stccol,-(sp)
	2167	move #7,-(sp)
	2168	jsr _UpdVid
	2169	addq.l #8,sp
	2170	*line 949
	2171	*line 950
	2172	*line 951
	2173	cmp #43,_stccol
	2174	bne L189
	2175	*line 951
	2176	add #1,_stccol
	2177	*line 952
	2178	L189:
	2179	*line 953
	2180	*line 954
	2181	cmp #46,_stccol
	2182	bne L190
	2183	*line 954
	2184	jsr _ctcon
	2185	*line 955
	2186	bra L191
	2187	L190:
	2188	*line 956
	2189	add #1,_stccol
	2190	move _stccol,(sp)
	2191	move _stcrow,-(sp)
	2192	jsr _movectc
	2193	addq.l #2,sp
	2194	L191:
	2195	*line 957
	2196	bra L71
	2197	*line 958
	2198	*line 959
	2199	*line 960
	2200	L192:
	2201	*line 961
	2202	*line 962
	2203	*line 963
	2204	*line 963
	2205	cmp #42,_stccol
	2206	bne L193
	2207	*line 964
	2208	*line 965
	2209	*line 966
	2210	cmp #8,R7
	2211	bne L194
	2212	*line 966
	2213	move.b #45,-8(R14)
	2214	bra L195
	2215	L194:
	2216	*line 967
	2217	*line 968
	2218	cmp #9,R7
	2219	bne L196
	2220	*line 968
	2221	move.b #43,-8(R14)
	2222	*line 969
	2223	bra L197
	2224	L196:bra L71
	2225	L197:L195:
	2226	*line 970
	2227	*line 971
	2228	bra L198
	2229	L193:
	2230	*line 972
	2231	*line 972
	2232	cmp #43,_stccol
	2233	bne L199
	2234	*line 973
	2235	*line 974
	2236	*line 975
	2237	cmp #1,R7
	2238	bgt L71
	2239	*line 976
	2240	*line 977
	2241	move R7,R0
	2242	add #48,R0
	2243	move.b R0,-8(R14)
	2244	*line 978
	2245	bra L200
	2246	L199:
	2247	*line 979
	2248	*line 980
	2249	*line 981
	2250	move R7,R0
	2251	add #48,R0
	2252	move.b R0,-8(R14)
	2253	L200:L198:
	2254	*line 982
	2255	*line 983
	2256	*line 984
	2257	move.l #_ptdebuf,R8
	2258	move _stccol,R9
	2259	add.l R9,R8
	2260	move.b -8(R14),(R8)
	2261	*line 985
	2262	clr.b -7(R14)
	2263	*line 986
	2264	*line 987
	2265	move #98,(sp)
	2266	move.l R14,-(sp)
	2267	sub.l #8,(sp)
	2268	move _stccol,-(sp)
	2269	move #7,-(sp)
	2270	jsr _UpdVid
	2271	addq.l #8,sp
	2272	*line 988
	2273	*line 989
	2274	*line 990
	2275	cmp #46,_stccol
	2276	bne L201
	2277	*line 990
	2278	jsr _ctcon
	2279	*line 991
	2280	bra L202
	2281	L201:
	2282	*line 992
	2283	add #1,_stccol
	2284	move _stccol,(sp)
	2285	move _stcrow,-(sp)
	2286	jsr _movectc
	2287	addq.l #2,sp
	2288	L202:
	2289	*line 993
	2290	bra L71
	2291	*line 994
	2292	*line 995
	2293	*line 996
	2294	L203:
	2295	*line 997
	2296	*line 998
	2297	*line 999
	2298	move _stccol,R0
	2299	bra L205
	2300	*line 1000
	2301	L206:
	2302	*line 1001
	2303	L207:
	2304	*line 1002
	2305	*line 1003
	2306	*line 1004
	2307	move R7,R0
	2308	add #48,R0
	2309	move.b R0,-8(R14)
	2310	bra L204
	2311	*line 1005
	2312	*line 1006
	2313	L208:
	2314	*line 1007
	2315	L209:
	2316	*line 1008
	2317	L210:
	2318	*line 1009
	2319	*line 1010
	2320	bra L71
	2321	*line 1011
	2322	bra L204
	2323	L205:sub #42,R0
	2324	cmp #4,R0
	2325	bhi L204
	2326	asl #2,R0
	2327	move R0,R8
	2328	add.l #L211,R8
	2329	move.l (R8),R8
	2330	jmp (R8)
	2331	.data
	2332	L211:.dc.l L206
	2333	.dc.l L208
	2334	.dc.l L207
	2335	.dc.l L209
	2336	.dc.l L210
	2337	.text
	2338	L204:
	2339	*line 1012
	2340	*line 1013
	2341	*line 1014
	2342	move.l #_ptdebuf,R8
	2343	move _stccol,R9
	2344	add.l R9,R8
	2345	move.b -8(R14),(R8)
	2346	*line 1015
	2347	clr.b -7(R14)
	2348	*line 1016
	2349	*line 1017
	2350	move #98,(sp)
	2351	move.l R14,-(sp)
	2352	sub.l #8,(sp)
	2353	move _stccol,-(sp)
	2354	move #7,-(sp)
	2355	jsr _UpdVid
	2356	addq.l #8,sp
	2357	*line 1018
	2358	*line 1019
	2359	*line 1020
	2360	cmp #42,_stccol
	2361	bne L212
	2362	*line 1020
	2363	add #1,_stccol
	2364	*line 1021
	2365	L212:
	2366	*line 1022
	2367	*line 1023
	2368	cmp #44,_stccol
	2369	bne L213
	2370	*line 1023
	2371	jsr _ctcon
	2372	*line 1024
	2373	bra L214
	2374	L213:
	2375	*line 1025
	2376	add #1,_stccol
	2377	move _stccol,(sp)
	2378	move _stcrow,-(sp)
	2379	jsr _movectc
	2380	addq.l #2,sp
	2381	L214:
	2382	*line 1026
	2383	bra L71
	2384	*line 1027
	2385	*line 1028
	2386	*line 1029
	2387	L215:
	2388	*line 1030
	2389	*line 1031
	2390	*line 1032
	2391	move _stccol,R0
	2392	bra L217
	2393	*line 1033
	2394	L218:
	2395	*line 1034
	2396	*line 1035
	2397	*line 1036
	2398	*line 1037
	2399	cmp #1,R7
	2400	bgt L71
	2401	*line 1038
	2402	*line 1039
	2403	*line 1040
	2404	L219:
	2405	*line 1041
	2406	L220:
	2407	*line 1042
	2408	*line 1043
	2409	*line 1044
	2410	move R7,R0
	2411	add #48,R0
	2412	move.b R0,-8(R14)
	2413	bra L216
	2414	*line 1045
	2415	*line 1046
	2416	L221:
	2417	*line 1047
	2418	L222:
	2419	*line 1048
	2420	*line 1049
	2421	bra L71
	2422	*line 1050
	2423	bra L216
	2424	L217:sub #42,R0
	2425	cmp #4,R0
	2426	bhi L216
	2427	asl #2,R0
	2428	move R0,R8
	2429	add.l #L223,R8
	2430	move.l (R8),R8
	2431	jmp (R8)
	2432	.data
	2433	L223:.dc.l L218
	2434	.dc.l L219
	2435	.dc.l L221
	2436	.dc.l L220
	2437	.dc.l L222
	2438	.text
	2439	L216:
	2440	*line 1051
	2441	*line 1052
	2442	*line 1053
	2443	move.l #_ptdebuf,R8
	2444	move _stccol,R9
	2445	add.l R9,R8
	2446	move.b -8(R14),(R8)
	2447	*line 1054
	2448	clr.b -7(R14)
	2449	*line 1055
	2450	*line 1056
	2451	move #98,(sp)
	2452	move.l R14,-(sp)
	2453	sub.l #8,(sp)
	2454	move _stccol,-(sp)
	2455	move #7,-(sp)
	2456	jsr _UpdVid
	2457	addq.l #8,sp
	2458	*line 1057
	2459	*line 1058
	2460	*line 1059
	2461	cmp #43,_stccol
	2462	bne L224
	2463	*line 1059
	2464	add #1,_stccol
	2465	*line 1060
	2466	L224:
	2467	*line 1061
	2468	*line 1062
	2469	cmp #45,_stccol
	2470	bne L225
	2471	*line 1062
	2472	jsr _ctcon
	2473	*line 1063
	2474	bra L226
	2475	L225:
	2476	*line 1064
	2477	add #1,_stccol
	2478	move _stccol,(sp)
	2479	move _stcrow,-(sp)
	2480	jsr _movectc
	2481	addq.l #2,sp
	2482	L226:
	2483	*line 1065
	2484	bra L71
	2485	*line 1066
	2486	*line 1067
	2487	*line 1068
	2488	L227:
	2489	*line 1069
	2490	*line 1070
	2491	*line 1071
	2492	move _stccol,R0
	2493	bra L229
	2494	*line 1072
	2495	L230:
	2496	*line 1073
	2497	*line 1074
	2498	*line 1075
	2499	*line 1076
	2500	cmp #6,R7
	2501	bgt L71
	2502	*line 1077
	2503	*line 1078
	2504	move R7,R0
	2505	add #65,R0
	2506	move.b R0,-8(R14)
	2507	bra L228
	2508	*line 1079
	2509	*line 1080
	2510	L231:
	2511	*line 1081
	2512	*line 1082
	2513	*line 1083
	2514	*line 1084
	2515	cmp #7,R7
	2516	bne L232
	2517	*line 1084
	2518	move.b #32,-8(R14)
	2519	bra L233
	2520	L232:
	2521	*line 1085
	2522	*line 1086
	2523	cmp #8,R7
	2524	bne L234
	2525	*line 1086
	2526	move.b #169,-8(R14)
	2527	bra L235
	2528	L234:
	2529	*line 1087
	2530	*line 1088
	2531	cmp #9,R7
	2532	bne L236
	2533	*line 1088
	2534	move.b #168,-8(R14)
	2535	*line 1089
	2536	bra L237
	2537	L236:bra L71
	2538	L237:L235:L233:
	2539	*line 1090
	2540	*line 1091
	2541	bra L228
	2542	*line 1092
	2543	*line 1093
	2544	L238:
	2545	*line 1094
	2546	L239:
	2547	*line 1095
	2548	L240:
	2549	*line 1096
	2550	*line 1097
	2551	*line 1098
	2552	move R7,R0
	2553	add #48,R0
	2554	move.b R0,-8(R14)
	2555	bra L228
	2556	*line 1099
	2557	bra L228
	2558	L229:sub #42,R0
	2559	cmp #4,R0
	2560	bhi L228
	2561	asl #2,R0
	2562	move R0,R8
	2563	add.l #L241,R8
	2564	move.l (R8),R8
	2565	jmp (R8)
	2566	.data
	2567	L241:.dc.l L238
	2568	.dc.l L230
	2569	.dc.l L231
	2570	.dc.l L239
	2571	.dc.l L240
	2572	.text
	2573	L228:
	2574	*line 1100
	2575	*line 1101
	2576	*line 1102
	2577	move.l #_ptdebuf,R8
	2578	move _stccol,R9
	2579	add.l R9,R8
	2580	move.b -8(R14),(R8)
	2581	*line 1103
	2582	clr.b -7(R14)
	2583	*line 1104
	2584	*line 1105
	2585	move #98,(sp)
	2586	move.l R14,-(sp)
	2587	sub.l #8,(sp)
	2588	move _stccol,-(sp)
	2589	move #7,-(sp)
	2590	jsr _UpdVid
	2591	addq.l #8,sp
	2592	*line 1106
	2593	*line 1107
	2594	*line 1108
	2595	cmp #46,_stccol
	2596	bne L242
	2597	*line 1108
	2598	jsr _ctcon
	2599	*line 1109
	2600	bra L243
	2601	L242:
	2602	*line 1110
	2603	add #1,_stccol
	2604	move _stccol,(sp)
	2605	move _stcrow,-(sp)
	2606	jsr _movectc
	2607	addq.l #2,sp
	2608	L243:
	2609	*line 1111
	2610	bra L71
	2611	*line 1112
	2612	*line 1113
	2613	*line 1114
	2614	L244:
	2615	*line 1115
	2616	*line 1116
	2617	*line 1117
	2618	move R7,R0
	2619	bra L246
	2620	*line 1118
	2621	L247:
	2622	*line 1119
	2623	*line 1120
	2624	*line 1121
	2625	move.l #L248,(sp)
	2626	move.l R14,-(sp)
	2627	sub.l #8,(sp)
	2628	jsr _strcpy
	2629	addq.l #4,sp
	2630	*line 1122
	2631	clr _ptedat2
	2632	bra L245
	2633	*line 1123
	2634	*line 1124
	2635	L249:
	2636	*line 1125
	2637	*line 1126
	2638	*line 1127
	2639	move.l #L250,(sp)
	2640	move.l R14,-(sp)
	2641	sub.l #8,(sp)
	2642	jsr _strcpy
	2643	addq.l #4,sp
	2644	*line 1128
	2645	move #1,_ptedat2
	2646	bra L245
	2647	*line 1129
	2648	*line 1130
	2649	L251:
	2650	*line 1131
	2651	*line 1132
	2652	*line 1133
	2653	move.l #L252,(sp)
	2654	move.l R14,-(sp)
	2655	sub.l #8,(sp)
	2656	jsr _strcpy
	2657	addq.l #4,sp
	2658	*line 1134
	2659	move #2,_ptedat2
	2660	bra L245
	2661	*line 1135
	2662	*line 1136
	2663	L253:
	2664	*line 1137
	2665	*line 1138
	2666	bra L71
	2667	*line 1139
	2668	bra L245
	2669	L246:cmp #7,R0
	2670	beq L247
	2671	cmp #8,R0
	2672	beq L249
	2673	cmp #9,R0
	2674	beq L251
	2675	bra L253
	2676	L245:
	2677	*line 1140
	2678	*line 1141
	2679	*line 1142
	2680	move.l R14,(sp)
	2681	sub.l #8,(sp)
	2682	move.l #42+_ptdebuf,-(sp)
	2683	jsr _strcpy
	2684	addq.l #4,sp
	2685	*line 1143
	2686	move #98,(sp)
	2687	move.l R14,-(sp)
	2688	sub.l #8,(sp)
	2689	move #42,-(sp)
	2690	move #7,-(sp)
	2691	jsr _UpdVid
	2692	addq.l #8,sp
	2693	*line 1144
	2694	move #46,(sp)
	2695	move _stcrow,-(sp)
	2696	jsr _movectc
	2697	addq.l #2,sp
	2698	bra L71
	2699	*line 1145
	2700	*line 1146
	2701	*line 1147
	2702	L254:
	2703	*line 1148
	2704	*line 1149
	2705	*line 1150
	2706	*line 1150
	2707	cmp #8,R7
	2708	bne L255
	2709	*line 1151
	2710	*line 1152
	2711	move.l #L256,(sp)
	2712	move.l R14,-(sp)
	2713	sub.l #8,(sp)
	2714	jsr _strcpy
	2715	addq.l #4,sp
	2716	*line 1153
	2717	clr _ptedat2
	2718	*line 1154
	2719	bra L257
	2720	L255:
	2721	*line 1155
	2722	*line 1155
	2723	cmp #9,R7
	2724	bne L258
	2725	*line 1156
	2726	*line 1157
	2727	move.l #L259,(sp)
	2728	move.l R14,-(sp)
	2729	sub.l #8,(sp)
	2730	jsr _strcpy
	2731	addq.l #4,sp
	2732	*line 1158
	2733	move #1,_ptedat2
	2734	*line 1159
	2735	bra L260
	2736	L258:
	2737	*line 1160
	2738	*line 1161
	2739	bra L71
	2740	*line 1162
	2741	L260:L257:
	2742	*line 1163
	2743	*line 1164
	2744	*line 1165
	2745	move.l R14,(sp)
	2746	sub.l #8,(sp)
	2747	move.l #42+_ptdebuf,-(sp)
	2748	jsr _strcpy
	2749	addq.l #4,sp
	2750	*line 1166
	2751	move #98,(sp)
	2752	move.l R14,-(sp)
	2753	sub.l #8,(sp)
	2754	move #42,-(sp)
	2755	move #7,-(sp)
	2756	jsr _UpdVid
	2757	addq.l #8,sp
	2758	*line 1167
	2759	move #46,(sp)
	2760	move _stcrow,-(sp)
	2761	jsr _movectc
	2762	addq.l #2,sp
	2763	bra L71
	2764	*line 1168
	2765	*line 1169
	2766	L261:
	2767	*line 1170
	2768	*line 1171
	2769	*line 1172
	2770	*line 1172
	2771	cmp #8,R7
	2772	bne L262
	2773	*line 1173
	2774	*line 1174
	2775	move.l #L263,(sp)
	2776	move.l R14,-(sp)
	2777	sub.l #8,(sp)
	2778	jsr _strcpy
	2779	addq.l #4,sp
	2780	*line 1175
	2781	clr _ptedat2
	2782	*line 1176
	2783	bra L264
	2784	L262:
	2785	*line 1177
	2786	*line 1177
	2787	cmp #9,R7
	2788	bne L265
	2789	*line 1178
	2790	*line 1179
	2791	move.l #L266,(sp)
	2792	move.l R14,-(sp)
	2793	sub.l #8,(sp)
	2794	jsr _strcpy
	2795	addq.l #4,sp
	2796	*line 1180
	2797	move #1,_ptedat2
	2798	*line 1181
	2799	bra L267
	2800	L265:
	2801	*line 1182
	2802	*line 1183
	2803	bra L71
	2804	*line 1184
	2805	L267:L264:
	2806	*line 1185
	2807	*line 1186
	2808	*line 1187
	2809	move.l R14,(sp)
	2810	sub.l #8,(sp)
	2811	move.l #42+_ptdebuf,-(sp)
	2812	jsr _strcpy
	2813	addq.l #4,sp
	2814	*line 1188
	2815	move #98,(sp)
	2816	move.l R14,-(sp)
	2817	sub.l #8,(sp)
	2818	move #42,-(sp)
	2819	move #7,-(sp)
	2820	jsr _UpdVid
	2821	addq.l #8,sp
	2822	*line 1189
	2823	move #46,(sp)
	2824	move _stcrow,-(sp)
	2825	jsr _movectc
	2826	addq.l #2,sp
	2827	bra L71
	2828	*line 1190
	2829	*line 1191
	2830	*line 1192
	2831	L268:
	2832	*line 1193
	2833	*line 1194
	2834	bra L71
	2835	*line 1195
	2836	*line 1196
	2837	L269:
	2838	*line 1197
	2839	*line 1198
	2840	*line 1199
	2841	move _stccol,R0
	2842	bra L271
	2843	*line 1200
	2844	L272:
	2845	*line 1201
	2846	*line 1202
	2847	*line 1203
	2848	*line 1204
	2849	cmp #7,R7
	2850	bne L273
	2851	*line 1204
	2852	move.b #82,-8(R14)
	2853	bra L274
	2854	L273:
	2855	*line 1205
	2856	*line 1206
	2857	cmp #8,R7
	2858	bne L275
	2859	move _ptespec,R0
	2860	and #255,R0
	2861	cmp #8,R0
	2862	beq L275
	2863	*line 1206
	2864	move.b #45,-8(R14)
	2865	bra L276
	2866	L275:
	2867	*line 1207
	2868	*line 1208
	2869	cmp #9,R7
	2870	bne L277
	2871	*line 1208
	2872	move.b #43,-8(R14)
	2873	*line 1209
	2874	bra L278
	2875	L277:bra L71
	2876	L278:L276:L274:
	2877	*line 1210
	2878	*line 1211
	2879	bra L270
	2880	*line 1212
	2881	*line 1213
	2882	L279:
	2883	*line 1214
	2884	L280:
	2885	*line 1215
	2886	*line 1216
	2887	*line 1217
	2888	move R7,R0
	2889	add #48,R0
	2890	move.b R0,-8(R14)
	2891	bra L270
	2892	*line 1218
	2893	*line 1219
	2894	L281:
	2895	*line 1220
	2896	*line 1221
	2897	bra L71
	2898	*line 1222
	2899	bra L270
	2900	L271:cmp #42,R0
	2901	beq L272
	2902	cmp #43,R0
	2903	beq L279
	2904	cmp #44,R0
	2905	beq L280
	2906	bra L281
	2907	L270:
	2908	*line 1223
	2909	*line 1224
	2910	*line 1225
	2911	move.l #_ptdebuf,R8
	2912	move _stccol,R9
	2913	add.l R9,R8
	2914	move.b -8(R14),(R8)
	2915	*line 1226
	2916	clr.b -7(R14)
	2917	*line 1227
	2918	*line 1228
	2919	move #98,(sp)
	2920	move.l R14,-(sp)
	2921	sub.l #8,(sp)
	2922	move _stccol,-(sp)
	2923	move #7,-(sp)
	2924	jsr _UpdVid
	2925	addq.l #8,sp
	2926	*line 1229
	2927	*line 1230
	2928	*line 1231
	2929	cmp #44,_stccol
	2930	bne L282
	2931	*line 1231
	2932	jsr _ctcon
	2933	*line 1232
	2934	bra L283
	2935	L282:
	2936	*line 1233
	2937	add #1,_stccol
	2938	move _stccol,(sp)
	2939	move _stcrow,-(sp)
	2940	jsr _movectc
	2941	addq.l #2,sp
	2942	L283:
	2943	*line 1234
	2944	bra L71
	2945	*line 1235
	2946	*line 1236
	2947	*line 1237
	2948	L284:
	2949	*line 1238
	2950	*line 1239
	2951	*line 1240
	2952	*line 1241
	2953	cmp #44,_stccol
	2954	bgt L71
	2955	*line 1242
	2956	*line 1243
	2957	move R7,R0
	2958	add #48,R0
	2959	move.b R0,-8(R14)
	2960	*line 1244
	2961	move.l #_ptdebuf,R8
	2962	move _stccol,R9
	2963	add.l R9,R8
	2964	move.b -8(R14),(R8)
	2965	*line 1245
	2966	clr.b -7(R14)
	2967	*line 1246
	2968	*line 1247
	2969	move #98,(sp)
	2970	move.l R14,-(sp)
	2971	sub.l #8,(sp)
	2972	move _stccol,-(sp)
	2973	move #7,-(sp)
	2974	jsr _UpdVid
	2975	addq.l #8,sp
	2976	*line 1248
	2977	*line 1249
	2978	*line 1250
	2979	cmp #44,_stccol
	2980	bne L285
	2981	*line 1250
	2982	jsr _ctcon
	2983	*line 1251
	2984	bra L286
	2985	L285:
	2986	*line 1252
	2987	add #1,_stccol
	2988	move _stccol,(sp)
	2989	move _stcrow,-(sp)
	2990	jsr _movectc
	2991	addq.l #2,sp
	2992	L286:
	2993	*line 1253
	2994	bra L71
	2995	*line 1254
	2996	*line 1255
	2997	L287:
	2998	*line 1256
	2999	*line 1257
	3000	*line 1258
	3001	*line 1259
	3002	cmp #3,R7
	3003	bgt L71
	3004	cmp #46,_stccol
	3005	beq L71
	3006	*line 1260
	3007	*line 1261
	3008	*line 1262
	3009	cmp #45,_stccol
	3010	bne L10035
	3011	btst #0,1+_ptesuba
	3012	beq L71
	3013	L10035:*line 1263
	3014	*line 1264
	3015	move R7,R0
	3016	add #48,R0
	3017	move.b R0,-8(R14)
	3018	*line 1265
	3019	clr.b -7(R14)
	3020	*line 1266
	3021	move.l #_ptdebuf,R8
	3022	move _stccol,R9
	3023	add.l R9,R8
	3024	move.b -8(R14),(R8)
	3025	*line 1267
	3026	*line 1268
	3027	move #98,(sp)
	3028	move.l R14,-(sp)
	3029	sub.l #8,(sp)
	3030	move _stccol,-(sp)
	3031	move #7,-(sp)
	3032	jsr _UpdVid
	3033	addq.l #8,sp
	3034	*line 1269
	3035	*line 1270
	3036	*line 1271
	3037	*line 1272
	3038	btst #0,1+_ptesuba
	3039	beq L10037
	3040	cmp #45,_stccol
	3041	beq L10036
	3042	L10037:tst _ptesuba
	3043	beq L10038
	3044	clr R0
	3045	bra L10039
	3046	L10038:move #1,R0
	3047	L10039:and #1,R0
	3048	beq L288
	3049	cmp #44,_stccol
	3050	bne L288
	3051	L10036:*line 1272
	3052	jsr _ctcon
	3053	*line 1273
	3054	bra L289
	3055	L288:
	3056	*line 1274
	3057	add #1,_stccol
	3058	move _stccol,(sp)
	3059	move _stcrow,-(sp)
	3060	jsr _movectc
	3061	addq.l #2,sp
	3062	L289:
	3063	*line 1275
	3064	bra L71
	3065	*line 1276
	3066	*line 1277
	3067	*line 1278
	3068	L290:
	3069	*line 1279
	3070	*line 1280
	3071	*line 1281
	3072	*line 1282
	3073	cmp #43,_stccol
	3074	bgt L71
	3075	*line 1283
	3076	*line 1284
	3077	*line 1285
	3078	cmp #42,_stccol
	3079	bne L10040
	3080	cmp #4,R7
	3081	bgt L71
	3082	L10040:*line 1286
	3083	*line 1287
	3084	move R7,R0
	3085	add #48,R0
	3086	move.b R0,-8(R14)
	3087	*line 1288
	3088	clr.b -7(R14)
	3089	*line 1289
	3090	move.l #_ptdebuf,R8
	3091	move _stccol,R9
	3092	add.l R9,R8
	3093	move.b -8(R14),(R8)
	3094	*line 1290
	3095	*line 1291
	3096	move #98,(sp)
	3097	move.l R14,-(sp)
	3098	sub.l #8,(sp)
	3099	move _stccol,-(sp)
	3100	move #7,-(sp)
	3101	jsr _UpdVid
	3102	addq.l #8,sp
	3103	*line 1292
	3104	*line 1293
	3105	*line 1294
	3106	cmp #43,_stccol
	3107	bne L291
	3108	*line 1294
	3109	jsr _ctcon
	3110	*line 1295
	3111	bra L292
	3112	L291:
	3113	*line 1296
	3114	add #1,_stccol
	3115	move _stccol,(sp)
	3116	move _stcrow,-(sp)
	3117	jsr _movectc
	3118	addq.l #2,sp
	3119	L292:
	3120	*line 1297
	3121	bra L71
	3122	*line 1298
	3123	*line 1299
	3124	*line 1300
	3125	L293:
	3126	*line 1301
	3127	*line 1302
	3128	*line 1303
	3129	*line 1304
	3130	cmp #43,_stccol
	3131	bgt L71
	3132	*line 1305
	3133	*line 1306
	3134	*line 1307
	3135	cmp #42,_stccol
	3136	bne L10041
	3137	cmp #2,R7
	3138	bgt L71
	3139	L10041:*line 1308
	3140	*line 1309
	3141	move R7,R0
	3142	add #48,R0
	3143	move.b R0,-8(R14)
	3144	*line 1310
	3145	clr.b -7(R14)
	3146	*line 1311
	3147	move.l #_ptdebuf,R8
	3148	move _stccol,R9
	3149	add.l R9,R8
	3150	move.b -8(R14),(R8)
	3151	*line 1312
	3152	*line 1313
	3153	move #98,(sp)
	3154	move.l R14,-(sp)
	3155	sub.l #8,(sp)
	3156	move _stccol,-(sp)
	3157	move #7,-(sp)
	3158	jsr _UpdVid
	3159	addq.l #8,sp
	3160	*line 1314
	3161	*line 1315
	3162	*line 1316
	3163	cmp #43,_stccol
	3164	bne L294
	3165	*line 1316
	3166	jsr _ctcon
	3167	*line 1317
	3168	bra L295
	3169	L294:
	3170	*line 1318
	3171	add #1,_stccol
	3172	move _stccol,(sp)
	3173	move _stcrow,-(sp)
	3174	jsr _movectc
	3175	addq.l #2,sp
	3176	L295:
	3177	*line 1319
	3178	bra L71
	3179	*line 1320
	3180	*line 1321
	3181	L296:
	3182	*line 1322
	3183	*line 1323
	3184	*line 1324
	3185	*line 1325
	3186	cmp #43,_stccol
	3187	bgt L71
	3188	*line 1326
	3189	*line 1327
	3190	*line 1328
	3191	cmp #42,_stccol
	3192	bne L10042
	3193	cmp #1,R7
	3194	bgt L71
	3195	L10042:*line 1329
	3196	*line 1330
	3197	move R7,R0
	3198	add #48,R0
	3199	move.b R0,-8(R14)
	3200	*line 1331
	3201	clr.b -7(R14)
	3202	*line 1332
	3203	move.l #_ptdebuf,R8
	3204	move _stccol,R9
	3205	add.l R9,R8
	3206	move.b -8(R14),(R8)
	3207	*line 1333
	3208	*line 1334
	3209	move #98,(sp)
	3210	move.l R14,-(sp)
	3211	sub.l #8,(sp)
	3212	move _stccol,-(sp)
	3213	move #7,-(sp)
	3214	jsr _UpdVid
	3215	addq.l #8,sp
	3216	*line 1335
	3217	*line 1336
	3218	*line 1337
	3219	cmp #43,_stccol
	3220	bne L297
	3221	*line 1337
	3222	jsr _ctcon
	3223	*line 1338
	3224	bra L298
	3225	L297:
	3226	*line 1339
	3227	add #1,_stccol
	3228	move _stccol,(sp)
	3229	move _stcrow,-(sp)
	3230	jsr _movectc
	3231	addq.l #2,sp
	3232	L298:
	3233	*line 1340
	3234	bra L71
	3235	*line 1341
	3236	*line 1342
	3237	*line 1343
	3238	L299:
	3239	*line 1344
	3240	*line 1345
	3241	*line 1346
	3242	*line 1347
	3243	cmp #42,_stccol
	3244	bgt L71
	3245	*line 1348
	3246	*line 1349
	3247	move R7,R0
	3248	add #48,R0
	3249	move.b R0,-8(R14)
	3250	*line 1350
	3251	clr.b -7(R14)
	3252	*line 1351
	3253	move.l #_ptdebuf,R8
	3254	move _stccol,R9
	3255	add.l R9,R8
	3256	move.b -8(R14),(R8)
	3257	*line 1352
	3258	*line 1353
	3259	move #98,(sp)
	3260	move.l R14,-(sp)
	3261	sub.l #8,(sp)
	3262	move _stccol,-(sp)
	3263	move #7,-(sp)
	3264	jsr _UpdVid
	3265	addq.l #8,sp
	3266	*line 1354
	3267	*line 1355
	3268	jsr _ctcon
	3269	bra L71
	3270	*line 1356
	3271	*line 1357
	3272	L300:
	3273	*line 1358
	3274	*line 1359
	3275	bra L71
	3276	*line 1360
	3277	bra L127
	3278	L128:sub #1,R0
	3279	cmp #17,R0
	3280	bhi L300
	3281	asl #2,R0
	3282	move R0,R8
	3283	add.l #L301,R8
	3284	move.l (R8),R8
	3285	jmp (R8)
	3286	.data
	3287	L301:.dc.l L129
	3288	.dc.l L148
	3289	.dc.l L151
	3290	.dc.l L192
	3291	.dc.l L203
	3292	.dc.l L215
	3293	.dc.l L227
	3294	.dc.l L244
	3295	.dc.l L254
	3296	.dc.l L261
	3297	.dc.l L268
	3298	.dc.l L269
	3299	.dc.l L284
	3300	.dc.l L287
	3301	.dc.l L290
	3302	.dc.l L293
	3303	.dc.l L296
	3304	.dc.l L299
	3305	.text
	3306	L127:
	3307	*line 1361
	3308	*line 1362
	3309	L126:L125:L76:L74:L71:tst.l (sp)+
	3310	movem.l (sp)+,R5-R7
	3311	unlk R14
	3312	rts
	3313	.data
	3314	L2:.dc.b $A,$25,$73,$28,$29,$3A,$20,$20,$63,$61,$6C,$6C,$65,$64,$20,$53,$6E,$61,$70,$50,$54,$56,$28,$29,$A,$0
	3315	L10:.dc.b $20,$20,$70,$74,$64,$65,$62,$75,$66,$20,$3D,$20,$22,$25,$73,$22,$A,$0
	3316	L11:.dc.b $20,$20,$70,$74,$65,$20,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$20,$20,$24,$25,$30,$34,$2E
	3317	.dc.b $34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$20,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$A,$0
	3318	L12:.dc.b $20,$20,$70,$74,$62,$20,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$20,$20,$24,$25,$30,$34,$2E
	3319	.dc.b $34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$20,$20,$24,$25,$30,$34,$2E,$34,$58,$20,$24,$25,$30,$34,$2E,$34,$58,$A,$0
	3320	L13:.dc.b $20,$20,$70,$74,$65,$20,$20,$64,$66,$74,$70,$3A,$20,$25,$32,$64,$20,$20,$64,$66,$73,$74,$3A,$20,$25,$32,$64,$20,$20,$64
	3321	.dc.b $65,$73,$74,$3A,$20,$25,$32,$64,$20,$20,$64,$61,$74,$61,$3A,$20,$25,$32,$64,$20,$20,$6D,$65,$6E,$75,$3A,$20,$25,$32,$64
	3322	.dc.b $A,$0
	3323	L14:.dc.b $20,$20,$70,$74,$65,$20,$20,$67,$6F,$6F,$64,$3A,$20,$25,$64,$20,$20,$64,$66,$6F,$6B,$3A,$20,$25,$64,$20,$20,$73,$74,$6F
	3324	.dc.b $6B,$3A,$20,$25,$64,$20,$20,$64,$73,$6F,$6B,$3A,$20,$25,$64,$20,$20,$64,$74,$6F,$6B,$3A,$20,$25,$64,$20,$20,$73,$65,$74
	3325	.dc.b $3A,$20,$25,$64,$20,$20,$66,$6C,$61,$67,$3A,$20,$25,$64,$A,$0
	3326	L15:.dc.b $20,$20,$70,$74,$65,$20,$20,$70,$72,$65,$64,$3A,$20,$25,$33,$64,$20,$20,$63,$70,$6F,$73,$3A,$20,$25,$33,$64,$20,$20,$73
	3327	.dc.b $75,$63,$63,$3A,$20,$25,$33,$64,$A,$0
	3328	L16:.dc.b $A,$0
	3329	L54:.dc.b $20,$20,$0
	3330	L58:.dc.b $25,$30,$32,$64,$0
	3331	L248:.dc.b $54,$72,$61,$6E,$73,$0
	3332	L250:.dc.b $53,$74,$6F,$70,$20,$0
	3333	L252:.dc.b $53,$74,$61,$72,$74,$0
	3334	L256:.dc.b $53,$74,$6F,$70,$20,$0
	3335	L259:.dc.b $53,$74,$61,$72,$74,$0
	3336	L263:.dc.b $4F,$66,$66,$20,$20,$20,$0
	3337	L266:.dc.b $4F,$6E,$20,$20,$20,$0

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

Download in other formats:

Original Format