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