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