source: buchla-68k/alcyon/sqselbx.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: 23.8 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _stmptr
7.globl _defptr
8.globl _patches
9.globl _defents
10.globl _seqtab
11.globl _seqflag
12.globl _seqline
13.globl _seqstim
14.globl _seqtime
15.globl _sregval
16.globl _trstate
17.globl _cmtype
18.globl _curslin
19.globl _stccol
20.globl _stcrow
21.globl _submenu
22.globl _vtccol
23.globl _vtcrow
24.globl _actlft
25.globl _sqatype
26.globl _obj11
27.globl _seqtab
28.globl _action
29.comm _action,2
30.globl _sqdeflg
31.comm _sqdeflg,2
32.globl _sqmenu
33.comm _sqmenu,2
34.globl _sqdebuf
35.comm _sqdebuf,50
36.globl _seqbuf
37.comm _seqbuf,14
38.globl _sqhilit
39.data
40_sqhilit:
41.dc.b $2
42.dc.b $D
43.dc.b $5
44.dc.b $5
45.dc.b $5
46.dc.b $1
47.dc.b $0
48.dc.b $0
49.dc.b $11
50.dc.b $B
51.dc.b $5
52.dc.b $5
53.dc.b $5
54.dc.b $1
55.dc.b $0
56.dc.b $0
57.dc.b $1E
58.dc.b $B
59.dc.b $5
60.dc.b $5
61.dc.b $0
62.dc.b $1
63.dc.b $0
64.dc.b $0
65.dc.b $2B
66.dc.b $8
67.dc.b $5
68.dc.b $5
69.dc.b $1
70.dc.b $1
71.dc.b $1
72.dc.b $0
73.dc.b $35
74.dc.b $8
75.dc.b $2
76.dc.b $2
77.dc.b $2
78.dc.b $2
79.dc.b $0
80.dc.b $0
81.globl _sqboxes
82.data
83_sqboxes:
84.dc.w $8
85.dc.w $7E
86.dc.w $17F
87.dc.w $8B
88.dc.w $0
89*line 70
90.dc.l _sqfnbox
91.dc.w $0
92.dc.w $0
93.dc.w $0
94.dc.w $0
95.dc.w $0
96.dc.l $0
97.globl _sqopreq
98.data
99_sqopreq:
100.dc.b $0
101.dc.b $0
102.dc.b $0
103.dc.b $0
104.dc.b $0
105.dc.b $0
106.dc.b $0
107.dc.b $0
108.dc.b $0
109.dc.b $1
110.dc.b $1
111.dc.b $1
112.dc.b $1
113.dc.b $0
114.dc.b $0
115.dc.b $0
116.dc.b $1
117.even
118.globl _nextact
119.data
120_nextact:
121.dc.b $18
122.dc.b $24
123.dc.b $6
124.even
125.globl _sqidata
126.data
127_sqidata:
128.dc.w $0
129.dc.w $0
130.dc.w $0
131.dc.w $0
132.dc.w $0
133.dc.w $0
134.dc.w $0
135.dc.w $0
136.dc.w $0
137.dc.w $0
138.dc.w $0
139.dc.w $0
140.dc.w $0
141.dc.w $100
142.dc.w $100
143.dc.w $100
144.dc.w $100
145.dc.w $100
146.globl _actcol
147.data
148_actcol:
149.dc.b $0
150.dc.b $3
151.dc.b $3
152.dc.b $3
153.dc.b $3
154.dc.b $9
155.dc.b $9
156.dc.b $9
157.dc.b $9
158.dc.b $5
159.dc.b $5
160.dc.b $5
161.dc.b $5
162.dc.b $A
163.dc.b $8
164.dc.b $3
165.dc.b $5
166.even
167.globl _sqvcol
168.data
169_sqvcol:
170.dc.b $9
171.dc.b $8
172.dc.b $9
173.dc.b $9
174.globl _seqvcol
175.data
176_seqvcol:
177.dc.b $8
178.dc.b $8
179.dc.b $9
180.dc.b $9
181.dc.b $9
182.even
183.globl _sqndata
184.data
185_sqndata:
186.dc.w $100
187.dc.w $0
188.dc.w $200
189.dc.w $300
190.globl _hilitsq
191.text
192_hilitsq:
193~~hilitsq:
194~n=R7
195link R14,#0
196movem.l R2-R7,-(sp)
197~chr=R6
198~h=R5
199~v=R4
200~w=R3
201*line 138
202move.b 9(R14),R7
203*line 138
204move.b R7,R0
205ext.w R0
206move R0,_sqmenu
207*line 140
208clr R5
209bra L4
210L5:
211*line 141
212*line 142
213clr R4
214bra L8
215L9:
216*line 143
217*line 144
218move R5,R0
219asl #3,R0
220ext.l R0
221move.l R0,R8
222move.l #_sqhilit,R9
223move.b 0(R8,R9.l),R0
224ext.w R0
225move R0,R6
226*line 145
227*line 146
228move R5,R0
229asl #3,R0
230ext.l R0
231move.l R0,R8
232move.l #_sqhilit,R9
233move.b 1(R8,R9.l),R0
234ext.w R0
235move R0,R3
236bra L12
237L13:
238*line 147
239*line 148
240*line 149
241move #64,(sp)
242move.b R7,R0
243ext.w R0
244move R4,R9
245move R5,R2
246asl #3,R2
247ext.l R2
248add.l R2,R9
249add.l #_sqhilit,R9
250move.b 2(R9),R1
251ext.w R1
252and R1,R0
253beq L10000
254move #18,-(sp)
255bra L10002
256L10000:move #146,-(sp)
257L10002:move R6,-(sp)
258move R4,-(sp)
259add #1,(sp)
260move.l _obj11,-(sp)
261jsr _vsetcv
262adda.l #10,sp
263add #1,R6
264L11:L12:
265*line 146
266move R3,R0
267sub #1,R3
268tst R0
269bgt L13
270L10:
271*line 149
272L7:
273*line 142
274add #1,R4
275L8:
276*line 142
277cmp #5,R4
278blt L9
279L6:
280*line 150
281L3:
282*line 140
283add #1,R5
284L4:
285*line 140
286cmp #5,R5
287blt L5
288L2:L1:tst.l (sp)+
289movem.l (sp)+,R3-R7
290unlk R14
291rts
292.globl _postcm
293.text
294_postcm:
295~~postcm:
296link R14,#-4
297*line 165
298*line 165
299cmp #12,_stccol
300blt L15
301cmp #22,_stccol
302bgt L15
303*line 166
304*line 167
305*line 168
306cmp #12,_stccol
307blt L16
308cmp #13,_stccol
309bgt L16
310*line 168
311move #1,(sp)
312jsr _hilitsq
313bra L17
314L16:
315*line 169
316*line 170
317clr R0
318move 2+_seqbuf,R0
319and #255,R0
320move R0,R8
321move.l #_sqopreq,R9
322tst.b 0(R8,R9.l)
323beq L18
324cmp #19,_stccol
325bne L18
326*line 170
327move #2,(sp)
328jsr _hilitsq
329*line 171
330bra L19
331L18:
332*line 172
333clr (sp)
334jsr _hilitsq
335L19:L17:
336*line 173
337bra L14
338*line 174
339*line 175
340bra L20
341L15:
342*line 176
343*line 176
344cmp #24,_stccol
345blt L21
346cmp #34,_stccol
347bgt L21
348*line 177
349*line 178
350*line 179
351cmp #24,_stccol
352blt L22
353cmp #25,_stccol
354bgt L22
355*line 179
356move #1,(sp)
357jsr _hilitsq
358bra L23
359L22:
360*line 180
361*line 181
362clr R0
363move 6+_seqbuf,R0
364and #255,R0
365move R0,R8
366move.l #_sqopreq,R9
367tst.b 0(R8,R9.l)
368beq L24
369cmp #31,_stccol
370bne L24
371*line 181
372move #2,(sp)
373jsr _hilitsq
374*line 182
375bra L25
376L24:
377*line 183
378clr (sp)
379jsr _hilitsq
380L25:L23:
381*line 184
382bra L14
383*line 185
384*line 186
385bra L26
386L21:
387*line 187
388*line 187
389cmp #36,_stccol
390blt L27
391cmp #46,_stccol
392bgt L27
393*line 188
394*line 189
395*line 190
396cmp #36,_stccol
397blt L28
398cmp #37,_stccol
399bgt L28
400*line 190
401move #4,(sp)
402jsr _hilitsq
403bra L29
404L28:
405*line 191
406*line 192
407clr R0
408move 10+_seqbuf,R0
409and #255,R0
410move R0,R8
411move.l #_sqopreq,R9
412tst.b 0(R8,R9.l)
413beq L30
414cmp #43,_stccol
415bne L30
416*line 192
417move #2,(sp)
418jsr _hilitsq
419*line 193
420bra L31
421L30:
422*line 194
423clr (sp)
424jsr _hilitsq
425L31:L29:
426*line 195
427bra L14
428*line 196
429*line 197
430bra L32
431L27:
432*line 198
433*line 199
434*line 200
435clr (sp)
436jsr _hilitsq
437bra L14
438*line 201
439L32:L26:L20:L14:unlk R14
440rts
441.globl _movestc
442.text
443_movestc:
444~~movestc:
445~r=8
446~c=10
447link R14,#-4
448*line 217
449move 10(R14),(sp)
450move 8(R14),-(sp)
451jsr _ctcpos
452addq.l #2,sp
453*line 218
454jsr _postcm
455L33:unlk R14
456rts
457.globl _endssm
458.text
459_endssm:
460~~endssm:
461~row=8
462~col=10
463link R14,#-4
464*line 230
465clr _submenu
466*line 231
467move #4,_cmtype
468*line 233
469jsr _mtcoff
470*line 234
471jsr _ctcon
472*line 235
473move 10(R14),(sp)
474move 8(R14),-(sp)
475jsr _movestc
476addq.l #2,sp
477L34:unlk R14
478rts
479.globl _setsqm
480.text
481_setsqm:
482~~setsqm:
483~r=8
484~c=10
485link R14,#-4
486*line 250
487move #1,_submenu
488*line 251
489move #5,_cmtype
490*line 252
491move 10(R14),(sp)
492move 8(R14),-(sp)
493jsr _mtcpos
494addq.l #2,sp
495L35:unlk R14
496rts
497.globl _sqenter
498.text
499_sqenter:
500~~sqenter:
501link R14,#-14
502movem.l R4-R7/R12-R13,-(sp)
503~i=R7
504~lcol=R6
505~ltemp=R5
506~ap=R13
507~dp=R12
508~theact=-2
509~port=-4
510~chan=-6
511~key=-8
512~val=-10
513~obj=-12
514~dtype=-14
515*line 272
516move _action,R0
517bra L38
518*line 273
519L39:
520*line 274
521*line 275
522*line 276
523move.l #2+_seqbuf,R13
524*line 277
525move.l #4+_seqbuf,R12
526bra L37
527*line 278
528*line 279
529L40:
530*line 280
531*line 281
532*line 282
533move.l #6+_seqbuf,R13
534*line 283
535move.l #8+_seqbuf,R12
536bra L37
537*line 284
538*line 285
539L41:
540*line 286
541*line 287
542*line 288
543move.l #10+_seqbuf,R13
544*line 289
545move.l #12+_seqbuf,R12
546bra L37
547*line 290
548*line 291
549L42:
550*line 292
551*line 293
552*line 294
553clr _action
554*line 295
555move _action,R8
556move.l #_actlft,R9
557move.b 0(R8,R9.l),R0
558ext.w R0
559move R0,(sp)
560move #9,-(sp)
561jsr _movestc
562addq.l #2,sp
563*line 296
564move #-1,R0
565bra L36
566bra L37
567L38:tst R0
568beq L39
569cmp #1,R0
570beq L40
571cmp #2,R0
572beq L41
573bra L42
574L37:
575*line 301
576move _action,R8
577move.l #_actlft,R9
578move.b 0(R8,R9.l),R0
579ext.w R0
580move R0,R6
581*line 302
582clr R0
583move (R13),R0
584and #255,R0
585move R0,-2(R14)
586*line 304
587clr R0
588move -2(R14),R0
589bra L44
590*line 305
591L45:
592*line 306
593L46:
594*line 307
595L47:
596*line 308
597L48:
598*line 309
599*line 310
600*line 311
601clr.l R5
602*line 312
603*line 313
604move R6,R7
605add #3,R7
606bra L51
607L52:
608*line 314
609move.l #$a,-(sp)
610move.l R5,-(sp)
611jsr lmul
612addq.l #8,sp
613move.l R0,R5
614move.l #_sqdebuf,R8
615move.b 0(R8,R7),R0
616ext.w R0
617add #-48,R0
618ext.l R0
619add.l R0,R5
620L50:
621*line 313
622add #1,R7
623L51:
624*line 313
625move R6,R0
626add #6,R0
627cmp R0,R7
628blt L52
629L49:
630*line 314
631*line 315
632*line 316
633*line 316
634cmp.l #$1,R5
635blt L10003
636cmp.l #$80,R5
637ble L53
638L10003:*line 317
639*line 318
640move _action,R8
641move.l #_actlft,R9
642move.b 0(R8,R9.l),R0
643ext.w R0
644move R0,(sp)
645add #3,(sp)
646move #9,-(sp)
647jsr _movestc
648addq.l #2,sp
649*line 319
650move #-1,R0
651bra L36
652*line 320
653*line 321
654L53:
655*line 322
656move.l R5,R0
657sub.l #$1,R0
658move R0,-8(R14)
659*line 323
660*line 324
661*line 325
662move.l #_sqdebuf,R8
663move.b 7(R8,R6),R0
664ext.w R0
665move R0,R7
666*line 326
667*line 327
668*line 327
669cmp #49,R7
670beq L10004
671cmp #50,R7
672bne L54
673L10004:*line 328
674*line 329
675move R7,R0
676add #-49,R0
677move R0,-4(R14)
678*line 330
679bra L55
680L54:
681*line 331
682*line 331
683cmp #76,R7
684bne L56
685*line 332
686*line 333
687move #2,-4(R14)
688*line 334
689bra L57
690L56:
691*line 335
692*line 336
693*line 337
694move _action,R8
695move.l #_actlft,R9
696move.b 0(R8,R9.l),R0
697ext.w R0
698move R0,(sp)
699add #7,(sp)
700move #9,-(sp)
701jsr _movestc
702addq.l #2,sp
703*line 338
704move #-1,R0
705bra L36
706L57:L55:
707*line 339
708*line 340
709*line 341
710*line 342
711move.l #_sqdebuf,R8
712move.b 9(R8,R6),R0
713ext.w R0
714add #-48,R0
715muls #10,R0
716move.l #_sqdebuf,R9
717move.b 10(R9,R6),R1
718ext.w R1
719add R1,R0
720add #-48,R0
721ext.l R0
722move.l R0,R5
723*line 343
724*line 344
725*line 344
726cmp.l #$1,R5
727blt L10005
728cmp.l #$10,R5
729ble L58
730L10005:*line 345
731*line 346
732move _action,R8
733move.l #_actlft,R9
734move.b 0(R8,R9.l),R0
735ext.w R0
736move R0,(sp)
737add #9,(sp)
738move #9,-(sp)
739jsr _movestc
740addq.l #2,sp
741*line 347
742move #-1,R0
743bra L36
744*line 348
745*line 349
746L58:
747*line 350
748move.l R5,R0
749sub.l #$1,R0
750move R0,-6(R14)
751*line 351
752clr R0
753move -4(R14),R0
754move #11,R1
755lsl R1,R0
756clr R1
757move -6(R14),R1
758lsl #7,R1
759or R1,R0
760or -8(R14),R0
761move R0,(R12)
762*line 352
763bra L43
764*line 353
765*line 354
766*line 355
767L59:
768*line 356
769L60:
770*line 357
771L61:
772*line 358
773*line 359
774*line 360
775*line 361
776move.l #_sqdebuf,R8
777move.b 9(R8,R6),R0
778ext.w R0
779add #-48,R0
780muls #10,R0
781move.l #_sqdebuf,R9
782move.b 10(R9,R6),R1
783ext.w R1
784add R1,R0
785add #-48,R0
786ext.l R0
787move.l R0,R5
788*line 362
789*line 363
790*line 363
791cmp.l #$1,R5
792blt L10006
793cmp.l #$10,R5
794ble L62
795L10006:*line 364
796*line 365
797move _action,R8
798move.l #_actlft,R9
799move.b 0(R8,R9.l),R0
800ext.w R0
801move R0,(sp)
802add #9,(sp)
803move #9,-(sp)
804jsr _movestc
805addq.l #2,sp
806*line 366
807move #-1,R0
808bra L36
809*line 367
810*line 368
811L62:
812*line 369
813move.l R5,R0
814sub.l #$1,R0
815move R0,(R12)
816*line 370
817bra L43
818*line 371
819*line 372
820L63:
821*line 373
822L64:
823*line 374
824L65:
825*line 375
826L66:
827*line 376
828*line 377
829bra L43
830*line 378
831*line 379
832L67:
833*line 380
834*line 381
835*line 382
836clr.l R5
837*line 383
838*line 384
839move R6,R7
840add #8,R7
841bra L70
842L71:
843*line 385
844move.l #$a,-(sp)
845move.l R5,-(sp)
846jsr lmul
847addq.l #8,sp
848move.l R0,R5
849move.l #_sqdebuf,R8
850move.b 0(R8,R7),R0
851ext.w R0
852add #-48,R0
853ext.l R0
854add.l R0,R5
855L69:
856*line 384
857add #1,R7
858L70:
859*line 384
860move R6,R0
861add #11,R0
862cmp R0,R7
863blt L71
864L68:
865*line 385
866*line 386
867*line 387
868move R5,(R12)
869*line 388
870bra L43
871*line 389
872*line 390
873*line 391
874L72:
875*line 392
876L73:
877*line 393
878L74:
879*line 394
880L75:
881*line 395
882L76:
883*line 396
884*line 397
885*line 398
886clr R0
887move (R12),R0
888and #3840,R0
889move R0,-14(R14)
890*line 399
891*line 400
892*line 401
893move.l #_sqdebuf,R8
894move.b 5(R8,R6),R0
895ext.w R0
896add #-48,R0
897muls #10,R0
898move.l #_sqdebuf,R9
899move.b 6(R9,R6),R1
900ext.w R1
901add R1,R0
902add #-48,R0
903ext.l R0
904move.l R0,R5
905*line 402
906*line 403
907*line 403
908cmp.l #$1,R5
909blt L10007
910cmp.l #$10,R5
911ble L77
912L10007:*line 404
913*line 405
914move _action,R8
915move.l #_actlft,R9
916move.b 0(R8,R9.l),R0
917ext.w R0
918move R0,(sp)
919add #5,(sp)
920move #9,-(sp)
921jsr _movestc
922addq.l #2,sp
923*line 406
924move #-1,R0
925bra L36
926*line 407
927*line 408
928L77:
929*line 409
930move.l R5,R0
931sub.l #$1,R0
932move R0,-12(R14)
933*line 410
934*line 411
935clr R0
936move -14(R14),R0
937bra L79
938*line 412
939L80:
940*line 413
941*line 414
942*line 415
943*line 416
944move.l #_sqdebuf,R8
945move.b 9(R8,R6),R0
946ext.w R0
947add #-48,R0
948muls #10,R0
949move.l #_sqdebuf,R9
950move.b 10(R9,R6),R1
951ext.w R1
952add R1,R0
953add #-48,R0
954ext.l R0
955move.l R0,R5
956*line 417
957*line 418
958*line 418
959cmp.l #$1,R5
960blt L10008
961cmp.l #$10,R5
962ble L81
963L10008:*line 419
964*line 420
965move _action,R8
966move.l #_actlft,R9
967move.b 0(R8,R9.l),R0
968ext.w R0
969move R0,(sp)
970add #9,(sp)
971move #9,-(sp)
972jsr _movestc
973addq.l #2,sp
974*line 421
975move #-1,R0
976bra L36
977*line 422
978*line 423
979L81:
980*line 424
981move.l R5,R0
982sub.l #$1,R0
983move R0,-10(R14)
984bra L78
985*line 425
986*line 426
987L82:
988*line 427
989*line 428
990*line 429
991*line 430
992move.l #_sqdebuf,R8
993move.b 8(R8,R6),R0
994ext.w R0
995add #-48,R0
996muls #10,R0
997move.l #_sqdebuf,R9
998move.b 9(R9,R6),R1
999ext.w R1
1000add R1,R0
1001add #-48,R0
1002move R0,-10(R14)
1003*line 431
1004bra L78
1005*line 432
1006*line 433
1007*line 434
1008L83:
1009*line 435
1010*line 436
1011*line 437
1012move.l #_sqdebuf,R8
1013move.b 9(R8,R6),R0
1014ext.w R0
1015add #-49,R0
1016move R0,-10(R14)
1017bra L78
1018*line 438
1019*line 439
1020L84:
1021*line 440
1022*line 441
1023*line 442
1024move.l #_sqdebuf,R8
1025move.b 9(R8,R6),R0
1026ext.w R0
1027add #-48,R0
1028move R0,-10(R14)
1029bra L78
1030*line 443
1031*line 444
1032L85:
1033*line 445
1034*line 446
1035*line 447
1036move _action,R8
1037move.l #_actlft,R9
1038move.b 0(R8,R9.l),R0
1039ext.w R0
1040move R0,(sp)
1041add #8,(sp)
1042move #9,-(sp)
1043jsr _movestc
1044addq.l #2,sp
1045*line 448
1046move #-1,R0
1047bra L36
1048bra L78
1049L79:tst R0
1050beq L80
1051cmp #256,R0
1052beq L82
1053cmp #512,R0
1054beq L83
1055cmp #768,R0
1056beq L84
1057bra L85
1058L78:
1059*line 449
1060*line 450
1061*line 451
1062*line 452
1063*line 453
1064clr R0
1065move (R13),R0
1066and #255,R0
1067cmp #16,R0
1068bne L86
1069move R6,R8
1070add.l #_sqdebuf,R8
1071cmp.b #45,7(R8)
1072bne L86
1073*line 453
1074or #4096,-10(R14)
1075*line 454
1076L86:
1077*line 455
1078clr R0
1079move (R13),R0
1080and #255,R0
1081clr R1
1082move -12(R14),R1
1083lsl #8,R1
1084or R1,R0
1085move R0,(R13)
1086*line 456
1087clr R0
1088move (R12),R0
1089and #3840,R0
1090or -10(R14),R0
1091move R0,(R12)
1092*line 457
1093bra L43
1094*line 458
1095*line 459
1096L87:
1097*line 460
1098*line 461
1099*line 462
1100move _action,R8
1101move.l #_actlft,R9
1102move.b 0(R8,R9.l),R0
1103ext.w R0
1104move R0,(sp)
1105move #9,-(sp)
1106jsr _movestc
1107addq.l #2,sp
1108*line 463
1109move #-1,R0
1110bra L36
1111bra L43
1112L44:cmp #16,R0
1113bhi L87
1114asl #2,R0
1115move R0,R8
1116add.l #L88,R8
1117move.l (R8),R8
1118jmp (R8)
1119.data
1120L88:.dc.l L63
1121.dc.l L46
1122.dc.l L47
1123.dc.l L45
1124.dc.l L48
1125.dc.l L59
1126.dc.l L60
1127.dc.l L61
1128.dc.l L64
1129.dc.l L72
1130.dc.l L74
1131.dc.l L75
1132.dc.l L76
1133.dc.l L66
1134.dc.l L67
1135.dc.l L65
1136.dc.l L73
1137.text
1138L43:
1139*line 467
1140move #7,(sp)
1141move.l #_seqbuf,-(sp)
1142move _curslin,R0
1143muls #14,R0
1144add.l #_seqtab,R0
1145move.l R0,-(sp)
1146jsr _memcpyw
1147addq.l #8,sp
1148*line 468
1149move _curslin,(sp)
1150move.l #_sqdebuf,-(sp)
1151jsr _dsqlin
1152addq.l #4,sp
1153*line 469
1154move #1,_sqdeflg
1155*line 470
1156jsr _dcursq
1157*line 471
1158move _action,R8
1159move.l #_nextact,R9
1160move.b 0(R8,R9.l),R0
1161ext.w R0
1162move R0,(sp)
1163move #9,-(sp)
1164jsr _movestc
1165addq.l #2,sp
1166*line 472
1167clr R0
1168bra L36
1169L36:tst.l (sp)+
1170movem.l (sp)+,R5-R7/R12-R13
1171unlk R14
1172rts
1173.globl _sqfnbox
1174.text
1175_sqfnbox:
1176~~sqfnbox:
1177~n=8
1178link R14,#-4
1179movem.l R4-R7,-(sp)
1180~act=-2
1181~vtype=-4
1182~box=R7
1183~i=R6
1184~ltemp=R5
1185*line 493
1186*line 493
1187tst _submenu
1188bne L90
1189*line 494
1190*line 495
1191*line 495
1192cmp #2,_stccol
1193blt L91
1194cmp #4,_stccol
1195bgt L91
1196*line 496
1197*line 497
1198clr.l R5
1199*line 498
1200*line 499
1201move #2,R6
1202bra L94
1203L95:
1204*line 500
1205move.l #$a,-(sp)
1206move.l R5,-(sp)
1207jsr lmul
1208addq.l #8,sp
1209move.l R0,R5
1210move.l #_sqdebuf,R8
1211move.b 0(R8,R6),R0
1212ext.w R0
1213add #-48,R0
1214ext.l R0
1215add.l R0,R5
1216L93:
1217*line 499
1218add #1,R6
1219L94:
1220*line 499
1221cmp #5,R6
1222blt L95
1223L92:
1224*line 500
1225*line 501
1226*line 502
1227move R5,_curslin
1228*line 503
1229clr _sqdeflg
1230*line 504
1231jsr _dstw
1232*line 505
1233move #2,(sp)
1234move #9,-(sp)
1235jsr _movestc
1236addq.l #2,sp
1237*line 506
1238clr R0
1239bra L89
1240*line 507
1241bra L96
1242L91:
1243*line 508
1244*line 508
1245cmp #6,_stccol
1246blt L97
1247cmp #10,_stccol
1248bgt L97
1249*line 509
1250*line 510
1251clr.l R5
1252*line 511
1253*line 512
1254move #6,R6
1255bra L100
1256L101:
1257*line 513
1258move.l #$a,-(sp)
1259move.l R5,-(sp)
1260jsr lmul
1261addq.l #8,sp
1262move.l R0,R5
1263move.l #_sqdebuf,R8
1264move.b 0(R8,R6),R0
1265ext.w R0
1266add #-48,R0
1267ext.l R0
1268add.l R0,R5
1269L99:
1270*line 512
1271add #1,R6
1272L100:
1273*line 512
1274cmp #8,R6
1275blt L101
1276L98:
1277*line 513
1278*line 514
1279*line 515
1280move #9,R6
1281bra L104
1282L105:
1283*line 516
1284move.l #$a,-(sp)
1285move.l R5,-(sp)
1286jsr lmul
1287addq.l #8,sp
1288move.l R0,R5
1289move.l #_sqdebuf,R8
1290move.b 0(R8,R6),R0
1291ext.w R0
1292add #-48,R0
1293ext.l R0
1294add.l R0,R5
1295L103:
1296*line 515
1297add #1,R6
1298L104:
1299*line 515
1300cmp #11,R6
1301blt L105
1302L102:
1303*line 516
1304*line 517
1305*line 518
1306move.l R5,R0
1307move _curslin,R1
1308muls #14,R1
1309add.l #_seqtab,R1
1310move.l R1,R9
1311move R0,(R9)
1312*line 519
1313move R5,_seqbuf
1314*line 520
1315move _curslin,(sp)
1316move.l #_sqdebuf,-(sp)
1317jsr _dsqlin
1318addq.l #4,sp
1319*line 521
1320move #1,_sqdeflg
1321*line 522
1322jsr _dcursq
1323*line 523
1324move #12,(sp)
1325move #9,-(sp)
1326jsr _movestc
1327addq.l #2,sp
1328*line 524
1329clr R0
1330bra L89
1331*line 525
1332*line 526
1333bra L106
1334L97:
1335*line 527
1336*line 527
1337cmp #12,_stccol
1338blt L107
1339cmp #22,_stccol
1340bgt L107
1341*line 528
1342*line 529
1343clr _action
1344*line 530
1345*line 531
1346*line 531
1347cmp #12,_stccol
1348blt L108
1349cmp #13,_stccol
1350bgt L108
1351*line 532
1352*line 533
1353move #2,(sp)
1354move #19,-(sp)
1355jsr _setsqm
1356addq.l #2,sp
1357*line 534
1358clr R0
1359bra L89
1360*line 535
1361bra L109
1362L108:
1363*line 536
1364*line 537
1365clr R0
1366move 2+_seqbuf,R0
1367and #255,R0
1368move R0,R8
1369move.l #_sqopreq,R9
1370tst.b 0(R8,R9.l)
1371beq L110
1372cmp #19,_stccol
1373bne L110
1374*line 538
1375*line 539
1376move #53,(sp)
1377move #19,-(sp)
1378jsr _setsqm
1379addq.l #2,sp
1380*line 540
1381clr R0
1382bra L89
1383*line 541
1384bra L111
1385L110:
1386*line 542
1387*line 543
1388*line 544
1389jsr _sqenter
1390bra L89
1391L111:L109:
1392*line 545
1393*line 546
1394bra L112
1395L107:
1396*line 547
1397*line 547
1398cmp #24,_stccol
1399blt L113
1400cmp #34,_stccol
1401bgt L113
1402*line 548
1403*line 549
1404move #1,_action
1405*line 550
1406*line 551
1407*line 551
1408cmp #24,_stccol
1409blt L114
1410cmp #25,_stccol
1411bgt L114
1412*line 552
1413*line 553
1414move #2,(sp)
1415move #19,-(sp)
1416jsr _setsqm
1417addq.l #2,sp
1418*line 554
1419clr R0
1420bra L89
1421*line 555
1422bra L115
1423L114:
1424*line 556
1425*line 557
1426clr R0
1427move 6+_seqbuf,R0
1428and #255,R0
1429move R0,R8
1430move.l #_sqopreq,R9
1431tst.b 0(R8,R9.l)
1432beq L116
1433cmp #31,_stccol
1434bne L116
1435*line 558
1436*line 559
1437move #53,(sp)
1438move #19,-(sp)
1439jsr _setsqm
1440addq.l #2,sp
1441*line 560
1442clr R0
1443bra L89
1444*line 561
1445bra L117
1446L116:
1447*line 562
1448*line 563
1449*line 564
1450jsr _sqenter
1451bra L89
1452L117:L115:
1453*line 565
1454*line 566
1455*line 567
1456bra L118
1457L113:
1458*line 568
1459*line 568
1460cmp #36,_stccol
1461blt L119
1462cmp #46,_stccol
1463bgt L119
1464*line 569
1465*line 570
1466move #2,_action
1467*line 571
1468*line 572
1469*line 572
1470cmp #36,_stccol
1471blt L120
1472cmp #37,_stccol
1473bgt L120
1474*line 573
1475*line 574
1476move #2,(sp)
1477move #19,-(sp)
1478jsr _setsqm
1479addq.l #2,sp
1480*line 575
1481clr R0
1482bra L89
1483*line 576
1484bra L121
1485L120:
1486*line 577
1487*line 578
1488clr R0
1489move 10+_seqbuf,R0
1490and #255,R0
1491move R0,R8
1492move.l #_sqopreq,R9
1493tst.b 0(R8,R9.l)
1494beq L122
1495cmp #43,_stccol
1496bne L122
1497*line 579
1498*line 580
1499move #53,(sp)
1500move #19,-(sp)
1501jsr _setsqm
1502addq.l #2,sp
1503*line 581
1504clr R0
1505bra L89
1506*line 582
1507bra L123
1508L122:
1509*line 583
1510*line 584
1511*line 585
1512jsr _sqenter
1513bra L89
1514L123:L121:
1515*line 586
1516*line 587
1517*line 588
1518bra L124
1519L119:
1520*line 589
1521move #-1,R0
1522bra L89
1523L124:L118:L112:L106:L96:
1524*line 590
1525*line 591
1526bra L125
1527L90:
1528*line 592
1529*line 593
1530*line 594
1531*line 595
1532*line 596
1533*line 597
1534cmp #2,_vtccol
1535blt L126
1536cmp #14,_vtccol
1537bgt L126
1538*line 597
1539move _vtcrow,R7
1540add #-18,R7
1541bra L127
1542L126:
1543*line 598
1544*line 599
1545cmp #17,_vtccol
1546blt L128
1547cmp #27,_vtccol
1548bgt L128
1549*line 599
1550move _vtcrow,R7
1551add #-14,R7
1552bra L129
1553L128:
1554*line 600
1555*line 601
1556cmp #30,_vtccol
1557blt L130
1558cmp #40,_vtccol
1559bgt L130
1560*line 601
1561move _vtcrow,R7
1562add #-10,R7
1563bra L131
1564L130:
1565*line 602
1566*line 603
1567cmp #43,_vtccol
1568blt L132
1569cmp #50,_vtccol
1570bgt L132
1571*line 603
1572move _vtcrow,R7
1573sub #6,R7
1574bra L133
1575L132:
1576*line 604
1577*line 605
1578cmp #53,_vtccol
1579blt L134
1580cmp #60,_vtccol
1581bgt L134
1582*line 605
1583move _vtcrow,R7
1584sub #1,R7
1585*line 606
1586bra L135
1587L134:
1588*line 607
1589move #-1,R0
1590bra L89
1591L135:L133:L131:L129:L127:
1592*line 608
1593*line 609
1594*line 610
1595move _sqmenu,R0
1596bra L137
1597*line 611
1598L138:
1599*line 612
1600L139:
1601*line 613
1602*line 614
1603*line 615
1604*line 616
1605cmp #18,R7
1606blt L140
1607cmp #21,R7
1608bgt L140
1609*line 616
1610move #-1,R0
1611bra L89
1612*line 617
1613L140:
1614*line 618
1615move _action,R0
1616bra L142
1617*line 619
1618L143:
1619*line 620
1620*line 621
1621*line 622
1622move R7,R8
1623add.l R8,R8
1624move.l #_sqatype,R9
1625move 0(R8,R9.l),R0
1626move R0,2+_seqbuf
1627and #255,R0
1628move R0,-2(R14)
1629*line 623
1630move R7,R8
1631add.l R8,R8
1632move.l #_sqidata,R9
1633move 0(R8,R9.l),R0
1634move R0,4+_seqbuf
1635lsr #8,R0
1636and #15,R0
1637move R0,-4(R14)
1638bra L141
1639*line 624
1640*line 625
1641L144:
1642*line 626
1643*line 627
1644*line 628
1645move R7,R8
1646add.l R8,R8
1647move.l #_sqatype,R9
1648move 0(R8,R9.l),R0
1649move R0,6+_seqbuf
1650and #255,R0
1651move R0,-2(R14)
1652*line 629
1653move R7,R8
1654add.l R8,R8
1655move.l #_sqidata,R9
1656move 0(R8,R9.l),R0
1657move R0,8+_seqbuf
1658lsr #8,R0
1659and #15,R0
1660move R0,-4(R14)
1661bra L141
1662*line 630
1663*line 631
1664L145:
1665*line 632
1666*line 633
1667*line 634
1668*line 635
1669*line 636
1670cmp #4,R7
1671beq L10009
1672cmp #8,R7
1673beq L10009
1674cmp #12,R7
1675beq L10009
1676cmp #15,R7
1677blt L146
1678cmp #17,R7
1679bgt L146
1680L10009:*line 636
1681move #-1,R0
1682bra L89
1683*line 637
1684L146:
1685*line 638
1686move R7,R8
1687add.l R8,R8
1688move.l #_sqatype,R9
1689move 0(R8,R9.l),R0
1690move R0,10+_seqbuf
1691and #255,R0
1692move R0,-2(R14)
1693*line 639
1694move R7,R8
1695add.l R8,R8
1696move.l #_sqidata,R9
1697move 0(R8,R9.l),R0
1698move R0,12+_seqbuf
1699lsr #8,R0
1700and #15,R0
1701move R0,-4(R14)
1702bra L141
1703*line 640
1704bra L141
1705L142:tst R0
1706beq L143
1707cmp #1,R0
1708beq L144
1709cmp #2,R0
1710beq L145
1711bra L141
1712L141:
1713*line 641
1714*line 642
1715*line 643
1716move #7,(sp)
1717move.l #_seqbuf,-(sp)
1718move _curslin,R0
1719muls #14,R0
1720add.l #_seqtab,R0
1721move.l R0,-(sp)
1722jsr _memcpyw
1723addq.l #8,sp
1724*line 644
1725move _curslin,(sp)
1726move.l #_sqdebuf,-(sp)
1727jsr _dsqlin
1728addq.l #4,sp
1729*line 645
1730move #1,_sqdeflg
1731*line 646
1732jsr _dcursq
1733*line 647
1734*line 648
1735*line 649
1736move -2(R14),R8
1737move.l #_sqopreq,R9
1738tst.b 0(R8,R9.l)
1739beq L147
1740*line 649
1741move _action,R8
1742move.l #_actlft,R9
1743move.b 0(R8,R9.l),R0
1744ext.w R0
1745move R0,(sp)
1746move -4(R14),R8
1747move.l #_sqvcol,R9
1748move.b 0(R8,R9.l),R0
1749ext.w R0
1750add R0,(sp)
1751move _stcrow,-(sp)
1752jsr _endssm
1753addq.l #2,sp
1754bra L148
1755L147:
1756*line 650
1757*line 651
1758cmp #13,-2(R14)
1759beq L10010
1760cmp #15,-2(R14)
1761bne L149
1762L10010:*line 651
1763move _action,R8
1764move.l #_nextact,R9
1765move.b 0(R8,R9.l),R0
1766ext.w R0
1767move R0,(sp)
1768move _stcrow,-(sp)
1769jsr _endssm
1770addq.l #2,sp
1771*line 652
1772bra L150
1773L149:
1774*line 653
1775move _action,R8
1776move.l #_actlft,R9
1777move.b 0(R8,R9.l),R0
1778ext.w R0
1779move R0,(sp)
1780move -2(R14),R8
1781move.l #_actcol,R9
1782move.b 0(R8,R9.l),R0
1783ext.w R0
1784add R0,(sp)
1785move _stcrow,-(sp)
1786jsr _endssm
1787addq.l #2,sp
1788L150:L148:
1789*line 654
1790*line 655
1791clr R0
1792bra L89
1793*line 656
1794*line 657
1795L151:
1796*line 658
1797*line 659
1798*line 660
1799*line 661
1800cmp #18,R7
1801blt L10011
1802cmp #21,R7
1803ble L152
1804L10011:*line 661
1805move #-1,R0
1806bra L89
1807*line 662
1808L152:
1809*line 663
1810move _action,R0
1811bra L154
1812*line 664
1813L155:
1814*line 665
1815*line 666
1816*line 667
1817*line 668
1818clr R0
1819move 2+_seqbuf,R0
1820and #255,R0
1821move R0,-2(R14)
1822move R0,R8
1823move.l #_sqopreq,R9
1824tst.b 0(R8,R9.l)
1825bne L156
1826*line 668
1827move #-1,R0
1828bra L89
1829*line 669
1830L156:
1831*line 670
1832clr R0
1833move 4+_seqbuf,R0
1834and #-4096,R0
1835move R7,R9
1836add #-18,R9
1837add.l R9,R9
1838add.l #_sqndata,R9
1839move (R9),R1
1840or R1,R0
1841move R0,4+_seqbuf
1842bra L153
1843*line 671
1844*line 672
1845L157:
1846*line 673
1847*line 674
1848*line 675
1849*line 676
1850clr R0
1851move 6+_seqbuf,R0
1852and #255,R0
1853move R0,-2(R14)
1854move R0,R8
1855move.l #_sqopreq,R9
1856tst.b 0(R8,R9.l)
1857bne L158
1858*line 676
1859move #-1,R0
1860bra L89
1861*line 677
1862L158:
1863*line 678
1864clr R0
1865move 8+_seqbuf,R0
1866and #-4096,R0
1867move R7,R9
1868add #-18,R9
1869add.l R9,R9
1870add.l #_sqndata,R9
1871move (R9),R1
1872or R1,R0
1873move R0,8+_seqbuf
1874bra L153
1875*line 679
1876*line 680
1877L159:
1878*line 681
1879*line 682
1880*line 683
1881*line 684
1882clr R0
1883move 10+_seqbuf,R0
1884and #255,R0
1885move R0,-2(R14)
1886move R0,R8
1887move.l #_sqopreq,R9
1888tst.b 0(R8,R9.l)
1889bne L160
1890*line 684
1891move #-1,R0
1892bra L89
1893*line 685
1894L160:
1895*line 686
1896clr R0
1897move 12+_seqbuf,R0
1898and #-4096,R0
1899move R7,R9
1900add #-18,R9
1901add.l R9,R9
1902add.l #_sqndata,R9
1903move (R9),R1
1904or R1,R0
1905move R0,12+_seqbuf
1906bra L153
1907*line 687
1908bra L153
1909L154:tst R0
1910beq L155
1911cmp #1,R0
1912beq L157
1913cmp #2,R0
1914beq L159
1915bra L153
1916L153:
1917*line 688
1918*line 689
1919bra L136
1920*line 690
1921*line 691
1922L161:
1923*line 692
1924*line 693
1925*line 694
1926move _stccol,(sp)
1927move _stcrow,-(sp)
1928jsr _endssm
1929addq.l #2,sp
1930*line 695
1931move #-1,R0
1932bra L89
1933bra L136
1934L137:cmp #1,R0
1935beq L138
1936cmp #2,R0
1937beq L151
1938cmp #4,R0
1939beq L139
1940bra L161
1941L136:
1942*line 696
1943*line 697
1944*line 698
1945move #7,(sp)
1946move.l #_seqbuf,-(sp)
1947move _curslin,R0
1948muls #14,R0
1949add.l #_seqtab,R0
1950move.l R0,-(sp)
1951jsr _memcpyw
1952addq.l #8,sp
1953*line 699
1954move _curslin,(sp)
1955move.l #_sqdebuf,-(sp)
1956jsr _dsqlin
1957addq.l #4,sp
1958*line 700
1959move #1,_sqdeflg
1960*line 701
1961jsr _dcursq
1962*line 702
1963move _action,R8
1964move.l #_actlft,R9
1965move.b 0(R8,R9.l),R0
1966ext.w R0
1967move R0,(sp)
1968move.l #_seqvcol,R8
1969move.b -18(R8,R7),R0
1970ext.w R0
1971add R0,(sp)
1972move _stcrow,-(sp)
1973jsr _endssm
1974addq.l #2,sp
1975*line 703
1976clr R0
1977bra L89
1978L125:
1979*line 706
1980move #-1,R0
1981bra L89
1982L89:tst.l (sp)+
1983movem.l (sp)+,R5-R7
1984unlk R14
1985rts
1986.data
Note: See TracBrowser for help on using the repository browser.