source: buchla-68k/alcyon/chksec.s@ bc1afe0

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 11.9 KB
Line 
1.globl _ac_code
2.globl _scname
3.globl _se_chg
4.globl _curscor
5.globl _cursect
6.globl _se1_cnt
7.globl _se2_cnt
8.globl _se3_cnt
9.globl _spool
10.globl _pspool
11.globl _spcount
12.globl _frags
13.globl _t_bak
14.globl _t_cur
15.globl _t_ctr
16.globl _t_fwd
17.globl _size1
18.globl _size2
19.globl _size3
20.globl _scores
21.globl _scp
22.globl _seclist
23.globl _hplist
24.globl _p_bak
25.globl _p_cur
26.globl _p_ctr
27.globl _p_fwd
28.globl _secopok
29.globl _t_sbgn
30.globl _t_send
31.globl _t_sect
32.globl _t_sec1
33.globl _t_sec2
34.globl _t_cbgn
35.globl _t_cend
36.globl _p_sbgn
37.globl _p_send
38.globl _p_sec1
39.globl _p_sec2
40.globl _p_cbgn
41.globl _p_cend
42.globl _ancmsw
43.globl _grptran
44.globl _grpmode
45.globl _grpstat
46.globl _grptmap
47.globl _varmode
48.globl _cmslens
49.data
50_cmslens:
51.dc.w $0
52.dc.w $0
53.dc.w $0
54.dc.w $0
55.dc.w $6
56.dc.w $5
57.dc.w $5
58.dc.w $5
59.dc.w $5
60.dc.w $6
61.dc.w $6
62.dc.w $6
63.dc.w $6
64.dc.w $6
65.dc.w $6
66.dc.w $6
67.dc.w $6
68.dc.w $6
69.dc.w $5
70.dc.w $5
71.dc.w $5
72.dc.w $0
73.dc.w $5
74.dc.w $5
75.dc.w $5
76.globl _cmgtags
77.data
78_cmgtags:
79.dc.b $0
80.dc.b $0
81.dc.b $0
82.dc.b $0
83.dc.b $1
84.dc.b $1
85.dc.b $1
86.dc.b $0
87.dc.b $0
88.dc.b $0
89.dc.b $0
90.dc.b $1
91.dc.b $1
92.dc.b $1
93.dc.b $1
94.dc.b $1
95.dc.b $0
96.dc.b $1
97.dc.b $0
98.dc.b $0
99.dc.b $0
100.dc.b $0
101.dc.b $1
102.dc.b $0
103.dc.b $0
104.even
105.globl _cmgtype
106.data
107_cmgtype:
108.dc.b $0
109.dc.b $0
110.dc.b $0
111.dc.b $0
112.dc.b $0
113.dc.b $1
114.dc.b $1
115.dc.b $0
116.dc.b $0
117.dc.b $0
118.dc.b $0
119.dc.b $0
120.dc.b $0
121.dc.b $0
122.dc.b $0
123.dc.b $0
124.dc.b $0
125.dc.b $0
126.dc.b $0
127.dc.b $0
128.dc.b $0
129.dc.b $0
130.dc.b $1
131.dc.b $0
132.dc.b $0
133.even
134.globl _ehdlist
135.data
136_ehdlist:
137.dc.w $FFFF
138.dc.w $FFFF
139.dc.w $A
140.dc.w $B
141.dc.w $0
142.dc.w $FFFF
143.dc.w $FFFF
144.dc.w $FFFF
145.dc.w $6
146.dc.w $7
147.dc.w $8
148.dc.w $1
149.dc.w $2
150.dc.w $3
151.dc.w $FFFF
152.dc.w $4
153.dc.w $9
154.dc.w $5
155.dc.w $FFFF
156.dc.w $FFFF
157.dc.w $FFFF
158.dc.w $FFFF
159.dc.w $FFFF
160.dc.w $FFFF
161.dc.w $FFFF
162.globl _oktocm
163.text
164_oktocm:
165~~oktocm:
166~ep=R13
167link R14,#0
168movem.l R4-R7/R13-R13,-(sp)
169~et=R7
170~grp=R6
171~mode=R5
172*line 171
173move.l 8(R14),R13
174*line 171
175move.b 5(R13),R7
176ext.w R7
177and #127,R7
178*line 173
179*line 174
180move R7,R8
181add.l R8,R8
182add.l #_cmslens,R8
183tst (R8)
184bne L2
185*line 174
186clr R0
187bra L1
188*line 175
189L2:
190*line 176
191*line 177
192move.l #_cmgtags,R8
193tst.b 0(R8,R7)
194bne L3
195*line 177
196move #1,R0
197bra L1
198*line 178
199*line 179
200*line 180
201L3:
202*line 181
203move.l #_cmgtype,R8
204tst.b 0(R8,R7)
205beq L10000
206move.b 7(R13),R0
207ext.w R0
208bra L10002
209L10000:move.b 6(R13),R0
210ext.w R0
211L10002:move R0,R6
212and #15,R6
213*line 183
214*line 184
215move R6,R8
216add.l R8,R8
217move.l #_grpstat,R9
218tst 0(R8,R9.l)
219bne L4
220*line 184
221clr R0
222bra L1
223*line 185
224L4:
225*line 186
226*line 187
227cmp #15,R7
228beq L10003
229cmp #14,R7
230bne L5
231L10003:*line 188
232*line 189
233tst _ancmsw
234beq L10004
235move.b 6(R13),R0
236ext.w R0
237asr #4,R0
238and #7,R0
239asl #5,R0
240ext.l R0
241move R6,R1
242asl #1,R1
243ext.l R1
244add.l R1,R0
245move.l R0,R8
246move.l #_varmode,R9
247move 0(R8,R9.l),R0
248bra L10006
249L10004:move R6,R8
250add.l R8,R8
251add.l #_grptmap,R8
252cmp #-1,(R8)
253bne L10007
254clr R0
255bra L10009
256L10007:move #2,R0
257L10009:L10006:move R0,R5
258bra L6
259L5:
260*line 190
261*line 191
262move R6,R8
263add.l R8,R8
264add.l #_grptmap,R8
265cmp #-1,(R8)
266bne L10010
267clr R0
268bra L10012
269L10010:move #2,R0
270L10012:move R0,R5
271L6:
272*line 195
273cmp #2,R5
274bne L10013
275move #1,R0
276bra L10015
277L10013:clr R0
278L10015:bra L1
279L1:tst.l (sp)+
280movem.l (sp)+,R5-R7/R13-R13
281unlk R14
282rts
283.globl _oktode
284.text
285_oktode:
286~~oktode:
287~ep=R13
288link R14,#0
289movem.l R4-R7/R13-R13,-(sp)
290~et=R7
291~grp=R6
292~mode=R5
293*line 218
294move.l 8(R14),R13
295*line 218
296move.b 5(R13),R7
297ext.w R7
298and #127,R7
299*line 220
300*line 221
301cmp #5,R7
302beq L10016
303cmp #6,R7
304bne L8
305L10016:*line 221
306clr R0
307bra L7
308*line 222
309L8:
310*line 223
311*line 224
312move.l #_cmgtags,R8
313tst.b 0(R8,R7)
314bne L9
315*line 224
316move #1,R0
317bra L7
318*line 225
319*line 226
320*line 227
321L9:
322*line 228
323move.l #_cmgtype,R8
324tst.b 0(R8,R7)
325beq L10017
326move.b 7(R13),R0
327ext.w R0
328bra L10019
329L10017:move.b 6(R13),R0
330ext.w R0
331L10019:move R0,R6
332and #15,R6
333*line 230
334*line 231
335move R6,R8
336add.l R8,R8
337move.l #_grpstat,R9
338tst 0(R8,R9.l)
339bne L10
340*line 231
341clr R0
342bra L7
343*line 232
344L10:
345*line 233
346*line 234
347cmp #15,R7
348beq L10020
349cmp #14,R7
350bne L11
351L10020:*line 235
352tst _ancmsw
353beq L10021
354move.b 6(R13),R0
355ext.w R0
356asr #4,R0
357and #7,R0
358asl #5,R0
359ext.l R0
360move R6,R1
361asl #1,R1
362ext.l R1
363add.l R1,R0
364move.l R0,R8
365move.l #_varmode,R9
366move 0(R8,R9.l),R0
367bra L10023
368L10021:move R6,R8
369add.l R8,R8
370move.l #_grpmode,R9
371move 0(R8,R9.l),R0
372L10023:move R0,R5
373bra L12
374L11:
375*line 236
376*line 237
377move R6,R8
378add.l R8,R8
379add.l #_grpmode,R8
380move (R8),R5
381L12:
382*line 241
383cmp #2,R5
384bne L10024
385move #1,R0
386bra L10026
387L10024:clr R0
388L10026:bra L7
389L7:tst.l (sp)+
390movem.l (sp)+,R5-R7/R13-R13
391unlk R14
392rts
393.globl _oktodg
394.text
395_oktodg:
396~~oktodg:
397~ep=R13
398link R14,#0
399movem.l R5-R7/R13-R13,-(sp)
400~et=R7
401~grp=R6
402*line 264
403move.l 8(R14),R13
404*line 264
405move.b 5(R13),R7
406ext.w R7
407and #127,R7
408*line 266
409*line 267
410*line 268
411cmp #5,R7
412beq L14
413cmp #6,R7
414beq L14
415*line 268
416clr R0
417bra L13
418*line 269
419L14:
420*line 270
421move.b 7(R13),R6
422ext.w R6
423*line 272
424*line 273
425*line 274
426move R6,R8
427add.l R8,R8
428add.l #_grpmode,R8
429cmp #2,(R8)
430bne L15
431move R6,R8
432add.l R8,R8
433move.l #_grpstat,R9
434tst 0(R8,R9.l)
435beq L15
436*line 274
437move #1,R0
438bra L13
439*line 275
440bra L16
441L15:
442*line 276
443clr R0
444bra L13
445L16:L13:tst.l (sp)+
446movem.l (sp)+,R6-R7/R13-R13
447unlk R14
448rts
449.globl _chksec
450.text
451_chksec:
452~~chksec:
453~ns=R7
454link R14,#0
455movem.l R6-R7/R13-R13,-(sp)
456~ep=R13
457*line 301
458move 8(R14),R7
459*line 305
460*line 305
461move _curscor,R0
462muls #80,R0
463move R7,R1
464asl #2,R1
465ext.l R1
466add.l R1,R0
467add.l #_seclist,R0
468move.l R0,R8
469move.l (R8),_p_sbgn
470bne L18
471*line 306
472*line 307
473clr _secopok
474*line 308
475clr.l _p_send
476*line 309
477*line 310
478move #1,R0
479bra L17
480*line 311
481*line 312
482L18:
483*line 313
484move.l _p_sbgn,R8
485move.l (R8),_t_sbgn
486*line 319
487move _curscor,R0
488muls #48,R0
489add.l #_hplist,R0
490move.l R0,R8
491move.l 44(R8),R13
492*line 321
493bra L21
494L20:
495*line 322
496*line 323
497*line 324
498*line 325
499move.b 5(R13),R0
500ext.w R0
501and #127,R0
502cmp #3,R0
503bne L10027
504move.b 6(R13),R0
505ext.w R0
506cmp R0,R7
507beq L19
508L10027:*line 326
509*line 327
510move.l 20(R13),R13
511L21:
512*line 328
513move.l R13,R0
514bne L20
515L19:
516*line 330
517*line 330
518move.l R13,_p_send
519bne L22
520*line 331
521*line 332
522clr _secopok
523*line 333
524*line 334
525move #2,R0
526bra L17
527*line 335
528*line 336
529*line 337
530*line 338
531L22:
532*line 339
533*line 339
534move.l (R13),R0
535move.l R0,_t_send
536cmp.l _t_sbgn,R0
537bgt L23
538*line 340
539*line 341
540clr _secopok
541*line 342
542*line 343
543move #3,R0
544bra L17
545*line 344
546*line 345
547L23:
548*line 346
549move.l _t_send,R0
550add.l #$1,R0
551sub.l _t_sbgn,R0
552move.l R0,_t_sect
553*line 349
554clr R0
555bra L17
556L17:tst.l (sp)+
557movem.l (sp)+,R7-R7/R13-R13
558unlk R14
559rts
560.globl _sizesec
561.text
562_sizesec:
563~~sizesec:
564link R14,#0
565movem.l R5-R7/R12-R13,-(sp)
566~ec=R7
567~et=R6
568~sbp=R13
569~sep=R12
570*line 375
571clr.l R7
572*line 376
573move.l _p_sbgn,R8
574move.l 12(R8),R13
575*line 377
576move.l _p_send,R12
577*line 379
578bra L27
579L26:
580*line 380
581*line 381
582move.b 5(R13),R6
583ext.w R6
584and #127,R6
585*line 382
586*line 383
587*line 384
588move.l R13,(sp)
589jsr _oktocm
590tst R0
591beq L28
592*line 384
593move R6,R8
594add.l R8,R8
595move.l #_cmslens,R9
596move 0(R8,R9.l),R0
597ext.l R0
598add.l R0,R7
599*line 385
600L28:
601*line 386
602move.l 12(R13),R13
603L27:
604*line 387
605cmp.l R12,R13
606bne L26
607L25:
608*line 397
609move.l R7,R0
610bra L24
611L24:tst.l (sp)+
612movem.l (sp)+,R6-R7/R12-R13
613unlk R14
614rts
615.globl _edelta
616.text
617_edelta:
618~~edelta:
619~ep=R13
620~btime=R7
621~delta=R6
622link R14,#0
623movem.l R5-R7/R13-R13,-(sp)
624*line 417
625move.l 8(R14),R13
626*line 417
627move.l 12(R14),R7
628*line 417
629move.l 16(R14),R6
630*line 419
631bra L32
632L31:
633*line 420
634*line 421
635*line 422
636cmp.l (R13),R7
637bge L33
638*line 422
639add.l R6,(R13)
640*line 423
641L33:
642*line 424
643move.l 12(R13),R13
644L32:
645*line 425
646move.b 5(R13),R0
647ext.w R0
648and #127,R0
649cmp #21,R0
650bne L31
651L30:L29:tst.l (sp)+
652movem.l (sp)+,R6-R7/R13-R13
653unlk R14
654rts
655.globl _madjsec
656.text
657_madjsec:
658~~madjsec:
659~sbp=R13
660~btime=R7
661link R14,#-8
662movem.l R2-R7/R11-R13,-(sp)
663~ns=-2
664~nv=-4
665~grp=R6
666~es=R5
667~et=R4
668~ep=R12
669~np=R11
670~cp=-8
671~sat=R3
672*line 460
673move.l 8(R14),R13
674*line 460
675move.l 12(R14),R7
676*line 462
677clr.l R0
678move.l R0,-8(R14)
679move.l R0,R12
680move.l R12,R11
681*line 463
682move.b 6(R13),R0
683ext.w R0
684move R0,-2(R14)
685*line 464
686move.l (R13),R3
687sub.l R7,R3
688*line 465
689move.l 12(R13),R13
690*line 472
691bra L37
692L36:
693*line 473
694*line 474
695move.b 5(R13),R4
696ext.w R4
697and #127,R4
698*line 475
699*line 476
700*line 477
701*line 478
702*line 479
703cmp #3,R4
704bne L10028
705move.b 6(R13),R0
706ext.w R0
707cmp -2(R14),R0
708beq L35
709L10028:*line 480
710*line 481
711*line 481
712move.l R13,(sp)
713jsr _oktocm
714tst R0
715beq L38
716*line 482
717*line 483
718move.b 4(R13),R5
719ext.w R5
720*line 484
721move R5,(sp)
722jsr _e_alc
723move.l R0,R11
724*line 485
725move R5,R0
726asl #1,R0
727move R0,(sp)
728move.l R13,-(sp)
729move.l R11,-(sp)
730jsr _memcpyw
731addq.l #8,sp
732*line 486
733*line 487
734*line 487
735move.l #_cmgtags,R8
736tst.b 0(R8,R4)
737beq L39
738*line 488
739*line 489
740*line 490
741move.l #_cmgtype,R8
742tst.b 0(R8,R4)
743beq L10029
744move.b 7(R11),R0
745ext.w R0
746bra L10031
747L10029:move.b 6(R11),R0
748ext.w R0
749L10031:move R0,R6
750and #15,R6
751*line 491
752*line 492
753*line 492
754cmp #5,R4
755beq L10032
756cmp #6,R4
757bne L40
758L10032:*line 493
759*line 494
760*line 495
761*line 496
762*line 497
763move.b 7(R11),R0
764ext.w R0
765and #240,R0
766move R6,R9
767add.l R9,R9
768add.l #_grptmap,R9
769move (R9),R1
770or R1,R0
771move.b R0,7(R11)
772*line 498
773*line 499
774*line 500
775*line 501
776move.b 6(R11),R0
777ext.w R0
778add _grptran,R0
779move R0,-4(R14)
780*line 502
781*line 503
782*line 504
783cmp #127,-4(R14)
784ble L41
785*line 504
786move #127,-4(R14)
787bra L42
788L41:
789*line 505
790*line 506
791tst -4(R14)
792bge L43
793*line 506
794clr -4(R14)
795*line 507
796L43:L42:
797*line 508
798move -4(R14),R0
799move.b R0,6(R11)
800*line 509
801bra L44
802L40:
803*line 510
804*line 510
805cmp #15,R4
806beq L10033
807cmp #14,R4
808bne L45
809L10033:*line 511
810*line 512
811*line 513
812*line 514
813*line 515
814move.b 6(R11),R0
815ext.w R0
816and #15,R0
817move R6,R9
818add.l R9,R9
819add.l #_grptmap,R9
820move (R9),R1
821asl #4,R1
822or R1,R0
823move.b R0,6(R11)
824*line 516
825bra L46
826L45:
827*line 517
828*line 518
829*line 519
830*line 520
831*line 521
832*line 522
833move.l #_cmgtype,R8
834tst.b 0(R8,R4)
835beq L47
836*line 523
837move.b 7(R11),R0
838ext.w R0
839and #240,R0
840move R6,R9
841add.l R9,R9
842add.l #_grptmap,R9
843move (R9),R1
844or R1,R0
845move.b R0,7(R11)
846*line 524
847bra L48
848L47:
849*line 525
850*line 526
851move.b 6(R11),R0
852ext.w R0
853and #240,R0
854move R6,R9
855add.l R9,R9
856add.l #_grptmap,R9
857move (R9),R1
858or R1,R0
859move.b R0,6(R11)
860L48:L46:L44:
861*line 527
862*line 528
863*line 529
864*line 530
865*line 531
866L39:
867*line 532
868*line 532
869move.l R12,R0
870beq L49
871*line 533
872*line 534
873move.l R11,12(R12)
874*line 535
875bra L50
876L49:
877*line 536
878*line 537
879*line 538
880*line 539
881move.l R11,-8(R14)
882L50:
883*line 540
884*line 541
885*line 542
886move.l R12,8(R11)
887*line 543
888clr.l 12(R11)
889*line 544
890sub.l R3,(R11)
891*line 545
892move.l R11,R12
893*line 546
894*line 547
895L38:
896*line 548
897move.l 12(R13),R13
898L37:
899*line 549
900bra L36
901L35:
902*line 551
903move.l -8(R14),_p_cbgn
904*line 552
905move.l R11,_p_cend
906*line 554
907*line 554
908tst.l -8(R14)
909beq L51
910*line 555
911*line 556
912*line 557
913move.l -8(R14),R8
914move.l (R8),_t_cbgn
915*line 558
916move.l (R11),_t_cend
917*line 559
918*line 560
919L51:
920*line 562
921move.l -8(R14),R0
922bra L34
923L34:tst.l (sp)+
924movem.l (sp)+,R3-R7/R11-R13
925unlk R14
926rts
927.globl _ehfix
928.text
929_ehfix:
930~~ehfix:
931~cbp=R13
932~cep=R12
933link R14,#0
934movem.l R6-R7/R12-R13,-(sp)
935~et=R7
936*line 582
937move.l 8(R14),R13
938*line 582
939move.l 12(R14),R12
940L55:
941*line 583
942*line 584
943move.b 5(R13),R7
944ext.w R7
945and #127,R7
946*line 585
947*line 586
948*line 587
949*line 588
950*line 589
951move R7,R8
952add.l R8,R8
953add.l #_ehdlist,R8
954cmp #-1,(R8)
955beq L56
956*line 589
957move R7,R8
958add.l R8,R8
959move.l #_ehdlist,R9
960move 0(R8,R9.l),(sp)
961move.l R13,-(sp)
962jsr _eh_ins
963addq.l #4,sp
964*line 590
965L56:
966*line 591
967*line 592
968cmp.l R12,R13
969beq L52
970*line 593
971*line 594
972move.l 12(R13),R13
973L54:bra L55
974L53:L52:tst.l (sp)+
975movem.l (sp)+,R7-R7/R12-R13
976unlk R14
977rts
978.data
Note: See TracBrowser for help on using the repository browser.