source: buchla-68k/alcyon/filesys.s@ 861ab45

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

Added Alcyon C reference output.

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