source: buchla-68k/libcio/ptcl12.s@ 6099cac

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

Removed _ prefix.
  • Property mode set to 100644
File size: 895 bytes
RevLine 
[4f508e6]1| ------------------------------------------------------------------------------
2| ptcl12.s -- store a cluster entry into the FAT
3| Version 2 -- 1987-10-27 -- D.N. Lynx Crowe
4| ------------------------------------------------------------------------------
[f40a309]5 .text
[8325447]6 .xdef _ptcl12
[4f508e6]7
8CL = 12
9VAL = 14
10CLA = d7
11CLP = d6
12CLT = d5
13FAT = a5
14
[8325447]15_ptcl12: link A6,#0
[f40a309]16 movem.l CLT-CLA/FAT-FAT,-(sp)
17 move.l 8(A6),FAT
18 move.w CL(A6),CLA
[4f508e6]19 lsr.w #1,CLA
[f40a309]20 add.w CL(A6),CLA
21 move.b 1(FAT,CLA.W),CLP
22 lsl.w #8,CLP
23 move.b 0(FAT,CLA.W),CLP
24 btst #0,CL+1(A6)
25 beq L2
[4f508e6]26
[f40a309]27 move.w CLP,CLT
[4f508e6]28 and.w #0x000F,CLT
[f40a309]29 move.w VAL(A6),D0
30 lsl.w #4,D0
31 or.w D0,CLT
32 bra L3
[4f508e6]33
[f40a309]34L2: move.w CLP,CLT
[4f508e6]35 and.w #0xF000,CLT
[f40a309]36 move.w VAL(A6),D0
[4f508e6]37 and.w #0x0FFF,D0
[f40a309]38 or.w D0,CLT
[4f508e6]39
[f40a309]40L3: move.b CLT,0(FAT,CLA.W)
41 move.w CLT,D0
42 lsr.w #8,D0
43 move.b D0,1(FAT,CLA.W)
[4f508e6]44
[f40a309]45L1: movem.l (sp)+,CLT-CLA/FAT-FAT
46 unlk A6
47 rts
[4f508e6]48
[f40a309]49 .end
Note: See TracBrowser for help on using the repository browser.