Context Navigation

sqdisp.s@ 4810254

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

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

Download in other formats:

Original Format