- MOV.B &SecPerClus,W ; SecPerClus(54321) = multiplicator
- MOV @PSP,X ; X = ClusterL
- JMP CLUSTER1 ;
-CLUSTERLOOP
- ADD X,X ; (RLA) shift one left MULTIPLICANDlo16
- ADDC TOS,TOS ; (RLC) shift one left MULTIPLICANDhi8
-CLUSTER1
- RRA W ; shift one right multiplicator
- JNC CLUSTERLOOP ; if not carry
- ADD &OrgClusters,X ; add OrgClusters = sector of virtual cluster 0 (word size)
- MOV X,0(PSP)
- ADDC #0,TOS ; don't forget carry
- JMP SECTOR ; jump to a defined word
+ MOV.B &SecPerClus,W ; SecPerClus(54321) = multiplicator
+ MOV @PSP,X ; X = ClusterL
+ JMP CLUSTER1 ;
+CLUSTERLOOP
+ ADD X,X ; (RLA) shift one left MULTIPLICANDlo16
+ ADDC TOS,TOS ; (RLC) shift one left MULTIPLICANDhi8
+CLUSTER1
+ RRA W ; shift one right multiplicator
+ JNC CLUSTERLOOP ; if not carry
+ ADD &OrgClusters,X ; add OrgClusters = sector of virtual cluster 0 (word size)
+ MOV X,0(PSP)
+ ADDC #0,TOS ; don't forget carry
+ JMP SECTOR ; jump to a defined word