source: buchla-68k/alcyon/barbadj.s@ 0170798

Last change on this file since 0170798 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 13.9 KB
RevLine 
[7bf3856]1.globl _io_time
2.globl _io_lcd
3.globl _io_ser
4.globl _io_midi
5.globl _io_disk
6.globl _io_tone
7.globl _io_leds
8.globl _io_kbrd
9.globl _lcd_a0
10.globl _lcd_a1
11.globl _io_vreg
12.globl _io_vraw
13.globl _io_vram
14.globl _io_fpu
15.globl _v_regs
16.globl _v_odtab
17.globl _v_actab
18.globl _v_ct0
19.globl _v_gt1
20.globl _v_score
21.globl _v_cgtab
22.globl _v_curs0
23.globl _v_curs1
24.globl _v_curs2
25.globl _v_curs3
26.globl _v_curs4
27.globl _v_curs5
28.globl _v_curs6
29.globl _v_curs7
30.globl _v_tcur
31.globl _v_kbobj
32.globl _v_lnobj
33.globl _v_win0
34.globl _v_cur
35.globl _fc_sw
36.globl _fc_val
37.globl _lcdx
38.globl _lcdy
39.globl _lcdbit
40.globl _lcdrow
41.globl _lcdcol
42.globl _lcdbase
43.globl _lcdctl1
44.globl _lcdctl2
45.globl _BarBcur
46.globl _BarCcur
47.globl _BarCols
48.data
49_BarCols:
50.dc.w $2
51.dc.w $8
52.dc.w $E
53.dc.w $14
54.dc.w $1A
55.dc.w $20
56.dc.w $26
57.dc.w $2C
58.dc.w $32
59.dc.w $38
60.dc.w $3E
61.dc.w $44
62.dc.w $4A
63.dc.w $50
64.globl _BarDots
65.data
66_BarDots:
67.dc.w $1C
68.dc.w $FC
69.dc.w $E0
70.globl _BBase
71.data
72_BBase:
73.dc.w $9
74.globl _BCenter
75.data
76_BCenter:
77.dc.w $20
78.globl _BTop
79.data
80_BTop:
81.dc.w $35
82.globl _BOffset
83.data
84_BOffset:
85.dc.w $80
86.globl _BarBLn
87.data
88_BarBLn:
89.dc.w $9
90.dc.w $A
91.dc.w $A
92.dc.w $B
93.dc.w $B
94.dc.w $B
95.dc.w $C
96.dc.w $C
97.dc.w $C
98.dc.w $D
99.dc.w $D
100.dc.w $D
101.dc.w $E
102.dc.w $E
103.dc.w $E
104.dc.w $F
105.dc.w $F
106.dc.w $F
107.dc.w $10
108.dc.w $10
109.dc.w $10
110.dc.w $11
111.dc.w $11
112.dc.w $11
113.dc.w $12
114.dc.w $12
115.dc.w $12
116.dc.w $13
117.dc.w $13
118.dc.w $13
119.dc.w $14
120.dc.w $14
121.dc.w $14
122.dc.w $15
123.dc.w $15
124.dc.w $16
125.dc.w $16
126.dc.w $16
127.dc.w $17
128.dc.w $17
129.dc.w $17
130.dc.w $18
131.dc.w $18
132.dc.w $18
133.dc.w $19
134.dc.w $19
135.dc.w $19
136.dc.w $1A
137.dc.w $1A
138.dc.w $1A
139.dc.w $1B
140.dc.w $1B
141.dc.w $1B
142.dc.w $1C
143.dc.w $1C
144.dc.w $1C
145.dc.w $1D
146.dc.w $1D
147.dc.w $1D
148.dc.w $1E
149.dc.w $1E
150.dc.w $1E
151.dc.w $1F
152.dc.w $1F
153.dc.w $1F
154.dc.w $20
155.dc.w $20
156.dc.w $20
157.dc.w $21
158.dc.w $21
159.dc.w $22
160.dc.w $22
161.dc.w $22
162.dc.w $23
163.dc.w $23
164.dc.w $23
165.dc.w $24
166.dc.w $24
167.dc.w $24
168.dc.w $25
169.dc.w $25
170.dc.w $25
171.dc.w $26
172.dc.w $26
173.dc.w $26
174.dc.w $27
175.dc.w $27
176.dc.w $27
177.dc.w $28
178.dc.w $28
179.dc.w $28
180.dc.w $29
181.dc.w $29
182.dc.w $29
183.dc.w $2A
184.dc.w $2A
185.dc.w $2A
186.dc.w $2B
187.dc.w $2B
188.dc.w $2B
189.dc.w $2C
190.dc.w $2C
191.dc.w $2C
192.dc.w $2D
193.dc.w $2D
194.dc.w $2E
195.dc.w $2E
196.dc.w $2E
197.dc.w $2F
198.dc.w $2F
199.dc.w $2F
200.dc.w $30
201.dc.w $30
202.dc.w $30
203.dc.w $31
204.dc.w $31
205.dc.w $31
206.dc.w $32
207.dc.w $32
208.dc.w $32
209.dc.w $33
210.dc.w $33
211.dc.w $33
212.dc.w $34
213.dc.w $34
214.dc.w $34
215.dc.w $35
216.dc.w $35
217.globl _BarCLn
218.data
219_BarCLn:
220.dc.w $9
221.dc.w $9
222.dc.w $9
223.dc.w $9
224.dc.w $9
225.dc.w $A
226.dc.w $A
227.dc.w $A
228.dc.w $A
229.dc.w $A
230.dc.w $B
231.dc.w $B
232.dc.w $B
233.dc.w $B
234.dc.w $B
235.dc.w $B
236.dc.w $C
237.dc.w $C
238.dc.w $C
239.dc.w $C
240.dc.w $C
241.dc.w $D
242.dc.w $D
243.dc.w $D
244.dc.w $D
245.dc.w $D
246.dc.w $D
247.dc.w $E
248.dc.w $E
249.dc.w $E
250.dc.w $E
251.dc.w $E
252.dc.w $E
253.dc.w $F
254.dc.w $F
255.dc.w $F
256.dc.w $F
257.dc.w $F
258.dc.w $10
259.dc.w $10
260.dc.w $10
261.dc.w $10
262.dc.w $10
263.dc.w $10
264.dc.w $11
265.dc.w $11
266.dc.w $11
267.dc.w $11
268.dc.w $11
269.dc.w $12
270.dc.w $12
271.dc.w $12
272.dc.w $12
273.dc.w $12
274.dc.w $12
275.dc.w $13
276.dc.w $13
277.dc.w $13
278.dc.w $13
279.dc.w $13
280.dc.w $14
281.dc.w $14
282.dc.w $14
283.dc.w $14
284.dc.w $14
285.dc.w $14
286.dc.w $15
287.dc.w $15
288.dc.w $15
289.dc.w $15
290.dc.w $15
291.dc.w $15
292.dc.w $16
293.dc.w $16
294.dc.w $16
295.dc.w $16
296.dc.w $16
297.dc.w $17
298.dc.w $17
299.dc.w $17
300.dc.w $17
301.dc.w $17
302.dc.w $17
303.dc.w $18
304.dc.w $18
305.dc.w $18
306.dc.w $18
307.dc.w $18
308.dc.w $19
309.dc.w $19
310.dc.w $19
311.dc.w $19
312.dc.w $19
313.dc.w $19
314.dc.w $1A
315.dc.w $1A
316.dc.w $1A
317.dc.w $1A
318.dc.w $1A
319.dc.w $1A
320.dc.w $1B
321.dc.w $1B
322.dc.w $1B
323.dc.w $1B
324.dc.w $1B
325.dc.w $1C
326.dc.w $1C
327.dc.w $1C
328.dc.w $1C
329.dc.w $1C
330.dc.w $1C
331.dc.w $1D
332.dc.w $1D
333.dc.w $1D
334.dc.w $1D
335.dc.w $1D
336.dc.w $1E
337.dc.w $1E
338.dc.w $1E
339.dc.w $1E
340.dc.w $1E
341.dc.w $1E
342.dc.w $1F
343.dc.w $1F
344.dc.w $1F
345.dc.w $1F
346.dc.w $1F
347.dc.w $1F
348.dc.w $20
349.dc.w $21
350.dc.w $21
351.dc.w $21
352.dc.w $21
353.dc.w $21
354.dc.w $21
355.dc.w $22
356.dc.w $22
357.dc.w $22
358.dc.w $22
359.dc.w $22
360.dc.w $22
361.dc.w $23
362.dc.w $23
363.dc.w $23
364.dc.w $23
365.dc.w $23
366.dc.w $23
367.dc.w $24
368.dc.w $24
369.dc.w $24
370.dc.w $24
371.dc.w $24
372.dc.w $24
373.dc.w $25
374.dc.w $25
375.dc.w $25
376.dc.w $25
377.dc.w $25
378.dc.w $25
379.dc.w $26
380.dc.w $26
381.dc.w $26
382.dc.w $26
383.dc.w $26
384.dc.w $26
385.dc.w $27
386.dc.w $27
387.dc.w $27
388.dc.w $27
389.dc.w $27
390.dc.w $27
391.dc.w $28
392.dc.w $28
393.dc.w $28
394.dc.w $28
395.dc.w $28
396.dc.w $28
397.dc.w $29
398.dc.w $29
399.dc.w $29
400.dc.w $29
401.dc.w $29
402.dc.w $29
403.dc.w $2A
404.dc.w $2A
405.dc.w $2A
406.dc.w $2A
407.dc.w $2A
408.dc.w $2A
409.dc.w $2B
410.dc.w $2B
411.dc.w $2B
412.dc.w $2B
413.dc.w $2B
414.dc.w $2B
415.dc.w $2B
416.dc.w $2C
417.dc.w $2C
418.dc.w $2C
419.dc.w $2C
420.dc.w $2C
421.dc.w $2C
422.dc.w $2D
423.dc.w $2D
424.dc.w $2D
425.dc.w $2D
426.dc.w $2D
427.dc.w $2D
428.dc.w $2E
429.dc.w $2E
430.dc.w $2E
431.dc.w $2E
432.dc.w $2E
433.dc.w $2E
434.dc.w $2F
435.dc.w $2F
436.dc.w $2F
437.dc.w $2F
438.dc.w $2F
439.dc.w $2F
440.dc.w $30
441.dc.w $30
442.dc.w $30
443.dc.w $30
444.dc.w $30
445.dc.w $30
446.dc.w $31
447.dc.w $31
448.dc.w $31
449.dc.w $31
450.dc.w $31
451.dc.w $31
452.dc.w $32
453.dc.w $32
454.dc.w $32
455.dc.w $32
456.dc.w $32
457.dc.w $32
458.dc.w $33
459.dc.w $33
460.dc.w $33
461.dc.w $33
462.dc.w $33
463.dc.w $33
464.dc.w $34
465.dc.w $34
466.dc.w $34
467.dc.w $34
468.dc.w $34
469.dc.w $34
470.dc.w $35
471.dc.w $35
472.dc.w $35
473.dc.w $35
474.dc.w $35
475.dc.w $35
476.globl _BarBadj
477.text
478_BarBadj:
479~~BarBadj:
480~bar=8
481~val=10
482link R14,#-10
483movem.l R3-R7,-(sp)
484~bardot=R7
485~barpos=R6
486~curdif=R5
487~baradr=R4
488~barcol=-2
489~bardif=-4
490~curbar=-6
491~i=-8
492~newbar=-10
493*line 66
494move 10(R14),R8
495add.l R8,R8
496add.l #_BarBLn,R8
497move (R8),-10(R14)
498*line 67
499move 8(R14),R8
500add.l R8,R8
501add.l #_BarBcur,R8
502move (R8),-6(R14)
503*line 68
504move -10(R14),R0
505sub -6(R14),R0
506move R0,-4(R14)
507*line 70
508*line 71
509tst -4(R14)
510beq L1
511*line 72
512*line 73
513move #1,(sp)
514jsr _GLCcurs
515*line 74
516move 8(R14),R8
517add.l R8,R8
518add.l #_BarCols,R8
519move (R8),-2(R14)
520*line 76
521*line 76
522tst -4(R14)
523ble L2
524*line 77
525*line 78
526*line 79
527*line 80
528move #63,R4
529move -6(R14),R0
530add #1,R0
531sub R0,R4
532mulu #85,R4
533add -2(R14),R4
534add #8192,R4
535*line 81
536*line 82
537move #78,R0
538ext.w R0
539move.b R0,_lcd_a1
540*line 83
541*line 84
542clr -8(R14)
543bra L5
544L6:
545*line 85
546*line 86
547move -4(R14),R5
548*line 87
549move -8(R14),R8
550add.l R8,R8
551add.l #_BarDots,R8
552move (R8),R7
553*line 88
554*line 89
555move #70,R0
556ext.w R0
557move.b R0,_lcd_a1
558*line 90
559clr R0
560move R4,R0
561and #255,R0
562move.b R0,_lcd_a0
563*line 91
564clr R0
565move R4,R0
566lsr #8,R0
567and #255,R0
568move.b R0,_lcd_a0
569*line 92
570*line 93
571add #1,R4
572*line 94
573*line 95
574move #66,R0
575ext.w R0
576move.b R0,_lcd_a1
577*line 96
578*line 97
579bra L9
580L8:
581*line 98
582move.b R7,_lcd_a0
583L9:
584*line 98
585move R5,R0
586sub #1,R5
587tst R0
588bne L8
589L7:L4:
590*line 84
591add #1,-8(R14)
592L5:
593*line 84
594cmp #3,-8(R14)
595blt L6
596L3:
597*line 99
598*line 100
599*line 101
600bra L10
601L2:
602*line 102
603*line 103
604*line 104
605*line 105
606*line 106
607move #63,R4
608sub -6(R14),R4
609mulu #85,R4
610add -2(R14),R4
611add #8192,R4
612*line 107
613*line 108
614move #79,R0
615ext.w R0
616move.b R0,_lcd_a1
617*line 109
618*line 110
619clr -8(R14)
620bra L13
621L14:
622*line 111
623*line 112
624move -4(R14),R0
625neg R0
626move R0,R5
627*line 113
628*line 114
629move #70,R0
630ext.w R0
631move.b R0,_lcd_a1
632*line 115
633clr R0
634move R4,R0
635and #255,R0
636move.b R0,_lcd_a0
637*line 116
638clr R0
639move R4,R0
640lsr #8,R0
641and #255,R0
642move.b R0,_lcd_a0
643*line 117
644*line 118
645add #1,R4
646*line 119
647*line 120
648move #66,R0
649ext.w R0
650move.b R0,_lcd_a1
651*line 121
652*line 122
653bra L17
654L16:
655*line 123
656clr.b _lcd_a0
657L17:
658*line 123
659move R5,R0
660sub #1,R5
661tst R0
662bne L16
663L15:L12:
664*line 110
665add #1,-8(R14)
666L13:
667*line 110
668cmp #3,-8(R14)
669blt L14
670L11:
671*line 124
672L10:
673*line 127
674move #76,R0
675ext.w R0
676move.b R0,_lcd_a1
677*line 128
678clr (sp)
679jsr _GLCcurs
680*line 130
681move 8(R14),R8
682add.l R8,R8
683add.l #_BarBcur,R8
684move -10(R14),(R8)
685L1:tst.l (sp)+
686movem.l (sp)+,R4-R7
687unlk R14
688rts
689.globl _BarBset
690.text
691_BarBset:
692~~BarBset:
693~bar=8
694~val=10
695link R14,#-4
696movem.l R3-R7,-(sp)
697~bardot=R7
698~barpos=R6
699~newbar=R5
700~baradr=R4
701~barcol=-2
702~i=-4
703*line 149
704move 10(R14),R8
705add.l R8,R8
706add.l #_BarBLn,R8
707move (R8),R5
708*line 150
709move 8(R14),R8
710add.l R8,R8
711add.l #_BarCols,R8
712move (R8),-2(R14)
713*line 152
714move #1,(sp)
715jsr _GLCcurs
716*line 156
717move #63,R4
718sub _BBase,R4
719mulu #85,R4
720add -2(R14),R4
721add #8192,R4
722*line 158
723move #78,R0
724ext.w R0
725move.b R0,_lcd_a1
726*line 160
727clr -4(R14)
728bra L21
729L22:
730*line 161
731*line 162
732move -4(R14),R8
733add.l R8,R8
734add.l #_BarDots,R8
735move (R8),R7
736*line 163
737move _BBase,R6
738*line 164
739*line 165
740move #70,R0
741ext.w R0
742move.b R0,_lcd_a1
743*line 166
744clr R0
745move R4,R0
746and #255,R0
747move.b R0,_lcd_a0
748*line 167
749clr R0
750move R4,R0
751lsr #8,R0
752and #255,R0
753move.b R0,_lcd_a0
754*line 168
755*line 169
756add #1,R4
757*line 170
758*line 171
759move #66,R0
760ext.w R0
761move.b R0,_lcd_a1
762*line 172
763*line 173
764bra L25
765L24:
766*line 174
767move.b R7,_lcd_a0
768L25:
769*line 174
770cmp R6,R5
771move sr,R0
772add #1,R6
773move R0,ccr
774bge L24
775L23:
776*line 175
777*line 176
778bra L28
779L27:
780*line 177
781clr.b _lcd_a0
782L28:
783*line 177
784cmp _BTop,R6
785move sr,R0
786add #1,R6
787move R0,ccr
788blt L27
789L26:L20:
790*line 160
791add #1,-4(R14)
792L21:
793*line 160
794cmp #3,-4(R14)
795blt L22
796L19:
797*line 180
798move #76,R0
799ext.w R0
800move.b R0,_lcd_a1
801*line 181
802clr (sp)
803jsr _GLCcurs
804*line 183
805move 8(R14),R8
806add.l R8,R8
807add.l #_BarBcur,R8
808move R5,(R8)
809L18:tst.l (sp)+
810movem.l (sp)+,R4-R7
811unlk R14
812rts
813.globl _BarCadj
814.text
815_BarCadj:
816~~BarCadj:
817~bar=8
818~val=10
819link R14,#-8
820movem.l R3-R7,-(sp)
821~bardot=R7
822~barpos=R6
823~newbar=R5
824~baradr=R4
825~barcol=-2
826~bardif=-4
827~curbar=-6
828~i=-8
829*line 202
830move 10(R14),R8
831add _BOffset,R8
832add.l R8,R8
833add.l #_BarCLn,R8
834move (R8),R5
835*line 203
836move 8(R14),R8
837add.l R8,R8
838add.l #_BarCcur,R8
839move (R8),-6(R14)
840*line 204
841move R5,R0
842sub -6(R14),R0
843move R0,-4(R14)
844*line 206
845*line 207
846tst -4(R14)
847beq L29
848*line 208
849*line 209
850move #1,(sp)
851jsr _GLCcurs
852*line 211
853move 8(R14),R8
854add.l R8,R8
855add.l #_BarCols,R8
856move (R8),-2(R14)
857*line 215
858move #63,R4
859sub -6(R14),R4
860mulu #85,R4
861add -2(R14),R4
862add #8192,R4
863*line 219
864*line 219
865cmp -6(R14),R5
866ble L30
867*line 220
868*line 221
869move #78,R0
870ext.w R0
871move.b R0,_lcd_a1
872*line 222
873*line 223
874clr -8(R14)
875bra L33
876L34:
877*line 224
878*line 225
879move -8(R14),R8
880add.l R8,R8
881add.l #_BarDots,R8
882move (R8),R7
883*line 226
884move -6(R14),R6
885*line 227
886*line 228
887move #70,R0
888ext.w R0
889move.b R0,_lcd_a1
890*line 229
891clr R0
892move R4,R0
893and #255,R0
894move.b R0,_lcd_a0
895*line 230
896clr R0
897move R4,R0
898lsr #8,R0
899and #255,R0
900move.b R0,_lcd_a0
901*line 231
902*line 232
903move #66,R0
904ext.w R0
905move.b R0,_lcd_a1
906*line 233
907*line 234
908bra L37
909L36:
910*line 235
911*line 236
912cmp _BCenter,R6
913move sr,R0
914add #1,R6
915move R0,ccr
916bge L38
917*line 236
918clr.b _lcd_a0
919*line 237
920bra L39
921L38:
922*line 238
923move.b R7,_lcd_a0
924L39:L37:
925*line 238
926cmp R5,R6
927bne L36
928L35:
929*line 239
930*line 240
931add #1,R4
932L32:
933*line 223
934add #1,-8(R14)
935L33:
936*line 223
937cmp #3,-8(R14)
938blt L34
939L31:
940*line 241
941*line 242
942*line 243
943bra L40
944L30:
945*line 244
946*line 245
947*line 246
948move #79,R0
949ext.w R0
950move.b R0,_lcd_a1
951*line 247
952*line 248
953clr -8(R14)
954bra L43
955L44:
956*line 249
957*line 250
958move -8(R14),R8
959add.l R8,R8
960add.l #_BarDots,R8
961move (R8),R7
962*line 251
963move -6(R14),R6
964*line 252
965*line 253
966move #70,R0
967ext.w R0
968move.b R0,_lcd_a1
969*line 254
970clr R0
971move R4,R0
972and #255,R0
973move.b R0,_lcd_a0
974*line 255
975clr R0
976move R4,R0
977lsr #8,R0
978and #255,R0
979move.b R0,_lcd_a0
980*line 256
981*line 257
982move #66,R0
983ext.w R0
984move.b R0,_lcd_a1
985*line 258
986*line 259
987bra L47
988L46:
989*line 260
990*line 261
991cmp _BCenter,R6
992move sr,R0
993sub #1,R6
994move R0,ccr
995ble L48
996*line 261
997clr.b _lcd_a0
998*line 262
999bra L49
1000L48:
1001*line 263
1002move.b R7,_lcd_a0
1003L49:L47:
1004*line 263
1005cmp R5,R6
1006bne L46
1007L45:
1008*line 264
1009*line 265
1010add #1,R4
1011L42:
1012*line 248
1013add #1,-8(R14)
1014L43:
1015*line 248
1016cmp #3,-8(R14)
1017blt L44
1018L41:
1019*line 266
1020L40:
1021*line 269
1022move #76,R0
1023ext.w R0
1024move.b R0,_lcd_a1
1025*line 270
1026clr (sp)
1027jsr _GLCcurs
1028*line 272
1029move 8(R14),R8
1030add.l R8,R8
1031add.l #_BarCcur,R8
1032move R5,(R8)
1033L29:tst.l (sp)+
1034movem.l (sp)+,R4-R7
1035unlk R14
1036rts
1037.globl _BarCset
1038.text
1039_BarCset:
1040~~BarCset:
1041~bar=8
1042~val=10
1043link R14,#-6
1044movem.l R2-R7,-(sp)
1045~bardot=R7
1046~barpos=R6
1047~barloc1=R5
1048~barloc2=R4
1049~baradr=R3
1050~barcol=-2
1051~i=-4
1052~newbar=-6
1053*line 291
1054move #1,(sp)
1055jsr _GLCcurs
1056*line 293
1057move 10(R14),R8
1058add _BOffset,R8
1059add.l R8,R8
1060add.l #_BarCLn,R8
1061move (R8),-6(R14)
1062*line 294
1063move 8(R14),R8
1064add.l R8,R8
1065add.l #_BarCols,R8
1066move (R8),-2(R14)
1067*line 298
1068move #63,R3
1069sub _BBase,R3
1070mulu #85,R3
1071add -2(R14),R3
1072add #8192,R3
1073*line 300
1074*line 300
1075move -6(R14),R0
1076cmp _BCenter,R0
1077bge L51
1078*line 301
1079*line 302
1080move -6(R14),R5
1081*line 303
1082move _BCenter,R4
1083*line 304
1084bra L52
1085L51:
1086*line 305
1087*line 306
1088*line 307
1089move _BCenter,R5
1090*line 308
1091move -6(R14),R4
1092L52:
1093*line 311
1094move #78,R0
1095ext.w R0
1096move.b R0,_lcd_a1
1097*line 315
1098clr -4(R14)
1099bra L55
1100L56:
1101*line 316
1102*line 317
1103move -4(R14),R8
1104add.l R8,R8
1105add.l #_BarDots,R8
1106move (R8),R7
1107*line 318
1108move _BBase,R6
1109*line 319
1110*line 320
1111move #70,R0
1112ext.w R0
1113move.b R0,_lcd_a1
1114*line 321
1115clr R0
1116move R3,R0
1117and #255,R0
1118move.b R0,_lcd_a0
1119*line 322
1120clr R0
1121move R3,R0
1122lsr #8,R0
1123and #255,R0
1124move.b R0,_lcd_a0
1125*line 323
1126*line 324
1127move #66,R0
1128ext.w R0
1129move.b R0,_lcd_a1
1130*line 325
1131*line 326
1132bra L59
1133L58:
1134*line 327
1135*line 328
1136clr.b _lcd_a0
1137*line 329
1138add #1,R6
1139L59:
1140*line 330
1141cmp R5,R6
1142blt L58
1143L57:
1144*line 331
1145*line 332
1146bra L62
1147L61:
1148*line 333
1149*line 334
1150move.b R7,_lcd_a0
1151*line 335
1152add #1,R6
1153L62:
1154*line 336
1155cmp R4,R6
1156ble L61
1157L60:
1158*line 337
1159*line 338
1160bra L65
1161L64:
1162*line 339
1163*line 340
1164clr.b _lcd_a0
1165*line 341
1166add #1,R6
1167L65:
1168*line 342
1169cmp _BTop,R6
1170ble L64
1171L63:
1172*line 343
1173*line 344
1174add #1,R3
1175L54:
1176*line 315
1177add #1,-4(R14)
1178L55:
1179*line 315
1180cmp #3,-4(R14)
1181blt L56
1182L53:
1183*line 347
1184move #76,R0
1185ext.w R0
1186move.b R0,_lcd_a1
1187*line 348
1188clr (sp)
1189jsr _GLCcurs
1190*line 350
1191move 8(R14),R8
1192add.l R8,R8
1193add.l #_BarCcur,R8
1194move -6(R14),(R8)
1195L50:tst.l (sp)+
1196movem.l (sp)+,R3-R7
1197unlk R14
1198rts
1199.data
Note: See TracBrowser for help on using the repository browser.