source: buchla-68k/alcyon/uslice.s@ 96496d0

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 20.1 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 _ac_code
38.globl _scname
39.globl _se_chg
40.globl _curscor
41.globl _cursect
42.globl _se1_cnt
43.globl _se2_cnt
44.globl _se3_cnt
45.globl _spool
46.globl _pspool
47.globl _spcount
48.globl _frags
49.globl _t_bak
50.globl _t_cur
51.globl _t_ctr
52.globl _t_fwd
53.globl _size1
54.globl _size2
55.globl _size3
56.globl _scores
57.globl _scp
58.globl _seclist
59.globl _hplist
60.globl _p_bak
61.globl _p_cur
62.globl _p_ctr
63.globl _p_fwd
64.globl _scrl
65.globl _sbase
66.globl _sd
67.globl _soffset
68.globl _consl
69.globl _cursl
70.globl _nxtsl
71.globl _prvsl
72.globl _saddr
73.globl _slices
74.globl _gtctab
75.globl _gdfsep
76.globl _gdstbc
77.globl _gdstbn
78.globl _gdstbp
79.globl _gdfsl
80.globl _lintab1
81.data
82_lintab1:
83.dc.w $CD
84.dc.w $CD
85.dc.w $C9
86.dc.w $C5
87.dc.w $C5
88.dc.w $C1
89.dc.w $C1
90.dc.w $BD
91.dc.w $B9
92.dc.w $B9
93.dc.w $B5
94.dc.w $B5
95.dc.w $B1
96.dc.w $B1
97.dc.w $AD
98.dc.w $A9
99.dc.w $A9
100.dc.w $A5
101.dc.w $A5
102.dc.w $A1
103.dc.w $9D
104.dc.w $9D
105.dc.w $99
106.dc.w $99
107.dc.w $95
108.dc.w $95
109.dc.w $91
110.dc.w $8D
111.dc.w $8D
112.dc.w $89
113.dc.w $89
114.dc.w $85
115.dc.w $81
116.dc.w $81
117.dc.w $7D
118.dc.w $7D
119.dc.w $79
120.dc.w $79
121.dc.w $75
122.dc.w $71
123.dc.w $71
124.dc.w $6D
125.dc.w $6D
126.dc.w $69
127.dc.w $65
128.dc.w $65
129.dc.w $61
130.dc.w $61
131.dc.w $5D
132.dc.w $5D
133.dc.w $59
134.dc.w $55
135.dc.w $55
136.dc.w $51
137.dc.w $51
138.dc.w $4D
139.dc.w $49
140.dc.w $49
141.dc.w $45
142.dc.w $45
143.dc.w $41
144.dc.w $41
145.dc.w $3D
146.dc.w $39
147.dc.w $39
148.dc.w $35
149.dc.w $35
150.dc.w $31
151.dc.w $2D
152.dc.w $2D
153.dc.w $29
154.dc.w $29
155.dc.w $25
156.dc.w $25
157.dc.w $21
158.dc.w $1D
159.dc.w $1D
160.dc.w $19
161.dc.w $19
162.dc.w $15
163.dc.w $11
164.dc.w $11
165.dc.w $D
166.dc.w $D
167.dc.w $9
168.dc.w $9
169.dc.w $5
170.dc.w $1
171.globl _lintab2
172.data
173_lintab2:
174.dc.w $CD
175.dc.w $C9
176.dc.w $C9
177.dc.w $C5
178.dc.w $C1
179.dc.w $C1
180.dc.w $BD
181.dc.w $BD
182.dc.w $B9
183.dc.w $B5
184.dc.w $B5
185.dc.w $B1
186.dc.w $B1
187.dc.w $AD
188.dc.w $AD
189.dc.w $A9
190.dc.w $A5
191.dc.w $A5
192.dc.w $A1
193.dc.w $A1
194.dc.w $9D
195.dc.w $99
196.dc.w $99
197.dc.w $95
198.dc.w $95
199.dc.w $91
200.dc.w $91
201.dc.w $8D
202.dc.w $89
203.dc.w $89
204.dc.w $85
205.dc.w $85
206.dc.w $81
207.dc.w $7D
208.dc.w $7D
209.dc.w $79
210.dc.w $79
211.dc.w $75
212.dc.w $75
213.dc.w $71
214.dc.w $6D
215.dc.w $6D
216.dc.w $69
217.dc.w $69
218.dc.w $65
219.dc.w $61
220.dc.w $61
221.dc.w $5D
222.dc.w $5D
223.dc.w $59
224.dc.w $59
225.dc.w $55
226.dc.w $51
227.dc.w $51
228.dc.w $4D
229.dc.w $4D
230.dc.w $49
231.dc.w $45
232.dc.w $45
233.dc.w $41
234.dc.w $41
235.dc.w $3D
236.dc.w $3D
237.dc.w $39
238.dc.w $35
239.dc.w $35
240.dc.w $31
241.dc.w $31
242.dc.w $2D
243.dc.w $29
244.dc.w $29
245.dc.w $25
246.dc.w $25
247.dc.w $21
248.dc.w $21
249.dc.w $1D
250.dc.w $19
251.dc.w $19
252.dc.w $15
253.dc.w $15
254.dc.w $11
255.dc.w $D
256.dc.w $D
257.dc.w $9
258.dc.w $9
259.dc.w $5
260.dc.w $5
261.dc.w $1
262.globl _nttab1
263.data
264_nttab1:
265.dc.w $0
266.dc.w $2
267.dc.w $3
268.dc.w $3
269.dc.w $5
270.dc.w $3
271.dc.w $0
272.globl _nttab2
273.data
274_nttab2:
275.dc.w $0
276.dc.w $0
277.dc.w $1
278.dc.w $3
279.dc.w $0
280.dc.w $4
281.dc.w $0
282.globl _pxtbl
283.data
284_pxtbl:
285.dc.w $0
286.dc.w $0
287.dc.w $0
288.dc.w $0
289.dc.w $0
290.dc.w $0
291.dc.w $FFFF
292.dc.w $0
293.dc.w $0
294.dc.w $FFFF
295.dc.w $FFFF
296.dc.w $0
297.dc.w $FFFF
298.dc.w $FFFF
299.dc.w $FFFF
300.dc.w $0
301.dc.w $FFFF
302.dc.w $0
303.dc.w $0
304.dc.w $0
305.dc.w $FFFF
306.dc.w $FFFF
307.dc.w $0
308.dc.w $0
309.dc.w $FFFF
310.dc.w $FFFF
311.dc.w $FFFF
312.dc.w $0
313.globl _epxtbl
314.data
315_epxtbl:
316.dc.w $FFFF
317.dc.w $FFFF
318.dc.w $FFFF
319.dc.w $FFFF
320.dc.w $FFFF
321.dc.w $0
322.dc.w $0
323.dc.w $0
324.dc.w $0
325.dc.w $0
326.dc.w $0
327.dc.w $0
328.dc.w $0
329.dc.w $0
330.dc.w $0
331.dc.w $0
332.dc.w $0
333.dc.w $0
334.dc.w $0
335.dc.w $0
336.dc.w $0
337.dc.w $FFFF
338.dc.w $FFFF
339.dc.w $0
340.dc.w $0
341.dc.w $0
342.dc.w $0
343.dc.w $0
344.dc.w $0
345.dc.w $0
346.dc.w $0
347.dc.w $0
348.dc.w $0
349.dc.w $0
350.dc.w $0
351.dc.w $0
352.dc.w $0
353.dc.w $0
354.dc.w $0
355.dc.w $FFFF
356.dc.w $FFFF
357.dc.w $FFFF
358.dc.w $FFFF
359.dc.w $FFFF
360.dc.w $0
361.dc.w $0
362.dc.w $0
363.dc.w $0
364.dc.w $FFFF
365.dc.w $FFFF
366.dc.w $FFFF
367.dc.w $0
368.dc.w $0
369.dc.w $0
370.dc.w $0
371.dc.w $0
372.dc.w $0
373.dc.w $0
374.dc.w $0
375.dc.w $0
376.dc.w $0
377.dc.w $0
378.dc.w $0
379.dc.w $0
380.dc.w $0
381.dc.w $0
382.dc.w $0
383.dc.w $FFFF
384.dc.w $FFFF
385.dc.w $FFFF
386.dc.w $0
387.dc.w $0
388.dc.w $0
389.dc.w $0
390.dc.w $0
391.dc.w $0
392.dc.w $0
393.dc.w $0
394.dc.w $0
395.dc.w $0
396.dc.w $0
397.dc.w $0
398.dc.w $0
399.dc.w $0
400.dc.w $0
401.dc.w $0
402.dc.w $FFFF
403.dc.w $FFFF
404.dc.w $FFFF
405.dc.w $0
406.dc.w $0
407.dc.w $0
408.dc.w $0
409.dc.w $0
410.dc.w $0
411.dc.w $0
412.dc.w $0
413.dc.w $0
414.dc.w $0
415.dc.w $0
416.dc.w $0
417.dc.w $0
418.dc.w $0
419.dc.w $0
420.dc.w $0
421.dc.w $FFFF
422.dc.w $FFFF
423.dc.w $FFFF
424.dc.w $0
425.dc.w $0
426.dc.w $0
427.dc.w $0
428.globl _uslice
429.text
430_uslice:
431~~uslice:
432~mask1=R7
433~mask2=R6
434~slice=8
435~gdstb=16
436link R14,#-26
437movem.l R2-R7/R11-R13,-(sp)
438~pxptr=R13
439~slptr=R12
440~gdsep=R11
441~i=R5
442~ncolor=R4
443~w=R3
444~ncptr=-4
445~nctabp=-8
446~gdstp=-12
447~gdprv=-16
448~gdnxt=-20
449~wrote=-22
450~lintab=-26
451*line 195
452move 12(R14),R7
453*line 195
454move 14(R14),R6
455*line 199
456move.l 16(R14),-12(R14)
457*line 200
458tst _sd
459beq L10000
460move.l #_nttab2,R0
461bra L10002
462L10000:move.l #_nttab1,R0
463L10002:move.l R0,-8(R14)
464*line 201
465move.l #_gtctab,-4(R14)
466*line 202
467clr -22(R14)
468*line 204
469cmp.b #4,_ac_code
470bne L10003
471move.l #_lintab1,R0
472bra L10005
473L10003:move.l #_lintab2,R0
474L10005:move.l R0,-26(R14)
475*line 206
476*line 206
477move.l 16(R14),R8
478tst.l 64(R8)
479beq L2
480*line 207
481*line 208
482move.l 8(R14),R12
483*line 209
484move R7,R4
485and #13107,R4
486*line 210
487*line 211
488move #211,R5
489bra L5
490L6:
491*line 212
492clr R0
493move R4,R0
494clr R1
495move R6,R1
496and (R12),R1
497or R1,R0
498move R0,(R12)+
499L4:L5:
500*line 211
501clr R0
502move R5,R0
503sub #1,R5
504tst R0
505bne L6
506L3:
507*line 212
508*line 213
509*line 214
510move.l 16(R14),R8
511move.l #$0,64(R8)
512*line 215
513*line 216
514*line 217
515*line 218
516*line 219
517L2:
518*line 220
519clr R5
520bra L9
521L10:
522*line 221
523*line 222
524move R7,R4
525move.l -4(R14),R8
526move (R8),R0
527and R0,R4
528add.l #2,-4(R14)
529*line 223
530move.l -12(R14),-16(R14)
531*line 224
532move.l -12(R14),R8
533move.l (R8),R11
534add.l #4,-12(R14)
535*line 225
536*line 226
537*line 226
538move.l R11,R0
539beq L11
540*line 227
541*line 228
542add #1,-22(R14)
543*line 229
544*line 230
545L14:
546*line 231
547*line 232
548*line 233
549*line 234
550move.l -26(R14),R8
551move 4(R11),R9
552add.l R9,R9
553move 0(R8,R9.l),R0
554asl #1,R0
555ext.l R0
556move.l R0,R12
557add.l 8(R14),R12
558*line 235
559move 6(R11),R0
560asl #3,R0
561ext.l R0
562move.l R0,R13
563add.l #_pxtbl,R13
564*line 236
565*line 237
566*line 238
567*line 239
568clr R0
569move R6,R0
570and (R12),R0
571clr R1
572move R4,R1
573and (R13)+,R1
574or R1,R0
575move R0,(R12)+
576*line 240
577clr R0
578move R6,R0
579and (R12),R0
580clr R1
581move R4,R1
582and (R13)+,R1
583or R1,R0
584move R0,(R12)+
585*line 241
586clr R0
587move R6,R0
588and (R12),R0
589clr R1
590move R4,R1
591and (R13)+,R1
592or R1,R0
593move R0,(R12)
594*line 242
595*line 243
596move.l (R11),-20(R14)
597*line 244
598*line 245
599*line 246
600*line 247
601*line 247
602move 6(R11),R8
603add.l R8,R8
604add.l -8(R14),R8
605move (R8),6(R11)
606bne L15
607*line 248
608*line 249
609*line 250
610*line 251
611move.l -16(R14),R8
612move.l -20(R14),(R8)
613*line 252
614move.l _gdfsep,(R11)
615*line 253
616move.l R11,_gdfsep
617*line 254
618*line 255
619bra L16
620L15:
621*line 256
622move.l R11,-16(R14)
623L16:
624*line 257
625*line 258
626move.l -20(R14),R11
627*line 259
628L13:
629*line 260
630move.l R11,R0
631bne L14
632L12:
633*line 261
634L11:L8:
635*line 220
636add #1,R5
637L9:
638*line 220
639cmp #12,R5
640blo L10
641L7:bra L19
642L20:
643*line 266
644*line 267
645*line 268
646move.l -12(R14),-16(R14)
647*line 269
648move.l -12(R14),R8
649move.l (R8),R11
650add.l #4,-12(R14)
651*line 270
652*line 271
653*line 271
654move.l R11,R0
655beq L21
656*line 272
657*line 273
658add #1,-22(R14)
659*line 274
660*line 275
661L24:
662*line 276
663*line 277
664*line 278
665*line 279
666move.l 8(R14),R12
667add.l #424,R12
668*line 280
669move 6(R11),R0
670asl #5,R0
671ext.l R0
672move.l R0,R13
673add.l #_epxtbl,R13
674*line 281
675*line 282
676*line 283
677*line 284
678move R7,R4
679and 4(R11),R4
680*line 285
681*line 286
682*line 287
683*line 288
684*line 289
685move (R13)+,R3
686beq L25
687*line 289
688clr R0
689move R6,R0
690and (R12),R0
691clr R1
692move R3,R1
693and R4,R1
694or R1,R0
695move R0,(R12)
696*line 290
697L25:
698*line 291
699add.l #2,R12
700*line 292
701*line 293
702*line 294
703move (R13)+,R3
704beq L26
705*line 294
706clr R0
707move R6,R0
708and (R12),R0
709clr R1
710move R3,R1
711and R4,R1
712or R1,R0
713move R0,(R12)
714*line 295
715L26:
716*line 296
717add.l #2,R12
718*line 297
719*line 298
720*line 299
721move (R13)+,R3
722beq L27
723*line 299
724clr R0
725move R6,R0
726and (R12),R0
727clr R1
728move R3,R1
729and R4,R1
730or R1,R0
731move R0,(R12)
732*line 300
733L27:
734*line 301
735add.l #2,R12
736*line 302
737*line 303
738*line 304
739move (R13)+,R3
740beq L28
741*line 304
742clr R0
743move R6,R0
744and (R12),R0
745clr R1
746move R3,R1
747and R4,R1
748or R1,R0
749move R0,(R12)
750*line 305
751L28:
752*line 306
753add.l #2,R12
754*line 307
755*line 308
756*line 309
757move (R13)+,R3
758beq L29
759*line 309
760clr R0
761move R6,R0
762and (R12),R0
763clr R1
764move R3,R1
765and R4,R1
766or R1,R0
767move R0,(R12)
768*line 310
769L29:
770*line 311
771add.l #2,R12
772*line 312
773*line 313
774*line 314
775move (R13)+,R3
776beq L30
777*line 314
778clr R0
779move R6,R0
780and (R12),R0
781clr R1
782move R3,R1
783and R4,R1
784or R1,R0
785move R0,(R12)
786*line 315
787L30:
788*line 316
789add.l #2,R12
790*line 317
791*line 318
792*line 319
793move (R13)+,R3
794beq L31
795*line 319
796clr R0
797move R6,R0
798and (R12),R0
799clr R1
800move R3,R1
801and R4,R1
802or R1,R0
803move R0,(R12)
804*line 320
805L31:
806*line 321
807add.l #2,R12
808*line 322
809*line 323
810*line 324
811move (R13)+,R3
812beq L32
813*line 324
814clr R0
815move R6,R0
816and (R12),R0
817clr R1
818move R3,R1
819and R4,R1
820or R1,R0
821move R0,(R12)
822*line 325
823L32:
824*line 326
825add.l #2,R12
826*line 327
827*line 328
828*line 329
829move (R13)+,R3
830beq L33
831*line 329
832clr R0
833move R6,R0
834and (R12),R0
835clr R1
836move R3,R1
837and R4,R1
838or R1,R0
839move R0,(R12)
840*line 330
841L33:
842*line 331
843add.l #2,R12
844*line 332
845*line 333
846*line 334
847move (R13)+,R3
848beq L34
849*line 334
850clr R0
851move R6,R0
852and (R12),R0
853clr R1
854move R3,R1
855and R4,R1
856or R1,R0
857move R0,(R12)
858*line 335
859L34:
860*line 336
861add.l #2,R12
862*line 337
863*line 338
864*line 339
865move (R13)+,R3
866beq L35
867*line 339
868clr R0
869move R6,R0
870and (R12),R0
871clr R1
872move R3,R1
873and R4,R1
874or R1,R0
875move R0,(R12)
876*line 340
877L35:
878*line 341
879add.l #2,R12
880*line 342
881*line 343
882*line 344
883move (R13),R3
884beq L36
885*line 344
886clr R0
887move R6,R0
888and (R12),R0
889clr R1
890move R3,R1
891and R4,R1
892or R1,R0
893move R0,(R12)
894*line 345
895L36:
896*line 346
897move.l (R11),-20(R14)
898*line 347
899move.l -16(R14),R8
900move.l -20(R14),(R8)
901*line 348
902move.l _gdfsep,(R11)
903*line 349
904move.l R11,_gdfsep
905*line 350
906move.l -20(R14),R11
907*line 351
908L23:
909*line 352
910move.l R11,R0
911bne L24
912L22:
913*line 353
914L21:L18:
915*line 266
916add #1,R5
917L19:
918*line 266
919cmp #16,R5
920blo L20
921L17:
922*line 358
923move -22(R14),R0
924bra L1
925L1:tst.l (sp)+
926movem.l (sp)+,R3-R7/R11-R13
927unlk R14
928rts
929.globl _rslice
930.text
931_rslice:
932~~rslice:
933~gdstb=8
934link R14,#-8
935movem.l R5-R7/R11-R13,-(sp)
936~gdsep=R13
937~gdstp=R12
938~nctabp=R11
939~i=R7
940~nc=R6
941~gdprv=-4
942~gdnxt=-8
943*line 391
944tst _sd
945beq L10006
946move.l #_nttab2,R0
947bra L10008
948L10006:move.l #_nttab1,R0
949L10008:move.l R0,R11
950*line 392
951move.l 8(R14),R12
952*line 398
953clr R7
954bra L40
955L41:
956*line 399
957*line 400
958move.l R12,-4(R14)
959*line 401
960move.l (R12)+,R13
961*line 402
962*line 403
963*line 403
964move.l R13,R0
965beq L42
966*line 404
967*line 405
968L45:
969*line 406
970*line 407
971move.l (R13),-8(R14)
972*line 408
973*line 409
974*line 410
975*line 411
976*line 411
977move 6(R13),R6
978move.l R11,R8
979clr R1
980move R6,R1
981lsl #1,R1
982swap R1
983clr R1
984swap R1
985add.l R1,R8
986move (R8),6(R13)
987bne L46
988*line 412
989*line 417
990*line 418
991*line 419
992*line 420
993*line 421
994move.l -4(R14),R8
995move.l -8(R14),(R8)
996*line 422
997move.l _gdfsep,(R13)
998*line 423
999move.l R13,_gdfsep
1000*line 424
1001bra L47
1002L46:
1003*line 425
1004*line 426
1005*line 431
1006*line 432
1007*line 433
1008move.l R13,-4(R14)
1009L47:
1010*line 434
1011*line 435
1012*line 436
1013move.l -8(R14),R13
1014*line 437
1015L44:
1016*line 438
1017move.l R13,R0
1018bne L45
1019L43:
1020*line 439
1021L42:L39:
1022*line 398
1023add #1,R7
1024L40:
1025*line 398
1026cmp #12,R7
1027blo L41
1028L38:bra L50
1029L51:
1030*line 446
1031*line 447
1032*line 448
1033move.l R12,-4(R14)
1034*line 449
1035move.l (R12)+,R13
1036*line 450
1037*line 451
1038*line 451
1039move.l R13,R0
1040beq L52
1041*line 452
1042*line 453
1043L55:
1044*line 454
1045*line 455
1046move.l (R13),-8(R14)
1047*line 456
1048move.l -4(R14),R8
1049move.l -8(R14),(R8)
1050*line 457
1051move.l _gdfsep,(R13)
1052*line 458
1053move.l R13,_gdfsep
1054*line 459
1055move.l -8(R14),R13
1056*line 460
1057L54:
1058*line 461
1059move.l R13,R0
1060bne L55
1061L53:
1062*line 462
1063L52:L49:
1064*line 446
1065add #1,R7
1066L50:
1067*line 446
1068cmp #16,R7
1069blo L51
1070L48:
1071*line 465
1072move.l 8(R14),R8
1073move.l #$0,64(R8)
1074L37:tst.l (sp)+
1075movem.l (sp)+,R6-R7/R11-R13
1076unlk R14
1077rts
1078.globl _cslice
1079.text
1080_cslice:
1081~~cslice:
1082~mask1=R7
1083~mask2=R6
1084~slice=8
1085~gdstb=16
1086link R14,#-26
1087movem.l R2-R7/R11-R13,-(sp)
1088~pxptr=R13
1089~slptr=R12
1090~gdsep=R11
1091~i=R5
1092~ncolor=R4
1093~w=R3
1094~ncptr=-4
1095~nctabp=-8
1096~gdstp=-12
1097~gdprv=-16
1098~gdnxt=-20
1099~wrote=-22
1100~lintab=-26
1101*line 508
1102move 12(R14),R7
1103*line 508
1104move 14(R14),R6
1105*line 512
1106move.l 16(R14),-12(R14)
1107*line 513
1108tst _sd
1109beq L10009
1110move.l #_nttab2,R0
1111bra L10011
1112L10009:move.l #_nttab1,R0
1113L10011:move.l R0,-8(R14)
1114*line 514
1115move.l #_gtctab,-4(R14)
1116*line 515
1117clr -22(R14)
1118*line 517
1119cmp.b #4,_ac_code
1120bne L10012
1121move.l #_lintab1,R0
1122bra L10014
1123L10012:move.l #_lintab2,R0
1124L10014:move.l R0,-26(R14)
1125*line 519
1126*line 519
1127move.l 16(R14),R8
1128tst.l 64(R8)
1129beq L57
1130*line 520
1131*line 521
1132move.l 8(R14),R12
1133*line 522
1134move R7,R4
1135and #13107,R4
1136*line 523
1137*line 524
1138move #211,R5
1139bra L60
1140L61:
1141*line 525
1142clr R0
1143move R4,R0
1144clr R1
1145move R6,R1
1146and (R12),R1
1147or R1,R0
1148move R0,(R12)+
1149L59:L60:
1150*line 524
1151clr R0
1152move R5,R0
1153sub #1,R5
1154tst R0
1155bne L61
1156L58:
1157*line 525
1158*line 526
1159*line 527
1160move.l 16(R14),R8
1161move.l #$0,64(R8)
1162*line 528
1163*line 529
1164*line 530
1165*line 531
1166*line 532
1167L57:
1168*line 533
1169clr R5
1170bra L64
1171L65:
1172*line 534
1173*line 535
1174move.l -4(R14),R8
1175move (R8),R4
1176add.l #2,-4(R14)
1177*line 536
1178move.l -12(R14),-16(R14)
1179*line 537
1180move.l -12(R14),R8
1181move.l (R8),R11
1182add.l #4,-12(R14)
1183*line 538
1184*line 539
1185*line 539
1186move.l R11,R0
1187beq L66
1188*line 540
1189*line 543
1190*line 544
1191add #1,-22(R14)
1192*line 545
1193*line 546
1194L69:
1195*line 547
1196*line 548
1197*line 549
1198*line 550
1199move.l -26(R14),R8
1200move 4(R11),R9
1201add.l R9,R9
1202move 0(R8,R9.l),R0
1203asl #1,R0
1204ext.l R0
1205move.l R0,R12
1206add.l 8(R14),R12
1207*line 551
1208move 6(R11),R0
1209asl #3,R0
1210ext.l R0
1211move.l R0,R13
1212add.l #_pxtbl,R13
1213*line 552
1214*line 553
1215*line 554
1216*line 555
1217clr R0
1218move R6,R0
1219and (R12),R0
1220clr R1
1221move R4,R1
1222and (R13)+,R1
1223or R1,R0
1224move R0,(R12)+
1225*line 556
1226clr R0
1227move R6,R0
1228and (R12),R0
1229clr R1
1230move R4,R1
1231and (R13)+,R1
1232or R1,R0
1233move R0,(R12)+
1234*line 557
1235clr R0
1236move R6,R0
1237and (R12),R0
1238clr R1
1239move R4,R1
1240and (R13)+,R1
1241or R1,R0
1242move R0,(R12)
1243*line 558
1244*line 559
1245move.l (R11),-20(R14)
1246*line 560
1247move.l R11,-16(R14)
1248*line 561
1249move.l -20(R14),R11
1250*line 562
1251L68:
1252*line 563
1253move.l R11,R0
1254bne L69
1255L67:
1256*line 564
1257L66:L63:
1258*line 533
1259add #1,R5
1260L64:
1261*line 533
1262cmp #12,R5
1263blo L65
1264L62:bra L72
1265L73:
1266*line 569
1267*line 570
1268*line 571
1269move.l -12(R14),-16(R14)
1270*line 572
1271move.l -12(R14),R8
1272move.l (R8),R11
1273add.l #4,-12(R14)
1274*line 573
1275*line 574
1276*line 574
1277move.l R11,R0
1278beq L74
1279*line 575
1280*line 576
1281add #1,-22(R14)
1282*line 577
1283*line 578
1284L77:
1285*line 579
1286*line 580
1287*line 581
1288*line 582
1289move.l 8(R14),R12
1290add.l #424,R12
1291*line 583
1292move 6(R11),R0
1293asl #5,R0
1294ext.l R0
1295move.l R0,R13
1296add.l #_epxtbl,R13
1297*line 584
1298*line 585
1299move 4(R11),R4
1300*line 586
1301*line 587
1302*line 588
1303*line 589
1304*line 590
1305move (R13)+,R3
1306beq L78
1307*line 590
1308clr R0
1309move R6,R0
1310and (R12),R0
1311clr R1
1312move R3,R1
1313and R4,R1
1314or R1,R0
1315move R0,(R12)
1316*line 591
1317L78:
1318*line 592
1319add.l #2,R12
1320*line 593
1321*line 594
1322*line 595
1323move (R13)+,R3
1324beq L79
1325*line 595
1326clr R0
1327move R6,R0
1328and (R12),R0
1329clr R1
1330move R3,R1
1331and R4,R1
1332or R1,R0
1333move R0,(R12)
1334*line 596
1335L79:
1336*line 597
1337add.l #2,R12
1338*line 598
1339*line 599
1340*line 600
1341move (R13)+,R3
1342beq L80
1343*line 600
1344clr R0
1345move R6,R0
1346and (R12),R0
1347clr R1
1348move R3,R1
1349and R4,R1
1350or R1,R0
1351move R0,(R12)
1352*line 601
1353L80:
1354*line 602
1355add.l #2,R12
1356*line 603
1357*line 604
1358*line 605
1359move (R13)+,R3
1360beq L81
1361*line 605
1362clr R0
1363move R6,R0
1364and (R12),R0
1365clr R1
1366move R3,R1
1367and R4,R1
1368or R1,R0
1369move R0,(R12)
1370*line 606
1371L81:
1372*line 607
1373add.l #2,R12
1374*line 608
1375*line 609
1376*line 610
1377move (R13)+,R3
1378beq L82
1379*line 610
1380clr R0
1381move R6,R0
1382and (R12),R0
1383clr R1
1384move R3,R1
1385and R4,R1
1386or R1,R0
1387move R0,(R12)
1388*line 611
1389L82:
1390*line 612
1391add.l #2,R12
1392*line 613
1393*line 614
1394*line 615
1395move (R13)+,R3
1396beq L83
1397*line 615
1398clr R0
1399move R6,R0
1400and (R12),R0
1401clr R1
1402move R3,R1
1403and R4,R1
1404or R1,R0
1405move R0,(R12)
1406*line 616
1407L83:
1408*line 617
1409add.l #2,R12
1410*line 618
1411*line 619
1412*line 620
1413move (R13)+,R3
1414beq L84
1415*line 620
1416clr R0
1417move R6,R0
1418and (R12),R0
1419clr R1
1420move R3,R1
1421and R4,R1
1422or R1,R0
1423move R0,(R12)
1424*line 621
1425L84:
1426*line 622
1427add.l #2,R12
1428*line 623
1429*line 624
1430*line 625
1431move (R13)+,R3
1432beq L85
1433*line 625
1434clr R0
1435move R6,R0
1436and (R12),R0
1437clr R1
1438move R3,R1
1439and R4,R1
1440or R1,R0
1441move R0,(R12)
1442*line 626
1443L85:
1444*line 627
1445add.l #2,R12
1446*line 628
1447*line 629
1448*line 630
1449move (R13)+,R3
1450beq L86
1451*line 630
1452clr R0
1453move R6,R0
1454and (R12),R0
1455clr R1
1456move R3,R1
1457and R4,R1
1458or R1,R0
1459move R0,(R12)
1460*line 631
1461L86:
1462*line 632
1463add.l #2,R12
1464*line 633
1465*line 634
1466*line 635
1467move (R13)+,R3
1468beq L87
1469*line 635
1470clr R0
1471move R6,R0
1472and (R12),R0
1473clr R1
1474move R3,R1
1475and R4,R1
1476or R1,R0
1477move R0,(R12)
1478*line 636
1479L87:
1480*line 637
1481add.l #2,R12
1482*line 638
1483*line 639
1484*line 640
1485move (R13)+,R3
1486beq L88
1487*line 640
1488clr R0
1489move R6,R0
1490and (R12),R0
1491clr R1
1492move R3,R1
1493and R4,R1
1494or R1,R0
1495move R0,(R12)
1496*line 641
1497L88:
1498*line 642
1499add.l #2,R12
1500*line 643
1501*line 644
1502*line 645
1503move (R13),R3
1504beq L89
1505*line 645
1506clr R0
1507move R6,R0
1508and (R12),R0
1509clr R1
1510move R3,R1
1511and R4,R1
1512or R1,R0
1513move R0,(R12)
1514*line 646
1515L89:
1516*line 647
1517move.l (R11),-20(R14)
1518*line 648
1519move.l -16(R14),R8
1520move.l -20(R14),(R8)
1521*line 649
1522move.l _gdfsep,(R11)
1523*line 650
1524move.l R11,_gdfsep
1525*line 651
1526move.l -20(R14),R11
1527*line 652
1528L76:
1529*line 653
1530move.l R11,R0
1531bne L77
1532L75:
1533*line 654
1534L74:L71:
1535*line 569
1536add #1,R5
1537L72:
1538*line 569
1539cmp #16,R5
1540blo L73
1541L70:
1542*line 659
1543move -22(R14),R0
1544bra L56
1545L56:tst.l (sp)+
1546movem.l (sp)+,R3-R7/R11-R13
1547unlk R14
1548rts
1549.globl _clrsctl
1550.text
1551_clrsctl:
1552~~clrsctl:
1553link R14,#-16
1554movem.l R5-R7/R11-R13,-(sp)
1555~gdsp=R13
1556~gnxt=R12
1557~gp=R11
1558~i=R7
1559*line 676
1560move.l #_gdfsl,R13
1561move.l R13,_gdfsep
1562*line 677
1563move.l #8+_gdfsl,R12
1564*line 679
1565move #255,R7
1566bra L93
1567L94:
1568*line 680
1569*line 681
1570clr 6(R13)
1571*line 682
1572clr 4(R13)
1573*line 683
1574move.l R12,(R13)
1575*line 684
1576*line 685
1577add.l #8,R13
1578*line 686
1579add.l #8,R12
1580L92:L93:
1581*line 679
1582move R7,R0
1583sub #1,R7
1584tst R0
1585bne L94
1586L91:
1587*line 689
1588clr 6(R13)
1589*line 690
1590clr 4(R13)
1591*line 691
1592clr.l (R13)
1593*line 693
1594move.l #_gdstbc,R11
1595*line 695
1596move #17,R7
1597bra L97
1598L98:
1599*line 696
1600clr.l (R11)+
1601L96:L97:
1602*line 695
1603move R7,R0
1604sub #1,R7
1605tst R0
1606bne L98
1607L95:
1608*line 698
1609move.l #_gdstbn,R11
1610*line 700
1611move #17,R7
1612bra L101
1613L102:
1614*line 701
1615clr.l (R11)+
1616L100:L101:
1617*line 700
1618move R7,R0
1619sub #1,R7
1620tst R0
1621bne L102
1622L99:
1623*line 703
1624move.l #_gdstbp,R11
1625*line 705
1626move #17,R7
1627bra L105
1628L106:
1629*line 706
1630clr.l (R11)+
1631L104:L105:
1632*line 705
1633move R7,R0
1634sub #1,R7
1635tst R0
1636bne L106
1637L103:
1638*line 708
1639clr _sbase
1640*line 709
1641clr _soffset
1642*line 710
1643move _sbase,R0
1644asl #1,R0
1645ext.l R0
1646add.l #_v_score,R0
1647move.l R0,_saddr
1648*line 712
1649move.l #1344+_slices,_consl
1650*line 713
1651move.l #896+_slices,_prvsl
1652*line 714
1653move.l #448+_slices,_cursl
1654*line 715
1655move.l #_slices,_nxtsl
1656*line 718
1657*line 719
1658*line 720
1659*line 721
1660*line 722
1661move.l _consl,-4(R14)
1662*line 723
1663move.l _nxtsl,-8(R14)
1664*line 724
1665move.l _cursl,-12(R14)
1666*line 725
1667move.l _prvsl,-16(R14)
1668*line 726
1669*line 727
1670move #224,R7
1671bra L109
1672L110:
1673*line 728
1674*line 729
1675move.l -4(R14),R8
1676move (R8),R6
1677add.l #2,-4(R14)
1678*line 730
1679move.l -8(R14),R8
1680move R6,(R8)
1681add.l #2,-8(R14)
1682*line 731
1683move.l -12(R14),R8
1684move R6,(R8)
1685add.l #2,-12(R14)
1686*line 732
1687move.l -16(R14),R8
1688move R6,(R8)
1689add.l #2,-16(R14)
1690L108:L109:
1691*line 727
1692move R7,R0
1693sub #1,R7
1694tst R0
1695bne L110
1696L107:
1697*line 733
1698L90:tst.l (sp)+
1699movem.l (sp)+,R6-R7/R11-R13
1700unlk R14
1701rts
1702.data
Note: See TracBrowser for help on using the repository browser.