source: buchla-68k/alcyon/sqdisp.s@ 9519422

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